FUEL: allow editing vocabularies not yet loaded.

diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor
index 6c868890400ef800bf658f17442f9827ce04ce56..eee33a13c86cae4af4e5ba7670774f1f941a0331 100644 (file)
--- a/extra/fuel/fuel.factor
+++ b/extra/fuel/fuel.factor
@@ -5,7 +5,8 @@ USING: accessors arrays classes classes.tuple compiler.units
 combinators continuations debugger definitions eval help
 io io.files io.streams.string kernel lexer listener listener.private
 make math namespaces parser prettyprint prettyprint.config
-quotations sequences strings source-files vectors vocabs vocabs.loader ;
+quotations sequences strings source-files tools.vocabs
+vectors vocabs vocabs.loader ;
 
 IN: fuel
 
@@ -156,12 +157,10 @@ M: source-file fuel-pprint path>> fuel-pprint ;
     ] when* ;
 
 : fuel-get-vocab-location ( vocab -- )
-    vocab-source-path [
-        (normalize-path) 1 2array fuel-eval-set-result
-    ] when* ;
+    >vocab-link fuel-get-edit-location ;
 
 : fuel-get-vocabs ( -- )
-    vocabs fuel-eval-set-result ; inline
+    all-vocabs-seq [ vocab-name ] map fuel-eval-set-result ; inline
 
 : fuel-run-file ( path -- ) run-file ; inline