In entry for IC procedure, equate the internal and external labels,

since all number of argument checks are performed by the interpreter.

diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm
index 5952817f3580cfdd9a0a67afd6cc5f2080145fd8..19e6565a44e57b81c55d8aca5aaa38e962f3e43c 100644 (file)
--- 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*))