Slava Pestov 2009-04-19 23:58:57 -05:00
commit dc2423de06
2 changed files with 4 additions and 4 deletions

View File

@ -60,11 +60,11 @@ t fuel-eval-res-flag set-global
[ print-error ] recover ;
: (fuel-eval-usings) ( usings -- )
[ "USE: " prepend ] map
(fuel-eval) fuel-forget-error fuel-forget-output ;
[ [ use+ ] curry [ drop ] recover ] each
fuel-forget-error fuel-forget-output ;
: (fuel-eval-in) ( in -- )
[ dup "IN: " prepend 1array (fuel-eval) in set ] when* ;
[ in set ] when* ;
: (fuel-eval-in-context) ( lines in usings -- )
(fuel-begin-eval)

View File

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