From d2412069e4fc43a4bc6cc28ce4c57e02f8baee41 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 11 May 2008 02:25:14 +0000
Subject: fix fallout from previous commit

---
 src/interp/nruncomp.boot | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/interp/nruncomp.boot')

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) ==
-- 
cgit v1.2.3