Fix compile error in fjsc

db4
Slava Pestov 2009-03-14 23:00:29 -05:00
parent 7ed56a3cef
commit 4ca90e2a6a
1 changed files with 2 additions and 2 deletions

View File

@ -356,9 +356,9 @@ M: quotation fjsc-parse ( object -- ast )
: fjsc-compile* ( string -- string ) : fjsc-compile* ( string -- string )
'statement' parse ast>> fjsc-compile ; 'statement' parse ast>> fjsc-compile ;
: fc* ( string -- string ) : fc* ( string -- )
[ [
'statement' parse ast>> values>> do-expressions 'statement' parse ast>> values>> do-expressions
] { } make [ write ] each ; ] { } make [ write ] each ;