From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 19 Aug 1995 01:15:44 +0000 (+0000)
Subject: Corrected handling of missing DBG-BLOCK.
X-Git-Tag: 20090517-FFI~6028
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1323fc62000089a31959040849d72d7c409db068;p=mit-scheme.git

Corrected handling of missing DBG-BLOCK.
---

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