From f41d739499e12ebe384d7702c47c0978cc5e7b7d Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 23 Jul 1990 14:22:03 +0000 Subject: [PATCH] fixnum-pred-2->cc was renamed to fixnum-pred->cc. Remove left-over reference. --- v7/src/compiler/machines/spectrum/rulfix.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/rulfix.scm b/v7/src/compiler/machines/spectrum/rulfix.scm index a74a6062c..9a167696d 100644 --- a/v7/src/compiler/machines/spectrum/rulfix.scm +++ b/v7/src/compiler/machines/spectrum/rulfix.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulfix.scm,v 4.35 1990/07/22 18:56:13 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulfix.scm,v 4.36 1990/07/23 14:22:03 jinx Exp $ $MC68020-Header: rules1.scm,v 4.33 90/05/03 15:17:28 GMT jinx Exp $ $MC68020-Header: lapgen.scm,v 4.35 90/07/20 15:53:40 GMT jinx Exp $ @@ -704,7 +704,7 @@ MIT in each case. |# (FIXNUM-PRED-2-ARGS (? predicate) (REGISTER (? source1)) (REGISTER (? source2))) - (compare (fixnum-pred-2->cc predicate) + (compare (fixnum-pred->cc predicate) (standard-source! source1) (standard-source! source2))) -- 2.25.1