From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 28 Aug 1991 13:19:53 +0000 (+0000)
Subject: Conditionalize to handle the case where there are no hooks.
X-Git-Tag: 20090517-FFI~10280
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=766634493546545fb69a72192f62d5535749caec;p=mit-scheme.git

Conditionalize to handle the case where there are no hooks.
---

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 62bcb530f..0382bf483 100644
--- 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.27 1991/08/27 01:31:00 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.28 1991/08/28 13:19:53 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -277,9 +277,12 @@ MIT in each case. |#
       (dynamic-wind
        (lambda ()
 	 (set! old-stepper-hooks (get-stepper-hooks))
-	 ((ucode-primitive primitive-return-step 2) unspecific null-hooks))
+	 (if old-stepper-hooks
+	     ((ucode-primitive primitive-return-step 2)
+	      unspecific null-hooks)))
        thunk
        (lambda ()
 	 ((ucode-primitive primitive-return-step 2)
 	  unspecific
-	  old-stepper-hooks))))))
\ No newline at end of file
+	  (or old-stepper-hooks
+	      null-hooks)))))))
\ No newline at end of file
diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 81844ebf8..e3c708142 100644
--- 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.27 1991/08/27 01:31:00 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.28 1991/08/28 13:19:53 jinx Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -277,9 +277,12 @@ MIT in each case. |#
       (dynamic-wind
        (lambda ()
 	 (set! old-stepper-hooks (get-stepper-hooks))
-	 ((ucode-primitive primitive-return-step 2) unspecific null-hooks))
+	 (if old-stepper-hooks
+	     ((ucode-primitive primitive-return-step 2)
+	      unspecific null-hooks)))
        thunk
        (lambda ()
 	 ((ucode-primitive primitive-return-step 2)
 	  unspecific
-	  old-stepper-hooks))))))
\ No newline at end of file
+	  (or old-stepper-hooks
+	      null-hooks)))))))
\ No newline at end of file