Set up a CONTINUE restart for errors resignalled from other threads.

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 6b7268dbe66a7c7d8ca21411d47ab877a4b0cc8b..7b04464d6ea9ffc83d9ce08223d89bb0c99d6190 100644 (file)
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.44 1993/11/02 23:32:15 cph Exp $
+$Id: rep.scm,v 14.45 1993/12/06 19:34:06 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -174,8 +174,10 @@ MIT in each case. |#
                              (error "Non-owner thread can't start CMDL:"
                                     thread)))))
                   (lambda ()
-                    (unblock-thread-events)
-                    (signaller cmdl thread))))
+                    (with-simple-restart 'CONTINUE "Continue from error."
+                      (lambda ()
+                        (unblock-thread-events)
+                        (signaller cmdl thread))))))
               (stop-current-thread))
              ((let ((parent (cmdl/parent cmdl)))
                 (and parent