From 0a544c48821ff6dc010910e5fdc344b362b1ba8c Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Thu, 15 Oct 2009 14:53:30 +1300
Subject: [PATCH] Fix fjsc bitrot

---
 extra/fjsc/fjsc.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 ;