diff --git a/extra/fjsc/fjsc.factor b/extra/fjsc/fjsc.factor index b6b5ff3b08..1a2c486ddd 100755 --- a/extra/fjsc/fjsc.factor +++ b/extra/fjsc/fjsc.factor @@ -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 ;