Allow evaluation from repl to be interrupted.

* eval.c (do_eval): Check for pending signals.

* parser.c (repl_intr): New static function.
(repl): Set up signal handler for SIGINT around REPL.

* signal.h (sig_deferred): declared.
(sig_check_fast): New inline function/macro.
A bit of a rearrangement here.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 2afc431c..a31a9bce 100644
--- a/eval.c
+++ b/eval.c
@@ -955,6 +955,7 @@ static val do_eval(val form, val env, val ctx_form,
   debug_enter;
 
   debug_check(consp(form) ? form : ctx_form, env, nil, nil, nil, nil);
+  sig_check_fast();
 
   if (nilp(form)) {
     debug_return (nil);