/**
 ** 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_lib_91init_117schemefile_scheme_file = NULL;
object __glo_with_91output_91to_91file_scheme_file = NULL;
object __glo_with_91input_91from_91file_scheme_file = NULL;
object __glo_call_91with_91output_91file_scheme_file = NULL;
object __glo_call_91with_91input_91file_scheme_file = NULL;
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_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;
#include "cyclone/runtime.h"
defsymbol(_121param_91convert_125);
defsymbol(_121param_91set_67_125);
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*closure _,object k_7367*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*closure _,object k_7351, object string_739_7321, object thunk_7310_7322*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_7377, object r_7352*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_7378, object r_7362*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_7379, object r_7353*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_7380, object old_7311_7323, object new_7312_7324*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_7381, object k_7360*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_7382, object r_7354*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_7383, object k_7356*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_7384, object r_7359*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_7385, object r_7355*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*closure _,object k_7335, object string_735_7317, object thunk_736_7318*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_7368, object r_7336*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_7369, object r_7346*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_7370, object r_7337*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_7371, object old_737_7319, object new_738_7320*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_7372, object k_7344*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_7373, object r_7338*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_7374, object k_7340*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_7375, object r_7343*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_7376, object r_7339*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*closure _,object k_7331, object string_733_7315, object proc_734_7316*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7327, object string_731_7313, object proc_732_7314*/

static void __lambda_23(void *data, object _, int argc, object *args) /* closure _,object k_7367 */
 {
object k_7367 = args[0];
  Cyc_st_add(data, "scheme/file.sld:lib-init:schemefile");
return_direct_with_clo1(data,  k_7367, (((closure)  k_7367)->fn),  obj_int2obj(0));; 
}

static void __lambda_13(void *data, object _, int argc, object *args) /* closure _,object k_7351, object string_739_7321, object thunk_7310_7322 */
 {
object k_7351 = args[0]; object string_739_7321 = args[1]; object thunk_7310_7322 = args[2];
  Cyc_st_add(data, "scheme/file.sld:with-output-to-file");

closureN_type c_73141;
object e_73181 [3];
c_73141.hdr.mark = gc_color_red;
 c_73141.hdr.grayed = 0;
c_73141.tag = closureN_tag;
 c_73141.fn = (function_type)__lambda_14;
c_73141.num_args = 1;
c_73141.num_elements = 3;
c_73141.elements = (object *)e_73181;
c_73141.elements[0] = k_7351;
c_73141.elements[1] = string_739_7321;
c_73141.elements[2] = thunk_7310_7322;

return_direct_with_clo1(data,  __glo_current_91output_91port_scheme_base, (((closure)  __glo_current_91output_91port_scheme_base)->fn),  &c_73141);; 
}

static void __lambda_14(void *data, object self_7377, int argc, object *args) /* object self_7377, object r_7352 */
 {
 object r_7352 = args[0];
  
closureN_type c_73143;
object e_73180 [4];
c_73143.hdr.mark = gc_color_red;
 c_73143.hdr.grayed = 0;
c_73143.tag = closureN_tag;
 c_73143.fn = (function_type)__lambda_15;
c_73143.num_args = 1;
c_73143.num_elements = 4;
c_73143.elements = (object *)e_73180;
c_73143.elements[0] = ((closureN)self_7377)->elements[0];
c_73143.elements[1] = r_7352;
c_73143.elements[2] = ((closureN)self_7377)->elements[1];
c_73143.elements[3] = ((closureN)self_7377)->elements[2];

return_direct_with_clo2(data,  __glo_current_91output_91port_scheme_base, (((closure)  __glo_current_91output_91port_scheme_base)->fn),  &c_73143, quote__121param_91convert_125);; 
}

static void __lambda_15(void *data, object self_7378, int argc, object *args) /* object self_7378, object r_7362 */
 {
 object r_7362 = args[0];
  
closureN_type c_73145;
object e_73175 [3];
c_73145.hdr.mark = gc_color_red;
 c_73145.hdr.grayed = 0;
c_73145.tag = closureN_tag;
 c_73145.fn = (function_type)__lambda_16;
c_73145.num_args = 1;
c_73145.num_elements = 3;
c_73145.elements = (object *)e_73175;
c_73145.elements[0] = ((closureN)self_7378)->elements[0];
c_73145.elements[1] = ((closureN)self_7378)->elements[1];
c_73145.elements[2] = ((closureN)self_7378)->elements[3];


port_type c_73178 = Cyc_io_open_output_file(data,((closureN)self_7378)->elements[2]);
return_closcall2(data,  r_7362,  &c_73145, &c_73178);; 
}

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

