/**
 ** This file was automatically generated by the Cyclone scheme compiler
 ** http://justinethier.github.io/cyclone/
 **
 ** (c) 2014-2024 Justin Ethier
 ** Version 0.36.0 
 **
 **/

#define closcall1(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 1, buf ); \
} else { \
   ((clo)->fn)(td, clo, 1, buf); \
;\
}
#define return_closcall1(td, clo,a1) { \
 char top; \
 object buf[1]; buf[0] = a1;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     closcall1(td, (closure) (clo), buf); \
     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; \
 object buf[1]; buf[0] = a1; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 1); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 1, buf); \
 }}

#define return_direct_with_clo1(td, clo, _fn,a1) { \
 char top; \
 object buf[1]; buf[0] = a1;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 1); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 1, buf); \
 }}

#define closcall2(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 2, buf ); \
} else { \
   ((clo)->fn)(td, clo, 2, buf); \
;\
}
#define return_closcall2(td, clo,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     closcall2(td, (closure) (clo), buf); \
     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; \
 object buf[2]; buf[0] = a1;buf[1] = a2; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 2); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 2, buf); \
 }}

#define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 2); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 2, buf); \
 }}

#define closcall3(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 3, buf ); \
} else { \
   ((clo)->fn)(td, clo, 3, buf); \
;\
}
#define return_closcall3(td, clo,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     closcall3(td, (closure) (clo), buf); \
     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; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 3); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 3, buf); \
 }}

#define return_direct_with_clo3(td, clo, _fn,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 3); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 3, buf); \
 }}

#define closcall4(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 4, buf ); \
} else { \
   ((clo)->fn)(td, clo, 4, buf); \
;\
}
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     closcall4(td, (closure) (clo), buf); \
     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; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 4); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 4, buf); \
 }}

#define return_direct_with_clo4(td, clo, _fn,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 4); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 4, buf); \
 }}

