Пример #1
0
tm_obj stream_new(FILE* fp){
	tm_stream* st = tm_alloc(sizeof(tm_stream));
	st->fp = fp;
	st->name = obj_none;
	tm_obj o;
	o.type = TM_STREAM;
	o.value.stream = st;
	return gc_track(o);
}
Пример #2
0
atom_t *new_atom(const atom_type_t type) {
	atom_t *atom = new atom_t;

	atom->type   = type;
	atom->markId = 0;

	gc_track(atom);

	return atom;
}