new accessors

2008-09-02 12:52:31 -05:00 · 2008-09-02 12:52:31 -05:00 · 85769f60f8
parent a9c45629fa
commit 85769f60f8
1 changed files with 1 additions and 1 deletions
--- 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 parse-result-ast ;
+  'expression' parse ast>> ;

 M: quotation fjsc-parse ( object -- ast )
  [