Made sure that condition handlers are invoked with stepping turned

off. Someday this should be done for interrupts too.

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index 40de3b3823f0ecfd64041b6779aa0d42827b1b0c..1999a604b96e20833c6a50d9a70a83a39cd6bdc3 100644 (file)
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.18 1991/08/23 23:25:44 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.19 1991/08/26 20:29:21 markf Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -464,7 +464,9 @@ MIT in each case. |#
              (or (null? types)
                  (intersect-generalizations? types)))
            (fluid-let ((dynamic-handler-frames (cdr frames)))
-             ((cdar frames) condition))))
+             (without-stepping
+              (lambda ()
+                ((cdar frames) condition))))))
       (do ((frames static-handler-frames (cdr frames)))
          ((null? frames))
        (if (let ((types (caar frames)))
@@ -472,7 +474,9 @@ MIT in each case. |#
                  (intersect-generalizations? types)))
            (fluid-let ((static-handler-frames (cdr frames))
                        (dynamic-handler-frames '()))
-             ((cdar frames) condition)))))))
+             (without-stepping
+              (lambda ()
+                ((cdar frames) condition)))))))))
 \f
 ;;;; Standard Condition Signallers