/**
 ** 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_117srfi111_srfi_111 = NULL;
object __glo_box_srfi_111 = NULL;
object __glo_set_91box_67_srfi_111 = NULL;
object __glo_unbox_srfi_111 = NULL;
object __glo_box_127_srfi_111 = NULL;
object __glo_box_91type_srfi_111 = 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(box_127);
defsymbol(unbox);
defsymbol(value);
defsymbol(set_91box_67);
defsymbol(box_91type);
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*closure _,object k_7320*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_7340, object r_7335*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_7341, object r_7322*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_7342, object r_7333*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_7343, object r_7323*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_7344, object r_7331*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_7345, object r_7329*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_7346, object r_7324*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_7347, object r_7327*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_7348, object r_7325*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7314, object value_732_733*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_7338, object r_7315*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_7339, object r_7317*/

static void __lambda_4(void *data, object _, int argc, object *args) /* closure _,object k_7320 */
 {
object k_7320 = args[0];
  Cyc_st_add(data, "srfi/111.sld:lib-init:srfi111");

closureN_type c_7368;
object e_73109 [1];
c_7368.hdr.mark = gc_color_red;
 c_7368.hdr.grayed = 0;
c_7368.tag = closureN_tag;
 c_7368.fn = (function_type)__lambda_5;
c_7368.num_args = 1;
c_7368.num_elements = 1;
c_7368.elements = (object *)e_73109;
c_7368.elements[0] = k_7320;


make_pair(c_73110,quote_value,NULL);c_73110.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_register_91simple_91type_scheme_base, (((closure)  __glo_register_91simple_91type_scheme_base)->fn),  &c_7368, quote_box_91type, boolean_f, &c_73110);; 
}

static void __lambda_5(void *data, object self_7340, int argc, object *args) /* object self_7340, object r_7335 */
 {
 object r_7335 = args[0];
  
closureN_type c_7370;
object e_73105 [1];
c_7370.hdr.mark = gc_color_red;
 c_7370.hdr.grayed = 0;
c_7370.tag = closureN_tag;
 c_7370.fn = (function_type)__lambda_6;
c_7370.num_args = 1;
c_7370.num_elements = 1;
c_7370.elements = (object *)e_73105;
c_7370.elements[0] = ((closureN)self_7340)->elements[0];


object c_73108 = global_set_cps_id(data,(closure)&c_7370,"__glo_box_91type_srfi_111", __glo_box_91type_srfi_111, r_7335);
return_closcall1(data,(closure)&c_7370,  c_73108);; 
}

static void __lambda_6(void *data, object self_7341, int argc, object *args) /* object self_7341, object r_7322 */
 {

  
closureN_type c_7372;
object e_73104 [1];
c_7372.hdr.mark = gc_color_red;
 c_7372.hdr.grayed = 0;
c_7372.tag = closureN_tag;
 c_7372.fn = (function_type)__lambda_7;
c_7372.num_args = 1;
c_7372.num_elements = 1;
c_7372.elements = (object *)e_73104;
c_7372.elements[0] = ((closureN)self_7341)->elements[0];

return_direct_with_clo3(data,  __glo_make_91type_91predicate_scheme_base, (((closure)  __glo_make_91type_91predicate_scheme_base)->fn),  &c_7372, obj_int2obj(0), quote_box_91type);; 
}

static void __lambda_7(void *data, object self_7342, int argc, object *args) /* object self_7342, object r_7333 */
 {
 object r_7333 = args[0];
  
closureN_type c_7374;
object e_73100 [1];
c_7374.hdr.mark = gc_color_red;
 c_7374.hdr.grayed = 0;
c_7374.tag = closureN_tag;
 c_7374.fn = (function_type)__lambda_8;
c_7374.num_args = 1;
c_7374.num_elements = 1;
c_7374.elements = (object *)e_73100;
c_7374.elements[0] = ((closureN)self_7342)->elements[0];


object c_73103 = global_set_cps_id(data,(closure)&c_7374,"__glo_box_127_srfi_111", __glo_box_127_srfi_111, r_7333);
return_closcall1(data,(closure)&c_7374,  c_73103);; 
}

