From 91ee4548e0298bb9c1e763123f9f786df6172021 Mon Sep 17 00:00:00 2001 From: rocky Date: Wed, 2 Nov 2022 06:28:09 -0400 Subject: [PATCH] More correct Mathics code for CuebRoot My WL skills are not that good. --- mathics/autoload/forms/StandardForm.m | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/mathics/autoload/forms/StandardForm.m b/mathics/autoload/forms/StandardForm.m index 820e7380d..3f2806e9d 100644 --- a/mathics/autoload/forms/StandardForm.m +++ b/mathics/autoload/forms/StandardForm.m @@ -10,12 +10,15 @@ (* 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]; +Attributes[CommonRadicalBox] = HoldAll; +Attributes[RadBox] = HoldAll; +CommonRadicalBox[expr_, form_] = RadBox[MakeBoxes[expr, form], 3]; (******************************************************************************************) (* StandardForm Boxing Rules *) (******************************************************************************************) -MakeBoxes[CubeRoot[expr_], StandardForm] := RadicalBox[expr_, form_]; +MakeBoxes[CubeRoot[expr_], StandardForm] := CommonRadicalBox[expr, StandardForm]; (*All the other StandardForm boxing routines... *) + End[]