From cf4f0ada11fc830e085b65b79eebadb393c7814e Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Tue, 31 May 2016 01:26:48 +0300 Subject: [PATCH] listener: allow ctrl-break to interrupt user code parsing This makes it possible to trap infinite loops in the vocab loading process. --- basis/listener/listener.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor index 4c792ae67b..ba9a7546ba 100644 --- 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 ] [ -- 2.34.1