return_direct_with_clo2(data,(closure)&c_73147,__lambda_17,  ((closureN)self_7379)->elements[1], r_7353);; 
}

static void __lambda_17(void *data, object self_7380, int argc, object *args) /* object self_7380, object old_7311_7323, object new_7312_7324 */
 {
 object old_7311_7323 = args[0]; object new_7312_7324 = args[1];
  
closureN_type c_73149;
object e_73168 [3];
c_73149.hdr.mark = gc_color_red;
 c_73149.hdr.grayed = 0;
c_73149.tag = closureN_tag;
 c_73149.fn = (function_type)__lambda_18;
c_73149.num_args = 1;
c_73149.num_elements = 3;
c_73149.elements = (object *)e_73168;
c_73149.elements[0] = ((closureN)self_7380)->elements[0];
c_73149.elements[1] = old_7311_7323;
c_73149.elements[2] = ((closureN)self_7380)->elements[1];


closureN_type c_73169;
object e_73172 [1];
c_73169.hdr.mark = gc_color_red;
 c_73169.hdr.grayed = 0;
c_73169.tag = closureN_tag;
 c_73169.fn = (function_type)__lambda_22;
c_73169.num_args = 0;
c_73169.num_elements = 1;
c_73169.elements = (object *)e_73172;
c_73169.elements[0] = new_7312_7324;

return_direct_with_clo1(data,(closure)&c_73149,__lambda_18,  &c_73169);; 
}

static void __lambda_22(void *data, object self_7381, int argc, object *args) /* object self_7381, object k_7360 */
 {
 object k_7360 = args[0];
  return_direct_with_clo3(data,  __glo_current_91output_91port_scheme_base, (((closure)  __glo_current_91output_91port_scheme_base)->fn),  k_7360, quote__121param_91set_67_125, ((closureN)self_7381)->elements[0]);; 
}

static void __lambda_18(void *data, object self_7382, int argc, object *args) /* object self_7382, object r_7354 */
 {
 object r_7354 = args[0];
  
closureN_type c_73151;
object e_73156 [3];
c_73151.hdr.mark = gc_color_red;
 c_73151.hdr.grayed = 0;
c_73151.tag = closureN_tag;
 c_73151.fn = (function_type)__lambda_19;
c_73151.num_args = 1;
c_73151.num_elements = 3;
c_73151.elements = (object *)e_73156;
c_73151.elements[0] = ((closureN)self_7382)->elements[0];
c_73151.elements[1] = r_7354;
c_73151.elements[2] = ((closureN)self_7382)->elements[2];


closureN_type c_73157;
object e_73167 [1];
c_73157.hdr.mark = gc_color_red;
 c_73157.hdr.grayed = 0;
c_73157.tag = closureN_tag;
 c_73157.fn = (function_type)__lambda_20;
c_73157.num_args = 0;
c_73157.num_elements = 1;
c_73157.elements = (object *)e_73167;
c_73157.elements[0] = ((closureN)self_7382)->elements[1];

return_direct_with_clo1(data,(closure)&c_73151,__lambda_19,  &c_73157);; 
}

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

return_direct_with_clo1(data,  __glo_current_91output_91port_scheme_base, (((closure)  __glo_current_91output_91port_scheme_base)->fn),  &c_73159);; 
}

static void __lambda_21(void *data, object self_7384, int argc, object *args) /* object self_7384, object r_7359 */
 {
 object r_7359 = args[0];
  
  Cyc_io_close_port(data, r_7359);return_direct_with_clo3(data,  __glo_current_91output_91port_scheme_base, (((closure)  __glo_current_91output_91port_scheme_base)->fn),  ((closureN)self_7384)->elements[0], quote__121param_91set_67_125, ((closureN)self_7384)->elements[1]);;; 
}

