FUEL: Pretty print f as 'f' instead of 'nil'.

diff --git a/extra/fuel/pprint/pprint.factor b/extra/fuel/pprint/pprint.factor
index 25f3aec14dd00025137feb45b5652feaf52d1570..6067bd4b49456fccd90534ab20656160f1223b98 100644 (file)
--- a/extra/fuel/pprint/pprint.factor
+++ b/extra/fuel/pprint/pprint.factor
@@ -29,7 +29,7 @@ M: object fuel-pprint pprint ; inline
 M: word fuel-pprint
     name>> V{ } clone [ fuel-maybe-scape append ] reduce >string write ;
 
-M: f fuel-pprint drop "nil" write ; inline
+M: f fuel-pprint drop "f" write ; inline
 
 M: integer fuel-pprint pprint ; inline
 

diff --git a/misc/fuel/fuel-eval.el b/misc/fuel/fuel-eval.el
index 4c34ef17b8748fa116f488cc8c03fe0e5cd73c3d..a4d51241366b48aedebf2db5cec5c2f3d14e2bf9 100644 (file)
--- a/misc/fuel/fuel-eval.el
+++ b/misc/fuel/fuel-eval.el
@@ -116,7 +116,8 @@
 (defsubst fuel-eval--retort-make (err result &optional output)
   (list err result output))
 
-(defsubst fuel-eval--retort-error (ret) (nth 0 ret))
+(defsubst fuel-eval--retort-error (ret)
+  (and (not (eq (nth 0 ret) 'f)) (nth 0 ret)))
 (defsubst fuel-eval--retort-result (ret) (nth 1 ret))
 (defsubst fuel-eval--retort-output (ret) (nth 2 ret))