From 68c5335d5094d3c80f1c1f81247cadfebb524b5c Mon Sep 17 00:00:00 2001
From: Erik Charlebois <erikcharlebois@gmail.com>
Date: Sat, 13 Feb 2010 03:50:04 -0800
Subject: [PATCH] Fix stack effect decl in listener.factor and mismatched
 dynamic stack effect for error hook in remote.factor

---
 basis/listener/listener.factor  | 2 +-
 extra/fuel/remote/remote.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 168971aeee..96db935f07 100644
--- 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 d3b48efac6..97ab5b59db 100644
--- 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>