Debugging threads

[factor.git] / core / listener / listener.factor

diff --git a/core/listener/listener.factor b/core/listener/listener.factor
index cc4580c2cf9b59cecf73e2f7e210c73752e9a20d..e00e64f4bcfc7e0f0d656747760bb687071eb86e 100755 (executable)
--- a/core/listener/listener.factor
+++ b/core/listener/listener.factor
@@ -45,6 +45,8 @@ M: object stream-read-quot
 
 SYMBOL: error-hook
 
+[ print-error-and-restarts ] error-hook set-global
+
 : listen ( -- )
     listener-hook get call prompt.
     [ read-quot [ [ error-hook get call ] recover ] [ bye ] if* ]