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/ast.boot | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index b7ae91b5..8d5a6d57 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1113,7 +1113,10 @@ shoeCompTran1(x,fluidVars,locVars,dollarVars) ==
         deref(locVars) := [l,:deref locVars]
       x
     x
-  U is "%Leave" => (x.op := "RETURN"; x)
+  U is "%Leave" =>
+    x.op := "RETURN"
+    x.args := shoeCompTran1(x.args,fluidVars,locVars,dollarVars)
+    x
   U in '(PROG LAMBDA) =>
     newbindings := nil
     for y in second x repeat
-- 
cgit v1.2.3