listener: allow ctrl-break to interrupt user code parsing

This makes it possible to trap infinite loops in the vocab loading process.

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 4c792ae67bba647cee06528e4103237de12b33d7..ba9a7546ba118e429cd76815dbe92bf573e254dd 100644 (file)
--- 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 ] [