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/c-util.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/c-util.boot')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index c98f668c..edf903b6 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1291,7 +1291,7 @@ backendCompileNEWNAM x ==
       u := MAKE_-CLOSEDFN_-NAME()
       PUSH([u,second x], $CLOSEDFNS)
       x.first := "FUNCTION"
-      RPLACA(rest x,u)
+      x.rest.first := u
   backendCompileNEWNAM first x
   backendCompileNEWNAM rest x
 
@@ -1571,7 +1571,7 @@ transformToBackendCode x ==
   fluids := S_+(backendFluidize second x, $SpecialVars)
   lastdecl := lastDeclarationNode rest x
   if lastdecl = nil then
-    RPLACD(rest x, body)
+    x.rest.rest := body
   else
     null fluids =>
       lastdecl.rest := body
-- 
cgit v1.2.3