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

Fix fjsc bitrot

db4
Chris Double 2009-10-15 14:53:30 +13:00
parent 8e25cbc58d
commit 0a544c4882
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/fjsc/fjsc.factor
View File

@ -336,7 +336,7 @@ M: wrapper (parse-factor-quotation) ( object -- ast )
GENERIC: fjsc-parse ( object -- ast )
M: string fjsc-parse ( object -- ast )
'expression' parse ast>> ;
'expression' parse ;
M: quotation fjsc-parse ( object -- ast )
[
@ -353,11 +353,11 @@ M: quotation fjsc-parse ( object -- ast )
] with-string-writer ;
: fjsc-compile* ( string -- string )
'statement' parse ast>> fjsc-compile ;
'statement' parse fjsc-compile ;
: fc* ( string -- )
[
'statement' parse ast>> values>> do-expressions
'statement' parse values>> do-expressions
] { } make [ write ] each ;