mirror of
https://github.com/Ponce/slackbuilds
synced 2024-12-02 13:04:42 +01:00
58 lines
1.3 KiB
Diff
58 lines
1.3 KiB
Diff
|
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 *
|