#include "cyclone/types.h"
object __glo_usage = NULL;
object __glo_collect_91opt_91values = NULL;
extern object __glo__85Cyc_91version_91banner_85_scheme_cyclone_common;
extern object __glo__85version_85_scheme_cyclone_common;
extern object __glo__85version_91number_85_scheme_cyclone_common;
extern object __glo__85version_91name_85_scheme_cyclone_common;
extern object __glo__85version_91banner_85_scheme_cyclone_common;
extern object __glo__85c_91file_91header_91comment_85_scheme_cyclone_common;
extern object __glo__85reader_91source_91db_85_scheme_cyclone_common;
extern object __glo_memloc_scheme_cyclone_common;
extern object __glo_library_127_scheme_cyclone_libraries;
extern object __glo_library_91exists_127_scheme_cyclone_libraries;
extern object __glo_lib_117list_91_125import_91set_scheme_cyclone_libraries;
extern object __glo_lib_117name_scheme_cyclone_libraries;
extern object __glo_lib_117name_91_125string_scheme_cyclone_libraries;
extern object __glo_lib_117name_91_125symbol_scheme_cyclone_libraries;
extern object __glo_lib_117name_91_125unique_91string_scheme_cyclone_libraries;
extern object __glo_lib_117result_scheme_cyclone_libraries;
extern object __glo_lib_117exports_scheme_cyclone_libraries;
extern object __glo_lib_117rename_91exports_scheme_cyclone_libraries;
extern object __glo_lib_117imports_scheme_cyclone_libraries;
extern object __glo_lib_117body_scheme_cyclone_libraries;
extern object __glo_lib_117cond_91expand_scheme_cyclone_libraries;
extern object __glo_lib_117cond_91expand_91decls_scheme_cyclone_libraries;
extern object __glo_lib_117includes_scheme_cyclone_libraries;
extern object __glo_lib_117include_91c_91headers_scheme_cyclone_libraries;
extern object __glo_lib_117inlines_scheme_cyclone_libraries;
extern object __glo_lib_117import_91set_117library_91name_127_scheme_cyclone_libraries;
extern object __glo_lib_117import_91set_91_125import_91set_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125library_91name_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125filename_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125metalist_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125path_scheme_cyclone_libraries;
extern object __glo_lib_117check_91system_91path_scheme_cyclone_libraries;
extern object __glo_lib_117read_91imports_scheme_cyclone_libraries;
extern object __glo_lib_117read_91includes_scheme_cyclone_libraries;
extern object __glo_lib_117import_91_125export_91list_scheme_cyclone_libraries;
extern object __glo_lib_117import_91set_95exports_91_125imports_scheme_cyclone_libraries;
extern object __glo_lib_117resolve_91meta_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_91import_91deps_scheme_cyclone_libraries;
extern object __glo_lib_117get_91dep_91list_scheme_cyclone_libraries;
extern object __glo_lib_117c_91linker_91options_scheme_cyclone_libraries;
extern object __glo_lib_117read_91c_91linker_91options_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_91c_91linker_91options_scheme_cyclone_libraries;
extern object __glo_lib_117c_91compiler_91options_scheme_cyclone_libraries;
extern object __glo_lib_117read_91c_91compiler_91options_scheme_cyclone_libraries;
extern object __glo_lib_117get_91all_91c_91compiler_91options_scheme_cyclone_libraries;
extern object __glo_lib_117imports_91_125idb_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117ids_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117lookup_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117entry_91_125library_91name_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117entry_91_125library_91id_scheme_cyclone_libraries;
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_current_91expand_91filepath_scheme_cyclone_util;
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_char_91ready_127_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_rationalize_scheme_base;
extern object __glo_char_91alphabetic_127_scheme__char;
extern object __glo_char_91downcase_scheme__char;
extern object __glo_char_91foldcase_scheme__char;
extern object __glo_char_91lower_91case_127_scheme__char;
extern object __glo_char_91numeric_127_scheme__char;
extern object __glo_char_91upcase_scheme__char;
extern object __glo_char_91upper_91case_127_scheme__char;
extern object __glo_char_91whitespace_127_scheme__char;
extern object __glo_char_91ci_121_123_127_scheme__char;
extern object __glo_char_91ci_121_127_scheme__char;
extern object __glo_char_91ci_123_127_scheme__char;
extern object __glo_char_91ci_125_123_127_scheme__char;
extern object __glo_char_91ci_125_127_scheme__char;
extern object __glo_digit_91value_scheme__char;
extern object __glo_string_91upcase_scheme__char;
extern object __glo_string_91downcase_scheme__char;
extern object __glo_string_91foldcase_scheme__char;
extern object __glo_string_91ci_121_123_127_scheme__char;
extern object __glo_string_91ci_121_127_scheme__char;
extern object __glo_string_91ci_123_127_scheme__char;
extern object __glo_string_91ci_125_123_127_scheme__char;
extern object __glo_string_91ci_125_127_scheme__char;
extern object __glo_delay_scheme_lazy;
extern object __glo_force_scheme_lazy;
extern object __glo_delay_91force_scheme_lazy;
extern object __glo_make_91promise_scheme_lazy;
extern object __glo_promise_127_scheme_lazy;
extern object __glo_load_scheme_load;
extern object __glo_read_scheme_read;
extern object __glo_read_91all_scheme_read;
extern object __glo_read_91all_95source_scheme_read;
extern object __glo_include_scheme_read;
extern object __glo_include_91ci_scheme_read;
extern object __glo_interaction_91environment_scheme_repl;
extern object __glo_repl_scheme_repl;
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_acos_scheme_inexact;
extern object __glo_asin_scheme_inexact;
extern object __glo_atan_scheme_inexact;
extern object __glo_cos_scheme_inexact;
extern object __glo_exp_scheme_inexact;
extern object __glo_finite_127_scheme_inexact;
extern object __glo_infinite_127_scheme_inexact;
extern object __glo_log_scheme_inexact;
extern object __glo_nan_127_scheme_inexact;
extern object __glo_sin_scheme_inexact;
extern object __glo_sqrt_scheme_inexact;
extern object __glo_tan_scheme_inexact;
extern object __glo_command_91line_scheme_process_91context;
extern object __glo_emergency_91exit_scheme_process_91context;
extern object __glo_get_91environment_91variable_scheme_process_91context;
extern object __glo_get_91environment_91variables_scheme_process_91context;
extern object __glo_current_91second_scheme_time;
extern object __glo_current_91jiffy_scheme_time;
extern object __glo_jiffies_91per_91second_scheme_time;
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_import_91shared_91object_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_make_91hash_91table_srfi_69;
extern object __glo_hash_91table_127_srfi_69;
extern object __glo_alist_91_125hash_91table_srfi_69;
extern object __glo_hash_91table_91equivalence_91function_srfi_69;
extern object __glo_hash_91table_91hash_91function_srfi_69;
extern object __glo_hash_91table_91ref_srfi_69;
extern object __glo_hash_91table_91ref_95default_srfi_69;
extern object __glo_hash_91table_91set_67_srfi_69;
extern object __glo_hash_91table_91delete_67_srfi_69;
extern object __glo_hash_91table_91exists_127_srfi_69;
extern object __glo_hash_91table_91update_67_srfi_69;
extern object __glo_hash_91table_91update_67_95default_srfi_69;
extern object __glo_hash_91table_91size_srfi_69;
extern object __glo_hash_91table_91keys_srfi_69;
extern object __glo_hash_91table_91values_srfi_69;
extern object __glo_hash_91table_91walk_srfi_69;
extern object __glo_hash_91table_91fold_srfi_69;
extern object __glo_hash_91table_91_125alist_srfi_69;
extern object __glo_hash_91table_91copy_srfi_69;
extern object __glo_hash_91table_91merge_67_srfi_69;
extern object __glo_hash_srfi_69;
extern object __glo_string_91hash_srfi_69;
extern object __glo_string_91ci_91hash_srfi_69;
extern object __glo_hash_91by_91identity_srfi_69;
extern object __glo_Cyc_91memoize_srfi_69;
extern object __glo_lib_117import_91set_91_125import_91set_191_191inline_191_191_scheme_cyclone_libraries;
extern object __glo_lib_117idb_117entry_91_125library_91name_191_191inline_191_191_scheme_cyclone_libraries;
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_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_exact_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_fixnum_127_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_Cyc_91opaque_91eq_127_191_191inline_191_191_scheme_read;
extern object __glo_Cyc_91opaque_91unsafe_91eq_127_191_191inline_191_191_scheme_read;
extern object __glo_Cyc_91opaque_91unsafe_91string_127_191_191inline_191_191_scheme_read;
extern object __glo_Cyc_91opaque_91_125string_191_191inline_191_191_scheme_read;
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;
extern object __glo_symbol_91hash_191_191inline_191_191_srfi_69;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
defsymbol(begin);
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*closure _,object args_7314_7362_7376*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73154, object append_91dirs_7317_7363_7377*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73155, object prepend_91dirs_7320_7364_7378*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73156, object run_91as_91script_7323_7365_7379*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73157, object run_91as_91script_7323_7365_7379*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73158, object r_73108*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_73159, object r_73109*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_73160, object r_73104*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73161, object k_73110*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73162, object r_73111*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73170, object tmp_7351_7353_7371_7385*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73171, object r_73123*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73172, object r_73124*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73174, object r_73126*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_73175, object r_73127*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73176, object k_73128*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_73177, object r_73129*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73178, object r_73131*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73179, object k_73132*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_73180, object r_73138*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73181, object r_73137*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73182, object r_73134*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73183, object k_73139*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73173, object r_73125*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73163, object sexp_91strs_7332_7367_7381*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73164, object sexp_91str_7339_7368_7382*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73165, object in_91port_7342_7369_7383*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73166, object r_73121*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73167, object r_73119*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73168, object r_73117*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73169, object r_73118*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73184, object k_73142*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73185, object k_73148*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73186, object r_73149*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*closure _,object k_73101*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73153, object r_73102*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7388, object args_731_7372, object opt_732_7373*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73150, object k_7392, object arg_733_7374, object accum_734_7375*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73151, object r_7390*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73152, object r_7389*/

static void __lambda_7(void *data, object _, int argc, object *args) /* closure _,object args_7314_7362_7376 */
 {
object args_7314_7362_7376 = args[0];
  
closureN_type c_73240;
object e_73455 [1];
c_73240.hdr.mark = gc_color_red;
 c_73240.hdr.grayed = 0;
c_73240.tag = closureN_tag;
 c_73240.fn = (function_type)__lambda_8;
c_73240.num_args = 1;
c_73240.num_elements = 1;
c_73240.elements = (object *)e_73455;
c_73240.elements[0] = args_7314_7362_7376;


make_utf8_string_with_len(c_73456, "-A", 2, 2);
return_direct_with_clo3(data,  __glo_collect_91opt_91values, (((closure)  __glo_collect_91opt_91values)->fn),  &c_73240, args_7314_7362_7376, &c_73456);; 
}

