From e869c4e050f29dffb51d26f53489422020f49e4f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 7 May 2010 00:04:39 +0000
Subject: 	* boot/ast.boot: Translate assignment to head and tail of a
 list. 	Remove explicit uses of RPLACA and RPLACD. 	* boot/includer.boot:
 Likewise. 	* boot/scanner.boot: Likewise. 	* boot/translator.boot:
 Likewise.

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

(limited to 'src/boot/parser.boot')

diff --git a/src/boot/parser.boot b/src/boot/parser.boot
index 56bd4d73..aa250b80 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -101,12 +101,12 @@ bpPop1()==
  
 bpPop2()==
   a:=second $stack
-  RPLACD($stack,CDDR $stack)
+  $stack.rest := CDDR $stack
   a
  
 bpPop3()==
   a:=third $stack
-  RPLACD(rest $stack,CDDDR $stack)
+  $stack.rest.rest := CDDDR $stack
   a
  
 bpIndentParenthesized f==
-- 
cgit v1.2.3