예제 #1
0
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])));; 
}
예제 #2
0
static void __lambda_6(void *data, int argc, object self_7394, object r_7368) {
  return_closcall3(data,  __glo__list_scheme_base,  ((closureN)self_7394)->elements[0], r_7368, Cyc_cdr(data, ((closureN)self_7394)->elements[1]));; 
}