static void __lambda_10(void *data, int argc, object self_7386, object k_7353) { if( (boolean_f != Cyc_is_pair(cell_get(((closureN)self_7386)->elements[0]))) ){ closureN_type c_73117; c_73117.hdr.mark = gc_color_red; c_73117.hdr.grayed = 0; c_73117.tag = closureN_tag; c_73117.fn = (function_type)__lambda_6; c_73117.num_args = 0; c_73117.num_elements = 1; c_73117.elements = (object *)alloca(sizeof(object) * 1); c_73117.elements[0] = ((closureN)self_7386)->elements[0]; closureN_type c_73153; c_73153.hdr.mark = gc_color_red; c_73153.hdr.grayed = 0; c_73153.tag = closureN_tag; c_73153.fn = (function_type)__lambda_9; c_73153.num_args = 1; c_73153.num_elements = 2; c_73153.elements = (object *)alloca(sizeof(object) * 2); c_73153.elements[0] = k_7353; c_73153.elements[1] = ((closureN)self_7386)->elements[0]; return_closcall1(data,(closure)&c_73117, &c_73153); } else { return_closcall2(data, __glo_display_scheme_write, k_7353, cell_get(((closureN)self_7386)->elements[0]));} ; }
Cell * cell_get_next (Cell *in_cell) { if (cell_size(in_cell) == 0) { return NULL; } if (in_cell->next != NULL) { return in_cell->next; } offset ofs = offset_make_relative(cell_get_offset(in_cell), cell_size(in_cell)); if (!offset_is_valid(ofs)) { return NULL; } if (!bin_within(cell_get_bin(in_cell), ofs)) { return NULL; } Cell *next = cell_get(cell_get_hive(in_cell), cell_get_bin(in_cell), ofs); in_cell->next = next; return next; }
static void __lambda_2(void *data, int argc, object self_7394, object r_7362) { closureN_type c_73129; c_73129.hdr.mark = gc_color_red; c_73129.hdr.grayed = 0; c_73129.tag = closureN_tag; c_73129.fn = (function_type)__lambda_1; c_73129.num_args = 1; c_73129.num_elements = 2; c_73129.elements = (object *)alloca(sizeof(object) * 2); c_73129.elements[0] = ((closureN)self_7394)->elements[0]; c_73129.elements[1] = ((closureN)self_7394)->elements[1]; return_closcall1(data,(closure)&c_73129, Cyc_cdr(data, cell_get(((closureN)self_7394)->elements[1])));; }
gboolean cell_init(Hive *hdesc, Bin *bin, offset data, guint32 data_len) { Cell *me = cell_get(hdesc, bin, data); me->b = bin; me->next = NULL; me->prev = NULL; get_data(me)->head.size = data_len; get_data(me)->head.id = 0; if (!cell_is_valid(me)) { return FALSE; } return TRUE; }
static void __lambda_5(void *data, int argc, object self_7391, object r_7365) { if( (boolean_f != Cyc_is_string(r_7365)) ){ closureN_type c_73123; c_73123.hdr.mark = gc_color_red; c_73123.hdr.grayed = 0; c_73123.tag = closureN_tag; c_73123.fn = (function_type)__lambda_4; c_73123.num_args = 1; c_73123.num_elements = 2; c_73123.elements = (object *)alloca(sizeof(object) * 2); c_73123.elements[0] = ((closureN)self_7391)->elements[0]; c_73123.elements[1] = ((closureN)self_7391)->elements[1]; return_closcall1(data,(closure)&c_73123, Cyc_car(data, cell_get(((closureN)self_7391)->elements[1]))); } else { return_closcall1(data, ((closureN)self_7391)->elements[0], boolean_f);} ; }
static void __lambda_9(void *data, int argc, object self_7387, object r_7355) { mclosure0(c_73156, (function_type)__lambda_8);c_73156.num_args = 1; return_closcall3(data, __glo_for_91each_scheme_base, ((closureN)self_7387)->elements[0], &c_73156, cell_get(((closureN)self_7387)->elements[1]));; }