From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1991 22:02:20 +0000 (+0000)
Subject: When starting a new CMDL, bind the list of condition handlers to '()
X-Git-Tag: 20090517-FFI~10572
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ba31c218d3b977fe1bdc914c1b7993ad010a0bb3;p=mit-scheme.git

When starting a new CMDL, bind the list of condition handlers to '()
so that the handlers for the parent CMDL do not catch errors meant for
this CMDL.
---

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index f94e82ab8..2d8862079 100644
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.20 1991/05/15 21:17:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.21 1991/05/15 22:02:20 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -106,7 +106,8 @@ MIT in each case. |#
 		       message)))
 	      (lambda (restart)
 		(restart/put! restart make-cmdl cmdl)
-		(fluid-let ((*nearest-cmdl* cmdl))
+		(fluid-let ((*nearest-cmdl* cmdl)
+			    (dynamic-handler-frames '()))
 		  (with-interrupt-mask interrupt-mask/all
 		    (lambda (interrupt-mask)
 		      interrupt-mask
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 44b293e06..d7462e654 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.107 1991/05/15 21:18:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.108 1991/05/15 22:02:07 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -625,6 +625,8 @@ MIT in each case. |#
 	  write-restart-report)
   (export (runtime microcode-errors)
 	  write-operator)
+  (export (runtime rep)
+	  dynamic-handler-frames)
   (initialization (initialize-package!)))
 
 (define-package (runtime event-distributor)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index d46d37402..d4ef4a3a6 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.107 1991/05/15 21:18:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.108 1991/05/15 22:02:07 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -625,6 +625,8 @@ MIT in each case. |#
 	  write-restart-report)
   (export (runtime microcode-errors)
 	  write-operator)
+  (export (runtime rep)
+	  dynamic-handler-frames)
   (initialization (initialize-package!)))
 
 (define-package (runtime event-distributor)