disabling was not as easy as it looked...

svn: r5471
2007-01-27 01:05:29 +00:00 · 2007-01-27 01:05:29 +00:00 · 3946c25fd9
commit 3946c25fd9
parent fd2f6fc8ea
1 changed files with 3 additions and 2 deletions
--- 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 */