listener: allow ctrl-break to interrupt user code parsing

This makes it possible to trap infinite loops in the vocab loading process.
2016-05-31 01:26:48 +03:00 · 2016-05-31 01:26:48 +03:00 · cf4f0ada11
parent d8f273f35b
commit cf4f0ada11
1 changed files with 2 additions and 1 deletions
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@ -29,7 +29,8 @@ M: object prompt.
    [ disable-ctrl-break ] [ ] cleanup ; inline

 : parse-lines-interactive ( lines -- quot/f )
-    [ parse-lines ] with-compilation-unit ;
+    [ [ parse-lines ] with-ctrl-break
+    ] with-compilation-unit ;

 : read-quot-step ( lines -- quot/f )
    [ parse-lines-interactive ] [