From e858a7edfed8c481ef0e9f49fca520fbfaef613c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Mar 1992 09:31:51 +0000
Subject: [PATCH] Use one-instruction sequence for unary fixnum predicates
 instead of more general two-instruction sequence.

---
 v7/src/compiler/machines/mips/rulfix.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/compiler/machines/mips/rulfix.scm b/v7/src/compiler/machines/mips/rulfix.scm
index 7dafb9714..284fa82ab 100644
--- a/v7/src/compiler/machines/mips/rulfix.scm
+++ b/v7/src/compiler/machines/mips/rulfix.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/rulfix.scm,v 1.4 1991/10/25 00:13:36 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/rulfix.scm,v 1.5 1992/03/11 09:31:51 cph Exp $
 
-Copyright (c) 1989-91 Massachusetts Institute of Technology
+Copyright (c) 1989-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -497,15 +497,15 @@ MIT in each case. |#
 
 (define-rule predicate
   (FIXNUM-PRED-1-ARG (? predicate) (REGISTER (? source)))
-  (compare (fixnum-pred-1->cc predicate)
-	   (standard-source! source)
-	   0))
+  (compare-immediate (fixnum-pred-1->cc predicate)
+		     0
+		     (standard-source! source)))
 
 (define (fixnum-pred-1->cc predicate)
   (case predicate
     ((ZERO-FIXNUM?) '=)
-    ((NEGATIVE-FIXNUM?) '<)
-    ((POSITIVE-FIXNUM?) '>)
+    ((NEGATIVE-FIXNUM?) '>)
+    ((POSITIVE-FIXNUM?) '<)
     (else (error "unknown fixnum predicate" predicate))))
 
 (define-rule predicate
-- 
2.25.1