diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-30 01:42:38 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-30 01:42:38 +0000 |
commit | 7ce6e4867ffda62855e183baceb02747408a86ca (patch) | |
tree | e56fa54ae893bb380db25b5426ae3e1babf06a39 /src/boot/strap/translator.clisp | |
parent | f41afae2b242dd56e8dbfa0b3f8cb16a6ab29ff0 (diff) | |
download | open-axiom-7ce6e4867ffda62855e183baceb02747408a86ca.tar.gz |
* boot/parser.boot: Remove references to $stack.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r-- | src/boot/strap/translator.clisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index a799d9fa..a77d32ee 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -435,11 +435,9 @@ (LET* (|found| |ps|) (DECLARE (SPECIAL |$bpParenCount| |$bpCount| |$returns| |$typings| |$wheredefs| - |$op| |$ttok| |$stok| |$stack| |$inputStream|)) + |$op| |$ttok| |$stok|)) (PROGN - (SETQ |$inputStream| |toks|) (SETQ |ps| (|makeParserState| |toks|)) - (SETQ |$stack| NIL) (SETQ |$stok| NIL) (SETQ |$ttok| NIL) (SETQ |$op| NIL) @@ -461,8 +459,10 @@ (T (THROW :OPEN-AXIOM-CATCH-POINT #1#)))) (T #1#)))) (COND ((EQ |found| 'TRAPPED) NIL) - ((NOT (|bStreamNull| |$inputStream|)) (|bpGeneralErrorHere|) NIL) - ((NULL |$stack|) (|bpGeneralErrorHere|) NIL) (T (CAR |$stack|)))))) + ((NOT (|bStreamNull| (|parserTokens| |ps|))) (|bpGeneralErrorHere|) + NIL) + ((NULL (|parserTrees| |ps|)) (|bpGeneralErrorHere|) NIL) + (T (CAR (|parserTrees| |ps|))))))) (DEFUN |genDeclaration| (|n| |t|) (LET* (|t'| |ISTMP#2| |vars| |ISTMP#1|) |