static void __lambda_8(void *data, object self_73154, int argc, object *args) /* object self_73154, object append_91dirs_7317_7363_7377 */
 {
 object append_91dirs_7317_7363_7377 = args[0];
  
closureN_type c_73242;
object e_73452 [2];
c_73242.hdr.mark = gc_color_red;
 c_73242.hdr.grayed = 0;
c_73242.tag = closureN_tag;
 c_73242.fn = (function_type)__lambda_9;
c_73242.num_args = 1;
c_73242.num_elements = 2;
c_73242.elements = (object *)e_73452;
c_73242.elements[0] = append_91dirs_7317_7363_7377;
c_73242.elements[1] = ((closureN)self_73154)->elements[0];


make_utf8_string_with_len(c_73454, "-I", 2, 2);
return_direct_with_clo3(data,  __glo_collect_91opt_91values, (((closure)  __glo_collect_91opt_91values)->fn),  &c_73242, ((closureN)self_73154)->elements[0], &c_73454);; 
}

static void __lambda_9(void *data, object self_73155, int argc, object *args) /* object self_73155, object prepend_91dirs_7320_7364_7378 */
 {
 object prepend_91dirs_7320_7364_7378 = args[0];
  
closureN_type c_73244;
object e_73451 [3];
c_73244.hdr.mark = gc_color_red;
 c_73244.hdr.grayed = 0;
c_73244.tag = closureN_tag;
 c_73244.fn = (function_type)__lambda_10;
c_73244.num_args = 1;
c_73244.num_elements = 3;
c_73244.elements = (object *)e_73451;
c_73244.elements[0] = ((closureN)self_73155)->elements[0];
c_73244.elements[1] = ((closureN)self_73155)->elements[1];
c_73244.elements[2] = prepend_91dirs_7320_7364_7378;

return_direct_with_clo1(data,(closure)&c_73244,__lambda_10,  boolean_f);; 
}

static void __lambda_10(void *data, object self_73156, int argc, object *args) /* object self_73156, object run_91as_91script_7323_7365_7379 */
 {
 object run_91as_91script_7323_7365_7379 = args[0];
  
closureN_type c_73246;
object e_73447 [3];
c_73246.hdr.mark = gc_color_red;
 c_73246.hdr.grayed = 0;
c_73246.tag = closureN_tag;
 c_73246.fn = (function_type)__lambda_40;
c_73246.num_args = 1;
c_73246.num_elements = 3;
c_73246.elements = (object *)e_73447;
c_73246.elements[0] = ((closureN)self_73156)->elements[0];
c_73246.elements[1] = ((closureN)self_73156)->elements[1];
c_73246.elements[2] = ((closureN)self_73156)->elements[2];


pair_type local_73450; 
return_direct_with_clo1(data,(closure)&c_73246,__lambda_40,  set_cell_as_expr(&local_73450, run_91as_91script_7323_7365_7379));; 
}

static void __lambda_40(void *data, object self_73157, int argc, object *args) /* object self_73157, object run_91as_91script_7323_7365_7379 */
 {
 object run_91as_91script_7323_7365_7379 = args[0];
  
closureN_type c_73248;
object e_73263 [2];
c_73248.hdr.mark = gc_color_red;
 c_73248.hdr.grayed = 0;
c_73248.tag = closureN_tag;
 c_73248.fn = (function_type)__lambda_11;
c_73248.num_args = 0;
c_73248.num_elements = 2;
c_73248.elements = (object *)e_73263;
c_73248.elements[0] = ((closureN)self_73157)->elements[1];
c_73248.elements[1] = run_91as_91script_7323_7365_7379;


closureN_type c_73264;
object e_73446 [4];
c_73264.hdr.mark = gc_color_red;
 c_73264.hdr.grayed = 0;
c_73264.tag = closureN_tag;
 c_73264.fn = (function_type)__lambda_13;
c_73264.num_args = 1;
c_73264.num_elements = 4;
c_73264.elements = (object *)e_73446;
c_73264.elements[0] = ((closureN)self_73157)->elements[0];
c_73264.elements[1] = ((closureN)self_73157)->elements[1];
c_73264.elements[2] = ((closureN)self_73157)->elements[2];
c_73264.elements[3] = run_91as_91script_7323_7365_7379;

return_direct_with_clo1(data,(closure)&c_73248,__lambda_11,  &c_73264);; 
}

static void __lambda_13(void *data, object self_73158, int argc, object *args) /* object self_73158, object r_73108 */
 {

  
closureN_type c_73266;
object e_73292 [2];
c_73266.hdr.mark = gc_color_red;
 c_73266.hdr.grayed = 0;
c_73266.tag = closureN_tag;
 c_73266.fn = (function_type)__lambda_14;
c_73266.num_args = 0;
c_73266.num_elements = 2;
c_73266.elements = (object *)e_73292;
c_73266.elements[0] = ((closureN)self_73158)->elements[0];
c_73266.elements[1] = ((closureN)self_73158)->elements[2];


closureN_type c_73293;
object e_73445 [2];
c_73293.hdr.mark = gc_color_red;
 c_73293.hdr.grayed = 0;
c_73293.tag = closureN_tag;
 c_73293.fn = (function_type)__lambda_15;
c_73293.num_args = 1;
c_73293.num_elements = 2;
c_73293.elements = (object *)e_73445;
c_73293.elements[0] = ((closureN)self_73158)->elements[1];
c_73293.elements[1] = ((closureN)self_73158)->elements[3];

return_direct_with_clo1(data,(closure)&c_73266,__lambda_14,  &c_73293);; 
}

static void __lambda_15(void *data, object self_73159, int argc, object *args) /* object self_73159, object r_73109 */
 {

  
closureN_type c_73295;
object e_73439 [2];
c_73295.hdr.mark = gc_color_red;
 c_73295.hdr.grayed = 0;
c_73295.tag = closureN_tag;
 c_73295.fn = (function_type)__lambda_16;
c_73295.num_args = 0;
c_73295.num_elements = 2;
c_73295.elements = (object *)e_73439;
c_73295.elements[0] = ((closureN)self_73159)->elements[0];
c_73295.elements[1] = ((closureN)self_73159)->elements[1];


mclosure0(c_73440, (function_type)__lambda_39);c_73440.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73295,__lambda_16,  &c_73440);; 
}

