From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Mon, 26 Aug 1991 20:29:21 +0000 (+0000)
Subject: Made sure that condition handlers are invoked with stepping turned
X-Git-Tag: 20090517-FFI~10296
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=73de296492f870a378689dd3d52a2999b5bfd5cc;p=mit-scheme.git

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 40de3b382..1999a604b 100644
--- 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)))))))))
 
 ;;;; Standard Condition Signallers