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