listener: allow ctrl-break to interrupt user code parsing
This makes it possible to trap infinite loops in the vocab loading process.char-rename
parent
d8f273f35b
commit
cf4f0ada11
|
@ -29,7 +29,8 @@ M: object prompt.
|
||||||
[ disable-ctrl-break ] [ ] cleanup ; inline
|
[ disable-ctrl-break ] [ ] cleanup ; inline
|
||||||
|
|
||||||
: parse-lines-interactive ( lines -- quot/f )
|
: 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 )
|
: read-quot-step ( lines -- quot/f )
|
||||||
[ parse-lines-interactive ] [
|
[ parse-lines-interactive ] [
|
||||||
|
|
Loading…
Reference in New Issue