diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-10-18 20:29:35 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-10-28 18:47:57 +0200 |
commit | 0f4d3be60703688cd3a7c615c13247d747013ec3 (patch) | |
tree | 0f9befa9769cf8a237a0c971eb6e8a94ea52da86 /Tools/MathematicaMisc/Errors.m | |
parent | 38dce558cb1bf2af23cfacbc8386fb884d7ff008 (diff) |
Errors.m: Print structures in InputForm always
Diffstat (limited to 'Tools/MathematicaMisc/Errors.m')
-rw-r--r-- | Tools/MathematicaMisc/Errors.m | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Tools/MathematicaMisc/Errors.m b/Tools/MathematicaMisc/Errors.m index b085fdd..2cb075e 100644 --- a/Tools/MathematicaMisc/Errors.m +++ b/Tools/MathematicaMisc/Errors.m @@ -37,7 +37,7 @@ PrintStructure[x_]:= PrintStructure[l_List, prefix_, suffix_] := Module[{}, - If[StringLength[ToString[l] <> prefix] > 50, + If[StringLength[ToString[l,InputForm] <> prefix] > 50, Print[prefix, "{"]; Map[PrintStructure[#, " " <> prefix, ","] &, l]; Print[prefix, "}"], @@ -45,7 +45,7 @@ PrintStructure[l_List, prefix_, suffix_] := Print[prefix, ToString[l,InputForm]]]]; PrintStructure[s_, prefix_, suffix_] := - Print[prefix, s, suffix]; + Print[prefix, s//InputForm, suffix]; PrintError[err_] := Module[{}, |