lang/racket-minimal/files/patch-racket_src_number.c

   1
   2 $FreeBSD: head/lang/racket-minimal/files/patch-racket_src_number.c 341390 2014-01-27 12:37:06Z olgeni $
   3
   4 --- racket/src/number.c.orig
   5 +++ racket/src/number.c
   6 @@ -1890,6 +1890,9 @@
   7    return (is_rational(argv[0]) ? scheme_true : scheme_false);
   8  }
   9
  10 +#ifdef MZ_XFORM
  11 +START_XFORM_SKIP;
  12 +#endif
  13  XFORM_NONGCING static int double_is_integer(double d)
  14  {
  15  # ifdef NAN_EQUALS_ANYTHING
  16 @@ -1905,7 +1908,13 @@
  17
  18    return 0;
  19  }
  20 +#ifdef MZ_XFORM
  21 +END_XFORM_SKIP;
  22 +#endif
  23
  24 +#ifdef MZ_XFORM
  25 +START_XFORM_SKIP;
  26 +#endif
  27  int scheme_is_integer(const Scheme_Object *o)
  28  {
  29    if (SCHEME_INTP(o) || SCHEME_BIGNUMP(o))
  30 @@ -1916,6 +1925,9 @@
  31
  32    return 0;
  33  }
  34 +#ifdef MZ_XFORM
  35 +END_XFORM_SKIP;
  36 +#endif
  37
  38
  39  static Scheme_Object *