diff options
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) == |