From 1323fc62000089a31959040849d72d7c409db068 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 19 Aug 1995 01:15:44 +0000
Subject: [PATCH] Corrected handling of missing DBG-BLOCK.
---
v8/src/runtime/uenvir.scm | 16 +++++++++++-----
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 66b62547d..2c76de56b 100644
--- a/v8/src/runtime/uenvir.scm
+++ b/v8/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: uenvir.scm,v 14.37 1995/08/04 13:40:31 adams Exp $
+$Id: uenvir.scm,v 14.38 1995/08/19 01:15:44 adams Exp $
Copyright (c) 1988-1995 Massachusetts Institute of Technology
@@ -398,12 +398,18 @@ MIT in each case. |#
(cond ((not object)
default)
((dbg-continuation? object)
- (make-ccenv (dbg-continuation/block object) frame))
+ (let ((block (dbg-continuation/block object)))
+ (if block
+ (make-ccenv block frame)
+ default)))
((dbg-procedure? object)
(let ((invocation-block (dbg-procedure/block object)))
- (if (stack-frame/compiled-interrupt? frame)
- (make-ccenv invocation-block frame)
- (error "Non-interrupt procedure frame" entry frame))))
+ (cond ((not invocation-block)
+ default)
+ ((stack-frame/compiled-interrupt? frame)
+ (make-ccenv invocation-block frame))
+ (else
+ (error "Non-interrupt procedure frame" entry frame)))))
#| ;
((dbg-expression? object)
;; for now
--
2.25.1