Fix stack effect decl in listener.factor and mismatched dynamic stack effect for error hook in remote.factor
parent
8861dfb834
commit
68c5335d50
|
@ -48,7 +48,7 @@ SYMBOL: error-hook
|
|||
|
||||
: call-error-hook ( error -- )
|
||||
error-continuation get error-hook get
|
||||
call( error continuation -- ) ;
|
||||
call( continuation error -- ) ;
|
||||
|
||||
[ drop print-error-and-restarts ] error-hook set-global
|
||||
|
||||
|
|
|
@ -8,7 +8,7 @@ IN: fuel.remote
|
|||
<PRIVATE
|
||||
|
||||
: start-listener ( -- )
|
||||
[ [ print-error-and-restarts ] error-hook set listener ] with-scope ;
|
||||
[ [ print-error-and-restarts drop ] error-hook set listener ] with-scope ;
|
||||
|
||||
: server ( port -- server )
|
||||
utf8 <threaded-server>
|
||||
|
|
Loading…
Reference in New Issue