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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/fuel/fuel.factor
View File

@ -5,7 +5,8 @@ USING: accessors arrays classes classes.tuple compiler.units
combinators continuations debugger definitions eval help combinators continuations debugger definitions eval help
io io.files io.streams.string kernel lexer listener listener.private io io.files io.streams.string kernel lexer listener listener.private
make math namespaces parser prettyprint prettyprint.config 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 IN: fuel
@ -156,12 +157,10 @@ M: source-file fuel-pprint path>> fuel-pprint ;
] when* ; ] when* ;
: fuel-get-vocab-location ( vocab -- ) : fuel-get-vocab-location ( vocab -- )
vocab-source-path [ >vocab-link fuel-get-edit-location ;
(normalize-path) 1 2array fuel-eval-set-result
] when* ;
: fuel-get-vocabs ( -- ) : 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 : fuel-run-file ( path -- ) run-file ; inline