FUEL: allow editing vocabularies not yet loaded.

db4
Jose A. Ortega Ruiz 2008-12-14 02:39:48 +01:00
parent fbbe8d9e5e
commit cf1a510c1b
1 changed files with 4 additions and 5 deletions

View File

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