More correct Mathics code for CuebRoot

My WL skills are not that good.
Mathics3 · Nov 2, 2022 · 16c65cf · 16c65cf
1 parent d348304
commit 16c65cf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mathics/autoload/forms/StandardForm.m b/mathics/autoload/forms/StandardForm.m
@@ -10,12 +10,12 @@
 (* Change RadBox to RadicalBox. We use RadBox to make it clear that
    the below code was a read-in from a file and not some pre-existing
    code. *)
-RadicalBox[expr_, form_] = RadBox[MakeBoxes[expr, form], 3];
+CommonRadicalBox[expr_, form_] = RadBox[MakeBoxes[expr, form], 3];
 
 (******************************************************************************************)
 (* StandardForm Boxing Rules                                                               *)
 (******************************************************************************************)
 
-MakeBoxes[CubeRoot[expr_], StandardForm] := RadicalBox[expr_, form_];
+MakeBoxes[CubeRoot[expr_], StandardForm] := CommonRadicalBox[expr, form];
 (*All the other StandardForm boxing routines... *)
 End[]