static void __lambda_8(void *data, object self_7343, int argc, object *args) /* object self_7343, object r_7323 */
 {

  
closureN_type c_7376;
object e_7399 [1];
c_7376.hdr.mark = gc_color_red;
 c_7376.hdr.grayed = 0;
c_7376.tag = closureN_tag;
 c_7376.fn = (function_type)__lambda_9;
c_7376.num_args = 1;
c_7376.num_elements = 1;
c_7376.elements = (object *)e_7399;
c_7376.elements[0] = ((closureN)self_7343)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_7376, __glo_box_91type_srfi_111, quote_value);; 
}

static void __lambda_9(void *data, object self_7344, int argc, object *args) /* object self_7344, object r_7331 */
 {
 object r_7331 = args[0];
  
closureN_type c_7378;
object e_7397 [1];
c_7378.hdr.mark = gc_color_red;
 c_7378.hdr.grayed = 0;
c_7378.tag = closureN_tag;
 c_7378.fn = (function_type)__lambda_10;
c_7378.num_args = 1;
c_7378.num_elements = 1;
c_7378.elements = (object *)e_7397;
c_7378.elements[0] = ((closureN)self_7344)->elements[0];


make_utf8_string_with_len(c_7398, "unbox", 5, 5);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_7378, &c_7398, quote_box_91type, r_7331);; 
}

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


object c_7396 = global_set_cps_id(data,(closure)&c_7380,"__glo_unbox_srfi_111", __glo_unbox_srfi_111, r_7329);
return_closcall1(data,(closure)&c_7380,  c_7396);; 
}

static void __lambda_11(void *data, object self_7346, int argc, object *args) /* object self_7346, object r_7324 */
 {

  
closureN_type c_7382;
object e_7392 [1];
c_7382.hdr.mark = gc_color_red;
 c_7382.hdr.grayed = 0;
c_7382.tag = closureN_tag;
 c_7382.fn = (function_type)__lambda_12;
c_7382.num_args = 1;
c_7382.num_elements = 1;
c_7382.elements = (object *)e_7392;
c_7382.elements[0] = ((closureN)self_7346)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_7382, __glo_box_91type_srfi_111, quote_value);; 
}

static void __lambda_12(void *data, object self_7347, int argc, object *args) /* object self_7347, object r_7327 */
 {
 object r_7327 = args[0];
  
closureN_type c_7384;
object e_7390 [1];
c_7384.hdr.mark = gc_color_red;
 c_7384.hdr.grayed = 0;
c_7384.tag = closureN_tag;
 c_7384.fn = (function_type)__lambda_13;
c_7384.num_args = 1;
c_7384.num_elements = 1;
c_7384.elements = (object *)e_7390;
c_7384.elements[0] = ((closureN)self_7347)->elements[0];


make_utf8_string_with_len(c_7391, "set-box!", 8, 8);
return_direct_with_clo4(data,  __glo_make_91setter_scheme_base, (((closure)  __glo_make_91setter_scheme_base)->fn),  &c_7384, &c_7391, quote_box_91type, r_7327);; 
}

static void __lambda_13(void *data, object self_7348, int argc, object *args) /* object self_7348, object r_7325 */
 {
 object r_7325 = args[0];
  
object c_7389 = global_set_cps_id(data,  ((closureN)self_7348)->elements[0],"__glo_set_91box_67_srfi_111", __glo_set_91box_67_srfi_111, r_7325);
return_direct_with_clo1(data,  ((closureN)self_7348)->elements[0], (((closure)  ((closureN)self_7348)->elements[0])->fn),  c_7389);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7314, object value_732_733 */
 {
object k_7314 = args[0]; object value_732_733 = args[1];
  Cyc_st_add(data, "srfi/111.sld:box");

closureN_type c_7351;
object e_7362 [2];
c_7351.hdr.mark = gc_color_red;
 c_7351.hdr.grayed = 0;
c_7351.tag = closureN_tag;
 c_7351.fn = (function_type)__lambda_2;
c_7351.num_args = 1;
c_7351.num_elements = 2;
c_7351.elements = (object *)e_7362;
c_7351.elements[0] = k_7314;
c_7351.elements[1] = value_732_733;


complex_num_type local_7365; 
return_direct_with_clo1(data,(closure)&c_7351,__lambda_2,  ((inline_function_type)
                   ((closure)__glo_make_91record_91marker_191_191inline_191_191_scheme_base)->fn)(data,&local_7365));; 
}

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

return_direct_with_clo2(data,  __glo_vector_scheme_base, (((closure)  __glo_vector_scheme_base)->fn),  &c_7353, ((closureN)self_7338)->elements[1]);; 
}

