Back to index

plt-scheme  4.2.1
mzhashchk.inc
Go to the documentation of this file.
00001 
00002     if (!--hash_counter) {
00003       hash_counter = HASH_COUNT_START;
00004       SCHEME_USE_FUEL(HASH_COUNT_START);
00005     
00006 #ifdef DO_STACK_CHECK
00007       {
00008 #include "mzstkchk.h"
00009         return OVERFLOW_HASH();
00010       }
00011 #endif
00012     }