From 663089e7f95f4901a46939ef34c60982dd5aadda Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 14 Apr 2008 01:59:56 +0000
Subject: Various cleanups.

---
 src/interp/format.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/format.boot')

diff --git a/src/interp/format.boot b/src/interp/format.boot
index 52bfbdd8..f42f7255 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -392,11 +392,11 @@ form2String1 u ==
   op := CAR u
   argl := CDR u
   op='Join or op= 'mkCategory => formJoin1(op,argl)
-  $InteractiveMode and (u:= constructor? op) =>
+  $InteractiveMode and IDENTP op and (u:= constructor? op) =>
     null argl => app2StringWrap(formWrapId constructorName op, u1)
     op = "NTuple"  => [ form2String1 first argl, "*"]
     op = "Map"     => ["(",:formatSignature0 [argl.1,argl.0],")"]
-    op = 'Record => record2String(argl)
+    op = "Record" => record2String(argl)
     null (conSig := getConstructorSignature op) =>
       application2String(constructorName op,[form2String1(a) for a in argl], u1)
     ml := rest conSig
@@ -409,7 +409,7 @@ form2String1 u ==
     application2String(constructorName op,argl, u1)
   op = "Mapping" => ["(",:formatSignature argl,")"]
   op = "Record" => record2String(argl)
-  op = 'Union  =>
+  op = "Union"  =>
     application2String(op,[form2String1 x for x in argl], u1)
   op = ":" =>
       null argl => [ '":" ]
-- 
cgit v1.2.3