static void __lambda_39(void *data, object self_73160, int argc, object *args) /* object self_73160, object r_73104 */
 {

  
  
  __halt(__halt(obj_int2obj(0)));; 
}

static void __lambda_16(void *data, object self_73161, int argc, object *args) /* object self_73161, object k_73110 */
 {
 object k_73110 = args[0];
  
closureN_type c_73297;
object e_73434 [3];
c_73297.hdr.mark = gc_color_red;
 c_73297.hdr.grayed = 0;
c_73297.tag = closureN_tag;
 c_73297.fn = (function_type)__lambda_17;
c_73297.num_args = 1;
c_73297.num_elements = 3;
c_73297.elements = (object *)e_73434;
c_73297.elements[0] = ((closureN)self_73161)->elements[0];
c_73297.elements[1] = k_73110;
c_73297.elements[2] = ((closureN)self_73161)->elements[1];




make_utf8_string_with_len(c_73437, "-p", 2, 2);
return_direct_with_clo1(data,(closure)&c_73297,__lambda_17,  memberp(data, &c_73437, ((closureN)self_73161)->elements[0]));; 
}

static void __lambda_17(void *data, object self_73162, int argc, object *args) /* object self_73162, object r_73111 */
 {
 object r_73111 = args[0];
  if( (boolean_f != r_73111) ){ 
  
closureN_type c_73299;
object e_73333 [1];
c_73299.hdr.mark = gc_color_red;
 c_73299.hdr.grayed = 0;
c_73299.tag = closureN_tag;
 c_73299.fn = (function_type)__lambda_18;
c_73299.num_args = 1;
c_73299.num_elements = 1;
c_73299.elements = (object *)e_73333;
c_73299.elements[0] = ((closureN)self_73162)->elements[1];


make_utf8_string_with_len(c_73335, "-p", 2, 2);
return_direct_with_clo3(data,  __glo_collect_91opt_91values, (((closure)  __glo_collect_91opt_91values)->fn),  &c_73299, ((closureN)self_73162)->elements[0], &c_73335);
} else { 
  
closureN_type c_73337;
object e_73429 [3];
c_73337.hdr.mark = gc_color_red;
 c_73337.hdr.grayed = 0;
c_73337.tag = closureN_tag;
 c_73337.fn = (function_type)__lambda_25;
c_73337.num_args = 1;
c_73337.num_elements = 3;
c_73337.elements = (object *)e_73429;
c_73337.elements[0] = ((closureN)self_73162)->elements[0];
c_73337.elements[1] = ((closureN)self_73162)->elements[1];
c_73337.elements[2] = ((closureN)self_73162)->elements[2];




make_utf8_string_with_len(c_73432, "-h", 2, 2);
return_direct_with_clo1(data,(closure)&c_73337,__lambda_25,  memberp(data, &c_73432, ((closureN)self_73162)->elements[0]));}
;; 
}

static void __lambda_25(void *data, object self_73170, int argc, object *args) /* object self_73170, object tmp_7351_7353_7371_7385 */
 {
 object tmp_7351_7353_7371_7385 = args[0];
  object r_73122;
  if( (boolean_f != tmp_7351_7353_7371_7385) ){ 
  r_73122 = tmp_7351_7353_7371_7385;
} else { 
  
  object c_73343;
 alloc_string(data,c_73343, 6, 6);
char tmp_73344[] = "--help";
memcpy(((string_type *)c_73343)->str, tmp_73344,6);
((string_type *)c_73343)->str[6] = '\0';
  r_73122 = memberp(data, c_73343, ((closureN)self_73170)->elements[0]);}
;if( (boolean_f != r_73122) ){ 
  return_direct_with_clo1(data,  __glo_usage, (((closure)  __glo_usage)->fn),  ((closureN)self_73170)->elements[1]);
} else { 
  
closureN_type c_73349;
object e_73424 [3];
c_73349.hdr.mark = gc_color_red;
 c_73349.hdr.grayed = 0;
c_73349.tag = closureN_tag;
 c_73349.fn = (function_type)__lambda_26;
c_73349.num_args = 1;
c_73349.num_elements = 3;
c_73349.elements = (object *)e_73424;
c_73349.elements[0] = ((closureN)self_73170)->elements[0];
c_73349.elements[1] = ((closureN)self_73170)->elements[1];
c_73349.elements[2] = ((closureN)self_73170)->elements[2];




make_utf8_string_with_len(c_73427, "-v", 2, 2);
return_direct_with_clo1(data,(closure)&c_73349,__lambda_26,  memberp(data, &c_73427, ((closureN)self_73170)->elements[0]));}
;; 
}

static void __lambda_26(void *data, object self_73171, int argc, object *args) /* object self_73171, object r_73123 */
 {
 object r_73123 = args[0];
  if( (boolean_f != r_73123) ){ 
  return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  ((closureN)self_73171)->elements[1], __glo__85version_91banner_85_scheme_cyclone_common);
} else { 
  
closureN_type c_73353;
object e_73419 [3];
c_73353.hdr.mark = gc_color_red;
 c_73353.hdr.grayed = 0;
c_73353.tag = closureN_tag;
 c_73353.fn = (function_type)__lambda_27;
c_73353.num_args = 1;
c_73353.num_elements = 3;
c_73353.elements = (object *)e_73419;
c_73353.elements[0] = ((closureN)self_73171)->elements[0];
c_73353.elements[1] = ((closureN)self_73171)->elements[1];
c_73353.elements[2] = ((closureN)self_73171)->elements[2];




make_utf8_string_with_len(c_73422, "-vn", 3, 3);
return_direct_with_clo1(data,(closure)&c_73353,__lambda_27,  memberp(data, &c_73422, ((closureN)self_73171)->elements[0]));}
;; 
}

