From 97ea11289f06647835a13d595f597ed8cfc195c6 Mon Sep 17 00:00:00 2001 From: Don Allen Date: Sat, 16 May 1987 09:00:05 +0000 Subject: [PATCH] Fix error in SETUP-LEXPR rule -- first arg to procedure-header was 'label'; should have been 'procedure' --- v7/src/compiler/machines/bobcat/lapgen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 9147588ab..a50bd3566 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.162 1987/05/15 19:51:17 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.163 1987/05/16 09:00:05 allen Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -803,7 +803,7 @@ MIT in each case. |# (SETUP-LEXPR (? label)) (disable-frame-pointer-offset! (let ((procedure (label->procedure label))) - `(,@(procedure-header label false) + `(,@(procedure-header procedure false) (MOVE W (& ,(+ (length (procedure-required procedure)) (length (procedure-optional procedure)) -- 2.25.1