When user aborts a computation, deregister all outstanding thread

events.

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 6f3a2a008cfd766b174e5cbc54e7f99d7c5903b7..13adf5a980db76add20b22bad99e533d37b5db08 100644 (file)
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.54 1999/02/23 21:32:22 cph Exp $
+$Id: rep.scm,v 14.55 1999/02/23 21:34:01 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -142,7 +142,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                 (loop
                  (bind-abort-restart cmdl
                    (lambda ()
-                     (deregister-thread-events)
+                     (deregister-all-events)
                      (with-interrupt-mask interrupt-mask/all
                        (lambda (interrupt-mask)
                          interrupt-mask