From e8f38c351d90d6dea371a9ac15d2c4906bff9910 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 27 Sep 2009 01:53:09 +0000
Subject: 	Fix SF/2854105 	* graph/PS/*.ps: New.

---
 src/boot/parser.boot | 6 ++++++
 src/boot/tokens.boot | 1 +
 2 files changed, 7 insertions(+)

(limited to 'src/boot')

diff --git a/src/boot/parser.boot b/src/boot/parser.boot
index fbe8724c..56bd4d73 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -722,6 +722,12 @@ bpCatchItem() ==
   (bpException() or bpTrap()) and 
     bpPush %Catch bpPop1()
 
+++ Leave:
+++   LEAVE Logical
+bpLeave() ==
+  bpEqKey "LEAVE" and (bpLogical() or bpTrap()) and
+    bpPush %LeaveAst bpPop1()
+
 ++ Return:
 ++   RETURN Assign
 bpReturn()==
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index c5990f0e..ef860684 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -51,6 +51,7 @@ shoeKeyWords == [  _
             ['"in",  "IN" ], _
             ['"is", "IS"], _
             ['"isnt", "ISNT"] , _
+            ['"leave", "LEAVE"], _
             ['"module", "MODULE"], _
             ['"namespace", "NAMESPACE"], _
             ['"of",   "OF"] , _
-- 
cgit v1.2.3