static void __lambda_27(void *data, object self_73172, int argc, object *args) /* object self_73172, object r_73124 */
 {
 object r_73124 = args[0];
  if( (boolean_f != r_73124) ){ 
  
closureN_type c_73355;
object e_73358 [1];
c_73355.hdr.mark = gc_color_red;
 c_73355.hdr.grayed = 0;
c_73355.tag = closureN_tag;
 c_73355.fn = (function_type)__lambda_28;
c_73355.num_args = 1;
c_73355.num_elements = 1;
c_73355.elements = (object *)e_73358;
c_73355.elements[0] = ((closureN)self_73172)->elements[1];

return_direct_with_clo1(data,  __glo_Cyc_91version_scheme_base, (((closure)  __glo_Cyc_91version_scheme_base)->fn),  &c_73355);
} else { 
  
closureN_type c_73360;
object e_73366 [1];
c_73360.hdr.mark = gc_color_red;
 c_73360.hdr.grayed = 0;
c_73360.tag = closureN_tag;
 c_73360.fn = (function_type)__lambda_29;
c_73360.num_args = 0;
c_73360.num_elements = 1;
c_73360.elements = (object *)e_73366;
c_73360.elements[0] = ((closureN)self_73172)->elements[2];


closureN_type c_73367;
object e_73418 [2];
c_73367.hdr.mark = gc_color_red;
 c_73367.hdr.grayed = 0;
c_73367.tag = closureN_tag;
 c_73367.fn = (function_type)__lambda_30;
c_73367.num_args = 1;
c_73367.num_elements = 2;
c_73367.elements = (object *)e_73418;
c_73367.elements[0] = ((closureN)self_73172)->elements[0];
c_73367.elements[1] = ((closureN)self_73172)->elements[1];

return_direct_with_clo1(data,(closure)&c_73360,__lambda_29,  &c_73367);}
;; 
}

static void __lambda_30(void *data, object self_73174, int argc, object *args) /* object self_73174, object r_73126 */
 {

  
closureN_type c_73369;
object e_73413 [1];
c_73369.hdr.mark = gc_color_red;
 c_73369.hdr.grayed = 0;
c_73369.tag = closureN_tag;
 c_73369.fn = (function_type)__lambda_31;
c_73369.num_args = 0;
c_73369.num_elements = 1;
c_73369.elements = (object *)e_73413;
c_73369.elements[0] = ((closureN)self_73174)->elements[0];


closureN_type c_73414;
object e_73417 [1];
c_73414.hdr.mark = gc_color_red;
 c_73414.hdr.grayed = 0;
c_73414.tag = closureN_tag;
 c_73414.fn = (function_type)__lambda_38;
c_73414.num_args = 1;
c_73414.num_elements = 1;
c_73414.elements = (object *)e_73417;
c_73414.elements[0] = ((closureN)self_73174)->elements[1];

return_direct_with_clo1(data,(closure)&c_73369,__lambda_31,  &c_73414);; 
}

static void __lambda_38(void *data, object self_73175, int argc, object *args) /* object self_73175, object r_73127 */
 {

  return_direct_with_clo1(data,  __glo_repl_scheme_repl, (((closure)  __glo_repl_scheme_repl)->fn),  ((closureN)self_73175)->elements[0]);; 
}

static void __lambda_31(void *data, object self_73176, int argc, object *args) /* object self_73176, object k_73128 */
 {
 object k_73128 = args[0];
  
closureN_type c_73371;
object e_73400 [1];
c_73371.hdr.mark = gc_color_red;
 c_73371.hdr.grayed = 0;
c_73371.tag = closureN_tag;
 c_73371.fn = (function_type)__lambda_32;
c_73371.num_args = 0;
c_73371.num_elements = 1;
c_73371.elements = (object *)e_73400;
c_73371.elements[0] = ((closureN)self_73176)->elements[0];


closureN_type c_73401;
object e_73412 [2];
c_73401.hdr.mark = gc_color_red;
 c_73401.hdr.grayed = 0;
c_73401.tag = closureN_tag;
 c_73401.fn = (function_type)__lambda_36;
c_73401.num_args = 1;
c_73401.num_elements = 2;
c_73401.elements = (object *)e_73412;
c_73401.elements[0] = ((closureN)self_73176)->elements[0];
c_73401.elements[1] = k_73128;

return_direct_with_clo1(data,(closure)&c_73371,__lambda_32,  &c_73401);; 
}

static void __lambda_36(void *data, object self_73177, int argc, object *args) /* object self_73177, object r_73129 */
 {
 object r_73129 = args[0];
  if( (boolean_f != r_73129) ){ 
  
closureN_type c_73403;
object e_73408 [1];
c_73403.hdr.mark = gc_color_red;
 c_73403.hdr.grayed = 0;
c_73403.tag = closureN_tag;
 c_73403.fn = (function_type)__lambda_37;
c_73403.num_args = 1;
c_73403.num_elements = 1;
c_73403.elements = (object *)e_73408;
c_73403.elements[0] = ((closureN)self_73177)->elements[1];

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_73403, ((closureN)self_73177)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73177)->elements[1], (((closure)  ((closureN)self_73177)->elements[1])->fn),  Cyc_VOID);}
;; 
}

static void __lambda_37(void *data, object self_73178, int argc, object *args) /* object self_73178, object r_73131 */
 {
 object r_73131 = args[0];
  

return_direct_with_clo2(data,  __glo_load_scheme_load, (((closure)  __glo_load_scheme_load)->fn),  ((closureN)self_73178)->elements[0], Cyc_car(data, r_73131));; 
}

static void __lambda_32(void *data, object self_73179, int argc, object *args) /* object self_73179, object k_73132 */
 {
 object k_73132 = args[0];
  
closureN_type c_73373;
object e_73396 [2];
c_73373.hdr.mark = gc_color_red;
 c_73373.hdr.grayed = 0;
c_73373.tag = closureN_tag;
 c_73373.fn = (function_type)__lambda_33;
c_73373.num_args = 1;
c_73373.num_elements = 2;
c_73373.elements = (object *)e_73396;
c_73373.elements[0] = ((closureN)self_73179)->elements[0];
c_73373.elements[1] = k_73132;



return_direct_with_clo1(data,(closure)&c_73373,__lambda_33,  Cyc_length(data, ((closureN)self_73179)->elements[0]));; 
}

