From b8163eadfb841c444329742a661ef237d2026ceb Mon Sep 17 00:00:00 2001
From: "chris.double" <chris.double@double.co.nz>
Date: Sat, 16 Dec 2006 23:02:35 +0000
Subject: [PATCH] fjsc: fix parsing of factor quotations

---
 libs/fjsc/fjsc.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/libs/fjsc/fjsc.factor b/libs/fjsc/fjsc.factor
index f9e3b22004..c265757dde 100644
--- a/libs/fjsc/fjsc.factor
+++ b/libs/fjsc/fjsc.factor
@@ -219,7 +219,7 @@ M: word (parse-factor-quotation) ( object -- ast )
   word-name <ast-identifier> ;
 
 M: string (parse-factor-quotation) ( object -- ast )
-  <ast-identifier> ;
+  <ast-string> ;
 
 M: quotation (parse-factor-quotation) ( object -- ast )
   [ 
@@ -240,7 +240,9 @@ M: string fjsc-parse ( object -- ast )
   'expression' parse car parse-result-parsed ;
 
 M: quotation fjsc-parse ( object -- ast )
-  (parse-factor-quotation) <ast-expression> ;
+  [
+    [ (parse-factor-quotation) , ] each 
+  ] { } make <ast-expression> ;
 
 : fjsc-compile ( ast -- string )
   [