From 156396dfe0e1991a3560373f7925a77e83124d77 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 16 Dec 1988 16:19:21 +0000 Subject: [PATCH] Delete reference to `block-frame', which has been made obsolete. --- v7/src/compiler/fgopt/blktyp.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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 '()) -- 2.25.1