コード例 #1
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_27(void *data, int argc, object self_7372, object k_7321) {
    object c_73218 = Cyc_num_fast_eq_op(data,Cyc_length(data, ((closureN)self_7372)->elements[0]), obj_int2obj(1));
if( (boolean_f != c_73218) ){ 
  return_closcall3(data,  __glo_load_scheme_load,  k_7321, Cyc_car(data, ((closureN)self_7372)->elements[0]), __glo__85icyc_91env_85);
} else { 
  return_closcall1(data,  k_7321,  boolean_f);}
; 
}
コード例 #2
0
ファイル: ast.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_12(void *data, int argc, object self_7386, object r_7319) {
  
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_11;
c_73145.num_args = 1;
c_73145.num_elements = 1;
c_73145.elements = (object *)alloca(sizeof(object) * 1);
c_73145.elements[0] = ((closureN)self_7386)->elements[0];

return_closcall3(data,  __glo_type_91slot_91offset_scheme_base,  &c_73145, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_body);; 
}
コード例 #3
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_23(void *data, int argc, object self_7374, object r_7339) {
  
closureN_type c_73187;
c_73187.hdr.mark = gc_color_red;
 c_73187.hdr.grayed = 0;
c_73187.tag = closureN_tag;
 c_73187.fn = (function_type)__lambda_22;
c_73187.num_args = 1;
c_73187.num_elements = 1;
c_73187.elements = (object *)alloca(sizeof(object) * 1);
c_73187.elements[0] = ((closureN)self_7374)->elements[0];

return_closcall3(data,  __glo_eval_scheme_eval,  &c_73187, r_7339, __glo__85icyc_91env_85);; 
}
コード例 #4
0
ファイル: ast.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_26(void *data, int argc, object self_7372, object r_7313) {
  
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_25;
c_73117.num_args = 1;
c_73117.num_elements = 1;
c_73117.elements = (object *)alloca(sizeof(object) * 1);
c_73117.elements[0] = ((closureN)self_7372)->elements[0];

return_closcall3(data,  __glo_make_91type_91predicate_scheme_base,  &c_73117, __glo_ast_117lambda_127_scheme_cyclone_ast, __glo__121lambda_91ast_125_scheme_cyclone_ast);; 
}
コード例 #5
0
ファイル: ast.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_5(void *data, int argc, object self_7393, object r_7325) {
  
closureN_type c_73163;
c_73163.hdr.mark = gc_color_red;
 c_73163.hdr.grayed = 0;
c_73163.tag = closureN_tag;
 c_73163.fn = (function_type)__lambda_4;
c_73163.num_args = 1;
c_73163.num_elements = 3;
c_73163.elements = (object *)alloca(sizeof(object) * 3);
c_73163.elements[0] = ((closureN)self_7393)->elements[1];
c_73163.elements[1] = ((closureN)self_7393)->elements[2];
c_73163.elements[2] = ((closureN)self_7393)->elements[3];

return_closcall3(data,  __glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast,  &c_73163, ((closureN)self_7393)->elements[3], ((closureN)self_7393)->elements[0]);; 
}
コード例 #6
0
ファイル: ast.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_9(void *data, int argc, object self_7389, object r_7320) {
  
closureN_type c_73151;
c_73151.hdr.mark = gc_color_red;
 c_73151.hdr.grayed = 0;
c_73151.tag = closureN_tag;
 c_73151.fn = (function_type)__lambda_8;
c_73151.num_args = 1;
c_73151.num_elements = 1;
c_73151.elements = (object *)alloca(sizeof(object) * 1);
c_73151.elements[0] = ((closureN)self_7389)->elements[0];


make_string(c_73176, "ast:%make-lambda");
return_closcall3(data,  __glo_make_91constructor_scheme_base,  &c_73151, &c_73176, __glo__121lambda_91ast_125_scheme_cyclone_ast);; 
}
コード例 #7
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
static void __lambda_20(void *data, int argc, object self_7385, object r_7339) {
  
closureN_type c_73193;
c_73193.hdr.mark = gc_color_red;
 c_73193.hdr.grayed = 0;
c_73193.tag = closureN_tag;
 c_73193.fn = (function_type)__lambda_19;
c_73193.num_args = 1;
c_73193.num_elements = 3;
c_73193.elements = (object *)alloca(sizeof(object) * 3);
c_73193.elements[0] = ((closureN)self_7385)->elements[1];
c_73193.elements[1] = ((closureN)self_7385)->elements[2];
c_73193.elements[2] = ((closureN)self_7385)->elements[3];

return_closcall3(data,  __glo__list_scheme_base,  &c_73193, r_7339, ((closureN)self_7385)->elements[0]);; 
}
コード例 #8
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
static void __lambda_5(void *data, int argc, object self_7395, object r_7366) {
  
closureN_type c_73121;
c_73121.hdr.mark = gc_color_red;
 c_73121.hdr.grayed = 0;
c_73121.tag = closureN_tag;
 c_73121.fn = (function_type)__lambda_4;
c_73121.num_args = 1;
c_73121.num_elements = 3;
c_73121.elements = (object *)alloca(sizeof(object) * 3);
c_73121.elements[0] = ((closureN)self_7395)->elements[0];
c_73121.elements[1] = ((closureN)self_7395)->elements[2];
c_73121.elements[2] = ((closureN)self_7395)->elements[3];

return_closcall3(data,  __glo_map_scheme_base,  &c_73121, r_7366, ((closureN)self_7395)->elements[1]);; 
}
コード例 #9
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_17(void *data, int argc, object self_7379, object k_7345, object k_7312) {
  
closureN_type c_73104;
c_73104.hdr.mark = gc_color_red;
 c_73104.hdr.grayed = 0;
c_73104.tag = closureN_tag;
 c_73104.fn = (function_type)__lambda_15;
c_73104.num_args = 1;
c_73104.num_elements = 1;
c_73104.elements = (object *)alloca(sizeof(object) * 1);
c_73104.elements[0] = k_7312;


mclosure0(c_73179, (function_type)__lambda_16);c_73179.num_args = 0;
return_closcall3(data,  __glo_with_91exception_91handler_scheme_base,  k_7345, &c_73104, &c_73179);; 
}
コード例 #10
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
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);; 
}
コード例 #11
0
ファイル: ast.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_6(void *data, int argc, object self_7392, object res_736) {
  
closureN_type c_73161;
c_73161.hdr.mark = gc_color_red;
 c_73161.hdr.grayed = 0;
c_73161.tag = closureN_tag;
 c_73161.fn = (function_type)__lambda_5;
c_73161.num_args = 1;
c_73161.num_elements = 4;
c_73161.elements = (object *)alloca(sizeof(object) * 4);
c_73161.elements[0] = ((closureN)self_7392)->elements[0];
c_73161.elements[1] = ((closureN)self_7392)->elements[2];
c_73161.elements[2] = ((closureN)self_7392)->elements[3];
c_73161.elements[3] = res_736;

return_closcall3(data,  __glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast,  &c_73161, res_736, ((closureN)self_7392)->elements[1]);; 
}
コード例 #12
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
static void __lambda_21(void *data, int argc, object self_7384, object compiled_91macro_127_7312) {
  if( (boolean_f != ((closureN)self_7384)->elements[3]) ){ 
  if( (boolean_f != compiled_91macro_127_7312) ){ 
  
closureN_type c_73180;
c_73180.hdr.mark = gc_color_red;
 c_73180.hdr.grayed = 0;
c_73180.tag = closureN_tag;
 c_73180.fn = (function_type)__lambda_16;
c_73180.num_args = 1;
c_73180.num_elements = 3;
c_73180.elements = (object *)alloca(sizeof(object) * 3);
c_73180.elements[0] = ((closureN)self_7384)->elements[0];
c_73180.elements[1] = ((closureN)self_7384)->elements[1];
c_73180.elements[2] = ((closureN)self_7384)->elements[3];

return_closcall2(data,  __glo_Cyc_91er_91rename_scheme_cyclone_util,  &c_73180, ((closureN)self_7384)->elements[2]);
} else { 
  
closureN_type c_73191;
c_73191.hdr.mark = gc_color_red;
 c_73191.hdr.grayed = 0;
c_73191.tag = closureN_tag;
 c_73191.fn = (function_type)__lambda_20;
c_73191.num_args = 1;
c_73191.num_elements = 4;
c_73191.elements = (object *)alloca(sizeof(object) * 4);
c_73191.elements[0] = ((closureN)self_7384)->elements[0];
c_73191.elements[1] = ((closureN)self_7384)->elements[1];
c_73191.elements[2] = ((closureN)self_7384)->elements[2];
c_73191.elements[3] = ((closureN)self_7384)->elements[3];

return_closcall1(data,(closure)&c_73191,  quote_quote);}

} else { 
  
make_string(c_73211, "macro not found");
return_closcall3(data,  __glo_error_scheme_base,  ((closureN)self_7384)->elements[1], &c_73211, ((closureN)self_7384)->elements[0]);}
; 
}
コード例 #13
0
ファイル: file.c プロジェクト: justinethier/cyclone-bootstrap
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);; 
}
コード例 #14
0
ファイル: file.c プロジェクト: justinethier/cyclone-bootstrap
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);; 
}
コード例 #15
0
ファイル: file.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_2(void *data, int argc, object self_7371, object k_7343) {
  return_closcall3(data,  __glo_current_91input_91port_scheme_base,  k_7343, quote__121param_91set_67_125, ((closureN)self_7371)->elements[0]);; 
}
コード例 #16
0
ファイル: file.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_3(void *data, int argc, object self_7370, object r_7340) {
  return_closcall3(data,  __glo_current_91input_91port_scheme_base,  ((closureN)self_7370)->elements[0], quote__121param_91set_67_125, ((closureN)self_7370)->elements[1]);; 
}
コード例 #17
0
ファイル: file.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_11(void *data, int argc, object self_7363, object k_7327) {
  return_closcall3(data,  __glo_current_91output_91port_scheme_base,  k_7327, quote__121param_91set_67_125, ((closureN)self_7363)->elements[0]);; 
}
コード例 #18
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
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]));; 
}
コード例 #19
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
static void __lambda_12(void *data, int argc, object self_7391, object r_7353) {
  return_closcall3(data,  __glo_tagged_91list_127_scheme_cyclone_util,  ((closureN)self_7391)->elements[1], r_7353, ((closureN)self_7391)->elements[0]);; 
}
コード例 #20
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
static void __lambda_17(void *data, int argc, object self_7388, object r_7335) {
  return_closcall3(data,  __glo_eval_scheme_eval,  ((closureN)self_7388)->elements[0], r_7335, ((closureN)self_7388)->elements[1]);; 
}
コード例 #21
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
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]));; 
}
コード例 #22
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
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);; 
}