From 0f4d3be60703688cd3a7c615c13247d747013ec3 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Tue, 18 Oct 2011 20:29:35 +0200
Subject: Errors.m: Print structures in InputForm always

---
 Tools/MathematicaMisc/Errors.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Tools/MathematicaMisc/Errors.m')

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[{},
-- 
cgit v1.2.3