new accessors

diff --git a/extra/fjsc/fjsc.factor b/extra/fjsc/fjsc.factor
index e12092603af4ab12d9911923f83a5c93dae77482..ac3b447f1c13d68d04aeba470f4a4e38a766abf9 100755 (executable)
--- 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 )
   [