M: object prompt.
nip prompt-style get-global format bl flush ;
+: with-ctrl-break ( quot -- )
+ enable-ctrl-break
+ [ disable-ctrl-break ] [ ] cleanup ; inline
+
: parse-lines-interactive ( lines -- quot/f )
[ parse-lines ] with-compilation-unit ;
[
read-quot [
- '[ datastack _ with-datastack ]
+ '[ [ datastack _ with-datastack ] with-ctrl-break ]
[ call-error-hook datastack ]
recover
] [ return ] if*