Back to index

plt-scheme  4.2.1
mzeqchk.inc
Go to the documentation of this file.
00001 
00002     if (!--equal_counter) {
00003       equal_counter = EQUAL_COUNT_START;
00004       SCHEME_USE_FUEL(EQUAL_COUNT_START);
00005     
00006 #ifdef DO_STACK_CHECK
00007       {
00008 #include "mzstkchk.h"
00009         return is_equal_overflow(obj1, obj2, eql);
00010       }
00011 #endif
00012     }