Debugging threads

[factor.git] / core / debugger / debugger.factor

diff --git a/core/debugger/debugger.factor b/core/debugger/debugger.factor
index ee3352b71973e7367c5bca52f9b7ed1162c606c5..df7d33f41c7d3f229ed54fbe12a3e97dd3b250d1 100755 (executable)
--- a/core/debugger/debugger.factor
+++ b/core/debugger/debugger.factor
@@ -64,13 +64,14 @@ M: string error. print ;
     [ global [ "Error in print-error!" print drop ] bind ]
     recover ;
 
+: print-error-and-restarts ( error -- )
+    print-error
+    restarts.
+    nl
+    "Type :help for debugging help." print flush ;
+
 : try ( quot -- )
-    [
-        print-error
-        restarts.
-        nl
-        "Type :help for debugging help." print flush
-    ] recover ;
+    [ print-error-and-restarts ] recover ;
 
 ERROR: assert got expect ;