From 06fe68b834d2c9c196c86aa9fba6ff53b82f73e8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 26 Apr 2013 21:34:46 -0600
Subject: [PATCH] JIT: fixnum comparison on known-fixnum arguments needs no
 slow path

---
 src/racket/src/jitarith.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/jitarith.c b/src/racket/src/jitarith.c
index c225cd9fb3..de0e71a304 100644
--- a/src/racket/src/jitarith.c
+++ b/src/racket/src/jitarith.c
@@ -1330,7 +1330,8 @@ int scheme_generate_arith_for(mz_jit_state *jitter, Scheme_Object *rator, Scheme
       ref4 = NULL;
     } else {
       if (!unsafe_fl
-          && ((arith == ARITH_MIN)
+          && ((!arith && (cmp != CMP_BIT))
+              || (arith == ARITH_MIN)
               || (arith == ARITH_MAX)
               || (arith == ARITH_AND)
               || (arith == ARITH_IOR)