static void __lambda_3(void *data, object self_7339, int argc, object *args) /* object self_7339, object r_7317 */
 {
 object r_7317 = args[0];
  
vector_3_type local_7358; 
return_direct_with_clo1(data,  ((closureN)self_7339)->elements[0], (((closure)  ((closureN)self_7339)->elements[0])->fn),  Cyc_fast_vector_3(&local_7358, ((closureN)self_7339)->elements[1], quote_box_91type, r_7317));; 
}

void c_srfi111_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_srfi111_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_box_127 = find_or_add_symbol("box?");
  quote_unbox = find_or_add_symbol("unbox");
  quote_value = find_or_add_symbol("value");
  quote_set_91box_67 = find_or_add_symbol("set-box!");
  quote_box_91type = find_or_add_symbol("box-type");

  add_global("__glo_lib_91init_117srfi111_srfi_111", (object *) &__glo_lib_91init_117srfi111_srfi_111);
  add_global("__glo_box_srfi_111", (object *) &__glo_box_srfi_111);
  add_global("__glo_set_91box_67_srfi_111", (object *) &__glo_set_91box_67_srfi_111);
  add_global("__glo_unbox_srfi_111", (object *) &__glo_unbox_srfi_111);
  add_global("__glo_box_127_srfi_111", (object *) &__glo_box_127_srfi_111);
  add_global("__glo_box_91type_srfi_111", (object *) &__glo_box_91type_srfi_111);
  mclosure0(c_7366, (function_type)__lambda_4);c_7366.num_args = 0; 
  __glo_lib_91init_117srfi111_srfi_111 = &c_7366; 
  mclosure0(c_7349, (function_type)__lambda_1);c_7349.num_args = 1; 
  __glo_box_srfi_111 = &c_7349; 
  __glo_set_91box_67_srfi_111 = boolean_f; 
  __glo_unbox_srfi_111 = boolean_f; 
  __glo_box_127_srfi_111 = boolean_f; 
  __glo_box_91type_srfi_111 = boolean_f; 

  mclosure0(clo_73112, c_srfi111_inlinable_lambdas); make_pair(pair_73111, find_or_add_symbol("c_srfi111_inlinable_lambdas"), &clo_73112);
  make_cvar(cvar_73113, (object *)&__glo_lib_91init_117srfi111_srfi_111);make_pair(pair_73114, find_or_add_symbol("lib-init:srfi111"), &cvar_73113);
  make_cvar(cvar_73115, (object *)&__glo_box_srfi_111);make_pair(pair_73116, find_or_add_symbol("box"), &cvar_73115);
  make_cvar(cvar_73117, (object *)&__glo_set_91box_67_srfi_111);make_pair(pair_73118, find_or_add_symbol("set-box!"), &cvar_73117);
  make_cvar(cvar_73119, (object *)&__glo_unbox_srfi_111);make_pair(pair_73120, find_or_add_symbol("unbox"), &cvar_73119);
  make_cvar(cvar_73121, (object *)&__glo_box_127_srfi_111);make_pair(pair_73122, find_or_add_symbol("box?"), &cvar_73121);
  make_cvar(cvar_73123, (object *)&__glo_box_91type_srfi_111);make_pair(pair_73124, find_or_add_symbol("box-type"), &cvar_73123);
make_pair(c_73131, &pair_73111,Cyc_global_variables);
make_pair(c_73130, &pair_73114, &c_73131);
make_pair(c_73129, &pair_73116, &c_73130);
make_pair(c_73128, &pair_73118, &c_73129);
make_pair(c_73127, &pair_73120, &c_73128);
make_pair(c_73126, &pair_73122, &c_73127);
make_pair(c_73125, &pair_73124, &c_73126);
Cyc_global_variables = &c_73125;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117srfi111_srfi_111)->fn)(data, buf[0], 1, buf);
}
void c_srfi111_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("srfi_111");
  c_srfi111_entry_pt_first_lambda(data, cont, argc, value);
}
