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

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 168971aeee9771a086c581b3dacc231ebc88e9a9..96db935f07cae6ada9e70c5d83049aaccb68bd13 100644 (file)
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -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
 

diff --git a/extra/fuel/remote/remote.factor b/extra/fuel/remote/remote.factor
index d3b48efac696e858ab40132ddf112ada637e25d8..97ab5b59db78bfd5b406d94c3ba4478e753c0212 100644 (file)
--- a/extra/fuel/remote/remote.factor
+++ b/extra/fuel/remote/remote.factor
@@ -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>