From a37085eded9e149b57dd4c53fa43693b2dc7be06 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 22 Jun 1987 19:21:13 +0000 Subject: [PATCH] In entry for IC procedure, equate the internal and external labels, since all number of argument checks are performed by the interpreter. --- v7/src/compiler/machines/bobcat/rules3.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index 5952817f3..19e6565a4 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 1.2 1987/06/22 18:24:27 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.3 1987/06/22 19:21:13 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -263,7 +263,7 @@ MIT in each case. |# (append! (case (procedure-name procedure) ;really `procedure/type'. ((IC) `((ENTRY-POINT ,external-label) - ,@(make-external-label external-label))) + (EQUATE ,external-label ,internal-label))) ((CLOSURE) (let ((required (1+ (procedure-required procedure))) (optional (procedure-optional procedure))) @@ -287,7 +287,7 @@ MIT in each case. |# `((LABEL ,gc-label) (JSR ,entry:compiler-interrupt-procedure)) '()) - `(,@(make-external-label internal-label))))) + (make-external-label internal-label)))) (define (make-external-label label) `((DC W (- ,label ,*block-start-label*)) -- 2.25.1