From c4c1e6191bbbb1b66e9ed4c38ee2626bd39bb32e Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 26 Jan 1990 16:43:29 +0000
Subject: [PATCH] Fixed SIG

---
 util/int/ChangeLog | 3 +++
 util/int/do_misc.c | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/util/int/ChangeLog b/util/int/ChangeLog
index 41b5caed1..8415e9a36 100644
--- a/util/int/ChangeLog
+++ b/util/int/ChangeLog
@@ -1,3 +1,6 @@
+26-Jan-90  Ceriel Jacobs (ceriel) at ceriel
+	Fixed so that two consecutive SIG's have no effect.
+
  8-Dec-89  Ceriel Jacobs (ceriel) at ceriel
 	Bug fix: one of the many ZRL encodings was decoded wrong.
 
diff --git a/util/int/do_misc.c b/util/int/do_misc.c
index d0eb420d2..6bd9aa756 100644
--- a/util/int/do_misc.c
+++ b/util/int/do_misc.c
@@ -570,7 +570,10 @@ DoSIGz()
 
 	LOG(("@M6 DoSIGz()"));
 	spoilFRA();
-	npush(TrapPI, psize);
+	if (OnTrap == TR_HALT) {
+		npush(-2L, psize);
+	}
+	else	npush(TrapPI, psize);
 	if (tpi == -2) {
 		OnTrap = TR_HALT;
 		TrapPI = 0;
-- 
2.34.1