diff options
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 |