mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
3929 lines
146 KiB
C
3929 lines
146 KiB
C
/**
|
|
** This file was automatically generated by the Cyclone scheme compiler
|
|
** http://justinethier.github.io/cyclone/
|
|
**
|
|
** (c) 2014-2021 Justin Ethier
|
|
** Version 0.25
|
|
**
|
|
**/
|
|
|
|
#define closcall1(td, clo,a1) \
|
|
if (obj_is_not_closure(clo)) { \
|
|
Cyc_apply(td, 0, (closure)(a1), clo); \
|
|
} else { \
|
|
((clo)->fn)(td, 1, clo,a1);\
|
|
}
|
|
#define return_closcall1(td, clo,a1) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[1]; buf[0] = a1;\
|
|
GC(td, clo, buf, 1); \
|
|
return; \
|
|
} else {\
|
|
closcall1(td, (closure) (clo),a1); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define continue_or_gc1(td, clo,a1) { \
|
|
char *top = alloca(sizeof(char)); \
|
|
if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[1]; buf[0] = a1;\
|
|
GC(td, clo, buf, 1); \
|
|
return; \
|
|
} else {\
|
|
continue;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct1(td, _fn,a1) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[1]; buf[0] = a1; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 1); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 1, (closure)_fn,a1); \
|
|
}}
|
|
|
|
#define return_direct_with_clo1(td, clo, _fn,a1) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[1]; buf[0] = a1;\
|
|
GC(td, clo, buf, 1); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 1, (closure)(clo),a1); \
|
|
}}
|
|
|
|
#define closcall2(td, clo,a1,a2) \
|
|
if (obj_is_not_closure(clo)) { \
|
|
Cyc_apply(td, 1, (closure)(a1), clo,a2); \
|
|
} else { \
|
|
((clo)->fn)(td, 2, clo,a1,a2);\
|
|
}
|
|
#define return_closcall2(td, clo,a1,a2) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[2]; buf[0] = a1;buf[1] = a2;\
|
|
GC(td, clo, buf, 2); \
|
|
return; \
|
|
} else {\
|
|
closcall2(td, (closure) (clo),a1,a2); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define continue_or_gc2(td, clo,a1,a2) { \
|
|
char *top = alloca(sizeof(char)); \
|
|
if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[2]; buf[0] = a1;buf[1] = a2;\
|
|
GC(td, clo, buf, 2); \
|
|
return; \
|
|
} else {\
|
|
continue;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct2(td, _fn,a1,a2) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[2]; buf[0] = a1;buf[1] = a2; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 2); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 2, (closure)_fn,a1,a2); \
|
|
}}
|
|
|
|
#define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[2]; buf[0] = a1;buf[1] = a2;\
|
|
GC(td, clo, buf, 2); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 2, (closure)(clo),a1,a2); \
|
|
}}
|
|
|
|
#define closcall3(td, clo,a1,a2,a3) \
|
|
if (obj_is_not_closure(clo)) { \
|
|
Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \
|
|
} else { \
|
|
((clo)->fn)(td, 3, clo,a1,a2,a3);\
|
|
}
|
|
#define return_closcall3(td, clo,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
|
|
GC(td, clo, buf, 3); \
|
|
return; \
|
|
} else {\
|
|
closcall3(td, (closure) (clo),a1,a2,a3); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define continue_or_gc3(td, clo,a1,a2,a3) { \
|
|
char *top = alloca(sizeof(char)); \
|
|
if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
|
|
GC(td, clo, buf, 3); \
|
|
return; \
|
|
} else {\
|
|
continue;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct3(td, _fn,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 3); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 3, (closure)_fn,a1,a2,a3); \
|
|
}}
|
|
|
|
#define return_direct_with_clo3(td, clo, _fn,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
|
|
GC(td, clo, buf, 3); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 3, (closure)(clo),a1,a2,a3); \
|
|
}}
|
|
|
|
#define closcall4(td, clo,a1,a2,a3,a4) \
|
|
if (obj_is_not_closure(clo)) { \
|
|
Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \
|
|
} else { \
|
|
((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\
|
|
}
|
|
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
|
|
GC(td, clo, buf, 4); \
|
|
return; \
|
|
} else {\
|
|
closcall4(td, (closure) (clo),a1,a2,a3,a4); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define continue_or_gc4(td, clo,a1,a2,a3,a4) { \
|
|
char *top = alloca(sizeof(char)); \
|
|
if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
|
|
GC(td, clo, buf, 4); \
|
|
return; \
|
|
} else {\
|
|
continue;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct4(td, _fn,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 4); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \
|
|
}}
|
|
|
|
#define return_direct_with_clo4(td, clo, _fn,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
|
|
GC(td, clo, buf, 4); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 4, (closure)(clo),a1,a2,a3,a4); \
|
|
}}
|
|
|
|
#include "cyclone/types.h"
|
|
extern object __glo_member_scheme_base;
|
|
extern object __glo_assoc_scheme_base;
|
|
extern object __glo_cons_91source_scheme_base;
|
|
extern object __glo_syntax_91rules_scheme_base;
|
|
extern object __glo_letrec_85_scheme_base;
|
|
extern object __glo_guard_scheme_base;
|
|
extern object __glo_guard_91aux_scheme_base;
|
|
extern object __glo_define_91record_91type_scheme_base;
|
|
extern object __glo_record_127_scheme_base;
|
|
extern object __glo_is_91a_127_scheme_base;
|
|
extern object __glo_register_91simple_91type_scheme_base;
|
|
extern object __glo_make_91type_91predicate_scheme_base;
|
|
extern object __glo_make_91constructor_scheme_base;
|
|
extern object __glo_make_91constructor_95args_scheme_base;
|
|
extern object __glo_make_91getter_scheme_base;
|
|
extern object __glo_make_91setter_scheme_base;
|
|
extern object __glo_slot_91ref_scheme_base;
|
|
extern object __glo_slot_91set_67_scheme_base;
|
|
extern object __glo_type_91slot_91offset_scheme_base;
|
|
extern object __glo_make_91record_91marker_scheme_base;
|
|
extern object __glo_receive_scheme_base;
|
|
extern object __glo_abs_scheme_base;
|
|
extern object __glo_max_scheme_base;
|
|
extern object __glo_min_scheme_base;
|
|
extern object __glo_modulo_scheme_base;
|
|
extern object __glo_floor_91remainder_scheme_base;
|
|
extern object __glo_even_127_scheme_base;
|
|
extern object __glo_exact_91integer_127_scheme_base;
|
|
extern object __glo_exact_91integer_91sqrt_scheme_base;
|
|
extern object __glo_exact_127_scheme_base;
|
|
extern object __glo_inexact_127_scheme_base;
|
|
extern object __glo_odd_127_scheme_base;
|
|
extern object __glo_complex_127_scheme_base;
|
|
extern object __glo_rational_127_scheme_base;
|
|
extern object __glo_bignum_127_scheme_base;
|
|
extern object __glo_gcd_scheme_base;
|
|
extern object __glo_lcm_scheme_base;
|
|
extern object __glo_quotient_scheme_base;
|
|
extern object __glo_remainder_scheme_base;
|
|
extern object __glo_truncate_91quotient_scheme_base;
|
|
extern object __glo_truncate_91remainder_scheme_base;
|
|
extern object __glo_truncate_95_scheme_base;
|
|
extern object __glo_floor_91quotient_scheme_base;
|
|
extern object __glo_floor_91remainder_scheme_base;
|
|
extern object __glo_floor_95_scheme_base;
|
|
extern object __glo_square_scheme_base;
|
|
extern object __glo_expt_scheme_base;
|
|
extern object __glo_call_91with_91current_91continuation_scheme_base;
|
|
extern object __glo_call_95cc_scheme_base;
|
|
extern object __glo_call_91with_91values_scheme_base;
|
|
extern object __glo_dynamic_91wind_scheme_base;
|
|
extern object __glo_values_scheme_base;
|
|
extern object __glo_char_123_127_scheme_base;
|
|
extern object __glo_char_121_127_scheme_base;
|
|
extern object __glo_char_125_127_scheme_base;
|
|
extern object __glo_char_121_123_127_scheme_base;
|
|
extern object __glo_char_125_123_127_scheme_base;
|
|
extern object __glo_string_123_127_scheme_base;
|
|
extern object __glo_string_121_127_scheme_base;
|
|
extern object __glo_string_121_123_127_scheme_base;
|
|
extern object __glo_string_125_127_scheme_base;
|
|
extern object __glo_string_125_123_127_scheme_base;
|
|
extern object __glo_fast_91string_123_127_scheme_base;
|
|
extern object __glo_fast_91string_121_127_scheme_base;
|
|
extern object __glo_fast_91string_121_123_127_scheme_base;
|
|
extern object __glo_fast_91string_125_127_scheme_base;
|
|
extern object __glo_fast_91string_125_123_127_scheme_base;
|
|
extern object __glo_foldl_scheme_base;
|
|
extern object __glo_foldr_scheme_base;
|
|
extern object __glo_not_scheme_base;
|
|
extern object __glo_list_127_scheme_base;
|
|
extern object __glo_zero_127_scheme_base;
|
|
extern object __glo_positive_127_scheme_base;
|
|
extern object __glo_negative_127_scheme_base;
|
|
extern object __glo_append_scheme_base;
|
|
extern object __glo__list_scheme_base;
|
|
extern object __glo_make_91list_scheme_base;
|
|
extern object __glo_list_91copy_scheme_base;
|
|
extern object __glo_map_scheme_base;
|
|
extern object __glo_Cyc_91map_91loop_911_scheme_base;
|
|
extern object __glo_Cyc_91map_91loop_912_scheme_base;
|
|
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
|
|
extern object __glo_Cyc_91for_91each_91loop_912_scheme_base;
|
|
extern object __glo_for_91each_scheme_base;
|
|
extern object __glo_list_91tail_scheme_base;
|
|
extern object __glo_list_91ref_scheme_base;
|
|
extern object __glo_list_91set_67_scheme_base;
|
|
extern object __glo_reverse_scheme_base;
|
|
extern object __glo_boolean_123_127_scheme_base;
|
|
extern object __glo_symbol_123_127_scheme_base;
|
|
extern object __glo_Cyc_91obj_123_127_scheme_base;
|
|
extern object __glo_vector_scheme_base;
|
|
extern object __glo_vector_91append_scheme_base;
|
|
extern object __glo_vector_91copy_scheme_base;
|
|
extern object __glo_vector_91copy_67_scheme_base;
|
|
extern object __glo_vector_91fill_67_scheme_base;
|
|
extern object __glo_vector_91_125list_scheme_base;
|
|
extern object __glo_vector_91_125string_scheme_base;
|
|
extern object __glo_vector_91map_scheme_base;
|
|
extern object __glo_vector_91for_91each_scheme_base;
|
|
extern object __glo_make_91string_scheme_base;
|
|
extern object __glo_string_scheme_base;
|
|
extern object __glo_string_91copy_scheme_base;
|
|
extern object __glo_string_91copy_67_scheme_base;
|
|
extern object __glo_string_91fill_67_scheme_base;
|
|
extern object __glo_string_91_125list_scheme_base;
|
|
extern object __glo_string_91_125vector_scheme_base;
|
|
extern object __glo_string_91map_scheme_base;
|
|
extern object __glo_string_91for_91each_scheme_base;
|
|
extern object __glo_make_91parameter_scheme_base;
|
|
extern object __glo_current_91output_91port_scheme_base;
|
|
extern object __glo_current_91input_91port_scheme_base;
|
|
extern object __glo_current_91error_91port_scheme_base;
|
|
extern object __glo_call_91with_91port_scheme_base;
|
|
extern object __glo_error_91object_127_scheme_base;
|
|
extern object __glo_error_91object_91message_scheme_base;
|
|
extern object __glo_error_91object_91irritants_scheme_base;
|
|
extern object __glo_error_95loc_scheme_base;
|
|
extern object __glo_error_scheme_base;
|
|
extern object __glo_raise_scheme_base;
|
|
extern object __glo_raise_91continuable_scheme_base;
|
|
extern object __glo_with_91handler_scheme_base;
|
|
extern object __glo_with_91exception_91handler_scheme_base;
|
|
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
|
|
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
|
|
extern object __glo_newline_scheme_base;
|
|
extern object __glo_write_91char_scheme_base;
|
|
extern object __glo_write_91string_scheme_base;
|
|
extern object __glo_write_91string_911_scheme_base;
|
|
extern object __glo_write_91string_912_scheme_base;
|
|
extern object __glo_flush_91output_91port_scheme_base;
|
|
extern object __glo_peek_91char_scheme_base;
|
|
extern object __glo_read_91char_scheme_base;
|
|
extern object __glo_read_91line_scheme_base;
|
|
extern object __glo_read_91string_scheme_base;
|
|
extern object __glo_input_91port_127_scheme_base;
|
|
extern object __glo_output_91port_127_scheme_base;
|
|
extern object __glo_input_91port_91open_127_scheme_base;
|
|
extern object __glo_output_91port_91open_127_scheme_base;
|
|
extern object __glo_get_91output_91string_scheme_base;
|
|
extern object __glo_open_91output_91string_scheme_base;
|
|
extern object __glo_open_91input_91string_scheme_base;
|
|
extern object __glo_get_91output_91bytevector_scheme_base;
|
|
extern object __glo_open_91input_91bytevector_scheme_base;
|
|
extern object __glo_open_91output_91bytevector_scheme_base;
|
|
extern object __glo_features_scheme_base;
|
|
extern object __glo_Cyc_91add_91feature_67_scheme_base;
|
|
extern object __glo_Cyc_91version_scheme_base;
|
|
extern object __glo_any_scheme_base;
|
|
extern object __glo_every_scheme_base;
|
|
extern object __glo_and_scheme_base;
|
|
extern object __glo_or_scheme_base;
|
|
extern object __glo_let_scheme_base;
|
|
extern object __glo_let_85_scheme_base;
|
|
extern object __glo_letrec_scheme_base;
|
|
extern object __glo_let_85_91values_scheme_base;
|
|
extern object __glo_let_91values_scheme_base;
|
|
extern object __glo_define_91values_scheme_base;
|
|
extern object __glo_begin_scheme_base;
|
|
extern object __glo__case_scheme_base;
|
|
extern object __glo_cond_scheme_base;
|
|
extern object __glo_cond_91expand_scheme_base;
|
|
extern object __glo__do_scheme_base;
|
|
extern object __glo_when_scheme_base;
|
|
extern object __glo_unless_scheme_base;
|
|
extern object __glo_quasiquote_scheme_base;
|
|
extern object __glo_floor_scheme_base;
|
|
extern object __glo_ceiling_scheme_base;
|
|
extern object __glo_truncate_scheme_base;
|
|
extern object __glo_round_scheme_base;
|
|
extern object __glo_exact_scheme_base;
|
|
extern object __glo_inexact_scheme_base;
|
|
extern object __glo_eof_91object_scheme_base;
|
|
extern object __glo__void_scheme_base;
|
|
extern object __glo_syntax_91error_scheme_base;
|
|
extern object __glo_bytevector_91copy_scheme_base;
|
|
extern object __glo_bytevector_91copy_67_scheme_base;
|
|
extern object __glo_utf8_91_125string_scheme_base;
|
|
extern object __glo_string_91_125utf8_scheme_base;
|
|
extern object __glo_denominator_scheme_base;
|
|
extern object __glo_numerator_scheme_base;
|
|
extern object __glo_parameterize_scheme_base;
|
|
extern object __glo_read_91bytevector_scheme_base;
|
|
extern object __glo_read_91bytevector_67_scheme_base;
|
|
extern object __glo_write_91bytevector_scheme_base;
|
|
extern object __glo_peek_91u8_scheme_base;
|
|
extern object __glo_read_91u8_scheme_base;
|
|
extern object __glo_write_91u8_scheme_base;
|
|
extern object __glo_binary_91port_127_scheme_base;
|
|
extern object __glo_textual_91port_127_scheme_base;
|
|
extern object __glo_display_scheme_write;
|
|
extern object __glo_write_scheme_write;
|
|
extern object __glo_write_91shared_scheme_write;
|
|
extern object __glo_write_91simple_scheme_write;
|
|
extern object __glo_pretty_91print_scheme_cyclone_pretty_91print;
|
|
extern object __glo_define_91syntax_127_scheme_cyclone_util;
|
|
extern object __glo_let_91syntax_127_scheme_cyclone_util;
|
|
extern object __glo_letrec_91syntax_127_scheme_cyclone_util;
|
|
extern object __glo_tagged_91list_127_scheme_cyclone_util;
|
|
extern object __glo_if_127_scheme_cyclone_util;
|
|
extern object __glo_if_91syntax_127_scheme_cyclone_util;
|
|
extern object __glo_begin_127_scheme_cyclone_util;
|
|
extern object __glo_lambda_127_scheme_cyclone_util;
|
|
extern object __glo_pair_91_125list_scheme_cyclone_util;
|
|
extern object __glo_define_91lambda_127_scheme_cyclone_util;
|
|
extern object __glo_define_91_125lambda_scheme_cyclone_util;
|
|
extern object __glo_formals_91_125list_scheme_cyclone_util;
|
|
extern object __glo_lambda_91formals_91_125list_scheme_cyclone_util;
|
|
extern object __glo_lambda_91varargs_127_scheme_cyclone_util;
|
|
extern object __glo_lambda_91_125formals_scheme_cyclone_util;
|
|
extern object __glo_lambda_91_125exp_scheme_cyclone_util;
|
|
extern object __glo_lambda_91formals_91type_scheme_cyclone_util;
|
|
extern object __glo_lambda_91varargs_91var_scheme_cyclone_util;
|
|
extern object __glo_pack_91lambda_91arguments_scheme_cyclone_util;
|
|
extern object __glo_if_91_125condition_scheme_cyclone_util;
|
|
extern object __glo_if_91_125then_scheme_cyclone_util;
|
|
extern object __glo_if_91else_127_scheme_cyclone_util;
|
|
extern object __glo_if_91_125else_scheme_cyclone_util;
|
|
extern object __glo_const_127_scheme_cyclone_util;
|
|
extern object __glo_ref_127_scheme_cyclone_util;
|
|
extern object __glo_quote_127_scheme_cyclone_util;
|
|
extern object __glo_define_91c_127_scheme_cyclone_util;
|
|
extern object __glo_set_67_127_scheme_cyclone_util;
|
|
extern object __glo_set_67_91_125var_scheme_cyclone_util;
|
|
extern object __glo_set_67_91_125exp_scheme_cyclone_util;
|
|
extern object __glo_define_127_scheme_cyclone_util;
|
|
extern object __glo_define_91_125var_scheme_cyclone_util;
|
|
extern object __glo_define_91_125exp_scheme_cyclone_util;
|
|
extern object __glo_app_127_scheme_cyclone_util;
|
|
extern object __glo_env_117enclosing_91environment_scheme_cyclone_util;
|
|
extern object __glo_env_117first_91frame_scheme_cyclone_util;
|
|
extern object __glo_env_117the_91empty_91environment_scheme_cyclone_util;
|
|
extern object __glo_env_117make_91frame_scheme_cyclone_util;
|
|
extern object __glo_env_117frame_91variables_scheme_cyclone_util;
|
|
extern object __glo_env_117frame_91values_scheme_cyclone_util;
|
|
extern object __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util;
|
|
extern object __glo_env_117all_91variables_scheme_cyclone_util;
|
|
extern object __glo_env_117all_91values_scheme_cyclone_util;
|
|
extern object __glo_env_117extend_91environment_scheme_cyclone_util;
|
|
extern object __glo_env_117lookup_scheme_cyclone_util;
|
|
extern object __glo_env_117lookup_91variable_91value_scheme_cyclone_util;
|
|
extern object __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util;
|
|
extern object __glo_env_117set_91variable_91value_67_scheme_cyclone_util;
|
|
extern object __glo_env_117define_91variable_67_scheme_cyclone_util;
|
|
extern object __glo_make_91syntactic_91closure_scheme_cyclone_util;
|
|
extern object __glo_strip_91syntactic_91closures_scheme_cyclone_util;
|
|
extern object __glo_identifier_91_125symbol_scheme_cyclone_util;
|
|
extern object __glo_identifier_127_scheme_cyclone_util;
|
|
extern object __glo_identifier_123_127_scheme_cyclone_util;
|
|
extern object __glo_Cyc_91er_91rename_scheme_cyclone_util;
|
|
extern object __glo_Cyc_91er_91compare_127_scheme_cyclone_util;
|
|
extern object __glo_mangle_scheme_cyclone_util;
|
|
extern object __glo_mangle_91global_scheme_cyclone_util;
|
|
extern object __glo_define_91c_91inline_127_scheme_cyclone_util;
|
|
extern object __glo_define_91c_91_125inline_91var_scheme_cyclone_util;
|
|
extern object __glo_Cyc_91set_91immutable_67_scheme_cyclone_util;
|
|
extern object __glo_string_91join_scheme_cyclone_util;
|
|
extern object __glo_string_91split_scheme_cyclone_util;
|
|
extern object __glo_gensym_scheme_cyclone_util;
|
|
extern object __glo_delete_scheme_cyclone_util;
|
|
extern object __glo_delete_91duplicates_scheme_cyclone_util;
|
|
extern object __glo_flatten_scheme_cyclone_util;
|
|
extern object __glo_length_95obj_scheme_cyclone_util;
|
|
extern object __glo_list_91index2_scheme_cyclone_util;
|
|
extern object __glo_list_91insert_91at_67_scheme_cyclone_util;
|
|
extern object __glo_list_91prefix_127_scheme_cyclone_util;
|
|
extern object __glo_string_91replace_91all_scheme_cyclone_util;
|
|
extern object __glo_take_scheme_cyclone_util;
|
|
extern object __glo_drop_scheme_cyclone_util;
|
|
extern object __glo_filter_scheme_cyclone_util;
|
|
extern object __glo_eval_scheme_eval;
|
|
extern object __glo_eval_91from_91c_scheme_eval;
|
|
extern object __glo_create_91environment_scheme_eval;
|
|
extern object __glo_setup_91environment_scheme_eval;
|
|
extern object __glo__75import_scheme_eval;
|
|
extern object __glo_imported_127_scheme_eval;
|
|
extern object __glo__75set_91import_91dirs_67_scheme_eval;
|
|
extern object __glo__85defined_91macros_85_scheme_eval;
|
|
extern object __glo_get_91macros_scheme_eval;
|
|
extern object __glo_macro_117macro_127_scheme_eval;
|
|
extern object __glo_macro_117expand_scheme_eval;
|
|
extern object __glo_macro_117add_67_scheme_eval;
|
|
extern object __glo_macro_117cleanup_scheme_eval;
|
|
extern object __glo_macro_117load_91env_67_scheme_eval;
|
|
extern object __glo_macro_117get_91env_scheme_eval;
|
|
extern object __glo_macro_117get_91defined_91macros_scheme_eval;
|
|
extern object __glo_expand_scheme_eval;
|
|
extern object __glo_expand_91lambda_91body_scheme_eval;
|
|
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
|
|
extern object __glo_not_191_191inline_191_191_scheme_base;
|
|
extern object __glo_list_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_floor_191_191inline_191_191_scheme_base;
|
|
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
|
|
extern object __glo_truncate_191_191inline_191_191_scheme_base;
|
|
extern object __glo_round_191_191inline_191_191_scheme_base;
|
|
extern object __glo_inexact_191_191inline_191_191_scheme_base;
|
|
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
|
|
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_denominator_191_191inline_191_191_scheme_base;
|
|
extern object __glo_numerator_191_191inline_191_191_scheme_base;
|
|
extern object __glo_quotient_191_191inline_191_191_scheme_base;
|
|
extern object __glo_square_191_191inline_191_191_scheme_base;
|
|
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
|
|
extern object __glo_void_191_191inline_191_191_scheme_base;
|
|
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
|
|
extern object __glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_app_127_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_ref_127_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util;
|
|
extern object __glo_variable_127_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_assignment_91variable_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_assignment_91value_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_definition_91variable_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_lambda_91parameters_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_lambda_91body_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_if_91predicate_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_if_91consequent_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_if_91alternative_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_application_127_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_operator_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_operands_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_procedure_91parameters_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_procedure_91body_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_procedure_91environment_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_primitive_91implementation_191_191inline_191_191_scheme_eval;
|
|
extern object __glo_macro_117macro_127_191_191inline_191_191_scheme_eval;
|
|
#include "cyclone/runtime.h"
|
|
#include "cyclone/runtime-main.h"
|
|
defsymbol(sub_91big_91nums);
|
|
defsymbol(c_91define);
|
|
defsymbol(scm_91fnc);
|
|
defsymbol(symbol);
|
|
defsymbol(arg);
|
|
defsymbol(quote);
|
|
defsymbol(_85foreign_91types_85);
|
|
defsymbol(hash_91table_91ref);
|
|
defsymbol(X);
|
|
defsymbol(lambda);
|
|
defsymbol(with_91handler);
|
|
defsymbol(define);
|
|
defsymbol(define_91c);
|
|
defsymbol(begin);
|
|
defsymbol(c_91void);
|
|
defsymbol(opaque);
|
|
defsymbol(bytevector);
|
|
defsymbol(string);
|
|
defsymbol(_char);
|
|
defsymbol(bool);
|
|
defsymbol(bigint);
|
|
defsymbol(bignum);
|
|
defsymbol(var);
|
|
defsymbol(_double);
|
|
defsymbol(_float);
|
|
defsymbol(integer);
|
|
defsymbol(_int);
|
|
static void __lambda_1(void *data, int argc, closure _,object expr_731_73123_73164, object rename_732_73124_73165, object compare_733_73125_73166) ;
|
|
static void __lambda_2(void *data, int argc, object self_73521, object emit_91type_91check_73167) ;
|
|
static void __lambda_131(void *data, int argc, object self_73522, object emit_91type_91check_73167) ;
|
|
static void __lambda_123(void *data, int argc, object self_73523, object k_73491, object arg_734_73126_73168, object type_735_73127_73169) ;
|
|
static void __lambda_124(void *data, int argc, object self_73524, object tmp_736_739_73128_73170) ;
|
|
static void __lambda_126(void *data, int argc, object self_73525, object r_73493) ;
|
|
static void __lambda_128(void *data, int argc, object self_73526, object r_73494) ;
|
|
static void __lambda_127(void *data, int argc, object self_73527, object k_73509) ;
|
|
static void __lambda_125(void *data, int argc, object self_73528, object k_73513) ;
|
|
static void __lambda_3(void *data, int argc, object self_73529, object r_73490) ;
|
|
static void __lambda_4(void *data, int argc, object self_73530, object r_73209) ;
|
|
static void __lambda_5(void *data, int argc, object self_73531, object scm_91fnc_91wrapper_7315_73130_73172) ;
|
|
static void __lambda_6(void *data, int argc, object self_73532, object rv_91cust_91type_7324_73133_73175) ;
|
|
static void __lambda_8(void *data, int argc, object self_73533, object rv_91cust_91convert_7327_73134_73176) ;
|
|
static void __lambda_130(void *data, int argc, object self_73534, object rv_91cust_91convert_7327_73134_73176) ;
|
|
static void __lambda_9(void *data, int argc, object self_73535, object arg_91cust_91convert_7333_73136_73178) ;
|
|
static void __lambda_129(void *data, int argc, object self_73536, object arg_91cust_91convert_7333_73136_73178) ;
|
|
static void __lambda_103(void *data, int argc, object self_73537, object k_73395, object type_73101_73159_73201) ;
|
|
static void __lambda_104(void *data, int argc, object self_73538, object r_73462) ;
|
|
static void __lambda_105(void *data, int argc, object self_73539, object r_73396) ;
|
|
static void __lambda_106(void *data, int argc, object self_73540, object r_73455) ;
|
|
static void __lambda_107(void *data, int argc, object self_73541, object r_73397) ;
|
|
static void __lambda_108(void *data, int argc, object self_73542, object var_73102_73160_73202, object arg_91cust_91type_73103_73161_73203) ;
|
|
static void __lambda_112(void *data, int argc, object self_73543, object tmp_73104_73107_73162_73204) ;
|
|
static void __lambda_122(void *data, int argc, object self_73544, object r_73398) ;
|
|
static void __lambda_113(void *data, int argc, object self_73545, object k_73400) ;
|
|
static void __lambda_115(void *data, int argc, object self_73546, object r_73402) ;
|
|
static void __lambda_117(void *data, int argc, object self_73547, object r_73403) ;
|
|
static void __lambda_121(void *data, int argc, object self_73548, object r_73411) ;
|
|
static void __lambda_118(void *data, int argc, object self_73549, object k_73412) ;
|
|
static void __lambda_120(void *data, int argc, object self_73550, object r_73413) ;
|
|
static void __lambda_119(void *data, int argc, object self_73551, object k_73414) ;
|
|
static void __lambda_116(void *data, int argc, object self_73552, object k_73424) ;
|
|
static void __lambda_114(void *data, int argc, object self_73553, object k_73428) ;
|
|
static void __lambda_109(void *data, int argc, object self_73554, object k_73436) ;
|
|
static void __lambda_111(void *data, int argc, object self_73555, object r_73437) ;
|
|
static void __lambda_110(void *data, int argc, object self_73556, object k_73438) ;
|
|
static void __lambda_10(void *data, int argc, object self_73557, object r_73394) ;
|
|
static void __lambda_11(void *data, int argc, object self_73558, object arg_91syms_95unbox_7336_73137_73179) ;
|
|
static void __lambda_15(void *data, int argc, object self_73559, object tmp_7392_7395_73153_73195) ;
|
|
static void __lambda_74(void *data, int argc, object self_73560, object returns_7339_73138_73180) ;
|
|
static void __lambda_102(void *data, int argc, object self_73561, object k_73299, object sym_95unbox_7391_73152_73194) ;
|
|
static void __lambda_75(void *data, int argc, object self_73562, object r_73298) ;
|
|
static void __lambda_76(void *data, int argc, object self_73563, object r_73297) ;
|
|
static void __lambda_77(void *data, int argc, object self_73564, object r_73296) ;
|
|
static void __lambda_78(void *data, int argc, object self_73565, object args_7348_73141_73183) ;
|
|
static void __lambda_101(void *data, int argc, object self_73566, object k_73295, object arg_7389_73150_73192, object type_7390_73151_73193) ;
|
|
static void __lambda_79(void *data, int argc, object self_73567, object r_73293) ;
|
|
static void __lambda_80(void *data, int argc, object self_73568, object r_73294) ;
|
|
static void __lambda_81(void *data, int argc, object self_73569, object r_73292) ;
|
|
static void __lambda_82(void *data, int argc, object self_73570, object type_91checks_7351_73142_73184) ;
|
|
static void __lambda_83(void *data, int argc, object self_73571, object body_7354_73143_73185) ;
|
|
static void __lambda_99(void *data, int argc, object self_73572, object r_73207) ;
|
|
static void __lambda_100(void *data, int argc, object self_73573, object r_73206) ;
|
|
static void __lambda_84(void *data, int argc, object self_73574, object k_73224) ;
|
|
static void __lambda_85(void *data, int argc, object self_73575, object tmp_7360_7362_73144_73186) ;
|
|
static void __lambda_87(void *data, int argc, object self_73576, object r_73226) ;
|
|
static void __lambda_92(void *data, int argc, object self_73577, object k_73251, object type_7367_73146_73188) ;
|
|
static void __lambda_93(void *data, int argc, object self_73578, object sym_7370_73147_73189) ;
|
|
static void __lambda_94(void *data, int argc, object self_73579, object arg_91cust_91type_7373_73148_73190) ;
|
|
static void __lambda_98(void *data, int argc, object self_73580, object pass_91arg_7376_73149_73191) ;
|
|
static void __lambda_95(void *data, int argc, object self_73581, object k_73255) ;
|
|
static void __lambda_97(void *data, int argc, object self_73582, object r_73256) ;
|
|
static void __lambda_96(void *data, int argc, object self_73583, object k_73260) ;
|
|
static void __lambda_88(void *data, int argc, object self_73584, object r_73250) ;
|
|
static void __lambda_89(void *data, int argc, object self_73585, object arg_91syms_7363_73145_73187) ;
|
|
static void __lambda_90(void *data, int argc, object self_73586, object r_73244) ;
|
|
static void __lambda_91(void *data, int argc, object self_73587, object r_73243) ;
|
|
static void __lambda_86(void *data, int argc, object self_73588, object k_73284) ;
|
|
static void __lambda_16(void *data, int argc, object self_73589, object k_73302) ;
|
|
static void __lambda_22(void *data, int argc, object self_73594, object r_73308) ;
|
|
static void __lambda_31(void *data, int argc, object self_73602, object r_73317) ;
|
|
static void __lambda_73(void *data, int argc, object self_73643, object r_73368) ;
|
|
static void __lambda_72(void *data, int argc, object self_73644, object k_73369) ;
|
|
static void __lambda_68(void *data, int argc, object self_73639, object r_73367) ;
|
|
static void __lambda_69(void *data, int argc, object self_73640, object r_73366) ;
|
|
static void __lambda_70(void *data, int argc, object self_73641, object r_73365) ;
|
|
static void __lambda_71(void *data, int argc, object self_73642, object r_73364) ;
|
|
static void __lambda_61(void *data, int argc, object self_73632, object r_73361) ;
|
|
static void __lambda_62(void *data, int argc, object self_73633, object var_73100_73158_73200) ;
|
|
static void __lambda_63(void *data, int argc, object self_73634, object r_73360) ;
|
|
static void __lambda_64(void *data, int argc, object self_73635, object r_73359) ;
|
|
static void __lambda_65(void *data, int argc, object self_73636, object r_73358) ;
|
|
static void __lambda_66(void *data, int argc, object self_73637, object r_73356) ;
|
|
static void __lambda_67(void *data, int argc, object self_73638, object r_73357) ;
|
|
static void __lambda_54(void *data, int argc, object self_73625, object r_73352) ;
|
|
static void __lambda_55(void *data, int argc, object self_73626, object var_7399_73157_73199) ;
|
|
static void __lambda_56(void *data, int argc, object self_73627, object r_73351) ;
|
|
static void __lambda_57(void *data, int argc, object self_73628, object r_73350) ;
|
|
static void __lambda_58(void *data, int argc, object self_73629, object r_73349) ;
|
|
static void __lambda_59(void *data, int argc, object self_73630, object r_73347) ;
|
|
static void __lambda_60(void *data, int argc, object self_73631, object r_73348) ;
|
|
static void __lambda_47(void *data, int argc, object self_73618, object r_73343) ;
|
|
static void __lambda_48(void *data, int argc, object self_73619, object var_7398_73156_73198) ;
|
|
static void __lambda_49(void *data, int argc, object self_73620, object r_73342) ;
|
|
static void __lambda_50(void *data, int argc, object self_73621, object r_73341) ;
|
|
static void __lambda_51(void *data, int argc, object self_73622, object r_73340) ;
|
|
static void __lambda_52(void *data, int argc, object self_73623, object r_73338) ;
|
|
static void __lambda_53(void *data, int argc, object self_73624, object r_73339) ;
|
|
static void __lambda_43(void *data, int argc, object self_73614, object r_73335) ;
|
|
static void __lambda_44(void *data, int argc, object self_73615, object r_73334) ;
|
|
static void __lambda_45(void *data, int argc, object self_73616, object r_73333) ;
|
|
static void __lambda_46(void *data, int argc, object self_73617, object r_73332) ;
|
|
static void __lambda_39(void *data, int argc, object self_73610, object r_73330) ;
|
|
static void __lambda_40(void *data, int argc, object self_73611, object r_73329) ;
|
|
static void __lambda_41(void *data, int argc, object self_73612, object r_73328) ;
|
|
static void __lambda_42(void *data, int argc, object self_73613, object r_73327) ;
|
|
static void __lambda_32(void *data, int argc, object self_73603, object r_73324) ;
|
|
static void __lambda_33(void *data, int argc, object self_73604, object var_7397_73155_73197) ;
|
|
static void __lambda_34(void *data, int argc, object self_73605, object r_73323) ;
|
|
static void __lambda_35(void *data, int argc, object self_73606, object r_73322) ;
|
|
static void __lambda_36(void *data, int argc, object self_73607, object r_73321) ;
|
|
static void __lambda_37(void *data, int argc, object self_73608, object r_73319) ;
|
|
static void __lambda_38(void *data, int argc, object self_73609, object r_73320) ;
|
|
static void __lambda_30(void *data, int argc, object self_73645, object k_73376) ;
|
|
static void __lambda_23(void *data, int argc, object self_73595, object r_73315) ;
|
|
static void __lambda_24(void *data, int argc, object self_73596, object var_7396_73154_73196) ;
|
|
static void __lambda_25(void *data, int argc, object self_73597, object r_73314) ;
|
|
static void __lambda_26(void *data, int argc, object self_73598, object r_73313) ;
|
|
static void __lambda_27(void *data, int argc, object self_73599, object r_73312) ;
|
|
static void __lambda_28(void *data, int argc, object self_73600, object r_73310) ;
|
|
static void __lambda_29(void *data, int argc, object self_73601, object r_73311) ;
|
|
static void __lambda_21(void *data, int argc, object self_73646, object k_73380) ;
|
|
static void __lambda_17(void *data, int argc, object self_73590, object r_73307) ;
|
|
static void __lambda_18(void *data, int argc, object self_73591, object r_73306) ;
|
|
static void __lambda_19(void *data, int argc, object self_73592, object r_73305) ;
|
|
static void __lambda_20(void *data, int argc, object self_73593, object r_73304) ;
|
|
static void __lambda_12(void *data, int argc, object self_73647, object k_73388) ;
|
|
static void __lambda_14(void *data, int argc, object self_73648, object r_73390) ;
|
|
static void __lambda_13(void *data, int argc, object self_73649, object k_73391) ;
|
|
static void __lambda_7(void *data, int argc, object self_73650, object k_73464) ;
|
|
|
|
static void __lambda_1(void *data, int argc, closure _,object expr_731_73123_73164, object rename_732_73124_73165, object compare_733_73125_73166) {
|
|
|
|
closureN_type c_73653;
|
|
object e_731922 [1];
|
|
c_73653.hdr.mark = gc_color_red;
|
|
c_73653.hdr.grayed = 0;
|
|
c_73653.tag = closureN_tag;
|
|
c_73653.fn = (function_type)__lambda_2;
|
|
c_73653.num_args = 1;
|
|
c_73653.num_elements = 1;
|
|
c_73653.elements = (object *)e_731922;
|
|
c_73653.elements[0] = expr_731_73123_73164;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73653,__lambda_2, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_2(void *data, int argc, object self_73521, object emit_91type_91check_73167) {
|
|
|
|
closureN_type c_73655;
|
|
object e_731918 [1];
|
|
c_73655.hdr.mark = gc_color_red;
|
|
c_73655.hdr.grayed = 0;
|
|
c_73655.tag = closureN_tag;
|
|
c_73655.fn = (function_type)__lambda_131;
|
|
c_73655.num_args = 1;
|
|
c_73655.num_elements = 1;
|
|
c_73655.elements = (object *)e_731918;
|
|
c_73655.elements[0] = ((closureN)self_73521)->elements[0];
|
|
|
|
|
|
pair_type local_731921;
|
|
return_direct_with_clo1(data,(closure)&c_73655,__lambda_131, set_cell_as_expr(&local_731921, emit_91type_91check_73167));;
|
|
}
|
|
|
|
static void __lambda_131(void *data, int argc, object self_73522, object emit_91type_91check_73167) {
|
|
|
|
closureN_type c_73657;
|
|
object e_731773 [2];
|
|
c_73657.hdr.mark = gc_color_red;
|
|
c_73657.hdr.grayed = 0;
|
|
c_73657.tag = closureN_tag;
|
|
c_73657.fn = (function_type)__lambda_3;
|
|
c_73657.num_args = 1;
|
|
c_73657.num_elements = 2;
|
|
c_73657.elements = (object *)e_731773;
|
|
c_73657.elements[0] = emit_91type_91check_73167;
|
|
c_73657.elements[1] = ((closureN)self_73522)->elements[0];
|
|
|
|
|
|
mclosure0(c_731774, (function_type)__lambda_123);c_731774.num_args = 2;
|
|
return_direct_with_clo1(data,(closure)&c_73657,__lambda_3, &c_731774);;
|
|
}
|
|
|
|
static void __lambda_123(void *data, int argc, object self_73523, object k_73491, object arg_734_73126_73168, object type_735_73127_73169) {
|
|
|
|
closureN_type c_731776;
|
|
object e_731917 [2];
|
|
c_731776.hdr.mark = gc_color_red;
|
|
c_731776.hdr.grayed = 0;
|
|
c_731776.tag = closureN_tag;
|
|
c_731776.fn = (function_type)__lambda_124;
|
|
c_731776.num_args = 1;
|
|
c_731776.num_elements = 2;
|
|
c_731776.elements = (object *)e_731917;
|
|
c_731776.elements[0] = arg_734_73126_73168;
|
|
c_731776.elements[1] = k_73491;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731776,__lambda_124, type_735_73127_73169);;
|
|
}
|
|
|
|
static void __lambda_124(void *data, int argc, object self_73524, object tmp_736_739_73128_73170) {
|
|
object r_73492;
|
|
|
|
if( (boolean_f != Cyc_eq(tmp_736_739_73128_73170, quote__int)) ){
|
|
r_73492 = boolean_t;
|
|
} else {
|
|
|
|
r_73492 = Cyc_eq(tmp_736_739_73128_73170, quote_integer);}
|
|
;if( (boolean_f != r_73492) ){
|
|
|
|
make_utf8_string_with_len(c_731789, "Cyc_check_fixnum(data,", 22, 22);
|
|
|
|
make_utf8_string_with_len(c_731791, ");", 2, 2);
|
|
|
|
object c_731788 = Cyc_string_append(data, ((closureN)self_73524)->elements[1],3,&c_731789, ((closureN)self_73524)->elements[0], &c_731791);
|
|
return_closcall1(data, ((closureN)self_73524)->elements[1], c_731788);
|
|
} else {
|
|
|
|
closureN_type c_731793;
|
|
object e_731802 [1];
|
|
c_731793.hdr.mark = gc_color_red;
|
|
c_731793.hdr.grayed = 0;
|
|
c_731793.tag = closureN_tag;
|
|
c_731793.fn = (function_type)__lambda_125;
|
|
c_731793.num_args = 0;
|
|
c_731793.num_elements = 1;
|
|
c_731793.elements = (object *)e_731802;
|
|
c_731793.elements[0] = tmp_736_739_73128_73170;
|
|
|
|
|
|
closureN_type c_731803;
|
|
object e_731916 [3];
|
|
c_731803.hdr.mark = gc_color_red;
|
|
c_731803.hdr.grayed = 0;
|
|
c_731803.tag = closureN_tag;
|
|
c_731803.fn = (function_type)__lambda_126;
|
|
c_731803.num_args = 1;
|
|
c_731803.num_elements = 3;
|
|
c_731803.elements = (object *)e_731916;
|
|
c_731803.elements[0] = ((closureN)self_73524)->elements[0];
|
|
c_731803.elements[1] = ((closureN)self_73524)->elements[1];
|
|
c_731803.elements[2] = tmp_736_739_73128_73170;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731793,__lambda_125, &c_731803);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_126(void *data, int argc, object self_73525, object r_73493) {
|
|
if( (boolean_f != r_73493) ){
|
|
|
|
make_utf8_string_with_len(c_731809, "Cyc_check_double(data,", 22, 22);
|
|
|
|
make_utf8_string_with_len(c_731811, ");", 2, 2);
|
|
|
|
object c_731808 = Cyc_string_append(data, ((closureN)self_73525)->elements[1],3,&c_731809, ((closureN)self_73525)->elements[0], &c_731811);
|
|
return_closcall1(data, ((closureN)self_73525)->elements[1], c_731808);
|
|
} else {
|
|
|
|
closureN_type c_731813;
|
|
object e_731822 [1];
|
|
c_731813.hdr.mark = gc_color_red;
|
|
c_731813.hdr.grayed = 0;
|
|
c_731813.tag = closureN_tag;
|
|
c_731813.fn = (function_type)__lambda_127;
|
|
c_731813.num_args = 0;
|
|
c_731813.num_elements = 1;
|
|
c_731813.elements = (object *)e_731822;
|
|
c_731813.elements[0] = ((closureN)self_73525)->elements[2];
|
|
|
|
|
|
closureN_type c_731823;
|
|
object e_731915 [3];
|
|
c_731823.hdr.mark = gc_color_red;
|
|
c_731823.hdr.grayed = 0;
|
|
c_731823.tag = closureN_tag;
|
|
c_731823.fn = (function_type)__lambda_128;
|
|
c_731823.num_args = 1;
|
|
c_731823.num_elements = 3;
|
|
c_731823.elements = (object *)e_731915;
|
|
c_731823.elements[0] = ((closureN)self_73525)->elements[0];
|
|
c_731823.elements[1] = ((closureN)self_73525)->elements[1];
|
|
c_731823.elements[2] = ((closureN)self_73525)->elements[2];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731813,__lambda_127, &c_731823);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_128(void *data, int argc, object self_73526, object r_73494) {
|
|
if( (boolean_f != r_73494) ){
|
|
|
|
make_utf8_string_with_len(c_731829, "Cyc_check_type(data,Cyc_is_bignum,bignum_tag,", 45, 45);
|
|
|
|
make_utf8_string_with_len(c_731831, ");", 2, 2);
|
|
|
|
object c_731828 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731829, ((closureN)self_73526)->elements[0], &c_731831);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731828);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_bool)) ){
|
|
|
|
make_utf8_string_with_len(c_731840, "Cyc_check_type(data,Cyc_is_boolean,boolean_tag,", 47, 47);
|
|
|
|
make_utf8_string_with_len(c_731842, ");", 2, 2);
|
|
|
|
object c_731839 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731840, ((closureN)self_73526)->elements[0], &c_731842);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731839);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote__char)) ){
|
|
|
|
make_utf8_string_with_len(c_731851, " if ((boolean_f == make_boolean(obj_is_char(", 44, 44);
|
|
|
|
make_utf8_string_with_len(c_731853, ")))) {", 6, 6);
|
|
|
|
make_utf8_string_with_len(c_731854, "Cyc_rt_raise2(data, \"Invalid type: expected char, found \", ", 59, 59);
|
|
|
|
make_utf8_string_with_len(c_731856, "); } ", 5, 5);
|
|
|
|
object c_731850 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],6,&c_731851, ((closureN)self_73526)->elements[0], &c_731853, &c_731854, ((closureN)self_73526)->elements[0], &c_731856);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731850);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_string)) ){
|
|
|
|
make_utf8_string_with_len(c_731865, "Cyc_check_string(data,", 22, 22);
|
|
|
|
make_utf8_string_with_len(c_731867, ");", 2, 2);
|
|
|
|
object c_731864 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731865, ((closureN)self_73526)->elements[0], &c_731867);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731864);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_symbol)) ){
|
|
|
|
make_utf8_string_with_len(c_731876, "Cyc_check_sym(data,", 19, 19);
|
|
|
|
make_utf8_string_with_len(c_731878, ");", 2, 2);
|
|
|
|
object c_731875 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731876, ((closureN)self_73526)->elements[0], &c_731878);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731875);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_bytevector)) ){
|
|
|
|
make_utf8_string_with_len(c_731887, "Cyc_check_bvec(data,", 20, 20);
|
|
|
|
make_utf8_string_with_len(c_731889, ");", 2, 2);
|
|
|
|
object c_731886 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731887, ((closureN)self_73526)->elements[0], &c_731889);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731886);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_opaque)) ){
|
|
|
|
make_utf8_string_with_len(c_731898, "Cyc_check_opaque(data,", 22, 22);
|
|
|
|
make_utf8_string_with_len(c_731900, ");", 2, 2);
|
|
|
|
object c_731897 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731898, ((closureN)self_73526)->elements[0], &c_731900);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731897);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_c_91void)) ){
|
|
|
|
make_utf8_string_with_len(c_731909, "Cyc_check_type(data,Cyc_is_void,void_tag,", 41, 41);
|
|
|
|
make_utf8_string_with_len(c_731911, ");", 2, 2);
|
|
|
|
object c_731908 = Cyc_string_append(data, ((closureN)self_73526)->elements[1],3,&c_731909, ((closureN)self_73526)->elements[0], &c_731911);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], c_731908);
|
|
} else {
|
|
|
|
make_utf8_string_with_len(c_731914, "", 0, 0);
|
|
return_closcall1(data, ((closureN)self_73526)->elements[1], &c_731914);}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_127(void *data, int argc, object self_73527, object k_73509) {
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73527)->elements[0], quote_bignum)) ){
|
|
return_direct_with_clo1(data, k_73509,__lambda_128, boolean_t);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73509,__lambda_128, Cyc_eq(((closureN)self_73527)->elements[0], quote_bigint));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_125(void *data, int argc, object self_73528, object k_73513) {
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73528)->elements[0], quote__double)) ){
|
|
return_direct_with_clo1(data, k_73513,__lambda_126, boolean_t);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73513,__lambda_126, Cyc_eq(((closureN)self_73528)->elements[0], quote__float));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_3(void *data, int argc, object self_73529, object r_73490) {
|
|
|
|
closureN_type c_73659;
|
|
object e_731769 [2];
|
|
c_73659.hdr.mark = gc_color_red;
|
|
c_73659.hdr.grayed = 0;
|
|
c_73659.tag = closureN_tag;
|
|
c_73659.fn = (function_type)__lambda_4;
|
|
c_73659.num_args = 1;
|
|
c_73659.num_elements = 2;
|
|
c_73659.elements = (object *)e_731769;
|
|
c_73659.elements[0] = ((closureN)self_73529)->elements[0];
|
|
c_73659.elements[1] = ((closureN)self_73529)->elements[1];
|
|
|
|
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73659,__lambda_4, Cyc_set_cell(data, ((closureN)self_73529)->elements[0], r_73490));;
|
|
}
|
|
|
|
static void __lambda_4(void *data, int argc, object self_73530, object r_73209) {
|
|
|
|
closureN_type c_73661;
|
|
object e_731768 [2];
|
|
c_73661.hdr.mark = gc_color_red;
|
|
c_73661.hdr.grayed = 0;
|
|
c_73661.tag = closureN_tag;
|
|
c_73661.fn = (function_type)__lambda_5;
|
|
c_73661.num_args = 1;
|
|
c_73661.num_elements = 2;
|
|
c_73661.elements = (object *)e_731768;
|
|
c_73661.elements[0] = ((closureN)self_73530)->elements[0];
|
|
c_73661.elements[1] = ((closureN)self_73530)->elements[1];
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_73661, quote_scm_91fnc);;
|
|
}
|
|
|
|
static void __lambda_5(void *data, int argc, object self_73531, object scm_91fnc_91wrapper_7315_73130_73172) {
|
|
|
|
closureN_type c_73663;
|
|
object e_731731 [3];
|
|
c_73663.hdr.mark = gc_color_red;
|
|
c_73663.hdr.grayed = 0;
|
|
c_73663.tag = closureN_tag;
|
|
c_73663.fn = (function_type)__lambda_6;
|
|
c_73663.num_args = 1;
|
|
c_73663.num_elements = 3;
|
|
c_73663.elements = (object *)e_731731;
|
|
c_73663.elements[0] = ((closureN)self_73531)->elements[0];
|
|
c_73663.elements[1] = ((closureN)self_73531)->elements[1];
|
|
c_73663.elements[2] = scm_91fnc_91wrapper_7315_73130_73172;
|
|
|
|
|
|
pair_type local_731734;
|
|
|
|
pair_type local_731737;
|
|
|
|
pair_type local_731740;
|
|
|
|
pair_type local_731743;
|
|
|
|
pair_type local_731746;
|
|
|
|
pair_type local_731749;
|
|
|
|
pair_type local_731752;
|
|
|
|
pair_type local_731755;
|
|
|
|
pair_type local_731758;
|
|
|
|
pair_type local_731761;
|
|
|
|
pair_type local_731764;
|
|
|
|
|
|
return_closcall2(data, __glo_eval_scheme_eval, &c_73663, set_pair_as_expr(&local_731734, quote_with_91handler, set_pair_as_expr(&local_731737, set_pair_as_expr(&local_731740, quote_lambda, set_pair_as_expr(&local_731743, quote_X, set_pair_as_expr(&local_731746, boolean_f, NULL))), set_pair_as_expr(&local_731749, set_pair_as_expr(&local_731752, quote_hash_91table_91ref, set_pair_as_expr(&local_731755, quote__85foreign_91types_85, set_pair_as_expr(&local_731758, set_pair_as_expr(&local_731761, quote_quote, set_pair_as_expr(&local_731764, Cyc_caddr(data, ((closureN)self_73531)->elements[1]), NULL)), NULL))), NULL))));;
|
|
}
|
|
|
|
static void __lambda_6(void *data, int argc, object self_73532, object rv_91cust_91type_7324_73133_73175) {
|
|
|
|
closureN_type c_73665;
|
|
object e_73680 [1];
|
|
c_73665.hdr.mark = gc_color_red;
|
|
c_73665.hdr.grayed = 0;
|
|
c_73665.tag = closureN_tag;
|
|
c_73665.fn = (function_type)__lambda_7;
|
|
c_73665.num_args = 0;
|
|
c_73665.num_elements = 1;
|
|
c_73665.elements = (object *)e_73680;
|
|
c_73665.elements[0] = rv_91cust_91type_7324_73133_73175;
|
|
|
|
|
|
closureN_type c_73681;
|
|
object e_731730 [4];
|
|
c_73681.hdr.mark = gc_color_red;
|
|
c_73681.hdr.grayed = 0;
|
|
c_73681.tag = closureN_tag;
|
|
c_73681.fn = (function_type)__lambda_8;
|
|
c_73681.num_args = 1;
|
|
c_73681.num_elements = 4;
|
|
c_73681.elements = (object *)e_731730;
|
|
c_73681.elements[0] = ((closureN)self_73532)->elements[0];
|
|
c_73681.elements[1] = ((closureN)self_73532)->elements[1];
|
|
c_73681.elements[2] = rv_91cust_91type_7324_73133_73175;
|
|
c_73681.elements[3] = ((closureN)self_73532)->elements[2];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73665,__lambda_7, &c_73681);;
|
|
}
|
|
|
|
static void __lambda_8(void *data, int argc, object self_73533, object rv_91cust_91convert_7327_73134_73176) {
|
|
|
|
closureN_type c_73683;
|
|
object e_731726 [4];
|
|
c_73683.hdr.mark = gc_color_red;
|
|
c_73683.hdr.grayed = 0;
|
|
c_73683.tag = closureN_tag;
|
|
c_73683.fn = (function_type)__lambda_130;
|
|
c_73683.num_args = 1;
|
|
c_73683.num_elements = 4;
|
|
c_73683.elements = (object *)e_731726;
|
|
c_73683.elements[0] = ((closureN)self_73533)->elements[0];
|
|
c_73683.elements[1] = ((closureN)self_73533)->elements[1];
|
|
c_73683.elements[2] = ((closureN)self_73533)->elements[2];
|
|
c_73683.elements[3] = ((closureN)self_73533)->elements[3];
|
|
|
|
|
|
pair_type local_731729;
|
|
return_direct_with_clo1(data,(closure)&c_73683,__lambda_130, set_cell_as_expr(&local_731729, rv_91cust_91convert_7327_73134_73176));;
|
|
}
|
|
|
|
static void __lambda_130(void *data, int argc, object self_73534, object rv_91cust_91convert_7327_73134_73176) {
|
|
|
|
closureN_type c_73685;
|
|
object e_731725 [5];
|
|
c_73685.hdr.mark = gc_color_red;
|
|
c_73685.hdr.grayed = 0;
|
|
c_73685.tag = closureN_tag;
|
|
c_73685.fn = (function_type)__lambda_9;
|
|
c_73685.num_args = 1;
|
|
c_73685.num_elements = 5;
|
|
c_73685.elements = (object *)e_731725;
|
|
c_73685.elements[0] = ((closureN)self_73534)->elements[0];
|
|
c_73685.elements[1] = ((closureN)self_73534)->elements[1];
|
|
c_73685.elements[2] = rv_91cust_91convert_7327_73134_73176;
|
|
c_73685.elements[3] = ((closureN)self_73534)->elements[2];
|
|
c_73685.elements[4] = ((closureN)self_73534)->elements[3];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73685,__lambda_9, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_9(void *data, int argc, object self_73535, object arg_91cust_91convert_7333_73136_73178) {
|
|
|
|
closureN_type c_73687;
|
|
object e_731721 [5];
|
|
c_73687.hdr.mark = gc_color_red;
|
|
c_73687.hdr.grayed = 0;
|
|
c_73687.tag = closureN_tag;
|
|
c_73687.fn = (function_type)__lambda_129;
|
|
c_73687.num_args = 1;
|
|
c_73687.num_elements = 5;
|
|
c_73687.elements = (object *)e_731721;
|
|
c_73687.elements[0] = ((closureN)self_73535)->elements[0];
|
|
c_73687.elements[1] = ((closureN)self_73535)->elements[1];
|
|
c_73687.elements[2] = ((closureN)self_73535)->elements[2];
|
|
c_73687.elements[3] = ((closureN)self_73535)->elements[3];
|
|
c_73687.elements[4] = ((closureN)self_73535)->elements[4];
|
|
|
|
|
|
pair_type local_731724;
|
|
return_direct_with_clo1(data,(closure)&c_73687,__lambda_129, set_cell_as_expr(&local_731724, arg_91cust_91convert_7333_73136_73178));;
|
|
}
|
|
|
|
static void __lambda_129(void *data, int argc, object self_73536, object arg_91cust_91convert_7333_73136_73178) {
|
|
|
|
closureN_type c_73689;
|
|
object e_731468 [6];
|
|
c_73689.hdr.mark = gc_color_red;
|
|
c_73689.hdr.grayed = 0;
|
|
c_73689.tag = closureN_tag;
|
|
c_73689.fn = (function_type)__lambda_10;
|
|
c_73689.num_args = 1;
|
|
c_73689.num_elements = 6;
|
|
c_73689.elements = (object *)e_731468;
|
|
c_73689.elements[0] = arg_91cust_91convert_7333_73136_73178;
|
|
c_73689.elements[1] = ((closureN)self_73536)->elements[0];
|
|
c_73689.elements[2] = ((closureN)self_73536)->elements[1];
|
|
c_73689.elements[3] = ((closureN)self_73536)->elements[2];
|
|
c_73689.elements[4] = ((closureN)self_73536)->elements[3];
|
|
c_73689.elements[5] = ((closureN)self_73536)->elements[4];
|
|
|
|
|
|
closureN_type c_731469;
|
|
object e_731720 [1];
|
|
c_731469.hdr.mark = gc_color_red;
|
|
c_731469.hdr.grayed = 0;
|
|
c_731469.tag = closureN_tag;
|
|
c_731469.fn = (function_type)__lambda_103;
|
|
c_731469.num_args = 1;
|
|
c_731469.num_elements = 1;
|
|
c_731469.elements = (object *)e_731720;
|
|
c_731469.elements[0] = arg_91cust_91convert_7333_73136_73178;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73689,__lambda_10, &c_731469);;
|
|
}
|
|
|
|
static void __lambda_103(void *data, int argc, object self_73537, object k_73395, object type_73101_73159_73201) {
|
|
|
|
closureN_type c_731471;
|
|
object e_731719 [3];
|
|
c_731471.hdr.mark = gc_color_red;
|
|
c_731471.hdr.grayed = 0;
|
|
c_731471.tag = closureN_tag;
|
|
c_731471.fn = (function_type)__lambda_104;
|
|
c_731471.num_args = 1;
|
|
c_731471.num_elements = 3;
|
|
c_731471.elements = (object *)e_731719;
|
|
c_731471.elements[0] = ((closureN)self_73537)->elements[0];
|
|
c_731471.elements[1] = k_73395;
|
|
c_731471.elements[2] = type_73101_73159_73201;
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_731471, quote_arg);;
|
|
}
|
|
|
|
static void __lambda_104(void *data, int argc, object self_73538, object r_73462) {
|
|
|
|
closureN_type c_731473;
|
|
object e_731718 [3];
|
|
c_731473.hdr.mark = gc_color_red;
|
|
c_731473.hdr.grayed = 0;
|
|
c_731473.tag = closureN_tag;
|
|
c_731473.fn = (function_type)__lambda_105;
|
|
c_731473.num_args = 1;
|
|
c_731473.num_elements = 3;
|
|
c_731473.elements = (object *)e_731718;
|
|
c_731473.elements[0] = ((closureN)self_73538)->elements[0];
|
|
c_731473.elements[1] = ((closureN)self_73538)->elements[1];
|
|
c_731473.elements[2] = ((closureN)self_73538)->elements[2];
|
|
|
|
return_closcall2(data, __glo_mangle_scheme_cyclone_util, &c_731473, r_73462);;
|
|
}
|
|
|
|
static void __lambda_105(void *data, int argc, object self_73539, object r_73396) {
|
|
|
|
closureN_type c_731475;
|
|
object e_731713 [4];
|
|
c_731475.hdr.mark = gc_color_red;
|
|
c_731475.hdr.grayed = 0;
|
|
c_731475.tag = closureN_tag;
|
|
c_731475.fn = (function_type)__lambda_106;
|
|
c_731475.num_args = 1;
|
|
c_731475.num_elements = 4;
|
|
c_731475.elements = (object *)e_731713;
|
|
c_731475.elements[0] = ((closureN)self_73539)->elements[0];
|
|
c_731475.elements[1] = ((closureN)self_73539)->elements[1];
|
|
c_731475.elements[2] = r_73396;
|
|
c_731475.elements[3] = ((closureN)self_73539)->elements[2];
|
|
|
|
|
|
pair_type local_731716;
|
|
return_direct_with_clo1(data,(closure)&c_731475,__lambda_106, set_pair_as_expr(&local_731716, ((closureN)self_73539)->elements[2], NULL));;
|
|
}
|
|
|
|
static void __lambda_106(void *data, int argc, object self_73540, object r_73455) {
|
|
|
|
closureN_type c_731477;
|
|
object e_731682 [4];
|
|
c_731477.hdr.mark = gc_color_red;
|
|
c_731477.hdr.grayed = 0;
|
|
c_731477.tag = closureN_tag;
|
|
c_731477.fn = (function_type)__lambda_107;
|
|
c_731477.num_args = 1;
|
|
c_731477.num_elements = 4;
|
|
c_731477.elements = (object *)e_731682;
|
|
c_731477.elements[0] = ((closureN)self_73540)->elements[0];
|
|
c_731477.elements[1] = ((closureN)self_73540)->elements[1];
|
|
c_731477.elements[2] = ((closureN)self_73540)->elements[2];
|
|
c_731477.elements[3] = ((closureN)self_73540)->elements[3];
|
|
|
|
|
|
pair_type local_731685;
|
|
|
|
pair_type local_731688;
|
|
|
|
pair_type local_731691;
|
|
|
|
pair_type local_731694;
|
|
|
|
pair_type local_731697;
|
|
|
|
pair_type local_731700;
|
|
|
|
pair_type local_731703;
|
|
|
|
pair_type local_731706;
|
|
|
|
pair_type local_731709;
|
|
|
|
pair_type local_731712;
|
|
return_closcall2(data, __glo_eval_scheme_eval, &c_731477, set_pair_as_expr(&local_731685, quote_with_91handler, set_pair_as_expr(&local_731688, set_pair_as_expr(&local_731691, quote_lambda, set_pair_as_expr(&local_731694, quote_X, set_pair_as_expr(&local_731697, boolean_f, NULL))), set_pair_as_expr(&local_731700, set_pair_as_expr(&local_731703, quote_hash_91table_91ref, set_pair_as_expr(&local_731706, quote__85foreign_91types_85, set_pair_as_expr(&local_731709, set_pair_as_expr(&local_731712, quote_quote, r_73455), NULL))), NULL))));;
|
|
}
|
|
|
|
static void __lambda_107(void *data, int argc, object self_73541, object r_73397) {
|
|
|
|
closureN_type c_731479;
|
|
object e_731680 [3];
|
|
c_731479.hdr.mark = gc_color_red;
|
|
c_731479.hdr.grayed = 0;
|
|
c_731479.tag = closureN_tag;
|
|
c_731479.fn = (function_type)__lambda_108;
|
|
c_731479.num_args = 2;
|
|
c_731479.num_elements = 3;
|
|
c_731479.elements = (object *)e_731680;
|
|
c_731479.elements[0] = ((closureN)self_73541)->elements[0];
|
|
c_731479.elements[1] = ((closureN)self_73541)->elements[1];
|
|
c_731479.elements[2] = ((closureN)self_73541)->elements[3];
|
|
|
|
return_direct_with_clo2(data,(closure)&c_731479,__lambda_108, ((closureN)self_73541)->elements[2], r_73397);;
|
|
}
|
|
|
|
static void __lambda_108(void *data, int argc, object self_73542, object var_73102_73160_73202, object arg_91cust_91type_73103_73161_73203) {
|
|
|
|
closureN_type c_731481;
|
|
object e_731505 [3];
|
|
c_731481.hdr.mark = gc_color_red;
|
|
c_731481.hdr.grayed = 0;
|
|
c_731481.tag = closureN_tag;
|
|
c_731481.fn = (function_type)__lambda_109;
|
|
c_731481.num_args = 0;
|
|
c_731481.num_elements = 3;
|
|
c_731481.elements = (object *)e_731505;
|
|
c_731481.elements[0] = ((closureN)self_73542)->elements[0];
|
|
c_731481.elements[1] = arg_91cust_91type_73103_73161_73203;
|
|
c_731481.elements[2] = ((closureN)self_73542)->elements[2];
|
|
|
|
|
|
closureN_type c_731506;
|
|
object e_731679 [5];
|
|
c_731506.hdr.mark = gc_color_red;
|
|
c_731506.hdr.grayed = 0;
|
|
c_731506.tag = closureN_tag;
|
|
c_731506.fn = (function_type)__lambda_112;
|
|
c_731506.num_args = 1;
|
|
c_731506.num_elements = 5;
|
|
c_731506.elements = (object *)e_731679;
|
|
c_731506.elements[0] = ((closureN)self_73542)->elements[0];
|
|
c_731506.elements[1] = arg_91cust_91type_73103_73161_73203;
|
|
c_731506.elements[2] = ((closureN)self_73542)->elements[1];
|
|
c_731506.elements[3] = ((closureN)self_73542)->elements[2];
|
|
c_731506.elements[4] = var_73102_73160_73202;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731481,__lambda_109, &c_731506);;
|
|
}
|
|
|
|
static void __lambda_112(void *data, int argc, object self_73543, object tmp_73104_73107_73162_73204) {
|
|
|
|
closureN_type c_731508;
|
|
object e_731670 [5];
|
|
c_731508.hdr.mark = gc_color_red;
|
|
c_731508.hdr.grayed = 0;
|
|
c_731508.tag = closureN_tag;
|
|
c_731508.fn = (function_type)__lambda_113;
|
|
c_731508.num_args = 0;
|
|
c_731508.num_elements = 5;
|
|
c_731508.elements = (object *)e_731670;
|
|
c_731508.elements[0] = ((closureN)self_73543)->elements[0];
|
|
c_731508.elements[1] = ((closureN)self_73543)->elements[1];
|
|
c_731508.elements[2] = tmp_73104_73107_73162_73204;
|
|
c_731508.elements[3] = ((closureN)self_73543)->elements[3];
|
|
c_731508.elements[4] = ((closureN)self_73543)->elements[4];
|
|
|
|
|
|
closureN_type c_731671;
|
|
object e_731678 [2];
|
|
c_731671.hdr.mark = gc_color_red;
|
|
c_731671.hdr.grayed = 0;
|
|
c_731671.tag = closureN_tag;
|
|
c_731671.fn = (function_type)__lambda_122;
|
|
c_731671.num_args = 1;
|
|
c_731671.num_elements = 2;
|
|
c_731671.elements = (object *)e_731678;
|
|
c_731671.elements[0] = ((closureN)self_73543)->elements[2];
|
|
c_731671.elements[1] = ((closureN)self_73543)->elements[4];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731508,__lambda_113, &c_731671);;
|
|
}
|
|
|
|
static void __lambda_122(void *data, int argc, object self_73544, object r_73398) {
|
|
|
|
pair_type local_731676;
|
|
return_closcall1(data, ((closureN)self_73544)->elements[0], set_pair_as_expr(&local_731676, ((closureN)self_73544)->elements[1], r_73398));;
|
|
}
|
|
|
|
static void __lambda_113(void *data, int argc, object self_73545, object k_73400) {
|
|
object r_73401;
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73545)->elements[2], quote__int)) ){
|
|
r_73401 = boolean_t;
|
|
} else {
|
|
|
|
r_73401 = Cyc_eq(((closureN)self_73545)->elements[2], quote_integer);}
|
|
;if( (boolean_f != r_73401) ){
|
|
|
|
make_utf8_string_with_len(c_731522, "obj_obj2int(", 12, 12);
|
|
|
|
make_utf8_string_with_len(c_731524, ")", 1, 1);
|
|
|
|
object c_731521 = Cyc_string_append(data, k_73400,3,&c_731522, ((closureN)self_73545)->elements[4], &c_731524);
|
|
return_closcall1(data, k_73400, c_731521);
|
|
} else {
|
|
|
|
closureN_type c_731526;
|
|
object e_731535 [1];
|
|
c_731526.hdr.mark = gc_color_red;
|
|
c_731526.hdr.grayed = 0;
|
|
c_731526.tag = closureN_tag;
|
|
c_731526.fn = (function_type)__lambda_114;
|
|
c_731526.num_args = 0;
|
|
c_731526.num_elements = 1;
|
|
c_731526.elements = (object *)e_731535;
|
|
c_731526.elements[0] = ((closureN)self_73545)->elements[2];
|
|
|
|
|
|
closureN_type c_731536;
|
|
object e_731669 [6];
|
|
c_731536.hdr.mark = gc_color_red;
|
|
c_731536.hdr.grayed = 0;
|
|
c_731536.tag = closureN_tag;
|
|
c_731536.fn = (function_type)__lambda_115;
|
|
c_731536.num_args = 1;
|
|
c_731536.num_elements = 6;
|
|
c_731536.elements = (object *)e_731669;
|
|
c_731536.elements[0] = ((closureN)self_73545)->elements[0];
|
|
c_731536.elements[1] = ((closureN)self_73545)->elements[1];
|
|
c_731536.elements[2] = k_73400;
|
|
c_731536.elements[3] = ((closureN)self_73545)->elements[2];
|
|
c_731536.elements[4] = ((closureN)self_73545)->elements[3];
|
|
c_731536.elements[5] = ((closureN)self_73545)->elements[4];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731526,__lambda_114, &c_731536);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_115(void *data, int argc, object self_73546, object r_73402) {
|
|
if( (boolean_f != r_73402) ){
|
|
|
|
make_utf8_string_with_len(c_731542, "double_value(", 13, 13);
|
|
|
|
make_utf8_string_with_len(c_731544, ")", 1, 1);
|
|
|
|
object c_731541 = Cyc_string_append(data, ((closureN)self_73546)->elements[2],3,&c_731542, ((closureN)self_73546)->elements[5], &c_731544);
|
|
return_closcall1(data, ((closureN)self_73546)->elements[2], c_731541);
|
|
} else {
|
|
|
|
closureN_type c_731546;
|
|
object e_731555 [1];
|
|
c_731546.hdr.mark = gc_color_red;
|
|
c_731546.hdr.grayed = 0;
|
|
c_731546.tag = closureN_tag;
|
|
c_731546.fn = (function_type)__lambda_116;
|
|
c_731546.num_args = 0;
|
|
c_731546.num_elements = 1;
|
|
c_731546.elements = (object *)e_731555;
|
|
c_731546.elements[0] = ((closureN)self_73546)->elements[3];
|
|
|
|
|
|
closureN_type c_731556;
|
|
object e_731668 [6];
|
|
c_731556.hdr.mark = gc_color_red;
|
|
c_731556.hdr.grayed = 0;
|
|
c_731556.tag = closureN_tag;
|
|
c_731556.fn = (function_type)__lambda_117;
|
|
c_731556.num_args = 1;
|
|
c_731556.num_elements = 6;
|
|
c_731556.elements = (object *)e_731668;
|
|
c_731556.elements[0] = ((closureN)self_73546)->elements[0];
|
|
c_731556.elements[1] = ((closureN)self_73546)->elements[1];
|
|
c_731556.elements[2] = ((closureN)self_73546)->elements[2];
|
|
c_731556.elements[3] = ((closureN)self_73546)->elements[3];
|
|
c_731556.elements[4] = ((closureN)self_73546)->elements[4];
|
|
c_731556.elements[5] = ((closureN)self_73546)->elements[5];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731546,__lambda_116, &c_731556);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_117(void *data, int argc, object self_73547, object r_73403) {
|
|
if( (boolean_f != r_73403) ){
|
|
|
|
make_utf8_string_with_len(c_731562, "bignum_value(", 13, 13);
|
|
|
|
make_utf8_string_with_len(c_731564, ")", 1, 1);
|
|
|
|
object c_731561 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731562, ((closureN)self_73547)->elements[5], &c_731564);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731561);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_bool)) ){
|
|
|
|
make_utf8_string_with_len(c_731573, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_731575, " == boolean_f)", 14, 14);
|
|
|
|
object c_731572 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731573, ((closureN)self_73547)->elements[5], &c_731575);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731572);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote__char)) ){
|
|
|
|
make_utf8_string_with_len(c_731584, "obj_obj2char(", 13, 13);
|
|
|
|
make_utf8_string_with_len(c_731586, ")", 1, 1);
|
|
|
|
object c_731583 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731584, ((closureN)self_73547)->elements[5], &c_731586);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731583);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_string)) ){
|
|
|
|
make_utf8_string_with_len(c_731595, "string_str(", 11, 11);
|
|
|
|
make_utf8_string_with_len(c_731597, ")", 1, 1);
|
|
|
|
object c_731594 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731595, ((closureN)self_73547)->elements[5], &c_731597);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731594);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_symbol)) ){
|
|
|
|
make_utf8_string_with_len(c_731606, "symbol_desc(", 12, 12);
|
|
|
|
make_utf8_string_with_len(c_731608, ")", 1, 1);
|
|
|
|
object c_731605 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731606, ((closureN)self_73547)->elements[5], &c_731608);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731605);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_bytevector)) ){
|
|
|
|
make_utf8_string_with_len(c_731617, "(((bytevector_type *)", 21, 21);
|
|
|
|
make_utf8_string_with_len(c_731619, ")->data)", 8, 8);
|
|
|
|
object c_731616 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731617, ((closureN)self_73547)->elements[5], &c_731619);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731616);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_opaque)) ){
|
|
|
|
make_utf8_string_with_len(c_731628, "opaque_ptr(", 11, 11);
|
|
|
|
make_utf8_string_with_len(c_731630, ")", 1, 1);
|
|
|
|
object c_731627 = Cyc_string_append(data, ((closureN)self_73547)->elements[2],3,&c_731628, ((closureN)self_73547)->elements[5], &c_731630);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], c_731627);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_c_91void)) ){
|
|
|
|
make_utf8_string_with_len(c_731636, "Cyc_VOID", 8, 8);
|
|
return_closcall1(data, ((closureN)self_73547)->elements[2], &c_731636);
|
|
} else {
|
|
|
|
closureN_type c_731638;
|
|
object e_731662 [3];
|
|
c_731638.hdr.mark = gc_color_red;
|
|
c_731638.hdr.grayed = 0;
|
|
c_731638.tag = closureN_tag;
|
|
c_731638.fn = (function_type)__lambda_118;
|
|
c_731638.num_args = 0;
|
|
c_731638.num_elements = 3;
|
|
c_731638.elements = (object *)e_731662;
|
|
c_731638.elements[0] = ((closureN)self_73547)->elements[0];
|
|
c_731638.elements[1] = ((closureN)self_73547)->elements[1];
|
|
c_731638.elements[2] = ((closureN)self_73547)->elements[4];
|
|
|
|
|
|
closureN_type c_731663;
|
|
object e_731667 [1];
|
|
c_731663.hdr.mark = gc_color_red;
|
|
c_731663.hdr.grayed = 0;
|
|
c_731663.tag = closureN_tag;
|
|
c_731663.fn = (function_type)__lambda_121;
|
|
c_731663.num_args = 1;
|
|
c_731663.num_elements = 1;
|
|
c_731663.elements = (object *)e_731667;
|
|
c_731663.elements[0] = ((closureN)self_73547)->elements[2];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731638,__lambda_118, &c_731663);}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_121(void *data, int argc, object self_73548, object r_73411) {
|
|
|
|
make_utf8_string_with_len(c_731666, "scm->c unable to convert scheme object of type ", 47, 47);
|
|
return_closcall3(data, __glo_error_scheme_base, ((closureN)self_73548)->elements[0], &c_731666, r_73411);;
|
|
}
|
|
|
|
static void __lambda_118(void *data, int argc, object self_73549, object k_73412) {
|
|
if( (boolean_f != ((closureN)self_73549)->elements[1]) ){
|
|
|
|
closureN_type c_731641;
|
|
object e_731652 [2];
|
|
c_731641.hdr.mark = gc_color_red;
|
|
c_731641.hdr.grayed = 0;
|
|
c_731641.tag = closureN_tag;
|
|
c_731641.fn = (function_type)__lambda_119;
|
|
c_731641.num_args = 0;
|
|
c_731641.num_elements = 2;
|
|
c_731641.elements = (object *)e_731652;
|
|
c_731641.elements[0] = ((closureN)self_73549)->elements[0];
|
|
c_731641.elements[1] = ((closureN)self_73549)->elements[1];
|
|
|
|
|
|
closureN_type c_731653;
|
|
object e_731659 [2];
|
|
c_731653.hdr.mark = gc_color_red;
|
|
c_731653.hdr.grayed = 0;
|
|
c_731653.tag = closureN_tag;
|
|
c_731653.fn = (function_type)__lambda_120;
|
|
c_731653.num_args = 1;
|
|
c_731653.num_elements = 2;
|
|
c_731653.elements = (object *)e_731659;
|
|
c_731653.elements[0] = ((closureN)self_73549)->elements[1];
|
|
c_731653.elements[1] = k_73412;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731641,__lambda_119, &c_731653);
|
|
} else {
|
|
return_closcall1(data, k_73412, ((closureN)self_73549)->elements[2]);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_120(void *data, int argc, object self_73550, object r_73413) {
|
|
|
|
|
|
return_closcall1(data, ((closureN)self_73550)->elements[1], Cyc_car(data, ((closureN)self_73550)->elements[0]));;
|
|
}
|
|
|
|
static void __lambda_119(void *data, int argc, object self_73551, object k_73414) {
|
|
|
|
|
|
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_73551)->elements[1]), obj_int2obj(1))) ){
|
|
|
|
|
|
return_direct_with_clo1(data, k_73414,__lambda_120, Cyc_set_cell(data, ((closureN)self_73551)->elements[0], boolean_t));
|
|
} else {
|
|
return_direct_with_clo1(data, k_73414,__lambda_120, Cyc_VOID);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_116(void *data, int argc, object self_73552, object k_73424) {
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73552)->elements[0], quote_bignum)) ){
|
|
return_direct_with_clo1(data, k_73424,__lambda_117, boolean_t);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73424,__lambda_117, Cyc_eq(((closureN)self_73552)->elements[0], quote_bigint));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_114(void *data, int argc, object self_73553, object k_73428) {
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73553)->elements[0], quote__double)) ){
|
|
return_direct_with_clo1(data, k_73428,__lambda_115, boolean_t);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73428,__lambda_115, Cyc_eq(((closureN)self_73553)->elements[0], quote__float));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_109(void *data, int argc, object self_73554, object k_73436) {
|
|
if( (boolean_f != ((closureN)self_73554)->elements[1]) ){
|
|
|
|
closureN_type c_731484;
|
|
object e_731495 [2];
|
|
c_731484.hdr.mark = gc_color_red;
|
|
c_731484.hdr.grayed = 0;
|
|
c_731484.tag = closureN_tag;
|
|
c_731484.fn = (function_type)__lambda_110;
|
|
c_731484.num_args = 0;
|
|
c_731484.num_elements = 2;
|
|
c_731484.elements = (object *)e_731495;
|
|
c_731484.elements[0] = ((closureN)self_73554)->elements[0];
|
|
c_731484.elements[1] = ((closureN)self_73554)->elements[1];
|
|
|
|
|
|
closureN_type c_731496;
|
|
object e_731502 [2];
|
|
c_731496.hdr.mark = gc_color_red;
|
|
c_731496.hdr.grayed = 0;
|
|
c_731496.tag = closureN_tag;
|
|
c_731496.fn = (function_type)__lambda_111;
|
|
c_731496.num_args = 1;
|
|
c_731496.num_elements = 2;
|
|
c_731496.elements = (object *)e_731502;
|
|
c_731496.elements[0] = ((closureN)self_73554)->elements[1];
|
|
c_731496.elements[1] = k_73436;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731484,__lambda_110, &c_731496);
|
|
} else {
|
|
return_closcall1(data, k_73436, ((closureN)self_73554)->elements[2]);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_111(void *data, int argc, object self_73555, object r_73437) {
|
|
|
|
|
|
return_closcall1(data, ((closureN)self_73555)->elements[1], Cyc_car(data, ((closureN)self_73555)->elements[0]));;
|
|
}
|
|
|
|
static void __lambda_110(void *data, int argc, object self_73556, object k_73438) {
|
|
|
|
|
|
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_73556)->elements[1]), obj_int2obj(1))) ){
|
|
|
|
|
|
return_direct_with_clo1(data, k_73438,__lambda_111, Cyc_set_cell(data, ((closureN)self_73556)->elements[0], boolean_t));
|
|
} else {
|
|
return_direct_with_clo1(data, k_73438,__lambda_111, Cyc_VOID);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_10(void *data, int argc, object self_73557, object r_73394) {
|
|
|
|
closureN_type c_73691;
|
|
object e_731464 [6];
|
|
c_73691.hdr.mark = gc_color_red;
|
|
c_73691.hdr.grayed = 0;
|
|
c_73691.tag = closureN_tag;
|
|
c_73691.fn = (function_type)__lambda_11;
|
|
c_73691.num_args = 1;
|
|
c_73691.num_elements = 6;
|
|
c_73691.elements = (object *)e_731464;
|
|
c_73691.elements[0] = ((closureN)self_73557)->elements[0];
|
|
c_73691.elements[1] = ((closureN)self_73557)->elements[1];
|
|
c_73691.elements[2] = ((closureN)self_73557)->elements[2];
|
|
c_73691.elements[3] = ((closureN)self_73557)->elements[3];
|
|
c_73691.elements[4] = ((closureN)self_73557)->elements[4];
|
|
c_73691.elements[5] = ((closureN)self_73557)->elements[5];
|
|
|
|
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73691, r_73394, Cyc_cddddr(data, ((closureN)self_73557)->elements[2]));;
|
|
}
|
|
|
|
static void __lambda_11(void *data, int argc, object self_73558, object arg_91syms_95unbox_7336_73137_73179) {
|
|
|
|
closureN_type c_73693;
|
|
object e_73733 [2];
|
|
c_73693.hdr.mark = gc_color_red;
|
|
c_73693.hdr.grayed = 0;
|
|
c_73693.tag = closureN_tag;
|
|
c_73693.fn = (function_type)__lambda_12;
|
|
c_73693.num_args = 0;
|
|
c_73693.num_elements = 2;
|
|
c_73693.elements = (object *)e_73733;
|
|
c_73693.elements[0] = ((closureN)self_73558)->elements[2];
|
|
c_73693.elements[1] = ((closureN)self_73558)->elements[4];
|
|
|
|
|
|
closureN_type c_73734;
|
|
object e_731463 [7];
|
|
c_73734.hdr.mark = gc_color_red;
|
|
c_73734.hdr.grayed = 0;
|
|
c_73734.tag = closureN_tag;
|
|
c_73734.fn = (function_type)__lambda_15;
|
|
c_73734.num_args = 1;
|
|
c_73734.num_elements = 7;
|
|
c_73734.elements = (object *)e_731463;
|
|
c_73734.elements[0] = ((closureN)self_73558)->elements[0];
|
|
c_73734.elements[1] = arg_91syms_95unbox_7336_73137_73179;
|
|
c_73734.elements[2] = ((closureN)self_73558)->elements[1];
|
|
c_73734.elements[3] = ((closureN)self_73558)->elements[2];
|
|
c_73734.elements[4] = ((closureN)self_73558)->elements[3];
|
|
c_73734.elements[5] = ((closureN)self_73558)->elements[4];
|
|
c_73734.elements[6] = ((closureN)self_73558)->elements[5];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73693,__lambda_12, &c_73734);;
|
|
}
|
|
|
|
static void __lambda_15(void *data, int argc, object self_73559, object tmp_7392_7395_73153_73195) {
|
|
|
|
closureN_type c_73736;
|
|
object e_731186 [4];
|
|
c_73736.hdr.mark = gc_color_red;
|
|
c_73736.hdr.grayed = 0;
|
|
c_73736.tag = closureN_tag;
|
|
c_73736.fn = (function_type)__lambda_16;
|
|
c_73736.num_args = 0;
|
|
c_73736.num_elements = 4;
|
|
c_73736.elements = (object *)e_731186;
|
|
c_73736.elements[0] = ((closureN)self_73559)->elements[1];
|
|
c_73736.elements[1] = ((closureN)self_73559)->elements[3];
|
|
c_73736.elements[2] = ((closureN)self_73559)->elements[5];
|
|
c_73736.elements[3] = tmp_7392_7395_73153_73195;
|
|
|
|
|
|
closureN_type c_731187;
|
|
object e_731462 [6];
|
|
c_731187.hdr.mark = gc_color_red;
|
|
c_731187.hdr.grayed = 0;
|
|
c_731187.tag = closureN_tag;
|
|
c_731187.fn = (function_type)__lambda_74;
|
|
c_731187.num_args = 1;
|
|
c_731187.num_elements = 6;
|
|
c_731187.elements = (object *)e_731462;
|
|
c_731187.elements[0] = ((closureN)self_73559)->elements[0];
|
|
c_731187.elements[1] = ((closureN)self_73559)->elements[1];
|
|
c_731187.elements[2] = ((closureN)self_73559)->elements[2];
|
|
c_731187.elements[3] = ((closureN)self_73559)->elements[3];
|
|
c_731187.elements[4] = ((closureN)self_73559)->elements[4];
|
|
c_731187.elements[5] = ((closureN)self_73559)->elements[6];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73736,__lambda_16, &c_731187);;
|
|
}
|
|
|
|
static void __lambda_74(void *data, int argc, object self_73560, object returns_7339_73138_73180) {
|
|
|
|
closureN_type c_731189;
|
|
object e_731453 [7];
|
|
c_731189.hdr.mark = gc_color_red;
|
|
c_731189.hdr.grayed = 0;
|
|
c_731189.tag = closureN_tag;
|
|
c_731189.fn = (function_type)__lambda_75;
|
|
c_731189.num_args = 1;
|
|
c_731189.num_elements = 7;
|
|
c_731189.elements = (object *)e_731453;
|
|
c_731189.elements[0] = ((closureN)self_73560)->elements[0];
|
|
c_731189.elements[1] = ((closureN)self_73560)->elements[1];
|
|
c_731189.elements[2] = ((closureN)self_73560)->elements[2];
|
|
c_731189.elements[3] = ((closureN)self_73560)->elements[3];
|
|
c_731189.elements[4] = returns_7339_73138_73180;
|
|
c_731189.elements[5] = ((closureN)self_73560)->elements[4];
|
|
c_731189.elements[6] = ((closureN)self_73560)->elements[5];
|
|
|
|
|
|
mclosure0(c_731454, (function_type)__lambda_102);c_731454.num_args = 1;
|
|
return_direct_with_clo1(data,(closure)&c_731189,__lambda_75, &c_731454);;
|
|
}
|
|
|
|
static void __lambda_102(void *data, int argc, object self_73561, object k_73299, object sym_95unbox_7391_73152_73194) {
|
|
|
|
make_utf8_string_with_len(c_731459, ", object ", 9, 9);
|
|
|
|
|
|
|
|
object c_731458 = Cyc_string_append(data, k_73299,2,&c_731459, Cyc_car(data, sym_95unbox_7391_73152_73194));
|
|
return_closcall1(data, k_73299, c_731458);;
|
|
}
|
|
|
|
static void __lambda_75(void *data, int argc, object self_73562, object r_73298) {
|
|
|
|
closureN_type c_731191;
|
|
object e_731451 [7];
|
|
c_731191.hdr.mark = gc_color_red;
|
|
c_731191.hdr.grayed = 0;
|
|
c_731191.tag = closureN_tag;
|
|
c_731191.fn = (function_type)__lambda_76;
|
|
c_731191.num_args = 1;
|
|
c_731191.num_elements = 7;
|
|
c_731191.elements = (object *)e_731451;
|
|
c_731191.elements[0] = ((closureN)self_73562)->elements[0];
|
|
c_731191.elements[1] = ((closureN)self_73562)->elements[1];
|
|
c_731191.elements[2] = ((closureN)self_73562)->elements[2];
|
|
c_731191.elements[3] = ((closureN)self_73562)->elements[3];
|
|
c_731191.elements[4] = ((closureN)self_73562)->elements[4];
|
|
c_731191.elements[5] = ((closureN)self_73562)->elements[5];
|
|
c_731191.elements[6] = ((closureN)self_73562)->elements[6];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731191, r_73298, ((closureN)self_73562)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_76(void *data, int argc, object self_73563, object r_73297) {
|
|
|
|
closureN_type c_731193;
|
|
object e_731447 [7];
|
|
c_731193.hdr.mark = gc_color_red;
|
|
c_731193.hdr.grayed = 0;
|
|
c_731193.tag = closureN_tag;
|
|
c_731193.fn = (function_type)__lambda_77;
|
|
c_731193.num_args = 1;
|
|
c_731193.num_elements = 7;
|
|
c_731193.elements = (object *)e_731447;
|
|
c_731193.elements[0] = ((closureN)self_73563)->elements[0];
|
|
c_731193.elements[1] = ((closureN)self_73563)->elements[1];
|
|
c_731193.elements[2] = ((closureN)self_73563)->elements[2];
|
|
c_731193.elements[3] = ((closureN)self_73563)->elements[3];
|
|
c_731193.elements[4] = ((closureN)self_73563)->elements[4];
|
|
c_731193.elements[5] = ((closureN)self_73563)->elements[5];
|
|
c_731193.elements[6] = ((closureN)self_73563)->elements[6];
|
|
|
|
|
|
object c_731450 = apply(data,(closure)&c_731193,primitive_string_91append, r_73297);
|
|
return_closcall1(data,(closure)&c_731193, c_731450);;
|
|
}
|
|
|
|
static void __lambda_77(void *data, int argc, object self_73564, object r_73296) {
|
|
|
|
closureN_type c_731195;
|
|
object e_731441 [7];
|
|
c_731195.hdr.mark = gc_color_red;
|
|
c_731195.hdr.grayed = 0;
|
|
c_731195.tag = closureN_tag;
|
|
c_731195.fn = (function_type)__lambda_78;
|
|
c_731195.num_args = 1;
|
|
c_731195.num_elements = 7;
|
|
c_731195.elements = (object *)e_731441;
|
|
c_731195.elements[0] = ((closureN)self_73564)->elements[0];
|
|
c_731195.elements[1] = ((closureN)self_73564)->elements[1];
|
|
c_731195.elements[2] = ((closureN)self_73564)->elements[2];
|
|
c_731195.elements[3] = ((closureN)self_73564)->elements[3];
|
|
c_731195.elements[4] = ((closureN)self_73564)->elements[4];
|
|
c_731195.elements[5] = ((closureN)self_73564)->elements[5];
|
|
c_731195.elements[6] = ((closureN)self_73564)->elements[6];
|
|
|
|
|
|
make_utf8_string_with_len(c_731445, "(void *data, int argc, closure _, object k ", 43, 43);
|
|
|
|
make_utf8_string_with_len(c_731446, ")", 1, 1);
|
|
|
|
object c_731444 = Cyc_string_append(data,(closure)&c_731195,3,&c_731445, r_73296, &c_731446);
|
|
return_closcall1(data,(closure)&c_731195, c_731444);;
|
|
}
|
|
|
|
static void __lambda_78(void *data, int argc, object self_73565, object args_7348_73141_73183) {
|
|
|
|
closureN_type c_731197;
|
|
object e_731434 [7];
|
|
c_731197.hdr.mark = gc_color_red;
|
|
c_731197.hdr.grayed = 0;
|
|
c_731197.tag = closureN_tag;
|
|
c_731197.fn = (function_type)__lambda_79;
|
|
c_731197.num_args = 1;
|
|
c_731197.num_elements = 7;
|
|
c_731197.elements = (object *)e_731434;
|
|
c_731197.elements[0] = ((closureN)self_73565)->elements[0];
|
|
c_731197.elements[1] = ((closureN)self_73565)->elements[1];
|
|
c_731197.elements[2] = args_7348_73141_73183;
|
|
c_731197.elements[3] = ((closureN)self_73565)->elements[3];
|
|
c_731197.elements[4] = ((closureN)self_73565)->elements[4];
|
|
c_731197.elements[5] = ((closureN)self_73565)->elements[5];
|
|
c_731197.elements[6] = ((closureN)self_73565)->elements[6];
|
|
|
|
|
|
closureN_type c_731435;
|
|
object e_731440 [1];
|
|
c_731435.hdr.mark = gc_color_red;
|
|
c_731435.hdr.grayed = 0;
|
|
c_731435.tag = closureN_tag;
|
|
c_731435.fn = (function_type)__lambda_101;
|
|
c_731435.num_args = 2;
|
|
c_731435.num_elements = 1;
|
|
c_731435.elements = (object *)e_731440;
|
|
c_731435.elements[0] = ((closureN)self_73565)->elements[2];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731197,__lambda_79, &c_731435);;
|
|
}
|
|
|
|
static void __lambda_101(void *data, int argc, object self_73566, object k_73295, object arg_7389_73150_73192, object type_7390_73151_73193) {
|
|
|
|
|
|
return_closcall3(data, car(((closureN)self_73566)->elements[0]), k_73295, arg_7389_73150_73192, type_7390_73151_73193);;
|
|
}
|
|
|
|
static void __lambda_79(void *data, int argc, object self_73567, object r_73293) {
|
|
|
|
closureN_type c_731199;
|
|
object e_731432 [7];
|
|
c_731199.hdr.mark = gc_color_red;
|
|
c_731199.hdr.grayed = 0;
|
|
c_731199.tag = closureN_tag;
|
|
c_731199.fn = (function_type)__lambda_80;
|
|
c_731199.num_args = 1;
|
|
c_731199.num_elements = 7;
|
|
c_731199.elements = (object *)e_731432;
|
|
c_731199.elements[0] = ((closureN)self_73567)->elements[0];
|
|
c_731199.elements[1] = ((closureN)self_73567)->elements[2];
|
|
c_731199.elements[2] = ((closureN)self_73567)->elements[3];
|
|
c_731199.elements[3] = r_73293;
|
|
c_731199.elements[4] = ((closureN)self_73567)->elements[4];
|
|
c_731199.elements[5] = ((closureN)self_73567)->elements[5];
|
|
c_731199.elements[6] = ((closureN)self_73567)->elements[6];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731199, primitive_car, ((closureN)self_73567)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_80(void *data, int argc, object self_73568, object r_73294) {
|
|
|
|
closureN_type c_731201;
|
|
object e_731427 [6];
|
|
c_731201.hdr.mark = gc_color_red;
|
|
c_731201.hdr.grayed = 0;
|
|
c_731201.tag = closureN_tag;
|
|
c_731201.fn = (function_type)__lambda_81;
|
|
c_731201.num_args = 1;
|
|
c_731201.num_elements = 6;
|
|
c_731201.elements = (object *)e_731427;
|
|
c_731201.elements[0] = ((closureN)self_73568)->elements[0];
|
|
c_731201.elements[1] = ((closureN)self_73568)->elements[1];
|
|
c_731201.elements[2] = ((closureN)self_73568)->elements[2];
|
|
c_731201.elements[3] = ((closureN)self_73568)->elements[4];
|
|
c_731201.elements[4] = ((closureN)self_73568)->elements[5];
|
|
c_731201.elements[5] = ((closureN)self_73568)->elements[6];
|
|
|
|
|
|
|
|
return_closcall4(data, __glo_Cyc_91map_91loop_912_scheme_base, &c_731201, ((closureN)self_73568)->elements[3], r_73294, Cyc_cddddr(data, ((closureN)self_73568)->elements[2]));;
|
|
}
|
|
|
|
static void __lambda_81(void *data, int argc, object self_73569, object r_73292) {
|
|
|
|
closureN_type c_731203;
|
|
object e_731423 [6];
|
|
c_731203.hdr.mark = gc_color_red;
|
|
c_731203.hdr.grayed = 0;
|
|
c_731203.tag = closureN_tag;
|
|
c_731203.fn = (function_type)__lambda_82;
|
|
c_731203.num_args = 1;
|
|
c_731203.num_elements = 6;
|
|
c_731203.elements = (object *)e_731423;
|
|
c_731203.elements[0] = ((closureN)self_73569)->elements[0];
|
|
c_731203.elements[1] = ((closureN)self_73569)->elements[1];
|
|
c_731203.elements[2] = ((closureN)self_73569)->elements[2];
|
|
c_731203.elements[3] = ((closureN)self_73569)->elements[3];
|
|
c_731203.elements[4] = ((closureN)self_73569)->elements[4];
|
|
c_731203.elements[5] = ((closureN)self_73569)->elements[5];
|
|
|
|
|
|
object c_731426 = apply(data,(closure)&c_731203,primitive_string_91append, r_73292);
|
|
return_closcall1(data,(closure)&c_731203, c_731426);;
|
|
}
|
|
|
|
static void __lambda_82(void *data, int argc, object self_73570, object type_91checks_7351_73142_73184) {
|
|
|
|
closureN_type c_731205;
|
|
object e_731411 [5];
|
|
c_731205.hdr.mark = gc_color_red;
|
|
c_731205.hdr.grayed = 0;
|
|
c_731205.tag = closureN_tag;
|
|
c_731205.fn = (function_type)__lambda_83;
|
|
c_731205.num_args = 1;
|
|
c_731205.num_elements = 5;
|
|
c_731205.elements = (object *)e_731411;
|
|
c_731205.elements[0] = ((closureN)self_73570)->elements[0];
|
|
c_731205.elements[1] = ((closureN)self_73570)->elements[1];
|
|
c_731205.elements[2] = ((closureN)self_73570)->elements[2];
|
|
c_731205.elements[3] = ((closureN)self_73570)->elements[4];
|
|
c_731205.elements[4] = ((closureN)self_73570)->elements[5];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_731418, "return_closcall1(data, k, ", 26, 26);
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_731422, ");", 2, 2);
|
|
|
|
object c_731414 = Cyc_string_append(data,(closure)&c_731205,5,type_91checks_7351_73142_73184, Cyc_car(data, ((closureN)self_73570)->elements[3]), &c_731418, Cyc_cdr(data, ((closureN)self_73570)->elements[3]), &c_731422);
|
|
return_closcall1(data,(closure)&c_731205, c_731414);;
|
|
}
|
|
|
|
static void __lambda_83(void *data, int argc, object self_73571, object body_7354_73143_73185) {
|
|
|
|
closureN_type c_731207;
|
|
object e_731403 [6];
|
|
c_731207.hdr.mark = gc_color_red;
|
|
c_731207.hdr.grayed = 0;
|
|
c_731207.tag = closureN_tag;
|
|
c_731207.fn = (function_type)__lambda_84;
|
|
c_731207.num_args = 0;
|
|
c_731207.num_elements = 6;
|
|
c_731207.elements = (object *)e_731403;
|
|
c_731207.elements[0] = ((closureN)self_73571)->elements[0];
|
|
c_731207.elements[1] = ((closureN)self_73571)->elements[1];
|
|
c_731207.elements[2] = body_7354_73143_73185;
|
|
c_731207.elements[3] = ((closureN)self_73571)->elements[2];
|
|
c_731207.elements[4] = ((closureN)self_73571)->elements[3];
|
|
c_731207.elements[5] = ((closureN)self_73571)->elements[4];
|
|
|
|
|
|
mclosure0(c_731404, (function_type)__lambda_99);c_731404.num_args = 1;
|
|
return_direct_with_clo1(data,(closure)&c_731207,__lambda_84, &c_731404);;
|
|
}
|
|
|
|
static void __lambda_99(void *data, int argc, object self_73572, object r_73207) {
|
|
|
|
mclosure0(c_731406, (function_type)__lambda_100);c_731406.num_args = 1;
|
|
return_closcall2(data, __glo_pretty_91print_scheme_cyclone_pretty_91print, &c_731406, r_73207);;
|
|
}
|
|
|
|
static void __lambda_100(void *data, int argc, object self_73573, object r_73206) {
|
|
|
|
|
|
__halt(__halt(obj_int2obj(0)));;
|
|
}
|
|
|
|
static void __lambda_84(void *data, int argc, object self_73574, object k_73224) {
|
|
|
|
closureN_type c_731209;
|
|
object e_731399 [7];
|
|
c_731209.hdr.mark = gc_color_red;
|
|
c_731209.hdr.grayed = 0;
|
|
c_731209.tag = closureN_tag;
|
|
c_731209.fn = (function_type)__lambda_85;
|
|
c_731209.num_args = 1;
|
|
c_731209.num_elements = 7;
|
|
c_731209.elements = (object *)e_731399;
|
|
c_731209.elements[0] = ((closureN)self_73574)->elements[0];
|
|
c_731209.elements[1] = ((closureN)self_73574)->elements[1];
|
|
c_731209.elements[2] = ((closureN)self_73574)->elements[2];
|
|
c_731209.elements[3] = ((closureN)self_73574)->elements[3];
|
|
c_731209.elements[4] = k_73224;
|
|
c_731209.elements[5] = ((closureN)self_73574)->elements[4];
|
|
c_731209.elements[6] = ((closureN)self_73574)->elements[5];
|
|
|
|
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731209,__lambda_85, car(((closureN)self_73574)->elements[4]));;
|
|
}
|
|
|
|
static void __lambda_85(void *data, int argc, object self_73575, object tmp_7360_7362_73144_73186) {
|
|
object r_73225;
|
|
if( (boolean_f != tmp_7360_7362_73144_73186) ){
|
|
r_73225 = tmp_7360_7362_73144_73186;
|
|
} else {
|
|
|
|
r_73225 = car(((closureN)self_73575)->elements[0]);}
|
|
;if( (boolean_f != r_73225) ){
|
|
|
|
closureN_type c_731217;
|
|
object e_731226 [1];
|
|
c_731217.hdr.mark = gc_color_red;
|
|
c_731217.hdr.grayed = 0;
|
|
c_731217.tag = closureN_tag;
|
|
c_731217.fn = (function_type)__lambda_86;
|
|
c_731217.num_args = 0;
|
|
c_731217.num_elements = 1;
|
|
c_731217.elements = (object *)e_731226;
|
|
c_731217.elements[0] = ((closureN)self_73575)->elements[5];
|
|
|
|
|
|
closureN_type c_731227;
|
|
object e_731379 [6];
|
|
c_731227.hdr.mark = gc_color_red;
|
|
c_731227.hdr.grayed = 0;
|
|
c_731227.tag = closureN_tag;
|
|
c_731227.fn = (function_type)__lambda_87;
|
|
c_731227.num_args = 1;
|
|
c_731227.num_elements = 6;
|
|
c_731227.elements = (object *)e_731379;
|
|
c_731227.elements[0] = ((closureN)self_73575)->elements[1];
|
|
c_731227.elements[1] = ((closureN)self_73575)->elements[2];
|
|
c_731227.elements[2] = ((closureN)self_73575)->elements[3];
|
|
c_731227.elements[3] = ((closureN)self_73575)->elements[4];
|
|
c_731227.elements[4] = ((closureN)self_73575)->elements[5];
|
|
c_731227.elements[5] = ((closureN)self_73575)->elements[6];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731217,__lambda_86, &c_731227);
|
|
} else {
|
|
|
|
pair_type local_731384;
|
|
|
|
pair_type local_731387;
|
|
|
|
|
|
|
|
pair_type local_731393;
|
|
|
|
pair_type local_731397;
|
|
return_closcall1(data, ((closureN)self_73575)->elements[4], set_pair_as_expr(&local_731384, quote_define_91c, set_pair_as_expr(&local_731387, Cyc_cadr(data, ((closureN)self_73575)->elements[3]), set_pair_as_expr(&local_731393, ((closureN)self_73575)->elements[1], set_pair_as_expr(&local_731397, ((closureN)self_73575)->elements[2], NULL)))));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_87(void *data, int argc, object self_73576, object r_73226) {
|
|
|
|
closureN_type c_731229;
|
|
object e_731298 [6];
|
|
c_731229.hdr.mark = gc_color_red;
|
|
c_731229.hdr.grayed = 0;
|
|
c_731229.tag = closureN_tag;
|
|
c_731229.fn = (function_type)__lambda_88;
|
|
c_731229.num_args = 1;
|
|
c_731229.num_elements = 6;
|
|
c_731229.elements = (object *)e_731298;
|
|
c_731229.elements[0] = ((closureN)self_73576)->elements[0];
|
|
c_731229.elements[1] = ((closureN)self_73576)->elements[1];
|
|
c_731229.elements[2] = ((closureN)self_73576)->elements[2];
|
|
c_731229.elements[3] = ((closureN)self_73576)->elements[3];
|
|
c_731229.elements[4] = ((closureN)self_73576)->elements[4];
|
|
c_731229.elements[5] = ((closureN)self_73576)->elements[5];
|
|
|
|
|
|
mclosure0(c_731299, (function_type)__lambda_92);c_731299.num_args = 1;
|
|
return_direct_with_clo1(data,(closure)&c_731229,__lambda_88, &c_731299);;
|
|
}
|
|
|
|
static void __lambda_92(void *data, int argc, object self_73577, object k_73251, object type_7367_73146_73188) {
|
|
|
|
closureN_type c_731301;
|
|
object e_731378 [2];
|
|
c_731301.hdr.mark = gc_color_red;
|
|
c_731301.hdr.grayed = 0;
|
|
c_731301.tag = closureN_tag;
|
|
c_731301.fn = (function_type)__lambda_93;
|
|
c_731301.num_args = 1;
|
|
c_731301.num_elements = 2;
|
|
c_731301.elements = (object *)e_731378;
|
|
c_731301.elements[0] = k_73251;
|
|
c_731301.elements[1] = type_7367_73146_73188;
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_731301, quote_arg);;
|
|
}
|
|
|
|
static void __lambda_93(void *data, int argc, object self_73578, object sym_7370_73147_73189) {
|
|
|
|
closureN_type c_731303;
|
|
object e_731343 [2];
|
|
c_731303.hdr.mark = gc_color_red;
|
|
c_731303.hdr.grayed = 0;
|
|
c_731303.tag = closureN_tag;
|
|
c_731303.fn = (function_type)__lambda_94;
|
|
c_731303.num_args = 1;
|
|
c_731303.num_elements = 2;
|
|
c_731303.elements = (object *)e_731343;
|
|
c_731303.elements[0] = ((closureN)self_73578)->elements[0];
|
|
c_731303.elements[1] = sym_7370_73147_73189;
|
|
|
|
|
|
pair_type local_731346;
|
|
|
|
pair_type local_731349;
|
|
|
|
pair_type local_731352;
|
|
|
|
pair_type local_731355;
|
|
|
|
pair_type local_731358;
|
|
|
|
pair_type local_731361;
|
|
|
|
pair_type local_731364;
|
|
|
|
pair_type local_731367;
|
|
|
|
pair_type local_731370;
|
|
|
|
pair_type local_731373;
|
|
|
|
pair_type local_731376;
|
|
return_closcall2(data, __glo_eval_scheme_eval, &c_731303, set_pair_as_expr(&local_731346, quote_with_91handler, set_pair_as_expr(&local_731349, set_pair_as_expr(&local_731352, quote_lambda, set_pair_as_expr(&local_731355, quote_X, set_pair_as_expr(&local_731358, boolean_f, NULL))), set_pair_as_expr(&local_731361, set_pair_as_expr(&local_731364, quote_hash_91table_91ref, set_pair_as_expr(&local_731367, quote__85foreign_91types_85, set_pair_as_expr(&local_731370, set_pair_as_expr(&local_731373, quote_quote, set_pair_as_expr(&local_731376, ((closureN)self_73578)->elements[1], NULL)), NULL))), NULL))));;
|
|
}
|
|
|
|
static void __lambda_94(void *data, int argc, object self_73579, object arg_91cust_91type_7373_73148_73190) {
|
|
|
|
closureN_type c_731305;
|
|
object e_731334 [2];
|
|
c_731305.hdr.mark = gc_color_red;
|
|
c_731305.hdr.grayed = 0;
|
|
c_731305.tag = closureN_tag;
|
|
c_731305.fn = (function_type)__lambda_95;
|
|
c_731305.num_args = 0;
|
|
c_731305.num_elements = 2;
|
|
c_731305.elements = (object *)e_731334;
|
|
c_731305.elements[0] = arg_91cust_91type_7373_73148_73190;
|
|
c_731305.elements[1] = ((closureN)self_73579)->elements[1];
|
|
|
|
|
|
closureN_type c_731335;
|
|
object e_731342 [2];
|
|
c_731335.hdr.mark = gc_color_red;
|
|
c_731335.hdr.grayed = 0;
|
|
c_731335.tag = closureN_tag;
|
|
c_731335.fn = (function_type)__lambda_98;
|
|
c_731335.num_args = 1;
|
|
c_731335.num_elements = 2;
|
|
c_731335.elements = (object *)e_731342;
|
|
c_731335.elements[0] = ((closureN)self_73579)->elements[0];
|
|
c_731335.elements[1] = ((closureN)self_73579)->elements[1];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731305,__lambda_95, &c_731335);;
|
|
}
|
|
|
|
static void __lambda_98(void *data, int argc, object self_73580, object pass_91arg_7376_73149_73191) {
|
|
|
|
pair_type local_731340;
|
|
return_closcall1(data, ((closureN)self_73580)->elements[0], set_pair_as_expr(&local_731340, ((closureN)self_73580)->elements[1], pass_91arg_7376_73149_73191));;
|
|
}
|
|
|
|
static void __lambda_95(void *data, int argc, object self_73581, object k_73255) {
|
|
|
|
closureN_type c_731307;
|
|
object e_731316 [1];
|
|
c_731307.hdr.mark = gc_color_red;
|
|
c_731307.hdr.grayed = 0;
|
|
c_731307.tag = closureN_tag;
|
|
c_731307.fn = (function_type)__lambda_96;
|
|
c_731307.num_args = 0;
|
|
c_731307.num_elements = 1;
|
|
c_731307.elements = (object *)e_731316;
|
|
c_731307.elements[0] = ((closureN)self_73581)->elements[0];
|
|
|
|
|
|
closureN_type c_731317;
|
|
object e_731333 [3];
|
|
c_731317.hdr.mark = gc_color_red;
|
|
c_731317.hdr.grayed = 0;
|
|
c_731317.tag = closureN_tag;
|
|
c_731317.fn = (function_type)__lambda_97;
|
|
c_731317.num_args = 1;
|
|
c_731317.num_elements = 3;
|
|
c_731317.elements = (object *)e_731333;
|
|
c_731317.elements[0] = ((closureN)self_73581)->elements[0];
|
|
c_731317.elements[1] = k_73255;
|
|
c_731317.elements[2] = ((closureN)self_73581)->elements[1];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731307,__lambda_96, &c_731317);;
|
|
}
|
|
|
|
static void __lambda_97(void *data, int argc, object self_73582, object r_73256) {
|
|
if( (boolean_f != r_73256) ){
|
|
|
|
pair_type local_731322;
|
|
|
|
|
|
|
|
pair_type local_731328;
|
|
return_closcall1(data, ((closureN)self_73582)->elements[1], set_pair_as_expr(&local_731322, Cyc_cadr(data, ((closureN)self_73582)->elements[0]), set_pair_as_expr(&local_731328, ((closureN)self_73582)->elements[2], NULL)));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73582)->elements[1], ((closureN)self_73582)->elements[2]);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_96(void *data, int argc, object self_73583, object k_73260) {
|
|
if( (boolean_f != ((closureN)self_73583)->elements[0]) ){
|
|
|
|
|
|
|
|
|
|
return_direct_with_clo1(data, k_73260,__lambda_97, Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_73583)->elements[0]), obj_int2obj(1)));
|
|
} else {
|
|
return_direct_with_clo1(data, k_73260,__lambda_97, boolean_f);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_88(void *data, int argc, object self_73584, object r_73250) {
|
|
|
|
closureN_type c_731231;
|
|
object e_731294 [6];
|
|
c_731231.hdr.mark = gc_color_red;
|
|
c_731231.hdr.grayed = 0;
|
|
c_731231.tag = closureN_tag;
|
|
c_731231.fn = (function_type)__lambda_89;
|
|
c_731231.num_args = 1;
|
|
c_731231.num_elements = 6;
|
|
c_731231.elements = (object *)e_731294;
|
|
c_731231.elements[0] = ((closureN)self_73584)->elements[0];
|
|
c_731231.elements[1] = ((closureN)self_73584)->elements[1];
|
|
c_731231.elements[2] = ((closureN)self_73584)->elements[2];
|
|
c_731231.elements[3] = ((closureN)self_73584)->elements[3];
|
|
c_731231.elements[4] = ((closureN)self_73584)->elements[4];
|
|
c_731231.elements[5] = ((closureN)self_73584)->elements[5];
|
|
|
|
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731231, r_73250, Cyc_cddddr(data, ((closureN)self_73584)->elements[2]));;
|
|
}
|
|
|
|
static void __lambda_89(void *data, int argc, object self_73585, object arg_91syms_7363_73145_73187) {
|
|
|
|
closureN_type c_731233;
|
|
object e_731293 [7];
|
|
c_731233.hdr.mark = gc_color_red;
|
|
c_731233.hdr.grayed = 0;
|
|
c_731233.tag = closureN_tag;
|
|
c_731233.fn = (function_type)__lambda_90;
|
|
c_731233.num_args = 1;
|
|
c_731233.num_elements = 7;
|
|
c_731233.elements = (object *)e_731293;
|
|
c_731233.elements[0] = arg_91syms_7363_73145_73187;
|
|
c_731233.elements[1] = ((closureN)self_73585)->elements[0];
|
|
c_731233.elements[2] = ((closureN)self_73585)->elements[1];
|
|
c_731233.elements[3] = ((closureN)self_73585)->elements[2];
|
|
c_731233.elements[4] = ((closureN)self_73585)->elements[3];
|
|
c_731233.elements[5] = ((closureN)self_73585)->elements[4];
|
|
c_731233.elements[6] = ((closureN)self_73585)->elements[5];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731233, primitive_car, arg_91syms_7363_73145_73187);;
|
|
}
|
|
|
|
static void __lambda_90(void *data, int argc, object self_73586, object r_73244) {
|
|
|
|
closureN_type c_731235;
|
|
object e_731291 [7];
|
|
c_731235.hdr.mark = gc_color_red;
|
|
c_731235.hdr.grayed = 0;
|
|
c_731235.tag = closureN_tag;
|
|
c_731235.fn = (function_type)__lambda_91;
|
|
c_731235.num_args = 1;
|
|
c_731235.num_elements = 7;
|
|
c_731235.elements = (object *)e_731291;
|
|
c_731235.elements[0] = ((closureN)self_73586)->elements[1];
|
|
c_731235.elements[1] = ((closureN)self_73586)->elements[2];
|
|
c_731235.elements[2] = ((closureN)self_73586)->elements[3];
|
|
c_731235.elements[3] = ((closureN)self_73586)->elements[4];
|
|
c_731235.elements[4] = r_73244;
|
|
c_731235.elements[5] = ((closureN)self_73586)->elements[5];
|
|
c_731235.elements[6] = ((closureN)self_73586)->elements[6];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731235, primitive_cdr, ((closureN)self_73586)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_91(void *data, int argc, object self_73587, object r_73243) {
|
|
|
|
pair_type local_731240;
|
|
|
|
pair_type local_731243;
|
|
|
|
pair_type local_731246;
|
|
|
|
pair_type local_731249;
|
|
|
|
pair_type local_731253;
|
|
|
|
pair_type local_731257;
|
|
|
|
pair_type local_731261;
|
|
|
|
pair_type local_731264;
|
|
|
|
pair_type local_731267;
|
|
|
|
pair_type local_731270;
|
|
|
|
|
|
|
|
pair_type local_731277;
|
|
|
|
pair_type local_731280;
|
|
|
|
|
|
|
|
pair_type local_731286;
|
|
|
|
pair_type local_731289;
|
|
return_closcall1(data, ((closureN)self_73587)->elements[3], set_pair_as_expr(&local_731240, quote_begin, set_pair_as_expr(&local_731243, set_pair_as_expr(&local_731246, quote_define_91c, set_pair_as_expr(&local_731249, ((closureN)self_73587)->elements[6], set_pair_as_expr(&local_731253, ((closureN)self_73587)->elements[0], set_pair_as_expr(&local_731257, ((closureN)self_73587)->elements[1], NULL)))), set_pair_as_expr(&local_731261, set_pair_as_expr(&local_731264, quote_define, set_pair_as_expr(&local_731267, set_pair_as_expr(&local_731270, Cyc_cadr(data, ((closureN)self_73587)->elements[2]), ((closureN)self_73587)->elements[4]), set_pair_as_expr(&local_731277, set_pair_as_expr(&local_731280, car(((closureN)self_73587)->elements[5]), set_pair_as_expr(&local_731286, set_pair_as_expr(&local_731289, ((closureN)self_73587)->elements[6], r_73243), NULL)), NULL))), NULL))));;
|
|
}
|
|
|
|
static void __lambda_86(void *data, int argc, object self_73588, object k_73284) {
|
|
|
|
if( (boolean_f != car(((closureN)self_73588)->elements[0])) ){
|
|
return_direct_with_clo1(data, k_73284,__lambda_87, Cyc_VOID);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73284,__lambda_87, Cyc_set_cell(data, ((closureN)self_73588)->elements[0], quote_begin));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_16(void *data, int argc, object self_73589, object k_73302) {
|
|
object r_73303;
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73589)->elements[3], quote__int)) ){
|
|
r_73303 = boolean_t;
|
|
} else {
|
|
|
|
r_73303 = Cyc_eq(((closureN)self_73589)->elements[3], quote_integer);}
|
|
;if( (boolean_f != r_73303) ){
|
|
|
|
closureN_type c_73747;
|
|
object e_73777 [2];
|
|
c_73747.hdr.mark = gc_color_red;
|
|
c_73747.hdr.grayed = 0;
|
|
c_73747.tag = closureN_tag;
|
|
c_73747.fn = (function_type)__lambda_17;
|
|
c_73747.num_args = 1;
|
|
c_73747.num_elements = 2;
|
|
c_73747.elements = (object *)e_73777;
|
|
c_73747.elements[0] = ((closureN)self_73589)->elements[1];
|
|
c_73747.elements[1] = k_73302;
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73747, primitive_cdr, ((closureN)self_73589)->elements[0]);
|
|
} else {
|
|
|
|
closureN_type c_73780;
|
|
object e_73789 [1];
|
|
c_73780.hdr.mark = gc_color_red;
|
|
c_73780.hdr.grayed = 0;
|
|
c_73780.tag = closureN_tag;
|
|
c_73780.fn = (function_type)__lambda_21;
|
|
c_73780.num_args = 0;
|
|
c_73780.num_elements = 1;
|
|
c_73780.elements = (object *)e_73789;
|
|
c_73780.elements[0] = ((closureN)self_73589)->elements[3];
|
|
|
|
|
|
closureN_type c_73790;
|
|
object e_731185 [5];
|
|
c_73790.hdr.mark = gc_color_red;
|
|
c_73790.hdr.grayed = 0;
|
|
c_73790.tag = closureN_tag;
|
|
c_73790.fn = (function_type)__lambda_22;
|
|
c_73790.num_args = 1;
|
|
c_73790.num_elements = 5;
|
|
c_73790.elements = (object *)e_731185;
|
|
c_73790.elements[0] = ((closureN)self_73589)->elements[0];
|
|
c_73790.elements[1] = ((closureN)self_73589)->elements[1];
|
|
c_73790.elements[2] = k_73302;
|
|
c_73790.elements[3] = ((closureN)self_73589)->elements[2];
|
|
c_73790.elements[4] = ((closureN)self_73589)->elements[3];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73780,__lambda_21, &c_73790);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_22(void *data, int argc, object self_73594, object r_73308) {
|
|
if( (boolean_f != r_73308) ){
|
|
|
|
closureN_type c_73792;
|
|
object e_73839 [3];
|
|
c_73792.hdr.mark = gc_color_red;
|
|
c_73792.hdr.grayed = 0;
|
|
c_73792.tag = closureN_tag;
|
|
c_73792.fn = (function_type)__lambda_23;
|
|
c_73792.num_args = 1;
|
|
c_73792.num_elements = 3;
|
|
c_73792.elements = (object *)e_73839;
|
|
c_73792.elements[0] = ((closureN)self_73594)->elements[0];
|
|
c_73792.elements[1] = ((closureN)self_73594)->elements[1];
|
|
c_73792.elements[2] = ((closureN)self_73594)->elements[2];
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_73792, quote_var);
|
|
} else {
|
|
|
|
closureN_type c_73841;
|
|
object e_73850 [1];
|
|
c_73841.hdr.mark = gc_color_red;
|
|
c_73841.hdr.grayed = 0;
|
|
c_73841.tag = closureN_tag;
|
|
c_73841.fn = (function_type)__lambda_30;
|
|
c_73841.num_args = 0;
|
|
c_73841.num_elements = 1;
|
|
c_73841.elements = (object *)e_73850;
|
|
c_73841.elements[0] = ((closureN)self_73594)->elements[4];
|
|
|
|
|
|
closureN_type c_73851;
|
|
object e_731184 [5];
|
|
c_73851.hdr.mark = gc_color_red;
|
|
c_73851.hdr.grayed = 0;
|
|
c_73851.tag = closureN_tag;
|
|
c_73851.fn = (function_type)__lambda_31;
|
|
c_73851.num_args = 1;
|
|
c_73851.num_elements = 5;
|
|
c_73851.elements = (object *)e_731184;
|
|
c_73851.elements[0] = ((closureN)self_73594)->elements[0];
|
|
c_73851.elements[1] = ((closureN)self_73594)->elements[1];
|
|
c_73851.elements[2] = ((closureN)self_73594)->elements[2];
|
|
c_73851.elements[3] = ((closureN)self_73594)->elements[3];
|
|
c_73851.elements[4] = ((closureN)self_73594)->elements[4];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73841,__lambda_30, &c_73851);}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_31(void *data, int argc, object self_73602, object r_73317) {
|
|
if( (boolean_f != r_73317) ){
|
|
|
|
closureN_type c_73853;
|
|
object e_73901 [3];
|
|
c_73853.hdr.mark = gc_color_red;
|
|
c_73853.hdr.grayed = 0;
|
|
c_73853.tag = closureN_tag;
|
|
c_73853.fn = (function_type)__lambda_32;
|
|
c_73853.num_args = 1;
|
|
c_73853.num_elements = 3;
|
|
c_73853.elements = (object *)e_73901;
|
|
c_73853.elements[0] = ((closureN)self_73602)->elements[0];
|
|
c_73853.elements[1] = ((closureN)self_73602)->elements[1];
|
|
c_73853.elements[2] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_73853, quote_var);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_bool)) ){
|
|
|
|
closureN_type c_73906;
|
|
object e_73936 [2];
|
|
c_73906.hdr.mark = gc_color_red;
|
|
c_73906.hdr.grayed = 0;
|
|
c_73906.tag = closureN_tag;
|
|
c_73906.fn = (function_type)__lambda_39;
|
|
c_73906.num_args = 1;
|
|
c_73906.num_elements = 2;
|
|
c_73906.elements = (object *)e_73936;
|
|
c_73906.elements[0] = ((closureN)self_73602)->elements[1];
|
|
c_73906.elements[1] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73906, primitive_cdr, ((closureN)self_73602)->elements[0]);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote__char)) ){
|
|
|
|
closureN_type c_73942;
|
|
object e_73972 [2];
|
|
c_73942.hdr.mark = gc_color_red;
|
|
c_73942.hdr.grayed = 0;
|
|
c_73942.tag = closureN_tag;
|
|
c_73942.fn = (function_type)__lambda_43;
|
|
c_73942.num_args = 1;
|
|
c_73942.num_elements = 2;
|
|
c_73942.elements = (object *)e_73972;
|
|
c_73942.elements[0] = ((closureN)self_73602)->elements[1];
|
|
c_73942.elements[1] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73942, primitive_cdr, ((closureN)self_73602)->elements[0]);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_string)) ){
|
|
|
|
closureN_type c_73978;
|
|
object e_731025 [3];
|
|
c_73978.hdr.mark = gc_color_red;
|
|
c_73978.hdr.grayed = 0;
|
|
c_73978.tag = closureN_tag;
|
|
c_73978.fn = (function_type)__lambda_47;
|
|
c_73978.num_args = 1;
|
|
c_73978.num_elements = 3;
|
|
c_73978.elements = (object *)e_731025;
|
|
c_73978.elements[0] = ((closureN)self_73602)->elements[0];
|
|
c_73978.elements[1] = ((closureN)self_73602)->elements[1];
|
|
c_73978.elements[2] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_73978, quote_var);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_bytevector)) ){
|
|
|
|
closureN_type c_731030;
|
|
object e_731079 [3];
|
|
c_731030.hdr.mark = gc_color_red;
|
|
c_731030.hdr.grayed = 0;
|
|
c_731030.tag = closureN_tag;
|
|
c_731030.fn = (function_type)__lambda_54;
|
|
c_731030.num_args = 1;
|
|
c_731030.num_elements = 3;
|
|
c_731030.elements = (object *)e_731079;
|
|
c_731030.elements[0] = ((closureN)self_73602)->elements[0];
|
|
c_731030.elements[1] = ((closureN)self_73602)->elements[1];
|
|
c_731030.elements[2] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_731030, quote_var);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_opaque)) ){
|
|
|
|
closureN_type c_731084;
|
|
object e_731131 [3];
|
|
c_731084.hdr.mark = gc_color_red;
|
|
c_731084.hdr.grayed = 0;
|
|
c_731084.tag = closureN_tag;
|
|
c_731084.fn = (function_type)__lambda_61;
|
|
c_731084.num_args = 1;
|
|
c_731084.num_elements = 3;
|
|
c_731084.elements = (object *)e_731131;
|
|
c_731084.elements[0] = ((closureN)self_73602)->elements[0];
|
|
c_731084.elements[1] = ((closureN)self_73602)->elements[1];
|
|
c_731084.elements[2] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall2(data, __glo_gensym_scheme_cyclone_util, &c_731084, quote_var);
|
|
} else {
|
|
|
|
if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_c_91void)) ){
|
|
|
|
closureN_type c_731136;
|
|
object e_731165 [2];
|
|
c_731136.hdr.mark = gc_color_red;
|
|
c_731136.hdr.grayed = 0;
|
|
c_731136.tag = closureN_tag;
|
|
c_731136.fn = (function_type)__lambda_68;
|
|
c_731136.num_args = 1;
|
|
c_731136.num_elements = 2;
|
|
c_731136.elements = (object *)e_731165;
|
|
c_731136.elements[0] = ((closureN)self_73602)->elements[1];
|
|
c_731136.elements[1] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731136, primitive_cdr, ((closureN)self_73602)->elements[0]);
|
|
} else {
|
|
|
|
closureN_type c_731168;
|
|
object e_731178 [2];
|
|
c_731168.hdr.mark = gc_color_red;
|
|
c_731168.hdr.grayed = 0;
|
|
c_731168.tag = closureN_tag;
|
|
c_731168.fn = (function_type)__lambda_72;
|
|
c_731168.num_args = 0;
|
|
c_731168.num_elements = 2;
|
|
c_731168.elements = (object *)e_731178;
|
|
c_731168.elements[0] = ((closureN)self_73602)->elements[1];
|
|
c_731168.elements[1] = ((closureN)self_73602)->elements[3];
|
|
|
|
|
|
closureN_type c_731179;
|
|
object e_731183 [1];
|
|
c_731179.hdr.mark = gc_color_red;
|
|
c_731179.hdr.grayed = 0;
|
|
c_731179.tag = closureN_tag;
|
|
c_731179.fn = (function_type)__lambda_73;
|
|
c_731179.num_args = 1;
|
|
c_731179.num_elements = 1;
|
|
c_731179.elements = (object *)e_731183;
|
|
c_731179.elements[0] = ((closureN)self_73602)->elements[2];
|
|
|
|
return_direct_with_clo1(data,(closure)&c_731168,__lambda_72, &c_731179);}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_73(void *data, int argc, object self_73643, object r_73368) {
|
|
|
|
make_utf8_string_with_len(c_731182, "c->scm unable to convert C object of type ", 42, 42);
|
|
return_closcall3(data, __glo_error_scheme_base, ((closureN)self_73643)->elements[0], &c_731182, r_73368);;
|
|
}
|
|
|
|
static void __lambda_72(void *data, int argc, object self_73644, object k_73369) {
|
|
if( (boolean_f != ((closureN)self_73644)->elements[1]) ){
|
|
|
|
|
|
return_direct_with_clo1(data, k_73369,__lambda_73, Cyc_car(data, ((closureN)self_73644)->elements[1]));
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73369,__lambda_73, Cyc_caddr(data, ((closureN)self_73644)->elements[0]));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_68(void *data, int argc, object self_73639, object r_73367) {
|
|
|
|
closureN_type c_731138;
|
|
object e_731163 [2];
|
|
c_731138.hdr.mark = gc_color_red;
|
|
c_731138.hdr.grayed = 0;
|
|
c_731138.tag = closureN_tag;
|
|
c_731138.fn = (function_type)__lambda_69;
|
|
c_731138.num_args = 1;
|
|
c_731138.num_elements = 2;
|
|
c_731138.elements = (object *)e_731163;
|
|
c_731138.elements[0] = ((closureN)self_73639)->elements[0];
|
|
c_731138.elements[1] = ((closureN)self_73639)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_731164, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_731138, r_73367, &c_731164);;
|
|
}
|
|
|
|
static void __lambda_69(void *data, int argc, object self_73640, object r_73366) {
|
|
|
|
closureN_type c_731140;
|
|
object e_731154 [1];
|
|
c_731140.hdr.mark = gc_color_red;
|
|
c_731140.hdr.grayed = 0;
|
|
c_731140.tag = closureN_tag;
|
|
c_731140.fn = (function_type)__lambda_70;
|
|
c_731140.num_args = 1;
|
|
c_731140.num_elements = 1;
|
|
c_731140.elements = (object *)e_731154;
|
|
c_731140.elements[0] = ((closureN)self_73640)->elements[1];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_731161, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_731162, ")", 1, 1);
|
|
|
|
object c_731157 = Cyc_string_append(data,(closure)&c_731140,4,Cyc_cadddr(data, ((closureN)self_73640)->elements[0]), &c_731161, r_73366, &c_731162);
|
|
return_closcall1(data,(closure)&c_731140, c_731157);;
|
|
}
|
|
|
|
static void __lambda_70(void *data, int argc, object self_73641, object r_73365) {
|
|
|
|
closureN_type c_731142;
|
|
object e_731149 [1];
|
|
c_731142.hdr.mark = gc_color_red;
|
|
c_731142.hdr.grayed = 0;
|
|
c_731142.tag = closureN_tag;
|
|
c_731142.fn = (function_type)__lambda_71;
|
|
c_731142.num_args = 1;
|
|
c_731142.num_elements = 1;
|
|
c_731142.elements = (object *)e_731149;
|
|
c_731142.elements[0] = ((closureN)self_73641)->elements[0];
|
|
|
|
|
|
make_utf8_string_with_len(c_731153, ";", 1, 1);
|
|
|
|
object c_731152 = Cyc_string_append(data,(closure)&c_731142,2,r_73365, &c_731153);
|
|
return_closcall1(data,(closure)&c_731142, c_731152);;
|
|
}
|
|
|
|
static void __lambda_71(void *data, int argc, object self_73642, object r_73364) {
|
|
|
|
pair_type local_731147;
|
|
|
|
make_utf8_string_with_len(c_731148, "Cyc_VOID", 8, 8);
|
|
return_closcall1(data, ((closureN)self_73642)->elements[0], set_pair_as_expr(&local_731147, r_73364, &c_731148));;
|
|
}
|
|
|
|
static void __lambda_61(void *data, int argc, object self_73632, object r_73361) {
|
|
|
|
closureN_type c_731086;
|
|
object e_731130 [3];
|
|
c_731086.hdr.mark = gc_color_red;
|
|
c_731086.hdr.grayed = 0;
|
|
c_731086.tag = closureN_tag;
|
|
c_731086.fn = (function_type)__lambda_62;
|
|
c_731086.num_args = 1;
|
|
c_731086.num_elements = 3;
|
|
c_731086.elements = (object *)e_731130;
|
|
c_731086.elements[0] = ((closureN)self_73632)->elements[0];
|
|
c_731086.elements[1] = ((closureN)self_73632)->elements[1];
|
|
c_731086.elements[2] = ((closureN)self_73632)->elements[2];
|
|
|
|
return_closcall2(data, __glo_mangle_scheme_cyclone_util, &c_731086, r_73361);;
|
|
}
|
|
|
|
static void __lambda_62(void *data, int argc, object self_73633, object var_73100_73158_73200) {
|
|
|
|
closureN_type c_731088;
|
|
object e_731128 [3];
|
|
c_731088.hdr.mark = gc_color_red;
|
|
c_731088.hdr.grayed = 0;
|
|
c_731088.tag = closureN_tag;
|
|
c_731088.fn = (function_type)__lambda_63;
|
|
c_731088.num_args = 1;
|
|
c_731088.num_elements = 3;
|
|
c_731088.elements = (object *)e_731128;
|
|
c_731088.elements[0] = ((closureN)self_73633)->elements[1];
|
|
c_731088.elements[1] = ((closureN)self_73633)->elements[2];
|
|
c_731088.elements[2] = var_73100_73158_73200;
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731088, primitive_cdr, ((closureN)self_73633)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_63(void *data, int argc, object self_73634, object r_73360) {
|
|
|
|
closureN_type c_731090;
|
|
object e_731126 [3];
|
|
c_731090.hdr.mark = gc_color_red;
|
|
c_731090.hdr.grayed = 0;
|
|
c_731090.tag = closureN_tag;
|
|
c_731090.fn = (function_type)__lambda_64;
|
|
c_731090.num_args = 1;
|
|
c_731090.num_elements = 3;
|
|
c_731090.elements = (object *)e_731126;
|
|
c_731090.elements[0] = ((closureN)self_73634)->elements[0];
|
|
c_731090.elements[1] = ((closureN)self_73634)->elements[1];
|
|
c_731090.elements[2] = ((closureN)self_73634)->elements[2];
|
|
|
|
|
|
make_utf8_string_with_len(c_731127, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_731090, r_73360, &c_731127);;
|
|
}
|
|
|
|
static void __lambda_64(void *data, int argc, object self_73635, object r_73359) {
|
|
|
|
closureN_type c_731092;
|
|
object e_731117 [2];
|
|
c_731092.hdr.mark = gc_color_red;
|
|
c_731092.hdr.grayed = 0;
|
|
c_731092.tag = closureN_tag;
|
|
c_731092.fn = (function_type)__lambda_65;
|
|
c_731092.num_args = 1;
|
|
c_731092.num_elements = 2;
|
|
c_731092.elements = (object *)e_731117;
|
|
c_731092.elements[0] = ((closureN)self_73635)->elements[1];
|
|
c_731092.elements[1] = ((closureN)self_73635)->elements[2];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_731124, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_731125, ")", 1, 1);
|
|
|
|
object c_731120 = Cyc_string_append(data,(closure)&c_731092,4,Cyc_cadddr(data, ((closureN)self_73635)->elements[0]), &c_731124, r_73359, &c_731125);
|
|
return_closcall1(data,(closure)&c_731092, c_731120);;
|
|
}
|
|
|
|
static void __lambda_65(void *data, int argc, object self_73636, object r_73358) {
|
|
|
|
closureN_type c_731094;
|
|
object e_731109 [2];
|
|
c_731094.hdr.mark = gc_color_red;
|
|
c_731094.hdr.grayed = 0;
|
|
c_731094.tag = closureN_tag;
|
|
c_731094.fn = (function_type)__lambda_66;
|
|
c_731094.num_args = 1;
|
|
c_731094.num_elements = 2;
|
|
c_731094.elements = (object *)e_731109;
|
|
c_731094.elements[0] = ((closureN)self_73636)->elements[0];
|
|
c_731094.elements[1] = ((closureN)self_73636)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_731113, "make_c_opaque(", 14, 14);
|
|
|
|
make_utf8_string_with_len(c_731115, ", ", 2, 2);
|
|
|
|
make_utf8_string_with_len(c_731116, ");", 2, 2);
|
|
|
|
object c_731112 = Cyc_string_append(data,(closure)&c_731094,5,&c_731113, ((closureN)self_73636)->elements[1], &c_731115, r_73358, &c_731116);
|
|
return_closcall1(data,(closure)&c_731094, c_731112);;
|
|
}
|
|
|
|
static void __lambda_66(void *data, int argc, object self_73637, object r_73356) {
|
|
|
|
closureN_type c_731096;
|
|
object e_731103 [2];
|
|
c_731096.hdr.mark = gc_color_red;
|
|
c_731096.hdr.grayed = 0;
|
|
c_731096.tag = closureN_tag;
|
|
c_731096.fn = (function_type)__lambda_67;
|
|
c_731096.num_args = 1;
|
|
c_731096.num_elements = 2;
|
|
c_731096.elements = (object *)e_731103;
|
|
c_731096.elements[0] = ((closureN)self_73637)->elements[0];
|
|
c_731096.elements[1] = r_73356;
|
|
|
|
|
|
make_utf8_string_with_len(c_731107, "&", 1, 1);
|
|
|
|
object c_731106 = Cyc_string_append(data,(closure)&c_731096,2,&c_731107, ((closureN)self_73637)->elements[1]);
|
|
return_closcall1(data,(closure)&c_731096, c_731106);;
|
|
}
|
|
|
|
static void __lambda_67(void *data, int argc, object self_73638, object r_73357) {
|
|
|
|
pair_type local_731101;
|
|
return_closcall1(data, ((closureN)self_73638)->elements[0], set_pair_as_expr(&local_731101, ((closureN)self_73638)->elements[1], r_73357));;
|
|
}
|
|
|
|
static void __lambda_54(void *data, int argc, object self_73625, object r_73352) {
|
|
|
|
closureN_type c_731032;
|
|
object e_731078 [3];
|
|
c_731032.hdr.mark = gc_color_red;
|
|
c_731032.hdr.grayed = 0;
|
|
c_731032.tag = closureN_tag;
|
|
c_731032.fn = (function_type)__lambda_55;
|
|
c_731032.num_args = 1;
|
|
c_731032.num_elements = 3;
|
|
c_731032.elements = (object *)e_731078;
|
|
c_731032.elements[0] = ((closureN)self_73625)->elements[0];
|
|
c_731032.elements[1] = ((closureN)self_73625)->elements[1];
|
|
c_731032.elements[2] = ((closureN)self_73625)->elements[2];
|
|
|
|
return_closcall2(data, __glo_mangle_scheme_cyclone_util, &c_731032, r_73352);;
|
|
}
|
|
|
|
static void __lambda_55(void *data, int argc, object self_73626, object var_7399_73157_73199) {
|
|
|
|
closureN_type c_731034;
|
|
object e_731076 [3];
|
|
c_731034.hdr.mark = gc_color_red;
|
|
c_731034.hdr.grayed = 0;
|
|
c_731034.tag = closureN_tag;
|
|
c_731034.fn = (function_type)__lambda_56;
|
|
c_731034.num_args = 1;
|
|
c_731034.num_elements = 3;
|
|
c_731034.elements = (object *)e_731076;
|
|
c_731034.elements[0] = ((closureN)self_73626)->elements[1];
|
|
c_731034.elements[1] = ((closureN)self_73626)->elements[2];
|
|
c_731034.elements[2] = var_7399_73157_73199;
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_731034, primitive_cdr, ((closureN)self_73626)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_56(void *data, int argc, object self_73627, object r_73351) {
|
|
|
|
closureN_type c_731036;
|
|
object e_731074 [3];
|
|
c_731036.hdr.mark = gc_color_red;
|
|
c_731036.hdr.grayed = 0;
|
|
c_731036.tag = closureN_tag;
|
|
c_731036.fn = (function_type)__lambda_57;
|
|
c_731036.num_args = 1;
|
|
c_731036.num_elements = 3;
|
|
c_731036.elements = (object *)e_731074;
|
|
c_731036.elements[0] = ((closureN)self_73627)->elements[0];
|
|
c_731036.elements[1] = ((closureN)self_73627)->elements[1];
|
|
c_731036.elements[2] = ((closureN)self_73627)->elements[2];
|
|
|
|
|
|
make_utf8_string_with_len(c_731075, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_731036, r_73351, &c_731075);;
|
|
}
|
|
|
|
static void __lambda_57(void *data, int argc, object self_73628, object r_73350) {
|
|
|
|
closureN_type c_731038;
|
|
object e_731065 [2];
|
|
c_731038.hdr.mark = gc_color_red;
|
|
c_731038.hdr.grayed = 0;
|
|
c_731038.tag = closureN_tag;
|
|
c_731038.fn = (function_type)__lambda_58;
|
|
c_731038.num_args = 1;
|
|
c_731038.num_elements = 2;
|
|
c_731038.elements = (object *)e_731065;
|
|
c_731038.elements[0] = ((closureN)self_73628)->elements[1];
|
|
c_731038.elements[1] = ((closureN)self_73628)->elements[2];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_731072, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_731073, ")", 1, 1);
|
|
|
|
object c_731068 = Cyc_string_append(data,(closure)&c_731038,4,Cyc_cadddr(data, ((closureN)self_73628)->elements[0]), &c_731072, r_73350, &c_731073);
|
|
return_closcall1(data,(closure)&c_731038, c_731068);;
|
|
}
|
|
|
|
static void __lambda_58(void *data, int argc, object self_73629, object r_73349) {
|
|
|
|
closureN_type c_731040;
|
|
object e_731055 [2];
|
|
c_731040.hdr.mark = gc_color_red;
|
|
c_731040.hdr.grayed = 0;
|
|
c_731040.tag = closureN_tag;
|
|
c_731040.fn = (function_type)__lambda_59;
|
|
c_731040.num_args = 1;
|
|
c_731040.num_elements = 2;
|
|
c_731040.elements = (object *)e_731055;
|
|
c_731040.elements[0] = ((closureN)self_73629)->elements[0];
|
|
c_731040.elements[1] = ((closureN)self_73629)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_731059, "make_empty_bytevector(", 22, 22);
|
|
|
|
make_utf8_string_with_len(c_731061, ");", 2, 2);
|
|
|
|
make_utf8_string_with_len(c_731063, "->data = ", 9, 9);
|
|
|
|
make_utf8_string_with_len(c_731064, ";", 1, 1);
|
|
|
|
object c_731058 = Cyc_string_append(data,(closure)&c_731040,7,&c_731059, ((closureN)self_73629)->elements[1], &c_731061, ((closureN)self_73629)->elements[1], &c_731063, r_73349, &c_731064);
|
|
return_closcall1(data,(closure)&c_731040, c_731058);;
|
|
}
|
|
|
|
static void __lambda_59(void *data, int argc, object self_73630, object r_73347) {
|
|
|
|
closureN_type c_731042;
|
|
object e_731049 [2];
|
|
c_731042.hdr.mark = gc_color_red;
|
|
c_731042.hdr.grayed = 0;
|
|
c_731042.tag = closureN_tag;
|
|
c_731042.fn = (function_type)__lambda_60;
|
|
c_731042.num_args = 1;
|
|
c_731042.num_elements = 2;
|
|
c_731042.elements = (object *)e_731049;
|
|
c_731042.elements[0] = ((closureN)self_73630)->elements[0];
|
|
c_731042.elements[1] = r_73347;
|
|
|
|
|
|
make_utf8_string_with_len(c_731053, "&", 1, 1);
|
|
|
|
object c_731052 = Cyc_string_append(data,(closure)&c_731042,2,&c_731053, ((closureN)self_73630)->elements[1]);
|
|
return_closcall1(data,(closure)&c_731042, c_731052);;
|
|
}
|
|
|
|
static void __lambda_60(void *data, int argc, object self_73631, object r_73348) {
|
|
|
|
pair_type local_731047;
|
|
return_closcall1(data, ((closureN)self_73631)->elements[0], set_pair_as_expr(&local_731047, ((closureN)self_73631)->elements[1], r_73348));;
|
|
}
|
|
|
|
static void __lambda_47(void *data, int argc, object self_73618, object r_73343) {
|
|
|
|
closureN_type c_73980;
|
|
object e_731024 [3];
|
|
c_73980.hdr.mark = gc_color_red;
|
|
c_73980.hdr.grayed = 0;
|
|
c_73980.tag = closureN_tag;
|
|
c_73980.fn = (function_type)__lambda_48;
|
|
c_73980.num_args = 1;
|
|
c_73980.num_elements = 3;
|
|
c_73980.elements = (object *)e_731024;
|
|
c_73980.elements[0] = ((closureN)self_73618)->elements[0];
|
|
c_73980.elements[1] = ((closureN)self_73618)->elements[1];
|
|
c_73980.elements[2] = ((closureN)self_73618)->elements[2];
|
|
|
|
return_closcall2(data, __glo_mangle_scheme_cyclone_util, &c_73980, r_73343);;
|
|
}
|
|
|
|
static void __lambda_48(void *data, int argc, object self_73619, object var_7398_73156_73198) {
|
|
|
|
closureN_type c_73982;
|
|
object e_731022 [3];
|
|
c_73982.hdr.mark = gc_color_red;
|
|
c_73982.hdr.grayed = 0;
|
|
c_73982.tag = closureN_tag;
|
|
c_73982.fn = (function_type)__lambda_49;
|
|
c_73982.num_args = 1;
|
|
c_73982.num_elements = 3;
|
|
c_73982.elements = (object *)e_731022;
|
|
c_73982.elements[0] = ((closureN)self_73619)->elements[1];
|
|
c_73982.elements[1] = ((closureN)self_73619)->elements[2];
|
|
c_73982.elements[2] = var_7398_73156_73198;
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73982, primitive_cdr, ((closureN)self_73619)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_49(void *data, int argc, object self_73620, object r_73342) {
|
|
|
|
closureN_type c_73984;
|
|
object e_731020 [3];
|
|
c_73984.hdr.mark = gc_color_red;
|
|
c_73984.hdr.grayed = 0;
|
|
c_73984.tag = closureN_tag;
|
|
c_73984.fn = (function_type)__lambda_50;
|
|
c_73984.num_args = 1;
|
|
c_73984.num_elements = 3;
|
|
c_73984.elements = (object *)e_731020;
|
|
c_73984.elements[0] = ((closureN)self_73620)->elements[0];
|
|
c_73984.elements[1] = ((closureN)self_73620)->elements[1];
|
|
c_73984.elements[2] = ((closureN)self_73620)->elements[2];
|
|
|
|
|
|
make_utf8_string_with_len(c_731021, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_73984, r_73342, &c_731021);;
|
|
}
|
|
|
|
static void __lambda_50(void *data, int argc, object self_73621, object r_73341) {
|
|
|
|
closureN_type c_73986;
|
|
object e_731011 [2];
|
|
c_73986.hdr.mark = gc_color_red;
|
|
c_73986.hdr.grayed = 0;
|
|
c_73986.tag = closureN_tag;
|
|
c_73986.fn = (function_type)__lambda_51;
|
|
c_73986.num_args = 1;
|
|
c_73986.num_elements = 2;
|
|
c_73986.elements = (object *)e_731011;
|
|
c_73986.elements[0] = ((closureN)self_73621)->elements[1];
|
|
c_73986.elements[1] = ((closureN)self_73621)->elements[2];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_731018, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_731019, ")", 1, 1);
|
|
|
|
object c_731014 = Cyc_string_append(data,(closure)&c_73986,4,Cyc_cadddr(data, ((closureN)self_73621)->elements[0]), &c_731018, r_73341, &c_731019);
|
|
return_closcall1(data,(closure)&c_73986, c_731014);;
|
|
}
|
|
|
|
static void __lambda_51(void *data, int argc, object self_73622, object r_73340) {
|
|
|
|
closureN_type c_73988;
|
|
object e_731003 [2];
|
|
c_73988.hdr.mark = gc_color_red;
|
|
c_73988.hdr.grayed = 0;
|
|
c_73988.tag = closureN_tag;
|
|
c_73988.fn = (function_type)__lambda_52;
|
|
c_73988.num_args = 1;
|
|
c_73988.num_elements = 2;
|
|
c_73988.elements = (object *)e_731003;
|
|
c_73988.elements[0] = ((closureN)self_73622)->elements[0];
|
|
c_73988.elements[1] = ((closureN)self_73622)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_731007, "make_utf8_string(data,", 22, 22);
|
|
|
|
make_utf8_string_with_len(c_731009, ", ", 2, 2);
|
|
|
|
make_utf8_string_with_len(c_731010, ");", 2, 2);
|
|
|
|
object c_731006 = Cyc_string_append(data,(closure)&c_73988,5,&c_731007, ((closureN)self_73622)->elements[1], &c_731009, r_73340, &c_731010);
|
|
return_closcall1(data,(closure)&c_73988, c_731006);;
|
|
}
|
|
|
|
static void __lambda_52(void *data, int argc, object self_73623, object r_73338) {
|
|
|
|
closureN_type c_73990;
|
|
object e_73997 [2];
|
|
c_73990.hdr.mark = gc_color_red;
|
|
c_73990.hdr.grayed = 0;
|
|
c_73990.tag = closureN_tag;
|
|
c_73990.fn = (function_type)__lambda_53;
|
|
c_73990.num_args = 1;
|
|
c_73990.num_elements = 2;
|
|
c_73990.elements = (object *)e_73997;
|
|
c_73990.elements[0] = ((closureN)self_73623)->elements[0];
|
|
c_73990.elements[1] = r_73338;
|
|
|
|
|
|
make_utf8_string_with_len(c_731001, "&", 1, 1);
|
|
|
|
object c_731000 = Cyc_string_append(data,(closure)&c_73990,2,&c_731001, ((closureN)self_73623)->elements[1]);
|
|
return_closcall1(data,(closure)&c_73990, c_731000);;
|
|
}
|
|
|
|
static void __lambda_53(void *data, int argc, object self_73624, object r_73339) {
|
|
|
|
pair_type local_73995;
|
|
return_closcall1(data, ((closureN)self_73624)->elements[0], set_pair_as_expr(&local_73995, ((closureN)self_73624)->elements[1], r_73339));;
|
|
}
|
|
|
|
static void __lambda_43(void *data, int argc, object self_73614, object r_73335) {
|
|
|
|
closureN_type c_73944;
|
|
object e_73970 [2];
|
|
c_73944.hdr.mark = gc_color_red;
|
|
c_73944.hdr.grayed = 0;
|
|
c_73944.tag = closureN_tag;
|
|
c_73944.fn = (function_type)__lambda_44;
|
|
c_73944.num_args = 1;
|
|
c_73944.num_elements = 2;
|
|
c_73944.elements = (object *)e_73970;
|
|
c_73944.elements[0] = ((closureN)self_73614)->elements[0];
|
|
c_73944.elements[1] = ((closureN)self_73614)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_73971, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_73944, r_73335, &c_73971);;
|
|
}
|
|
|
|
static void __lambda_44(void *data, int argc, object self_73615, object r_73334) {
|
|
|
|
closureN_type c_73946;
|
|
object e_73961 [1];
|
|
c_73946.hdr.mark = gc_color_red;
|
|
c_73946.hdr.grayed = 0;
|
|
c_73946.tag = closureN_tag;
|
|
c_73946.fn = (function_type)__lambda_45;
|
|
c_73946.num_args = 1;
|
|
c_73946.num_elements = 1;
|
|
c_73946.elements = (object *)e_73961;
|
|
c_73946.elements[0] = ((closureN)self_73615)->elements[1];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_73968, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_73969, ")", 1, 1);
|
|
|
|
object c_73964 = Cyc_string_append(data,(closure)&c_73946,4,Cyc_cadddr(data, ((closureN)self_73615)->elements[0]), &c_73968, r_73334, &c_73969);
|
|
return_closcall1(data,(closure)&c_73946, c_73964);;
|
|
}
|
|
|
|
static void __lambda_45(void *data, int argc, object self_73616, object r_73333) {
|
|
|
|
closureN_type c_73948;
|
|
object e_73955 [1];
|
|
c_73948.hdr.mark = gc_color_red;
|
|
c_73948.hdr.grayed = 0;
|
|
c_73948.tag = closureN_tag;
|
|
c_73948.fn = (function_type)__lambda_46;
|
|
c_73948.num_args = 1;
|
|
c_73948.num_elements = 1;
|
|
c_73948.elements = (object *)e_73955;
|
|
c_73948.elements[0] = ((closureN)self_73616)->elements[0];
|
|
|
|
|
|
make_utf8_string_with_len(c_73959, "obj_char2obj(", 13, 13);
|
|
|
|
make_utf8_string_with_len(c_73960, ")", 1, 1);
|
|
|
|
object c_73958 = Cyc_string_append(data,(closure)&c_73948,3,&c_73959, r_73333, &c_73960);
|
|
return_closcall1(data,(closure)&c_73948, c_73958);;
|
|
}
|
|
|
|
static void __lambda_46(void *data, int argc, object self_73617, object r_73332) {
|
|
|
|
pair_type local_73953;
|
|
|
|
make_utf8_string_with_len(c_73954, "", 0, 0);
|
|
return_closcall1(data, ((closureN)self_73617)->elements[0], set_pair_as_expr(&local_73953, &c_73954, r_73332));;
|
|
}
|
|
|
|
static void __lambda_39(void *data, int argc, object self_73610, object r_73330) {
|
|
|
|
closureN_type c_73908;
|
|
object e_73934 [2];
|
|
c_73908.hdr.mark = gc_color_red;
|
|
c_73908.hdr.grayed = 0;
|
|
c_73908.tag = closureN_tag;
|
|
c_73908.fn = (function_type)__lambda_40;
|
|
c_73908.num_args = 1;
|
|
c_73908.num_elements = 2;
|
|
c_73908.elements = (object *)e_73934;
|
|
c_73908.elements[0] = ((closureN)self_73610)->elements[0];
|
|
c_73908.elements[1] = ((closureN)self_73610)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_73935, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_73908, r_73330, &c_73935);;
|
|
}
|
|
|
|
static void __lambda_40(void *data, int argc, object self_73611, object r_73329) {
|
|
|
|
closureN_type c_73910;
|
|
object e_73925 [1];
|
|
c_73910.hdr.mark = gc_color_red;
|
|
c_73910.hdr.grayed = 0;
|
|
c_73910.tag = closureN_tag;
|
|
c_73910.fn = (function_type)__lambda_41;
|
|
c_73910.num_args = 1;
|
|
c_73910.num_elements = 1;
|
|
c_73910.elements = (object *)e_73925;
|
|
c_73910.elements[0] = ((closureN)self_73611)->elements[1];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_73932, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_73933, ")", 1, 1);
|
|
|
|
object c_73928 = Cyc_string_append(data,(closure)&c_73910,4,Cyc_cadddr(data, ((closureN)self_73611)->elements[0]), &c_73932, r_73329, &c_73933);
|
|
return_closcall1(data,(closure)&c_73910, c_73928);;
|
|
}
|
|
|
|
static void __lambda_41(void *data, int argc, object self_73612, object r_73328) {
|
|
|
|
closureN_type c_73912;
|
|
object e_73919 [1];
|
|
c_73912.hdr.mark = gc_color_red;
|
|
c_73912.hdr.grayed = 0;
|
|
c_73912.tag = closureN_tag;
|
|
c_73912.fn = (function_type)__lambda_42;
|
|
c_73912.num_args = 1;
|
|
c_73912.num_elements = 1;
|
|
c_73912.elements = (object *)e_73919;
|
|
c_73912.elements[0] = ((closureN)self_73612)->elements[0];
|
|
|
|
|
|
make_utf8_string_with_len(c_73923, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_73924, " == 0 ? boolean_f : boolean_t)", 30, 30);
|
|
|
|
object c_73922 = Cyc_string_append(data,(closure)&c_73912,3,&c_73923, r_73328, &c_73924);
|
|
return_closcall1(data,(closure)&c_73912, c_73922);;
|
|
}
|
|
|
|
static void __lambda_42(void *data, int argc, object self_73613, object r_73327) {
|
|
|
|
pair_type local_73917;
|
|
|
|
make_utf8_string_with_len(c_73918, "", 0, 0);
|
|
return_closcall1(data, ((closureN)self_73613)->elements[0], set_pair_as_expr(&local_73917, &c_73918, r_73327));;
|
|
}
|
|
|
|
static void __lambda_32(void *data, int argc, object self_73603, object r_73324) {
|
|
|
|
closureN_type c_73855;
|
|
object e_73900 [3];
|
|
c_73855.hdr.mark = gc_color_red;
|
|
c_73855.hdr.grayed = 0;
|
|
c_73855.tag = closureN_tag;
|
|
c_73855.fn = (function_type)__lambda_33;
|
|
c_73855.num_args = 1;
|
|
c_73855.num_elements = 3;
|
|
c_73855.elements = (object *)e_73900;
|
|
c_73855.elements[0] = ((closureN)self_73603)->elements[0];
|
|
c_73855.elements[1] = ((closureN)self_73603)->elements[1];
|
|
c_73855.elements[2] = ((closureN)self_73603)->elements[2];
|
|
|
|
return_closcall2(data, __glo_mangle_scheme_cyclone_util, &c_73855, r_73324);;
|
|
}
|
|
|
|
static void __lambda_33(void *data, int argc, object self_73604, object var_7397_73155_73197) {
|
|
|
|
closureN_type c_73857;
|
|
object e_73898 [3];
|
|
c_73857.hdr.mark = gc_color_red;
|
|
c_73857.hdr.grayed = 0;
|
|
c_73857.tag = closureN_tag;
|
|
c_73857.fn = (function_type)__lambda_34;
|
|
c_73857.num_args = 1;
|
|
c_73857.num_elements = 3;
|
|
c_73857.elements = (object *)e_73898;
|
|
c_73857.elements[0] = ((closureN)self_73604)->elements[1];
|
|
c_73857.elements[1] = ((closureN)self_73604)->elements[2];
|
|
c_73857.elements[2] = var_7397_73155_73197;
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73857, primitive_cdr, ((closureN)self_73604)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_34(void *data, int argc, object self_73605, object r_73323) {
|
|
|
|
closureN_type c_73859;
|
|
object e_73896 [3];
|
|
c_73859.hdr.mark = gc_color_red;
|
|
c_73859.hdr.grayed = 0;
|
|
c_73859.tag = closureN_tag;
|
|
c_73859.fn = (function_type)__lambda_35;
|
|
c_73859.num_args = 1;
|
|
c_73859.num_elements = 3;
|
|
c_73859.elements = (object *)e_73896;
|
|
c_73859.elements[0] = ((closureN)self_73605)->elements[0];
|
|
c_73859.elements[1] = ((closureN)self_73605)->elements[1];
|
|
c_73859.elements[2] = ((closureN)self_73605)->elements[2];
|
|
|
|
|
|
make_utf8_string_with_len(c_73897, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_73859, r_73323, &c_73897);;
|
|
}
|
|
|
|
static void __lambda_35(void *data, int argc, object self_73606, object r_73322) {
|
|
|
|
closureN_type c_73861;
|
|
object e_73887 [2];
|
|
c_73861.hdr.mark = gc_color_red;
|
|
c_73861.hdr.grayed = 0;
|
|
c_73861.tag = closureN_tag;
|
|
c_73861.fn = (function_type)__lambda_36;
|
|
c_73861.num_args = 1;
|
|
c_73861.num_elements = 2;
|
|
c_73861.elements = (object *)e_73887;
|
|
c_73861.elements[0] = ((closureN)self_73606)->elements[1];
|
|
c_73861.elements[1] = ((closureN)self_73606)->elements[2];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_73894, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_73895, ")", 1, 1);
|
|
|
|
object c_73890 = Cyc_string_append(data,(closure)&c_73861,4,Cyc_cadddr(data, ((closureN)self_73606)->elements[0]), &c_73894, r_73322, &c_73895);
|
|
return_closcall1(data,(closure)&c_73861, c_73890);;
|
|
}
|
|
|
|
static void __lambda_36(void *data, int argc, object self_73607, object r_73321) {
|
|
|
|
closureN_type c_73863;
|
|
object e_73877 [2];
|
|
c_73863.hdr.mark = gc_color_red;
|
|
c_73863.hdr.grayed = 0;
|
|
c_73863.tag = closureN_tag;
|
|
c_73863.fn = (function_type)__lambda_37;
|
|
c_73863.num_args = 1;
|
|
c_73863.num_elements = 2;
|
|
c_73863.elements = (object *)e_73877;
|
|
c_73863.elements[0] = ((closureN)self_73607)->elements[0];
|
|
c_73863.elements[1] = ((closureN)self_73607)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_73881, "alloc_bignum(data,", 18, 18);
|
|
|
|
make_utf8_string_with_len(c_73883, ");", 2, 2);
|
|
|
|
make_utf8_string_with_len(c_73885, "->bn = ", 7, 7);
|
|
|
|
make_utf8_string_with_len(c_73886, ";", 1, 1);
|
|
|
|
object c_73880 = Cyc_string_append(data,(closure)&c_73863,7,&c_73881, ((closureN)self_73607)->elements[1], &c_73883, ((closureN)self_73607)->elements[1], &c_73885, r_73321, &c_73886);
|
|
return_closcall1(data,(closure)&c_73863, c_73880);;
|
|
}
|
|
|
|
static void __lambda_37(void *data, int argc, object self_73608, object r_73319) {
|
|
|
|
closureN_type c_73865;
|
|
object e_73872 [2];
|
|
c_73865.hdr.mark = gc_color_red;
|
|
c_73865.hdr.grayed = 0;
|
|
c_73865.tag = closureN_tag;
|
|
c_73865.fn = (function_type)__lambda_38;
|
|
c_73865.num_args = 1;
|
|
c_73865.num_elements = 2;
|
|
c_73865.elements = (object *)e_73872;
|
|
c_73865.elements[0] = ((closureN)self_73608)->elements[0];
|
|
c_73865.elements[1] = r_73319;
|
|
|
|
|
|
object c_73875 = Cyc_string_append(data,(closure)&c_73865,1,((closureN)self_73608)->elements[1]);
|
|
return_closcall1(data,(closure)&c_73865, c_73875);;
|
|
}
|
|
|
|
static void __lambda_38(void *data, int argc, object self_73609, object r_73320) {
|
|
|
|
pair_type local_73870;
|
|
return_closcall1(data, ((closureN)self_73609)->elements[0], set_pair_as_expr(&local_73870, ((closureN)self_73609)->elements[1], r_73320));;
|
|
}
|
|
|
|
static void __lambda_30(void *data, int argc, object self_73645, object k_73376) {
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73645)->elements[0], quote_bignum)) ){
|
|
return_direct_with_clo1(data, k_73376,__lambda_31, boolean_t);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73376,__lambda_31, Cyc_eq(((closureN)self_73645)->elements[0], quote_bigint));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_23(void *data, int argc, object self_73595, object r_73315) {
|
|
|
|
closureN_type c_73794;
|
|
object e_73838 [3];
|
|
c_73794.hdr.mark = gc_color_red;
|
|
c_73794.hdr.grayed = 0;
|
|
c_73794.tag = closureN_tag;
|
|
c_73794.fn = (function_type)__lambda_24;
|
|
c_73794.num_args = 1;
|
|
c_73794.num_elements = 3;
|
|
c_73794.elements = (object *)e_73838;
|
|
c_73794.elements[0] = ((closureN)self_73595)->elements[0];
|
|
c_73794.elements[1] = ((closureN)self_73595)->elements[1];
|
|
c_73794.elements[2] = ((closureN)self_73595)->elements[2];
|
|
|
|
return_closcall2(data, __glo_mangle_scheme_cyclone_util, &c_73794, r_73315);;
|
|
}
|
|
|
|
static void __lambda_24(void *data, int argc, object self_73596, object var_7396_73154_73196) {
|
|
|
|
closureN_type c_73796;
|
|
object e_73836 [3];
|
|
c_73796.hdr.mark = gc_color_red;
|
|
c_73796.hdr.grayed = 0;
|
|
c_73796.tag = closureN_tag;
|
|
c_73796.fn = (function_type)__lambda_25;
|
|
c_73796.num_args = 1;
|
|
c_73796.num_elements = 3;
|
|
c_73796.elements = (object *)e_73836;
|
|
c_73796.elements[0] = ((closureN)self_73596)->elements[1];
|
|
c_73796.elements[1] = ((closureN)self_73596)->elements[2];
|
|
c_73796.elements[2] = var_7396_73154_73196;
|
|
|
|
return_closcall3(data, __glo_Cyc_91map_91loop_911_scheme_base, &c_73796, primitive_cdr, ((closureN)self_73596)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_25(void *data, int argc, object self_73597, object r_73314) {
|
|
|
|
closureN_type c_73798;
|
|
object e_73834 [3];
|
|
c_73798.hdr.mark = gc_color_red;
|
|
c_73798.hdr.grayed = 0;
|
|
c_73798.tag = closureN_tag;
|
|
c_73798.fn = (function_type)__lambda_26;
|
|
c_73798.num_args = 1;
|
|
c_73798.num_elements = 3;
|
|
c_73798.elements = (object *)e_73834;
|
|
c_73798.elements[0] = ((closureN)self_73597)->elements[0];
|
|
c_73798.elements[1] = ((closureN)self_73597)->elements[1];
|
|
c_73798.elements[2] = ((closureN)self_73597)->elements[2];
|
|
|
|
|
|
make_utf8_string_with_len(c_73835, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_73798, r_73314, &c_73835);;
|
|
}
|
|
|
|
static void __lambda_26(void *data, int argc, object self_73598, object r_73313) {
|
|
|
|
closureN_type c_73800;
|
|
object e_73825 [2];
|
|
c_73800.hdr.mark = gc_color_red;
|
|
c_73800.hdr.grayed = 0;
|
|
c_73800.tag = closureN_tag;
|
|
c_73800.fn = (function_type)__lambda_27;
|
|
c_73800.num_args = 1;
|
|
c_73800.num_elements = 2;
|
|
c_73800.elements = (object *)e_73825;
|
|
c_73800.elements[0] = ((closureN)self_73598)->elements[1];
|
|
c_73800.elements[1] = ((closureN)self_73598)->elements[2];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_73832, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_73833, ")", 1, 1);
|
|
|
|
object c_73828 = Cyc_string_append(data,(closure)&c_73800,4,Cyc_cadddr(data, ((closureN)self_73598)->elements[0]), &c_73832, r_73313, &c_73833);
|
|
return_closcall1(data,(closure)&c_73800, c_73828);;
|
|
}
|
|
|
|
static void __lambda_27(void *data, int argc, object self_73599, object r_73312) {
|
|
|
|
closureN_type c_73802;
|
|
object e_73817 [2];
|
|
c_73802.hdr.mark = gc_color_red;
|
|
c_73802.hdr.grayed = 0;
|
|
c_73802.tag = closureN_tag;
|
|
c_73802.fn = (function_type)__lambda_28;
|
|
c_73802.num_args = 1;
|
|
c_73802.num_elements = 2;
|
|
c_73802.elements = (object *)e_73817;
|
|
c_73802.elements[0] = ((closureN)self_73599)->elements[0];
|
|
c_73802.elements[1] = ((closureN)self_73599)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_73821, "make_double(", 12, 12);
|
|
|
|
make_utf8_string_with_len(c_73823, ", ", 2, 2);
|
|
|
|
make_utf8_string_with_len(c_73824, ");", 2, 2);
|
|
|
|
object c_73820 = Cyc_string_append(data,(closure)&c_73802,5,&c_73821, ((closureN)self_73599)->elements[1], &c_73823, r_73312, &c_73824);
|
|
return_closcall1(data,(closure)&c_73802, c_73820);;
|
|
}
|
|
|
|
static void __lambda_28(void *data, int argc, object self_73600, object r_73310) {
|
|
|
|
closureN_type c_73804;
|
|
object e_73811 [2];
|
|
c_73804.hdr.mark = gc_color_red;
|
|
c_73804.hdr.grayed = 0;
|
|
c_73804.tag = closureN_tag;
|
|
c_73804.fn = (function_type)__lambda_29;
|
|
c_73804.num_args = 1;
|
|
c_73804.num_elements = 2;
|
|
c_73804.elements = (object *)e_73811;
|
|
c_73804.elements[0] = ((closureN)self_73600)->elements[0];
|
|
c_73804.elements[1] = r_73310;
|
|
|
|
|
|
make_utf8_string_with_len(c_73815, "&", 1, 1);
|
|
|
|
object c_73814 = Cyc_string_append(data,(closure)&c_73804,2,&c_73815, ((closureN)self_73600)->elements[1]);
|
|
return_closcall1(data,(closure)&c_73804, c_73814);;
|
|
}
|
|
|
|
static void __lambda_29(void *data, int argc, object self_73601, object r_73311) {
|
|
|
|
pair_type local_73809;
|
|
return_closcall1(data, ((closureN)self_73601)->elements[0], set_pair_as_expr(&local_73809, ((closureN)self_73601)->elements[1], r_73311));;
|
|
}
|
|
|
|
static void __lambda_21(void *data, int argc, object self_73646, object k_73380) {
|
|
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73646)->elements[0], quote__float)) ){
|
|
return_direct_with_clo1(data, k_73380,__lambda_22, boolean_t);
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73380,__lambda_22, Cyc_eq(((closureN)self_73646)->elements[0], quote__double));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_17(void *data, int argc, object self_73590, object r_73307) {
|
|
|
|
closureN_type c_73749;
|
|
object e_73775 [2];
|
|
c_73749.hdr.mark = gc_color_red;
|
|
c_73749.hdr.grayed = 0;
|
|
c_73749.tag = closureN_tag;
|
|
c_73749.fn = (function_type)__lambda_18;
|
|
c_73749.num_args = 1;
|
|
c_73749.num_elements = 2;
|
|
c_73749.elements = (object *)e_73775;
|
|
c_73749.elements[0] = ((closureN)self_73590)->elements[0];
|
|
c_73749.elements[1] = ((closureN)self_73590)->elements[1];
|
|
|
|
|
|
make_utf8_string_with_len(c_73776, ",", 1, 1);
|
|
return_closcall3(data, __glo_string_91join_scheme_cyclone_util, &c_73749, r_73307, &c_73776);;
|
|
}
|
|
|
|
static void __lambda_18(void *data, int argc, object self_73591, object r_73306) {
|
|
|
|
closureN_type c_73751;
|
|
object e_73766 [1];
|
|
c_73751.hdr.mark = gc_color_red;
|
|
c_73751.hdr.grayed = 0;
|
|
c_73751.tag = closureN_tag;
|
|
c_73751.fn = (function_type)__lambda_19;
|
|
c_73751.num_args = 1;
|
|
c_73751.num_elements = 1;
|
|
c_73751.elements = (object *)e_73766;
|
|
c_73751.elements[0] = ((closureN)self_73591)->elements[1];
|
|
|
|
|
|
|
|
|
|
make_utf8_string_with_len(c_73773, "(", 1, 1);
|
|
|
|
make_utf8_string_with_len(c_73774, ")", 1, 1);
|
|
|
|
object c_73769 = Cyc_string_append(data,(closure)&c_73751,4,Cyc_cadddr(data, ((closureN)self_73591)->elements[0]), &c_73773, r_73306, &c_73774);
|
|
return_closcall1(data,(closure)&c_73751, c_73769);;
|
|
}
|
|
|
|
static void __lambda_19(void *data, int argc, object self_73592, object r_73305) {
|
|
|
|
closureN_type c_73753;
|
|
object e_73760 [1];
|
|
c_73753.hdr.mark = gc_color_red;
|
|
c_73753.hdr.grayed = 0;
|
|
c_73753.tag = closureN_tag;
|
|
c_73753.fn = (function_type)__lambda_20;
|
|
c_73753.num_args = 1;
|
|
c_73753.num_elements = 1;
|
|
c_73753.elements = (object *)e_73760;
|
|
c_73753.elements[0] = ((closureN)self_73592)->elements[0];
|
|
|
|
|
|
make_utf8_string_with_len(c_73764, "obj_int2obj(", 12, 12);
|
|
|
|
make_utf8_string_with_len(c_73765, ")", 1, 1);
|
|
|
|
object c_73763 = Cyc_string_append(data,(closure)&c_73753,3,&c_73764, r_73305, &c_73765);
|
|
return_closcall1(data,(closure)&c_73753, c_73763);;
|
|
}
|
|
|
|
static void __lambda_20(void *data, int argc, object self_73593, object r_73304) {
|
|
|
|
pair_type local_73758;
|
|
|
|
make_utf8_string_with_len(c_73759, "", 0, 0);
|
|
return_closcall1(data, ((closureN)self_73593)->elements[0], set_pair_as_expr(&local_73758, &c_73759, r_73304));;
|
|
}
|
|
|
|
static void __lambda_12(void *data, int argc, object self_73647, object k_73388) {
|
|
object r_73392;
|
|
if( (boolean_f != ((closureN)self_73647)->elements[1]) ){
|
|
|
|
r_73392 = Cyc_car(data, ((closureN)self_73647)->elements[1]);
|
|
} else {
|
|
|
|
r_73392 = Cyc_caddr(data, ((closureN)self_73647)->elements[0]);}
|
|
;
|
|
if( (boolean_f != Cyc_is_string(r_73392)) ){
|
|
|
|
closureN_type c_73707;
|
|
object e_73717 [2];
|
|
c_73707.hdr.mark = gc_color_red;
|
|
c_73707.hdr.grayed = 0;
|
|
c_73707.tag = closureN_tag;
|
|
c_73707.fn = (function_type)__lambda_13;
|
|
c_73707.num_args = 0;
|
|
c_73707.num_elements = 2;
|
|
c_73707.elements = (object *)e_73717;
|
|
c_73707.elements[0] = ((closureN)self_73647)->elements[0];
|
|
c_73707.elements[1] = ((closureN)self_73647)->elements[1];
|
|
|
|
|
|
closureN_type c_73718;
|
|
object e_73723 [1];
|
|
c_73718.hdr.mark = gc_color_red;
|
|
c_73718.hdr.grayed = 0;
|
|
c_73718.tag = closureN_tag;
|
|
c_73718.fn = (function_type)__lambda_14;
|
|
c_73718.num_args = 1;
|
|
c_73718.num_elements = 1;
|
|
c_73718.elements = (object *)e_73723;
|
|
c_73718.elements[0] = k_73388;
|
|
|
|
return_direct_with_clo1(data,(closure)&c_73707,__lambda_13, &c_73718);
|
|
} else {
|
|
if( (boolean_f != ((closureN)self_73647)->elements[1]) ){
|
|
|
|
|
|
return_closcall1(data, k_73388, Cyc_car(data, ((closureN)self_73647)->elements[1]));
|
|
} else {
|
|
|
|
|
|
return_closcall1(data, k_73388, Cyc_caddr(data, ((closureN)self_73647)->elements[0]));}
|
|
;}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_14(void *data, int argc, object self_73648, object r_73390) {
|
|
|
|
|
|
return_closcall1(data, ((closureN)self_73648)->elements[0], Cyc_string2symbol(data, r_73390));;
|
|
}
|
|
|
|
static void __lambda_13(void *data, int argc, object self_73649, object k_73391) {
|
|
if( (boolean_f != ((closureN)self_73649)->elements[1]) ){
|
|
|
|
|
|
return_direct_with_clo1(data, k_73391,__lambda_14, Cyc_car(data, ((closureN)self_73649)->elements[1]));
|
|
} else {
|
|
|
|
|
|
return_direct_with_clo1(data, k_73391,__lambda_14, Cyc_caddr(data, ((closureN)self_73649)->elements[0]));}
|
|
;;
|
|
}
|
|
|
|
static void __lambda_7(void *data, int argc, object self_73650, object k_73464) {
|
|
object r_73465;
|
|
if( (boolean_f != ((closureN)self_73650)->elements[0]) ){
|
|
|
|
|
|
r_73465 = Cyc_num_fast_eq_op(data, obj_int2obj(3), Cyc_length(data, ((closureN)self_73650)->elements[0]));
|
|
} else {
|
|
r_73465 = boolean_f;}
|
|
;if( (boolean_f != r_73465) ){
|
|
|
|
|
|
return_direct_with_clo1(data, k_73464,__lambda_8, Cyc_caddr(data, ((closureN)self_73650)->elements[0]));
|
|
} else {
|
|
return_direct_with_clo1(data, k_73464,__lambda_8, boolean_f);}
|
|
;;
|
|
}
|
|
|
|
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemefile_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_srfi69_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecyclonehashset_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecycloneprimitives_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemeprocess_91context_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecycloneutil_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecyclonelibraries_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemeeval_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecyclonepretty_91print_entry_pt(void *data, int argc, closure cont, object value);
|
|
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; {
|
|
Cyc_set_globals_changed((gc_thread_data *)data);
|
|
quote_sub_91big_91nums = find_or_add_symbol("sub-big-nums");
|
|
quote_c_91define = find_or_add_symbol("c-define");
|
|
quote_scm_91fnc = find_or_add_symbol("scm-fnc");
|
|
quote_symbol = find_or_add_symbol("symbol");
|
|
quote_arg = find_or_add_symbol("arg");
|
|
quote_quote = find_or_add_symbol("quote");
|
|
quote__85foreign_91types_85 = find_or_add_symbol("*foreign-types*");
|
|
quote_hash_91table_91ref = find_or_add_symbol("hash-table-ref");
|
|
quote_X = find_or_add_symbol("X");
|
|
quote_lambda = find_or_add_symbol("lambda");
|
|
quote_with_91handler = find_or_add_symbol("with-handler");
|
|
quote_define = find_or_add_symbol("define");
|
|
quote_define_91c = find_or_add_symbol("define-c");
|
|
quote_begin = find_or_add_symbol("begin");
|
|
quote_c_91void = find_or_add_symbol("c-void");
|
|
quote_opaque = find_or_add_symbol("opaque");
|
|
quote_bytevector = find_or_add_symbol("bytevector");
|
|
quote_string = find_or_add_symbol("string");
|
|
quote__char = find_or_add_symbol("char");
|
|
quote_bool = find_or_add_symbol("bool");
|
|
quote_bigint = find_or_add_symbol("bigint");
|
|
quote_bignum = find_or_add_symbol("bignum");
|
|
quote_var = find_or_add_symbol("var");
|
|
quote__double = find_or_add_symbol("double");
|
|
quote__float = find_or_add_symbol("float");
|
|
quote_integer = find_or_add_symbol("integer");
|
|
quote__int = find_or_add_symbol("int");
|
|
|
|
add_symbol(quote_sub_91big_91nums);
|
|
add_symbol(quote_c_91define);
|
|
add_symbol(quote_scm_91fnc);
|
|
add_symbol(quote_symbol);
|
|
add_symbol(quote_arg);
|
|
add_symbol(quote_quote);
|
|
add_symbol(quote__85foreign_91types_85);
|
|
add_symbol(quote_hash_91table_91ref);
|
|
add_symbol(quote_X);
|
|
add_symbol(quote_lambda);
|
|
add_symbol(quote_with_91handler);
|
|
add_symbol(quote_define);
|
|
add_symbol(quote_define_91c);
|
|
add_symbol(quote_begin);
|
|
add_symbol(quote_c_91void);
|
|
add_symbol(quote_opaque);
|
|
add_symbol(quote_bytevector);
|
|
add_symbol(quote_string);
|
|
add_symbol(quote__char);
|
|
add_symbol(quote_bool);
|
|
add_symbol(quote_bigint);
|
|
add_symbol(quote_bignum);
|
|
add_symbol(quote_var);
|
|
add_symbol(quote__double);
|
|
add_symbol(quote__float);
|
|
add_symbol(quote_integer);
|
|
add_symbol(quote__int);
|
|
|
|
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
|
|
mclosure1(c_731931, c_schemecyclonepretty_91print_entry_pt, &c_done);
|
|
mclosure1(c_731932, c_schemeeval_entry_pt, &c_731931);
|
|
mclosure1(c_731933, c_schemecyclonelibraries_entry_pt, &c_731932);
|
|
mclosure1(c_731934, c_schemecycloneutil_entry_pt, &c_731933);
|
|
mclosure1(c_731935, c_schemeread_entry_pt, &c_731934);
|
|
mclosure1(c_731936, c_schemeprocess_91context_entry_pt, &c_731935);
|
|
mclosure1(c_731937, c_schemecycloneprimitives_entry_pt, &c_731936);
|
|
mclosure1(c_731938, c_schemecyclonehashset_entry_pt, &c_731937);
|
|
mclosure1(c_731939, c_schemewrite_entry_pt, &c_731938);
|
|
mclosure1(c_731940, c_srfi69_entry_pt, &c_731939);
|
|
mclosure1(c_731941, c_scheme_char_entry_pt, &c_731940);
|
|
mclosure1(c_731942, c_schemefile_entry_pt, &c_731941);
|
|
mclosure1(c_731943, c_schemebase_entry_pt, &c_731942);
|
|
mclosure1(c_731944, c_schemecyclonecommon_entry_pt, &c_731943);
|
|
(c_731944.fn)(data, 0, &c_731944, &c_731944);
|
|
}
|
|
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
|
|
make_utf8_string_with_len(c_731927, "sub_big_nums", 12, 12);c_731927.hdr.immutable = 1;
|
|
make_pair(c_731930,quote_bignum,NULL);c_731930.hdr.immutable = 1;
|
|
make_pair(c_731929,quote_bignum,&c_731930);c_731929.hdr.immutable = 1;
|
|
make_pair(c_731928,quote_opaque,&c_731929);c_731928.hdr.immutable = 1;
|
|
make_pair(c_731926,&c_731927,&c_731928);c_731926.hdr.immutable = 1;
|
|
make_pair(c_731925,quote_bignum,&c_731926);c_731925.hdr.immutable = 1;
|
|
make_pair(c_731924,quote_sub_91big_91nums,&c_731925);c_731924.hdr.immutable = 1;
|
|
make_pair(c_731923,quote_c_91define,&c_731924);c_731923.hdr.immutable = 1;
|
|
return_direct3(data,__lambda_1,&c_731923, __glo_values_scheme_base, __glo_values_scheme_base);
|
|
;
|
|
}
|
|
int main(int argc, char **argv, char **envp)
|
|
{gc_thread_data *thd;
|
|
long stack_size = global_stack_size = STACK_SIZE;
|
|
long heap_size = global_heap_size = HEAP_SIZE;
|
|
mclosure0(clos_halt,&Cyc_halt); // Halt if final closure is reached
|
|
mclosure0(entry_pt,&c_entry_pt); // First function to execute
|
|
_cyc_argc = argc;
|
|
_cyc_argv = argv;
|
|
set_env_variables(envp);
|
|
gc_initialize();
|
|
thd = malloc(sizeof(gc_thread_data));
|
|
gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
|
|
thd->gc_cont = &entry_pt;
|
|
thd->gc_args[0] = &clos_halt;
|
|
thd->gc_num_args = 1;
|
|
thd->thread_id = pthread_self();
|
|
gc_add_mutator(thd);
|
|
Cyc_heap_init(heap_size);
|
|
thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
|
|
Cyc_start_trampoline(thd);
|
|
return 0;}
|