static void __lambda_19(void *data, object self_7385, int argc, object *args) /* object self_7385, object r_7355 */
 {
 object r_7355 = args[0];
  return_direct_with_clo4(data,  __glo_dynamic_91wind_scheme_base, (((closure)  __glo_dynamic_91wind_scheme_base)->fn),  ((closureN)self_7385)->elements[0], ((closureN)self_7385)->elements[1], ((closureN)self_7385)->elements[2], r_7355);; 
}

static void __lambda_3(void *data, object _, int argc, object *args) /* closure _,object k_7335, object string_735_7317, object thunk_736_7318 */
 {
object k_7335 = args[0]; object string_735_7317 = args[1]; object thunk_736_7318 = args[2];
  Cyc_st_add(data, "scheme/file.sld:with-input-from-file");

closureN_type c_7398;
object e_73138 [3];
c_7398.hdr.mark = gc_color_red;
 c_7398.hdr.grayed = 0;
c_7398.tag = closureN_tag;
 c_7398.fn = (function_type)__lambda_4;
c_7398.num_args = 1;
c_7398.num_elements = 3;
c_7398.elements = (object *)e_73138;
c_7398.elements[0] = k_7335;
c_7398.elements[1] = string_735_7317;
c_7398.elements[2] = thunk_736_7318;

return_direct_with_clo1(data,  __glo_current_91input_91port_scheme_base, (((closure)  __glo_current_91input_91port_scheme_base)->fn),  &c_7398);; 
}

static void __lambda_4(void *data, object self_7368, int argc, object *args) /* object self_7368, object r_7336 */
 {
 object r_7336 = args[0];
  
closureN_type c_73100;
object e_73137 [4];
c_73100.hdr.mark = gc_color_red;
 c_73100.hdr.grayed = 0;
c_73100.tag = closureN_tag;
 c_73100.fn = (function_type)__lambda_5;
c_73100.num_args = 1;
c_73100.num_elements = 4;
c_73100.elements = (object *)e_73137;
c_73100.elements[0] = ((closureN)self_7368)->elements[0];
c_73100.elements[1] = r_7336;
c_73100.elements[2] = ((closureN)self_7368)->elements[1];
c_73100.elements[3] = ((closureN)self_7368)->elements[2];

return_direct_with_clo2(data,  __glo_current_91input_91port_scheme_base, (((closure)  __glo_current_91input_91port_scheme_base)->fn),  &c_73100, quote__121param_91convert_125);; 
}

static void __lambda_5(void *data, object self_7369, int argc, object *args) /* object self_7369, object r_7346 */
 {
 object r_7346 = args[0];
  
closureN_type c_73102;
object e_73132 [3];
c_73102.hdr.mark = gc_color_red;
 c_73102.hdr.grayed = 0;
c_73102.tag = closureN_tag;
 c_73102.fn = (function_type)__lambda_6;
c_73102.num_args = 1;
c_73102.num_elements = 3;
c_73102.elements = (object *)e_73132;
c_73102.elements[0] = ((closureN)self_7369)->elements[0];
c_73102.elements[1] = ((closureN)self_7369)->elements[1];
c_73102.elements[2] = ((closureN)self_7369)->elements[3];


port_type c_73135 = Cyc_io_open_input_file(data,((closureN)self_7369)->elements[2]);
return_closcall2(data,  r_7346,  &c_73102, &c_73135);; 
}

static void __lambda_6(void *data, object self_7370, int argc, object *args) /* object self_7370, object r_7337 */
 {
 object r_7337 = args[0];
  
closureN_type c_73104;
object e_73130 [2];
c_73104.hdr.mark = gc_color_red;
 c_73104.hdr.grayed = 0;
c_73104.tag = closureN_tag;
 c_73104.fn = (function_type)__lambda_7;
c_73104.num_args = 2;
c_73104.num_elements = 2;
c_73104.elements = (object *)e_73130;
c_73104.elements[0] = ((closureN)self_7370)->elements[0];
c_73104.elements[1] = ((closureN)self_7370)->elements[2];

return_direct_with_clo2(data,(closure)&c_73104,__lambda_7,  ((closureN)self_7370)->elements[1], r_7337);; 
}

