Merge branch 'emacs' of http://git.hacks-galore.org/jao/factor
commit
dc2423de06
|
@ -60,11 +60,11 @@ t fuel-eval-res-flag set-global
|
||||||
[ print-error ] recover ;
|
[ print-error ] recover ;
|
||||||
|
|
||||||
: (fuel-eval-usings) ( usings -- )
|
: (fuel-eval-usings) ( usings -- )
|
||||||
[ "USE: " prepend ] map
|
[ [ use+ ] curry [ drop ] recover ] each
|
||||||
(fuel-eval) fuel-forget-error fuel-forget-output ;
|
fuel-forget-error fuel-forget-output ;
|
||||||
|
|
||||||
: (fuel-eval-in) ( in -- )
|
: (fuel-eval-in) ( in -- )
|
||||||
[ dup "IN: " prepend 1array (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)
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue