From 8d943b9625af00230d722c01ef94e98abcf1147a Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Sun, 25 Jan 2009 11:42:35 +0100
Subject: [PATCH] FUEL: Better, if hackish, to fix the f problem.

---
 extra/fuel/pprint/pprint.factor | 2 +-
 misc/fuel/fuel-eval.el          | 4 ++--
 misc/fuel/fuel-markup.el        | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/extra/fuel/pprint/pprint.factor b/extra/fuel/pprint/pprint.factor
index 6067bd4b49..25f3aec14d 100644
--- 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 "f" write ; inline
+M: f fuel-pprint drop "nil" write ; inline
 
 M: integer fuel-pprint pprint ; inline
 
diff --git a/misc/fuel/fuel-eval.el b/misc/fuel/fuel-eval.el
index a4d5124136..9e8210a3e3 100644
--- a/misc/fuel/fuel-eval.el
+++ b/misc/fuel/fuel-eval.el
@@ -32,6 +32,7 @@
          (case (car sexp)
            (:array (factor--seq 'V{ '} (cdr sexp)))
            (:seq (factor--seq '{ '} (cdr sexp)))
+           (:tuple (factor--seq 'T{ '} (cdr sexp)))
            (:quote (format "\\ %s" (factor `(:factor ,(cadr sexp)))))
            (:quotation (factor--seq '\[ '\] (cdr sexp)))
            (:using (factor `(USING: ,@(cdr sexp) :end)))
@@ -116,8 +117,7 @@
 (defsubst fuel-eval--retort-make (err result &optional output)
   (list err result output))
 
-(defsubst fuel-eval--retort-error (ret)
-  (and (not (eq (nth 0 ret) 'f)) (nth 0 ret)))
+(defsubst fuel-eval--retort-error (ret) (nth 0 ret))
 (defsubst fuel-eval--retort-result (ret) (nth 1 ret))
 (defsubst fuel-eval--retort-output (ret) (nth 2 ret))
 
diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index 6a374cd5c8..173248feb7 100644
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -285,7 +285,7 @@
   (fuel-markup--snippet (cons '$snippet (cdr e))))
 
 (defun fuel-markup--link (e)
-  (let* ((link (nth 1 e))
+  (let* ((link (or (nth 1 e) 'f))
          (type (or (nth 3 e) (if (symbolp link) 'word 'article)))
          (label (or (nth 2 e)
                     (and (eq type 'article)