Fix stack effect decl in listener.factor and mismatched dynamic stack effect for error hook in remote.factor

db4
Erik Charlebois 2010-02-13 03:50:04 -08:00
parent 8861dfb834
commit 68c5335d50
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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>