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