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

fuel: fix usage of (fuel-eval) 

It used to take a string, but now takes a sequence of strings.
db4
Alec Berryman 2009-04-18 22:28:57 -04:00
parent c8bd29d575
commit 54f82be4e0
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,17 +59,14 @@ t fuel-eval-res-flag set-global
[ [ parse-lines ] with-compilation-unit call( -- ) ] curry
[ print-error ] recover ;
: (fuel-eval-each) ( lines -- )
[ (fuel-eval) ] each ;
: (fuel-eval-usings) ( usings -- )
[ "USE: " prepend ] map
(fuel-eval-each) fuel-forget-error fuel-forget-output ;
(fuel-eval) fuel-forget-error fuel-forget-output ;
: (fuel-eval-in) ( in -- )
[ dup "IN: " prepend (fuel-eval) in set ] when* ;
[ dup "IN: " prepend 1array (fuel-eval) in set ] when* ;
: (fuel-eval-in-context) ( lines in usings -- )
(fuel-begin-eval)
[ (fuel-eval-usings) (fuel-eval-in) "\n" join (fuel-eval) ] with-string-writer
[ (fuel-eval-usings) (fuel-eval-in) (fuel-eval) ] with-string-writer
(fuel-end-eval) ;