aboutsummaryrefslogtreecommitdiff
path: root/src/boot/translator.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2012-05-30 01:42:38 +0000
committerdos-reis <gdr@axiomatics.org>2012-05-30 01:42:38 +0000
commit7ce6e4867ffda62855e183baceb02747408a86ca (patch)
treee56fa54ae893bb380db25b5426ae3e1babf06a39 /src/boot/translator.boot
parentf41afae2b242dd56e8dbfa0b3f8cb16a6ab29ff0 (diff)
downloadopen-axiom-7ce6e4867ffda62855e183baceb02747408a86ca.tar.gz
* boot/parser.boot: Remove references to $stack.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r--src/boot/translator.boot5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 58711e1b..7f85b60a 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -356,7 +356,6 @@ shoeAddComment l==
shoeOutParse toks ==
ps := makeParserState toks
- $stack := []
$stok := nil
$ttok := nil
$op :=nil
@@ -373,10 +372,10 @@ shoeOutParse toks ==
not bStreamNull parserTokens ps =>
bpGeneralErrorHere()
nil
- $stack = nil =>
+ parserTrees ps = nil =>
bpGeneralErrorHere()
nil
- first $stack
+ first parserTrees ps
++ Generate a global signature declaration for symbol `n'.
genDeclaration(n,t) ==