コード例 #1
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);; 
}
コード例 #2
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_29(void *data, int argc, closure _,object args_739) {
  
closureN_type c_73215;
c_73215.hdr.mark = gc_color_red;
 c_73215.hdr.grayed = 0;
c_73215.tag = closureN_tag;
 c_73215.fn = (function_type)__lambda_27;
c_73215.num_args = 0;
c_73215.num_elements = 1;
c_73215.elements = (object *)alloca(sizeof(object) * 1);
c_73215.elements[0] = args_739;


mclosure0(c_73227, (function_type)__lambda_28);c_73227.num_args = 1;
return_closcall1(data,(closure)&c_73215,  &c_73227);; 
}
コード例 #3
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
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);; 
}
コード例 #4
0
ファイル: macros.c プロジェクト: ofosos/cyclone-bootstrap
static void __lambda_8(void *data, int argc, object self_7392, object r_7364) {
  
closureN_type c_73119;
c_73119.hdr.mark = gc_color_red;
 c_73119.hdr.grayed = 0;
c_73119.tag = closureN_tag;
 c_73119.fn = (function_type)__lambda_5;
c_73119.num_args = 1;
c_73119.num_elements = 4;
c_73119.elements = (object *)alloca(sizeof(object) * 4);
c_73119.elements[0] = ((closureN)self_7392)->elements[0];
c_73119.elements[1] = ((closureN)self_7392)->elements[1];
c_73119.elements[2] = ((closureN)self_7392)->elements[2];
c_73119.elements[3] = r_7364;


mclosure0(c_73131, (function_type)__lambda_7);c_73131.num_args = 1;
return_closcall1(data,(closure)&c_73119,  &c_73131);; 
}
コード例 #5
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]));; 
}
コード例 #6
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_30(void *data, int argc, object self_7370, object r_7318) {
  mclosure0(c_73230,__lambda_29); object c_73231 = Cyc_command_line_arguments(data,&c_73230);
return_direct1(data,__lambda_29,c_73231);; 
}
コード例 #7
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
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);; 
}
コード例 #8
0
ファイル: icyc.c プロジェクト: justinethier/cyclone-bootstrap
static void __lambda_33(void *data, int argc, object self_7368, object r_7316) {
  
mclosure0(c_73209, (function_type)__lambda_32);c_73209.num_args = 1;
return_closcall1(data,  __glo_setup_91environment_scheme_eval,  &c_73209);; 
}