From 2c869f999871438dfb1c3efb9eb9f6e398c35d36 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 8 May 2010 22:01:09 +0000
Subject: 	* interp/wi2.boot: Remove more RPLACA and RPLACD uses. 	*
 interp/topics.boot: Likewise. 	* interp/slam.boot: Likewise. 	*
 interp/nruncomp.boot: Likewise. 	* interp/interop.boot: Likewise. 
 * interp/i-toplev.boot: Likewise. 	* interp/i-spec1.boot: Likewise. 
 * interp/i-resolv.boot: Likewise. 	* interp/i-output.boot: Likewise. 
 * interp/htsetvar.boot: Likewise. 	* interp/g-util.boot: Likewise. 
 * interp/g-cndata.boot: Likewise. 	* interp/functor.boot: Likewise. 
 * interp/dq.boot: Likewise. 	* interp/define.boot: Likewise. 	*
 interp/database.boot: Likewise. 	* interp/cparse.boot: Likewise. 
 * interp/clam.boot: Likewise. 	* interp/c-util.boot: Likewise. 	*
 interp/br-op1.boot: Likewise. 	* interp/br-data.boot: Likewise.

---
 src/interp/wi2.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot
index c08ad9c7..ecf59422 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot
@@ -1012,7 +1012,7 @@ doItIf(item is [.,p,x,y],$predl,$e) ==
 doItSeq item == 
   ['SEQ,:l,['exit,1,x]] := item
   item.first := "PROGN"
-  RPLACA(LASTNODE item,x)
+  lastNode(item).first := x
   for it1 in rest item repeat $e:= compSingleCapsuleItem(it1,$predl,$e)
 
 doItDomain item ==
@@ -1079,7 +1079,7 @@ doItDef item ==
   chk(item,3)
   item.first := "CodeDefine"
         --Note that DescendCode, in CodeDefine, is looking for this
-  RPLACD(second item,[$signatureOfForm])
+  second(item).rest := [$signatureOfForm]
   chk(item,4)
       --This is how the signature is updated for buildFunctor to recognise
 --+
-- 
cgit v1.2.3