diff options
Diffstat (limited to 'src/interp/trace.boot')
-rw-r--r-- | src/interp/trace.boot | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index ca3b3698..2b874c2d 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -108,7 +108,7 @@ trace1 l == hasOption($options,'stats) => (1 < # $options) => throwKeyedMsg("S2IT0001",['")trace ... )stats"]) - [.,:opt] := CAR $options + [.,:opt] := first $options -- look for )trace )stats to list the statistics -- )trace )stats reset to reset them null opt => -- list the statistics @@ -321,12 +321,12 @@ removeTracedMapSigs untraceList == coerceTraceArgs2E(traceName,subName,args) == MEMQ(name:= subName,$mathTraceList) => - SPADSYSNAMEP PNAME name => coerceSpadArgs2E(reverse CDR reverse args) + SPADSYSNAMEP PNAME name => coerceSpadArgs2E(reverse rest reverse args) [["=",name,objValUnwrap coerceInteractive(objNewWrap(arg,type),$OutputForm)] for name in '(arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 arg11 arg12 arg13 arg14 arg15 arg16 arg17 arg18 arg19 ) - for arg in args for type in CDR LASSOC(subName, + for arg in args for type in rest LASSOC(subName, $tracedMapSignatures)] - SPADSYSNAMEP PNAME name => reverse CDR reverse args + SPADSYSNAMEP PNAME name => reverse rest reverse args args coerceSpadArgs2E(args) == @@ -334,7 +334,7 @@ coerceSpadArgs2E(args) == $streamCount:local := 0 [["=",name,objValUnwrap coerceInteractive(objNewWrap(arg,type),$OutputForm)] for name in '(arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 arg11 arg12 arg13 arg14 arg15 arg16 arg17 arg18 arg19 ) - for arg in args for type in CDR $tracedSpadModemap] + for arg in args for type in rest $tracedSpadModemap] subTypes(mm,sublist) == ATOM mm => @@ -346,14 +346,14 @@ coerceTraceFunValue2E(traceName,subName,value) == MEMQ(name:= subName,$mathTraceList) => SPADSYSNAMEP PNAME traceName => coerceSpadFunValue2E(value) (u:=LASSOC(subName,$tracedMapSignatures)) => - objValUnwrap coerceInteractive(objNewWrap(value,CAR u),$OutputForm) + objValUnwrap coerceInteractive(objNewWrap(value,first u),$OutputForm) value value coerceSpadFunValue2E(value) == -- following binding is to prevent forcing calculation of stream elements $streamCount:local := 0 - objValUnwrap coerceInteractive(objNewWrap(value,CAR $tracedSpadModemap), + objValUnwrap coerceInteractive(objNewWrap(value,first $tracedSpadModemap), $OutputForm) isListOfIdentifiers l == and/[IDENTP x for x in l] @@ -404,7 +404,7 @@ augmentTraceNames(l,mapSubNames) == isSubForRedundantMapName(subName) == mapName:= rassocSub(subName,$mapSubNameAlist) => tail:=member([mapName,:subName],$mapSubNameAlist) => - MEMQ(mapName,CDR ASSOCLEFT tail) + MEMQ(mapName,rest ASSOCLEFT tail) untraceMapSubNames traceNames == null($mapSubNameAlist:local:= getPreviousMapSubNames traceNames) => nil @@ -425,7 +425,7 @@ isTraceGensym x == GENSYMP x spadTrace(domain,options) == $fromSpadTrace:= true $tracedModemap:local:= nil - CONSP domain and REFVECP CAR domain and (CAR domain).0 = 0 => + CONSP domain and REFVECP first domain and (first domain).0 = 0 => aldorTrace(domain,options) not isDomainOrPackage domain => userError '"bad argument to trace" listOfOperations:= |