/*===========================================================================*/
/*   (Ieee/input.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/input.scm -indent -o objs/obj_s/Ieee/input.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_INPUT_6_10_2_TYPE_DEFINITIONS
#define BGL___R4_INPUT_6_10_2_TYPE_DEFINITIONS

/* object type definitions */
typedef struct BgL_z62exceptionz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
} *BgL_z62exceptionz62_bglt;

typedef struct BgL_z62errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62errorz62_bglt;

typedef struct BgL_z62iozd2errorzb0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2errorzb0_bglt;

typedef struct BgL_z62iozd2closedzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2closedzd2errorz62_bglt;


#endif // BGL___R4_INPUT_6_10_2_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

extern obj_t BGl_z62iozd2closedzd2errorz62zz__objectz00;
static obj_t BGl_symbol4421z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
static obj_t BGl_symbol4424z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4426z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4508z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4429z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(obj_t, obj_t, long, long);
static obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza32898ze3ze5zz__r4_input_6_10_2z00(obj_t);
static int BGl_z52sendcharsz52zz__r4_input_6_10_2z00(obj_t, obj_t, long, long);
static obj_t BGl_symbol4512z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4432z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_symbol4434z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4519z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4438z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__passwordz00zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_passwordz00zz__r4_input_6_10_2z00(obj_t);
extern obj_t BGl_raisez00zz__errorz00(obj_t);
static obj_t BGl_symbol4524z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4411z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t);
static obj_t BGl_symbol4446z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4448z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4416z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4419z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza32690ze3ze5zz__r4_input_6_10_2z00(obj_t);
extern obj_t bgl_display_obj(obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__gunza7ipza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4531z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4450z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4420z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t bgl_file_to_string(char *);
static obj_t BGl_symbol4536z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4455z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4423z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4428z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern bool_t fexists(char *);
BGL_EXPORTED_DECL obj_t BGl_eofzd2objectzd2zz__r4_input_6_10_2z00(void);
static obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_symbol4541z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4460z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4431z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4546z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4466z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(void);
static obj_t BGl_list4437z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
extern bool_t rgc_buffer_insert_substring(obj_t, obj_t, long, long);
static obj_t BGl_z62zc3z04anonymousza32676ze3ze5zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
static obj_t BGl_symbol4551z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4471z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4554z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4440z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_symbol4476z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4445z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern bool_t rgc_buffer_eof_p(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_z62readzf2rpz90zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00(void);
extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_genericzd2initzd2zz__r4_input_6_10_2z00(void);
extern long bgl_list_length(obj_t);
static obj_t BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4481z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31400ze3ze5zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_filezd2lineszd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4485z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(void);
static obj_t BGl_symbol4567z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4454z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r4_input_6_10_2z00(void);
BGL_EXPORTED_DECL obj_t BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t);
extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
static obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza32694ze3ze5zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_objectzd2initzd2zz__r4_input_6_10_2z00(void);
extern long bgl_rgc_blit_string(obj_t, char *, long, long);
static obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_symbol4570z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4576z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4498z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t, long, long, obj_t);
BGL_EXPORTED_DECL long BGl_sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t, long, long);
extern obj_t bgl_password(char *);
static obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_reverse_bang(obj_t);
extern obj_t bgl_sendchars(obj_t, obj_t, long, long);
static obj_t BGl__peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_symbol4581z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t, long, long, obj_t);
static obj_t BGl_symbol4588z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__readzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t);
extern obj_t bgl_sendfile(obj_t, obj_t, long, long);
extern bool_t rgc_buffer_insert_char(obj_t, int);
static obj_t BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
extern int rgc_buffer_unget_char(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t, obj_t);
extern long default_io_bufsiz;
BGL_EXPORTED_DECL obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__r4_input_6_10_2z00(void);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
BGL_EXPORTED_DECL bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t);
extern obj_t bgl_find_runtime_type(obj_t);
extern obj_t BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(unsigned char, obj_t);
static obj_t BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(int, obj_t);
extern bool_t rgc_fill_buffer(obj_t);
static obj_t BGl__readzd2bytezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t make_string(long, unsigned char);
static obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t bgl_close_input_port(obj_t);
extern obj_t bgl_bignum_sub(obj_t, obj_t);
static obj_t BGl__readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t, obj_t);
extern bool_t bgl_rgc_charready(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2bytezd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4409z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t bgl_long_to_bignum(long);
extern obj_t make_string_sans_fill(long);
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t rgc_buffer_substring(obj_t, long, long);
static obj_t BGl_symbol4412z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4414z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4417z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_peekzd2bytezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__peekza7d2byteza7d2za74592za7, opt_generic_entry, BGl__peekzd2bytezd2zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4540z00zz__r4_input_6_10_2z00, BgL_bgl_string4540za700za7za7_4593za7, "case_else1306", 13 );
BGL_DEFINE_STRING(BGl_string4542z00zz__r4_input_6_10_2z00, BgL_bgl_string4542za700za7za7_4594za7, "unread-char!", 12 );
BGL_DEFINE_STRING(BGl_string4461z00zz__r4_input_6_10_2z00, BgL_bgl_string4461za700za7za7_4595za7, "read-char", 9 );
BGL_DEFINE_STRING(BGl_string4543z00zz__r4_input_6_10_2z00, BgL_bgl_string4543za700za7za7_4596za7, "Unread char failed", 18 );
BGL_DEFINE_STRING(BGl_string4462z00zz__r4_input_6_10_2z00, BgL_bgl_string4462za700za7za7_4597za7, "wrong number of arguments: [0..1] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4544z00zz__r4_input_6_10_2z00, BgL_bgl_string4544za700za7za7_4598za7, "_unread-string!", 15 );
BGL_DEFINE_STRING(BGl_string4463z00zz__r4_input_6_10_2z00, BgL_bgl_string4463za700za7za7_4599za7, "_read-char", 10 );
BGL_DEFINE_STRING(BGl_string4545z00zz__r4_input_6_10_2z00, BgL_bgl_string4545za700za7za7_4600za7, "case_else1311", 13 );
BGL_DEFINE_STRING(BGl_string4464z00zz__r4_input_6_10_2z00, BgL_bgl_string4464za700za7za7_4601za7, "STATE-0-1040", 12 );
BGL_DEFINE_STRING(BGl_string4465z00zz__r4_input_6_10_2z00, BgL_bgl_string4465za700za7za7_4602za7, "case_else1251", 13 );
BGL_DEFINE_STRING(BGl_string4547z00zz__r4_input_6_10_2z00, BgL_bgl_string4547za700za7za7_4603za7, "unread-string!", 14 );
BGL_DEFINE_STRING(BGl_string4548z00zz__r4_input_6_10_2z00, BgL_bgl_string4548za700za7za7_4604za7, "Unread string failed", 20 );
BGL_DEFINE_STRING(BGl_string4467z00zz__r4_input_6_10_2z00, BgL_bgl_string4467za700za7za7_4605za7, "peek-char", 9 );
BGL_DEFINE_STRING(BGl_string4549z00zz__r4_input_6_10_2z00, BgL_bgl_string4549za700za7za7_4606za7, "_unread-substring!", 18 );
BGL_DEFINE_STRING(BGl_string4468z00zz__r4_input_6_10_2z00, BgL_bgl_string4468za700za7za7_4607za7, "_peek-char", 10 );
BGL_DEFINE_STRING(BGl_string4387z00zz__r4_input_6_10_2z00, BgL_bgl_string4387za700za7za7_4608za7, "/tmp/bigloo/runtime/Ieee/input.scm", 34 );
BGL_DEFINE_STRING(BGl_string4469z00zz__r4_input_6_10_2z00, BgL_bgl_string4469za700za7za7_4609za7, "STATE-0-1048", 12 );
BGL_DEFINE_STRING(BGl_string4388z00zz__r4_input_6_10_2z00, BgL_bgl_string4388za700za7za7_4610za7, "ignore", 6 );
BGL_DEFINE_STRING(BGl_string4389z00zz__r4_input_6_10_2z00, BgL_bgl_string4389za700za7za7_4611za7, "input-port", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2bytezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2byteza7d2za74612za7, opt_generic_entry, BGl__readzd2bytezd2zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2lalrpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl_za762readza7f2lalrpza74613za7, va_generic_entry, BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00, BUNSPEC, -4);
BGL_DEFINE_STRING(BGl_string4550z00zz__r4_input_6_10_2z00, BgL_bgl_string4550za700za7za7_4614za7, "case_else1318", 13 );
BGL_DEFINE_STRING(BGl_string4470z00zz__r4_input_6_10_2z00, BgL_bgl_string4470za700za7za7_4615za7, "case_else1255", 13 );
BGL_DEFINE_STRING(BGl_string4552z00zz__r4_input_6_10_2z00, BgL_bgl_string4552za700za7za7_4616za7, "unread-substring!", 17 );
BGL_DEFINE_STRING(BGl_string4390z00zz__r4_input_6_10_2z00, BgL_bgl_string4390za700za7za7_4617za7, "regular-grammar", 15 );
BGL_DEFINE_STRING(BGl_string4553z00zz__r4_input_6_10_2z00, BgL_bgl_string4553za700za7za7_4618za7, "Invalid positional parameters", 29 );
BGL_DEFINE_STRING(BGl_string4472z00zz__r4_input_6_10_2z00, BgL_bgl_string4472za700za7za7_4619za7, "read-byte", 9 );
BGL_DEFINE_STRING(BGl_string4391z00zz__r4_input_6_10_2z00, BgL_bgl_string4391za700za7za7_4620za7, "Illegal match", 13 );
BGL_DEFINE_STRING(BGl_string4473z00zz__r4_input_6_10_2z00, BgL_bgl_string4473za700za7za7_4621za7, "_read-byte", 10 );
BGL_DEFINE_STRING(BGl_string4392z00zz__r4_input_6_10_2z00, BgL_bgl_string4392za700za7za7_4622za7, "the-failure", 11 );
BGL_DEFINE_STRING(BGl_string4555z00zz__r4_input_6_10_2z00, BgL_bgl_string4555za700za7za7_4623za7, "unread-sustring!", 16 );
BGL_DEFINE_STRING(BGl_string4474z00zz__r4_input_6_10_2z00, BgL_bgl_string4474za700za7za7_4624za7, "STATE-0-1054", 12 );
BGL_DEFINE_STRING(BGl_string4393z00zz__r4_input_6_10_2z00, BgL_bgl_string4393za700za7za7_4625za7, "the-substring", 13 );
BGL_DEFINE_STRING(BGl_string4556z00zz__r4_input_6_10_2z00, BgL_bgl_string4556za700za7za7_4626za7, "&port->string-list", 18 );
BGL_DEFINE_STRING(BGl_string4475z00zz__r4_input_6_10_2z00, BgL_bgl_string4475za700za7za7_4627za7, "case_else1259", 13 );
BGL_DEFINE_STRING(BGl_string4394z00zz__r4_input_6_10_2z00, BgL_bgl_string4394za700za7za7_4628za7, "Illegal range `~a'", 18 );
BGL_DEFINE_STRING(BGl_string4557z00zz__r4_input_6_10_2z00, BgL_bgl_string4557za700za7za7_4629za7, "file:", 5 );
BGL_DEFINE_STRING(BGl_string4395z00zz__r4_input_6_10_2z00, BgL_bgl_string4395za700za7za7_4630za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string4558z00zz__r4_input_6_10_2z00, BgL_bgl_string4558za700za7za7_4631za7, "file->string", 12 );
BGL_DEFINE_STRING(BGl_string4477z00zz__r4_input_6_10_2z00, BgL_bgl_string4477za700za7za7_4632za7, "peek-byte", 9 );
BGL_DEFINE_STRING(BGl_string4396z00zz__r4_input_6_10_2z00, BgL_bgl_string4396za700za7za7_4633za7, "STATE-8-1113", 12 );
BGL_DEFINE_STRING(BGl_string4559z00zz__r4_input_6_10_2z00, BgL_bgl_string4559za700za7za7_4634za7, "&file->string", 13 );
BGL_DEFINE_STRING(BGl_string4478z00zz__r4_input_6_10_2z00, BgL_bgl_string4478za700za7za7_4635za7, "_peek-byte", 10 );
BGL_DEFINE_STRING(BGl_string4397z00zz__r4_input_6_10_2z00, BgL_bgl_string4397za700za7za7_4636za7, "STATE-6-1111", 12 );
BGL_DEFINE_STRING(BGl_string4479z00zz__r4_input_6_10_2z00, BgL_bgl_string4479za700za7za7_4637za7, "STATE-0-1060", 12 );
BGL_DEFINE_STRING(BGl_string4398z00zz__r4_input_6_10_2z00, BgL_bgl_string4398za700za7za7_4638za7, "STATE-9-1114", 12 );
BGL_DEFINE_STRING(BGl_string4399z00zz__r4_input_6_10_2z00, BgL_bgl_string4399za700za7za7_4639za7, "STATE-0-1105", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charsza7d24640z00, opt_generic_entry, BGl__readzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4560z00zz__r4_input_6_10_2z00, BgL_bgl_string4560za700za7za7_4641za7, "<@anonymous:2676>", 17 );
BGL_DEFINE_STRING(BGl_string4561z00zz__r4_input_6_10_2z00, BgL_bgl_string4561za700za7za7_4642za7, "send-chars/size", 15 );
BGL_DEFINE_STRING(BGl_string4480z00zz__r4_input_6_10_2z00, BgL_bgl_string4480za700za7za7_4643za7, "case_else1263", 13 );
BGL_DEFINE_STRING(BGl_string4562z00zz__r4_input_6_10_2z00, BgL_bgl_string4562za700za7za7_4644za7, "&send-chars/size", 16 );
BGL_DEFINE_STRING(BGl_string4563z00zz__r4_input_6_10_2z00, BgL_bgl_string4563za700za7za7_4645za7, "output-port", 11 );
BGL_DEFINE_STRING(BGl_string4482z00zz__r4_input_6_10_2z00, BgL_bgl_string4482za700za7za7_4646za7, "char-ready?", 11 );
BGL_DEFINE_STRING(BGl_string4564z00zz__r4_input_6_10_2z00, BgL_bgl_string4564za700za7za7_4647za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string4483z00zz__r4_input_6_10_2z00, BgL_bgl_string4483za700za7za7_4648za7, "_char-ready?", 12 );
BGL_DEFINE_STRING(BGl_string4565z00zz__r4_input_6_10_2z00, BgL_bgl_string4565za700za7za7_4649za7, "_send-chars", 11 );
BGL_DEFINE_STRING(BGl_string4484z00zz__r4_input_6_10_2z00, BgL_bgl_string4484za700za7za7_4650za7, "case_else1267", 13 );
BGL_DEFINE_STRING(BGl_string4566z00zz__r4_input_6_10_2z00, BgL_bgl_string4566za700za7za7_4651za7, "case_else1324", 13 );
BGL_DEFINE_STRING(BGl_string4486z00zz__r4_input_6_10_2z00, BgL_bgl_string4486za700za7za7_4652za7, "read-line", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_sendzd2filezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2fileza7d2za74653za7, opt_generic_entry, BGl__sendzd2filezd2zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4568z00zz__r4_input_6_10_2z00, BgL_bgl_string4568za700za7za7_4654za7, "send-chars::long", 16 );
BGL_DEFINE_STRING(BGl_string4487z00zz__r4_input_6_10_2z00, BgL_bgl_string4487za700za7za7_4655za7, "_read-line", 10 );
BGL_DEFINE_STRING(BGl_string4569z00zz__r4_input_6_10_2z00, BgL_bgl_string4569za700za7za7_4656za7, "wrong number of arguments: [2..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4488z00zz__r4_input_6_10_2z00, BgL_bgl_string4488za700za7za7_4657za7, "STATE-1-1069", 12 );
BGL_DEFINE_STRING(BGl_string4489z00zz__r4_input_6_10_2z00, BgL_bgl_string4489za700za7za7_4658za7, "STATE-0-1068", 12 );
BGL_DEFINE_STRING(BGl_string4571z00zz__r4_input_6_10_2z00, BgL_bgl_string4571za700za7za7_4659za7, "send-chars", 10 );
BGL_DEFINE_STRING(BGl_string4490z00zz__r4_input_6_10_2z00, BgL_bgl_string4490za700za7za7_4660za7, "STATE-3-1071", 12 );
BGL_DEFINE_STRING(BGl_string4572z00zz__r4_input_6_10_2z00, BgL_bgl_string4572za700za7za7_4661za7, "Illegal size", 12 );
BGL_DEFINE_STRING(BGl_string4491z00zz__r4_input_6_10_2z00, BgL_bgl_string4491za700za7za7_4662za7, "STATE-6-1074", 12 );
BGL_DEFINE_STRING(BGl_string4573z00zz__r4_input_6_10_2z00, BgL_bgl_string4573za700za7za7_4663za7, "Illegal offset", 14 );
BGL_DEFINE_STRING(BGl_string4492z00zz__r4_input_6_10_2z00, BgL_bgl_string4492za700za7za7_4664za7, "STATE-8-1076", 12 );
BGL_DEFINE_STRING(BGl_string4574z00zz__r4_input_6_10_2z00, BgL_bgl_string4574za700za7za7_4665za7, "_send-file", 10 );
BGL_DEFINE_STRING(BGl_string4493z00zz__r4_input_6_10_2z00, BgL_bgl_string4493za700za7za7_4666za7, "", 0 );
BGL_DEFINE_STRING(BGl_string4575z00zz__r4_input_6_10_2z00, BgL_bgl_string4575za700za7za7_4667za7, "case_else1328", 13 );
BGL_DEFINE_STRING(BGl_string4494z00zz__r4_input_6_10_2z00, BgL_bgl_string4494za700za7za7_4668za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string4495z00zz__r4_input_6_10_2z00, BgL_bgl_string4495za700za7za7_4669za7, "bchar", 5 );
BGL_DEFINE_STRING(BGl_string4577z00zz__r4_input_6_10_2z00, BgL_bgl_string4577za700za7za7_4670za7, "send-file::long", 15 );
BGL_DEFINE_STRING(BGl_string4496z00zz__r4_input_6_10_2z00, BgL_bgl_string4496za700za7za7_4671za7, "string-set!", 11 );
BGL_DEFINE_STRING(BGl_string4578z00zz__r4_input_6_10_2z00, BgL_bgl_string4578za700za7za7_4672za7, "send-file", 9 );
BGL_DEFINE_STRING(BGl_string4497z00zz__r4_input_6_10_2z00, BgL_bgl_string4497za700za7za7_4673za7, "case_else1271", 13 );
BGL_DEFINE_STRING(BGl_string4579z00zz__r4_input_6_10_2z00, BgL_bgl_string4579za700za7za7_4674za7, "<@anonymous:2690>", 17 );
BGL_DEFINE_STRING(BGl_string4499z00zz__r4_input_6_10_2z00, BgL_bgl_string4499za700za7za7_4675za7, "read-line-newline", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2ze3stringzd2envze3zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2za7e3str4676za7, BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4580z00zz__r4_input_6_10_2z00, BgL_bgl_string4580za700za7za7_4677za7, "&file-lines", 11 );
BGL_DEFINE_STRING(BGl_string4582z00zz__r4_input_6_10_2z00, BgL_bgl_string4582za700za7za7_4678za7, "file-lines", 10 );
BGL_DEFINE_STRING(BGl_string4583z00zz__r4_input_6_10_2z00, BgL_bgl_string4583za700za7za7_4679za7, "Illegal files", 13 );
BGL_DEFINE_STRING(BGl_string4584z00zz__r4_input_6_10_2z00, BgL_bgl_string4584za700za7za7_4680za7, "gram", 4 );
BGL_DEFINE_STRING(BGl_string4585z00zz__r4_input_6_10_2z00, BgL_bgl_string4585za700za7za7_4681za7, "&file-position->line", 20 );
BGL_DEFINE_STRING(BGl_string4586z00zz__r4_input_6_10_2z00, BgL_bgl_string4586za700za7za7_4682za7, "&<@anonymous:2898>", 18 );
BGL_DEFINE_STRING(BGl_string4587z00zz__r4_input_6_10_2z00, BgL_bgl_string4587za700za7za7_4683za7, "case_else1332", 13 );
BGL_DEFINE_STRING(BGl_string4589z00zz__r4_input_6_10_2z00, BgL_bgl_string4589za700za7za7_4684za7, "password", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2linesza74685za7, BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2linezd2newlinezd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2n4686z00, opt_generic_entry, BGl__readzd2linezd2newlinez00zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_peekzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__peekza7d2charza7d2za74687za7, opt_generic_entry, BGl__peekzd2charzd2zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4590z00zz__r4_input_6_10_2z00, BgL_bgl_string4590za700za7za7_4688za7, "_password", 9 );
BGL_DEFINE_STRING(BGl_string4591z00zz__r4_input_6_10_2z00, BgL_bgl_string4591za700za7za7_4689za7, "__r4_input_6_10_2", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2charsz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charsza7124690z00, opt_generic_entry, BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charza7d2za74691za7, opt_generic_entry, BGl__readzd2charzd2zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_charzd2readyzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl__charza7d2readyza7f34692z00, opt_generic_entry, BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_unreadzd2charz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2charza714693z00, opt_generic_entry, BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_sendzd2charszf2siza7ezd2envz55zz__r4_input_6_10_2z00, BgL_bgl_za762sendza7d2charsza74694za7, BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00, 0L, BUNSPEC, 4);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl_za762readza7f2rpza790za74695z00, va_generic_entry, BGl_z62readzf2rpz90zz__r4_input_6_10_2z00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2za74696za7, opt_generic_entry, BGl__readzd2linezd2zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2stringza7d4697z00, opt_generic_entry, BGl__readzd2stringzd2zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_unreadzd2stringz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2string4698za7, opt_generic_entry, BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2ofza7d2str4699z00, opt_generic_entry, BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4400z00zz__r4_input_6_10_2z00, BgL_bgl_string4400za700za7za7_4700za7, "STATE-4-1109", 12 );
BGL_DEFINE_STRING(BGl_string4401z00zz__r4_input_6_10_2z00, BgL_bgl_string4401za700za7za7_4701za7, "STATE-2-1107", 12 );
BGL_DEFINE_STRING(BGl_string4402z00zz__r4_input_6_10_2z00, BgL_bgl_string4402za700za7za7_4702za7, "STATE-3-1108", 12 );
BGL_DEFINE_STRING(BGl_string4403z00zz__r4_input_6_10_2z00, BgL_bgl_string4403za700za7za7_4703za7, "STATE-1-1106", 12 );
BGL_DEFINE_STRING(BGl_string4404z00zz__r4_input_6_10_2z00, BgL_bgl_string4404za700za7za7_4704za7, "<@anonymous:1400>", 17 );
BGL_DEFINE_STRING(BGl_string4405z00zz__r4_input_6_10_2z00, BgL_bgl_string4405za700za7za7_4705za7, "class-field", 11 );
BGL_DEFINE_STRING(BGl_string4406z00zz__r4_input_6_10_2z00, BgL_bgl_string4406za700za7za7_4706za7, "Can't read on a closed input port", 33 );
BGL_DEFINE_STRING(BGl_string4407z00zz__r4_input_6_10_2z00, BgL_bgl_string4407za700za7za7_4707za7, "read/rp", 7 );
BGL_DEFINE_STRING(BGl_string4408z00zz__r4_input_6_10_2z00, BgL_bgl_string4408za700za7za7_4708za7, "pair-nil", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00, BgL_bgl__readza7d2fillza7d2s4709z00, opt_generic_entry, BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_eofzd2objectzd2envz00zz__r4_input_6_10_2z00, BgL_bgl_za762eofza7d2objectza74710za7, BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string4410z00zz__r4_input_6_10_2z00, BgL_bgl_string4410za700za7za7_4711za7, "Wrong number of arguments", 25 );
BGL_DEFINE_STRING(BGl_string4413z00zz__r4_input_6_10_2z00, BgL_bgl_string4413za700za7za7_4712za7, "apply", 5 );
BGL_DEFINE_STRING(BGl_string4415z00zz__r4_input_6_10_2z00, BgL_bgl_string4415za700za7za7_4713za7, "grammar", 7 );
BGL_DEFINE_STRING(BGl_string4418z00zz__r4_input_6_10_2z00, BgL_bgl_string4418za700za7za7_4714za7, "let", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl_za762eofza7d2objectza74715za7, BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4500z00zz__r4_input_6_10_2z00, BgL_bgl_string4500za700za7za7_4716za7, "_read-line-newline", 18 );
BGL_DEFINE_STRING(BGl_string4501z00zz__r4_input_6_10_2z00, BgL_bgl_string4501za700za7za7_4717za7, "STATE-6-1089", 12 );
BGL_DEFINE_STRING(BGl_string4502z00zz__r4_input_6_10_2z00, BgL_bgl_string4502za700za7za7_4718za7, "STATE-3-1086", 12 );
BGL_DEFINE_STRING(BGl_string4503z00zz__r4_input_6_10_2z00, BgL_bgl_string4503za700za7za7_4719za7, "STATE-0-1083", 12 );
BGL_DEFINE_STRING(BGl_string4422z00zz__r4_input_6_10_2z00, BgL_bgl_string4422za700za7za7_4720za7, "list1611", 8 );
BGL_DEFINE_STRING(BGl_string4504z00zz__r4_input_6_10_2z00, BgL_bgl_string4504za700za7za7_4721za7, "STATE-1-1084", 12 );
BGL_DEFINE_STRING(BGl_string4505z00zz__r4_input_6_10_2z00, BgL_bgl_string4505za700za7za7_4722za7, "STATE-7-1090", 12 );
BGL_DEFINE_STRING(BGl_string4506z00zz__r4_input_6_10_2z00, BgL_bgl_string4506za700za7za7_4723za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string4425z00zz__r4_input_6_10_2z00, BgL_bgl_string4425za700za7za7_4724za7, "$cons", 5 );
BGL_DEFINE_STRING(BGl_string4507z00zz__r4_input_6_10_2z00, BgL_bgl_string4507za700za7za7_4725za7, "case_else1275", 13 );
BGL_DEFINE_STRING(BGl_string4427z00zz__r4_input_6_10_2z00, BgL_bgl_string4427za700za7za7_4726za7, "opts", 4 );
BGL_DEFINE_STRING(BGl_string4509z00zz__r4_input_6_10_2z00, BgL_bgl_string4509za700za7za7_4727za7, "read-lines", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_passwordzd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__passwordza700za7za7__4728za7, opt_generic_entry, BGl__passwordz00zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4510z00zz__r4_input_6_10_2z00, BgL_bgl_string4510za700za7za7_4729za7, "_read-lines", 11 );
BGL_DEFINE_STRING(BGl_string4511z00zz__r4_input_6_10_2z00, BgL_bgl_string4511za700za7za7_4730za7, "case_else1279", 13 );
BGL_DEFINE_STRING(BGl_string4430z00zz__r4_input_6_10_2z00, BgL_bgl_string4430za700za7za7_4731za7, "quote", 5 );
BGL_DEFINE_STRING(BGl_string4513z00zz__r4_input_6_10_2z00, BgL_bgl_string4513za700za7za7_4732za7, "read-string", 11 );
BGL_DEFINE_STRING(BGl_string4514z00zz__r4_input_6_10_2z00, BgL_bgl_string4514za700za7za7_4733za7, "_read-string", 12 );
BGL_DEFINE_STRING(BGl_string4433z00zz__r4_input_6_10_2z00, BgL_bgl_string4433za700za7za7_4734za7, "cons*", 5 );
BGL_DEFINE_STRING(BGl_string4515z00zz__r4_input_6_10_2z00, BgL_bgl_string4515za700za7za7_4735za7, "STATE-2-1101", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzd2ze3stringzd2listzd2envz31zz__r4_input_6_10_2z00, BgL_bgl_za762portza7d2za7e3str4736za7, BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4516z00zz__r4_input_6_10_2z00, BgL_bgl_string4516za700za7za7_4737za7, "STATE-1-1100", 12 );
BGL_DEFINE_STRING(BGl_string4435z00zz__r4_input_6_10_2z00, BgL_bgl_string4435za700za7za7_4738za7, "port", 4 );
BGL_DEFINE_STRING(BGl_string4517z00zz__r4_input_6_10_2z00, BgL_bgl_string4517za700za7za7_4739za7, "STATE-0-1099", 12 );
BGL_DEFINE_STRING(BGl_string4436z00zz__r4_input_6_10_2z00, BgL_bgl_string4436za700za7za7_4740za7, "read/rp:Wrong number of arguments", 33 );
BGL_DEFINE_STRING(BGl_string4518z00zz__r4_input_6_10_2z00, BgL_bgl_string4518za700za7za7_4741za7, "case_else1283", 13 );
BGL_DEFINE_STRING(BGl_string4439z00zz__r4_input_6_10_2z00, BgL_bgl_string4439za700za7za7_4742za7, "funcall", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2linesza7d24743z00, opt_generic_entry, BGl__readzd2lineszd2zz__r4_input_6_10_2z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_sendzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2charsza7d24744z00, opt_generic_entry, BGl__sendzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4520z00zz__r4_input_6_10_2z00, BgL_bgl_string4520za700za7za7_4745za7, "read-of-strings", 15 );
BGL_DEFINE_STRING(BGl_string4521z00zz__r4_input_6_10_2z00, BgL_bgl_string4521za700za7za7_4746za7, "_read-of-strings", 16 );
BGL_DEFINE_STRING(BGl_string4522z00zz__r4_input_6_10_2z00, BgL_bgl_string4522za700za7za7_4747za7, "_read-chars", 11 );
BGL_DEFINE_STRING(BGl_string4441z00zz__r4_input_6_10_2z00, BgL_bgl_string4441za700za7za7_4748za7, "Grammar arity mismatch", 22 );
BGL_DEFINE_STRING(BGl_string4523z00zz__r4_input_6_10_2z00, BgL_bgl_string4523za700za7za7_4749za7, "case_else1288", 13 );
BGL_DEFINE_STRING(BGl_string4442z00zz__r4_input_6_10_2z00, BgL_bgl_string4442za700za7za7_4750za7, "&read/rp", 8 );
BGL_DEFINE_STRING(BGl_string4443z00zz__r4_input_6_10_2z00, BgL_bgl_string4443za700za7za7_4751za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string4525z00zz__r4_input_6_10_2z00, BgL_bgl_string4525za700za7za7_4752za7, "read-chars", 10 );
BGL_DEFINE_STRING(BGl_string4444z00zz__r4_input_6_10_2z00, BgL_bgl_string4444za700za7za7_4753za7, "read/lalrp:Wrong number of arguments", 36 );
BGL_DEFINE_STRING(BGl_string4526z00zz__r4_input_6_10_2z00, BgL_bgl_string4526za700za7za7_4754za7, "wrong number of arguments: [1..2] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4527z00zz__r4_input_6_10_2z00, BgL_bgl_string4527za700za7za7_4755za7, "integer", 7 );
BGL_DEFINE_STRING(BGl_string4528z00zz__r4_input_6_10_2z00, BgL_bgl_string4528za700za7za7_4756za7, "Illegal negative length", 23 );
BGL_DEFINE_STRING(BGl_string4447z00zz__r4_input_6_10_2z00, BgL_bgl_string4447za700za7za7_4757za7, "lalr", 4 );
BGL_DEFINE_STRING(BGl_string4529z00zz__r4_input_6_10_2z00, BgL_bgl_string4529za700za7za7_4758za7, "_read-chars!", 12 );
BGL_DEFINE_STRING(BGl_string4449z00zz__r4_input_6_10_2z00, BgL_bgl_string4449za700za7za7_4759za7, "rgc", 3 );
BGL_DEFINE_STRING(BGl_string4530z00zz__r4_input_6_10_2z00, BgL_bgl_string4530za700za7za7_4760za7, "case_else1294", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_unreadzd2substringz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2substr4761za7, opt_generic_entry, BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string4532z00zz__r4_input_6_10_2z00, BgL_bgl_string4532za700za7za7_4762za7, "read-chars!", 11 );
BGL_DEFINE_STRING(BGl_string4451z00zz__r4_input_6_10_2z00, BgL_bgl_string4451za700za7za7_4763za7, "eof-object?-env", 15 );
BGL_DEFINE_STRING(BGl_string4533z00zz__r4_input_6_10_2z00, BgL_bgl_string4533za700za7za7_4764za7, "wrong number of arguments: [2..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4452z00zz__r4_input_6_10_2z00, BgL_bgl_string4452za700za7za7_4765za7, "read/lalrp", 10 );
BGL_DEFINE_STRING(BGl_string4534z00zz__r4_input_6_10_2z00, BgL_bgl_string4534za700za7za7_4766za7, "_read-fill-string!", 18 );
BGL_DEFINE_STRING(BGl_string4453z00zz__r4_input_6_10_2z00, BgL_bgl_string4453za700za7za7_4767za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string4535z00zz__r4_input_6_10_2z00, BgL_bgl_string4535za700za7za7_4768za7, "case_else1301", 13 );
BGL_DEFINE_STRING(BGl_string4537z00zz__r4_input_6_10_2z00, BgL_bgl_string4537za700za7za7_4769za7, "read-fill-string!", 17 );
BGL_DEFINE_STRING(BGl_string4456z00zz__r4_input_6_10_2z00, BgL_bgl_string4456za700za7za7_4770za7, "arg1613", 7 );
BGL_DEFINE_STRING(BGl_string4538z00zz__r4_input_6_10_2z00, BgL_bgl_string4538za700za7za7_4771za7, "wrong number of arguments: [3..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4457z00zz__r4_input_6_10_2z00, BgL_bgl_string4457za700za7za7_4772za7, "&read/lalrp", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2positionzd2ze3linezd2envz31zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2positi4773z00, BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string4539z00zz__r4_input_6_10_2z00, BgL_bgl_string4539za700za7za7_4774za7, "_unread-char!", 13 );
BGL_DEFINE_STRING(BGl_string4458z00zz__r4_input_6_10_2z00, BgL_bgl_string4458za700za7za7_4775za7, "case_else1247", 13 );
BGL_DEFINE_STRING(BGl_string4459z00zz__r4_input_6_10_2z00, BgL_bgl_string4459za700za7za7_4776za7, "vector", 6 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string4459z00zz__r4_input_6_10_2z00, BgL_bgl_string4459za700za7za7_4776za7);
BGL_BIND_STRING(BGl_string4458z00zz__r4_input_6_10_2z00, BgL_bgl_string4458za700za7za7_4775za7);
BGL_BIND_STRING(BGl_string4539z00zz__r4_input_6_10_2z00, BgL_bgl_string4539za700za7za7_4774za7);
BGL_BIND_PROCEDURE(BGl_filezd2positionzd2ze3linezd2envz31zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2positi4773z00);
BGL_BIND_STRING(BGl_string4457z00zz__r4_input_6_10_2z00, BgL_bgl_string4457za700za7za7_4772za7);
BGL_BIND_STRING(BGl_string4538z00zz__r4_input_6_10_2z00, BgL_bgl_string4538za700za7za7_4771za7);
BGL_BIND_STRING(BGl_string4456z00zz__r4_input_6_10_2z00, BgL_bgl_string4456za700za7za7_4770za7);
BGL_BIND_STRING(BGl_string4537z00zz__r4_input_6_10_2z00, BgL_bgl_string4537za700za7za7_4769za7);
BGL_BIND_STRING(BGl_string4535z00zz__r4_input_6_10_2z00, BgL_bgl_string4535za700za7za7_4768za7);
BGL_BIND_STRING(BGl_string4453z00zz__r4_input_6_10_2z00, BgL_bgl_string4453za700za7za7_4767za7);
BGL_BIND_STRING(BGl_string4534z00zz__r4_input_6_10_2z00, BgL_bgl_string4534za700za7za7_4766za7);
BGL_BIND_STRING(BGl_string4452z00zz__r4_input_6_10_2z00, BgL_bgl_string4452za700za7za7_4765za7);
BGL_BIND_STRING(BGl_string4533z00zz__r4_input_6_10_2z00, BgL_bgl_string4533za700za7za7_4764za7);
BGL_BIND_STRING(BGl_string4451z00zz__r4_input_6_10_2z00, BgL_bgl_string4451za700za7za7_4763za7);
BGL_BIND_STRING(BGl_string4532z00zz__r4_input_6_10_2z00, BgL_bgl_string4532za700za7za7_4762za7);
BGL_BIND_PROCEDURE(BGl_unreadzd2substringz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2substr4761za7);
BGL_BIND_STRING(BGl_string4530z00zz__r4_input_6_10_2z00, BgL_bgl_string4530za700za7za7_4760za7);
BGL_BIND_STRING(BGl_string4449z00zz__r4_input_6_10_2z00, BgL_bgl_string4449za700za7za7_4759za7);
BGL_BIND_STRING(BGl_string4529z00zz__r4_input_6_10_2z00, BgL_bgl_string4529za700za7za7_4758za7);
BGL_BIND_STRING(BGl_string4447z00zz__r4_input_6_10_2z00, BgL_bgl_string4447za700za7za7_4757za7);
BGL_BIND_STRING(BGl_string4528z00zz__r4_input_6_10_2z00, BgL_bgl_string4528za700za7za7_4756za7);
BGL_BIND_STRING(BGl_string4527z00zz__r4_input_6_10_2z00, BgL_bgl_string4527za700za7za7_4755za7);
BGL_BIND_STRING(BGl_string4526z00zz__r4_input_6_10_2z00, BgL_bgl_string4526za700za7za7_4754za7);
BGL_BIND_STRING(BGl_string4444z00zz__r4_input_6_10_2z00, BgL_bgl_string4444za700za7za7_4753za7);
BGL_BIND_STRING(BGl_string4525z00zz__r4_input_6_10_2z00, BgL_bgl_string4525za700za7za7_4752za7);
BGL_BIND_STRING(BGl_string4443z00zz__r4_input_6_10_2z00, BgL_bgl_string4443za700za7za7_4751za7);
BGL_BIND_STRING(BGl_string4442z00zz__r4_input_6_10_2z00, BgL_bgl_string4442za700za7za7_4750za7);
BGL_BIND_STRING(BGl_string4523z00zz__r4_input_6_10_2z00, BgL_bgl_string4523za700za7za7_4749za7);
BGL_BIND_STRING(BGl_string4441z00zz__r4_input_6_10_2z00, BgL_bgl_string4441za700za7za7_4748za7);
BGL_BIND_STRING(BGl_string4522z00zz__r4_input_6_10_2z00, BgL_bgl_string4522za700za7za7_4747za7);
BGL_BIND_STRING(BGl_string4521z00zz__r4_input_6_10_2z00, BgL_bgl_string4521za700za7za7_4746za7);
BGL_BIND_STRING(BGl_string4520z00zz__r4_input_6_10_2z00, BgL_bgl_string4520za700za7za7_4745za7);
BGL_BIND_PROCEDURE(BGl_sendzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2charsza7d24744z00);
BGL_BIND_PROCEDURE(BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2linesza7d24743z00);
BGL_BIND_STRING(BGl_string4439z00zz__r4_input_6_10_2z00, BgL_bgl_string4439za700za7za7_4742za7);
BGL_BIND_STRING(BGl_string4518z00zz__r4_input_6_10_2z00, BgL_bgl_string4518za700za7za7_4741za7);
BGL_BIND_STRING(BGl_string4436z00zz__r4_input_6_10_2z00, BgL_bgl_string4436za700za7za7_4740za7);
BGL_BIND_STRING(BGl_string4517z00zz__r4_input_6_10_2z00, BgL_bgl_string4517za700za7za7_4739za7);
BGL_BIND_STRING(BGl_string4435z00zz__r4_input_6_10_2z00, BgL_bgl_string4435za700za7za7_4738za7);
BGL_BIND_STRING(BGl_string4516z00zz__r4_input_6_10_2z00, BgL_bgl_string4516za700za7za7_4737za7);
BGL_BIND_PROCEDURE(BGl_portzd2ze3stringzd2listzd2envz31zz__r4_input_6_10_2z00, BgL_bgl_za762portza7d2za7e3str4736za7);
BGL_BIND_STRING(BGl_string4515z00zz__r4_input_6_10_2z00, BgL_bgl_string4515za700za7za7_4735za7);
BGL_BIND_STRING(BGl_string4433z00zz__r4_input_6_10_2z00, BgL_bgl_string4433za700za7za7_4734za7);
BGL_BIND_STRING(BGl_string4514z00zz__r4_input_6_10_2z00, BgL_bgl_string4514za700za7za7_4733za7);
BGL_BIND_STRING(BGl_string4513z00zz__r4_input_6_10_2z00, BgL_bgl_string4513za700za7za7_4732za7);
BGL_BIND_STRING(BGl_string4430z00zz__r4_input_6_10_2z00, BgL_bgl_string4430za700za7za7_4731za7);
BGL_BIND_STRING(BGl_string4511z00zz__r4_input_6_10_2z00, BgL_bgl_string4511za700za7za7_4730za7);
BGL_BIND_STRING(BGl_string4510z00zz__r4_input_6_10_2z00, BgL_bgl_string4510za700za7za7_4729za7);
BGL_BIND_PROCEDURE(BGl_passwordzd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__passwordza700za7za7__4728za7);
BGL_BIND_STRING(BGl_string4509z00zz__r4_input_6_10_2z00, BgL_bgl_string4509za700za7za7_4727za7);
BGL_BIND_STRING(BGl_string4427z00zz__r4_input_6_10_2z00, BgL_bgl_string4427za700za7za7_4726za7);
BGL_BIND_STRING(BGl_string4507z00zz__r4_input_6_10_2z00, BgL_bgl_string4507za700za7za7_4725za7);
BGL_BIND_STRING(BGl_string4425z00zz__r4_input_6_10_2z00, BgL_bgl_string4425za700za7za7_4724za7);
BGL_BIND_STRING(BGl_string4506z00zz__r4_input_6_10_2z00, BgL_bgl_string4506za700za7za7_4723za7);
BGL_BIND_STRING(BGl_string4505z00zz__r4_input_6_10_2z00, BgL_bgl_string4505za700za7za7_4722za7);
BGL_BIND_STRING(BGl_string4504z00zz__r4_input_6_10_2z00, BgL_bgl_string4504za700za7za7_4721za7);
BGL_BIND_STRING(BGl_string4422z00zz__r4_input_6_10_2z00, BgL_bgl_string4422za700za7za7_4720za7);
BGL_BIND_STRING(BGl_string4503z00zz__r4_input_6_10_2z00, BgL_bgl_string4503za700za7za7_4719za7);
BGL_BIND_STRING(BGl_string4502z00zz__r4_input_6_10_2z00, BgL_bgl_string4502za700za7za7_4718za7);
BGL_BIND_STRING(BGl_string4501z00zz__r4_input_6_10_2z00, BgL_bgl_string4501za700za7za7_4717za7);
BGL_BIND_STRING(BGl_string4500z00zz__r4_input_6_10_2z00, BgL_bgl_string4500za700za7za7_4716za7);
BGL_BIND_PROCEDURE(BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl_za762eofza7d2objectza74715za7);
BGL_BIND_STRING(BGl_string4418z00zz__r4_input_6_10_2z00, BgL_bgl_string4418za700za7za7_4714za7);
BGL_BIND_STRING(BGl_string4415z00zz__r4_input_6_10_2z00, BgL_bgl_string4415za700za7za7_4713za7);
BGL_BIND_STRING(BGl_string4413z00zz__r4_input_6_10_2z00, BgL_bgl_string4413za700za7za7_4712za7);
BGL_BIND_STRING(BGl_string4410z00zz__r4_input_6_10_2z00, BgL_bgl_string4410za700za7za7_4711za7);
BGL_BIND_PROCEDURE(BGl_eofzd2objectzd2envz00zz__r4_input_6_10_2z00, BgL_bgl_za762eofza7d2objectza74710za7);
BGL_BIND_PROCEDURE(BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00, BgL_bgl__readza7d2fillza7d2s4709z00);
BGL_BIND_STRING(BGl_string4408z00zz__r4_input_6_10_2z00, BgL_bgl_string4408za700za7za7_4708za7);
BGL_BIND_STRING(BGl_string4407z00zz__r4_input_6_10_2z00, BgL_bgl_string4407za700za7za7_4707za7);
BGL_BIND_STRING(BGl_string4406z00zz__r4_input_6_10_2z00, BgL_bgl_string4406za700za7za7_4706za7);
BGL_BIND_STRING(BGl_string4405z00zz__r4_input_6_10_2z00, BgL_bgl_string4405za700za7za7_4705za7);
BGL_BIND_STRING(BGl_string4404z00zz__r4_input_6_10_2z00, BgL_bgl_string4404za700za7za7_4704za7);
BGL_BIND_STRING(BGl_string4403z00zz__r4_input_6_10_2z00, BgL_bgl_string4403za700za7za7_4703za7);
BGL_BIND_STRING(BGl_string4402z00zz__r4_input_6_10_2z00, BgL_bgl_string4402za700za7za7_4702za7);
BGL_BIND_STRING(BGl_string4401z00zz__r4_input_6_10_2z00, BgL_bgl_string4401za700za7za7_4701za7);
BGL_BIND_STRING(BGl_string4400z00zz__r4_input_6_10_2z00, BgL_bgl_string4400za700za7za7_4700za7);
BGL_BIND_PROCEDURE(BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2ofza7d2str4699z00);
BGL_BIND_PROCEDURE(BGl_unreadzd2stringz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2string4698za7);
BGL_BIND_PROCEDURE(BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2stringza7d4697z00);
BGL_BIND_PROCEDURE(BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2za74696za7);
BGL_BIND_PROCEDURE(BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl_za762readza7f2rpza790za74695z00);
BGL_BIND_PROCEDURE(BGl_sendzd2charszf2siza7ezd2envz55zz__r4_input_6_10_2z00, BgL_bgl_za762sendza7d2charsza74694za7);
BGL_BIND_PROCEDURE(BGl_unreadzd2charz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2charza714693z00);
BGL_BIND_PROCEDURE(BGl_charzd2readyzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl__charza7d2readyza7f34692z00);
BGL_BIND_PROCEDURE(BGl_readzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charza7d2za74691za7);
BGL_BIND_PROCEDURE(BGl_readzd2charsz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charsza7124690z00);
BGL_BIND_STRING(BGl_string4591z00zz__r4_input_6_10_2z00, BgL_bgl_string4591za700za7za7_4689za7);
BGL_BIND_STRING(BGl_string4590z00zz__r4_input_6_10_2z00, BgL_bgl_string4590za700za7za7_4688za7);
BGL_BIND_PROCEDURE(BGl_peekzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__peekza7d2charza7d2za74687za7);
BGL_BIND_PROCEDURE(BGl_readzd2linezd2newlinezd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2n4686z00);
BGL_BIND_PROCEDURE(BGl_filezd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2linesza74685za7);
BGL_BIND_STRING(BGl_string4589z00zz__r4_input_6_10_2z00, BgL_bgl_string4589za700za7za7_4684za7);
BGL_BIND_STRING(BGl_string4587z00zz__r4_input_6_10_2z00, BgL_bgl_string4587za700za7za7_4683za7);
BGL_BIND_STRING(BGl_string4586z00zz__r4_input_6_10_2z00, BgL_bgl_string4586za700za7za7_4682za7);
BGL_BIND_STRING(BGl_string4585z00zz__r4_input_6_10_2z00, BgL_bgl_string4585za700za7za7_4681za7);
BGL_BIND_STRING(BGl_string4584z00zz__r4_input_6_10_2z00, BgL_bgl_string4584za700za7za7_4680za7);
BGL_BIND_STRING(BGl_string4583z00zz__r4_input_6_10_2z00, BgL_bgl_string4583za700za7za7_4679za7);
BGL_BIND_STRING(BGl_string4582z00zz__r4_input_6_10_2z00, BgL_bgl_string4582za700za7za7_4678za7);
BGL_BIND_STRING(BGl_string4580z00zz__r4_input_6_10_2z00, BgL_bgl_string4580za700za7za7_4677za7);
BGL_BIND_PROCEDURE(BGl_filezd2ze3stringzd2envze3zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2za7e3str4676za7);
BGL_BIND_STRING(BGl_string4499z00zz__r4_input_6_10_2z00, BgL_bgl_string4499za700za7za7_4675za7);
BGL_BIND_STRING(BGl_string4579z00zz__r4_input_6_10_2z00, BgL_bgl_string4579za700za7za7_4674za7);
BGL_BIND_STRING(BGl_string4497z00zz__r4_input_6_10_2z00, BgL_bgl_string4497za700za7za7_4673za7);
BGL_BIND_STRING(BGl_string4578z00zz__r4_input_6_10_2z00, BgL_bgl_string4578za700za7za7_4672za7);
BGL_BIND_STRING(BGl_string4496z00zz__r4_input_6_10_2z00, BgL_bgl_string4496za700za7za7_4671za7);
BGL_BIND_STRING(BGl_string4577z00zz__r4_input_6_10_2z00, BgL_bgl_string4577za700za7za7_4670za7);
BGL_BIND_STRING(BGl_string4495z00zz__r4_input_6_10_2z00, BgL_bgl_string4495za700za7za7_4669za7);
BGL_BIND_STRING(BGl_string4494z00zz__r4_input_6_10_2z00, BgL_bgl_string4494za700za7za7_4668za7);
BGL_BIND_STRING(BGl_string4575z00zz__r4_input_6_10_2z00, BgL_bgl_string4575za700za7za7_4667za7);
BGL_BIND_STRING(BGl_string4493z00zz__r4_input_6_10_2z00, BgL_bgl_string4493za700za7za7_4666za7);
BGL_BIND_STRING(BGl_string4574z00zz__r4_input_6_10_2z00, BgL_bgl_string4574za700za7za7_4665za7);
BGL_BIND_STRING(BGl_string4492z00zz__r4_input_6_10_2z00, BgL_bgl_string4492za700za7za7_4664za7);
BGL_BIND_STRING(BGl_string4573z00zz__r4_input_6_10_2z00, BgL_bgl_string4573za700za7za7_4663za7);
BGL_BIND_STRING(BGl_string4491z00zz__r4_input_6_10_2z00, BgL_bgl_string4491za700za7za7_4662za7);
BGL_BIND_STRING(BGl_string4572z00zz__r4_input_6_10_2z00, BgL_bgl_string4572za700za7za7_4661za7);
BGL_BIND_STRING(BGl_string4490z00zz__r4_input_6_10_2z00, BgL_bgl_string4490za700za7za7_4660za7);
BGL_BIND_STRING(BGl_string4571z00zz__r4_input_6_10_2z00, BgL_bgl_string4571za700za7za7_4659za7);
BGL_BIND_STRING(BGl_string4489z00zz__r4_input_6_10_2z00, BgL_bgl_string4489za700za7za7_4658za7);
BGL_BIND_STRING(BGl_string4488z00zz__r4_input_6_10_2z00, BgL_bgl_string4488za700za7za7_4657za7);
BGL_BIND_STRING(BGl_string4569z00zz__r4_input_6_10_2z00, BgL_bgl_string4569za700za7za7_4656za7);
BGL_BIND_STRING(BGl_string4487z00zz__r4_input_6_10_2z00, BgL_bgl_string4487za700za7za7_4655za7);
BGL_BIND_STRING(BGl_string4568z00zz__r4_input_6_10_2z00, BgL_bgl_string4568za700za7za7_4654za7);
BGL_BIND_PROCEDURE(BGl_sendzd2filezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2fileza7d2za74653za7);
BGL_BIND_STRING(BGl_string4486z00zz__r4_input_6_10_2z00, BgL_bgl_string4486za700za7za7_4652za7);
BGL_BIND_STRING(BGl_string4566z00zz__r4_input_6_10_2z00, BgL_bgl_string4566za700za7za7_4651za7);
BGL_BIND_STRING(BGl_string4484z00zz__r4_input_6_10_2z00, BgL_bgl_string4484za700za7za7_4650za7);
BGL_BIND_STRING(BGl_string4565z00zz__r4_input_6_10_2z00, BgL_bgl_string4565za700za7za7_4649za7);
BGL_BIND_STRING(BGl_string4483z00zz__r4_input_6_10_2z00, BgL_bgl_string4483za700za7za7_4648za7);
BGL_BIND_STRING(BGl_string4564z00zz__r4_input_6_10_2z00, BgL_bgl_string4564za700za7za7_4647za7);
BGL_BIND_STRING(BGl_string4482z00zz__r4_input_6_10_2z00, BgL_bgl_string4482za700za7za7_4646za7);
BGL_BIND_STRING(BGl_string4563z00zz__r4_input_6_10_2z00, BgL_bgl_string4563za700za7za7_4645za7);
BGL_BIND_STRING(BGl_string4562z00zz__r4_input_6_10_2z00, BgL_bgl_string4562za700za7za7_4644za7);
BGL_BIND_STRING(BGl_string4480z00zz__r4_input_6_10_2z00, BgL_bgl_string4480za700za7za7_4643za7);
BGL_BIND_STRING(BGl_string4561z00zz__r4_input_6_10_2z00, BgL_bgl_string4561za700za7za7_4642za7);
BGL_BIND_STRING(BGl_string4560z00zz__r4_input_6_10_2z00, BgL_bgl_string4560za700za7za7_4641za7);
BGL_BIND_PROCEDURE(BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charsza7d24640z00);
BGL_BIND_STRING(BGl_string4399z00zz__r4_input_6_10_2z00, BgL_bgl_string4399za700za7za7_4639za7);
BGL_BIND_STRING(BGl_string4398z00zz__r4_input_6_10_2z00, BgL_bgl_string4398za700za7za7_4638za7);
BGL_BIND_STRING(BGl_string4479z00zz__r4_input_6_10_2z00, BgL_bgl_string4479za700za7za7_4637za7);
BGL_BIND_STRING(BGl_string4397z00zz__r4_input_6_10_2z00, BgL_bgl_string4397za700za7za7_4636za7);
BGL_BIND_STRING(BGl_string4478z00zz__r4_input_6_10_2z00, BgL_bgl_string4478za700za7za7_4635za7);
BGL_BIND_STRING(BGl_string4559z00zz__r4_input_6_10_2z00, BgL_bgl_string4559za700za7za7_4634za7);
BGL_BIND_STRING(BGl_string4396z00zz__r4_input_6_10_2z00, BgL_bgl_string4396za700za7za7_4633za7);
BGL_BIND_STRING(BGl_string4477z00zz__r4_input_6_10_2z00, BgL_bgl_string4477za700za7za7_4632za7);
BGL_BIND_STRING(BGl_string4558z00zz__r4_input_6_10_2z00, BgL_bgl_string4558za700za7za7_4631za7);
BGL_BIND_STRING(BGl_string4395z00zz__r4_input_6_10_2z00, BgL_bgl_string4395za700za7za7_4630za7);
BGL_BIND_STRING(BGl_string4557z00zz__r4_input_6_10_2z00, BgL_bgl_string4557za700za7za7_4629za7);
BGL_BIND_STRING(BGl_string4394z00zz__r4_input_6_10_2z00, BgL_bgl_string4394za700za7za7_4628za7);
BGL_BIND_STRING(BGl_string4475z00zz__r4_input_6_10_2z00, BgL_bgl_string4475za700za7za7_4627za7);
BGL_BIND_STRING(BGl_string4556z00zz__r4_input_6_10_2z00, BgL_bgl_string4556za700za7za7_4626za7);
BGL_BIND_STRING(BGl_string4393z00zz__r4_input_6_10_2z00, BgL_bgl_string4393za700za7za7_4625za7);
BGL_BIND_STRING(BGl_string4474z00zz__r4_input_6_10_2z00, BgL_bgl_string4474za700za7za7_4624za7);
BGL_BIND_STRING(BGl_string4555z00zz__r4_input_6_10_2z00, BgL_bgl_string4555za700za7za7_4623za7);
BGL_BIND_STRING(BGl_string4392z00zz__r4_input_6_10_2z00, BgL_bgl_string4392za700za7za7_4622za7);
BGL_BIND_STRING(BGl_string4473z00zz__r4_input_6_10_2z00, BgL_bgl_string4473za700za7za7_4621za7);
BGL_BIND_STRING(BGl_string4391z00zz__r4_input_6_10_2z00, BgL_bgl_string4391za700za7za7_4620za7);
BGL_BIND_STRING(BGl_string4472z00zz__r4_input_6_10_2z00, BgL_bgl_string4472za700za7za7_4619za7);
BGL_BIND_STRING(BGl_string4553z00zz__r4_input_6_10_2z00, BgL_bgl_string4553za700za7za7_4618za7);
BGL_BIND_STRING(BGl_string4390z00zz__r4_input_6_10_2z00, BgL_bgl_string4390za700za7za7_4617za7);
BGL_BIND_STRING(BGl_string4552z00zz__r4_input_6_10_2z00, BgL_bgl_string4552za700za7za7_4616za7);
BGL_BIND_STRING(BGl_string4470z00zz__r4_input_6_10_2z00, BgL_bgl_string4470za700za7za7_4615za7);
BGL_BIND_STRING(BGl_string4550z00zz__r4_input_6_10_2z00, BgL_bgl_string4550za700za7za7_4614za7);
BGL_BIND_PROCEDURE(BGl_readzf2lalrpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl_za762readza7f2lalrpza74613za7);
BGL_BIND_PROCEDURE(BGl_readzd2bytezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2byteza7d2za74612za7);
BGL_BIND_STRING(BGl_string4389z00zz__r4_input_6_10_2z00, BgL_bgl_string4389za700za7za7_4611za7);
BGL_BIND_STRING(BGl_string4388z00zz__r4_input_6_10_2z00, BgL_bgl_string4388za700za7za7_4610za7);
BGL_BIND_STRING(BGl_string4469z00zz__r4_input_6_10_2z00, BgL_bgl_string4469za700za7za7_4609za7);
BGL_BIND_STRING(BGl_string4387z00zz__r4_input_6_10_2z00, BgL_bgl_string4387za700za7za7_4608za7);
BGL_BIND_STRING(BGl_string4468z00zz__r4_input_6_10_2z00, BgL_bgl_string4468za700za7za7_4607za7);
BGL_BIND_STRING(BGl_string4549z00zz__r4_input_6_10_2z00, BgL_bgl_string4549za700za7za7_4606za7);
BGL_BIND_STRING(BGl_string4467z00zz__r4_input_6_10_2z00, BgL_bgl_string4467za700za7za7_4605za7);
BGL_BIND_STRING(BGl_string4548z00zz__r4_input_6_10_2z00, BgL_bgl_string4548za700za7za7_4604za7);
BGL_BIND_STRING(BGl_string4547z00zz__r4_input_6_10_2z00, BgL_bgl_string4547za700za7za7_4603za7);
BGL_BIND_STRING(BGl_string4465z00zz__r4_input_6_10_2z00, BgL_bgl_string4465za700za7za7_4602za7);
BGL_BIND_STRING(BGl_string4464z00zz__r4_input_6_10_2z00, BgL_bgl_string4464za700za7za7_4601za7);
BGL_BIND_STRING(BGl_string4545z00zz__r4_input_6_10_2z00, BgL_bgl_string4545za700za7za7_4600za7);
BGL_BIND_STRING(BGl_string4463z00zz__r4_input_6_10_2z00, BgL_bgl_string4463za700za7za7_4599za7);
BGL_BIND_STRING(BGl_string4544z00zz__r4_input_6_10_2z00, BgL_bgl_string4544za700za7za7_4598za7);
BGL_BIND_STRING(BGl_string4462z00zz__r4_input_6_10_2z00, BgL_bgl_string4462za700za7za7_4597za7);
BGL_BIND_STRING(BGl_string4543z00zz__r4_input_6_10_2z00, BgL_bgl_string4543za700za7za7_4596za7);
BGL_BIND_STRING(BGl_string4461z00zz__r4_input_6_10_2z00, BgL_bgl_string4461za700za7za7_4595za7);
BGL_BIND_STRING(BGl_string4542z00zz__r4_input_6_10_2z00, BgL_bgl_string4542za700za7za7_4594za7);
BGL_BIND_STRING(BGl_string4540z00zz__r4_input_6_10_2z00, BgL_bgl_string4540za700za7za7_4593za7);
BGL_BIND_PROCEDURE(BGl_peekzd2bytezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__peekza7d2byteza7d2za74592za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol4421z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4424z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4426z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4508z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4429z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4512z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4432z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4434z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4519z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4438z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4524z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4411z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4446z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4448z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4416z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4419z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4531z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4450z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4420z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4536z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4455z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4423z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4428z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4541z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4460z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4431z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4546z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4466z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4437z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4551z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4471z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4554z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4440z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4476z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4445z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4481z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4485z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4567z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4454z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4570z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4576z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4498z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4581z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4588z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4409z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4412z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4414z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4417z00zz__r4_input_6_10_2z00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long BgL_checksumz00_7266, char * BgL_fromz00_7267)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__r4_input_6_10_2z00(); 
BGl_cnstzd2initzd2zz__r4_input_6_10_2z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(); 
return 
BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
BGl_symbol4409z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4407z00zz__r4_input_6_10_2z00); 
BGl_symbol4412z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4413z00zz__r4_input_6_10_2z00); 
BGl_symbol4414z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4415z00zz__r4_input_6_10_2z00); 
BGl_symbol4417z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4418z00zz__r4_input_6_10_2z00); 
BGl_symbol4421z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4422z00zz__r4_input_6_10_2z00); 
BGl_symbol4424z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4425z00zz__r4_input_6_10_2z00); 
BGl_symbol4426z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4427z00zz__r4_input_6_10_2z00); 
BGl_symbol4429z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4430z00zz__r4_input_6_10_2z00); 
BGl_list4428z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4429z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BNIL, BNIL)); 
BGl_list4423z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4424z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4426z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4428z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_list4420z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4421z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4423z00zz__r4_input_6_10_2z00, BNIL)); 
BGl_list4419z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_list4420z00zz__r4_input_6_10_2z00, BNIL); 
BGl_symbol4432z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4433z00zz__r4_input_6_10_2z00); 
BGl_symbol4434z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4435z00zz__r4_input_6_10_2z00); 
BGl_list4431z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4432z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4434z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4421z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_list4416z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4417z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4419z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4431z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_list4411z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4412z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4414z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4416z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_symbol4438z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4439z00zz__r4_input_6_10_2z00); 
BGl_list4437z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4438z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4414z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4414z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4434z00zz__r4_input_6_10_2z00, BNIL)))); 
BGl_list4440z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4438z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4414z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4414z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4434z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BUNSPEC, BNIL))))); 
BGl_symbol4446z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4447z00zz__r4_input_6_10_2z00); 
BGl_symbol4448z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4449z00zz__r4_input_6_10_2z00); 
BGl_symbol4450z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4451z00zz__r4_input_6_10_2z00); 
BGl_list4445z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4438z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4446z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4446z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4448z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4434z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4450z00zz__r4_input_6_10_2z00, BNIL)))))); 
BGl_symbol4455z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4456z00zz__r4_input_6_10_2z00); 
BGl_list4454z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4438z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4446z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4446z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4448z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4434z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4455z00zz__r4_input_6_10_2z00, BNIL)))))); 
BGl_symbol4460z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4461z00zz__r4_input_6_10_2z00); 
BGl_symbol4466z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4467z00zz__r4_input_6_10_2z00); 
BGl_symbol4471z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4472z00zz__r4_input_6_10_2z00); 
BGl_symbol4476z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4477z00zz__r4_input_6_10_2z00); 
BGl_symbol4481z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4482z00zz__r4_input_6_10_2z00); 
BGl_symbol4485z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4486z00zz__r4_input_6_10_2z00); 
BGl_symbol4498z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4499z00zz__r4_input_6_10_2z00); 
BGl_symbol4508z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4509z00zz__r4_input_6_10_2z00); 
BGl_symbol4512z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4513z00zz__r4_input_6_10_2z00); 
BGl_symbol4519z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4520z00zz__r4_input_6_10_2z00); 
BGl_symbol4524z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4525z00zz__r4_input_6_10_2z00); 
BGl_symbol4531z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4532z00zz__r4_input_6_10_2z00); 
BGl_symbol4536z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4537z00zz__r4_input_6_10_2z00); 
BGl_symbol4541z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4542z00zz__r4_input_6_10_2z00); 
BGl_symbol4546z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4547z00zz__r4_input_6_10_2z00); 
BGl_symbol4551z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4552z00zz__r4_input_6_10_2z00); 
BGl_symbol4554z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4555z00zz__r4_input_6_10_2z00); 
BGl_symbol4567z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4568z00zz__r4_input_6_10_2z00); 
BGl_symbol4570z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4571z00zz__r4_input_6_10_2z00); 
BGl_symbol4576z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4577z00zz__r4_input_6_10_2z00); 
BGl_symbol4581z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4582z00zz__r4_input_6_10_2z00); 
return ( 
BGl_symbol4588z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4589z00zz__r4_input_6_10_2z00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
{ /* Ieee/input.scm 307 */
 obj_t BgL_zc3z04anonymousza31400ze3z87_6011;
{ 
 int BgL_tmpz00_7352;
BgL_tmpz00_7352 = 
(int)(0L); 
BgL_zc3z04anonymousza31400ze3z87_6011 = 
MAKE_EL_PROCEDURE(BgL_tmpz00_7352); } 
return ( 
BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BgL_zc3z04anonymousza31400ze3z87_6011, BUNSPEC) ;} } 

}



/* &<@anonymous:1400> */
obj_t BGl_z62zc3z04anonymousza31400ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6012, obj_t BgL_iportz00_6013)
{
{ /* Ieee/input.scm 307 */
{ 
 obj_t BgL_iportz00_7089; long BgL_lastzd2matchzd2_7090; long BgL_forwardz00_7091; long BgL_bufposz00_7092; obj_t BgL_iportz00_7073; long BgL_lastzd2matchzd2_7074; long BgL_forwardz00_7075; long BgL_bufposz00_7076; obj_t BgL_iportz00_7060; long BgL_lastzd2matchzd2_7061; long BgL_forwardz00_7062; long BgL_bufposz00_7063; obj_t BgL_iportz00_7046; long BgL_lastzd2matchzd2_7047; long BgL_forwardz00_7048; long BgL_bufposz00_7049; obj_t BgL_iportz00_7035; long BgL_lastzd2matchzd2_7036; long BgL_forwardz00_7037; long BgL_bufposz00_7038; obj_t BgL_iportz00_7022; long BgL_lastzd2matchzd2_7023; long BgL_forwardz00_7024; long BgL_bufposz00_7025; obj_t BgL_iportz00_7011; long BgL_lastzd2matchzd2_7012; long BgL_forwardz00_7013; long BgL_bufposz00_7014; obj_t BgL_iportz00_6998; long BgL_lastzd2matchzd2_6999; long BgL_forwardz00_7000; long BgL_bufposz00_7001; int BgL_minz00_6980; int BgL_maxz00_6981;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4778z00_7355;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1408z00_7102;
{ /* Ieee/input.scm 307 */
 obj_t BgL_res3503z00_7103;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_res3503z00_7103 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7358;
BgL_auxz00_7358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4404z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7358,BFALSE,BFALSE);} 
BgL_arg1408z00_7102 = BgL_res3503z00_7103; } 
BgL_test4778z00_7355 = 
INPUT_PORT_CLOSEP(BgL_arg1408z00_7102); } 
if(BgL_test4778z00_7355)
{ /* Ieee/input.scm 307 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1403z00_7104;
{ /* Ieee/input.scm 307 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_7105;
{ /* Ieee/input.scm 307 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_7106;
BgL_new1045z00_7106 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 307 */
 long BgL_arg1407z00_7107;
BgL_arg1407z00_7107 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_7106), BgL_arg1407z00_7107); } 
BgL_new1046z00_7105 = BgL_new1045z00_7106; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7105)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7105)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_7371;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1404z00_7108;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1405z00_7109;
{ /* Ieee/input.scm 307 */
 obj_t BgL_classz00_7110;
BgL_classz00_7110 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1405z00_7109 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7110); } 
BgL_arg1404z00_7108 = 
VECTOR_REF(BgL_arg1405z00_7109,2L); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_auxz00_7375;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1404z00_7108))
{ /* Ieee/input.scm 307 */
BgL_auxz00_7375 = BgL_arg1404z00_7108
; }  else 
{ 
 obj_t BgL_auxz00_7378;
BgL_auxz00_7378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4404z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg1404z00_7108); 
FAILURE(BgL_auxz00_7378,BFALSE,BFALSE);} 
BgL_auxz00_7371 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_7375); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7105)))->BgL_stackz00)=((obj_t)BgL_auxz00_7371),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7105)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7105)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_7388;
{ /* Ieee/input.scm 307 */
 obj_t BgL_res3504z00_7111;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_res3504z00_7111 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7392;
BgL_auxz00_7392 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4404z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7392,BFALSE,BFALSE);} 
BgL_auxz00_7388 = BgL_res3504z00_7111; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7105)))->BgL_objz00)=((obj_t)BgL_auxz00_7388),BUNSPEC); } 
BgL_arg1403z00_7104 = BgL_new1046z00_7105; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1403z00_7104));}  else 
{ /* Ieee/input.scm 307 */
BgL_ignorez00_6953:
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6964;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6964 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7401;
BgL_auxz00_7401 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7401,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_6964); } 
{ /* Ieee/input.scm 307 */
 long BgL_matchz00_6965;
{ /* Ieee/input.scm 307 */
 long BgL_arg1602z00_6966; long BgL_arg1603z00_6967;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6968;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6968 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7408;
BgL_auxz00_7408 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7408,BFALSE,BFALSE);} 
BgL_arg1602z00_6966 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6968); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6969;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6969 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7415;
BgL_auxz00_7415 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7415,BFALSE,BFALSE);} 
BgL_arg1603z00_6967 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6969); } 
BgL_iportz00_7035 = BgL_iportz00_6013; 
BgL_lastzd2matchzd2_7036 = 4L; 
BgL_forwardz00_7037 = BgL_arg1602z00_6966; 
BgL_bufposz00_7038 = BgL_arg1603z00_6967; 
BgL_statezd20zd21105z00_6959:
if(
(BgL_forwardz00_7037==BgL_bufposz00_7038))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4786z00_7422;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7039;
if(
INPUT_PORTP(BgL_iportz00_7035))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7039 = BgL_iportz00_7035; }  else 
{ 
 obj_t BgL_auxz00_7425;
BgL_auxz00_7425 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4399z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7035); 
FAILURE(BgL_auxz00_7425,BFALSE,BFALSE);} 
BgL_test4786z00_7422 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7039); } 
if(BgL_test4786z00_7422)
{ /* Ieee/input.scm 307 */
 long BgL_arg1459z00_7040; long BgL_arg1460z00_7041;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7042;
if(
INPUT_PORTP(BgL_iportz00_7035))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7042 = BgL_iportz00_7035; }  else 
{ 
 obj_t BgL_auxz00_7432;
BgL_auxz00_7432 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4399z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7035); 
FAILURE(BgL_auxz00_7432,BFALSE,BFALSE);} 
BgL_arg1459z00_7040 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7042); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7043;
if(
INPUT_PORTP(BgL_iportz00_7035))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7043 = BgL_iportz00_7035; }  else 
{ 
 obj_t BgL_auxz00_7439;
BgL_auxz00_7439 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4399z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7035); 
FAILURE(BgL_auxz00_7439,BFALSE,BFALSE);} 
BgL_arg1460z00_7041 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7043); } 
{ 
 long BgL_bufposz00_7445; long BgL_forwardz00_7444;
BgL_forwardz00_7444 = BgL_arg1459z00_7040; 
BgL_bufposz00_7445 = BgL_arg1460z00_7041; 
BgL_bufposz00_7038 = BgL_bufposz00_7445; 
BgL_forwardz00_7037 = BgL_forwardz00_7444; 
goto BgL_statezd20zd21105z00_6959;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_lastzd2matchzd2_7036; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7044;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7045;
if(
INPUT_PORTP(BgL_iportz00_7035))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7045 = BgL_iportz00_7035; }  else 
{ 
 obj_t BgL_auxz00_7448;
BgL_auxz00_7448 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4399z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7035); 
FAILURE(BgL_auxz00_7448,BFALSE,BFALSE);} 
BgL_curz00_7044 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7045, BgL_forwardz00_7037); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_7044)==34L))
{ /* Ieee/input.scm 307 */
BgL_iportz00_7073 = BgL_iportz00_7035; 
BgL_lastzd2matchzd2_7074 = BgL_lastzd2matchzd2_7036; 
BgL_forwardz00_7075 = 
(1L+BgL_forwardz00_7037); 
BgL_bufposz00_7076 = BgL_bufposz00_7038; 
BgL_statezd23zd21108z00_6962:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7077;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7078;
if(
INPUT_PORTP(BgL_iportz00_7073))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7078 = BgL_iportz00_7073; }  else 
{ 
 obj_t BgL_auxz00_7458;
BgL_auxz00_7458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4402z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7073); 
FAILURE(BgL_auxz00_7458,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7078, BgL_forwardz00_7075); } 
BgL_newzd2matchzd2_7077 = 1L; 
if(
(BgL_forwardz00_7075==BgL_bufposz00_7076))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4794z00_7465;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7079;
if(
INPUT_PORTP(BgL_iportz00_7073))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7079 = BgL_iportz00_7073; }  else 
{ 
 obj_t BgL_auxz00_7468;
BgL_auxz00_7468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4402z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7073); 
FAILURE(BgL_auxz00_7468,BFALSE,BFALSE);} 
BgL_test4794z00_7465 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7079); } 
if(BgL_test4794z00_7465)
{ /* Ieee/input.scm 307 */
 long BgL_arg1423z00_7080; long BgL_arg1424z00_7081;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7082;
if(
INPUT_PORTP(BgL_iportz00_7073))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7082 = BgL_iportz00_7073; }  else 
{ 
 obj_t BgL_auxz00_7475;
BgL_auxz00_7475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4402z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7073); 
FAILURE(BgL_auxz00_7475,BFALSE,BFALSE);} 
BgL_arg1423z00_7080 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7082); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7083;
if(
INPUT_PORTP(BgL_iportz00_7073))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7083 = BgL_iportz00_7073; }  else 
{ 
 obj_t BgL_auxz00_7482;
BgL_auxz00_7482 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4402z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7073); 
FAILURE(BgL_auxz00_7482,BFALSE,BFALSE);} 
BgL_arg1424z00_7081 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7083); } 
{ 
 long BgL_bufposz00_7488; long BgL_forwardz00_7487;
BgL_forwardz00_7487 = BgL_arg1423z00_7080; 
BgL_bufposz00_7488 = BgL_arg1424z00_7081; 
BgL_bufposz00_7076 = BgL_bufposz00_7488; 
BgL_forwardz00_7075 = BgL_forwardz00_7487; 
goto BgL_statezd23zd21108z00_6962;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7077; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7084;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7085;
if(
INPUT_PORTP(BgL_iportz00_7073))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7085 = BgL_iportz00_7073; }  else 
{ 
 obj_t BgL_auxz00_7491;
BgL_auxz00_7491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4402z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7073); 
FAILURE(BgL_auxz00_7491,BFALSE,BFALSE);} 
BgL_curz00_7084 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7085, BgL_forwardz00_7075); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_7084)==92L))
{ /* Ieee/input.scm 307 */
BgL_iportz00_7011 = BgL_iportz00_7073; 
BgL_lastzd2matchzd2_7012 = BgL_newzd2matchzd2_7077; 
BgL_forwardz00_7013 = 
(1L+BgL_forwardz00_7075); 
BgL_bufposz00_7014 = BgL_bufposz00_7076; 
BgL_statezd26zd21111z00_6957:
if(
(BgL_forwardz00_7013==BgL_bufposz00_7014))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4801z00_7501;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7015;
if(
INPUT_PORTP(BgL_iportz00_7011))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7015 = BgL_iportz00_7011; }  else 
{ 
 obj_t BgL_auxz00_7504;
BgL_auxz00_7504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4397z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7011); 
FAILURE(BgL_auxz00_7504,BFALSE,BFALSE);} 
BgL_test4801z00_7501 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7015); } 
if(BgL_test4801z00_7501)
{ /* Ieee/input.scm 307 */
 long BgL_arg1483z00_7016; long BgL_arg1484z00_7017;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7018;
if(
INPUT_PORTP(BgL_iportz00_7011))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7018 = BgL_iportz00_7011; }  else 
{ 
 obj_t BgL_auxz00_7511;
BgL_auxz00_7511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4397z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7011); 
FAILURE(BgL_auxz00_7511,BFALSE,BFALSE);} 
BgL_arg1483z00_7016 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7018); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7019;
if(
INPUT_PORTP(BgL_iportz00_7011))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7019 = BgL_iportz00_7011; }  else 
{ 
 obj_t BgL_auxz00_7518;
BgL_auxz00_7518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4397z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7011); 
FAILURE(BgL_auxz00_7518,BFALSE,BFALSE);} 
BgL_arg1484z00_7017 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7019); } 
{ 
 long BgL_bufposz00_7524; long BgL_forwardz00_7523;
BgL_forwardz00_7523 = BgL_arg1483z00_7016; 
BgL_bufposz00_7524 = BgL_arg1484z00_7017; 
BgL_bufposz00_7014 = BgL_bufposz00_7524; 
BgL_forwardz00_7013 = BgL_forwardz00_7523; 
goto BgL_statezd26zd21111z00_6957;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_lastzd2matchzd2_7012; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7020;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7021;
if(
INPUT_PORTP(BgL_iportz00_7011))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7021 = BgL_iportz00_7011; }  else 
{ 
 obj_t BgL_auxz00_7527;
BgL_auxz00_7527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4397z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7011); 
FAILURE(BgL_auxz00_7527,BFALSE,BFALSE);} 
BgL_curz00_7020 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7021, BgL_forwardz00_7013); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_7020)==10L))
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_lastzd2matchzd2_7012; }  else 
{ /* Ieee/input.scm 307 */
BgL_iportz00_7046 = BgL_iportz00_7011; 
BgL_lastzd2matchzd2_7047 = BgL_lastzd2matchzd2_7012; 
BgL_forwardz00_7048 = 
(1L+BgL_forwardz00_7013); 
BgL_bufposz00_7049 = BgL_bufposz00_7014; 
BgL_statezd24zd21109z00_6960:
if(
(BgL_forwardz00_7048==BgL_bufposz00_7049))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4808z00_7537;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7050;
if(
INPUT_PORTP(BgL_iportz00_7046))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7050 = BgL_iportz00_7046; }  else 
{ 
 obj_t BgL_auxz00_7540;
BgL_auxz00_7540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4400z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7046); 
FAILURE(BgL_auxz00_7540,BFALSE,BFALSE);} 
BgL_test4808z00_7537 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7050); } 
if(BgL_test4808z00_7537)
{ /* Ieee/input.scm 307 */
 long BgL_arg1446z00_7051; long BgL_arg1447z00_7052;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7053;
if(
INPUT_PORTP(BgL_iportz00_7046))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7053 = BgL_iportz00_7046; }  else 
{ 
 obj_t BgL_auxz00_7547;
BgL_auxz00_7547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4400z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7046); 
FAILURE(BgL_auxz00_7547,BFALSE,BFALSE);} 
BgL_arg1446z00_7051 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7053); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7054;
if(
INPUT_PORTP(BgL_iportz00_7046))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7054 = BgL_iportz00_7046; }  else 
{ 
 obj_t BgL_auxz00_7554;
BgL_auxz00_7554 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4400z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7046); 
FAILURE(BgL_auxz00_7554,BFALSE,BFALSE);} 
BgL_arg1447z00_7052 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7054); } 
{ 
 long BgL_bufposz00_7560; long BgL_forwardz00_7559;
BgL_forwardz00_7559 = BgL_arg1446z00_7051; 
BgL_bufposz00_7560 = BgL_arg1447z00_7052; 
BgL_bufposz00_7049 = BgL_bufposz00_7560; 
BgL_forwardz00_7048 = BgL_forwardz00_7559; 
goto BgL_statezd24zd21109z00_6960;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_lastzd2matchzd2_7047; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7055;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7056;
if(
INPUT_PORTP(BgL_iportz00_7046))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7056 = BgL_iportz00_7046; }  else 
{ 
 obj_t BgL_auxz00_7563;
BgL_auxz00_7563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4400z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7046); 
FAILURE(BgL_auxz00_7563,BFALSE,BFALSE);} 
BgL_curz00_7055 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7056, BgL_forwardz00_7048); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_7055)==92L))
{ 
 long BgL_bufposz00_7575; long BgL_forwardz00_7573; long BgL_lastzd2matchzd2_7572; obj_t BgL_iportz00_7571;
BgL_iportz00_7571 = BgL_iportz00_7046; 
BgL_lastzd2matchzd2_7572 = BgL_lastzd2matchzd2_7047; 
BgL_forwardz00_7573 = 
(1L+BgL_forwardz00_7048); 
BgL_bufposz00_7575 = BgL_bufposz00_7049; 
BgL_bufposz00_7014 = BgL_bufposz00_7575; 
BgL_forwardz00_7013 = BgL_forwardz00_7573; 
BgL_lastzd2matchzd2_7012 = BgL_lastzd2matchzd2_7572; 
BgL_iportz00_7011 = BgL_iportz00_7571; 
goto BgL_statezd26zd21111z00_6957;}  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_7055)==34L))
{ /* Ieee/input.scm 307 */
 long BgL_arg1452z00_7057;
BgL_arg1452z00_7057 = 
(1L+BgL_forwardz00_7048); 
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7058;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7059;
if(
INPUT_PORTP(BgL_iportz00_7046))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7059 = BgL_iportz00_7046; }  else 
{ 
 obj_t BgL_auxz00_7582;
BgL_auxz00_7582 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4400z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7046); 
FAILURE(BgL_auxz00_7582,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7059, BgL_arg1452z00_7057); } 
BgL_newzd2matchzd2_7058 = 2L; 
BgL_matchz00_6965 = BgL_newzd2matchzd2_7058; } }  else 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4816z00_7587;
if(
(
(long)(BgL_curz00_7055)==34L))
{ /* Ieee/input.scm 307 */
BgL_test4816z00_7587 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4816z00_7587 = 
(
(long)(BgL_curz00_7055)==92L)
; } 
if(BgL_test4816z00_7587)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_lastzd2matchzd2_7047; }  else 
{ 
 long BgL_forwardz00_7593;
BgL_forwardz00_7593 = 
(1L+BgL_forwardz00_7048); 
BgL_forwardz00_7048 = BgL_forwardz00_7593; 
goto BgL_statezd24zd21109z00_6960;} } } } } } } } }  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_7084)==34L))
{ /* Ieee/input.scm 307 */
 long BgL_arg1428z00_7086;
BgL_arg1428z00_7086 = 
(1L+BgL_forwardz00_7075); 
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7087;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7088;
if(
INPUT_PORTP(BgL_iportz00_7073))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7088 = BgL_iportz00_7073; }  else 
{ 
 obj_t BgL_auxz00_7603;
BgL_auxz00_7603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4402z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7073); 
FAILURE(BgL_auxz00_7603,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7088, BgL_arg1428z00_7086); } 
BgL_newzd2matchzd2_7087 = 2L; 
BgL_matchz00_6965 = BgL_newzd2matchzd2_7087; } }  else 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4820z00_7608;
if(
(
(long)(BgL_curz00_7084)==34L))
{ /* Ieee/input.scm 307 */
BgL_test4820z00_7608 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4820z00_7608 = 
(
(long)(BgL_curz00_7084)==92L)
; } 
if(BgL_test4820z00_7608)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7077; }  else 
{ 
 long BgL_bufposz00_7618; long BgL_forwardz00_7616; long BgL_lastzd2matchzd2_7615; obj_t BgL_iportz00_7614;
BgL_iportz00_7614 = BgL_iportz00_7073; 
BgL_lastzd2matchzd2_7615 = BgL_newzd2matchzd2_7077; 
BgL_forwardz00_7616 = 
(1L+BgL_forwardz00_7075); 
BgL_bufposz00_7618 = BgL_bufposz00_7076; 
BgL_bufposz00_7049 = BgL_bufposz00_7618; 
BgL_forwardz00_7048 = BgL_forwardz00_7616; 
BgL_lastzd2matchzd2_7047 = BgL_lastzd2matchzd2_7615; 
BgL_iportz00_7046 = BgL_iportz00_7614; 
goto BgL_statezd24zd21109z00_6960;} } } } } } }  else 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4822z00_7620;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4823z00_7621;
if(
(
(long)(BgL_curz00_7044)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4823z00_7621 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4823z00_7621 = 
(
(long)(BgL_curz00_7044)==9L)
; } 
if(BgL_test4823z00_7621)
{ /* Ieee/input.scm 307 */
BgL_test4822z00_7620 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4822z00_7620 = 
(
(long)(BgL_curz00_7044)==32L)
; } } 
if(BgL_test4822z00_7620)
{ /* Ieee/input.scm 307 */
BgL_iportz00_7060 = BgL_iportz00_7035; 
BgL_lastzd2matchzd2_7061 = BgL_lastzd2matchzd2_7036; 
BgL_forwardz00_7062 = 
(1L+BgL_forwardz00_7037); 
BgL_bufposz00_7063 = BgL_bufposz00_7038; 
BgL_statezd22zd21107z00_6961:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7064;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7065;
if(
INPUT_PORTP(BgL_iportz00_7060))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7065 = BgL_iportz00_7060; }  else 
{ 
 obj_t BgL_auxz00_7631;
BgL_auxz00_7631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4401z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7060); 
FAILURE(BgL_auxz00_7631,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7065, BgL_forwardz00_7062); } 
BgL_newzd2matchzd2_7064 = 0L; 
if(
(BgL_forwardz00_7062==BgL_bufposz00_7063))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4827z00_7638;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7066;
if(
INPUT_PORTP(BgL_iportz00_7060))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7066 = BgL_iportz00_7060; }  else 
{ 
 obj_t BgL_auxz00_7641;
BgL_auxz00_7641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4401z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7060); 
FAILURE(BgL_auxz00_7641,BFALSE,BFALSE);} 
BgL_test4827z00_7638 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7066); } 
if(BgL_test4827z00_7638)
{ /* Ieee/input.scm 307 */
 long BgL_arg1435z00_7067; long BgL_arg1436z00_7068;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7069;
if(
INPUT_PORTP(BgL_iportz00_7060))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7069 = BgL_iportz00_7060; }  else 
{ 
 obj_t BgL_auxz00_7648;
BgL_auxz00_7648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4401z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7060); 
FAILURE(BgL_auxz00_7648,BFALSE,BFALSE);} 
BgL_arg1435z00_7067 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7069); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7070;
if(
INPUT_PORTP(BgL_iportz00_7060))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7070 = BgL_iportz00_7060; }  else 
{ 
 obj_t BgL_auxz00_7655;
BgL_auxz00_7655 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4401z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7060); 
FAILURE(BgL_auxz00_7655,BFALSE,BFALSE);} 
BgL_arg1436z00_7068 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7070); } 
{ 
 long BgL_bufposz00_7661; long BgL_forwardz00_7660;
BgL_forwardz00_7660 = BgL_arg1435z00_7067; 
BgL_bufposz00_7661 = BgL_arg1436z00_7068; 
BgL_bufposz00_7063 = BgL_bufposz00_7661; 
BgL_forwardz00_7062 = BgL_forwardz00_7660; 
goto BgL_statezd22zd21107z00_6961;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7064; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7071;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7072;
if(
INPUT_PORTP(BgL_iportz00_7060))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7072 = BgL_iportz00_7060; }  else 
{ 
 obj_t BgL_auxz00_7664;
BgL_auxz00_7664 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4401z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7060); 
FAILURE(BgL_auxz00_7664,BFALSE,BFALSE);} 
BgL_curz00_7071 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7072, BgL_forwardz00_7062); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4832z00_7669;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4833z00_7670;
if(
(
(long)(BgL_curz00_7071)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4833z00_7670 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4833z00_7670 = 
(
(long)(BgL_curz00_7071)==9L)
; } 
if(BgL_test4833z00_7670)
{ /* Ieee/input.scm 307 */
BgL_test4832z00_7669 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4832z00_7669 = 
(
(long)(BgL_curz00_7071)==32L)
; } } 
if(BgL_test4832z00_7669)
{ /* Ieee/input.scm 307 */
BgL_iportz00_6998 = BgL_iportz00_7060; 
BgL_lastzd2matchzd2_6999 = BgL_newzd2matchzd2_7064; 
BgL_forwardz00_7000 = 
(1L+BgL_forwardz00_7062); 
BgL_bufposz00_7001 = BgL_bufposz00_7063; 
BgL_statezd28zd21113z00_6956:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7002;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7003;
if(
INPUT_PORTP(BgL_iportz00_6998))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7003 = BgL_iportz00_6998; }  else 
{ 
 obj_t BgL_auxz00_7680;
BgL_auxz00_7680 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4396z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6998); 
FAILURE(BgL_auxz00_7680,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7003, BgL_forwardz00_7000); } 
BgL_newzd2matchzd2_7002 = 0L; 
if(
(BgL_forwardz00_7000==BgL_bufposz00_7001))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4837z00_7687;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7004;
if(
INPUT_PORTP(BgL_iportz00_6998))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7004 = BgL_iportz00_6998; }  else 
{ 
 obj_t BgL_auxz00_7690;
BgL_auxz00_7690 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4396z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6998); 
FAILURE(BgL_auxz00_7690,BFALSE,BFALSE);} 
BgL_test4837z00_7687 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7004); } 
if(BgL_test4837z00_7687)
{ /* Ieee/input.scm 307 */
 long BgL_arg1491z00_7005; long BgL_arg1492z00_7006;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7007;
if(
INPUT_PORTP(BgL_iportz00_6998))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7007 = BgL_iportz00_6998; }  else 
{ 
 obj_t BgL_auxz00_7697;
BgL_auxz00_7697 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4396z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6998); 
FAILURE(BgL_auxz00_7697,BFALSE,BFALSE);} 
BgL_arg1491z00_7005 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7007); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7008;
if(
INPUT_PORTP(BgL_iportz00_6998))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7008 = BgL_iportz00_6998; }  else 
{ 
 obj_t BgL_auxz00_7704;
BgL_auxz00_7704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4396z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6998); 
FAILURE(BgL_auxz00_7704,BFALSE,BFALSE);} 
BgL_arg1492z00_7006 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7008); } 
{ 
 long BgL_bufposz00_7710; long BgL_forwardz00_7709;
BgL_forwardz00_7709 = BgL_arg1491z00_7005; 
BgL_bufposz00_7710 = BgL_arg1492z00_7006; 
BgL_bufposz00_7001 = BgL_bufposz00_7710; 
BgL_forwardz00_7000 = BgL_forwardz00_7709; 
goto BgL_statezd28zd21113z00_6956;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7002; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7009;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7010;
if(
INPUT_PORTP(BgL_iportz00_6998))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7010 = BgL_iportz00_6998; }  else 
{ 
 obj_t BgL_auxz00_7713;
BgL_auxz00_7713 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4396z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6998); 
FAILURE(BgL_auxz00_7713,BFALSE,BFALSE);} 
BgL_curz00_7009 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7010, BgL_forwardz00_7000); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4842z00_7718;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4843z00_7719;
if(
(
(long)(BgL_curz00_7009)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4843z00_7719 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4843z00_7719 = 
(
(long)(BgL_curz00_7009)==9L)
; } 
if(BgL_test4843z00_7719)
{ /* Ieee/input.scm 307 */
BgL_test4842z00_7718 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4842z00_7718 = 
(
(long)(BgL_curz00_7009)==32L)
; } } 
if(BgL_test4842z00_7718)
{ 
 long BgL_forwardz00_7728; long BgL_lastzd2matchzd2_7727;
BgL_lastzd2matchzd2_7727 = BgL_newzd2matchzd2_7002; 
BgL_forwardz00_7728 = 
(1L+BgL_forwardz00_7000); 
BgL_forwardz00_7000 = BgL_forwardz00_7728; 
BgL_lastzd2matchzd2_6999 = BgL_lastzd2matchzd2_7727; 
goto BgL_statezd28zd21113z00_6956;}  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7002; } } } } } }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7064; } } } } } }  else 
{ /* Ieee/input.scm 307 */
BgL_iportz00_7089 = BgL_iportz00_7035; 
BgL_lastzd2matchzd2_7090 = BgL_lastzd2matchzd2_7036; 
BgL_forwardz00_7091 = 
(1L+BgL_forwardz00_7037); 
BgL_bufposz00_7092 = BgL_bufposz00_7038; 
BgL_statezd21zd21106z00_6963:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7093;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7094;
if(
INPUT_PORTP(BgL_iportz00_7089))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7094 = BgL_iportz00_7089; }  else 
{ 
 obj_t BgL_auxz00_7734;
BgL_auxz00_7734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4403z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7089); 
FAILURE(BgL_auxz00_7734,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7094, BgL_forwardz00_7091); } 
BgL_newzd2matchzd2_7093 = 3L; 
if(
(BgL_forwardz00_7091==BgL_bufposz00_7092))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4847z00_7741;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7095;
if(
INPUT_PORTP(BgL_iportz00_7089))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7095 = BgL_iportz00_7089; }  else 
{ 
 obj_t BgL_auxz00_7744;
BgL_auxz00_7744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4403z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7089); 
FAILURE(BgL_auxz00_7744,BFALSE,BFALSE);} 
BgL_test4847z00_7741 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7095); } 
if(BgL_test4847z00_7741)
{ /* Ieee/input.scm 307 */
 long BgL_arg1412z00_7096; long BgL_arg1413z00_7097;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7098;
if(
INPUT_PORTP(BgL_iportz00_7089))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7098 = BgL_iportz00_7089; }  else 
{ 
 obj_t BgL_auxz00_7751;
BgL_auxz00_7751 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4403z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7089); 
FAILURE(BgL_auxz00_7751,BFALSE,BFALSE);} 
BgL_arg1412z00_7096 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7098); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7099;
if(
INPUT_PORTP(BgL_iportz00_7089))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7099 = BgL_iportz00_7089; }  else 
{ 
 obj_t BgL_auxz00_7758;
BgL_auxz00_7758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4403z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7089); 
FAILURE(BgL_auxz00_7758,BFALSE,BFALSE);} 
BgL_arg1413z00_7097 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7099); } 
{ 
 long BgL_bufposz00_7764; long BgL_forwardz00_7763;
BgL_forwardz00_7763 = BgL_arg1412z00_7096; 
BgL_bufposz00_7764 = BgL_arg1413z00_7097; 
BgL_bufposz00_7092 = BgL_bufposz00_7764; 
BgL_forwardz00_7091 = BgL_forwardz00_7763; 
goto BgL_statezd21zd21106z00_6963;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7093; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7100;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7101;
if(
INPUT_PORTP(BgL_iportz00_7089))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7101 = BgL_iportz00_7089; }  else 
{ 
 obj_t BgL_auxz00_7767;
BgL_auxz00_7767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4403z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7089); 
FAILURE(BgL_auxz00_7767,BFALSE,BFALSE);} 
BgL_curz00_7100 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7101, BgL_forwardz00_7091); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4852z00_7772;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4853z00_7773;
if(
(
(long)(BgL_curz00_7100)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4853z00_7773 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4853z00_7773 = 
(
(long)(BgL_curz00_7100)==9L)
; } 
if(BgL_test4853z00_7773)
{ /* Ieee/input.scm 307 */
BgL_test4852z00_7772 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_7100)==32L))
{ /* Ieee/input.scm 307 */
BgL_test4852z00_7772 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4852z00_7772 = 
(
(long)(BgL_curz00_7100)==34L)
; } } } 
if(BgL_test4852z00_7772)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7093; }  else 
{ /* Ieee/input.scm 307 */
BgL_iportz00_7022 = BgL_iportz00_7089; 
BgL_lastzd2matchzd2_7023 = BgL_newzd2matchzd2_7093; 
BgL_forwardz00_7024 = 
(1L+BgL_forwardz00_7091); 
BgL_bufposz00_7025 = BgL_bufposz00_7092; 
BgL_statezd29zd21114z00_6958:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_7026;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7027;
if(
INPUT_PORTP(BgL_iportz00_7022))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7027 = BgL_iportz00_7022; }  else 
{ 
 obj_t BgL_auxz00_7786;
BgL_auxz00_7786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4398z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7022); 
FAILURE(BgL_auxz00_7786,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_7027, BgL_forwardz00_7024); } 
BgL_newzd2matchzd2_7026 = 3L; 
if(
(BgL_forwardz00_7024==BgL_bufposz00_7025))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4858z00_7793;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7028;
if(
INPUT_PORTP(BgL_iportz00_7022))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7028 = BgL_iportz00_7022; }  else 
{ 
 obj_t BgL_auxz00_7796;
BgL_auxz00_7796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4398z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7022); 
FAILURE(BgL_auxz00_7796,BFALSE,BFALSE);} 
BgL_test4858z00_7793 = 
rgc_fill_buffer(BgL_inputzd2portzd2_7028); } 
if(BgL_test4858z00_7793)
{ /* Ieee/input.scm 307 */
 long BgL_arg1471z00_7029; long BgL_arg1472z00_7030;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7031;
if(
INPUT_PORTP(BgL_iportz00_7022))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7031 = BgL_iportz00_7022; }  else 
{ 
 obj_t BgL_auxz00_7803;
BgL_auxz00_7803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4398z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7022); 
FAILURE(BgL_auxz00_7803,BFALSE,BFALSE);} 
BgL_arg1471z00_7029 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_7031); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7032;
if(
INPUT_PORTP(BgL_iportz00_7022))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7032 = BgL_iportz00_7022; }  else 
{ 
 obj_t BgL_auxz00_7810;
BgL_auxz00_7810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4398z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7022); 
FAILURE(BgL_auxz00_7810,BFALSE,BFALSE);} 
BgL_arg1472z00_7030 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_7032); } 
{ 
 long BgL_bufposz00_7816; long BgL_forwardz00_7815;
BgL_forwardz00_7815 = BgL_arg1471z00_7029; 
BgL_bufposz00_7816 = BgL_arg1472z00_7030; 
BgL_bufposz00_7025 = BgL_bufposz00_7816; 
BgL_forwardz00_7024 = BgL_forwardz00_7815; 
goto BgL_statezd29zd21114z00_6958;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7026; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_7033;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_7034;
if(
INPUT_PORTP(BgL_iportz00_7022))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_7034 = BgL_iportz00_7022; }  else 
{ 
 obj_t BgL_auxz00_7819;
BgL_auxz00_7819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4398z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_7022); 
FAILURE(BgL_auxz00_7819,BFALSE,BFALSE);} 
BgL_curz00_7033 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_7034, BgL_forwardz00_7024); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4863z00_7824;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4864z00_7825;
if(
(
(long)(BgL_curz00_7033)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4864z00_7825 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4864z00_7825 = 
(
(long)(BgL_curz00_7033)==9L)
; } 
if(BgL_test4864z00_7825)
{ /* Ieee/input.scm 307 */
BgL_test4863z00_7824 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_7033)==32L))
{ /* Ieee/input.scm 307 */
BgL_test4863z00_7824 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4863z00_7824 = 
(
(long)(BgL_curz00_7033)==34L)
; } } } 
if(BgL_test4863z00_7824)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6965 = BgL_newzd2matchzd2_7026; }  else 
{ 
 long BgL_forwardz00_7837; long BgL_lastzd2matchzd2_7836;
BgL_lastzd2matchzd2_7836 = BgL_newzd2matchzd2_7026; 
BgL_forwardz00_7837 = 
(1L+BgL_forwardz00_7024); 
BgL_forwardz00_7024 = BgL_forwardz00_7837; 
BgL_lastzd2matchzd2_7023 = BgL_lastzd2matchzd2_7836; 
goto BgL_statezd29zd21114z00_6958;} } } } } } } } } } } } } } } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6970;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6970 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7843;
BgL_auxz00_7843 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7843,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_6970); } 
switch( BgL_matchz00_6965) { case 4L : 

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4868z00_7848;
{ /* Ieee/input.scm 307 */
 long BgL_arg1595z00_6977;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6978;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6978 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7851;
BgL_auxz00_7851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7851,BFALSE,BFALSE);} 
BgL_arg1595z00_6977 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6978); } 
BgL_test4868z00_7848 = 
(BgL_arg1595z00_6977==0L); } 
if(BgL_test4868z00_7848)
{ /* Ieee/input.scm 307 */
return BEOF;}  else 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6979;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6979 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7859;
BgL_auxz00_7859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7859,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_6979));} } break;case 3L : 

{ /* Ieee/input.scm 307 */
 long BgL_arg1505z00_6971;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6972;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6972 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7867;
BgL_auxz00_7867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7867,BFALSE,BFALSE);} 
BgL_arg1505z00_6971 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6972); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6973;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6973 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7874;
BgL_auxz00_7874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7874,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_6973, 0L, BgL_arg1505z00_6971);} } break;case 2L : 

BgL_minz00_6980 = 
(int)(1L); 
BgL_maxz00_6981 = 
(int)((-1L)); 
if(
(
(long)(BgL_maxz00_6981)<
(long)(BgL_minz00_6980)))
{ /* Ieee/input.scm 307 */
 long BgL_arg1508z00_6982;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6983;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6983 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7885;
BgL_auxz00_7885 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7885,BFALSE,BFALSE);} 
BgL_arg1508z00_6982 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6983); } 
{ /* Ieee/input.scm 307 */
 long BgL_za72za7_6984;
BgL_za72za7_6984 = 
(long)(BgL_maxz00_6981); 
BgL_maxz00_6981 = 
(int)(
(BgL_arg1508z00_6982+BgL_za72za7_6984)); } }  else 
{ /* Ieee/input.scm 307 */BFALSE; } 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4875z00_7893;
if(
(
(long)(BgL_minz00_6980)>=0L))
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_maxz00_6981)>=
(long)(BgL_minz00_6980)))
{ /* Ieee/input.scm 307 */
 long BgL_arg1517z00_6985;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6986;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6986 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7903;
BgL_auxz00_7903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7903,BFALSE,BFALSE);} 
BgL_arg1517z00_6985 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6986); } 
BgL_test4875z00_7893 = 
(
(long)(BgL_maxz00_6981)<=BgL_arg1517z00_6985); }  else 
{ /* Ieee/input.scm 307 */
BgL_test4875z00_7893 = ((bool_t)0)
; } }  else 
{ /* Ieee/input.scm 307 */
BgL_test4875z00_7893 = ((bool_t)0)
; } 
if(BgL_test4875z00_7893)
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6987; long BgL_startz00_6988; long BgL_stopz00_6989;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6987 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7912;
BgL_auxz00_7912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7912,BFALSE,BFALSE);} 
BgL_startz00_6988 = 
(long)(BgL_minz00_6980); 
BgL_stopz00_6989 = 
(long)(BgL_maxz00_6981); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_6987, BgL_startz00_6988, BgL_stopz00_6989);}  else 
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1513z00_6990; obj_t BgL_arg1514z00_6991;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1515z00_6992;
{ /* Ieee/input.scm 307 */
 long BgL_arg1505z00_6993;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6994;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6994 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7921;
BgL_auxz00_7921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7921,BFALSE,BFALSE);} 
BgL_arg1505z00_6993 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6994); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6995;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6995 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7928;
BgL_auxz00_7928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7928,BFALSE,BFALSE);} 
BgL_arg1515z00_6992 = 
rgc_buffer_substring(BgL_inputzd2portzd2_6995, 0L, BgL_arg1505z00_6993); } } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_list1516z00_6996;
BgL_list1516z00_6996 = 
MAKE_YOUNG_PAIR(BgL_arg1515z00_6992, BNIL); 
BgL_arg1513z00_6990 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string4394z00zz__r4_input_6_10_2z00, BgL_list1516z00_6996); } } 
BgL_arg1514z00_6991 = 
MAKE_YOUNG_PAIR(
BINT(BgL_minz00_6980), 
BINT(BgL_maxz00_6981)); 
{ /* Ieee/input.scm 307 */
 obj_t BgL_aux3587z00_6997;
BgL_aux3587z00_6997 = 
BGl_errorz00zz__errorz00(BGl_string4393z00zz__r4_input_6_10_2z00, BgL_arg1513z00_6990, BgL_arg1514z00_6991); 
if(
STRINGP(BgL_aux3587z00_6997))
{ /* Ieee/input.scm 307 */
return BgL_aux3587z00_6997;}  else 
{ 
 obj_t BgL_auxz00_7941;
BgL_auxz00_7941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_aux3587z00_6997); 
FAILURE(BgL_auxz00_7941,BFALSE,BFALSE);} } } } break;case 1L : 

{ /* Ieee/input.scm 307 */
 long BgL_arg1505z00_6974;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6975;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6975 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7949;
BgL_auxz00_7949 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7949,BFALSE,BFALSE);} 
BgL_arg1505z00_6974 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6975); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6976;
if(
INPUT_PORTP(BgL_iportz00_6013))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6976 = BgL_iportz00_6013; }  else 
{ 
 obj_t BgL_auxz00_7956;
BgL_auxz00_7956 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_6013); 
FAILURE(BgL_auxz00_7956,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_6976, 0L, BgL_arg1505z00_6974);} } break;case 0L : 

goto BgL_ignorez00_6953;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_6965));} } } } } } 

}



/* read/rp */
BGL_EXPORTED_DEF obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t BgL_grammarz00_3, obj_t BgL_portz00_4, obj_t BgL_optsz00_5)
{
{ /* Ieee/input.scm 106 */
if(
PAIRP(BgL_optsz00_5))
{ /* Ieee/input.scm 109 */
 obj_t BgL_valz00_6199;
{ /* Ieee/input.scm 109 */
 obj_t BgL_list1611z00_1619;
BgL_list1611z00_1619 = 
MAKE_YOUNG_PAIR(BgL_optsz00_5, BNIL); 
{ /* Ieee/input.scm 109 */
 obj_t BgL_aux3673z00_6196;
BgL_aux3673z00_6196 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_4, BgL_list1611z00_1619); 
{ /* Ieee/input.scm 109 */
 bool_t BgL_test4886z00_7968;
if(
PAIRP(BgL_aux3673z00_6196))
{ /* Ieee/input.scm 109 */
BgL_test4886z00_7968 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 109 */
BgL_test4886z00_7968 = 
NULLP(BgL_aux3673z00_6196)
; } 
if(BgL_test4886z00_7968)
{ /* Ieee/input.scm 109 */
BgL_valz00_6199 = BgL_aux3673z00_6196; }  else 
{ 
 obj_t BgL_auxz00_7972;
BgL_auxz00_7972 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(4686L), BGl_string4407z00zz__r4_input_6_10_2z00, BGl_string4408z00zz__r4_input_6_10_2z00, BgL_aux3673z00_6196); 
FAILURE(BgL_auxz00_7972,BFALSE,BFALSE);} } } } 
{ /* Ieee/input.scm 109 */
 long BgL_len3675z00_6200;
BgL_len3675z00_6200 = 
(int)(
bgl_list_length(BgL_valz00_6199)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, BgL_len3675z00_6200))
{ /* Ieee/input.scm 109 */
return 
apply(BgL_grammarz00_3, BgL_valz00_6199);}  else 
{ /* Ieee/input.scm 109 */
FAILURE(BGl_symbol4409z00zz__r4_input_6_10_2z00,BGl_string4410z00zz__r4_input_6_10_2z00,BGl_list4411z00zz__r4_input_6_10_2z00);} } }  else 
{ /* Ieee/input.scm 108 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, 
(int)(1L)))
{ /* Ieee/input.scm 110 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, 1))
{ /* Ieee/input.scm 111 */
return 
BGL_PROCEDURE_CALL1(BgL_grammarz00_3, BgL_portz00_4);}  else 
{ /* Ieee/input.scm 111 */
FAILURE(BGl_string4436z00zz__r4_input_6_10_2z00,BGl_list4437z00zz__r4_input_6_10_2z00,BgL_grammarz00_3);} }  else 
{ /* Ieee/input.scm 110 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, 
(int)(2L)))
{ /* Ieee/input.scm 112 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, 2))
{ /* Ieee/input.scm 113 */
return 
BGL_PROCEDURE_CALL2(BgL_grammarz00_3, BgL_portz00_4, BUNSPEC);}  else 
{ /* Ieee/input.scm 113 */
FAILURE(BGl_string4436z00zz__r4_input_6_10_2z00,BGl_list4440z00zz__r4_input_6_10_2z00,BgL_grammarz00_3);} }  else 
{ /* Ieee/input.scm 112 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4409z00zz__r4_input_6_10_2z00, BGl_string4441z00zz__r4_input_6_10_2z00, BgL_grammarz00_3);} } } } 

}



/* &read/rp */
obj_t BGl_z62readzf2rpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_6014, obj_t BgL_grammarz00_6015, obj_t BgL_portz00_6016, obj_t BgL_optsz00_6017)
{
{ /* Ieee/input.scm 106 */
{ /* Ieee/input.scm 108 */
 obj_t BgL_auxz00_8012; obj_t BgL_auxz00_8005;
if(
INPUT_PORTP(BgL_portz00_6016))
{ /* Ieee/input.scm 108 */
BgL_auxz00_8012 = BgL_portz00_6016
; }  else 
{ 
 obj_t BgL_auxz00_8015;
BgL_auxz00_8015 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(4665L), BGl_string4442z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_portz00_6016); 
FAILURE(BgL_auxz00_8015,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_grammarz00_6015))
{ /* Ieee/input.scm 108 */
BgL_auxz00_8005 = BgL_grammarz00_6015
; }  else 
{ 
 obj_t BgL_auxz00_8008;
BgL_auxz00_8008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(4665L), BGl_string4442z00zz__r4_input_6_10_2z00, BGl_string4443z00zz__r4_input_6_10_2z00, BgL_grammarz00_6015); 
FAILURE(BgL_auxz00_8008,BFALSE,BFALSE);} 
return 
BGl_readzf2rpzf2zz__r4_input_6_10_2z00(BgL_auxz00_8005, BgL_auxz00_8012, BgL_optsz00_6017);} } 

}



/* read/lalrp */
BGL_EXPORTED_DEF obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t BgL_lalrz00_6, obj_t BgL_rgcz00_7, obj_t BgL_portz00_8, obj_t BgL_eofzd2funzf3z21_9)
{
{ /* Ieee/input.scm 120 */
if(
NULLP(BgL_eofzd2funzf3z21_9))
{ /* Ieee/input.scm 121 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_6, 3))
{ /* Ieee/input.scm 122 */
return 
BGL_PROCEDURE_CALL3(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00);}  else 
{ /* Ieee/input.scm 122 */
FAILURE(BGl_string4444z00zz__r4_input_6_10_2z00,BGl_list4445z00zz__r4_input_6_10_2z00,BgL_lalrz00_6);} }  else 
{ /* Ieee/input.scm 123 */
 obj_t BgL_arg1613z00_4813;
{ /* Ieee/input.scm 123 */
 obj_t BgL_pairz00_4814;
if(
PAIRP(BgL_eofzd2funzf3z21_9))
{ /* Ieee/input.scm 123 */
BgL_pairz00_4814 = BgL_eofzd2funzf3z21_9; }  else 
{ 
 obj_t BgL_auxz00_8033;
BgL_auxz00_8033 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5267L), BGl_string4452z00zz__r4_input_6_10_2z00, BGl_string4453z00zz__r4_input_6_10_2z00, BgL_eofzd2funzf3z21_9); 
FAILURE(BgL_auxz00_8033,BFALSE,BFALSE);} 
BgL_arg1613z00_4813 = 
CAR(BgL_pairz00_4814); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_6, 3))
{ /* Ieee/input.scm 123 */
return 
BGL_PROCEDURE_CALL3(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8, BgL_arg1613z00_4813);}  else 
{ /* Ieee/input.scm 123 */
FAILURE(BGl_string4444z00zz__r4_input_6_10_2z00,BGl_list4454z00zz__r4_input_6_10_2z00,BgL_lalrz00_6);} } } 

}



/* &read/lalrp */
obj_t BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_6018, obj_t BgL_lalrz00_6019, obj_t BgL_rgcz00_6020, obj_t BgL_portz00_6021, obj_t BgL_eofzd2funzf3z21_6022)
{
{ /* Ieee/input.scm 120 */
{ /* Ieee/input.scm 121 */
 obj_t BgL_auxz00_8061; obj_t BgL_auxz00_8054; obj_t BgL_auxz00_8047;
if(
INPUT_PORTP(BgL_portz00_6021))
{ /* Ieee/input.scm 121 */
BgL_auxz00_8061 = BgL_portz00_6021
; }  else 
{ 
 obj_t BgL_auxz00_8064;
BgL_auxz00_8064 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5184L), BGl_string4457z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_portz00_6021); 
FAILURE(BgL_auxz00_8064,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_rgcz00_6020))
{ /* Ieee/input.scm 121 */
BgL_auxz00_8054 = BgL_rgcz00_6020
; }  else 
{ 
 obj_t BgL_auxz00_8057;
BgL_auxz00_8057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5184L), BGl_string4457z00zz__r4_input_6_10_2z00, BGl_string4443z00zz__r4_input_6_10_2z00, BgL_rgcz00_6020); 
FAILURE(BgL_auxz00_8057,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_lalrz00_6019))
{ /* Ieee/input.scm 121 */
BgL_auxz00_8047 = BgL_lalrz00_6019
; }  else 
{ 
 obj_t BgL_auxz00_8050;
BgL_auxz00_8050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5184L), BGl_string4457z00zz__r4_input_6_10_2z00, BGl_string4443z00zz__r4_input_6_10_2z00, BgL_lalrz00_6019); 
FAILURE(BgL_auxz00_8050,BFALSE,BFALSE);} 
return 
BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(BgL_auxz00_8047, BgL_auxz00_8054, BgL_auxz00_8061, BgL_eofzd2funzf3z21_6022);} } 

}



/* _read-char */
obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_env1246z00_12, obj_t BgL_opt1245z00_11)
{
{ /* Ieee/input.scm 128 */
{ /* Ieee/input.scm 128 */

{ 

{ /* Ieee/input.scm 128 */
 long BgL_aux1248z00_1623;
{ 
 obj_t BgL_auxz00_8069;
if(
VECTORP(BgL_opt1245z00_11))
{ /* Ieee/input.scm 128 */
BgL_auxz00_8069 = BgL_opt1245z00_11
; }  else 
{ 
 obj_t BgL_auxz00_8072;
BgL_auxz00_8072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5503L), BGl_string4463z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1245z00_11); 
FAILURE(BgL_auxz00_8072,BFALSE,BFALSE);} 
BgL_aux1248z00_1623 = 
VECTOR_LENGTH(BgL_auxz00_8069); } 
switch( BgL_aux1248z00_1623) { case 0L : 

{ /* Ieee/input.scm 128 */
 obj_t BgL_ipz00_1624;
{ /* Ieee/input.scm 128 */
 obj_t BgL_tmpz00_8077;
BgL_tmpz00_8077 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_1624 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8077); } 
{ /* Ieee/input.scm 128 */

return 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1624);} } break;case 1L : 

{ /* Ieee/input.scm 128 */
 obj_t BgL_ipz00_1625;
{ 
 obj_t BgL_auxz00_8081;
if(
VECTORP(BgL_opt1245z00_11))
{ /* Ieee/input.scm 128 */
BgL_auxz00_8081 = BgL_opt1245z00_11
; }  else 
{ 
 obj_t BgL_auxz00_8084;
BgL_auxz00_8084 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5503L), BGl_string4463z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1245z00_11); 
FAILURE(BgL_auxz00_8084,BFALSE,BFALSE);} 
BgL_ipz00_1625 = 
VECTOR_REF(BgL_auxz00_8081,0L); } 
{ /* Ieee/input.scm 128 */

return 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1625);} } break;
default: 
{ /* Ieee/input.scm 128 */
 long BgL_arg1614z00_1626;
{ 
 obj_t BgL_auxz00_8090;
if(
VECTORP(BgL_opt1245z00_11))
{ /* Ieee/input.scm 128 */
BgL_auxz00_8090 = BgL_opt1245z00_11
; }  else 
{ 
 obj_t BgL_auxz00_8093;
BgL_auxz00_8093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5503L), BGl_string4458z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1245z00_11); 
FAILURE(BgL_auxz00_8093,BFALSE,BFALSE);} 
BgL_arg1614z00_1626 = 
VECTOR_LENGTH(BgL_auxz00_8090); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4460z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg1614z00_1626));} } } } } } 

}



/* read-char */
BGL_EXPORTED_DEF obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_10)
{
{ /* Ieee/input.scm 128 */
{ 
 obj_t BgL_iportz00_1629;
BgL_iportz00_1629 = BgL_ipz00_10; 
{ 

{ /* Ieee/input.scm 129 */
 bool_t BgL_test4905z00_8101;
{ /* Ieee/input.scm 129 */
 obj_t BgL_arg1621z00_1667;
{ /* Ieee/input.scm 129 */
 obj_t BgL_res3505z00_4859;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_res3505z00_4859 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8104;
BgL_auxz00_8104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8104,BFALSE,BFALSE);} 
BgL_arg1621z00_1667 = BgL_res3505z00_4859; } 
BgL_test4905z00_8101 = 
INPUT_PORT_CLOSEP(BgL_arg1621z00_1667); } 
if(BgL_test4905z00_8101)
{ /* Ieee/input.scm 129 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1616z00_1661;
{ /* Ieee/input.scm 129 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_1662;
{ /* Ieee/input.scm 129 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_1665;
BgL_new1045z00_1665 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 129 */
 long BgL_arg1620z00_1666;
BgL_arg1620z00_1666 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_1665), BgL_arg1620z00_1666); } 
BgL_new1046z00_1662 = BgL_new1045z00_1665; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1662)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1662)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8117;
{ /* Ieee/input.scm 129 */
 obj_t BgL_arg1617z00_1663;
{ /* Ieee/input.scm 129 */
 obj_t BgL_arg1619z00_1664;
{ /* Ieee/input.scm 129 */
 obj_t BgL_classz00_4864;
BgL_classz00_4864 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1619z00_1664 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_4864); } 
BgL_arg1617z00_1663 = 
VECTOR_REF(BgL_arg1619z00_1664,2L); } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_auxz00_8121;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1617z00_1663))
{ /* Ieee/input.scm 129 */
BgL_auxz00_8121 = BgL_arg1617z00_1663
; }  else 
{ 
 obj_t BgL_auxz00_8124;
BgL_auxz00_8124 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg1617z00_1663); 
FAILURE(BgL_auxz00_8124,BFALSE,BFALSE);} 
BgL_auxz00_8117 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8121); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1662)))->BgL_stackz00)=((obj_t)BgL_auxz00_8117),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1662)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1662)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8134;
{ /* Ieee/input.scm 129 */
 obj_t BgL_res3506z00_4866;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_res3506z00_4866 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8138;
BgL_auxz00_8138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8138,BFALSE,BFALSE);} 
BgL_auxz00_8134 = BgL_res3506z00_4866; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1662)))->BgL_objz00)=((obj_t)BgL_auxz00_8134),BUNSPEC); } 
BgL_arg1616z00_1661 = BgL_new1046z00_1662; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1616z00_1661));}  else 
{ /* Ieee/input.scm 129 */
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4834;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4834 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8147;
BgL_auxz00_8147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8147,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4834); } 
{ /* Ieee/input.scm 129 */
 long BgL_matchz00_1804;
{ /* Ieee/input.scm 129 */
 long BgL_arg1739z00_1807; long BgL_arg1740z00_1808;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4835;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4835 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8154;
BgL_auxz00_8154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8154,BFALSE,BFALSE);} 
BgL_arg1739z00_1807 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4835); } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4836;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4836 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8161;
BgL_auxz00_8161 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8161,BFALSE,BFALSE);} 
BgL_arg1740z00_1808 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4836); } 
{ 
 long BgL_forwardz00_4838; long BgL_bufposz00_4839;
BgL_forwardz00_4838 = BgL_arg1739z00_1807; 
BgL_bufposz00_4839 = BgL_arg1740z00_1808; 
BgL_statezd20zd21040z00_4837:
if(
(BgL_forwardz00_4838==BgL_bufposz00_4839))
{ /* Ieee/input.scm 129 */
 bool_t BgL_test4913z00_8168;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4844;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4844 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8171;
BgL_auxz00_8171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4464z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8171,BFALSE,BFALSE);} 
BgL_test4913z00_8168 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4844); } 
if(BgL_test4913z00_8168)
{ /* Ieee/input.scm 129 */
 long BgL_arg1626z00_4845; long BgL_arg1627z00_4846;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4847;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4847 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8178;
BgL_auxz00_8178 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4464z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8178,BFALSE,BFALSE);} 
BgL_arg1626z00_4845 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4847); } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4848;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4848 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8185;
BgL_auxz00_8185 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4464z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8185,BFALSE,BFALSE);} 
BgL_arg1627z00_4846 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4848); } 
{ 
 long BgL_bufposz00_8191; long BgL_forwardz00_8190;
BgL_forwardz00_8190 = BgL_arg1626z00_4845; 
BgL_bufposz00_8191 = BgL_arg1627z00_4846; 
BgL_bufposz00_4839 = BgL_bufposz00_8191; 
BgL_forwardz00_4838 = BgL_forwardz00_8190; 
goto BgL_statezd20zd21040z00_4837;} }  else 
{ /* Ieee/input.scm 129 */
BgL_matchz00_1804 = 1L; } }  else 
{ /* Ieee/input.scm 129 */
 int BgL_curz00_4849;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4850;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4850 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8194;
BgL_auxz00_8194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4464z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8194,BFALSE,BFALSE);} 
BgL_curz00_4849 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4850, BgL_forwardz00_4838); } 
{ /* Ieee/input.scm 129 */

{ /* Ieee/input.scm 129 */
 long BgL_arg1628z00_4852;
BgL_arg1628z00_4852 = 
(1L+BgL_forwardz00_4838); 
{ /* Ieee/input.scm 129 */
 long BgL_newzd2matchzd2_4854;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4855;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4855 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8202;
BgL_auxz00_8202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4464z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8202,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_4855, BgL_arg1628z00_4852); } 
BgL_newzd2matchzd2_4854 = 0L; 
BgL_matchz00_1804 = BgL_newzd2matchzd2_4854; } } } } } } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4857;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4857 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8209;
BgL_auxz00_8209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8209,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_4857); } 
switch( BgL_matchz00_1804) { case 1L : 

{ /* Ieee/input.scm 129 */
 bool_t BgL_test4920z00_8214;
{ /* Ieee/input.scm 129 */
 long BgL_arg1730z00_1794;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4831;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4831 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8217;
BgL_auxz00_8217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8217,BFALSE,BFALSE);} 
BgL_arg1730z00_1794 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4831); } 
BgL_test4920z00_8214 = 
(BgL_arg1730z00_1794==0L); } 
if(BgL_test4920z00_8214)
{ /* Ieee/input.scm 129 */
return BEOF;}  else 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4833;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4833 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8225;
BgL_auxz00_8225 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8225,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4833));} } break;case 0L : 

{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4858;
if(
INPUT_PORTP(BgL_iportz00_1629))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4858 = BgL_iportz00_1629; }  else 
{ 
 obj_t BgL_auxz00_8233;
BgL_auxz00_8233 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1629); 
FAILURE(BgL_auxz00_8233,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4858));} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_1804));} } } } } } } 

}



/* _peek-char */
obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_env1250z00_15, obj_t BgL_opt1249z00_14)
{
{ /* Ieee/input.scm 136 */
{ /* Ieee/input.scm 136 */

{ 

{ /* Ieee/input.scm 136 */
 long BgL_aux1252z00_1840;
{ 
 obj_t BgL_auxz00_8242;
if(
VECTORP(BgL_opt1249z00_14))
{ /* Ieee/input.scm 136 */
BgL_auxz00_8242 = BgL_opt1249z00_14
; }  else 
{ 
 obj_t BgL_auxz00_8245;
BgL_auxz00_8245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5897L), BGl_string4468z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1249z00_14); 
FAILURE(BgL_auxz00_8245,BFALSE,BFALSE);} 
BgL_aux1252z00_1840 = 
VECTOR_LENGTH(BgL_auxz00_8242); } 
switch( BgL_aux1252z00_1840) { case 0L : 

{ /* Ieee/input.scm 136 */
 obj_t BgL_ipz00_1841;
{ /* Ieee/input.scm 136 */
 obj_t BgL_tmpz00_8250;
BgL_tmpz00_8250 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_1841 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8250); } 
{ /* Ieee/input.scm 136 */

return 
BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1841);} } break;case 1L : 

{ /* Ieee/input.scm 136 */
 obj_t BgL_ipz00_1842;
{ 
 obj_t BgL_auxz00_8254;
if(
VECTORP(BgL_opt1249z00_14))
{ /* Ieee/input.scm 136 */
BgL_auxz00_8254 = BgL_opt1249z00_14
; }  else 
{ 
 obj_t BgL_auxz00_8257;
BgL_auxz00_8257 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5897L), BGl_string4468z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1249z00_14); 
FAILURE(BgL_auxz00_8257,BFALSE,BFALSE);} 
BgL_ipz00_1842 = 
VECTOR_REF(BgL_auxz00_8254,0L); } 
{ /* Ieee/input.scm 136 */

return 
BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1842);} } break;
default: 
{ /* Ieee/input.scm 136 */
 long BgL_arg1741z00_1843;
{ 
 obj_t BgL_auxz00_8263;
if(
VECTORP(BgL_opt1249z00_14))
{ /* Ieee/input.scm 136 */
BgL_auxz00_8263 = BgL_opt1249z00_14
; }  else 
{ 
 obj_t BgL_auxz00_8266;
BgL_auxz00_8266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5897L), BGl_string4465z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1249z00_14); 
FAILURE(BgL_auxz00_8266,BFALSE,BFALSE);} 
BgL_arg1741z00_1843 = 
VECTOR_LENGTH(BgL_auxz00_8263); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4466z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg1741z00_1843));} } } } } } 

}



/* peek-char */
BGL_EXPORTED_DEF obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_13)
{
{ /* Ieee/input.scm 136 */
{ 
 obj_t BgL_iportz00_1846;
BgL_iportz00_1846 = BgL_ipz00_13; 
{ 

{ /* Ieee/input.scm 137 */
 bool_t BgL_test4927z00_8274;
{ /* Ieee/input.scm 137 */
 obj_t BgL_arg1748z00_1884;
{ /* Ieee/input.scm 137 */
 obj_t BgL_res3508z00_4915;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_res3508z00_4915 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8277;
BgL_auxz00_8277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8277,BFALSE,BFALSE);} 
BgL_arg1748z00_1884 = BgL_res3508z00_4915; } 
BgL_test4927z00_8274 = 
INPUT_PORT_CLOSEP(BgL_arg1748z00_1884); } 
if(BgL_test4927z00_8274)
{ /* Ieee/input.scm 137 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1743z00_1878;
{ /* Ieee/input.scm 137 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_1879;
{ /* Ieee/input.scm 137 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_1882;
BgL_new1045z00_1882 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 137 */
 long BgL_arg1747z00_1883;
BgL_arg1747z00_1883 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_1882), BgL_arg1747z00_1883); } 
BgL_new1046z00_1879 = BgL_new1045z00_1882; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1879)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1879)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8290;
{ /* Ieee/input.scm 137 */
 obj_t BgL_arg1744z00_1880;
{ /* Ieee/input.scm 137 */
 obj_t BgL_arg1745z00_1881;
{ /* Ieee/input.scm 137 */
 obj_t BgL_classz00_4920;
BgL_classz00_4920 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1745z00_1881 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_4920); } 
BgL_arg1744z00_1880 = 
VECTOR_REF(BgL_arg1745z00_1881,2L); } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_auxz00_8294;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1744z00_1880))
{ /* Ieee/input.scm 137 */
BgL_auxz00_8294 = BgL_arg1744z00_1880
; }  else 
{ 
 obj_t BgL_auxz00_8297;
BgL_auxz00_8297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg1744z00_1880); 
FAILURE(BgL_auxz00_8297,BFALSE,BFALSE);} 
BgL_auxz00_8290 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8294); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1879)))->BgL_stackz00)=((obj_t)BgL_auxz00_8290),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1879)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1879)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8307;
{ /* Ieee/input.scm 137 */
 obj_t BgL_res3509z00_4922;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_res3509z00_4922 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8311;
BgL_auxz00_8311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8311,BFALSE,BFALSE);} 
BgL_auxz00_8307 = BgL_res3509z00_4922; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1879)))->BgL_objz00)=((obj_t)BgL_auxz00_8307),BUNSPEC); } 
BgL_arg1743z00_1878 = BgL_new1046z00_1879; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1743z00_1878));}  else 
{ /* Ieee/input.scm 137 */
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4886;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4886 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8320;
BgL_auxz00_8320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8320,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4886); } 
{ /* Ieee/input.scm 137 */
 long BgL_matchz00_2021;
{ /* Ieee/input.scm 137 */
 long BgL_arg1852z00_2027; long BgL_arg1853z00_2028;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4887;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4887 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8327;
BgL_auxz00_8327 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8327,BFALSE,BFALSE);} 
BgL_arg1852z00_2027 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4887); } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4888;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4888 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8334;
BgL_auxz00_8334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8334,BFALSE,BFALSE);} 
BgL_arg1853z00_2028 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4888); } 
{ 
 long BgL_forwardz00_4890; long BgL_bufposz00_4891;
BgL_forwardz00_4890 = BgL_arg1852z00_2027; 
BgL_bufposz00_4891 = BgL_arg1853z00_2028; 
BgL_statezd20zd21048z00_4889:
if(
(BgL_forwardz00_4890==BgL_bufposz00_4891))
{ /* Ieee/input.scm 137 */
 bool_t BgL_test4935z00_8341;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4896;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4896 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8344;
BgL_auxz00_8344 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4469z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8344,BFALSE,BFALSE);} 
BgL_test4935z00_8341 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4896); } 
if(BgL_test4935z00_8341)
{ /* Ieee/input.scm 137 */
 long BgL_arg1754z00_4897; long BgL_arg1755z00_4898;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4899;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4899 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8351;
BgL_auxz00_8351 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4469z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8351,BFALSE,BFALSE);} 
BgL_arg1754z00_4897 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4899); } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4900;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4900 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8358;
BgL_auxz00_8358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4469z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8358,BFALSE,BFALSE);} 
BgL_arg1755z00_4898 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4900); } 
{ 
 long BgL_bufposz00_8364; long BgL_forwardz00_8363;
BgL_forwardz00_8363 = BgL_arg1754z00_4897; 
BgL_bufposz00_8364 = BgL_arg1755z00_4898; 
BgL_bufposz00_4891 = BgL_bufposz00_8364; 
BgL_forwardz00_4890 = BgL_forwardz00_8363; 
goto BgL_statezd20zd21048z00_4889;} }  else 
{ /* Ieee/input.scm 137 */
BgL_matchz00_2021 = 1L; } }  else 
{ /* Ieee/input.scm 137 */
 int BgL_curz00_4901;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4902;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4902 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8367;
BgL_auxz00_8367 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4469z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8367,BFALSE,BFALSE);} 
BgL_curz00_4901 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4902, BgL_forwardz00_4890); } 
{ /* Ieee/input.scm 137 */

{ /* Ieee/input.scm 137 */
 long BgL_arg1756z00_4904;
BgL_arg1756z00_4904 = 
(1L+BgL_forwardz00_4890); 
{ /* Ieee/input.scm 137 */
 long BgL_newzd2matchzd2_4906;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4907;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4907 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8375;
BgL_auxz00_8375 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4469z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8375,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_4907, BgL_arg1756z00_4904); } 
BgL_newzd2matchzd2_4906 = 0L; 
BgL_matchz00_2021 = BgL_newzd2matchzd2_4906; } } } } } } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4909;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4909 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8382;
BgL_auxz00_8382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8382,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_4909); } 
switch( BgL_matchz00_2021) { case 1L : 

{ /* Ieee/input.scm 137 */
 bool_t BgL_test4942z00_8387;
{ /* Ieee/input.scm 137 */
 long BgL_arg1842z00_2011;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4883;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4883 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8390;
BgL_auxz00_8390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8390,BFALSE,BFALSE);} 
BgL_arg1842z00_2011 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4883); } 
BgL_test4942z00_8387 = 
(BgL_arg1842z00_2011==0L); } 
if(BgL_test4942z00_8387)
{ /* Ieee/input.scm 137 */
return BEOF;}  else 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4885;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4885 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8398;
BgL_auxz00_8398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8398,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4885));} } break;case 0L : 

{ /* Ieee/input.scm 139 */
 unsigned char BgL_cz00_2024;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4910;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4910 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8406;
BgL_auxz00_8406 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8406,BFALSE,BFALSE);} 
BgL_cz00_2024 = 
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4910); } 
{ /* Ieee/input.scm 140 */
 obj_t BgL_arg1849z00_2025; long BgL_arg1851z00_2026;
{ /* Ieee/input.scm 140 */
 obj_t BgL_res3507z00_4911;
if(
INPUT_PORTP(BgL_iportz00_1846))
{ /* Ieee/input.scm 137 */
BgL_res3507z00_4911 = BgL_iportz00_1846; }  else 
{ 
 obj_t BgL_auxz00_8413;
BgL_auxz00_8413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_1846); 
FAILURE(BgL_auxz00_8413,BFALSE,BFALSE);} 
BgL_arg1849z00_2025 = BgL_res3507z00_4911; } 
BgL_arg1851z00_2026 = 
(
(unsigned char)(BgL_cz00_2024)); 
rgc_buffer_unget_char(BgL_arg1849z00_2025, 
(int)(BgL_arg1851z00_2026)); } 
return 
BCHAR(BgL_cz00_2024);} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2021));} } } } } } } 

}



/* _read-byte */
obj_t BGl__readzd2bytezd2zz__r4_input_6_10_2z00(obj_t BgL_env1254z00_18, obj_t BgL_opt1253z00_17)
{
{ /* Ieee/input.scm 147 */
{ /* Ieee/input.scm 147 */

{ 

{ /* Ieee/input.scm 147 */
 long BgL_aux1256z00_2060;
{ 
 obj_t BgL_auxz00_8425;
if(
VECTORP(BgL_opt1253z00_17))
{ /* Ieee/input.scm 147 */
BgL_auxz00_8425 = BgL_opt1253z00_17
; }  else 
{ 
 obj_t BgL_auxz00_8428;
BgL_auxz00_8428 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6374L), BGl_string4473z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1253z00_17); 
FAILURE(BgL_auxz00_8428,BFALSE,BFALSE);} 
BgL_aux1256z00_2060 = 
VECTOR_LENGTH(BgL_auxz00_8425); } 
switch( BgL_aux1256z00_2060) { case 0L : 

{ /* Ieee/input.scm 147 */
 obj_t BgL_ipz00_2061;
{ /* Ieee/input.scm 147 */
 obj_t BgL_tmpz00_8433;
BgL_tmpz00_8433 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_2061 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8433); } 
{ /* Ieee/input.scm 147 */

return 
BGl_readzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2061);} } break;case 1L : 

{ /* Ieee/input.scm 147 */
 obj_t BgL_ipz00_2062;
{ 
 obj_t BgL_auxz00_8437;
if(
VECTORP(BgL_opt1253z00_17))
{ /* Ieee/input.scm 147 */
BgL_auxz00_8437 = BgL_opt1253z00_17
; }  else 
{ 
 obj_t BgL_auxz00_8440;
BgL_auxz00_8440 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6374L), BGl_string4473z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1253z00_17); 
FAILURE(BgL_auxz00_8440,BFALSE,BFALSE);} 
BgL_ipz00_2062 = 
VECTOR_REF(BgL_auxz00_8437,0L); } 
{ /* Ieee/input.scm 147 */

return 
BGl_readzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2062);} } break;
default: 
{ /* Ieee/input.scm 147 */
 long BgL_arg1854z00_2063;
{ 
 obj_t BgL_auxz00_8446;
if(
VECTORP(BgL_opt1253z00_17))
{ /* Ieee/input.scm 147 */
BgL_auxz00_8446 = BgL_opt1253z00_17
; }  else 
{ 
 obj_t BgL_auxz00_8449;
BgL_auxz00_8449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6374L), BGl_string4470z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1253z00_17); 
FAILURE(BgL_auxz00_8449,BFALSE,BFALSE);} 
BgL_arg1854z00_2063 = 
VECTOR_LENGTH(BgL_auxz00_8446); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4471z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg1854z00_2063));} } } } } } 

}



/* read-byte */
BGL_EXPORTED_DEF obj_t BGl_readzd2bytezd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_16)
{
{ /* Ieee/input.scm 147 */
{ 
 obj_t BgL_iportz00_2066;
BgL_iportz00_2066 = BgL_ipz00_16; 
{ 

{ /* Ieee/input.scm 148 */
 bool_t BgL_test4950z00_8457;
{ /* Ieee/input.scm 148 */
 obj_t BgL_arg1860z00_2104;
{ /* Ieee/input.scm 148 */
 obj_t BgL_res3510z00_4967;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_res3510z00_4967 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8460;
BgL_auxz00_8460 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8460,BFALSE,BFALSE);} 
BgL_arg1860z00_2104 = BgL_res3510z00_4967; } 
BgL_test4950z00_8457 = 
INPUT_PORT_CLOSEP(BgL_arg1860z00_2104); } 
if(BgL_test4950z00_8457)
{ /* Ieee/input.scm 148 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1856z00_2098;
{ /* Ieee/input.scm 148 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2099;
{ /* Ieee/input.scm 148 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2102;
BgL_new1045z00_2102 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 148 */
 long BgL_arg1859z00_2103;
BgL_arg1859z00_2103 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2102), BgL_arg1859z00_2103); } 
BgL_new1046z00_2099 = BgL_new1045z00_2102; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2099)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2099)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8473;
{ /* Ieee/input.scm 148 */
 obj_t BgL_arg1857z00_2100;
{ /* Ieee/input.scm 148 */
 obj_t BgL_arg1858z00_2101;
{ /* Ieee/input.scm 148 */
 obj_t BgL_classz00_4972;
BgL_classz00_4972 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1858z00_2101 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_4972); } 
BgL_arg1857z00_2100 = 
VECTOR_REF(BgL_arg1858z00_2101,2L); } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_auxz00_8477;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1857z00_2100))
{ /* Ieee/input.scm 148 */
BgL_auxz00_8477 = BgL_arg1857z00_2100
; }  else 
{ 
 obj_t BgL_auxz00_8480;
BgL_auxz00_8480 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg1857z00_2100); 
FAILURE(BgL_auxz00_8480,BFALSE,BFALSE);} 
BgL_auxz00_8473 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8477); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2099)))->BgL_stackz00)=((obj_t)BgL_auxz00_8473),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2099)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2099)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8490;
{ /* Ieee/input.scm 148 */
 obj_t BgL_res3511z00_4974;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_res3511z00_4974 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8494;
BgL_auxz00_8494 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8494,BFALSE,BFALSE);} 
BgL_auxz00_8490 = BgL_res3511z00_4974; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2099)))->BgL_objz00)=((obj_t)BgL_auxz00_8490),BUNSPEC); } 
BgL_arg1856z00_2098 = BgL_new1046z00_2099; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1856z00_2098));}  else 
{ /* Ieee/input.scm 148 */
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4942;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4942 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8503;
BgL_auxz00_8503 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8503,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4942); } 
{ /* Ieee/input.scm 148 */
 long BgL_matchz00_2241;
{ /* Ieee/input.scm 148 */
 long BgL_arg1963z00_2244; long BgL_arg1964z00_2245;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4943;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4943 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8510;
BgL_auxz00_8510 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8510,BFALSE,BFALSE);} 
BgL_arg1963z00_2244 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4943); } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4944;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4944 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8517;
BgL_auxz00_8517 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8517,BFALSE,BFALSE);} 
BgL_arg1964z00_2245 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4944); } 
{ 
 long BgL_forwardz00_4946; long BgL_bufposz00_4947;
BgL_forwardz00_4946 = BgL_arg1963z00_2244; 
BgL_bufposz00_4947 = BgL_arg1964z00_2245; 
BgL_statezd20zd21054z00_4945:
if(
(BgL_forwardz00_4946==BgL_bufposz00_4947))
{ /* Ieee/input.scm 148 */
 bool_t BgL_test4958z00_8524;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4952;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4952 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8527;
BgL_auxz00_8527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4474z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8527,BFALSE,BFALSE);} 
BgL_test4958z00_8524 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4952); } 
if(BgL_test4958z00_8524)
{ /* Ieee/input.scm 148 */
 long BgL_arg1865z00_4953; long BgL_arg1866z00_4954;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4955;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4955 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8534;
BgL_auxz00_8534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4474z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8534,BFALSE,BFALSE);} 
BgL_arg1865z00_4953 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4955); } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4956;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4956 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8541;
BgL_auxz00_8541 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4474z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8541,BFALSE,BFALSE);} 
BgL_arg1866z00_4954 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4956); } 
{ 
 long BgL_bufposz00_8547; long BgL_forwardz00_8546;
BgL_forwardz00_8546 = BgL_arg1865z00_4953; 
BgL_bufposz00_8547 = BgL_arg1866z00_4954; 
BgL_bufposz00_4947 = BgL_bufposz00_8547; 
BgL_forwardz00_4946 = BgL_forwardz00_8546; 
goto BgL_statezd20zd21054z00_4945;} }  else 
{ /* Ieee/input.scm 148 */
BgL_matchz00_2241 = 1L; } }  else 
{ /* Ieee/input.scm 148 */
 int BgL_curz00_4957;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4958;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4958 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8550;
BgL_auxz00_8550 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4474z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8550,BFALSE,BFALSE);} 
BgL_curz00_4957 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4958, BgL_forwardz00_4946); } 
{ /* Ieee/input.scm 148 */

{ /* Ieee/input.scm 148 */
 long BgL_arg1867z00_4960;
BgL_arg1867z00_4960 = 
(1L+BgL_forwardz00_4946); 
{ /* Ieee/input.scm 148 */
 long BgL_newzd2matchzd2_4962;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4963;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4963 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8558;
BgL_auxz00_8558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4474z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8558,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_4963, BgL_arg1867z00_4960); } 
BgL_newzd2matchzd2_4962 = 0L; 
BgL_matchz00_2241 = BgL_newzd2matchzd2_4962; } } } } } } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4965;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4965 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8565;
BgL_auxz00_8565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8565,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_4965); } 
switch( BgL_matchz00_2241) { case 1L : 

{ /* Ieee/input.scm 148 */
 bool_t BgL_test4965z00_8570;
{ /* Ieee/input.scm 148 */
 long BgL_arg1956z00_2231;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4939;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4939 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8573;
BgL_auxz00_8573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8573,BFALSE,BFALSE);} 
BgL_arg1956z00_2231 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4939); } 
BgL_test4965z00_8570 = 
(BgL_arg1956z00_2231==0L); } 
if(BgL_test4965z00_8570)
{ /* Ieee/input.scm 148 */
return BEOF;}  else 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4941;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4941 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8581;
BgL_auxz00_8581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8581,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4941));} } break;case 0L : 

{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4966;
if(
INPUT_PORTP(BgL_iportz00_2066))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4966 = BgL_iportz00_2066; }  else 
{ 
 obj_t BgL_auxz00_8589;
BgL_auxz00_8589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2066); 
FAILURE(BgL_auxz00_8589,BFALSE,BFALSE);} 
return 
BINT(
RGC_BUFFER_BYTE(BgL_inputzd2portzd2_4966));} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2241));} } } } } } } 

}



/* _peek-byte */
obj_t BGl__peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t BgL_env1258z00_21, obj_t BgL_opt1257z00_20)
{
{ /* Ieee/input.scm 155 */
{ /* Ieee/input.scm 155 */

{ 

{ /* Ieee/input.scm 155 */
 long BgL_aux1260z00_2277;
{ 
 obj_t BgL_auxz00_8598;
if(
VECTORP(BgL_opt1257z00_20))
{ /* Ieee/input.scm 155 */
BgL_auxz00_8598 = BgL_opt1257z00_20
; }  else 
{ 
 obj_t BgL_auxz00_8601;
BgL_auxz00_8601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6763L), BGl_string4478z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1257z00_20); 
FAILURE(BgL_auxz00_8601,BFALSE,BFALSE);} 
BgL_aux1260z00_2277 = 
VECTOR_LENGTH(BgL_auxz00_8598); } 
switch( BgL_aux1260z00_2277) { case 0L : 

{ /* Ieee/input.scm 155 */
 obj_t BgL_ipz00_2278;
{ /* Ieee/input.scm 155 */
 obj_t BgL_tmpz00_8606;
BgL_tmpz00_8606 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_2278 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8606); } 
{ /* Ieee/input.scm 155 */

return 
BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2278);} } break;case 1L : 

{ /* Ieee/input.scm 155 */
 obj_t BgL_ipz00_2279;
{ 
 obj_t BgL_auxz00_8610;
if(
VECTORP(BgL_opt1257z00_20))
{ /* Ieee/input.scm 155 */
BgL_auxz00_8610 = BgL_opt1257z00_20
; }  else 
{ 
 obj_t BgL_auxz00_8613;
BgL_auxz00_8613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6763L), BGl_string4478z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1257z00_20); 
FAILURE(BgL_auxz00_8613,BFALSE,BFALSE);} 
BgL_ipz00_2279 = 
VECTOR_REF(BgL_auxz00_8610,0L); } 
{ /* Ieee/input.scm 155 */

return 
BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2279);} } break;
default: 
{ /* Ieee/input.scm 155 */
 long BgL_arg1965z00_2280;
{ 
 obj_t BgL_auxz00_8619;
if(
VECTORP(BgL_opt1257z00_20))
{ /* Ieee/input.scm 155 */
BgL_auxz00_8619 = BgL_opt1257z00_20
; }  else 
{ 
 obj_t BgL_auxz00_8622;
BgL_auxz00_8622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6763L), BGl_string4475z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1257z00_20); 
FAILURE(BgL_auxz00_8622,BFALSE,BFALSE);} 
BgL_arg1965z00_2280 = 
VECTOR_LENGTH(BgL_auxz00_8619); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4476z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg1965z00_2280));} } } } } } 

}



/* peek-byte */
BGL_EXPORTED_DEF obj_t BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_19)
{
{ /* Ieee/input.scm 155 */
{ 
 obj_t BgL_iportz00_2283;
BgL_iportz00_2283 = BgL_ipz00_19; 
{ 

{ /* Ieee/input.scm 156 */
 bool_t BgL_test4972z00_8630;
{ /* Ieee/input.scm 156 */
 obj_t BgL_arg1971z00_2321;
{ /* Ieee/input.scm 156 */
 obj_t BgL_res3513z00_5022;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_res3513z00_5022 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8633;
BgL_auxz00_8633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8633,BFALSE,BFALSE);} 
BgL_arg1971z00_2321 = BgL_res3513z00_5022; } 
BgL_test4972z00_8630 = 
INPUT_PORT_CLOSEP(BgL_arg1971z00_2321); } 
if(BgL_test4972z00_8630)
{ /* Ieee/input.scm 156 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1967z00_2315;
{ /* Ieee/input.scm 156 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2316;
{ /* Ieee/input.scm 156 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2319;
BgL_new1045z00_2319 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 156 */
 long BgL_arg1970z00_2320;
BgL_arg1970z00_2320 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2319), BgL_arg1970z00_2320); } 
BgL_new1046z00_2316 = BgL_new1045z00_2319; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2316)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2316)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8646;
{ /* Ieee/input.scm 156 */
 obj_t BgL_arg1968z00_2317;
{ /* Ieee/input.scm 156 */
 obj_t BgL_arg1969z00_2318;
{ /* Ieee/input.scm 156 */
 obj_t BgL_classz00_5027;
BgL_classz00_5027 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1969z00_2318 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5027); } 
BgL_arg1968z00_2317 = 
VECTOR_REF(BgL_arg1969z00_2318,2L); } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_auxz00_8650;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1968z00_2317))
{ /* Ieee/input.scm 156 */
BgL_auxz00_8650 = BgL_arg1968z00_2317
; }  else 
{ 
 obj_t BgL_auxz00_8653;
BgL_auxz00_8653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg1968z00_2317); 
FAILURE(BgL_auxz00_8653,BFALSE,BFALSE);} 
BgL_auxz00_8646 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8650); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2316)))->BgL_stackz00)=((obj_t)BgL_auxz00_8646),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2316)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2316)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8663;
{ /* Ieee/input.scm 156 */
 obj_t BgL_res3514z00_5029;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_res3514z00_5029 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8667;
BgL_auxz00_8667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8667,BFALSE,BFALSE);} 
BgL_auxz00_8663 = BgL_res3514z00_5029; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2316)))->BgL_objz00)=((obj_t)BgL_auxz00_8663),BUNSPEC); } 
BgL_arg1967z00_2315 = BgL_new1046z00_2316; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1967z00_2315));}  else 
{ /* Ieee/input.scm 156 */
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4994;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4994 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8676;
BgL_auxz00_8676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8676,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4994); } 
{ /* Ieee/input.scm 156 */
 long BgL_matchz00_2458;
{ /* Ieee/input.scm 156 */
 long BgL_arg2075z00_2463; long BgL_arg2076z00_2464;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4995;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4995 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8683;
BgL_auxz00_8683 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8683,BFALSE,BFALSE);} 
BgL_arg2075z00_2463 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4995); } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4996;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4996 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8690;
BgL_auxz00_8690 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8690,BFALSE,BFALSE);} 
BgL_arg2076z00_2464 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4996); } 
{ 
 long BgL_forwardz00_4998; long BgL_bufposz00_4999;
BgL_forwardz00_4998 = BgL_arg2075z00_2463; 
BgL_bufposz00_4999 = BgL_arg2076z00_2464; 
BgL_statezd20zd21060z00_4997:
if(
(BgL_forwardz00_4998==BgL_bufposz00_4999))
{ /* Ieee/input.scm 156 */
 bool_t BgL_test4980z00_8697;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5004;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5004 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8700;
BgL_auxz00_8700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4479z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8700,BFALSE,BFALSE);} 
BgL_test4980z00_8697 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5004); } 
if(BgL_test4980z00_8697)
{ /* Ieee/input.scm 156 */
 long BgL_arg1977z00_5005; long BgL_arg1978z00_5006;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5007;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5007 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8707;
BgL_auxz00_8707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4479z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8707,BFALSE,BFALSE);} 
BgL_arg1977z00_5005 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5007); } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5008;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5008 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8714;
BgL_auxz00_8714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4479z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8714,BFALSE,BFALSE);} 
BgL_arg1978z00_5006 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5008); } 
{ 
 long BgL_bufposz00_8720; long BgL_forwardz00_8719;
BgL_forwardz00_8719 = BgL_arg1977z00_5005; 
BgL_bufposz00_8720 = BgL_arg1978z00_5006; 
BgL_bufposz00_4999 = BgL_bufposz00_8720; 
BgL_forwardz00_4998 = BgL_forwardz00_8719; 
goto BgL_statezd20zd21060z00_4997;} }  else 
{ /* Ieee/input.scm 156 */
BgL_matchz00_2458 = 1L; } }  else 
{ /* Ieee/input.scm 156 */
 int BgL_curz00_5009;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5010;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5010 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8723;
BgL_auxz00_8723 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4479z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8723,BFALSE,BFALSE);} 
BgL_curz00_5009 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5010, BgL_forwardz00_4998); } 
{ /* Ieee/input.scm 156 */

{ /* Ieee/input.scm 156 */
 long BgL_arg1979z00_5012;
BgL_arg1979z00_5012 = 
(1L+BgL_forwardz00_4998); 
{ /* Ieee/input.scm 156 */
 long BgL_newzd2matchzd2_5014;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5015;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5015 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8731;
BgL_auxz00_8731 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4479z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8731,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5015, BgL_arg1979z00_5012); } 
BgL_newzd2matchzd2_5014 = 0L; 
BgL_matchz00_2458 = BgL_newzd2matchzd2_5014; } } } } } } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5017;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5017 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8738;
BgL_auxz00_8738 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8738,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5017); } 
switch( BgL_matchz00_2458) { case 1L : 

{ /* Ieee/input.scm 156 */
 bool_t BgL_test4987z00_8743;
{ /* Ieee/input.scm 156 */
 long BgL_arg2067z00_2448;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4991;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4991 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8746;
BgL_auxz00_8746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8746,BFALSE,BFALSE);} 
BgL_arg2067z00_2448 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4991); } 
BgL_test4987z00_8743 = 
(BgL_arg2067z00_2448==0L); } 
if(BgL_test4987z00_8743)
{ /* Ieee/input.scm 156 */
return BEOF;}  else 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4993;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4993 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8754;
BgL_auxz00_8754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8754,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4993));} } break;case 0L : 

{ /* Ieee/input.scm 158 */
 int BgL_cz00_2461;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5018;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5018 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8762;
BgL_auxz00_8762 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8762,BFALSE,BFALSE);} 
BgL_cz00_2461 = 
RGC_BUFFER_BYTE(BgL_inputzd2portzd2_5018); } 
{ /* Ieee/input.scm 159 */
 obj_t BgL_arg2074z00_2462;
{ /* Ieee/input.scm 159 */
 obj_t BgL_res3512z00_5019;
if(
INPUT_PORTP(BgL_iportz00_2283))
{ /* Ieee/input.scm 156 */
BgL_res3512z00_5019 = BgL_iportz00_2283; }  else 
{ 
 obj_t BgL_auxz00_8769;
BgL_auxz00_8769 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2283); 
FAILURE(BgL_auxz00_8769,BFALSE,BFALSE);} 
BgL_arg2074z00_2462 = BgL_res3512z00_5019; } 
rgc_buffer_unget_char(BgL_arg2074z00_2462, BgL_cz00_2461); } 
return 
BINT(BgL_cz00_2461);} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2458));} } } } } } } 

}



/* eof-object */
BGL_EXPORTED_DEF obj_t BGl_eofzd2objectzd2zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 166 */
return BEOF;} 

}



/* &eof-object */
obj_t BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00(obj_t BgL_envz00_6025)
{
{ /* Ieee/input.scm 166 */
return 
BGl_eofzd2objectzd2zz__r4_input_6_10_2z00();} 

}



/* eof-object? */
BGL_EXPORTED_DEF bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t BgL_objectz00_22)
{
{ /* Ieee/input.scm 172 */
return 
EOF_OBJECTP(BgL_objectz00_22);} 

}



/* &eof-object? */
obj_t BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00(obj_t BgL_envz00_6023, obj_t BgL_objectz00_6024)
{
{ /* Ieee/input.scm 172 */
return 
BBOOL(
EOF_OBJECTP(BgL_objectz00_6024));} 

}



/* _char-ready? */
obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t BgL_env1262z00_25, obj_t BgL_opt1261z00_24)
{
{ /* Ieee/input.scm 178 */
{ /* Ieee/input.scm 178 */

{ 

{ /* Ieee/input.scm 178 */
 long BgL_aux1264z00_7115;
{ 
 obj_t BgL_auxz00_8782;
if(
VECTORP(BgL_opt1261z00_24))
{ /* Ieee/input.scm 178 */
BgL_auxz00_8782 = BgL_opt1261z00_24
; }  else 
{ 
 obj_t BgL_auxz00_8785;
BgL_auxz00_8785 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(7765L), BGl_string4483z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1261z00_24); 
FAILURE(BgL_auxz00_8785,BFALSE,BFALSE);} 
BgL_aux1264z00_7115 = 
VECTOR_LENGTH(BgL_auxz00_8782); } 
switch( BgL_aux1264z00_7115) { case 0L : 

{ /* Ieee/input.scm 178 */
 obj_t BgL_ipz00_7116;
{ /* Ieee/input.scm 178 */
 obj_t BgL_tmpz00_8790;
BgL_tmpz00_8790 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_7116 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8790); } 
{ /* Ieee/input.scm 178 */

return 
BBOOL(
bgl_rgc_charready(BgL_ipz00_7116));} } break;case 1L : 

{ /* Ieee/input.scm 178 */
 obj_t BgL_ipz00_7117;
{ 
 obj_t BgL_auxz00_8795;
if(
VECTORP(BgL_opt1261z00_24))
{ /* Ieee/input.scm 178 */
BgL_auxz00_8795 = BgL_opt1261z00_24
; }  else 
{ 
 obj_t BgL_auxz00_8798;
BgL_auxz00_8798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(7765L), BGl_string4483z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1261z00_24); 
FAILURE(BgL_auxz00_8798,BFALSE,BFALSE);} 
BgL_ipz00_7117 = 
VECTOR_REF(BgL_auxz00_8795,0L); } 
{ /* Ieee/input.scm 178 */

{ /* Ieee/input.scm 179 */
 bool_t BgL_tmpz00_8803;
{ /* Ieee/input.scm 179 */
 obj_t BgL_tmpz00_8804;
if(
INPUT_PORTP(BgL_ipz00_7117))
{ /* Ieee/input.scm 179 */
BgL_tmpz00_8804 = BgL_ipz00_7117
; }  else 
{ 
 obj_t BgL_auxz00_8807;
BgL_auxz00_8807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(7849L), BGl_string4483z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_7117); 
FAILURE(BgL_auxz00_8807,BFALSE,BFALSE);} 
BgL_tmpz00_8803 = 
bgl_rgc_charready(BgL_tmpz00_8804); } 
return 
BBOOL(BgL_tmpz00_8803);} } } break;
default: 
{ /* Ieee/input.scm 178 */
 long BgL_arg2077z00_7114;
{ 
 obj_t BgL_auxz00_8813;
if(
VECTORP(BgL_opt1261z00_24))
{ /* Ieee/input.scm 178 */
BgL_auxz00_8813 = BgL_opt1261z00_24
; }  else 
{ 
 obj_t BgL_auxz00_8816;
BgL_auxz00_8816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(7765L), BGl_string4480z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1261z00_24); 
FAILURE(BgL_auxz00_8816,BFALSE,BFALSE);} 
BgL_arg2077z00_7114 = 
VECTOR_LENGTH(BgL_auxz00_8813); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4481z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2077z00_7114));} } } } } } 

}



/* char-ready? */
BGL_EXPORTED_DEF bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t BgL_ipz00_23)
{
{ /* Ieee/input.scm 178 */
{ /* Ieee/input.scm 179 */
 obj_t BgL_tmpz00_8824;
if(
INPUT_PORTP(BgL_ipz00_23))
{ /* Ieee/input.scm 179 */
BgL_tmpz00_8824 = BgL_ipz00_23
; }  else 
{ 
 obj_t BgL_auxz00_8827;
BgL_auxz00_8827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(7849L), BGl_string4482z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_23); 
FAILURE(BgL_auxz00_8827,BFALSE,BFALSE);} 
return 
bgl_rgc_charready(BgL_tmpz00_8824);} } 

}



/* _read-line */
obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t BgL_env1266z00_28, obj_t BgL_opt1265z00_27)
{
{ /* Ieee/input.scm 184 */
{ /* Ieee/input.scm 184 */

{ 

{ /* Ieee/input.scm 184 */
 long BgL_aux1268z00_2501;
{ 
 obj_t BgL_auxz00_8832;
if(
VECTORP(BgL_opt1265z00_27))
{ /* Ieee/input.scm 184 */
BgL_auxz00_8832 = BgL_opt1265z00_27
; }  else 
{ 
 obj_t BgL_auxz00_8835;
BgL_auxz00_8835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8077L), BGl_string4487z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1265z00_27); 
FAILURE(BgL_auxz00_8835,BFALSE,BFALSE);} 
BgL_aux1268z00_2501 = 
VECTOR_LENGTH(BgL_auxz00_8832); } 
switch( BgL_aux1268z00_2501) { case 0L : 

{ /* Ieee/input.scm 184 */
 obj_t BgL_ipz00_2502;
{ /* Ieee/input.scm 184 */
 obj_t BgL_tmpz00_8840;
BgL_tmpz00_8840 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_2502 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8840); } 
{ /* Ieee/input.scm 184 */

return 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_2502);} } break;case 1L : 

{ /* Ieee/input.scm 184 */
 obj_t BgL_ipz00_2503;
{ 
 obj_t BgL_auxz00_8844;
if(
VECTORP(BgL_opt1265z00_27))
{ /* Ieee/input.scm 184 */
BgL_auxz00_8844 = BgL_opt1265z00_27
; }  else 
{ 
 obj_t BgL_auxz00_8847;
BgL_auxz00_8847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8077L), BGl_string4487z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1265z00_27); 
FAILURE(BgL_auxz00_8847,BFALSE,BFALSE);} 
BgL_ipz00_2503 = 
VECTOR_REF(BgL_auxz00_8844,0L); } 
{ /* Ieee/input.scm 184 */

return 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_2503);} } break;
default: 
{ /* Ieee/input.scm 184 */
 long BgL_arg2078z00_2504;
{ 
 obj_t BgL_auxz00_8853;
if(
VECTORP(BgL_opt1265z00_27))
{ /* Ieee/input.scm 184 */
BgL_auxz00_8853 = BgL_opt1265z00_27
; }  else 
{ 
 obj_t BgL_auxz00_8856;
BgL_auxz00_8856 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8077L), BGl_string4484z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1265z00_27); 
FAILURE(BgL_auxz00_8856,BFALSE,BFALSE);} 
BgL_arg2078z00_2504 = 
VECTOR_LENGTH(BgL_auxz00_8853); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4485z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2078z00_2504));} } } } } } 

}



/* read-line */
BGL_EXPORTED_DEF obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_26)
{
{ /* Ieee/input.scm 184 */
{ /* Ieee/input.scm 185 */
 bool_t BgL_test5003z00_8864;
{ /* Ieee/input.scm 185 */
 long BgL_arg2242z00_2844;
{ /* Ieee/input.scm 185 */
 obj_t BgL_tmpz00_8865;
if(
INPUT_PORTP(BgL_ipz00_26))
{ /* Ieee/input.scm 185 */
BgL_tmpz00_8865 = BgL_ipz00_26
; }  else 
{ 
 obj_t BgL_auxz00_8868;
BgL_auxz00_8868 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8167L), BGl_string4486z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_26); 
FAILURE(BgL_auxz00_8868,BFALSE,BFALSE);} 
BgL_arg2242z00_2844 = 
BGL_INPUT_PORT_BUFSIZ(BgL_tmpz00_8865); } 
BgL_test5003z00_8864 = 
(BgL_arg2242z00_2844>2L); } 
if(BgL_test5003z00_8864)
{ 
 obj_t BgL_iportz00_2509;
BgL_iportz00_2509 = BgL_ipz00_26; 
{ 
 int BgL_minz00_2664; int BgL_maxz00_2665; obj_t BgL_iportz00_2627; long BgL_lastzd2matchzd2_2628; long BgL_forwardz00_2629; long BgL_bufposz00_2630; obj_t BgL_iportz00_2599; long BgL_lastzd2matchzd2_2600; long BgL_forwardz00_2601; long BgL_bufposz00_2602; obj_t BgL_iportz00_2586; long BgL_lastzd2matchzd2_2587; long BgL_forwardz00_2588; long BgL_bufposz00_2589; obj_t BgL_iportz00_2571; long BgL_lastzd2matchzd2_2572; long BgL_forwardz00_2573; long BgL_bufposz00_2574; obj_t BgL_iportz00_2555; long BgL_lastzd2matchzd2_2556; long BgL_forwardz00_2557; long BgL_bufposz00_2558;
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5005z00_8874;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2086z00_2554;
{ /* Ieee/input.scm 186 */
 obj_t BgL_res3515z00_5165;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_res3515z00_5165 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_8877;
BgL_auxz00_8877 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_8877,BFALSE,BFALSE);} 
BgL_arg2086z00_2554 = BgL_res3515z00_5165; } 
BgL_test5005z00_8874 = 
INPUT_PORT_CLOSEP(BgL_arg2086z00_2554); } 
if(BgL_test5005z00_8874)
{ /* Ieee/input.scm 186 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2082z00_2548;
{ /* Ieee/input.scm 186 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2549;
{ /* Ieee/input.scm 186 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2552;
BgL_new1045z00_2552 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 186 */
 long BgL_arg2085z00_2553;
BgL_arg2085z00_2553 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2552), BgL_arg2085z00_2553); } 
BgL_new1046z00_2549 = BgL_new1045z00_2552; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2549)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2549)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8890;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2083z00_2550;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2084z00_2551;
{ /* Ieee/input.scm 186 */
 obj_t BgL_classz00_5170;
BgL_classz00_5170 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2084z00_2551 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5170); } 
BgL_arg2083z00_2550 = 
VECTOR_REF(BgL_arg2084z00_2551,2L); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_auxz00_8894;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2083z00_2550))
{ /* Ieee/input.scm 186 */
BgL_auxz00_8894 = BgL_arg2083z00_2550
; }  else 
{ 
 obj_t BgL_auxz00_8897;
BgL_auxz00_8897 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2083z00_2550); 
FAILURE(BgL_auxz00_8897,BFALSE,BFALSE);} 
BgL_auxz00_8890 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8894); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2549)))->BgL_stackz00)=((obj_t)BgL_auxz00_8890),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2549)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2549)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8907;
{ /* Ieee/input.scm 186 */
 obj_t BgL_res3516z00_5172;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_res3516z00_5172 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_8911;
BgL_auxz00_8911 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_8911,BFALSE,BFALSE);} 
BgL_auxz00_8907 = BgL_res3516z00_5172; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2549)))->BgL_objz00)=((obj_t)BgL_auxz00_8907),BUNSPEC); } 
BgL_arg2082z00_2548 = BgL_new1046z00_2549; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2082z00_2548));}  else 
{ /* Ieee/input.scm 186 */
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5153;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5153 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_8920;
BgL_auxz00_8920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_8920,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_5153); } 
{ /* Ieee/input.scm 186 */
 long BgL_matchz00_2771;
{ /* Ieee/input.scm 186 */
 long BgL_arg2227z00_2778; long BgL_arg2228z00_2779;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5154;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5154 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_8927;
BgL_auxz00_8927 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_8927,BFALSE,BFALSE);} 
BgL_arg2227z00_2778 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5154); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5155;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5155 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_8934;
BgL_auxz00_8934 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_8934,BFALSE,BFALSE);} 
BgL_arg2228z00_2779 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5155); } 
BgL_iportz00_2571 = BgL_iportz00_2509; 
BgL_lastzd2matchzd2_2572 = 4L; 
BgL_forwardz00_2573 = BgL_arg2227z00_2778; 
BgL_bufposz00_2574 = BgL_arg2228z00_2779; 
BgL_zc3z04anonymousza32097ze3z87_2575:
if(
(BgL_forwardz00_2573==BgL_bufposz00_2574))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5013z00_8941;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5057;
if(
INPUT_PORTP(BgL_iportz00_2571))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5057 = BgL_iportz00_2571; }  else 
{ 
 obj_t BgL_auxz00_8944;
BgL_auxz00_8944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4489z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2571); 
FAILURE(BgL_auxz00_8944,BFALSE,BFALSE);} 
BgL_test5013z00_8941 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5057); } 
if(BgL_test5013z00_8941)
{ /* Ieee/input.scm 186 */
 long BgL_arg2100z00_2578; long BgL_arg2101z00_2579;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5058;
if(
INPUT_PORTP(BgL_iportz00_2571))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5058 = BgL_iportz00_2571; }  else 
{ 
 obj_t BgL_auxz00_8951;
BgL_auxz00_8951 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4489z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2571); 
FAILURE(BgL_auxz00_8951,BFALSE,BFALSE);} 
BgL_arg2100z00_2578 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5058); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5059;
if(
INPUT_PORTP(BgL_iportz00_2571))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5059 = BgL_iportz00_2571; }  else 
{ 
 obj_t BgL_auxz00_8958;
BgL_auxz00_8958 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4489z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2571); 
FAILURE(BgL_auxz00_8958,BFALSE,BFALSE);} 
BgL_arg2101z00_2579 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5059); } 
{ 
 long BgL_bufposz00_8964; long BgL_forwardz00_8963;
BgL_forwardz00_8963 = BgL_arg2100z00_2578; 
BgL_bufposz00_8964 = BgL_arg2101z00_2579; 
BgL_bufposz00_2574 = BgL_bufposz00_8964; 
BgL_forwardz00_2573 = BgL_forwardz00_8963; 
goto BgL_zc3z04anonymousza32097ze3z87_2575;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_lastzd2matchzd2_2572; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2580;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5060;
if(
INPUT_PORTP(BgL_iportz00_2571))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5060 = BgL_iportz00_2571; }  else 
{ 
 obj_t BgL_auxz00_8967;
BgL_auxz00_8967 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4489z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2571); 
FAILURE(BgL_auxz00_8967,BFALSE,BFALSE);} 
BgL_curz00_2580 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5060, BgL_forwardz00_2573); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2580)==13L))
{ /* Ieee/input.scm 186 */
BgL_iportz00_2586 = BgL_iportz00_2571; 
BgL_lastzd2matchzd2_2587 = BgL_lastzd2matchzd2_2572; 
BgL_forwardz00_2588 = 
(1L+BgL_forwardz00_2573); 
BgL_bufposz00_2589 = BgL_bufposz00_2574; 
BgL_zc3z04anonymousza32107ze3z87_2590:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2591;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5070;
if(
INPUT_PORTP(BgL_iportz00_2586))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5070 = BgL_iportz00_2586; }  else 
{ 
 obj_t BgL_auxz00_8977;
BgL_auxz00_8977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4490z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2586); 
FAILURE(BgL_auxz00_8977,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5070, BgL_forwardz00_2588); } 
BgL_newzd2matchzd2_2591 = 3L; 
if(
(BgL_forwardz00_2588==BgL_bufposz00_2589))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5021z00_8984;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5074;
if(
INPUT_PORTP(BgL_iportz00_2586))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5074 = BgL_iportz00_2586; }  else 
{ 
 obj_t BgL_auxz00_8987;
BgL_auxz00_8987 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4490z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2586); 
FAILURE(BgL_auxz00_8987,BFALSE,BFALSE);} 
BgL_test5021z00_8984 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5074); } 
if(BgL_test5021z00_8984)
{ /* Ieee/input.scm 186 */
 long BgL_arg2110z00_2594; long BgL_arg2111z00_2595;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5075;
if(
INPUT_PORTP(BgL_iportz00_2586))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5075 = BgL_iportz00_2586; }  else 
{ 
 obj_t BgL_auxz00_8994;
BgL_auxz00_8994 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4490z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2586); 
FAILURE(BgL_auxz00_8994,BFALSE,BFALSE);} 
BgL_arg2110z00_2594 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5075); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5076;
if(
INPUT_PORTP(BgL_iportz00_2586))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5076 = BgL_iportz00_2586; }  else 
{ 
 obj_t BgL_auxz00_9001;
BgL_auxz00_9001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4490z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2586); 
FAILURE(BgL_auxz00_9001,BFALSE,BFALSE);} 
BgL_arg2111z00_2595 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5076); } 
{ 
 long BgL_bufposz00_9007; long BgL_forwardz00_9006;
BgL_forwardz00_9006 = BgL_arg2110z00_2594; 
BgL_bufposz00_9007 = BgL_arg2111z00_2595; 
BgL_bufposz00_2589 = BgL_bufposz00_9007; 
BgL_forwardz00_2588 = BgL_forwardz00_9006; 
goto BgL_zc3z04anonymousza32107ze3z87_2590;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_newzd2matchzd2_2591; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2596;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5077;
if(
INPUT_PORTP(BgL_iportz00_2586))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5077 = BgL_iportz00_2586; }  else 
{ 
 obj_t BgL_auxz00_9010;
BgL_auxz00_9010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4490z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2586); 
FAILURE(BgL_auxz00_9010,BFALSE,BFALSE);} 
BgL_curz00_2596 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5077, BgL_forwardz00_2588); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2596)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2113z00_2598;
BgL_arg2113z00_2598 = 
(1L+BgL_forwardz00_2588); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5081;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5082;
if(
INPUT_PORTP(BgL_iportz00_2586))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5082 = BgL_iportz00_2586; }  else 
{ 
 obj_t BgL_auxz00_9021;
BgL_auxz00_9021 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4490z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2586); 
FAILURE(BgL_auxz00_9021,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5082, BgL_arg2113z00_2598); } 
BgL_newzd2matchzd2_5081 = 3L; 
BgL_matchz00_2771 = BgL_newzd2matchzd2_5081; } }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_newzd2matchzd2_2591; } } } } }  else 
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_curz00_2580)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2105z00_2584;
BgL_arg2105z00_2584 = 
(1L+BgL_forwardz00_2573); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5066;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5067;
if(
INPUT_PORTP(BgL_iportz00_2571))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5067 = BgL_iportz00_2571; }  else 
{ 
 obj_t BgL_auxz00_9033;
BgL_auxz00_9033 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4489z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2571); 
FAILURE(BgL_auxz00_9033,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5067, BgL_arg2105z00_2584); } 
BgL_newzd2matchzd2_5066 = 3L; 
BgL_matchz00_2771 = BgL_newzd2matchzd2_5066; } }  else 
{ /* Ieee/input.scm 186 */
BgL_iportz00_2555 = BgL_iportz00_2571; 
BgL_lastzd2matchzd2_2556 = BgL_lastzd2matchzd2_2572; 
BgL_forwardz00_2557 = 
(1L+BgL_forwardz00_2573); 
BgL_bufposz00_2558 = BgL_bufposz00_2574; 
BgL_zc3z04anonymousza32087ze3z87_2559:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2560;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5038;
if(
INPUT_PORTP(BgL_iportz00_2555))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5038 = BgL_iportz00_2555; }  else 
{ 
 obj_t BgL_auxz00_9040;
BgL_auxz00_9040 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4488z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2555); 
FAILURE(BgL_auxz00_9040,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5038, BgL_forwardz00_2557); } 
BgL_newzd2matchzd2_2560 = 2L; 
if(
(BgL_forwardz00_2557==BgL_bufposz00_2558))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5032z00_9047;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5042;
if(
INPUT_PORTP(BgL_iportz00_2555))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5042 = BgL_iportz00_2555; }  else 
{ 
 obj_t BgL_auxz00_9050;
BgL_auxz00_9050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4488z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2555); 
FAILURE(BgL_auxz00_9050,BFALSE,BFALSE);} 
BgL_test5032z00_9047 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5042); } 
if(BgL_test5032z00_9047)
{ /* Ieee/input.scm 186 */
 long BgL_arg2090z00_2563; long BgL_arg2091z00_2564;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5043;
if(
INPUT_PORTP(BgL_iportz00_2555))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5043 = BgL_iportz00_2555; }  else 
{ 
 obj_t BgL_auxz00_9057;
BgL_auxz00_9057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4488z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2555); 
FAILURE(BgL_auxz00_9057,BFALSE,BFALSE);} 
BgL_arg2090z00_2563 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5043); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5044;
if(
INPUT_PORTP(BgL_iportz00_2555))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5044 = BgL_iportz00_2555; }  else 
{ 
 obj_t BgL_auxz00_9064;
BgL_auxz00_9064 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4488z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2555); 
FAILURE(BgL_auxz00_9064,BFALSE,BFALSE);} 
BgL_arg2091z00_2564 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5044); } 
{ 
 long BgL_bufposz00_9070; long BgL_forwardz00_9069;
BgL_forwardz00_9069 = BgL_arg2090z00_2563; 
BgL_bufposz00_9070 = BgL_arg2091z00_2564; 
BgL_bufposz00_2558 = BgL_bufposz00_9070; 
BgL_forwardz00_2557 = BgL_forwardz00_9069; 
goto BgL_zc3z04anonymousza32087ze3z87_2559;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_newzd2matchzd2_2560; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2565;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5045;
if(
INPUT_PORTP(BgL_iportz00_2555))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5045 = BgL_iportz00_2555; }  else 
{ 
 obj_t BgL_auxz00_9073;
BgL_auxz00_9073 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4488z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2555); 
FAILURE(BgL_auxz00_9073,BFALSE,BFALSE);} 
BgL_curz00_2565 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5045, BgL_forwardz00_2557); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2565)==13L))
{ /* Ieee/input.scm 186 */
BgL_iportz00_2627 = BgL_iportz00_2555; 
BgL_lastzd2matchzd2_2628 = BgL_newzd2matchzd2_2560; 
BgL_forwardz00_2629 = 
(1L+BgL_forwardz00_2557); 
BgL_bufposz00_2630 = BgL_bufposz00_2558; 
BgL_zc3z04anonymousza32126ze3z87_2631:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2632;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5107;
if(
INPUT_PORTP(BgL_iportz00_2627))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5107 = BgL_iportz00_2627; }  else 
{ 
 obj_t BgL_auxz00_9083;
BgL_auxz00_9083 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4492z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2627); 
FAILURE(BgL_auxz00_9083,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5107, BgL_forwardz00_2629); } 
BgL_newzd2matchzd2_2632 = 0L; 
if(
(BgL_forwardz00_2629==BgL_bufposz00_2630))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5040z00_9090;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5111;
if(
INPUT_PORTP(BgL_iportz00_2627))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5111 = BgL_iportz00_2627; }  else 
{ 
 obj_t BgL_auxz00_9093;
BgL_auxz00_9093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4492z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2627); 
FAILURE(BgL_auxz00_9093,BFALSE,BFALSE);} 
BgL_test5040z00_9090 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5111); } 
if(BgL_test5040z00_9090)
{ /* Ieee/input.scm 186 */
 long BgL_arg2129z00_2635; long BgL_arg2130z00_2636;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5112;
if(
INPUT_PORTP(BgL_iportz00_2627))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5112 = BgL_iportz00_2627; }  else 
{ 
 obj_t BgL_auxz00_9100;
BgL_auxz00_9100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4492z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2627); 
FAILURE(BgL_auxz00_9100,BFALSE,BFALSE);} 
BgL_arg2129z00_2635 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5112); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5113;
if(
INPUT_PORTP(BgL_iportz00_2627))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5113 = BgL_iportz00_2627; }  else 
{ 
 obj_t BgL_auxz00_9107;
BgL_auxz00_9107 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4492z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2627); 
FAILURE(BgL_auxz00_9107,BFALSE,BFALSE);} 
BgL_arg2130z00_2636 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5113); } 
{ 
 long BgL_bufposz00_9113; long BgL_forwardz00_9112;
BgL_forwardz00_9112 = BgL_arg2129z00_2635; 
BgL_bufposz00_9113 = BgL_arg2130z00_2636; 
BgL_bufposz00_2630 = BgL_bufposz00_9113; 
BgL_forwardz00_2629 = BgL_forwardz00_9112; 
goto BgL_zc3z04anonymousza32126ze3z87_2631;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_newzd2matchzd2_2632; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2637;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5114;
if(
INPUT_PORTP(BgL_iportz00_2627))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5114 = BgL_iportz00_2627; }  else 
{ 
 obj_t BgL_auxz00_9116;
BgL_auxz00_9116 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4492z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2627); 
FAILURE(BgL_auxz00_9116,BFALSE,BFALSE);} 
BgL_curz00_2637 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5114, BgL_forwardz00_2629); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2637)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2132z00_2639;
BgL_arg2132z00_2639 = 
(1L+BgL_forwardz00_2629); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5118;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5119;
if(
INPUT_PORTP(BgL_iportz00_2627))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5119 = BgL_iportz00_2627; }  else 
{ 
 obj_t BgL_auxz00_9127;
BgL_auxz00_9127 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4492z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2627); 
FAILURE(BgL_auxz00_9127,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5119, BgL_arg2132z00_2639); } 
BgL_newzd2matchzd2_5118 = 1L; 
BgL_matchz00_2771 = BgL_newzd2matchzd2_5118; } }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_newzd2matchzd2_2632; } } } } }  else 
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_curz00_2565)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2095z00_2569;
BgL_arg2095z00_2569 = 
(1L+BgL_forwardz00_2557); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5051;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5052;
if(
INPUT_PORTP(BgL_iportz00_2555))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5052 = BgL_iportz00_2555; }  else 
{ 
 obj_t BgL_auxz00_9139;
BgL_auxz00_9139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4488z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2555); 
FAILURE(BgL_auxz00_9139,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5052, BgL_arg2095z00_2569); } 
BgL_newzd2matchzd2_5051 = 0L; 
BgL_matchz00_2771 = BgL_newzd2matchzd2_5051; } }  else 
{ /* Ieee/input.scm 186 */
BgL_iportz00_2599 = BgL_iportz00_2555; 
BgL_lastzd2matchzd2_2600 = BgL_newzd2matchzd2_2560; 
BgL_forwardz00_2601 = 
(1L+BgL_forwardz00_2557); 
BgL_bufposz00_2602 = BgL_bufposz00_2558; 
BgL_zc3z04anonymousza32114ze3z87_2603:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2604;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5084;
if(
INPUT_PORTP(BgL_iportz00_2599))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5084 = BgL_iportz00_2599; }  else 
{ 
 obj_t BgL_auxz00_9146;
BgL_auxz00_9146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4491z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2599); 
FAILURE(BgL_auxz00_9146,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5084, BgL_forwardz00_2601); } 
BgL_newzd2matchzd2_2604 = 2L; 
if(
(BgL_forwardz00_2601==BgL_bufposz00_2602))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5051z00_9153;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5088;
if(
INPUT_PORTP(BgL_iportz00_2599))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5088 = BgL_iportz00_2599; }  else 
{ 
 obj_t BgL_auxz00_9156;
BgL_auxz00_9156 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4491z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2599); 
FAILURE(BgL_auxz00_9156,BFALSE,BFALSE);} 
BgL_test5051z00_9153 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5088); } 
if(BgL_test5051z00_9153)
{ /* Ieee/input.scm 186 */
 long BgL_arg2117z00_2607; long BgL_arg2118z00_2608;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5089;
if(
INPUT_PORTP(BgL_iportz00_2599))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5089 = BgL_iportz00_2599; }  else 
{ 
 obj_t BgL_auxz00_9163;
BgL_auxz00_9163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4491z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2599); 
FAILURE(BgL_auxz00_9163,BFALSE,BFALSE);} 
BgL_arg2117z00_2607 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5089); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5090;
if(
INPUT_PORTP(BgL_iportz00_2599))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5090 = BgL_iportz00_2599; }  else 
{ 
 obj_t BgL_auxz00_9170;
BgL_auxz00_9170 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4491z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2599); 
FAILURE(BgL_auxz00_9170,BFALSE,BFALSE);} 
BgL_arg2118z00_2608 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5090); } 
{ 
 long BgL_bufposz00_9176; long BgL_forwardz00_9175;
BgL_forwardz00_9175 = BgL_arg2117z00_2607; 
BgL_bufposz00_9176 = BgL_arg2118z00_2608; 
BgL_bufposz00_2602 = BgL_bufposz00_9176; 
BgL_forwardz00_2601 = BgL_forwardz00_9175; 
goto BgL_zc3z04anonymousza32114ze3z87_2603;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2771 = BgL_newzd2matchzd2_2604; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2609;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5091;
if(
INPUT_PORTP(BgL_iportz00_2599))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5091 = BgL_iportz00_2599; }  else 
{ 
 obj_t BgL_auxz00_9179;
BgL_auxz00_9179 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4491z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2599); 
FAILURE(BgL_auxz00_9179,BFALSE,BFALSE);} 
BgL_curz00_2609 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5091, BgL_forwardz00_2601); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2609)==13L))
{ 
 long BgL_bufposz00_9191; long BgL_forwardz00_9189; long BgL_lastzd2matchzd2_9188; obj_t BgL_iportz00_9187;
BgL_iportz00_9187 = BgL_iportz00_2599; 
BgL_lastzd2matchzd2_9188 = BgL_newzd2matchzd2_2604; 
BgL_forwardz00_9189 = 
(1L+BgL_forwardz00_2601); 
BgL_bufposz00_9191 = BgL_bufposz00_2602; 
BgL_bufposz00_2630 = BgL_bufposz00_9191; 
BgL_forwardz00_2629 = BgL_forwardz00_9189; 
BgL_lastzd2matchzd2_2628 = BgL_lastzd2matchzd2_9188; 
BgL_iportz00_2627 = BgL_iportz00_9187; 
goto BgL_zc3z04anonymousza32126ze3z87_2631;}  else 
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_curz00_2609)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2122z00_2613;
BgL_arg2122z00_2613 = 
(1L+BgL_forwardz00_2601); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5097;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5098;
if(
INPUT_PORTP(BgL_iportz00_2599))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5098 = BgL_iportz00_2599; }  else 
{ 
 obj_t BgL_auxz00_9198;
BgL_auxz00_9198 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4491z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2599); 
FAILURE(BgL_auxz00_9198,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5098, BgL_arg2122z00_2613); } 
BgL_newzd2matchzd2_5097 = 0L; 
BgL_matchz00_2771 = BgL_newzd2matchzd2_5097; } }  else 
{ 
 long BgL_forwardz00_9204; long BgL_lastzd2matchzd2_9203;
BgL_lastzd2matchzd2_9203 = BgL_newzd2matchzd2_2604; 
BgL_forwardz00_9204 = 
(1L+BgL_forwardz00_2601); 
BgL_forwardz00_2601 = BgL_forwardz00_9204; 
BgL_lastzd2matchzd2_2600 = BgL_lastzd2matchzd2_9203; 
goto BgL_zc3z04anonymousza32114ze3z87_2603;} } } } } } } } } } } } } } } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5156;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5156 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9210;
BgL_auxz00_9210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9210,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5156); } 
switch( BgL_matchz00_2771) { case 4L : 

{ /* Ieee/input.scm 186 */
 bool_t BgL_test5060z00_9215;
{ /* Ieee/input.scm 186 */
 long BgL_arg2216z00_2761;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5150;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5150 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9218;
BgL_auxz00_9218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9218,BFALSE,BFALSE);} 
BgL_arg2216z00_2761 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5150); } 
BgL_test5060z00_9215 = 
(BgL_arg2216z00_2761==0L); } 
if(BgL_test5060z00_9215)
{ /* Ieee/input.scm 186 */
return BEOF;}  else 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5152;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5152 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9226;
BgL_auxz00_9226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9226,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_5152));} } break;case 3L : 

return BGl_string4493z00zz__r4_input_6_10_2z00;break;case 2L : 

{ /* Ieee/input.scm 186 */
 long BgL_arg2141z00_5157;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5158;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5158 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9234;
BgL_auxz00_9234 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9234,BFALSE,BFALSE);} 
BgL_arg2141z00_5157 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5158); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5159;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5159 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9241;
BgL_auxz00_9241 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9241,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_5159, 0L, BgL_arg2141z00_5157);} } break;case 1L : 

{ /* Ieee/input.scm 191 */
 long BgL_arg2223z00_2774;
{ /* Ieee/input.scm 191 */
 long BgL_arg2224z00_2775;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5161;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5161 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9248;
BgL_auxz00_9248 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9248,BFALSE,BFALSE);} 
BgL_arg2224z00_2775 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5161); } 
BgL_arg2223z00_2774 = 
(BgL_arg2224z00_2775-2L); } 
BgL_minz00_2664 = 
(int)(0L); 
BgL_maxz00_2665 = 
(int)(BgL_arg2223z00_2774); 
BgL_lambda2142z00_2666:
if(
(
(long)(BgL_maxz00_2665)<
(long)(BgL_minz00_2664)))
{ /* Ieee/input.scm 186 */
 long BgL_arg2144z00_2668;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5133;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5133 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9260;
BgL_auxz00_9260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9260,BFALSE,BFALSE);} 
BgL_arg2144z00_2668 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5133); } 
{ /* Ieee/input.scm 186 */
 long BgL_za72za7_5135;
BgL_za72za7_5135 = 
(long)(BgL_maxz00_2665); 
BgL_maxz00_2665 = 
(int)(
(BgL_arg2144z00_2668+BgL_za72za7_5135)); } }  else 
{ /* Ieee/input.scm 186 */BFALSE; } 
{ /* Ieee/input.scm 186 */
 bool_t BgL_test5068z00_9268;
if(
(
(long)(BgL_minz00_2664)>=0L))
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_maxz00_2665)>=
(long)(BgL_minz00_2664)))
{ /* Ieee/input.scm 186 */
 long BgL_arg2153z00_2679;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5139;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5139 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9278;
BgL_auxz00_9278 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9278,BFALSE,BFALSE);} 
BgL_arg2153z00_2679 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5139); } 
BgL_test5068z00_9268 = 
(
(long)(BgL_maxz00_2665)<=BgL_arg2153z00_2679); }  else 
{ /* Ieee/input.scm 186 */
BgL_test5068z00_9268 = ((bool_t)0)
; } }  else 
{ /* Ieee/input.scm 186 */
BgL_test5068z00_9268 = ((bool_t)0)
; } 
if(BgL_test5068z00_9268)
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5142; long BgL_startz00_5143; long BgL_stopz00_5144;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5142 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9287;
BgL_auxz00_9287 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9287,BFALSE,BFALSE);} 
BgL_startz00_5143 = 
(long)(BgL_minz00_2664); 
BgL_stopz00_5144 = 
(long)(BgL_maxz00_2665); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_5142, BgL_startz00_5143, BgL_stopz00_5144);}  else 
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2149z00_2673; obj_t BgL_arg2150z00_2674;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2151z00_2675;
{ /* Ieee/input.scm 186 */
 long BgL_arg2141z00_5145;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5146;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5146 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9296;
BgL_auxz00_9296 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9296,BFALSE,BFALSE);} 
BgL_arg2141z00_5145 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5146); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5147;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5147 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9303;
BgL_auxz00_9303 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9303,BFALSE,BFALSE);} 
BgL_arg2151z00_2675 = 
rgc_buffer_substring(BgL_inputzd2portzd2_5147, 0L, BgL_arg2141z00_5145); } } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_list2152z00_2676;
BgL_list2152z00_2676 = 
MAKE_YOUNG_PAIR(BgL_arg2151z00_2675, BNIL); 
BgL_arg2149z00_2673 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string4394z00zz__r4_input_6_10_2z00, BgL_list2152z00_2676); } } 
BgL_arg2150z00_2674 = 
MAKE_YOUNG_PAIR(
BINT(BgL_minz00_2664), 
BINT(BgL_maxz00_2665)); 
{ /* Ieee/input.scm 186 */
 obj_t BgL_aux3926z00_6455;
BgL_aux3926z00_6455 = 
BGl_errorz00zz__errorz00(BGl_string4393z00zz__r4_input_6_10_2z00, BgL_arg2149z00_2673, BgL_arg2150z00_2674); 
if(
STRINGP(BgL_aux3926z00_6455))
{ /* Ieee/input.scm 186 */
return BgL_aux3926z00_6455;}  else 
{ 
 obj_t BgL_auxz00_9316;
BgL_auxz00_9316 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4393z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_aux3926z00_6455); 
FAILURE(BgL_auxz00_9316,BFALSE,BFALSE);} } } } } break;case 0L : 

{ /* Ieee/input.scm 189 */
 long BgL_arg2225z00_2776;
{ /* Ieee/input.scm 189 */
 long BgL_arg2226z00_2777;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5163;
if(
INPUT_PORTP(BgL_iportz00_2509))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5163 = BgL_iportz00_2509; }  else 
{ 
 obj_t BgL_auxz00_9324;
BgL_auxz00_9324 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2509); 
FAILURE(BgL_auxz00_9324,BFALSE,BFALSE);} 
BgL_arg2226z00_2777 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5163); } 
BgL_arg2225z00_2776 = 
(BgL_arg2226z00_2777-1L); } 
{ 
 int BgL_maxz00_9332; int BgL_minz00_9330;
BgL_minz00_9330 = 
(int)(0L); 
BgL_maxz00_9332 = 
(int)(BgL_arg2225z00_2776); 
BgL_maxz00_2665 = BgL_maxz00_9332; 
BgL_minz00_2664 = BgL_minz00_9330; 
goto BgL_lambda2142z00_2666;} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2771));} } } } } }  else 
{ /* Ieee/input.scm 201 */
 obj_t BgL_g1080z00_2817; obj_t BgL_g1081z00_2818;
BgL_g1080z00_2817 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26); 
{ /* Ieee/string.scm 172 */

BgL_g1081z00_2818 = 
make_string(100L, ((unsigned char)' ')); } 
{ 
 obj_t BgL_cz00_2820; long BgL_wz00_2821; long BgL_mz00_2822; obj_t BgL_accz00_2823;
BgL_cz00_2820 = BgL_g1080z00_2817; 
BgL_wz00_2821 = 0L; 
BgL_mz00_2822 = 100L; 
BgL_accz00_2823 = BgL_g1081z00_2818; 
BgL_zc3z04anonymousza32229ze3z87_2824:
if(
EOF_OBJECTP(BgL_cz00_2820))
{ /* Ieee/input.scm 206 */
if(
(BgL_wz00_2821==0L))
{ /* Ieee/input.scm 208 */
return BgL_cz00_2820;}  else 
{ /* Ieee/input.scm 208 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_2823, 0L, BgL_wz00_2821);} }  else 
{ /* Ieee/input.scm 206 */
if(
(BgL_wz00_2821==BgL_mz00_2822))
{ /* Ieee/input.scm 213 */
 long BgL_arg2233z00_2828; obj_t BgL_arg2234z00_2829;
BgL_arg2233z00_2828 = 
(BgL_mz00_2822*2L); 
{ /* Ieee/input.scm 214 */
 obj_t BgL_newzd2acczd2_2830;
{ /* Ieee/input.scm 214 */
 long BgL_arg2235z00_2831;
BgL_arg2235z00_2831 = 
(BgL_mz00_2822*2L); 
{ /* Ieee/string.scm 172 */

BgL_newzd2acczd2_2830 = 
make_string(BgL_arg2235z00_2831, ((unsigned char)' ')); } } 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_accz00_2823, 0L, BgL_newzd2acczd2_2830, 0L, BgL_mz00_2822); 
BgL_arg2234z00_2829 = BgL_newzd2acczd2_2830; } 
{ 
 obj_t BgL_accz00_9351; long BgL_mz00_9350;
BgL_mz00_9350 = BgL_arg2233z00_2828; 
BgL_accz00_9351 = BgL_arg2234z00_2829; 
BgL_accz00_2823 = BgL_accz00_9351; 
BgL_mz00_2822 = BgL_mz00_9350; 
goto BgL_zc3z04anonymousza32229ze3z87_2824;} }  else 
{ /* Ieee/input.scm 217 */
 bool_t BgL_test5080z00_9352;
{ /* Ieee/input.scm 217 */
 unsigned char BgL_char1z00_5180;
{ /* Ieee/input.scm 217 */
 obj_t BgL_tmpz00_9353;
if(
CHARP(BgL_cz00_2820))
{ /* Ieee/input.scm 217 */
BgL_tmpz00_9353 = BgL_cz00_2820
; }  else 
{ 
 obj_t BgL_auxz00_9356;
BgL_auxz00_9356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9091L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_2820); 
FAILURE(BgL_auxz00_9356,BFALSE,BFALSE);} 
BgL_char1z00_5180 = 
CCHAR(BgL_tmpz00_9353); } 
BgL_test5080z00_9352 = 
(BgL_char1z00_5180==((unsigned char)13)); } 
if(BgL_test5080z00_9352)
{ /* Ieee/input.scm 218 */
 obj_t BgL_c2z00_2835;
BgL_c2z00_2835 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26); 
{ /* Ieee/input.scm 219 */
 bool_t BgL_test5082z00_9363;
{ /* Ieee/input.scm 219 */
 unsigned char BgL_char1z00_5182;
{ /* Ieee/input.scm 219 */
 obj_t BgL_tmpz00_9364;
if(
CHARP(BgL_c2z00_2835))
{ /* Ieee/input.scm 219 */
BgL_tmpz00_9364 = BgL_c2z00_2835
; }  else 
{ 
 obj_t BgL_auxz00_9367;
BgL_auxz00_9367 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9152L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_c2z00_2835); 
FAILURE(BgL_auxz00_9367,BFALSE,BFALSE);} 
BgL_char1z00_5182 = 
CCHAR(BgL_tmpz00_9364); } 
BgL_test5082z00_9363 = 
(BgL_char1z00_5182==((unsigned char)10)); } 
if(BgL_test5082z00_9363)
{ /* Ieee/input.scm 219 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_2823, 0L, BgL_wz00_2821);}  else 
{ /* Ieee/input.scm 219 */
{ /* Ieee/input.scm 222 */
 unsigned char BgL_charz00_5186;
{ /* Ieee/input.scm 222 */
 obj_t BgL_tmpz00_9374;
if(
CHARP(BgL_cz00_2820))
{ /* Ieee/input.scm 222 */
BgL_tmpz00_9374 = BgL_cz00_2820
; }  else 
{ 
 obj_t BgL_auxz00_9377;
BgL_auxz00_9377 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9229L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_2820); 
FAILURE(BgL_auxz00_9377,BFALSE,BFALSE);} 
BgL_charz00_5186 = 
CCHAR(BgL_tmpz00_9374); } 
{ /* Ieee/input.scm 222 */
 long BgL_l3531z00_6054;
BgL_l3531z00_6054 = 
STRING_LENGTH(BgL_accz00_2823); 
if(
BOUND_CHECK(BgL_wz00_2821, BgL_l3531z00_6054))
{ /* Ieee/input.scm 222 */
STRING_SET(BgL_accz00_2823, BgL_wz00_2821, BgL_charz00_5186); }  else 
{ 
 obj_t BgL_auxz00_9386;
BgL_auxz00_9386 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9210L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_2823, 
(int)(BgL_l3531z00_6054), 
(int)(BgL_wz00_2821)); 
FAILURE(BgL_auxz00_9386,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9393; obj_t BgL_cz00_9392;
BgL_cz00_9392 = BgL_c2z00_2835; 
BgL_wz00_9393 = 
(BgL_wz00_2821+1L); 
BgL_wz00_2821 = BgL_wz00_9393; 
BgL_cz00_2820 = BgL_cz00_9392; 
goto BgL_zc3z04anonymousza32229ze3z87_2824;} } } }  else 
{ /* Ieee/input.scm 224 */
 bool_t BgL_test5086z00_9395;
{ /* Ieee/input.scm 224 */
 unsigned char BgL_char1z00_5188;
{ /* Ieee/input.scm 224 */
 obj_t BgL_tmpz00_9396;
if(
CHARP(BgL_cz00_2820))
{ /* Ieee/input.scm 224 */
BgL_tmpz00_9396 = BgL_cz00_2820
; }  else 
{ 
 obj_t BgL_auxz00_9399;
BgL_auxz00_9399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9280L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_2820); 
FAILURE(BgL_auxz00_9399,BFALSE,BFALSE);} 
BgL_char1z00_5188 = 
CCHAR(BgL_tmpz00_9396); } 
BgL_test5086z00_9395 = 
(BgL_char1z00_5188==((unsigned char)10)); } 
if(BgL_test5086z00_9395)
{ /* Ieee/input.scm 224 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_2823, 0L, BgL_wz00_2821);}  else 
{ /* Ieee/input.scm 224 */
{ /* Ieee/input.scm 229 */
 unsigned char BgL_charz00_5192;
{ /* Ieee/input.scm 229 */
 obj_t BgL_tmpz00_9406;
if(
CHARP(BgL_cz00_2820))
{ /* Ieee/input.scm 229 */
BgL_tmpz00_9406 = BgL_cz00_2820
; }  else 
{ 
 obj_t BgL_auxz00_9409;
BgL_auxz00_9409 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9425L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_2820); 
FAILURE(BgL_auxz00_9409,BFALSE,BFALSE);} 
BgL_charz00_5192 = 
CCHAR(BgL_tmpz00_9406); } 
{ /* Ieee/input.scm 229 */
 long BgL_l3535z00_6058;
BgL_l3535z00_6058 = 
STRING_LENGTH(BgL_accz00_2823); 
if(
BOUND_CHECK(BgL_wz00_2821, BgL_l3535z00_6058))
{ /* Ieee/input.scm 229 */
STRING_SET(BgL_accz00_2823, BgL_wz00_2821, BgL_charz00_5192); }  else 
{ 
 obj_t BgL_auxz00_9418;
BgL_auxz00_9418 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9406L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_2823, 
(int)(BgL_l3535z00_6058), 
(int)(BgL_wz00_2821)); 
FAILURE(BgL_auxz00_9418,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9426; obj_t BgL_cz00_9424;
BgL_cz00_9424 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26); 
BgL_wz00_9426 = 
(BgL_wz00_2821+1L); 
BgL_wz00_2821 = BgL_wz00_9426; 
BgL_cz00_2820 = BgL_cz00_9424; 
goto BgL_zc3z04anonymousza32229ze3z87_2824;} } } } } } } } } 

}



/* _read-line-newline */
obj_t BGl__readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t BgL_env1270z00_31, obj_t BgL_opt1269z00_30)
{
{ /* Ieee/input.scm 235 */
{ /* Ieee/input.scm 235 */

{ 

{ /* Ieee/input.scm 235 */
 long BgL_aux1272z00_2846;
{ 
 obj_t BgL_auxz00_9428;
if(
VECTORP(BgL_opt1269z00_30))
{ /* Ieee/input.scm 235 */
BgL_auxz00_9428 = BgL_opt1269z00_30
; }  else 
{ 
 obj_t BgL_auxz00_9431;
BgL_auxz00_9431 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9701L), BGl_string4500z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1269z00_30); 
FAILURE(BgL_auxz00_9431,BFALSE,BFALSE);} 
BgL_aux1272z00_2846 = 
VECTOR_LENGTH(BgL_auxz00_9428); } 
switch( BgL_aux1272z00_2846) { case 0L : 

{ /* Ieee/input.scm 235 */
 obj_t BgL_ipz00_2847;
{ /* Ieee/input.scm 235 */
 obj_t BgL_tmpz00_9436;
BgL_tmpz00_9436 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_2847 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_9436); } 
{ /* Ieee/input.scm 235 */

return 
BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(BgL_ipz00_2847);} } break;case 1L : 

{ /* Ieee/input.scm 235 */
 obj_t BgL_ipz00_2848;
{ 
 obj_t BgL_auxz00_9440;
if(
VECTORP(BgL_opt1269z00_30))
{ /* Ieee/input.scm 235 */
BgL_auxz00_9440 = BgL_opt1269z00_30
; }  else 
{ 
 obj_t BgL_auxz00_9443;
BgL_auxz00_9443 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9701L), BGl_string4500z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1269z00_30); 
FAILURE(BgL_auxz00_9443,BFALSE,BFALSE);} 
BgL_ipz00_2848 = 
VECTOR_REF(BgL_auxz00_9440,0L); } 
{ /* Ieee/input.scm 235 */

return 
BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(BgL_ipz00_2848);} } break;
default: 
{ /* Ieee/input.scm 235 */
 long BgL_arg2243z00_2849;
{ 
 obj_t BgL_auxz00_9449;
if(
VECTORP(BgL_opt1269z00_30))
{ /* Ieee/input.scm 235 */
BgL_auxz00_9449 = BgL_opt1269z00_30
; }  else 
{ 
 obj_t BgL_auxz00_9452;
BgL_auxz00_9452 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9701L), BGl_string4497z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1269z00_30); 
FAILURE(BgL_auxz00_9452,BFALSE,BFALSE);} 
BgL_arg2243z00_2849 = 
VECTOR_LENGTH(BgL_auxz00_9449); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4498z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2243z00_2849));} } } } } } 

}



/* read-line-newline */
BGL_EXPORTED_DEF obj_t BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t BgL_ipz00_29)
{
{ /* Ieee/input.scm 235 */
{ /* Ieee/input.scm 236 */
 bool_t BgL_test5093z00_9460;
{ /* Ieee/input.scm 236 */
 long BgL_arg2420z00_3174;
{ /* Ieee/input.scm 236 */
 obj_t BgL_tmpz00_9461;
if(
INPUT_PORTP(BgL_ipz00_29))
{ /* Ieee/input.scm 236 */
BgL_tmpz00_9461 = BgL_ipz00_29
; }  else 
{ 
 obj_t BgL_auxz00_9464;
BgL_auxz00_9464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9799L), BGl_string4499z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_29); 
FAILURE(BgL_auxz00_9464,BFALSE,BFALSE);} 
BgL_arg2420z00_3174 = 
BGL_INPUT_PORT_BUFSIZ(BgL_tmpz00_9461); } 
BgL_test5093z00_9460 = 
(BgL_arg2420z00_3174>2L); } 
if(BgL_test5093z00_9460)
{ 
 obj_t BgL_iportz00_2854;
BgL_iportz00_2854 = BgL_ipz00_29; 
{ 
 obj_t BgL_iportz00_2964; long BgL_lastzd2matchzd2_2965; long BgL_forwardz00_2966; long BgL_bufposz00_2967; obj_t BgL_iportz00_2948; long BgL_lastzd2matchzd2_2949; long BgL_forwardz00_2950; long BgL_bufposz00_2951; obj_t BgL_iportz00_2933; long BgL_lastzd2matchzd2_2934; long BgL_forwardz00_2935; long BgL_bufposz00_2936; obj_t BgL_iportz00_2920; long BgL_lastzd2matchzd2_2921; long BgL_forwardz00_2922; long BgL_bufposz00_2923; obj_t BgL_iportz00_2898; long BgL_lastzd2matchzd2_2899; long BgL_forwardz00_2900; long BgL_bufposz00_2901;
{ /* Ieee/input.scm 237 */
 bool_t BgL_test5095z00_9470;
{ /* Ieee/input.scm 237 */
 obj_t BgL_arg2252z00_2897;
{ /* Ieee/input.scm 237 */
 obj_t BgL_res3517z00_5295;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_res3517z00_5295 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9473;
BgL_auxz00_9473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9473,BFALSE,BFALSE);} 
BgL_arg2252z00_2897 = BgL_res3517z00_5295; } 
BgL_test5095z00_9470 = 
INPUT_PORT_CLOSEP(BgL_arg2252z00_2897); } 
if(BgL_test5095z00_9470)
{ /* Ieee/input.scm 237 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2248z00_2891;
{ /* Ieee/input.scm 237 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2892;
{ /* Ieee/input.scm 237 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2895;
BgL_new1045z00_2895 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 237 */
 long BgL_arg2251z00_2896;
BgL_arg2251z00_2896 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2895), BgL_arg2251z00_2896); } 
BgL_new1046z00_2892 = BgL_new1045z00_2895; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2892)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2892)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9486;
{ /* Ieee/input.scm 237 */
 obj_t BgL_arg2249z00_2893;
{ /* Ieee/input.scm 237 */
 obj_t BgL_arg2250z00_2894;
{ /* Ieee/input.scm 237 */
 obj_t BgL_classz00_5300;
BgL_classz00_5300 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2250z00_2894 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5300); } 
BgL_arg2249z00_2893 = 
VECTOR_REF(BgL_arg2250z00_2894,2L); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_auxz00_9490;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2249z00_2893))
{ /* Ieee/input.scm 237 */
BgL_auxz00_9490 = BgL_arg2249z00_2893
; }  else 
{ 
 obj_t BgL_auxz00_9493;
BgL_auxz00_9493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2249z00_2893); 
FAILURE(BgL_auxz00_9493,BFALSE,BFALSE);} 
BgL_auxz00_9486 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_9490); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2892)))->BgL_stackz00)=((obj_t)BgL_auxz00_9486),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2892)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2892)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9503;
{ /* Ieee/input.scm 237 */
 obj_t BgL_res3518z00_5302;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_res3518z00_5302 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9507;
BgL_auxz00_9507 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4415z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9507,BFALSE,BFALSE);} 
BgL_auxz00_9503 = BgL_res3518z00_5302; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2892)))->BgL_objz00)=((obj_t)BgL_auxz00_9503),BUNSPEC); } 
BgL_arg2248z00_2891 = BgL_new1046z00_2892; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2248z00_2891));}  else 
{ /* Ieee/input.scm 237 */
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5287;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5287 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9516;
BgL_auxz00_9516 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9516,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_5287); } 
{ /* Ieee/input.scm 237 */
 long BgL_matchz00_3102;
{ /* Ieee/input.scm 237 */
 long BgL_arg2396z00_3105; long BgL_arg2397z00_3106;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5288;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5288 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9523;
BgL_auxz00_9523 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9523,BFALSE,BFALSE);} 
BgL_arg2396z00_3105 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5288); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5289;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5289 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9530;
BgL_auxz00_9530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9530,BFALSE,BFALSE);} 
BgL_arg2397z00_3106 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5289); } 
BgL_iportz00_2933 = BgL_iportz00_2854; 
BgL_lastzd2matchzd2_2934 = 1L; 
BgL_forwardz00_2935 = BgL_arg2396z00_3105; 
BgL_bufposz00_2936 = BgL_arg2397z00_3106; 
BgL_zc3z04anonymousza32271ze3z87_2937:
if(
(BgL_forwardz00_2935==BgL_bufposz00_2936))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test5103z00_9537;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5232;
if(
INPUT_PORTP(BgL_iportz00_2933))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5232 = BgL_iportz00_2933; }  else 
{ 
 obj_t BgL_auxz00_9540;
BgL_auxz00_9540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4503z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2933); 
FAILURE(BgL_auxz00_9540,BFALSE,BFALSE);} 
BgL_test5103z00_9537 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5232); } 
if(BgL_test5103z00_9537)
{ /* Ieee/input.scm 237 */
 long BgL_arg2274z00_2940; long BgL_arg2275z00_2941;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5233;
if(
INPUT_PORTP(BgL_iportz00_2933))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5233 = BgL_iportz00_2933; }  else 
{ 
 obj_t BgL_auxz00_9547;
BgL_auxz00_9547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4503z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2933); 
FAILURE(BgL_auxz00_9547,BFALSE,BFALSE);} 
BgL_arg2274z00_2940 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5233); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5234;
if(
INPUT_PORTP(BgL_iportz00_2933))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5234 = BgL_iportz00_2933; }  else 
{ 
 obj_t BgL_auxz00_9554;
BgL_auxz00_9554 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4503z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2933); 
FAILURE(BgL_auxz00_9554,BFALSE,BFALSE);} 
BgL_arg2275z00_2941 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5234); } 
{ 
 long BgL_bufposz00_9560; long BgL_forwardz00_9559;
BgL_forwardz00_9559 = BgL_arg2274z00_2940; 
BgL_bufposz00_9560 = BgL_arg2275z00_2941; 
BgL_bufposz00_2936 = BgL_bufposz00_9560; 
BgL_forwardz00_2935 = BgL_forwardz00_9559; 
goto BgL_zc3z04anonymousza32271ze3z87_2937;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_lastzd2matchzd2_2934; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2942;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5235;
if(
INPUT_PORTP(BgL_iportz00_2933))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5235 = BgL_iportz00_2933; }  else 
{ 
 obj_t BgL_auxz00_9563;
BgL_auxz00_9563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4503z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2933); 
FAILURE(BgL_auxz00_9563,BFALSE,BFALSE);} 
BgL_curz00_2942 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5235, BgL_forwardz00_2935); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2942)==13L))
{ /* Ieee/input.scm 237 */
BgL_iportz00_2920 = BgL_iportz00_2933; 
BgL_lastzd2matchzd2_2921 = BgL_lastzd2matchzd2_2934; 
BgL_forwardz00_2922 = 
(1L+BgL_forwardz00_2935); 
BgL_bufposz00_2923 = BgL_bufposz00_2936; 
BgL_zc3z04anonymousza32264ze3z87_2924:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2925;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5216;
if(
INPUT_PORTP(BgL_iportz00_2920))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5216 = BgL_iportz00_2920; }  else 
{ 
 obj_t BgL_auxz00_9573;
BgL_auxz00_9573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4502z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2920); 
FAILURE(BgL_auxz00_9573,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5216, BgL_forwardz00_2922); } 
BgL_newzd2matchzd2_2925 = 0L; 
if(
(BgL_forwardz00_2922==BgL_bufposz00_2923))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test5111z00_9580;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5220;
if(
INPUT_PORTP(BgL_iportz00_2920))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5220 = BgL_iportz00_2920; }  else 
{ 
 obj_t BgL_auxz00_9583;
BgL_auxz00_9583 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4502z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2920); 
FAILURE(BgL_auxz00_9583,BFALSE,BFALSE);} 
BgL_test5111z00_9580 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5220); } 
if(BgL_test5111z00_9580)
{ /* Ieee/input.scm 237 */
 long BgL_arg2267z00_2928; long BgL_arg2268z00_2929;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5221;
if(
INPUT_PORTP(BgL_iportz00_2920))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5221 = BgL_iportz00_2920; }  else 
{ 
 obj_t BgL_auxz00_9590;
BgL_auxz00_9590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4502z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2920); 
FAILURE(BgL_auxz00_9590,BFALSE,BFALSE);} 
BgL_arg2267z00_2928 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5221); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5222;
if(
INPUT_PORTP(BgL_iportz00_2920))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5222 = BgL_iportz00_2920; }  else 
{ 
 obj_t BgL_auxz00_9597;
BgL_auxz00_9597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4502z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2920); 
FAILURE(BgL_auxz00_9597,BFALSE,BFALSE);} 
BgL_arg2268z00_2929 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5222); } 
{ 
 long BgL_bufposz00_9603; long BgL_forwardz00_9602;
BgL_forwardz00_9602 = BgL_arg2267z00_2928; 
BgL_bufposz00_9603 = BgL_arg2268z00_2929; 
BgL_bufposz00_2923 = BgL_bufposz00_9603; 
BgL_forwardz00_2922 = BgL_forwardz00_9602; 
goto BgL_zc3z04anonymousza32264ze3z87_2924;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_newzd2matchzd2_2925; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2930;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5223;
if(
INPUT_PORTP(BgL_iportz00_2920))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5223 = BgL_iportz00_2920; }  else 
{ 
 obj_t BgL_auxz00_9606;
BgL_auxz00_9606 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4502z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2920); 
FAILURE(BgL_auxz00_9606,BFALSE,BFALSE);} 
BgL_curz00_2930 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5223, BgL_forwardz00_2922); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2930)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2270z00_2932;
BgL_arg2270z00_2932 = 
(1L+BgL_forwardz00_2922); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5227;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5228;
if(
INPUT_PORTP(BgL_iportz00_2920))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5228 = BgL_iportz00_2920; }  else 
{ 
 obj_t BgL_auxz00_9617;
BgL_auxz00_9617 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4502z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2920); 
FAILURE(BgL_auxz00_9617,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5228, BgL_arg2270z00_2932); } 
BgL_newzd2matchzd2_5227 = 0L; 
BgL_matchz00_3102 = BgL_newzd2matchzd2_5227; } }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_newzd2matchzd2_2925; } } } } }  else 
{ /* Ieee/input.scm 237 */
if(
(
(long)(BgL_curz00_2942)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2279z00_2946;
BgL_arg2279z00_2946 = 
(1L+BgL_forwardz00_2935); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5241;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5242;
if(
INPUT_PORTP(BgL_iportz00_2933))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5242 = BgL_iportz00_2933; }  else 
{ 
 obj_t BgL_auxz00_9629;
BgL_auxz00_9629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4503z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2933); 
FAILURE(BgL_auxz00_9629,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5242, BgL_arg2279z00_2946); } 
BgL_newzd2matchzd2_5241 = 0L; 
BgL_matchz00_3102 = BgL_newzd2matchzd2_5241; } }  else 
{ /* Ieee/input.scm 237 */
BgL_iportz00_2948 = BgL_iportz00_2933; 
BgL_lastzd2matchzd2_2949 = BgL_lastzd2matchzd2_2934; 
BgL_forwardz00_2950 = 
(1L+BgL_forwardz00_2935); 
BgL_bufposz00_2951 = BgL_bufposz00_2936; 
BgL_zc3z04anonymousza32281ze3z87_2952:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2953;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5245;
if(
INPUT_PORTP(BgL_iportz00_2948))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5245 = BgL_iportz00_2948; }  else 
{ 
 obj_t BgL_auxz00_9636;
BgL_auxz00_9636 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4504z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2948); 
FAILURE(BgL_auxz00_9636,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5245, BgL_forwardz00_2950); } 
BgL_newzd2matchzd2_2953 = 0L; 
if(
(BgL_forwardz00_2950==BgL_bufposz00_2951))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test5122z00_9643;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5249;
if(
INPUT_PORTP(BgL_iportz00_2948))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5249 = BgL_iportz00_2948; }  else 
{ 
 obj_t BgL_auxz00_9646;
BgL_auxz00_9646 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4504z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2948); 
FAILURE(BgL_auxz00_9646,BFALSE,BFALSE);} 
BgL_test5122z00_9643 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5249); } 
if(BgL_test5122z00_9643)
{ /* Ieee/input.scm 237 */
 long BgL_arg2284z00_2956; long BgL_arg2285z00_2957;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5250;
if(
INPUT_PORTP(BgL_iportz00_2948))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5250 = BgL_iportz00_2948; }  else 
{ 
 obj_t BgL_auxz00_9653;
BgL_auxz00_9653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4504z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2948); 
FAILURE(BgL_auxz00_9653,BFALSE,BFALSE);} 
BgL_arg2284z00_2956 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5250); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5251;
if(
INPUT_PORTP(BgL_iportz00_2948))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5251 = BgL_iportz00_2948; }  else 
{ 
 obj_t BgL_auxz00_9660;
BgL_auxz00_9660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4504z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2948); 
FAILURE(BgL_auxz00_9660,BFALSE,BFALSE);} 
BgL_arg2285z00_2957 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5251); } 
{ 
 long BgL_bufposz00_9666; long BgL_forwardz00_9665;
BgL_forwardz00_9665 = BgL_arg2284z00_2956; 
BgL_bufposz00_9666 = BgL_arg2285z00_2957; 
BgL_bufposz00_2951 = BgL_bufposz00_9666; 
BgL_forwardz00_2950 = BgL_forwardz00_9665; 
goto BgL_zc3z04anonymousza32281ze3z87_2952;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_newzd2matchzd2_2953; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2958;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5252;
if(
INPUT_PORTP(BgL_iportz00_2948))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5252 = BgL_iportz00_2948; }  else 
{ 
 obj_t BgL_auxz00_9669;
BgL_auxz00_9669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4504z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2948); 
FAILURE(BgL_auxz00_9669,BFALSE,BFALSE);} 
BgL_curz00_2958 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5252, BgL_forwardz00_2950); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2958)==13L))
{ /* Ieee/input.scm 237 */
BgL_iportz00_2964 = BgL_iportz00_2948; 
BgL_lastzd2matchzd2_2965 = BgL_newzd2matchzd2_2953; 
BgL_forwardz00_2966 = 
(1L+BgL_forwardz00_2950); 
BgL_bufposz00_2967 = BgL_bufposz00_2951; 
BgL_zc3z04anonymousza32291ze3z87_2968:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2969;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5262;
if(
INPUT_PORTP(BgL_iportz00_2964))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5262 = BgL_iportz00_2964; }  else 
{ 
 obj_t BgL_auxz00_9679;
BgL_auxz00_9679 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4505z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2964); 
FAILURE(BgL_auxz00_9679,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5262, BgL_forwardz00_2966); } 
BgL_newzd2matchzd2_2969 = 0L; 
if(
(BgL_forwardz00_2966==BgL_bufposz00_2967))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test5130z00_9686;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5266;
if(
INPUT_PORTP(BgL_iportz00_2964))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5266 = BgL_iportz00_2964; }  else 
{ 
 obj_t BgL_auxz00_9689;
BgL_auxz00_9689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4505z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2964); 
FAILURE(BgL_auxz00_9689,BFALSE,BFALSE);} 
BgL_test5130z00_9686 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5266); } 
if(BgL_test5130z00_9686)
{ /* Ieee/input.scm 237 */
 long BgL_arg2294z00_2972; long BgL_arg2295z00_2973;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5267;
if(
INPUT_PORTP(BgL_iportz00_2964))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5267 = BgL_iportz00_2964; }  else 
{ 
 obj_t BgL_auxz00_9696;
BgL_auxz00_9696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4505z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2964); 
FAILURE(BgL_auxz00_9696,BFALSE,BFALSE);} 
BgL_arg2294z00_2972 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5267); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5268;
if(
INPUT_PORTP(BgL_iportz00_2964))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5268 = BgL_iportz00_2964; }  else 
{ 
 obj_t BgL_auxz00_9703;
BgL_auxz00_9703 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4505z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2964); 
FAILURE(BgL_auxz00_9703,BFALSE,BFALSE);} 
BgL_arg2295z00_2973 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5268); } 
{ 
 long BgL_bufposz00_9709; long BgL_forwardz00_9708;
BgL_forwardz00_9708 = BgL_arg2294z00_2972; 
BgL_bufposz00_9709 = BgL_arg2295z00_2973; 
BgL_bufposz00_2967 = BgL_bufposz00_9709; 
BgL_forwardz00_2966 = BgL_forwardz00_9708; 
goto BgL_zc3z04anonymousza32291ze3z87_2968;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_newzd2matchzd2_2969; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2974;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5269;
if(
INPUT_PORTP(BgL_iportz00_2964))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5269 = BgL_iportz00_2964; }  else 
{ 
 obj_t BgL_auxz00_9712;
BgL_auxz00_9712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4505z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2964); 
FAILURE(BgL_auxz00_9712,BFALSE,BFALSE);} 
BgL_curz00_2974 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5269, BgL_forwardz00_2966); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2974)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2297z00_2976;
BgL_arg2297z00_2976 = 
(1L+BgL_forwardz00_2966); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5273;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5274;
if(
INPUT_PORTP(BgL_iportz00_2964))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5274 = BgL_iportz00_2964; }  else 
{ 
 obj_t BgL_auxz00_9723;
BgL_auxz00_9723 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4505z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2964); 
FAILURE(BgL_auxz00_9723,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5274, BgL_arg2297z00_2976); } 
BgL_newzd2matchzd2_5273 = 0L; 
BgL_matchz00_3102 = BgL_newzd2matchzd2_5273; } }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_newzd2matchzd2_2969; } } } } }  else 
{ /* Ieee/input.scm 237 */
if(
(
(long)(BgL_curz00_2958)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2289z00_2962;
BgL_arg2289z00_2962 = 
(1L+BgL_forwardz00_2950); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5258;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5259;
if(
INPUT_PORTP(BgL_iportz00_2948))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5259 = BgL_iportz00_2948; }  else 
{ 
 obj_t BgL_auxz00_9735;
BgL_auxz00_9735 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4504z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2948); 
FAILURE(BgL_auxz00_9735,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5259, BgL_arg2289z00_2962); } 
BgL_newzd2matchzd2_5258 = 0L; 
BgL_matchz00_3102 = BgL_newzd2matchzd2_5258; } }  else 
{ /* Ieee/input.scm 237 */
BgL_iportz00_2898 = BgL_iportz00_2948; 
BgL_lastzd2matchzd2_2899 = BgL_newzd2matchzd2_2953; 
BgL_forwardz00_2900 = 
(1L+BgL_forwardz00_2950); 
BgL_bufposz00_2901 = BgL_bufposz00_2951; 
BgL_zc3z04anonymousza32253ze3z87_2902:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2903;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5196;
if(
INPUT_PORTP(BgL_iportz00_2898))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5196 = BgL_iportz00_2898; }  else 
{ 
 obj_t BgL_auxz00_9742;
BgL_auxz00_9742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4501z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2898); 
FAILURE(BgL_auxz00_9742,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5196, BgL_forwardz00_2900); } 
BgL_newzd2matchzd2_2903 = 0L; 
if(
(BgL_forwardz00_2900==BgL_bufposz00_2901))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test5141z00_9749;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5200;
if(
INPUT_PORTP(BgL_iportz00_2898))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5200 = BgL_iportz00_2898; }  else 
{ 
 obj_t BgL_auxz00_9752;
BgL_auxz00_9752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4501z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2898); 
FAILURE(BgL_auxz00_9752,BFALSE,BFALSE);} 
BgL_test5141z00_9749 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5200); } 
if(BgL_test5141z00_9749)
{ /* Ieee/input.scm 237 */
 long BgL_arg2256z00_2906; long BgL_arg2257z00_2907;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5201;
if(
INPUT_PORTP(BgL_iportz00_2898))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5201 = BgL_iportz00_2898; }  else 
{ 
 obj_t BgL_auxz00_9759;
BgL_auxz00_9759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4501z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2898); 
FAILURE(BgL_auxz00_9759,BFALSE,BFALSE);} 
BgL_arg2256z00_2906 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5201); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5202;
if(
INPUT_PORTP(BgL_iportz00_2898))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5202 = BgL_iportz00_2898; }  else 
{ 
 obj_t BgL_auxz00_9766;
BgL_auxz00_9766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4501z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2898); 
FAILURE(BgL_auxz00_9766,BFALSE,BFALSE);} 
BgL_arg2257z00_2907 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5202); } 
{ 
 long BgL_bufposz00_9772; long BgL_forwardz00_9771;
BgL_forwardz00_9771 = BgL_arg2256z00_2906; 
BgL_bufposz00_9772 = BgL_arg2257z00_2907; 
BgL_bufposz00_2901 = BgL_bufposz00_9772; 
BgL_forwardz00_2900 = BgL_forwardz00_9771; 
goto BgL_zc3z04anonymousza32253ze3z87_2902;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3102 = BgL_newzd2matchzd2_2903; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2908;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5203;
if(
INPUT_PORTP(BgL_iportz00_2898))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5203 = BgL_iportz00_2898; }  else 
{ 
 obj_t BgL_auxz00_9775;
BgL_auxz00_9775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4501z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2898); 
FAILURE(BgL_auxz00_9775,BFALSE,BFALSE);} 
BgL_curz00_2908 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5203, BgL_forwardz00_2900); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2908)==13L))
{ 
 long BgL_bufposz00_9787; long BgL_forwardz00_9785; long BgL_lastzd2matchzd2_9784; obj_t BgL_iportz00_9783;
BgL_iportz00_9783 = BgL_iportz00_2898; 
BgL_lastzd2matchzd2_9784 = BgL_newzd2matchzd2_2903; 
BgL_forwardz00_9785 = 
(1L+BgL_forwardz00_2900); 
BgL_bufposz00_9787 = BgL_bufposz00_2901; 
BgL_bufposz00_2967 = BgL_bufposz00_9787; 
BgL_forwardz00_2966 = BgL_forwardz00_9785; 
BgL_lastzd2matchzd2_2965 = BgL_lastzd2matchzd2_9784; 
BgL_iportz00_2964 = BgL_iportz00_9783; 
goto BgL_zc3z04anonymousza32291ze3z87_2968;}  else 
{ /* Ieee/input.scm 237 */
if(
(
(long)(BgL_curz00_2908)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2261z00_2912;
BgL_arg2261z00_2912 = 
(1L+BgL_forwardz00_2900); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5209;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5210;
if(
INPUT_PORTP(BgL_iportz00_2898))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5210 = BgL_iportz00_2898; }  else 
{ 
 obj_t BgL_auxz00_9794;
BgL_auxz00_9794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4501z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2898); 
FAILURE(BgL_auxz00_9794,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5210, BgL_arg2261z00_2912); } 
BgL_newzd2matchzd2_5209 = 0L; 
BgL_matchz00_3102 = BgL_newzd2matchzd2_5209; } }  else 
{ 
 long BgL_forwardz00_9800; long BgL_lastzd2matchzd2_9799;
BgL_lastzd2matchzd2_9799 = BgL_newzd2matchzd2_2903; 
BgL_forwardz00_9800 = 
(1L+BgL_forwardz00_2900); 
BgL_forwardz00_2900 = BgL_forwardz00_9800; 
BgL_lastzd2matchzd2_2899 = BgL_lastzd2matchzd2_9799; 
goto BgL_zc3z04anonymousza32253ze3z87_2902;} } } } } } } } } } } } } } } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5290;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5290 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9806;
BgL_auxz00_9806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9806,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5290); } 
switch( BgL_matchz00_3102) { case 1L : 

{ /* Ieee/input.scm 237 */
 bool_t BgL_test5150z00_9811;
{ /* Ieee/input.scm 237 */
 long BgL_arg2389z00_3092;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5284;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5284 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9814;
BgL_auxz00_9814 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9814,BFALSE,BFALSE);} 
BgL_arg2389z00_3092 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5284); } 
BgL_test5150z00_9811 = 
(BgL_arg2389z00_3092==0L); } 
if(BgL_test5150z00_9811)
{ /* Ieee/input.scm 237 */
return BEOF;}  else 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5286;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5286 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9822;
BgL_auxz00_9822 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4392z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9822,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_5286));} } break;case 0L : 

{ /* Ieee/input.scm 237 */
 long BgL_arg2306z00_5291;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5292;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5292 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9830;
BgL_auxz00_9830 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9830,BFALSE,BFALSE);} 
BgL_arg2306z00_5291 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5292); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5293;
if(
INPUT_PORTP(BgL_iportz00_2854))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5293 = BgL_iportz00_2854; }  else 
{ 
 obj_t BgL_auxz00_9837;
BgL_auxz00_9837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_2854); 
FAILURE(BgL_auxz00_9837,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_5293, 0L, BgL_arg2306z00_5291);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_3102));} } } } } }  else 
{ /* Ieee/input.scm 249 */
 obj_t BgL_g1093z00_3142; obj_t BgL_g1094z00_3143;
BgL_g1093z00_3142 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29); 
{ /* Ieee/string.scm 172 */

BgL_g1094z00_3143 = 
make_string(100L, ((unsigned char)' ')); } 
{ 
 obj_t BgL_cz00_3145; long BgL_wz00_3146; long BgL_mz00_3147; obj_t BgL_accz00_3148;
BgL_cz00_3145 = BgL_g1093z00_3142; 
BgL_wz00_3146 = 0L; 
BgL_mz00_3147 = 100L; 
BgL_accz00_3148 = BgL_g1094z00_3143; 
BgL_zc3z04anonymousza32398ze3z87_3149:
if(
EOF_OBJECTP(BgL_cz00_3145))
{ /* Ieee/input.scm 254 */
if(
(BgL_wz00_3146==0L))
{ /* Ieee/input.scm 256 */
return BgL_cz00_3145;}  else 
{ /* Ieee/input.scm 256 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_3148, 0L, BgL_wz00_3146);} }  else 
{ /* Ieee/input.scm 257 */
 bool_t BgL_test5157z00_9852;
{ /* Ieee/input.scm 257 */
 obj_t BgL_arg2419z00_3170;
{ /* Ieee/input.scm 257 */
 obj_t BgL_za71za7_5305;
BgL_za71za7_5305 = 
BINT(BgL_mz00_3147); 
{ /* Ieee/input.scm 257 */
 obj_t BgL_tmpz00_5307;
BgL_tmpz00_5307 = 
BINT(0L); 
{ /* Ieee/input.scm 257 */
 bool_t BgL_test5158z00_9855;
{ /* Ieee/input.scm 257 */
 obj_t BgL_tmpz00_9856;
BgL_tmpz00_9856 = 
BINT(2L); 
BgL_test5158z00_9855 = 
BGL_SUBFX_OV(BgL_za71za7_5305, BgL_tmpz00_9856, BgL_tmpz00_5307); } 
if(BgL_test5158z00_9855)
{ /* Ieee/input.scm 257 */
BgL_arg2419z00_3170 = 
bgl_bignum_sub(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_5305)), 
bgl_long_to_bignum(2L)); }  else 
{ /* Ieee/input.scm 257 */
BgL_arg2419z00_3170 = BgL_tmpz00_5307; } } } } 
{ /* Ieee/input.scm 257 */
 long BgL_n2z00_5316;
{ /* Ieee/input.scm 257 */
 obj_t BgL_tmpz00_9863;
if(
INTEGERP(BgL_arg2419z00_3170))
{ /* Ieee/input.scm 257 */
BgL_tmpz00_9863 = BgL_arg2419z00_3170
; }  else 
{ 
 obj_t BgL_auxz00_9866;
BgL_auxz00_9866 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10456L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_arg2419z00_3170); 
FAILURE(BgL_auxz00_9866,BFALSE,BFALSE);} 
BgL_n2z00_5316 = 
(long)CINT(BgL_tmpz00_9863); } 
BgL_test5157z00_9852 = 
(BgL_wz00_3146==BgL_n2z00_5316); } } 
if(BgL_test5157z00_9852)
{ /* Ieee/input.scm 261 */
 long BgL_arg2404z00_3154; obj_t BgL_arg2405z00_3155;
BgL_arg2404z00_3154 = 
(BgL_mz00_3147*2L); 
{ /* Ieee/input.scm 262 */
 obj_t BgL_newzd2acczd2_3156;
{ /* Ieee/input.scm 262 */
 long BgL_arg2406z00_3157;
BgL_arg2406z00_3157 = 
(BgL_mz00_3147*2L); 
{ /* Ieee/string.scm 172 */

BgL_newzd2acczd2_3156 = 
make_string(BgL_arg2406z00_3157, ((unsigned char)' ')); } } 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_accz00_3148, 0L, BgL_newzd2acczd2_3156, 0L, BgL_mz00_3147); 
BgL_arg2405z00_3155 = BgL_newzd2acczd2_3156; } 
{ 
 obj_t BgL_accz00_9877; long BgL_mz00_9876;
BgL_mz00_9876 = BgL_arg2404z00_3154; 
BgL_accz00_9877 = BgL_arg2405z00_3155; 
BgL_accz00_3148 = BgL_accz00_9877; 
BgL_mz00_3147 = BgL_mz00_9876; 
goto BgL_zc3z04anonymousza32398ze3z87_3149;} }  else 
{ /* Ieee/input.scm 265 */
 bool_t BgL_test5160z00_9878;
{ /* Ieee/input.scm 265 */
 unsigned char BgL_char1z00_5320;
{ /* Ieee/input.scm 265 */
 obj_t BgL_tmpz00_9879;
if(
CHARP(BgL_cz00_3145))
{ /* Ieee/input.scm 265 */
BgL_tmpz00_9879 = BgL_cz00_3145
; }  else 
{ 
 obj_t BgL_auxz00_9882;
BgL_auxz00_9882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10651L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_3145); 
FAILURE(BgL_auxz00_9882,BFALSE,BFALSE);} 
BgL_char1z00_5320 = 
CCHAR(BgL_tmpz00_9879); } 
BgL_test5160z00_9878 = 
(BgL_char1z00_5320==((unsigned char)13)); } 
if(BgL_test5160z00_9878)
{ /* Ieee/input.scm 266 */
 obj_t BgL_c2z00_3161;
BgL_c2z00_3161 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29); 
{ /* Ieee/input.scm 267 */
 bool_t BgL_test5162z00_9889;
{ /* Ieee/input.scm 267 */
 unsigned char BgL_char1z00_5322;
{ /* Ieee/input.scm 267 */
 obj_t BgL_tmpz00_9890;
if(
CHARP(BgL_c2z00_3161))
{ /* Ieee/input.scm 267 */
BgL_tmpz00_9890 = BgL_c2z00_3161
; }  else 
{ 
 obj_t BgL_auxz00_9893;
BgL_auxz00_9893 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10712L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_c2z00_3161); 
FAILURE(BgL_auxz00_9893,BFALSE,BFALSE);} 
BgL_char1z00_5322 = 
CCHAR(BgL_tmpz00_9890); } 
BgL_test5162z00_9889 = 
(BgL_char1z00_5322==((unsigned char)10)); } 
if(BgL_test5162z00_9889)
{ /* Ieee/input.scm 267 */
{ /* Ieee/input.scm 269 */
 long BgL_l3539z00_6062;
BgL_l3539z00_6062 = 
STRING_LENGTH(BgL_accz00_3148); 
if(
BOUND_CHECK(BgL_wz00_3146, BgL_l3539z00_6062))
{ /* Ieee/input.scm 269 */
STRING_SET(BgL_accz00_3148, BgL_wz00_3146, ((unsigned char)13)); }  else 
{ 
 obj_t BgL_auxz00_9903;
BgL_auxz00_9903 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10743L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_3148, 
(int)(BgL_l3539z00_6062), 
(int)(BgL_wz00_3146)); 
FAILURE(BgL_auxz00_9903,BFALSE,BFALSE);} } 
{ /* Ieee/input.scm 270 */
 long BgL_arg2409z00_3163;
BgL_arg2409z00_3163 = 
(1L+BgL_wz00_3146); 
{ /* Ieee/input.scm 270 */
 long BgL_l3543z00_6066;
BgL_l3543z00_6066 = 
STRING_LENGTH(BgL_accz00_3148); 
if(
BOUND_CHECK(BgL_arg2409z00_3163, BgL_l3543z00_6066))
{ /* Ieee/input.scm 270 */
STRING_SET(BgL_accz00_3148, BgL_arg2409z00_3163, ((unsigned char)10)); }  else 
{ 
 obj_t BgL_auxz00_9914;
BgL_auxz00_9914 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10775L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_3148, 
(int)(BgL_l3543z00_6066), 
(int)(BgL_arg2409z00_3163)); 
FAILURE(BgL_auxz00_9914,BFALSE,BFALSE);} } } 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_3148, 0L, 
(BgL_wz00_3146+2L));}  else 
{ /* Ieee/input.scm 267 */
{ /* Ieee/input.scm 273 */
 unsigned char BgL_charz00_5334;
{ /* Ieee/input.scm 273 */
 obj_t BgL_tmpz00_9922;
if(
CHARP(BgL_cz00_3145))
{ /* Ieee/input.scm 273 */
BgL_tmpz00_9922 = BgL_cz00_3145
; }  else 
{ 
 obj_t BgL_auxz00_9925;
BgL_auxz00_9925 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10881L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_3145); 
FAILURE(BgL_auxz00_9925,BFALSE,BFALSE);} 
BgL_charz00_5334 = 
CCHAR(BgL_tmpz00_9922); } 
{ /* Ieee/input.scm 273 */
 long BgL_l3547z00_6070;
BgL_l3547z00_6070 = 
STRING_LENGTH(BgL_accz00_3148); 
if(
BOUND_CHECK(BgL_wz00_3146, BgL_l3547z00_6070))
{ /* Ieee/input.scm 273 */
STRING_SET(BgL_accz00_3148, BgL_wz00_3146, BgL_charz00_5334); }  else 
{ 
 obj_t BgL_auxz00_9934;
BgL_auxz00_9934 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10862L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_3148, 
(int)(BgL_l3547z00_6070), 
(int)(BgL_wz00_3146)); 
FAILURE(BgL_auxz00_9934,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9941; obj_t BgL_cz00_9940;
BgL_cz00_9940 = BgL_c2z00_3161; 
BgL_wz00_9941 = 
(BgL_wz00_3146+1L); 
BgL_wz00_3146 = BgL_wz00_9941; 
BgL_cz00_3145 = BgL_cz00_9940; 
goto BgL_zc3z04anonymousza32398ze3z87_3149;} } } }  else 
{ /* Ieee/input.scm 275 */
 bool_t BgL_test5168z00_9943;
{ /* Ieee/input.scm 275 */
 unsigned char BgL_char1z00_5336;
{ /* Ieee/input.scm 275 */
 obj_t BgL_tmpz00_9944;
if(
CHARP(BgL_cz00_3145))
{ /* Ieee/input.scm 275 */
BgL_tmpz00_9944 = BgL_cz00_3145
; }  else 
{ 
 obj_t BgL_auxz00_9947;
BgL_auxz00_9947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10932L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_3145); 
FAILURE(BgL_auxz00_9947,BFALSE,BFALSE);} 
BgL_char1z00_5336 = 
CCHAR(BgL_tmpz00_9944); } 
BgL_test5168z00_9943 = 
(BgL_char1z00_5336==((unsigned char)10)); } 
if(BgL_test5168z00_9943)
{ /* Ieee/input.scm 275 */
{ /* Ieee/input.scm 277 */
 long BgL_l3551z00_6074;
BgL_l3551z00_6074 = 
STRING_LENGTH(BgL_accz00_3148); 
if(
BOUND_CHECK(BgL_wz00_3146, BgL_l3551z00_6074))
{ /* Ieee/input.scm 277 */
STRING_SET(BgL_accz00_3148, BgL_wz00_3146, ((unsigned char)10)); }  else 
{ 
 obj_t BgL_auxz00_9957;
BgL_auxz00_9957 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(10991L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_3148, 
(int)(BgL_l3551z00_6074), 
(int)(BgL_wz00_3146)); 
FAILURE(BgL_auxz00_9957,BFALSE,BFALSE);} } 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_3148, 0L, 
(BgL_wz00_3146+1L));}  else 
{ /* Ieee/input.scm 275 */
{ /* Ieee/input.scm 281 */
 unsigned char BgL_charz00_5344;
{ /* Ieee/input.scm 281 */
 obj_t BgL_tmpz00_9965;
if(
CHARP(BgL_cz00_3145))
{ /* Ieee/input.scm 281 */
BgL_tmpz00_9965 = BgL_cz00_3145
; }  else 
{ 
 obj_t BgL_auxz00_9968;
BgL_auxz00_9968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11121L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_cz00_3145); 
FAILURE(BgL_auxz00_9968,BFALSE,BFALSE);} 
BgL_charz00_5344 = 
CCHAR(BgL_tmpz00_9965); } 
{ /* Ieee/input.scm 281 */
 long BgL_l3555z00_6078;
BgL_l3555z00_6078 = 
STRING_LENGTH(BgL_accz00_3148); 
if(
BOUND_CHECK(BgL_wz00_3146, BgL_l3555z00_6078))
{ /* Ieee/input.scm 281 */
STRING_SET(BgL_accz00_3148, BgL_wz00_3146, BgL_charz00_5344); }  else 
{ 
 obj_t BgL_auxz00_9977;
BgL_auxz00_9977 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11102L), BGl_string4496z00zz__r4_input_6_10_2z00, BgL_accz00_3148, 
(int)(BgL_l3555z00_6078), 
(int)(BgL_wz00_3146)); 
FAILURE(BgL_auxz00_9977,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9985; obj_t BgL_cz00_9983;
BgL_cz00_9983 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29); 
BgL_wz00_9985 = 
(BgL_wz00_3146+1L); 
BgL_wz00_3146 = BgL_wz00_9985; 
BgL_cz00_3145 = BgL_cz00_9983; 
goto BgL_zc3z04anonymousza32398ze3z87_3149;} } } } } } } } } 

}



/* _read-lines */
obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_env1274z00_34, obj_t BgL_opt1273z00_33)
{
{ /* Ieee/input.scm 287 */
{ /* Ieee/input.scm 287 */

{ 

{ /* Ieee/input.scm 287 */
 long BgL_aux1276z00_3176;
{ 
 obj_t BgL_auxz00_9987;
if(
VECTORP(BgL_opt1273z00_33))
{ /* Ieee/input.scm 287 */
BgL_auxz00_9987 = BgL_opt1273z00_33
; }  else 
{ 
 obj_t BgL_auxz00_9990;
BgL_auxz00_9990 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11397L), BGl_string4510z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1273z00_33); 
FAILURE(BgL_auxz00_9990,BFALSE,BFALSE);} 
BgL_aux1276z00_3176 = 
VECTOR_LENGTH(BgL_auxz00_9987); } 
switch( BgL_aux1276z00_3176) { case 0L : 

{ /* Ieee/input.scm 287 */
 obj_t BgL_ipz00_3177;
{ /* Ieee/input.scm 287 */
 obj_t BgL_tmpz00_9995;
BgL_tmpz00_9995 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3177 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_9995); } 
{ /* Ieee/input.scm 287 */

return 
BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_ipz00_3177);} } break;case 1L : 

{ /* Ieee/input.scm 287 */
 obj_t BgL_ipz00_3178;
{ 
 obj_t BgL_auxz00_9999;
if(
VECTORP(BgL_opt1273z00_33))
{ /* Ieee/input.scm 287 */
BgL_auxz00_9999 = BgL_opt1273z00_33
; }  else 
{ 
 obj_t BgL_auxz00_10002;
BgL_auxz00_10002 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11397L), BGl_string4510z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1273z00_33); 
FAILURE(BgL_auxz00_10002,BFALSE,BFALSE);} 
BgL_ipz00_3178 = 
VECTOR_REF(BgL_auxz00_9999,0L); } 
{ /* Ieee/input.scm 287 */

return 
BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_ipz00_3178);} } break;
default: 
{ /* Ieee/input.scm 287 */
 long BgL_arg2421z00_3179;
{ 
 obj_t BgL_auxz00_10008;
if(
VECTORP(BgL_opt1273z00_33))
{ /* Ieee/input.scm 287 */
BgL_auxz00_10008 = BgL_opt1273z00_33
; }  else 
{ 
 obj_t BgL_auxz00_10011;
BgL_auxz00_10011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11397L), BGl_string4507z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1273z00_33); 
FAILURE(BgL_auxz00_10011,BFALSE,BFALSE);} 
BgL_arg2421z00_3179 = 
VECTOR_LENGTH(BgL_auxz00_10008); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4508z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2421z00_3179));} } } } } } 

}



/* read-lines */
BGL_EXPORTED_DEF obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_32)
{
{ /* Ieee/input.scm 287 */
{ /* Ieee/input.scm 288 */
 obj_t BgL_g1096z00_3180;
BgL_g1096z00_3180 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32); 
{ 
 obj_t BgL_lz00_5354; obj_t BgL_lsz00_5355;
BgL_lz00_5354 = BgL_g1096z00_3180; 
BgL_lsz00_5355 = BNIL; 
BgL_loopz00_5353:
if(
EOF_OBJECTP(BgL_lz00_5354))
{ /* Ieee/input.scm 290 */
return 
bgl_reverse_bang(BgL_lsz00_5355);}  else 
{ /* Ieee/input.scm 292 */
 obj_t BgL_arg2424z00_5360; obj_t BgL_arg2427z00_5361;
BgL_arg2424z00_5360 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32); 
BgL_arg2427z00_5361 = 
MAKE_YOUNG_PAIR(BgL_lz00_5354, BgL_lsz00_5355); 
{ 
 obj_t BgL_lsz00_10026; obj_t BgL_lz00_10025;
BgL_lz00_10025 = BgL_arg2424z00_5360; 
BgL_lsz00_10026 = BgL_arg2427z00_5361; 
BgL_lsz00_5355 = BgL_lsz00_10026; 
BgL_lz00_5354 = BgL_lz00_10025; 
goto BgL_loopz00_5353;} } } } } 

}



/* _read-string */
obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_env1278z00_37, obj_t BgL_opt1277z00_36)
{
{ /* Ieee/input.scm 297 */
{ /* Ieee/input.scm 297 */

{ 

{ /* Ieee/input.scm 297 */
 long BgL_aux1280z00_3191;
{ 
 obj_t BgL_auxz00_10027;
if(
VECTORP(BgL_opt1277z00_36))
{ /* Ieee/input.scm 297 */
BgL_auxz00_10027 = BgL_opt1277z00_36
; }  else 
{ 
 obj_t BgL_auxz00_10030;
BgL_auxz00_10030 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11811L), BGl_string4514z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1277z00_36); 
FAILURE(BgL_auxz00_10030,BFALSE,BFALSE);} 
BgL_aux1280z00_3191 = 
VECTOR_LENGTH(BgL_auxz00_10027); } 
switch( BgL_aux1280z00_3191) { case 0L : 

{ /* Ieee/input.scm 297 */
 obj_t BgL_ipz00_3192;
{ /* Ieee/input.scm 297 */
 obj_t BgL_tmpz00_10035;
BgL_tmpz00_10035 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3192 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_10035); } 
{ /* Ieee/input.scm 297 */

return 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3192);} } break;case 1L : 

{ /* Ieee/input.scm 297 */
 obj_t BgL_ipz00_3193;
{ 
 obj_t BgL_auxz00_10039;
if(
VECTORP(BgL_opt1277z00_36))
{ /* Ieee/input.scm 297 */
BgL_auxz00_10039 = BgL_opt1277z00_36
; }  else 
{ 
 obj_t BgL_auxz00_10042;
BgL_auxz00_10042 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11811L), BGl_string4514z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1277z00_36); 
FAILURE(BgL_auxz00_10042,BFALSE,BFALSE);} 
BgL_ipz00_3193 = 
VECTOR_REF(BgL_auxz00_10039,0L); } 
{ /* Ieee/input.scm 297 */

return 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3193);} } break;
default: 
{ /* Ieee/input.scm 297 */
 long BgL_arg2429z00_3194;
{ 
 obj_t BgL_auxz00_10048;
if(
VECTORP(BgL_opt1277z00_36))
{ /* Ieee/input.scm 297 */
BgL_auxz00_10048 = BgL_opt1277z00_36
; }  else 
{ 
 obj_t BgL_auxz00_10051;
BgL_auxz00_10051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11811L), BGl_string4511z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1277z00_36); 
FAILURE(BgL_auxz00_10051,BFALSE,BFALSE);} 
BgL_arg2429z00_3194 = 
VECTOR_LENGTH(BgL_auxz00_10048); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4512z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2429z00_3194));} } } } } } 

}



/* read-string */
BGL_EXPORTED_DEF obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_35)
{
{ /* Ieee/input.scm 297 */
{ 
 obj_t BgL_iportz00_3258; long BgL_lastzd2matchzd2_3259; long BgL_forwardz00_3260; long BgL_bufposz00_3261; obj_t BgL_iportz00_3246; long BgL_lastzd2matchzd2_3247; long BgL_forwardz00_3248; long BgL_bufposz00_3249;
{ /* Ieee/input.scm 298 */
 bool_t BgL_test5180z00_10059;
{ /* Ieee/input.scm 298 */
 obj_t BgL_arg2440z00_3234;
{ /* Ieee/input.scm 298 */
 obj_t BgL_res3519z00_5421;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_res3519z00_5421 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10062;
BgL_auxz00_10062 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4513z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10062,BFALSE,BFALSE);} 
BgL_arg2440z00_3234 = BgL_res3519z00_5421; } 
BgL_test5180z00_10059 = 
INPUT_PORT_CLOSEP(BgL_arg2440z00_3234); } 
if(BgL_test5180z00_10059)
{ /* Ieee/input.scm 298 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2430z00_3228;
{ /* Ieee/input.scm 298 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_3229;
{ /* Ieee/input.scm 298 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_3232;
BgL_new1045z00_3232 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 298 */
 long BgL_arg2437z00_3233;
BgL_arg2437z00_3233 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_3232), BgL_arg2437z00_3233); } 
BgL_new1046z00_3229 = BgL_new1045z00_3232; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_3229)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_3229)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10075;
{ /* Ieee/input.scm 298 */
 obj_t BgL_arg2433z00_3230;
{ /* Ieee/input.scm 298 */
 obj_t BgL_arg2436z00_3231;
{ /* Ieee/input.scm 298 */
 obj_t BgL_classz00_5426;
BgL_classz00_5426 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2436z00_3231 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5426); } 
BgL_arg2433z00_3230 = 
VECTOR_REF(BgL_arg2436z00_3231,2L); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_auxz00_10079;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2433z00_3230))
{ /* Ieee/input.scm 298 */
BgL_auxz00_10079 = BgL_arg2433z00_3230
; }  else 
{ 
 obj_t BgL_auxz00_10082;
BgL_auxz00_10082 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4513z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2433z00_3230); 
FAILURE(BgL_auxz00_10082,BFALSE,BFALSE);} 
BgL_auxz00_10075 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10079); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_3229)))->BgL_stackz00)=((obj_t)BgL_auxz00_10075),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_3229)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_3229)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10092;
{ /* Ieee/input.scm 298 */
 obj_t BgL_res3520z00_5428;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_res3520z00_5428 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10096;
BgL_auxz00_10096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4513z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10096,BFALSE,BFALSE);} 
BgL_auxz00_10092 = BgL_res3520z00_5428; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_3229)))->BgL_objz00)=((obj_t)BgL_auxz00_10092),BUNSPEC); } 
BgL_arg2430z00_3228 = BgL_new1046z00_3229; } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_aux4121z00_6650;
BgL_aux4121z00_6650 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2430z00_3228)); 
if(
STRINGP(BgL_aux4121z00_6650))
{ /* Ieee/input.scm 298 */
return BgL_aux4121z00_6650;}  else 
{ 
 obj_t BgL_auxz00_10105;
BgL_auxz00_10105 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4513z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_aux4121z00_6650); 
FAILURE(BgL_auxz00_10105,BFALSE,BFALSE);} } }  else 
{ /* Ieee/input.scm 298 */
 obj_t BgL_aux4123z00_6652;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5396;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5396 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10111;
BgL_auxz00_10111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10111,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_5396); } 
{ /* Ieee/input.scm 298 */
 long BgL_matchz00_3389;
{ /* Ieee/input.scm 298 */
 long BgL_arg2564z00_3394; long BgL_arg2565z00_3395;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5397;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5397 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10118;
BgL_auxz00_10118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10118,BFALSE,BFALSE);} 
BgL_arg2564z00_3394 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5397); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5398;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5398 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10125;
BgL_auxz00_10125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10125,BFALSE,BFALSE);} 
BgL_arg2565z00_3395 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5398); } 
{ 
 long BgL_forwardz00_5400; long BgL_bufposz00_5401;
BgL_forwardz00_5400 = BgL_arg2564z00_3394; 
BgL_bufposz00_5401 = BgL_arg2565z00_3395; 
BgL_statezd20zd21099z00_5399:
if(
(BgL_forwardz00_5400==BgL_bufposz00_5401))
{ /* Ieee/input.scm 298 */
 bool_t BgL_test5189z00_10132;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5406;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5406 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10135;
BgL_auxz00_10135 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4517z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10135,BFALSE,BFALSE);} 
BgL_test5189z00_10132 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5406); } 
if(BgL_test5189z00_10132)
{ /* Ieee/input.scm 298 */
 long BgL_arg2445z00_5407; long BgL_arg2446z00_5408;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5409;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5409 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10142;
BgL_auxz00_10142 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4517z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10142,BFALSE,BFALSE);} 
BgL_arg2445z00_5407 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5409); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5410;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5410 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10149;
BgL_auxz00_10149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4517z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10149,BFALSE,BFALSE);} 
BgL_arg2446z00_5408 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5410); } 
{ 
 long BgL_bufposz00_10155; long BgL_forwardz00_10154;
BgL_forwardz00_10154 = BgL_arg2445z00_5407; 
BgL_bufposz00_10155 = BgL_arg2446z00_5408; 
BgL_bufposz00_5401 = BgL_bufposz00_10155; 
BgL_forwardz00_5400 = BgL_forwardz00_10154; 
goto BgL_statezd20zd21099z00_5399;} }  else 
{ /* Ieee/input.scm 298 */
BgL_matchz00_3389 = 1L; } }  else 
{ /* Ieee/input.scm 298 */
 int BgL_curz00_5411;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5412;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5412 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10158;
BgL_auxz00_10158 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4517z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10158,BFALSE,BFALSE);} 
BgL_curz00_5411 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5412, BgL_forwardz00_5400); } 
{ /* Ieee/input.scm 298 */

BgL_iportz00_3258 = BgL_ipz00_35; 
BgL_lastzd2matchzd2_3259 = 1L; 
BgL_forwardz00_3260 = 
(1L+BgL_forwardz00_5400); 
BgL_bufposz00_3261 = BgL_bufposz00_5401; 
BgL_zc3z04anonymousza32458ze3z87_3262:
{ /* Ieee/input.scm 298 */
 long BgL_newzd2matchzd2_3263;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5381;
if(
INPUT_PORTP(BgL_iportz00_3258))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5381 = BgL_iportz00_3258; }  else 
{ 
 obj_t BgL_auxz00_10165;
BgL_auxz00_10165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4516z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3258); 
FAILURE(BgL_auxz00_10165,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5381, BgL_forwardz00_3260); } 
BgL_newzd2matchzd2_3263 = 0L; 
if(
(BgL_forwardz00_3260==BgL_bufposz00_3261))
{ /* Ieee/input.scm 298 */
 bool_t BgL_test5196z00_10172;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5385;
if(
INPUT_PORTP(BgL_iportz00_3258))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5385 = BgL_iportz00_3258; }  else 
{ 
 obj_t BgL_auxz00_10175;
BgL_auxz00_10175 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4516z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3258); 
FAILURE(BgL_auxz00_10175,BFALSE,BFALSE);} 
BgL_test5196z00_10172 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5385); } 
if(BgL_test5196z00_10172)
{ /* Ieee/input.scm 298 */
 long BgL_arg2461z00_3266; long BgL_arg2462z00_3267;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5386;
if(
INPUT_PORTP(BgL_iportz00_3258))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5386 = BgL_iportz00_3258; }  else 
{ 
 obj_t BgL_auxz00_10182;
BgL_auxz00_10182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4516z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3258); 
FAILURE(BgL_auxz00_10182,BFALSE,BFALSE);} 
BgL_arg2461z00_3266 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5386); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5387;
if(
INPUT_PORTP(BgL_iportz00_3258))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5387 = BgL_iportz00_3258; }  else 
{ 
 obj_t BgL_auxz00_10189;
BgL_auxz00_10189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4516z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3258); 
FAILURE(BgL_auxz00_10189,BFALSE,BFALSE);} 
BgL_arg2462z00_3267 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5387); } 
{ 
 long BgL_bufposz00_10195; long BgL_forwardz00_10194;
BgL_forwardz00_10194 = BgL_arg2461z00_3266; 
BgL_bufposz00_10195 = BgL_arg2462z00_3267; 
BgL_bufposz00_3261 = BgL_bufposz00_10195; 
BgL_forwardz00_3260 = BgL_forwardz00_10194; 
goto BgL_zc3z04anonymousza32458ze3z87_3262;} }  else 
{ /* Ieee/input.scm 298 */
BgL_matchz00_3389 = BgL_newzd2matchzd2_3263; } }  else 
{ /* Ieee/input.scm 298 */
 int BgL_curz00_3268;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5388;
if(
INPUT_PORTP(BgL_iportz00_3258))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5388 = BgL_iportz00_3258; }  else 
{ 
 obj_t BgL_auxz00_10198;
BgL_auxz00_10198 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4516z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3258); 
FAILURE(BgL_auxz00_10198,BFALSE,BFALSE);} 
BgL_curz00_3268 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5388, BgL_forwardz00_3260); } 
{ /* Ieee/input.scm 298 */

BgL_iportz00_3246 = BgL_iportz00_3258; 
BgL_lastzd2matchzd2_3247 = BgL_newzd2matchzd2_3263; 
BgL_forwardz00_3248 = 
(1L+BgL_forwardz00_3260); 
BgL_bufposz00_3249 = BgL_bufposz00_3261; 
BgL_zc3z04anonymousza32452ze3z87_3250:
{ /* Ieee/input.scm 298 */
 long BgL_newzd2matchzd2_3251;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5371;
if(
INPUT_PORTP(BgL_iportz00_3246))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5371 = BgL_iportz00_3246; }  else 
{ 
 obj_t BgL_auxz00_10205;
BgL_auxz00_10205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4515z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3246); 
FAILURE(BgL_auxz00_10205,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5371, BgL_forwardz00_3248); } 
BgL_newzd2matchzd2_3251 = 0L; 
if(
(BgL_forwardz00_3248==BgL_bufposz00_3249))
{ /* Ieee/input.scm 298 */
 bool_t BgL_test5203z00_10212;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5375;
if(
INPUT_PORTP(BgL_iportz00_3246))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5375 = BgL_iportz00_3246; }  else 
{ 
 obj_t BgL_auxz00_10215;
BgL_auxz00_10215 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4515z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3246); 
FAILURE(BgL_auxz00_10215,BFALSE,BFALSE);} 
BgL_test5203z00_10212 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5375); } 
if(BgL_test5203z00_10212)
{ /* Ieee/input.scm 298 */
 long BgL_arg2455z00_3254; long BgL_arg2456z00_3255;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5376;
if(
INPUT_PORTP(BgL_iportz00_3246))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5376 = BgL_iportz00_3246; }  else 
{ 
 obj_t BgL_auxz00_10222;
BgL_auxz00_10222 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4515z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3246); 
FAILURE(BgL_auxz00_10222,BFALSE,BFALSE);} 
BgL_arg2455z00_3254 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5376); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5377;
if(
INPUT_PORTP(BgL_iportz00_3246))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5377 = BgL_iportz00_3246; }  else 
{ 
 obj_t BgL_auxz00_10229;
BgL_auxz00_10229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4515z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3246); 
FAILURE(BgL_auxz00_10229,BFALSE,BFALSE);} 
BgL_arg2456z00_3255 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5377); } 
{ 
 long BgL_bufposz00_10235; long BgL_forwardz00_10234;
BgL_forwardz00_10234 = BgL_arg2455z00_3254; 
BgL_bufposz00_10235 = BgL_arg2456z00_3255; 
BgL_bufposz00_3249 = BgL_bufposz00_10235; 
BgL_forwardz00_3248 = BgL_forwardz00_10234; 
goto BgL_zc3z04anonymousza32452ze3z87_3250;} }  else 
{ /* Ieee/input.scm 298 */
BgL_matchz00_3389 = BgL_newzd2matchzd2_3251; } }  else 
{ /* Ieee/input.scm 298 */
 int BgL_curz00_3256;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5378;
if(
INPUT_PORTP(BgL_iportz00_3246))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5378 = BgL_iportz00_3246; }  else 
{ 
 obj_t BgL_auxz00_10238;
BgL_auxz00_10238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4515z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_iportz00_3246); 
FAILURE(BgL_auxz00_10238,BFALSE,BFALSE);} 
BgL_curz00_3256 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5378, BgL_forwardz00_3248); } 
{ /* Ieee/input.scm 298 */

{ 
 long BgL_forwardz00_10244; long BgL_lastzd2matchzd2_10243;
BgL_lastzd2matchzd2_10243 = BgL_newzd2matchzd2_3251; 
BgL_forwardz00_10244 = 
(1L+BgL_forwardz00_3248); 
BgL_forwardz00_3248 = BgL_forwardz00_10244; 
BgL_lastzd2matchzd2_3247 = BgL_lastzd2matchzd2_10243; 
goto BgL_zc3z04anonymousza32452ze3z87_3250;} } } } } } } } } } } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5416;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5416 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10250;
BgL_auxz00_10250 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10250,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5416); } 
{ 

switch( BgL_matchz00_3389) { case 1L : 

BgL_aux4123z00_6652 = BGl_string4493z00zz__r4_input_6_10_2z00; break;case 0L : 

{ /* Ieee/input.scm 298 */
 long BgL_arg2470z00_5417;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5418;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5418 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10257;
BgL_auxz00_10257 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10257,BFALSE,BFALSE);} 
BgL_arg2470z00_5417 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5418); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5419;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5419 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_10264;
BgL_auxz00_10264 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_10264,BFALSE,BFALSE);} 
BgL_aux4123z00_6652 = 
rgc_buffer_substring(BgL_inputzd2portzd2_5419, 0L, BgL_arg2470z00_5417); } } break;
default: 
BgL_aux4123z00_6652 = 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_3389)); } } } 
if(
STRINGP(BgL_aux4123z00_6652))
{ /* Ieee/input.scm 298 */
return BgL_aux4123z00_6652;}  else 
{ 
 obj_t BgL_auxz00_10274;
BgL_auxz00_10274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4513z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_aux4123z00_6652); 
FAILURE(BgL_auxz00_10274,BFALSE,BFALSE);} } } } } 

}



/* _read-of-strings */
obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t BgL_env1282z00_40, obj_t BgL_opt1281z00_39)
{
{ /* Ieee/input.scm 320 */
{ /* Ieee/input.scm 320 */

{ 

{ /* Ieee/input.scm 320 */
 long BgL_aux1284z00_3427;
{ 
 obj_t BgL_auxz00_10278;
if(
VECTORP(BgL_opt1281z00_39))
{ /* Ieee/input.scm 320 */
BgL_auxz00_10278 = BgL_opt1281z00_39
; }  else 
{ 
 obj_t BgL_auxz00_10281;
BgL_auxz00_10281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12731L), BGl_string4521z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1281z00_39); 
FAILURE(BgL_auxz00_10281,BFALSE,BFALSE);} 
BgL_aux1284z00_3427 = 
VECTOR_LENGTH(BgL_auxz00_10278); } 
switch( BgL_aux1284z00_3427) { case 0L : 

{ /* Ieee/input.scm 320 */
 obj_t BgL_ipz00_3428;
{ /* Ieee/input.scm 320 */
 obj_t BgL_tmpz00_10286;
BgL_tmpz00_10286 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3428 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_10286); } 
{ /* Ieee/input.scm 320 */

return 
BGl_z62zc3z04anonymousza31400ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_3428);} } break;case 1L : 

{ /* Ieee/input.scm 320 */
 obj_t BgL_ipz00_3429;
{ 
 obj_t BgL_auxz00_10293;
if(
VECTORP(BgL_opt1281z00_39))
{ /* Ieee/input.scm 320 */
BgL_auxz00_10293 = BgL_opt1281z00_39
; }  else 
{ 
 obj_t BgL_auxz00_10296;
BgL_auxz00_10296 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12731L), BGl_string4521z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1281z00_39); 
FAILURE(BgL_auxz00_10296,BFALSE,BFALSE);} 
BgL_ipz00_3429 = 
VECTOR_REF(BgL_auxz00_10293,0L); } 
{ /* Ieee/input.scm 320 */

return 
BGl_z62zc3z04anonymousza31400ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_3429);} } break;
default: 
{ /* Ieee/input.scm 320 */
 long BgL_arg2566z00_3430;
{ 
 obj_t BgL_auxz00_10305;
if(
VECTORP(BgL_opt1281z00_39))
{ /* Ieee/input.scm 320 */
BgL_auxz00_10305 = BgL_opt1281z00_39
; }  else 
{ 
 obj_t BgL_auxz00_10308;
BgL_auxz00_10308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(12731L), BGl_string4518z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1281z00_39); 
FAILURE(BgL_auxz00_10308,BFALSE,BFALSE);} 
BgL_arg2566z00_3430 = 
VECTOR_LENGTH(BgL_auxz00_10305); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4519z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2566z00_3430));} } } } } } 

}



/* read-of-strings */
BGL_EXPORTED_DEF obj_t BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t BgL_ipz00_38)
{
{ /* Ieee/input.scm 320 */
return 
BGl_z62zc3z04anonymousza31400ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_38);} 

}



/* _read-chars */
obj_t BGl__readzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_env1286z00_44, obj_t BgL_opt1285z00_43)
{
{ /* Ieee/input.scm 326 */
{ /* Ieee/input.scm 326 */
 obj_t BgL_g1287z00_3431;
{ 
 obj_t BgL_auxz00_10320;
if(
VECTORP(BgL_opt1285z00_43))
{ /* Ieee/input.scm 326 */
BgL_auxz00_10320 = BgL_opt1285z00_43
; }  else 
{ 
 obj_t BgL_auxz00_10323;
BgL_auxz00_10323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13060L), BGl_string4522z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1285z00_43); 
FAILURE(BgL_auxz00_10323,BFALSE,BFALSE);} 
BgL_g1287z00_3431 = 
VECTOR_REF(BgL_auxz00_10320,0L); } 
{ 

{ /* Ieee/input.scm 326 */
 long BgL_aux1289z00_3433;
{ 
 obj_t BgL_auxz00_10328;
if(
VECTORP(BgL_opt1285z00_43))
{ /* Ieee/input.scm 326 */
BgL_auxz00_10328 = BgL_opt1285z00_43
; }  else 
{ 
 obj_t BgL_auxz00_10331;
BgL_auxz00_10331 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13060L), BGl_string4522z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1285z00_43); 
FAILURE(BgL_auxz00_10331,BFALSE,BFALSE);} 
BgL_aux1289z00_3433 = 
VECTOR_LENGTH(BgL_auxz00_10328); } 
switch( BgL_aux1289z00_3433) { case 1L : 

{ /* Ieee/input.scm 326 */
 obj_t BgL_ipz00_3434;
{ /* Ieee/input.scm 326 */
 obj_t BgL_tmpz00_10336;
BgL_tmpz00_10336 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3434 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_10336); } 
{ /* Ieee/input.scm 326 */

return 
BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1287z00_3431, BgL_ipz00_3434);} } break;case 2L : 

{ /* Ieee/input.scm 326 */
 obj_t BgL_ipz00_3435;
{ 
 obj_t BgL_auxz00_10340;
if(
VECTORP(BgL_opt1285z00_43))
{ /* Ieee/input.scm 326 */
BgL_auxz00_10340 = BgL_opt1285z00_43
; }  else 
{ 
 obj_t BgL_auxz00_10343;
BgL_auxz00_10343 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13060L), BGl_string4522z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1285z00_43); 
FAILURE(BgL_auxz00_10343,BFALSE,BFALSE);} 
BgL_ipz00_3435 = 
VECTOR_REF(BgL_auxz00_10340,1L); } 
{ /* Ieee/input.scm 326 */

return 
BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1287z00_3431, BgL_ipz00_3435);} } break;
default: 
{ /* Ieee/input.scm 326 */
 long BgL_arg2567z00_3436;
{ 
 obj_t BgL_auxz00_10349;
if(
VECTORP(BgL_opt1285z00_43))
{ /* Ieee/input.scm 326 */
BgL_auxz00_10349 = BgL_opt1285z00_43
; }  else 
{ 
 obj_t BgL_auxz00_10352;
BgL_auxz00_10352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13060L), BGl_string4523z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1285z00_43); 
FAILURE(BgL_auxz00_10352,BFALSE,BFALSE);} 
BgL_arg2567z00_3436 = 
VECTOR_LENGTH(BgL_auxz00_10349); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4524z00zz__r4_input_6_10_2z00, BGl_string4526z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2567z00_3436));} } } } } } 

}



/* read-chars */
BGL_EXPORTED_DEF obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_lz00_41, obj_t BgL_ipz00_42)
{
{ /* Ieee/input.scm 326 */
{ /* Ieee/input.scm 327 */
 obj_t BgL_lenz00_3437;
if(
INTEGERP(BgL_lz00_41))
{ /* Ieee/input.scm 328 */
BgL_lenz00_3437 = BgL_lz00_41; }  else 
{ /* Ieee/input.scm 328 */
if(
ELONGP(BgL_lz00_41))
{ /* Ieee/input.scm 329 */
 long BgL_xz00_5431;
BgL_xz00_5431 = 
BELONG_TO_LONG(BgL_lz00_41); 
BgL_lenz00_3437 = 
BINT(
(long)(BgL_xz00_5431)); }  else 
{ /* Ieee/input.scm 329 */
if(
LLONGP(BgL_lz00_41))
{ /* Ieee/input.scm 330 */
 BGL_LONGLONG_T BgL_xz00_5432;
BgL_xz00_5432 = 
BLLONG_TO_LLONG(BgL_lz00_41); 
BgL_lenz00_3437 = 
BINT(
LLONG_TO_LONG(BgL_xz00_5432)); }  else 
{ /* Ieee/input.scm 332 */
 obj_t BgL_arg2581z00_3454;
BgL_arg2581z00_3454 = 
bgl_find_runtime_type(BgL_lz00_41); 
BgL_lenz00_3437 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol4524z00zz__r4_input_6_10_2z00, BGl_string4527z00zz__r4_input_6_10_2z00, BgL_arg2581z00_3454); } } } 
{ /* Ieee/input.scm 334 */
 bool_t BgL_test5222z00_10374;
{ /* Ieee/input.scm 334 */
 long BgL_n1z00_5433;
{ /* Ieee/input.scm 334 */
 obj_t BgL_tmpz00_10375;
if(
INTEGERP(BgL_lenz00_3437))
{ /* Ieee/input.scm 334 */
BgL_tmpz00_10375 = BgL_lenz00_3437
; }  else 
{ 
 obj_t BgL_auxz00_10378;
BgL_auxz00_10378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13328L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3437); 
FAILURE(BgL_auxz00_10378,BFALSE,BFALSE);} 
BgL_n1z00_5433 = 
(long)CINT(BgL_tmpz00_10375); } 
BgL_test5222z00_10374 = 
(BgL_n1z00_5433<=0L); } 
if(BgL_test5222z00_10374)
{ /* Ieee/input.scm 335 */
 bool_t BgL_test5224z00_10384;
{ /* Ieee/input.scm 335 */
 long BgL_n1z00_5434;
{ /* Ieee/input.scm 335 */
 obj_t BgL_tmpz00_10385;
if(
INTEGERP(BgL_lenz00_3437))
{ /* Ieee/input.scm 335 */
BgL_tmpz00_10385 = BgL_lenz00_3437
; }  else 
{ 
 obj_t BgL_auxz00_10388;
BgL_auxz00_10388 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13347L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3437); 
FAILURE(BgL_auxz00_10388,BFALSE,BFALSE);} 
BgL_n1z00_5434 = 
(long)CINT(BgL_tmpz00_10385); } 
BgL_test5224z00_10384 = 
(BgL_n1z00_5434==0L); } 
if(BgL_test5224z00_10384)
{ /* Ieee/input.scm 335 */
return BGl_string4493z00zz__r4_input_6_10_2z00;}  else 
{ /* Ieee/input.scm 338 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2570z00_3440;
{ /* Ieee/input.scm 338 */
 BgL_z62iozd2errorzb0_bglt BgL_new1121z00_3441;
{ /* Ieee/input.scm 338 */
 BgL_z62iozd2errorzb0_bglt BgL_new1120z00_3444;
BgL_new1120z00_3444 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 338 */
 long BgL_arg2574z00_3445;
BgL_arg2574z00_3445 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1120z00_3444), BgL_arg2574z00_3445); } 
BgL_new1121z00_3441 = BgL_new1120z00_3444; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1121z00_3441)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1121z00_3441)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10402;
{ /* Ieee/input.scm 338 */
 obj_t BgL_arg2571z00_3442;
{ /* Ieee/input.scm 338 */
 obj_t BgL_arg2572z00_3443;
{ /* Ieee/input.scm 338 */
 obj_t BgL_classz00_5438;
BgL_classz00_5438 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2572z00_3443 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5438); } 
BgL_arg2571z00_3442 = 
VECTOR_REF(BgL_arg2572z00_3443,2L); } 
{ /* Ieee/input.scm 338 */
 obj_t BgL_auxz00_10406;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2571z00_3442))
{ /* Ieee/input.scm 338 */
BgL_auxz00_10406 = BgL_arg2571z00_3442
; }  else 
{ 
 obj_t BgL_auxz00_10409;
BgL_auxz00_10409 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13386L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2571z00_3442); 
FAILURE(BgL_auxz00_10409,BFALSE,BFALSE);} 
BgL_auxz00_10402 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10406); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1121z00_3441)))->BgL_stackz00)=((obj_t)BgL_auxz00_10402),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1121z00_3441)))->BgL_procz00)=((obj_t)BGl_symbol4524z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1121z00_3441)))->BgL_msgz00)=((obj_t)BGl_string4528z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1121z00_3441)))->BgL_objz00)=((obj_t)BgL_lenz00_3437),BUNSPEC); 
BgL_arg2570z00_3440 = BgL_new1121z00_3441; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2570z00_3440));} }  else 
{ /* Ieee/input.scm 343 */
 obj_t BgL_sz00_3446;
{ /* Ieee/input.scm 343 */
 long BgL_tmpz00_10423;
{ /* Ieee/input.scm 343 */
 obj_t BgL_tmpz00_10424;
if(
INTEGERP(BgL_lenz00_3437))
{ /* Ieee/input.scm 343 */
BgL_tmpz00_10424 = BgL_lenz00_3437
; }  else 
{ 
 obj_t BgL_auxz00_10427;
BgL_auxz00_10427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13530L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3437); 
FAILURE(BgL_auxz00_10427,BFALSE,BFALSE);} 
BgL_tmpz00_10423 = 
(long)CINT(BgL_tmpz00_10424); } 
BgL_sz00_3446 = 
make_string_sans_fill(BgL_tmpz00_10423); } 
{ /* Ieee/input.scm 343 */
 long BgL_nz00_3447;
{ /* Ieee/input.scm 344 */
 long BgL_auxz00_10440; obj_t BgL_tmpz00_10433;
{ /* Ieee/input.scm 344 */
 obj_t BgL_tmpz00_10442;
if(
INTEGERP(BgL_lenz00_3437))
{ /* Ieee/input.scm 344 */
BgL_tmpz00_10442 = BgL_lenz00_3437
; }  else 
{ 
 obj_t BgL_auxz00_10445;
BgL_auxz00_10445 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13568L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3437); 
FAILURE(BgL_auxz00_10445,BFALSE,BFALSE);} 
BgL_auxz00_10440 = 
(long)CINT(BgL_tmpz00_10442); } 
if(
INPUT_PORTP(BgL_ipz00_42))
{ /* Ieee/input.scm 344 */
BgL_tmpz00_10433 = BgL_ipz00_42
; }  else 
{ 
 obj_t BgL_auxz00_10436;
BgL_auxz00_10436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13561L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_42); 
FAILURE(BgL_auxz00_10436,BFALSE,BFALSE);} 
BgL_nz00_3447 = 
bgl_rgc_blit_string(BgL_tmpz00_10433, 
BSTRING_TO_STRING(BgL_sz00_3446), 0L, BgL_auxz00_10440); } 
{ /* Ieee/input.scm 344 */

if(
(BgL_nz00_3447==0L))
{ /* Ieee/input.scm 347 */
 bool_t BgL_test5231z00_10453;
{ /* Ieee/input.scm 347 */
 obj_t BgL_inputzd2portzd2_5441;
if(
INPUT_PORTP(BgL_ipz00_42))
{ /* Ieee/input.scm 347 */
BgL_inputzd2portzd2_5441 = BgL_ipz00_42; }  else 
{ 
 obj_t BgL_auxz00_10456;
BgL_auxz00_10456 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13624L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_42); 
FAILURE(BgL_auxz00_10456,BFALSE,BFALSE);} 
BgL_test5231z00_10453 = 
rgc_buffer_eof_p(BgL_inputzd2portzd2_5441); } 
if(BgL_test5231z00_10453)
{ /* Ieee/input.scm 347 */
return BEOF;}  else 
{ /* Ieee/input.scm 347 */
return BGl_string4493z00zz__r4_input_6_10_2z00;} }  else 
{ /* Ieee/input.scm 350 */
 bool_t BgL_test5233z00_10461;
{ /* Ieee/input.scm 350 */
 long BgL_n2z00_5443;
{ /* Ieee/input.scm 350 */
 obj_t BgL_tmpz00_10462;
if(
INTEGERP(BgL_lenz00_3437))
{ /* Ieee/input.scm 350 */
BgL_tmpz00_10462 = BgL_lenz00_3437
; }  else 
{ 
 obj_t BgL_auxz00_10465;
BgL_auxz00_10465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13662L), BGl_string4525z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3437); 
FAILURE(BgL_auxz00_10465,BFALSE,BFALSE);} 
BgL_n2z00_5443 = 
(long)CINT(BgL_tmpz00_10462); } 
BgL_test5233z00_10461 = 
(BgL_nz00_3447<BgL_n2z00_5443); } 
if(BgL_test5233z00_10461)
{ /* Ieee/input.scm 350 */
return 
bgl_string_shrink(BgL_sz00_3446, BgL_nz00_3447);}  else 
{ /* Ieee/input.scm 350 */
return BgL_sz00_3446;} } } } } } } } 

}



/* _read-chars! */
obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1291z00_49, obj_t BgL_opt1290z00_48)
{
{ /* Ieee/input.scm 358 */
{ /* Ieee/input.scm 358 */
 obj_t BgL_g1292z00_3455; obj_t BgL_g1293z00_3456;
{ 
 obj_t BgL_auxz00_10472;
if(
VECTORP(BgL_opt1290z00_48))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10472 = BgL_opt1290z00_48
; }  else 
{ 
 obj_t BgL_auxz00_10475;
BgL_auxz00_10475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4529z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1290z00_48); 
FAILURE(BgL_auxz00_10475,BFALSE,BFALSE);} 
BgL_g1292z00_3455 = 
VECTOR_REF(BgL_auxz00_10472,0L); } 
{ 
 obj_t BgL_auxz00_10480;
if(
VECTORP(BgL_opt1290z00_48))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10480 = BgL_opt1290z00_48
; }  else 
{ 
 obj_t BgL_auxz00_10483;
BgL_auxz00_10483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4529z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1290z00_48); 
FAILURE(BgL_auxz00_10483,BFALSE,BFALSE);} 
BgL_g1293z00_3456 = 
VECTOR_REF(BgL_auxz00_10480,1L); } 
{ 

{ /* Ieee/input.scm 358 */
 long BgL_aux1295z00_3458;
{ 
 obj_t BgL_auxz00_10488;
if(
VECTORP(BgL_opt1290z00_48))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10488 = BgL_opt1290z00_48
; }  else 
{ 
 obj_t BgL_auxz00_10491;
BgL_auxz00_10491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4529z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1290z00_48); 
FAILURE(BgL_auxz00_10491,BFALSE,BFALSE);} 
BgL_aux1295z00_3458 = 
VECTOR_LENGTH(BgL_auxz00_10488); } 
switch( BgL_aux1295z00_3458) { case 2L : 

{ /* Ieee/input.scm 358 */
 obj_t BgL_ipz00_3459;
{ /* Ieee/input.scm 358 */
 obj_t BgL_tmpz00_10496;
BgL_tmpz00_10496 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3459 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_10496); } 
{ /* Ieee/input.scm 358 */

{ /* Ieee/input.scm 358 */
 obj_t BgL_auxz00_10499;
if(
STRINGP(BgL_g1292z00_3455))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10499 = BgL_g1292z00_3455
; }  else 
{ 
 obj_t BgL_auxz00_10502;
BgL_auxz00_10502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4529z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1292z00_3455); 
FAILURE(BgL_auxz00_10502,BFALSE,BFALSE);} 
return 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10499, BgL_g1293z00_3456, BgL_ipz00_3459);} } } break;case 3L : 

{ /* Ieee/input.scm 358 */
 obj_t BgL_ipz00_3460;
{ 
 obj_t BgL_auxz00_10507;
if(
VECTORP(BgL_opt1290z00_48))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10507 = BgL_opt1290z00_48
; }  else 
{ 
 obj_t BgL_auxz00_10510;
BgL_auxz00_10510 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4529z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1290z00_48); 
FAILURE(BgL_auxz00_10510,BFALSE,BFALSE);} 
BgL_ipz00_3460 = 
VECTOR_REF(BgL_auxz00_10507,2L); } 
{ /* Ieee/input.scm 358 */

{ /* Ieee/input.scm 358 */
 obj_t BgL_auxz00_10515;
if(
STRINGP(BgL_g1292z00_3455))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10515 = BgL_g1292z00_3455
; }  else 
{ 
 obj_t BgL_auxz00_10518;
BgL_auxz00_10518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4529z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1292z00_3455); 
FAILURE(BgL_auxz00_10518,BFALSE,BFALSE);} 
return 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10515, BgL_g1293z00_3456, BgL_ipz00_3460);} } } break;
default: 
{ /* Ieee/input.scm 358 */
 long BgL_arg2582z00_3461;
{ 
 obj_t BgL_auxz00_10523;
if(
VECTORP(BgL_opt1290z00_48))
{ /* Ieee/input.scm 358 */
BgL_auxz00_10523 = BgL_opt1290z00_48
; }  else 
{ 
 obj_t BgL_auxz00_10526;
BgL_auxz00_10526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4530z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1290z00_48); 
FAILURE(BgL_auxz00_10526,BFALSE,BFALSE);} 
BgL_arg2582z00_3461 = 
VECTOR_LENGTH(BgL_auxz00_10523); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4531z00zz__r4_input_6_10_2z00, BGl_string4533z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2582z00_3461));} } } } } } 

}



/* read-chars! */
BGL_EXPORTED_DEF obj_t BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t BgL_bufz00_45, obj_t BgL_lz00_46, obj_t BgL_ipz00_47)
{
{ /* Ieee/input.scm 358 */
{ /* Ieee/input.scm 359 */
 obj_t BgL_lenz00_3462;
if(
INTEGERP(BgL_lz00_46))
{ /* Ieee/input.scm 360 */
BgL_lenz00_3462 = BgL_lz00_46; }  else 
{ /* Ieee/input.scm 360 */
if(
ELONGP(BgL_lz00_46))
{ /* Ieee/input.scm 361 */
 long BgL_xz00_5447;
BgL_xz00_5447 = 
BELONG_TO_LONG(BgL_lz00_46); 
BgL_lenz00_3462 = 
BINT(
(long)(BgL_xz00_5447)); }  else 
{ /* Ieee/input.scm 361 */
if(
LLONGP(BgL_lz00_46))
{ /* Ieee/input.scm 362 */
 BGL_LONGLONG_T BgL_xz00_5448;
BgL_xz00_5448 = 
BLLONG_TO_LLONG(BgL_lz00_46); 
BgL_lenz00_3462 = 
BINT(
LLONG_TO_LONG(BgL_xz00_5448)); }  else 
{ /* Ieee/input.scm 364 */
 obj_t BgL_arg2595z00_3478;
BgL_arg2595z00_3478 = 
bgl_find_runtime_type(BgL_lz00_46); 
BgL_lenz00_3462 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol4531z00zz__r4_input_6_10_2z00, BGl_string4527z00zz__r4_input_6_10_2z00, BgL_arg2595z00_3478); } } } 
{ /* Ieee/input.scm 365 */
 bool_t BgL_test5245z00_10548;
{ /* Ieee/input.scm 365 */
 long BgL_n1z00_5449;
{ /* Ieee/input.scm 365 */
 obj_t BgL_tmpz00_10549;
if(
INTEGERP(BgL_lenz00_3462))
{ /* Ieee/input.scm 365 */
BgL_tmpz00_10549 = BgL_lenz00_3462
; }  else 
{ 
 obj_t BgL_auxz00_10552;
BgL_auxz00_10552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14204L), BGl_string4532z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3462); 
FAILURE(BgL_auxz00_10552,BFALSE,BFALSE);} 
BgL_n1z00_5449 = 
(long)CINT(BgL_tmpz00_10549); } 
BgL_test5245z00_10548 = 
(BgL_n1z00_5449<=0L); } 
if(BgL_test5245z00_10548)
{ /* Ieee/input.scm 366 */
 bool_t BgL_test5247z00_10558;
{ /* Ieee/input.scm 366 */
 long BgL_n1z00_5450;
{ /* Ieee/input.scm 366 */
 obj_t BgL_tmpz00_10559;
if(
INTEGERP(BgL_lenz00_3462))
{ /* Ieee/input.scm 366 */
BgL_tmpz00_10559 = BgL_lenz00_3462
; }  else 
{ 
 obj_t BgL_auxz00_10562;
BgL_auxz00_10562 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14223L), BGl_string4532z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3462); 
FAILURE(BgL_auxz00_10562,BFALSE,BFALSE);} 
BgL_n1z00_5450 = 
(long)CINT(BgL_tmpz00_10559); } 
BgL_test5247z00_10558 = 
(BgL_n1z00_5450==0L); } 
if(BgL_test5247z00_10558)
{ /* Ieee/input.scm 366 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 369 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2585z00_3465;
{ /* Ieee/input.scm 369 */
 BgL_z62iozd2errorzb0_bglt BgL_new1124z00_3466;
{ /* Ieee/input.scm 369 */
 BgL_z62iozd2errorzb0_bglt BgL_new1123z00_3469;
BgL_new1123z00_3469 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 369 */
 long BgL_arg2589z00_3470;
BgL_arg2589z00_3470 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1123z00_3469), BgL_arg2589z00_3470); } 
BgL_new1124z00_3466 = BgL_new1123z00_3469; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1124z00_3466)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1124z00_3466)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10577;
{ /* Ieee/input.scm 369 */
 obj_t BgL_arg2586z00_3467;
{ /* Ieee/input.scm 369 */
 obj_t BgL_arg2588z00_3468;
{ /* Ieee/input.scm 369 */
 obj_t BgL_classz00_5454;
BgL_classz00_5454 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2588z00_3468 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5454); } 
BgL_arg2586z00_3467 = 
VECTOR_REF(BgL_arg2588z00_3468,2L); } 
{ /* Ieee/input.scm 369 */
 obj_t BgL_auxz00_10581;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2586z00_3467))
{ /* Ieee/input.scm 369 */
BgL_auxz00_10581 = BgL_arg2586z00_3467
; }  else 
{ 
 obj_t BgL_auxz00_10584;
BgL_auxz00_10584 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14256L), BGl_string4532z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2586z00_3467); 
FAILURE(BgL_auxz00_10584,BFALSE,BFALSE);} 
BgL_auxz00_10577 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10581); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1124z00_3466)))->BgL_stackz00)=((obj_t)BgL_auxz00_10577),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1124z00_3466)))->BgL_procz00)=((obj_t)BGl_symbol4524z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1124z00_3466)))->BgL_msgz00)=((obj_t)BGl_string4528z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1124z00_3466)))->BgL_objz00)=((obj_t)BgL_lenz00_3462),BUNSPEC); 
BgL_arg2585z00_3465 = BgL_new1124z00_3466; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2585z00_3465));} }  else 
{ /* Ieee/input.scm 373 */
 obj_t BgL_arg2590z00_3471;
{ /* Ieee/input.scm 373 */
 long BgL_az00_3472;
BgL_az00_3472 = 
STRING_LENGTH(BgL_bufz00_45); 
{ /* Ieee/input.scm 373 */
 bool_t BgL_test5250z00_10599;
{ /* Ieee/input.scm 373 */
 long BgL_n2z00_5458;
{ /* Ieee/input.scm 373 */
 obj_t BgL_tmpz00_10600;
if(
INTEGERP(BgL_lenz00_3462))
{ /* Ieee/input.scm 373 */
BgL_tmpz00_10600 = BgL_lenz00_3462
; }  else 
{ 
 obj_t BgL_auxz00_10603;
BgL_auxz00_10603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14393L), BGl_string4532z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_lenz00_3462); 
FAILURE(BgL_auxz00_10603,BFALSE,BFALSE);} 
BgL_n2z00_5458 = 
(long)CINT(BgL_tmpz00_10600); } 
BgL_test5250z00_10599 = 
(BgL_az00_3472<BgL_n2z00_5458); } 
if(BgL_test5250z00_10599)
{ /* Ieee/input.scm 373 */
BgL_arg2590z00_3471 = 
BINT(BgL_az00_3472); }  else 
{ /* Ieee/input.scm 373 */
BgL_arg2590z00_3471 = BgL_lenz00_3462; } } } 
{ /* Ieee/input.scm 373 */
 long BgL_tmpz00_10610;
{ /* Ieee/input.scm 373 */
 long BgL_auxz00_10618; obj_t BgL_tmpz00_10611;
{ /* Ieee/input.scm 373 */
 obj_t BgL_tmpz00_10620;
if(
INTEGERP(BgL_arg2590z00_3471))
{ /* Ieee/input.scm 373 */
BgL_tmpz00_10620 = BgL_arg2590z00_3471
; }  else 
{ 
 obj_t BgL_auxz00_10623;
BgL_auxz00_10623 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14423L), BGl_string4532z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_arg2590z00_3471); 
FAILURE(BgL_auxz00_10623,BFALSE,BFALSE);} 
BgL_auxz00_10618 = 
(long)CINT(BgL_tmpz00_10620); } 
if(
INPUT_PORTP(BgL_ipz00_47))
{ /* Ieee/input.scm 373 */
BgL_tmpz00_10611 = BgL_ipz00_47
; }  else 
{ 
 obj_t BgL_auxz00_10614;
BgL_auxz00_10614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14384L), BGl_string4532z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_47); 
FAILURE(BgL_auxz00_10614,BFALSE,BFALSE);} 
BgL_tmpz00_10610 = 
bgl_rgc_blit_string(BgL_tmpz00_10611, 
BSTRING_TO_STRING(BgL_bufz00_45), 0L, BgL_auxz00_10618); } 
return 
BINT(BgL_tmpz00_10610);} } } } } 

}



/* _read-fill-string! */
obj_t BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t BgL_env1297z00_55, obj_t BgL_opt1296z00_54)
{
{ /* Ieee/input.scm 378 */
{ /* Ieee/input.scm 378 */
 obj_t BgL_g1298z00_7118; obj_t BgL_g1299z00_7119; obj_t BgL_g1300z00_7120;
{ 
 obj_t BgL_auxz00_10630;
if(
VECTORP(BgL_opt1296z00_54))
{ /* Ieee/input.scm 378 */
BgL_auxz00_10630 = BgL_opt1296z00_54
; }  else 
{ 
 obj_t BgL_auxz00_10633;
BgL_auxz00_10633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1296z00_54); 
FAILURE(BgL_auxz00_10633,BFALSE,BFALSE);} 
BgL_g1298z00_7118 = 
VECTOR_REF(BgL_auxz00_10630,0L); } 
{ 
 obj_t BgL_auxz00_10638;
if(
VECTORP(BgL_opt1296z00_54))
{ /* Ieee/input.scm 378 */
BgL_auxz00_10638 = BgL_opt1296z00_54
; }  else 
{ 
 obj_t BgL_auxz00_10641;
BgL_auxz00_10641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1296z00_54); 
FAILURE(BgL_auxz00_10641,BFALSE,BFALSE);} 
BgL_g1299z00_7119 = 
VECTOR_REF(BgL_auxz00_10638,1L); } 
{ 
 obj_t BgL_auxz00_10646;
if(
VECTORP(BgL_opt1296z00_54))
{ /* Ieee/input.scm 378 */
BgL_auxz00_10646 = BgL_opt1296z00_54
; }  else 
{ 
 obj_t BgL_auxz00_10649;
BgL_auxz00_10649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1296z00_54); 
FAILURE(BgL_auxz00_10649,BFALSE,BFALSE);} 
BgL_g1300z00_7120 = 
VECTOR_REF(BgL_auxz00_10646,2L); } 
{ 

{ /* Ieee/input.scm 378 */
 long BgL_aux1302z00_7123;
{ 
 obj_t BgL_auxz00_10654;
if(
VECTORP(BgL_opt1296z00_54))
{ /* Ieee/input.scm 378 */
BgL_auxz00_10654 = BgL_opt1296z00_54
; }  else 
{ 
 obj_t BgL_auxz00_10657;
BgL_auxz00_10657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1296z00_54); 
FAILURE(BgL_auxz00_10657,BFALSE,BFALSE);} 
BgL_aux1302z00_7123 = 
VECTOR_LENGTH(BgL_auxz00_10654); } 
switch( BgL_aux1302z00_7123) { case 3L : 

{ /* Ieee/input.scm 378 */
 obj_t BgL_ipz00_7124;
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10662;
BgL_tmpz00_10662 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_7124 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_10662); } 
{ /* Ieee/input.scm 378 */

{ /* Ieee/input.scm 378 */
 obj_t BgL_sz00_7125; long BgL_oz00_7126; long BgL_lenz00_7127;
if(
STRINGP(BgL_g1298z00_7118))
{ /* Ieee/input.scm 378 */
BgL_sz00_7125 = BgL_g1298z00_7118; }  else 
{ 
 obj_t BgL_auxz00_10667;
BgL_auxz00_10667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1298z00_7118); 
FAILURE(BgL_auxz00_10667,BFALSE,BFALSE);} 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10671;
if(
INTEGERP(BgL_g1299z00_7119))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10671 = BgL_g1299z00_7119
; }  else 
{ 
 obj_t BgL_auxz00_10674;
BgL_auxz00_10674 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1299z00_7119); 
FAILURE(BgL_auxz00_10674,BFALSE,BFALSE);} 
BgL_oz00_7126 = 
(long)CINT(BgL_tmpz00_10671); } 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10679;
if(
INTEGERP(BgL_g1300z00_7120))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10679 = BgL_g1300z00_7120
; }  else 
{ 
 obj_t BgL_auxz00_10682;
BgL_auxz00_10682 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1300z00_7120); 
FAILURE(BgL_auxz00_10682,BFALSE,BFALSE);} 
BgL_lenz00_7127 = 
(long)CINT(BgL_tmpz00_10679); } 
if(
(BgL_lenz00_7127<=0L))
{ /* Ieee/input.scm 386 */
if(
(BgL_lenz00_7127==0L))
{ /* Ieee/input.scm 387 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2599z00_7128;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1128z00_7129;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1127z00_7130;
BgL_new1127z00_7130 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 390 */
 long BgL_arg2602z00_7131;
BgL_arg2602z00_7131 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1127z00_7130), BgL_arg2602z00_7131); } 
BgL_new1128z00_7129 = BgL_new1127z00_7130; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7129)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7129)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10700;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2600z00_7132;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2601z00_7133;
{ /* Ieee/input.scm 390 */
 obj_t BgL_classz00_7134;
BgL_classz00_7134 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2601z00_7133 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7134); } 
BgL_arg2600z00_7132 = 
VECTOR_REF(BgL_arg2601z00_7133,2L); } 
{ /* Ieee/input.scm 390 */
 obj_t BgL_auxz00_10704;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2600z00_7132))
{ /* Ieee/input.scm 390 */
BgL_auxz00_10704 = BgL_arg2600z00_7132
; }  else 
{ 
 obj_t BgL_auxz00_10707;
BgL_auxz00_10707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15052L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2600z00_7132); 
FAILURE(BgL_auxz00_10707,BFALSE,BFALSE);} 
BgL_auxz00_10700 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10704); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7129)))->BgL_stackz00)=((obj_t)BgL_auxz00_10700),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7129)))->BgL_procz00)=((obj_t)BGl_symbol4524z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7129)))->BgL_msgz00)=((obj_t)BGl_string4528z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7129)))->BgL_objz00)=((obj_t)
BINT(BgL_lenz00_7127)),BUNSPEC); 
BgL_arg2599z00_7128 = BgL_new1128z00_7129; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2599z00_7128));} }  else 
{ /* Ieee/input.scm 394 */
 long BgL_nz00_7135;
{ /* Ieee/input.scm 395 */
 long BgL_arg2605z00_7136;
{ /* Ieee/input.scm 395 */
 long BgL_bz00_7137;
BgL_bz00_7137 = 
(
STRING_LENGTH(BgL_sz00_7125)-BgL_oz00_7126); 
if(
(BgL_lenz00_7127<BgL_bz00_7137))
{ /* Ieee/input.scm 395 */
BgL_arg2605z00_7136 = BgL_lenz00_7127; }  else 
{ /* Ieee/input.scm 395 */
BgL_arg2605z00_7136 = BgL_bz00_7137; } } 
BgL_nz00_7135 = 
bgl_rgc_blit_string(BgL_ipz00_7124, 
BSTRING_TO_STRING(BgL_sz00_7125), BgL_oz00_7126, BgL_arg2605z00_7136); } 
{ /* Ieee/input.scm 396 */
 bool_t BgL_test5265z00_10728;
if(
(BgL_nz00_7135==0L))
{ /* Ieee/input.scm 396 */
BgL_test5265z00_10728 = 
rgc_buffer_eof_p(BgL_ipz00_7124)
; }  else 
{ /* Ieee/input.scm 396 */
BgL_test5265z00_10728 = ((bool_t)0)
; } 
if(BgL_test5265z00_10728)
{ /* Ieee/input.scm 396 */
return BEOF;}  else 
{ /* Ieee/input.scm 396 */
return 
BINT(BgL_nz00_7135);} } } } } } break;case 4L : 

{ /* Ieee/input.scm 378 */
 obj_t BgL_ipz00_7138;
{ 
 obj_t BgL_auxz00_10733;
if(
VECTORP(BgL_opt1296z00_54))
{ /* Ieee/input.scm 378 */
BgL_auxz00_10733 = BgL_opt1296z00_54
; }  else 
{ 
 obj_t BgL_auxz00_10736;
BgL_auxz00_10736 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1296z00_54); 
FAILURE(BgL_auxz00_10736,BFALSE,BFALSE);} 
BgL_ipz00_7138 = 
VECTOR_REF(BgL_auxz00_10733,3L); } 
{ /* Ieee/input.scm 378 */

{ /* Ieee/input.scm 378 */
 obj_t BgL_sz00_7139; long BgL_oz00_7140; long BgL_lenz00_7141;
if(
STRINGP(BgL_g1298z00_7118))
{ /* Ieee/input.scm 378 */
BgL_sz00_7139 = BgL_g1298z00_7118; }  else 
{ 
 obj_t BgL_auxz00_10743;
BgL_auxz00_10743 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1298z00_7118); 
FAILURE(BgL_auxz00_10743,BFALSE,BFALSE);} 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10747;
if(
INTEGERP(BgL_g1299z00_7119))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10747 = BgL_g1299z00_7119
; }  else 
{ 
 obj_t BgL_auxz00_10750;
BgL_auxz00_10750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1299z00_7119); 
FAILURE(BgL_auxz00_10750,BFALSE,BFALSE);} 
BgL_oz00_7140 = 
(long)CINT(BgL_tmpz00_10747); } 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10755;
if(
INTEGERP(BgL_g1300z00_7120))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10755 = BgL_g1300z00_7120
; }  else 
{ 
 obj_t BgL_auxz00_10758;
BgL_auxz00_10758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1300z00_7120); 
FAILURE(BgL_auxz00_10758,BFALSE,BFALSE);} 
BgL_lenz00_7141 = 
(long)CINT(BgL_tmpz00_10755); } 
if(
(BgL_lenz00_7141<=0L))
{ /* Ieee/input.scm 386 */
if(
(BgL_lenz00_7141==0L))
{ /* Ieee/input.scm 387 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2599z00_7142;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1128z00_7143;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1127z00_7144;
BgL_new1127z00_7144 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 390 */
 long BgL_arg2602z00_7145;
BgL_arg2602z00_7145 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1127z00_7144), BgL_arg2602z00_7145); } 
BgL_new1128z00_7143 = BgL_new1127z00_7144; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7143)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7143)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10776;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2600z00_7146;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2601z00_7147;
{ /* Ieee/input.scm 390 */
 obj_t BgL_classz00_7148;
BgL_classz00_7148 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2601z00_7147 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7148); } 
BgL_arg2600z00_7146 = 
VECTOR_REF(BgL_arg2601z00_7147,2L); } 
{ /* Ieee/input.scm 390 */
 obj_t BgL_auxz00_10780;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2600z00_7146))
{ /* Ieee/input.scm 390 */
BgL_auxz00_10780 = BgL_arg2600z00_7146
; }  else 
{ 
 obj_t BgL_auxz00_10783;
BgL_auxz00_10783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15052L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2600z00_7146); 
FAILURE(BgL_auxz00_10783,BFALSE,BFALSE);} 
BgL_auxz00_10776 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10780); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7143)))->BgL_stackz00)=((obj_t)BgL_auxz00_10776),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7143)))->BgL_procz00)=((obj_t)BGl_symbol4524z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7143)))->BgL_msgz00)=((obj_t)BGl_string4528z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7143)))->BgL_objz00)=((obj_t)
BINT(BgL_lenz00_7141)),BUNSPEC); 
BgL_arg2599z00_7142 = BgL_new1128z00_7143; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2599z00_7142));} }  else 
{ /* Ieee/input.scm 394 */
 long BgL_nz00_7149;
{ /* Ieee/input.scm 395 */
 long BgL_arg2605z00_7150;
{ /* Ieee/input.scm 395 */
 long BgL_bz00_7151;
BgL_bz00_7151 = 
(
STRING_LENGTH(BgL_sz00_7139)-BgL_oz00_7140); 
if(
(BgL_lenz00_7141<BgL_bz00_7151))
{ /* Ieee/input.scm 395 */
BgL_arg2605z00_7150 = BgL_lenz00_7141; }  else 
{ /* Ieee/input.scm 395 */
BgL_arg2605z00_7150 = BgL_bz00_7151; } } 
{ /* Ieee/input.scm 394 */
 obj_t BgL_tmpz00_10802;
if(
INPUT_PORTP(BgL_ipz00_7138))
{ /* Ieee/input.scm 394 */
BgL_tmpz00_10802 = BgL_ipz00_7138
; }  else 
{ 
 obj_t BgL_auxz00_10805;
BgL_auxz00_10805 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15193L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_7138); 
FAILURE(BgL_auxz00_10805,BFALSE,BFALSE);} 
BgL_nz00_7149 = 
bgl_rgc_blit_string(BgL_tmpz00_10802, 
BSTRING_TO_STRING(BgL_sz00_7139), BgL_oz00_7140, BgL_arg2605z00_7150); } } 
{ /* Ieee/input.scm 396 */
 bool_t BgL_test5276z00_10811;
if(
(BgL_nz00_7149==0L))
{ /* Ieee/input.scm 396 */
 obj_t BgL_tmpz00_10814;
if(
INPUT_PORTP(BgL_ipz00_7138))
{ /* Ieee/input.scm 396 */
BgL_tmpz00_10814 = BgL_ipz00_7138
; }  else 
{ 
 obj_t BgL_auxz00_10817;
BgL_auxz00_10817 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15294L), BGl_string4534z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_7138); 
FAILURE(BgL_auxz00_10817,BFALSE,BFALSE);} 
BgL_test5276z00_10811 = 
rgc_buffer_eof_p(BgL_tmpz00_10814); }  else 
{ /* Ieee/input.scm 396 */
BgL_test5276z00_10811 = ((bool_t)0)
; } 
if(BgL_test5276z00_10811)
{ /* Ieee/input.scm 396 */
return BEOF;}  else 
{ /* Ieee/input.scm 396 */
return 
BINT(BgL_nz00_7149);} } } } } } break;
default: 
{ /* Ieee/input.scm 378 */
 long BgL_arg2596z00_7122;
{ 
 obj_t BgL_auxz00_10823;
if(
VECTORP(BgL_opt1296z00_54))
{ /* Ieee/input.scm 378 */
BgL_auxz00_10823 = BgL_opt1296z00_54
; }  else 
{ 
 obj_t BgL_auxz00_10826;
BgL_auxz00_10826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4535z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1296z00_54); 
FAILURE(BgL_auxz00_10826,BFALSE,BFALSE);} 
BgL_arg2596z00_7122 = 
VECTOR_LENGTH(BgL_auxz00_10823); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4536z00zz__r4_input_6_10_2z00, BGl_string4538z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2596z00_7122));} } } } } } 

}



/* read-fill-string! */
BGL_EXPORTED_DEF obj_t BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t BgL_sz00_50, long BgL_oz00_51, long BgL_lenz00_52, obj_t BgL_ipz00_53)
{
{ /* Ieee/input.scm 378 */
if(
(BgL_lenz00_52<=0L))
{ /* Ieee/input.scm 386 */
if(
(BgL_lenz00_52==0L))
{ /* Ieee/input.scm 387 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2599z00_7152;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1128z00_7153;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1127z00_7154;
BgL_new1127z00_7154 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 390 */
 long BgL_arg2602z00_7155;
BgL_arg2602z00_7155 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1127z00_7154), BgL_arg2602z00_7155); } 
BgL_new1128z00_7153 = BgL_new1127z00_7154; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7153)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7153)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10847;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2600z00_7156;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2601z00_7157;
{ /* Ieee/input.scm 390 */
 obj_t BgL_classz00_7158;
BgL_classz00_7158 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2601z00_7157 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7158); } 
BgL_arg2600z00_7156 = 
VECTOR_REF(BgL_arg2601z00_7157,2L); } 
{ /* Ieee/input.scm 390 */
 obj_t BgL_auxz00_10851;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2600z00_7156))
{ /* Ieee/input.scm 390 */
BgL_auxz00_10851 = BgL_arg2600z00_7156
; }  else 
{ 
 obj_t BgL_auxz00_10854;
BgL_auxz00_10854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15052L), BGl_string4537z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2600z00_7156); 
FAILURE(BgL_auxz00_10854,BFALSE,BFALSE);} 
BgL_auxz00_10847 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10851); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_7153)))->BgL_stackz00)=((obj_t)BgL_auxz00_10847),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7153)))->BgL_procz00)=((obj_t)BGl_symbol4524z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7153)))->BgL_msgz00)=((obj_t)BGl_string4528z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_7153)))->BgL_objz00)=((obj_t)
BINT(BgL_lenz00_52)),BUNSPEC); 
BgL_arg2599z00_7152 = BgL_new1128z00_7153; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2599z00_7152));} }  else 
{ /* Ieee/input.scm 394 */
 long BgL_nz00_7159;
{ /* Ieee/input.scm 395 */
 long BgL_arg2605z00_7160;
{ /* Ieee/input.scm 395 */
 long BgL_bz00_7161;
BgL_bz00_7161 = 
(
STRING_LENGTH(BgL_sz00_50)-BgL_oz00_51); 
if(
(BgL_lenz00_52<BgL_bz00_7161))
{ /* Ieee/input.scm 395 */
BgL_arg2605z00_7160 = BgL_lenz00_52; }  else 
{ /* Ieee/input.scm 395 */
BgL_arg2605z00_7160 = BgL_bz00_7161; } } 
{ /* Ieee/input.scm 394 */
 obj_t BgL_tmpz00_10873;
if(
INPUT_PORTP(BgL_ipz00_53))
{ /* Ieee/input.scm 394 */
BgL_tmpz00_10873 = BgL_ipz00_53
; }  else 
{ 
 obj_t BgL_auxz00_10876;
BgL_auxz00_10876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15193L), BGl_string4537z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_53); 
FAILURE(BgL_auxz00_10876,BFALSE,BFALSE);} 
BgL_nz00_7159 = 
bgl_rgc_blit_string(BgL_tmpz00_10873, 
BSTRING_TO_STRING(BgL_sz00_50), BgL_oz00_51, BgL_arg2605z00_7160); } } 
{ /* Ieee/input.scm 396 */
 bool_t BgL_test5285z00_10882;
if(
(BgL_nz00_7159==0L))
{ /* Ieee/input.scm 396 */
 obj_t BgL_tmpz00_10885;
if(
INPUT_PORTP(BgL_ipz00_53))
{ /* Ieee/input.scm 396 */
BgL_tmpz00_10885 = BgL_ipz00_53
; }  else 
{ 
 obj_t BgL_auxz00_10888;
BgL_auxz00_10888 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15294L), BGl_string4537z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_53); 
FAILURE(BgL_auxz00_10888,BFALSE,BFALSE);} 
BgL_test5285z00_10882 = 
rgc_buffer_eof_p(BgL_tmpz00_10885); }  else 
{ /* Ieee/input.scm 396 */
BgL_test5285z00_10882 = ((bool_t)0)
; } 
if(BgL_test5285z00_10882)
{ /* Ieee/input.scm 396 */
return BEOF;}  else 
{ /* Ieee/input.scm 396 */
return 
BINT(BgL_nz00_7159);} } } } 

}



/* _unread-char! */
obj_t BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1304z00_59, obj_t BgL_opt1303z00_58)
{
{ /* Ieee/input.scm 401 */
{ /* Ieee/input.scm 401 */
 obj_t BgL_g1305z00_3504;
{ 
 obj_t BgL_auxz00_10894;
if(
VECTORP(BgL_opt1303z00_58))
{ /* Ieee/input.scm 401 */
BgL_auxz00_10894 = BgL_opt1303z00_58
; }  else 
{ 
 obj_t BgL_auxz00_10897;
BgL_auxz00_10897 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4539z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1303z00_58); 
FAILURE(BgL_auxz00_10897,BFALSE,BFALSE);} 
BgL_g1305z00_3504 = 
VECTOR_REF(BgL_auxz00_10894,0L); } 
{ 

{ /* Ieee/input.scm 401 */
 long BgL_aux1307z00_3506;
{ 
 obj_t BgL_auxz00_10902;
if(
VECTORP(BgL_opt1303z00_58))
{ /* Ieee/input.scm 401 */
BgL_auxz00_10902 = BgL_opt1303z00_58
; }  else 
{ 
 obj_t BgL_auxz00_10905;
BgL_auxz00_10905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4539z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1303z00_58); 
FAILURE(BgL_auxz00_10905,BFALSE,BFALSE);} 
BgL_aux1307z00_3506 = 
VECTOR_LENGTH(BgL_auxz00_10902); } 
switch( BgL_aux1307z00_3506) { case 1L : 

{ /* Ieee/input.scm 401 */
 obj_t BgL_ipz00_3507;
{ /* Ieee/input.scm 401 */
 obj_t BgL_tmpz00_10910;
BgL_tmpz00_10910 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3507 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_10910); } 
{ /* Ieee/input.scm 401 */

{ /* Ieee/input.scm 401 */
 unsigned char BgL_auxz00_10913;
{ /* Ieee/input.scm 401 */
 obj_t BgL_tmpz00_10914;
if(
CHARP(BgL_g1305z00_3504))
{ /* Ieee/input.scm 401 */
BgL_tmpz00_10914 = BgL_g1305z00_3504
; }  else 
{ 
 obj_t BgL_auxz00_10917;
BgL_auxz00_10917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4539z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_g1305z00_3504); 
FAILURE(BgL_auxz00_10917,BFALSE,BFALSE);} 
BgL_auxz00_10913 = 
CCHAR(BgL_tmpz00_10914); } 
return 
BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10913, BgL_ipz00_3507);} } } break;case 2L : 

{ /* Ieee/input.scm 401 */
 obj_t BgL_ipz00_3508;
{ 
 obj_t BgL_auxz00_10923;
if(
VECTORP(BgL_opt1303z00_58))
{ /* Ieee/input.scm 401 */
BgL_auxz00_10923 = BgL_opt1303z00_58
; }  else 
{ 
 obj_t BgL_auxz00_10926;
BgL_auxz00_10926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4539z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1303z00_58); 
FAILURE(BgL_auxz00_10926,BFALSE,BFALSE);} 
BgL_ipz00_3508 = 
VECTOR_REF(BgL_auxz00_10923,1L); } 
{ /* Ieee/input.scm 401 */

{ /* Ieee/input.scm 401 */
 unsigned char BgL_auxz00_10931;
{ /* Ieee/input.scm 401 */
 obj_t BgL_tmpz00_10932;
if(
CHARP(BgL_g1305z00_3504))
{ /* Ieee/input.scm 401 */
BgL_tmpz00_10932 = BgL_g1305z00_3504
; }  else 
{ 
 obj_t BgL_auxz00_10935;
BgL_auxz00_10935 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4539z00zz__r4_input_6_10_2z00, BGl_string4495z00zz__r4_input_6_10_2z00, BgL_g1305z00_3504); 
FAILURE(BgL_auxz00_10935,BFALSE,BFALSE);} 
BgL_auxz00_10931 = 
CCHAR(BgL_tmpz00_10932); } 
return 
BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10931, BgL_ipz00_3508);} } } break;
default: 
{ /* Ieee/input.scm 401 */
 long BgL_arg2608z00_3509;
{ 
 obj_t BgL_auxz00_10941;
if(
VECTORP(BgL_opt1303z00_58))
{ /* Ieee/input.scm 401 */
BgL_auxz00_10941 = BgL_opt1303z00_58
; }  else 
{ 
 obj_t BgL_auxz00_10944;
BgL_auxz00_10944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4540z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1303z00_58); 
FAILURE(BgL_auxz00_10944,BFALSE,BFALSE);} 
BgL_arg2608z00_3509 = 
VECTOR_LENGTH(BgL_auxz00_10941); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4541z00zz__r4_input_6_10_2z00, BGl_string4526z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2608z00_3509));} } } } } } 

}



/* unread-char! */
BGL_EXPORTED_DEF obj_t BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(unsigned char BgL_cz00_56, obj_t BgL_ipz00_57)
{
{ /* Ieee/input.scm 401 */
{ /* Ieee/input.scm 402 */
 bool_t BgL_test5294z00_10952;
{ /* Ieee/input.scm 402 */
 long BgL_arg2616z00_3518;
BgL_arg2616z00_3518 = 
(
(unsigned char)(BgL_cz00_56)); 
{ /* Ieee/input.scm 402 */
 obj_t BgL_inputzd2portzd2_5563;
if(
INPUT_PORTP(BgL_ipz00_57))
{ /* Ieee/input.scm 402 */
BgL_inputzd2portzd2_5563 = BgL_ipz00_57; }  else 
{ 
 obj_t BgL_auxz00_10957;
BgL_auxz00_10957 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15639L), BGl_string4542z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_57); 
FAILURE(BgL_auxz00_10957,BFALSE,BFALSE);} 
BgL_test5294z00_10952 = 
rgc_buffer_insert_char(BgL_inputzd2portzd2_5563, 
(int)(BgL_arg2616z00_3518)); } } 
if(BgL_test5294z00_10952)
{ /* Ieee/input.scm 402 */
return BFALSE;}  else 
{ /* Ieee/input.scm 404 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2611z00_3512;
{ /* Ieee/input.scm 404 */
 BgL_z62iozd2errorzb0_bglt BgL_new1131z00_3513;
{ /* Ieee/input.scm 404 */
 BgL_z62iozd2errorzb0_bglt BgL_new1130z00_3516;
BgL_new1130z00_3516 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 404 */
 long BgL_arg2615z00_3517;
BgL_arg2615z00_3517 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1130z00_3516), BgL_arg2615z00_3517); } 
BgL_new1131z00_3513 = BgL_new1130z00_3516; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1131z00_3513)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1131z00_3513)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10971;
{ /* Ieee/input.scm 404 */
 obj_t BgL_arg2612z00_3514;
{ /* Ieee/input.scm 404 */
 obj_t BgL_arg2614z00_3515;
{ /* Ieee/input.scm 404 */
 obj_t BgL_classz00_5568;
BgL_classz00_5568 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2614z00_3515 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5568); } 
BgL_arg2612z00_3514 = 
VECTOR_REF(BgL_arg2614z00_3515,2L); } 
{ /* Ieee/input.scm 404 */
 obj_t BgL_auxz00_10975;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2612z00_3514))
{ /* Ieee/input.scm 404 */
BgL_auxz00_10975 = BgL_arg2612z00_3514
; }  else 
{ 
 obj_t BgL_auxz00_10978;
BgL_auxz00_10978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15676L), BGl_string4542z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2612z00_3514); 
FAILURE(BgL_auxz00_10978,BFALSE,BFALSE);} 
BgL_auxz00_10971 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10975); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1131z00_3513)))->BgL_stackz00)=((obj_t)BgL_auxz00_10971),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1131z00_3513)))->BgL_procz00)=((obj_t)BGl_symbol4541z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1131z00_3513)))->BgL_msgz00)=((obj_t)BGl_string4543z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1131z00_3513)))->BgL_objz00)=((obj_t)
BCHAR(BgL_cz00_56)),BUNSPEC); 
BgL_arg2611z00_3512 = BgL_new1131z00_3513; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2611z00_3512));} } } 

}



/* _unread-string! */
obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1309z00_63, obj_t BgL_opt1308z00_62)
{
{ /* Ieee/input.scm 412 */
{ /* Ieee/input.scm 412 */
 obj_t BgL_g1310z00_3519;
{ 
 obj_t BgL_auxz00_10993;
if(
VECTORP(BgL_opt1308z00_62))
{ /* Ieee/input.scm 412 */
BgL_auxz00_10993 = BgL_opt1308z00_62
; }  else 
{ 
 obj_t BgL_auxz00_10996;
BgL_auxz00_10996 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4544z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1308z00_62); 
FAILURE(BgL_auxz00_10996,BFALSE,BFALSE);} 
BgL_g1310z00_3519 = 
VECTOR_REF(BgL_auxz00_10993,0L); } 
{ 

{ /* Ieee/input.scm 412 */
 long BgL_aux1312z00_3521;
{ 
 obj_t BgL_auxz00_11001;
if(
VECTORP(BgL_opt1308z00_62))
{ /* Ieee/input.scm 412 */
BgL_auxz00_11001 = BgL_opt1308z00_62
; }  else 
{ 
 obj_t BgL_auxz00_11004;
BgL_auxz00_11004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4544z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1308z00_62); 
FAILURE(BgL_auxz00_11004,BFALSE,BFALSE);} 
BgL_aux1312z00_3521 = 
VECTOR_LENGTH(BgL_auxz00_11001); } 
switch( BgL_aux1312z00_3521) { case 1L : 

{ /* Ieee/input.scm 412 */
 obj_t BgL_ipz00_3522;
{ /* Ieee/input.scm 412 */
 obj_t BgL_tmpz00_11009;
BgL_tmpz00_11009 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3522 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_11009); } 
{ /* Ieee/input.scm 412 */

{ /* Ieee/input.scm 412 */
 obj_t BgL_auxz00_11012;
if(
STRINGP(BgL_g1310z00_3519))
{ /* Ieee/input.scm 412 */
BgL_auxz00_11012 = BgL_g1310z00_3519
; }  else 
{ 
 obj_t BgL_auxz00_11015;
BgL_auxz00_11015 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4544z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1310z00_3519); 
FAILURE(BgL_auxz00_11015,BFALSE,BFALSE);} 
return 
BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_11012, BgL_ipz00_3522);} } } break;case 2L : 

{ /* Ieee/input.scm 412 */
 obj_t BgL_ipz00_3523;
{ 
 obj_t BgL_auxz00_11020;
if(
VECTORP(BgL_opt1308z00_62))
{ /* Ieee/input.scm 412 */
BgL_auxz00_11020 = BgL_opt1308z00_62
; }  else 
{ 
 obj_t BgL_auxz00_11023;
BgL_auxz00_11023 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4544z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1308z00_62); 
FAILURE(BgL_auxz00_11023,BFALSE,BFALSE);} 
BgL_ipz00_3523 = 
VECTOR_REF(BgL_auxz00_11020,1L); } 
{ /* Ieee/input.scm 412 */

{ /* Ieee/input.scm 412 */
 obj_t BgL_auxz00_11028;
if(
STRINGP(BgL_g1310z00_3519))
{ /* Ieee/input.scm 412 */
BgL_auxz00_11028 = BgL_g1310z00_3519
; }  else 
{ 
 obj_t BgL_auxz00_11031;
BgL_auxz00_11031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4544z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1310z00_3519); 
FAILURE(BgL_auxz00_11031,BFALSE,BFALSE);} 
return 
BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_11028, BgL_ipz00_3523);} } } break;
default: 
{ /* Ieee/input.scm 412 */
 long BgL_arg2617z00_3524;
{ 
 obj_t BgL_auxz00_11036;
if(
VECTORP(BgL_opt1308z00_62))
{ /* Ieee/input.scm 412 */
BgL_auxz00_11036 = BgL_opt1308z00_62
; }  else 
{ 
 obj_t BgL_auxz00_11039;
BgL_auxz00_11039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4545z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1308z00_62); 
FAILURE(BgL_auxz00_11039,BFALSE,BFALSE);} 
BgL_arg2617z00_3524 = 
VECTOR_LENGTH(BgL_auxz00_11036); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4546z00zz__r4_input_6_10_2z00, BGl_string4526z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2617z00_3524));} } } } } } 

}



/* unread-string! */
BGL_EXPORTED_DEF obj_t BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_strz00_60, obj_t BgL_ipz00_61)
{
{ /* Ieee/input.scm 412 */
{ /* Ieee/input.scm 413 */
 bool_t BgL_test5303z00_11047;
{ /* Ieee/input.scm 413 */
 long BgL_arg2625z00_3533;
BgL_arg2625z00_3533 = 
STRING_LENGTH(BgL_strz00_60); 
{ /* Ieee/input.scm 413 */
 obj_t BgL_inputzd2portzd2_5572;
if(
INPUT_PORTP(BgL_ipz00_61))
{ /* Ieee/input.scm 413 */
BgL_inputzd2portzd2_5572 = BgL_ipz00_61; }  else 
{ 
 obj_t BgL_auxz00_11051;
BgL_auxz00_11051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16117L), BGl_string4547z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_61); 
FAILURE(BgL_auxz00_11051,BFALSE,BFALSE);} 
BgL_test5303z00_11047 = 
rgc_buffer_insert_substring(BgL_inputzd2portzd2_5572, BgL_strz00_60, 0L, BgL_arg2625z00_3533); } } 
if(BgL_test5303z00_11047)
{ /* Ieee/input.scm 413 */
return BFALSE;}  else 
{ /* Ieee/input.scm 415 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2621z00_3527;
{ /* Ieee/input.scm 415 */
 BgL_z62iozd2errorzb0_bglt BgL_new1135z00_3528;
{ /* Ieee/input.scm 415 */
 BgL_z62iozd2errorzb0_bglt BgL_new1133z00_3531;
BgL_new1133z00_3531 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 415 */
 long BgL_arg2624z00_3532;
BgL_arg2624z00_3532 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1133z00_3531), BgL_arg2624z00_3532); } 
BgL_new1135z00_3528 = BgL_new1133z00_3531; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1135z00_3528)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1135z00_3528)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11064;
{ /* Ieee/input.scm 415 */
 obj_t BgL_arg2622z00_3529;
{ /* Ieee/input.scm 415 */
 obj_t BgL_arg2623z00_3530;
{ /* Ieee/input.scm 415 */
 obj_t BgL_classz00_5578;
BgL_classz00_5578 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2623z00_3530 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5578); } 
BgL_arg2622z00_3529 = 
VECTOR_REF(BgL_arg2623z00_3530,2L); } 
{ /* Ieee/input.scm 415 */
 obj_t BgL_auxz00_11068;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2622z00_3529))
{ /* Ieee/input.scm 415 */
BgL_auxz00_11068 = BgL_arg2622z00_3529
; }  else 
{ 
 obj_t BgL_auxz00_11071;
BgL_auxz00_11071 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16168L), BGl_string4547z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2622z00_3529); 
FAILURE(BgL_auxz00_11071,BFALSE,BFALSE);} 
BgL_auxz00_11064 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_11068); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1135z00_3528)))->BgL_stackz00)=((obj_t)BgL_auxz00_11064),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1135z00_3528)))->BgL_procz00)=((obj_t)BGl_symbol4546z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1135z00_3528)))->BgL_msgz00)=((obj_t)BGl_string4548z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1135z00_3528)))->BgL_objz00)=((obj_t)BgL_strz00_60),BUNSPEC); 
BgL_arg2621z00_3527 = BgL_new1135z00_3528; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2621z00_3527));} } } 

}



/* _unread-substring! */
obj_t BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1314z00_69, obj_t BgL_opt1313z00_68)
{
{ /* Ieee/input.scm 423 */
{ /* Ieee/input.scm 423 */
 obj_t BgL_g1315z00_3534; obj_t BgL_g1316z00_3535; obj_t BgL_g1317z00_3536;
{ 
 obj_t BgL_auxz00_11085;
if(
VECTORP(BgL_opt1313z00_68))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11085 = BgL_opt1313z00_68
; }  else 
{ 
 obj_t BgL_auxz00_11088;
BgL_auxz00_11088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1313z00_68); 
FAILURE(BgL_auxz00_11088,BFALSE,BFALSE);} 
BgL_g1315z00_3534 = 
VECTOR_REF(BgL_auxz00_11085,0L); } 
{ 
 obj_t BgL_auxz00_11093;
if(
VECTORP(BgL_opt1313z00_68))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11093 = BgL_opt1313z00_68
; }  else 
{ 
 obj_t BgL_auxz00_11096;
BgL_auxz00_11096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1313z00_68); 
FAILURE(BgL_auxz00_11096,BFALSE,BFALSE);} 
BgL_g1316z00_3535 = 
VECTOR_REF(BgL_auxz00_11093,1L); } 
{ 
 obj_t BgL_auxz00_11101;
if(
VECTORP(BgL_opt1313z00_68))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11101 = BgL_opt1313z00_68
; }  else 
{ 
 obj_t BgL_auxz00_11104;
BgL_auxz00_11104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1313z00_68); 
FAILURE(BgL_auxz00_11104,BFALSE,BFALSE);} 
BgL_g1317z00_3536 = 
VECTOR_REF(BgL_auxz00_11101,2L); } 
{ 

{ /* Ieee/input.scm 423 */
 long BgL_aux1319z00_3538;
{ 
 obj_t BgL_auxz00_11109;
if(
VECTORP(BgL_opt1313z00_68))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11109 = BgL_opt1313z00_68
; }  else 
{ 
 obj_t BgL_auxz00_11112;
BgL_auxz00_11112 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1313z00_68); 
FAILURE(BgL_auxz00_11112,BFALSE,BFALSE);} 
BgL_aux1319z00_3538 = 
VECTOR_LENGTH(BgL_auxz00_11109); } 
switch( BgL_aux1319z00_3538) { case 3L : 

{ /* Ieee/input.scm 424 */
 obj_t BgL_ipz00_3539;
{ /* Ieee/input.scm 424 */
 obj_t BgL_tmpz00_11117;
BgL_tmpz00_11117 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_ipz00_3539 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_11117); } 
{ /* Ieee/input.scm 423 */

{ /* Ieee/input.scm 423 */
 long BgL_auxz00_11136; long BgL_auxz00_11127; obj_t BgL_auxz00_11120;
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_11137;
if(
INTEGERP(BgL_g1317z00_3536))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_11137 = BgL_g1317z00_3536
; }  else 
{ 
 obj_t BgL_auxz00_11140;
BgL_auxz00_11140 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1317z00_3536); 
FAILURE(BgL_auxz00_11140,BFALSE,BFALSE);} 
BgL_auxz00_11136 = 
(long)CINT(BgL_tmpz00_11137); } 
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_11128;
if(
INTEGERP(BgL_g1316z00_3535))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_11128 = BgL_g1316z00_3535
; }  else 
{ 
 obj_t BgL_auxz00_11131;
BgL_auxz00_11131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1316z00_3535); 
FAILURE(BgL_auxz00_11131,BFALSE,BFALSE);} 
BgL_auxz00_11127 = 
(long)CINT(BgL_tmpz00_11128); } 
if(
STRINGP(BgL_g1315z00_3534))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11120 = BgL_g1315z00_3534
; }  else 
{ 
 obj_t BgL_auxz00_11123;
BgL_auxz00_11123 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1315z00_3534); 
FAILURE(BgL_auxz00_11123,BFALSE,BFALSE);} 
return 
BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_11120, BgL_auxz00_11127, BgL_auxz00_11136, BgL_ipz00_3539);} } } break;case 4L : 

{ /* Ieee/input.scm 423 */
 obj_t BgL_ipz00_3540;
{ 
 obj_t BgL_auxz00_11146;
if(
VECTORP(BgL_opt1313z00_68))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11146 = BgL_opt1313z00_68
; }  else 
{ 
 obj_t BgL_auxz00_11149;
BgL_auxz00_11149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1313z00_68); 
FAILURE(BgL_auxz00_11149,BFALSE,BFALSE);} 
BgL_ipz00_3540 = 
VECTOR_REF(BgL_auxz00_11146,3L); } 
{ /* Ieee/input.scm 423 */

{ /* Ieee/input.scm 423 */
 long BgL_auxz00_11170; long BgL_auxz00_11161; obj_t BgL_auxz00_11154;
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_11171;
if(
INTEGERP(BgL_g1317z00_3536))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_11171 = BgL_g1317z00_3536
; }  else 
{ 
 obj_t BgL_auxz00_11174;
BgL_auxz00_11174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1317z00_3536); 
FAILURE(BgL_auxz00_11174,BFALSE,BFALSE);} 
BgL_auxz00_11170 = 
(long)CINT(BgL_tmpz00_11171); } 
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_11162;
if(
INTEGERP(BgL_g1316z00_3535))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_11162 = BgL_g1316z00_3535
; }  else 
{ 
 obj_t BgL_auxz00_11165;
BgL_auxz00_11165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_g1316z00_3535); 
FAILURE(BgL_auxz00_11165,BFALSE,BFALSE);} 
BgL_auxz00_11161 = 
(long)CINT(BgL_tmpz00_11162); } 
if(
STRINGP(BgL_g1315z00_3534))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11154 = BgL_g1315z00_3534
; }  else 
{ 
 obj_t BgL_auxz00_11157;
BgL_auxz00_11157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4549z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_g1315z00_3534); 
FAILURE(BgL_auxz00_11157,BFALSE,BFALSE);} 
return 
BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_11154, BgL_auxz00_11161, BgL_auxz00_11170, BgL_ipz00_3540);} } } break;
default: 
{ /* Ieee/input.scm 423 */
 long BgL_arg2626z00_3541;
{ 
 obj_t BgL_auxz00_11180;
if(
VECTORP(BgL_opt1313z00_68))
{ /* Ieee/input.scm 423 */
BgL_auxz00_11180 = BgL_opt1313z00_68
; }  else 
{ 
 obj_t BgL_auxz00_11183;
BgL_auxz00_11183 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4550z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1313z00_68); 
FAILURE(BgL_auxz00_11183,BFALSE,BFALSE);} 
BgL_arg2626z00_3541 = 
VECTOR_LENGTH(BgL_auxz00_11180); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4551z00zz__r4_input_6_10_2z00, BGl_string4538z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2626z00_3541));} } } } } } 

}



/* unread-substring! */
BGL_EXPORTED_DEF obj_t BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_strz00_64, long BgL_fromz00_65, long BgL_toz00_66, obj_t BgL_ipz00_67)
{
{ /* Ieee/input.scm 423 */
{ /* Ieee/input.scm 425 */
 bool_t BgL_test5318z00_11191;
if(
(BgL_toz00_66>=BgL_fromz00_65))
{ /* Ieee/input.scm 425 */
if(
(BgL_fromz00_65<0L))
{ /* Ieee/input.scm 426 */
BgL_test5318z00_11191 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 426 */
BgL_test5318z00_11191 = 
(BgL_toz00_66>
STRING_LENGTH(BgL_strz00_64))
; } }  else 
{ /* Ieee/input.scm 425 */
BgL_test5318z00_11191 = ((bool_t)1)
; } 
if(BgL_test5318z00_11191)
{ /* Ieee/input.scm 428 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2631z00_3546;
{ /* Ieee/input.scm 428 */
 BgL_z62iozd2errorzb0_bglt BgL_new1138z00_3547;
{ /* Ieee/input.scm 428 */
 BgL_z62iozd2errorzb0_bglt BgL_new1137z00_3554;
BgL_new1137z00_3554 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 428 */
 long BgL_arg2641z00_3555;
BgL_arg2641z00_3555 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1137z00_3554), BgL_arg2641z00_3555); } 
BgL_new1138z00_3547 = BgL_new1137z00_3554; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1138z00_3547)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1138z00_3547)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11206;
{ /* Ieee/input.scm 428 */
 obj_t BgL_arg2632z00_3548;
{ /* Ieee/input.scm 428 */
 obj_t BgL_arg2634z00_3549;
{ /* Ieee/input.scm 428 */
 obj_t BgL_classz00_5590;
BgL_classz00_5590 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2634z00_3549 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5590); } 
BgL_arg2632z00_3548 = 
VECTOR_REF(BgL_arg2634z00_3549,2L); } 
{ /* Ieee/input.scm 428 */
 obj_t BgL_auxz00_11210;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2632z00_3548))
{ /* Ieee/input.scm 428 */
BgL_auxz00_11210 = BgL_arg2632z00_3548
; }  else 
{ 
 obj_t BgL_auxz00_11213;
BgL_auxz00_11213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16684L), BGl_string4552z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2632z00_3548); 
FAILURE(BgL_auxz00_11213,BFALSE,BFALSE);} 
BgL_auxz00_11206 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_11210); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1138z00_3547)))->BgL_stackz00)=((obj_t)BgL_auxz00_11206),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1138z00_3547)))->BgL_procz00)=((obj_t)BGl_symbol4551z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1138z00_3547)))->BgL_msgz00)=((obj_t)BGl_string4553z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11223;
{ /* Ieee/input.scm 431 */
 long BgL_arg2636z00_3550;
BgL_arg2636z00_3550 = 
STRING_LENGTH(BgL_strz00_64); 
{ /* Ieee/input.scm 431 */
 obj_t BgL_list2637z00_3551;
{ /* Ieee/input.scm 431 */
 obj_t BgL_arg2638z00_3552;
{ /* Ieee/input.scm 431 */
 obj_t BgL_arg2640z00_3553;
BgL_arg2640z00_3553 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2636z00_3550), BNIL); 
BgL_arg2638z00_3552 = 
MAKE_YOUNG_PAIR(
BINT(BgL_toz00_66), BgL_arg2640z00_3553); } 
BgL_list2637z00_3551 = 
MAKE_YOUNG_PAIR(
BINT(BgL_fromz00_65), BgL_arg2638z00_3552); } 
BgL_auxz00_11223 = BgL_list2637z00_3551; } } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1138z00_3547)))->BgL_objz00)=((obj_t)BgL_auxz00_11223),BUNSPEC); } 
BgL_arg2631z00_3546 = BgL_new1138z00_3547; } 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2631z00_3546)); }  else 
{ /* Ieee/input.scm 425 */BFALSE; } } 
{ /* Ieee/input.scm 432 */
 bool_t BgL_test5322z00_11235;
{ /* Ieee/input.scm 432 */
 obj_t BgL_inputzd2portzd2_5594;
if(
INPUT_PORTP(BgL_ipz00_67))
{ /* Ieee/input.scm 432 */
BgL_inputzd2portzd2_5594 = BgL_ipz00_67; }  else 
{ 
 obj_t BgL_auxz00_11238;
BgL_auxz00_11238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16866L), BGl_string4552z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_67); 
FAILURE(BgL_auxz00_11238,BFALSE,BFALSE);} 
BgL_test5322z00_11235 = 
rgc_buffer_insert_substring(BgL_inputzd2portzd2_5594, BgL_strz00_64, BgL_fromz00_65, BgL_toz00_66); } 
if(BgL_test5322z00_11235)
{ /* Ieee/input.scm 432 */
return BFALSE;}  else 
{ /* Ieee/input.scm 433 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2644z00_3560;
{ /* Ieee/input.scm 433 */
 BgL_z62iozd2errorzb0_bglt BgL_new1140z00_3561;
{ /* Ieee/input.scm 433 */
 BgL_z62iozd2errorzb0_bglt BgL_new1139z00_3564;
BgL_new1139z00_3564 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 433 */
 long BgL_arg2648z00_3565;
BgL_arg2648z00_3565 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1139z00_3564), BgL_arg2648z00_3565); } 
BgL_new1140z00_3561 = BgL_new1139z00_3564; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1140z00_3561)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1140z00_3561)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11251;
{ /* Ieee/input.scm 433 */
 obj_t BgL_arg2645z00_3562;
{ /* Ieee/input.scm 433 */
 obj_t BgL_arg2647z00_3563;
{ /* Ieee/input.scm 433 */
 obj_t BgL_classz00_5601;
BgL_classz00_5601 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2647z00_3563 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5601); } 
BgL_arg2645z00_3562 = 
VECTOR_REF(BgL_arg2647z00_3563,2L); } 
{ /* Ieee/input.scm 433 */
 obj_t BgL_auxz00_11255;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2645z00_3562))
{ /* Ieee/input.scm 433 */
BgL_auxz00_11255 = BgL_arg2645z00_3562
; }  else 
{ 
 obj_t BgL_auxz00_11258;
BgL_auxz00_11258 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(16896L), BGl_string4552z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2645z00_3562); 
FAILURE(BgL_auxz00_11258,BFALSE,BFALSE);} 
BgL_auxz00_11251 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_11255); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1140z00_3561)))->BgL_stackz00)=((obj_t)BgL_auxz00_11251),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1140z00_3561)))->BgL_procz00)=((obj_t)BGl_symbol4554z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1140z00_3561)))->BgL_msgz00)=((obj_t)BGl_string4548z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1140z00_3561)))->BgL_objz00)=((obj_t)BgL_strz00_64),BUNSPEC); 
BgL_arg2644z00_3560 = BgL_new1140z00_3561; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2644z00_3560));} } } 

}



/* port->string-list */
BGL_EXPORTED_DEF obj_t BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(obj_t BgL_ipz00_70)
{
{ /* Ieee/input.scm 441 */
{ 
 obj_t BgL_resz00_3568;
BgL_resz00_3568 = BNIL; 
BgL_zc3z04anonymousza32649ze3z87_3569:
{ /* Ieee/input.scm 443 */
 obj_t BgL_expz00_3570;
BgL_expz00_3570 = 
BGl_z62zc3z04anonymousza31400ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_70); 
if(
EOF_OBJECTP(BgL_expz00_3570))
{ /* Ieee/input.scm 444 */
return 
bgl_reverse_bang(BgL_resz00_3568);}  else 
{ /* Ieee/input.scm 446 */
 obj_t BgL_arg2651z00_3572;
BgL_arg2651z00_3572 = 
MAKE_YOUNG_PAIR(BgL_expz00_3570, BgL_resz00_3568); 
{ 
 obj_t BgL_resz00_11280;
BgL_resz00_11280 = BgL_arg2651z00_3572; 
BgL_resz00_3568 = BgL_resz00_11280; 
goto BgL_zc3z04anonymousza32649ze3z87_3569;} } } } } 

}



/* &port->string-list */
obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t BgL_envz00_6026, obj_t BgL_ipz00_6027)
{
{ /* Ieee/input.scm 441 */
{ /* Ieee/input.scm 443 */
 obj_t BgL_auxz00_11281;
if(
INPUT_PORTP(BgL_ipz00_6027))
{ /* Ieee/input.scm 443 */
BgL_auxz00_11281 = BgL_ipz00_6027
; }  else 
{ 
 obj_t BgL_auxz00_11284;
BgL_auxz00_11284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(17279L), BGl_string4556z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_6027); 
FAILURE(BgL_auxz00_11284,BFALSE,BFALSE);} 
return 
BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(BgL_auxz00_11281);} } 

}



/* %sendchars */
int BGl_z52sendcharsz52zz__r4_input_6_10_2z00(obj_t BgL_ipz00_71, obj_t BgL_opz00_72, long BgL_sza7za7_73, long BgL_offsetz00_74)
{
{ /* Ieee/input.scm 455 */
if(
(BgL_offsetz00_74>=0L))
{ /* Ieee/input.scm 456 */
BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(BgL_ipz00_71, BgL_offsetz00_74); }  else 
{ /* Ieee/input.scm 456 */BFALSE; } 
{ /* Ieee/input.scm 457 */
 long BgL_bufsiza7eza7_3575;
if(
(BgL_sza7za7_73==(-1L)))
{ /* Ieee/input.scm 458 */
BgL_bufsiza7eza7_3575 = 
BGL_INPUT_PORT_BUFSIZ(BgL_ipz00_71); }  else 
{ /* Ieee/input.scm 458 */
if(
(default_io_bufsiz<BgL_sza7za7_73))
{ /* Ieee/input.scm 460 */
BgL_bufsiza7eza7_3575 = default_io_bufsiz; }  else 
{ /* Ieee/input.scm 460 */
BgL_bufsiza7eza7_3575 = BgL_sza7za7_73; } } 
{ /* Ieee/input.scm 457 */
 obj_t BgL_bufz00_3576;
{ /* Ieee/string.scm 172 */

BgL_bufz00_3576 = 
make_string(BgL_bufsiza7eza7_3575, ((unsigned char)' ')); } 
{ /* Ieee/input.scm 466 */

if(
(BgL_sza7za7_73<0L))
{ 
 long BgL_charszd2readzd2_3581;
{ /* Ieee/input.scm 468 */
 long BgL_tmpz00_11300;
BgL_charszd2readzd2_3581 = 0L; 
BgL_zc3z04anonymousza32654ze3z87_3582:
{ /* Ieee/input.scm 469 */
 obj_t BgL_nz00_3583;
BgL_nz00_3583 = 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_bufz00_3576, 
BINT(BgL_bufsiza7eza7_3575), BgL_ipz00_71); 
{ /* Ieee/input.scm 470 */
 bool_t BgL_test5331z00_11303;
{ /* Ieee/input.scm 470 */
 long BgL_n1z00_5609;
{ /* Ieee/input.scm 470 */
 obj_t BgL_tmpz00_11304;
if(
INTEGERP(BgL_nz00_3583))
{ /* Ieee/input.scm 470 */
BgL_tmpz00_11304 = BgL_nz00_3583
; }  else 
{ 
 obj_t BgL_auxz00_11307;
BgL_auxz00_11307 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18414L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3583); 
FAILURE(BgL_auxz00_11307,BFALSE,BFALSE);} 
BgL_n1z00_5609 = 
(long)CINT(BgL_tmpz00_11304); } 
BgL_test5331z00_11303 = 
(BgL_n1z00_5609==0L); } 
if(BgL_test5331z00_11303)
{ /* Ieee/input.scm 470 */
bgl_flush_output_port(BgL_opz00_72); 
BgL_tmpz00_11300 = BgL_charszd2readzd2_3581; }  else 
{ /* Ieee/input.scm 474 */
 obj_t BgL_sz00_3585;
{ /* Ieee/input.scm 474 */
 bool_t BgL_test5333z00_11314;
{ /* Ieee/input.scm 474 */
 long BgL_n1z00_5611;
{ /* Ieee/input.scm 474 */
 obj_t BgL_tmpz00_11315;
if(
INTEGERP(BgL_nz00_3583))
{ /* Ieee/input.scm 474 */
BgL_tmpz00_11315 = BgL_nz00_3583
; }  else 
{ 
 obj_t BgL_auxz00_11318;
BgL_auxz00_11318 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18509L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3583); 
FAILURE(BgL_auxz00_11318,BFALSE,BFALSE);} 
BgL_n1z00_5611 = 
(long)CINT(BgL_tmpz00_11315); } 
BgL_test5333z00_11314 = 
(BgL_n1z00_5611<BgL_bufsiza7eza7_3575); } 
if(BgL_test5333z00_11314)
{ /* Ieee/input.scm 474 */
 long BgL_auxz00_11324;
{ /* Ieee/input.scm 474 */
 obj_t BgL_tmpz00_11325;
if(
INTEGERP(BgL_nz00_3583))
{ /* Ieee/input.scm 474 */
BgL_tmpz00_11325 = BgL_nz00_3583
; }  else 
{ 
 obj_t BgL_auxz00_11328;
BgL_auxz00_11328 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18520L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3583); 
FAILURE(BgL_auxz00_11328,BFALSE,BFALSE);} 
BgL_auxz00_11324 = 
(long)CINT(BgL_tmpz00_11325); } 
BgL_sz00_3585 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_bufz00_3576, 0L, BgL_auxz00_11324); }  else 
{ /* Ieee/input.scm 474 */
BgL_sz00_3585 = BgL_bufz00_3576; } } 
bgl_display_obj(BgL_sz00_3585, BgL_opz00_72); 
{ /* Ieee/input.scm 476 */
 long BgL_arg2659z00_3586;
{ /* Ieee/input.scm 476 */
 long BgL_za72za7_5614;
{ /* Ieee/input.scm 476 */
 obj_t BgL_tmpz00_11335;
if(
INTEGERP(BgL_nz00_3583))
{ /* Ieee/input.scm 476 */
BgL_tmpz00_11335 = BgL_nz00_3583
; }  else 
{ 
 obj_t BgL_auxz00_11338;
BgL_auxz00_11338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18602L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3583); 
FAILURE(BgL_auxz00_11338,BFALSE,BFALSE);} 
BgL_za72za7_5614 = 
(long)CINT(BgL_tmpz00_11335); } 
BgL_arg2659z00_3586 = 
(BgL_charszd2readzd2_3581+BgL_za72za7_5614); } 
{ 
 long BgL_charszd2readzd2_11344;
BgL_charszd2readzd2_11344 = BgL_arg2659z00_3586; 
BgL_charszd2readzd2_3581 = BgL_charszd2readzd2_11344; 
goto BgL_zc3z04anonymousza32654ze3z87_3582;} } } } } 
return 
(int)(BgL_tmpz00_11300);} }  else 
{ 
 long BgL_charszd2readzd2_3590; long BgL_charszd2tozd2readz00_3591; long BgL_sza7za7_3592;
{ /* Ieee/input.scm 477 */
 long BgL_tmpz00_11346;
BgL_charszd2readzd2_3590 = 0L; 
BgL_charszd2tozd2readz00_3591 = BgL_bufsiza7eza7_3575; 
BgL_sza7za7_3592 = BgL_sza7za7_73; 
BgL_zc3z04anonymousza32661ze3z87_3593:
if(
(BgL_charszd2tozd2readz00_3591==0L))
{ /* Ieee/input.scm 480 */
BgL_tmpz00_11346 = BgL_charszd2readzd2_3590
; }  else 
{ /* Ieee/input.scm 482 */
 obj_t BgL_nz00_3595;
BgL_nz00_3595 = 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_bufz00_3576, 
BINT(BgL_charszd2tozd2readz00_3591), BgL_ipz00_71); 
{ /* Ieee/input.scm 483 */
 bool_t BgL_test5338z00_11351;
{ /* Ieee/input.scm 483 */
 long BgL_n1z00_5616;
{ /* Ieee/input.scm 483 */
 obj_t BgL_tmpz00_11352;
if(
INTEGERP(BgL_nz00_3595))
{ /* Ieee/input.scm 483 */
BgL_tmpz00_11352 = BgL_nz00_3595
; }  else 
{ 
 obj_t BgL_auxz00_11355;
BgL_auxz00_11355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18796L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3595); 
FAILURE(BgL_auxz00_11355,BFALSE,BFALSE);} 
BgL_n1z00_5616 = 
(long)CINT(BgL_tmpz00_11352); } 
BgL_test5338z00_11351 = 
(BgL_n1z00_5616==0L); } 
if(BgL_test5338z00_11351)
{ /* Ieee/input.scm 483 */
bgl_flush_output_port(BgL_opz00_72); 
BgL_tmpz00_11346 = BgL_charszd2readzd2_3590; }  else 
{ /* Ieee/input.scm 487 */
 obj_t BgL_sz00_3597;
{ /* Ieee/input.scm 487 */
 bool_t BgL_test5340z00_11362;
{ /* Ieee/input.scm 487 */
 long BgL_n1z00_5618;
{ /* Ieee/input.scm 487 */
 obj_t BgL_tmpz00_11363;
if(
INTEGERP(BgL_nz00_3595))
{ /* Ieee/input.scm 487 */
BgL_tmpz00_11363 = BgL_nz00_3595
; }  else 
{ 
 obj_t BgL_auxz00_11366;
BgL_auxz00_11366 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18879L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3595); 
FAILURE(BgL_auxz00_11366,BFALSE,BFALSE);} 
BgL_n1z00_5618 = 
(long)CINT(BgL_tmpz00_11363); } 
BgL_test5340z00_11362 = 
(BgL_n1z00_5618<BgL_bufsiza7eza7_3575); } 
if(BgL_test5340z00_11362)
{ /* Ieee/input.scm 487 */
 long BgL_auxz00_11372;
{ /* Ieee/input.scm 487 */
 obj_t BgL_tmpz00_11373;
if(
INTEGERP(BgL_nz00_3595))
{ /* Ieee/input.scm 487 */
BgL_tmpz00_11373 = BgL_nz00_3595
; }  else 
{ 
 obj_t BgL_auxz00_11376;
BgL_auxz00_11376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18890L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3595); 
FAILURE(BgL_auxz00_11376,BFALSE,BFALSE);} 
BgL_auxz00_11372 = 
(long)CINT(BgL_tmpz00_11373); } 
BgL_sz00_3597 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_bufz00_3576, 0L, BgL_auxz00_11372); }  else 
{ /* Ieee/input.scm 487 */
BgL_sz00_3597 = BgL_bufz00_3576; } } 
bgl_display_obj(BgL_sz00_3597, BgL_opz00_72); 
{ /* Ieee/input.scm 489 */
 long BgL_sza7za7_3598;
{ /* Ieee/input.scm 489 */
 long BgL_za72za7_5621;
{ /* Ieee/input.scm 489 */
 obj_t BgL_tmpz00_11383;
if(
INTEGERP(BgL_nz00_3595))
{ /* Ieee/input.scm 489 */
BgL_tmpz00_11383 = BgL_nz00_3595
; }  else 
{ 
 obj_t BgL_auxz00_11386;
BgL_auxz00_11386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(18963L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3595); 
FAILURE(BgL_auxz00_11386,BFALSE,BFALSE);} 
BgL_za72za7_5621 = 
(long)CINT(BgL_tmpz00_11383); } 
BgL_sza7za7_3598 = 
(BgL_sza7za7_3592-BgL_za72za7_5621); } 
{ /* Ieee/input.scm 489 */
 long BgL_ctrz00_3599;
if(
(BgL_sza7za7_3598<BgL_bufsiza7eza7_3575))
{ /* Ieee/input.scm 490 */
BgL_ctrz00_3599 = BgL_sza7za7_3598; }  else 
{ /* Ieee/input.scm 490 */
BgL_ctrz00_3599 = BgL_bufsiza7eza7_3575; } 
{ /* Ieee/input.scm 490 */

{ /* Ieee/input.scm 491 */
 long BgL_arg2668z00_3600;
{ /* Ieee/input.scm 491 */
 long BgL_za72za7_5625;
{ /* Ieee/input.scm 491 */
 obj_t BgL_tmpz00_11394;
if(
INTEGERP(BgL_nz00_3595))
{ /* Ieee/input.scm 491 */
BgL_tmpz00_11394 = BgL_nz00_3595
; }  else 
{ 
 obj_t BgL_auxz00_11397;
BgL_auxz00_11397 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(19044L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_nz00_3595); 
FAILURE(BgL_auxz00_11397,BFALSE,BFALSE);} 
BgL_za72za7_5625 = 
(long)CINT(BgL_tmpz00_11394); } 
BgL_arg2668z00_3600 = 
(BgL_charszd2readzd2_3590+BgL_za72za7_5625); } 
{ 
 long BgL_sza7za7_11405; long BgL_charszd2tozd2readz00_11404; long BgL_charszd2readzd2_11403;
BgL_charszd2readzd2_11403 = BgL_arg2668z00_3600; 
BgL_charszd2tozd2readz00_11404 = BgL_ctrz00_3599; 
BgL_sza7za7_11405 = BgL_sza7za7_3598; 
BgL_sza7za7_3592 = BgL_sza7za7_11405; 
BgL_charszd2tozd2readz00_3591 = BgL_charszd2tozd2readz00_11404; 
BgL_charszd2readzd2_3590 = BgL_charszd2readzd2_11403; 
goto BgL_zc3z04anonymousza32661ze3z87_3593;} } } } } } } } 
return 
(int)(BgL_tmpz00_11346);} } } } } } 

}



/* file->string */
BGL_EXPORTED_DEF obj_t BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(obj_t BgL_pathz00_75)
{
{ /* Ieee/input.scm 496 */
{ /* Ieee/input.scm 499 */
 obj_t BgL_iz00_3608;
{ /* Ieee/string.scm 223 */

BgL_iz00_3608 = 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_pathz00_75, 
BCHAR(((unsigned char)':')), 
BINT(0L)); } 
if(
CBOOL(BgL_iz00_3608))
{ /* Ieee/input.scm 503 */
 bool_t BgL_test5347z00_11412;
{ /* Ieee/input.scm 503 */

BgL_test5347z00_11412 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BGl_string4557z00zz__r4_input_6_10_2z00, BgL_pathz00_75, BFALSE, BFALSE, BFALSE, BFALSE); } 
if(BgL_test5347z00_11412)
{ /* Ieee/input.scm 504 */
 obj_t BgL_arg2674z00_3616;
BgL_arg2674z00_3616 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_pathz00_75, 5L, 
STRING_LENGTH(BgL_pathz00_75)); 
return 
bgl_file_to_string(
BSTRING_TO_STRING(BgL_arg2674z00_3616));}  else 
{ /* Ieee/input.scm 506 */
 obj_t BgL_ipz00_3618;
{ /* Ieee/port.scm 466 */

BgL_ipz00_3618 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_pathz00_75, BTRUE, 
BINT(5000000L)); } 
{ /* Ieee/input.scm 507 */
 obj_t BgL_exitd1142z00_3619;
BgL_exitd1142z00_3619 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Ieee/input.scm 509 */
 obj_t BgL_zc3z04anonymousza32676ze3z87_6028;
BgL_zc3z04anonymousza32676ze3z87_6028 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32676ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32676ze3z87_6028, 
(int)(0L), BgL_ipz00_3618); 
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3468z00_5628;
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3469z00_5629;
BgL_arg3469z00_5629 = 
BGL_EXITD_PROTECT(BgL_exitd1142z00_3619); 
BgL_arg3468z00_5628 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32676ze3z87_6028, BgL_arg3469z00_5629); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1142z00_3619, BgL_arg3468z00_5628); BUNSPEC; } 
{ /* Ieee/input.scm 508 */
 obj_t BgL_tmp1144z00_3621;
BgL_tmp1144z00_3621 = 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3618); 
{ /* Ieee/input.scm 507 */
 bool_t BgL_test5348z00_11430;
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3467z00_5631;
BgL_arg3467z00_5631 = 
BGL_EXITD_PROTECT(BgL_exitd1142z00_3619); 
BgL_test5348z00_11430 = 
PAIRP(BgL_arg3467z00_5631); } 
if(BgL_test5348z00_11430)
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3465z00_5632;
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3466z00_5633;
BgL_arg3466z00_5633 = 
BGL_EXITD_PROTECT(BgL_exitd1142z00_3619); 
{ /* Ieee/input.scm 507 */
 obj_t BgL_pairz00_5634;
if(
PAIRP(BgL_arg3466z00_5633))
{ /* Ieee/input.scm 507 */
BgL_pairz00_5634 = BgL_arg3466z00_5633; }  else 
{ 
 obj_t BgL_auxz00_11436;
BgL_auxz00_11436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(19600L), BGl_string4558z00zz__r4_input_6_10_2z00, BGl_string4453z00zz__r4_input_6_10_2z00, BgL_arg3466z00_5633); 
FAILURE(BgL_auxz00_11436,BFALSE,BFALSE);} 
BgL_arg3465z00_5632 = 
CDR(BgL_pairz00_5634); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1142z00_3619, BgL_arg3465z00_5632); BUNSPEC; }  else 
{ /* Ieee/input.scm 507 */BFALSE; } } 
{ /* Ieee/input.scm 509 */
 obj_t BgL_portz00_5635;
if(
INPUT_PORTP(BgL_ipz00_3618))
{ /* Ieee/input.scm 509 */
BgL_portz00_5635 = BgL_ipz00_3618; }  else 
{ 
 obj_t BgL_auxz00_11444;
BgL_auxz00_11444 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(19663L), BGl_string4558z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_3618); 
FAILURE(BgL_auxz00_11444,BFALSE,BFALSE);} 
bgl_close_input_port(BgL_portz00_5635); } 
return BgL_tmp1144z00_3621;} } } } }  else 
{ /* Ieee/input.scm 501 */
return 
bgl_file_to_string(
BSTRING_TO_STRING(BgL_pathz00_75));} } } 

}



/* &file->string */
obj_t BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00(obj_t BgL_envz00_6029, obj_t BgL_pathz00_6030)
{
{ /* Ieee/input.scm 496 */
{ /* Ieee/input.scm 499 */
 obj_t BgL_auxz00_11451;
if(
STRINGP(BgL_pathz00_6030))
{ /* Ieee/input.scm 499 */
BgL_auxz00_11451 = BgL_pathz00_6030
; }  else 
{ 
 obj_t BgL_auxz00_11454;
BgL_auxz00_11454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(19354L), BGl_string4559z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_pathz00_6030); 
FAILURE(BgL_auxz00_11454,BFALSE,BFALSE);} 
return 
BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(BgL_auxz00_11451);} } 

}



/* &<@anonymous:2676> */
obj_t BGl_z62zc3z04anonymousza32676ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6031)
{
{ /* Ieee/input.scm 507 */
{ /* Ieee/input.scm 509 */
 obj_t BgL_ipz00_6032;
BgL_ipz00_6032 = 
PROCEDURE_REF(BgL_envz00_6031, 
(int)(0L)); 
{ /* Ieee/input.scm 509 */
 obj_t BgL_portz00_7162;
if(
INPUT_PORTP(BgL_ipz00_6032))
{ /* Ieee/input.scm 509 */
BgL_portz00_7162 = BgL_ipz00_6032; }  else 
{ 
 obj_t BgL_auxz00_11463;
BgL_auxz00_11463 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(19663L), BGl_string4560z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_6032); 
FAILURE(BgL_auxz00_11463,BFALSE,BFALSE);} 
return 
bgl_close_input_port(BgL_portz00_7162);} } } 

}



/* send-chars/size */
BGL_EXPORTED_DEF long BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(obj_t BgL_ipz00_76, obj_t BgL_opz00_77, long BgL_siza7eza7_78, long BgL_offsetz00_79)
{
{ /* Ieee/input.scm 519 */
{ /* Ieee/input.scm 521 */
 long BgL_sza7za7_3636; long BgL_offz00_3637;
BgL_sza7za7_3636 = 
(long)(BgL_siza7eza7_78); 
BgL_offz00_3637 = 
(long)(BgL_offsetz00_79); 
{ /* Ieee/input.scm 525 */
 obj_t BgL__ortest_1146z00_3638;
BgL__ortest_1146z00_3638 = 
bgl_sendchars(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_3636, BgL_offz00_3637); 
if(
CBOOL(BgL__ortest_1146z00_3638))
{ /* Ieee/input.scm 525 */
 obj_t BgL_tmpz00_11473;
if(
INTEGERP(BgL__ortest_1146z00_3638))
{ /* Ieee/input.scm 525 */
BgL_tmpz00_11473 = BgL__ortest_1146z00_3638
; }  else 
{ 
 obj_t BgL_auxz00_11476;
BgL_auxz00_11476 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20229L), BGl_string4561z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL__ortest_1146z00_3638); 
FAILURE(BgL_auxz00_11476,BFALSE,BFALSE);} 
return 
(long)CINT(BgL_tmpz00_11473);}  else 
{ /* Ieee/input.scm 527 */
 bool_t BgL_test5355z00_11481;
if(
INPUT_GZIP_PORTP(BgL_ipz00_76))
{ /* Ieee/input.scm 527 */
if(
(BgL_sza7za7_3636==(-1L)))
{ /* Ieee/input.scm 527 */
BgL_test5355z00_11481 = 
(BgL_offz00_3637==(-1L))
; }  else 
{ /* Ieee/input.scm 527 */
BgL_test5355z00_11481 = ((bool_t)0)
; } }  else 
{ /* Ieee/input.scm 527 */
BgL_test5355z00_11481 = ((bool_t)0)
; } 
if(BgL_test5355z00_11481)
{ /* Ieee/input.scm 528 */
 obj_t BgL_tmpz00_11487;
{ /* Ieee/input.scm 528 */
 obj_t BgL_aux4284z00_6813;
BgL_aux4284z00_6813 = 
BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7(BgL_ipz00_76, BgL_opz00_77); 
if(
INTEGERP(BgL_aux4284z00_6813))
{ /* Ieee/input.scm 528 */
BgL_tmpz00_11487 = BgL_aux4284z00_6813
; }  else 
{ 
 obj_t BgL_auxz00_11491;
BgL_auxz00_11491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20329L), BGl_string4561z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_aux4284z00_6813); 
FAILURE(BgL_auxz00_11491,BFALSE,BFALSE);} } 
return 
(long)CINT(BgL_tmpz00_11487);}  else 
{ /* Ieee/input.scm 527 */
return 
(long)(
BGl_z52sendcharsz52zz__r4_input_6_10_2z00(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_3636, BgL_offz00_3637));} } } } } 

}



/* &send-chars/size */
obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6033, obj_t BgL_ipz00_6034, obj_t BgL_opz00_6035, obj_t BgL_siza7eza7_6036, obj_t BgL_offsetz00_6037)
{
{ /* Ieee/input.scm 519 */
{ /* Ieee/input.scm 521 */
 long BgL_tmpz00_11498;
{ /* Ieee/input.scm 521 */
 long BgL_auxz00_11522; long BgL_auxz00_11513; obj_t BgL_auxz00_11506; obj_t BgL_auxz00_11499;
{ /* Ieee/input.scm 521 */
 obj_t BgL_tmpz00_11523;
if(
ELONGP(BgL_offsetz00_6037))
{ /* Ieee/input.scm 521 */
BgL_tmpz00_11523 = BgL_offsetz00_6037
; }  else 
{ 
 obj_t BgL_auxz00_11526;
BgL_auxz00_11526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4562z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_offsetz00_6037); 
FAILURE(BgL_auxz00_11526,BFALSE,BFALSE);} 
BgL_auxz00_11522 = 
BELONG_TO_LONG(BgL_tmpz00_11523); } 
{ /* Ieee/input.scm 521 */
 obj_t BgL_tmpz00_11514;
if(
ELONGP(BgL_siza7eza7_6036))
{ /* Ieee/input.scm 521 */
BgL_tmpz00_11514 = BgL_siza7eza7_6036
; }  else 
{ 
 obj_t BgL_auxz00_11517;
BgL_auxz00_11517 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4562z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_siza7eza7_6036); 
FAILURE(BgL_auxz00_11517,BFALSE,BFALSE);} 
BgL_auxz00_11513 = 
BELONG_TO_LONG(BgL_tmpz00_11514); } 
if(
OUTPUT_PORTP(BgL_opz00_6035))
{ /* Ieee/input.scm 521 */
BgL_auxz00_11506 = BgL_opz00_6035
; }  else 
{ 
 obj_t BgL_auxz00_11509;
BgL_auxz00_11509 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4562z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_opz00_6035); 
FAILURE(BgL_auxz00_11509,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_ipz00_6034))
{ /* Ieee/input.scm 521 */
BgL_auxz00_11499 = BgL_ipz00_6034
; }  else 
{ 
 obj_t BgL_auxz00_11502;
BgL_auxz00_11502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4562z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_6034); 
FAILURE(BgL_auxz00_11502,BFALSE,BFALSE);} 
BgL_tmpz00_11498 = 
BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_auxz00_11499, BgL_auxz00_11506, BgL_auxz00_11513, BgL_auxz00_11522); } 
return 
BINT(BgL_tmpz00_11498);} } 

}



/* _send-chars */
obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_env1321z00_85, obj_t BgL_opt1320z00_84)
{
{ /* Ieee/input.scm 541 */
{ /* Ieee/input.scm 541 */
 obj_t BgL_g1322z00_3644; obj_t BgL_g1323z00_3645;
{ 
 obj_t BgL_auxz00_11533;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11533 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11536;
BgL_auxz00_11536 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11536,BFALSE,BFALSE);} 
BgL_g1322z00_3644 = 
VECTOR_REF(BgL_auxz00_11533,0L); } 
{ 
 obj_t BgL_auxz00_11541;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11541 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11544;
BgL_auxz00_11544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11544,BFALSE,BFALSE);} 
BgL_g1323z00_3645 = 
VECTOR_REF(BgL_auxz00_11541,1L); } 
{ 

{ /* Ieee/input.scm 541 */
 long BgL_aux1325z00_3647;
{ 
 obj_t BgL_auxz00_11549;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11549 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11552;
BgL_auxz00_11552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11552,BFALSE,BFALSE);} 
BgL_aux1325z00_3647 = 
VECTOR_LENGTH(BgL_auxz00_11549); } 
switch( BgL_aux1325z00_3647) { case 2L : 

{ /* Ieee/input.scm 541 */

{ /* Ieee/input.scm 541 */
 long BgL_tmpz00_11557;
{ /* Ieee/input.scm 541 */
 obj_t BgL_auxz00_11565; obj_t BgL_auxz00_11558;
if(
OUTPUT_PORTP(BgL_g1323z00_3645))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11565 = BgL_g1323z00_3645
; }  else 
{ 
 obj_t BgL_auxz00_11568;
BgL_auxz00_11568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_g1323z00_3645); 
FAILURE(BgL_auxz00_11568,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_g1322z00_3644))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11558 = BgL_g1322z00_3644
; }  else 
{ 
 obj_t BgL_auxz00_11561;
BgL_auxz00_11561 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_g1322z00_3644); 
FAILURE(BgL_auxz00_11561,BFALSE,BFALSE);} 
BgL_tmpz00_11557 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_11558, BgL_auxz00_11565, 
BINT((-1L)), 
BINT((-1L))); } 
return 
BINT(BgL_tmpz00_11557);} } break;case 3L : 

{ /* Ieee/input.scm 541 */
 obj_t BgL_siza7eza7_3650;
{ 
 obj_t BgL_auxz00_11576;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11576 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11579;
BgL_auxz00_11579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11579,BFALSE,BFALSE);} 
BgL_siza7eza7_3650 = 
VECTOR_REF(BgL_auxz00_11576,2L); } 
{ /* Ieee/input.scm 541 */

{ /* Ieee/input.scm 541 */
 long BgL_tmpz00_11584;
{ /* Ieee/input.scm 541 */
 obj_t BgL_auxz00_11592; obj_t BgL_auxz00_11585;
if(
OUTPUT_PORTP(BgL_g1323z00_3645))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11592 = BgL_g1323z00_3645
; }  else 
{ 
 obj_t BgL_auxz00_11595;
BgL_auxz00_11595 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_g1323z00_3645); 
FAILURE(BgL_auxz00_11595,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_g1322z00_3644))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11585 = BgL_g1322z00_3644
; }  else 
{ 
 obj_t BgL_auxz00_11588;
BgL_auxz00_11588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_g1322z00_3644); 
FAILURE(BgL_auxz00_11588,BFALSE,BFALSE);} 
BgL_tmpz00_11584 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_11585, BgL_auxz00_11592, BgL_siza7eza7_3650, 
BINT((-1L))); } 
return 
BINT(BgL_tmpz00_11584);} } } break;case 4L : 

{ /* Ieee/input.scm 541 */
 obj_t BgL_siza7eza7_3652;
{ 
 obj_t BgL_auxz00_11602;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11602 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11605;
BgL_auxz00_11605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11605,BFALSE,BFALSE);} 
BgL_siza7eza7_3652 = 
VECTOR_REF(BgL_auxz00_11602,2L); } 
{ /* Ieee/input.scm 541 */
 obj_t BgL_offsetz00_3653;
{ 
 obj_t BgL_auxz00_11610;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11610 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11613;
BgL_auxz00_11613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11613,BFALSE,BFALSE);} 
BgL_offsetz00_3653 = 
VECTOR_REF(BgL_auxz00_11610,3L); } 
{ /* Ieee/input.scm 541 */

{ /* Ieee/input.scm 541 */
 long BgL_tmpz00_11618;
{ /* Ieee/input.scm 541 */
 obj_t BgL_auxz00_11626; obj_t BgL_auxz00_11619;
if(
OUTPUT_PORTP(BgL_g1323z00_3645))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11626 = BgL_g1323z00_3645
; }  else 
{ 
 obj_t BgL_auxz00_11629;
BgL_auxz00_11629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_g1323z00_3645); 
FAILURE(BgL_auxz00_11629,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_g1322z00_3644))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11619 = BgL_g1322z00_3644
; }  else 
{ 
 obj_t BgL_auxz00_11622;
BgL_auxz00_11622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4565z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_g1322z00_3644); 
FAILURE(BgL_auxz00_11622,BFALSE,BFALSE);} 
BgL_tmpz00_11618 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_11619, BgL_auxz00_11626, BgL_siza7eza7_3652, BgL_offsetz00_3653); } 
return 
BINT(BgL_tmpz00_11618);} } } } break;
default: 
{ /* Ieee/input.scm 541 */
 long BgL_arg2683z00_3654;
{ 
 obj_t BgL_auxz00_11635;
if(
VECTORP(BgL_opt1320z00_84))
{ /* Ieee/input.scm 541 */
BgL_auxz00_11635 = BgL_opt1320z00_84
; }  else 
{ 
 obj_t BgL_auxz00_11638;
BgL_auxz00_11638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4566z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1320z00_84); 
FAILURE(BgL_auxz00_11638,BFALSE,BFALSE);} 
BgL_arg2683z00_3654 = 
VECTOR_LENGTH(BgL_auxz00_11635); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4567z00zz__r4_input_6_10_2z00, BGl_string4569z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2683z00_3654));} } } } } } 

}



/* send-chars */
BGL_EXPORTED_DEF long BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_80, obj_t BgL_opz00_81, obj_t BgL_siza7eza7_82, obj_t BgL_offsetz00_83)
{
{ /* Ieee/input.scm 541 */
{ /* Ieee/input.scm 543 */
 long BgL_sza7za7_3655; long BgL_offz00_3656;
if(
INTEGERP(BgL_siza7eza7_82))
{ /* Ieee/input.scm 544 */
 long BgL_tmpz00_11648;
BgL_tmpz00_11648 = 
(long)CINT(BgL_siza7eza7_82); 
BgL_sza7za7_3655 = 
(long)(BgL_tmpz00_11648); }  else 
{ /* Ieee/input.scm 544 */
if(
ELONGP(BgL_siza7eza7_82))
{ /* Ieee/input.scm 545 */
BgL_sza7za7_3655 = 
BELONG_TO_LONG(BgL_siza7eza7_82); }  else 
{ /* Ieee/input.scm 546 */
 obj_t BgL_tmpz00_11654;
{ /* Ieee/input.scm 546 */
 obj_t BgL_aux4319z00_6848;
BgL_aux4319z00_6848 = 
BGl_errorz00zz__errorz00(BGl_symbol4570z00zz__r4_input_6_10_2z00, BGl_string4572z00zz__r4_input_6_10_2z00, BgL_siza7eza7_82); 
if(
ELONGP(BgL_aux4319z00_6848))
{ /* Ieee/input.scm 546 */
BgL_tmpz00_11654 = BgL_aux4319z00_6848
; }  else 
{ 
 obj_t BgL_auxz00_11658;
BgL_auxz00_11658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(20996L), BGl_string4571z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_aux4319z00_6848); 
FAILURE(BgL_auxz00_11658,BFALSE,BFALSE);} } 
BgL_sza7za7_3655 = 
BELONG_TO_LONG(BgL_tmpz00_11654); } } 
if(
INTEGERP(BgL_offsetz00_83))
{ /* Ieee/input.scm 548 */
 long BgL_tmpz00_11665;
BgL_tmpz00_11665 = 
(long)CINT(BgL_offsetz00_83); 
BgL_offz00_3656 = 
(long)(BgL_tmpz00_11665); }  else 
{ /* Ieee/input.scm 548 */
if(
ELONGP(BgL_offsetz00_83))
{ /* Ieee/input.scm 549 */
BgL_offz00_3656 = 
BELONG_TO_LONG(BgL_offsetz00_83); }  else 
{ /* Ieee/input.scm 550 */
 obj_t BgL_tmpz00_11671;
{ /* Ieee/input.scm 550 */
 obj_t BgL_aux4321z00_6850;
BgL_aux4321z00_6850 = 
BGl_errorz00zz__errorz00(BGl_symbol4570z00zz__r4_input_6_10_2z00, BGl_string4573z00zz__r4_input_6_10_2z00, BgL_offsetz00_83); 
if(
ELONGP(BgL_aux4321z00_6850))
{ /* Ieee/input.scm 550 */
BgL_tmpz00_11671 = BgL_aux4321z00_6850
; }  else 
{ 
 obj_t BgL_auxz00_11675;
BgL_auxz00_11675 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21141L), BGl_string4571z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_aux4321z00_6850); 
FAILURE(BgL_auxz00_11675,BFALSE,BFALSE);} } 
BgL_offz00_3656 = 
BELONG_TO_LONG(BgL_tmpz00_11671); } } 
return 
BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_ipz00_80, BgL_opz00_81, BgL_sza7za7_3655, BgL_offz00_3656);} } 

}



/* _send-file */
obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t BgL_env1327z00_91, obj_t BgL_opt1326z00_90)
{
{ /* Ieee/input.scm 556 */
{ /* Ieee/input.scm 556 */
 obj_t BgL_filez00_3661; obj_t BgL_opz00_3662;
{ 
 obj_t BgL_auxz00_11681;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11681 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11684;
BgL_auxz00_11684 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11684,BFALSE,BFALSE);} 
BgL_filez00_3661 = 
VECTOR_REF(BgL_auxz00_11681,0L); } 
{ 
 obj_t BgL_auxz00_11689;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11689 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11692;
BgL_auxz00_11692 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11692,BFALSE,BFALSE);} 
BgL_opz00_3662 = 
VECTOR_REF(BgL_auxz00_11689,1L); } 
{ 

{ /* Ieee/input.scm 556 */
 long BgL_aux1329z00_3664;
{ 
 obj_t BgL_auxz00_11697;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11697 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11700;
BgL_auxz00_11700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11700,BFALSE,BFALSE);} 
BgL_aux1329z00_3664 = 
VECTOR_LENGTH(BgL_auxz00_11697); } 
switch( BgL_aux1329z00_3664) { case 2L : 

{ /* Ieee/input.scm 556 */

{ /* Ieee/input.scm 556 */
 long BgL_tmpz00_11705;
{ /* Ieee/input.scm 556 */
 obj_t BgL_auxz00_11713; obj_t BgL_auxz00_11706;
if(
OUTPUT_PORTP(BgL_opz00_3662))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11713 = BgL_opz00_3662
; }  else 
{ 
 obj_t BgL_auxz00_11716;
BgL_auxz00_11716 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_opz00_3662); 
FAILURE(BgL_auxz00_11716,BFALSE,BFALSE);} 
if(
STRINGP(BgL_filez00_3661))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11706 = BgL_filez00_3661
; }  else 
{ 
 obj_t BgL_auxz00_11709;
BgL_auxz00_11709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_filez00_3661); 
FAILURE(BgL_auxz00_11709,BFALSE,BFALSE);} 
BgL_tmpz00_11705 = 
BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_auxz00_11706, BgL_auxz00_11713, ((long)-1), ((long)-1)); } 
return 
BINT(BgL_tmpz00_11705);} } break;case 3L : 

{ /* Ieee/input.scm 556 */
 obj_t BgL_siza7eza7_3667;
{ 
 obj_t BgL_auxz00_11722;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11722 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11725;
BgL_auxz00_11725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11725,BFALSE,BFALSE);} 
BgL_siza7eza7_3667 = 
VECTOR_REF(BgL_auxz00_11722,2L); } 
{ /* Ieee/input.scm 556 */

{ /* Ieee/input.scm 556 */
 long BgL_tmpz00_11730;
{ /* Ieee/input.scm 556 */
 long BgL_auxz00_11745; obj_t BgL_auxz00_11738; obj_t BgL_auxz00_11731;
{ /* Ieee/input.scm 556 */
 obj_t BgL_tmpz00_11746;
if(
ELONGP(BgL_siza7eza7_3667))
{ /* Ieee/input.scm 556 */
BgL_tmpz00_11746 = BgL_siza7eza7_3667
; }  else 
{ 
 obj_t BgL_auxz00_11749;
BgL_auxz00_11749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_siza7eza7_3667); 
FAILURE(BgL_auxz00_11749,BFALSE,BFALSE);} 
BgL_auxz00_11745 = 
BELONG_TO_LONG(BgL_tmpz00_11746); } 
if(
OUTPUT_PORTP(BgL_opz00_3662))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11738 = BgL_opz00_3662
; }  else 
{ 
 obj_t BgL_auxz00_11741;
BgL_auxz00_11741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_opz00_3662); 
FAILURE(BgL_auxz00_11741,BFALSE,BFALSE);} 
if(
STRINGP(BgL_filez00_3661))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11731 = BgL_filez00_3661
; }  else 
{ 
 obj_t BgL_auxz00_11734;
BgL_auxz00_11734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_filez00_3661); 
FAILURE(BgL_auxz00_11734,BFALSE,BFALSE);} 
BgL_tmpz00_11730 = 
BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_auxz00_11731, BgL_auxz00_11738, BgL_auxz00_11745, ((long)-1)); } 
return 
BINT(BgL_tmpz00_11730);} } } break;case 4L : 

{ /* Ieee/input.scm 556 */
 obj_t BgL_siza7eza7_3669;
{ 
 obj_t BgL_auxz00_11756;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11756 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11759;
BgL_auxz00_11759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11759,BFALSE,BFALSE);} 
BgL_siza7eza7_3669 = 
VECTOR_REF(BgL_auxz00_11756,2L); } 
{ /* Ieee/input.scm 556 */
 obj_t BgL_offsetz00_3670;
{ 
 obj_t BgL_auxz00_11764;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11764 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11767;
BgL_auxz00_11767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11767,BFALSE,BFALSE);} 
BgL_offsetz00_3670 = 
VECTOR_REF(BgL_auxz00_11764,3L); } 
{ /* Ieee/input.scm 556 */

{ /* Ieee/input.scm 556 */
 long BgL_tmpz00_11772;
{ /* Ieee/input.scm 556 */
 long BgL_auxz00_11796; long BgL_auxz00_11787; obj_t BgL_auxz00_11780; obj_t BgL_auxz00_11773;
{ /* Ieee/input.scm 556 */
 obj_t BgL_tmpz00_11797;
if(
ELONGP(BgL_offsetz00_3670))
{ /* Ieee/input.scm 556 */
BgL_tmpz00_11797 = BgL_offsetz00_3670
; }  else 
{ 
 obj_t BgL_auxz00_11800;
BgL_auxz00_11800 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_offsetz00_3670); 
FAILURE(BgL_auxz00_11800,BFALSE,BFALSE);} 
BgL_auxz00_11796 = 
BELONG_TO_LONG(BgL_tmpz00_11797); } 
{ /* Ieee/input.scm 556 */
 obj_t BgL_tmpz00_11788;
if(
ELONGP(BgL_siza7eza7_3669))
{ /* Ieee/input.scm 556 */
BgL_tmpz00_11788 = BgL_siza7eza7_3669
; }  else 
{ 
 obj_t BgL_auxz00_11791;
BgL_auxz00_11791 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4564z00zz__r4_input_6_10_2z00, BgL_siza7eza7_3669); 
FAILURE(BgL_auxz00_11791,BFALSE,BFALSE);} 
BgL_auxz00_11787 = 
BELONG_TO_LONG(BgL_tmpz00_11788); } 
if(
OUTPUT_PORTP(BgL_opz00_3662))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11780 = BgL_opz00_3662
; }  else 
{ 
 obj_t BgL_auxz00_11783;
BgL_auxz00_11783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4563z00zz__r4_input_6_10_2z00, BgL_opz00_3662); 
FAILURE(BgL_auxz00_11783,BFALSE,BFALSE);} 
if(
STRINGP(BgL_filez00_3661))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11773 = BgL_filez00_3661
; }  else 
{ 
 obj_t BgL_auxz00_11776;
BgL_auxz00_11776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4574z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_filez00_3661); 
FAILURE(BgL_auxz00_11776,BFALSE,BFALSE);} 
BgL_tmpz00_11772 = 
BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_auxz00_11773, BgL_auxz00_11780, BgL_auxz00_11787, BgL_auxz00_11796); } 
return 
BINT(BgL_tmpz00_11772);} } } } break;
default: 
{ /* Ieee/input.scm 556 */
 long BgL_arg2689z00_3671;
{ 
 obj_t BgL_auxz00_11807;
if(
VECTORP(BgL_opt1326z00_90))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11807 = BgL_opt1326z00_90
; }  else 
{ 
 obj_t BgL_auxz00_11810;
BgL_auxz00_11810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4575z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1326z00_90); 
FAILURE(BgL_auxz00_11810,BFALSE,BFALSE);} 
BgL_arg2689z00_3671 = 
VECTOR_LENGTH(BgL_auxz00_11807); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4576z00zz__r4_input_6_10_2z00, BGl_string4569z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg2689z00_3671));} } } } } } 

}



/* send-file */
BGL_EXPORTED_DEF long BGl_sendzd2filezd2zz__r4_input_6_10_2z00(obj_t BgL_filez00_86, obj_t BgL_opz00_87, long BgL_siza7eza7_88, long BgL_offsetz00_89)
{
{ /* Ieee/input.scm 556 */
{ /* Ieee/input.scm 560 */
 long BgL_sza7za7_3672; long BgL_offz00_3673;
BgL_sza7za7_3672 = 
(long)(BgL_siza7eza7_88); 
BgL_offz00_3673 = 
(long)(BgL_offsetz00_89); 
{ /* Ieee/input.scm 564 */
 obj_t BgL__ortest_1149z00_3674;
BgL__ortest_1149z00_3674 = 
bgl_sendfile(BgL_filez00_86, BgL_opz00_87, 
(long)(BgL_siza7eza7_88), 
(long)(BgL_offsetz00_89)); 
if(
CBOOL(BgL__ortest_1149z00_3674))
{ /* Ieee/input.scm 564 */
 obj_t BgL_tmpz00_11825;
if(
INTEGERP(BgL__ortest_1149z00_3674))
{ /* Ieee/input.scm 564 */
BgL_tmpz00_11825 = BgL__ortest_1149z00_3674
; }  else 
{ 
 obj_t BgL_auxz00_11828;
BgL_auxz00_11828 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21690L), BGl_string4578z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL__ortest_1149z00_3674); 
FAILURE(BgL_auxz00_11828,BFALSE,BFALSE);} 
return 
(long)CINT(BgL_tmpz00_11825);}  else 
{ /* Ieee/input.scm 565 */
 obj_t BgL_ipz00_3675;
{ /* Ieee/port.scm 466 */

BgL_ipz00_3675 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_filez00_86, BTRUE, 
BINT(5000000L)); } 
{ /* Ieee/input.scm 566 */
 obj_t BgL_exitd1150z00_3676;
BgL_exitd1150z00_3676 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Ieee/input.scm 568 */
 obj_t BgL_zc3z04anonymousza32690ze3z87_6038;
BgL_zc3z04anonymousza32690ze3z87_6038 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32690ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32690ze3z87_6038, 
(int)(0L), BgL_ipz00_3675); 
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3468z00_5645;
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3469z00_5646;
BgL_arg3469z00_5646 = 
BGL_EXITD_PROTECT(BgL_exitd1150z00_3676); 
BgL_arg3468z00_5645 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32690ze3z87_6038, BgL_arg3469z00_5646); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1150z00_3676, BgL_arg3468z00_5645); BUNSPEC; } 
{ /* Ieee/input.scm 567 */
 long BgL_tmp1152z00_3678;
{ /* Ieee/input.scm 567 */
 obj_t BgL_auxz00_11844;
if(
INPUT_PORTP(BgL_ipz00_3675))
{ /* Ieee/input.scm 567 */
BgL_auxz00_11844 = BgL_ipz00_3675
; }  else 
{ 
 obj_t BgL_auxz00_11847;
BgL_auxz00_11847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21806L), BGl_string4578z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_3675); 
FAILURE(BgL_auxz00_11847,BFALSE,BFALSE);} 
BgL_tmp1152z00_3678 = 
BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_auxz00_11844, BgL_opz00_87, BgL_siza7eza7_88, BgL_offsetz00_89); } 
{ /* Ieee/input.scm 566 */
 bool_t BgL_test5401z00_11852;
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3467z00_5648;
BgL_arg3467z00_5648 = 
BGL_EXITD_PROTECT(BgL_exitd1150z00_3676); 
BgL_test5401z00_11852 = 
PAIRP(BgL_arg3467z00_5648); } 
if(BgL_test5401z00_11852)
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3465z00_5649;
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3466z00_5650;
BgL_arg3466z00_5650 = 
BGL_EXITD_PROTECT(BgL_exitd1150z00_3676); 
{ /* Ieee/input.scm 566 */
 obj_t BgL_pairz00_5651;
if(
PAIRP(BgL_arg3466z00_5650))
{ /* Ieee/input.scm 566 */
BgL_pairz00_5651 = BgL_arg3466z00_5650; }  else 
{ 
 obj_t BgL_auxz00_11858;
BgL_auxz00_11858 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21767L), BGl_string4578z00zz__r4_input_6_10_2z00, BGl_string4453z00zz__r4_input_6_10_2z00, BgL_arg3466z00_5650); 
FAILURE(BgL_auxz00_11858,BFALSE,BFALSE);} 
BgL_arg3465z00_5649 = 
CDR(BgL_pairz00_5651); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1150z00_3676, BgL_arg3465z00_5649); BUNSPEC; }  else 
{ /* Ieee/input.scm 566 */BFALSE; } } 
{ /* Ieee/input.scm 568 */
 obj_t BgL_portz00_5652;
if(
INPUT_PORTP(BgL_ipz00_3675))
{ /* Ieee/input.scm 568 */
BgL_portz00_5652 = BgL_ipz00_3675; }  else 
{ 
 obj_t BgL_auxz00_11866;
BgL_auxz00_11866 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21849L), BGl_string4578z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_3675); 
FAILURE(BgL_auxz00_11866,BFALSE,BFALSE);} 
bgl_close_input_port(BgL_portz00_5652); } 
return BgL_tmp1152z00_3678;} } } } } } } 

}



/* &<@anonymous:2690> */
obj_t BGl_z62zc3z04anonymousza32690ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6039)
{
{ /* Ieee/input.scm 566 */
{ /* Ieee/input.scm 568 */
 obj_t BgL_ipz00_6040;
BgL_ipz00_6040 = 
PROCEDURE_REF(BgL_envz00_6039, 
(int)(0L)); 
{ /* Ieee/input.scm 568 */
 obj_t BgL_portz00_7163;
if(
INPUT_PORTP(BgL_ipz00_6040))
{ /* Ieee/input.scm 568 */
BgL_portz00_7163 = BgL_ipz00_6040; }  else 
{ 
 obj_t BgL_auxz00_11875;
BgL_auxz00_11875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(21849L), BGl_string4579z00zz__r4_input_6_10_2z00, BGl_string4389z00zz__r4_input_6_10_2z00, BgL_ipz00_6040); 
FAILURE(BgL_auxz00_11875,BFALSE,BFALSE);} 
return 
bgl_close_input_port(BgL_portz00_7163);} } } 

}



/* file-lines */
BGL_EXPORTED_DEF obj_t BGl_filezd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_filez00_92)
{
{ /* Ieee/input.scm 580 */
if(
fexists(
BSTRING_TO_STRING(BgL_filez00_92)))
{ /* Ieee/input.scm 605 */
 obj_t BgL_zc3z04anonymousza32694ze3z87_6041;
BgL_zc3z04anonymousza32694ze3z87_6041 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32694ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32694ze3z87_6041, 
(int)(0L), BgL_filez00_92); 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_filez00_92, BgL_zc3z04anonymousza32694ze3z87_6041);}  else 
{ /* Ieee/input.scm 601 */
return BFALSE;} } 

}



/* &file-lines */
obj_t BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00(obj_t BgL_envz00_6042, obj_t BgL_filez00_6043)
{
{ /* Ieee/input.scm 580 */
{ /* Ieee/input.scm 583 */
 obj_t BgL_auxz00_11889;
if(
STRINGP(BgL_filez00_6043))
{ /* Ieee/input.scm 583 */
BgL_auxz00_11889 = BgL_filez00_6043
; }  else 
{ 
 obj_t BgL_auxz00_11892;
BgL_auxz00_11892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(22416L), BGl_string4580z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_filez00_6043); 
FAILURE(BgL_auxz00_11892,BFALSE,BFALSE);} 
return 
BGl_filezd2lineszd2zz__r4_input_6_10_2z00(BgL_auxz00_11889);} } 

}



/* &<@anonymous:2694> */
obj_t BGl_z62zc3z04anonymousza32694ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6044)
{
{ /* Ieee/input.scm 604 */
{ /* Ieee/input.scm 605 */
 obj_t BgL_filez00_6045;
BgL_filez00_6045 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_6044, 
(int)(0L))); 
{ 
 obj_t BgL_iportz00_7165; long BgL_startz00_7166; obj_t BgL_accz00_7167;
{ /* Ieee/input.scm 605 */
 obj_t BgL_arg2697z00_7215;
{ /* Ieee/input.scm 605 */
 obj_t BgL_tmpz00_11900;
BgL_tmpz00_11900 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2697z00_7215 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_11900); } 
BgL_iportz00_7165 = BgL_arg2697z00_7215; 
BgL_startz00_7166 = 0L; 
BgL_accz00_7167 = BNIL; 
{ 
 obj_t BgL_iportz00_7200; long BgL_lastzd2matchzd2_7201; long BgL_forwardz00_7202; long BgL_bufposz00_7203; obj_t BgL_iportz00_7192; long BgL_lastzd2matchzd2_7193; long BgL_forwardz00_7194; long BgL_bufposz00_7195; obj_t BgL_iportz00_7183; long BgL_lastzd2matchzd2_7184; long BgL_forwardz00_7185; long BgL_bufposz00_7186;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_7165))
{ /* Ieee/input.scm 583 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2701z00_7208;
{ /* Ieee/input.scm 583 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_7209;
{ /* Ieee/input.scm 583 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_7210;
BgL_new1045z00_7210 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 583 */
 long BgL_arg2716z00_7211;
BgL_arg2716z00_7211 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_7210), BgL_arg2716z00_7211); } 
BgL_new1046z00_7209 = BgL_new1045z00_7210; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7209)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7209)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11913;
{ /* Ieee/input.scm 583 */
 obj_t BgL_arg2712z00_7212;
{ /* Ieee/input.scm 583 */
 obj_t BgL_arg2713z00_7213;
{ /* Ieee/input.scm 583 */
 obj_t BgL_classz00_7214;
BgL_classz00_7214 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2713z00_7213 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7214); } 
BgL_arg2712z00_7212 = 
VECTOR_REF(BgL_arg2713z00_7213,2L); } 
{ /* Ieee/input.scm 583 */
 obj_t BgL_auxz00_11917;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2712z00_7212))
{ /* Ieee/input.scm 583 */
BgL_auxz00_11917 = BgL_arg2712z00_7212
; }  else 
{ 
 obj_t BgL_auxz00_11920;
BgL_auxz00_11920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(22416L), BGl_string4584z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2712z00_7212); 
FAILURE(BgL_auxz00_11920,BFALSE,BFALSE);} 
BgL_auxz00_11913 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_11917); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7209)))->BgL_stackz00)=((obj_t)BgL_auxz00_11913),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7209)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7209)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7209)))->BgL_objz00)=((obj_t)BgL_iportz00_7165),BUNSPEC); 
BgL_arg2701z00_7208 = BgL_new1046z00_7209; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2701z00_7208));}  else 
{ /* Ieee/input.scm 583 */
BgL_ignorez00_7168:
RGC_START_MATCH(BgL_iportz00_7165); 
{ /* Ieee/input.scm 583 */
 long BgL_matchz00_7173;
{ /* Ieee/input.scm 583 */
 long BgL_arg2869z00_7174; long BgL_arg2870z00_7175;
BgL_arg2869z00_7174 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7165); 
BgL_arg2870z00_7175 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7165); 
BgL_iportz00_7183 = BgL_iportz00_7165; 
BgL_lastzd2matchzd2_7184 = 2L; 
BgL_forwardz00_7185 = BgL_arg2869z00_7174; 
BgL_bufposz00_7186 = BgL_arg2870z00_7175; 
BgL_statezd20zd21154z00_7170:
if(
(BgL_forwardz00_7185==BgL_bufposz00_7186))
{ /* Ieee/input.scm 583 */
if(
rgc_fill_buffer(BgL_iportz00_7183))
{ /* Ieee/input.scm 583 */
 long BgL_arg2737z00_7187; long BgL_arg2738z00_7188;
BgL_arg2737z00_7187 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7183); 
BgL_arg2738z00_7188 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7183); 
{ 
 long BgL_bufposz00_11944; long BgL_forwardz00_11943;
BgL_forwardz00_11943 = BgL_arg2737z00_7187; 
BgL_bufposz00_11944 = BgL_arg2738z00_7188; 
BgL_bufposz00_7186 = BgL_bufposz00_11944; 
BgL_forwardz00_7185 = BgL_forwardz00_11943; 
goto BgL_statezd20zd21154z00_7170;} }  else 
{ /* Ieee/input.scm 583 */
BgL_matchz00_7173 = BgL_lastzd2matchzd2_7184; } }  else 
{ /* Ieee/input.scm 583 */
 int BgL_curz00_7189;
BgL_curz00_7189 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7183, BgL_forwardz00_7185); 
{ /* Ieee/input.scm 583 */

if(
(
(long)(BgL_curz00_7189)==10L))
{ /* Ieee/input.scm 583 */
 long BgL_arg2740z00_7190;
BgL_arg2740z00_7190 = 
(1L+BgL_forwardz00_7185); 
{ /* Ieee/input.scm 583 */
 long BgL_newzd2matchzd2_7191;
RGC_STOP_MATCH(BgL_iportz00_7183, BgL_arg2740z00_7190); 
BgL_newzd2matchzd2_7191 = 0L; 
BgL_matchz00_7173 = BgL_newzd2matchzd2_7191; } }  else 
{ /* Ieee/input.scm 583 */
BgL_iportz00_7192 = BgL_iportz00_7183; 
BgL_lastzd2matchzd2_7193 = BgL_lastzd2matchzd2_7184; 
BgL_forwardz00_7194 = 
(1L+BgL_forwardz00_7185); 
BgL_bufposz00_7195 = BgL_bufposz00_7186; 
BgL_statezd21zd21155z00_7171:
{ /* Ieee/input.scm 583 */
 long BgL_newzd2matchzd2_7196;
RGC_STOP_MATCH(BgL_iportz00_7192, BgL_forwardz00_7194); 
BgL_newzd2matchzd2_7196 = 1L; 
if(
(BgL_forwardz00_7194==BgL_bufposz00_7195))
{ /* Ieee/input.scm 583 */
if(
rgc_fill_buffer(BgL_iportz00_7192))
{ /* Ieee/input.scm 583 */
 long BgL_arg2730z00_7197; long BgL_arg2731z00_7198;
BgL_arg2730z00_7197 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7192); 
BgL_arg2731z00_7198 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7192); 
{ 
 long BgL_bufposz00_11959; long BgL_forwardz00_11958;
BgL_forwardz00_11958 = BgL_arg2730z00_7197; 
BgL_bufposz00_11959 = BgL_arg2731z00_7198; 
BgL_bufposz00_7195 = BgL_bufposz00_11959; 
BgL_forwardz00_7194 = BgL_forwardz00_11958; 
goto BgL_statezd21zd21155z00_7171;} }  else 
{ /* Ieee/input.scm 583 */
BgL_matchz00_7173 = BgL_newzd2matchzd2_7196; } }  else 
{ /* Ieee/input.scm 583 */
 int BgL_curz00_7199;
BgL_curz00_7199 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7192, BgL_forwardz00_7194); 
{ /* Ieee/input.scm 583 */

if(
(
(long)(BgL_curz00_7199)==10L))
{ /* Ieee/input.scm 583 */
BgL_matchz00_7173 = BgL_newzd2matchzd2_7196; }  else 
{ /* Ieee/input.scm 583 */
BgL_iportz00_7200 = BgL_iportz00_7192; 
BgL_lastzd2matchzd2_7201 = BgL_newzd2matchzd2_7196; 
BgL_forwardz00_7202 = 
(1L+BgL_forwardz00_7194); 
BgL_bufposz00_7203 = BgL_bufposz00_7195; 
BgL_statezd24zd21158z00_7172:
{ /* Ieee/input.scm 583 */
 long BgL_newzd2matchzd2_7204;
RGC_STOP_MATCH(BgL_iportz00_7200, BgL_forwardz00_7202); 
BgL_newzd2matchzd2_7204 = 1L; 
if(
(BgL_forwardz00_7202==BgL_bufposz00_7203))
{ /* Ieee/input.scm 583 */
if(
rgc_fill_buffer(BgL_iportz00_7200))
{ /* Ieee/input.scm 583 */
 long BgL_arg2722z00_7205; long BgL_arg2723z00_7206;
BgL_arg2722z00_7205 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7200); 
BgL_arg2723z00_7206 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7200); 
{ 
 long BgL_bufposz00_11972; long BgL_forwardz00_11971;
BgL_forwardz00_11971 = BgL_arg2722z00_7205; 
BgL_bufposz00_11972 = BgL_arg2723z00_7206; 
BgL_bufposz00_7203 = BgL_bufposz00_11972; 
BgL_forwardz00_7202 = BgL_forwardz00_11971; 
goto BgL_statezd24zd21158z00_7172;} }  else 
{ /* Ieee/input.scm 583 */
BgL_matchz00_7173 = BgL_newzd2matchzd2_7204; } }  else 
{ /* Ieee/input.scm 583 */
 int BgL_curz00_7207;
BgL_curz00_7207 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7200, BgL_forwardz00_7202); 
{ /* Ieee/input.scm 583 */

if(
(
(long)(BgL_curz00_7207)==10L))
{ /* Ieee/input.scm 583 */
BgL_matchz00_7173 = BgL_newzd2matchzd2_7204; }  else 
{ 
 long BgL_forwardz00_11978; long BgL_lastzd2matchzd2_11977;
BgL_lastzd2matchzd2_11977 = BgL_newzd2matchzd2_7204; 
BgL_forwardz00_11978 = 
(1L+BgL_forwardz00_7202); 
BgL_forwardz00_7202 = BgL_forwardz00_11978; 
BgL_lastzd2matchzd2_7201 = BgL_lastzd2matchzd2_11977; 
goto BgL_statezd24zd21158z00_7172;} } } } } } } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_7165); 
switch( BgL_matchz00_7173) { case 2L : 

{ /* Ieee/input.scm 593 */
 obj_t BgL_cz00_7176;
{ /* Ieee/input.scm 583 */
 bool_t BgL_test5418z00_11983;
{ /* Ieee/input.scm 583 */
 long BgL_arg2853z00_7182;
BgL_arg2853z00_7182 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7165); 
BgL_test5418z00_11983 = 
(BgL_arg2853z00_7182==0L); } 
if(BgL_test5418z00_11983)
{ /* Ieee/input.scm 583 */
BgL_cz00_7176 = BEOF; }  else 
{ /* Ieee/input.scm 583 */
BgL_cz00_7176 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_7165)); } } 
if(
EOF_OBJECTP(BgL_cz00_7176))
{ /* Ieee/input.scm 595 */
 long BgL_stopz00_7177;
BgL_stopz00_7177 = 
INPUT_PORT_FILEPOS(BgL_iportz00_7165); 
if(
(BgL_stopz00_7177>BgL_startz00_7166))
{ /* Ieee/input.scm 597 */
 obj_t BgL_arg2862z00_7178;
{ /* Ieee/input.scm 597 */
 obj_t BgL_arg2865z00_7179;
BgL_arg2865z00_7179 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_7166), 
BINT(BgL_stopz00_7177)); 
BgL_arg2862z00_7178 = 
MAKE_YOUNG_PAIR(BgL_arg2865z00_7179, BgL_accz00_7167); } 
return 
bgl_reverse_bang(BgL_arg2862z00_7178);}  else 
{ /* Ieee/input.scm 596 */
return 
bgl_reverse_bang(BgL_accz00_7167);} }  else 
{ /* Ieee/input.scm 594 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4581z00zz__r4_input_6_10_2z00, BGl_string4583z00zz__r4_input_6_10_2z00, BgL_filez00_6045);} } break;case 1L : 

goto BgL_ignorez00_7168;break;case 0L : 

{ /* Ieee/input.scm 585 */
 long BgL_stopz00_7180;
BgL_stopz00_7180 = 
INPUT_PORT_FILEPOS(BgL_iportz00_7165); 
{ /* Ieee/input.scm 585 */
 obj_t BgL_descz00_7181;
BgL_descz00_7181 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_7166), 
BINT(BgL_stopz00_7180)); 
{ /* Ieee/input.scm 586 */

BgL_startz00_7166 = 
(1L+BgL_stopz00_7180); 
BgL_accz00_7167 = 
MAKE_YOUNG_PAIR(BgL_descz00_7181, BgL_accz00_7167); 
goto BgL_ignorez00_7168;} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_7173));} } } } } } } } 

}



/* file-position->line */
BGL_EXPORTED_DEF obj_t BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(int BgL_posz00_93, obj_t BgL_fdescz00_94)
{
{ /* Ieee/input.scm 610 */
if(
PAIRP(BgL_fdescz00_94))
{ 
 obj_t BgL_flinesz00_5725; long BgL_linez00_5726;
BgL_flinesz00_5725 = BgL_fdescz00_94; 
BgL_linez00_5726 = 1L; 
BgL_loopz00_5724:
if(
NULLP(BgL_flinesz00_5725))
{ /* Ieee/input.scm 616 */
return BFALSE;}  else 
{ /* Ieee/input.scm 618 */
 bool_t BgL_test5423z00_12013;
{ /* Ieee/input.scm 618 */
 long BgL_n1z00_5734; long BgL_n2z00_5735;
BgL_n1z00_5734 = 
(long)(BgL_posz00_93); 
{ /* Ieee/input.scm 618 */
 obj_t BgL_pairz00_5730;
if(
PAIRP(BgL_flinesz00_5725))
{ /* Ieee/input.scm 618 */
BgL_pairz00_5730 = BgL_flinesz00_5725; }  else 
{ 
 obj_t BgL_auxz00_12017;
BgL_auxz00_12017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23446L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4453z00zz__r4_input_6_10_2z00, BgL_flinesz00_5725); 
FAILURE(BgL_auxz00_12017,BFALSE,BFALSE);} 
{ /* Ieee/input.scm 618 */
 obj_t BgL_pairz00_5733;
{ /* Ieee/input.scm 618 */
 obj_t BgL_aux4370z00_6899;
BgL_aux4370z00_6899 = 
CAR(BgL_pairz00_5730); 
if(
PAIRP(BgL_aux4370z00_6899))
{ /* Ieee/input.scm 618 */
BgL_pairz00_5733 = BgL_aux4370z00_6899; }  else 
{ 
 obj_t BgL_auxz00_12024;
BgL_auxz00_12024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23440L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4453z00zz__r4_input_6_10_2z00, BgL_aux4370z00_6899); 
FAILURE(BgL_auxz00_12024,BFALSE,BFALSE);} } 
{ /* Ieee/input.scm 618 */
 obj_t BgL_tmpz00_12028;
{ /* Ieee/input.scm 618 */
 obj_t BgL_aux4372z00_6901;
BgL_aux4372z00_6901 = 
CDR(BgL_pairz00_5733); 
if(
INTEGERP(BgL_aux4372z00_6901))
{ /* Ieee/input.scm 618 */
BgL_tmpz00_12028 = BgL_aux4372z00_6901
; }  else 
{ 
 obj_t BgL_auxz00_12032;
BgL_auxz00_12032 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23440L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_aux4372z00_6901); 
FAILURE(BgL_auxz00_12032,BFALSE,BFALSE);} } 
BgL_n2z00_5735 = 
(long)CINT(BgL_tmpz00_12028); } } } 
BgL_test5423z00_12013 = 
(BgL_n1z00_5734>=BgL_n2z00_5735); } 
if(BgL_test5423z00_12013)
{ /* Ieee/input.scm 619 */
 obj_t BgL_arg2879z00_5736; long BgL_arg2880z00_5737;
{ /* Ieee/input.scm 619 */
 obj_t BgL_pairz00_5738;
if(
PAIRP(BgL_flinesz00_5725))
{ /* Ieee/input.scm 619 */
BgL_pairz00_5738 = BgL_flinesz00_5725; }  else 
{ 
 obj_t BgL_auxz00_12040;
BgL_auxz00_12040 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23473L), BGl_string4494z00zz__r4_input_6_10_2z00, BGl_string4453z00zz__r4_input_6_10_2z00, BgL_flinesz00_5725); 
FAILURE(BgL_auxz00_12040,BFALSE,BFALSE);} 
BgL_arg2879z00_5736 = 
CDR(BgL_pairz00_5738); } 
BgL_arg2880z00_5737 = 
(BgL_linez00_5726+1L); 
{ 
 long BgL_linez00_12047; obj_t BgL_flinesz00_12046;
BgL_flinesz00_12046 = BgL_arg2879z00_5736; 
BgL_linez00_12047 = BgL_arg2880z00_5737; 
BgL_linez00_5726 = BgL_linez00_12047; 
BgL_flinesz00_5725 = BgL_flinesz00_12046; 
goto BgL_loopz00_5724;} }  else 
{ /* Ieee/input.scm 618 */
return 
BINT(BgL_linez00_5726);} } }  else 
{ /* Ieee/input.scm 612 */
if(
STRINGP(BgL_fdescz00_94))
{ /* Ieee/input.scm 622 */
if(
fexists(
BSTRING_TO_STRING(BgL_fdescz00_94)))
{ /* Ieee/input.scm 638 */
 obj_t BgL_zc3z04anonymousza32898ze3z87_6046;
BgL_zc3z04anonymousza32898ze3z87_6046 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32898ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32898ze3z87_6046, 
(int)(0L), 
BINT(BgL_posz00_93)); 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_fdescz00_94, BgL_zc3z04anonymousza32898ze3z87_6046);}  else 
{ /* Ieee/input.scm 634 */
return BFALSE;} }  else 
{ /* Ieee/input.scm 622 */
return BFALSE;} } } 

}



/* &file-position->line */
obj_t BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00(obj_t BgL_envz00_6047, obj_t BgL_posz00_6048, obj_t BgL_fdescz00_6049)
{
{ /* Ieee/input.scm 610 */
{ /* Ieee/input.scm 612 */
 int BgL_auxz00_12061;
{ /* Ieee/input.scm 612 */
 obj_t BgL_tmpz00_12062;
if(
INTEGERP(BgL_posz00_6048))
{ /* Ieee/input.scm 612 */
BgL_tmpz00_12062 = BgL_posz00_6048
; }  else 
{ 
 obj_t BgL_auxz00_12065;
BgL_auxz00_12065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23319L), BGl_string4585z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_posz00_6048); 
FAILURE(BgL_auxz00_12065,BFALSE,BFALSE);} 
BgL_auxz00_12061 = 
CINT(BgL_tmpz00_12062); } 
return 
BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(BgL_auxz00_12061, BgL_fdescz00_6049);} } 

}



/* &<@anonymous:2898> */
obj_t BGl_z62zc3z04anonymousza32898ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6050)
{
{ /* Ieee/input.scm 637 */
{ /* Ieee/input.scm 638 */
 int BgL_posz00_6051;
{ /* Ieee/input.scm 638 */
 obj_t BgL_tmpz00_12071;
{ /* Ieee/input.scm 638 */
 obj_t BgL_aux4376z00_6905;
BgL_aux4376z00_6905 = 
PROCEDURE_REF(BgL_envz00_6050, 
(int)(0L)); 
if(
INTEGERP(BgL_aux4376z00_6905))
{ /* Ieee/input.scm 638 */
BgL_tmpz00_12071 = BgL_aux4376z00_6905
; }  else 
{ 
 obj_t BgL_auxz00_12076;
BgL_auxz00_12076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23928L), BGl_string4586z00zz__r4_input_6_10_2z00, BGl_string4506z00zz__r4_input_6_10_2z00, BgL_aux4376z00_6905); 
FAILURE(BgL_auxz00_12076,BFALSE,BFALSE);} } 
BgL_posz00_6051 = 
CINT(BgL_tmpz00_12071); } 
{ 
 obj_t BgL_iportz00_7217; obj_t BgL_posz00_7218; long BgL_linez00_7219;
{ /* Ieee/input.scm 638 */
 obj_t BgL_arg2899z00_7260;
{ /* Ieee/input.scm 638 */
 obj_t BgL_tmpz00_12081;
BgL_tmpz00_12081 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2899z00_7260 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_12081); } 
BgL_iportz00_7217 = BgL_arg2899z00_7260; 
BgL_posz00_7218 = 
BINT(BgL_posz00_6051); 
BgL_linez00_7219 = 1L; 
{ 
 obj_t BgL_iportz00_7245; long BgL_lastzd2matchzd2_7246; long BgL_forwardz00_7247; long BgL_bufposz00_7248; obj_t BgL_iportz00_7237; long BgL_lastzd2matchzd2_7238; long BgL_forwardz00_7239; long BgL_bufposz00_7240; obj_t BgL_iportz00_7228; long BgL_lastzd2matchzd2_7229; long BgL_forwardz00_7230; long BgL_bufposz00_7231;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_7217))
{ /* Ieee/input.scm 623 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2909z00_7253;
{ /* Ieee/input.scm 623 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_7254;
{ /* Ieee/input.scm 623 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_7255;
BgL_new1045z00_7255 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 623 */
 long BgL_arg2913z00_7256;
BgL_arg2913z00_7256 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_7255), BgL_arg2913z00_7256); } 
BgL_new1046z00_7254 = BgL_new1045z00_7255; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7254)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7254)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_12094;
{ /* Ieee/input.scm 623 */
 obj_t BgL_arg2910z00_7257;
{ /* Ieee/input.scm 623 */
 obj_t BgL_arg2912z00_7258;
{ /* Ieee/input.scm 623 */
 obj_t BgL_classz00_7259;
BgL_classz00_7259 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2912z00_7258 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7259); } 
BgL_arg2910z00_7257 = 
VECTOR_REF(BgL_arg2912z00_7258,2L); } 
{ /* Ieee/input.scm 623 */
 obj_t BgL_auxz00_12098;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2910z00_7257))
{ /* Ieee/input.scm 623 */
BgL_auxz00_12098 = BgL_arg2910z00_7257
; }  else 
{ 
 obj_t BgL_auxz00_12101;
BgL_auxz00_12101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(23566L), BGl_string4584z00zz__r4_input_6_10_2z00, BGl_string4405z00zz__r4_input_6_10_2z00, BgL_arg2910z00_7257); 
FAILURE(BgL_auxz00_12101,BFALSE,BFALSE);} 
BgL_auxz00_12094 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_12098); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7254)))->BgL_stackz00)=((obj_t)BgL_auxz00_12094),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7254)))->BgL_procz00)=((obj_t)BGl_string4390z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7254)))->BgL_msgz00)=((obj_t)BGl_string4406z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7254)))->BgL_objz00)=((obj_t)BgL_iportz00_7217),BUNSPEC); 
BgL_arg2909z00_7253 = BgL_new1046z00_7254; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2909z00_7253));}  else 
{ /* Ieee/input.scm 623 */
BgL_ignorez00_7220:
RGC_START_MATCH(BgL_iportz00_7217); 
{ /* Ieee/input.scm 623 */
 long BgL_matchz00_7224;
{ /* Ieee/input.scm 623 */
 long BgL_arg3066z00_7225; long BgL_arg3067z00_7226;
BgL_arg3066z00_7225 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7217); 
BgL_arg3067z00_7226 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7217); 
BgL_iportz00_7228 = BgL_iportz00_7217; 
BgL_lastzd2matchzd2_7229 = 2L; 
BgL_forwardz00_7230 = BgL_arg3066z00_7225; 
BgL_bufposz00_7231 = BgL_arg3067z00_7226; 
BgL_statezd20zd21161z00_7221:
if(
(BgL_forwardz00_7230==BgL_bufposz00_7231))
{ /* Ieee/input.scm 623 */
if(
rgc_fill_buffer(BgL_iportz00_7228))
{ /* Ieee/input.scm 623 */
 long BgL_arg2935z00_7232; long BgL_arg2936z00_7233;
BgL_arg2935z00_7232 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7228); 
BgL_arg2936z00_7233 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7228); 
{ 
 long BgL_bufposz00_12125; long BgL_forwardz00_12124;
BgL_forwardz00_12124 = BgL_arg2935z00_7232; 
BgL_bufposz00_12125 = BgL_arg2936z00_7233; 
BgL_bufposz00_7231 = BgL_bufposz00_12125; 
BgL_forwardz00_7230 = BgL_forwardz00_12124; 
goto BgL_statezd20zd21161z00_7221;} }  else 
{ /* Ieee/input.scm 623 */
BgL_matchz00_7224 = BgL_lastzd2matchzd2_7229; } }  else 
{ /* Ieee/input.scm 623 */
 int BgL_curz00_7234;
BgL_curz00_7234 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7228, BgL_forwardz00_7230); 
{ /* Ieee/input.scm 623 */

if(
(
(long)(BgL_curz00_7234)==10L))
{ /* Ieee/input.scm 623 */
 long BgL_arg2938z00_7235;
BgL_arg2938z00_7235 = 
(1L+BgL_forwardz00_7230); 
{ /* Ieee/input.scm 623 */
 long BgL_newzd2matchzd2_7236;
RGC_STOP_MATCH(BgL_iportz00_7228, BgL_arg2938z00_7235); 
BgL_newzd2matchzd2_7236 = 0L; 
BgL_matchz00_7224 = BgL_newzd2matchzd2_7236; } }  else 
{ /* Ieee/input.scm 623 */
BgL_iportz00_7237 = BgL_iportz00_7228; 
BgL_lastzd2matchzd2_7238 = BgL_lastzd2matchzd2_7229; 
BgL_forwardz00_7239 = 
(1L+BgL_forwardz00_7230); 
BgL_bufposz00_7240 = BgL_bufposz00_7231; 
BgL_statezd21zd21162z00_7222:
{ /* Ieee/input.scm 623 */
 long BgL_newzd2matchzd2_7241;
RGC_STOP_MATCH(BgL_iportz00_7237, BgL_forwardz00_7239); 
BgL_newzd2matchzd2_7241 = 1L; 
if(
(BgL_forwardz00_7239==BgL_bufposz00_7240))
{ /* Ieee/input.scm 623 */
if(
rgc_fill_buffer(BgL_iportz00_7237))
{ /* Ieee/input.scm 623 */
 long BgL_arg2927z00_7242; long BgL_arg2928z00_7243;
BgL_arg2927z00_7242 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7237); 
BgL_arg2928z00_7243 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7237); 
{ 
 long BgL_bufposz00_12140; long BgL_forwardz00_12139;
BgL_forwardz00_12139 = BgL_arg2927z00_7242; 
BgL_bufposz00_12140 = BgL_arg2928z00_7243; 
BgL_bufposz00_7240 = BgL_bufposz00_12140; 
BgL_forwardz00_7239 = BgL_forwardz00_12139; 
goto BgL_statezd21zd21162z00_7222;} }  else 
{ /* Ieee/input.scm 623 */
BgL_matchz00_7224 = BgL_newzd2matchzd2_7241; } }  else 
{ /* Ieee/input.scm 623 */
 int BgL_curz00_7244;
BgL_curz00_7244 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7237, BgL_forwardz00_7239); 
{ /* Ieee/input.scm 623 */

if(
(
(long)(BgL_curz00_7244)==10L))
{ /* Ieee/input.scm 623 */
BgL_matchz00_7224 = BgL_newzd2matchzd2_7241; }  else 
{ /* Ieee/input.scm 623 */
BgL_iportz00_7245 = BgL_iportz00_7237; 
BgL_lastzd2matchzd2_7246 = BgL_newzd2matchzd2_7241; 
BgL_forwardz00_7247 = 
(1L+BgL_forwardz00_7239); 
BgL_bufposz00_7248 = BgL_bufposz00_7240; 
BgL_statezd24zd21165z00_7223:
{ /* Ieee/input.scm 623 */
 long BgL_newzd2matchzd2_7249;
RGC_STOP_MATCH(BgL_iportz00_7245, BgL_forwardz00_7247); 
BgL_newzd2matchzd2_7249 = 1L; 
if(
(BgL_forwardz00_7247==BgL_bufposz00_7248))
{ /* Ieee/input.scm 623 */
if(
rgc_fill_buffer(BgL_iportz00_7245))
{ /* Ieee/input.scm 623 */
 long BgL_arg2919z00_7250; long BgL_arg2920z00_7251;
BgL_arg2919z00_7250 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7245); 
BgL_arg2920z00_7251 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7245); 
{ 
 long BgL_bufposz00_12153; long BgL_forwardz00_12152;
BgL_forwardz00_12152 = BgL_arg2919z00_7250; 
BgL_bufposz00_12153 = BgL_arg2920z00_7251; 
BgL_bufposz00_7248 = BgL_bufposz00_12153; 
BgL_forwardz00_7247 = BgL_forwardz00_12152; 
goto BgL_statezd24zd21165z00_7223;} }  else 
{ /* Ieee/input.scm 623 */
BgL_matchz00_7224 = BgL_newzd2matchzd2_7249; } }  else 
{ /* Ieee/input.scm 623 */
 int BgL_curz00_7252;
BgL_curz00_7252 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7245, BgL_forwardz00_7247); 
{ /* Ieee/input.scm 623 */

if(
(
(long)(BgL_curz00_7252)==10L))
{ /* Ieee/input.scm 623 */
BgL_matchz00_7224 = BgL_newzd2matchzd2_7249; }  else 
{ 
 long BgL_forwardz00_12159; long BgL_lastzd2matchzd2_12158;
BgL_lastzd2matchzd2_12158 = BgL_newzd2matchzd2_7249; 
BgL_forwardz00_12159 = 
(1L+BgL_forwardz00_7247); 
BgL_forwardz00_7247 = BgL_forwardz00_12159; 
BgL_lastzd2matchzd2_7246 = BgL_lastzd2matchzd2_12158; 
goto BgL_statezd24zd21165z00_7223;} } } } } } } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_7217); 
switch( BgL_matchz00_7224) { case 2L : 

return BFALSE;break;case 1L : 

goto BgL_ignorez00_7220;break;case 0L : 

{ /* Ieee/input.scm 625 */
 bool_t BgL_test5443z00_12164;
{ /* Ieee/input.scm 625 */
 long BgL_arg3063z00_7227;
BgL_arg3063z00_7227 = 
INPUT_PORT_FILEPOS(BgL_iportz00_7217); 
BgL_test5443z00_12164 = 
(BgL_arg3063z00_7227>=
(long)CINT(BgL_posz00_7218)); } 
if(BgL_test5443z00_12164)
{ /* Ieee/input.scm 625 */
return 
BINT(BgL_linez00_7219);}  else 
{ /* Ieee/input.scm 625 */
BgL_linez00_7219 = 
(BgL_linez00_7219+1L); 
goto BgL_ignorez00_7220;} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4390z00zz__r4_input_6_10_2z00, BGl_string4391z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_7224));} } } } } } } } 

}



/* _password */
obj_t BGl__passwordz00zz__r4_input_6_10_2z00(obj_t BgL_env1331z00_97, obj_t BgL_opt1330z00_96)
{
{ /* Ieee/input.scm 645 */
{ /* Ieee/input.scm 645 */

{ 

{ /* Ieee/input.scm 645 */
 long BgL_aux1333z00_7263;
{ 
 obj_t BgL_auxz00_12174;
if(
VECTORP(BgL_opt1330z00_96))
{ /* Ieee/input.scm 645 */
BgL_auxz00_12174 = BgL_opt1330z00_96
; }  else 
{ 
 obj_t BgL_auxz00_12177;
BgL_auxz00_12177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(24216L), BGl_string4590z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1330z00_96); 
FAILURE(BgL_auxz00_12177,BFALSE,BFALSE);} 
BgL_aux1333z00_7263 = 
VECTOR_LENGTH(BgL_auxz00_12174); } 
switch( BgL_aux1333z00_7263) { case 0L : 

{ /* Ieee/input.scm 645 */

return 
bgl_password(
BSTRING_TO_STRING(BGl_string4493z00zz__r4_input_6_10_2z00));} break;case 1L : 

{ /* Ieee/input.scm 645 */
 obj_t BgL_promptz00_7264;
{ 
 obj_t BgL_auxz00_12184;
if(
VECTORP(BgL_opt1330z00_96))
{ /* Ieee/input.scm 645 */
BgL_auxz00_12184 = BgL_opt1330z00_96
; }  else 
{ 
 obj_t BgL_auxz00_12187;
BgL_auxz00_12187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(24216L), BGl_string4590z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1330z00_96); 
FAILURE(BgL_auxz00_12187,BFALSE,BFALSE);} 
BgL_promptz00_7264 = 
VECTOR_REF(BgL_auxz00_12184,0L); } 
{ /* Ieee/input.scm 645 */

{ /* Ieee/input.scm 645 */
 obj_t BgL_promptz00_7265;
if(
STRINGP(BgL_promptz00_7264))
{ /* Ieee/input.scm 645 */
BgL_promptz00_7265 = BgL_promptz00_7264; }  else 
{ 
 obj_t BgL_auxz00_12194;
BgL_auxz00_12194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(24216L), BGl_string4590z00zz__r4_input_6_10_2z00, BGl_string4395z00zz__r4_input_6_10_2z00, BgL_promptz00_7264); 
FAILURE(BgL_auxz00_12194,BFALSE,BFALSE);} 
return 
bgl_password(
BSTRING_TO_STRING(BgL_promptz00_7265));} } } break;
default: 
{ /* Ieee/input.scm 645 */
 long BgL_arg3068z00_7262;
{ 
 obj_t BgL_auxz00_12200;
if(
VECTORP(BgL_opt1330z00_96))
{ /* Ieee/input.scm 645 */
BgL_auxz00_12200 = BgL_opt1330z00_96
; }  else 
{ 
 obj_t BgL_auxz00_12203;
BgL_auxz00_12203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4387z00zz__r4_input_6_10_2z00, 
BINT(24216L), BGl_string4587z00zz__r4_input_6_10_2z00, BGl_string4459z00zz__r4_input_6_10_2z00, BgL_opt1330z00_96); 
FAILURE(BgL_auxz00_12203,BFALSE,BFALSE);} 
BgL_arg3068z00_7262 = 
VECTOR_LENGTH(BgL_auxz00_12200); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4588z00zz__r4_input_6_10_2z00, BGl_string4462z00zz__r4_input_6_10_2z00, 
BINT(BgL_arg3068z00_7262));} } } } } } 

}



/* password */
BGL_EXPORTED_DEF obj_t BGl_passwordz00zz__r4_input_6_10_2z00(obj_t BgL_promptz00_95)
{
{ /* Ieee/input.scm 645 */
return 
bgl_password(
BSTRING_TO_STRING(BgL_promptz00_95));} 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(void)
{
{ /* Ieee/input.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string4591z00zz__r4_input_6_10_2z00)); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L, 
BSTRING_TO_STRING(BGl_string4591z00zz__r4_input_6_10_2z00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string4591z00zz__r4_input_6_10_2z00)); 
return 
BGl_modulezd2initializa7ationz75zz__gunza7ipza7(224363699L, 
BSTRING_TO_STRING(BGl_string4591z00zz__r4_input_6_10_2z00));} 

}

#ifdef __cplusplus
}
#endif
