steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Jose A. Ortega Ruiz 2009-01-25 10:22:53 +01:00
parent 7891c6ebdb
commit 91460f5479
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/fuel/pprint/pprint.factor
View File

@ -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

3
misc/fuel/fuel-eval.el
View File

@ -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))