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

fuel: Fix compiler warnings

db4
Slava Pestov 2009-04-17 20:49:36 -05:00
parent 7db33912a0
commit f36a3c4713
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/fuel/eval/eval.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays compiler.units continuations debugger USING: accessors arrays compiler.units continuations debugger
fuel.pprint io io.streams.string kernel namespaces parser sequences fuel.pprint io io.streams.string kernel namespaces parser sequences
vectors vocabs.parser ; vectors vocabs.parser eval fry ;
IN: fuel.eval IN: fuel.eval
@ -55,21 +55,20 @@ t fuel-eval-res-flag set-global
: (fuel-end-eval) ( output -- ) : (fuel-end-eval) ( output -- )
fuel-eval-output set-global fuel-send-retort fuel-pop-status ; inline fuel-eval-output set-global fuel-send-retort fuel-pop-status ; inline
: (fuel-eval) ( lines -- ) : (fuel-eval) ( string -- )
[ [ parse-lines ] with-compilation-unit call ] curry '[ _ eval( -- ) ] try ;
[ print-error ] recover ; inline
: (fuel-eval-each) ( lines -- ) : (fuel-eval-each) ( lines -- )
[ 1vector (fuel-eval) ] each ; inline [ (fuel-eval) ] each ;
: (fuel-eval-usings) ( usings -- ) : (fuel-eval-usings) ( usings -- )
[ "USING: " prepend " ;" append ] map [ "USE: " prepend ] map
(fuel-eval-each) fuel-forget-error fuel-forget-output ; (fuel-eval-each) fuel-forget-error fuel-forget-output ;
: (fuel-eval-in) ( in -- ) : (fuel-eval-in) ( in -- )
[ dup "IN: " prepend 1vector (fuel-eval) in set ] when* ; inline [ dup "IN: " prepend (fuel-eval) in set ] when* ;
: (fuel-eval-in-context) ( lines in usings -- ) : (fuel-eval-in-context) ( lines in usings -- )
(fuel-begin-eval) (fuel-begin-eval)
[ (fuel-eval-usings) (fuel-eval-in) (fuel-eval) ] with-string-writer [ (fuel-eval-usings) (fuel-eval-in) "\n" join (fuel-eval) ] with-string-writer
(fuel-end-eval) ; (fuel-end-eval) ;

2
extra/fuel/fuel.factor
View File

@ -104,7 +104,7 @@ PRIVATE>
: fuel-vocab-summary ( name -- ) : fuel-vocab-summary ( name -- )
(fuel-vocab-summary) fuel-eval-set-result ; (fuel-vocab-summary) fuel-eval-set-result ;
: fuel-index ( quot -- ) call format-index fuel-eval-set-result ; : fuel-index ( quot -- ) call( -- seq ) format-index fuel-eval-set-result ;
: fuel-get-vocabs/tag ( tag -- ) : fuel-get-vocabs/tag ( tag -- )
(fuel-get-vocabs/tag) fuel-eval-set-result ; (fuel-get-vocabs/tag) fuel-eval-set-result ;