disable rational < fast path until I can get it right

svn: r5470

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 */