From d00d12d18c27c376aa19601f1fe7eb9d49841b3b Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Sun, 11 Jan 2009 22:29:11 +0100
Subject: [PATCH] FUEL: fuel-scaffold-vocab: go to the right source file for
 subvocabs.

---
 extra/fuel/fuel.factor | 5 ++---
 misc/fuel/README       | 1 +
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor
index 587537adcf..238c9e11c8 100644
--- a/extra/fuel/fuel.factor
+++ b/extra/fuel/fuel.factor
@@ -371,9 +371,8 @@ MEMO: (fuel-get-vocabs/tag) ( tag -- element )
 ! Scaffold support
 
 : fuel-scaffold-vocab ( root name devname -- )
-    developer-name set
-    [ scaffold-vocab ] 2keep [ (normalize-path) ] dip dup
-    append-path append-path ".factor" append fuel-eval-set-result ;
+    developer-name set dup [ scaffold-vocab ] dip
+    dup require vocab-source-path (normalize-path) fuel-eval-set-result ;
 
 : fuel-scaffold-help ( name devname -- )
     developer-name set
diff --git a/misc/fuel/README b/misc/fuel/README
index 2f3417a6b5..3563215089 100644
--- a/misc/fuel/README
+++ b/misc/fuel/README
@@ -32,6 +32,7 @@ beast.
   (require 'factor-mode)
 
 * Basic usage
+*** Running the listener
 
   If you're using the default factor binary and images locations inside
   the Factor's source tree, that should be enough to start using FUEL.