fuel.eval: wrap fuel-pprint in a without-limits so fuel output isn't truncated

diff --git a/extra/fuel/eval/eval-tests.factor b/extra/fuel/eval/eval-tests.factor
index 845e9127621ad731ffed8947af0ade21d57fbde9..5d89c2fa7e3d60e8bf7a5f7598952c20107ded0d 100644 (file)
--- a/extra/fuel/eval/eval-tests.factor
+++ b/extra/fuel/eval/eval-tests.factor
@@ -1,4 +1,12 @@
 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test fuel.eval ;
+USING: fuel.eval io.streams.string math namespaces random.data sequences
+tools.test ;
 IN: fuel.eval.tests
+
+! Make sure prettyprint doesn't limit output.
+
+{ t } [
+    1000 random-string fuel-eval-result set-global
+    [ fuel-send-retort ] with-string-writer length 1000 >
+] unit-test

diff --git a/extra/fuel/eval/eval.factor b/extra/fuel/eval/eval.factor
index 644d0024b2a84c2102ab34b8e813a08052efd5f4..4cbed6162041cceb18ffaaf4854579d412c1bc47 100644 (file)
--- a/extra/fuel/eval/eval.factor
+++ b/extra/fuel/eval/eval.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays continuations debugger fuel.pprint io
-io.streams.string kernel listener namespaces sequences
+io.streams.string kernel listener namespaces prettyprint.config sequences
 vocabs.parser ;
 
 IN: fuel.eval
@@ -52,7 +52,8 @@ t fuel-eval-res-flag set-global
     fuel-eval-error get-global
     fuel-eval-result get-global
     fuel-eval-output get-global 3array
-    fuel-pprint flush nl "<~FUEL~>" write nl flush ;
+    [ fuel-pprint ] without-limits
+    flush nl "<~FUEL~>" write nl flush ;
 
 : (fuel-begin-eval) ( -- )
     fuel-push-status fuel-forget-status ;