diff --git a/extra/fjsc/fjsc.factor b/extra/fjsc/fjsc.factor index cf733dbbfd..bc6b8a092f 100755 --- a/extra/fjsc/fjsc.factor +++ b/extra/fjsc/fjsc.factor @@ -356,9 +356,9 @@ M: quotation fjsc-parse ( object -- ast ) : fjsc-compile* ( string -- string ) '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 ;