static void __lambda_27(void *data, int argc, closure _,object k_7323) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:lib-init:schemecyclonemacros");
closureN_type c_73217;
c_73217.hdr.mark = gc_color_red;
c_73217.hdr.grayed = 0;
c_73217.tag = closureN_tag;
c_73217.fn = (function_type)__lambda_26;
c_73217.num_args = 1;
c_73217.num_elements = 1;
c_73217.elements = (object *)alloca(sizeof(object) * 1);
c_73217.elements[0] = k_7323;
return_closcall1(data,(closure)&c_73217, NULL);;
}
static void __lambda_13(void *data, int argc, closure _,object k_7352, object exp_7315) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:define-syntax?");
closureN_type c_73145;
c_73145.hdr.mark = gc_color_red;
c_73145.hdr.grayed = 0;
c_73145.tag = closureN_tag;
c_73145.fn = (function_type)__lambda_12;
c_73145.num_args = 1;
c_73145.num_elements = 2;
c_73145.elements = (object *)alloca(sizeof(object) * 2);
c_73145.elements[0] = exp_7315;
c_73145.elements[1] = k_7352;
return_closcall1(data,(closure)&c_73145, quote_define_91syntax);;
}
static void __lambda_9(void *data, int argc, closure _,object k_7362, object defined_91macros_7317, object base_91env_7316) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:load-env!");
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_8;
c_73117.num_args = 1;
c_73117.num_elements = 3;
c_73117.elements = (object *)alloca(sizeof(object) * 3);
c_73117.elements[0] = base_91env_7316;
c_73117.elements[1] = defined_91macros_7317;
c_73117.elements[2] = k_7362;
return_closcall3(data, __glo_map_scheme_base, &c_73117, primitive_car, defined_91macros_7317);;
}
static void __lambda_18(void *data, int argc, closure _,object k_7342) {
Cyc_st_add(data, "icyc.scm:repl:next-line");
closureN_type c_7399;
c_7399.hdr.mark = gc_color_red;
c_7399.hdr.grayed = 0;
c_7399.tag = closureN_tag;
c_7399.fn = (function_type)__lambda_0;
c_7399.num_args = 1;
c_7399.num_elements = 1;
c_7399.elements = (object *)alloca(sizeof(object) * 1);
c_7399.elements[0] = k_7342;
mclosure0(c_73102, (function_type)__lambda_17);c_73102.num_args = 1;
return_closcall2(data, __glo_call_95cc_scheme_base, &c_7399, &c_73102);;
}
static void __lambda_25(void *data, int argc, closure _,object k_7332) {
Cyc_st_add(data, "icyc.scm:repl");
closureN_type c_73183;
c_73183.hdr.mark = gc_color_red;
c_73183.hdr.grayed = 0;
c_73183.tag = closureN_tag;
c_73183.fn = (function_type)__lambda_24;
c_73183.num_args = 1;
c_73183.num_elements = 1;
c_73183.elements = (object *)alloca(sizeof(object) * 1);
c_73183.elements[0] = k_7332;
make_string(c_73203, "cyclone> ");
return_closcall2(data, __glo_display_scheme_write, &c_73183, &c_73203);;
}
static void __lambda_10(void *data, int argc, closure _,object k_7334, object string_736, object thunk_735) {
Cyc_st_add(data, "scheme/file.sld:with-input-from-file");
closureN_type c_7384;
c_7384.hdr.mark = gc_color_red;
c_7384.hdr.grayed = 0;
c_7384.tag = closureN_tag;
c_7384.fn = (function_type)__lambda_9;
c_7384.num_args = 1;
c_7384.num_elements = 3;
c_7384.elements = (object *)alloca(sizeof(object) * 3);
c_7384.elements[0] = k_7334;
c_7384.elements[1] = string_736;
c_7384.elements[2] = thunk_735;
return_closcall1(data, __glo_current_91input_91port_scheme_base, &c_7384);;
}
static void __lambda_23(void *data, int argc, closure _,object k_7330, object exp_7310, object macro_739, object mac_91env_738) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:expand");
closureN_type c_73157;
c_73157.hdr.mark = gc_color_red;
c_73157.hdr.grayed = 0;
c_73157.tag = closureN_tag;
c_73157.fn = (function_type)__lambda_22;
c_73157.num_args = 1;
c_73157.num_elements = 4;
c_73157.elements = (object *)alloca(sizeof(object) * 4);
c_73157.elements[0] = exp_7310;
c_73157.elements[1] = k_7330;
c_73157.elements[2] = mac_91env_738;
c_73157.elements[3] = macro_739;
return_closcall1(data,(closure)&c_73157, Cyc_cadr(data, macro_739));;
}
static void __lambda_1(void *data, int argc, closure _,object k_7350, object args_738, object body_737) {
Cyc_st_add(data, "scheme/cyclone/ast.sld:ast:make-lambda");
closureN_type c_73100;
c_73100.hdr.mark = gc_color_red;
c_73100.hdr.grayed = 0;
c_73100.tag = closureN_tag;
c_73100.fn = (function_type)__lambda_0;
c_73100.num_args = 1;
c_73100.num_elements = 3;
c_73100.elements = (object *)alloca(sizeof(object) * 3);
c_73100.elements[0] = args_738;
c_73100.elements[1] = body_737;
c_73100.elements[2] = k_7350;
common_type local_73109; object c_73110 = Cyc_fast_sum(data,&local_73109,obj_int2obj(1), __glo__85lambda_91id_85_scheme_cyclone_ast);
return_closcall1(data,(closure)&c_73100, global_set(__glo__85lambda_91id_85_scheme_cyclone_ast, c_73110));;
}
static void __lambda_2(void *data, int argc, closure _,object k_7372, object name_7320, object body_7319) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:add!");
closureN_type c_73102;
c_73102.hdr.mark = gc_color_red;
c_73102.hdr.grayed = 0;
c_73102.tag = closureN_tag;
c_73102.fn = (function_type)__lambda_1;
c_73102.num_args = 1;
c_73102.num_elements = 1;
c_73102.elements = (object *)alloca(sizeof(object) * 1);
c_73102.elements[0] = k_7372;
make_pair(c_73114,name_7320, body_7319);
make_pair(c_73111,&c_73114, __glo__85macro_117defined_91macros_85_scheme_cyclone_macros);
return_closcall1(data,(closure)&c_73102, &c_73111);;
}
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);;
}
static void __lambda_0(void *data, int argc, closure _,object k_7354, object string_7312, object proc_7311) {
Cyc_st_add(data, "scheme/file.sld:call-with-input-file");
port_type c_7376 = Cyc_io_open_input_file(data,string_7312);
return_closcall3(data, __glo_call_91with_91port_scheme_base, k_7354, &c_7376, proc_7311);;
}
static void __lambda_26(void *data, int argc, closure _,object k_7329, object f_7310) {
Cyc_st_add(data, "icyc.scm:load2");
return_closcall3(data, __glo_load_scheme_load, k_7329, f_7310, __glo__85icyc_91env_85);;
}
static void __lambda_1(void *data, int argc, closure _,object k_7350, object string_7310, object proc_739) {
Cyc_st_add(data, "scheme/file.sld:call-with-output-file");
port_type c_7381 = Cyc_io_open_output_file(data,string_7310);
return_closcall3(data, __glo_call_91with_91port_scheme_base, k_7350, &c_7381, proc_739);;
}
static void __lambda_6(void *data, int argc, closure _,object k_7311) {
Cyc_st_add(data, "scheme/complex.sld:lib-init:schemecomplex");
return_closcall1(data, k_7311, obj_int2obj(0));;
}
static void __lambda_20(void *data, int argc, closure _,object k_7315) {
Cyc_st_add(data, "scheme/file.sld:lib-init:schemefile");
return_closcall1(data, k_7315, obj_int2obj(0));;
}
static void __lambda_10(void *data, int argc, closure _,object k_7359) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:get-env");
return_closcall1(data, k_7359, __glo__85macro_117env_85_scheme_cyclone_macros);;
}
static void __lambda_4(void *data, int argc, closure _,object k_7317, object x_734, object y_733) {
Cyc_st_add(data, "scheme/complex.sld:make-rectangular");
make_string(c_7342, "Complex numbers are not supported at this time");
return_closcall2(data, __glo_error_scheme_base, k_7317, &c_7342);;
}
static void __lambda_11(void *data, int argc, closure _,object k_7356) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:get-defined-macros");
return_closcall1(data, k_7356, __glo__85macro_117defined_91macros_85_scheme_cyclone_macros);;
}
static void __lambda_2(void *data, int argc, closure _,object k_7323, object z_736) {
Cyc_st_add(data, "scheme/complex.sld:angle");
make_string(c_7336, "Complex numbers are not supported at this time");
return_closcall2(data, __glo_error_scheme_base, k_7323, &c_7336);;
}
static void __lambda_14(void *data, int argc, closure _,object k_7348, object exp_7314, object defined_91macros_7313) {
Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:macro?");
return_closcall1(data, k_7348, assoc(data, Cyc_car(data, exp_7314), defined_91macros_7313));;
}
static void __lambda_1(void *data, int argc, closure _,object k_7326, object x_737) {
Cyc_st_add(data, "scheme/complex.sld:imag-part");
return_closcall1(data, k_7326, obj_int2obj(0));;
}
static void __lambda_0(void *data, int argc, closure _,object k_7329, object x_738) {
Cyc_st_add(data, "scheme/complex.sld:real-part");
return_closcall1(data, k_7329, x_738);;
}
