diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 23:26:51 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 23:26:51 +0000 |
commit | fff23d752812e2ae22bebc21d24c42bb145a916e (patch) | |
tree | ba0250e810180be3a25ca1c916c398ed5a248db9 /src/interp/trace.boot | |
parent | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (diff) | |
download | open-axiom-fff23d752812e2ae22bebc21d24c42bb145a916e.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/trace.boot')
-rw-r--r-- | src/interp/trace.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index ea1d65fe..bae545c0 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -142,10 +142,10 @@ trace1 l == LASSOC("ops",optionList) => throwKeyedMsg("S2IT0004",NIL) opList:= - traceList => LIST ["ops",:traceList] + traceList => [["ops",:traceList]] nil varList:= - y:= LASSOC("vars",optionList) => LIST ["vars",:y] + y:= LASSOC("vars",optionList) => [["vars",:y]] nil [:domainList,:opList,:varList] optionList => [:traceList,:optionList] @@ -769,7 +769,7 @@ _?t() == null _/TRACENAMES => sayMSG bright '"nothing is traced" for x in _/TRACENAMES | atom x and not IS__GENVAR x repeat if llm:= get(x,'localModemap,$InteractiveFrame) then - x:= (LIST (CADAR llm)) + x:= ([CADAR llm]) sayMSG ['"Function",:bright rassocSub(x,$mapSubNameAlist),'"traced"] for x in _/TRACENAMES | x is [d,:l] and isDomainOrPackage d repeat suffix:= @@ -809,7 +809,7 @@ breaklet(fn,vars) == pair:= ASSOC("BREAK",fnEntry) => union(vars,rest pair) vars $letAssoc:= - null fnEntry => [[fn,:LIST ["BREAK",:vars]],:$letAssoc] + null fnEntry => [[fn,:[["BREAK",:vars]]],:$letAssoc] pair => (pair.rest := vars; $letAssoc) if $letAssoc then SETLETPRINTFLAG true $QuickLet:local := false @@ -830,5 +830,5 @@ break msg == sayBrightly msg INTERRUPT() -compileBoot fn == _/D_,1(LIST fn,'(_/COMP),nil,nil) +compileBoot fn == _/D_,1([fn],'(_/COMP),nil,nil) |