expander: allow TTY interrupt.

* eval.c (expand): Call sig_check_fast so that if the expander
gets into some kind of loop, it is interruptible.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 665c5d2a..777858c3 100644
--- a/eval.c
+++ b/eval.c
@@ -4923,6 +4923,8 @@ val expand(val form, val menv)
     uw_push_expand(&expand_fr, form, menv);
 #endif
 
+  sig_check_fast();
+
   ret = do_expand(form, menv);
 
   if (!lookup_origin(ret))