aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-09-27 01:53:09 +0000
committerdos-reis <gdr@axiomatics.org>2009-09-27 01:53:09 +0000
commite8f38c351d90d6dea371a9ac15d2c4906bff9910 (patch)
tree97e4ca1d832f393d1540da11e902465f99b22346 /src/boot
parenta956f791537aa080285e6437a53fac69ff93b3b6 (diff)
downloadopen-axiom-e8f38c351d90d6dea371a9ac15d2c4906bff9910.tar.gz
Fix SF/2854105
* graph/PS/*.ps: New.
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/parser.boot6
-rw-r--r--src/boot/tokens.boot1
2 files changed, 7 insertions, 0 deletions
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"] , _