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