summaryrefslogtreecommitdiff
path: root/development/racket/xform-errors-converting-fix.patch
blob: 687d653f4e6f12db7bcad5e400cfca25ce515934 (plain)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
diff -Naur racket-6.3/src/racket/src/bool.c my-racket-6.3/src/racket/src/bool.c
--- racket-6.3/src/racket/src/bool.c	2015-10-16 17:00:55.000000000 -0400
+++ my-racket-6.3/src/racket/src/bool.c	2016-01-23 12:04:20.710628127 -0500
@@ -202,6 +202,9 @@
   return SAME_OBJ(obj1, obj2);
 }
 
+#ifdef MZ_XFORM
+START_XFORM_SKIP;
+#endif
 #ifdef MZ_LONG_DOUBLE
 XFORM_NONGCING static MZ_INLINE int mz_long_double_eqv(long_double a, long_double b)
 {
@@ -239,6 +242,10 @@
 # endif
 }
 #endif
+
+#ifdef MZ_XFORM
+START_XFORM_SKIP;
+#endif
 XFORM_NONGCING static MZ_INLINE int double_eqv(double a, double b)
 {
 # ifndef NAN_EQUALS_ANYTHING
@@ -419,6 +426,9 @@
 
  return -1;
 }
+#ifdef MZ_XFORM
+END_XFORM_SKIP;
+#endif
 
 int is_slow_equal (Scheme_Object *obj1, Scheme_Object *obj2)
 {
diff -Naur racket-6.3/src/racket/src/number.c my-racket-6.3/src/racket/src/number.c
--- racket-6.3/src/racket/src/number.c	2015-10-16 17:00:55.000000000 -0400
+++ my-racket-6.3/src/racket/src/number.c	2016-01-23 12:05:08.076767488 -0500
@@ -1917,6 +1917,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
@@ -1943,6 +1946,9 @@
 
   return 0;
 }
+#ifdef MZ_XFORM
+END_XFORM_SKIP;
+#endif
 
 
 static Scheme_Object *