Back to index

plt-scheme  4.2.1
schrunst.h
Go to the documentation of this file.
00001 
00002 #if 1
00003 /* Normal version: */
00004 # define PUSH_RUNSTACK(p, r, amt) (r -= amt)
00005 # define CHECK_RUNSTACK(p, r) 
00006 #else
00007 /* Debugging version: */
00008 # define PUSH_RUNSTACK(p, r, amt) (r -= amt, CHECK_RUNSTACK(p, r), r)
00009 # define CHECK_RUNSTACK(p, r) \
00010   ((((unsigned long)r) < ((unsigned long)MZ_RUNSTACK_START)) \
00011    ? (scheme_signal_error("internal error: runstack overflow!"), 0) \
00012    : 0)
00013 #endif