From b94a77214ecd8f8df53255d74f5abafc7ec677a0 Mon Sep 17 00:00:00 2001 From: sybok Date: Mon, 2 Sep 1991 04:02:40 +0000 Subject: [PATCH] Stepping stuff moved here from global.scm --- v7/src/runtime/error.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm index 9434787c5..61e1ca41c 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.21 1991/09/02 03:55:24 sybok Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.22 1991/09/02 04:02:40 sybok Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -1018,6 +1018,10 @@ MIT in each case. |# (condition-signaller condition-type:file-touch-error '(FILENAME MESSAGE) standard-error-handler)) + (set! stepping-off! + (lambda () + (set! (access old-stepper-hooks *old-hook-storage-environment*) + (access null-hooks *old-hook-storage-environment*)))) unspecific) @@ -1171,7 +1175,6 @@ MIT in each case. |# ;; Without-stepping doesn't work right with the stepper unless stepping-off! ;; is included in the thunk passed to it. -(define (stepping-off!) - (set! (access old-stepper-hooks *old-hook-storage-environment*) - (access null-hooks *old-hook-storage-environment*))) +(define stepping-off!) + -- 2.25.1