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