Fix typo.

diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm
index a61bc7dd8574561e3a72830994f8f3f5929fc22b..0e205db94e468cc59edda7a333c7ed01518ba526 100644 (file)
--- a/v7/src/compiler/machines/bobcat/rules3.scm
+++ b/v7/src/compiler/machines/bobcat/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 4.37 1993/01/13 00:18:40 cph Exp $
+$Id: rules3.scm,v 4.38 1993/02/19 17:48:51 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -157,7 +157,7 @@ MIT in each case. |#
                (LAP ,@(load-dnl frame-size 1)
                     (JMP ,entry:compiler-error)))
               ((eq? primitive (ucode-primitive set-interrupt-enables! 1))
-               (LAP (JMP ,entry:set-interrupt-enables)))
+               (LAP (JMP ,entry:compiler-set-interrupt-enables)))
               (else
                (let ((arity (primitive-procedure-arity primitive)))
                  (cond ((not (negative? arity))