From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Dec 1988 16:19:21 +0000 (+0000)
Subject: Delete reference to `block-frame', which has been made obsolete.
X-Git-Tag: 20090517-FFI~12330
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=156396dfe0e1991a3560373f7925a77e83124d77;p=mit-scheme.git

Delete reference to `block-frame', which has been made obsolete.
---

diff --git a/v7/src/compiler/fgopt/blktyp.scm b/v7/src/compiler/fgopt/blktyp.scm
index b4a05fa48..029f4c117 100644
--- a/v7/src/compiler/fgopt/blktyp.scm
+++ b/v7/src/compiler/fgopt/blktyp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/blktyp.scm,v 4.8 1988/12/13 13:03:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/blktyp.scm,v 4.9 1988/12/16 16:19:21 cph Exp $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -143,10 +143,6 @@ MIT in each case. |#
 	(extra (if (and parent (ic-block/use-lookup? parent)) 1 0)))
     (set-block-free-variables! block free-variables)
     (set-block-bound-variables! block bound-variables)
-    (set-block-frame! block
-		      (and frame
-			   (rvalue/procedure? frame)
-			   (procedure-name frame)))
     (let loop ((variables (block-bound-variables block))
 	       (offset (+ closure-block-first-offset extra))
 	       (table '())