Added "block-frame" slot to hold on to debugging information.

diff --git a/v7/src/compiler/base/rvalue.scm b/v7/src/compiler/base/rvalue.scm
index d38e7da59ecbe66701e8a5e00f805fd2625788e8..841226b8766c43b7f05cbe25abfe582e32d7b4c4 100644 (file)
--- 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)