patch to build MzScheme 372. source: http://lists.racket-lang.org/users/archive/2011-January/043925.html and http://lists.racket-lang.org/users/archive/2011-January/044054.html

gistfile1.diff

--- a/src/mzscheme/src/bool.c	Sat Jun 01 00:04:45 2013 +0900
+++ b/src/mzscheme/src/bool.c	Sat Jun 01 00:12:44 2013 +0900
@@ -124,6 +124,9 @@
   return SAME_OBJ(obj1, obj2);
 }
 
+#ifdef MZ_XFORM
+START_XFORM_SKIP;
+#endif
 XFORM_NONGCING static MZ_INLINE int double_eqv(double a, double b)
 {
 # ifndef NAN_EQUALS_ANYTHING
@@ -159,7 +162,14 @@
   return 1;
 # endif
 }
+#ifdef MZ_XFORM
+END_XFORM_SKIP;
+#endif
 
+
+#ifdef MZ_XFORM
+START_XFORM_SKIP;
+#endif
 int scheme_eqv (Scheme_Object *obj1, Scheme_Object *obj2)
 {
   Scheme_Type t1, t2;
@@ -198,6 +208,9 @@
   else
     return 0;
 }
+#ifdef MZ_XFORM
+END_XFORM_SKIP;
+#endif
 
 static Scheme_Object *equal_k(void)
 {