From 81bb06e3fd33bad7aae956b7742421159e2d0df9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 12 Dec 2010 23:01:18 +0000
Subject: More clean up on string vs symbol confusions

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

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

diff --git a/src/interp/trace.boot b/src/interp/trace.boot
index 8335b4b9..67ffca86 100644
--- a/src/interp/trace.boot
+++ b/src/interp/trace.boot
@@ -666,11 +666,11 @@ getOption(opt,l) ==
 
 reportSpadTrace(header,[op,sig,n,:t]) ==
   null $traceNoisely => nil
-  msg:= [header,'%b,op,":",'%d,rest sig," -> ",first sig," in slot ",n]
+  msg:= [header,'"%b",op,":",'"%d",rest sig," -> ",first sig," in slot ",n]
   namePart:= nil --(t is (.,.,name,:.) => (" named ",name); NIL)
   tracePart:=
     t is [y,:.] and not null y =>
-      (y="all" => ['%b,"all",'%d,"vars"]; [" vars: ",y])
+      (y="all" => ['"%b","all",'"%d","vars"]; [" vars: ",y])
     NIL
   sayBrightly [:msg,:namePart,:tracePart]
 
@@ -776,7 +776,7 @@ _?t() ==
     suffix:=
       isDomain d => '"domain"
       '"package"
-    sayBrightly ['"   Functions traced in ",suffix,'%b,devaluate d,'%d,":"]
+    sayBrightly ['"   Functions traced in ",suffix,'"%b",devaluate d,'"%d",":"]
     for x in orderBySlotNumber l repeat reportSpadTrace("   ",take(4,x))
     TERPRI()
 
-- 
cgit v1.2.3