FIX: cannot interrupt empty parse's while rule with CTRL-C

This was causing infinite loop: `parse "" [while []]` related to: Oldes/Rebol-issues#2229
Oldes · Mar 31, 2020 · fcd4dcc · fcd4dcc
1 parent 2a4f798
commit fcd4dcc
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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: