Esempio n. 1
0
static void __lambda_15(void *data, int argc, object self_7359, object old_734, object new_733) {
  
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_11;
c_73123.num_args = 0;
c_73123.num_elements = 1;
c_73123.elements = (object *)alloca(sizeof(object) * 1);
c_73123.elements[0] = new_733;


closureN_type c_73127;
c_73127.hdr.mark = gc_color_red;
 c_73127.hdr.grayed = 0;
c_73127.tag = closureN_tag;
 c_73127.fn = (function_type)__lambda_14;
c_73127.num_args = 0;
c_73127.num_elements = 1;
c_73127.elements = (object *)alloca(sizeof(object) * 1);
c_73127.elements[0] = old_734;

return_closcall4(data,  __glo_dynamic_91wind_scheme_base,  ((closureN)self_7359)->elements[0], &c_73123, ((closureN)self_7359)->elements[1], &c_73127);; 
}
Esempio n. 2
0
static void __lambda_4(void *data, int argc, object self_7396, object 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_3;
c_73123.num_args = 1;
c_73123.num_elements = 1;
c_73123.elements = (object *)alloca(sizeof(object) * 1);
c_73123.elements[0] = ((closureN)self_7396)->elements[1];

return_closcall4(data,  __glo_env_117extend_91environment_scheme_cyclone_util,  &c_73123, ((closureN)self_7396)->elements[2], r_7365, ((closureN)self_7396)->elements[0]);; 
}
Esempio n. 3
0
static void __lambda_11(void *data, int argc, object self_7387, object r_7331) {
  
closureN_type c_73147;
c_73147.hdr.mark = gc_color_red;
 c_73147.hdr.grayed = 0;
c_73147.tag = closureN_tag;
 c_73147.fn = (function_type)__lambda_10;
c_73147.num_args = 1;
c_73147.num_elements = 1;
c_73147.elements = (object *)alloca(sizeof(object) * 1);
c_73147.elements[0] = ((closureN)self_7387)->elements[0];


make_string(c_73179, "ast:set-lambda-body!");
return_closcall4(data,  __glo_make_91setter_scheme_base,  &c_73147, &c_73179, __glo__121lambda_91ast_125_scheme_cyclone_ast, r_7331);; 
}
Esempio n. 4
0
static void __lambda_17(void *data, int argc, object self_7381, object r_7337) {
  
closureN_type c_73135;
c_73135.hdr.mark = gc_color_red;
 c_73135.hdr.grayed = 0;
c_73135.tag = closureN_tag;
 c_73135.fn = (function_type)__lambda_16;
c_73135.num_args = 1;
c_73135.num_elements = 1;
c_73135.elements = (object *)alloca(sizeof(object) * 1);
c_73135.elements[0] = ((closureN)self_7381)->elements[0];


make_string(c_73185, "ast:lambda-body");
return_closcall4(data,  __glo_make_91getter_scheme_base,  &c_73135, &c_73185, __glo__121lambda_91ast_125_scheme_cyclone_ast, r_7337);; 
}
Esempio n. 5
0
static void __lambda_20(void *data, int argc, object self_7378, object r_7340) {
  
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_19;
c_73129.num_args = 1;
c_73129.num_elements = 1;
c_73129.elements = (object *)alloca(sizeof(object) * 1);
c_73129.elements[0] = ((closureN)self_7378)->elements[0];


make_string(c_73188, "ast:lambda-args");
return_closcall4(data,  __glo_make_91getter_scheme_base,  &c_73129, &c_73188, __glo__121lambda_91ast_125_scheme_cyclone_ast, r_7340);; 
}
Esempio n. 6
0
static void __lambda_28(void *data, int argc, closure _,object k_7311) {
  Cyc_st_add(data, "scheme/cyclone/ast.sld:lib-init:schemecycloneast");

closureN_type c_73113;
c_73113.hdr.mark = gc_color_red;
 c_73113.hdr.grayed = 0;
c_73113.tag = closureN_tag;
 c_73113.fn = (function_type)__lambda_27;
c_73113.num_args = 1;
c_73113.num_elements = 1;
c_73113.elements = (object *)alloca(sizeof(object) * 1);
c_73113.elements[0] = k_7311;


make_pair(c_73198,quote_body,NULL);

make_pair(c_73197,quote_args,&c_73198);

make_pair(c_73196,quote_id,&c_73197);
return_closcall4(data,  __glo_register_91simple_91type_scheme_base,  &c_73113, __glo__121lambda_91ast_125_scheme_cyclone_ast, boolean_f, &c_73196);; 
}
Esempio n. 7
0
static void __lambda_16(void *data, int argc, object self_7389, object r_7333) {
  return_closcall4(data,  Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_7389)->elements[2])),  ((closureN)self_7389)->elements[1], ((closureN)self_7389)->elements[0], r_7333, __glo_Cyc_91er_91compare_127_scheme_cyclone_util);; 
}
Esempio n. 8
0
static void __lambda_31(void *data, int argc, closure _,object r_7317) {
  
mclosure0(c_73212, (function_type)__lambda_30);c_73212.num_args = 1;
return_closcall4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util,  &c_73212, quote_load, __glo_load2, __glo__85icyc_91env_85);; 
}
Esempio n. 9
0
static void __lambda_0(void *data, int argc, object self_7397, object r_7351) {
  return_closcall4(data,  __glo_ast_117_75make_91lambda_scheme_cyclone_ast,  ((closureN)self_7397)->elements[2], __glo__85lambda_91id_85_scheme_cyclone_ast, ((closureN)self_7397)->elements[0], ((closureN)self_7397)->elements[1]);; 
}