steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libs/fjsc/fjsc.factor
View File

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