From 5300c775be5d0f205e6db2bd09fef26eca0f683e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 1 Nov 1988 22:52:45 +0000 Subject: [PATCH] Fix missing label bug. OPEN-PROCEDURE-HEADERS define both the internal and external entry points always. --- v7/src/compiler/machines/bobcat/rules3.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index bf45461f4..025b9daf0 100644 --- a/v7/src/compiler/machines/bobcat/rules3.scm +++ b/v7/src/compiler/machines/bobcat/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 4.11 1988/11/01 04:58:20 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 4.12 1988/11/01 22:52:45 jinx Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -359,11 +359,9 @@ MIT in each case. |# (define-rule statement (OPEN-PROCEDURE-HEADER (? internal-label)) - (LAP ,@(let ((external-label (rtl-procedure/%external-label - (label->object internal-label)))) - (if external-label - (LAP (EQUATE ,external-label ,internal-label)) - (LAP))) + (LAP (EQUATE ,(rtl-procedure/external-label + (label->object internal-label)) + ,internal-label) ,@(simple-procedure-header internal-entry-code-word internal-label entry:compiler-interrupt-procedure))) -- 2.25.1