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 f94e82ab89b2003ddc098db0053869f46c4fb816..2d88620799839ffe51fa27a997e90f34c7aea90a 100644 (file)
--- 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 44b293e0622d638d26a18306906cc6396fc2c870..d7462e654af7e3ca16ed92136ae52877e917712c 100644 (file)
--- 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 d46d374026fedaa51479d8f3c3c101153d1c7f47..d4ef4a3a6e5853dd8c930b667e62e5e4efaf765a 100644 (file)
--- 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)