1 
2 #if 1
3 /* Normal version: */
4 # define PUSH_RUNSTACK(p, r, amt) (r -= amt)
5 # define CHECK_RUNSTACK(p, r) /**/
6 #else
7 /* Debugging version: */
8 # define PUSH_RUNSTACK(p, r, amt) (r -= amt, CHECK_RUNSTACK(p, r), r)
9 # define CHECK_RUNSTACK(p, r) \
10   ((((uintptr_t)r) < ((uintptr_t)MZ_RUNSTACK_START)) \
11    ? (scheme_signal_error("internal error: runstack overflow!"), 0) \
12    : 0)
13 #endif
14