From 907ff4e00fe3457369afbcb25ef253aaac23a022 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 2 Oct 2015 17:17:15 -0700 Subject: Allow empty loops to be interrupted by signals. * eval.c (eval_progn): If there are no forms to evaluate, then check for signals. --- eval.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/eval.c b/eval.c index f2386bfd..74127bf9 100644 --- a/eval.c +++ b/eval.c @@ -1050,6 +1050,11 @@ val eval_progn(val forms, val env, val ctx_form) { val retval = nil; + if (!forms) { + sig_check_fast(); + return retval; + } + for (; forms; forms = cdr(forms)) retval = eval(car(forms), env, ctx_form); -- cgit v1.2.3