diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 14:18:38 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 14:18:38 +0000 |
commit | aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd (patch) | |
tree | 52572bbbb0561bf5454b07d3d9098392a3d6a498 /src/boot/parser.boot | |
parent | 7b82287b36a54b0ac78e82f9d8ad468cb889a4e4 (diff) | |
download | open-axiom-aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd.tar.gz |
* boot/ast.boot: Miscellaneous cleanup.
* boot/includer.boot: Likewise.
* boot/parser.boot: Likewise.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/parser.boot')
-rw-r--r-- | src/boot/parser.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index baf38b14..ce22eb37 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -79,7 +79,7 @@ bpNextToken() == bpFirstToken() bpState()== [$inputStream,$stack,$bpParenCount,$bpCount] ---cons($inputStream,$stack) +--[$inputStream,:$stack] bpRestore(x)== $inputStream:=first x @@ -509,8 +509,8 @@ bpCancel()== bpAddTokens n== n=0 => nil - n>0=> cons(shoeTokConstruct("KEY","SETTAB",shoeTokPosn $stok),bpAddTokens(n-1)) - cons(shoeTokConstruct("KEY","BACKTAB",shoeTokPosn $stok),bpAddTokens(n+1)) + n>0=> [shoeTokConstruct("KEY","SETTAB",shoeTokPosn $stok),:bpAddTokens(n-1)] + [shoeTokConstruct("KEY","BACKTAB",shoeTokPosn $stok),:bpAddTokens(n+1)] bpExceptions()== bpEqPeek "DOT" or bpEqPeek "QUOTE" or |