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

View File

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