From fcd4dcc2d4ecd61843efd8f9538cef725101b7f9 Mon Sep 17 00:00:00 2001
From: Oldes <oldes.huhuman@gmail.com>
Date: Tue, 31 Mar 2020 14:28:15 +0200
Subject: [PATCH] FIX: cannot interrupt empty parse's while rule with CTRL-C

This was causing infinite loop: `parse "" [while []]`

related to: https://github.com/Oldes/Rebol-issues/issues/2229
---
 src/core/u-parse.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/core/u-parse.c b/src/core/u-parse.c
index f4f1054931..be1bfea72b 100644
--- a/src/core/u-parse.c
+++ b/src/core/u-parse.c
@@ -1103,6 +1103,9 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 		mincount = maxcount = 1;
 
 	}
+	
+	if (Eval_Signals) Do_Signals();
+
 	return index;
 
 bad_rule: