text: /**
   ** This file was automatically generated by the Cyclone scheme compiler
   ** http://justinethier.github.io/cyclone/
   **
   ** (c) 2014-2019 Justin Ethier
   ** Version 0.11.6 
   **
   **/
  
  #define closcall1(td, clo,a1) \
  if (obj_is_not_closure(clo)) { \
     Cyc_apply(td, 0, (closure)(a1), clo); \
  } else { \
     ((clo)->fn)(td, 1, clo,a1);\
  }
  #define return_closcall1(td, clo,a1) { \
   char top; \
   if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[1]; buf[0] = a1;\
       GC(td, clo, buf, 1); \
       return; \
   } else {\
       closcall1(td, (closure) (clo),a1); \
       return;\
   } \
  }
  
  #define continue_or_gc1(td, clo,a1) { \
   char *top = alloca(sizeof(char)); \
   if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[1]; buf[0] = a1;\
       GC(td, clo, buf, 1); \
       return; \
   } else {\
       continue;\
   } \
  }
  
  #define return_direct1(td, _fn,a1) { \
   char top; \
   if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[1]; buf[0] = a1; \
       mclosure0(c1, (function_type) _fn); \
       GC(td, &c1, buf, 1); \
       return; \
   } else { \
       (_fn)(td, 1, (closure)_fn,a1); \
   }}
  
  #define return_direct_with_clo1(td, clo, _fn,a1) { \
   char top; \
   if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[1]; buf[0] = a1;\
       GC(td, clo, buf, 1); \
       return; \
   } else { \
       (_fn)(td, 1, (closure)(clo),a1); \
   }}
  
  #define closcall2(td, clo,a1,a2) \
  if (obj_is_not_closure(clo)) { \
     Cyc_apply(td, 1, (closure)(a1), clo,a2); \
  } else { \
     ((clo)->fn)(td, 2, clo,a1,a2);\
  }
  #define return_closcall2(td, clo,a1,a2) { \
   char top; \
   if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[2]; buf[0] = a1;buf[1] = a2;\
       GC(td, clo, buf, 2); \
       return; \
   } else {\
       closcall2(td, (closure) (clo),a1,a2); \
       return;\
   } \
  }
  
  #define continue_or_gc2(td, clo,a1,a2) { \
   char *top = alloca(sizeof(char)); \
   if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[2]; buf[0] = a1;buf[1] = a2;\
       GC(td, clo, buf, 2); \
       return; \
   } else {\
       continue;\
   } \
  }
  
  #define return_direct2(td, _fn,a1,a2) { \
   char top; \
   if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[2]; buf[0] = a1;buf[1] = a2; \
       mclosure0(c1, (function_type) _fn); \
       GC(td, &c1, buf, 2); \
       return; \
   } else { \
       (_fn)(td, 2, (closure)_fn,a1,a2); \
   }}
  
  #define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
   char top; \
   if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
       object buf[2]; buf[0] = a1;buf[1] = a2;\
       GC(td, clo, buf, 2); \
       return; \
   } else { \
       (_fn)(td, 2, (closure)(clo),a1,a2); \
   }}
  
  #include "cyclone/types.h"
  object __glo_lib_91init_117schemelazy_scheme_lazy = NULL;
  object __glo_promise_127_scheme_lazy = NULL;
  object __glo_make_91promise_scheme_lazy = NULL;
  object __glo_delay_91force_scheme_lazy = NULL;
  object __glo_delay_scheme_lazy = NULL;
  object __glo_force_scheme_lazy = 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_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_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_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_flush_91output_91port_scheme_base;
  extern object __glo_peek_91char_scheme_base;
  extern object __glo_read_91char_scheme_base;
  extern object __glo_read_91line_scheme_base;
  extern object __glo_read_91string_scheme_base;
  extern object __glo_input_91port_127_scheme_base;
  extern object __glo_output_91port_127_scheme_base;
  extern object __glo_input_91port_91open_127_scheme_base;
  extern object __glo_output_91port_91open_127_scheme_base;
  extern object __glo_get_91output_91string_scheme_base;
  extern object __glo_open_91output_91string_scheme_base;
  extern object __glo_open_91input_91string_scheme_base;
  extern object __glo_get_91output_91bytevector_scheme_base;
  extern object __glo_open_91input_91bytevector_scheme_base;
  extern object __glo_open_91output_91bytevector_scheme_base;
  extern object __glo_features_scheme_base;
  extern object __glo_Cyc_91add_91feature_67_scheme_base;
  extern object __glo_Cyc_91version_scheme_base;
  extern object __glo_any_scheme_base;
  extern object __glo_every_scheme_base;
  extern object __glo_and_scheme_base;
  extern object __glo_or_scheme_base;
  extern object __glo_let_scheme_base;
  extern object __glo_let_85_scheme_base;
  extern object __glo_letrec_scheme_base;
  extern object __glo_let_85_91values_scheme_base;
  extern object __glo_let_91values_scheme_base;
  extern object __glo_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_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_peek_91u8_scheme_base;
  extern object __glo_read_91u8_scheme_base;
  extern object __glo_write_91u8_scheme_base;
  extern object __glo_string_123_127_191_191inline_191_191_scheme_base;
  extern object __glo_string_121_127_191_191inline_191_191_scheme_base;
  extern object __glo_string_121_123_127_191_191inline_191_191_scheme_base;
  extern object __glo_string_125_127_191_191inline_191_191_scheme_base;
  extern object __glo_string_125_123_127_191_191inline_191_191_scheme_base;
  extern object __glo_not_191_191inline_191_191_scheme_base;
  extern object __glo_list_127_191_191inline_191_191_scheme_base;
  extern object __glo_zero_127_191_191inline_191_191_scheme_base;
  extern object __glo_positive_127_191_191inline_191_191_scheme_base;
  extern object __glo_negative_127_191_191inline_191_191_scheme_base;
  extern object __glo_floor_191_191inline_191_191_scheme_base;
  extern object __glo_ceiling_191_191inline_191_191_scheme_base;
  extern object __glo_truncate_191_191inline_191_191_scheme_base;
  extern object __glo_round_191_191inline_191_191_scheme_base;
  extern object __glo_inexact_191_191inline_191_191_scheme_base;
  extern object __glo_sqrt_191_191inline_191_191_scheme_base;
  extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
  extern object __glo_exact_127_191_191inline_191_191_scheme_base;
  extern object __glo_complex_127_191_191inline_191_191_scheme_base;
  extern object __glo_denominator_191_191inline_191_191_scheme_base;
  extern object __glo_numerator_191_191inline_191_191_scheme_base;
  extern object __glo_quotient_191_191inline_191_191_scheme_base;
  extern object __glo_square_191_191inline_191_191_scheme_base;
  extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
  #include "cyclone/runtime.h"
  defsymbol(lambda);
  defsymbol(make_91promise);
  static void __lambda_8(void *data, int argc, closure _,object k_7369) ;
  static void __lambda_4(void *data, int argc, closure _,object k_7360, object proc_7314_7325) ;
  static void __lambda_5(void *data, int argc, object self_7371, object result_91ready_127_7315_7326, object result_7316_7327) ;
  static void __lambda_10(void *data, int argc, object self_7372, object result_91ready_127_7315_7326) ;
  static void __lambda_9(void *data, int argc, object self_7373, object result_7316_7327) ;
  static void __lambda_6(void *data, int argc, object self_7374, object k_7361) ;
  static void __lambda_7(void *data, int argc, object self_7375, object x_7317_7328) ;
  static void __lambda_3(void *data, int argc, closure _,object k_7347, object expr_738_7322, object rename_739_7323, object compare_7310_7324) ;
  static void __lambda_2(void *data, int argc, closure _,object k_7334, object expr_732_7319, object rename_733_7320, object compare_734_7321) ;
  static void __lambda_1(void *data, int argc, closure _,object k_7331, object object_731_7318) ;
  
  static void __lambda_8(void *data, int argc, closure _,object k_7369) {
    Cyc_st_add(data, "scheme/lazy.sld:lib-init:schemelazy");
  
  
  return_closcall1(data,  k_7369,  global_set(__glo_promise_127_scheme_lazy, primitive_procedure_127));; 
  }
  
  static void __lambda_4(void *data, int argc, closure _,object k_7360, object proc_7314_7325) {
    Cyc_st_add(data, "scheme/lazy.sld:make-promise");
  
  closureN_type c_73118;
  object e_73167 [2];
  c_73118.hdr.mark = gc_color_red;
   c_73118.hdr.grayed = 0;
  c_73118.tag = closureN_tag;
   c_73118.fn = (function_type)__lambda_5;
  c_73118.num_args = 2;
  c_73118.num_elements = 2;
  c_73118.elements = (object *)e_73167;
  c_73118.elements[0] = k_7360;
  c_73118.elements[1] = proc_7314_7325;
  
  return_direct_with_clo2(data,(closure)&c_73118,__lambda_5,  boolean_f, boolean_f);; 
  }
  
  static void __lambda_5(void *data, int argc, object self_7371, object result_91ready_127_7315_7326, object result_7316_7327) {
    
  closureN_type c_73120;
  object e_73163 [3];
  c_73120.hdr.mark = gc_color_red;
   c_73120.hdr.grayed = 0;
  c_73120.tag = closureN_tag;
   c_73120.fn = (function_type)__lambda_10;
  c_73120.num_args = 1;
  c_73120.num_elements = 3;
  c_73120.elements = (object *)e_73163;
  c_73120.elements[0] = ((closureN)self_7371)->elements[0];
  c_73120.elements[1] = ((closureN)self_7371)->elements[1];
  c_73120.elements[2] = result_7316_7327;
  
  
  pair_type local_73166; 
  return_direct_with_clo1(data,(closure)&c_73120,__lambda_10,  set_cell_as_expr(&local_73166, result_91ready_127_7315_7326));; 
  }
  
  static void __lambda_10(void *data, int argc, object self_7372, object result_91ready_127_7315_7326) {
    
  closureN_type c_73122;
  object e_73158 [3];
  c_73122.hdr.mark = gc_color_red;
   c_73122.hdr.grayed = 0;
  c_73122.tag = closureN_tag;
   c_73122.fn = (function_type)__lambda_9;
  c_73122.num_args = 1;
  c_73122.num_elements = 3;
  c_73122.elements = (object *)e_73158;
  c_73122.elements[0] = ((closureN)self_7372)->elements[0];
  c_73122.elements[1] = ((closureN)self_7372)->elements[1];
  c_73122.elements[2] = result_91ready_127_7315_7326;
  
  
  pair_type local_73161; 
  return_direct_with_clo1(data,(closure)&c_73122,__lambda_9,  set_cell_as_expr(&local_73161, ((closureN)self_7372)->elements[2]));; 
  }
  
  static void __lambda_9(void *data, int argc, object self_7373, object result_7316_7327) {
    
  closureN_type c_73125;
  object e_73157 [3];
  c_73125.hdr.mark = gc_color_red;
   c_73125.hdr.grayed = 0;
  c_73125.tag = closureN_tag;
   c_73125.fn = (function_type)__lambda_6;
  c_73125.num_args = 0;
  c_73125.num_elements = 3;
  c_73125.elements = (object *)e_73157;
  c_73125.elements[0] = ((closureN)self_7373)->elements[1];
  c_73125.elements[1] = result_7316_7327;
  c_73125.elements[2] = ((closureN)self_7373)->elements[2];
  
  return_closcall1(data,  ((closureN)self_7373)->elements[0],  &c_73125);; 
  }
  
  static void __lambda_6(void *data, int argc, object self_7374, object k_7361) {
      
  if( (boolean_f != car(((closureN)self_7374)->elements[2])) ){ 
    
  
  return_closcall1(data,  k_7361,  car(((closureN)self_7374)->elements[1]));
  } else { 
    
  closureN_type c_73135;
  object e_73156 [3];
  c_73135.hdr.mark = gc_color_red;
   c_73135.hdr.grayed = 0;
  c_73135.tag = closureN_tag;
   c_73135.fn = (function_type)__lambda_7;
  c_73135.num_args = 1;
  c_73135.num_elements = 3;
  c_73135.elements = (object *)e_73156;
  c_73135.elements[0] = k_7361;
  c_73135.elements[1] = ((closureN)self_7374)->elements[1];
  c_73135.elements[2] = ((closureN)self_7374)->elements[2];
  
  return_closcall1(data,  ((closureN)self_7374)->elements[0],  &c_73135);}
  ;; 
  }
  
  static void __lambda_7(void *data, int argc, object self_7375, object x_7317_7328) {
      
  if( (boolean_f != car(((closureN)self_7375)->elements[2])) ){ 
    
  
  return_closcall1(data,  ((closureN)self_7375)->elements[0],  car(((closureN)self_7375)->elements[1]));
  } else { 
    
    
    Cyc_set_cell(data, ((closureN)self_7375)->elements[1], x_7317_7328);Cyc_set_cell(data, ((closureN)self_7375)->elements[2], boolean_t);
  
  return_closcall1(data,  ((closureN)self_7375)->elements[0],  car(((closureN)self_7375)->elements[1]));;}
  ;; 
  }
  
  static void __lambda_3(void *data, int argc, closure _,object k_7347, object expr_738_7322, object rename_739_7323, object compare_7310_7324) {
    Cyc_st_add(data, "scheme/lazy.sld:delay-force");
  
  pair_type local_73101; 
  
  pair_type local_73104; 
  
  pair_type local_73107; 
  
  pair_type local_73110; 
  
  pair_type local_73113; 
  
  
  return_closcall1(data,  k_7347,  set_pair_as_expr(&local_73101, quote_make_91promise, set_pair_as_expr(&local_73104, set_pair_as_expr(&local_73107, quote_lambda, set_pair_as_expr(&local_73110, NULL, set_pair_as_expr(&local_73113, Cyc_cadr(data, expr_738_7322), NULL))), NULL)));; 
  }
  
  static void __lambda_2(void *data, int argc, closure _,object k_7334, object expr_732_7319, object rename_733_7320, object compare_734_7321) {
    Cyc_st_add(data, "scheme/lazy.sld:delay");
  
  pair_type local_7382; 
  
  pair_type local_7385; 
  
  pair_type local_7388; 
  
  pair_type local_7391; 
  
  pair_type local_7394; 
  
  
  return_closcall1(data,  k_7334,  set_pair_as_expr(&local_7382, quote_make_91promise, set_pair_as_expr(&local_7385, set_pair_as_expr(&local_7388, quote_lambda, set_pair_as_expr(&local_7391, NULL, set_pair_as_expr(&local_7394, Cyc_cadr(data, expr_732_7319), NULL))), NULL)));; 
  }
  
  static void __lambda_1(void *data, int argc, closure _,object k_7331, object object_731_7318) {
    Cyc_st_add(data, "scheme/lazy.sld:force");
  return_closcall1(data,  object_731_7318,  k_7331);; 
  }
  
  void c_schemelazy_inlinable_lambdas(void *data, int argc, closure _, object cont){ 
  (((closure)cont)->fn)(data, 1, cont, NULL);
   } 
  void c_schemelazy_entry_pt_first_lambda(data, argc, cont,value) void *data; int argc; closure cont; object value;{ 
  Cyc_set_globals_changed((gc_thread_data *)data);
    quote_lambda = find_or_add_symbol("lambda");
    quote_make_91promise = find_or_add_symbol("make-promise");
  
    add_global((object *) &__glo_lib_91init_117schemelazy_scheme_lazy);
    add_global((object *) &__glo_promise_127_scheme_lazy);
    add_global((object *) &__glo_make_91promise_scheme_lazy);
    add_global((object *) &__glo_delay_91force_scheme_lazy);
    add_global((object *) &__glo_delay_scheme_lazy);
    add_global((object *) &__glo_force_scheme_lazy);
    add_symbol(quote_lambda);
    add_symbol(quote_make_91promise);
    mclosure0(c_73168, (function_type)__lambda_8);c_73168.num_args = 0; 
    __glo_lib_91init_117schemelazy_scheme_lazy = &c_73168; 
    mclosure0(c_73116, (function_type)__lambda_4);c_73116.num_args = 1; 
    __glo_make_91promise_scheme_lazy = &c_73116; 
    mmacro(c_7397, (function_type)__lambda_3);c_7397.num_args = 3; 
    __glo_delay_91force_scheme_lazy = &c_7397; 
    mmacro(c_7378, (function_type)__lambda_2);c_7378.num_args = 3; 
    __glo_delay_scheme_lazy = &c_7378; 
    mclosure0(c_7376, (function_type)__lambda_1);c_7376.num_args = 1; 
    __glo_force_scheme_lazy = &c_7376; 
    __glo_promise_127_scheme_lazy = boolean_f; 
  
    mclosure0(clo_73173, c_schemelazy_inlinable_lambdas); make_pair(pair_73172, find_or_add_symbol("c_schemelazy_inlinable_lambdas"), &clo_73173);
    make_cvar(cvar_73174, (object *)&__glo_lib_91init_117schemelazy_scheme_lazy);make_pair(pair_73175, find_or_add_symbol("lib-init:schemelazy"), &cvar_73174);
    make_cvar(cvar_73176, (object *)&__glo_promise_127_scheme_lazy);make_pair(pair_73177, find_or_add_symbol("promise?"), &cvar_73176);
    make_cvar(cvar_73178, (object *)&__glo_make_91promise_scheme_lazy);make_pair(pair_73179, find_or_add_symbol("make-promise"), &cvar_73178);
    make_cvar(cvar_73180, (object *)&__glo_delay_91force_scheme_lazy);make_pair(pair_73181, find_or_add_symbol("delay-force"), &cvar_73180);
    make_cvar(cvar_73182, (object *)&__glo_delay_scheme_lazy);make_pair(pair_73183, find_or_add_symbol("delay"), &cvar_73182);
    make_cvar(cvar_73184, (object *)&__glo_force_scheme_lazy);make_pair(pair_73185, find_or_add_symbol("force"), &cvar_73184);
  make_pair(c_73192, &pair_73172,Cyc_global_variables);
  make_pair(c_73191, &pair_73175, &c_73192);
  make_pair(c_73190, &pair_73177, &c_73191);
  make_pair(c_73189, &pair_73179, &c_73190);
  make_pair(c_73188, &pair_73181, &c_73189);
  make_pair(c_73187, &pair_73183, &c_73188);
  make_pair(c_73186, &pair_73185, &c_73187);
  Cyc_global_variables = &c_73186;
  cont = ((closure1_type *)cont)->element;
  (((closure)__glo_lib_91init_117schemelazy_scheme_lazy)->fn)(data, 1, cont, cont);
  }
  void c_schemelazy_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ 
    register_library("scheme_lazy");
    c_schemelazy_entry_pt_first_lambda(data, argc, cont,value);
  }
  