Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
37 lines (30 sloc) 718 Bytes
#include "object.h"
#include "sform.h"
#include "intcache.h"
#include "charcache.h"
#define CALL_WITH_CHECK(fn) \
ret = fn(); \
if (ret != 0) { \
return ret; \
}
int init_obj(void) {
int ret;
CALL_WITH_CHECK(intcache_init);
CALL_WITH_CHECK(charcache_init);
CALL_WITH_CHECK(boolean_init);
CALL_WITH_CHECK(eof_init);
CALL_WITH_CHECK(empty_list_init);
CALL_WITH_CHECK(symbol_init);
CALL_WITH_CHECK(sform_init);
CALL_WITH_CHECK(env_frame_init);
return 0;
}
void dispose_obj(void) {
symbol_dispose();
boolean_dispose();
empty_list_dispose();
eof_dispose();
intcache_dispose();
charcache_dispose();
env_frame_dispose();
}
Jump to Line
Something went wrong with that request. Please try again.