suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

turn off zero-suspend-break assertion

Browse Source 
svn: r4770
This commit is contained in:
Matthew Flatt 2006-11-03 21:53:11 +00:00
parent 67fd787c3a
commit eea7a2376c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/fun.c
View File

@ -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 */