From 44eb652320a41fe700f4b0e4d32986bde2579a62 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 9 Jul 1987 23:19:37 +0000 Subject: [PATCH] Added "block-frame" slot to hold on to debugging information. --- v7/src/compiler/base/rvalue.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/base/rvalue.scm b/v7/src/compiler/base/rvalue.scm index d38e7da59..841226b87 100644 --- a/v7/src/compiler/base/rvalue.scm +++ b/v7/src/compiler/base/rvalue.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/rvalue.scm,v 1.1 1987/06/17 02:15:51 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/rvalue.scm,v 1.2 1987/07/09 23:19:37 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -53,7 +53,7 @@ MIT in each case. |# (write (constant-value constant)))) (define-rvalue block parent children bound-variables free-variables procedure - declarations type closures combinations interned-variables closure-offsets) + declarations type closures combinations interned-variables closure-offsets frame) (define *blocks*) (define (make-block parent) -- 2.25.1