From 3946c25fd9cf899952a1fbfc5ff6313745e1366b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 27 Jan 2007 01:05:29 +0000
Subject: [PATCH] disabling was not as easy as it looked...

svn: r5471
---
 src/mzscheme/src/rational.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/rational.c b/src/mzscheme/src/rational.c
index 1a4a9d1b69..2390ebd89e 100644
--- a/src/mzscheme/src/rational.c
+++ b/src/mzscheme/src/rational.c
@@ -209,11 +209,12 @@ static int rational_lt(const Scheme_Object *a, const Scheme_Object *b, int or_eq
         return 0;
     }
     return 1;
-  } else if (or_eq) {
+  } else 
+#endif
+    if (or_eq) {
     if (scheme_rational_eq(a, b))
       return 1;
   }
-#endif
 
   /* Checking only for lt at this point */