static void __lambda_33(void *data, object self_73180, int argc, object *args) /* object self_73180, object r_73138 */
 {
 object r_73138 = args[0];
    
if( (boolean_f != Cyc_num_fast_gte_op(data, r_73138, obj_int2obj(1))) ){ 
  
closureN_type c_73377;
object e_73392 [1];
c_73377.hdr.mark = gc_color_red;
 c_73377.hdr.grayed = 0;
c_73377.tag = closureN_tag;
 c_73377.fn = (function_type)__lambda_34;
c_73377.num_args = 1;
c_73377.num_elements = 1;
c_73377.elements = (object *)e_73392;
c_73377.elements[0] = ((closureN)self_73180)->elements[1];

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_73377, ((closureN)self_73180)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73180)->elements[1], (((closure)  ((closureN)self_73180)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_34(void *data, object self_73181, int argc, object *args) /* object self_73181, object r_73137 */
 {
 object r_73137 = args[0];
  
closureN_type c_73379;
object e_73385 [1];
c_73379.hdr.mark = gc_color_red;
 c_73379.hdr.grayed = 0;
c_73379.tag = closureN_tag;
 c_73379.fn = (function_type)__lambda_35;
c_73379.num_args = 1;
c_73379.num_elements = 1;
c_73379.elements = (object *)e_73385;
c_73379.elements[0] = ((closureN)self_73181)->elements[0];






make_utf8_string_with_len(c_73391, "-s", 2, 2);c_73391.hdr.immutable = 1;

make_pair(c_73390,&c_73391,NULL);c_73390.hdr.immutable = 1;
return_direct_with_clo1(data,(closure)&c_73379,__lambda_35,  memberp(data, Cyc_car(data, r_73137), &c_73390));; 
}

static void __lambda_35(void *data, object self_73182, int argc, object *args) /* object self_73182, object r_73134 */
 {
 object r_73134 = args[0];
  
complex_num_type local_73384; 
return_direct_with_clo1(data,  ((closureN)self_73182)->elements[0], (((closure)  ((closureN)self_73182)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_73384, r_73134));; 
}

static void __lambda_29(void *data, object self_73183, int argc, object *args) /* object self_73183, object k_73139 */
 {
 object k_73139 = args[0];
    
if( (boolean_f != car(((closureN)self_73183)->elements[0])) ){ 
  return_direct_with_clo1(data,  k_73139, (((closure)  k_73139)->fn),  Cyc_VOID);
} else { 
  return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  k_73139, __glo__85Cyc_91version_91banner_85_scheme_cyclone_common);}
;; 
}

static void __lambda_28(void *data, object self_73173, int argc, object *args) /* object self_73173, object r_73125 */
 {
 object r_73125 = args[0];
  return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  ((closureN)self_73173)->elements[0], r_73125);; 
}

static void __lambda_18(void *data, object self_73163, int argc, object *args) /* object self_73163, object sexp_91strs_7332_7367_7381 */
 {
 object sexp_91strs_7332_7367_7381 = args[0];
    
if( (boolean_f != Cyc_is_null(sexp_91strs_7332_7367_7381)) ){ 
  return_direct_with_clo1(data,  __glo_usage, (((closure)  __glo_usage)->fn),  ((closureN)self_73163)->elements[0]);
} else { 
  
closureN_type c_73305;
object e_73329 [1];
c_73305.hdr.mark = gc_color_red;
 c_73305.hdr.grayed = 0;
c_73305.tag = closureN_tag;
 c_73305.fn = (function_type)__lambda_19;
c_73305.num_args = 1;
c_73305.num_elements = 1;
c_73305.elements = (object *)e_73329;
c_73305.elements[0] = ((closureN)self_73163)->elements[0];


object c_73332 = apply(data,(closure)&c_73305,primitive_string_91append, sexp_91strs_7332_7367_7381);
return_closcall1(data,(closure)&c_73305,  c_73332);}
;; 
}

static void __lambda_19(void *data, object self_73164, int argc, object *args) /* object self_73164, object sexp_91str_7339_7368_7382 */
 {
 object sexp_91str_7339_7368_7382 = args[0];
  
closureN_type c_73307;
object e_73328 [1];
c_73307.hdr.mark = gc_color_red;
 c_73307.hdr.grayed = 0;
c_73307.tag = closureN_tag;
 c_73307.fn = (function_type)__lambda_20;
c_73307.num_args = 1;
c_73307.num_elements = 1;
c_73307.elements = (object *)e_73328;
c_73307.elements[0] = ((closureN)self_73164)->elements[0];

return_direct_with_clo2(data,  __glo_open_91input_91string_scheme_base, (((closure)  __glo_open_91input_91string_scheme_base)->fn),  &c_73307, sexp_91str_7339_7368_7382);; 
}

static void __lambda_20(void *data, object self_73165, int argc, object *args) /* object self_73165, object in_91port_7342_7369_7383 */
 {
 object in_91port_7342_7369_7383 = args[0];
  
closureN_type c_73309;
object e_73327 [2];
c_73309.hdr.mark = gc_color_red;
 c_73309.hdr.grayed = 0;
c_73309.tag = closureN_tag;
 c_73309.fn = (function_type)__lambda_21;
c_73309.num_args = 1;
c_73309.num_elements = 2;
c_73309.elements = (object *)e_73327;
c_73309.elements[0] = in_91port_7342_7369_7383;
c_73309.elements[1] = ((closureN)self_73165)->elements[0];

return_direct_with_clo2(data,  __glo_read_91all_scheme_read, (((closure)  __glo_read_91all_scheme_read)->fn),  &c_73309, in_91port_7342_7369_7383);; 
}

static void __lambda_21(void *data, object self_73166, int argc, object *args) /* object self_73166, object r_73121 */
 {
 object r_73121 = args[0];
  
closureN_type c_73311;
object e_73323 [2];
c_73311.hdr.mark = gc_color_red;
 c_73311.hdr.grayed = 0;
c_73311.tag = closureN_tag;
 c_73311.fn = (function_type)__lambda_22;
c_73311.num_args = 1;
c_73311.num_elements = 2;
c_73311.elements = (object *)e_73323;
c_73311.elements[0] = ((closureN)self_73166)->elements[0];
c_73311.elements[1] = ((closureN)self_73166)->elements[1];


pair_type local_73326; 
return_direct_with_clo2(data,  __glo_eval_scheme_eval, (((closure)  __glo_eval_scheme_eval)->fn),  &c_73311, set_pair_as_expr(&local_73326, quote_begin, r_73121));; 
}

static void __lambda_22(void *data, object self_73167, int argc, object *args) /* object self_73167, object r_73119 */
 {
 object r_73119 = args[0];
  
closureN_type c_73313;
object e_73322 [2];
c_73313.hdr.mark = gc_color_red;
 c_73313.hdr.grayed = 0;
c_73313.tag = closureN_tag;
 c_73313.fn = (function_type)__lambda_23;
c_73313.num_args = 1;
c_73313.num_elements = 2;
c_73313.elements = (object *)e_73322;
c_73313.elements[0] = ((closureN)self_73167)->elements[0];
c_73313.elements[1] = ((closureN)self_73167)->elements[1];

return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  &c_73313, r_73119);; 
}

static void __lambda_23(void *data, object self_73168, int argc, object *args) /* object self_73168, object r_73117 */
 {

  
closureN_type c_73315;
object e_73321 [2];
c_73315.hdr.mark = gc_color_red;
 c_73315.hdr.grayed = 0;
c_73315.tag = closureN_tag;
 c_73315.fn = (function_type)__lambda_24;
c_73315.num_args = 1;
c_73315.num_elements = 2;
c_73315.elements = (object *)e_73321;
c_73315.elements[0] = ((closureN)self_73168)->elements[0];
c_73315.elements[1] = ((closureN)self_73168)->elements[1];

return_direct_with_clo1(data,  __glo_newline_scheme_base, (((closure)  __glo_newline_scheme_base)->fn),  &c_73315);; 
}

static void __lambda_24(void *data, object self_73169, int argc, object *args) /* object self_73169, object r_73118 */
 {

  

return_direct_with_clo1(data,  ((closureN)self_73169)->elements[1], (((closure)  ((closureN)self_73169)->elements[1])->fn),  Cyc_io_close_port(data, ((closureN)self_73169)->elements[0]));; 
}

static void __lambda_14(void *data, object self_73184, int argc, object *args) /* object self_73184, object k_73142 */
 {
 object k_73142 = args[0];
  object r_73143;
    object local_73270 = alloca(sizeof(complex_num_type)); 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_73270, Cyc_is_null(((closureN)self_73184)->elements[0]))) ){ 
  object local_73277 = alloca(sizeof(complex_num_type)); 
  
  r_73143 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_73277, Cyc_is_null(((closureN)self_73184)->elements[0]));
} else { 
  object local_73284 = alloca(sizeof(complex_num_type)); 
  
  r_73143 = ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,local_73284, Cyc_is_null(((closureN)self_73184)->elements[1]));}
