fjsc: fix parsing of factor quotations

chris.double 2006-12-16 23:02:35 +00:00
parent b99936be9a
commit b8163eadfb
1 changed files with 4 additions and 2 deletions

View File

@ -219,7 +219,7 @@ M: word (parse-factor-quotation) ( object -- ast )
word-name <ast-identifier> ;
M: string (parse-factor-quotation) ( object -- ast )
<ast-identifier> ;
<ast-string> ;
M: quotation (parse-factor-quotation) ( object -- ast )
[
@ -240,7 +240,9 @@ M: string fjsc-parse ( object -- ast )
'expression' parse car parse-result-parsed ;
M: quotation fjsc-parse ( object -- ast )
(parse-factor-quotation) <ast-expression> ;
[
[ (parse-factor-quotation) , ] each
] { } make <ast-expression> ;
: fjsc-compile ( ast -- string )
[