Merge pull request #46 from DR-algo/pacletSetup

Typos and printing issues

Author: pschicho

Kernel/DRalgo.m

@@ -56,12 +56,12 @@
 	$InstallGroupMath = False];
 
 
-Unprotect@Definition;
+(*Unprotect@Definition;
 Definition[x_Symbol] /; StringMatchQ[Context[x], "Package`" ~~ ___] :=
     StringReplace[ToString@FullDefinition[x],
         (WordCharacter .. ~~ DigitCharacter ... ~~ "`") .. ~~ s_ :> s
     ];
-Protect@Definition;
+Protect@Definition;*)
 
 
 (*
@@ -572,16 +572,18 @@
 (*
 	Prints constants that appear in the effective theory.
 *)
-PrintConstants[]:=Module[{},
-ToExpression[StringReplace[ToString[StandardForm[{Lb->(Log[\[Mu]^2/T^2]-2 Log[4 \[Pi]]+2EulerGamma),Lf->(Log[\[Mu]^2/T^2]-2 Log[4 \[Pi]]+2EulerGamma+4 Log[2])}]],"DRalgo`Private`"->""]]
+PrintConstants[]:=Module[{constantList},
+	constantList = {Lb->(Log[\[Mu]^2/T^2]-2 Log[4 \[Pi]]+2EulerGamma),Lf->(Log[\[Mu]^2/T^2]-2 Log[4 \[Pi]]+2EulerGamma+4 Log[2])};
+	OutputFormatDR[constantList]
 ];
 
 
 (*
 	Replaces the Glaisher constant by c, which is sometimes used in the litterature. See for example hep-ph: 9508379
 *)
-PrintGenericBasis[]:=Module[{},
-ToExpression[StringReplace[ToString[StandardForm[{Log[Glaisher]->-1/12 (Lb+2cplus-EulerGamma)}]],"DRalgo`Private`"->""]]
+PrintGenericBasis[]:=Module[{basisReplacements},
+	basisReplacements = {Log[Glaisher]->-1/12 (Lb+2cplus-EulerGamma)};
+	OutputFormatDR[basisReplacements]
 ];