예제 #1
0
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
static void __lambda_6(void *data, int argc, object self_7390, object k_7359) {
  
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 = 2;
c_73119.elements = (object *)alloca(sizeof(object) * 2);
c_73119.elements[0] = k_7359;
c_73119.elements[1] = ((closureN)self_7390)->elements[0];

return_closcall1(data,(closure)&c_73119,  Cyc_car(data, cell_get(((closureN)self_7390)->elements[0])));; 
}
예제 #3
0
static void __lambda_5(void *data, int argc, object self_7391, object r_7365) {
  if( (boolean_f != Cyc_is_string(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_4;
c_73123.num_args = 1;
c_73123.num_elements = 2;
c_73123.elements = (object *)alloca(sizeof(object) * 2);
c_73123.elements[0] = ((closureN)self_7391)->elements[0];
c_73123.elements[1] = ((closureN)self_7391)->elements[1];

return_closcall1(data,(closure)&c_73123,  Cyc_car(data, cell_get(((closureN)self_7391)->elements[1])));
} else { 
  return_closcall1(data,  ((closureN)self_7391)->elements[0],  boolean_f);}
; 
}
예제 #4
0
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));; 
}