From 1323fc62000089a31959040849d72d7c409db068 Mon Sep 17 00:00:00 2001 From: Stephen 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