;if( (boolean_f != r_73143) ){ 
  return_direct_with_clo3(data,  __glo__75set_91import_91dirs_67_scheme_eval, (((closure)  __glo__75set_91import_91dirs_67_scheme_eval)->fn),  k_73142, ((closureN)self_73184)->elements[0], ((closureN)self_73184)->elements[1]);
} else { 
  return_direct_with_clo1(data,  k_73142, (((closure)  k_73142)->fn),  Cyc_VOID);}
;; 
}

static void __lambda_11(void *data, object self_73185, int argc, object *args) /* object self_73185, object k_73148 */
 {
 object k_73148 = args[0];
  
closureN_type c_73250;
object e_73258 [2];
c_73250.hdr.mark = gc_color_red;
 c_73250.hdr.grayed = 0;
c_73250.tag = closureN_tag;
 c_73250.fn = (function_type)__lambda_12;
c_73250.num_args = 1;
c_73250.num_elements = 2;
c_73250.elements = (object *)e_73258;
c_73250.elements[0] = k_73148;
c_73250.elements[1] = ((closureN)self_73185)->elements[1];




make_utf8_string_with_len(c_73261, "-s", 2, 2);
return_direct_with_clo1(data,(closure)&c_73250,__lambda_12,  memberp(data, &c_73261, ((closureN)self_73185)->elements[0]));; 
}

static void __lambda_12(void *data, object self_73186, int argc, object *args) /* object self_73186, object r_73149 */
 {
 object r_73149 = args[0];
  if( (boolean_f != r_73149) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_73186)->elements[0], (((closure)  ((closureN)self_73186)->elements[0])->fn),  Cyc_set_cell(data, ((closureN)self_73186)->elements[1], boolean_t));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73186)->elements[0], (((closure)  ((closureN)self_73186)->elements[0])->fn),  Cyc_VOID);}
;; 
}

static void __lambda_5(void *data, object _, int argc, object *args) /* closure _,object k_73101 */
 {
object k_73101 = args[0];
  Cyc_st_add(data, "icyc.scm:usage");

closureN_type c_73233;
object e_73236 [1];
c_73233.hdr.mark = gc_color_red;
 c_73233.hdr.grayed = 0;
c_73233.tag = closureN_tag;
 c_73233.fn = (function_type)__lambda_6;
c_73233.num_args = 1;
c_73233.num_elements = 1;
c_73233.elements = (object *)e_73236;
c_73233.elements[0] = k_73101;


make_utf8_string_with_len(c_73237, "\nUsage: icyc [OPTIONS] [FILENAME]\nStarts the interactive interpreter for Cyclone Scheme.\n\nOptions:\n\n -A directory    Append directory to the list of directories that are searched \n                 in order to locate imported libraries.\n -I directory    Prepend directory to the list of directories that are searched \n                 in order to locate imported libraries.\n -p sexp         Evaluate the given S-expression and exit\n -s              Run as a script, without the normal icyc banner\n -h, --help      Display usage information\n -v              Display version information\n -vn             Display version number\n", 624, 624);
return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  &c_73233, &c_73237);; 
}

