From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 23 Nov 1992 04:41:17 +0000 (+0000)
Subject: ``i'' response to interactive interrupt handler clears the hard
X-Git-Tag: 20090517-FFI~8716
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f32885e1590a85e749e642e2fe63f11a6343b39b;p=mit-scheme.git

``i'' response to interactive interrupt handler clears the hard
attention counter.
---

diff --git a/v7/src/microcode/dossig.c b/v7/src/microcode/dossig.c
index dd079aed6..2a1e342aa 100644
--- a/v7/src/microcode/dossig.c
+++ b/v7/src/microcode/dossig.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dossig.c,v 1.14 1992/11/23 04:25:50 gjr Exp $
+$Id: dossig.c,v 1.15 1992/11/23 04:41:17 gjr Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -576,7 +576,9 @@ interactive_interrupt:
 	  cc_t int_char;
 
 	  int_char = (DOS_interactive_interrupt_handler ());
-	  if (int_char != ((cc_t) 0))
+	  if (int_char == ((cc_t) 0))
+	    hard_attn_counter = 0;
+	  else
 	  {
 	    tty_set_next_interrupt_char ((int) int_char);
 	    interrupt_p = 1;