FUEL: Bug in quotation pprint fixed.

diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor
index 50f02f1a1a352902adeef227b7fef54628e717aa..07454a73f011f12e13df9fd48c5834e6919e6360 100644 (file)
--- a/extra/fuel/fuel.factor
+++ b/extra/fuel/fuel.factor
@@ -69,12 +69,14 @@ M: integer fuel-pprint pprint ; inline
 
 M: string fuel-pprint pprint ; inline
 
-M: sequence fuel-pprint
-    "(" write [ " " write ] [ fuel-pprint ] interleave ")" write ; inline
+: fuel-pprint-sequence ( seq open close -- )
+    [ write ] dip swap [ " " write ] [ fuel-pprint ] interleave write ; inline
 
-M: tuple fuel-pprint tuple>array fuel-pprint ; inline
+M: sequence fuel-pprint "(" ")" fuel-pprint-sequence ; inline
+
+M: quotation fuel-pprint "[" "]" fuel-pprint-sequence ; inline
 
-M: quotation fuel-pprint pprint ; inline
+M: tuple fuel-pprint tuple>array fuel-pprint ; inline
 
 M: continuation fuel-pprint drop ":continuation" write ; inline