diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-12 19:46:02 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-12 19:46:02 +0000 |
commit | 39982663dc44f7b44c63af6ae4182f8d60d7d341 (patch) | |
tree | 693411e42dfe41f48a7558846a0b0fcdd84cd775 /src/interp/newaux.lisp | |
parent | a5396a491b1b308b622db3e12da734e6fb1fdb53 (diff) | |
download | open-axiom-39982663dc44f7b44c63af6ae4182f8d60d7d341.tar.gz |
* interp/spad-parser.spad: New parsing functions.
* interp/fnewmeta.lisp: Use them,
(PARSE-Return): Remove.
(PARSE-Throw): Likewise.
(PARSE-Jump): Likewise.
(PARSE-Exit): Likewise.
(PARSE-Leave): Likewise.
(PARSE-ElseClause): Likewise.
(PARSE-Label): Likewise.
Diffstat (limited to 'src/interp/newaux.lisp')
-rw-r--r-- | src/interp/newaux.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp index eb99de79..555c489c 100644 --- a/src/interp/newaux.lisp +++ b/src/interp/newaux.lisp @@ -153,13 +153,13 @@ (|not| 260 259 NIL) (~ 260 259 nil) (= 400 700) - (|return| 202 201 (|PARSE-Return|)) + (|return| 202 201 (|parseReturn|)) (|try| 202 201 (|PARSE-Try|)) - (|throw| 202 201 (|PARSE-Throw|)) - (|leave| 202 201 (|PARSE-Leave|)) - (|exit| 202 201 (|PARSE-Exit|)) - (|break| 202 201 (|PARSE-Jump|)) - (|iterate| 202 201 (|PARSE-Jump|)) + (|throw| 202 201 (|parseThrow|)) + (|leave| 202 201 (|parseLeave|)) + (|exit| 202 201 (|parseExit|)) + (|break| 202 201 (|parseJump|)) + (|iterate| 202 201 (|parseJump|)) (|from|) (|yield|) (|if| 130 0 (|PARSE-Conditional|)) ; was 130 |