From f905c6332417ccd8266e921cfbd716db6c64c9aa Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 15 May 2010 21:06:57 +0000
Subject: 	* boot/ast.boot (shoeCompTran1): Handle %Leave expressions. 
 * boot/parser.boot (bpReturn): Parse leave-expressions too. 	*
 interp/mark.boot (markInsertBodyParts): properly escape Boot 	keywords.

---
 src/boot/ast.boot | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index 878bb755..e386f405 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -927,6 +927,7 @@ shoeCompTran1 x==
 	 MEMQ(second l,$fluidVars)=>$fluidVars
 	 [second l,:$fluidVars]
       x.rest.first := second l
+  U = "%Leave" => x.first := "RETURN"
   U in '(PROG LAMBDA) =>
     newbindings:=nil
     for y in second x repeat
-- 
cgit v1.2.3