From fd2f6fc8ea2d3af76f091c595c46a143a8bb768c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 27 Jan 2007 01:02:31 +0000
Subject: [PATCH] disable rational < fast path until I can get it right

svn: r5470
---
 src/mzscheme/src/rational.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/rational.c b/src/mzscheme/src/rational.c
index 9fc0fe4db6..1a4a9d1b69 100644
--- a/src/mzscheme/src/rational.c
+++ b/src/mzscheme/src/rational.c
@@ -200,6 +200,7 @@ static int rational_lt(const Scheme_Object *a, const Scheme_Object *b, int or_eq
   Scheme_Rational *rb = (Scheme_Rational *)b;
   Scheme_Object *ma, *mb;
 
+#if 0
   /* Avoid multiplication in simple cases: */
   if (scheme_bin_lt_eq(ra->num, rb->num)
       && scheme_bin_gt_eq(ra->denom, rb->denom)) {
@@ -212,6 +213,7 @@ static int rational_lt(const Scheme_Object *a, const Scheme_Object *b, int or_eq
     if (scheme_rational_eq(a, b))
       return 1;
   }
+#endif
 
   /* Checking only for lt at this point */