static void __lambda_7(void *data, object self_7371, int argc, object *args) /* object self_7371, object old_737_7319, object new_738_7320 */
 {
 object old_737_7319 = args[0]; object new_738_7320 = args[1];
  
closureN_type c_73106;
object e_73125 [3];
c_73106.hdr.mark = gc_color_red;
 c_73106.hdr.grayed = 0;
c_73106.tag = closureN_tag;
 c_73106.fn = (function_type)__lambda_8;
c_73106.num_args = 1;
c_73106.num_elements = 3;
c_73106.elements = (object *)e_73125;
c_73106.elements[0] = ((closureN)self_7371)->elements[0];
c_73106.elements[1] = old_737_7319;
c_73106.elements[2] = ((closureN)self_7371)->elements[1];


closureN_type c_73126;
object e_73129 [1];
c_73126.hdr.mark = gc_color_red;
 c_73126.hdr.grayed = 0;
c_73126.tag = closureN_tag;
 c_73126.fn = (function_type)__lambda_12;
c_73126.num_args = 0;
c_73126.num_elements = 1;
c_73126.elements = (object *)e_73129;
c_73126.elements[0] = new_738_7320;

return_direct_with_clo1(data,(closure)&c_73106,__lambda_8,  &c_73126);; 
}

static void __lambda_12(void *data, object self_7372, int argc, object *args) /* object self_7372, object k_7344 */
 {
 object k_7344 = args[0];
  return_direct_with_clo3(data,  __glo_current_91input_91port_scheme_base, (((closure)  __glo_current_91input_91port_scheme_base)->fn),  k_7344, quote__121param_91set_67_125, ((closureN)self_7372)->elements[0]);; 
}

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


closureN_type c_73114;
object e_73124 [1];
c_73114.hdr.mark = gc_color_red;
 c_73114.hdr.grayed = 0;
c_73114.tag = closureN_tag;
 c_73114.fn = (function_type)__lambda_10;
c_73114.num_args = 0;
c_73114.num_elements = 1;
c_73114.elements = (object *)e_73124;
c_73114.elements[0] = ((closureN)self_7373)->elements[1];

return_direct_with_clo1(data,(closure)&c_73108,__lambda_9,  &c_73114);; 
}

static void __lambda_10(void *data, object self_7374, int argc, object *args) /* object self_7374, object k_7340 */
 {
 object k_7340 = args[0];
  
closureN_type c_73116;
object e_73123 [2];
c_73116.hdr.mark = gc_color_red;
 c_73116.hdr.grayed = 0;
c_73116.tag = closureN_tag;
 c_73116.fn = (function_type)__lambda_11;
c_73116.num_args = 1;
c_73116.num_elements = 2;
c_73116.elements = (object *)e_73123;
c_73116.elements[0] = k_7340;
c_73116.elements[1] = ((closureN)self_7374)->elements[0];

return_direct_with_clo1(data,  __glo_current_91input_91port_scheme_base, (((closure)  __glo_current_91input_91port_scheme_base)->fn),  &c_73116);; 
}

static void __lambda_11(void *data, object self_7375, int argc, object *args) /* object self_7375, object r_7343 */
 {
 object r_7343 = args[0];
  
  Cyc_io_close_port(data, r_7343);return_direct_with_clo3(data,  __glo_current_91input_91port_scheme_base, (((closure)  __glo_current_91input_91port_scheme_base)->fn),  ((closureN)self_7375)->elements[0], quote__121param_91set_67_125, ((closureN)self_7375)->elements[1]);;; 
}

static void __lambda_9(void *data, object self_7376, int argc, object *args) /* object self_7376, object r_7339 */
 {
 object r_7339 = args[0];
  return_direct_with_clo4(data,  __glo_dynamic_91wind_scheme_base, (((closure)  __glo_dynamic_91wind_scheme_base)->fn),  ((closureN)self_7376)->elements[0], ((closureN)self_7376)->elements[1], ((closureN)self_7376)->elements[2], r_7339);; 
}

