The addition of "without-stepping" as it was changed the operation of

scheme so as to prevent my error handling code in the stepper from
working right.  Thus, I've added a procedure, stepping-off!, which one
may call in the action thunk in order to cause without-stepping to
permanently terminate stepping.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 03e69d1c96b88ca9454ef82b21fda1e5b68b0b5d..e89ae53ff901a4b3d09a05a3ddde68d9c29a9a7b 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.29 1991/09/02 03:24:33 sybok Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.30 1991/09/02 03:29:33 sybok Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -263,7 +263,7 @@ MIT in each case. |#
 ;; encountered on each entry to the thunk. It might be better to
 ;; restore the hooks to the initial state. I flipped a coin.
 
-(define *old-hook-storage-environment*)
+
 
 (let-syntax ((ufixed-objects-slot
              (macro (name)
@@ -273,7 +273,9 @@ MIT in each case. |#
     (define (get-stepper-hooks)
       (vector-ref (get-fixed-objects-vector)
                  (ufixed-objects-slot stepper-state)))
-
+    (define (stepping-off!)
+      (set! (access old-stepper-hooks *old-hook-storage-environment*) null-hooks))
+    (define *old-hook-storage-environment*)
     (let ((old-stepper-hooks)
          (null-hooks (hunk3-cons #f #f #f)))
       (set! *old-hook-storage-environment* (the-environment))
@@ -290,5 +292,6 @@ MIT in each case. |#
          (or old-stepper-hooks
              null-hooks)))))))
 
-(define (stepping-off!)
-  (set! (access old-stepper-hooks *old-hook-storage-environment*) null-hooks))
+(define stepping-off! (access stepping-off! (procedure-environment without-stepping)))
+
+

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index fb2e56cbe393201048b8e884c75fa26dd4f1776e..7dcdbf02462bfee4b48ad3fe68f0b2fb2f20a243 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.29 1991/09/02 03:24:33 sybok Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.30 1991/09/02 03:29:33 sybok Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -263,7 +263,7 @@ MIT in each case. |#
 ;; encountered on each entry to the thunk. It might be better to
 ;; restore the hooks to the initial state. I flipped a coin.
 
-(define *old-hook-storage-environment*)
+
 
 (let-syntax ((ufixed-objects-slot
              (macro (name)
@@ -273,7 +273,9 @@ MIT in each case. |#
     (define (get-stepper-hooks)
       (vector-ref (get-fixed-objects-vector)
                  (ufixed-objects-slot stepper-state)))
-
+    (define (stepping-off!)
+      (set! (access old-stepper-hooks *old-hook-storage-environment*) null-hooks))
+    (define *old-hook-storage-environment*)
     (let ((old-stepper-hooks)
          (null-hooks (hunk3-cons #f #f #f)))
       (set! *old-hook-storage-environment* (the-environment))
@@ -290,5 +292,6 @@ MIT in each case. |#
          (or old-stepper-hooks
              null-hooks)))))))
 
-(define (stepping-off!)
-  (set! (access old-stepper-hooks *old-hook-storage-environment*) null-hooks))
+(define stepping-off! (access stepping-off! (procedure-environment without-stepping)))
+
+