diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
commit | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (patch) | |
tree | b805dc5dc54812fe61efb039f15087a9d9b6c5be /src/interp/trace.boot | |
parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz |
More cleanups
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 28a50610..e970f0af 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -311,7 +311,7 @@ transTraceItem x == (y:= domainToGenvar x) => y x x - VECP first x => transTraceItem devaluate first x + vector? first x => transTraceItem devaluate first x y:= domainToGenvar x => y throwKeyedMsg("S2IT0018",[x]) @@ -418,14 +418,14 @@ funfind("functor","opname") == [u for u in ops | u is [[ =opname,:.],:.]] isDomainOrPackage dom == - REFVECP dom and #dom>0 and isFunctor opOf dom.0 + vector? dom and #dom>0 and isFunctor opOf dom.0 isTraceGensym x == GENSYMP x spadTrace(domain,options) == $fromSpadTrace:= true $tracedModemap:local:= nil - cons? domain and REFVECP first domain and (first domain).0 = 0 => + cons? domain and vector? first domain and (first domain).0 = 0 => aldorTrace(domain,options) not isDomainOrPackage domain => userError '"bad argument to trace" listOfOperations:= |