static void __lambda_2(void *data, object _, int argc, object *args) /* closure _,object k_7331, object string_733_7315, object proc_734_7316 */
 {
object k_7331 = args[0]; object string_733_7315 = args[1]; object proc_734_7316 = args[2];
  Cyc_st_add(data, "scheme/file.sld:call-with-output-file");

port_type c_7395 = Cyc_io_open_output_file(data,string_733_7315);
return_direct_with_clo3(data,  __glo_call_91with_91port_scheme_base, (((closure)  __glo_call_91with_91port_scheme_base)->fn),  k_7331, &c_7395, proc_734_7316);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7327, object string_731_7313, object proc_732_7314 */
 {
object k_7327 = args[0]; object string_731_7313 = args[1]; object proc_732_7314 = args[2];
  Cyc_st_add(data, "scheme/file.sld:call-with-input-file");

port_type c_7390 = Cyc_io_open_input_file(data,string_731_7313);
return_direct_with_clo3(data,  __glo_call_91with_91port_scheme_base, (((closure)  __glo_call_91with_91port_scheme_base)->fn),  k_7327, &c_7390, proc_732_7314);; 
}

void c_schemefile_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
object buf[1]; object cont = args[0];
buf[0] = NULL; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_schemefile_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote__121param_91convert_125 = find_or_add_symbol("<param-convert>");
  quote__121param_91set_67_125 = find_or_add_symbol("<param-set!>");

  add_global("__glo_lib_91init_117schemefile_scheme_file", (object *) &__glo_lib_91init_117schemefile_scheme_file);
  add_global("__glo_with_91output_91to_91file_scheme_file", (object *) &__glo_with_91output_91to_91file_scheme_file);
  add_global("__glo_with_91input_91from_91file_scheme_file", (object *) &__glo_with_91input_91from_91file_scheme_file);
  add_global("__glo_call_91with_91output_91file_scheme_file", (object *) &__glo_call_91with_91output_91file_scheme_file);
  add_global("__glo_call_91with_91input_91file_scheme_file", (object *) &__glo_call_91with_91input_91file_scheme_file);
  mclosure0(c_73182, (function_type)__lambda_23);c_73182.num_args = 0; 
  __glo_lib_91init_117schemefile_scheme_file = &c_73182; 
  mclosure0(c_73139, (function_type)__lambda_13);c_73139.num_args = 2; 
  __glo_with_91output_91to_91file_scheme_file = &c_73139; 
  mclosure0(c_7396, (function_type)__lambda_3);c_7396.num_args = 2; 
  __glo_with_91input_91from_91file_scheme_file = &c_7396; 
  mclosure0(c_7391, (function_type)__lambda_2);c_7391.num_args = 2; 
  __glo_call_91with_91output_91file_scheme_file = &c_7391; 
  mclosure0(c_7386, (function_type)__lambda_1);c_7386.num_args = 2; 
  __glo_call_91with_91input_91file_scheme_file = &c_7386; 

  mclosure0(clo_73185, c_schemefile_inlinable_lambdas); make_pair(pair_73184, find_or_add_symbol("c_schemefile_inlinable_lambdas"), &clo_73185);
  make_cvar(cvar_73186, (object *)&__glo_lib_91init_117schemefile_scheme_file);make_pair(pair_73187, find_or_add_symbol("lib-init:schemefile"), &cvar_73186);
  make_cvar(cvar_73188, (object *)&__glo_with_91output_91to_91file_scheme_file);make_pair(pair_73189, find_or_add_symbol("with-output-to-file"), &cvar_73188);
  make_cvar(cvar_73190, (object *)&__glo_with_91input_91from_91file_scheme_file);make_pair(pair_73191, find_or_add_symbol("with-input-from-file"), &cvar_73190);
  make_cvar(cvar_73192, (object *)&__glo_call_91with_91output_91file_scheme_file);make_pair(pair_73193, find_or_add_symbol("call-with-output-file"), &cvar_73192);
  make_cvar(cvar_73194, (object *)&__glo_call_91with_91input_91file_scheme_file);make_pair(pair_73195, find_or_add_symbol("call-with-input-file"), &cvar_73194);
make_pair(c_73201, &pair_73184,Cyc_global_variables);
make_pair(c_73200, &pair_73187, &c_73201);
make_pair(c_73199, &pair_73189, &c_73200);
make_pair(c_73198, &pair_73191, &c_73199);
make_pair(c_73197, &pair_73193, &c_73198);
make_pair(c_73196, &pair_73195, &c_73197);
Cyc_global_variables = &c_73196;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117schemefile_scheme_file)->fn)(data, buf[0], 1, buf);
}
void c_schemefile_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme_file");
  c_schemefile_entry_pt_first_lambda(data, cont, argc, value);
}
