From 2ed1e07e77843d0f898de350eb89c2adcf670c4b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 28 Oct 2019 07:11:20 -0700
Subject: 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.
---
 eval.c | 2 ++
 1 file changed, 2 insertions(+)

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))
-- 
cgit v1.2.3