static void __lambda_6(void *data, object self_73153, int argc, object *args) /* object self_73153, object r_73102 */
 {

  return_direct_with_clo1(data,  __glo_newline_scheme_base, (((closure)  __glo_newline_scheme_base)->fn),  ((closureN)self_73153)->elements[0]);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7388, object args_731_7372, object opt_732_7373 */
 {
object k_7388 = args[0]; object args_731_7372 = args[1]; object opt_732_7373 = args[2];
  Cyc_st_add(data, "icyc.scm:collect-opt-values");

closureN_type c_73189;
object e_73201 [2];
c_73189.hdr.mark = gc_color_red;
 c_73189.hdr.grayed = 0;
c_73189.tag = closureN_tag;
 c_73189.fn = (function_type)__lambda_2;
c_73189.num_args = 1;
c_73189.num_elements = 2;
c_73189.elements = (object *)e_73201;
c_73189.elements[0] = args_731_7372;
c_73189.elements[1] = k_7388;


closureN_type c_73202;
object e_73230 [1];
c_73202.hdr.mark = gc_color_red;
 c_73202.hdr.grayed = 0;
c_73202.tag = closureN_tag;
 c_73202.fn = (function_type)__lambda_4;
c_73202.num_args = 2;
c_73202.num_elements = 1;
c_73202.elements = (object *)e_73230;
c_73202.elements[0] = opt_732_7373;

return_direct_with_clo1(data,(closure)&c_73189,__lambda_2,  &c_73202);; 
}

static void __lambda_4(void *data, object self_73150, int argc, object *args) /* object self_73150, object k_7392, object arg_733_7374, object accum_734_7375 */
 {
 object k_7392 = args[0]; object arg_733_7374 = args[1]; object accum_734_7375 = args[2];
    
if( (boolean_f != equalp(arg_733_7374, ((closureN)self_73150)->elements[0])) ){ 
  
pair_type local_73209; 


return_direct_with_clo1(data,  k_7392, (((closure)  k_7392)->fn),  set_pair_as_expr(&local_73209, ((closureN)self_73150)->elements[0], Cyc_cdr(data, accum_734_7375)));
} else { 
    
if( (boolean_f != Cyc_car(data, accum_734_7375)) ){ 
  
pair_type local_73218; 

pair_type local_73221; 


return_direct_with_clo1(data,  k_7392, (((closure)  k_7392)->fn),  set_pair_as_expr(&local_73218, boolean_f, set_pair_as_expr(&local_73221, arg_733_7374, Cyc_cdr(data, accum_734_7375))));
} else { 
  
pair_type local_73227; 


return_direct_with_clo1(data,  k_7392, (((closure)  k_7392)->fn),  set_pair_as_expr(&local_73227, boolean_f, Cyc_cdr(data, accum_734_7375)));}
;}
;; 
}

static void __lambda_2(void *data, object self_73151, int argc, object *args) /* object self_73151, object r_7390 */
 {
 object r_7390 = args[0];
  
closureN_type c_73191;
object e_73196 [1];
c_73191.hdr.mark = gc_color_red;
 c_73191.hdr.grayed = 0;
c_73191.tag = closureN_tag;
 c_73191.fn = (function_type)__lambda_3;
c_73191.num_args = 1;
c_73191.num_elements = 1;
c_73191.elements = (object *)e_73196;
c_73191.elements[0] = ((closureN)self_73151)->elements[1];


pair_type local_73199; 
return_direct_with_clo4(data,  __glo_foldl_scheme_base, (((closure)  __glo_foldl_scheme_base)->fn),  &c_73191, r_7390, set_cell_as_expr(&local_73199, boolean_f), ((closureN)self_73151)->elements[0]);; 
}

static void __lambda_3(void *data, object self_73152, int argc, object *args) /* object self_73152, object r_7389 */
 {
 object r_7389 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_73152)->elements[0], (((closure)  ((closureN)self_73152)->elements[0])->fn),  Cyc_cdr(data, r_7389));; 
}

static void c_entry_pt_first_lambda(void *data, object clo, int argc, object *args);
extern void c_schemecyclonecommon_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemebase_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemetime_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemeinexact_entry_pt(void *data, object clo, int argc, object* args);
extern void c_scheme_char_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemecycloneutil_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemeread_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemeprocess_91context_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemecyclonelibraries_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemewrite_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemecyclonehashset_entry_pt(void *data, object clo, int argc, object* args);
extern void c_srfi69_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemecycloneprimitives_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemefile_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemeeval_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemerepl_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemeload_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemelazy_entry_pt(void *data, object clo, int argc, object* args);
extern void c_schemecyclonepretty_91print_entry_pt(void *data, object clo, int argc, object* args);
static void c_entry_pt(void *data, object clo, int argc, object *args) { 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_begin = find_or_add_symbol("begin");

  add_global("__glo_usage", (object *) &__glo_usage);
  add_global("__glo_collect_91opt_91values", (object *) &__glo_collect_91opt_91values);
  mclosure0(c_73231, (function_type)__lambda_5);c_73231.num_args = 0; 
  __glo_usage = &c_73231; 
  mclosure0(c_73187, (function_type)__lambda_1);c_73187.num_args = 2; 
  __glo_collect_91opt_91values = &c_73187; 

  make_cvar(cvar_73460, (object *)&__glo_usage);make_pair(pair_73461, find_or_add_symbol("usage"), &cvar_73460);
  make_cvar(cvar_73462, (object *)&__glo_collect_91opt_91values);make_pair(pair_73463, find_or_add_symbol("collect-opt-values"), &cvar_73462);
make_pair(c_73465, &pair_73461,Cyc_global_variables);
make_pair(c_73464, &pair_73463, &c_73465);
Cyc_global_variables = &c_73464;
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
mclosure1(c_73466, c_schemecyclonepretty_91print_entry_pt, &c_done);
mclosure1(c_73467, c_schemelazy_entry_pt, &c_73466);
mclosure1(c_73468, c_schemeload_entry_pt, &c_73467);
mclosure1(c_73469, c_schemerepl_entry_pt, &c_73468);
mclosure1(c_73470, c_schemeeval_entry_pt, &c_73469);
mclosure1(c_73471, c_schemefile_entry_pt, &c_73470);
mclosure1(c_73472, c_schemecycloneprimitives_entry_pt, &c_73471);
mclosure1(c_73473, c_srfi69_entry_pt, &c_73472);
mclosure1(c_73474, c_schemecyclonehashset_entry_pt, &c_73473);
mclosure1(c_73475, c_schemewrite_entry_pt, &c_73474);
mclosure1(c_73476, c_schemecyclonelibraries_entry_pt, &c_73475);
mclosure1(c_73477, c_schemeprocess_91context_entry_pt, &c_73476);
mclosure1(c_73478, c_schemeread_entry_pt, &c_73477);
mclosure1(c_73479, c_schemecycloneutil_entry_pt, &c_73478);
mclosure1(c_73480, c_scheme_char_entry_pt, &c_73479);
mclosure1(c_73481, c_schemeinexact_entry_pt, &c_73480);
mclosure1(c_73482, c_schemetime_entry_pt, &c_73481);
mclosure1(c_73483, c_schemebase_entry_pt, &c_73482);
mclosure1(c_73484, c_schemecyclonecommon_entry_pt, &c_73483);
 object buf[1]; buf[0] = &c_73484; (c_73484.fn)(data, &c_73484, 1, buf);
}
static void c_entry_pt_first_lambda(void *data, object clo, int argc, object *args) {
  
    
    mclosure0(c_73458,__lambda_7); object c_73459 = Cyc_command_line_arguments(data,&c_73458);
return_direct1(data,__lambda_7,c_73459);
;
}
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;
 init_polyfills();
 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;}
