From 26d500fd3ae5bafdf5d60c362faedfdded6dcdbf Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 19 Feb 1993 17:48:51 +0000 Subject: [PATCH] Fix typo. --- v7/src/compiler/machines/bobcat/rules3.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index a61bc7dd8..0e205db94 100644 --- 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)) -- 2.25.1