From eea7a2376c821f6aefddb1d8549081cb03aea931 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 3 Nov 2006 21:53:11 +0000
Subject: [PATCH] turn off zero-suspend-break assertion

svn: r4770
---
 src/mzscheme/src/fun.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index d376e1b6db..ea963a8791 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -66,7 +66,12 @@
 # endif /* USE_MACTIME */
 #endif /* TIME_SYNTAX */
 
-#define ASSERT_SUSPEND_BREAK_ZERO() (scheme_current_thread->suspend_break ? (*(long *)0x0 = 1): 0)
+static void ASSERT_SUSPEND_BREAK_ZERO() {
+#if 0
+  if (scheme_current_thread->suspend_break)
+    abort();
+#endif
+}
 
 /* globals */
 int scheme_defining_primitives; /* set to 1 during start-up */