mirror of
https://github.com/justinethier/cyclone.git
synced 2025-06-01 00:15:05 +02:00
8922 lines
368 KiB
C
8922 lines
368 KiB
C
/**
|
|
** This file was automatically generated by the Cyclone scheme compiler
|
|
**
|
|
** (c) 2014-2016 Justin Ethier
|
|
** Version 0.0.7 (Pre-release)
|
|
**
|
|
**/
|
|
|
|
#define closcall1(td, clo,a1) \
|
|
if (type_of(clo) == pair_tag || prim(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 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, _fn); \
|
|
GC(td, &c1, buf, 1); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 1, (closure)_fn,a1); \
|
|
}}
|
|
|
|
#define closcall2(td, clo,a1,a2) \
|
|
if (type_of(clo) == pair_tag || prim(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 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, _fn); \
|
|
GC(td, &c1, buf, 2); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 2, (closure)_fn,a1,a2); \
|
|
}}
|
|
|
|
#define closcall3(td, clo,a1,a2,a3) \
|
|
if (type_of(clo) == pair_tag || prim(clo)) { \
|
|
Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \
|
|
} else { \
|
|
((clo)->fn)(td, 3, clo,a1,a2,a3);\
|
|
}
|
|
#define return_closcall3(td, clo,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
|
|
GC(td, clo, buf, 3); \
|
|
return; \
|
|
} else {\
|
|
closcall3(td, (closure) (clo),a1,a2,a3); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct3(td, _fn,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
|
|
mclosure0(c1, _fn); \
|
|
GC(td, &c1, buf, 3); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 3, (closure)_fn,a1,a2,a3); \
|
|
}}
|
|
|
|
#define closcall4(td, clo,a1,a2,a3,a4) \
|
|
if (type_of(clo) == pair_tag || prim(clo)) { \
|
|
Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \
|
|
} else { \
|
|
((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\
|
|
}
|
|
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
|
|
GC(td, clo, buf, 4); \
|
|
return; \
|
|
} else {\
|
|
closcall4(td, (closure) (clo),a1,a2,a3,a4); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct4(td, _fn,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
|
|
mclosure0(c1, _fn); \
|
|
GC(td, &c1, buf, 4); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \
|
|
}}
|
|
|
|
#define closcall5(td, clo,a1,a2,a3,a4,a5) \
|
|
if (type_of(clo) == pair_tag || prim(clo)) { \
|
|
Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \
|
|
} else { \
|
|
((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\
|
|
}
|
|
#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
|
|
GC(td, clo, buf, 5); \
|
|
return; \
|
|
} else {\
|
|
closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \
|
|
mclosure0(c1, _fn); \
|
|
GC(td, &c1, buf, 5); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \
|
|
}}
|
|
|
|
#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \
|
|
if (type_of(clo) == pair_tag || prim(clo)) { \
|
|
Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \
|
|
} else { \
|
|
((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\
|
|
}
|
|
#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\
|
|
GC(td, clo, buf, 6); \
|
|
return; \
|
|
} else {\
|
|
closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \
|
|
mclosure0(c1, _fn); \
|
|
GC(td, &c1, buf, 6); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \
|
|
}}
|
|
|
|
#define closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) \
|
|
if (type_of(clo) == pair_tag || prim(clo)) { \
|
|
Cyc_apply(td, 7, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8); \
|
|
} else { \
|
|
((clo)->fn)(td, 8, clo,a1,a2,a3,a4,a5,a6,a7,a8);\
|
|
}
|
|
#define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\
|
|
GC(td, clo, buf, 8); \
|
|
return; \
|
|
} else {\
|
|
closcall8(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct8(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8; \
|
|
mclosure0(c1, _fn); \
|
|
GC(td, &c1, buf, 8); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 8, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8); \
|
|
}}
|
|
|
|
#define closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) \
|
|
if (type_of(clo) == pair_tag || prim(clo)) { \
|
|
Cyc_apply(td, 8, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9); \
|
|
} else { \
|
|
((clo)->fn)(td, 9, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9);\
|
|
}
|
|
#define return_closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;\
|
|
GC(td, clo, buf, 9); \
|
|
return; \
|
|
} else {\
|
|
closcall9(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct9(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9; \
|
|
mclosure0(c1, _fn); \
|
|
GC(td, &c1, buf, 9); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 9, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9); \
|
|
}}
|
|
|
|
#include "cyclone/types.h"
|
|
object __glo_lib_91init_117schemeread_scheme_read = NULL;
|
|
object __glo_read_91all_scheme_read = NULL;
|
|
object __glo_cyc_91read_scheme_read = NULL;
|
|
object __glo_hex_91digit_127_scheme_read = NULL;
|
|
object __glo_parse_91number_91rec_scheme_read = NULL;
|
|
object __glo_parse_91number_scheme_read = NULL;
|
|
object __glo_parse_91li_91rec_scheme_read = NULL;
|
|
object __glo_parse_91literal_91identifier_scheme_read = NULL;
|
|
object __glo_read_91block_91terminator_scheme_read = NULL;
|
|
object __glo_read_91block_91comment_scheme_read = NULL;
|
|
object __glo_get_91next_91char_scheme_read = NULL;
|
|
object __glo_parse_91atom_scheme_read = NULL;
|
|
object __glo_token_91numeric_127_scheme_read = NULL;
|
|
object __glo_sign_127_scheme_read = NULL;
|
|
object __glo_read_91str_91esc_scheme_read = NULL;
|
|
object __glo_read_91str_scheme_read = NULL;
|
|
object __glo_read_91pound_scheme_read = NULL;
|
|
object __glo_parse_scheme_read = NULL;
|
|
object __glo_parse_95tok_scheme_read = NULL;
|
|
object __glo_parse_91error_scheme_read = NULL;
|
|
object __glo__91_125dotted_91list_scheme_read = NULL;
|
|
object __glo_dotted_127_scheme_read = NULL;
|
|
object __glo__91_125tok_scheme_read = NULL;
|
|
object __glo_get_91toks_scheme_read = NULL;
|
|
object __glo_add_91tok_scheme_read = NULL;
|
|
object __glo_in_91port_117set_91cnum_67_scheme_read = NULL;
|
|
object __glo_in_91port_117get_91cnum_scheme_read = NULL;
|
|
object __glo_in_91port_117set_91lnum_67_scheme_read = NULL;
|
|
object __glo_in_91port_117get_91lnum_scheme_read = NULL;
|
|
object __glo_in_91port_117set_91buf_67_scheme_read = NULL;
|
|
object __glo_in_91port_117get_91buf_scheme_read = NULL;
|
|
object __glo_in_91port_117read_91buf_67_scheme_read = NULL;
|
|
object __glo_reg_91port_scheme_read = NULL;
|
|
object __glo__85in_91port_91table_85_scheme_read = NULL;
|
|
object __glo_read_scheme_read = NULL;
|
|
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_register_91simple_91type_scheme_base;
|
|
extern object __glo_make_91type_91predicate_scheme_base;
|
|
extern object __glo_make_91constructor_scheme_base;
|
|
extern object __glo_make_91getter_scheme_base;
|
|
extern object __glo_make_91setter_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_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_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_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_scheme_base;
|
|
extern object __glo_raise_scheme_base;
|
|
extern object __glo_raise_91continuable_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_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_features_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_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_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_display_scheme_write;
|
|
extern object __glo_write_scheme_write;
|
|
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;
|
|
#include "cyclone/runtime.h"
|
|
defsymbol(DEBUG);
|
|
defsymbol(read);
|
|
defsymbol(unquote);
|
|
defsymbol(unquote_91splicing);
|
|
defsymbol(quasiquote);
|
|
defsymbol(quote);
|
|
static void __lambda_406(void *data, int argc, closure _,object k_73267) ;
|
|
static void __lambda_405(void *data, int argc, object self_73834, object r_73269) ;
|
|
static void __lambda_404(void *data, int argc, object self_73835, object r_73270) ;
|
|
static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) ;
|
|
static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) ;
|
|
static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) ;
|
|
static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) ;
|
|
static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) ;
|
|
static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) ;
|
|
static void __lambda_397(void *data, int argc, object self_73841, object r_73277) ;
|
|
static void __lambda_396(void *data, int argc, object self_73842, object r_73275) ;
|
|
static void __lambda_395(void *data, int argc, object self_73843, object r_73276) ;
|
|
static void __lambda_394(void *data, int argc, object self_73844, object k_73282) ;
|
|
static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) ;
|
|
static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) ;
|
|
static void __lambda_391(void *data, int argc, object self_73846, object r_73288) ;
|
|
static void __lambda_390(void *data, int argc, object self_73847, object r_73289) ;
|
|
static void __lambda_389(void *data, int argc, object self_73848, object r_73290) ;
|
|
static void __lambda_388(void *data, int argc, object self_73849, object k_73291) ;
|
|
static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) ;
|
|
static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) ;
|
|
static void __lambda_385(void *data, int argc, object self_73851, object r_73297) ;
|
|
static void __lambda_384(void *data, int argc, object self_73852, object k_73298) ;
|
|
static void __lambda_383(void *data, int argc, object self_73853, object r_73299) ;
|
|
static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) ;
|
|
static void __lambda_381(void *data, int argc, object self_73854, object r_73303) ;
|
|
static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) ;
|
|
static void __lambda_379(void *data, int argc, object self_73856, object r_73304) ;
|
|
static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) ;
|
|
static void __lambda_377(void *data, int argc, object self_73858, object r_73305) ;
|
|
static void __lambda_376(void *data, int argc, object self_73859, object r_73307) ;
|
|
static void __lambda_375(void *data, int argc, object self_73860, object r_73318) ;
|
|
static void __lambda_374(void *data, int argc, object self_73861, object r_73319) ;
|
|
static void __lambda_373(void *data, int argc, object self_73862, object k_73320) ;
|
|
static void __lambda_372(void *data, int argc, object self_73863, object r_73321) ;
|
|
static void __lambda_371(void *data, int argc, object self_73864, object r_73308) ;
|
|
static void __lambda_370(void *data, int argc, object self_73865, object k_73309) ;
|
|
static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) ;
|
|
static void __lambda_368(void *data, int argc, object self_73867, object r_73310) ;
|
|
static void __lambda_367(void *data, int argc, object self_73868, object r_73311) ;
|
|
static void __lambda_366(void *data, int argc, object self_73869, object r_73312) ;
|
|
static void __lambda_365(void *data, int argc, object self_73870, object k_73314) ;
|
|
static void __lambda_364(void *data, int argc, object self_73871, object r_73315) ;
|
|
static void __lambda_363(void *data, int argc, object self_73872, object k_73316) ;
|
|
static void __lambda_362(void *data, int argc, object self_73873, object r_73317) ;
|
|
static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) ;
|
|
static void __lambda_360(void *data, int argc, object self_73874, object r_73341) ;
|
|
static void __lambda_359(void *data, int argc, object self_73875, object num_73143) ;
|
|
static void __lambda_358(void *data, int argc, object self_73876, object r_73328) ;
|
|
static void __lambda_357(void *data, int argc, object self_73877, object r_73332) ;
|
|
static void __lambda_356(void *data, int argc, object self_73878, object r_73333) ;
|
|
static void __lambda_355(void *data, int argc, object self_73879, object result_73144) ;
|
|
static void __lambda_354(void *data, int argc, object self_73880, object r_73330) ;
|
|
static void __lambda_353(void *data, int argc, object self_73881, object k_73334) ;
|
|
static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) ;
|
|
static void __lambda_351(void *data, int argc, object self_73883, object r_73337) ;
|
|
static void __lambda_350(void *data, int argc, object self_73884, object r_73338) ;
|
|
static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) ;
|
|
static void __lambda_348(void *data, int argc, object self_73885, object r_73345) ;
|
|
static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) ;
|
|
static void __lambda_346(void *data, int argc, object self_73887, object r_73346) ;
|
|
static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) ;
|
|
static void __lambda_344(void *data, int argc, object self_73889, object r_73353) ;
|
|
static void __lambda_343(void *data, int argc, object self_73890, object r_73354) ;
|
|
static void __lambda_342(void *data, int argc, object self_73891, object str_73152) ;
|
|
static void __lambda_341(void *data, int argc, object self_73892, object k_73349) ;
|
|
static void __lambda_340(void *data, int argc, object self_73893, object r_73351) ;
|
|
static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) ;
|
|
static void __lambda_338(void *data, int argc, object self_73894, object r_73363) ;
|
|
static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) ;
|
|
static void __lambda_336(void *data, int argc, object self_73896, object r_73361) ;
|
|
static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) ;
|
|
static void __lambda_334(void *data, int argc, object self_73897, object c_73161) ;
|
|
static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) ;
|
|
static void __lambda_332(void *data, int argc, object self_73898, object c_73164) ;
|
|
static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) ;
|
|
static void __lambda_330(void *data, int argc, object self_73899, object r_73378) ;
|
|
static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) ;
|
|
static void __lambda_328(void *data, int argc, object self_73900, object r_73382) ;
|
|
static void __lambda_327(void *data, int argc, object self_73901, object r_73384) ;
|
|
static void __lambda_326(void *data, int argc, object self_73902, object r_73383) ;
|
|
static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) ;
|
|
static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) ;
|
|
static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) ;
|
|
static void __lambda_322(void *data, int argc, object self_73905, object r_73390) ;
|
|
static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) ;
|
|
static void __lambda_320(void *data, int argc, object self_73907, object r_73391) ;
|
|
static void __lambda_319(void *data, int argc, object self_73908, object k_73394) ;
|
|
static void __lambda_318(void *data, int argc, object self_73909, object k_73398) ;
|
|
static void __lambda_317(void *data, int argc, object self_73910, object r_73399) ;
|
|
static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) ;
|
|
static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) ;
|
|
static void __lambda_314(void *data, int argc, object self_73911, object c_73177) ;
|
|
static void __lambda_313(void *data, int argc, object self_73912, object r_73416) ;
|
|
static void __lambda_312(void *data, int argc, object self_73913, object r_73422) ;
|
|
static void __lambda_311(void *data, int argc, object self_73914, object r_73421) ;
|
|
static void __lambda_310(void *data, int argc, object self_73915, object r_73418) ;
|
|
static void __lambda_309(void *data, int argc, object self_73916, object r_73419) ;
|
|
static void __lambda_308(void *data, int argc, object self_73917, object r_73420) ;
|
|
static void __lambda_307(void *data, int argc, object self_73918, object k_73424) ;
|
|
static void __lambda_306(void *data, int argc, object self_73919, object r_73414) ;
|
|
static void __lambda_305(void *data, int argc, object self_73920, object r_73415) ;
|
|
static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) ;
|
|
static void __lambda_303(void *data, int argc, object self_73921, object c_73182) ;
|
|
static void __lambda_302(void *data, int argc, object self_73922, object r_73435) ;
|
|
static void __lambda_301(void *data, int argc, object self_73923, object r_73433) ;
|
|
static void __lambda_300(void *data, int argc, object self_73924, object r_73430) ;
|
|
static void __lambda_299(void *data, int argc, object self_73925, object r_73431) ;
|
|
static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) ;
|
|
static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) ;
|
|
static void __lambda_296(void *data, int argc, object self_73927, object done_73188) ;
|
|
static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) ;
|
|
static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) ;
|
|
static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) ;
|
|
static void __lambda_292(void *data, int argc, object self_73931, object r_73460) ;
|
|
static void __lambda_291(void *data, int argc, object self_73932, object r_73463) ;
|
|
static void __lambda_290(void *data, int argc, object self_73933, object r_73493) ;
|
|
static void __lambda_289(void *data, int argc, object self_73934, object r_73492) ;
|
|
static void __lambda_288(void *data, int argc, object self_73935, object r_73491) ;
|
|
static void __lambda_287(void *data, int argc, object self_73936, object r_73490) ;
|
|
static void __lambda_286(void *data, int argc, object self_73937, object r_73489) ;
|
|
static void __lambda_285(void *data, int argc, object self_73938, object r_73488) ;
|
|
static void __lambda_284(void *data, int argc, object self_73939, object r_73487) ;
|
|
static void __lambda_283(void *data, int argc, object self_73940, object r_73486) ;
|
|
static void __lambda_282(void *data, int argc, object self_73941, object r_73485) ;
|
|
static void __lambda_281(void *data, int argc, object self_73942, object r_73473) ;
|
|
static void __lambda_280(void *data, int argc, object self_73943, object r_73480) ;
|
|
static void __lambda_279(void *data, int argc, object self_73944, object r_73477) ;
|
|
static void __lambda_278(void *data, int argc, object self_73945, object r_73478) ;
|
|
static void __lambda_277(void *data, int argc, object self_73946, object r_73479) ;
|
|
static void __lambda_276(void *data, int argc, object self_73947, object r_73475) ;
|
|
static void __lambda_275(void *data, int argc, object self_73948, object r_73474) ;
|
|
static void __lambda_274(void *data, int argc, object self_73949, object k_73481) ;
|
|
static void __lambda_273(void *data, int argc, object self_73950, object r_73482) ;
|
|
static void __lambda_272(void *data, int argc, object self_73951, object r_73461) ;
|
|
static void __lambda_271(void *data, int argc, object self_73952, object r_73462) ;
|
|
static void __lambda_270(void *data, int argc, object self_73953, object r_73457) ;
|
|
static void __lambda_269(void *data, int argc, object self_73954, object r_73440) ;
|
|
static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) ;
|
|
static void __lambda_267(void *data, int argc, object self_73956, object c_73192) ;
|
|
static void __lambda_266(void *data, int argc, object self_73957, object r_73446) ;
|
|
static void __lambda_265(void *data, int argc, object self_73958, object r_73448) ;
|
|
static void __lambda_264(void *data, int argc, object self_73959, object k_73450) ;
|
|
static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) ;
|
|
static void __lambda_262(void *data, int argc, object self_73961, object r_73452) ;
|
|
static void __lambda_261(void *data, int argc, object self_73962, object k_73454) ;
|
|
static void __lambda_260(void *data, int argc, object self_73963, object r_73455) ;
|
|
static void __lambda_259(void *data, int argc, object self_73964, object r_73443) ;
|
|
static void __lambda_258(void *data, int argc, object self_73965, object r_73441) ;
|
|
static void __lambda_257(void *data, int argc, object self_73966, object r_73442) ;
|
|
static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) ;
|
|
static void __lambda_255(void *data, int argc, object self_73967, object r_73748) ;
|
|
static void __lambda_254(void *data, int argc, object self_73968, object r_73747) ;
|
|
static void __lambda_253(void *data, int argc, object self_73969, object r_73499) ;
|
|
static void __lambda_252(void *data, int argc, object self_73970, object c_73205) ;
|
|
static void __lambda_251(void *data, int argc, object self_73971, object r_73738) ;
|
|
static void __lambda_250(void *data, int argc, object self_73972, object r_73740) ;
|
|
static void __lambda_249(void *data, int argc, object self_73973, object r_73744) ;
|
|
static void __lambda_248(void *data, int argc, object self_73974, object r_73501) ;
|
|
static void __lambda_247(void *data, int argc, object self_73975, object r_73736) ;
|
|
static void __lambda_246(void *data, int argc, object self_73976, object r_73502) ;
|
|
static void __lambda_245(void *data, int argc, object self_73977, object r_73520) ;
|
|
static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) ;
|
|
static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) ;
|
|
static void __lambda_242(void *data, int argc, object self_73980, object r_73732) ;
|
|
static void __lambda_241(void *data, int argc, object self_73981, object r_73731) ;
|
|
static void __lambda_240(void *data, int argc, object self_73982, object r_73639) ;
|
|
static void __lambda_239(void *data, int argc, object self_73983, object r_73729) ;
|
|
static void __lambda_238(void *data, int argc, object self_73984, object r_73730) ;
|
|
static void __lambda_237(void *data, int argc, object self_73985, object r_73727) ;
|
|
static void __lambda_236(void *data, int argc, object self_73986, object r_73728) ;
|
|
static void __lambda_235(void *data, int argc, object self_73987, object r_73720) ;
|
|
static void __lambda_234(void *data, int argc, object self_73988, object r_73721) ;
|
|
static void __lambda_233(void *data, int argc, object self_73989, object r_73722) ;
|
|
static void __lambda_232(void *data, int argc, object self_73990, object r_73724) ;
|
|
static void __lambda_231(void *data, int argc, object self_73991, object r_73723) ;
|
|
static void __lambda_230(void *data, int argc, object self_73992, object k_73725) ;
|
|
static void __lambda_229(void *data, int argc, object self_73993, object r_73718) ;
|
|
static void __lambda_228(void *data, int argc, object self_73994, object r_73717) ;
|
|
static void __lambda_227(void *data, int argc, object self_73995, object r_73712) ;
|
|
static void __lambda_226(void *data, int argc, object self_73996, object r_73713) ;
|
|
static void __lambda_225(void *data, int argc, object self_73997, object r_73714) ;
|
|
static void __lambda_224(void *data, int argc, object self_73998, object r_73700) ;
|
|
static void __lambda_223(void *data, int argc, object self_73999, object r_73701) ;
|
|
static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) ;
|
|
static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) ;
|
|
static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) ;
|
|
static void __lambda_219(void *data, int argc, object self_731003, object r_73705) ;
|
|
static void __lambda_218(void *data, int argc, object self_731004, object r_73704) ;
|
|
static void __lambda_217(void *data, int argc, object self_731005, object r_73702) ;
|
|
static void __lambda_216(void *data, int argc, object self_731006, object r_73703) ;
|
|
static void __lambda_215(void *data, int argc, object self_731007, object k_73706) ;
|
|
static void __lambda_214(void *data, int argc, object self_731008, object r_73707) ;
|
|
static void __lambda_213(void *data, int argc, object self_731009, object r_73708) ;
|
|
static void __lambda_212(void *data, int argc, object self_731010, object r_73709) ;
|
|
static void __lambda_211(void *data, int argc, object self_731011, object k_73710) ;
|
|
static void __lambda_210(void *data, int argc, object self_731012, object r_73698) ;
|
|
static void __lambda_209(void *data, int argc, object self_731013, object r_73670) ;
|
|
static void __lambda_208(void *data, int argc, object self_731014, object r_73671) ;
|
|
static void __lambda_207(void *data, int argc, object self_731015, object r_73693) ;
|
|
static void __lambda_206(void *data, int argc, object self_731016, object r_73672) ;
|
|
static void __lambda_205(void *data, int argc, object self_731017, object r_73673) ;
|
|
static void __lambda_204(void *data, int argc, object self_731018, object r_73686) ;
|
|
static void __lambda_203(void *data, int argc, object self_731019, object r_73687) ;
|
|
static void __lambda_202(void *data, int argc, object self_731020, object r_73688) ;
|
|
static void __lambda_201(void *data, int argc, object self_731021, object r_73674) ;
|
|
static void __lambda_200(void *data, int argc, object self_731022, object r_73675) ;
|
|
static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) ;
|
|
static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) ;
|
|
static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) ;
|
|
static void __lambda_196(void *data, int argc, object self_731026, object r_73679) ;
|
|
static void __lambda_195(void *data, int argc, object self_731027, object r_73678) ;
|
|
static void __lambda_194(void *data, int argc, object self_731028, object r_73676) ;
|
|
static void __lambda_193(void *data, int argc, object self_731029, object r_73677) ;
|
|
static void __lambda_192(void *data, int argc, object self_731030, object k_73680) ;
|
|
static void __lambda_191(void *data, int argc, object self_731031, object r_73681) ;
|
|
static void __lambda_190(void *data, int argc, object self_731032, object r_73682) ;
|
|
static void __lambda_189(void *data, int argc, object self_731033, object r_73683) ;
|
|
static void __lambda_188(void *data, int argc, object self_731034, object k_73684) ;
|
|
static void __lambda_187(void *data, int argc, object self_731035, object k_73689) ;
|
|
static void __lambda_186(void *data, int argc, object self_731036, object r_73691) ;
|
|
static void __lambda_185(void *data, int argc, object self_731037, object r_73692) ;
|
|
static void __lambda_184(void *data, int argc, object self_731038, object k_73694) ;
|
|
static void __lambda_183(void *data, int argc, object self_731039, object r_73696) ;
|
|
static void __lambda_182(void *data, int argc, object self_731040, object r_73697) ;
|
|
static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) ;
|
|
static void __lambda_180(void *data, int argc, object self_731042, object r_73668) ;
|
|
static void __lambda_179(void *data, int argc, object self_731043, object r_73666) ;
|
|
static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) ;
|
|
static void __lambda_177(void *data, int argc, object self_731045, object r_73664) ;
|
|
static void __lambda_176(void *data, int argc, object self_731046, object r_73662) ;
|
|
static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) ;
|
|
static void __lambda_174(void *data, int argc, object self_731048, object r_73660) ;
|
|
static void __lambda_173(void *data, int argc, object self_731049, object r_73658) ;
|
|
static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) ;
|
|
static void __lambda_171(void *data, int argc, object self_731051, object r_73656) ;
|
|
static void __lambda_170(void *data, int argc, object self_731052, object r_73654) ;
|
|
static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) ;
|
|
static void __lambda_168(void *data, int argc, object self_731054, object r_73652) ;
|
|
static void __lambda_167(void *data, int argc, object self_731055, object r_73650) ;
|
|
static void __lambda_166(void *data, int argc, object self_731056, object r_73647) ;
|
|
static void __lambda_165(void *data, int argc, object self_731057, object r_73644) ;
|
|
static void __lambda_164(void *data, int argc, object self_731058, object r_73641) ;
|
|
static void __lambda_163(void *data, int argc, object self_731059, object r_73642) ;
|
|
static void __lambda_162(void *data, int argc, object self_731060, object r_73624) ;
|
|
static void __lambda_161(void *data, int argc, object self_731061, object r_73633) ;
|
|
static void __lambda_160(void *data, int argc, object self_731062, object r_73628) ;
|
|
static void __lambda_159(void *data, int argc, object self_731063, object r_73629) ;
|
|
static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) ;
|
|
static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) ;
|
|
static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) ;
|
|
static void __lambda_155(void *data, int argc, object self_731067, object r_73632) ;
|
|
static void __lambda_154(void *data, int argc, object self_731068, object r_73630) ;
|
|
static void __lambda_153(void *data, int argc, object self_731069, object r_73631) ;
|
|
static void __lambda_152(void *data, int argc, object self_731070, object r_73625) ;
|
|
static void __lambda_151(void *data, int argc, object self_731071, object r_73627) ;
|
|
static void __lambda_150(void *data, int argc, object self_731072, object r_73626) ;
|
|
static void __lambda_149(void *data, int argc, object self_731073, object k_73634) ;
|
|
static void __lambda_148(void *data, int argc, object self_731074, object r_73613) ;
|
|
static void __lambda_147(void *data, int argc, object self_731075, object r_73617) ;
|
|
static void __lambda_146(void *data, int argc, object self_731076, object r_73620) ;
|
|
static void __lambda_145(void *data, int argc, object self_731077, object r_73618) ;
|
|
static void __lambda_144(void *data, int argc, object self_731078, object r_73619) ;
|
|
static void __lambda_143(void *data, int argc, object self_731079, object r_73614) ;
|
|
static void __lambda_142(void *data, int argc, object self_731080, object r_73616) ;
|
|
static void __lambda_141(void *data, int argc, object self_731081, object r_73615) ;
|
|
static void __lambda_140(void *data, int argc, object self_731082, object k_73621) ;
|
|
static void __lambda_139(void *data, int argc, object self_731083, object r_73593) ;
|
|
static void __lambda_138(void *data, int argc, object self_731084, object r_73607) ;
|
|
static void __lambda_137(void *data, int argc, object self_731085, object r_73608) ;
|
|
static void __lambda_136(void *data, int argc, object self_731086, object r_73609) ;
|
|
static void __lambda_135(void *data, int argc, object self_731087, object r_73597) ;
|
|
static void __lambda_134(void *data, int argc, object self_731088, object r_73598) ;
|
|
static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) ;
|
|
static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) ;
|
|
static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) ;
|
|
static void __lambda_130(void *data, int argc, object self_731092, object r_73602) ;
|
|
static void __lambda_129(void *data, int argc, object self_731093, object r_73601) ;
|
|
static void __lambda_128(void *data, int argc, object self_731094, object r_73599) ;
|
|
static void __lambda_127(void *data, int argc, object self_731095, object r_73600) ;
|
|
static void __lambda_126(void *data, int argc, object self_731096, object k_73603) ;
|
|
static void __lambda_125(void *data, int argc, object self_731097, object r_73604) ;
|
|
static void __lambda_124(void *data, int argc, object self_731098, object k_73605) ;
|
|
static void __lambda_123(void *data, int argc, object self_731099, object r_73594) ;
|
|
static void __lambda_122(void *data, int argc, object self_731100, object r_73596) ;
|
|
static void __lambda_121(void *data, int argc, object self_731101, object r_73595) ;
|
|
static void __lambda_120(void *data, int argc, object self_731102, object k_73610) ;
|
|
static void __lambda_119(void *data, int argc, object self_731103, object r_73563) ;
|
|
static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) ;
|
|
static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) ;
|
|
static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) ;
|
|
static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) ;
|
|
static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) ;
|
|
static void __lambda_113(void *data, int argc, object self_731109, object r_73567) ;
|
|
static void __lambda_112(void *data, int argc, object self_731110, object r_73589) ;
|
|
static void __lambda_111(void *data, int argc, object self_731111, object r_73568) ;
|
|
static void __lambda_110(void *data, int argc, object self_731112, object r_73586) ;
|
|
static void __lambda_109(void *data, int argc, object self_731113, object r_73569) ;
|
|
static void __lambda_108(void *data, int argc, object self_731114, object r_73570) ;
|
|
static void __lambda_107(void *data, int argc, object self_731115, object r_73571) ;
|
|
static void __lambda_106(void *data, int argc, object self_731116, object r_73579) ;
|
|
static void __lambda_105(void *data, int argc, object self_731117, object r_73580) ;
|
|
static void __lambda_104(void *data, int argc, object self_731118, object r_73578) ;
|
|
static void __lambda_103(void *data, int argc, object self_731119, object r_73572) ;
|
|
static void __lambda_102(void *data, int argc, object self_731120, object r_73576) ;
|
|
static void __lambda_101(void *data, int argc, object self_731121, object r_73577) ;
|
|
static void __lambda_100(void *data, int argc, object self_731122, object r_73575) ;
|
|
static void __lambda_99(void *data, int argc, object self_731123, object r_73573) ;
|
|
static void __lambda_98(void *data, int argc, object self_731124, object r_73574) ;
|
|
static void __lambda_97(void *data, int argc, object self_731125, object k_73581) ;
|
|
static void __lambda_96(void *data, int argc, object self_731126, object r_73583) ;
|
|
static void __lambda_95(void *data, int argc, object self_731127, object r_73584) ;
|
|
static void __lambda_94(void *data, int argc, object self_731128, object k_73587) ;
|
|
static void __lambda_93(void *data, int argc, object self_731129, object r_73564) ;
|
|
static void __lambda_92(void *data, int argc, object self_731130, object r_73566) ;
|
|
static void __lambda_91(void *data, int argc, object self_731131, object r_73565) ;
|
|
static void __lambda_90(void *data, int argc, object self_731132, object k_73590) ;
|
|
static void __lambda_89(void *data, int argc, object self_731133, object r_73547) ;
|
|
static void __lambda_88(void *data, int argc, object self_731134, object r_73558) ;
|
|
static void __lambda_87(void *data, int argc, object self_731135, object r_73559) ;
|
|
static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) ;
|
|
static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) ;
|
|
static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) ;
|
|
static void __lambda_83(void *data, int argc, object self_731139, object r_73557) ;
|
|
static void __lambda_82(void *data, int argc, object self_731140, object r_73555) ;
|
|
static void __lambda_81(void *data, int argc, object self_731141, object r_73556) ;
|
|
static void __lambda_80(void *data, int argc, object self_731142, object r_73554) ;
|
|
static void __lambda_79(void *data, int argc, object self_731143, object r_73552) ;
|
|
static void __lambda_78(void *data, int argc, object self_731144, object r_73553) ;
|
|
static void __lambda_77(void *data, int argc, object self_731145, object r_73548) ;
|
|
static void __lambda_76(void *data, int argc, object self_731146, object r_73550) ;
|
|
static void __lambda_75(void *data, int argc, object self_731147, object r_73549) ;
|
|
static void __lambda_74(void *data, int argc, object self_731148, object k_73560) ;
|
|
static void __lambda_73(void *data, int argc, object self_731149, object r_73531) ;
|
|
static void __lambda_72(void *data, int argc, object self_731150, object r_73542) ;
|
|
static void __lambda_71(void *data, int argc, object self_731151, object r_73543) ;
|
|
static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) ;
|
|
static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) ;
|
|
static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) ;
|
|
static void __lambda_67(void *data, int argc, object self_731155, object r_73541) ;
|
|
static void __lambda_66(void *data, int argc, object self_731156, object r_73539) ;
|
|
static void __lambda_65(void *data, int argc, object self_731157, object r_73540) ;
|
|
static void __lambda_64(void *data, int argc, object self_731158, object r_73538) ;
|
|
static void __lambda_63(void *data, int argc, object self_731159, object r_73536) ;
|
|
static void __lambda_62(void *data, int argc, object self_731160, object r_73537) ;
|
|
static void __lambda_61(void *data, int argc, object self_731161, object r_73532) ;
|
|
static void __lambda_60(void *data, int argc, object self_731162, object r_73534) ;
|
|
static void __lambda_59(void *data, int argc, object self_731163, object r_73533) ;
|
|
static void __lambda_58(void *data, int argc, object self_731164, object k_73544) ;
|
|
static void __lambda_57(void *data, int argc, object self_731165, object r_73521) ;
|
|
static void __lambda_56(void *data, int argc, object self_731166, object r_73522) ;
|
|
static void __lambda_55(void *data, int argc, object self_731167, object k_73523) ;
|
|
static void __lambda_54(void *data, int argc, object self_731168, object k_73525) ;
|
|
static void __lambda_53(void *data, int argc, object self_731169, object r_73528) ;
|
|
static void __lambda_52(void *data, int argc, object self_731170, object r_73527) ;
|
|
static void __lambda_51(void *data, int argc, object self_731171, object r_73519) ;
|
|
static void __lambda_50(void *data, int argc, object self_731172, object r_73518) ;
|
|
static void __lambda_49(void *data, int argc, object self_731173, object r_73517) ;
|
|
static void __lambda_48(void *data, int argc, object self_731174, object r_73514) ;
|
|
static void __lambda_47(void *data, int argc, object self_731175, object r_73515) ;
|
|
static void __lambda_46(void *data, int argc, object self_731176, object r_73516) ;
|
|
static void __lambda_45(void *data, int argc, object self_731177, object r_73504) ;
|
|
static void __lambda_44(void *data, int argc, object self_731178, object last_73233) ;
|
|
static void __lambda_43(void *data, int argc, object self_731179, object r_73507) ;
|
|
static void __lambda_42(void *data, int argc, object self_731180, object r_73505) ;
|
|
static void __lambda_41(void *data, int argc, object self_731181, object k_73509) ;
|
|
static void __lambda_40(void *data, int argc, object self_731182, object r_73510) ;
|
|
static void __lambda_39(void *data, int argc, object self_731183, object r_73511) ;
|
|
static void __lambda_38(void *data, int argc, object self_731184, object r_73512) ;
|
|
static void __lambda_37(void *data, int argc, object self_731185, object k_73745) ;
|
|
static void __lambda_36(void *data, int argc, object self_731186, object r_73746) ;
|
|
static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) ;
|
|
static void __lambda_34(void *data, int argc, object self_731187, object r_73757) ;
|
|
static void __lambda_33(void *data, int argc, object self_731188, object r_73759) ;
|
|
static void __lambda_32(void *data, int argc, object self_731189, object r_73758) ;
|
|
static void __lambda_31(void *data, int argc, object self_731190, object r_73754) ;
|
|
static void __lambda_30(void *data, int argc, object self_731191, object r_73756) ;
|
|
static void __lambda_29(void *data, int argc, object self_731192, object r_73755) ;
|
|
static void __lambda_28(void *data, int argc, object self_731193, object r_73753) ;
|
|
static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) ;
|
|
static void __lambda_26(void *data, int argc, object self_731194, object r_73764) ;
|
|
static void __lambda_25(void *data, int argc, object self_731195, object r_73765) ;
|
|
static void __lambda_24(void *data, int argc, object self_731196, object r_73763) ;
|
|
static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) ;
|
|
static void __lambda_22(void *data, int argc, object self_731197, object r_73772) ;
|
|
static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) ;
|
|
static void __lambda_20(void *data, int argc, object self_731198, object r_73779) ;
|
|
static void __lambda_19(void *data, int argc, object self_731199, object r_73782) ;
|
|
static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) ;
|
|
static void __lambda_17(void *data, int argc, object self_731200, object r_73787) ;
|
|
static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) ;
|
|
static void __lambda_15(void *data, int argc, object self_731201, object r_73792) ;
|
|
static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) ;
|
|
static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) ;
|
|
static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) ;
|
|
static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) ;
|
|
static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) ;
|
|
static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) ;
|
|
static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) ;
|
|
static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) ;
|
|
static void __lambda_6(void *data, int argc, object self_731202, object r_73821) ;
|
|
static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) ;
|
|
static void __lambda_4(void *data, int argc, object self_731203, object r_73264) ;
|
|
static void __lambda_3(void *data, int argc, object self_731204, object r_73264) ;
|
|
static void __lambda_2(void *data, int argc, object self_731205, object r_73829) ;
|
|
static void __lambda_1(void *data, int argc, object self_731206, object r_73826) ;
|
|
static void __lambda_0(void *data, int argc, object self_731207, object r_73827) ;
|
|
|
|
static void __lambda_406(void *data, int argc, closure _,object k_73267) {
|
|
Cyc_st_add(data, "scheme/read.sld:lib-init:schemeread");
|
|
|
|
closureN_type c_733650;
|
|
c_733650.hdr.mark = gc_color_red;
|
|
c_733650.hdr.grayed = 0;
|
|
c_733650.tag = closureN_tag;
|
|
c_733650.fn = (function_type)__lambda_405;
|
|
c_733650.num_args = 1;
|
|
c_733650.num_elements = 1;
|
|
c_733650.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733650.elements[0] = k_73267;
|
|
|
|
return_closcall1(data,(closure)&c_733650, global_set(__glo_read_scheme_read, __glo_cyc_91read_scheme_read));;
|
|
}
|
|
|
|
static void __lambda_405(void *data, int argc, object self_73834, object r_73269) {
|
|
|
|
closureN_type c_733652;
|
|
c_733652.hdr.mark = gc_color_red;
|
|
c_733652.hdr.grayed = 0;
|
|
c_733652.tag = closureN_tag;
|
|
c_733652.fn = (function_type)__lambda_404;
|
|
c_733652.num_args = 1;
|
|
c_733652.num_elements = 1;
|
|
c_733652.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733652.elements[0] = ((closureN)self_73834)->elements[0];
|
|
|
|
return_closcall1(data,(closure)&c_733652, NULL);;
|
|
}
|
|
|
|
static void __lambda_404(void *data, int argc, object self_73835, object r_73270) {
|
|
return_closcall1(data, ((closureN)self_73835)->elements[0], global_set(__glo__85in_91port_91table_85_scheme_read, r_73270));;
|
|
}
|
|
|
|
static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) {
|
|
load_varargs(args_73117, args_73117_raw, argc - 1);
|
|
Cyc_st_add(data, "scheme/read.sld:read-all");
|
|
|
|
closureN_type c_733598;
|
|
c_733598.hdr.mark = gc_color_red;
|
|
c_733598.hdr.grayed = 0;
|
|
c_733598.tag = closureN_tag;
|
|
c_733598.fn = (function_type)__lambda_394;
|
|
c_733598.num_args = 0;
|
|
c_733598.num_elements = 1;
|
|
c_733598.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733598.elements[0] = args_73117;
|
|
|
|
|
|
closureN_type c_733607;
|
|
c_733607.hdr.mark = gc_color_red;
|
|
c_733607.hdr.grayed = 0;
|
|
c_733607.tag = closureN_tag;
|
|
c_733607.fn = (function_type)__lambda_402;
|
|
c_733607.num_args = 1;
|
|
c_733607.num_elements = 1;
|
|
c_733607.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733607.elements[0] = k_73273;
|
|
|
|
return_closcall1(data,(closure)&c_733598, &c_733607);;
|
|
}
|
|
|
|
static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) {
|
|
|
|
closureN_type c_733609;
|
|
c_733609.hdr.mark = gc_color_red;
|
|
c_733609.hdr.grayed = 0;
|
|
c_733609.tag = closureN_tag;
|
|
c_733609.fn = (function_type)__lambda_401;
|
|
c_733609.num_args = 1;
|
|
c_733609.num_elements = 2;
|
|
c_733609.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733609.elements[0] = fp_73119;
|
|
c_733609.elements[1] = ((closureN)self_73836)->elements[0];
|
|
|
|
return_closcall1(data,(closure)&c_733609, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) {
|
|
|
|
closureN_type c_733611;
|
|
c_733611.hdr.mark = gc_color_red;
|
|
c_733611.hdr.grayed = 0;
|
|
c_733611.tag = closureN_tag;
|
|
c_733611.fn = (function_type)__lambda_400;
|
|
c_733611.num_args = 1;
|
|
c_733611.num_elements = 2;
|
|
c_733611.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733611.elements[0] = ((closureN)self_73837)->elements[0];
|
|
c_733611.elements[1] = ((closureN)self_73837)->elements[1];
|
|
|
|
|
|
make_cell(c_733647,loop_73120);
|
|
return_closcall1(data,(closure)&c_733611, &c_733647);;
|
|
}
|
|
|
|
static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) {
|
|
|
|
closureN_type c_733613;
|
|
c_733613.hdr.mark = gc_color_red;
|
|
c_733613.hdr.grayed = 0;
|
|
c_733613.tag = closureN_tag;
|
|
c_733613.fn = (function_type)__lambda_397;
|
|
c_733613.num_args = 1;
|
|
c_733613.num_elements = 3;
|
|
c_733613.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733613.elements[0] = ((closureN)self_73838)->elements[0];
|
|
c_733613.elements[1] = ((closureN)self_73838)->elements[1];
|
|
c_733613.elements[2] = loop_73120;
|
|
|
|
|
|
closureN_type c_733627;
|
|
c_733627.hdr.mark = gc_color_red;
|
|
c_733627.hdr.grayed = 0;
|
|
c_733627.tag = closureN_tag;
|
|
c_733627.fn = (function_type)__lambda_399;
|
|
c_733627.num_args = 2;
|
|
c_733627.num_elements = 1;
|
|
c_733627.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733627.elements[0] = loop_73120;
|
|
|
|
return_closcall1(data,(closure)&c_733613, &c_733627);;
|
|
}
|
|
|
|
static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) {
|
|
|
|
closureN_type c_733629;
|
|
c_733629.hdr.mark = gc_color_red;
|
|
c_733629.hdr.grayed = 0;
|
|
c_733629.tag = closureN_tag;
|
|
c_733629.fn = (function_type)__lambda_398;
|
|
c_733629.num_args = 1;
|
|
c_733629.num_elements = 4;
|
|
c_733629.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733629.elements[0] = fp_73122;
|
|
c_733629.elements[1] = k_73278;
|
|
c_733629.elements[2] = ((closureN)self_73839)->elements[0];
|
|
c_733629.elements[3] = result_73121;
|
|
|
|
return_closcall2(data, __glo_cyc_91read_scheme_read, &c_733629, fp_73122);;
|
|
}
|
|
|
|
static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) {
|
|
if( (boolean_f != Cyc_is_eof_object(obj_73123)) ){
|
|
return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[3]);
|
|
} else {
|
|
|
|
make_pair(c_733643,obj_73123, ((closureN)self_73840)->elements[3]);
|
|
return_closcall3(data, cell_get(((closureN)self_73840)->elements[2]), ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[0], &c_733643);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_397(void *data, int argc, object self_73841, object r_73277) {
|
|
|
|
closureN_type c_733615;
|
|
c_733615.hdr.mark = gc_color_red;
|
|
c_733615.hdr.grayed = 0;
|
|
c_733615.tag = closureN_tag;
|
|
c_733615.fn = (function_type)__lambda_396;
|
|
c_733615.num_args = 1;
|
|
c_733615.num_elements = 3;
|
|
c_733615.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733615.elements[0] = ((closureN)self_73841)->elements[0];
|
|
c_733615.elements[1] = ((closureN)self_73841)->elements[1];
|
|
c_733615.elements[2] = ((closureN)self_73841)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_733615, Cyc_set_car(data, ((closureN)self_73841)->elements[2], r_73277));;
|
|
}
|
|
|
|
static void __lambda_396(void *data, int argc, object self_73842, object r_73275) {
|
|
|
|
closureN_type c_733617;
|
|
c_733617.hdr.mark = gc_color_red;
|
|
c_733617.hdr.grayed = 0;
|
|
c_733617.tag = closureN_tag;
|
|
c_733617.fn = (function_type)__lambda_395;
|
|
c_733617.num_args = 1;
|
|
c_733617.num_elements = 3;
|
|
c_733617.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733617.elements[0] = ((closureN)self_73842)->elements[0];
|
|
c_733617.elements[1] = ((closureN)self_73842)->elements[1];
|
|
c_733617.elements[2] = ((closureN)self_73842)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_733617, NULL);;
|
|
}
|
|
|
|
static void __lambda_395(void *data, int argc, object self_73843, object r_73276) {
|
|
return_closcall3(data, cell_get(((closureN)self_73843)->elements[2]), ((closureN)self_73843)->elements[1], ((closureN)self_73843)->elements[0], r_73276);;
|
|
}
|
|
|
|
static void __lambda_394(void *data, int argc, object self_73844, object k_73282) {
|
|
if( (boolean_f != Cyc_is_null(((closureN)self_73844)->elements[0])) ){
|
|
return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73282);
|
|
} else {
|
|
return_closcall1(data, k_73282, car(((closureN)self_73844)->elements[0]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) {
|
|
load_varargs(args_73124, args_73124_raw, argc - 1);
|
|
Cyc_st_add(data, "scheme/read.sld:cyc-read");
|
|
|
|
closureN_type c_733574;
|
|
c_733574.hdr.mark = gc_color_red;
|
|
c_733574.hdr.grayed = 0;
|
|
c_733574.tag = closureN_tag;
|
|
c_733574.fn = (function_type)__lambda_388;
|
|
c_733574.num_args = 0;
|
|
c_733574.num_elements = 1;
|
|
c_733574.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733574.elements[0] = args_73124;
|
|
|
|
|
|
closureN_type c_733583;
|
|
c_733583.hdr.mark = gc_color_red;
|
|
c_733583.hdr.grayed = 0;
|
|
c_733583.tag = closureN_tag;
|
|
c_733583.fn = (function_type)__lambda_392;
|
|
c_733583.num_args = 1;
|
|
c_733583.num_elements = 1;
|
|
c_733583.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733583.elements[0] = k_73286;
|
|
|
|
return_closcall1(data,(closure)&c_733574, &c_733583);;
|
|
}
|
|
|
|
static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) {
|
|
|
|
closureN_type c_733585;
|
|
c_733585.hdr.mark = gc_color_red;
|
|
c_733585.hdr.grayed = 0;
|
|
c_733585.tag = closureN_tag;
|
|
c_733585.fn = (function_type)__lambda_391;
|
|
c_733585.num_args = 1;
|
|
c_733585.num_elements = 2;
|
|
c_733585.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733585.elements[0] = fp_73125;
|
|
c_733585.elements[1] = ((closureN)self_73845)->elements[0];
|
|
|
|
return_closcall1(data,(closure)&c_733585, NULL);;
|
|
}
|
|
|
|
static void __lambda_391(void *data, int argc, object self_73846, object r_73288) {
|
|
|
|
closureN_type c_733587;
|
|
c_733587.hdr.mark = gc_color_red;
|
|
c_733587.hdr.grayed = 0;
|
|
c_733587.tag = closureN_tag;
|
|
c_733587.fn = (function_type)__lambda_390;
|
|
c_733587.num_args = 1;
|
|
c_733587.num_elements = 3;
|
|
c_733587.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733587.elements[0] = ((closureN)self_73846)->elements[0];
|
|
c_733587.elements[1] = ((closureN)self_73846)->elements[1];
|
|
c_733587.elements[2] = r_73288;
|
|
|
|
return_closcall1(data,(closure)&c_733587, NULL);;
|
|
}
|
|
|
|
static void __lambda_390(void *data, int argc, object self_73847, object r_73289) {
|
|
|
|
closureN_type c_733589;
|
|
c_733589.hdr.mark = gc_color_red;
|
|
c_733589.hdr.grayed = 0;
|
|
c_733589.tag = closureN_tag;
|
|
c_733589.fn = (function_type)__lambda_389;
|
|
c_733589.num_args = 1;
|
|
c_733589.num_elements = 4;
|
|
c_733589.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733589.elements[0] = ((closureN)self_73847)->elements[0];
|
|
c_733589.elements[1] = ((closureN)self_73847)->elements[1];
|
|
c_733589.elements[2] = ((closureN)self_73847)->elements[2];
|
|
c_733589.elements[3] = r_73289;
|
|
|
|
return_closcall2(data, __glo_reg_91port_scheme_read, &c_733589, ((closureN)self_73847)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_389(void *data, int argc, object self_73848, object r_73290) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73848)->elements[1], ((closureN)self_73848)->elements[0], ((closureN)self_73848)->elements[2], ((closureN)self_73848)->elements[3], boolean_f, boolean_f, obj_int2obj(0), r_73290);;
|
|
}
|
|
|
|
static void __lambda_388(void *data, int argc, object self_73849, object k_73291) {
|
|
if( (boolean_f != Cyc_is_null(((closureN)self_73849)->elements[0])) ){
|
|
return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73291);
|
|
} else {
|
|
return_closcall1(data, k_73291, car(((closureN)self_73849)->elements[0]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) {
|
|
Cyc_st_add(data, "scheme/read.sld:hex-digit?");
|
|
|
|
closureN_type c_733552;
|
|
c_733552.hdr.mark = gc_color_red;
|
|
c_733552.hdr.grayed = 0;
|
|
c_733552.tag = closureN_tag;
|
|
c_733552.fn = (function_type)__lambda_384;
|
|
c_733552.num_args = 0;
|
|
c_733552.num_elements = 1;
|
|
c_733552.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733552.elements[0] = c_73126;
|
|
|
|
|
|
closureN_type c_733561;
|
|
c_733561.hdr.mark = gc_color_red;
|
|
c_733561.hdr.grayed = 0;
|
|
c_733561.tag = closureN_tag;
|
|
c_733561.fn = (function_type)__lambda_386;
|
|
c_733561.num_args = 1;
|
|
c_733561.num_elements = 2;
|
|
c_733561.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733561.elements[0] = c_73126;
|
|
c_733561.elements[1] = k_73295;
|
|
|
|
return_closcall1(data,(closure)&c_733552, &c_733561);;
|
|
}
|
|
|
|
static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) {
|
|
if( (boolean_f != tmp_73127) ){
|
|
return_closcall1(data, ((closureN)self_73850)->elements[1], tmp_73127);
|
|
} else {
|
|
|
|
closureN_type c_733565;
|
|
c_733565.hdr.mark = gc_color_red;
|
|
c_733565.hdr.grayed = 0;
|
|
c_733565.tag = closureN_tag;
|
|
c_733565.fn = (function_type)__lambda_385;
|
|
c_733565.num_args = 1;
|
|
c_733565.num_elements = 2;
|
|
c_733565.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733565.elements[0] = ((closureN)self_73850)->elements[0];
|
|
c_733565.elements[1] = ((closureN)self_73850)->elements[1];
|
|
|
|
return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733565, ((closureN)self_73850)->elements[0], obj_char2obj(65));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_385(void *data, int argc, object self_73851, object r_73297) {
|
|
if( (boolean_f != r_73297) ){
|
|
return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73851)->elements[1], ((closureN)self_73851)->elements[0], obj_char2obj(70));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73851)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_384(void *data, int argc, object self_73852, object k_73298) {
|
|
|
|
closureN_type c_733554;
|
|
c_733554.hdr.mark = gc_color_red;
|
|
c_733554.hdr.grayed = 0;
|
|
c_733554.tag = closureN_tag;
|
|
c_733554.fn = (function_type)__lambda_383;
|
|
c_733554.num_args = 1;
|
|
c_733554.num_elements = 2;
|
|
c_733554.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733554.elements[0] = ((closureN)self_73852)->elements[0];
|
|
c_733554.elements[1] = k_73298;
|
|
|
|
return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733554, ((closureN)self_73852)->elements[0], obj_char2obj(97));;
|
|
}
|
|
|
|
static void __lambda_383(void *data, int argc, object self_73853, object r_73299) {
|
|
if( (boolean_f != r_73299) ){
|
|
return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73853)->elements[1], ((closureN)self_73853)->elements[0], obj_char2obj(102));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73853)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse-number-rec");
|
|
|
|
closureN_type c_733444;
|
|
c_733444.hdr.mark = gc_color_red;
|
|
c_733444.hdr.grayed = 0;
|
|
c_733444.tag = closureN_tag;
|
|
c_733444.fn = (function_type)__lambda_381;
|
|
c_733444.num_args = 1;
|
|
c_733444.num_elements = 5;
|
|
c_733444.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_733444.elements[0] = base_73131;
|
|
c_733444.elements[1] = fp_73130;
|
|
c_733444.elements[2] = k_73302;
|
|
c_733444.elements[3] = ptbl_73128;
|
|
c_733444.elements[4] = tok_73129;
|
|
|
|
return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733444, fp_73130, ptbl_73128);;
|
|
}
|
|
|
|
static void __lambda_381(void *data, int argc, object self_73854, object r_73303) {
|
|
|
|
closureN_type c_733446;
|
|
c_733446.hdr.mark = gc_color_red;
|
|
c_733446.hdr.grayed = 0;
|
|
c_733446.tag = closureN_tag;
|
|
c_733446.fn = (function_type)__lambda_379;
|
|
c_733446.num_args = 1;
|
|
c_733446.num_elements = 5;
|
|
c_733446.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_733446.elements[0] = ((closureN)self_73854)->elements[0];
|
|
c_733446.elements[1] = ((closureN)self_73854)->elements[2];
|
|
c_733446.elements[2] = ((closureN)self_73854)->elements[3];
|
|
c_733446.elements[3] = r_73303;
|
|
c_733446.elements[4] = ((closureN)self_73854)->elements[4];
|
|
|
|
|
|
closureN_type c_733541;
|
|
c_733541.hdr.mark = gc_color_red;
|
|
c_733541.hdr.grayed = 0;
|
|
c_733541.tag = closureN_tag;
|
|
c_733541.fn = (function_type)__lambda_380;
|
|
c_733541.num_args = 1;
|
|
c_733541.num_elements = 4;
|
|
c_733541.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733541.elements[0] = ((closureN)self_73854)->elements[0];
|
|
c_733541.elements[1] = ((closureN)self_73854)->elements[1];
|
|
c_733541.elements[2] = ((closureN)self_73854)->elements[3];
|
|
c_733541.elements[3] = ((closureN)self_73854)->elements[4];
|
|
|
|
return_closcall1(data,(closure)&c_733446, &c_733541);;
|
|
}
|
|
|
|
static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) {
|
|
|
|
make_pair(c_733547,c_73132, ((closureN)self_73855)->elements[3]);
|
|
return_closcall5(data, __glo_parse_91number_91rec_scheme_read, k_73322, ((closureN)self_73855)->elements[0], ((closureN)self_73855)->elements[1], &c_733547, ((closureN)self_73855)->elements[2]);;
|
|
}
|
|
|
|
static void __lambda_379(void *data, int argc, object self_73856, object r_73304) {
|
|
|
|
closureN_type c_733448;
|
|
c_733448.hdr.mark = gc_color_red;
|
|
c_733448.hdr.grayed = 0;
|
|
c_733448.tag = closureN_tag;
|
|
c_733448.fn = (function_type)__lambda_378;
|
|
c_733448.num_args = 2;
|
|
c_733448.num_elements = 4;
|
|
c_733448.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733448.elements[0] = ((closureN)self_73856)->elements[0];
|
|
c_733448.elements[1] = ((closureN)self_73856)->elements[1];
|
|
c_733448.elements[2] = ((closureN)self_73856)->elements[2];
|
|
c_733448.elements[3] = ((closureN)self_73856)->elements[4];
|
|
|
|
return_closcall2(data,(closure)&c_733448, ((closureN)self_73856)->elements[3], r_73304);;
|
|
}
|
|
|
|
static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) {
|
|
|
|
closureN_type c_733450;
|
|
c_733450.hdr.mark = gc_color_red;
|
|
c_733450.hdr.grayed = 0;
|
|
c_733450.tag = closureN_tag;
|
|
c_733450.fn = (function_type)__lambda_377;
|
|
c_733450.num_args = 1;
|
|
c_733450.num_elements = 6;
|
|
c_733450.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_733450.elements[0] = ((closureN)self_73857)->elements[0];
|
|
c_733450.elements[1] = c_73134;
|
|
c_733450.elements[2] = ((closureN)self_73857)->elements[1];
|
|
c_733450.elements[3] = next_73133;
|
|
c_733450.elements[4] = ((closureN)self_73857)->elements[2];
|
|
c_733450.elements[5] = ((closureN)self_73857)->elements[3];
|
|
|
|
return_closcall2(data, __glo_sign_127_scheme_read, &c_733450, c_73134);;
|
|
}
|
|
|
|
static void __lambda_377(void *data, int argc, object self_73858, object r_73305) {
|
|
if( (boolean_f != r_73305) ){
|
|
return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(46), ((closureN)self_73858)->elements[1])) ){
|
|
return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_733463;
|
|
c_733463.hdr.mark = gc_color_red;
|
|
c_733463.hdr.grayed = 0;
|
|
c_733463.tag = closureN_tag;
|
|
c_733463.fn = (function_type)__lambda_376;
|
|
c_733463.num_args = 1;
|
|
c_733463.num_elements = 6;
|
|
c_733463.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_733463.elements[0] = ((closureN)self_73858)->elements[0];
|
|
c_733463.elements[1] = ((closureN)self_73858)->elements[1];
|
|
c_733463.elements[2] = ((closureN)self_73858)->elements[2];
|
|
c_733463.elements[3] = ((closureN)self_73858)->elements[3];
|
|
c_733463.elements[4] = ((closureN)self_73858)->elements[4];
|
|
c_733463.elements[5] = ((closureN)self_73858)->elements[5];
|
|
|
|
return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733463, ((closureN)self_73858)->elements[1]);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_376(void *data, int argc, object self_73859, object r_73307) {
|
|
if( (boolean_f != r_73307) ){
|
|
|
|
closureN_type c_733465;
|
|
c_733465.hdr.mark = gc_color_red;
|
|
c_733465.hdr.grayed = 0;
|
|
c_733465.tag = closureN_tag;
|
|
c_733465.fn = (function_type)__lambda_370;
|
|
c_733465.num_args = 0;
|
|
c_733465.num_elements = 3;
|
|
c_733465.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733465.elements[0] = ((closureN)self_73859)->elements[0];
|
|
c_733465.elements[1] = ((closureN)self_73859)->elements[1];
|
|
c_733465.elements[2] = ((closureN)self_73859)->elements[4];
|
|
|
|
|
|
closureN_type c_733509;
|
|
c_733509.hdr.mark = gc_color_red;
|
|
c_733509.hdr.grayed = 0;
|
|
c_733509.tag = closureN_tag;
|
|
c_733509.fn = (function_type)__lambda_371;
|
|
c_733509.num_args = 1;
|
|
c_733509.num_elements = 3;
|
|
c_733509.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733509.elements[0] = ((closureN)self_73859)->elements[1];
|
|
c_733509.elements[1] = ((closureN)self_73859)->elements[2];
|
|
c_733509.elements[2] = ((closureN)self_73859)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_733465, &c_733509);
|
|
} else {
|
|
|
|
closureN_type c_733515;
|
|
c_733515.hdr.mark = gc_color_red;
|
|
c_733515.hdr.grayed = 0;
|
|
c_733515.tag = closureN_tag;
|
|
c_733515.fn = (function_type)__lambda_373;
|
|
c_733515.num_args = 0;
|
|
c_733515.num_elements = 2;
|
|
c_733515.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733515.elements[0] = ((closureN)self_73859)->elements[0];
|
|
c_733515.elements[1] = ((closureN)self_73859)->elements[1];
|
|
|
|
|
|
closureN_type c_733527;
|
|
c_733527.hdr.mark = gc_color_red;
|
|
c_733527.hdr.grayed = 0;
|
|
c_733527.tag = closureN_tag;
|
|
c_733527.fn = (function_type)__lambda_375;
|
|
c_733527.num_args = 1;
|
|
c_733527.num_elements = 5;
|
|
c_733527.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_733527.elements[0] = ((closureN)self_73859)->elements[1];
|
|
c_733527.elements[1] = ((closureN)self_73859)->elements[2];
|
|
c_733527.elements[2] = ((closureN)self_73859)->elements[3];
|
|
c_733527.elements[3] = ((closureN)self_73859)->elements[4];
|
|
c_733527.elements[4] = ((closureN)self_73859)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_733515, &c_733527);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_375(void *data, int argc, object self_73860, object r_73318) {
|
|
if( (boolean_f != r_73318) ){
|
|
return_closcall2(data, ((closureN)self_73860)->elements[2], ((closureN)self_73860)->elements[1], ((closureN)self_73860)->elements[0]);
|
|
} else {
|
|
|
|
closureN_type c_733533;
|
|
c_733533.hdr.mark = gc_color_red;
|
|
c_733533.hdr.grayed = 0;
|
|
c_733533.tag = closureN_tag;
|
|
c_733533.fn = (function_type)__lambda_374;
|
|
c_733533.num_args = 1;
|
|
c_733533.num_elements = 2;
|
|
c_733533.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733533.elements[0] = ((closureN)self_73860)->elements[1];
|
|
c_733533.elements[1] = ((closureN)self_73860)->elements[4];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_733533, ((closureN)self_73860)->elements[3], ((closureN)self_73860)->elements[0]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_374(void *data, int argc, object self_73861, object r_73319) {
|
|
return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73861)->elements[0], ((closureN)self_73861)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_373(void *data, int argc, object self_73862, object k_73320) {
|
|
|
|
closureN_type c_733517;
|
|
c_733517.hdr.mark = gc_color_red;
|
|
c_733517.hdr.grayed = 0;
|
|
c_733517.tag = closureN_tag;
|
|
c_733517.fn = (function_type)__lambda_372;
|
|
c_733517.num_args = 1;
|
|
c_733517.num_elements = 2;
|
|
c_733517.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733517.elements[0] = ((closureN)self_73862)->elements[1];
|
|
c_733517.elements[1] = k_73320;
|
|
|
|
|
|
object c_733525 = Cyc_num_eq(data,(closure)&c_733517,2,((closureN)self_73862)->elements[0], obj_int2obj(16));
|
|
return_closcall1(data,(closure)&c_733517, c_733525);;
|
|
}
|
|
|
|
static void __lambda_372(void *data, int argc, object self_73863, object r_73321) {
|
|
if( (boolean_f != r_73321) ){
|
|
return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73863)->elements[1], ((closureN)self_73863)->elements[0]);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73863)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_371(void *data, int argc, object self_73864, object r_73308) {
|
|
return_closcall2(data, ((closureN)self_73864)->elements[2], ((closureN)self_73864)->elements[1], ((closureN)self_73864)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_370(void *data, int argc, object self_73865, object k_73309) {
|
|
|
|
closureN_type c_733467;
|
|
c_733467.hdr.mark = gc_color_red;
|
|
c_733467.hdr.grayed = 0;
|
|
c_733467.tag = closureN_tag;
|
|
c_733467.fn = (function_type)__lambda_363;
|
|
c_733467.num_args = 0;
|
|
c_733467.num_elements = 2;
|
|
c_733467.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733467.elements[0] = ((closureN)self_73865)->elements[0];
|
|
c_733467.elements[1] = ((closureN)self_73865)->elements[1];
|
|
|
|
|
|
closureN_type c_733479;
|
|
c_733479.hdr.mark = gc_color_red;
|
|
c_733479.hdr.grayed = 0;
|
|
c_733479.tag = closureN_tag;
|
|
c_733479.fn = (function_type)__lambda_369;
|
|
c_733479.num_args = 1;
|
|
c_733479.num_elements = 4;
|
|
c_733479.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733479.elements[0] = ((closureN)self_73865)->elements[0];
|
|
c_733479.elements[1] = ((closureN)self_73865)->elements[1];
|
|
c_733479.elements[2] = k_73309;
|
|
c_733479.elements[3] = ((closureN)self_73865)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_733467, &c_733479);;
|
|
}
|
|
|
|
static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) {
|
|
|
|
closureN_type c_733481;
|
|
c_733481.hdr.mark = gc_color_red;
|
|
c_733481.hdr.grayed = 0;
|
|
c_733481.tag = closureN_tag;
|
|
c_733481.fn = (function_type)__lambda_365;
|
|
c_733481.num_args = 0;
|
|
c_733481.num_elements = 3;
|
|
c_733481.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733481.elements[0] = ((closureN)self_73866)->elements[0];
|
|
c_733481.elements[1] = ((closureN)self_73866)->elements[1];
|
|
c_733481.elements[2] = tmp_73135;
|
|
|
|
|
|
closureN_type c_733496;
|
|
c_733496.hdr.mark = gc_color_red;
|
|
c_733496.hdr.grayed = 0;
|
|
c_733496.tag = closureN_tag;
|
|
c_733496.fn = (function_type)__lambda_368;
|
|
c_733496.num_args = 1;
|
|
c_733496.num_elements = 2;
|
|
c_733496.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733496.elements[0] = ((closureN)self_73866)->elements[2];
|
|
c_733496.elements[1] = ((closureN)self_73866)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_733481, &c_733496);;
|
|
}
|
|
|
|
static void __lambda_368(void *data, int argc, object self_73867, object r_73310) {
|
|
if( (boolean_f != r_73310) ){
|
|
|
|
closureN_type c_733498;
|
|
c_733498.hdr.mark = gc_color_red;
|
|
c_733498.hdr.grayed = 0;
|
|
c_733498.tag = closureN_tag;
|
|
c_733498.fn = (function_type)__lambda_367;
|
|
c_733498.num_args = 1;
|
|
c_733498.num_elements = 2;
|
|
c_733498.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733498.elements[0] = ((closureN)self_73867)->elements[0];
|
|
c_733498.elements[1] = ((closureN)self_73867)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733498, ((closureN)self_73867)->elements[1]);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73867)->elements[0], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_367(void *data, int argc, object self_73868, object r_73311) {
|
|
|
|
closureN_type c_733500;
|
|
c_733500.hdr.mark = gc_color_red;
|
|
c_733500.hdr.grayed = 0;
|
|
c_733500.tag = closureN_tag;
|
|
c_733500.fn = (function_type)__lambda_366;
|
|
c_733500.num_args = 1;
|
|
c_733500.num_elements = 2;
|
|
c_733500.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733500.elements[0] = ((closureN)self_73868)->elements[0];
|
|
c_733500.elements[1] = r_73311;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733500, ((closureN)self_73868)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_366(void *data, int argc, object self_73869, object r_73312) {
|
|
|
|
make_string(c_733503, "Illegal digit");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73869)->elements[0], &c_733503, ((closureN)self_73869)->elements[1], r_73312);;
|
|
}
|
|
|
|
static void __lambda_365(void *data, int argc, object self_73870, object k_73314) {
|
|
if( (boolean_f != ((closureN)self_73870)->elements[2]) ){
|
|
return_closcall1(data, k_73314, ((closureN)self_73870)->elements[2]);
|
|
} else {
|
|
|
|
closureN_type c_733486;
|
|
c_733486.hdr.mark = gc_color_red;
|
|
c_733486.hdr.grayed = 0;
|
|
c_733486.tag = closureN_tag;
|
|
c_733486.fn = (function_type)__lambda_364;
|
|
c_733486.num_args = 1;
|
|
c_733486.num_elements = 2;
|
|
c_733486.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733486.elements[0] = ((closureN)self_73870)->elements[1];
|
|
c_733486.elements[1] = k_73314;
|
|
|
|
|
|
object c_733494 = Cyc_num_eq(data,(closure)&c_733486,2,((closureN)self_73870)->elements[0], obj_int2obj(8));
|
|
return_closcall1(data,(closure)&c_733486, c_733494);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_364(void *data, int argc, object self_73871, object r_73315) {
|
|
if( (boolean_f != r_73315) ){
|
|
return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73871)->elements[1], ((closureN)self_73871)->elements[0], obj_char2obj(55));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73871)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_363(void *data, int argc, object self_73872, object k_73316) {
|
|
|
|
closureN_type c_733469;
|
|
c_733469.hdr.mark = gc_color_red;
|
|
c_733469.hdr.grayed = 0;
|
|
c_733469.tag = closureN_tag;
|
|
c_733469.fn = (function_type)__lambda_362;
|
|
c_733469.num_args = 1;
|
|
c_733469.num_elements = 2;
|
|
c_733469.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733469.elements[0] = ((closureN)self_73872)->elements[1];
|
|
c_733469.elements[1] = k_73316;
|
|
|
|
|
|
object c_733477 = Cyc_num_eq(data,(closure)&c_733469,2,((closureN)self_73872)->elements[0], obj_int2obj(2));
|
|
return_closcall1(data,(closure)&c_733469, c_733477);;
|
|
}
|
|
|
|
static void __lambda_362(void *data, int argc, object self_73873, object r_73317) {
|
|
if( (boolean_f != r_73317) ){
|
|
return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73873)->elements[1], ((closureN)self_73873)->elements[0], obj_char2obj(49));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73873)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse-number");
|
|
|
|
closureN_type c_733371;
|
|
c_733371.hdr.mark = gc_color_red;
|
|
c_733371.hdr.grayed = 0;
|
|
c_733371.tag = closureN_tag;
|
|
c_733371.fn = (function_type)__lambda_360;
|
|
c_733371.num_args = 1;
|
|
c_733371.num_elements = 8;
|
|
c_733371.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_733371.elements[0] = all_127_73140;
|
|
c_733371.elements[1] = base_73137;
|
|
c_733371.elements[2] = fp_73142;
|
|
c_733371.elements[3] = k_73326;
|
|
c_733371.elements[4] = parens_73139;
|
|
c_733371.elements[5] = ptbl_73138;
|
|
c_733371.elements[6] = tok_91_125num_73136;
|
|
c_733371.elements[7] = toks_73141;
|
|
|
|
return_closcall1(data,(closure)&c_733371, NULL);;
|
|
}
|
|
|
|
static void __lambda_360(void *data, int argc, object self_73874, object r_73341) {
|
|
|
|
closureN_type c_733373;
|
|
c_733373.hdr.mark = gc_color_red;
|
|
c_733373.hdr.grayed = 0;
|
|
c_733373.tag = closureN_tag;
|
|
c_733373.fn = (function_type)__lambda_359;
|
|
c_733373.num_args = 1;
|
|
c_733373.num_elements = 8;
|
|
c_733373.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_733373.elements[0] = ((closureN)self_73874)->elements[0];
|
|
c_733373.elements[1] = ((closureN)self_73874)->elements[1];
|
|
c_733373.elements[2] = ((closureN)self_73874)->elements[2];
|
|
c_733373.elements[3] = ((closureN)self_73874)->elements[3];
|
|
c_733373.elements[4] = ((closureN)self_73874)->elements[4];
|
|
c_733373.elements[5] = ((closureN)self_73874)->elements[5];
|
|
c_733373.elements[6] = ((closureN)self_73874)->elements[6];
|
|
c_733373.elements[7] = ((closureN)self_73874)->elements[7];
|
|
|
|
return_closcall5(data, __glo_parse_91number_91rec_scheme_read, &c_733373, ((closureN)self_73874)->elements[1], ((closureN)self_73874)->elements[2], r_73341, ((closureN)self_73874)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_359(void *data, int argc, object self_73875, object num_73143) {
|
|
|
|
closureN_type c_733375;
|
|
c_733375.hdr.mark = gc_color_red;
|
|
c_733375.hdr.grayed = 0;
|
|
c_733375.tag = closureN_tag;
|
|
c_733375.fn = (function_type)__lambda_353;
|
|
c_733375.num_args = 0;
|
|
c_733375.num_elements = 2;
|
|
c_733375.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733375.elements[0] = ((closureN)self_73875)->elements[1];
|
|
c_733375.elements[1] = num_73143;
|
|
|
|
|
|
closureN_type c_733408;
|
|
c_733408.hdr.mark = gc_color_red;
|
|
c_733408.hdr.grayed = 0;
|
|
c_733408.tag = closureN_tag;
|
|
c_733408.fn = (function_type)__lambda_358;
|
|
c_733408.num_args = 1;
|
|
c_733408.num_elements = 8;
|
|
c_733408.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_733408.elements[0] = ((closureN)self_73875)->elements[0];
|
|
c_733408.elements[1] = ((closureN)self_73875)->elements[2];
|
|
c_733408.elements[2] = ((closureN)self_73875)->elements[3];
|
|
c_733408.elements[3] = num_73143;
|
|
c_733408.elements[4] = ((closureN)self_73875)->elements[4];
|
|
c_733408.elements[5] = ((closureN)self_73875)->elements[5];
|
|
c_733408.elements[6] = ((closureN)self_73875)->elements[6];
|
|
c_733408.elements[7] = ((closureN)self_73875)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_733375, &c_733408);;
|
|
}
|
|
|
|
static void __lambda_358(void *data, int argc, object self_73876, object r_73328) {
|
|
if( (boolean_f != r_73328) ){
|
|
|
|
closureN_type c_733411;
|
|
c_733411.hdr.mark = gc_color_red;
|
|
c_733411.hdr.grayed = 0;
|
|
c_733411.tag = closureN_tag;
|
|
c_733411.fn = (function_type)__lambda_355;
|
|
c_733411.num_args = 1;
|
|
c_733411.num_elements = 6;
|
|
c_733411.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_733411.elements[0] = ((closureN)self_73876)->elements[0];
|
|
c_733411.elements[1] = ((closureN)self_73876)->elements[1];
|
|
c_733411.elements[2] = ((closureN)self_73876)->elements[2];
|
|
c_733411.elements[3] = ((closureN)self_73876)->elements[4];
|
|
c_733411.elements[4] = ((closureN)self_73876)->elements[5];
|
|
c_733411.elements[5] = ((closureN)self_73876)->elements[7];
|
|
|
|
return_closcall2(data, ((closureN)self_73876)->elements[6], &c_733411, ((closureN)self_73876)->elements[3]);
|
|
} else {
|
|
|
|
closureN_type c_733430;
|
|
c_733430.hdr.mark = gc_color_red;
|
|
c_733430.hdr.grayed = 0;
|
|
c_733430.tag = closureN_tag;
|
|
c_733430.fn = (function_type)__lambda_357;
|
|
c_733430.num_args = 1;
|
|
c_733430.num_elements = 2;
|
|
c_733430.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733430.elements[0] = ((closureN)self_73876)->elements[2];
|
|
c_733430.elements[1] = ((closureN)self_73876)->elements[5];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733430, ((closureN)self_73876)->elements[5]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_357(void *data, int argc, object self_73877, object r_73332) {
|
|
|
|
closureN_type c_733432;
|
|
c_733432.hdr.mark = gc_color_red;
|
|
c_733432.hdr.grayed = 0;
|
|
c_733432.tag = closureN_tag;
|
|
c_733432.fn = (function_type)__lambda_356;
|
|
c_733432.num_args = 1;
|
|
c_733432.num_elements = 2;
|
|
c_733432.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733432.elements[0] = ((closureN)self_73877)->elements[0];
|
|
c_733432.elements[1] = r_73332;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733432, ((closureN)self_73877)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_356(void *data, int argc, object self_73878, object r_73333) {
|
|
|
|
make_string(c_733435, "Illegal number syntax");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73878)->elements[0], &c_733435, ((closureN)self_73878)->elements[1], r_73333);;
|
|
}
|
|
|
|
static void __lambda_355(void *data, int argc, object self_73879, object result_73144) {
|
|
if( (boolean_f != ((closureN)self_73879)->elements[0]) ){
|
|
|
|
closureN_type c_733414;
|
|
c_733414.hdr.mark = gc_color_red;
|
|
c_733414.hdr.grayed = 0;
|
|
c_733414.tag = closureN_tag;
|
|
c_733414.fn = (function_type)__lambda_354;
|
|
c_733414.num_args = 1;
|
|
c_733414.num_elements = 7;
|
|
c_733414.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_733414.elements[0] = ((closureN)self_73879)->elements[0];
|
|
c_733414.elements[1] = ((closureN)self_73879)->elements[1];
|
|
c_733414.elements[2] = ((closureN)self_73879)->elements[2];
|
|
c_733414.elements[3] = ((closureN)self_73879)->elements[3];
|
|
c_733414.elements[4] = ((closureN)self_73879)->elements[4];
|
|
c_733414.elements[5] = result_73144;
|
|
c_733414.elements[6] = ((closureN)self_73879)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_733414, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73879)->elements[2], result_73144);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_354(void *data, int argc, object self_73880, object r_73330) {
|
|
|
|
make_pair(c_733420,((closureN)self_73880)->elements[5], ((closureN)self_73880)->elements[6]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73880)->elements[2], ((closureN)self_73880)->elements[1], r_73330, &c_733420, ((closureN)self_73880)->elements[0], boolean_f, ((closureN)self_73880)->elements[3], ((closureN)self_73880)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_353(void *data, int argc, object self_73881, object k_73334) {
|
|
if( (boolean_f != Cyc_is_null(((closureN)self_73881)->elements[1])) ){
|
|
return_closcall1(data, k_73334, boolean_f);
|
|
} else {
|
|
|
|
closureN_type c_733381;
|
|
c_733381.hdr.mark = gc_color_red;
|
|
c_733381.hdr.grayed = 0;
|
|
c_733381.tag = closureN_tag;
|
|
c_733381.fn = (function_type)__lambda_352;
|
|
c_733381.num_args = 1;
|
|
c_733381.num_elements = 3;
|
|
c_733381.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733381.elements[0] = ((closureN)self_73881)->elements[0];
|
|
c_733381.elements[1] = k_73334;
|
|
c_733381.elements[2] = ((closureN)self_73881)->elements[1];
|
|
|
|
return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733381, ((closureN)self_73881)->elements[1]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) {
|
|
if( (boolean_f != tmp_73145) ){
|
|
return_closcall1(data, ((closureN)self_73882)->elements[1], tmp_73145);
|
|
} else {
|
|
|
|
closureN_type c_733385;
|
|
c_733385.hdr.mark = gc_color_red;
|
|
c_733385.hdr.grayed = 0;
|
|
c_733385.tag = closureN_tag;
|
|
c_733385.fn = (function_type)__lambda_351;
|
|
c_733385.num_args = 1;
|
|
c_733385.num_elements = 3;
|
|
c_733385.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733385.elements[0] = ((closureN)self_73882)->elements[0];
|
|
c_733385.elements[1] = ((closureN)self_73882)->elements[1];
|
|
c_733385.elements[2] = ((closureN)self_73882)->elements[2];
|
|
|
|
|
|
object c_733403 = Cyc_num_gt(data,(closure)&c_733385,2,Cyc_length(data, ((closureN)self_73882)->elements[2]), obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_733385, c_733403);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_351(void *data, int argc, object self_73883, object r_73337) {
|
|
if( (boolean_f != r_73337) ){
|
|
|
|
closureN_type c_733387;
|
|
c_733387.hdr.mark = gc_color_red;
|
|
c_733387.hdr.grayed = 0;
|
|
c_733387.tag = closureN_tag;
|
|
c_733387.fn = (function_type)__lambda_350;
|
|
c_733387.num_args = 1;
|
|
c_733387.num_elements = 2;
|
|
c_733387.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733387.elements[0] = ((closureN)self_73883)->elements[1];
|
|
c_733387.elements[1] = ((closureN)self_73883)->elements[2];
|
|
|
|
|
|
object c_733397 = Cyc_num_eq(data,(closure)&c_733387,2,((closureN)self_73883)->elements[0], obj_int2obj(16));
|
|
return_closcall1(data,(closure)&c_733387, c_733397);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73883)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_350(void *data, int argc, object self_73884, object r_73338) {
|
|
if( (boolean_f != r_73338) ){
|
|
return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73884)->elements[0], car(((closureN)self_73884)->elements[1]));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73884)->elements[0], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse-li-rec");
|
|
|
|
closureN_type c_733319;
|
|
c_733319.hdr.mark = gc_color_red;
|
|
c_733319.hdr.grayed = 0;
|
|
c_733319.tag = closureN_tag;
|
|
c_733319.fn = (function_type)__lambda_348;
|
|
c_733319.num_args = 1;
|
|
c_733319.num_elements = 4;
|
|
c_733319.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733319.elements[0] = fp_73148;
|
|
c_733319.elements[1] = k_73344;
|
|
c_733319.elements[2] = ptbl_73146;
|
|
c_733319.elements[3] = tok_73147;
|
|
|
|
return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733319, fp_73148, ptbl_73146);;
|
|
}
|
|
|
|
static void __lambda_348(void *data, int argc, object self_73885, object r_73345) {
|
|
|
|
closureN_type c_733321;
|
|
c_733321.hdr.mark = gc_color_red;
|
|
c_733321.hdr.grayed = 0;
|
|
c_733321.tag = closureN_tag;
|
|
c_733321.fn = (function_type)__lambda_346;
|
|
c_733321.num_args = 1;
|
|
c_733321.num_elements = 4;
|
|
c_733321.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733321.elements[0] = ((closureN)self_73885)->elements[1];
|
|
c_733321.elements[1] = ((closureN)self_73885)->elements[2];
|
|
c_733321.elements[2] = r_73345;
|
|
c_733321.elements[3] = ((closureN)self_73885)->elements[3];
|
|
|
|
|
|
closureN_type c_733361;
|
|
c_733361.hdr.mark = gc_color_red;
|
|
c_733361.hdr.grayed = 0;
|
|
c_733361.tag = closureN_tag;
|
|
c_733361.fn = (function_type)__lambda_347;
|
|
c_733361.num_args = 1;
|
|
c_733361.num_elements = 3;
|
|
c_733361.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733361.elements[0] = ((closureN)self_73885)->elements[0];
|
|
c_733361.elements[1] = ((closureN)self_73885)->elements[2];
|
|
c_733361.elements[2] = ((closureN)self_73885)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_733321, &c_733361);;
|
|
}
|
|
|
|
static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) {
|
|
|
|
make_pair(c_733366,c_73149, ((closureN)self_73886)->elements[2]);
|
|
return_closcall4(data, __glo_parse_91li_91rec_scheme_read, k_73355, ((closureN)self_73886)->elements[0], &c_733366, ((closureN)self_73886)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_346(void *data, int argc, object self_73887, object r_73346) {
|
|
|
|
closureN_type c_733323;
|
|
c_733323.hdr.mark = gc_color_red;
|
|
c_733323.hdr.grayed = 0;
|
|
c_733323.tag = closureN_tag;
|
|
c_733323.fn = (function_type)__lambda_345;
|
|
c_733323.num_args = 2;
|
|
c_733323.num_elements = 3;
|
|
c_733323.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733323.elements[0] = ((closureN)self_73887)->elements[0];
|
|
c_733323.elements[1] = ((closureN)self_73887)->elements[1];
|
|
c_733323.elements[2] = ((closureN)self_73887)->elements[3];
|
|
|
|
return_closcall2(data,(closure)&c_733323, ((closureN)self_73887)->elements[2], r_73346);;
|
|
}
|
|
|
|
static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73151)) ){
|
|
|
|
closureN_type c_733327;
|
|
c_733327.hdr.mark = gc_color_red;
|
|
c_733327.hdr.grayed = 0;
|
|
c_733327.tag = closureN_tag;
|
|
c_733327.fn = (function_type)__lambda_341;
|
|
c_733327.num_args = 0;
|
|
c_733327.num_elements = 1;
|
|
c_733327.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733327.elements[0] = ((closureN)self_73888)->elements[2];
|
|
|
|
|
|
closureN_type c_733341;
|
|
c_733341.hdr.mark = gc_color_red;
|
|
c_733341.hdr.grayed = 0;
|
|
c_733341.tag = closureN_tag;
|
|
c_733341.fn = (function_type)__lambda_342;
|
|
c_733341.num_args = 1;
|
|
c_733341.num_elements = 1;
|
|
c_733341.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733341.elements[0] = ((closureN)self_73888)->elements[0];
|
|
|
|
return_closcall1(data,(closure)&c_733327, &c_733341);
|
|
} else {
|
|
if( (boolean_f != Cyc_is_eof_object(c_73151)) ){
|
|
|
|
closureN_type c_733349;
|
|
c_733349.hdr.mark = gc_color_red;
|
|
c_733349.hdr.grayed = 0;
|
|
c_733349.tag = closureN_tag;
|
|
c_733349.fn = (function_type)__lambda_344;
|
|
c_733349.num_args = 1;
|
|
c_733349.num_elements = 2;
|
|
c_733349.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733349.elements[0] = ((closureN)self_73888)->elements[0];
|
|
c_733349.elements[1] = ((closureN)self_73888)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733349, ((closureN)self_73888)->elements[1]);
|
|
} else {
|
|
return_closcall2(data, next_73150, ((closureN)self_73888)->elements[0], c_73151);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_344(void *data, int argc, object self_73889, object r_73353) {
|
|
|
|
closureN_type c_733351;
|
|
c_733351.hdr.mark = gc_color_red;
|
|
c_733351.hdr.grayed = 0;
|
|
c_733351.tag = closureN_tag;
|
|
c_733351.fn = (function_type)__lambda_343;
|
|
c_733351.num_args = 1;
|
|
c_733351.num_elements = 2;
|
|
c_733351.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733351.elements[0] = ((closureN)self_73889)->elements[0];
|
|
c_733351.elements[1] = r_73353;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733351, ((closureN)self_73889)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_343(void *data, int argc, object self_73890, object r_73354) {
|
|
|
|
make_string(c_733354, "EOF encountered parsing literal identifier");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73890)->elements[0], &c_733354, ((closureN)self_73890)->elements[1], r_73354);;
|
|
}
|
|
|
|
static void __lambda_342(void *data, int argc, object self_73891, object str_73152) {
|
|
return_closcall1(data, ((closureN)self_73891)->elements[0], Cyc_string2symbol(data, str_73152));;
|
|
}
|
|
|
|
static void __lambda_341(void *data, int argc, object self_73892, object k_73349) {
|
|
if( (boolean_f != Cyc_is_null(((closureN)self_73892)->elements[0])) ){
|
|
|
|
make_string(c_733332, "||");
|
|
return_closcall1(data, k_73349, &c_733332);
|
|
} else {
|
|
|
|
closureN_type c_733334;
|
|
c_733334.hdr.mark = gc_color_red;
|
|
c_733334.hdr.grayed = 0;
|
|
c_733334.tag = closureN_tag;
|
|
c_733334.fn = (function_type)__lambda_340;
|
|
c_733334.num_args = 1;
|
|
c_733334.num_elements = 1;
|
|
c_733334.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733334.elements[0] = k_73349;
|
|
|
|
return_closcall2(data, __glo_reverse_scheme_base, &c_733334, ((closureN)self_73892)->elements[0]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_340(void *data, int argc, object self_73893, object r_73351) {
|
|
|
|
object c_733339 = Cyc_list2string(data, ((closureN)self_73893)->elements[0],r_73351);
|
|
return_closcall1(data, ((closureN)self_73893)->elements[0], c_733339);;
|
|
}
|
|
|
|
static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse-literal-identifier");
|
|
|
|
closureN_type c_733296;
|
|
c_733296.hdr.mark = gc_color_red;
|
|
c_733296.hdr.grayed = 0;
|
|
c_733296.tag = closureN_tag;
|
|
c_733296.fn = (function_type)__lambda_338;
|
|
c_733296.num_args = 1;
|
|
c_733296.num_elements = 6;
|
|
c_733296.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_733296.elements[0] = all_127_73155;
|
|
c_733296.elements[1] = fp_73157;
|
|
c_733296.elements[2] = k_73359;
|
|
c_733296.elements[3] = parens_73154;
|
|
c_733296.elements[4] = ptbl_73153;
|
|
c_733296.elements[5] = toks_73156;
|
|
|
|
return_closcall1(data,(closure)&c_733296, NULL);;
|
|
}
|
|
|
|
static void __lambda_338(void *data, int argc, object self_73894, object r_73363) {
|
|
|
|
closureN_type c_733298;
|
|
c_733298.hdr.mark = gc_color_red;
|
|
c_733298.hdr.grayed = 0;
|
|
c_733298.tag = closureN_tag;
|
|
c_733298.fn = (function_type)__lambda_337;
|
|
c_733298.num_args = 1;
|
|
c_733298.num_elements = 6;
|
|
c_733298.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_733298.elements[0] = ((closureN)self_73894)->elements[0];
|
|
c_733298.elements[1] = ((closureN)self_73894)->elements[1];
|
|
c_733298.elements[2] = ((closureN)self_73894)->elements[2];
|
|
c_733298.elements[3] = ((closureN)self_73894)->elements[3];
|
|
c_733298.elements[4] = ((closureN)self_73894)->elements[4];
|
|
c_733298.elements[5] = ((closureN)self_73894)->elements[5];
|
|
|
|
return_closcall4(data, __glo_parse_91li_91rec_scheme_read, &c_733298, ((closureN)self_73894)->elements[1], r_73363, ((closureN)self_73894)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) {
|
|
if( (boolean_f != ((closureN)self_73895)->elements[0]) ){
|
|
|
|
closureN_type c_733301;
|
|
c_733301.hdr.mark = gc_color_red;
|
|
c_733301.hdr.grayed = 0;
|
|
c_733301.tag = closureN_tag;
|
|
c_733301.fn = (function_type)__lambda_336;
|
|
c_733301.num_args = 1;
|
|
c_733301.num_elements = 7;
|
|
c_733301.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_733301.elements[0] = ((closureN)self_73895)->elements[0];
|
|
c_733301.elements[1] = ((closureN)self_73895)->elements[1];
|
|
c_733301.elements[2] = ((closureN)self_73895)->elements[2];
|
|
c_733301.elements[3] = ((closureN)self_73895)->elements[3];
|
|
c_733301.elements[4] = ((closureN)self_73895)->elements[4];
|
|
c_733301.elements[5] = sym_73158;
|
|
c_733301.elements[6] = ((closureN)self_73895)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_733301, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73895)->elements[2], sym_73158);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_336(void *data, int argc, object self_73896, object r_73361) {
|
|
|
|
make_pair(c_733307,((closureN)self_73896)->elements[5], ((closureN)self_73896)->elements[6]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73896)->elements[2], ((closureN)self_73896)->elements[1], r_73361, &c_733307, ((closureN)self_73896)->elements[0], boolean_f, ((closureN)self_73896)->elements[3], ((closureN)self_73896)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) {
|
|
Cyc_st_add(data, "scheme/read.sld:read-block-terminator");
|
|
|
|
closureN_type c_733279;
|
|
c_733279.hdr.mark = gc_color_red;
|
|
c_733279.hdr.grayed = 0;
|
|
c_733279.tag = closureN_tag;
|
|
c_733279.fn = (function_type)__lambda_334;
|
|
c_733279.num_args = 1;
|
|
c_733279.num_elements = 3;
|
|
c_733279.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733279.elements[0] = fp_73160;
|
|
c_733279.elements[1] = k_73366;
|
|
c_733279.elements[2] = ptbl_73159;
|
|
|
|
return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733279, fp_73160, ptbl_73159);;
|
|
}
|
|
|
|
static void __lambda_334(void *data, int argc, object self_73897, object c_73161) {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(35), c_73161)) ){
|
|
return_closcall1(data, ((closureN)self_73897)->elements[1], boolean_t);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73161)) ){
|
|
return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]);
|
|
} else {
|
|
return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) {
|
|
Cyc_st_add(data, "scheme/read.sld:read-block-comment");
|
|
|
|
closureN_type c_733266;
|
|
c_733266.hdr.mark = gc_color_red;
|
|
c_733266.hdr.grayed = 0;
|
|
c_733266.tag = closureN_tag;
|
|
c_733266.fn = (function_type)__lambda_332;
|
|
c_733266.num_args = 1;
|
|
c_733266.num_elements = 3;
|
|
c_733266.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733266.elements[0] = fp_73163;
|
|
c_733266.elements[1] = k_73372;
|
|
c_733266.elements[2] = ptbl_73162;
|
|
|
|
return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733266, fp_73163, ptbl_73162);;
|
|
}
|
|
|
|
static void __lambda_332(void *data, int argc, object self_73898, object c_73164) {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73164)) ){
|
|
return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]);
|
|
} else {
|
|
return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) {
|
|
Cyc_st_add(data, "scheme/read.sld:get-next-char");
|
|
|
|
closureN_type c_733254;
|
|
c_733254.hdr.mark = gc_color_red;
|
|
c_733254.hdr.grayed = 0;
|
|
c_733254.tag = closureN_tag;
|
|
c_733254.fn = (function_type)__lambda_330;
|
|
c_733254.num_args = 1;
|
|
c_733254.num_elements = 3;
|
|
c_733254.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733254.elements[0] = fp_73166;
|
|
c_733254.elements[1] = k_73377;
|
|
c_733254.elements[2] = ptbl_73165;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_733254, ptbl_73165);;
|
|
}
|
|
|
|
static void __lambda_330(void *data, int argc, object self_73899, object r_73378) {
|
|
if( (boolean_f != r_73378) ){
|
|
return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[2]);
|
|
} else {
|
|
|
|
object c_733262 = Cyc_io_read_char(data, ((closureN)self_73899)->elements[1],((closureN)self_73899)->elements[0]);
|
|
return_closcall1(data, ((closureN)self_73899)->elements[1], c_733262);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse-atom");
|
|
|
|
closureN_type c_733230;
|
|
c_733230.hdr.mark = gc_color_red;
|
|
c_733230.hdr.grayed = 0;
|
|
c_733230.tag = closureN_tag;
|
|
c_733230.fn = (function_type)__lambda_328;
|
|
c_733230.num_args = 1;
|
|
c_733230.num_elements = 2;
|
|
c_733230.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733230.elements[0] = a_73167;
|
|
c_733230.elements[1] = k_73381;
|
|
|
|
return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733230, a_73167);;
|
|
}
|
|
|
|
static void __lambda_328(void *data, int argc, object self_73900, object r_73382) {
|
|
if( (boolean_f != r_73382) ){
|
|
|
|
closureN_type c_733232;
|
|
c_733232.hdr.mark = gc_color_red;
|
|
c_733232.hdr.grayed = 0;
|
|
c_733232.tag = closureN_tag;
|
|
c_733232.fn = (function_type)__lambda_326;
|
|
c_733232.num_args = 1;
|
|
c_733232.num_elements = 1;
|
|
c_733232.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733232.elements[0] = ((closureN)self_73900)->elements[1];
|
|
|
|
|
|
object c_733240 = Cyc_list2string(data,(closure)&c_733232,((closureN)self_73900)->elements[0]);
|
|
return_closcall1(data,(closure)&c_733232, c_733240);
|
|
} else {
|
|
|
|
closureN_type c_733243;
|
|
c_733243.hdr.mark = gc_color_red;
|
|
c_733243.hdr.grayed = 0;
|
|
c_733243.tag = closureN_tag;
|
|
c_733243.fn = (function_type)__lambda_327;
|
|
c_733243.num_args = 1;
|
|
c_733243.num_elements = 1;
|
|
c_733243.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733243.elements[0] = ((closureN)self_73900)->elements[1];
|
|
|
|
|
|
object c_733250 = Cyc_list2string(data,(closure)&c_733243,((closureN)self_73900)->elements[0]);
|
|
return_closcall1(data,(closure)&c_733243, c_733250);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_327(void *data, int argc, object self_73901, object r_73384) {
|
|
return_closcall1(data, ((closureN)self_73901)->elements[0], Cyc_string2symbol(data, r_73384));;
|
|
}
|
|
|
|
static void __lambda_326(void *data, int argc, object self_73902, object r_73383) {
|
|
|
|
object c_733237 = Cyc_string2number2_(data, ((closureN)self_73902)->elements[0],1,r_73383);
|
|
return_closcall1(data, ((closureN)self_73902)->elements[0], c_733237);;
|
|
}
|
|
|
|
static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) {
|
|
Cyc_st_add(data, "scheme/read.sld:token-numeric?");
|
|
|
|
closureN_type c_733162;
|
|
c_733162.hdr.mark = gc_color_red;
|
|
c_733162.hdr.grayed = 0;
|
|
c_733162.tag = closureN_tag;
|
|
c_733162.fn = (function_type)__lambda_324;
|
|
c_733162.num_args = 1;
|
|
c_733162.num_elements = 2;
|
|
c_733162.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733162.elements[0] = a_73168;
|
|
c_733162.elements[1] = k_73387;
|
|
|
|
return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733162, car(a_73168));;
|
|
}
|
|
|
|
static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) {
|
|
if( (boolean_f != tmp_73169) ){
|
|
return_closcall1(data, ((closureN)self_73903)->elements[1], tmp_73169);
|
|
} else {
|
|
|
|
closureN_type c_733166;
|
|
c_733166.hdr.mark = gc_color_red;
|
|
c_733166.hdr.grayed = 0;
|
|
c_733166.tag = closureN_tag;
|
|
c_733166.fn = (function_type)__lambda_318;
|
|
c_733166.num_args = 0;
|
|
c_733166.num_elements = 1;
|
|
c_733166.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733166.elements[0] = ((closureN)self_73903)->elements[0];
|
|
|
|
|
|
closureN_type c_733189;
|
|
c_733189.hdr.mark = gc_color_red;
|
|
c_733189.hdr.grayed = 0;
|
|
c_733189.tag = closureN_tag;
|
|
c_733189.fn = (function_type)__lambda_323;
|
|
c_733189.num_args = 1;
|
|
c_733189.num_elements = 2;
|
|
c_733189.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733189.elements[0] = ((closureN)self_73903)->elements[0];
|
|
c_733189.elements[1] = ((closureN)self_73903)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_733166, &c_733189);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) {
|
|
if( (boolean_f != tmp_73170) ){
|
|
return_closcall1(data, ((closureN)self_73904)->elements[1], tmp_73170);
|
|
} else {
|
|
|
|
closureN_type c_733193;
|
|
c_733193.hdr.mark = gc_color_red;
|
|
c_733193.hdr.grayed = 0;
|
|
c_733193.tag = closureN_tag;
|
|
c_733193.fn = (function_type)__lambda_322;
|
|
c_733193.num_args = 1;
|
|
c_733193.num_elements = 2;
|
|
c_733193.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733193.elements[0] = ((closureN)self_73904)->elements[0];
|
|
c_733193.elements[1] = ((closureN)self_73904)->elements[1];
|
|
|
|
|
|
object c_733222 = Cyc_num_gt(data,(closure)&c_733193,2,Cyc_length(data, ((closureN)self_73904)->elements[0]), obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_733193, c_733222);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_322(void *data, int argc, object self_73905, object r_73390) {
|
|
if( (boolean_f != r_73390) ){
|
|
|
|
closureN_type c_733195;
|
|
c_733195.hdr.mark = gc_color_red;
|
|
c_733195.hdr.grayed = 0;
|
|
c_733195.tag = closureN_tag;
|
|
c_733195.fn = (function_type)__lambda_321;
|
|
c_733195.num_args = 1;
|
|
c_733195.num_elements = 2;
|
|
c_733195.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733195.elements[0] = ((closureN)self_73905)->elements[0];
|
|
c_733195.elements[1] = ((closureN)self_73905)->elements[1];
|
|
|
|
return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733195, cadr(((closureN)self_73905)->elements[0]));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73905)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) {
|
|
|
|
closureN_type c_733197;
|
|
c_733197.hdr.mark = gc_color_red;
|
|
c_733197.hdr.grayed = 0;
|
|
c_733197.tag = closureN_tag;
|
|
c_733197.fn = (function_type)__lambda_319;
|
|
c_733197.num_args = 0;
|
|
c_733197.num_elements = 2;
|
|
c_733197.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733197.elements[0] = ((closureN)self_73906)->elements[0];
|
|
c_733197.elements[1] = tmp_73171;
|
|
|
|
|
|
closureN_type c_733207;
|
|
c_733207.hdr.mark = gc_color_red;
|
|
c_733207.hdr.grayed = 0;
|
|
c_733207.tag = closureN_tag;
|
|
c_733207.fn = (function_type)__lambda_320;
|
|
c_733207.num_args = 1;
|
|
c_733207.num_elements = 2;
|
|
c_733207.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733207.elements[0] = ((closureN)self_73906)->elements[0];
|
|
c_733207.elements[1] = ((closureN)self_73906)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_733197, &c_733207);;
|
|
}
|
|
|
|
static void __lambda_320(void *data, int argc, object self_73907, object r_73391) {
|
|
if( (boolean_f != r_73391) ){
|
|
return_closcall2(data, __glo_sign_127_scheme_read, ((closureN)self_73907)->elements[1], car(((closureN)self_73907)->elements[0]));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73907)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_319(void *data, int argc, object self_73908, object k_73394) {
|
|
if( (boolean_f != ((closureN)self_73908)->elements[1]) ){
|
|
return_closcall1(data, k_73394, ((closureN)self_73908)->elements[1]);
|
|
} else {
|
|
return_closcall1(data, k_73394, Cyc_eq(obj_char2obj(46), cadr(((closureN)self_73908)->elements[0])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_318(void *data, int argc, object self_73909, object k_73398) {
|
|
|
|
closureN_type c_733168;
|
|
c_733168.hdr.mark = gc_color_red;
|
|
c_733168.hdr.grayed = 0;
|
|
c_733168.tag = closureN_tag;
|
|
c_733168.fn = (function_type)__lambda_317;
|
|
c_733168.num_args = 1;
|
|
c_733168.num_elements = 2;
|
|
c_733168.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733168.elements[0] = ((closureN)self_73909)->elements[0];
|
|
c_733168.elements[1] = k_73398;
|
|
|
|
|
|
object c_733185 = Cyc_num_gt(data,(closure)&c_733168,2,Cyc_length(data, ((closureN)self_73909)->elements[0]), obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_733168, c_733185);;
|
|
}
|
|
|
|
static void __lambda_317(void *data, int argc, object self_73910, object r_73399) {
|
|
if( (boolean_f != r_73399) ){
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(46), car(((closureN)self_73910)->elements[0]))) ){
|
|
return_closcall2(data, __glo_char_91numeric_127_scheme__char, ((closureN)self_73910)->elements[1], cadr(((closureN)self_73910)->elements[0]));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);}
|
|
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) {
|
|
Cyc_st_add(data, "scheme/read.sld:sign?");
|
|
if( (boolean_f != equalp(c_73172, obj_char2obj(43))) ){
|
|
return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(43)));
|
|
} else {
|
|
return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(45)));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) {
|
|
Cyc_st_add(data, "scheme/read.sld:read-str-esc");
|
|
|
|
closureN_type c_733080;
|
|
c_733080.hdr.mark = gc_color_red;
|
|
c_733080.hdr.grayed = 0;
|
|
c_733080.tag = closureN_tag;
|
|
c_733080.fn = (function_type)__lambda_314;
|
|
c_733080.num_args = 1;
|
|
c_733080.num_elements = 3;
|
|
c_733080.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733080.elements[0] = buf_73175;
|
|
c_733080.elements[1] = k_73411;
|
|
c_733080.elements[2] = ptbl_73174;
|
|
|
|
|
|
object c_733150 = Cyc_io_read_char(data,(closure)&c_733080,fp_73176);
|
|
return_closcall1(data,(closure)&c_733080, c_733150);;
|
|
}
|
|
|
|
static void __lambda_314(void *data, int argc, object self_73911, object c_73177) {
|
|
if( (boolean_f != Cyc_is_eof_object(c_73177)) ){
|
|
|
|
closureN_type c_733084;
|
|
c_733084.hdr.mark = gc_color_red;
|
|
c_733084.hdr.grayed = 0;
|
|
c_733084.tag = closureN_tag;
|
|
c_733084.fn = (function_type)__lambda_306;
|
|
c_733084.num_args = 1;
|
|
c_733084.num_elements = 2;
|
|
c_733084.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733084.elements[0] = ((closureN)self_73911)->elements[1];
|
|
c_733084.elements[1] = ((closureN)self_73911)->elements[2];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733084, ((closureN)self_73911)->elements[2]);
|
|
} else {
|
|
|
|
closureN_type c_733094;
|
|
c_733094.hdr.mark = gc_color_red;
|
|
c_733094.hdr.grayed = 0;
|
|
c_733094.tag = closureN_tag;
|
|
c_733094.fn = (function_type)__lambda_307;
|
|
c_733094.num_args = 0;
|
|
c_733094.num_elements = 1;
|
|
c_733094.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733094.elements[0] = c_73177;
|
|
|
|
|
|
closureN_type c_733106;
|
|
c_733106.hdr.mark = gc_color_red;
|
|
c_733106.hdr.grayed = 0;
|
|
c_733106.tag = closureN_tag;
|
|
c_733106.fn = (function_type)__lambda_313;
|
|
c_733106.num_args = 1;
|
|
c_733106.num_elements = 4;
|
|
c_733106.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733106.elements[0] = ((closureN)self_73911)->elements[0];
|
|
c_733106.elements[1] = c_73177;
|
|
c_733106.elements[2] = ((closureN)self_73911)->elements[1];
|
|
c_733106.elements[3] = ((closureN)self_73911)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_733094, &c_733106);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_313(void *data, int argc, object self_73912, object r_73416) {
|
|
if( (boolean_f != r_73416) ){
|
|
|
|
make_pair(c_733111,((closureN)self_73912)->elements[1], ((closureN)self_73912)->elements[0]);
|
|
return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733111);
|
|
} else {
|
|
if( (boolean_f != equalp(obj_char2obj(110), ((closureN)self_73912)->elements[1])) ){
|
|
|
|
make_pair(c_733121,obj_char2obj(10), ((closureN)self_73912)->elements[0]);
|
|
return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733121);
|
|
} else {
|
|
|
|
closureN_type c_733124;
|
|
c_733124.hdr.mark = gc_color_red;
|
|
c_733124.hdr.grayed = 0;
|
|
c_733124.tag = closureN_tag;
|
|
c_733124.fn = (function_type)__lambda_312;
|
|
c_733124.num_args = 1;
|
|
c_733124.num_elements = 2;
|
|
c_733124.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733124.elements[0] = ((closureN)self_73912)->elements[2];
|
|
c_733124.elements[1] = ((closureN)self_73912)->elements[3];
|
|
|
|
return_closcall2(data, __glo__list_scheme_base, &c_733124, ((closureN)self_73912)->elements[1]);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_312(void *data, int argc, object self_73913, object r_73422) {
|
|
|
|
closureN_type c_733126;
|
|
c_733126.hdr.mark = gc_color_red;
|
|
c_733126.hdr.grayed = 0;
|
|
c_733126.tag = closureN_tag;
|
|
c_733126.fn = (function_type)__lambda_311;
|
|
c_733126.num_args = 1;
|
|
c_733126.num_elements = 2;
|
|
c_733126.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733126.elements[0] = ((closureN)self_73913)->elements[0];
|
|
c_733126.elements[1] = ((closureN)self_73913)->elements[1];
|
|
|
|
|
|
object c_733146 = Cyc_list2string(data,(closure)&c_733126,r_73422);
|
|
return_closcall1(data,(closure)&c_733126, c_733146);;
|
|
}
|
|
|
|
static void __lambda_311(void *data, int argc, object self_73914, object r_73421) {
|
|
|
|
closureN_type c_733128;
|
|
c_733128.hdr.mark = gc_color_red;
|
|
c_733128.hdr.grayed = 0;
|
|
c_733128.tag = closureN_tag;
|
|
c_733128.fn = (function_type)__lambda_310;
|
|
c_733128.num_args = 1;
|
|
c_733128.num_elements = 2;
|
|
c_733128.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733128.elements[0] = ((closureN)self_73914)->elements[0];
|
|
c_733128.elements[1] = ((closureN)self_73914)->elements[1];
|
|
|
|
|
|
make_string(c_733142, "invalid escape character [");
|
|
|
|
make_string(c_733143, "] in string");
|
|
|
|
object c_733141 = Cyc_string_append(data,(closure)&c_733128,3,&c_733142, r_73421, &c_733143);
|
|
return_closcall1(data,(closure)&c_733128, c_733141);;
|
|
}
|
|
|
|
static void __lambda_310(void *data, int argc, object self_73915, object r_73418) {
|
|
|
|
closureN_type c_733130;
|
|
c_733130.hdr.mark = gc_color_red;
|
|
c_733130.hdr.grayed = 0;
|
|
c_733130.tag = closureN_tag;
|
|
c_733130.fn = (function_type)__lambda_309;
|
|
c_733130.num_args = 1;
|
|
c_733130.num_elements = 3;
|
|
c_733130.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733130.elements[0] = ((closureN)self_73915)->elements[0];
|
|
c_733130.elements[1] = ((closureN)self_73915)->elements[1];
|
|
c_733130.elements[2] = r_73418;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733130, ((closureN)self_73915)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_309(void *data, int argc, object self_73916, object r_73419) {
|
|
|
|
closureN_type c_733132;
|
|
c_733132.hdr.mark = gc_color_red;
|
|
c_733132.hdr.grayed = 0;
|
|
c_733132.tag = closureN_tag;
|
|
c_733132.fn = (function_type)__lambda_308;
|
|
c_733132.num_args = 1;
|
|
c_733132.num_elements = 3;
|
|
c_733132.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733132.elements[0] = ((closureN)self_73916)->elements[0];
|
|
c_733132.elements[1] = ((closureN)self_73916)->elements[2];
|
|
c_733132.elements[2] = r_73419;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733132, ((closureN)self_73916)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_308(void *data, int argc, object self_73917, object r_73420) {
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73917)->elements[0], ((closureN)self_73917)->elements[1], ((closureN)self_73917)->elements[2], r_73420);;
|
|
}
|
|
|
|
static void __lambda_307(void *data, int argc, object self_73918, object k_73424) {
|
|
if( (boolean_f != equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])) ){
|
|
return_closcall1(data, k_73424, equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0]));
|
|
} else {
|
|
return_closcall1(data, k_73424, equalp(obj_char2obj(92), ((closureN)self_73918)->elements[0]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_306(void *data, int argc, object self_73919, object r_73414) {
|
|
|
|
closureN_type c_733086;
|
|
c_733086.hdr.mark = gc_color_red;
|
|
c_733086.hdr.grayed = 0;
|
|
c_733086.tag = closureN_tag;
|
|
c_733086.fn = (function_type)__lambda_305;
|
|
c_733086.num_args = 1;
|
|
c_733086.num_elements = 2;
|
|
c_733086.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733086.elements[0] = ((closureN)self_73919)->elements[0];
|
|
c_733086.elements[1] = r_73414;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733086, ((closureN)self_73919)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_305(void *data, int argc, object self_73920, object r_73415) {
|
|
|
|
make_string(c_733089, "missing escaped character within string");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73920)->elements[0], &c_733089, ((closureN)self_73920)->elements[1], r_73415);;
|
|
}
|
|
|
|
static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) {
|
|
Cyc_st_add(data, "scheme/read.sld:read-str");
|
|
|
|
closureN_type c_733033;
|
|
c_733033.hdr.mark = gc_color_red;
|
|
c_733033.hdr.grayed = 0;
|
|
c_733033.tag = closureN_tag;
|
|
c_733033.fn = (function_type)__lambda_303;
|
|
c_733033.num_args = 1;
|
|
c_733033.num_elements = 4;
|
|
c_733033.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_733033.elements[0] = buf_73180;
|
|
c_733033.elements[1] = fp_73181;
|
|
c_733033.elements[2] = k_73427;
|
|
c_733033.elements[3] = ptbl_73179;
|
|
|
|
|
|
object c_733077 = Cyc_io_read_char(data,(closure)&c_733033,fp_73181);
|
|
return_closcall1(data,(closure)&c_733033, c_733077);;
|
|
}
|
|
|
|
static void __lambda_303(void *data, int argc, object self_73921, object c_73182) {
|
|
if( (boolean_f != Cyc_is_eof_object(c_73182)) ){
|
|
|
|
closureN_type c_733037;
|
|
c_733037.hdr.mark = gc_color_red;
|
|
c_733037.hdr.grayed = 0;
|
|
c_733037.tag = closureN_tag;
|
|
c_733037.fn = (function_type)__lambda_300;
|
|
c_733037.num_args = 1;
|
|
c_733037.num_elements = 2;
|
|
c_733037.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733037.elements[0] = ((closureN)self_73921)->elements[2];
|
|
c_733037.elements[1] = ((closureN)self_73921)->elements[3];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733037, ((closureN)self_73921)->elements[3]);
|
|
} else {
|
|
if( (boolean_f != equalp(obj_char2obj(92), c_73182)) ){
|
|
|
|
closureN_type c_733049;
|
|
c_733049.hdr.mark = gc_color_red;
|
|
c_733049.hdr.grayed = 0;
|
|
c_733049.tag = closureN_tag;
|
|
c_733049.fn = (function_type)__lambda_301;
|
|
c_733049.num_args = 1;
|
|
c_733049.num_elements = 3;
|
|
c_733049.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_733049.elements[0] = ((closureN)self_73921)->elements[1];
|
|
c_733049.elements[1] = ((closureN)self_73921)->elements[2];
|
|
c_733049.elements[2] = ((closureN)self_73921)->elements[3];
|
|
|
|
return_closcall4(data, __glo_read_91str_91esc_scheme_read, &c_733049, ((closureN)self_73921)->elements[1], ((closureN)self_73921)->elements[0], ((closureN)self_73921)->elements[3]);
|
|
} else {
|
|
if( (boolean_f != equalp(obj_char2obj(34), c_73182)) ){
|
|
|
|
closureN_type c_733060;
|
|
c_733060.hdr.mark = gc_color_red;
|
|
c_733060.hdr.grayed = 0;
|
|
c_733060.tag = closureN_tag;
|
|
c_733060.fn = (function_type)__lambda_302;
|
|
c_733060.num_args = 1;
|
|
c_733060.num_elements = 1;
|
|
c_733060.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_733060.elements[0] = ((closureN)self_73921)->elements[2];
|
|
|
|
return_closcall2(data, __glo_reverse_scheme_base, &c_733060, ((closureN)self_73921)->elements[0]);
|
|
} else {
|
|
|
|
make_pair(c_733072,c_73182, ((closureN)self_73921)->elements[0]);
|
|
return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73921)->elements[2], ((closureN)self_73921)->elements[1], &c_733072, ((closureN)self_73921)->elements[3]);}
|
|
}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_302(void *data, int argc, object self_73922, object r_73435) {
|
|
|
|
object c_733065 = Cyc_list2string(data, ((closureN)self_73922)->elements[0],r_73435);
|
|
return_closcall1(data, ((closureN)self_73922)->elements[0], c_733065);;
|
|
}
|
|
|
|
static void __lambda_301(void *data, int argc, object self_73923, object r_73433) {
|
|
return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73923)->elements[1], ((closureN)self_73923)->elements[0], r_73433, ((closureN)self_73923)->elements[2]);;
|
|
}
|
|
|
|
static void __lambda_300(void *data, int argc, object self_73924, object r_73430) {
|
|
|
|
closureN_type c_733039;
|
|
c_733039.hdr.mark = gc_color_red;
|
|
c_733039.hdr.grayed = 0;
|
|
c_733039.tag = closureN_tag;
|
|
c_733039.fn = (function_type)__lambda_299;
|
|
c_733039.num_args = 1;
|
|
c_733039.num_elements = 2;
|
|
c_733039.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_733039.elements[0] = ((closureN)self_73924)->elements[0];
|
|
c_733039.elements[1] = r_73430;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733039, ((closureN)self_73924)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_299(void *data, int argc, object self_73925, object r_73431) {
|
|
|
|
make_string(c_733042, "missing closing double-quote");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73925)->elements[0], &c_733042, ((closureN)self_73925)->elements[1], r_73431);;
|
|
}
|
|
|
|
static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) {
|
|
Cyc_st_add(data, "scheme/read.sld:read-pound");
|
|
|
|
closureN_type c_732721;
|
|
c_732721.hdr.mark = gc_color_red;
|
|
c_732721.hdr.grayed = 0;
|
|
c_732721.tag = closureN_tag;
|
|
c_732721.fn = (function_type)__lambda_297;
|
|
c_732721.num_args = 2;
|
|
c_732721.num_elements = 3;
|
|
c_732721.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732721.elements[0] = fp_73184;
|
|
c_732721.elements[1] = k_73439;
|
|
c_732721.elements[2] = ptbl_73183;
|
|
|
|
return_closcall2(data,(closure)&c_732721, boolean_f, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) {
|
|
|
|
closureN_type c_732723;
|
|
c_732723.hdr.mark = gc_color_red;
|
|
c_732723.hdr.grayed = 0;
|
|
c_732723.tag = closureN_tag;
|
|
c_732723.fn = (function_type)__lambda_296;
|
|
c_732723.num_args = 1;
|
|
c_732723.num_elements = 4;
|
|
c_732723.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_732723.elements[0] = ((closureN)self_73926)->elements[0];
|
|
c_732723.elements[1] = ((closureN)self_73926)->elements[1];
|
|
c_732723.elements[2] = loop_73187;
|
|
c_732723.elements[3] = ((closureN)self_73926)->elements[2];
|
|
|
|
|
|
make_cell(c_733030,done_73188);
|
|
return_closcall1(data,(closure)&c_732723, &c_733030);;
|
|
}
|
|
|
|
static void __lambda_296(void *data, int argc, object self_73927, object done_73188) {
|
|
|
|
closureN_type c_732725;
|
|
c_732725.hdr.mark = gc_color_red;
|
|
c_732725.hdr.grayed = 0;
|
|
c_732725.tag = closureN_tag;
|
|
c_732725.fn = (function_type)__lambda_295;
|
|
c_732725.num_args = 1;
|
|
c_732725.num_elements = 4;
|
|
c_732725.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_732725.elements[0] = done_73188;
|
|
c_732725.elements[1] = ((closureN)self_73927)->elements[0];
|
|
c_732725.elements[2] = ((closureN)self_73927)->elements[1];
|
|
c_732725.elements[3] = ((closureN)self_73927)->elements[3];
|
|
|
|
|
|
make_cell(c_733026,((closureN)self_73927)->elements[2]);
|
|
return_closcall1(data,(closure)&c_732725, &c_733026);;
|
|
}
|
|
|
|
static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) {
|
|
|
|
closureN_type c_732727;
|
|
c_732727.hdr.mark = gc_color_red;
|
|
c_732727.hdr.grayed = 0;
|
|
c_732727.tag = closureN_tag;
|
|
c_732727.fn = (function_type)__lambda_270;
|
|
c_732727.num_args = 1;
|
|
c_732727.num_elements = 4;
|
|
c_732727.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_732727.elements[0] = ((closureN)self_73928)->elements[0];
|
|
c_732727.elements[1] = ((closureN)self_73928)->elements[1];
|
|
c_732727.elements[2] = ((closureN)self_73928)->elements[2];
|
|
c_732727.elements[3] = loop_73187;
|
|
|
|
|
|
closureN_type c_732818;
|
|
c_732818.hdr.mark = gc_color_red;
|
|
c_732818.hdr.grayed = 0;
|
|
c_732818.tag = closureN_tag;
|
|
c_732818.fn = (function_type)__lambda_294;
|
|
c_732818.num_args = 1;
|
|
c_732818.num_elements = 1;
|
|
c_732818.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732818.elements[0] = ((closureN)self_73928)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_732727, &c_732818);;
|
|
}
|
|
|
|
static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) {
|
|
|
|
closureN_type c_732820;
|
|
c_732820.hdr.mark = gc_color_red;
|
|
c_732820.hdr.grayed = 0;
|
|
c_732820.tag = closureN_tag;
|
|
c_732820.fn = (function_type)__lambda_293;
|
|
c_732820.num_args = 1;
|
|
c_732820.num_elements = 2;
|
|
c_732820.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732820.elements[0] = k_73458;
|
|
c_732820.elements[1] = ((closureN)self_73929)->elements[0];
|
|
|
|
return_closcall2(data, __glo_reverse_scheme_base, &c_732820, raw_91buf_73195);;
|
|
}
|
|
|
|
static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) {
|
|
|
|
closureN_type c_732822;
|
|
c_732822.hdr.mark = gc_color_red;
|
|
c_732822.hdr.grayed = 0;
|
|
c_732822.tag = closureN_tag;
|
|
c_732822.fn = (function_type)__lambda_292;
|
|
c_732822.num_args = 1;
|
|
c_732822.num_elements = 3;
|
|
c_732822.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732822.elements[0] = buf_73196;
|
|
c_732822.elements[1] = ((closureN)self_73930)->elements[0];
|
|
c_732822.elements[2] = ((closureN)self_73930)->elements[1];
|
|
|
|
|
|
object c_733021 = Cyc_num_eq(data,(closure)&c_732822,2,obj_int2obj(0), Cyc_length(data, buf_73196));
|
|
return_closcall1(data,(closure)&c_732822, c_733021);;
|
|
}
|
|
|
|
static void __lambda_292(void *data, int argc, object self_73931, object r_73460) {
|
|
if( (boolean_f != r_73460) ){
|
|
|
|
closureN_type c_732824;
|
|
c_732824.hdr.mark = gc_color_red;
|
|
c_732824.hdr.grayed = 0;
|
|
c_732824.tag = closureN_tag;
|
|
c_732824.fn = (function_type)__lambda_272;
|
|
c_732824.num_args = 1;
|
|
c_732824.num_elements = 2;
|
|
c_732824.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732824.elements[0] = ((closureN)self_73931)->elements[1];
|
|
c_732824.elements[1] = ((closureN)self_73931)->elements[2];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732824, ((closureN)self_73931)->elements[2]);
|
|
} else {
|
|
|
|
closureN_type c_732834;
|
|
c_732834.hdr.mark = gc_color_red;
|
|
c_732834.hdr.grayed = 0;
|
|
c_732834.tag = closureN_tag;
|
|
c_732834.fn = (function_type)__lambda_291;
|
|
c_732834.num_args = 1;
|
|
c_732834.num_elements = 3;
|
|
c_732834.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732834.elements[0] = ((closureN)self_73931)->elements[0];
|
|
c_732834.elements[1] = ((closureN)self_73931)->elements[1];
|
|
c_732834.elements[2] = ((closureN)self_73931)->elements[2];
|
|
|
|
|
|
object c_733015 = Cyc_num_eq(data,(closure)&c_732834,2,obj_int2obj(1), Cyc_length(data, ((closureN)self_73931)->elements[0]));
|
|
return_closcall1(data,(closure)&c_732834, c_733015);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_291(void *data, int argc, object self_73932, object r_73463) {
|
|
if( (boolean_f != r_73463) ){
|
|
return_closcall1(data, ((closureN)self_73932)->elements[1], car(((closureN)self_73932)->elements[0]));
|
|
} else {
|
|
|
|
closureN_type c_732841;
|
|
c_732841.hdr.mark = gc_color_red;
|
|
c_732841.hdr.grayed = 0;
|
|
c_732841.tag = closureN_tag;
|
|
c_732841.fn = (function_type)__lambda_290;
|
|
c_732841.num_args = 1;
|
|
c_732841.num_elements = 3;
|
|
c_732841.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732841.elements[0] = ((closureN)self_73932)->elements[0];
|
|
c_732841.elements[1] = ((closureN)self_73932)->elements[1];
|
|
c_732841.elements[2] = ((closureN)self_73932)->elements[2];
|
|
|
|
|
|
make_pair(c_733012,obj_char2obj(109),NULL);
|
|
|
|
make_pair(c_733011,obj_char2obj(114),&c_733012);
|
|
|
|
make_pair(c_733010,obj_char2obj(97),&c_733011);
|
|
|
|
make_pair(c_733009,obj_char2obj(108),&c_733010);
|
|
|
|
make_pair(c_733008,obj_char2obj(97),&c_733009);
|
|
return_closcall1(data,(closure)&c_732841, &c_733008);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_290(void *data, int argc, object self_73933, object r_73493) {
|
|
if( (boolean_f != equalp(((closureN)self_73933)->elements[0], r_73493)) ){
|
|
return_closcall1(data, ((closureN)self_73933)->elements[1], obj_char2obj(7));
|
|
} else {
|
|
|
|
closureN_type c_732848;
|
|
c_732848.hdr.mark = gc_color_red;
|
|
c_732848.hdr.grayed = 0;
|
|
c_732848.tag = closureN_tag;
|
|
c_732848.fn = (function_type)__lambda_289;
|
|
c_732848.num_args = 1;
|
|
c_732848.num_elements = 3;
|
|
c_732848.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732848.elements[0] = ((closureN)self_73933)->elements[0];
|
|
c_732848.elements[1] = ((closureN)self_73933)->elements[1];
|
|
c_732848.elements[2] = ((closureN)self_73933)->elements[2];
|
|
|
|
|
|
make_pair(c_733007,obj_char2obj(101),NULL);
|
|
|
|
make_pair(c_733006,obj_char2obj(99),&c_733007);
|
|
|
|
make_pair(c_733005,obj_char2obj(97),&c_733006);
|
|
|
|
make_pair(c_733004,obj_char2obj(112),&c_733005);
|
|
|
|
make_pair(c_733003,obj_char2obj(115),&c_733004);
|
|
|
|
make_pair(c_733002,obj_char2obj(107),&c_733003);
|
|
|
|
make_pair(c_733001,obj_char2obj(99),&c_733002);
|
|
|
|
make_pair(c_733000,obj_char2obj(97),&c_733001);
|
|
|
|
make_pair(c_732999,obj_char2obj(98),&c_733000);
|
|
return_closcall1(data,(closure)&c_732848, &c_732999);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_289(void *data, int argc, object self_73934, object r_73492) {
|
|
if( (boolean_f != equalp(((closureN)self_73934)->elements[0], r_73492)) ){
|
|
return_closcall1(data, ((closureN)self_73934)->elements[1], obj_char2obj(8));
|
|
} else {
|
|
|
|
closureN_type c_732855;
|
|
c_732855.hdr.mark = gc_color_red;
|
|
c_732855.hdr.grayed = 0;
|
|
c_732855.tag = closureN_tag;
|
|
c_732855.fn = (function_type)__lambda_288;
|
|
c_732855.num_args = 1;
|
|
c_732855.num_elements = 3;
|
|
c_732855.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732855.elements[0] = ((closureN)self_73934)->elements[0];
|
|
c_732855.elements[1] = ((closureN)self_73934)->elements[1];
|
|
c_732855.elements[2] = ((closureN)self_73934)->elements[2];
|
|
|
|
|
|
make_pair(c_732998,obj_char2obj(101),NULL);
|
|
|
|
make_pair(c_732997,obj_char2obj(116),&c_732998);
|
|
|
|
make_pair(c_732996,obj_char2obj(101),&c_732997);
|
|
|
|
make_pair(c_732995,obj_char2obj(108),&c_732996);
|
|
|
|
make_pair(c_732994,obj_char2obj(101),&c_732995);
|
|
|
|
make_pair(c_732993,obj_char2obj(100),&c_732994);
|
|
return_closcall1(data,(closure)&c_732855, &c_732993);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_288(void *data, int argc, object self_73935, object r_73491) {
|
|
if( (boolean_f != equalp(((closureN)self_73935)->elements[0], r_73491)) ){
|
|
return_closcall1(data, ((closureN)self_73935)->elements[1], obj_char2obj(127));
|
|
} else {
|
|
|
|
closureN_type c_732862;
|
|
c_732862.hdr.mark = gc_color_red;
|
|
c_732862.hdr.grayed = 0;
|
|
c_732862.tag = closureN_tag;
|
|
c_732862.fn = (function_type)__lambda_287;
|
|
c_732862.num_args = 1;
|
|
c_732862.num_elements = 3;
|
|
c_732862.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732862.elements[0] = ((closureN)self_73935)->elements[0];
|
|
c_732862.elements[1] = ((closureN)self_73935)->elements[1];
|
|
c_732862.elements[2] = ((closureN)self_73935)->elements[2];
|
|
|
|
|
|
make_pair(c_732992,obj_char2obj(101),NULL);
|
|
|
|
make_pair(c_732991,obj_char2obj(112),&c_732992);
|
|
|
|
make_pair(c_732990,obj_char2obj(97),&c_732991);
|
|
|
|
make_pair(c_732989,obj_char2obj(99),&c_732990);
|
|
|
|
make_pair(c_732988,obj_char2obj(115),&c_732989);
|
|
|
|
make_pair(c_732987,obj_char2obj(101),&c_732988);
|
|
return_closcall1(data,(closure)&c_732862, &c_732987);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_287(void *data, int argc, object self_73936, object r_73490) {
|
|
if( (boolean_f != equalp(((closureN)self_73936)->elements[0], r_73490)) ){
|
|
return_closcall1(data, ((closureN)self_73936)->elements[1], obj_char2obj(27));
|
|
} else {
|
|
|
|
closureN_type c_732869;
|
|
c_732869.hdr.mark = gc_color_red;
|
|
c_732869.hdr.grayed = 0;
|
|
c_732869.tag = closureN_tag;
|
|
c_732869.fn = (function_type)__lambda_286;
|
|
c_732869.num_args = 1;
|
|
c_732869.num_elements = 3;
|
|
c_732869.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732869.elements[0] = ((closureN)self_73936)->elements[0];
|
|
c_732869.elements[1] = ((closureN)self_73936)->elements[1];
|
|
c_732869.elements[2] = ((closureN)self_73936)->elements[2];
|
|
|
|
|
|
make_pair(c_732986,obj_char2obj(101),NULL);
|
|
|
|
make_pair(c_732985,obj_char2obj(110),&c_732986);
|
|
|
|
make_pair(c_732984,obj_char2obj(105),&c_732985);
|
|
|
|
make_pair(c_732983,obj_char2obj(108),&c_732984);
|
|
|
|
make_pair(c_732982,obj_char2obj(119),&c_732983);
|
|
|
|
make_pair(c_732981,obj_char2obj(101),&c_732982);
|
|
|
|
make_pair(c_732980,obj_char2obj(110),&c_732981);
|
|
return_closcall1(data,(closure)&c_732869, &c_732980);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_286(void *data, int argc, object self_73937, object r_73489) {
|
|
if( (boolean_f != equalp(((closureN)self_73937)->elements[0], r_73489)) ){
|
|
return_closcall1(data, ((closureN)self_73937)->elements[1], obj_char2obj(10));
|
|
} else {
|
|
|
|
closureN_type c_732876;
|
|
c_732876.hdr.mark = gc_color_red;
|
|
c_732876.hdr.grayed = 0;
|
|
c_732876.tag = closureN_tag;
|
|
c_732876.fn = (function_type)__lambda_285;
|
|
c_732876.num_args = 1;
|
|
c_732876.num_elements = 3;
|
|
c_732876.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732876.elements[0] = ((closureN)self_73937)->elements[0];
|
|
c_732876.elements[1] = ((closureN)self_73937)->elements[1];
|
|
c_732876.elements[2] = ((closureN)self_73937)->elements[2];
|
|
|
|
|
|
make_pair(c_732979,obj_char2obj(108),NULL);
|
|
|
|
make_pair(c_732978,obj_char2obj(108),&c_732979);
|
|
|
|
make_pair(c_732977,obj_char2obj(117),&c_732978);
|
|
|
|
make_pair(c_732976,obj_char2obj(110),&c_732977);
|
|
return_closcall1(data,(closure)&c_732876, &c_732976);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_285(void *data, int argc, object self_73938, object r_73488) {
|
|
if( (boolean_f != equalp(((closureN)self_73938)->elements[0], r_73488)) ){
|
|
return_closcall1(data, ((closureN)self_73938)->elements[1], obj_char2obj(0));
|
|
} else {
|
|
|
|
closureN_type c_732883;
|
|
c_732883.hdr.mark = gc_color_red;
|
|
c_732883.hdr.grayed = 0;
|
|
c_732883.tag = closureN_tag;
|
|
c_732883.fn = (function_type)__lambda_284;
|
|
c_732883.num_args = 1;
|
|
c_732883.num_elements = 3;
|
|
c_732883.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732883.elements[0] = ((closureN)self_73938)->elements[0];
|
|
c_732883.elements[1] = ((closureN)self_73938)->elements[1];
|
|
c_732883.elements[2] = ((closureN)self_73938)->elements[2];
|
|
|
|
|
|
make_pair(c_732975,obj_char2obj(110),NULL);
|
|
|
|
make_pair(c_732974,obj_char2obj(114),&c_732975);
|
|
|
|
make_pair(c_732973,obj_char2obj(117),&c_732974);
|
|
|
|
make_pair(c_732972,obj_char2obj(116),&c_732973);
|
|
|
|
make_pair(c_732971,obj_char2obj(101),&c_732972);
|
|
|
|
make_pair(c_732970,obj_char2obj(114),&c_732971);
|
|
return_closcall1(data,(closure)&c_732883, &c_732970);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_284(void *data, int argc, object self_73939, object r_73487) {
|
|
if( (boolean_f != equalp(((closureN)self_73939)->elements[0], r_73487)) ){
|
|
return_closcall1(data, ((closureN)self_73939)->elements[1], obj_char2obj(13));
|
|
} else {
|
|
|
|
closureN_type c_732890;
|
|
c_732890.hdr.mark = gc_color_red;
|
|
c_732890.hdr.grayed = 0;
|
|
c_732890.tag = closureN_tag;
|
|
c_732890.fn = (function_type)__lambda_283;
|
|
c_732890.num_args = 1;
|
|
c_732890.num_elements = 3;
|
|
c_732890.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732890.elements[0] = ((closureN)self_73939)->elements[0];
|
|
c_732890.elements[1] = ((closureN)self_73939)->elements[1];
|
|
c_732890.elements[2] = ((closureN)self_73939)->elements[2];
|
|
|
|
|
|
make_pair(c_732969,obj_char2obj(101),NULL);
|
|
|
|
make_pair(c_732968,obj_char2obj(99),&c_732969);
|
|
|
|
make_pair(c_732967,obj_char2obj(97),&c_732968);
|
|
|
|
make_pair(c_732966,obj_char2obj(112),&c_732967);
|
|
|
|
make_pair(c_732965,obj_char2obj(115),&c_732966);
|
|
return_closcall1(data,(closure)&c_732890, &c_732965);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_283(void *data, int argc, object self_73940, object r_73486) {
|
|
if( (boolean_f != equalp(((closureN)self_73940)->elements[0], r_73486)) ){
|
|
return_closcall1(data, ((closureN)self_73940)->elements[1], obj_char2obj(32));
|
|
} else {
|
|
|
|
closureN_type c_732897;
|
|
c_732897.hdr.mark = gc_color_red;
|
|
c_732897.hdr.grayed = 0;
|
|
c_732897.tag = closureN_tag;
|
|
c_732897.fn = (function_type)__lambda_282;
|
|
c_732897.num_args = 1;
|
|
c_732897.num_elements = 3;
|
|
c_732897.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732897.elements[0] = ((closureN)self_73940)->elements[0];
|
|
c_732897.elements[1] = ((closureN)self_73940)->elements[1];
|
|
c_732897.elements[2] = ((closureN)self_73940)->elements[2];
|
|
|
|
|
|
make_pair(c_732964,obj_char2obj(98),NULL);
|
|
|
|
make_pair(c_732963,obj_char2obj(97),&c_732964);
|
|
|
|
make_pair(c_732962,obj_char2obj(116),&c_732963);
|
|
return_closcall1(data,(closure)&c_732897, &c_732962);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_282(void *data, int argc, object self_73941, object r_73485) {
|
|
if( (boolean_f != equalp(((closureN)self_73941)->elements[0], r_73485)) ){
|
|
return_closcall1(data, ((closureN)self_73941)->elements[1], obj_char2obj(9));
|
|
} else {
|
|
|
|
closureN_type c_732904;
|
|
c_732904.hdr.mark = gc_color_red;
|
|
c_732904.hdr.grayed = 0;
|
|
c_732904.tag = closureN_tag;
|
|
c_732904.fn = (function_type)__lambda_274;
|
|
c_732904.num_args = 0;
|
|
c_732904.num_elements = 1;
|
|
c_732904.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732904.elements[0] = ((closureN)self_73941)->elements[0];
|
|
|
|
|
|
closureN_type c_732922;
|
|
c_732922.hdr.mark = gc_color_red;
|
|
c_732922.hdr.grayed = 0;
|
|
c_732922.tag = closureN_tag;
|
|
c_732922.fn = (function_type)__lambda_281;
|
|
c_732922.num_args = 1;
|
|
c_732922.num_elements = 3;
|
|
c_732922.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732922.elements[0] = ((closureN)self_73941)->elements[0];
|
|
c_732922.elements[1] = ((closureN)self_73941)->elements[1];
|
|
c_732922.elements[2] = ((closureN)self_73941)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_732904, &c_732922);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_281(void *data, int argc, object self_73942, object r_73473) {
|
|
if( (boolean_f != r_73473) ){
|
|
|
|
closureN_type c_732924;
|
|
c_732924.hdr.mark = gc_color_red;
|
|
c_732924.hdr.grayed = 0;
|
|
c_732924.tag = closureN_tag;
|
|
c_732924.fn = (function_type)__lambda_276;
|
|
c_732924.num_args = 1;
|
|
c_732924.num_elements = 1;
|
|
c_732924.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732924.elements[0] = ((closureN)self_73942)->elements[1];
|
|
|
|
|
|
object c_732936 = Cyc_list2string(data,(closure)&c_732924,cdr(((closureN)self_73942)->elements[0]));
|
|
return_closcall1(data,(closure)&c_732924, c_732936);
|
|
} else {
|
|
|
|
closureN_type c_732941;
|
|
c_732941.hdr.mark = gc_color_red;
|
|
c_732941.hdr.grayed = 0;
|
|
c_732941.tag = closureN_tag;
|
|
c_732941.fn = (function_type)__lambda_280;
|
|
c_732941.num_args = 1;
|
|
c_732941.num_elements = 2;
|
|
c_732941.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732941.elements[0] = ((closureN)self_73942)->elements[1];
|
|
c_732941.elements[1] = ((closureN)self_73942)->elements[2];
|
|
|
|
|
|
object c_732960 = Cyc_list2string(data,(closure)&c_732941,((closureN)self_73942)->elements[0]);
|
|
return_closcall1(data,(closure)&c_732941, c_732960);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_280(void *data, int argc, object self_73943, object r_73480) {
|
|
|
|
closureN_type c_732943;
|
|
c_732943.hdr.mark = gc_color_red;
|
|
c_732943.hdr.grayed = 0;
|
|
c_732943.tag = closureN_tag;
|
|
c_732943.fn = (function_type)__lambda_279;
|
|
c_732943.num_args = 1;
|
|
c_732943.num_elements = 2;
|
|
c_732943.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732943.elements[0] = ((closureN)self_73943)->elements[0];
|
|
c_732943.elements[1] = ((closureN)self_73943)->elements[1];
|
|
|
|
|
|
make_string(c_732957, "unable to parse character: ");
|
|
|
|
object c_732956 = Cyc_string_append(data,(closure)&c_732943,2,&c_732957, r_73480);
|
|
return_closcall1(data,(closure)&c_732943, c_732956);;
|
|
}
|
|
|
|
static void __lambda_279(void *data, int argc, object self_73944, object r_73477) {
|
|
|
|
closureN_type c_732945;
|
|
c_732945.hdr.mark = gc_color_red;
|
|
c_732945.hdr.grayed = 0;
|
|
c_732945.tag = closureN_tag;
|
|
c_732945.fn = (function_type)__lambda_278;
|
|
c_732945.num_args = 1;
|
|
c_732945.num_elements = 3;
|
|
c_732945.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732945.elements[0] = ((closureN)self_73944)->elements[0];
|
|
c_732945.elements[1] = ((closureN)self_73944)->elements[1];
|
|
c_732945.elements[2] = r_73477;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732945, ((closureN)self_73944)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_278(void *data, int argc, object self_73945, object r_73478) {
|
|
|
|
closureN_type c_732947;
|
|
c_732947.hdr.mark = gc_color_red;
|
|
c_732947.hdr.grayed = 0;
|
|
c_732947.tag = closureN_tag;
|
|
c_732947.fn = (function_type)__lambda_277;
|
|
c_732947.num_args = 1;
|
|
c_732947.num_elements = 3;
|
|
c_732947.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732947.elements[0] = ((closureN)self_73945)->elements[0];
|
|
c_732947.elements[1] = ((closureN)self_73945)->elements[2];
|
|
c_732947.elements[2] = r_73478;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732947, ((closureN)self_73945)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_277(void *data, int argc, object self_73946, object r_73479) {
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73946)->elements[0], ((closureN)self_73946)->elements[1], ((closureN)self_73946)->elements[2], r_73479);;
|
|
}
|
|
|
|
static void __lambda_276(void *data, int argc, object self_73947, object r_73475) {
|
|
|
|
closureN_type c_732926;
|
|
c_732926.hdr.mark = gc_color_red;
|
|
c_732926.hdr.grayed = 0;
|
|
c_732926.tag = closureN_tag;
|
|
c_732926.fn = (function_type)__lambda_275;
|
|
c_732926.num_args = 1;
|
|
c_732926.num_elements = 1;
|
|
c_732926.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732926.elements[0] = ((closureN)self_73947)->elements[0];
|
|
|
|
|
|
object c_732933 = Cyc_string2number2_(data,(closure)&c_732926,2,r_73475, obj_int2obj(16));
|
|
return_closcall1(data,(closure)&c_732926, c_732933);;
|
|
}
|
|
|
|
static void __lambda_275(void *data, int argc, object self_73948, object r_73474) {
|
|
return_closcall1(data, ((closureN)self_73948)->elements[0], Cyc_integer2char(data, r_73474));;
|
|
}
|
|
|
|
static void __lambda_274(void *data, int argc, object self_73949, object k_73481) {
|
|
|
|
closureN_type c_732906;
|
|
c_732906.hdr.mark = gc_color_red;
|
|
c_732906.hdr.grayed = 0;
|
|
c_732906.tag = closureN_tag;
|
|
c_732906.fn = (function_type)__lambda_273;
|
|
c_732906.num_args = 1;
|
|
c_732906.num_elements = 2;
|
|
c_732906.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732906.elements[0] = ((closureN)self_73949)->elements[0];
|
|
c_732906.elements[1] = k_73481;
|
|
|
|
|
|
object c_732918 = Cyc_num_gt(data,(closure)&c_732906,2,Cyc_length(data, ((closureN)self_73949)->elements[0]), obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_732906, c_732918);;
|
|
}
|
|
|
|
static void __lambda_273(void *data, int argc, object self_73950, object r_73482) {
|
|
if( (boolean_f != r_73482) ){
|
|
return_closcall1(data, ((closureN)self_73950)->elements[1], equalp(car(((closureN)self_73950)->elements[0]), obj_char2obj(120)));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73950)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_272(void *data, int argc, object self_73951, object r_73461) {
|
|
|
|
closureN_type c_732826;
|
|
c_732826.hdr.mark = gc_color_red;
|
|
c_732826.hdr.grayed = 0;
|
|
c_732826.tag = closureN_tag;
|
|
c_732826.fn = (function_type)__lambda_271;
|
|
c_732826.num_args = 1;
|
|
c_732826.num_elements = 2;
|
|
c_732826.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732826.elements[0] = ((closureN)self_73951)->elements[0];
|
|
c_732826.elements[1] = r_73461;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732826, ((closureN)self_73951)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_271(void *data, int argc, object self_73952, object r_73462) {
|
|
|
|
make_string(c_732829, "missing character");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73952)->elements[0], &c_732829, ((closureN)self_73952)->elements[1], r_73462);;
|
|
}
|
|
|
|
static void __lambda_270(void *data, int argc, object self_73953, object r_73457) {
|
|
|
|
closureN_type c_732729;
|
|
c_732729.hdr.mark = gc_color_red;
|
|
c_732729.hdr.grayed = 0;
|
|
c_732729.tag = closureN_tag;
|
|
c_732729.fn = (function_type)__lambda_269;
|
|
c_732729.num_args = 1;
|
|
c_732729.num_elements = 4;
|
|
c_732729.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_732729.elements[0] = ((closureN)self_73953)->elements[0];
|
|
c_732729.elements[1] = ((closureN)self_73953)->elements[1];
|
|
c_732729.elements[2] = ((closureN)self_73953)->elements[2];
|
|
c_732729.elements[3] = ((closureN)self_73953)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_732729, Cyc_set_car(data, ((closureN)self_73953)->elements[0], r_73457));;
|
|
}
|
|
|
|
static void __lambda_269(void *data, int argc, object self_73954, object r_73440) {
|
|
|
|
closureN_type c_732731;
|
|
c_732731.hdr.mark = gc_color_red;
|
|
c_732731.hdr.grayed = 0;
|
|
c_732731.tag = closureN_tag;
|
|
c_732731.fn = (function_type)__lambda_259;
|
|
c_732731.num_args = 1;
|
|
c_732731.num_elements = 2;
|
|
c_732731.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732731.elements[0] = ((closureN)self_73954)->elements[2];
|
|
c_732731.elements[1] = ((closureN)self_73954)->elements[3];
|
|
|
|
|
|
closureN_type c_732744;
|
|
c_732744.hdr.mark = gc_color_red;
|
|
c_732744.hdr.grayed = 0;
|
|
c_732744.tag = closureN_tag;
|
|
c_732744.fn = (function_type)__lambda_268;
|
|
c_732744.num_args = 1;
|
|
c_732744.num_elements = 3;
|
|
c_732744.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732744.elements[0] = ((closureN)self_73954)->elements[0];
|
|
c_732744.elements[1] = ((closureN)self_73954)->elements[1];
|
|
c_732744.elements[2] = ((closureN)self_73954)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_732731, &c_732744);;
|
|
}
|
|
|
|
static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) {
|
|
|
|
closureN_type c_732746;
|
|
c_732746.hdr.mark = gc_color_red;
|
|
c_732746.hdr.grayed = 0;
|
|
c_732746.tag = closureN_tag;
|
|
c_732746.fn = (function_type)__lambda_267;
|
|
c_732746.num_args = 1;
|
|
c_732746.num_elements = 5;
|
|
c_732746.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_732746.elements[0] = buf_73191;
|
|
c_732746.elements[1] = ((closureN)self_73955)->elements[0];
|
|
c_732746.elements[2] = ((closureN)self_73955)->elements[1];
|
|
c_732746.elements[3] = k_73444;
|
|
c_732746.elements[4] = ((closureN)self_73955)->elements[2];
|
|
|
|
|
|
object c_732813 = Cyc_io_peek_char(data,(closure)&c_732746,((closureN)self_73955)->elements[1]);
|
|
return_closcall1(data,(closure)&c_732746, c_732813);;
|
|
}
|
|
|
|
static void __lambda_267(void *data, int argc, object self_73956, object c_73192) {
|
|
|
|
closureN_type c_732748;
|
|
c_732748.hdr.mark = gc_color_red;
|
|
c_732748.hdr.grayed = 0;
|
|
c_732748.tag = closureN_tag;
|
|
c_732748.fn = (function_type)__lambda_264;
|
|
c_732748.num_args = 0;
|
|
c_732748.num_elements = 2;
|
|
c_732748.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732748.elements[0] = ((closureN)self_73956)->elements[0];
|
|
c_732748.elements[1] = c_73192;
|
|
|
|
|
|
closureN_type c_732789;
|
|
c_732789.hdr.mark = gc_color_red;
|
|
c_732789.hdr.grayed = 0;
|
|
c_732789.tag = closureN_tag;
|
|
c_732789.fn = (function_type)__lambda_266;
|
|
c_732789.num_args = 1;
|
|
c_732789.num_elements = 5;
|
|
c_732789.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_732789.elements[0] = ((closureN)self_73956)->elements[0];
|
|
c_732789.elements[1] = ((closureN)self_73956)->elements[1];
|
|
c_732789.elements[2] = ((closureN)self_73956)->elements[2];
|
|
c_732789.elements[3] = ((closureN)self_73956)->elements[3];
|
|
c_732789.elements[4] = ((closureN)self_73956)->elements[4];
|
|
|
|
return_closcall1(data,(closure)&c_732748, &c_732789);;
|
|
}
|
|
|
|
static void __lambda_266(void *data, int argc, object self_73957, object r_73446) {
|
|
if( (boolean_f != r_73446) ){
|
|
return_closcall2(data, cell_get(((closureN)self_73957)->elements[1]), ((closureN)self_73957)->elements[3], ((closureN)self_73957)->elements[0]);
|
|
} else {
|
|
|
|
closureN_type c_732797;
|
|
c_732797.hdr.mark = gc_color_red;
|
|
c_732797.hdr.grayed = 0;
|
|
c_732797.tag = closureN_tag;
|
|
c_732797.fn = (function_type)__lambda_265;
|
|
c_732797.num_args = 1;
|
|
c_732797.num_elements = 3;
|
|
c_732797.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732797.elements[0] = ((closureN)self_73957)->elements[0];
|
|
c_732797.elements[1] = ((closureN)self_73957)->elements[3];
|
|
c_732797.elements[2] = ((closureN)self_73957)->elements[4];
|
|
|
|
|
|
object c_732809 = Cyc_io_read_char(data,(closure)&c_732797,((closureN)self_73957)->elements[2]);
|
|
return_closcall1(data,(closure)&c_732797, c_732809);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_265(void *data, int argc, object self_73958, object r_73448) {
|
|
|
|
make_pair(c_732805,r_73448, ((closureN)self_73958)->elements[0]);
|
|
return_closcall2(data, cell_get(((closureN)self_73958)->elements[2]), ((closureN)self_73958)->elements[1], &c_732805);;
|
|
}
|
|
|
|
static void __lambda_264(void *data, int argc, object self_73959, object k_73450) {
|
|
if( (boolean_f != Cyc_is_eof_object(((closureN)self_73959)->elements[1])) ){
|
|
return_closcall1(data, k_73450, Cyc_is_eof_object(((closureN)self_73959)->elements[1]));
|
|
} else {
|
|
|
|
closureN_type c_732757;
|
|
c_732757.hdr.mark = gc_color_red;
|
|
c_732757.hdr.grayed = 0;
|
|
c_732757.tag = closureN_tag;
|
|
c_732757.fn = (function_type)__lambda_261;
|
|
c_732757.num_args = 0;
|
|
c_732757.num_elements = 2;
|
|
c_732757.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732757.elements[0] = ((closureN)self_73959)->elements[0];
|
|
c_732757.elements[1] = ((closureN)self_73959)->elements[1];
|
|
|
|
|
|
closureN_type c_732771;
|
|
c_732771.hdr.mark = gc_color_red;
|
|
c_732771.hdr.grayed = 0;
|
|
c_732771.tag = closureN_tag;
|
|
c_732771.fn = (function_type)__lambda_263;
|
|
c_732771.num_args = 1;
|
|
c_732771.num_elements = 3;
|
|
c_732771.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732771.elements[0] = ((closureN)self_73959)->elements[0];
|
|
c_732771.elements[1] = ((closureN)self_73959)->elements[1];
|
|
c_732771.elements[2] = k_73450;
|
|
|
|
return_closcall1(data,(closure)&c_732757, &c_732771);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) {
|
|
if( (boolean_f != tmp_73194) ){
|
|
return_closcall1(data, ((closureN)self_73960)->elements[2], tmp_73194);
|
|
} else {
|
|
|
|
closureN_type c_732775;
|
|
c_732775.hdr.mark = gc_color_red;
|
|
c_732775.hdr.grayed = 0;
|
|
c_732775.tag = closureN_tag;
|
|
c_732775.fn = (function_type)__lambda_262;
|
|
c_732775.num_args = 1;
|
|
c_732775.num_elements = 2;
|
|
c_732775.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732775.elements[0] = ((closureN)self_73960)->elements[1];
|
|
c_732775.elements[1] = ((closureN)self_73960)->elements[2];
|
|
|
|
|
|
object c_732785 = Cyc_num_gt(data,(closure)&c_732775,2,Cyc_length(data, ((closureN)self_73960)->elements[0]), obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_732775, c_732785);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_262(void *data, int argc, object self_73961, object r_73452) {
|
|
if( (boolean_f != r_73452) ){
|
|
return_closcall1(data, ((closureN)self_73961)->elements[1], equalp(((closureN)self_73961)->elements[0], obj_char2obj(41)));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73961)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_261(void *data, int argc, object self_73962, object k_73454) {
|
|
|
|
closureN_type c_732759;
|
|
c_732759.hdr.mark = gc_color_red;
|
|
c_732759.hdr.grayed = 0;
|
|
c_732759.tag = closureN_tag;
|
|
c_732759.fn = (function_type)__lambda_260;
|
|
c_732759.num_args = 1;
|
|
c_732759.num_elements = 2;
|
|
c_732759.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732759.elements[0] = ((closureN)self_73962)->elements[0];
|
|
c_732759.elements[1] = k_73454;
|
|
|
|
return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_732759, ((closureN)self_73962)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_260(void *data, int argc, object self_73963, object r_73455) {
|
|
if( (boolean_f != r_73455) ){
|
|
|
|
object c_732764 = Cyc_num_gt(data, ((closureN)self_73963)->elements[1],2,Cyc_length(data, ((closureN)self_73963)->elements[0]), obj_int2obj(0));
|
|
return_closcall1(data, ((closureN)self_73963)->elements[1], c_732764);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73963)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_259(void *data, int argc, object self_73964, object r_73443) {
|
|
|
|
closureN_type c_732733;
|
|
c_732733.hdr.mark = gc_color_red;
|
|
c_732733.hdr.grayed = 0;
|
|
c_732733.tag = closureN_tag;
|
|
c_732733.fn = (function_type)__lambda_258;
|
|
c_732733.num_args = 1;
|
|
c_732733.num_elements = 2;
|
|
c_732733.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732733.elements[0] = ((closureN)self_73964)->elements[0];
|
|
c_732733.elements[1] = ((closureN)self_73964)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_732733, Cyc_set_car(data, ((closureN)self_73964)->elements[1], r_73443));;
|
|
}
|
|
|
|
static void __lambda_258(void *data, int argc, object self_73965, object r_73441) {
|
|
|
|
closureN_type c_732735;
|
|
c_732735.hdr.mark = gc_color_red;
|
|
c_732735.hdr.grayed = 0;
|
|
c_732735.tag = closureN_tag;
|
|
c_732735.fn = (function_type)__lambda_257;
|
|
c_732735.num_args = 1;
|
|
c_732735.num_elements = 2;
|
|
c_732735.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732735.elements[0] = ((closureN)self_73965)->elements[0];
|
|
c_732735.elements[1] = ((closureN)self_73965)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_732735, NULL);;
|
|
}
|
|
|
|
static void __lambda_257(void *data, int argc, object self_73966, object r_73442) {
|
|
return_closcall2(data, cell_get(((closureN)self_73966)->elements[1]), ((closureN)self_73966)->elements[0], r_73442);;
|
|
}
|
|
|
|
static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse");
|
|
|
|
closureN_type c_731419;
|
|
c_731419.hdr.mark = gc_color_red;
|
|
c_731419.hdr.grayed = 0;
|
|
c_731419.tag = closureN_tag;
|
|
c_731419.fn = (function_type)__lambda_255;
|
|
c_731419.num_args = 1;
|
|
c_731419.num_elements = 8;
|
|
c_731419.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731419.elements[0] = all_127_73200;
|
|
c_731419.elements[1] = comment_127_73199;
|
|
c_731419.elements[2] = fp_73203;
|
|
c_731419.elements[3] = k_73498;
|
|
c_731419.elements[4] = parens_73198;
|
|
c_731419.elements[5] = ptbl_73197;
|
|
c_731419.elements[6] = tok_73202;
|
|
c_731419.elements[7] = toks_73201;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731419, ptbl_73197);;
|
|
}
|
|
|
|
static void __lambda_255(void *data, int argc, object self_73967, object r_73748) {
|
|
|
|
closureN_type c_731421;
|
|
c_731421.hdr.mark = gc_color_red;
|
|
c_731421.hdr.grayed = 0;
|
|
c_731421.tag = closureN_tag;
|
|
c_731421.fn = (function_type)__lambda_254;
|
|
c_731421.num_args = 1;
|
|
c_731421.num_elements = 8;
|
|
c_731421.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731421.elements[0] = ((closureN)self_73967)->elements[0];
|
|
c_731421.elements[1] = ((closureN)self_73967)->elements[1];
|
|
c_731421.elements[2] = ((closureN)self_73967)->elements[2];
|
|
c_731421.elements[3] = ((closureN)self_73967)->elements[3];
|
|
c_731421.elements[4] = ((closureN)self_73967)->elements[4];
|
|
c_731421.elements[5] = ((closureN)self_73967)->elements[5];
|
|
c_731421.elements[6] = ((closureN)self_73967)->elements[6];
|
|
c_731421.elements[7] = ((closureN)self_73967)->elements[7];
|
|
|
|
|
|
object c_732718 = Cyc_sum(data,(closure)&c_731421,2,obj_int2obj(1), r_73748);
|
|
return_closcall1(data,(closure)&c_731421, c_732718);;
|
|
}
|
|
|
|
static void __lambda_254(void *data, int argc, object self_73968, object r_73747) {
|
|
|
|
closureN_type c_731423;
|
|
c_731423.hdr.mark = gc_color_red;
|
|
c_731423.hdr.grayed = 0;
|
|
c_731423.tag = closureN_tag;
|
|
c_731423.fn = (function_type)__lambda_253;
|
|
c_731423.num_args = 1;
|
|
c_731423.num_elements = 8;
|
|
c_731423.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731423.elements[0] = ((closureN)self_73968)->elements[0];
|
|
c_731423.elements[1] = ((closureN)self_73968)->elements[1];
|
|
c_731423.elements[2] = ((closureN)self_73968)->elements[2];
|
|
c_731423.elements[3] = ((closureN)self_73968)->elements[3];
|
|
c_731423.elements[4] = ((closureN)self_73968)->elements[4];
|
|
c_731423.elements[5] = ((closureN)self_73968)->elements[5];
|
|
c_731423.elements[6] = ((closureN)self_73968)->elements[6];
|
|
c_731423.elements[7] = ((closureN)self_73968)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731423, ((closureN)self_73968)->elements[5], r_73747);;
|
|
}
|
|
|
|
static void __lambda_253(void *data, int argc, object self_73969, object r_73499) {
|
|
|
|
closureN_type c_731425;
|
|
c_731425.hdr.mark = gc_color_red;
|
|
c_731425.hdr.grayed = 0;
|
|
c_731425.tag = closureN_tag;
|
|
c_731425.fn = (function_type)__lambda_37;
|
|
c_731425.num_args = 0;
|
|
c_731425.num_elements = 2;
|
|
c_731425.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731425.elements[0] = ((closureN)self_73969)->elements[2];
|
|
c_731425.elements[1] = ((closureN)self_73969)->elements[5];
|
|
|
|
|
|
closureN_type c_731438;
|
|
c_731438.hdr.mark = gc_color_red;
|
|
c_731438.hdr.grayed = 0;
|
|
c_731438.tag = closureN_tag;
|
|
c_731438.fn = (function_type)__lambda_252;
|
|
c_731438.num_args = 1;
|
|
c_731438.num_elements = 8;
|
|
c_731438.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731438.elements[0] = ((closureN)self_73969)->elements[0];
|
|
c_731438.elements[1] = ((closureN)self_73969)->elements[1];
|
|
c_731438.elements[2] = ((closureN)self_73969)->elements[2];
|
|
c_731438.elements[3] = ((closureN)self_73969)->elements[3];
|
|
c_731438.elements[4] = ((closureN)self_73969)->elements[4];
|
|
c_731438.elements[5] = ((closureN)self_73969)->elements[5];
|
|
c_731438.elements[6] = ((closureN)self_73969)->elements[6];
|
|
c_731438.elements[7] = ((closureN)self_73969)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731425, &c_731438);;
|
|
}
|
|
|
|
static void __lambda_252(void *data, int argc, object self_73970, object c_73205) {
|
|
|
|
closureN_type c_731440;
|
|
c_731440.hdr.mark = gc_color_red;
|
|
c_731440.hdr.grayed = 0;
|
|
c_731440.tag = closureN_tag;
|
|
c_731440.fn = (function_type)__lambda_251;
|
|
c_731440.num_args = 1;
|
|
c_731440.num_elements = 9;
|
|
c_731440.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731440.elements[0] = ((closureN)self_73970)->elements[0];
|
|
c_731440.elements[1] = c_73205;
|
|
c_731440.elements[2] = ((closureN)self_73970)->elements[1];
|
|
c_731440.elements[3] = ((closureN)self_73970)->elements[2];
|
|
c_731440.elements[4] = ((closureN)self_73970)->elements[3];
|
|
c_731440.elements[5] = ((closureN)self_73970)->elements[4];
|
|
c_731440.elements[6] = ((closureN)self_73970)->elements[5];
|
|
c_731440.elements[7] = ((closureN)self_73970)->elements[6];
|
|
c_731440.elements[8] = ((closureN)self_73970)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731440, quote_DEBUG);;
|
|
}
|
|
|
|
static void __lambda_251(void *data, int argc, object self_73971, object r_73738) {
|
|
|
|
closureN_type c_731442;
|
|
c_731442.hdr.mark = gc_color_red;
|
|
c_731442.hdr.grayed = 0;
|
|
c_731442.tag = closureN_tag;
|
|
c_731442.fn = (function_type)__lambda_250;
|
|
c_731442.num_args = 1;
|
|
c_731442.num_elements = 10;
|
|
c_731442.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731442.elements[0] = ((closureN)self_73971)->elements[0];
|
|
c_731442.elements[1] = ((closureN)self_73971)->elements[1];
|
|
c_731442.elements[2] = ((closureN)self_73971)->elements[2];
|
|
c_731442.elements[3] = ((closureN)self_73971)->elements[3];
|
|
c_731442.elements[4] = ((closureN)self_73971)->elements[4];
|
|
c_731442.elements[5] = ((closureN)self_73971)->elements[5];
|
|
c_731442.elements[6] = ((closureN)self_73971)->elements[6];
|
|
c_731442.elements[7] = r_73738;
|
|
c_731442.elements[8] = ((closureN)self_73971)->elements[7];
|
|
c_731442.elements[9] = ((closureN)self_73971)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_731442, quote_read);;
|
|
}
|
|
|
|
static void __lambda_250(void *data, int argc, object self_73972, object r_73740) {
|
|
|
|
closureN_type c_731444;
|
|
c_731444.hdr.mark = gc_color_red;
|
|
c_731444.hdr.grayed = 0;
|
|
c_731444.tag = closureN_tag;
|
|
c_731444.fn = (function_type)__lambda_249;
|
|
c_731444.num_args = 1;
|
|
c_731444.num_elements = 11;
|
|
c_731444.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731444.elements[0] = ((closureN)self_73972)->elements[0];
|
|
c_731444.elements[1] = ((closureN)self_73972)->elements[1];
|
|
c_731444.elements[2] = ((closureN)self_73972)->elements[2];
|
|
c_731444.elements[3] = ((closureN)self_73972)->elements[3];
|
|
c_731444.elements[4] = ((closureN)self_73972)->elements[4];
|
|
c_731444.elements[5] = ((closureN)self_73972)->elements[5];
|
|
c_731444.elements[6] = ((closureN)self_73972)->elements[6];
|
|
c_731444.elements[7] = ((closureN)self_73972)->elements[7];
|
|
c_731444.elements[8] = r_73740;
|
|
c_731444.elements[9] = ((closureN)self_73972)->elements[8];
|
|
c_731444.elements[10] = ((closureN)self_73972)->elements[9];
|
|
|
|
return_closcall1(data,(closure)&c_731444, NULL);;
|
|
}
|
|
|
|
static void __lambda_249(void *data, int argc, object self_73973, object r_73744) {
|
|
|
|
closureN_type c_731446;
|
|
c_731446.hdr.mark = gc_color_red;
|
|
c_731446.hdr.grayed = 0;
|
|
c_731446.tag = closureN_tag;
|
|
c_731446.fn = (function_type)__lambda_248;
|
|
c_731446.num_args = 1;
|
|
c_731446.num_elements = 9;
|
|
c_731446.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731446.elements[0] = ((closureN)self_73973)->elements[0];
|
|
c_731446.elements[1] = ((closureN)self_73973)->elements[1];
|
|
c_731446.elements[2] = ((closureN)self_73973)->elements[2];
|
|
c_731446.elements[3] = ((closureN)self_73973)->elements[3];
|
|
c_731446.elements[4] = ((closureN)self_73973)->elements[4];
|
|
c_731446.elements[5] = ((closureN)self_73973)->elements[5];
|
|
c_731446.elements[6] = ((closureN)self_73973)->elements[6];
|
|
c_731446.elements[7] = ((closureN)self_73973)->elements[9];
|
|
c_731446.elements[8] = ((closureN)self_73973)->elements[10];
|
|
|
|
|
|
make_pair(c_732713,((closureN)self_73973)->elements[5], r_73744);
|
|
|
|
make_pair(c_732709,((closureN)self_73973)->elements[1], &c_732713);
|
|
|
|
make_pair(c_732705,((closureN)self_73973)->elements[9], &c_732709);
|
|
|
|
make_pair(c_732701,((closureN)self_73973)->elements[8], &c_732705);
|
|
|
|
make_pair(c_732697,((closureN)self_73973)->elements[7], &c_732701);
|
|
return_closcall2(data, __glo_write_scheme_write, &c_731446, &c_732697);;
|
|
}
|
|
|
|
static void __lambda_248(void *data, int argc, object self_73974, object r_73501) {
|
|
|
|
closureN_type c_731448;
|
|
c_731448.hdr.mark = gc_color_red;
|
|
c_731448.hdr.grayed = 0;
|
|
c_731448.tag = closureN_tag;
|
|
c_731448.fn = (function_type)__lambda_247;
|
|
c_731448.num_args = 1;
|
|
c_731448.num_elements = 9;
|
|
c_731448.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731448.elements[0] = ((closureN)self_73974)->elements[0];
|
|
c_731448.elements[1] = ((closureN)self_73974)->elements[1];
|
|
c_731448.elements[2] = ((closureN)self_73974)->elements[2];
|
|
c_731448.elements[3] = ((closureN)self_73974)->elements[3];
|
|
c_731448.elements[4] = ((closureN)self_73974)->elements[4];
|
|
c_731448.elements[5] = ((closureN)self_73974)->elements[5];
|
|
c_731448.elements[6] = ((closureN)self_73974)->elements[6];
|
|
c_731448.elements[7] = ((closureN)self_73974)->elements[7];
|
|
c_731448.elements[8] = ((closureN)self_73974)->elements[8];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_731448);;
|
|
}
|
|
|
|
static void __lambda_247(void *data, int argc, object self_73975, object r_73736) {
|
|
|
|
closureN_type c_731450;
|
|
c_731450.hdr.mark = gc_color_red;
|
|
c_731450.hdr.grayed = 0;
|
|
c_731450.tag = closureN_tag;
|
|
c_731450.fn = (function_type)__lambda_246;
|
|
c_731450.num_args = 1;
|
|
c_731450.num_elements = 9;
|
|
c_731450.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731450.elements[0] = ((closureN)self_73975)->elements[0];
|
|
c_731450.elements[1] = ((closureN)self_73975)->elements[1];
|
|
c_731450.elements[2] = ((closureN)self_73975)->elements[2];
|
|
c_731450.elements[3] = ((closureN)self_73975)->elements[3];
|
|
c_731450.elements[4] = ((closureN)self_73975)->elements[4];
|
|
c_731450.elements[5] = ((closureN)self_73975)->elements[5];
|
|
c_731450.elements[6] = ((closureN)self_73975)->elements[6];
|
|
c_731450.elements[7] = ((closureN)self_73975)->elements[7];
|
|
c_731450.elements[8] = ((closureN)self_73975)->elements[8];
|
|
|
|
return_closcall2(data, __glo_write_scheme_write, &c_731450, r_73736);;
|
|
}
|
|
|
|
static void __lambda_246(void *data, int argc, object self_73976, object r_73502) {
|
|
if( (boolean_f != Cyc_is_eof_object(((closureN)self_73976)->elements[1])) ){
|
|
|
|
closureN_type c_731455;
|
|
c_731455.hdr.mark = gc_color_red;
|
|
c_731455.hdr.grayed = 0;
|
|
c_731455.tag = closureN_tag;
|
|
c_731455.fn = (function_type)__lambda_41;
|
|
c_731455.num_args = 0;
|
|
c_731455.num_elements = 2;
|
|
c_731455.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731455.elements[0] = ((closureN)self_73976)->elements[5];
|
|
c_731455.elements[1] = ((closureN)self_73976)->elements[6];
|
|
|
|
|
|
closureN_type c_731474;
|
|
c_731474.hdr.mark = gc_color_red;
|
|
c_731474.hdr.grayed = 0;
|
|
c_731474.tag = closureN_tag;
|
|
c_731474.fn = (function_type)__lambda_45;
|
|
c_731474.num_args = 1;
|
|
c_731474.num_elements = 5;
|
|
c_731474.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_731474.elements[0] = ((closureN)self_73976)->elements[0];
|
|
c_731474.elements[1] = ((closureN)self_73976)->elements[1];
|
|
c_731474.elements[2] = ((closureN)self_73976)->elements[4];
|
|
c_731474.elements[3] = ((closureN)self_73976)->elements[7];
|
|
c_731474.elements[4] = ((closureN)self_73976)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_731455, &c_731474);
|
|
} else {
|
|
if( (boolean_f != ((closureN)self_73976)->elements[2]) ){
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73976)->elements[1], obj_char2obj(10))) ){
|
|
|
|
closureN_type c_731506;
|
|
c_731506.hdr.mark = gc_color_red;
|
|
c_731506.hdr.grayed = 0;
|
|
c_731506.tag = closureN_tag;
|
|
c_731506.fn = (function_type)__lambda_50;
|
|
c_731506.num_args = 1;
|
|
c_731506.num_elements = 6;
|
|
c_731506.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731506.elements[0] = ((closureN)self_73976)->elements[0];
|
|
c_731506.elements[1] = ((closureN)self_73976)->elements[3];
|
|
c_731506.elements[2] = ((closureN)self_73976)->elements[4];
|
|
c_731506.elements[3] = ((closureN)self_73976)->elements[5];
|
|
c_731506.elements[4] = ((closureN)self_73976)->elements[6];
|
|
c_731506.elements[5] = ((closureN)self_73976)->elements[8];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731506, ((closureN)self_73976)->elements[6]);
|
|
} else {
|
|
|
|
closureN_type c_731529;
|
|
c_731529.hdr.mark = gc_color_red;
|
|
c_731529.hdr.grayed = 0;
|
|
c_731529.tag = closureN_tag;
|
|
c_731529.fn = (function_type)__lambda_51;
|
|
c_731529.num_args = 1;
|
|
c_731529.num_elements = 6;
|
|
c_731529.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731529.elements[0] = ((closureN)self_73976)->elements[0];
|
|
c_731529.elements[1] = ((closureN)self_73976)->elements[3];
|
|
c_731529.elements[2] = ((closureN)self_73976)->elements[4];
|
|
c_731529.elements[3] = ((closureN)self_73976)->elements[5];
|
|
c_731529.elements[4] = ((closureN)self_73976)->elements[6];
|
|
c_731529.elements[5] = ((closureN)self_73976)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_731529, NULL);}
|
|
|
|
} else {
|
|
|
|
closureN_type c_731538;
|
|
c_731538.hdr.mark = gc_color_red;
|
|
c_731538.hdr.grayed = 0;
|
|
c_731538.tag = closureN_tag;
|
|
c_731538.fn = (function_type)__lambda_245;
|
|
c_731538.num_args = 1;
|
|
c_731538.num_elements = 8;
|
|
c_731538.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731538.elements[0] = ((closureN)self_73976)->elements[0];
|
|
c_731538.elements[1] = ((closureN)self_73976)->elements[1];
|
|
c_731538.elements[2] = ((closureN)self_73976)->elements[3];
|
|
c_731538.elements[3] = ((closureN)self_73976)->elements[4];
|
|
c_731538.elements[4] = ((closureN)self_73976)->elements[5];
|
|
c_731538.elements[5] = ((closureN)self_73976)->elements[6];
|
|
c_731538.elements[6] = ((closureN)self_73976)->elements[7];
|
|
c_731538.elements[7] = ((closureN)self_73976)->elements[8];
|
|
|
|
return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_731538, ((closureN)self_73976)->elements[1]);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_245(void *data, int argc, object self_73977, object r_73520) {
|
|
if( (boolean_f != r_73520) ){
|
|
|
|
closureN_type c_731540;
|
|
c_731540.hdr.mark = gc_color_red;
|
|
c_731540.hdr.grayed = 0;
|
|
c_731540.tag = closureN_tag;
|
|
c_731540.fn = (function_type)__lambda_54;
|
|
c_731540.num_args = 0;
|
|
c_731540.num_elements = 2;
|
|
c_731540.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731540.elements[0] = ((closureN)self_73977)->elements[1];
|
|
c_731540.elements[1] = ((closureN)self_73977)->elements[5];
|
|
|
|
|
|
closureN_type c_731556;
|
|
c_731556.hdr.mark = gc_color_red;
|
|
c_731556.hdr.grayed = 0;
|
|
c_731556.tag = closureN_tag;
|
|
c_731556.fn = (function_type)__lambda_57;
|
|
c_731556.num_args = 1;
|
|
c_731556.num_elements = 8;
|
|
c_731556.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731556.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731556.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_731556.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_731556.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_731556.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_731556.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_731556.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_731556.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731540, &c_731556);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(59))) ){
|
|
return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[6], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_t, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5], ((closureN)self_73977)->elements[1]);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(39))) ){
|
|
|
|
closureN_type c_731591;
|
|
c_731591.hdr.mark = gc_color_red;
|
|
c_731591.hdr.grayed = 0;
|
|
c_731591.tag = closureN_tag;
|
|
c_731591.fn = (function_type)__lambda_58;
|
|
c_731591.num_args = 0;
|
|
c_731591.num_elements = 2;
|
|
c_731591.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731591.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731591.elements[1] = ((closureN)self_73977)->elements[6];
|
|
|
|
|
|
closureN_type c_731598;
|
|
c_731598.hdr.mark = gc_color_red;
|
|
c_731598.hdr.grayed = 0;
|
|
c_731598.tag = closureN_tag;
|
|
c_731598.fn = (function_type)__lambda_73;
|
|
c_731598.num_args = 1;
|
|
c_731598.num_elements = 8;
|
|
c_731598.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731598.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731598.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_731598.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_731598.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_731598.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_731598.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_731598.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_731598.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731591, &c_731598);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(96))) ){
|
|
|
|
closureN_type c_731669;
|
|
c_731669.hdr.mark = gc_color_red;
|
|
c_731669.hdr.grayed = 0;
|
|
c_731669.tag = closureN_tag;
|
|
c_731669.fn = (function_type)__lambda_74;
|
|
c_731669.num_args = 0;
|
|
c_731669.num_elements = 2;
|
|
c_731669.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731669.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731669.elements[1] = ((closureN)self_73977)->elements[6];
|
|
|
|
|
|
closureN_type c_731676;
|
|
c_731676.hdr.mark = gc_color_red;
|
|
c_731676.hdr.grayed = 0;
|
|
c_731676.tag = closureN_tag;
|
|
c_731676.fn = (function_type)__lambda_89;
|
|
c_731676.num_args = 1;
|
|
c_731676.num_elements = 8;
|
|
c_731676.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731676.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731676.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_731676.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_731676.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_731676.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_731676.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_731676.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_731676.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731669, &c_731676);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(44))) ){
|
|
|
|
closureN_type c_731747;
|
|
c_731747.hdr.mark = gc_color_red;
|
|
c_731747.hdr.grayed = 0;
|
|
c_731747.tag = closureN_tag;
|
|
c_731747.fn = (function_type)__lambda_90;
|
|
c_731747.num_args = 0;
|
|
c_731747.num_elements = 2;
|
|
c_731747.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731747.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731747.elements[1] = ((closureN)self_73977)->elements[6];
|
|
|
|
|
|
closureN_type c_731754;
|
|
c_731754.hdr.mark = gc_color_red;
|
|
c_731754.hdr.grayed = 0;
|
|
c_731754.tag = closureN_tag;
|
|
c_731754.fn = (function_type)__lambda_119;
|
|
c_731754.num_args = 1;
|
|
c_731754.num_elements = 8;
|
|
c_731754.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731754.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731754.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_731754.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_731754.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_731754.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_731754.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_731754.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_731754.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731747, &c_731754);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(40))) ){
|
|
|
|
closureN_type c_731916;
|
|
c_731916.hdr.mark = gc_color_red;
|
|
c_731916.hdr.grayed = 0;
|
|
c_731916.tag = closureN_tag;
|
|
c_731916.fn = (function_type)__lambda_120;
|
|
c_731916.num_args = 0;
|
|
c_731916.num_elements = 2;
|
|
c_731916.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731916.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731916.elements[1] = ((closureN)self_73977)->elements[6];
|
|
|
|
|
|
closureN_type c_731923;
|
|
c_731923.hdr.mark = gc_color_red;
|
|
c_731923.hdr.grayed = 0;
|
|
c_731923.tag = closureN_tag;
|
|
c_731923.fn = (function_type)__lambda_139;
|
|
c_731923.num_args = 1;
|
|
c_731923.num_elements = 8;
|
|
c_731923.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731923.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_731923.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_731923.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_731923.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_731923.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_731923.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_731923.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_731923.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731916, &c_731923);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(41))) ){
|
|
|
|
closureN_type c_732017;
|
|
c_732017.hdr.mark = gc_color_red;
|
|
c_732017.hdr.grayed = 0;
|
|
c_732017.tag = closureN_tag;
|
|
c_732017.fn = (function_type)__lambda_140;
|
|
c_732017.num_args = 0;
|
|
c_732017.num_elements = 2;
|
|
c_732017.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732017.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_732017.elements[1] = ((closureN)self_73977)->elements[6];
|
|
|
|
|
|
closureN_type c_732024;
|
|
c_732024.hdr.mark = gc_color_red;
|
|
c_732024.hdr.grayed = 0;
|
|
c_732024.tag = closureN_tag;
|
|
c_732024.fn = (function_type)__lambda_148;
|
|
c_732024.num_args = 1;
|
|
c_732024.num_elements = 6;
|
|
c_732024.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732024.elements[0] = ((closureN)self_73977)->elements[1];
|
|
c_732024.elements[1] = ((closureN)self_73977)->elements[3];
|
|
c_732024.elements[2] = ((closureN)self_73977)->elements[4];
|
|
c_732024.elements[3] = ((closureN)self_73977)->elements[5];
|
|
c_732024.elements[4] = ((closureN)self_73977)->elements[6];
|
|
c_732024.elements[5] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732017, &c_732024);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(34))) ){
|
|
|
|
closureN_type c_732065;
|
|
c_732065.hdr.mark = gc_color_red;
|
|
c_732065.hdr.grayed = 0;
|
|
c_732065.tag = closureN_tag;
|
|
c_732065.fn = (function_type)__lambda_149;
|
|
c_732065.num_args = 0;
|
|
c_732065.num_elements = 2;
|
|
c_732065.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732065.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_732065.elements[1] = ((closureN)self_73977)->elements[6];
|
|
|
|
|
|
closureN_type c_732072;
|
|
c_732072.hdr.mark = gc_color_red;
|
|
c_732072.hdr.grayed = 0;
|
|
c_732072.tag = closureN_tag;
|
|
c_732072.fn = (function_type)__lambda_162;
|
|
c_732072.num_args = 1;
|
|
c_732072.num_elements = 8;
|
|
c_732072.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732072.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_732072.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_732072.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_732072.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_732072.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_732072.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_732072.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_732072.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732065, &c_732072);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(35))) ){
|
|
if( (boolean_f != Cyc_is_null(((closureN)self_73977)->elements[6])) ){
|
|
|
|
closureN_type c_732142;
|
|
c_732142.hdr.mark = gc_color_red;
|
|
c_732142.hdr.grayed = 0;
|
|
c_732142.tag = closureN_tag;
|
|
c_732142.fn = (function_type)__lambda_244;
|
|
c_732142.num_args = 1;
|
|
c_732142.num_elements = 8;
|
|
c_732142.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732142.elements[0] = ((closureN)self_73977)->elements[0];
|
|
c_732142.elements[1] = ((closureN)self_73977)->elements[1];
|
|
c_732142.elements[2] = ((closureN)self_73977)->elements[2];
|
|
c_732142.elements[3] = ((closureN)self_73977)->elements[3];
|
|
c_732142.elements[4] = ((closureN)self_73977)->elements[4];
|
|
c_732142.elements[5] = ((closureN)self_73977)->elements[5];
|
|
c_732142.elements[6] = ((closureN)self_73977)->elements[6];
|
|
c_732142.elements[7] = ((closureN)self_73977)->elements[7];
|
|
|
|
|
|
object c_732658 = Cyc_io_read_char(data,(closure)&c_732142,((closureN)self_73977)->elements[2]);
|
|
return_closcall1(data,(closure)&c_732142, c_732658);
|
|
} else {
|
|
|
|
make_pair(c_732665,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732665, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);}
|
|
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(124))) ){
|
|
return_closcall6(data, __glo_parse_91literal_91identifier_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);
|
|
} else {
|
|
|
|
make_pair(c_732687,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732687, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) {
|
|
|
|
closureN_type c_732144;
|
|
c_732144.hdr.mark = gc_color_red;
|
|
c_732144.hdr.grayed = 0;
|
|
c_732144.tag = closureN_tag;
|
|
c_732144.fn = (function_type)__lambda_243;
|
|
c_732144.num_args = 1;
|
|
c_732144.num_elements = 8;
|
|
c_732144.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732144.elements[0] = ((closureN)self_73978)->elements[0];
|
|
c_732144.elements[1] = ((closureN)self_73978)->elements[1];
|
|
c_732144.elements[2] = ((closureN)self_73978)->elements[2];
|
|
c_732144.elements[3] = ((closureN)self_73978)->elements[3];
|
|
c_732144.elements[4] = ((closureN)self_73978)->elements[4];
|
|
c_732144.elements[5] = ((closureN)self_73978)->elements[5];
|
|
c_732144.elements[6] = ((closureN)self_73978)->elements[6];
|
|
c_732144.elements[7] = ((closureN)self_73978)->elements[7];
|
|
|
|
|
|
make_cell(c_732655,next_91c_73206);
|
|
return_closcall1(data,(closure)&c_732144, &c_732655);;
|
|
}
|
|
|
|
static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) {
|
|
|
|
closureN_type c_732146;
|
|
c_732146.hdr.mark = gc_color_red;
|
|
c_732146.hdr.grayed = 0;
|
|
c_732146.tag = closureN_tag;
|
|
c_732146.fn = (function_type)__lambda_242;
|
|
c_732146.num_args = 1;
|
|
c_732146.num_elements = 9;
|
|
c_732146.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_732146.elements[0] = ((closureN)self_73979)->elements[0];
|
|
c_732146.elements[1] = ((closureN)self_73979)->elements[1];
|
|
c_732146.elements[2] = ((closureN)self_73979)->elements[2];
|
|
c_732146.elements[3] = ((closureN)self_73979)->elements[3];
|
|
c_732146.elements[4] = next_91c_73206;
|
|
c_732146.elements[5] = ((closureN)self_73979)->elements[4];
|
|
c_732146.elements[6] = ((closureN)self_73979)->elements[5];
|
|
c_732146.elements[7] = ((closureN)self_73979)->elements[6];
|
|
c_732146.elements[8] = ((closureN)self_73979)->elements[7];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732146, ((closureN)self_73979)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_242(void *data, int argc, object self_73980, object r_73732) {
|
|
|
|
closureN_type c_732148;
|
|
c_732148.hdr.mark = gc_color_red;
|
|
c_732148.hdr.grayed = 0;
|
|
c_732148.tag = closureN_tag;
|
|
c_732148.fn = (function_type)__lambda_241;
|
|
c_732148.num_args = 1;
|
|
c_732148.num_elements = 9;
|
|
c_732148.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_732148.elements[0] = ((closureN)self_73980)->elements[0];
|
|
c_732148.elements[1] = ((closureN)self_73980)->elements[1];
|
|
c_732148.elements[2] = ((closureN)self_73980)->elements[2];
|
|
c_732148.elements[3] = ((closureN)self_73980)->elements[3];
|
|
c_732148.elements[4] = ((closureN)self_73980)->elements[4];
|
|
c_732148.elements[5] = ((closureN)self_73980)->elements[5];
|
|
c_732148.elements[6] = ((closureN)self_73980)->elements[6];
|
|
c_732148.elements[7] = ((closureN)self_73980)->elements[7];
|
|
c_732148.elements[8] = ((closureN)self_73980)->elements[8];
|
|
|
|
|
|
object c_732651 = Cyc_sum(data,(closure)&c_732148,2,obj_int2obj(1), r_73732);
|
|
return_closcall1(data,(closure)&c_732148, c_732651);;
|
|
}
|
|
|
|
static void __lambda_241(void *data, int argc, object self_73981, object r_73731) {
|
|
|
|
closureN_type c_732150;
|
|
c_732150.hdr.mark = gc_color_red;
|
|
c_732150.hdr.grayed = 0;
|
|
c_732150.tag = closureN_tag;
|
|
c_732150.fn = (function_type)__lambda_240;
|
|
c_732150.num_args = 1;
|
|
c_732150.num_elements = 9;
|
|
c_732150.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_732150.elements[0] = ((closureN)self_73981)->elements[0];
|
|
c_732150.elements[1] = ((closureN)self_73981)->elements[1];
|
|
c_732150.elements[2] = ((closureN)self_73981)->elements[2];
|
|
c_732150.elements[3] = ((closureN)self_73981)->elements[3];
|
|
c_732150.elements[4] = ((closureN)self_73981)->elements[4];
|
|
c_732150.elements[5] = ((closureN)self_73981)->elements[5];
|
|
c_732150.elements[6] = ((closureN)self_73981)->elements[6];
|
|
c_732150.elements[7] = ((closureN)self_73981)->elements[7];
|
|
c_732150.elements[8] = ((closureN)self_73981)->elements[8];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_732150, ((closureN)self_73981)->elements[6], r_73731);;
|
|
}
|
|
|
|
static void __lambda_240(void *data, int argc, object self_73982, object r_73639) {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(124), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732157;
|
|
c_732157.hdr.mark = gc_color_red;
|
|
c_732157.hdr.grayed = 0;
|
|
c_732157.tag = closureN_tag;
|
|
c_732157.fn = (function_type)__lambda_164;
|
|
c_732157.num_args = 1;
|
|
c_732157.num_elements = 6;
|
|
c_732157.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732157.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732157.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732157.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732157.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732157.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732157.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
return_closcall3(data, __glo_read_91block_91comment_scheme_read, &c_732157, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(116), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
if( (boolean_f != ((closureN)self_73982)->elements[0]) ){
|
|
|
|
closureN_type c_732176;
|
|
c_732176.hdr.mark = gc_color_red;
|
|
c_732176.hdr.grayed = 0;
|
|
c_732176.tag = closureN_tag;
|
|
c_732176.fn = (function_type)__lambda_165;
|
|
c_732176.num_args = 1;
|
|
c_732176.num_elements = 6;
|
|
c_732176.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732176.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732176.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732176.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732176.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732176.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732176.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_732176, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_t);}
|
|
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(102), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
if( (boolean_f != ((closureN)self_73982)->elements[0]) ){
|
|
|
|
closureN_type c_732196;
|
|
c_732196.hdr.mark = gc_color_red;
|
|
c_732196.hdr.grayed = 0;
|
|
c_732196.tag = closureN_tag;
|
|
c_732196.fn = (function_type)__lambda_166;
|
|
c_732196.num_args = 1;
|
|
c_732196.num_elements = 6;
|
|
c_732196.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732196.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732196.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732196.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732196.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732196.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732196.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_732196, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_f);}
|
|
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(101), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732215;
|
|
c_732215.hdr.mark = gc_color_red;
|
|
c_732215.hdr.grayed = 0;
|
|
c_732215.tag = closureN_tag;
|
|
c_732215.fn = (function_type)__lambda_167;
|
|
c_732215.num_args = 1;
|
|
c_732215.num_elements = 6;
|
|
c_732215.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732215.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732215.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732215.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732215.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732215.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732215.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
|
|
mclosure0(c_732223, (function_type)__lambda_169);c_732223.num_args = 1;
|
|
return_closcall1(data,(closure)&c_732215, &c_732223);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(105), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732234;
|
|
c_732234.hdr.mark = gc_color_red;
|
|
c_732234.hdr.grayed = 0;
|
|
c_732234.tag = closureN_tag;
|
|
c_732234.fn = (function_type)__lambda_170;
|
|
c_732234.num_args = 1;
|
|
c_732234.num_elements = 6;
|
|
c_732234.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732234.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732234.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732234.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732234.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732234.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732234.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
|
|
mclosure0(c_732242, (function_type)__lambda_172);c_732242.num_args = 1;
|
|
return_closcall1(data,(closure)&c_732234, &c_732242);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(98), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732253;
|
|
c_732253.hdr.mark = gc_color_red;
|
|
c_732253.hdr.grayed = 0;
|
|
c_732253.tag = closureN_tag;
|
|
c_732253.fn = (function_type)__lambda_173;
|
|
c_732253.num_args = 1;
|
|
c_732253.num_elements = 6;
|
|
c_732253.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732253.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732253.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732253.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732253.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732253.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732253.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
|
|
mclosure0(c_732261, (function_type)__lambda_175);c_732261.num_args = 1;
|
|
return_closcall1(data,(closure)&c_732253, &c_732261);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(111), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732278;
|
|
c_732278.hdr.mark = gc_color_red;
|
|
c_732278.hdr.grayed = 0;
|
|
c_732278.tag = closureN_tag;
|
|
c_732278.fn = (function_type)__lambda_176;
|
|
c_732278.num_args = 1;
|
|
c_732278.num_elements = 6;
|
|
c_732278.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732278.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732278.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732278.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732278.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732278.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732278.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
|
|
mclosure0(c_732286, (function_type)__lambda_178);c_732286.num_args = 1;
|
|
return_closcall1(data,(closure)&c_732278, &c_732286);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(120), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732303;
|
|
c_732303.hdr.mark = gc_color_red;
|
|
c_732303.hdr.grayed = 0;
|
|
c_732303.tag = closureN_tag;
|
|
c_732303.fn = (function_type)__lambda_179;
|
|
c_732303.num_args = 1;
|
|
c_732303.num_elements = 6;
|
|
c_732303.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732303.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732303.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732303.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732303.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732303.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732303.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
|
|
mclosure0(c_732311, (function_type)__lambda_181);c_732311.num_args = 1;
|
|
return_closcall1(data,(closure)&c_732303, &c_732311);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(117), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732328;
|
|
c_732328.hdr.mark = gc_color_red;
|
|
c_732328.hdr.grayed = 0;
|
|
c_732328.tag = closureN_tag;
|
|
c_732328.fn = (function_type)__lambda_210;
|
|
c_732328.num_args = 1;
|
|
c_732328.num_elements = 8;
|
|
c_732328.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732328.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732328.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732328.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732328.elements[3] = ((closureN)self_73982)->elements[4];
|
|
c_732328.elements[4] = ((closureN)self_73982)->elements[5];
|
|
c_732328.elements[5] = ((closureN)self_73982)->elements[6];
|
|
c_732328.elements[6] = ((closureN)self_73982)->elements[7];
|
|
c_732328.elements[7] = ((closureN)self_73982)->elements[8];
|
|
|
|
|
|
object c_732470 = Cyc_io_read_char(data,(closure)&c_732328,((closureN)self_73982)->elements[2]);
|
|
return_closcall1(data,(closure)&c_732328, c_732470);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732478;
|
|
c_732478.hdr.mark = gc_color_red;
|
|
c_732478.hdr.grayed = 0;
|
|
c_732478.tag = closureN_tag;
|
|
c_732478.fn = (function_type)__lambda_227;
|
|
c_732478.num_args = 1;
|
|
c_732478.num_elements = 7;
|
|
c_732478.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732478.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732478.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732478.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732478.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732478.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732478.elements[5] = ((closureN)self_73982)->elements[7];
|
|
c_732478.elements[6] = ((closureN)self_73982)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_732478, NULL);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(92), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732568;
|
|
c_732568.hdr.mark = gc_color_red;
|
|
c_732568.hdr.grayed = 0;
|
|
c_732568.tag = closureN_tag;
|
|
c_732568.fn = (function_type)__lambda_229;
|
|
c_732568.num_args = 1;
|
|
c_732568.num_elements = 6;
|
|
c_732568.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732568.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732568.elements[1] = ((closureN)self_73982)->elements[2];
|
|
c_732568.elements[2] = ((closureN)self_73982)->elements[3];
|
|
c_732568.elements[3] = ((closureN)self_73982)->elements[5];
|
|
c_732568.elements[4] = ((closureN)self_73982)->elements[6];
|
|
c_732568.elements[5] = ((closureN)self_73982)->elements[8];
|
|
|
|
return_closcall3(data, __glo_read_91pound_scheme_read, &c_732568, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]);
|
|
} else {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(59), cell_get(((closureN)self_73982)->elements[4]))) ){
|
|
|
|
closureN_type c_732599;
|
|
c_732599.hdr.mark = gc_color_red;
|
|
c_732599.hdr.grayed = 0;
|
|
c_732599.tag = closureN_tag;
|
|
c_732599.fn = (function_type)__lambda_237;
|
|
c_732599.num_args = 1;
|
|
c_732599.num_elements = 8;
|
|
c_732599.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732599.elements[0] = ((closureN)self_73982)->elements[0];
|
|
c_732599.elements[1] = ((closureN)self_73982)->elements[1];
|
|
c_732599.elements[2] = ((closureN)self_73982)->elements[2];
|
|
c_732599.elements[3] = ((closureN)self_73982)->elements[3];
|
|
c_732599.elements[4] = ((closureN)self_73982)->elements[5];
|
|
c_732599.elements[5] = ((closureN)self_73982)->elements[6];
|
|
c_732599.elements[6] = ((closureN)self_73982)->elements[7];
|
|
c_732599.elements[7] = ((closureN)self_73982)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_732599, NULL);
|
|
} else {
|
|
|
|
closureN_type c_732639;
|
|
c_732639.hdr.mark = gc_color_red;
|
|
c_732639.hdr.grayed = 0;
|
|
c_732639.tag = closureN_tag;
|
|
c_732639.fn = (function_type)__lambda_239;
|
|
c_732639.num_args = 1;
|
|
c_732639.num_elements = 2;
|
|
c_732639.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732639.elements[0] = ((closureN)self_73982)->elements[3];
|
|
c_732639.elements[1] = ((closureN)self_73982)->elements[6];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732639, ((closureN)self_73982)->elements[6]);}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_239(void *data, int argc, object self_73983, object r_73729) {
|
|
|
|
closureN_type c_732641;
|
|
c_732641.hdr.mark = gc_color_red;
|
|
c_732641.hdr.grayed = 0;
|
|
c_732641.tag = closureN_tag;
|
|
c_732641.fn = (function_type)__lambda_238;
|
|
c_732641.num_args = 1;
|
|
c_732641.num_elements = 2;
|
|
c_732641.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732641.elements[0] = ((closureN)self_73983)->elements[0];
|
|
c_732641.elements[1] = r_73729;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732641, ((closureN)self_73983)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_238(void *data, int argc, object self_73984, object r_73730) {
|
|
|
|
make_string(c_732644, "Unhandled input sequence");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73984)->elements[0], &c_732644, ((closureN)self_73984)->elements[1], r_73730);;
|
|
}
|
|
|
|
static void __lambda_237(void *data, int argc, object self_73985, object r_73727) {
|
|
|
|
closureN_type c_732601;
|
|
c_732601.hdr.mark = gc_color_red;
|
|
c_732601.hdr.grayed = 0;
|
|
c_732601.tag = closureN_tag;
|
|
c_732601.fn = (function_type)__lambda_236;
|
|
c_732601.num_args = 1;
|
|
c_732601.num_elements = 9;
|
|
c_732601.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_732601.elements[0] = ((closureN)self_73985)->elements[0];
|
|
c_732601.elements[1] = ((closureN)self_73985)->elements[1];
|
|
c_732601.elements[2] = ((closureN)self_73985)->elements[2];
|
|
c_732601.elements[3] = ((closureN)self_73985)->elements[3];
|
|
c_732601.elements[4] = ((closureN)self_73985)->elements[4];
|
|
c_732601.elements[5] = ((closureN)self_73985)->elements[5];
|
|
c_732601.elements[6] = r_73727;
|
|
c_732601.elements[7] = ((closureN)self_73985)->elements[6];
|
|
c_732601.elements[8] = ((closureN)self_73985)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732601, NULL);;
|
|
}
|
|
|
|
static void __lambda_236(void *data, int argc, object self_73986, object r_73728) {
|
|
|
|
closureN_type c_732603;
|
|
c_732603.hdr.mark = gc_color_red;
|
|
c_732603.hdr.grayed = 0;
|
|
c_732603.tag = closureN_tag;
|
|
c_732603.fn = (function_type)__lambda_235;
|
|
c_732603.num_args = 1;
|
|
c_732603.num_elements = 8;
|
|
c_732603.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732603.elements[0] = ((closureN)self_73986)->elements[0];
|
|
c_732603.elements[1] = ((closureN)self_73986)->elements[1];
|
|
c_732603.elements[2] = ((closureN)self_73986)->elements[2];
|
|
c_732603.elements[3] = ((closureN)self_73986)->elements[3];
|
|
c_732603.elements[4] = ((closureN)self_73986)->elements[4];
|
|
c_732603.elements[5] = ((closureN)self_73986)->elements[5];
|
|
c_732603.elements[6] = ((closureN)self_73986)->elements[7];
|
|
c_732603.elements[7] = ((closureN)self_73986)->elements[8];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_732603, ((closureN)self_73986)->elements[2], ((closureN)self_73986)->elements[6], r_73728, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_73986)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_235(void *data, int argc, object self_73987, object r_73720) {
|
|
|
|
closureN_type c_732605;
|
|
c_732605.hdr.mark = gc_color_red;
|
|
c_732605.hdr.grayed = 0;
|
|
c_732605.tag = closureN_tag;
|
|
c_732605.fn = (function_type)__lambda_230;
|
|
c_732605.num_args = 0;
|
|
c_732605.num_elements = 2;
|
|
c_732605.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732605.elements[0] = ((closureN)self_73987)->elements[0];
|
|
c_732605.elements[1] = ((closureN)self_73987)->elements[6];
|
|
|
|
|
|
closureN_type c_732612;
|
|
c_732612.hdr.mark = gc_color_red;
|
|
c_732612.hdr.grayed = 0;
|
|
c_732612.tag = closureN_tag;
|
|
c_732612.fn = (function_type)__lambda_234;
|
|
c_732612.num_args = 1;
|
|
c_732612.num_elements = 8;
|
|
c_732612.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732612.elements[0] = ((closureN)self_73987)->elements[0];
|
|
c_732612.elements[1] = ((closureN)self_73987)->elements[1];
|
|
c_732612.elements[2] = ((closureN)self_73987)->elements[2];
|
|
c_732612.elements[3] = ((closureN)self_73987)->elements[3];
|
|
c_732612.elements[4] = ((closureN)self_73987)->elements[4];
|
|
c_732612.elements[5] = ((closureN)self_73987)->elements[5];
|
|
c_732612.elements[6] = ((closureN)self_73987)->elements[6];
|
|
c_732612.elements[7] = ((closureN)self_73987)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732605, &c_732612);;
|
|
}
|
|
|
|
static void __lambda_234(void *data, int argc, object self_73988, object r_73721) {
|
|
if( (boolean_f != r_73721) ){
|
|
|
|
closureN_type c_732614;
|
|
c_732614.hdr.mark = gc_color_red;
|
|
c_732614.hdr.grayed = 0;
|
|
c_732614.tag = closureN_tag;
|
|
c_732614.fn = (function_type)__lambda_233;
|
|
c_732614.num_args = 1;
|
|
c_732614.num_elements = 3;
|
|
c_732614.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732614.elements[0] = ((closureN)self_73988)->elements[3];
|
|
c_732614.elements[1] = ((closureN)self_73988)->elements[6];
|
|
c_732614.elements[2] = ((closureN)self_73988)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732614, ((closureN)self_73988)->elements[5], ((closureN)self_73988)->elements[1]);
|
|
} else {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73988)->elements[3], ((closureN)self_73988)->elements[2], ((closureN)self_73988)->elements[6], ((closureN)self_73988)->elements[7], ((closureN)self_73988)->elements[0], boolean_f, ((closureN)self_73988)->elements[4], ((closureN)self_73988)->elements[5]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_233(void *data, int argc, object self_73989, object r_73722) {
|
|
|
|
closureN_type c_732616;
|
|
c_732616.hdr.mark = gc_color_red;
|
|
c_732616.hdr.grayed = 0;
|
|
c_732616.tag = closureN_tag;
|
|
c_732616.fn = (function_type)__lambda_232;
|
|
c_732616.num_args = 1;
|
|
c_732616.num_elements = 2;
|
|
c_732616.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732616.elements[0] = ((closureN)self_73989)->elements[0];
|
|
c_732616.elements[1] = ((closureN)self_73989)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_732616, ((closureN)self_73989)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_232(void *data, int argc, object self_73990, object r_73724) {
|
|
|
|
closureN_type c_732618;
|
|
c_732618.hdr.mark = gc_color_red;
|
|
c_732618.hdr.grayed = 0;
|
|
c_732618.tag = closureN_tag;
|
|
c_732618.fn = (function_type)__lambda_231;
|
|
c_732618.num_args = 1;
|
|
c_732618.num_elements = 1;
|
|
c_732618.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732618.elements[0] = ((closureN)self_73990)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_732618, r_73724, ((closureN)self_73990)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_231(void *data, int argc, object self_73991, object r_73723) {
|
|
return_closcall1(data, ((closureN)self_73991)->elements[0], car(r_73723));;
|
|
}
|
|
|
|
static void __lambda_230(void *data, int argc, object self_73992, object k_73725) {
|
|
if( (boolean_f != ((closureN)self_73992)->elements[0]) ){
|
|
return_closcall1(data, k_73725, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73725, Cyc_is_null(((closureN)self_73992)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_229(void *data, int argc, object self_73993, object r_73718) {
|
|
if( (boolean_f != ((closureN)self_73993)->elements[0]) ){
|
|
|
|
closureN_type c_732571;
|
|
c_732571.hdr.mark = gc_color_red;
|
|
c_732571.hdr.grayed = 0;
|
|
c_732571.tag = closureN_tag;
|
|
c_732571.fn = (function_type)__lambda_228;
|
|
c_732571.num_args = 1;
|
|
c_732571.num_elements = 7;
|
|
c_732571.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732571.elements[0] = ((closureN)self_73993)->elements[0];
|
|
c_732571.elements[1] = ((closureN)self_73993)->elements[1];
|
|
c_732571.elements[2] = ((closureN)self_73993)->elements[2];
|
|
c_732571.elements[3] = ((closureN)self_73993)->elements[3];
|
|
c_732571.elements[4] = ((closureN)self_73993)->elements[4];
|
|
c_732571.elements[5] = r_73718;
|
|
c_732571.elements[6] = ((closureN)self_73993)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732571, NULL);
|
|
} else {
|
|
|
|
make_pair(c_732589,r_73718, ((closureN)self_73993)->elements[5]);
|
|
return_closcall1(data, ((closureN)self_73993)->elements[2], car(&c_732589));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_228(void *data, int argc, object self_73994, object r_73717) {
|
|
|
|
make_pair(c_732577,((closureN)self_73994)->elements[5], ((closureN)self_73994)->elements[6]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73994)->elements[2], ((closureN)self_73994)->elements[1], r_73717, &c_732577, ((closureN)self_73994)->elements[0], boolean_f, ((closureN)self_73994)->elements[3], ((closureN)self_73994)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_227(void *data, int argc, object self_73995, object r_73712) {
|
|
|
|
closureN_type c_732480;
|
|
c_732480.hdr.mark = gc_color_red;
|
|
c_732480.hdr.grayed = 0;
|
|
c_732480.tag = closureN_tag;
|
|
c_732480.fn = (function_type)__lambda_226;
|
|
c_732480.num_args = 1;
|
|
c_732480.num_elements = 8;
|
|
c_732480.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732480.elements[0] = ((closureN)self_73995)->elements[0];
|
|
c_732480.elements[1] = ((closureN)self_73995)->elements[1];
|
|
c_732480.elements[2] = ((closureN)self_73995)->elements[2];
|
|
c_732480.elements[3] = ((closureN)self_73995)->elements[3];
|
|
c_732480.elements[4] = ((closureN)self_73995)->elements[4];
|
|
c_732480.elements[5] = r_73712;
|
|
c_732480.elements[6] = ((closureN)self_73995)->elements[5];
|
|
c_732480.elements[7] = ((closureN)self_73995)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_732480, NULL);;
|
|
}
|
|
|
|
static void __lambda_226(void *data, int argc, object self_73996, object r_73713) {
|
|
|
|
closureN_type c_732482;
|
|
c_732482.hdr.mark = gc_color_red;
|
|
c_732482.hdr.grayed = 0;
|
|
c_732482.tag = closureN_tag;
|
|
c_732482.fn = (function_type)__lambda_225;
|
|
c_732482.num_args = 1;
|
|
c_732482.num_elements = 9;
|
|
c_732482.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_732482.elements[0] = ((closureN)self_73996)->elements[0];
|
|
c_732482.elements[1] = ((closureN)self_73996)->elements[1];
|
|
c_732482.elements[2] = ((closureN)self_73996)->elements[2];
|
|
c_732482.elements[3] = ((closureN)self_73996)->elements[3];
|
|
c_732482.elements[4] = ((closureN)self_73996)->elements[4];
|
|
c_732482.elements[5] = ((closureN)self_73996)->elements[5];
|
|
c_732482.elements[6] = r_73713;
|
|
c_732482.elements[7] = ((closureN)self_73996)->elements[6];
|
|
c_732482.elements[8] = ((closureN)self_73996)->elements[7];
|
|
|
|
|
|
object c_732560 = Cyc_sum(data,(closure)&c_732482,2,((closureN)self_73996)->elements[3], obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_732482, c_732560);;
|
|
}
|
|
|
|
static void __lambda_225(void *data, int argc, object self_73997, object r_73714) {
|
|
|
|
closureN_type c_732484;
|
|
c_732484.hdr.mark = gc_color_red;
|
|
c_732484.hdr.grayed = 0;
|
|
c_732484.tag = closureN_tag;
|
|
c_732484.fn = (function_type)__lambda_224;
|
|
c_732484.num_args = 1;
|
|
c_732484.num_elements = 7;
|
|
c_732484.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732484.elements[0] = ((closureN)self_73997)->elements[0];
|
|
c_732484.elements[1] = ((closureN)self_73997)->elements[1];
|
|
c_732484.elements[2] = ((closureN)self_73997)->elements[2];
|
|
c_732484.elements[3] = ((closureN)self_73997)->elements[3];
|
|
c_732484.elements[4] = ((closureN)self_73997)->elements[4];
|
|
c_732484.elements[5] = ((closureN)self_73997)->elements[7];
|
|
c_732484.elements[6] = ((closureN)self_73997)->elements[8];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_732484, ((closureN)self_73997)->elements[1], ((closureN)self_73997)->elements[5], ((closureN)self_73997)->elements[6], boolean_t, boolean_f, r_73714, ((closureN)self_73997)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_224(void *data, int argc, object self_73998, object r_73700) {
|
|
|
|
closureN_type c_732486;
|
|
c_732486.hdr.mark = gc_color_red;
|
|
c_732486.hdr.grayed = 0;
|
|
c_732486.tag = closureN_tag;
|
|
c_732486.fn = (function_type)__lambda_223;
|
|
c_732486.num_args = 1;
|
|
c_732486.num_elements = 6;
|
|
c_732486.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732486.elements[0] = ((closureN)self_73998)->elements[0];
|
|
c_732486.elements[1] = ((closureN)self_73998)->elements[1];
|
|
c_732486.elements[2] = ((closureN)self_73998)->elements[2];
|
|
c_732486.elements[3] = ((closureN)self_73998)->elements[3];
|
|
c_732486.elements[4] = ((closureN)self_73998)->elements[4];
|
|
c_732486.elements[5] = r_73700;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_732486, ((closureN)self_73998)->elements[5], ((closureN)self_73998)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_223(void *data, int argc, object self_73999, object r_73701) {
|
|
|
|
closureN_type c_732488;
|
|
c_732488.hdr.mark = gc_color_red;
|
|
c_732488.hdr.grayed = 0;
|
|
c_732488.tag = closureN_tag;
|
|
c_732488.fn = (function_type)__lambda_222;
|
|
c_732488.num_args = 2;
|
|
c_732488.num_elements = 5;
|
|
c_732488.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_732488.elements[0] = ((closureN)self_73999)->elements[0];
|
|
c_732488.elements[1] = ((closureN)self_73999)->elements[1];
|
|
c_732488.elements[2] = ((closureN)self_73999)->elements[2];
|
|
c_732488.elements[3] = ((closureN)self_73999)->elements[3];
|
|
c_732488.elements[4] = ((closureN)self_73999)->elements[4];
|
|
|
|
return_closcall2(data,(closure)&c_732488, ((closureN)self_73999)->elements[5], r_73701);;
|
|
}
|
|
|
|
static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) {
|
|
|
|
closureN_type c_732490;
|
|
c_732490.hdr.mark = gc_color_red;
|
|
c_732490.hdr.grayed = 0;
|
|
c_732490.tag = closureN_tag;
|
|
c_732490.fn = (function_type)__lambda_221;
|
|
c_732490.num_args = 1;
|
|
c_732490.num_elements = 7;
|
|
c_732490.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732490.elements[0] = ((closureN)self_731000)->elements[0];
|
|
c_732490.elements[1] = ((closureN)self_731000)->elements[1];
|
|
c_732490.elements[2] = ((closureN)self_731000)->elements[2];
|
|
c_732490.elements[3] = ((closureN)self_731000)->elements[3];
|
|
c_732490.elements[4] = ((closureN)self_731000)->elements[4];
|
|
c_732490.elements[5] = sub_73209;
|
|
c_732490.elements[6] = toks_85_73208;
|
|
|
|
return_closcall1(data,(closure)&c_732490, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) {
|
|
|
|
closureN_type c_732492;
|
|
c_732492.hdr.mark = gc_color_red;
|
|
c_732492.hdr.grayed = 0;
|
|
c_732492.tag = closureN_tag;
|
|
c_732492.fn = (function_type)__lambda_220;
|
|
c_732492.num_args = 1;
|
|
c_732492.num_elements = 7;
|
|
c_732492.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732492.elements[0] = ((closureN)self_731001)->elements[0];
|
|
c_732492.elements[1] = ((closureN)self_731001)->elements[1];
|
|
c_732492.elements[2] = ((closureN)self_731001)->elements[2];
|
|
c_732492.elements[3] = ((closureN)self_731001)->elements[3];
|
|
c_732492.elements[4] = ((closureN)self_731001)->elements[4];
|
|
c_732492.elements[5] = ((closureN)self_731001)->elements[5];
|
|
c_732492.elements[6] = ((closureN)self_731001)->elements[6];
|
|
|
|
|
|
make_cell(c_732550,new_91toks_73210);
|
|
return_closcall1(data,(closure)&c_732492, &c_732550);;
|
|
}
|
|
|
|
static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) {
|
|
|
|
closureN_type c_732494;
|
|
c_732494.hdr.mark = gc_color_red;
|
|
c_732494.hdr.grayed = 0;
|
|
c_732494.tag = closureN_tag;
|
|
c_732494.fn = (function_type)__lambda_215;
|
|
c_732494.num_args = 0;
|
|
c_732494.num_elements = 2;
|
|
c_732494.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732494.elements[0] = ((closureN)self_731002)->elements[4];
|
|
c_732494.elements[1] = ((closureN)self_731002)->elements[5];
|
|
|
|
|
|
closureN_type c_732520;
|
|
c_732520.hdr.mark = gc_color_red;
|
|
c_732520.hdr.grayed = 0;
|
|
c_732520.tag = closureN_tag;
|
|
c_732520.fn = (function_type)__lambda_219;
|
|
c_732520.num_args = 1;
|
|
c_732520.num_elements = 7;
|
|
c_732520.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732520.elements[0] = ((closureN)self_731002)->elements[0];
|
|
c_732520.elements[1] = ((closureN)self_731002)->elements[1];
|
|
c_732520.elements[2] = ((closureN)self_731002)->elements[2];
|
|
c_732520.elements[3] = new_91toks_73210;
|
|
c_732520.elements[4] = ((closureN)self_731002)->elements[3];
|
|
c_732520.elements[5] = ((closureN)self_731002)->elements[4];
|
|
c_732520.elements[6] = ((closureN)self_731002)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_732494, &c_732520);;
|
|
}
|
|
|
|
static void __lambda_219(void *data, int argc, object self_731003, object r_73705) {
|
|
|
|
closureN_type c_732522;
|
|
c_732522.hdr.mark = gc_color_red;
|
|
c_732522.hdr.grayed = 0;
|
|
c_732522.tag = closureN_tag;
|
|
c_732522.fn = (function_type)__lambda_218;
|
|
c_732522.num_args = 1;
|
|
c_732522.num_elements = 6;
|
|
c_732522.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732522.elements[0] = ((closureN)self_731003)->elements[0];
|
|
c_732522.elements[1] = ((closureN)self_731003)->elements[1];
|
|
c_732522.elements[2] = ((closureN)self_731003)->elements[2];
|
|
c_732522.elements[3] = ((closureN)self_731003)->elements[3];
|
|
c_732522.elements[4] = ((closureN)self_731003)->elements[4];
|
|
c_732522.elements[5] = ((closureN)self_731003)->elements[5];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_732522, r_73705, ((closureN)self_731003)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_218(void *data, int argc, object self_731004, object r_73704) {
|
|
|
|
closureN_type c_732524;
|
|
c_732524.hdr.mark = gc_color_red;
|
|
c_732524.hdr.grayed = 0;
|
|
c_732524.tag = closureN_tag;
|
|
c_732524.fn = (function_type)__lambda_217;
|
|
c_732524.num_args = 1;
|
|
c_732524.num_elements = 6;
|
|
c_732524.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732524.elements[0] = ((closureN)self_731004)->elements[0];
|
|
c_732524.elements[1] = ((closureN)self_731004)->elements[1];
|
|
c_732524.elements[2] = ((closureN)self_731004)->elements[2];
|
|
c_732524.elements[3] = ((closureN)self_731004)->elements[3];
|
|
c_732524.elements[4] = ((closureN)self_731004)->elements[4];
|
|
c_732524.elements[5] = ((closureN)self_731004)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732524, Cyc_set_car(data, ((closureN)self_731004)->elements[3], r_73704));;
|
|
}
|
|
|
|
static void __lambda_217(void *data, int argc, object self_731005, object r_73702) {
|
|
if( (boolean_f != ((closureN)self_731005)->elements[0]) ){
|
|
|
|
closureN_type c_732527;
|
|
c_732527.hdr.mark = gc_color_red;
|
|
c_732527.hdr.grayed = 0;
|
|
c_732527.tag = closureN_tag;
|
|
c_732527.fn = (function_type)__lambda_216;
|
|
c_732527.num_args = 1;
|
|
c_732527.num_elements = 6;
|
|
c_732527.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732527.elements[0] = ((closureN)self_731005)->elements[0];
|
|
c_732527.elements[1] = ((closureN)self_731005)->elements[1];
|
|
c_732527.elements[2] = ((closureN)self_731005)->elements[2];
|
|
c_732527.elements[3] = ((closureN)self_731005)->elements[3];
|
|
c_732527.elements[4] = ((closureN)self_731005)->elements[4];
|
|
c_732527.elements[5] = ((closureN)self_731005)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732527, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731005)->elements[2], car(cell_get(((closureN)self_731005)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_216(void *data, int argc, object self_731006, object r_73703) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731006)->elements[2], ((closureN)self_731006)->elements[1], r_73703, cell_get(((closureN)self_731006)->elements[3]), ((closureN)self_731006)->elements[0], boolean_f, ((closureN)self_731006)->elements[4], ((closureN)self_731006)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_215(void *data, int argc, object self_731007, object k_73706) {
|
|
|
|
closureN_type c_732496;
|
|
c_732496.hdr.mark = gc_color_red;
|
|
c_732496.hdr.grayed = 0;
|
|
c_732496.tag = closureN_tag;
|
|
c_732496.fn = (function_type)__lambda_211;
|
|
c_732496.num_args = 0;
|
|
c_732496.num_elements = 1;
|
|
c_732496.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732496.elements[0] = ((closureN)self_731007)->elements[1];
|
|
|
|
|
|
closureN_type c_732503;
|
|
c_732503.hdr.mark = gc_color_red;
|
|
c_732503.hdr.grayed = 0;
|
|
c_732503.tag = closureN_tag;
|
|
c_732503.fn = (function_type)__lambda_214;
|
|
c_732503.num_args = 1;
|
|
c_732503.num_elements = 3;
|
|
c_732503.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732503.elements[0] = k_73706;
|
|
c_732503.elements[1] = ((closureN)self_731007)->elements[0];
|
|
c_732503.elements[2] = ((closureN)self_731007)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_732496, &c_732503);;
|
|
}
|
|
|
|
static void __lambda_214(void *data, int argc, object self_731008, object r_73707) {
|
|
if( (boolean_f != r_73707) ){
|
|
|
|
closureN_type c_732505;
|
|
c_732505.hdr.mark = gc_color_red;
|
|
c_732505.hdr.grayed = 0;
|
|
c_732505.tag = closureN_tag;
|
|
c_732505.fn = (function_type)__lambda_213;
|
|
c_732505.num_args = 1;
|
|
c_732505.num_elements = 2;
|
|
c_732505.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732505.elements[0] = ((closureN)self_731008)->elements[0];
|
|
c_732505.elements[1] = ((closureN)self_731008)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732505, ((closureN)self_731008)->elements[1]);
|
|
} else {
|
|
|
|
object c_732518 = Cyc_list2vector(data, ((closureN)self_731008)->elements[0],((closureN)self_731008)->elements[2]);
|
|
return_closcall1(data, ((closureN)self_731008)->elements[0], c_732518);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_213(void *data, int argc, object self_731009, object r_73708) {
|
|
|
|
closureN_type c_732507;
|
|
c_732507.hdr.mark = gc_color_red;
|
|
c_732507.hdr.grayed = 0;
|
|
c_732507.tag = closureN_tag;
|
|
c_732507.fn = (function_type)__lambda_212;
|
|
c_732507.num_args = 1;
|
|
c_732507.num_elements = 2;
|
|
c_732507.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732507.elements[0] = ((closureN)self_731009)->elements[0];
|
|
c_732507.elements[1] = r_73708;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732507, ((closureN)self_731009)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_212(void *data, int argc, object self_731010, object r_73709) {
|
|
|
|
make_string(c_732510, "Invalid vector syntax");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731010)->elements[0], &c_732510, ((closureN)self_731010)->elements[1], r_73709);;
|
|
}
|
|
|
|
static void __lambda_211(void *data, int argc, object self_731011, object k_73710) {
|
|
if( (boolean_f != Cyc_is_pair(((closureN)self_731011)->elements[0])) ){
|
|
return_closcall2(data, __glo_dotted_127_scheme_read, k_73710, ((closureN)self_731011)->elements[0]);
|
|
} else {
|
|
return_closcall1(data, k_73710, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_210(void *data, int argc, object self_731012, object r_73698) {
|
|
|
|
closureN_type c_732330;
|
|
c_732330.hdr.mark = gc_color_red;
|
|
c_732330.hdr.grayed = 0;
|
|
c_732330.tag = closureN_tag;
|
|
c_732330.fn = (function_type)__lambda_209;
|
|
c_732330.num_args = 1;
|
|
c_732330.num_elements = 8;
|
|
c_732330.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732330.elements[0] = ((closureN)self_731012)->elements[0];
|
|
c_732330.elements[1] = ((closureN)self_731012)->elements[1];
|
|
c_732330.elements[2] = ((closureN)self_731012)->elements[2];
|
|
c_732330.elements[3] = ((closureN)self_731012)->elements[3];
|
|
c_732330.elements[4] = ((closureN)self_731012)->elements[4];
|
|
c_732330.elements[5] = ((closureN)self_731012)->elements[5];
|
|
c_732330.elements[6] = ((closureN)self_731012)->elements[6];
|
|
c_732330.elements[7] = ((closureN)self_731012)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732330, Cyc_set_car(data, ((closureN)self_731012)->elements[3], r_73698));;
|
|
}
|
|
|
|
static void __lambda_209(void *data, int argc, object self_731013, object r_73670) {
|
|
|
|
closureN_type c_732332;
|
|
c_732332.hdr.mark = gc_color_red;
|
|
c_732332.hdr.grayed = 0;
|
|
c_732332.tag = closureN_tag;
|
|
c_732332.fn = (function_type)__lambda_184;
|
|
c_732332.num_args = 0;
|
|
c_732332.num_elements = 2;
|
|
c_732332.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732332.elements[0] = ((closureN)self_731013)->elements[3];
|
|
c_732332.elements[1] = ((closureN)self_731013)->elements[5];
|
|
|
|
|
|
closureN_type c_732349;
|
|
c_732349.hdr.mark = gc_color_red;
|
|
c_732349.hdr.grayed = 0;
|
|
c_732349.tag = closureN_tag;
|
|
c_732349.fn = (function_type)__lambda_208;
|
|
c_732349.num_args = 1;
|
|
c_732349.num_elements = 8;
|
|
c_732349.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732349.elements[0] = ((closureN)self_731013)->elements[0];
|
|
c_732349.elements[1] = ((closureN)self_731013)->elements[1];
|
|
c_732349.elements[2] = ((closureN)self_731013)->elements[2];
|
|
c_732349.elements[3] = ((closureN)self_731013)->elements[3];
|
|
c_732349.elements[4] = ((closureN)self_731013)->elements[4];
|
|
c_732349.elements[5] = ((closureN)self_731013)->elements[5];
|
|
c_732349.elements[6] = ((closureN)self_731013)->elements[6];
|
|
c_732349.elements[7] = ((closureN)self_731013)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732332, &c_732349);;
|
|
}
|
|
|
|
static void __lambda_208(void *data, int argc, object self_731014, object r_73671) {
|
|
|
|
closureN_type c_732351;
|
|
c_732351.hdr.mark = gc_color_red;
|
|
c_732351.hdr.grayed = 0;
|
|
c_732351.tag = closureN_tag;
|
|
c_732351.fn = (function_type)__lambda_207;
|
|
c_732351.num_args = 1;
|
|
c_732351.num_elements = 8;
|
|
c_732351.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732351.elements[0] = ((closureN)self_731014)->elements[0];
|
|
c_732351.elements[1] = ((closureN)self_731014)->elements[1];
|
|
c_732351.elements[2] = ((closureN)self_731014)->elements[2];
|
|
c_732351.elements[3] = ((closureN)self_731014)->elements[3];
|
|
c_732351.elements[4] = ((closureN)self_731014)->elements[4];
|
|
c_732351.elements[5] = ((closureN)self_731014)->elements[5];
|
|
c_732351.elements[6] = ((closureN)self_731014)->elements[6];
|
|
c_732351.elements[7] = ((closureN)self_731014)->elements[7];
|
|
|
|
|
|
object c_732463 = Cyc_io_read_char(data,(closure)&c_732351,((closureN)self_731014)->elements[1]);
|
|
return_closcall1(data,(closure)&c_732351, c_732463);;
|
|
}
|
|
|
|
static void __lambda_207(void *data, int argc, object self_731015, object r_73693) {
|
|
|
|
closureN_type c_732353;
|
|
c_732353.hdr.mark = gc_color_red;
|
|
c_732353.hdr.grayed = 0;
|
|
c_732353.tag = closureN_tag;
|
|
c_732353.fn = (function_type)__lambda_206;
|
|
c_732353.num_args = 1;
|
|
c_732353.num_elements = 8;
|
|
c_732353.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732353.elements[0] = ((closureN)self_731015)->elements[0];
|
|
c_732353.elements[1] = ((closureN)self_731015)->elements[1];
|
|
c_732353.elements[2] = ((closureN)self_731015)->elements[2];
|
|
c_732353.elements[3] = ((closureN)self_731015)->elements[3];
|
|
c_732353.elements[4] = ((closureN)self_731015)->elements[4];
|
|
c_732353.elements[5] = ((closureN)self_731015)->elements[5];
|
|
c_732353.elements[6] = ((closureN)self_731015)->elements[6];
|
|
c_732353.elements[7] = ((closureN)self_731015)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732353, Cyc_set_car(data, ((closureN)self_731015)->elements[3], r_73693));;
|
|
}
|
|
|
|
static void __lambda_206(void *data, int argc, object self_731016, object r_73672) {
|
|
|
|
closureN_type c_732355;
|
|
c_732355.hdr.mark = gc_color_red;
|
|
c_732355.hdr.grayed = 0;
|
|
c_732355.tag = closureN_tag;
|
|
c_732355.fn = (function_type)__lambda_187;
|
|
c_732355.num_args = 0;
|
|
c_732355.num_elements = 2;
|
|
c_732355.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732355.elements[0] = ((closureN)self_731016)->elements[3];
|
|
c_732355.elements[1] = ((closureN)self_731016)->elements[5];
|
|
|
|
|
|
closureN_type c_732372;
|
|
c_732372.hdr.mark = gc_color_red;
|
|
c_732372.hdr.grayed = 0;
|
|
c_732372.tag = closureN_tag;
|
|
c_732372.fn = (function_type)__lambda_205;
|
|
c_732372.num_args = 1;
|
|
c_732372.num_elements = 7;
|
|
c_732372.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732372.elements[0] = ((closureN)self_731016)->elements[0];
|
|
c_732372.elements[1] = ((closureN)self_731016)->elements[1];
|
|
c_732372.elements[2] = ((closureN)self_731016)->elements[2];
|
|
c_732372.elements[3] = ((closureN)self_731016)->elements[4];
|
|
c_732372.elements[4] = ((closureN)self_731016)->elements[5];
|
|
c_732372.elements[5] = ((closureN)self_731016)->elements[6];
|
|
c_732372.elements[6] = ((closureN)self_731016)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732355, &c_732372);;
|
|
}
|
|
|
|
static void __lambda_205(void *data, int argc, object self_731017, object r_73673) {
|
|
|
|
closureN_type c_732374;
|
|
c_732374.hdr.mark = gc_color_red;
|
|
c_732374.hdr.grayed = 0;
|
|
c_732374.tag = closureN_tag;
|
|
c_732374.fn = (function_type)__lambda_204;
|
|
c_732374.num_args = 1;
|
|
c_732374.num_elements = 7;
|
|
c_732374.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732374.elements[0] = ((closureN)self_731017)->elements[0];
|
|
c_732374.elements[1] = ((closureN)self_731017)->elements[1];
|
|
c_732374.elements[2] = ((closureN)self_731017)->elements[2];
|
|
c_732374.elements[3] = ((closureN)self_731017)->elements[3];
|
|
c_732374.elements[4] = ((closureN)self_731017)->elements[4];
|
|
c_732374.elements[5] = ((closureN)self_731017)->elements[5];
|
|
c_732374.elements[6] = ((closureN)self_731017)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_732374, NULL);;
|
|
}
|
|
|
|
static void __lambda_204(void *data, int argc, object self_731018, object r_73686) {
|
|
|
|
closureN_type c_732376;
|
|
c_732376.hdr.mark = gc_color_red;
|
|
c_732376.hdr.grayed = 0;
|
|
c_732376.tag = closureN_tag;
|
|
c_732376.fn = (function_type)__lambda_203;
|
|
c_732376.num_args = 1;
|
|
c_732376.num_elements = 8;
|
|
c_732376.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_732376.elements[0] = ((closureN)self_731018)->elements[0];
|
|
c_732376.elements[1] = ((closureN)self_731018)->elements[1];
|
|
c_732376.elements[2] = ((closureN)self_731018)->elements[2];
|
|
c_732376.elements[3] = ((closureN)self_731018)->elements[3];
|
|
c_732376.elements[4] = ((closureN)self_731018)->elements[4];
|
|
c_732376.elements[5] = r_73686;
|
|
c_732376.elements[6] = ((closureN)self_731018)->elements[5];
|
|
c_732376.elements[7] = ((closureN)self_731018)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_732376, NULL);;
|
|
}
|
|
|
|
static void __lambda_203(void *data, int argc, object self_731019, object r_73687) {
|
|
|
|
closureN_type c_732378;
|
|
c_732378.hdr.mark = gc_color_red;
|
|
c_732378.hdr.grayed = 0;
|
|
c_732378.tag = closureN_tag;
|
|
c_732378.fn = (function_type)__lambda_202;
|
|
c_732378.num_args = 1;
|
|
c_732378.num_elements = 9;
|
|
c_732378.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_732378.elements[0] = ((closureN)self_731019)->elements[0];
|
|
c_732378.elements[1] = ((closureN)self_731019)->elements[1];
|
|
c_732378.elements[2] = ((closureN)self_731019)->elements[2];
|
|
c_732378.elements[3] = ((closureN)self_731019)->elements[3];
|
|
c_732378.elements[4] = ((closureN)self_731019)->elements[4];
|
|
c_732378.elements[5] = ((closureN)self_731019)->elements[5];
|
|
c_732378.elements[6] = r_73687;
|
|
c_732378.elements[7] = ((closureN)self_731019)->elements[6];
|
|
c_732378.elements[8] = ((closureN)self_731019)->elements[7];
|
|
|
|
|
|
object c_732456 = Cyc_sum(data,(closure)&c_732378,2,((closureN)self_731019)->elements[3], obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_732378, c_732456);;
|
|
}
|
|
|
|
static void __lambda_202(void *data, int argc, object self_731020, object r_73688) {
|
|
|
|
closureN_type c_732380;
|
|
c_732380.hdr.mark = gc_color_red;
|
|
c_732380.hdr.grayed = 0;
|
|
c_732380.tag = closureN_tag;
|
|
c_732380.fn = (function_type)__lambda_201;
|
|
c_732380.num_args = 1;
|
|
c_732380.num_elements = 7;
|
|
c_732380.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732380.elements[0] = ((closureN)self_731020)->elements[0];
|
|
c_732380.elements[1] = ((closureN)self_731020)->elements[1];
|
|
c_732380.elements[2] = ((closureN)self_731020)->elements[2];
|
|
c_732380.elements[3] = ((closureN)self_731020)->elements[3];
|
|
c_732380.elements[4] = ((closureN)self_731020)->elements[4];
|
|
c_732380.elements[5] = ((closureN)self_731020)->elements[7];
|
|
c_732380.elements[6] = ((closureN)self_731020)->elements[8];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_732380, ((closureN)self_731020)->elements[1], ((closureN)self_731020)->elements[5], ((closureN)self_731020)->elements[6], boolean_t, boolean_f, r_73688, ((closureN)self_731020)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_201(void *data, int argc, object self_731021, object r_73674) {
|
|
|
|
closureN_type c_732382;
|
|
c_732382.hdr.mark = gc_color_red;
|
|
c_732382.hdr.grayed = 0;
|
|
c_732382.tag = closureN_tag;
|
|
c_732382.fn = (function_type)__lambda_200;
|
|
c_732382.num_args = 1;
|
|
c_732382.num_elements = 6;
|
|
c_732382.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732382.elements[0] = ((closureN)self_731021)->elements[0];
|
|
c_732382.elements[1] = ((closureN)self_731021)->elements[1];
|
|
c_732382.elements[2] = ((closureN)self_731021)->elements[2];
|
|
c_732382.elements[3] = ((closureN)self_731021)->elements[3];
|
|
c_732382.elements[4] = ((closureN)self_731021)->elements[4];
|
|
c_732382.elements[5] = r_73674;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_732382, ((closureN)self_731021)->elements[5], ((closureN)self_731021)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_200(void *data, int argc, object self_731022, object r_73675) {
|
|
|
|
closureN_type c_732384;
|
|
c_732384.hdr.mark = gc_color_red;
|
|
c_732384.hdr.grayed = 0;
|
|
c_732384.tag = closureN_tag;
|
|
c_732384.fn = (function_type)__lambda_199;
|
|
c_732384.num_args = 2;
|
|
c_732384.num_elements = 5;
|
|
c_732384.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_732384.elements[0] = ((closureN)self_731022)->elements[0];
|
|
c_732384.elements[1] = ((closureN)self_731022)->elements[1];
|
|
c_732384.elements[2] = ((closureN)self_731022)->elements[2];
|
|
c_732384.elements[3] = ((closureN)self_731022)->elements[3];
|
|
c_732384.elements[4] = ((closureN)self_731022)->elements[4];
|
|
|
|
return_closcall2(data,(closure)&c_732384, ((closureN)self_731022)->elements[5], r_73675);;
|
|
}
|
|
|
|
static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) {
|
|
|
|
closureN_type c_732386;
|
|
c_732386.hdr.mark = gc_color_red;
|
|
c_732386.hdr.grayed = 0;
|
|
c_732386.tag = closureN_tag;
|
|
c_732386.fn = (function_type)__lambda_198;
|
|
c_732386.num_args = 1;
|
|
c_732386.num_elements = 7;
|
|
c_732386.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732386.elements[0] = ((closureN)self_731023)->elements[0];
|
|
c_732386.elements[1] = ((closureN)self_731023)->elements[1];
|
|
c_732386.elements[2] = ((closureN)self_731023)->elements[2];
|
|
c_732386.elements[3] = ((closureN)self_731023)->elements[3];
|
|
c_732386.elements[4] = ((closureN)self_731023)->elements[4];
|
|
c_732386.elements[5] = sub_73212;
|
|
c_732386.elements[6] = toks_85_73211;
|
|
|
|
return_closcall1(data,(closure)&c_732386, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) {
|
|
|
|
closureN_type c_732388;
|
|
c_732388.hdr.mark = gc_color_red;
|
|
c_732388.hdr.grayed = 0;
|
|
c_732388.tag = closureN_tag;
|
|
c_732388.fn = (function_type)__lambda_197;
|
|
c_732388.num_args = 1;
|
|
c_732388.num_elements = 7;
|
|
c_732388.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732388.elements[0] = ((closureN)self_731024)->elements[0];
|
|
c_732388.elements[1] = ((closureN)self_731024)->elements[1];
|
|
c_732388.elements[2] = ((closureN)self_731024)->elements[2];
|
|
c_732388.elements[3] = ((closureN)self_731024)->elements[3];
|
|
c_732388.elements[4] = ((closureN)self_731024)->elements[4];
|
|
c_732388.elements[5] = ((closureN)self_731024)->elements[5];
|
|
c_732388.elements[6] = ((closureN)self_731024)->elements[6];
|
|
|
|
|
|
make_cell(c_732446,new_91toks_73213);
|
|
return_closcall1(data,(closure)&c_732388, &c_732446);;
|
|
}
|
|
|
|
static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) {
|
|
|
|
closureN_type c_732390;
|
|
c_732390.hdr.mark = gc_color_red;
|
|
c_732390.hdr.grayed = 0;
|
|
c_732390.tag = closureN_tag;
|
|
c_732390.fn = (function_type)__lambda_192;
|
|
c_732390.num_args = 0;
|
|
c_732390.num_elements = 2;
|
|
c_732390.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732390.elements[0] = ((closureN)self_731025)->elements[4];
|
|
c_732390.elements[1] = ((closureN)self_731025)->elements[5];
|
|
|
|
|
|
closureN_type c_732416;
|
|
c_732416.hdr.mark = gc_color_red;
|
|
c_732416.hdr.grayed = 0;
|
|
c_732416.tag = closureN_tag;
|
|
c_732416.fn = (function_type)__lambda_196;
|
|
c_732416.num_args = 1;
|
|
c_732416.num_elements = 7;
|
|
c_732416.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732416.elements[0] = ((closureN)self_731025)->elements[0];
|
|
c_732416.elements[1] = ((closureN)self_731025)->elements[1];
|
|
c_732416.elements[2] = ((closureN)self_731025)->elements[2];
|
|
c_732416.elements[3] = new_91toks_73213;
|
|
c_732416.elements[4] = ((closureN)self_731025)->elements[3];
|
|
c_732416.elements[5] = ((closureN)self_731025)->elements[4];
|
|
c_732416.elements[6] = ((closureN)self_731025)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_732390, &c_732416);;
|
|
}
|
|
|
|
static void __lambda_196(void *data, int argc, object self_731026, object r_73679) {
|
|
|
|
closureN_type c_732418;
|
|
c_732418.hdr.mark = gc_color_red;
|
|
c_732418.hdr.grayed = 0;
|
|
c_732418.tag = closureN_tag;
|
|
c_732418.fn = (function_type)__lambda_195;
|
|
c_732418.num_args = 1;
|
|
c_732418.num_elements = 6;
|
|
c_732418.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732418.elements[0] = ((closureN)self_731026)->elements[0];
|
|
c_732418.elements[1] = ((closureN)self_731026)->elements[1];
|
|
c_732418.elements[2] = ((closureN)self_731026)->elements[2];
|
|
c_732418.elements[3] = ((closureN)self_731026)->elements[3];
|
|
c_732418.elements[4] = ((closureN)self_731026)->elements[4];
|
|
c_732418.elements[5] = ((closureN)self_731026)->elements[5];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_732418, r_73679, ((closureN)self_731026)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_195(void *data, int argc, object self_731027, object r_73678) {
|
|
|
|
closureN_type c_732420;
|
|
c_732420.hdr.mark = gc_color_red;
|
|
c_732420.hdr.grayed = 0;
|
|
c_732420.tag = closureN_tag;
|
|
c_732420.fn = (function_type)__lambda_194;
|
|
c_732420.num_args = 1;
|
|
c_732420.num_elements = 6;
|
|
c_732420.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732420.elements[0] = ((closureN)self_731027)->elements[0];
|
|
c_732420.elements[1] = ((closureN)self_731027)->elements[1];
|
|
c_732420.elements[2] = ((closureN)self_731027)->elements[2];
|
|
c_732420.elements[3] = ((closureN)self_731027)->elements[3];
|
|
c_732420.elements[4] = ((closureN)self_731027)->elements[4];
|
|
c_732420.elements[5] = ((closureN)self_731027)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732420, Cyc_set_car(data, ((closureN)self_731027)->elements[3], r_73678));;
|
|
}
|
|
|
|
static void __lambda_194(void *data, int argc, object self_731028, object r_73676) {
|
|
if( (boolean_f != ((closureN)self_731028)->elements[0]) ){
|
|
|
|
closureN_type c_732423;
|
|
c_732423.hdr.mark = gc_color_red;
|
|
c_732423.hdr.grayed = 0;
|
|
c_732423.tag = closureN_tag;
|
|
c_732423.fn = (function_type)__lambda_193;
|
|
c_732423.num_args = 1;
|
|
c_732423.num_elements = 6;
|
|
c_732423.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732423.elements[0] = ((closureN)self_731028)->elements[0];
|
|
c_732423.elements[1] = ((closureN)self_731028)->elements[1];
|
|
c_732423.elements[2] = ((closureN)self_731028)->elements[2];
|
|
c_732423.elements[3] = ((closureN)self_731028)->elements[3];
|
|
c_732423.elements[4] = ((closureN)self_731028)->elements[4];
|
|
c_732423.elements[5] = ((closureN)self_731028)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732423, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731028)->elements[2], car(cell_get(((closureN)self_731028)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_193(void *data, int argc, object self_731029, object r_73677) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731029)->elements[2], ((closureN)self_731029)->elements[1], r_73677, cell_get(((closureN)self_731029)->elements[3]), ((closureN)self_731029)->elements[0], boolean_f, ((closureN)self_731029)->elements[4], ((closureN)self_731029)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_192(void *data, int argc, object self_731030, object k_73680) {
|
|
|
|
closureN_type c_732392;
|
|
c_732392.hdr.mark = gc_color_red;
|
|
c_732392.hdr.grayed = 0;
|
|
c_732392.tag = closureN_tag;
|
|
c_732392.fn = (function_type)__lambda_188;
|
|
c_732392.num_args = 0;
|
|
c_732392.num_elements = 1;
|
|
c_732392.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732392.elements[0] = ((closureN)self_731030)->elements[1];
|
|
|
|
|
|
closureN_type c_732399;
|
|
c_732399.hdr.mark = gc_color_red;
|
|
c_732399.hdr.grayed = 0;
|
|
c_732399.tag = closureN_tag;
|
|
c_732399.fn = (function_type)__lambda_191;
|
|
c_732399.num_args = 1;
|
|
c_732399.num_elements = 3;
|
|
c_732399.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732399.elements[0] = k_73680;
|
|
c_732399.elements[1] = ((closureN)self_731030)->elements[0];
|
|
c_732399.elements[2] = ((closureN)self_731030)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_732392, &c_732399);;
|
|
}
|
|
|
|
static void __lambda_191(void *data, int argc, object self_731031, object r_73681) {
|
|
if( (boolean_f != r_73681) ){
|
|
|
|
closureN_type c_732401;
|
|
c_732401.hdr.mark = gc_color_red;
|
|
c_732401.hdr.grayed = 0;
|
|
c_732401.tag = closureN_tag;
|
|
c_732401.fn = (function_type)__lambda_190;
|
|
c_732401.num_args = 1;
|
|
c_732401.num_elements = 2;
|
|
c_732401.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732401.elements[0] = ((closureN)self_731031)->elements[0];
|
|
c_732401.elements[1] = ((closureN)self_731031)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732401, ((closureN)self_731031)->elements[1]);
|
|
} else {
|
|
|
|
object c_732414 = apply(data, ((closureN)self_731031)->elements[0],primitive_bytevector, ((closureN)self_731031)->elements[2]);
|
|
return_closcall1(data, ((closureN)self_731031)->elements[0], c_732414);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_190(void *data, int argc, object self_731032, object r_73682) {
|
|
|
|
closureN_type c_732403;
|
|
c_732403.hdr.mark = gc_color_red;
|
|
c_732403.hdr.grayed = 0;
|
|
c_732403.tag = closureN_tag;
|
|
c_732403.fn = (function_type)__lambda_189;
|
|
c_732403.num_args = 1;
|
|
c_732403.num_elements = 2;
|
|
c_732403.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732403.elements[0] = ((closureN)self_731032)->elements[0];
|
|
c_732403.elements[1] = r_73682;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732403, ((closureN)self_731032)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_189(void *data, int argc, object self_731033, object r_73683) {
|
|
|
|
make_string(c_732406, "Invalid vector syntax");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731033)->elements[0], &c_732406, ((closureN)self_731033)->elements[1], r_73683);;
|
|
}
|
|
|
|
static void __lambda_188(void *data, int argc, object self_731034, object k_73684) {
|
|
if( (boolean_f != Cyc_is_pair(((closureN)self_731034)->elements[0])) ){
|
|
return_closcall2(data, __glo_dotted_127_scheme_read, k_73684, ((closureN)self_731034)->elements[0]);
|
|
} else {
|
|
return_closcall1(data, k_73684, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_187(void *data, int argc, object self_731035, object k_73689) {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731035)->elements[0]))) ){
|
|
return_closcall1(data, k_73689, boolean_f);
|
|
} else {
|
|
|
|
closureN_type c_732363;
|
|
c_732363.hdr.mark = gc_color_red;
|
|
c_732363.hdr.grayed = 0;
|
|
c_732363.tag = closureN_tag;
|
|
c_732363.fn = (function_type)__lambda_186;
|
|
c_732363.num_args = 1;
|
|
c_732363.num_elements = 2;
|
|
c_732363.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732363.elements[0] = k_73689;
|
|
c_732363.elements[1] = ((closureN)self_731035)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732363, ((closureN)self_731035)->elements[1]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_186(void *data, int argc, object self_731036, object r_73691) {
|
|
|
|
closureN_type c_732365;
|
|
c_732365.hdr.mark = gc_color_red;
|
|
c_732365.hdr.grayed = 0;
|
|
c_732365.tag = closureN_tag;
|
|
c_732365.fn = (function_type)__lambda_185;
|
|
c_732365.num_args = 1;
|
|
c_732365.num_elements = 2;
|
|
c_732365.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732365.elements[0] = ((closureN)self_731036)->elements[0];
|
|
c_732365.elements[1] = r_73691;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732365, ((closureN)self_731036)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_185(void *data, int argc, object self_731037, object r_73692) {
|
|
|
|
make_string(c_732368, "Unhandled input sequence");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731037)->elements[0], &c_732368, ((closureN)self_731037)->elements[1], r_73692);;
|
|
}
|
|
|
|
static void __lambda_184(void *data, int argc, object self_731038, object k_73694) {
|
|
if( (boolean_f != Cyc_eq(obj_char2obj(56), cell_get(((closureN)self_731038)->elements[0]))) ){
|
|
return_closcall1(data, k_73694, boolean_f);
|
|
} else {
|
|
|
|
closureN_type c_732340;
|
|
c_732340.hdr.mark = gc_color_red;
|
|
c_732340.hdr.grayed = 0;
|
|
c_732340.tag = closureN_tag;
|
|
c_732340.fn = (function_type)__lambda_183;
|
|
c_732340.num_args = 1;
|
|
c_732340.num_elements = 2;
|
|
c_732340.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732340.elements[0] = k_73694;
|
|
c_732340.elements[1] = ((closureN)self_731038)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732340, ((closureN)self_731038)->elements[1]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_183(void *data, int argc, object self_731039, object r_73696) {
|
|
|
|
closureN_type c_732342;
|
|
c_732342.hdr.mark = gc_color_red;
|
|
c_732342.hdr.grayed = 0;
|
|
c_732342.tag = closureN_tag;
|
|
c_732342.fn = (function_type)__lambda_182;
|
|
c_732342.num_args = 1;
|
|
c_732342.num_elements = 2;
|
|
c_732342.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732342.elements[0] = ((closureN)self_731039)->elements[0];
|
|
c_732342.elements[1] = r_73696;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732342, ((closureN)self_731039)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_182(void *data, int argc, object self_731040, object r_73697) {
|
|
|
|
make_string(c_732345, "Unhandled input sequence");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731040)->elements[0], &c_732345, ((closureN)self_731040)->elements[1], r_73697);;
|
|
}
|
|
|
|
static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) {
|
|
|
|
closureN_type c_732313;
|
|
c_732313.hdr.mark = gc_color_red;
|
|
c_732313.hdr.grayed = 0;
|
|
c_732313.tag = closureN_tag;
|
|
c_732313.fn = (function_type)__lambda_180;
|
|
c_732313.num_args = 1;
|
|
c_732313.num_elements = 1;
|
|
c_732313.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732313.elements[0] = k_73667;
|
|
|
|
|
|
object c_732321 = Cyc_list2string(data,(closure)&c_732313,num_73214);
|
|
return_closcall1(data,(closure)&c_732313, c_732321);;
|
|
}
|
|
|
|
static void __lambda_180(void *data, int argc, object self_731042, object r_73668) {
|
|
|
|
object c_732318 = Cyc_string2number2_(data, ((closureN)self_731042)->elements[0],2,r_73668, obj_int2obj(16));
|
|
return_closcall1(data, ((closureN)self_731042)->elements[0], c_732318);;
|
|
}
|
|
|
|
static void __lambda_179(void *data, int argc, object self_731043, object r_73666) {
|
|
return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731043)->elements[2], ((closureN)self_731043)->elements[1], ((closureN)self_731043)->elements[5], ((closureN)self_731043)->elements[0], ((closureN)self_731043)->elements[3], ((closureN)self_731043)->elements[4], obj_int2obj(16), r_73666);;
|
|
}
|
|
|
|
static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) {
|
|
|
|
closureN_type c_732288;
|
|
c_732288.hdr.mark = gc_color_red;
|
|
c_732288.hdr.grayed = 0;
|
|
c_732288.tag = closureN_tag;
|
|
c_732288.fn = (function_type)__lambda_177;
|
|
c_732288.num_args = 1;
|
|
c_732288.num_elements = 1;
|
|
c_732288.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732288.elements[0] = k_73663;
|
|
|
|
|
|
object c_732296 = Cyc_list2string(data,(closure)&c_732288,num_73215);
|
|
return_closcall1(data,(closure)&c_732288, c_732296);;
|
|
}
|
|
|
|
static void __lambda_177(void *data, int argc, object self_731045, object r_73664) {
|
|
|
|
object c_732293 = Cyc_string2number2_(data, ((closureN)self_731045)->elements[0],2,r_73664, obj_int2obj(8));
|
|
return_closcall1(data, ((closureN)self_731045)->elements[0], c_732293);;
|
|
}
|
|
|
|
static void __lambda_176(void *data, int argc, object self_731046, object r_73662) {
|
|
return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731046)->elements[2], ((closureN)self_731046)->elements[1], ((closureN)self_731046)->elements[5], ((closureN)self_731046)->elements[0], ((closureN)self_731046)->elements[3], ((closureN)self_731046)->elements[4], obj_int2obj(8), r_73662);;
|
|
}
|
|
|
|
static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) {
|
|
|
|
closureN_type c_732263;
|
|
c_732263.hdr.mark = gc_color_red;
|
|
c_732263.hdr.grayed = 0;
|
|
c_732263.tag = closureN_tag;
|
|
c_732263.fn = (function_type)__lambda_174;
|
|
c_732263.num_args = 1;
|
|
c_732263.num_elements = 1;
|
|
c_732263.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732263.elements[0] = k_73659;
|
|
|
|
|
|
object c_732271 = Cyc_list2string(data,(closure)&c_732263,num_73216);
|
|
return_closcall1(data,(closure)&c_732263, c_732271);;
|
|
}
|
|
|
|
static void __lambda_174(void *data, int argc, object self_731048, object r_73660) {
|
|
|
|
object c_732268 = Cyc_string2number2_(data, ((closureN)self_731048)->elements[0],2,r_73660, obj_int2obj(2));
|
|
return_closcall1(data, ((closureN)self_731048)->elements[0], c_732268);;
|
|
}
|
|
|
|
static void __lambda_173(void *data, int argc, object self_731049, object r_73658) {
|
|
return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731049)->elements[2], ((closureN)self_731049)->elements[1], ((closureN)self_731049)->elements[5], ((closureN)self_731049)->elements[0], ((closureN)self_731049)->elements[3], ((closureN)self_731049)->elements[4], obj_int2obj(2), r_73658);;
|
|
}
|
|
|
|
static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) {
|
|
|
|
closureN_type c_732244;
|
|
c_732244.hdr.mark = gc_color_red;
|
|
c_732244.hdr.grayed = 0;
|
|
c_732244.tag = closureN_tag;
|
|
c_732244.fn = (function_type)__lambda_171;
|
|
c_732244.num_args = 1;
|
|
c_732244.num_elements = 1;
|
|
c_732244.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732244.elements[0] = k_73655;
|
|
|
|
return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732244, num_73217);;
|
|
}
|
|
|
|
static void __lambda_171(void *data, int argc, object self_731051, object r_73656) {
|
|
return_closcall2(data, __glo_inexact_scheme_base, ((closureN)self_731051)->elements[0], r_73656);;
|
|
}
|
|
|
|
static void __lambda_170(void *data, int argc, object self_731052, object r_73654) {
|
|
return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731052)->elements[2], ((closureN)self_731052)->elements[1], ((closureN)self_731052)->elements[5], ((closureN)self_731052)->elements[0], ((closureN)self_731052)->elements[3], ((closureN)self_731052)->elements[4], obj_int2obj(10), r_73654);;
|
|
}
|
|
|
|
static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) {
|
|
|
|
closureN_type c_732225;
|
|
c_732225.hdr.mark = gc_color_red;
|
|
c_732225.hdr.grayed = 0;
|
|
c_732225.tag = closureN_tag;
|
|
c_732225.fn = (function_type)__lambda_168;
|
|
c_732225.num_args = 1;
|
|
c_732225.num_elements = 1;
|
|
c_732225.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732225.elements[0] = k_73651;
|
|
|
|
return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732225, num_73218);;
|
|
}
|
|
|
|
static void __lambda_168(void *data, int argc, object self_731054, object r_73652) {
|
|
return_closcall2(data, __glo_exact_scheme_base, ((closureN)self_731054)->elements[0], r_73652);;
|
|
}
|
|
|
|
static void __lambda_167(void *data, int argc, object self_731055, object r_73650) {
|
|
return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731055)->elements[2], ((closureN)self_731055)->elements[1], ((closureN)self_731055)->elements[5], ((closureN)self_731055)->elements[0], ((closureN)self_731055)->elements[3], ((closureN)self_731055)->elements[4], obj_int2obj(10), r_73650);;
|
|
}
|
|
|
|
static void __lambda_166(void *data, int argc, object self_731056, object r_73647) {
|
|
|
|
make_pair(c_732202,boolean_f, ((closureN)self_731056)->elements[5]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731056)->elements[2], ((closureN)self_731056)->elements[1], r_73647, &c_732202, ((closureN)self_731056)->elements[0], boolean_f, ((closureN)self_731056)->elements[3], ((closureN)self_731056)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_165(void *data, int argc, object self_731057, object r_73644) {
|
|
|
|
make_pair(c_732182,boolean_t, ((closureN)self_731057)->elements[5]);
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731057)->elements[2], ((closureN)self_731057)->elements[1], r_73644, &c_732182, ((closureN)self_731057)->elements[0], boolean_f, ((closureN)self_731057)->elements[3], ((closureN)self_731057)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_164(void *data, int argc, object self_731058, object r_73641) {
|
|
|
|
closureN_type c_732159;
|
|
c_732159.hdr.mark = gc_color_red;
|
|
c_732159.hdr.grayed = 0;
|
|
c_732159.tag = closureN_tag;
|
|
c_732159.fn = (function_type)__lambda_163;
|
|
c_732159.num_args = 1;
|
|
c_732159.num_elements = 6;
|
|
c_732159.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732159.elements[0] = ((closureN)self_731058)->elements[0];
|
|
c_732159.elements[1] = ((closureN)self_731058)->elements[1];
|
|
c_732159.elements[2] = ((closureN)self_731058)->elements[2];
|
|
c_732159.elements[3] = ((closureN)self_731058)->elements[3];
|
|
c_732159.elements[4] = ((closureN)self_731058)->elements[4];
|
|
c_732159.elements[5] = ((closureN)self_731058)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732159, NULL);;
|
|
}
|
|
|
|
static void __lambda_163(void *data, int argc, object self_731059, object r_73642) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731059)->elements[2], ((closureN)self_731059)->elements[1], r_73642, ((closureN)self_731059)->elements[5], ((closureN)self_731059)->elements[0], boolean_f, ((closureN)self_731059)->elements[3], ((closureN)self_731059)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_162(void *data, int argc, object self_731060, object r_73624) {
|
|
if( (boolean_f != r_73624) ){
|
|
|
|
closureN_type c_732074;
|
|
c_732074.hdr.mark = gc_color_red;
|
|
c_732074.hdr.grayed = 0;
|
|
c_732074.tag = closureN_tag;
|
|
c_732074.fn = (function_type)__lambda_152;
|
|
c_732074.num_args = 1;
|
|
c_732074.num_elements = 3;
|
|
c_732074.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732074.elements[0] = ((closureN)self_731060)->elements[3];
|
|
c_732074.elements[1] = ((closureN)self_731060)->elements[6];
|
|
c_732074.elements[2] = ((closureN)self_731060)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732074, ((closureN)self_731060)->elements[5], ((closureN)self_731060)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_732088;
|
|
c_732088.hdr.mark = gc_color_red;
|
|
c_732088.hdr.grayed = 0;
|
|
c_732088.tag = closureN_tag;
|
|
c_732088.fn = (function_type)__lambda_161;
|
|
c_732088.num_args = 1;
|
|
c_732088.num_elements = 7;
|
|
c_732088.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732088.elements[0] = ((closureN)self_731060)->elements[0];
|
|
c_732088.elements[1] = ((closureN)self_731060)->elements[2];
|
|
c_732088.elements[2] = ((closureN)self_731060)->elements[3];
|
|
c_732088.elements[3] = ((closureN)self_731060)->elements[4];
|
|
c_732088.elements[4] = ((closureN)self_731060)->elements[5];
|
|
c_732088.elements[5] = ((closureN)self_731060)->elements[6];
|
|
c_732088.elements[6] = ((closureN)self_731060)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_732088, NULL);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_161(void *data, int argc, object self_731061, object r_73633) {
|
|
|
|
closureN_type c_732090;
|
|
c_732090.hdr.mark = gc_color_red;
|
|
c_732090.hdr.grayed = 0;
|
|
c_732090.tag = closureN_tag;
|
|
c_732090.fn = (function_type)__lambda_160;
|
|
c_732090.num_args = 1;
|
|
c_732090.num_elements = 7;
|
|
c_732090.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732090.elements[0] = ((closureN)self_731061)->elements[0];
|
|
c_732090.elements[1] = ((closureN)self_731061)->elements[1];
|
|
c_732090.elements[2] = ((closureN)self_731061)->elements[2];
|
|
c_732090.elements[3] = ((closureN)self_731061)->elements[3];
|
|
c_732090.elements[4] = ((closureN)self_731061)->elements[4];
|
|
c_732090.elements[5] = ((closureN)self_731061)->elements[5];
|
|
c_732090.elements[6] = ((closureN)self_731061)->elements[6];
|
|
|
|
return_closcall4(data, __glo_read_91str_scheme_read, &c_732090, ((closureN)self_731061)->elements[1], r_73633, ((closureN)self_731061)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_160(void *data, int argc, object self_731062, object r_73628) {
|
|
|
|
closureN_type c_732092;
|
|
c_732092.hdr.mark = gc_color_red;
|
|
c_732092.hdr.grayed = 0;
|
|
c_732092.tag = closureN_tag;
|
|
c_732092.fn = (function_type)__lambda_159;
|
|
c_732092.num_args = 1;
|
|
c_732092.num_elements = 6;
|
|
c_732092.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732092.elements[0] = ((closureN)self_731062)->elements[0];
|
|
c_732092.elements[1] = ((closureN)self_731062)->elements[1];
|
|
c_732092.elements[2] = ((closureN)self_731062)->elements[2];
|
|
c_732092.elements[3] = ((closureN)self_731062)->elements[3];
|
|
c_732092.elements[4] = ((closureN)self_731062)->elements[4];
|
|
c_732092.elements[5] = r_73628;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_732092, ((closureN)self_731062)->elements[5], ((closureN)self_731062)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_159(void *data, int argc, object self_731063, object r_73629) {
|
|
|
|
closureN_type c_732094;
|
|
c_732094.hdr.mark = gc_color_red;
|
|
c_732094.hdr.grayed = 0;
|
|
c_732094.tag = closureN_tag;
|
|
c_732094.fn = (function_type)__lambda_158;
|
|
c_732094.num_args = 2;
|
|
c_732094.num_elements = 5;
|
|
c_732094.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_732094.elements[0] = ((closureN)self_731063)->elements[0];
|
|
c_732094.elements[1] = ((closureN)self_731063)->elements[1];
|
|
c_732094.elements[2] = ((closureN)self_731063)->elements[2];
|
|
c_732094.elements[3] = ((closureN)self_731063)->elements[3];
|
|
c_732094.elements[4] = ((closureN)self_731063)->elements[4];
|
|
|
|
return_closcall2(data,(closure)&c_732094, ((closureN)self_731063)->elements[5], r_73629);;
|
|
}
|
|
|
|
static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) {
|
|
|
|
closureN_type c_732096;
|
|
c_732096.hdr.mark = gc_color_red;
|
|
c_732096.hdr.grayed = 0;
|
|
c_732096.tag = closureN_tag;
|
|
c_732096.fn = (function_type)__lambda_157;
|
|
c_732096.num_args = 1;
|
|
c_732096.num_elements = 7;
|
|
c_732096.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732096.elements[0] = ((closureN)self_731064)->elements[0];
|
|
c_732096.elements[1] = ((closureN)self_731064)->elements[1];
|
|
c_732096.elements[2] = ((closureN)self_731064)->elements[2];
|
|
c_732096.elements[3] = ((closureN)self_731064)->elements[3];
|
|
c_732096.elements[4] = ((closureN)self_731064)->elements[4];
|
|
c_732096.elements[5] = str_73220;
|
|
c_732096.elements[6] = toks_85_73219;
|
|
|
|
return_closcall1(data,(closure)&c_732096, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) {
|
|
|
|
closureN_type c_732098;
|
|
c_732098.hdr.mark = gc_color_red;
|
|
c_732098.hdr.grayed = 0;
|
|
c_732098.tag = closureN_tag;
|
|
c_732098.fn = (function_type)__lambda_156;
|
|
c_732098.num_args = 1;
|
|
c_732098.num_elements = 7;
|
|
c_732098.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_732098.elements[0] = ((closureN)self_731065)->elements[0];
|
|
c_732098.elements[1] = ((closureN)self_731065)->elements[1];
|
|
c_732098.elements[2] = ((closureN)self_731065)->elements[2];
|
|
c_732098.elements[3] = ((closureN)self_731065)->elements[3];
|
|
c_732098.elements[4] = ((closureN)self_731065)->elements[4];
|
|
c_732098.elements[5] = ((closureN)self_731065)->elements[5];
|
|
c_732098.elements[6] = ((closureN)self_731065)->elements[6];
|
|
|
|
|
|
make_cell(c_732129,new_91toks_73221);
|
|
return_closcall1(data,(closure)&c_732098, &c_732129);;
|
|
}
|
|
|
|
static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) {
|
|
|
|
closureN_type c_732100;
|
|
c_732100.hdr.mark = gc_color_red;
|
|
c_732100.hdr.grayed = 0;
|
|
c_732100.tag = closureN_tag;
|
|
c_732100.fn = (function_type)__lambda_155;
|
|
c_732100.num_args = 1;
|
|
c_732100.num_elements = 6;
|
|
c_732100.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732100.elements[0] = ((closureN)self_731066)->elements[0];
|
|
c_732100.elements[1] = ((closureN)self_731066)->elements[1];
|
|
c_732100.elements[2] = ((closureN)self_731066)->elements[2];
|
|
c_732100.elements[3] = new_91toks_73221;
|
|
c_732100.elements[4] = ((closureN)self_731066)->elements[3];
|
|
c_732100.elements[5] = ((closureN)self_731066)->elements[4];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_732100, ((closureN)self_731066)->elements[5], ((closureN)self_731066)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_155(void *data, int argc, object self_731067, object r_73632) {
|
|
|
|
closureN_type c_732102;
|
|
c_732102.hdr.mark = gc_color_red;
|
|
c_732102.hdr.grayed = 0;
|
|
c_732102.tag = closureN_tag;
|
|
c_732102.fn = (function_type)__lambda_154;
|
|
c_732102.num_args = 1;
|
|
c_732102.num_elements = 6;
|
|
c_732102.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732102.elements[0] = ((closureN)self_731067)->elements[0];
|
|
c_732102.elements[1] = ((closureN)self_731067)->elements[1];
|
|
c_732102.elements[2] = ((closureN)self_731067)->elements[2];
|
|
c_732102.elements[3] = ((closureN)self_731067)->elements[3];
|
|
c_732102.elements[4] = ((closureN)self_731067)->elements[4];
|
|
c_732102.elements[5] = ((closureN)self_731067)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732102, Cyc_set_car(data, ((closureN)self_731067)->elements[3], r_73632));;
|
|
}
|
|
|
|
static void __lambda_154(void *data, int argc, object self_731068, object r_73630) {
|
|
if( (boolean_f != ((closureN)self_731068)->elements[0]) ){
|
|
|
|
closureN_type c_732105;
|
|
c_732105.hdr.mark = gc_color_red;
|
|
c_732105.hdr.grayed = 0;
|
|
c_732105.tag = closureN_tag;
|
|
c_732105.fn = (function_type)__lambda_153;
|
|
c_732105.num_args = 1;
|
|
c_732105.num_elements = 6;
|
|
c_732105.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_732105.elements[0] = ((closureN)self_731068)->elements[0];
|
|
c_732105.elements[1] = ((closureN)self_731068)->elements[1];
|
|
c_732105.elements[2] = ((closureN)self_731068)->elements[2];
|
|
c_732105.elements[3] = ((closureN)self_731068)->elements[3];
|
|
c_732105.elements[4] = ((closureN)self_731068)->elements[4];
|
|
c_732105.elements[5] = ((closureN)self_731068)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_732105, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731068)->elements[2], car(cell_get(((closureN)self_731068)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_153(void *data, int argc, object self_731069, object r_73631) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731069)->elements[2], ((closureN)self_731069)->elements[1], r_73631, cell_get(((closureN)self_731069)->elements[3]), ((closureN)self_731069)->elements[0], boolean_f, ((closureN)self_731069)->elements[4], ((closureN)self_731069)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_152(void *data, int argc, object self_731070, object r_73625) {
|
|
|
|
closureN_type c_732076;
|
|
c_732076.hdr.mark = gc_color_red;
|
|
c_732076.hdr.grayed = 0;
|
|
c_732076.tag = closureN_tag;
|
|
c_732076.fn = (function_type)__lambda_151;
|
|
c_732076.num_args = 1;
|
|
c_732076.num_elements = 2;
|
|
c_732076.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732076.elements[0] = ((closureN)self_731070)->elements[0];
|
|
c_732076.elements[1] = ((closureN)self_731070)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_732076, ((closureN)self_731070)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_151(void *data, int argc, object self_731071, object r_73627) {
|
|
|
|
closureN_type c_732078;
|
|
c_732078.hdr.mark = gc_color_red;
|
|
c_732078.hdr.grayed = 0;
|
|
c_732078.tag = closureN_tag;
|
|
c_732078.fn = (function_type)__lambda_150;
|
|
c_732078.num_args = 1;
|
|
c_732078.num_elements = 1;
|
|
c_732078.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732078.elements[0] = ((closureN)self_731071)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_732078, r_73627, ((closureN)self_731071)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_150(void *data, int argc, object self_731072, object r_73626) {
|
|
return_closcall1(data, ((closureN)self_731072)->elements[0], car(r_73626));;
|
|
}
|
|
|
|
static void __lambda_149(void *data, int argc, object self_731073, object k_73634) {
|
|
if( (boolean_f != ((closureN)self_731073)->elements[0]) ){
|
|
return_closcall1(data, k_73634, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73634, Cyc_is_null(((closureN)self_731073)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_148(void *data, int argc, object self_731074, object r_73613) {
|
|
if( (boolean_f != r_73613) ){
|
|
|
|
closureN_type c_732026;
|
|
c_732026.hdr.mark = gc_color_red;
|
|
c_732026.hdr.grayed = 0;
|
|
c_732026.tag = closureN_tag;
|
|
c_732026.fn = (function_type)__lambda_143;
|
|
c_732026.num_args = 1;
|
|
c_732026.num_elements = 3;
|
|
c_732026.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_732026.elements[0] = ((closureN)self_731074)->elements[1];
|
|
c_732026.elements[1] = ((closureN)self_731074)->elements[4];
|
|
c_732026.elements[2] = ((closureN)self_731074)->elements[5];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732026, ((closureN)self_731074)->elements[3], ((closureN)self_731074)->elements[0]);
|
|
} else {
|
|
|
|
closureN_type c_732040;
|
|
c_732040.hdr.mark = gc_color_red;
|
|
c_732040.hdr.grayed = 0;
|
|
c_732040.tag = closureN_tag;
|
|
c_732040.fn = (function_type)__lambda_147;
|
|
c_732040.num_args = 1;
|
|
c_732040.num_elements = 4;
|
|
c_732040.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_732040.elements[0] = ((closureN)self_731074)->elements[1];
|
|
c_732040.elements[1] = ((closureN)self_731074)->elements[3];
|
|
c_732040.elements[2] = ((closureN)self_731074)->elements[4];
|
|
c_732040.elements[3] = ((closureN)self_731074)->elements[5];
|
|
|
|
|
|
object c_732059 = Cyc_num_eq(data,(closure)&c_732040,2,((closureN)self_731074)->elements[2], obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_732040, c_732059);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_147(void *data, int argc, object self_731075, object r_73617) {
|
|
if( (boolean_f != r_73617) ){
|
|
|
|
closureN_type c_732042;
|
|
c_732042.hdr.mark = gc_color_red;
|
|
c_732042.hdr.grayed = 0;
|
|
c_732042.tag = closureN_tag;
|
|
c_732042.fn = (function_type)__lambda_145;
|
|
c_732042.num_args = 1;
|
|
c_732042.num_elements = 2;
|
|
c_732042.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732042.elements[0] = ((closureN)self_731075)->elements[0];
|
|
c_732042.elements[1] = ((closureN)self_731075)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732042, ((closureN)self_731075)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_732052;
|
|
c_732052.hdr.mark = gc_color_red;
|
|
c_732052.hdr.grayed = 0;
|
|
c_732052.tag = closureN_tag;
|
|
c_732052.fn = (function_type)__lambda_146;
|
|
c_732052.num_args = 1;
|
|
c_732052.num_elements = 1;
|
|
c_732052.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732052.elements[0] = ((closureN)self_731075)->elements[0];
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_732052, ((closureN)self_731075)->elements[2], ((closureN)self_731075)->elements[3]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_146(void *data, int argc, object self_731076, object r_73620) {
|
|
return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731076)->elements[0], r_73620);;
|
|
}
|
|
|
|
static void __lambda_145(void *data, int argc, object self_731077, object r_73618) {
|
|
|
|
closureN_type c_732044;
|
|
c_732044.hdr.mark = gc_color_red;
|
|
c_732044.hdr.grayed = 0;
|
|
c_732044.tag = closureN_tag;
|
|
c_732044.fn = (function_type)__lambda_144;
|
|
c_732044.num_args = 1;
|
|
c_732044.num_elements = 2;
|
|
c_732044.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732044.elements[0] = ((closureN)self_731077)->elements[0];
|
|
c_732044.elements[1] = r_73618;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732044, ((closureN)self_731077)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_144(void *data, int argc, object self_731078, object r_73619) {
|
|
|
|
make_string(c_732047, "unexpected closing parenthesis");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731078)->elements[0], &c_732047, ((closureN)self_731078)->elements[1], r_73619);;
|
|
}
|
|
|
|
static void __lambda_143(void *data, int argc, object self_731079, object r_73614) {
|
|
|
|
closureN_type c_732028;
|
|
c_732028.hdr.mark = gc_color_red;
|
|
c_732028.hdr.grayed = 0;
|
|
c_732028.tag = closureN_tag;
|
|
c_732028.fn = (function_type)__lambda_142;
|
|
c_732028.num_args = 1;
|
|
c_732028.num_elements = 2;
|
|
c_732028.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_732028.elements[0] = ((closureN)self_731079)->elements[0];
|
|
c_732028.elements[1] = ((closureN)self_731079)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_732028, ((closureN)self_731079)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_142(void *data, int argc, object self_731080, object r_73616) {
|
|
|
|
closureN_type c_732030;
|
|
c_732030.hdr.mark = gc_color_red;
|
|
c_732030.hdr.grayed = 0;
|
|
c_732030.tag = closureN_tag;
|
|
c_732030.fn = (function_type)__lambda_141;
|
|
c_732030.num_args = 1;
|
|
c_732030.num_elements = 1;
|
|
c_732030.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_732030.elements[0] = ((closureN)self_731080)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_732030, r_73616, ((closureN)self_731080)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_141(void *data, int argc, object self_731081, object r_73615) {
|
|
return_closcall1(data, ((closureN)self_731081)->elements[0], car(r_73615));;
|
|
}
|
|
|
|
static void __lambda_140(void *data, int argc, object self_731082, object k_73621) {
|
|
if( (boolean_f != ((closureN)self_731082)->elements[0]) ){
|
|
return_closcall1(data, k_73621, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73621, Cyc_is_null(((closureN)self_731082)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_139(void *data, int argc, object self_731083, object r_73593) {
|
|
if( (boolean_f != r_73593) ){
|
|
|
|
closureN_type c_731925;
|
|
c_731925.hdr.mark = gc_color_red;
|
|
c_731925.hdr.grayed = 0;
|
|
c_731925.tag = closureN_tag;
|
|
c_731925.fn = (function_type)__lambda_123;
|
|
c_731925.num_args = 1;
|
|
c_731925.num_elements = 3;
|
|
c_731925.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731925.elements[0] = ((closureN)self_731083)->elements[3];
|
|
c_731925.elements[1] = ((closureN)self_731083)->elements[6];
|
|
c_731925.elements[2] = ((closureN)self_731083)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731925, ((closureN)self_731083)->elements[5], ((closureN)self_731083)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_731939;
|
|
c_731939.hdr.mark = gc_color_red;
|
|
c_731939.hdr.grayed = 0;
|
|
c_731939.tag = closureN_tag;
|
|
c_731939.fn = (function_type)__lambda_138;
|
|
c_731939.num_args = 1;
|
|
c_731939.num_elements = 7;
|
|
c_731939.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731939.elements[0] = ((closureN)self_731083)->elements[0];
|
|
c_731939.elements[1] = ((closureN)self_731083)->elements[2];
|
|
c_731939.elements[2] = ((closureN)self_731083)->elements[3];
|
|
c_731939.elements[3] = ((closureN)self_731083)->elements[4];
|
|
c_731939.elements[4] = ((closureN)self_731083)->elements[5];
|
|
c_731939.elements[5] = ((closureN)self_731083)->elements[6];
|
|
c_731939.elements[6] = ((closureN)self_731083)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731939, NULL);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_138(void *data, int argc, object self_731084, object r_73607) {
|
|
|
|
closureN_type c_731941;
|
|
c_731941.hdr.mark = gc_color_red;
|
|
c_731941.hdr.grayed = 0;
|
|
c_731941.tag = closureN_tag;
|
|
c_731941.fn = (function_type)__lambda_137;
|
|
c_731941.num_args = 1;
|
|
c_731941.num_elements = 8;
|
|
c_731941.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731941.elements[0] = ((closureN)self_731084)->elements[0];
|
|
c_731941.elements[1] = ((closureN)self_731084)->elements[1];
|
|
c_731941.elements[2] = ((closureN)self_731084)->elements[2];
|
|
c_731941.elements[3] = ((closureN)self_731084)->elements[3];
|
|
c_731941.elements[4] = ((closureN)self_731084)->elements[4];
|
|
c_731941.elements[5] = r_73607;
|
|
c_731941.elements[6] = ((closureN)self_731084)->elements[5];
|
|
c_731941.elements[7] = ((closureN)self_731084)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_731941, NULL);;
|
|
}
|
|
|
|
static void __lambda_137(void *data, int argc, object self_731085, object r_73608) {
|
|
|
|
closureN_type c_731943;
|
|
c_731943.hdr.mark = gc_color_red;
|
|
c_731943.hdr.grayed = 0;
|
|
c_731943.tag = closureN_tag;
|
|
c_731943.fn = (function_type)__lambda_136;
|
|
c_731943.num_args = 1;
|
|
c_731943.num_elements = 9;
|
|
c_731943.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731943.elements[0] = ((closureN)self_731085)->elements[0];
|
|
c_731943.elements[1] = ((closureN)self_731085)->elements[1];
|
|
c_731943.elements[2] = ((closureN)self_731085)->elements[2];
|
|
c_731943.elements[3] = ((closureN)self_731085)->elements[3];
|
|
c_731943.elements[4] = ((closureN)self_731085)->elements[4];
|
|
c_731943.elements[5] = ((closureN)self_731085)->elements[5];
|
|
c_731943.elements[6] = r_73608;
|
|
c_731943.elements[7] = ((closureN)self_731085)->elements[6];
|
|
c_731943.elements[8] = ((closureN)self_731085)->elements[7];
|
|
|
|
|
|
object c_732011 = Cyc_sum(data,(closure)&c_731943,2,((closureN)self_731085)->elements[3], obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_731943, c_732011);;
|
|
}
|
|
|
|
static void __lambda_136(void *data, int argc, object self_731086, object r_73609) {
|
|
|
|
closureN_type c_731945;
|
|
c_731945.hdr.mark = gc_color_red;
|
|
c_731945.hdr.grayed = 0;
|
|
c_731945.tag = closureN_tag;
|
|
c_731945.fn = (function_type)__lambda_135;
|
|
c_731945.num_args = 1;
|
|
c_731945.num_elements = 7;
|
|
c_731945.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731945.elements[0] = ((closureN)self_731086)->elements[0];
|
|
c_731945.elements[1] = ((closureN)self_731086)->elements[1];
|
|
c_731945.elements[2] = ((closureN)self_731086)->elements[2];
|
|
c_731945.elements[3] = ((closureN)self_731086)->elements[3];
|
|
c_731945.elements[4] = ((closureN)self_731086)->elements[4];
|
|
c_731945.elements[5] = ((closureN)self_731086)->elements[7];
|
|
c_731945.elements[6] = ((closureN)self_731086)->elements[8];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_731945, ((closureN)self_731086)->elements[1], ((closureN)self_731086)->elements[5], ((closureN)self_731086)->elements[6], boolean_t, boolean_f, r_73609, ((closureN)self_731086)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_135(void *data, int argc, object self_731087, object r_73597) {
|
|
|
|
closureN_type c_731947;
|
|
c_731947.hdr.mark = gc_color_red;
|
|
c_731947.hdr.grayed = 0;
|
|
c_731947.tag = closureN_tag;
|
|
c_731947.fn = (function_type)__lambda_134;
|
|
c_731947.num_args = 1;
|
|
c_731947.num_elements = 6;
|
|
c_731947.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731947.elements[0] = ((closureN)self_731087)->elements[0];
|
|
c_731947.elements[1] = ((closureN)self_731087)->elements[1];
|
|
c_731947.elements[2] = ((closureN)self_731087)->elements[2];
|
|
c_731947.elements[3] = ((closureN)self_731087)->elements[3];
|
|
c_731947.elements[4] = ((closureN)self_731087)->elements[4];
|
|
c_731947.elements[5] = r_73597;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_731947, ((closureN)self_731087)->elements[5], ((closureN)self_731087)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_134(void *data, int argc, object self_731088, object r_73598) {
|
|
|
|
closureN_type c_731949;
|
|
c_731949.hdr.mark = gc_color_red;
|
|
c_731949.hdr.grayed = 0;
|
|
c_731949.tag = closureN_tag;
|
|
c_731949.fn = (function_type)__lambda_133;
|
|
c_731949.num_args = 2;
|
|
c_731949.num_elements = 5;
|
|
c_731949.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_731949.elements[0] = ((closureN)self_731088)->elements[0];
|
|
c_731949.elements[1] = ((closureN)self_731088)->elements[1];
|
|
c_731949.elements[2] = ((closureN)self_731088)->elements[2];
|
|
c_731949.elements[3] = ((closureN)self_731088)->elements[3];
|
|
c_731949.elements[4] = ((closureN)self_731088)->elements[4];
|
|
|
|
return_closcall2(data,(closure)&c_731949, ((closureN)self_731088)->elements[5], r_73598);;
|
|
}
|
|
|
|
static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) {
|
|
|
|
closureN_type c_731951;
|
|
c_731951.hdr.mark = gc_color_red;
|
|
c_731951.hdr.grayed = 0;
|
|
c_731951.tag = closureN_tag;
|
|
c_731951.fn = (function_type)__lambda_132;
|
|
c_731951.num_args = 1;
|
|
c_731951.num_elements = 7;
|
|
c_731951.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731951.elements[0] = ((closureN)self_731089)->elements[0];
|
|
c_731951.elements[1] = ((closureN)self_731089)->elements[1];
|
|
c_731951.elements[2] = ((closureN)self_731089)->elements[2];
|
|
c_731951.elements[3] = ((closureN)self_731089)->elements[3];
|
|
c_731951.elements[4] = ((closureN)self_731089)->elements[4];
|
|
c_731951.elements[5] = sub_73223;
|
|
c_731951.elements[6] = toks_85_73222;
|
|
|
|
return_closcall1(data,(closure)&c_731951, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) {
|
|
|
|
closureN_type c_731953;
|
|
c_731953.hdr.mark = gc_color_red;
|
|
c_731953.hdr.grayed = 0;
|
|
c_731953.tag = closureN_tag;
|
|
c_731953.fn = (function_type)__lambda_131;
|
|
c_731953.num_args = 1;
|
|
c_731953.num_elements = 7;
|
|
c_731953.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731953.elements[0] = ((closureN)self_731090)->elements[0];
|
|
c_731953.elements[1] = ((closureN)self_731090)->elements[1];
|
|
c_731953.elements[2] = ((closureN)self_731090)->elements[2];
|
|
c_731953.elements[3] = ((closureN)self_731090)->elements[3];
|
|
c_731953.elements[4] = ((closureN)self_731090)->elements[4];
|
|
c_731953.elements[5] = ((closureN)self_731090)->elements[5];
|
|
c_731953.elements[6] = ((closureN)self_731090)->elements[6];
|
|
|
|
|
|
make_cell(c_732001,new_91toks_73224);
|
|
return_closcall1(data,(closure)&c_731953, &c_732001);;
|
|
}
|
|
|
|
static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) {
|
|
|
|
closureN_type c_731955;
|
|
c_731955.hdr.mark = gc_color_red;
|
|
c_731955.hdr.grayed = 0;
|
|
c_731955.tag = closureN_tag;
|
|
c_731955.fn = (function_type)__lambda_126;
|
|
c_731955.num_args = 0;
|
|
c_731955.num_elements = 1;
|
|
c_731955.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731955.elements[0] = ((closureN)self_731091)->elements[5];
|
|
|
|
|
|
closureN_type c_731971;
|
|
c_731971.hdr.mark = gc_color_red;
|
|
c_731971.hdr.grayed = 0;
|
|
c_731971.tag = closureN_tag;
|
|
c_731971.fn = (function_type)__lambda_130;
|
|
c_731971.num_args = 1;
|
|
c_731971.num_elements = 7;
|
|
c_731971.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731971.elements[0] = ((closureN)self_731091)->elements[0];
|
|
c_731971.elements[1] = ((closureN)self_731091)->elements[1];
|
|
c_731971.elements[2] = ((closureN)self_731091)->elements[2];
|
|
c_731971.elements[3] = new_91toks_73224;
|
|
c_731971.elements[4] = ((closureN)self_731091)->elements[3];
|
|
c_731971.elements[5] = ((closureN)self_731091)->elements[4];
|
|
c_731971.elements[6] = ((closureN)self_731091)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_731955, &c_731971);;
|
|
}
|
|
|
|
static void __lambda_130(void *data, int argc, object self_731092, object r_73602) {
|
|
|
|
closureN_type c_731973;
|
|
c_731973.hdr.mark = gc_color_red;
|
|
c_731973.hdr.grayed = 0;
|
|
c_731973.tag = closureN_tag;
|
|
c_731973.fn = (function_type)__lambda_129;
|
|
c_731973.num_args = 1;
|
|
c_731973.num_elements = 6;
|
|
c_731973.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731973.elements[0] = ((closureN)self_731092)->elements[0];
|
|
c_731973.elements[1] = ((closureN)self_731092)->elements[1];
|
|
c_731973.elements[2] = ((closureN)self_731092)->elements[2];
|
|
c_731973.elements[3] = ((closureN)self_731092)->elements[3];
|
|
c_731973.elements[4] = ((closureN)self_731092)->elements[4];
|
|
c_731973.elements[5] = ((closureN)self_731092)->elements[5];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731973, r_73602, ((closureN)self_731092)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_129(void *data, int argc, object self_731093, object r_73601) {
|
|
|
|
closureN_type c_731975;
|
|
c_731975.hdr.mark = gc_color_red;
|
|
c_731975.hdr.grayed = 0;
|
|
c_731975.tag = closureN_tag;
|
|
c_731975.fn = (function_type)__lambda_128;
|
|
c_731975.num_args = 1;
|
|
c_731975.num_elements = 6;
|
|
c_731975.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731975.elements[0] = ((closureN)self_731093)->elements[0];
|
|
c_731975.elements[1] = ((closureN)self_731093)->elements[1];
|
|
c_731975.elements[2] = ((closureN)self_731093)->elements[2];
|
|
c_731975.elements[3] = ((closureN)self_731093)->elements[3];
|
|
c_731975.elements[4] = ((closureN)self_731093)->elements[4];
|
|
c_731975.elements[5] = ((closureN)self_731093)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731975, Cyc_set_car(data, ((closureN)self_731093)->elements[3], r_73601));;
|
|
}
|
|
|
|
static void __lambda_128(void *data, int argc, object self_731094, object r_73599) {
|
|
if( (boolean_f != ((closureN)self_731094)->elements[0]) ){
|
|
|
|
closureN_type c_731978;
|
|
c_731978.hdr.mark = gc_color_red;
|
|
c_731978.hdr.grayed = 0;
|
|
c_731978.tag = closureN_tag;
|
|
c_731978.fn = (function_type)__lambda_127;
|
|
c_731978.num_args = 1;
|
|
c_731978.num_elements = 6;
|
|
c_731978.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731978.elements[0] = ((closureN)self_731094)->elements[0];
|
|
c_731978.elements[1] = ((closureN)self_731094)->elements[1];
|
|
c_731978.elements[2] = ((closureN)self_731094)->elements[2];
|
|
c_731978.elements[3] = ((closureN)self_731094)->elements[3];
|
|
c_731978.elements[4] = ((closureN)self_731094)->elements[4];
|
|
c_731978.elements[5] = ((closureN)self_731094)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731978, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731094)->elements[2], car(cell_get(((closureN)self_731094)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_127(void *data, int argc, object self_731095, object r_73600) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731095)->elements[2], ((closureN)self_731095)->elements[1], r_73600, cell_get(((closureN)self_731095)->elements[3]), ((closureN)self_731095)->elements[0], boolean_f, ((closureN)self_731095)->elements[4], ((closureN)self_731095)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_126(void *data, int argc, object self_731096, object k_73603) {
|
|
|
|
closureN_type c_731957;
|
|
c_731957.hdr.mark = gc_color_red;
|
|
c_731957.hdr.grayed = 0;
|
|
c_731957.tag = closureN_tag;
|
|
c_731957.fn = (function_type)__lambda_124;
|
|
c_731957.num_args = 0;
|
|
c_731957.num_elements = 1;
|
|
c_731957.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731957.elements[0] = ((closureN)self_731096)->elements[0];
|
|
|
|
|
|
closureN_type c_731964;
|
|
c_731964.hdr.mark = gc_color_red;
|
|
c_731964.hdr.grayed = 0;
|
|
c_731964.tag = closureN_tag;
|
|
c_731964.fn = (function_type)__lambda_125;
|
|
c_731964.num_args = 1;
|
|
c_731964.num_elements = 2;
|
|
c_731964.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731964.elements[0] = k_73603;
|
|
c_731964.elements[1] = ((closureN)self_731096)->elements[0];
|
|
|
|
return_closcall1(data,(closure)&c_731957, &c_731964);;
|
|
}
|
|
|
|
static void __lambda_125(void *data, int argc, object self_731097, object r_73604) {
|
|
if( (boolean_f != r_73604) ){
|
|
return_closcall2(data, __glo__91_125dotted_91list_scheme_read, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_124(void *data, int argc, object self_731098, object k_73605) {
|
|
if( (boolean_f != Cyc_is_pair(((closureN)self_731098)->elements[0])) ){
|
|
return_closcall2(data, __glo_dotted_127_scheme_read, k_73605, ((closureN)self_731098)->elements[0]);
|
|
} else {
|
|
return_closcall1(data, k_73605, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_123(void *data, int argc, object self_731099, object r_73594) {
|
|
|
|
closureN_type c_731927;
|
|
c_731927.hdr.mark = gc_color_red;
|
|
c_731927.hdr.grayed = 0;
|
|
c_731927.tag = closureN_tag;
|
|
c_731927.fn = (function_type)__lambda_122;
|
|
c_731927.num_args = 1;
|
|
c_731927.num_elements = 2;
|
|
c_731927.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731927.elements[0] = ((closureN)self_731099)->elements[0];
|
|
c_731927.elements[1] = ((closureN)self_731099)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731927, ((closureN)self_731099)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_122(void *data, int argc, object self_731100, object r_73596) {
|
|
|
|
closureN_type c_731929;
|
|
c_731929.hdr.mark = gc_color_red;
|
|
c_731929.hdr.grayed = 0;
|
|
c_731929.tag = closureN_tag;
|
|
c_731929.fn = (function_type)__lambda_121;
|
|
c_731929.num_args = 1;
|
|
c_731929.num_elements = 1;
|
|
c_731929.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731929.elements[0] = ((closureN)self_731100)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731929, r_73596, ((closureN)self_731100)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_121(void *data, int argc, object self_731101, object r_73595) {
|
|
return_closcall1(data, ((closureN)self_731101)->elements[0], car(r_73595));;
|
|
}
|
|
|
|
static void __lambda_120(void *data, int argc, object self_731102, object k_73610) {
|
|
if( (boolean_f != ((closureN)self_731102)->elements[0]) ){
|
|
return_closcall1(data, k_73610, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73610, Cyc_is_null(((closureN)self_731102)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_119(void *data, int argc, object self_731103, object r_73563) {
|
|
if( (boolean_f != r_73563) ){
|
|
|
|
closureN_type c_731756;
|
|
c_731756.hdr.mark = gc_color_red;
|
|
c_731756.hdr.grayed = 0;
|
|
c_731756.tag = closureN_tag;
|
|
c_731756.fn = (function_type)__lambda_93;
|
|
c_731756.num_args = 1;
|
|
c_731756.num_elements = 3;
|
|
c_731756.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731756.elements[0] = ((closureN)self_731103)->elements[3];
|
|
c_731756.elements[1] = ((closureN)self_731103)->elements[6];
|
|
c_731756.elements[2] = ((closureN)self_731103)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731756, ((closureN)self_731103)->elements[5], ((closureN)self_731103)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_731770;
|
|
c_731770.hdr.mark = gc_color_red;
|
|
c_731770.hdr.grayed = 0;
|
|
c_731770.tag = closureN_tag;
|
|
c_731770.fn = (function_type)__lambda_118;
|
|
c_731770.num_args = 4;
|
|
c_731770.num_elements = 7;
|
|
c_731770.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731770.elements[0] = ((closureN)self_731103)->elements[0];
|
|
c_731770.elements[1] = ((closureN)self_731103)->elements[2];
|
|
c_731770.elements[2] = ((closureN)self_731103)->elements[3];
|
|
c_731770.elements[3] = ((closureN)self_731103)->elements[4];
|
|
c_731770.elements[4] = ((closureN)self_731103)->elements[5];
|
|
c_731770.elements[5] = ((closureN)self_731103)->elements[6];
|
|
c_731770.elements[6] = ((closureN)self_731103)->elements[7];
|
|
|
|
return_closcall4(data,(closure)&c_731770, boolean_f, boolean_f, boolean_f, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) {
|
|
|
|
closureN_type c_731772;
|
|
c_731772.hdr.mark = gc_color_red;
|
|
c_731772.hdr.grayed = 0;
|
|
c_731772.tag = closureN_tag;
|
|
c_731772.fn = (function_type)__lambda_117;
|
|
c_731772.num_args = 1;
|
|
c_731772.num_elements = 10;
|
|
c_731772.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731772.elements[0] = ((closureN)self_731104)->elements[0];
|
|
c_731772.elements[1] = ((closureN)self_731104)->elements[1];
|
|
c_731772.elements[2] = ((closureN)self_731104)->elements[2];
|
|
c_731772.elements[3] = new_91toks_73225;
|
|
c_731772.elements[4] = next_91c_73227;
|
|
c_731772.elements[5] = ((closureN)self_731104)->elements[3];
|
|
c_731772.elements[6] = ((closureN)self_731104)->elements[4];
|
|
c_731772.elements[7] = ((closureN)self_731104)->elements[5];
|
|
c_731772.elements[8] = ((closureN)self_731104)->elements[6];
|
|
c_731772.elements[9] = unquote_91sym_73226;
|
|
|
|
|
|
make_cell(c_731911,sub_73228);
|
|
return_closcall1(data,(closure)&c_731772, &c_731911);;
|
|
}
|
|
|
|
static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) {
|
|
|
|
closureN_type c_731774;
|
|
c_731774.hdr.mark = gc_color_red;
|
|
c_731774.hdr.grayed = 0;
|
|
c_731774.tag = closureN_tag;
|
|
c_731774.fn = (function_type)__lambda_116;
|
|
c_731774.num_args = 1;
|
|
c_731774.num_elements = 10;
|
|
c_731774.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731774.elements[0] = ((closureN)self_731105)->elements[0];
|
|
c_731774.elements[1] = ((closureN)self_731105)->elements[1];
|
|
c_731774.elements[2] = ((closureN)self_731105)->elements[2];
|
|
c_731774.elements[3] = ((closureN)self_731105)->elements[3];
|
|
c_731774.elements[4] = ((closureN)self_731105)->elements[5];
|
|
c_731774.elements[5] = ((closureN)self_731105)->elements[6];
|
|
c_731774.elements[6] = sub_73228;
|
|
c_731774.elements[7] = ((closureN)self_731105)->elements[7];
|
|
c_731774.elements[8] = ((closureN)self_731105)->elements[8];
|
|
c_731774.elements[9] = ((closureN)self_731105)->elements[9];
|
|
|
|
|
|
make_cell(c_731907,((closureN)self_731105)->elements[4]);
|
|
return_closcall1(data,(closure)&c_731774, &c_731907);;
|
|
}
|
|
|
|
static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) {
|
|
|
|
closureN_type c_731776;
|
|
c_731776.hdr.mark = gc_color_red;
|
|
c_731776.hdr.grayed = 0;
|
|
c_731776.tag = closureN_tag;
|
|
c_731776.fn = (function_type)__lambda_115;
|
|
c_731776.num_args = 1;
|
|
c_731776.num_elements = 10;
|
|
c_731776.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731776.elements[0] = ((closureN)self_731106)->elements[0];
|
|
c_731776.elements[1] = ((closureN)self_731106)->elements[1];
|
|
c_731776.elements[2] = ((closureN)self_731106)->elements[2];
|
|
c_731776.elements[3] = ((closureN)self_731106)->elements[3];
|
|
c_731776.elements[4] = next_91c_73227;
|
|
c_731776.elements[5] = ((closureN)self_731106)->elements[4];
|
|
c_731776.elements[6] = ((closureN)self_731106)->elements[5];
|
|
c_731776.elements[7] = ((closureN)self_731106)->elements[6];
|
|
c_731776.elements[8] = ((closureN)self_731106)->elements[7];
|
|
c_731776.elements[9] = ((closureN)self_731106)->elements[8];
|
|
|
|
|
|
make_cell(c_731903,((closureN)self_731106)->elements[9]);
|
|
return_closcall1(data,(closure)&c_731776, &c_731903);;
|
|
}
|
|
|
|
static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) {
|
|
|
|
closureN_type c_731778;
|
|
c_731778.hdr.mark = gc_color_red;
|
|
c_731778.hdr.grayed = 0;
|
|
c_731778.tag = closureN_tag;
|
|
c_731778.fn = (function_type)__lambda_114;
|
|
c_731778.num_args = 1;
|
|
c_731778.num_elements = 10;
|
|
c_731778.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731778.elements[0] = ((closureN)self_731107)->elements[0];
|
|
c_731778.elements[1] = ((closureN)self_731107)->elements[1];
|
|
c_731778.elements[2] = ((closureN)self_731107)->elements[2];
|
|
c_731778.elements[3] = ((closureN)self_731107)->elements[4];
|
|
c_731778.elements[4] = ((closureN)self_731107)->elements[5];
|
|
c_731778.elements[5] = ((closureN)self_731107)->elements[6];
|
|
c_731778.elements[6] = ((closureN)self_731107)->elements[7];
|
|
c_731778.elements[7] = ((closureN)self_731107)->elements[8];
|
|
c_731778.elements[8] = ((closureN)self_731107)->elements[9];
|
|
c_731778.elements[9] = unquote_91sym_73226;
|
|
|
|
|
|
make_cell(c_731899,((closureN)self_731107)->elements[3]);
|
|
return_closcall1(data,(closure)&c_731778, &c_731899);;
|
|
}
|
|
|
|
static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) {
|
|
|
|
closureN_type c_731780;
|
|
c_731780.hdr.mark = gc_color_red;
|
|
c_731780.hdr.grayed = 0;
|
|
c_731780.tag = closureN_tag;
|
|
c_731780.fn = (function_type)__lambda_113;
|
|
c_731780.num_args = 1;
|
|
c_731780.num_elements = 11;
|
|
c_731780.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731780.elements[0] = ((closureN)self_731108)->elements[0];
|
|
c_731780.elements[1] = ((closureN)self_731108)->elements[1];
|
|
c_731780.elements[2] = ((closureN)self_731108)->elements[2];
|
|
c_731780.elements[3] = new_91toks_73225;
|
|
c_731780.elements[4] = ((closureN)self_731108)->elements[3];
|
|
c_731780.elements[5] = ((closureN)self_731108)->elements[4];
|
|
c_731780.elements[6] = ((closureN)self_731108)->elements[5];
|
|
c_731780.elements[7] = ((closureN)self_731108)->elements[6];
|
|
c_731780.elements[8] = ((closureN)self_731108)->elements[7];
|
|
c_731780.elements[9] = ((closureN)self_731108)->elements[8];
|
|
c_731780.elements[10] = ((closureN)self_731108)->elements[9];
|
|
|
|
return_closcall1(data,(closure)&c_731780, Cyc_set_car(data, ((closureN)self_731108)->elements[6], boolean_f));;
|
|
}
|
|
|
|
static void __lambda_113(void *data, int argc, object self_731109, object r_73567) {
|
|
|
|
closureN_type c_731782;
|
|
c_731782.hdr.mark = gc_color_red;
|
|
c_731782.hdr.grayed = 0;
|
|
c_731782.tag = closureN_tag;
|
|
c_731782.fn = (function_type)__lambda_112;
|
|
c_731782.num_args = 1;
|
|
c_731782.num_elements = 11;
|
|
c_731782.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731782.elements[0] = ((closureN)self_731109)->elements[0];
|
|
c_731782.elements[1] = ((closureN)self_731109)->elements[1];
|
|
c_731782.elements[2] = ((closureN)self_731109)->elements[2];
|
|
c_731782.elements[3] = ((closureN)self_731109)->elements[3];
|
|
c_731782.elements[4] = ((closureN)self_731109)->elements[4];
|
|
c_731782.elements[5] = ((closureN)self_731109)->elements[5];
|
|
c_731782.elements[6] = ((closureN)self_731109)->elements[6];
|
|
c_731782.elements[7] = ((closureN)self_731109)->elements[7];
|
|
c_731782.elements[8] = ((closureN)self_731109)->elements[8];
|
|
c_731782.elements[9] = ((closureN)self_731109)->elements[9];
|
|
c_731782.elements[10] = ((closureN)self_731109)->elements[10];
|
|
|
|
|
|
object c_731892 = Cyc_io_read_char(data,(closure)&c_731782,((closureN)self_731109)->elements[1]);
|
|
return_closcall1(data,(closure)&c_731782, c_731892);;
|
|
}
|
|
|
|
static void __lambda_112(void *data, int argc, object self_731110, object r_73589) {
|
|
|
|
closureN_type c_731784;
|
|
c_731784.hdr.mark = gc_color_red;
|
|
c_731784.hdr.grayed = 0;
|
|
c_731784.tag = closureN_tag;
|
|
c_731784.fn = (function_type)__lambda_111;
|
|
c_731784.num_args = 1;
|
|
c_731784.num_elements = 11;
|
|
c_731784.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731784.elements[0] = ((closureN)self_731110)->elements[0];
|
|
c_731784.elements[1] = ((closureN)self_731110)->elements[1];
|
|
c_731784.elements[2] = ((closureN)self_731110)->elements[2];
|
|
c_731784.elements[3] = ((closureN)self_731110)->elements[3];
|
|
c_731784.elements[4] = ((closureN)self_731110)->elements[4];
|
|
c_731784.elements[5] = ((closureN)self_731110)->elements[5];
|
|
c_731784.elements[6] = ((closureN)self_731110)->elements[6];
|
|
c_731784.elements[7] = ((closureN)self_731110)->elements[7];
|
|
c_731784.elements[8] = ((closureN)self_731110)->elements[8];
|
|
c_731784.elements[9] = ((closureN)self_731110)->elements[9];
|
|
c_731784.elements[10] = ((closureN)self_731110)->elements[10];
|
|
|
|
return_closcall1(data,(closure)&c_731784, Cyc_set_car(data, ((closureN)self_731110)->elements[4], r_73589));;
|
|
}
|
|
|
|
static void __lambda_111(void *data, int argc, object self_731111, object r_73568) {
|
|
|
|
closureN_type c_731786;
|
|
c_731786.hdr.mark = gc_color_red;
|
|
c_731786.hdr.grayed = 0;
|
|
c_731786.tag = closureN_tag;
|
|
c_731786.fn = (function_type)__lambda_94;
|
|
c_731786.num_args = 0;
|
|
c_731786.num_elements = 1;
|
|
c_731786.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731786.elements[0] = ((closureN)self_731111)->elements[4];
|
|
|
|
|
|
closureN_type c_731794;
|
|
c_731794.hdr.mark = gc_color_red;
|
|
c_731794.hdr.grayed = 0;
|
|
c_731794.tag = closureN_tag;
|
|
c_731794.fn = (function_type)__lambda_110;
|
|
c_731794.num_args = 1;
|
|
c_731794.num_elements = 11;
|
|
c_731794.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731794.elements[0] = ((closureN)self_731111)->elements[0];
|
|
c_731794.elements[1] = ((closureN)self_731111)->elements[1];
|
|
c_731794.elements[2] = ((closureN)self_731111)->elements[2];
|
|
c_731794.elements[3] = ((closureN)self_731111)->elements[3];
|
|
c_731794.elements[4] = ((closureN)self_731111)->elements[4];
|
|
c_731794.elements[5] = ((closureN)self_731111)->elements[5];
|
|
c_731794.elements[6] = ((closureN)self_731111)->elements[6];
|
|
c_731794.elements[7] = ((closureN)self_731111)->elements[7];
|
|
c_731794.elements[8] = ((closureN)self_731111)->elements[8];
|
|
c_731794.elements[9] = ((closureN)self_731111)->elements[9];
|
|
c_731794.elements[10] = ((closureN)self_731111)->elements[10];
|
|
|
|
return_closcall1(data,(closure)&c_731786, &c_731794);;
|
|
}
|
|
|
|
static void __lambda_110(void *data, int argc, object self_731112, object r_73586) {
|
|
|
|
closureN_type c_731796;
|
|
c_731796.hdr.mark = gc_color_red;
|
|
c_731796.hdr.grayed = 0;
|
|
c_731796.tag = closureN_tag;
|
|
c_731796.fn = (function_type)__lambda_109;
|
|
c_731796.num_args = 1;
|
|
c_731796.num_elements = 11;
|
|
c_731796.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731796.elements[0] = ((closureN)self_731112)->elements[0];
|
|
c_731796.elements[1] = ((closureN)self_731112)->elements[1];
|
|
c_731796.elements[2] = ((closureN)self_731112)->elements[2];
|
|
c_731796.elements[3] = ((closureN)self_731112)->elements[3];
|
|
c_731796.elements[4] = ((closureN)self_731112)->elements[4];
|
|
c_731796.elements[5] = ((closureN)self_731112)->elements[5];
|
|
c_731796.elements[6] = ((closureN)self_731112)->elements[6];
|
|
c_731796.elements[7] = ((closureN)self_731112)->elements[7];
|
|
c_731796.elements[8] = ((closureN)self_731112)->elements[8];
|
|
c_731796.elements[9] = ((closureN)self_731112)->elements[9];
|
|
c_731796.elements[10] = ((closureN)self_731112)->elements[10];
|
|
|
|
return_closcall1(data,(closure)&c_731796, Cyc_set_car(data, ((closureN)self_731112)->elements[10], r_73586));;
|
|
}
|
|
|
|
static void __lambda_109(void *data, int argc, object self_731113, object r_73569) {
|
|
|
|
closureN_type c_731798;
|
|
c_731798.hdr.mark = gc_color_red;
|
|
c_731798.hdr.grayed = 0;
|
|
c_731798.tag = closureN_tag;
|
|
c_731798.fn = (function_type)__lambda_108;
|
|
c_731798.num_args = 1;
|
|
c_731798.num_elements = 11;
|
|
c_731798.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731798.elements[0] = ((closureN)self_731113)->elements[0];
|
|
c_731798.elements[1] = ((closureN)self_731113)->elements[1];
|
|
c_731798.elements[2] = ((closureN)self_731113)->elements[2];
|
|
c_731798.elements[3] = ((closureN)self_731113)->elements[3];
|
|
c_731798.elements[4] = ((closureN)self_731113)->elements[4];
|
|
c_731798.elements[5] = ((closureN)self_731113)->elements[5];
|
|
c_731798.elements[6] = ((closureN)self_731113)->elements[6];
|
|
c_731798.elements[7] = ((closureN)self_731113)->elements[7];
|
|
c_731798.elements[8] = ((closureN)self_731113)->elements[8];
|
|
c_731798.elements[9] = ((closureN)self_731113)->elements[9];
|
|
c_731798.elements[10] = ((closureN)self_731113)->elements[10];
|
|
|
|
return_closcall1(data,(closure)&c_731798, Cyc_set_car(data, ((closureN)self_731113)->elements[3], boolean_f));;
|
|
}
|
|
|
|
static void __lambda_108(void *data, int argc, object self_731114, object r_73570) {
|
|
|
|
closureN_type c_731800;
|
|
c_731800.hdr.mark = gc_color_red;
|
|
c_731800.hdr.grayed = 0;
|
|
c_731800.tag = closureN_tag;
|
|
c_731800.fn = (function_type)__lambda_97;
|
|
c_731800.num_args = 0;
|
|
c_731800.num_elements = 2;
|
|
c_731800.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731800.elements[0] = ((closureN)self_731114)->elements[4];
|
|
c_731800.elements[1] = ((closureN)self_731114)->elements[6];
|
|
|
|
|
|
closureN_type c_731827;
|
|
c_731827.hdr.mark = gc_color_red;
|
|
c_731827.hdr.grayed = 0;
|
|
c_731827.tag = closureN_tag;
|
|
c_731827.fn = (function_type)__lambda_107;
|
|
c_731827.num_args = 1;
|
|
c_731827.num_elements = 10;
|
|
c_731827.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731827.elements[0] = ((closureN)self_731114)->elements[0];
|
|
c_731827.elements[1] = ((closureN)self_731114)->elements[1];
|
|
c_731827.elements[2] = ((closureN)self_731114)->elements[2];
|
|
c_731827.elements[3] = ((closureN)self_731114)->elements[3];
|
|
c_731827.elements[4] = ((closureN)self_731114)->elements[5];
|
|
c_731827.elements[5] = ((closureN)self_731114)->elements[6];
|
|
c_731827.elements[6] = ((closureN)self_731114)->elements[7];
|
|
c_731827.elements[7] = ((closureN)self_731114)->elements[8];
|
|
c_731827.elements[8] = ((closureN)self_731114)->elements[9];
|
|
c_731827.elements[9] = ((closureN)self_731114)->elements[10];
|
|
|
|
return_closcall1(data,(closure)&c_731800, &c_731827);;
|
|
}
|
|
|
|
static void __lambda_107(void *data, int argc, object self_731115, object r_73571) {
|
|
|
|
closureN_type c_731829;
|
|
c_731829.hdr.mark = gc_color_red;
|
|
c_731829.hdr.grayed = 0;
|
|
c_731829.tag = closureN_tag;
|
|
c_731829.fn = (function_type)__lambda_106;
|
|
c_731829.num_args = 1;
|
|
c_731829.num_elements = 10;
|
|
c_731829.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731829.elements[0] = ((closureN)self_731115)->elements[0];
|
|
c_731829.elements[1] = ((closureN)self_731115)->elements[1];
|
|
c_731829.elements[2] = ((closureN)self_731115)->elements[2];
|
|
c_731829.elements[3] = ((closureN)self_731115)->elements[3];
|
|
c_731829.elements[4] = ((closureN)self_731115)->elements[4];
|
|
c_731829.elements[5] = ((closureN)self_731115)->elements[5];
|
|
c_731829.elements[6] = ((closureN)self_731115)->elements[6];
|
|
c_731829.elements[7] = ((closureN)self_731115)->elements[7];
|
|
c_731829.elements[8] = ((closureN)self_731115)->elements[8];
|
|
c_731829.elements[9] = ((closureN)self_731115)->elements[9];
|
|
|
|
return_closcall1(data,(closure)&c_731829, NULL);;
|
|
}
|
|
|
|
static void __lambda_106(void *data, int argc, object self_731116, object r_73579) {
|
|
|
|
closureN_type c_731831;
|
|
c_731831.hdr.mark = gc_color_red;
|
|
c_731831.hdr.grayed = 0;
|
|
c_731831.tag = closureN_tag;
|
|
c_731831.fn = (function_type)__lambda_105;
|
|
c_731831.num_args = 1;
|
|
c_731831.num_elements = 11;
|
|
c_731831.elements = (object *)alloca(sizeof(object) * 11);
|
|
c_731831.elements[0] = ((closureN)self_731116)->elements[0];
|
|
c_731831.elements[1] = ((closureN)self_731116)->elements[1];
|
|
c_731831.elements[2] = ((closureN)self_731116)->elements[2];
|
|
c_731831.elements[3] = ((closureN)self_731116)->elements[3];
|
|
c_731831.elements[4] = ((closureN)self_731116)->elements[4];
|
|
c_731831.elements[5] = ((closureN)self_731116)->elements[5];
|
|
c_731831.elements[6] = r_73579;
|
|
c_731831.elements[7] = ((closureN)self_731116)->elements[6];
|
|
c_731831.elements[8] = ((closureN)self_731116)->elements[7];
|
|
c_731831.elements[9] = ((closureN)self_731116)->elements[8];
|
|
c_731831.elements[10] = ((closureN)self_731116)->elements[9];
|
|
|
|
return_closcall1(data,(closure)&c_731831, NULL);;
|
|
}
|
|
|
|
static void __lambda_105(void *data, int argc, object self_731117, object r_73580) {
|
|
|
|
closureN_type c_731833;
|
|
c_731833.hdr.mark = gc_color_red;
|
|
c_731833.hdr.grayed = 0;
|
|
c_731833.tag = closureN_tag;
|
|
c_731833.fn = (function_type)__lambda_104;
|
|
c_731833.num_args = 1;
|
|
c_731833.num_elements = 10;
|
|
c_731833.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731833.elements[0] = ((closureN)self_731117)->elements[0];
|
|
c_731833.elements[1] = ((closureN)self_731117)->elements[1];
|
|
c_731833.elements[2] = ((closureN)self_731117)->elements[2];
|
|
c_731833.elements[3] = ((closureN)self_731117)->elements[3];
|
|
c_731833.elements[4] = ((closureN)self_731117)->elements[4];
|
|
c_731833.elements[5] = ((closureN)self_731117)->elements[5];
|
|
c_731833.elements[6] = ((closureN)self_731117)->elements[7];
|
|
c_731833.elements[7] = ((closureN)self_731117)->elements[8];
|
|
c_731833.elements[8] = ((closureN)self_731117)->elements[9];
|
|
c_731833.elements[9] = ((closureN)self_731117)->elements[10];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_731833, ((closureN)self_731117)->elements[1], ((closureN)self_731117)->elements[6], r_73580, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731117)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_104(void *data, int argc, object self_731118, object r_73578) {
|
|
|
|
closureN_type c_731835;
|
|
c_731835.hdr.mark = gc_color_red;
|
|
c_731835.hdr.grayed = 0;
|
|
c_731835.tag = closureN_tag;
|
|
c_731835.fn = (function_type)__lambda_103;
|
|
c_731835.num_args = 1;
|
|
c_731835.num_elements = 10;
|
|
c_731835.elements = (object *)alloca(sizeof(object) * 10);
|
|
c_731835.elements[0] = ((closureN)self_731118)->elements[0];
|
|
c_731835.elements[1] = ((closureN)self_731118)->elements[1];
|
|
c_731835.elements[2] = ((closureN)self_731118)->elements[2];
|
|
c_731835.elements[3] = ((closureN)self_731118)->elements[3];
|
|
c_731835.elements[4] = ((closureN)self_731118)->elements[4];
|
|
c_731835.elements[5] = ((closureN)self_731118)->elements[5];
|
|
c_731835.elements[6] = ((closureN)self_731118)->elements[6];
|
|
c_731835.elements[7] = ((closureN)self_731118)->elements[7];
|
|
c_731835.elements[8] = ((closureN)self_731118)->elements[8];
|
|
c_731835.elements[9] = ((closureN)self_731118)->elements[9];
|
|
|
|
return_closcall1(data,(closure)&c_731835, Cyc_set_car(data, ((closureN)self_731118)->elements[6], r_73578));;
|
|
}
|
|
|
|
static void __lambda_103(void *data, int argc, object self_731119, object r_73572) {
|
|
|
|
closureN_type c_731837;
|
|
c_731837.hdr.mark = gc_color_red;
|
|
c_731837.hdr.grayed = 0;
|
|
c_731837.tag = closureN_tag;
|
|
c_731837.fn = (function_type)__lambda_102;
|
|
c_731837.num_args = 1;
|
|
c_731837.num_elements = 8;
|
|
c_731837.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731837.elements[0] = ((closureN)self_731119)->elements[0];
|
|
c_731837.elements[1] = ((closureN)self_731119)->elements[1];
|
|
c_731837.elements[2] = ((closureN)self_731119)->elements[2];
|
|
c_731837.elements[3] = ((closureN)self_731119)->elements[3];
|
|
c_731837.elements[4] = ((closureN)self_731119)->elements[4];
|
|
c_731837.elements[5] = ((closureN)self_731119)->elements[5];
|
|
c_731837.elements[6] = ((closureN)self_731119)->elements[7];
|
|
c_731837.elements[7] = ((closureN)self_731119)->elements[8];
|
|
|
|
return_closcall3(data, __glo__list_scheme_base, &c_731837, cell_get(((closureN)self_731119)->elements[9]), cell_get(((closureN)self_731119)->elements[6]));;
|
|
}
|
|
|
|
static void __lambda_102(void *data, int argc, object self_731120, object r_73576) {
|
|
|
|
closureN_type c_731839;
|
|
c_731839.hdr.mark = gc_color_red;
|
|
c_731839.hdr.grayed = 0;
|
|
c_731839.tag = closureN_tag;
|
|
c_731839.fn = (function_type)__lambda_101;
|
|
c_731839.num_args = 1;
|
|
c_731839.num_elements = 7;
|
|
c_731839.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731839.elements[0] = ((closureN)self_731120)->elements[0];
|
|
c_731839.elements[1] = ((closureN)self_731120)->elements[1];
|
|
c_731839.elements[2] = ((closureN)self_731120)->elements[2];
|
|
c_731839.elements[3] = ((closureN)self_731120)->elements[3];
|
|
c_731839.elements[4] = ((closureN)self_731120)->elements[4];
|
|
c_731839.elements[5] = ((closureN)self_731120)->elements[5];
|
|
c_731839.elements[6] = r_73576;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_731839, ((closureN)self_731120)->elements[6], ((closureN)self_731120)->elements[7]);;
|
|
}
|
|
|
|
static void __lambda_101(void *data, int argc, object self_731121, object r_73577) {
|
|
|
|
closureN_type c_731841;
|
|
c_731841.hdr.mark = gc_color_red;
|
|
c_731841.hdr.grayed = 0;
|
|
c_731841.tag = closureN_tag;
|
|
c_731841.fn = (function_type)__lambda_100;
|
|
c_731841.num_args = 1;
|
|
c_731841.num_elements = 6;
|
|
c_731841.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731841.elements[0] = ((closureN)self_731121)->elements[0];
|
|
c_731841.elements[1] = ((closureN)self_731121)->elements[1];
|
|
c_731841.elements[2] = ((closureN)self_731121)->elements[2];
|
|
c_731841.elements[3] = ((closureN)self_731121)->elements[3];
|
|
c_731841.elements[4] = ((closureN)self_731121)->elements[4];
|
|
c_731841.elements[5] = ((closureN)self_731121)->elements[5];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731841, ((closureN)self_731121)->elements[6], r_73577);;
|
|
}
|
|
|
|
static void __lambda_100(void *data, int argc, object self_731122, object r_73575) {
|
|
|
|
closureN_type c_731843;
|
|
c_731843.hdr.mark = gc_color_red;
|
|
c_731843.hdr.grayed = 0;
|
|
c_731843.tag = closureN_tag;
|
|
c_731843.fn = (function_type)__lambda_99;
|
|
c_731843.num_args = 1;
|
|
c_731843.num_elements = 6;
|
|
c_731843.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731843.elements[0] = ((closureN)self_731122)->elements[0];
|
|
c_731843.elements[1] = ((closureN)self_731122)->elements[1];
|
|
c_731843.elements[2] = ((closureN)self_731122)->elements[2];
|
|
c_731843.elements[3] = ((closureN)self_731122)->elements[3];
|
|
c_731843.elements[4] = ((closureN)self_731122)->elements[4];
|
|
c_731843.elements[5] = ((closureN)self_731122)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731843, Cyc_set_car(data, ((closureN)self_731122)->elements[3], r_73575));;
|
|
}
|
|
|
|
static void __lambda_99(void *data, int argc, object self_731123, object r_73573) {
|
|
if( (boolean_f != ((closureN)self_731123)->elements[0]) ){
|
|
|
|
closureN_type c_731846;
|
|
c_731846.hdr.mark = gc_color_red;
|
|
c_731846.hdr.grayed = 0;
|
|
c_731846.tag = closureN_tag;
|
|
c_731846.fn = (function_type)__lambda_98;
|
|
c_731846.num_args = 1;
|
|
c_731846.num_elements = 6;
|
|
c_731846.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731846.elements[0] = ((closureN)self_731123)->elements[0];
|
|
c_731846.elements[1] = ((closureN)self_731123)->elements[1];
|
|
c_731846.elements[2] = ((closureN)self_731123)->elements[2];
|
|
c_731846.elements[3] = ((closureN)self_731123)->elements[3];
|
|
c_731846.elements[4] = ((closureN)self_731123)->elements[4];
|
|
c_731846.elements[5] = ((closureN)self_731123)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731846, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731123)->elements[2], car(cell_get(((closureN)self_731123)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_98(void *data, int argc, object self_731124, object r_73574) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731124)->elements[2], ((closureN)self_731124)->elements[1], r_73574, cell_get(((closureN)self_731124)->elements[3]), ((closureN)self_731124)->elements[0], boolean_f, ((closureN)self_731124)->elements[4], ((closureN)self_731124)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_97(void *data, int argc, object self_731125, object k_73581) {
|
|
if( (boolean_f != Cyc_is_eof_object(cell_get(((closureN)self_731125)->elements[0]))) ){
|
|
|
|
closureN_type c_731807;
|
|
c_731807.hdr.mark = gc_color_red;
|
|
c_731807.hdr.grayed = 0;
|
|
c_731807.tag = closureN_tag;
|
|
c_731807.fn = (function_type)__lambda_96;
|
|
c_731807.num_args = 1;
|
|
c_731807.num_elements = 2;
|
|
c_731807.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731807.elements[0] = k_73581;
|
|
c_731807.elements[1] = ((closureN)self_731125)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731807, ((closureN)self_731125)->elements[1]);
|
|
} else {
|
|
if( (boolean_f != equalp(cell_get(((closureN)self_731125)->elements[0]), obj_char2obj(64))) ){
|
|
return_closcall1(data, k_73581, boolean_f);
|
|
} else {
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, k_73581, ((closureN)self_731125)->elements[1], cell_get(((closureN)self_731125)->elements[0]));}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_96(void *data, int argc, object self_731126, object r_73583) {
|
|
|
|
closureN_type c_731809;
|
|
c_731809.hdr.mark = gc_color_red;
|
|
c_731809.hdr.grayed = 0;
|
|
c_731809.tag = closureN_tag;
|
|
c_731809.fn = (function_type)__lambda_95;
|
|
c_731809.num_args = 1;
|
|
c_731809.num_elements = 2;
|
|
c_731809.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731809.elements[0] = ((closureN)self_731126)->elements[0];
|
|
c_731809.elements[1] = r_73583;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731809, ((closureN)self_731126)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_95(void *data, int argc, object self_731127, object r_73584) {
|
|
|
|
make_string(c_731812, "unexpected end of file");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731127)->elements[0], &c_731812, ((closureN)self_731127)->elements[1], r_73584);;
|
|
}
|
|
|
|
static void __lambda_94(void *data, int argc, object self_731128, object k_73587) {
|
|
if( (boolean_f != equalp(cell_get(((closureN)self_731128)->elements[0]), obj_char2obj(64))) ){
|
|
return_closcall1(data, k_73587, quote_unquote_91splicing);
|
|
} else {
|
|
return_closcall1(data, k_73587, quote_unquote);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_93(void *data, int argc, object self_731129, object r_73564) {
|
|
|
|
closureN_type c_731758;
|
|
c_731758.hdr.mark = gc_color_red;
|
|
c_731758.hdr.grayed = 0;
|
|
c_731758.tag = closureN_tag;
|
|
c_731758.fn = (function_type)__lambda_92;
|
|
c_731758.num_args = 1;
|
|
c_731758.num_elements = 2;
|
|
c_731758.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731758.elements[0] = ((closureN)self_731129)->elements[0];
|
|
c_731758.elements[1] = ((closureN)self_731129)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731758, ((closureN)self_731129)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_92(void *data, int argc, object self_731130, object r_73566) {
|
|
|
|
closureN_type c_731760;
|
|
c_731760.hdr.mark = gc_color_red;
|
|
c_731760.hdr.grayed = 0;
|
|
c_731760.tag = closureN_tag;
|
|
c_731760.fn = (function_type)__lambda_91;
|
|
c_731760.num_args = 1;
|
|
c_731760.num_elements = 1;
|
|
c_731760.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731760.elements[0] = ((closureN)self_731130)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731760, r_73566, ((closureN)self_731130)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_91(void *data, int argc, object self_731131, object r_73565) {
|
|
return_closcall1(data, ((closureN)self_731131)->elements[0], car(r_73565));;
|
|
}
|
|
|
|
static void __lambda_90(void *data, int argc, object self_731132, object k_73590) {
|
|
if( (boolean_f != ((closureN)self_731132)->elements[0]) ){
|
|
return_closcall1(data, k_73590, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73590, Cyc_is_null(((closureN)self_731132)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_89(void *data, int argc, object self_731133, object r_73547) {
|
|
if( (boolean_f != r_73547) ){
|
|
|
|
closureN_type c_731678;
|
|
c_731678.hdr.mark = gc_color_red;
|
|
c_731678.hdr.grayed = 0;
|
|
c_731678.tag = closureN_tag;
|
|
c_731678.fn = (function_type)__lambda_77;
|
|
c_731678.num_args = 1;
|
|
c_731678.num_elements = 3;
|
|
c_731678.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731678.elements[0] = ((closureN)self_731133)->elements[3];
|
|
c_731678.elements[1] = ((closureN)self_731133)->elements[6];
|
|
c_731678.elements[2] = ((closureN)self_731133)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731678, ((closureN)self_731133)->elements[5], ((closureN)self_731133)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_731692;
|
|
c_731692.hdr.mark = gc_color_red;
|
|
c_731692.hdr.grayed = 0;
|
|
c_731692.tag = closureN_tag;
|
|
c_731692.fn = (function_type)__lambda_88;
|
|
c_731692.num_args = 1;
|
|
c_731692.num_elements = 7;
|
|
c_731692.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731692.elements[0] = ((closureN)self_731133)->elements[0];
|
|
c_731692.elements[1] = ((closureN)self_731133)->elements[2];
|
|
c_731692.elements[2] = ((closureN)self_731133)->elements[3];
|
|
c_731692.elements[3] = ((closureN)self_731133)->elements[4];
|
|
c_731692.elements[4] = ((closureN)self_731133)->elements[5];
|
|
c_731692.elements[5] = ((closureN)self_731133)->elements[6];
|
|
c_731692.elements[6] = ((closureN)self_731133)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731692, NULL);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_88(void *data, int argc, object self_731134, object r_73558) {
|
|
|
|
closureN_type c_731694;
|
|
c_731694.hdr.mark = gc_color_red;
|
|
c_731694.hdr.grayed = 0;
|
|
c_731694.tag = closureN_tag;
|
|
c_731694.fn = (function_type)__lambda_87;
|
|
c_731694.num_args = 1;
|
|
c_731694.num_elements = 8;
|
|
c_731694.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731694.elements[0] = ((closureN)self_731134)->elements[0];
|
|
c_731694.elements[1] = ((closureN)self_731134)->elements[1];
|
|
c_731694.elements[2] = ((closureN)self_731134)->elements[2];
|
|
c_731694.elements[3] = ((closureN)self_731134)->elements[3];
|
|
c_731694.elements[4] = ((closureN)self_731134)->elements[4];
|
|
c_731694.elements[5] = r_73558;
|
|
c_731694.elements[6] = ((closureN)self_731134)->elements[5];
|
|
c_731694.elements[7] = ((closureN)self_731134)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_731694, NULL);;
|
|
}
|
|
|
|
static void __lambda_87(void *data, int argc, object self_731135, object r_73559) {
|
|
|
|
closureN_type c_731696;
|
|
c_731696.hdr.mark = gc_color_red;
|
|
c_731696.hdr.grayed = 0;
|
|
c_731696.tag = closureN_tag;
|
|
c_731696.fn = (function_type)__lambda_86;
|
|
c_731696.num_args = 1;
|
|
c_731696.num_elements = 7;
|
|
c_731696.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731696.elements[0] = ((closureN)self_731135)->elements[0];
|
|
c_731696.elements[1] = ((closureN)self_731135)->elements[1];
|
|
c_731696.elements[2] = ((closureN)self_731135)->elements[2];
|
|
c_731696.elements[3] = ((closureN)self_731135)->elements[3];
|
|
c_731696.elements[4] = ((closureN)self_731135)->elements[4];
|
|
c_731696.elements[5] = ((closureN)self_731135)->elements[6];
|
|
c_731696.elements[6] = ((closureN)self_731135)->elements[7];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_731696, ((closureN)self_731135)->elements[1], ((closureN)self_731135)->elements[5], r_73559, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731135)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) {
|
|
|
|
closureN_type c_731698;
|
|
c_731698.hdr.mark = gc_color_red;
|
|
c_731698.hdr.grayed = 0;
|
|
c_731698.tag = closureN_tag;
|
|
c_731698.fn = (function_type)__lambda_85;
|
|
c_731698.num_args = 1;
|
|
c_731698.num_elements = 8;
|
|
c_731698.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731698.elements[0] = ((closureN)self_731136)->elements[0];
|
|
c_731698.elements[1] = ((closureN)self_731136)->elements[1];
|
|
c_731698.elements[2] = ((closureN)self_731136)->elements[2];
|
|
c_731698.elements[3] = ((closureN)self_731136)->elements[3];
|
|
c_731698.elements[4] = ((closureN)self_731136)->elements[4];
|
|
c_731698.elements[5] = sub_73229;
|
|
c_731698.elements[6] = ((closureN)self_731136)->elements[5];
|
|
c_731698.elements[7] = ((closureN)self_731136)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_731698, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) {
|
|
|
|
closureN_type c_731700;
|
|
c_731700.hdr.mark = gc_color_red;
|
|
c_731700.hdr.grayed = 0;
|
|
c_731700.tag = closureN_tag;
|
|
c_731700.fn = (function_type)__lambda_84;
|
|
c_731700.num_args = 1;
|
|
c_731700.num_elements = 8;
|
|
c_731700.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731700.elements[0] = ((closureN)self_731137)->elements[0];
|
|
c_731700.elements[1] = ((closureN)self_731137)->elements[1];
|
|
c_731700.elements[2] = ((closureN)self_731137)->elements[2];
|
|
c_731700.elements[3] = ((closureN)self_731137)->elements[3];
|
|
c_731700.elements[4] = ((closureN)self_731137)->elements[4];
|
|
c_731700.elements[5] = ((closureN)self_731137)->elements[5];
|
|
c_731700.elements[6] = ((closureN)self_731137)->elements[6];
|
|
c_731700.elements[7] = ((closureN)self_731137)->elements[7];
|
|
|
|
|
|
make_cell(c_731739,new_91toks_73230);
|
|
return_closcall1(data,(closure)&c_731700, &c_731739);;
|
|
}
|
|
|
|
static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) {
|
|
|
|
closureN_type c_731702;
|
|
c_731702.hdr.mark = gc_color_red;
|
|
c_731702.hdr.grayed = 0;
|
|
c_731702.tag = closureN_tag;
|
|
c_731702.fn = (function_type)__lambda_83;
|
|
c_731702.num_args = 1;
|
|
c_731702.num_elements = 9;
|
|
c_731702.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731702.elements[0] = ((closureN)self_731138)->elements[0];
|
|
c_731702.elements[1] = ((closureN)self_731138)->elements[1];
|
|
c_731702.elements[2] = ((closureN)self_731138)->elements[2];
|
|
c_731702.elements[3] = new_91toks_73230;
|
|
c_731702.elements[4] = ((closureN)self_731138)->elements[3];
|
|
c_731702.elements[5] = ((closureN)self_731138)->elements[4];
|
|
c_731702.elements[6] = ((closureN)self_731138)->elements[5];
|
|
c_731702.elements[7] = ((closureN)self_731138)->elements[6];
|
|
c_731702.elements[8] = ((closureN)self_731138)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731702, quote_quasiquote);;
|
|
}
|
|
|
|
static void __lambda_83(void *data, int argc, object self_731139, object r_73557) {
|
|
|
|
closureN_type c_731704;
|
|
c_731704.hdr.mark = gc_color_red;
|
|
c_731704.hdr.grayed = 0;
|
|
c_731704.tag = closureN_tag;
|
|
c_731704.fn = (function_type)__lambda_82;
|
|
c_731704.num_args = 1;
|
|
c_731704.num_elements = 8;
|
|
c_731704.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731704.elements[0] = ((closureN)self_731139)->elements[0];
|
|
c_731704.elements[1] = ((closureN)self_731139)->elements[1];
|
|
c_731704.elements[2] = ((closureN)self_731139)->elements[2];
|
|
c_731704.elements[3] = ((closureN)self_731139)->elements[3];
|
|
c_731704.elements[4] = ((closureN)self_731139)->elements[4];
|
|
c_731704.elements[5] = ((closureN)self_731139)->elements[5];
|
|
c_731704.elements[6] = ((closureN)self_731139)->elements[7];
|
|
c_731704.elements[7] = ((closureN)self_731139)->elements[8];
|
|
|
|
return_closcall3(data, __glo__list_scheme_base, &c_731704, r_73557, ((closureN)self_731139)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_82(void *data, int argc, object self_731140, object r_73555) {
|
|
|
|
closureN_type c_731706;
|
|
c_731706.hdr.mark = gc_color_red;
|
|
c_731706.hdr.grayed = 0;
|
|
c_731706.tag = closureN_tag;
|
|
c_731706.fn = (function_type)__lambda_81;
|
|
c_731706.num_args = 1;
|
|
c_731706.num_elements = 7;
|
|
c_731706.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731706.elements[0] = ((closureN)self_731140)->elements[0];
|
|
c_731706.elements[1] = ((closureN)self_731140)->elements[1];
|
|
c_731706.elements[2] = ((closureN)self_731140)->elements[2];
|
|
c_731706.elements[3] = ((closureN)self_731140)->elements[3];
|
|
c_731706.elements[4] = ((closureN)self_731140)->elements[4];
|
|
c_731706.elements[5] = ((closureN)self_731140)->elements[5];
|
|
c_731706.elements[6] = r_73555;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_731706, ((closureN)self_731140)->elements[6], ((closureN)self_731140)->elements[7]);;
|
|
}
|
|
|
|
static void __lambda_81(void *data, int argc, object self_731141, object r_73556) {
|
|
|
|
closureN_type c_731708;
|
|
c_731708.hdr.mark = gc_color_red;
|
|
c_731708.hdr.grayed = 0;
|
|
c_731708.tag = closureN_tag;
|
|
c_731708.fn = (function_type)__lambda_80;
|
|
c_731708.num_args = 1;
|
|
c_731708.num_elements = 6;
|
|
c_731708.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731708.elements[0] = ((closureN)self_731141)->elements[0];
|
|
c_731708.elements[1] = ((closureN)self_731141)->elements[1];
|
|
c_731708.elements[2] = ((closureN)self_731141)->elements[2];
|
|
c_731708.elements[3] = ((closureN)self_731141)->elements[3];
|
|
c_731708.elements[4] = ((closureN)self_731141)->elements[4];
|
|
c_731708.elements[5] = ((closureN)self_731141)->elements[5];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731708, ((closureN)self_731141)->elements[6], r_73556);;
|
|
}
|
|
|
|
static void __lambda_80(void *data, int argc, object self_731142, object r_73554) {
|
|
|
|
closureN_type c_731710;
|
|
c_731710.hdr.mark = gc_color_red;
|
|
c_731710.hdr.grayed = 0;
|
|
c_731710.tag = closureN_tag;
|
|
c_731710.fn = (function_type)__lambda_79;
|
|
c_731710.num_args = 1;
|
|
c_731710.num_elements = 6;
|
|
c_731710.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731710.elements[0] = ((closureN)self_731142)->elements[0];
|
|
c_731710.elements[1] = ((closureN)self_731142)->elements[1];
|
|
c_731710.elements[2] = ((closureN)self_731142)->elements[2];
|
|
c_731710.elements[3] = ((closureN)self_731142)->elements[3];
|
|
c_731710.elements[4] = ((closureN)self_731142)->elements[4];
|
|
c_731710.elements[5] = ((closureN)self_731142)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731710, Cyc_set_car(data, ((closureN)self_731142)->elements[3], r_73554));;
|
|
}
|
|
|
|
static void __lambda_79(void *data, int argc, object self_731143, object r_73552) {
|
|
if( (boolean_f != ((closureN)self_731143)->elements[0]) ){
|
|
|
|
closureN_type c_731713;
|
|
c_731713.hdr.mark = gc_color_red;
|
|
c_731713.hdr.grayed = 0;
|
|
c_731713.tag = closureN_tag;
|
|
c_731713.fn = (function_type)__lambda_78;
|
|
c_731713.num_args = 1;
|
|
c_731713.num_elements = 6;
|
|
c_731713.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731713.elements[0] = ((closureN)self_731143)->elements[0];
|
|
c_731713.elements[1] = ((closureN)self_731143)->elements[1];
|
|
c_731713.elements[2] = ((closureN)self_731143)->elements[2];
|
|
c_731713.elements[3] = ((closureN)self_731143)->elements[3];
|
|
c_731713.elements[4] = ((closureN)self_731143)->elements[4];
|
|
c_731713.elements[5] = ((closureN)self_731143)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731713, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731143)->elements[2], car(cell_get(((closureN)self_731143)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_78(void *data, int argc, object self_731144, object r_73553) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731144)->elements[2], ((closureN)self_731144)->elements[1], r_73553, cell_get(((closureN)self_731144)->elements[3]), ((closureN)self_731144)->elements[0], boolean_f, ((closureN)self_731144)->elements[4], ((closureN)self_731144)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_77(void *data, int argc, object self_731145, object r_73548) {
|
|
|
|
closureN_type c_731680;
|
|
c_731680.hdr.mark = gc_color_red;
|
|
c_731680.hdr.grayed = 0;
|
|
c_731680.tag = closureN_tag;
|
|
c_731680.fn = (function_type)__lambda_76;
|
|
c_731680.num_args = 1;
|
|
c_731680.num_elements = 2;
|
|
c_731680.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731680.elements[0] = ((closureN)self_731145)->elements[0];
|
|
c_731680.elements[1] = ((closureN)self_731145)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731680, ((closureN)self_731145)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_76(void *data, int argc, object self_731146, object r_73550) {
|
|
|
|
closureN_type c_731682;
|
|
c_731682.hdr.mark = gc_color_red;
|
|
c_731682.hdr.grayed = 0;
|
|
c_731682.tag = closureN_tag;
|
|
c_731682.fn = (function_type)__lambda_75;
|
|
c_731682.num_args = 1;
|
|
c_731682.num_elements = 1;
|
|
c_731682.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731682.elements[0] = ((closureN)self_731146)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731682, r_73550, ((closureN)self_731146)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_75(void *data, int argc, object self_731147, object r_73549) {
|
|
return_closcall1(data, ((closureN)self_731147)->elements[0], car(r_73549));;
|
|
}
|
|
|
|
static void __lambda_74(void *data, int argc, object self_731148, object k_73560) {
|
|
if( (boolean_f != ((closureN)self_731148)->elements[0]) ){
|
|
return_closcall1(data, k_73560, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73560, Cyc_is_null(((closureN)self_731148)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_73(void *data, int argc, object self_731149, object r_73531) {
|
|
if( (boolean_f != r_73531) ){
|
|
|
|
closureN_type c_731600;
|
|
c_731600.hdr.mark = gc_color_red;
|
|
c_731600.hdr.grayed = 0;
|
|
c_731600.tag = closureN_tag;
|
|
c_731600.fn = (function_type)__lambda_61;
|
|
c_731600.num_args = 1;
|
|
c_731600.num_elements = 3;
|
|
c_731600.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731600.elements[0] = ((closureN)self_731149)->elements[3];
|
|
c_731600.elements[1] = ((closureN)self_731149)->elements[6];
|
|
c_731600.elements[2] = ((closureN)self_731149)->elements[7];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731600, ((closureN)self_731149)->elements[5], ((closureN)self_731149)->elements[1]);
|
|
} else {
|
|
|
|
closureN_type c_731614;
|
|
c_731614.hdr.mark = gc_color_red;
|
|
c_731614.hdr.grayed = 0;
|
|
c_731614.tag = closureN_tag;
|
|
c_731614.fn = (function_type)__lambda_72;
|
|
c_731614.num_args = 1;
|
|
c_731614.num_elements = 7;
|
|
c_731614.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731614.elements[0] = ((closureN)self_731149)->elements[0];
|
|
c_731614.elements[1] = ((closureN)self_731149)->elements[2];
|
|
c_731614.elements[2] = ((closureN)self_731149)->elements[3];
|
|
c_731614.elements[3] = ((closureN)self_731149)->elements[4];
|
|
c_731614.elements[4] = ((closureN)self_731149)->elements[5];
|
|
c_731614.elements[5] = ((closureN)self_731149)->elements[6];
|
|
c_731614.elements[6] = ((closureN)self_731149)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731614, NULL);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_72(void *data, int argc, object self_731150, object r_73542) {
|
|
|
|
closureN_type c_731616;
|
|
c_731616.hdr.mark = gc_color_red;
|
|
c_731616.hdr.grayed = 0;
|
|
c_731616.tag = closureN_tag;
|
|
c_731616.fn = (function_type)__lambda_71;
|
|
c_731616.num_args = 1;
|
|
c_731616.num_elements = 8;
|
|
c_731616.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731616.elements[0] = ((closureN)self_731150)->elements[0];
|
|
c_731616.elements[1] = ((closureN)self_731150)->elements[1];
|
|
c_731616.elements[2] = ((closureN)self_731150)->elements[2];
|
|
c_731616.elements[3] = ((closureN)self_731150)->elements[3];
|
|
c_731616.elements[4] = ((closureN)self_731150)->elements[4];
|
|
c_731616.elements[5] = r_73542;
|
|
c_731616.elements[6] = ((closureN)self_731150)->elements[5];
|
|
c_731616.elements[7] = ((closureN)self_731150)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_731616, NULL);;
|
|
}
|
|
|
|
static void __lambda_71(void *data, int argc, object self_731151, object r_73543) {
|
|
|
|
closureN_type c_731618;
|
|
c_731618.hdr.mark = gc_color_red;
|
|
c_731618.hdr.grayed = 0;
|
|
c_731618.tag = closureN_tag;
|
|
c_731618.fn = (function_type)__lambda_70;
|
|
c_731618.num_args = 1;
|
|
c_731618.num_elements = 7;
|
|
c_731618.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731618.elements[0] = ((closureN)self_731151)->elements[0];
|
|
c_731618.elements[1] = ((closureN)self_731151)->elements[1];
|
|
c_731618.elements[2] = ((closureN)self_731151)->elements[2];
|
|
c_731618.elements[3] = ((closureN)self_731151)->elements[3];
|
|
c_731618.elements[4] = ((closureN)self_731151)->elements[4];
|
|
c_731618.elements[5] = ((closureN)self_731151)->elements[6];
|
|
c_731618.elements[6] = ((closureN)self_731151)->elements[7];
|
|
|
|
return_closcall8(data, __glo_parse_scheme_read, &c_731618, ((closureN)self_731151)->elements[1], ((closureN)self_731151)->elements[5], r_73543, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731151)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) {
|
|
|
|
closureN_type c_731620;
|
|
c_731620.hdr.mark = gc_color_red;
|
|
c_731620.hdr.grayed = 0;
|
|
c_731620.tag = closureN_tag;
|
|
c_731620.fn = (function_type)__lambda_69;
|
|
c_731620.num_args = 1;
|
|
c_731620.num_elements = 8;
|
|
c_731620.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731620.elements[0] = ((closureN)self_731152)->elements[0];
|
|
c_731620.elements[1] = ((closureN)self_731152)->elements[1];
|
|
c_731620.elements[2] = ((closureN)self_731152)->elements[2];
|
|
c_731620.elements[3] = ((closureN)self_731152)->elements[3];
|
|
c_731620.elements[4] = ((closureN)self_731152)->elements[4];
|
|
c_731620.elements[5] = sub_73231;
|
|
c_731620.elements[6] = ((closureN)self_731152)->elements[5];
|
|
c_731620.elements[7] = ((closureN)self_731152)->elements[6];
|
|
|
|
return_closcall1(data,(closure)&c_731620, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) {
|
|
|
|
closureN_type c_731622;
|
|
c_731622.hdr.mark = gc_color_red;
|
|
c_731622.hdr.grayed = 0;
|
|
c_731622.tag = closureN_tag;
|
|
c_731622.fn = (function_type)__lambda_68;
|
|
c_731622.num_args = 1;
|
|
c_731622.num_elements = 8;
|
|
c_731622.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731622.elements[0] = ((closureN)self_731153)->elements[0];
|
|
c_731622.elements[1] = ((closureN)self_731153)->elements[1];
|
|
c_731622.elements[2] = ((closureN)self_731153)->elements[2];
|
|
c_731622.elements[3] = ((closureN)self_731153)->elements[3];
|
|
c_731622.elements[4] = ((closureN)self_731153)->elements[4];
|
|
c_731622.elements[5] = ((closureN)self_731153)->elements[5];
|
|
c_731622.elements[6] = ((closureN)self_731153)->elements[6];
|
|
c_731622.elements[7] = ((closureN)self_731153)->elements[7];
|
|
|
|
|
|
make_cell(c_731661,new_91toks_73232);
|
|
return_closcall1(data,(closure)&c_731622, &c_731661);;
|
|
}
|
|
|
|
static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) {
|
|
|
|
closureN_type c_731624;
|
|
c_731624.hdr.mark = gc_color_red;
|
|
c_731624.hdr.grayed = 0;
|
|
c_731624.tag = closureN_tag;
|
|
c_731624.fn = (function_type)__lambda_67;
|
|
c_731624.num_args = 1;
|
|
c_731624.num_elements = 9;
|
|
c_731624.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_731624.elements[0] = ((closureN)self_731154)->elements[0];
|
|
c_731624.elements[1] = ((closureN)self_731154)->elements[1];
|
|
c_731624.elements[2] = ((closureN)self_731154)->elements[2];
|
|
c_731624.elements[3] = new_91toks_73232;
|
|
c_731624.elements[4] = ((closureN)self_731154)->elements[3];
|
|
c_731624.elements[5] = ((closureN)self_731154)->elements[4];
|
|
c_731624.elements[6] = ((closureN)self_731154)->elements[5];
|
|
c_731624.elements[7] = ((closureN)self_731154)->elements[6];
|
|
c_731624.elements[8] = ((closureN)self_731154)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731624, quote_quote);;
|
|
}
|
|
|
|
static void __lambda_67(void *data, int argc, object self_731155, object r_73541) {
|
|
|
|
closureN_type c_731626;
|
|
c_731626.hdr.mark = gc_color_red;
|
|
c_731626.hdr.grayed = 0;
|
|
c_731626.tag = closureN_tag;
|
|
c_731626.fn = (function_type)__lambda_66;
|
|
c_731626.num_args = 1;
|
|
c_731626.num_elements = 8;
|
|
c_731626.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731626.elements[0] = ((closureN)self_731155)->elements[0];
|
|
c_731626.elements[1] = ((closureN)self_731155)->elements[1];
|
|
c_731626.elements[2] = ((closureN)self_731155)->elements[2];
|
|
c_731626.elements[3] = ((closureN)self_731155)->elements[3];
|
|
c_731626.elements[4] = ((closureN)self_731155)->elements[4];
|
|
c_731626.elements[5] = ((closureN)self_731155)->elements[5];
|
|
c_731626.elements[6] = ((closureN)self_731155)->elements[7];
|
|
c_731626.elements[7] = ((closureN)self_731155)->elements[8];
|
|
|
|
return_closcall3(data, __glo__list_scheme_base, &c_731626, r_73541, ((closureN)self_731155)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_66(void *data, int argc, object self_731156, object r_73539) {
|
|
|
|
closureN_type c_731628;
|
|
c_731628.hdr.mark = gc_color_red;
|
|
c_731628.hdr.grayed = 0;
|
|
c_731628.tag = closureN_tag;
|
|
c_731628.fn = (function_type)__lambda_65;
|
|
c_731628.num_args = 1;
|
|
c_731628.num_elements = 7;
|
|
c_731628.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731628.elements[0] = ((closureN)self_731156)->elements[0];
|
|
c_731628.elements[1] = ((closureN)self_731156)->elements[1];
|
|
c_731628.elements[2] = ((closureN)self_731156)->elements[2];
|
|
c_731628.elements[3] = ((closureN)self_731156)->elements[3];
|
|
c_731628.elements[4] = ((closureN)self_731156)->elements[4];
|
|
c_731628.elements[5] = ((closureN)self_731156)->elements[5];
|
|
c_731628.elements[6] = r_73539;
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_731628, ((closureN)self_731156)->elements[6], ((closureN)self_731156)->elements[7]);;
|
|
}
|
|
|
|
static void __lambda_65(void *data, int argc, object self_731157, object r_73540) {
|
|
|
|
closureN_type c_731630;
|
|
c_731630.hdr.mark = gc_color_red;
|
|
c_731630.hdr.grayed = 0;
|
|
c_731630.tag = closureN_tag;
|
|
c_731630.fn = (function_type)__lambda_64;
|
|
c_731630.num_args = 1;
|
|
c_731630.num_elements = 6;
|
|
c_731630.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731630.elements[0] = ((closureN)self_731157)->elements[0];
|
|
c_731630.elements[1] = ((closureN)self_731157)->elements[1];
|
|
c_731630.elements[2] = ((closureN)self_731157)->elements[2];
|
|
c_731630.elements[3] = ((closureN)self_731157)->elements[3];
|
|
c_731630.elements[4] = ((closureN)self_731157)->elements[4];
|
|
c_731630.elements[5] = ((closureN)self_731157)->elements[5];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731630, ((closureN)self_731157)->elements[6], r_73540);;
|
|
}
|
|
|
|
static void __lambda_64(void *data, int argc, object self_731158, object r_73538) {
|
|
|
|
closureN_type c_731632;
|
|
c_731632.hdr.mark = gc_color_red;
|
|
c_731632.hdr.grayed = 0;
|
|
c_731632.tag = closureN_tag;
|
|
c_731632.fn = (function_type)__lambda_63;
|
|
c_731632.num_args = 1;
|
|
c_731632.num_elements = 6;
|
|
c_731632.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731632.elements[0] = ((closureN)self_731158)->elements[0];
|
|
c_731632.elements[1] = ((closureN)self_731158)->elements[1];
|
|
c_731632.elements[2] = ((closureN)self_731158)->elements[2];
|
|
c_731632.elements[3] = ((closureN)self_731158)->elements[3];
|
|
c_731632.elements[4] = ((closureN)self_731158)->elements[4];
|
|
c_731632.elements[5] = ((closureN)self_731158)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731632, Cyc_set_car(data, ((closureN)self_731158)->elements[3], r_73538));;
|
|
}
|
|
|
|
static void __lambda_63(void *data, int argc, object self_731159, object r_73536) {
|
|
if( (boolean_f != ((closureN)self_731159)->elements[0]) ){
|
|
|
|
closureN_type c_731635;
|
|
c_731635.hdr.mark = gc_color_red;
|
|
c_731635.hdr.grayed = 0;
|
|
c_731635.tag = closureN_tag;
|
|
c_731635.fn = (function_type)__lambda_62;
|
|
c_731635.num_args = 1;
|
|
c_731635.num_elements = 6;
|
|
c_731635.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731635.elements[0] = ((closureN)self_731159)->elements[0];
|
|
c_731635.elements[1] = ((closureN)self_731159)->elements[1];
|
|
c_731635.elements[2] = ((closureN)self_731159)->elements[2];
|
|
c_731635.elements[3] = ((closureN)self_731159)->elements[3];
|
|
c_731635.elements[4] = ((closureN)self_731159)->elements[4];
|
|
c_731635.elements[5] = ((closureN)self_731159)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731635, NULL);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731159)->elements[2], car(cell_get(((closureN)self_731159)->elements[3])));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_62(void *data, int argc, object self_731160, object r_73537) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731160)->elements[2], ((closureN)self_731160)->elements[1], r_73537, cell_get(((closureN)self_731160)->elements[3]), ((closureN)self_731160)->elements[0], boolean_f, ((closureN)self_731160)->elements[4], ((closureN)self_731160)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_61(void *data, int argc, object self_731161, object r_73532) {
|
|
|
|
closureN_type c_731602;
|
|
c_731602.hdr.mark = gc_color_red;
|
|
c_731602.hdr.grayed = 0;
|
|
c_731602.tag = closureN_tag;
|
|
c_731602.fn = (function_type)__lambda_60;
|
|
c_731602.num_args = 1;
|
|
c_731602.num_elements = 2;
|
|
c_731602.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731602.elements[0] = ((closureN)self_731161)->elements[0];
|
|
c_731602.elements[1] = ((closureN)self_731161)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731602, ((closureN)self_731161)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_60(void *data, int argc, object self_731162, object r_73534) {
|
|
|
|
closureN_type c_731604;
|
|
c_731604.hdr.mark = gc_color_red;
|
|
c_731604.hdr.grayed = 0;
|
|
c_731604.tag = closureN_tag;
|
|
c_731604.fn = (function_type)__lambda_59;
|
|
c_731604.num_args = 1;
|
|
c_731604.num_elements = 1;
|
|
c_731604.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731604.elements[0] = ((closureN)self_731162)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731604, r_73534, ((closureN)self_731162)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_59(void *data, int argc, object self_731163, object r_73533) {
|
|
return_closcall1(data, ((closureN)self_731163)->elements[0], car(r_73533));;
|
|
}
|
|
|
|
static void __lambda_58(void *data, int argc, object self_731164, object k_73544) {
|
|
if( (boolean_f != ((closureN)self_731164)->elements[0]) ){
|
|
return_closcall1(data, k_73544, boolean_f);
|
|
} else {
|
|
return_closcall2(data, __glo_not_scheme_base, k_73544, Cyc_is_null(((closureN)self_731164)->elements[1]));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_57(void *data, int argc, object self_731165, object r_73521) {
|
|
|
|
closureN_type c_731558;
|
|
c_731558.hdr.mark = gc_color_red;
|
|
c_731558.hdr.grayed = 0;
|
|
c_731558.tag = closureN_tag;
|
|
c_731558.fn = (function_type)__lambda_55;
|
|
c_731558.num_args = 0;
|
|
c_731558.num_elements = 2;
|
|
c_731558.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731558.elements[0] = ((closureN)self_731165)->elements[1];
|
|
c_731558.elements[1] = ((closureN)self_731165)->elements[5];
|
|
|
|
|
|
closureN_type c_731565;
|
|
c_731565.hdr.mark = gc_color_red;
|
|
c_731565.hdr.grayed = 0;
|
|
c_731565.tag = closureN_tag;
|
|
c_731565.fn = (function_type)__lambda_56;
|
|
c_731565.num_args = 1;
|
|
c_731565.num_elements = 8;
|
|
c_731565.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731565.elements[0] = ((closureN)self_731165)->elements[0];
|
|
c_731565.elements[1] = ((closureN)self_731165)->elements[1];
|
|
c_731565.elements[2] = ((closureN)self_731165)->elements[2];
|
|
c_731565.elements[3] = ((closureN)self_731165)->elements[3];
|
|
c_731565.elements[4] = ((closureN)self_731165)->elements[4];
|
|
c_731565.elements[5] = ((closureN)self_731165)->elements[5];
|
|
c_731565.elements[6] = ((closureN)self_731165)->elements[6];
|
|
c_731565.elements[7] = ((closureN)self_731165)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_731558, &c_731565);;
|
|
}
|
|
|
|
static void __lambda_56(void *data, int argc, object self_731166, object r_73522) {
|
|
return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731166)->elements[3], ((closureN)self_731166)->elements[2], ((closureN)self_731166)->elements[6], ((closureN)self_731166)->elements[7], ((closureN)self_731166)->elements[0], boolean_f, ((closureN)self_731166)->elements[4], ((closureN)self_731166)->elements[5], ((closureN)self_731166)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_55(void *data, int argc, object self_731167, object k_73523) {
|
|
if( (boolean_f != equalp(((closureN)self_731167)->elements[0], obj_char2obj(10))) ){
|
|
return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, k_73523, ((closureN)self_731167)->elements[1], obj_int2obj(0));
|
|
} else {
|
|
return_closcall1(data, k_73523, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_54(void *data, int argc, object self_731168, object k_73525) {
|
|
if( (boolean_f != equalp(((closureN)self_731168)->elements[0], obj_char2obj(10))) ){
|
|
|
|
closureN_type c_731545;
|
|
c_731545.hdr.mark = gc_color_red;
|
|
c_731545.hdr.grayed = 0;
|
|
c_731545.tag = closureN_tag;
|
|
c_731545.fn = (function_type)__lambda_53;
|
|
c_731545.num_args = 1;
|
|
c_731545.num_elements = 2;
|
|
c_731545.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731545.elements[0] = k_73525;
|
|
c_731545.elements[1] = ((closureN)self_731168)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731545, ((closureN)self_731168)->elements[1]);
|
|
} else {
|
|
return_closcall1(data, k_73525, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_53(void *data, int argc, object self_731169, object r_73528) {
|
|
|
|
closureN_type c_731547;
|
|
c_731547.hdr.mark = gc_color_red;
|
|
c_731547.hdr.grayed = 0;
|
|
c_731547.tag = closureN_tag;
|
|
c_731547.fn = (function_type)__lambda_52;
|
|
c_731547.num_args = 1;
|
|
c_731547.num_elements = 2;
|
|
c_731547.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731547.elements[0] = ((closureN)self_731169)->elements[0];
|
|
c_731547.elements[1] = ((closureN)self_731169)->elements[1];
|
|
|
|
|
|
object c_731553 = Cyc_sum(data,(closure)&c_731547,2,obj_int2obj(1), r_73528);
|
|
return_closcall1(data,(closure)&c_731547, c_731553);;
|
|
}
|
|
|
|
static void __lambda_52(void *data, int argc, object self_731170, object r_73527) {
|
|
return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, ((closureN)self_731170)->elements[0], ((closureN)self_731170)->elements[1], r_73527);;
|
|
}
|
|
|
|
static void __lambda_51(void *data, int argc, object self_731171, object r_73519) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731171)->elements[2], ((closureN)self_731171)->elements[1], r_73519, ((closureN)self_731171)->elements[5], ((closureN)self_731171)->elements[0], boolean_t, ((closureN)self_731171)->elements[3], ((closureN)self_731171)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_50(void *data, int argc, object self_731172, object r_73518) {
|
|
|
|
closureN_type c_731508;
|
|
c_731508.hdr.mark = gc_color_red;
|
|
c_731508.hdr.grayed = 0;
|
|
c_731508.tag = closureN_tag;
|
|
c_731508.fn = (function_type)__lambda_49;
|
|
c_731508.num_args = 1;
|
|
c_731508.num_elements = 6;
|
|
c_731508.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731508.elements[0] = ((closureN)self_731172)->elements[0];
|
|
c_731508.elements[1] = ((closureN)self_731172)->elements[1];
|
|
c_731508.elements[2] = ((closureN)self_731172)->elements[2];
|
|
c_731508.elements[3] = ((closureN)self_731172)->elements[3];
|
|
c_731508.elements[4] = ((closureN)self_731172)->elements[4];
|
|
c_731508.elements[5] = ((closureN)self_731172)->elements[5];
|
|
|
|
|
|
object c_731526 = Cyc_sum(data,(closure)&c_731508,2,obj_int2obj(1), r_73518);
|
|
return_closcall1(data,(closure)&c_731508, c_731526);;
|
|
}
|
|
|
|
static void __lambda_49(void *data, int argc, object self_731173, object r_73517) {
|
|
|
|
closureN_type c_731510;
|
|
c_731510.hdr.mark = gc_color_red;
|
|
c_731510.hdr.grayed = 0;
|
|
c_731510.tag = closureN_tag;
|
|
c_731510.fn = (function_type)__lambda_48;
|
|
c_731510.num_args = 1;
|
|
c_731510.num_elements = 6;
|
|
c_731510.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731510.elements[0] = ((closureN)self_731173)->elements[0];
|
|
c_731510.elements[1] = ((closureN)self_731173)->elements[1];
|
|
c_731510.elements[2] = ((closureN)self_731173)->elements[2];
|
|
c_731510.elements[3] = ((closureN)self_731173)->elements[3];
|
|
c_731510.elements[4] = ((closureN)self_731173)->elements[4];
|
|
c_731510.elements[5] = ((closureN)self_731173)->elements[5];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, &c_731510, ((closureN)self_731173)->elements[4], r_73517);;
|
|
}
|
|
|
|
static void __lambda_48(void *data, int argc, object self_731174, object r_73514) {
|
|
|
|
closureN_type c_731512;
|
|
c_731512.hdr.mark = gc_color_red;
|
|
c_731512.hdr.grayed = 0;
|
|
c_731512.tag = closureN_tag;
|
|
c_731512.fn = (function_type)__lambda_47;
|
|
c_731512.num_args = 1;
|
|
c_731512.num_elements = 6;
|
|
c_731512.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731512.elements[0] = ((closureN)self_731174)->elements[0];
|
|
c_731512.elements[1] = ((closureN)self_731174)->elements[1];
|
|
c_731512.elements[2] = ((closureN)self_731174)->elements[2];
|
|
c_731512.elements[3] = ((closureN)self_731174)->elements[3];
|
|
c_731512.elements[4] = ((closureN)self_731174)->elements[4];
|
|
c_731512.elements[5] = ((closureN)self_731174)->elements[5];
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731512, ((closureN)self_731174)->elements[4], obj_int2obj(0));;
|
|
}
|
|
|
|
static void __lambda_47(void *data, int argc, object self_731175, object r_73515) {
|
|
|
|
closureN_type c_731514;
|
|
c_731514.hdr.mark = gc_color_red;
|
|
c_731514.hdr.grayed = 0;
|
|
c_731514.tag = closureN_tag;
|
|
c_731514.fn = (function_type)__lambda_46;
|
|
c_731514.num_args = 1;
|
|
c_731514.num_elements = 6;
|
|
c_731514.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_731514.elements[0] = ((closureN)self_731175)->elements[0];
|
|
c_731514.elements[1] = ((closureN)self_731175)->elements[1];
|
|
c_731514.elements[2] = ((closureN)self_731175)->elements[2];
|
|
c_731514.elements[3] = ((closureN)self_731175)->elements[3];
|
|
c_731514.elements[4] = ((closureN)self_731175)->elements[4];
|
|
c_731514.elements[5] = ((closureN)self_731175)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_731514, NULL);;
|
|
}
|
|
|
|
static void __lambda_46(void *data, int argc, object self_731176, object r_73516) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731176)->elements[2], ((closureN)self_731176)->elements[1], r_73516, ((closureN)self_731176)->elements[5], ((closureN)self_731176)->elements[0], boolean_f, ((closureN)self_731176)->elements[3], ((closureN)self_731176)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_45(void *data, int argc, object self_731177, object r_73504) {
|
|
if( (boolean_f != ((closureN)self_731177)->elements[0]) ){
|
|
|
|
closureN_type c_731477;
|
|
c_731477.hdr.mark = gc_color_red;
|
|
c_731477.hdr.grayed = 0;
|
|
c_731477.tag = closureN_tag;
|
|
c_731477.fn = (function_type)__lambda_42;
|
|
c_731477.num_args = 1;
|
|
c_731477.num_elements = 1;
|
|
c_731477.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731477.elements[0] = ((closureN)self_731177)->elements[2];
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_731477, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]);
|
|
} else {
|
|
|
|
closureN_type c_731483;
|
|
c_731483.hdr.mark = gc_color_red;
|
|
c_731483.hdr.grayed = 0;
|
|
c_731483.tag = closureN_tag;
|
|
c_731483.fn = (function_type)__lambda_44;
|
|
c_731483.num_args = 1;
|
|
c_731483.num_elements = 2;
|
|
c_731483.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731483.elements[0] = ((closureN)self_731177)->elements[1];
|
|
c_731483.elements[1] = ((closureN)self_731177)->elements[2];
|
|
|
|
return_closcall3(data, __glo_get_91toks_scheme_read, &c_731483, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_44(void *data, int argc, object self_731178, object last_73233) {
|
|
|
|
closureN_type c_731485;
|
|
c_731485.hdr.mark = gc_color_red;
|
|
c_731485.hdr.grayed = 0;
|
|
c_731485.tag = closureN_tag;
|
|
c_731485.fn = (function_type)__lambda_43;
|
|
c_731485.num_args = 1;
|
|
c_731485.num_elements = 3;
|
|
c_731485.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731485.elements[0] = ((closureN)self_731178)->elements[0];
|
|
c_731485.elements[1] = ((closureN)self_731178)->elements[1];
|
|
c_731485.elements[2] = last_73233;
|
|
|
|
|
|
object c_731496 = Cyc_num_gt(data,(closure)&c_731485,2,Cyc_length(data, last_73233), obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_731485, c_731496);;
|
|
}
|
|
|
|
static void __lambda_43(void *data, int argc, object self_731179, object r_73507) {
|
|
if( (boolean_f != r_73507) ){
|
|
return_closcall1(data, ((closureN)self_731179)->elements[1], car(((closureN)self_731179)->elements[2]));
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731179)->elements[1], ((closureN)self_731179)->elements[0]);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_42(void *data, int argc, object self_731180, object r_73505) {
|
|
return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731180)->elements[0], r_73505);;
|
|
}
|
|
|
|
static void __lambda_41(void *data, int argc, object self_731181, object k_73509) {
|
|
|
|
closureN_type c_731457;
|
|
c_731457.hdr.mark = gc_color_red;
|
|
c_731457.hdr.grayed = 0;
|
|
c_731457.tag = closureN_tag;
|
|
c_731457.fn = (function_type)__lambda_40;
|
|
c_731457.num_args = 1;
|
|
c_731457.num_elements = 2;
|
|
c_731457.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731457.elements[0] = k_73509;
|
|
c_731457.elements[1] = ((closureN)self_731181)->elements[1];
|
|
|
|
|
|
object c_731472 = Cyc_num_gt(data,(closure)&c_731457,2,((closureN)self_731181)->elements[0], obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_731457, c_731472);;
|
|
}
|
|
|
|
static void __lambda_40(void *data, int argc, object self_731182, object r_73510) {
|
|
if( (boolean_f != r_73510) ){
|
|
|
|
closureN_type c_731459;
|
|
c_731459.hdr.mark = gc_color_red;
|
|
c_731459.hdr.grayed = 0;
|
|
c_731459.tag = closureN_tag;
|
|
c_731459.fn = (function_type)__lambda_39;
|
|
c_731459.num_args = 1;
|
|
c_731459.num_elements = 2;
|
|
c_731459.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731459.elements[0] = ((closureN)self_731182)->elements[0];
|
|
c_731459.elements[1] = ((closureN)self_731182)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731459, ((closureN)self_731182)->elements[1]);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731182)->elements[0], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_39(void *data, int argc, object self_731183, object r_73511) {
|
|
|
|
closureN_type c_731461;
|
|
c_731461.hdr.mark = gc_color_red;
|
|
c_731461.hdr.grayed = 0;
|
|
c_731461.tag = closureN_tag;
|
|
c_731461.fn = (function_type)__lambda_38;
|
|
c_731461.num_args = 1;
|
|
c_731461.num_elements = 2;
|
|
c_731461.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731461.elements[0] = ((closureN)self_731183)->elements[0];
|
|
c_731461.elements[1] = r_73511;
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731461, ((closureN)self_731183)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_38(void *data, int argc, object self_731184, object r_73512) {
|
|
|
|
make_string(c_731464, "missing closing parenthesis");
|
|
return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731184)->elements[0], &c_731464, ((closureN)self_731184)->elements[1], r_73512);;
|
|
}
|
|
|
|
static void __lambda_37(void *data, int argc, object self_731185, object k_73745) {
|
|
|
|
closureN_type c_731427;
|
|
c_731427.hdr.mark = gc_color_red;
|
|
c_731427.hdr.grayed = 0;
|
|
c_731427.tag = closureN_tag;
|
|
c_731427.fn = (function_type)__lambda_36;
|
|
c_731427.num_args = 1;
|
|
c_731427.num_elements = 3;
|
|
c_731427.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731427.elements[0] = ((closureN)self_731185)->elements[0];
|
|
c_731427.elements[1] = k_73745;
|
|
c_731427.elements[2] = ((closureN)self_731185)->elements[1];
|
|
|
|
return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_731427, ((closureN)self_731185)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_36(void *data, int argc, object self_731186, object r_73746) {
|
|
if( (boolean_f != r_73746) ){
|
|
return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_731186)->elements[1], ((closureN)self_731186)->elements[2]);
|
|
} else {
|
|
|
|
object c_731435 = Cyc_io_read_char(data, ((closureN)self_731186)->elements[1],((closureN)self_731186)->elements[0]);
|
|
return_closcall1(data, ((closureN)self_731186)->elements[1], c_731435);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse/tok");
|
|
if( (boolean_f != Cyc_is_null(tok_73240)) ){
|
|
|
|
closureN_type c_731380;
|
|
c_731380.hdr.mark = gc_color_red;
|
|
c_731380.hdr.grayed = 0;
|
|
c_731380.tag = closureN_tag;
|
|
c_731380.fn = (function_type)__lambda_28;
|
|
c_731380.num_args = 1;
|
|
c_731380.num_elements = 7;
|
|
c_731380.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731380.elements[0] = all_127_73238;
|
|
c_731380.elements[1] = comment_127_73237;
|
|
c_731380.elements[2] = fp_73241;
|
|
c_731380.elements[3] = k_73751;
|
|
c_731380.elements[4] = parens_73236;
|
|
c_731380.elements[5] = ptbl_73235;
|
|
c_731380.elements[6] = toks_73239;
|
|
|
|
return_closcall1(data,(closure)&c_731380, NULL);
|
|
} else {
|
|
if( (boolean_f != all_127_73238) ){
|
|
|
|
closureN_type c_731390;
|
|
c_731390.hdr.mark = gc_color_red;
|
|
c_731390.hdr.grayed = 0;
|
|
c_731390.tag = closureN_tag;
|
|
c_731390.fn = (function_type)__lambda_31;
|
|
c_731390.num_args = 1;
|
|
c_731390.num_elements = 8;
|
|
c_731390.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731390.elements[0] = all_127_73238;
|
|
c_731390.elements[1] = comment_127_73237;
|
|
c_731390.elements[2] = fp_73241;
|
|
c_731390.elements[3] = k_73751;
|
|
c_731390.elements[4] = parens_73236;
|
|
c_731390.elements[5] = ptbl_73235;
|
|
c_731390.elements[6] = tok_73240;
|
|
c_731390.elements[7] = toks_73239;
|
|
|
|
return_closcall1(data,(closure)&c_731390, NULL);
|
|
} else {
|
|
|
|
closureN_type c_731406;
|
|
c_731406.hdr.mark = gc_color_red;
|
|
c_731406.hdr.grayed = 0;
|
|
c_731406.tag = closureN_tag;
|
|
c_731406.fn = (function_type)__lambda_34;
|
|
c_731406.num_args = 1;
|
|
c_731406.num_elements = 3;
|
|
c_731406.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731406.elements[0] = k_73751;
|
|
c_731406.elements[1] = tok_73240;
|
|
c_731406.elements[2] = toks_73239;
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731406, ptbl_73235, curr_91char_73234);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_34(void *data, int argc, object self_731187, object r_73757) {
|
|
|
|
closureN_type c_731408;
|
|
c_731408.hdr.mark = gc_color_red;
|
|
c_731408.hdr.grayed = 0;
|
|
c_731408.tag = closureN_tag;
|
|
c_731408.fn = (function_type)__lambda_33;
|
|
c_731408.num_args = 1;
|
|
c_731408.num_elements = 2;
|
|
c_731408.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731408.elements[0] = ((closureN)self_731187)->elements[0];
|
|
c_731408.elements[1] = ((closureN)self_731187)->elements[2];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731408, ((closureN)self_731187)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_33(void *data, int argc, object self_731188, object r_73759) {
|
|
|
|
closureN_type c_731410;
|
|
c_731410.hdr.mark = gc_color_red;
|
|
c_731410.hdr.grayed = 0;
|
|
c_731410.tag = closureN_tag;
|
|
c_731410.fn = (function_type)__lambda_32;
|
|
c_731410.num_args = 1;
|
|
c_731410.num_elements = 1;
|
|
c_731410.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731410.elements[0] = ((closureN)self_731188)->elements[0];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731410, r_73759, ((closureN)self_731188)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_32(void *data, int argc, object self_731189, object r_73758) {
|
|
return_closcall1(data, ((closureN)self_731189)->elements[0], car(r_73758));;
|
|
}
|
|
|
|
static void __lambda_31(void *data, int argc, object self_731190, object r_73754) {
|
|
|
|
closureN_type c_731392;
|
|
c_731392.hdr.mark = gc_color_red;
|
|
c_731392.hdr.grayed = 0;
|
|
c_731392.tag = closureN_tag;
|
|
c_731392.fn = (function_type)__lambda_30;
|
|
c_731392.num_args = 1;
|
|
c_731392.num_elements = 8;
|
|
c_731392.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_731392.elements[0] = ((closureN)self_731190)->elements[0];
|
|
c_731392.elements[1] = ((closureN)self_731190)->elements[1];
|
|
c_731392.elements[2] = ((closureN)self_731190)->elements[2];
|
|
c_731392.elements[3] = ((closureN)self_731190)->elements[3];
|
|
c_731392.elements[4] = ((closureN)self_731190)->elements[4];
|
|
c_731392.elements[5] = ((closureN)self_731190)->elements[5];
|
|
c_731392.elements[6] = r_73754;
|
|
c_731392.elements[7] = ((closureN)self_731190)->elements[7];
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731392, ((closureN)self_731190)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_30(void *data, int argc, object self_731191, object r_73756) {
|
|
|
|
closureN_type c_731394;
|
|
c_731394.hdr.mark = gc_color_red;
|
|
c_731394.hdr.grayed = 0;
|
|
c_731394.tag = closureN_tag;
|
|
c_731394.fn = (function_type)__lambda_29;
|
|
c_731394.num_args = 1;
|
|
c_731394.num_elements = 7;
|
|
c_731394.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_731394.elements[0] = ((closureN)self_731191)->elements[0];
|
|
c_731394.elements[1] = ((closureN)self_731191)->elements[1];
|
|
c_731394.elements[2] = ((closureN)self_731191)->elements[2];
|
|
c_731394.elements[3] = ((closureN)self_731191)->elements[3];
|
|
c_731394.elements[4] = ((closureN)self_731191)->elements[4];
|
|
c_731394.elements[5] = ((closureN)self_731191)->elements[5];
|
|
c_731394.elements[6] = ((closureN)self_731191)->elements[6];
|
|
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, &c_731394, r_73756, ((closureN)self_731191)->elements[7]);;
|
|
}
|
|
|
|
static void __lambda_29(void *data, int argc, object self_731192, object r_73755) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731192)->elements[3], ((closureN)self_731192)->elements[2], ((closureN)self_731192)->elements[6], r_73755, ((closureN)self_731192)->elements[0], ((closureN)self_731192)->elements[1], ((closureN)self_731192)->elements[4], ((closureN)self_731192)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_28(void *data, int argc, object self_731193, object r_73753) {
|
|
return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731193)->elements[3], ((closureN)self_731193)->elements[2], r_73753, ((closureN)self_731193)->elements[6], ((closureN)self_731193)->elements[0], ((closureN)self_731193)->elements[1], ((closureN)self_731193)->elements[4], ((closureN)self_731193)->elements[5]);;
|
|
}
|
|
|
|
static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) {
|
|
Cyc_st_add(data, "scheme/read.sld:parse-error");
|
|
|
|
closureN_type c_731354;
|
|
c_731354.hdr.mark = gc_color_red;
|
|
c_731354.hdr.grayed = 0;
|
|
c_731354.tag = closureN_tag;
|
|
c_731354.fn = (function_type)__lambda_26;
|
|
c_731354.num_args = 1;
|
|
c_731354.num_elements = 3;
|
|
c_731354.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731354.elements[0] = cnum_73242;
|
|
c_731354.elements[1] = k_73762;
|
|
c_731354.elements[2] = msg_73244;
|
|
|
|
|
|
object c_731375 = Cyc_number2string2(data,(closure)&c_731354,1,lnum_73243);
|
|
return_closcall1(data,(closure)&c_731354, c_731375);;
|
|
}
|
|
|
|
static void __lambda_26(void *data, int argc, object self_731194, object r_73764) {
|
|
|
|
closureN_type c_731356;
|
|
c_731356.hdr.mark = gc_color_red;
|
|
c_731356.hdr.grayed = 0;
|
|
c_731356.tag = closureN_tag;
|
|
c_731356.fn = (function_type)__lambda_25;
|
|
c_731356.num_args = 1;
|
|
c_731356.num_elements = 3;
|
|
c_731356.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_731356.elements[0] = ((closureN)self_731194)->elements[1];
|
|
c_731356.elements[1] = ((closureN)self_731194)->elements[2];
|
|
c_731356.elements[2] = r_73764;
|
|
|
|
|
|
object c_731371 = Cyc_number2string2(data,(closure)&c_731356,1,((closureN)self_731194)->elements[0]);
|
|
return_closcall1(data,(closure)&c_731356, c_731371);;
|
|
}
|
|
|
|
static void __lambda_25(void *data, int argc, object self_731195, object r_73765) {
|
|
|
|
closureN_type c_731358;
|
|
c_731358.hdr.mark = gc_color_red;
|
|
c_731358.hdr.grayed = 0;
|
|
c_731358.tag = closureN_tag;
|
|
c_731358.fn = (function_type)__lambda_24;
|
|
c_731358.num_args = 1;
|
|
c_731358.num_elements = 1;
|
|
c_731358.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731358.elements[0] = ((closureN)self_731195)->elements[0];
|
|
|
|
|
|
make_string(c_731364, "Error (line ");
|
|
|
|
make_string(c_731366, ", char ");
|
|
|
|
make_string(c_731367, "): ");
|
|
|
|
object c_731363 = Cyc_string_append(data,(closure)&c_731358,6,&c_731364, ((closureN)self_731195)->elements[2], &c_731366, r_73765, &c_731367, ((closureN)self_731195)->elements[1]);
|
|
return_closcall1(data,(closure)&c_731358, c_731363);;
|
|
}
|
|
|
|
static void __lambda_24(void *data, int argc, object self_731196, object r_73763) {
|
|
return_closcall2(data, __glo_error_scheme_base, ((closureN)self_731196)->elements[0], r_73763);;
|
|
}
|
|
|
|
static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) {
|
|
Cyc_st_add(data, "scheme/read.sld:->dotted-list");
|
|
if( (boolean_f != Cyc_is_null(lst_73245)) ){
|
|
return_closcall1(data, k_73768, NULL);
|
|
} else {
|
|
make_string(c_731336, ".");
|
|
if( (boolean_f != equalp(car(lst_73245), Cyc_string2symbol(data, &c_731336))) ){
|
|
return_closcall1(data, k_73768, cadr(lst_73245));
|
|
} else {
|
|
|
|
closureN_type c_731341;
|
|
c_731341.hdr.mark = gc_color_red;
|
|
c_731341.hdr.grayed = 0;
|
|
c_731341.tag = closureN_tag;
|
|
c_731341.fn = (function_type)__lambda_22;
|
|
c_731341.num_args = 1;
|
|
c_731341.num_elements = 2;
|
|
c_731341.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731341.elements[0] = k_73768;
|
|
c_731341.elements[1] = lst_73245;
|
|
|
|
return_closcall2(data, __glo__91_125dotted_91list_scheme_read, &c_731341, cdr(lst_73245));}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_22(void *data, int argc, object self_731197, object r_73772) {
|
|
|
|
make_pair(c_731346,car(((closureN)self_731197)->elements[1]), r_73772);
|
|
return_closcall1(data, ((closureN)self_731197)->elements[0], &c_731346);;
|
|
}
|
|
|
|
static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) {
|
|
Cyc_st_add(data, "scheme/read.sld:dotted?");
|
|
|
|
closureN_type c_731306;
|
|
c_731306.hdr.mark = gc_color_red;
|
|
c_731306.hdr.grayed = 0;
|
|
c_731306.tag = closureN_tag;
|
|
c_731306.fn = (function_type)__lambda_20;
|
|
c_731306.num_args = 1;
|
|
c_731306.num_elements = 2;
|
|
c_731306.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731306.elements[0] = k_73778;
|
|
c_731306.elements[1] = lst_73246;
|
|
|
|
|
|
object c_731323 = Cyc_num_gt(data,(closure)&c_731306,2,Cyc_length(data, lst_73246), obj_int2obj(2));
|
|
return_closcall1(data,(closure)&c_731306, c_731323);;
|
|
}
|
|
|
|
static void __lambda_20(void *data, int argc, object self_731198, object r_73779) {
|
|
if( (boolean_f != r_73779) ){
|
|
|
|
closureN_type c_731308;
|
|
c_731308.hdr.mark = gc_color_red;
|
|
c_731308.hdr.grayed = 0;
|
|
c_731308.tag = closureN_tag;
|
|
c_731308.fn = (function_type)__lambda_19;
|
|
c_731308.num_args = 1;
|
|
c_731308.num_elements = 1;
|
|
c_731308.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731308.elements[0] = ((closureN)self_731198)->elements[0];
|
|
|
|
return_closcall2(data, __glo_reverse_scheme_base, &c_731308, ((closureN)self_731198)->elements[1]);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_731198)->elements[0], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_19(void *data, int argc, object self_731199, object r_73782) {
|
|
|
|
make_string(c_731317, ".");
|
|
return_closcall1(data, ((closureN)self_731199)->elements[0], equalp(cadr(r_73782), Cyc_string2symbol(data, &c_731317)));;
|
|
}
|
|
|
|
static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) {
|
|
Cyc_st_add(data, "scheme/read.sld:->tok");
|
|
|
|
closureN_type c_731301;
|
|
c_731301.hdr.mark = gc_color_red;
|
|
c_731301.hdr.grayed = 0;
|
|
c_731301.tag = closureN_tag;
|
|
c_731301.fn = (function_type)__lambda_17;
|
|
c_731301.num_args = 1;
|
|
c_731301.num_elements = 1;
|
|
c_731301.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_731301.elements[0] = k_73786;
|
|
|
|
return_closcall2(data, __glo_reverse_scheme_base, &c_731301, lst_73247);;
|
|
}
|
|
|
|
static void __lambda_17(void *data, int argc, object self_731200, object r_73787) {
|
|
return_closcall2(data, __glo_parse_91atom_scheme_read, ((closureN)self_731200)->elements[0], r_73787);;
|
|
}
|
|
|
|
static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) {
|
|
Cyc_st_add(data, "scheme/read.sld:get-toks");
|
|
if( (boolean_f != Cyc_is_null(tok_73249)) ){
|
|
return_closcall1(data, k_73790, toks_73248);
|
|
} else {
|
|
|
|
closureN_type c_731295;
|
|
c_731295.hdr.mark = gc_color_red;
|
|
c_731295.hdr.grayed = 0;
|
|
c_731295.tag = closureN_tag;
|
|
c_731295.fn = (function_type)__lambda_15;
|
|
c_731295.num_args = 1;
|
|
c_731295.num_elements = 2;
|
|
c_731295.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731295.elements[0] = k_73790;
|
|
c_731295.elements[1] = toks_73248;
|
|
|
|
return_closcall2(data, __glo__91_125tok_scheme_read, &c_731295, tok_73249);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_15(void *data, int argc, object self_731201, object r_73792) {
|
|
return_closcall3(data, __glo_add_91tok_scheme_read, ((closureN)self_731201)->elements[0], r_73792, ((closureN)self_731201)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) {
|
|
Cyc_st_add(data, "scheme/read.sld:add-tok");
|
|
|
|
make_pair(c_731289,tok_73251, toks_73250);
|
|
return_closcall1(data, k_73795, &c_731289);;
|
|
}
|
|
|
|
static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:set-cnum!");
|
|
return_closcall1(data, k_73798, Cyc_set_car(data, cdddr(ptbl_73253), cnum_73252));;
|
|
}
|
|
|
|
static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:get-cnum");
|
|
return_closcall1(data, k_73802, cadddr(ptbl_73254));;
|
|
}
|
|
|
|
static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:set-lnum!");
|
|
return_closcall1(data, k_73805, Cyc_set_car(data, cddr(ptbl_73256), lnum_73255));;
|
|
}
|
|
|
|
static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:get-lnum");
|
|
return_closcall1(data, k_73809, caddr(ptbl_73257));;
|
|
}
|
|
|
|
static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:set-buf!");
|
|
return_closcall1(data, k_73812, Cyc_set_car(data, cdr(ptbl_73259), buf_73258));;
|
|
}
|
|
|
|
static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:get-buf");
|
|
return_closcall1(data, k_73816, cadr(ptbl_73260));;
|
|
}
|
|
|
|
static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) {
|
|
Cyc_st_add(data, "scheme/read.sld:in-port:read-buf!");
|
|
|
|
closureN_type c_731249;
|
|
c_731249.hdr.mark = gc_color_red;
|
|
c_731249.hdr.grayed = 0;
|
|
c_731249.tag = closureN_tag;
|
|
c_731249.fn = (function_type)__lambda_6;
|
|
c_731249.num_args = 1;
|
|
c_731249.num_elements = 2;
|
|
c_731249.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731249.elements[0] = k_73819;
|
|
c_731249.elements[1] = ptbl_73261;
|
|
|
|
return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731249, ptbl_73261, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_6(void *data, int argc, object self_731202, object r_73821) {
|
|
return_closcall1(data, ((closureN)self_731202)->elements[0], cadr(((closureN)self_731202)->elements[1]));;
|
|
}
|
|
|
|
static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) {
|
|
Cyc_st_add(data, "scheme/read.sld:reg-port");
|
|
|
|
closureN_type c_731210;
|
|
c_731210.hdr.mark = gc_color_red;
|
|
c_731210.hdr.grayed = 0;
|
|
c_731210.tag = closureN_tag;
|
|
c_731210.fn = (function_type)__lambda_4;
|
|
c_731210.num_args = 1;
|
|
c_731210.num_elements = 2;
|
|
c_731210.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731210.elements[0] = fp_73263;
|
|
c_731210.elements[1] = k_73824;
|
|
|
|
return_closcall1(data,(closure)&c_731210, assoc(data, fp_73263, __glo__85in_91port_91table_85_scheme_read));;
|
|
}
|
|
|
|
static void __lambda_4(void *data, int argc, object self_731203, object r_73264) {
|
|
|
|
closureN_type c_731212;
|
|
c_731212.hdr.mark = gc_color_red;
|
|
c_731212.hdr.grayed = 0;
|
|
c_731212.tag = closureN_tag;
|
|
c_731212.fn = (function_type)__lambda_3;
|
|
c_731212.num_args = 1;
|
|
c_731212.num_elements = 2;
|
|
c_731212.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731212.elements[0] = ((closureN)self_731203)->elements[0];
|
|
c_731212.elements[1] = ((closureN)self_731203)->elements[1];
|
|
|
|
|
|
make_cell(c_731244,r_73264);
|
|
return_closcall1(data,(closure)&c_731212, &c_731244);;
|
|
}
|
|
|
|
static void __lambda_3(void *data, int argc, object self_731204, object r_73264) {
|
|
if( (boolean_f != cell_get(r_73264)) ){
|
|
return_closcall1(data, ((closureN)self_731204)->elements[1], cell_get(r_73264));
|
|
} else {
|
|
|
|
closureN_type c_731220;
|
|
c_731220.hdr.mark = gc_color_red;
|
|
c_731220.hdr.grayed = 0;
|
|
c_731220.tag = closureN_tag;
|
|
c_731220.fn = (function_type)__lambda_2;
|
|
c_731220.num_args = 1;
|
|
c_731220.num_elements = 2;
|
|
c_731220.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731220.elements[0] = ((closureN)self_731204)->elements[1];
|
|
c_731220.elements[1] = r_73264;
|
|
|
|
return_closcall5(data, __glo__list_scheme_base, &c_731220, ((closureN)self_731204)->elements[0], boolean_f, obj_int2obj(1), obj_int2obj(0));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_2(void *data, int argc, object self_731205, object r_73829) {
|
|
|
|
closureN_type c_731222;
|
|
c_731222.hdr.mark = gc_color_red;
|
|
c_731222.hdr.grayed = 0;
|
|
c_731222.tag = closureN_tag;
|
|
c_731222.fn = (function_type)__lambda_1;
|
|
c_731222.num_args = 1;
|
|
c_731222.num_elements = 2;
|
|
c_731222.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731222.elements[0] = ((closureN)self_731205)->elements[0];
|
|
c_731222.elements[1] = ((closureN)self_731205)->elements[1];
|
|
|
|
return_closcall1(data,(closure)&c_731222, Cyc_set_car(data, ((closureN)self_731205)->elements[1], r_73829));;
|
|
}
|
|
|
|
static void __lambda_1(void *data, int argc, object self_731206, object r_73826) {
|
|
|
|
closureN_type c_731224;
|
|
c_731224.hdr.mark = gc_color_red;
|
|
c_731224.hdr.grayed = 0;
|
|
c_731224.tag = closureN_tag;
|
|
c_731224.fn = (function_type)__lambda_0;
|
|
c_731224.num_args = 1;
|
|
c_731224.num_elements = 2;
|
|
c_731224.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_731224.elements[0] = ((closureN)self_731206)->elements[0];
|
|
c_731224.elements[1] = ((closureN)self_731206)->elements[1];
|
|
|
|
|
|
make_pair(c_731234,cell_get(((closureN)self_731206)->elements[1]), __glo__85in_91port_91table_85_scheme_read);
|
|
return_closcall1(data,(closure)&c_731224, global_set(__glo__85in_91port_91table_85_scheme_read, &c_731234));;
|
|
}
|
|
|
|
static void __lambda_0(void *data, int argc, object self_731207, object r_73827) {
|
|
return_closcall1(data, ((closureN)self_731207)->elements[0], cell_get(((closureN)self_731207)->elements[1]));;
|
|
}
|
|
|
|
void c_schemeread_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{
|
|
quote_DEBUG = find_or_add_symbol("DEBUG");
|
|
quote_read = find_or_add_symbol("read");
|
|
quote_unquote = find_or_add_symbol("unquote");
|
|
quote_unquote_91splicing = find_or_add_symbol("unquote-splicing");
|
|
quote_quasiquote = find_or_add_symbol("quasiquote");
|
|
quote_quote = find_or_add_symbol("quote");
|
|
|
|
add_global((object *) &__glo_lib_91init_117schemeread_scheme_read);
|
|
add_global((object *) &__glo_read_91all_scheme_read);
|
|
add_global((object *) &__glo_cyc_91read_scheme_read);
|
|
add_global((object *) &__glo_hex_91digit_127_scheme_read);
|
|
add_global((object *) &__glo_parse_91number_91rec_scheme_read);
|
|
add_global((object *) &__glo_parse_91number_scheme_read);
|
|
add_global((object *) &__glo_parse_91li_91rec_scheme_read);
|
|
add_global((object *) &__glo_parse_91literal_91identifier_scheme_read);
|
|
add_global((object *) &__glo_read_91block_91terminator_scheme_read);
|
|
add_global((object *) &__glo_read_91block_91comment_scheme_read);
|
|
add_global((object *) &__glo_get_91next_91char_scheme_read);
|
|
add_global((object *) &__glo_parse_91atom_scheme_read);
|
|
add_global((object *) &__glo_token_91numeric_127_scheme_read);
|
|
add_global((object *) &__glo_sign_127_scheme_read);
|
|
add_global((object *) &__glo_read_91str_91esc_scheme_read);
|
|
add_global((object *) &__glo_read_91str_scheme_read);
|
|
add_global((object *) &__glo_read_91pound_scheme_read);
|
|
add_global((object *) &__glo_parse_scheme_read);
|
|
add_global((object *) &__glo_parse_95tok_scheme_read);
|
|
add_global((object *) &__glo_parse_91error_scheme_read);
|
|
add_global((object *) &__glo__91_125dotted_91list_scheme_read);
|
|
add_global((object *) &__glo_dotted_127_scheme_read);
|
|
add_global((object *) &__glo__91_125tok_scheme_read);
|
|
add_global((object *) &__glo_get_91toks_scheme_read);
|
|
add_global((object *) &__glo_add_91tok_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117set_91cnum_67_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117get_91cnum_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117set_91lnum_67_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117get_91lnum_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117set_91buf_67_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117get_91buf_scheme_read);
|
|
add_global((object *) &__glo_in_91port_117read_91buf_67_scheme_read);
|
|
add_global((object *) &__glo_reg_91port_scheme_read);
|
|
add_global((object *) &__glo__85in_91port_91table_85_scheme_read);
|
|
add_global((object *) &__glo_read_scheme_read);
|
|
add_symbol(quote_DEBUG);
|
|
add_symbol(quote_read);
|
|
add_symbol(quote_unquote);
|
|
add_symbol(quote_unquote_91splicing);
|
|
add_symbol(quote_quasiquote);
|
|
add_symbol(quote_quote);
|
|
mclosure0(c_733648, (function_type)__lambda_406);c_733648.num_args = 0;
|
|
__glo_lib_91init_117schemeread_scheme_read = &c_733648;
|
|
mclosure0(c_733596, (function_type)__lambda_403);c_733596.num_args = 0;
|
|
__glo_read_91all_scheme_read = &c_733596;
|
|
mclosure0(c_733572, (function_type)__lambda_393);c_733572.num_args = 0;
|
|
__glo_cyc_91read_scheme_read = &c_733572;
|
|
mclosure0(c_733550, (function_type)__lambda_387);c_733550.num_args = 1;
|
|
__glo_hex_91digit_127_scheme_read = &c_733550;
|
|
mclosure0(c_733442, (function_type)__lambda_382);c_733442.num_args = 4;
|
|
__glo_parse_91number_91rec_scheme_read = &c_733442;
|
|
mclosure0(c_733369, (function_type)__lambda_361);c_733369.num_args = 7;
|
|
__glo_parse_91number_scheme_read = &c_733369;
|
|
mclosure0(c_733317, (function_type)__lambda_349);c_733317.num_args = 3;
|
|
__glo_parse_91li_91rec_scheme_read = &c_733317;
|
|
mclosure0(c_733294, (function_type)__lambda_339);c_733294.num_args = 5;
|
|
__glo_parse_91literal_91identifier_scheme_read = &c_733294;
|
|
mclosure0(c_733277, (function_type)__lambda_335);c_733277.num_args = 2;
|
|
__glo_read_91block_91terminator_scheme_read = &c_733277;
|
|
mclosure0(c_733264, (function_type)__lambda_333);c_733264.num_args = 2;
|
|
__glo_read_91block_91comment_scheme_read = &c_733264;
|
|
mclosure0(c_733252, (function_type)__lambda_331);c_733252.num_args = 2;
|
|
__glo_get_91next_91char_scheme_read = &c_733252;
|
|
mclosure0(c_733228, (function_type)__lambda_329);c_733228.num_args = 1;
|
|
__glo_parse_91atom_scheme_read = &c_733228;
|
|
mclosure0(c_733160, (function_type)__lambda_325);c_733160.num_args = 1;
|
|
__glo_token_91numeric_127_scheme_read = &c_733160;
|
|
mclosure0(c_733151, (function_type)__lambda_316);c_733151.num_args = 1;
|
|
__glo_sign_127_scheme_read = &c_733151;
|
|
mclosure0(c_733078, (function_type)__lambda_315);c_733078.num_args = 3;
|
|
__glo_read_91str_91esc_scheme_read = &c_733078;
|
|
mclosure0(c_733031, (function_type)__lambda_304);c_733031.num_args = 3;
|
|
__glo_read_91str_scheme_read = &c_733031;
|
|
mclosure0(c_732719, (function_type)__lambda_298);c_732719.num_args = 2;
|
|
__glo_read_91pound_scheme_read = &c_732719;
|
|
mclosure0(c_731417, (function_type)__lambda_256);c_731417.num_args = 7;
|
|
__glo_parse_scheme_read = &c_731417;
|
|
mclosure0(c_731376, (function_type)__lambda_35);c_731376.num_args = 8;
|
|
__glo_parse_95tok_scheme_read = &c_731376;
|
|
mclosure0(c_731352, (function_type)__lambda_27);c_731352.num_args = 3;
|
|
__glo_parse_91error_scheme_read = &c_731352;
|
|
mclosure0(c_731326, (function_type)__lambda_23);c_731326.num_args = 1;
|
|
__glo__91_125dotted_91list_scheme_read = &c_731326;
|
|
mclosure0(c_731304, (function_type)__lambda_21);c_731304.num_args = 1;
|
|
__glo_dotted_127_scheme_read = &c_731304;
|
|
mclosure0(c_731299, (function_type)__lambda_18);c_731299.num_args = 1;
|
|
__glo__91_125tok_scheme_read = &c_731299;
|
|
mclosure0(c_731290, (function_type)__lambda_16);c_731290.num_args = 2;
|
|
__glo_get_91toks_scheme_read = &c_731290;
|
|
mclosure0(c_731285, (function_type)__lambda_14);c_731285.num_args = 2;
|
|
__glo_add_91tok_scheme_read = &c_731285;
|
|
mclosure0(c_731279, (function_type)__lambda_13);c_731279.num_args = 2;
|
|
__glo_in_91port_117set_91cnum_67_scheme_read = &c_731279;
|
|
mclosure0(c_731275, (function_type)__lambda_12);c_731275.num_args = 1;
|
|
__glo_in_91port_117get_91cnum_scheme_read = &c_731275;
|
|
mclosure0(c_731269, (function_type)__lambda_11);c_731269.num_args = 2;
|
|
__glo_in_91port_117set_91lnum_67_scheme_read = &c_731269;
|
|
mclosure0(c_731265, (function_type)__lambda_10);c_731265.num_args = 1;
|
|
__glo_in_91port_117get_91lnum_scheme_read = &c_731265;
|
|
mclosure0(c_731259, (function_type)__lambda_9);c_731259.num_args = 2;
|
|
__glo_in_91port_117set_91buf_67_scheme_read = &c_731259;
|
|
mclosure0(c_731255, (function_type)__lambda_8);c_731255.num_args = 1;
|
|
__glo_in_91port_117get_91buf_scheme_read = &c_731255;
|
|
mclosure0(c_731247, (function_type)__lambda_7);c_731247.num_args = 1;
|
|
__glo_in_91port_117read_91buf_67_scheme_read = &c_731247;
|
|
mclosure0(c_731208, (function_type)__lambda_5);c_731208.num_args = 1;
|
|
__glo_reg_91port_scheme_read = &c_731208;
|
|
__glo__85in_91port_91table_85_scheme_read = boolean_f;
|
|
__glo_read_scheme_read = boolean_f;
|
|
|
|
make_cvar(cvar_733659, (object *)&__glo_lib_91init_117schemeread_scheme_read);make_pair(pair_733660, find_or_add_symbol("lib-init:schemeread"), &cvar_733659);
|
|
make_cvar(cvar_733661, (object *)&__glo_read_91all_scheme_read);make_pair(pair_733662, find_or_add_symbol("read-all"), &cvar_733661);
|
|
make_cvar(cvar_733663, (object *)&__glo_cyc_91read_scheme_read);make_pair(pair_733664, find_or_add_symbol("cyc-read"), &cvar_733663);
|
|
make_cvar(cvar_733665, (object *)&__glo_hex_91digit_127_scheme_read);make_pair(pair_733666, find_or_add_symbol("hex-digit?"), &cvar_733665);
|
|
make_cvar(cvar_733667, (object *)&__glo_parse_91number_91rec_scheme_read);make_pair(pair_733668, find_or_add_symbol("parse-number-rec"), &cvar_733667);
|
|
make_cvar(cvar_733669, (object *)&__glo_parse_91number_scheme_read);make_pair(pair_733670, find_or_add_symbol("parse-number"), &cvar_733669);
|
|
make_cvar(cvar_733671, (object *)&__glo_parse_91li_91rec_scheme_read);make_pair(pair_733672, find_or_add_symbol("parse-li-rec"), &cvar_733671);
|
|
make_cvar(cvar_733673, (object *)&__glo_parse_91literal_91identifier_scheme_read);make_pair(pair_733674, find_or_add_symbol("parse-literal-identifier"), &cvar_733673);
|
|
make_cvar(cvar_733675, (object *)&__glo_read_91block_91terminator_scheme_read);make_pair(pair_733676, find_or_add_symbol("read-block-terminator"), &cvar_733675);
|
|
make_cvar(cvar_733677, (object *)&__glo_read_91block_91comment_scheme_read);make_pair(pair_733678, find_or_add_symbol("read-block-comment"), &cvar_733677);
|
|
make_cvar(cvar_733679, (object *)&__glo_get_91next_91char_scheme_read);make_pair(pair_733680, find_or_add_symbol("get-next-char"), &cvar_733679);
|
|
make_cvar(cvar_733681, (object *)&__glo_parse_91atom_scheme_read);make_pair(pair_733682, find_or_add_symbol("parse-atom"), &cvar_733681);
|
|
make_cvar(cvar_733683, (object *)&__glo_token_91numeric_127_scheme_read);make_pair(pair_733684, find_or_add_symbol("token-numeric?"), &cvar_733683);
|
|
make_cvar(cvar_733685, (object *)&__glo_sign_127_scheme_read);make_pair(pair_733686, find_or_add_symbol("sign?"), &cvar_733685);
|
|
make_cvar(cvar_733687, (object *)&__glo_read_91str_91esc_scheme_read);make_pair(pair_733688, find_or_add_symbol("read-str-esc"), &cvar_733687);
|
|
make_cvar(cvar_733689, (object *)&__glo_read_91str_scheme_read);make_pair(pair_733690, find_or_add_symbol("read-str"), &cvar_733689);
|
|
make_cvar(cvar_733691, (object *)&__glo_read_91pound_scheme_read);make_pair(pair_733692, find_or_add_symbol("read-pound"), &cvar_733691);
|
|
make_cvar(cvar_733693, (object *)&__glo_parse_scheme_read);make_pair(pair_733694, find_or_add_symbol("parse"), &cvar_733693);
|
|
make_cvar(cvar_733695, (object *)&__glo_parse_95tok_scheme_read);make_pair(pair_733696, find_or_add_symbol("parse/tok"), &cvar_733695);
|
|
make_cvar(cvar_733697, (object *)&__glo_parse_91error_scheme_read);make_pair(pair_733698, find_or_add_symbol("parse-error"), &cvar_733697);
|
|
make_cvar(cvar_733699, (object *)&__glo__91_125dotted_91list_scheme_read);make_pair(pair_733700, find_or_add_symbol("->dotted-list"), &cvar_733699);
|
|
make_cvar(cvar_733701, (object *)&__glo_dotted_127_scheme_read);make_pair(pair_733702, find_or_add_symbol("dotted?"), &cvar_733701);
|
|
make_cvar(cvar_733703, (object *)&__glo__91_125tok_scheme_read);make_pair(pair_733704, find_or_add_symbol("->tok"), &cvar_733703);
|
|
make_cvar(cvar_733705, (object *)&__glo_get_91toks_scheme_read);make_pair(pair_733706, find_or_add_symbol("get-toks"), &cvar_733705);
|
|
make_cvar(cvar_733707, (object *)&__glo_add_91tok_scheme_read);make_pair(pair_733708, find_or_add_symbol("add-tok"), &cvar_733707);
|
|
make_cvar(cvar_733709, (object *)&__glo_in_91port_117set_91cnum_67_scheme_read);make_pair(pair_733710, find_or_add_symbol("in-port:set-cnum!"), &cvar_733709);
|
|
make_cvar(cvar_733711, (object *)&__glo_in_91port_117get_91cnum_scheme_read);make_pair(pair_733712, find_or_add_symbol("in-port:get-cnum"), &cvar_733711);
|
|
make_cvar(cvar_733713, (object *)&__glo_in_91port_117set_91lnum_67_scheme_read);make_pair(pair_733714, find_or_add_symbol("in-port:set-lnum!"), &cvar_733713);
|
|
make_cvar(cvar_733715, (object *)&__glo_in_91port_117get_91lnum_scheme_read);make_pair(pair_733716, find_or_add_symbol("in-port:get-lnum"), &cvar_733715);
|
|
make_cvar(cvar_733717, (object *)&__glo_in_91port_117set_91buf_67_scheme_read);make_pair(pair_733718, find_or_add_symbol("in-port:set-buf!"), &cvar_733717);
|
|
make_cvar(cvar_733719, (object *)&__glo_in_91port_117get_91buf_scheme_read);make_pair(pair_733720, find_or_add_symbol("in-port:get-buf"), &cvar_733719);
|
|
make_cvar(cvar_733721, (object *)&__glo_in_91port_117read_91buf_67_scheme_read);make_pair(pair_733722, find_or_add_symbol("in-port:read-buf!"), &cvar_733721);
|
|
make_cvar(cvar_733723, (object *)&__glo_reg_91port_scheme_read);make_pair(pair_733724, find_or_add_symbol("reg-port"), &cvar_733723);
|
|
make_cvar(cvar_733725, (object *)&__glo__85in_91port_91table_85_scheme_read);make_pair(pair_733726, find_or_add_symbol("*in-port-table*"), &cvar_733725);
|
|
make_cvar(cvar_733727, (object *)&__glo_read_scheme_read);make_pair(pair_733728, find_or_add_symbol("read"), &cvar_733727);
|
|
make_pair(c_733729, &pair_733660,Cyc_global_variables);
|
|
make_pair(c_733730, &pair_733662, &c_733729);
|
|
make_pair(c_733731, &pair_733664, &c_733730);
|
|
make_pair(c_733732, &pair_733666, &c_733731);
|
|
make_pair(c_733733, &pair_733668, &c_733732);
|
|
make_pair(c_733734, &pair_733670, &c_733733);
|
|
make_pair(c_733735, &pair_733672, &c_733734);
|
|
make_pair(c_733736, &pair_733674, &c_733735);
|
|
make_pair(c_733737, &pair_733676, &c_733736);
|
|
make_pair(c_733738, &pair_733678, &c_733737);
|
|
make_pair(c_733739, &pair_733680, &c_733738);
|
|
make_pair(c_733740, &pair_733682, &c_733739);
|
|
make_pair(c_733741, &pair_733684, &c_733740);
|
|
make_pair(c_733742, &pair_733686, &c_733741);
|
|
make_pair(c_733743, &pair_733688, &c_733742);
|
|
make_pair(c_733744, &pair_733690, &c_733743);
|
|
make_pair(c_733745, &pair_733692, &c_733744);
|
|
make_pair(c_733746, &pair_733694, &c_733745);
|
|
make_pair(c_733747, &pair_733696, &c_733746);
|
|
make_pair(c_733748, &pair_733698, &c_733747);
|
|
make_pair(c_733749, &pair_733700, &c_733748);
|
|
make_pair(c_733750, &pair_733702, &c_733749);
|
|
make_pair(c_733751, &pair_733704, &c_733750);
|
|
make_pair(c_733752, &pair_733706, &c_733751);
|
|
make_pair(c_733753, &pair_733708, &c_733752);
|
|
make_pair(c_733754, &pair_733710, &c_733753);
|
|
make_pair(c_733755, &pair_733712, &c_733754);
|
|
make_pair(c_733756, &pair_733714, &c_733755);
|
|
make_pair(c_733757, &pair_733716, &c_733756);
|
|
make_pair(c_733758, &pair_733718, &c_733757);
|
|
make_pair(c_733759, &pair_733720, &c_733758);
|
|
make_pair(c_733760, &pair_733722, &c_733759);
|
|
make_pair(c_733761, &pair_733724, &c_733760);
|
|
make_pair(c_733762, &pair_733726, &c_733761);
|
|
make_pair(c_733763, &pair_733728, &c_733762);
|
|
Cyc_global_variables = &c_733763;
|
|
cont = ((closure1_type *)cont)->element;
|
|
(((closure)__glo_lib_91init_117schemeread_scheme_read)->fn)(data, 1, cont, cont);
|
|
}
|