C++ (Cpp) return_closcall5 Examples

Example #1

File: macros.c Project: ofosos/cyclone-bootstrap

static void __lambda_18(void *data, int argc, object self_7387, object r_7338) {
  
closureN_type c_73197;
c_73197.hdr.mark = gc_color_red;
 c_73197.hdr.grayed = 0;
c_73197.tag = closureN_tag;
 c_73197.fn = (function_type)__lambda_17;
c_73197.num_args = 1;
c_73197.num_elements = 2;
c_73197.elements = (object *)alloca(sizeof(object) * 2);
c_73197.elements[0] = ((closureN)self_7387)->elements[0];
c_73197.elements[1] = ((closureN)self_7387)->elements[1];

return_closcall5(data,  __glo__list_scheme_base,  &c_73197, Cyc_get_cvar(Cyc_cadr(data, ((closureN)self_7387)->elements[2])), ((closureN)self_7387)->elements[3], r_7338, __glo_Cyc_91er_91compare_127_scheme_cyclone_util);; 
}

Example #2

File: ast.c Project: justinethier/cyclone-bootstrap

static void __lambda_3(void *data, int argc, object self_7395, object r_7328) {
  
closureN_type c_73167;
c_73167.hdr.mark = gc_color_red;
 c_73167.hdr.grayed = 0;
c_73167.tag = closureN_tag;
 c_73167.fn = (function_type)__lambda_2;
c_73167.num_args = 1;
c_73167.num_elements = 2;
c_73167.elements = (object *)alloca(sizeof(object) * 2);
c_73167.elements[0] = ((closureN)self_7395)->elements[1];
c_73167.elements[1] = ((closureN)self_7395)->elements[2];

return_closcall5(data,  __glo_slot_91set_67_scheme_base,  &c_73167, __glo__121lambda_91ast_125_scheme_cyclone_ast, ((closureN)self_7395)->elements[2], r_7328, ((closureN)self_7395)->elements[0]);; 
}