diff options
author | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
commit | d2412069e4fc43a4bc6cc28ce4c57e02f8baee41 (patch) | |
tree | 06aea77245295f6836dab0ff3b473f3250a6b0f8 /src/interp/nruncomp.boot | |
parent | 583976f30783abbf02f64abca8796d5a28111b76 (diff) | |
download | open-axiom-d2412069e4fc43a4bc6cc28ce4c57e02f8baee41.tar.gz |
fix fallout from previous commit
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 749488e1..5d9c811a 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -473,10 +473,10 @@ NRTcheckVector domainShell == -- (d) op-signature-- store missing function info in $CheckVectorList v:= domainShell.i v=true => nil --item is marked; ignore - null v => nil --a domain, which setVector4part3 will fill in - atom first v => nil --category form; ignore + v=nil => nil --a domain, which setVector4part3 will fill in atom v => systemErrorHere '"CheckVector" - ASSOC(first v,alist) => nil + atom first v => nil --category form; ignore + assoc(first v,alist) => nil alist:= [[first v,:$SetFunctions.i],:alist] alist @@ -527,10 +527,10 @@ reverseCondlist cl == alist := nil for [x,:y] in cl repeat for z in y repeat - u := ASSOC(z,alist) + u := assoc(z,alist) null u => alist := [[z,x],:alist] - member(x,CDR u) => nil - RPLACD(u,[x,:CDR u]) + member(x,rest u) => nil + RPLACD(u,[x,:rest u]) alist NRTsetVector4Part2(uncondList,condList) == |