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); }
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; }