From 04a318d38f06e117778e4253f061559f48b217b6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 16 Dec 2010 03:09:57 +0000
Subject: 	* interp/format.boot (form2String1): Handle string literals 
 masquerading as constructors.

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

(limited to 'src/interp')

diff --git a/src/interp/format.boot b/src/interp/format.boot
index 31533e4d..2339954b 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -394,6 +394,9 @@ form2String1 u ==
     stringImage u
   u1 := u
   [op,:argl] := u
+  string? op and argl = nil =>
+    -- string literals (e.g. "failed") masquerading as constructors
+    stringImage op
   op='Join or op= 'mkCategory => formJoin1(op,argl)
   $InteractiveMode and IDENTP op and (u:= constructor? op) =>
     null argl => app2StringWrap(formWrapId constructorName op, u1)
-- 
cgit v1.2.3