diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-12 23:01:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 23:01:18 +0000 |
| commit | 81bb06e3fd33bad7aae956b7742421159e2d0df9 (patch) | |
| tree | 49cf3d97affb7841138c362e803bf4b654d19723 /src/interp/trace.boot | |
| parent | 245f4067091550d9d89bc25b5e2e8c95729354b7 (diff) | |
| download | open-axiom-81bb06e3fd33bad7aae956b7742421159e2d0df9.tar.gz | |
More clean up on string vs symbol confusions
Diffstat (limited to 'src/interp/trace.boot')
| -rw-r--r-- | src/interp/trace.boot | 6 |
1 files changed, 3 insertions, 3 deletions
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() |