From: Stephen Adams Date: Sat, 15 Jul 1995 06:17:24 +0000 (+0000) Subject: Now we set the PROCEDURE field of an DBG-BLOCK environment X-Git-Tag: 20090517-FFI~6173 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=614a786ab227d9ab0c579ea23f6987847047549b;p=mit-scheme.git Now we set the PROCEDURE field of an DBG-BLOCK environment appropriately. --- diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm index cb82b6d54..0753e42f3 100644 --- a/v8/src/compiler/midend/envconv.scm +++ b/v8/src/compiler/midend/envconv.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: envconv.scm,v 1.14 1995/07/11 21:42:10 adams Exp $ +$Id: envconv.scm,v 1.15 1995/07/15 06:17:24 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -382,6 +382,9 @@ MIT in each case. |# (begin (if (not (new-dbg-procedure/block dbg-info)) (set-new-dbg-procedure/block! dbg-info block)) + (if (and block + (not (new-dbg-block/procedure block))) + (set-new-dbg-block/procedure! block dbg-info)) (code-rewrite/remember* new dbg-info)) (begin (if (not (new-dbg-expression/block dbg-info))