diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-30 12:59:38 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-30 12:59:38 +0000 |
| commit | e978fdb127b726df8a04c4f7f1936b7eaf5e227b (patch) | |
| tree | 80db8682b8946bf97766476e219e803f56e3f2f2 /src/boot/strap/translator.clisp | |
| parent | 6c514c2fb12c51eeb5f7745c85736cdc97abfc7f (diff) | |
| download | open-axiom-e978fdb127b726df8a04c4f7f1936b7eaf5e227b.tar.gz | |
* boot/parser.boot: Remove references to $bpCount.
* boot/translator.boot (shoeOutParse): Likewise.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 623bd82f..c9d4a9d5 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -434,8 +434,7 @@ (DEFUN |shoeOutParse| (|toks|) (LET* (|found| |ps|) (DECLARE - (SPECIAL |$bpCount| |$returns| |$typings| |$wheredefs| |$op| |$ttok| - |$stok|)) + (SPECIAL |$returns| |$typings| |$wheredefs| |$op| |$ttok| |$stok|)) (PROGN (SETQ |ps| (|makeParserState| |toks|)) (SETQ |$stok| NIL) @@ -444,7 +443,6 @@ (SETQ |$wheredefs| NIL) (SETQ |$typings| NIL) (SETQ |$returns| NIL) - (SETQ |$bpCount| 0) (|bpFirstTok| |ps|) (SETQ |found| (LET ((#1=#:G729 |