From a016645fb84079852fb1464d770252af687d57f5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 10 Jun 2012 01:31:02 +0000
Subject: 	* interp/preparse.lisp: Remove. 	*
 interp/spad-parser.boot: Do not include.  Import lexing instead. 	*
 interp/Makefile.in: Adjust.

---
 src/boot/strap/ast.clisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap/ast.clisp')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 9c271751..eea10d77 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -1895,7 +1895,11 @@
                              (CONS |l| (|deref| |locVars|)))))
                    |x|)))
                 (T |x|)))))
-            ((EQ U '|%Leave|) (RPLACA |x| 'RETURN) |x|)
+            ((EQ U '|%Leave|) (RPLACA |x| 'RETURN)
+             (RPLACD |x|
+                     (|shoeCompTran1| (CDR |x|) |fluidVars| |locVars|
+                                      |dollarVars|))
+             |x|)
             ((|symbolMember?| U '(PROG LAMBDA)) (SETQ |newbindings| NIL)
              (LET ((|bfVar#1| (CADR |x|)) (|y| NIL))
                (LOOP
-- 
cgit v1.2.3