diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-25 15:59:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-25 15:59:44 +0000 |
| commit | cd5a921db34f465d1dc8fbd2061d9077f64434cf (patch) | |
| tree | b6dc636c5fa79035999de79dbb12c2f31c358547 /src/interp/trace.boot | |
| parent | c25dfacda02a40b2055328ba5898086c043e5427 (diff) | |
| download | open-axiom-cd5a921db34f465d1dc8fbd2061d9077f64434cf.tar.gz | |
* interp/hashcode.boot: Remove.
*interp/interop.boot: Move OpenAxiom relevant code to define.boot
and nrunfast.boot. Remove.
Diffstat (limited to 'src/interp/trace.boot')
| -rw-r--r-- | src/interp/trace.boot | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index 1d503bcf..ab1890b5 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -762,24 +762,9 @@ traceReply() == sayBrightly flowSegmentedMsg(displayList,$LINELENGTH,6) addTraceItem d == - isDomain d => $domains:= [devaluate d,:$domains] isDomainOrPackage d => $packages:= [devaluate d,:$packages] constructor? d => $constructors:=[d,:$constructors] -_?t() == - null _/TRACENAMES => sayMSG bright '"nothing is traced" - for x in _/TRACENAMES | x isnt [.,:.] and not IS__GENVAR x repeat - if llm:= get(x,'localModemap,$InteractiveFrame) then - x:= ([CADAR llm]) - sayMSG ['"Function",:bright rassocSub(x,$mapSubNameAlist),'"traced"] - for x in _/TRACENAMES | x is [d,:l] and isDomainOrPackage d repeat - suffix:= - isDomain d => '"domain" - '"package" - sayBrightly ['" Functions traced in ",suffix,'"%b",devaluate d,'"%d",":"] - for x in orderBySlotNumber l repeat reportSpadTrace(" ",take(4,x)) - TERPRI() - tracelet(fn,vars) == if GENSYMP fn and stupidIsSpadFunction eval fn then fn := eval fn |