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

FUEL: modify directly use/in to set up evaluation context

db4
Jose A. Ortega Ruiz 2009-04-19 20:35:54 +02:00
parent d3e24a7b7e
commit 425be6a414
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,13 +63,13 @@ t fuel-eval-res-flag set-global
[ (fuel-eval) ] each ; [ (fuel-eval) ] each ;
: (fuel-eval-usings) ( usings -- ) : (fuel-eval-usings) ( usings -- )
[ "USE: " prepend ] map [ [ use+ ] curry [ drop ] recover ] each
(fuel-eval-each) fuel-forget-error fuel-forget-output ; fuel-forget-error fuel-forget-output ;
: (fuel-eval-in) ( in -- ) : (fuel-eval-in) ( in -- )
[ dup "IN: " prepend (fuel-eval) in set ] when* ; [ 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) "\n" join (fuel-eval) ] with-string-writer [ (fuel-eval-usings) (fuel-eval-in) (fuel-eval) ] with-string-writer
(fuel-end-eval) ; (fuel-end-eval) ;

2
misc/fuel/fuel-connection.el
View File

@ -164,7 +164,7 @@
(fuel-con--send-string/wait buffer (fuel-con--send-string/wait buffer
fuel-con--init-stanza fuel-con--init-stanza
'fuel-con--establish-connection-cont 'fuel-con--establish-connection-cont
60000) 3000000)
conn)) conn))
(defun fuel-con--establish-connection-cont (ignore) (defun fuel-con--establish-connection-cont (ignore)