/*===========================================================================*/
/*   (Ieee/input.scm)                                                        */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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;
extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
static obj_t BGl_symbol4260z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4343z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4262z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4347z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4266z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4239z00zz__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_z62zc3z04anonymousza32656ze3ze5zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
static int BGl_z52sendcharsz52zz__r4_input_6_10_2z00(obj_t, obj_t, long, long);
static obj_t BGl_symbol4351z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_symbol4355z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4274z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4276z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4244z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4278z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4247z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4248z00zz__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_z62zc3z04anonymousza32673ze3ze5zz__r4_input_6_10_2z00(obj_t);
extern bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t);
static obj_t BGl_symbol4283z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4251z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4366z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4286z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4256z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4259z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza32844ze3ze5zz__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_symbol4370z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4290z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t bgl_file_to_string(char *);
static obj_t BGl_symbol4374z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4293z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4296z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4265z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4299z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4268z00zz__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_symbol4380z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4386z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list4273z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(void);
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_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);
extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_list4282z00zz__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);
BGL_EXPORTED_DECL obj_t BGl_filezd2lineszd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(void);
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_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_z62zc3z04anonymousza31401ze3ze5zz__r4_input_6_10_2z00(obj_t, obj_t);
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__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__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 bstring_to_symbol(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;
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);
static obj_t BGl_symbol4302z00zz__r4_input_6_10_2z00 = BUNSPEC;
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);
static obj_t BGl_symbol4313z00zz__r4_input_6_10_2z00 = BUNSPEC;
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);
static obj_t BGl_symbol4236z00zz__r4_input_6_10_2z00 = BUNSPEC;
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);
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_symbol4320z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4240z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4322z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4242z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4245z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4327z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4329z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4249z00zz__r4_input_6_10_2z00 = BUNSPEC;
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_z62zc3z04anonymousza32670ze3ze5zz__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_symbol4252z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4335z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4254z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4257z00zz__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);
static obj_t BGl_symbol4339z00zz__r4_input_6_10_2z00 = BUNSPEC;
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__peekza7d2byteza7d2za74390za7, opt_generic_entry, BGl__peekzd2bytezd2zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4381z00zz__r4_input_6_10_2z00, BgL_bgl_string4381za700za7za7_4391za7, "file-lines", 10 );
DEFINE_STRING( BGl_string4382z00zz__r4_input_6_10_2z00, BgL_bgl_string4382za700za7za7_4392za7, "Illegal files", 13 );
DEFINE_STRING( BGl_string4383z00zz__r4_input_6_10_2z00, BgL_bgl_string4383za700za7za7_4393za7, "gram", 4 );
DEFINE_STRING( BGl_string4384z00zz__r4_input_6_10_2z00, BgL_bgl_string4384za700za7za7_4394za7, "&file-position->line", 20 );
DEFINE_STRING( BGl_string4385z00zz__r4_input_6_10_2z00, BgL_bgl_string4385za700za7za7_4395za7, "&<@anonymous:2844>", 18 );
DEFINE_STRING( BGl_string4387z00zz__r4_input_6_10_2z00, BgL_bgl_string4387za700za7za7_4396za7, "password", 8 );
DEFINE_STRING( BGl_string4388z00zz__r4_input_6_10_2z00, BgL_bgl_string4388za700za7za7_4397za7, "_password", 9 );
DEFINE_STRING( BGl_string4389z00zz__r4_input_6_10_2z00, BgL_bgl_string4389za700za7za7_4398za7, "__r4_input_6_10_2", 17 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2bytezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2byteza7d2za74399za7, 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_za762readza7f2lalrpza74400za7, va_generic_entry, BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00, BUNSPEC, -4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charsza7d24401z00, opt_generic_entry, BGl__readzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_sendzd2filezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2fileza7d2za74402za7, opt_generic_entry, BGl__sendzd2filezd2zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_filezd2ze3stringzd2envze3zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2za7e3str4403za7, BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_filezd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2linesza74404za7, BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2linezd2newlinezd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2n4405z00, 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__peekza7d2charza7d2za74406za7, opt_generic_entry, BGl__peekzd2charzd2zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2charsz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charsza7124407z00, 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__readza7d2charza7d2za74408za7, 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__charza7d2readyza7f34409z00, 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__unreadza7d2charza714410z00, opt_generic_entry, BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4216z00zz__r4_input_6_10_2z00, BgL_bgl_string4216za700za7za7_4411za7, "/tmp/bigloo/runtime/Ieee/input.scm", 34 );
DEFINE_STRING( BGl_string4217z00zz__r4_input_6_10_2z00, BgL_bgl_string4217za700za7za7_4412za7, "ignore", 6 );
DEFINE_STRING( BGl_string4218z00zz__r4_input_6_10_2z00, BgL_bgl_string4218za700za7za7_4413za7, "input-port", 10 );
DEFINE_STRING( BGl_string4219z00zz__r4_input_6_10_2z00, BgL_bgl_string4219za700za7za7_4414za7, "regular-grammar", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_sendzd2charszf2siza7ezd2envz55zz__r4_input_6_10_2z00, BgL_bgl_za762sendza7d2charsza74415za7, BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00, 0L, BUNSPEC, 4 );
DEFINE_STRING( BGl_string4300z00zz__r4_input_6_10_2z00, BgL_bgl_string4300za700za7za7_4416za7, "char-ready?", 11 );
DEFINE_STRING( BGl_string4301z00zz__r4_input_6_10_2z00, BgL_bgl_string4301za700za7za7_4417za7, "_char-ready?", 12 );
DEFINE_STRING( BGl_string4220z00zz__r4_input_6_10_2z00, BgL_bgl_string4220za700za7za7_4418za7, "Illegal match", 13 );
DEFINE_STRING( BGl_string4221z00zz__r4_input_6_10_2z00, BgL_bgl_string4221za700za7za7_4419za7, "the-failure", 11 );
DEFINE_STRING( BGl_string4303z00zz__r4_input_6_10_2z00, BgL_bgl_string4303za700za7za7_4420za7, "read-line", 9 );
DEFINE_STRING( BGl_string4222z00zz__r4_input_6_10_2z00, BgL_bgl_string4222za700za7za7_4421za7, "the-substring", 13 );
DEFINE_STRING( BGl_string4304z00zz__r4_input_6_10_2z00, BgL_bgl_string4304za700za7za7_4422za7, "STATE-1-1069", 12 );
DEFINE_STRING( BGl_string4223z00zz__r4_input_6_10_2z00, BgL_bgl_string4223za700za7za7_4423za7, "Illegal range `~a'", 18 );
DEFINE_STRING( BGl_string4305z00zz__r4_input_6_10_2z00, BgL_bgl_string4305za700za7za7_4424za7, "STATE-0-1068", 12 );
DEFINE_STRING( BGl_string4224z00zz__r4_input_6_10_2z00, BgL_bgl_string4224za700za7za7_4425za7, "bstring", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl_za762readza7f2rpza790za74426z00, va_generic_entry, BGl_z62readzf2rpz90zz__r4_input_6_10_2z00, BUNSPEC, -3 );
DEFINE_STRING( BGl_string4306z00zz__r4_input_6_10_2z00, BgL_bgl_string4306za700za7za7_4427za7, "STATE-3-1071", 12 );
DEFINE_STRING( BGl_string4225z00zz__r4_input_6_10_2z00, BgL_bgl_string4225za700za7za7_4428za7, "STATE-8-1113", 12 );
DEFINE_STRING( BGl_string4307z00zz__r4_input_6_10_2z00, BgL_bgl_string4307za700za7za7_4429za7, "STATE-6-1074", 12 );
DEFINE_STRING( BGl_string4226z00zz__r4_input_6_10_2z00, BgL_bgl_string4226za700za7za7_4430za7, "STATE-6-1111", 12 );
DEFINE_STRING( BGl_string4308z00zz__r4_input_6_10_2z00, BgL_bgl_string4308za700za7za7_4431za7, "STATE-8-1076", 12 );
DEFINE_STRING( BGl_string4227z00zz__r4_input_6_10_2z00, BgL_bgl_string4227za700za7za7_4432za7, "STATE-9-1114", 12 );
DEFINE_STRING( BGl_string4309z00zz__r4_input_6_10_2z00, BgL_bgl_string4309za700za7za7_4433za7, "", 0 );
DEFINE_STRING( BGl_string4228z00zz__r4_input_6_10_2z00, BgL_bgl_string4228za700za7za7_4434za7, "STATE-0-1105", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2za74435za7, opt_generic_entry, BGl__readzd2linezd2zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4229z00zz__r4_input_6_10_2z00, BgL_bgl_string4229za700za7za7_4436za7, "STATE-4-1109", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2stringza7d4437z00, 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__unreadza7d2string4438za7, opt_generic_entry, BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4310z00zz__r4_input_6_10_2z00, BgL_bgl_string4310za700za7za7_4439za7, "loop", 4 );
DEFINE_STRING( BGl_string4311z00zz__r4_input_6_10_2z00, BgL_bgl_string4311za700za7za7_4440za7, "bchar", 5 );
DEFINE_STRING( BGl_string4230z00zz__r4_input_6_10_2z00, BgL_bgl_string4230za700za7za7_4441za7, "STATE-2-1107", 12 );
DEFINE_STRING( BGl_string4312z00zz__r4_input_6_10_2z00, BgL_bgl_string4312za700za7za7_4442za7, "string-set!", 11 );
DEFINE_STRING( BGl_string4231z00zz__r4_input_6_10_2z00, BgL_bgl_string4231za700za7za7_4443za7, "STATE-3-1108", 12 );
DEFINE_STRING( BGl_string4232z00zz__r4_input_6_10_2z00, BgL_bgl_string4232za700za7za7_4444za7, "STATE-1-1106", 12 );
DEFINE_STRING( BGl_string4314z00zz__r4_input_6_10_2z00, BgL_bgl_string4314za700za7za7_4445za7, "read-line-newline", 17 );
DEFINE_STRING( BGl_string4233z00zz__r4_input_6_10_2z00, BgL_bgl_string4233za700za7za7_4446za7, "<@anonymous:1401>", 17 );
DEFINE_STRING( BGl_string4315z00zz__r4_input_6_10_2z00, BgL_bgl_string4315za700za7za7_4447za7, "STATE-6-1089", 12 );
DEFINE_STRING( BGl_string4234z00zz__r4_input_6_10_2z00, BgL_bgl_string4234za700za7za7_4448za7, "class-field", 11 );
DEFINE_STRING( BGl_string4316z00zz__r4_input_6_10_2z00, BgL_bgl_string4316za700za7za7_4449za7, "STATE-3-1086", 12 );
DEFINE_STRING( BGl_string4235z00zz__r4_input_6_10_2z00, BgL_bgl_string4235za700za7za7_4450za7, "Can't read on a closed input port", 33 );
DEFINE_STRING( BGl_string4317z00zz__r4_input_6_10_2z00, BgL_bgl_string4317za700za7za7_4451za7, "STATE-0-1083", 12 );
DEFINE_STRING( BGl_string4318z00zz__r4_input_6_10_2z00, BgL_bgl_string4318za700za7za7_4452za7, "STATE-1-1084", 12 );
DEFINE_STRING( BGl_string4237z00zz__r4_input_6_10_2z00, BgL_bgl_string4237za700za7za7_4453za7, "read/rp", 7 );
DEFINE_STRING( BGl_string4319z00zz__r4_input_6_10_2z00, BgL_bgl_string4319za700za7za7_4454za7, "STATE-7-1090", 12 );
DEFINE_STRING( BGl_string4238z00zz__r4_input_6_10_2z00, BgL_bgl_string4238za700za7za7_4455za7, "Wrong number of arguments", 25 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2ofza7d2str4456z00, opt_generic_entry, BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4321z00zz__r4_input_6_10_2z00, BgL_bgl_string4321za700za7za7_4457za7, "read-lines", 10 );
DEFINE_STRING( BGl_string4241z00zz__r4_input_6_10_2z00, BgL_bgl_string4241za700za7za7_4458za7, "apply", 5 );
DEFINE_STRING( BGl_string4323z00zz__r4_input_6_10_2z00, BgL_bgl_string4323za700za7za7_4459za7, "read-string", 11 );
DEFINE_STRING( BGl_string4324z00zz__r4_input_6_10_2z00, BgL_bgl_string4324za700za7za7_4460za7, "STATE-2-1101", 12 );
DEFINE_STRING( BGl_string4243z00zz__r4_input_6_10_2z00, BgL_bgl_string4243za700za7za7_4461za7, "grammar", 7 );
DEFINE_STRING( BGl_string4325z00zz__r4_input_6_10_2z00, BgL_bgl_string4325za700za7za7_4462za7, "STATE-1-1100", 12 );
DEFINE_STRING( BGl_string4326z00zz__r4_input_6_10_2z00, BgL_bgl_string4326za700za7za7_4463za7, "STATE-0-1099", 12 );
DEFINE_STRING( BGl_string4246z00zz__r4_input_6_10_2z00, BgL_bgl_string4246za700za7za7_4464za7, "let", 3 );
DEFINE_STRING( BGl_string4328z00zz__r4_input_6_10_2z00, BgL_bgl_string4328za700za7za7_4465za7, "read-of-strings", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00, BgL_bgl__readza7d2fillza7d2s4466z00, 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_za762eofza7d2objectza74467za7, BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 0 );
DEFINE_STRING( BGl_string4330z00zz__r4_input_6_10_2z00, BgL_bgl_string4330za700za7za7_4468za7, "read-chars", 10 );
DEFINE_STRING( BGl_string4331z00zz__r4_input_6_10_2z00, BgL_bgl_string4331za700za7za7_4469za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_STRING( BGl_string4250z00zz__r4_input_6_10_2z00, BgL_bgl_string4250za700za7za7_4470za7, "list1605", 8 );
DEFINE_STRING( BGl_string4332z00zz__r4_input_6_10_2z00, BgL_bgl_string4332za700za7za7_4471za7, "integer", 7 );
DEFINE_STRING( BGl_string4333z00zz__r4_input_6_10_2z00, BgL_bgl_string4333za700za7za7_4472za7, "bint", 4 );
DEFINE_STRING( BGl_string4334z00zz__r4_input_6_10_2z00, BgL_bgl_string4334za700za7za7_4473za7, "Illegal negative length", 23 );
DEFINE_STRING( BGl_string4253z00zz__r4_input_6_10_2z00, BgL_bgl_string4253za700za7za7_4474za7, "$cons", 5 );
DEFINE_STRING( BGl_string4336z00zz__r4_input_6_10_2z00, BgL_bgl_string4336za700za7za7_4475za7, "read-chars!", 11 );
DEFINE_STRING( BGl_string4255z00zz__r4_input_6_10_2z00, BgL_bgl_string4255za700za7za7_4476za7, "opts", 4 );
DEFINE_STRING( BGl_string4337z00zz__r4_input_6_10_2z00, BgL_bgl_string4337za700za7za7_4477za7, "wrong number of arguments: [2..3] expected, provided", 52 );
DEFINE_STRING( BGl_string4338z00zz__r4_input_6_10_2z00, BgL_bgl_string4338za700za7za7_4478za7, "_read-chars!", 12 );
DEFINE_STRING( BGl_string4258z00zz__r4_input_6_10_2z00, BgL_bgl_string4258za700za7za7_4479za7, "quote", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl_za762eofza7d2objectza74480za7, BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4340z00zz__r4_input_6_10_2z00, BgL_bgl_string4340za700za7za7_4481za7, "read-fill-string!", 17 );
DEFINE_STRING( BGl_string4341z00zz__r4_input_6_10_2z00, BgL_bgl_string4341za700za7za7_4482za7, "wrong number of arguments: [3..4] expected, provided", 52 );
DEFINE_STRING( BGl_string4342z00zz__r4_input_6_10_2z00, BgL_bgl_string4342za700za7za7_4483za7, "_read-fill-string!", 18 );
DEFINE_STRING( BGl_string4261z00zz__r4_input_6_10_2z00, BgL_bgl_string4261za700za7za7_4484za7, "cons*", 5 );
DEFINE_STRING( BGl_string4344z00zz__r4_input_6_10_2z00, BgL_bgl_string4344za700za7za7_4485za7, "unread-char!", 12 );
DEFINE_STRING( BGl_string4263z00zz__r4_input_6_10_2z00, BgL_bgl_string4263za700za7za7_4486za7, "port", 4 );
DEFINE_STRING( BGl_string4345z00zz__r4_input_6_10_2z00, BgL_bgl_string4345za700za7za7_4487za7, "_unread-char!", 13 );
DEFINE_STRING( BGl_string4264z00zz__r4_input_6_10_2z00, BgL_bgl_string4264za700za7za7_4488za7, "read/rp:Wrong number of arguments", 33 );
DEFINE_STRING( BGl_string4346z00zz__r4_input_6_10_2z00, BgL_bgl_string4346za700za7za7_4489za7, "Unread char failed", 18 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_passwordzd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__passwordza700za7za7__4490za7, opt_generic_entry, BGl__passwordz00zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4348z00zz__r4_input_6_10_2z00, BgL_bgl_string4348za700za7za7_4491za7, "unread-string!", 14 );
DEFINE_STRING( BGl_string4267z00zz__r4_input_6_10_2z00, BgL_bgl_string4267za700za7za7_4492za7, "funcall", 7 );
DEFINE_STRING( BGl_string4349z00zz__r4_input_6_10_2z00, BgL_bgl_string4349za700za7za7_4493za7, "_unread-string!", 15 );
DEFINE_STRING( BGl_string4269z00zz__r4_input_6_10_2z00, BgL_bgl_string4269za700za7za7_4494za7, "Grammar arity mismatch", 22 );
DEFINE_STRING( BGl_string4350z00zz__r4_input_6_10_2z00, BgL_bgl_string4350za700za7za7_4495za7, "Unread string failed", 20 );
DEFINE_STRING( BGl_string4270z00zz__r4_input_6_10_2z00, BgL_bgl_string4270za700za7za7_4496za7, "&read/rp", 8 );
DEFINE_STRING( BGl_string4352z00zz__r4_input_6_10_2z00, BgL_bgl_string4352za700za7za7_4497za7, "unread-substring!", 17 );
DEFINE_STRING( BGl_string4271z00zz__r4_input_6_10_2z00, BgL_bgl_string4271za700za7za7_4498za7, "procedure", 9 );
DEFINE_STRING( BGl_string4353z00zz__r4_input_6_10_2z00, BgL_bgl_string4353za700za7za7_4499za7, "_unread-substring!", 18 );
DEFINE_STRING( BGl_string4272z00zz__r4_input_6_10_2z00, BgL_bgl_string4272za700za7za7_4500za7, "read/lalrp:Wrong number of arguments", 36 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_portzd2ze3stringzd2listzd2envz31zz__r4_input_6_10_2z00, BgL_bgl_za762portza7d2za7e3str4501za7, BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4354z00zz__r4_input_6_10_2z00, BgL_bgl_string4354za700za7za7_4502za7, "Invalid positional parameters", 29 );
DEFINE_STRING( BGl_string4356z00zz__r4_input_6_10_2z00, BgL_bgl_string4356za700za7za7_4503za7, "unread-sustring!", 16 );
DEFINE_STRING( BGl_string4275z00zz__r4_input_6_10_2z00, BgL_bgl_string4275za700za7za7_4504za7, "lalr", 4 );
DEFINE_STRING( BGl_string4357z00zz__r4_input_6_10_2z00, BgL_bgl_string4357za700za7za7_4505za7, "&port->string-list", 18 );
DEFINE_STRING( BGl_string4358z00zz__r4_input_6_10_2z00, BgL_bgl_string4358za700za7za7_4506za7, "file:", 5 );
DEFINE_STRING( BGl_string4277z00zz__r4_input_6_10_2z00, BgL_bgl_string4277za700za7za7_4507za7, "rgc", 3 );
DEFINE_STRING( BGl_string4359z00zz__r4_input_6_10_2z00, BgL_bgl_string4359za700za7za7_4508za7, "file->string", 12 );
DEFINE_STRING( BGl_string4279z00zz__r4_input_6_10_2z00, BgL_bgl_string4279za700za7za7_4509za7, "eof-object?-env", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2linesza7d24510z00, 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__sendza7d2charsza7d24511z00, opt_generic_entry, BGl__sendzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4360z00zz__r4_input_6_10_2z00, BgL_bgl_string4360za700za7za7_4512za7, "&file->string", 13 );
DEFINE_STRING( BGl_string4361z00zz__r4_input_6_10_2z00, BgL_bgl_string4361za700za7za7_4513za7, "<@anonymous:2656>", 17 );
DEFINE_STRING( BGl_string4280z00zz__r4_input_6_10_2z00, BgL_bgl_string4280za700za7za7_4514za7, "read/lalrp", 10 );
DEFINE_STRING( BGl_string4362z00zz__r4_input_6_10_2z00, BgL_bgl_string4362za700za7za7_4515za7, "send-chars/size", 15 );
DEFINE_STRING( BGl_string4281z00zz__r4_input_6_10_2z00, BgL_bgl_string4281za700za7za7_4516za7, "pair", 4 );
DEFINE_STRING( BGl_string4363z00zz__r4_input_6_10_2z00, BgL_bgl_string4363za700za7za7_4517za7, "&send-chars/size", 16 );
DEFINE_STRING( BGl_string4364z00zz__r4_input_6_10_2z00, BgL_bgl_string4364za700za7za7_4518za7, "output-port", 11 );
DEFINE_STRING( BGl_string4365z00zz__r4_input_6_10_2z00, BgL_bgl_string4365za700za7za7_4519za7, "belong", 6 );
DEFINE_STRING( BGl_string4284z00zz__r4_input_6_10_2z00, BgL_bgl_string4284za700za7za7_4520za7, "arg1607", 7 );
DEFINE_STRING( BGl_string4285z00zz__r4_input_6_10_2z00, BgL_bgl_string4285za700za7za7_4521za7, "&read/lalrp", 11 );
DEFINE_STRING( BGl_string4367z00zz__r4_input_6_10_2z00, BgL_bgl_string4367za700za7za7_4522za7, "send-chars::long", 16 );
DEFINE_STRING( BGl_string4368z00zz__r4_input_6_10_2z00, BgL_bgl_string4368za700za7za7_4523za7, "wrong number of arguments: [2..4] expected, provided", 52 );
DEFINE_STRING( BGl_string4287z00zz__r4_input_6_10_2z00, BgL_bgl_string4287za700za7za7_4524za7, "read-char", 9 );
DEFINE_STRING( BGl_string4369z00zz__r4_input_6_10_2z00, BgL_bgl_string4369za700za7za7_4525za7, "_send-chars", 11 );
DEFINE_STRING( BGl_string4288z00zz__r4_input_6_10_2z00, BgL_bgl_string4288za700za7za7_4526za7, "wrong number of arguments: [0..1] expected, provided", 52 );
DEFINE_STRING( BGl_string4289z00zz__r4_input_6_10_2z00, BgL_bgl_string4289za700za7za7_4527za7, "STATE-0-1040", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_unreadzd2substringz12zd2envz12zz__r4_input_6_10_2z00, BgL_bgl__unreadza7d2substr4528za7, opt_generic_entry, BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1 );
DEFINE_STRING( BGl_string4371z00zz__r4_input_6_10_2z00, BgL_bgl_string4371za700za7za7_4529za7, "send-chars", 10 );
DEFINE_STRING( BGl_string4372z00zz__r4_input_6_10_2z00, BgL_bgl_string4372za700za7za7_4530za7, "Illegal size", 12 );
DEFINE_STRING( BGl_string4291z00zz__r4_input_6_10_2z00, BgL_bgl_string4291za700za7za7_4531za7, "peek-char", 9 );
DEFINE_STRING( BGl_string4373z00zz__r4_input_6_10_2z00, BgL_bgl_string4373za700za7za7_4532za7, "Illegal offset", 14 );
DEFINE_STRING( BGl_string4292z00zz__r4_input_6_10_2z00, BgL_bgl_string4292za700za7za7_4533za7, "STATE-0-1048", 12 );
DEFINE_STRING( BGl_string4375z00zz__r4_input_6_10_2z00, BgL_bgl_string4375za700za7za7_4534za7, "send-file::long", 15 );
DEFINE_STRING( BGl_string4294z00zz__r4_input_6_10_2z00, BgL_bgl_string4294za700za7za7_4535za7, "read-byte", 9 );
DEFINE_STRING( BGl_string4376z00zz__r4_input_6_10_2z00, BgL_bgl_string4376za700za7za7_4536za7, "_send-file", 10 );
DEFINE_STRING( BGl_string4295z00zz__r4_input_6_10_2z00, BgL_bgl_string4295za700za7za7_4537za7, "STATE-0-1054", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_filezd2positionzd2ze3linezd2envz31zz__r4_input_6_10_2z00, BgL_bgl_za762fileza7d2positi4538z00, BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4377z00zz__r4_input_6_10_2z00, BgL_bgl_string4377za700za7za7_4539za7, "send-file", 9 );
DEFINE_STRING( BGl_string4378z00zz__r4_input_6_10_2z00, BgL_bgl_string4378za700za7za7_4540za7, "<@anonymous:2670>", 17 );
DEFINE_STRING( BGl_string4297z00zz__r4_input_6_10_2z00, BgL_bgl_string4297za700za7za7_4541za7, "peek-byte", 9 );
DEFINE_STRING( BGl_string4379z00zz__r4_input_6_10_2z00, BgL_bgl_string4379za700za7za7_4542za7, "&file-lines", 11 );
DEFINE_STRING( BGl_string4298z00zz__r4_input_6_10_2z00, BgL_bgl_string4298za700za7za7_4543za7, "STATE-0-1060", 12 );

/* 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_symbol4260z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4343z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4262z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4347z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4266z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4239z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4351z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4355z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4274z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4276z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4244z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4278z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4247z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4248z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4283z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4251z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4366z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4286z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4256z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4259z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4370z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4290z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4374z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4293z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4296z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4265z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4299z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4268z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4380z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4386z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4273z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_list4282z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4302z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4313z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4236z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4320z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4240z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4322z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4242z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4245z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4327z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4329z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4249z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4252z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4335z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4254z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4257z00zz__r4_input_6_10_2z00) );
ADD_ROOT( (void *)(&BGl_symbol4339z00zz__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_7038, char * BgL_fromz00_7039)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 = 
BBOOL(((bool_t)0)); 
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_symbol4236z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4237z00zz__r4_input_6_10_2z00); 
BGl_symbol4240z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4241z00zz__r4_input_6_10_2z00); 
BGl_symbol4242z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4243z00zz__r4_input_6_10_2z00); 
BGl_symbol4245z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4246z00zz__r4_input_6_10_2z00); 
BGl_symbol4249z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4250z00zz__r4_input_6_10_2z00); 
BGl_symbol4252z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4253z00zz__r4_input_6_10_2z00); 
BGl_symbol4254z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4255z00zz__r4_input_6_10_2z00); 
BGl_symbol4257z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4258z00zz__r4_input_6_10_2z00); 
BGl_list4256z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4257z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BNIL, BNIL)); 
BGl_list4251z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4252z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4254z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4256z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_list4248z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4249z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4251z00zz__r4_input_6_10_2z00, BNIL)); 
BGl_list4247z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_list4248z00zz__r4_input_6_10_2z00, BNIL); 
BGl_symbol4260z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4261z00zz__r4_input_6_10_2z00); 
BGl_symbol4262z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4263z00zz__r4_input_6_10_2z00); 
BGl_list4259z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4260z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4262z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4249z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_list4244z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4245z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4247z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4259z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_list4239z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4240z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4242z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_list4244z00zz__r4_input_6_10_2z00, BNIL))); 
BGl_symbol4266z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4267z00zz__r4_input_6_10_2z00); 
BGl_list4265z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4266z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4242z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4242z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4262z00zz__r4_input_6_10_2z00, BNIL)))); 
BGl_list4268z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4266z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4242z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4242z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4262z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BUNSPEC, BNIL))))); 
BGl_symbol4274z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4275z00zz__r4_input_6_10_2z00); 
BGl_symbol4276z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4277z00zz__r4_input_6_10_2z00); 
BGl_symbol4278z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4279z00zz__r4_input_6_10_2z00); 
BGl_list4273z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4266z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4274z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4274z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4276z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4262z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4278z00zz__r4_input_6_10_2z00, BNIL)))))); 
BGl_symbol4283z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4284z00zz__r4_input_6_10_2z00); 
BGl_list4282z00zz__r4_input_6_10_2z00 = 
MAKE_YOUNG_PAIR(BGl_symbol4266z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4274z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4274z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4276z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4262z00zz__r4_input_6_10_2z00, 
MAKE_YOUNG_PAIR(BGl_symbol4283z00zz__r4_input_6_10_2z00, BNIL)))))); 
BGl_symbol4286z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4287z00zz__r4_input_6_10_2z00); 
BGl_symbol4290z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4291z00zz__r4_input_6_10_2z00); 
BGl_symbol4293z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4294z00zz__r4_input_6_10_2z00); 
BGl_symbol4296z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4297z00zz__r4_input_6_10_2z00); 
BGl_symbol4299z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4300z00zz__r4_input_6_10_2z00); 
BGl_symbol4302z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4303z00zz__r4_input_6_10_2z00); 
BGl_symbol4313z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4314z00zz__r4_input_6_10_2z00); 
BGl_symbol4320z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4321z00zz__r4_input_6_10_2z00); 
BGl_symbol4322z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4323z00zz__r4_input_6_10_2z00); 
BGl_symbol4327z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4328z00zz__r4_input_6_10_2z00); 
BGl_symbol4329z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4330z00zz__r4_input_6_10_2z00); 
BGl_symbol4335z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4336z00zz__r4_input_6_10_2z00); 
BGl_symbol4339z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4340z00zz__r4_input_6_10_2z00); 
BGl_symbol4343z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4344z00zz__r4_input_6_10_2z00); 
BGl_symbol4347z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4348z00zz__r4_input_6_10_2z00); 
BGl_symbol4351z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4352z00zz__r4_input_6_10_2z00); 
BGl_symbol4355z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4356z00zz__r4_input_6_10_2z00); 
BGl_symbol4366z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4367z00zz__r4_input_6_10_2z00); 
BGl_symbol4370z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4371z00zz__r4_input_6_10_2z00); 
BGl_symbol4374z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4375z00zz__r4_input_6_10_2z00); 
BGl_symbol4380z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4381z00zz__r4_input_6_10_2z00); 
return ( 
BGl_symbol4386z00zz__r4_input_6_10_2z00 = 
bstring_to_symbol(BGl_string4387z00zz__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_zc3z04anonymousza31401ze3z87_5982;
{ 
 int BgL_tmpz00_7123;
BgL_tmpz00_7123 = 
(int)(0L); 
BgL_zc3z04anonymousza31401ze3z87_5982 = 
MAKE_EL_PROCEDURE(BgL_tmpz00_7123); } 
return ( 
BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BgL_zc3z04anonymousza31401ze3z87_5982, BUNSPEC) ;} } 

}



/* &<@anonymous:1401> */
obj_t BGl_z62zc3z04anonymousza31401ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_5983, obj_t BgL_iportz00_5984)
{
{ /* Ieee/input.scm 307 */
{ 
 obj_t BgL_iportz00_6868; long BgL_lastzd2matchzd2_6869; long BgL_forwardz00_6870; long BgL_bufposz00_6871; obj_t BgL_iportz00_6852; long BgL_lastzd2matchzd2_6853; long BgL_forwardz00_6854; long BgL_bufposz00_6855; obj_t BgL_iportz00_6839; long BgL_lastzd2matchzd2_6840; long BgL_forwardz00_6841; long BgL_bufposz00_6842; obj_t BgL_iportz00_6825; long BgL_lastzd2matchzd2_6826; long BgL_forwardz00_6827; long BgL_bufposz00_6828; obj_t BgL_iportz00_6814; long BgL_lastzd2matchzd2_6815; long BgL_forwardz00_6816; long BgL_bufposz00_6817; obj_t BgL_iportz00_6801; long BgL_lastzd2matchzd2_6802; long BgL_forwardz00_6803; long BgL_bufposz00_6804; obj_t BgL_iportz00_6790; long BgL_lastzd2matchzd2_6791; long BgL_forwardz00_6792; long BgL_bufposz00_6793; obj_t BgL_iportz00_6777; long BgL_lastzd2matchzd2_6778; long BgL_forwardz00_6779; long BgL_bufposz00_6780; int BgL_minz00_6759; int BgL_maxz00_6760;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4545z00_7126;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1409z00_6881;
{ /* Ieee/input.scm 307 */
 obj_t BgL_res3487z00_6882;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_res3487z00_6882 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7129;
BgL_auxz00_7129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4233z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7129,BFALSE,BFALSE);} 
BgL_arg1409z00_6881 = BgL_res3487z00_6882; } 
BgL_test4545z00_7126 = 
INPUT_PORT_CLOSEP(BgL_arg1409z00_6881); } 
if(BgL_test4545z00_7126)
{ /* Ieee/input.scm 307 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1405z00_6883;
{ /* Ieee/input.scm 307 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_6884;
{ /* Ieee/input.scm 307 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_6885;
BgL_new1045z00_6885 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 307 */
 long BgL_arg1408z00_6886;
BgL_arg1408z00_6886 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_6885), BgL_arg1408z00_6886); } 
BgL_new1046z00_6884 = BgL_new1045z00_6885; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_6884)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_6884)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_7142;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1406z00_6887;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1407z00_6888;
{ /* Ieee/input.scm 307 */
 obj_t BgL_classz00_6889;
BgL_classz00_6889 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1407z00_6888 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_6889); } 
BgL_arg1406z00_6887 = 
VECTOR_REF(BgL_arg1407z00_6888,2L); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_auxz00_7146;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1406z00_6887))
{ /* Ieee/input.scm 307 */
BgL_auxz00_7146 = BgL_arg1406z00_6887
; }  else 
{ 
 obj_t BgL_auxz00_7149;
BgL_auxz00_7149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4233z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg1406z00_6887); 
FAILURE(BgL_auxz00_7149,BFALSE,BFALSE);} 
BgL_auxz00_7142 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_7146); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_6884)))->BgL_stackz00)=((obj_t)BgL_auxz00_7142),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_6884)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_6884)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_7159;
{ /* Ieee/input.scm 307 */
 obj_t BgL_res3488z00_6890;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_res3488z00_6890 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7163;
BgL_auxz00_7163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4233z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7163,BFALSE,BFALSE);} 
BgL_auxz00_7159 = BgL_res3488z00_6890; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_6884)))->BgL_objz00)=((obj_t)BgL_auxz00_7159),BUNSPEC); } 
BgL_arg1405z00_6883 = BgL_new1046z00_6884; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1405z00_6883));}  else 
{ /* Ieee/input.scm 307 */
BgL_ignorez00_6732:
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6743;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6743 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7172;
BgL_auxz00_7172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7172,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_6743); } 
{ /* Ieee/input.scm 307 */
 long BgL_matchz00_6744;
{ /* Ieee/input.scm 307 */
 long BgL_arg1598z00_6745; long BgL_arg1600z00_6746;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6747;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6747 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7179;
BgL_auxz00_7179 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7179,BFALSE,BFALSE);} 
BgL_arg1598z00_6745 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6747); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6748;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6748 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7186;
BgL_auxz00_7186 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7186,BFALSE,BFALSE);} 
BgL_arg1600z00_6746 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6748); } 
BgL_iportz00_6814 = BgL_iportz00_5984; 
BgL_lastzd2matchzd2_6815 = 4L; 
BgL_forwardz00_6816 = BgL_arg1598z00_6745; 
BgL_bufposz00_6817 = BgL_arg1600z00_6746; 
BgL_statezd20zd21105z00_6738:
if(
(BgL_forwardz00_6816==BgL_bufposz00_6817))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4553z00_7193;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6818;
if(
INPUT_PORTP(BgL_iportz00_6814))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6818 = BgL_iportz00_6814; }  else 
{ 
 obj_t BgL_auxz00_7196;
BgL_auxz00_7196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4228z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6814); 
FAILURE(BgL_auxz00_7196,BFALSE,BFALSE);} 
BgL_test4553z00_7193 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6818); } 
if(BgL_test4553z00_7193)
{ /* Ieee/input.scm 307 */
 long BgL_arg1458z00_6819; long BgL_arg1459z00_6820;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6821;
if(
INPUT_PORTP(BgL_iportz00_6814))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6821 = BgL_iportz00_6814; }  else 
{ 
 obj_t BgL_auxz00_7203;
BgL_auxz00_7203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4228z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6814); 
FAILURE(BgL_auxz00_7203,BFALSE,BFALSE);} 
BgL_arg1458z00_6819 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6821); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6822;
if(
INPUT_PORTP(BgL_iportz00_6814))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6822 = BgL_iportz00_6814; }  else 
{ 
 obj_t BgL_auxz00_7210;
BgL_auxz00_7210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4228z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6814); 
FAILURE(BgL_auxz00_7210,BFALSE,BFALSE);} 
BgL_arg1459z00_6820 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6822); } 
{ 
 long BgL_bufposz00_7216; long BgL_forwardz00_7215;
BgL_forwardz00_7215 = BgL_arg1458z00_6819; 
BgL_bufposz00_7216 = BgL_arg1459z00_6820; 
BgL_bufposz00_6817 = BgL_bufposz00_7216; 
BgL_forwardz00_6816 = BgL_forwardz00_7215; 
goto BgL_statezd20zd21105z00_6738;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_lastzd2matchzd2_6815; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6823;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6824;
if(
INPUT_PORTP(BgL_iportz00_6814))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6824 = BgL_iportz00_6814; }  else 
{ 
 obj_t BgL_auxz00_7219;
BgL_auxz00_7219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4228z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6814); 
FAILURE(BgL_auxz00_7219,BFALSE,BFALSE);} 
BgL_curz00_6823 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6824, BgL_forwardz00_6816); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_6823)==34L))
{ /* Ieee/input.scm 307 */
BgL_iportz00_6852 = BgL_iportz00_6814; 
BgL_lastzd2matchzd2_6853 = BgL_lastzd2matchzd2_6815; 
BgL_forwardz00_6854 = 
(1L+BgL_forwardz00_6816); 
BgL_bufposz00_6855 = BgL_bufposz00_6817; 
BgL_statezd23zd21108z00_6741:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6856;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6857;
if(
INPUT_PORTP(BgL_iportz00_6852))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6857 = BgL_iportz00_6852; }  else 
{ 
 obj_t BgL_auxz00_7229;
BgL_auxz00_7229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4231z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6852); 
FAILURE(BgL_auxz00_7229,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6857, BgL_forwardz00_6854); } 
BgL_newzd2matchzd2_6856 = 1L; 
if(
(BgL_forwardz00_6854==BgL_bufposz00_6855))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4562z00_7236;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6858;
if(
INPUT_PORTP(BgL_iportz00_6852))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6858 = BgL_iportz00_6852; }  else 
{ 
 obj_t BgL_auxz00_7239;
BgL_auxz00_7239 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4231z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6852); 
FAILURE(BgL_auxz00_7239,BFALSE,BFALSE);} 
BgL_test4562z00_7236 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6858); } 
if(BgL_test4562z00_7236)
{ /* Ieee/input.scm 307 */
 long BgL_arg1423z00_6859; long BgL_arg1424z00_6860;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6861;
if(
INPUT_PORTP(BgL_iportz00_6852))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6861 = BgL_iportz00_6852; }  else 
{ 
 obj_t BgL_auxz00_7246;
BgL_auxz00_7246 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4231z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6852); 
FAILURE(BgL_auxz00_7246,BFALSE,BFALSE);} 
BgL_arg1423z00_6859 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6861); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6862;
if(
INPUT_PORTP(BgL_iportz00_6852))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6862 = BgL_iportz00_6852; }  else 
{ 
 obj_t BgL_auxz00_7253;
BgL_auxz00_7253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4231z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6852); 
FAILURE(BgL_auxz00_7253,BFALSE,BFALSE);} 
BgL_arg1424z00_6860 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6862); } 
{ 
 long BgL_bufposz00_7259; long BgL_forwardz00_7258;
BgL_forwardz00_7258 = BgL_arg1423z00_6859; 
BgL_bufposz00_7259 = BgL_arg1424z00_6860; 
BgL_bufposz00_6855 = BgL_bufposz00_7259; 
BgL_forwardz00_6854 = BgL_forwardz00_7258; 
goto BgL_statezd23zd21108z00_6741;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6856; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6863;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6864;
if(
INPUT_PORTP(BgL_iportz00_6852))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6864 = BgL_iportz00_6852; }  else 
{ 
 obj_t BgL_auxz00_7262;
BgL_auxz00_7262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4231z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6852); 
FAILURE(BgL_auxz00_7262,BFALSE,BFALSE);} 
BgL_curz00_6863 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6864, BgL_forwardz00_6854); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_6863)==92L))
{ /* Ieee/input.scm 307 */
BgL_iportz00_6790 = BgL_iportz00_6852; 
BgL_lastzd2matchzd2_6791 = BgL_newzd2matchzd2_6856; 
BgL_forwardz00_6792 = 
(1L+BgL_forwardz00_6854); 
BgL_bufposz00_6793 = BgL_bufposz00_6855; 
BgL_statezd26zd21111z00_6736:
if(
(BgL_forwardz00_6792==BgL_bufposz00_6793))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4569z00_7272;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6794;
if(
INPUT_PORTP(BgL_iportz00_6790))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6794 = BgL_iportz00_6790; }  else 
{ 
 obj_t BgL_auxz00_7275;
BgL_auxz00_7275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4226z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6790); 
FAILURE(BgL_auxz00_7275,BFALSE,BFALSE);} 
BgL_test4569z00_7272 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6794); } 
if(BgL_test4569z00_7272)
{ /* Ieee/input.scm 307 */
 long BgL_arg1482z00_6795; long BgL_arg1483z00_6796;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6797;
if(
INPUT_PORTP(BgL_iportz00_6790))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6797 = BgL_iportz00_6790; }  else 
{ 
 obj_t BgL_auxz00_7282;
BgL_auxz00_7282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4226z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6790); 
FAILURE(BgL_auxz00_7282,BFALSE,BFALSE);} 
BgL_arg1482z00_6795 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6797); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6798;
if(
INPUT_PORTP(BgL_iportz00_6790))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6798 = BgL_iportz00_6790; }  else 
{ 
 obj_t BgL_auxz00_7289;
BgL_auxz00_7289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4226z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6790); 
FAILURE(BgL_auxz00_7289,BFALSE,BFALSE);} 
BgL_arg1483z00_6796 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6798); } 
{ 
 long BgL_bufposz00_7295; long BgL_forwardz00_7294;
BgL_forwardz00_7294 = BgL_arg1482z00_6795; 
BgL_bufposz00_7295 = BgL_arg1483z00_6796; 
BgL_bufposz00_6793 = BgL_bufposz00_7295; 
BgL_forwardz00_6792 = BgL_forwardz00_7294; 
goto BgL_statezd26zd21111z00_6736;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_lastzd2matchzd2_6791; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6799;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6800;
if(
INPUT_PORTP(BgL_iportz00_6790))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6800 = BgL_iportz00_6790; }  else 
{ 
 obj_t BgL_auxz00_7298;
BgL_auxz00_7298 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4226z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6790); 
FAILURE(BgL_auxz00_7298,BFALSE,BFALSE);} 
BgL_curz00_6799 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6800, BgL_forwardz00_6792); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_6799)==10L))
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_lastzd2matchzd2_6791; }  else 
{ /* Ieee/input.scm 307 */
BgL_iportz00_6825 = BgL_iportz00_6790; 
BgL_lastzd2matchzd2_6826 = BgL_lastzd2matchzd2_6791; 
BgL_forwardz00_6827 = 
(1L+BgL_forwardz00_6792); 
BgL_bufposz00_6828 = BgL_bufposz00_6793; 
BgL_statezd24zd21109z00_6739:
if(
(BgL_forwardz00_6827==BgL_bufposz00_6828))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4576z00_7308;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6829;
if(
INPUT_PORTP(BgL_iportz00_6825))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6829 = BgL_iportz00_6825; }  else 
{ 
 obj_t BgL_auxz00_7311;
BgL_auxz00_7311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4229z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6825); 
FAILURE(BgL_auxz00_7311,BFALSE,BFALSE);} 
BgL_test4576z00_7308 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6829); } 
if(BgL_test4576z00_7308)
{ /* Ieee/input.scm 307 */
 long BgL_arg1446z00_6830; long BgL_arg1447z00_6831;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6832;
if(
INPUT_PORTP(BgL_iportz00_6825))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6832 = BgL_iportz00_6825; }  else 
{ 
 obj_t BgL_auxz00_7318;
BgL_auxz00_7318 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4229z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6825); 
FAILURE(BgL_auxz00_7318,BFALSE,BFALSE);} 
BgL_arg1446z00_6830 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6832); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6833;
if(
INPUT_PORTP(BgL_iportz00_6825))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6833 = BgL_iportz00_6825; }  else 
{ 
 obj_t BgL_auxz00_7325;
BgL_auxz00_7325 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4229z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6825); 
FAILURE(BgL_auxz00_7325,BFALSE,BFALSE);} 
BgL_arg1447z00_6831 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6833); } 
{ 
 long BgL_bufposz00_7331; long BgL_forwardz00_7330;
BgL_forwardz00_7330 = BgL_arg1446z00_6830; 
BgL_bufposz00_7331 = BgL_arg1447z00_6831; 
BgL_bufposz00_6828 = BgL_bufposz00_7331; 
BgL_forwardz00_6827 = BgL_forwardz00_7330; 
goto BgL_statezd24zd21109z00_6739;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_lastzd2matchzd2_6826; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6834;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6835;
if(
INPUT_PORTP(BgL_iportz00_6825))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6835 = BgL_iportz00_6825; }  else 
{ 
 obj_t BgL_auxz00_7334;
BgL_auxz00_7334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4229z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6825); 
FAILURE(BgL_auxz00_7334,BFALSE,BFALSE);} 
BgL_curz00_6834 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6835, BgL_forwardz00_6827); } 
{ /* Ieee/input.scm 307 */

if(
(
(long)(BgL_curz00_6834)==92L))
{ 
 long BgL_bufposz00_7346; long BgL_forwardz00_7344; long BgL_lastzd2matchzd2_7343; obj_t BgL_iportz00_7342;
BgL_iportz00_7342 = BgL_iportz00_6825; 
BgL_lastzd2matchzd2_7343 = BgL_lastzd2matchzd2_6826; 
BgL_forwardz00_7344 = 
(1L+BgL_forwardz00_6827); 
BgL_bufposz00_7346 = BgL_bufposz00_6828; 
BgL_bufposz00_6793 = BgL_bufposz00_7346; 
BgL_forwardz00_6792 = BgL_forwardz00_7344; 
BgL_lastzd2matchzd2_6791 = BgL_lastzd2matchzd2_7343; 
BgL_iportz00_6790 = BgL_iportz00_7342; 
goto BgL_statezd26zd21111z00_6736;}  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_6834)==34L))
{ /* Ieee/input.scm 307 */
 long BgL_arg1451z00_6836;
BgL_arg1451z00_6836 = 
(1L+BgL_forwardz00_6827); 
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6837;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6838;
if(
INPUT_PORTP(BgL_iportz00_6825))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6838 = BgL_iportz00_6825; }  else 
{ 
 obj_t BgL_auxz00_7353;
BgL_auxz00_7353 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4229z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6825); 
FAILURE(BgL_auxz00_7353,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6838, BgL_arg1451z00_6836); } 
BgL_newzd2matchzd2_6837 = 2L; 
BgL_matchz00_6744 = BgL_newzd2matchzd2_6837; } }  else 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4584z00_7358;
if(
(
(long)(BgL_curz00_6834)==34L))
{ /* Ieee/input.scm 307 */
BgL_test4584z00_7358 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4584z00_7358 = 
(
(long)(BgL_curz00_6834)==92L)
; } 
if(BgL_test4584z00_7358)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_lastzd2matchzd2_6826; }  else 
{ 
 long BgL_forwardz00_7364;
BgL_forwardz00_7364 = 
(1L+BgL_forwardz00_6827); 
BgL_forwardz00_6827 = BgL_forwardz00_7364; 
goto BgL_statezd24zd21109z00_6739;} } } } } } } } }  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_6863)==34L))
{ /* Ieee/input.scm 307 */
 long BgL_arg1430z00_6865;
BgL_arg1430z00_6865 = 
(1L+BgL_forwardz00_6854); 
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6866;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6867;
if(
INPUT_PORTP(BgL_iportz00_6852))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6867 = BgL_iportz00_6852; }  else 
{ 
 obj_t BgL_auxz00_7374;
BgL_auxz00_7374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4231z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6852); 
FAILURE(BgL_auxz00_7374,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6867, BgL_arg1430z00_6865); } 
BgL_newzd2matchzd2_6866 = 2L; 
BgL_matchz00_6744 = BgL_newzd2matchzd2_6866; } }  else 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4588z00_7379;
if(
(
(long)(BgL_curz00_6863)==34L))
{ /* Ieee/input.scm 307 */
BgL_test4588z00_7379 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4588z00_7379 = 
(
(long)(BgL_curz00_6863)==92L)
; } 
if(BgL_test4588z00_7379)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6856; }  else 
{ 
 long BgL_bufposz00_7389; long BgL_forwardz00_7387; long BgL_lastzd2matchzd2_7386; obj_t BgL_iportz00_7385;
BgL_iportz00_7385 = BgL_iportz00_6852; 
BgL_lastzd2matchzd2_7386 = BgL_newzd2matchzd2_6856; 
BgL_forwardz00_7387 = 
(1L+BgL_forwardz00_6854); 
BgL_bufposz00_7389 = BgL_bufposz00_6855; 
BgL_bufposz00_6828 = BgL_bufposz00_7389; 
BgL_forwardz00_6827 = BgL_forwardz00_7387; 
BgL_lastzd2matchzd2_6826 = BgL_lastzd2matchzd2_7386; 
BgL_iportz00_6825 = BgL_iportz00_7385; 
goto BgL_statezd24zd21109z00_6739;} } } } } } }  else 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4590z00_7391;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4591z00_7392;
if(
(
(long)(BgL_curz00_6823)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4591z00_7392 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4591z00_7392 = 
(
(long)(BgL_curz00_6823)==9L)
; } 
if(BgL_test4591z00_7392)
{ /* Ieee/input.scm 307 */
BgL_test4590z00_7391 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4590z00_7391 = 
(
(long)(BgL_curz00_6823)==32L)
; } } 
if(BgL_test4590z00_7391)
{ /* Ieee/input.scm 307 */
BgL_iportz00_6839 = BgL_iportz00_6814; 
BgL_lastzd2matchzd2_6840 = BgL_lastzd2matchzd2_6815; 
BgL_forwardz00_6841 = 
(1L+BgL_forwardz00_6816); 
BgL_bufposz00_6842 = BgL_bufposz00_6817; 
BgL_statezd22zd21107z00_6740:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6843;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6844;
if(
INPUT_PORTP(BgL_iportz00_6839))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6844 = BgL_iportz00_6839; }  else 
{ 
 obj_t BgL_auxz00_7402;
BgL_auxz00_7402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4230z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6839); 
FAILURE(BgL_auxz00_7402,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6844, BgL_forwardz00_6841); } 
BgL_newzd2matchzd2_6843 = 0L; 
if(
(BgL_forwardz00_6841==BgL_bufposz00_6842))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4595z00_7409;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6845;
if(
INPUT_PORTP(BgL_iportz00_6839))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6845 = BgL_iportz00_6839; }  else 
{ 
 obj_t BgL_auxz00_7412;
BgL_auxz00_7412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4230z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6839); 
FAILURE(BgL_auxz00_7412,BFALSE,BFALSE);} 
BgL_test4595z00_7409 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6845); } 
if(BgL_test4595z00_7409)
{ /* Ieee/input.scm 307 */
 long BgL_arg1437z00_6846; long BgL_arg1438z00_6847;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6848;
if(
INPUT_PORTP(BgL_iportz00_6839))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6848 = BgL_iportz00_6839; }  else 
{ 
 obj_t BgL_auxz00_7419;
BgL_auxz00_7419 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4230z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6839); 
FAILURE(BgL_auxz00_7419,BFALSE,BFALSE);} 
BgL_arg1437z00_6846 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6848); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6849;
if(
INPUT_PORTP(BgL_iportz00_6839))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6849 = BgL_iportz00_6839; }  else 
{ 
 obj_t BgL_auxz00_7426;
BgL_auxz00_7426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4230z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6839); 
FAILURE(BgL_auxz00_7426,BFALSE,BFALSE);} 
BgL_arg1438z00_6847 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6849); } 
{ 
 long BgL_bufposz00_7432; long BgL_forwardz00_7431;
BgL_forwardz00_7431 = BgL_arg1437z00_6846; 
BgL_bufposz00_7432 = BgL_arg1438z00_6847; 
BgL_bufposz00_6842 = BgL_bufposz00_7432; 
BgL_forwardz00_6841 = BgL_forwardz00_7431; 
goto BgL_statezd22zd21107z00_6740;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6843; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6850;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6851;
if(
INPUT_PORTP(BgL_iportz00_6839))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6851 = BgL_iportz00_6839; }  else 
{ 
 obj_t BgL_auxz00_7435;
BgL_auxz00_7435 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4230z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6839); 
FAILURE(BgL_auxz00_7435,BFALSE,BFALSE);} 
BgL_curz00_6850 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6851, BgL_forwardz00_6841); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4600z00_7440;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4601z00_7441;
if(
(
(long)(BgL_curz00_6850)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4601z00_7441 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4601z00_7441 = 
(
(long)(BgL_curz00_6850)==9L)
; } 
if(BgL_test4601z00_7441)
{ /* Ieee/input.scm 307 */
BgL_test4600z00_7440 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4600z00_7440 = 
(
(long)(BgL_curz00_6850)==32L)
; } } 
if(BgL_test4600z00_7440)
{ /* Ieee/input.scm 307 */
BgL_iportz00_6777 = BgL_iportz00_6839; 
BgL_lastzd2matchzd2_6778 = BgL_newzd2matchzd2_6843; 
BgL_forwardz00_6779 = 
(1L+BgL_forwardz00_6841); 
BgL_bufposz00_6780 = BgL_bufposz00_6842; 
BgL_statezd28zd21113z00_6735:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6781;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6782;
if(
INPUT_PORTP(BgL_iportz00_6777))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6782 = BgL_iportz00_6777; }  else 
{ 
 obj_t BgL_auxz00_7451;
BgL_auxz00_7451 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4225z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6777); 
FAILURE(BgL_auxz00_7451,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6782, BgL_forwardz00_6779); } 
BgL_newzd2matchzd2_6781 = 0L; 
if(
(BgL_forwardz00_6779==BgL_bufposz00_6780))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4605z00_7458;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6783;
if(
INPUT_PORTP(BgL_iportz00_6777))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6783 = BgL_iportz00_6777; }  else 
{ 
 obj_t BgL_auxz00_7461;
BgL_auxz00_7461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4225z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6777); 
FAILURE(BgL_auxz00_7461,BFALSE,BFALSE);} 
BgL_test4605z00_7458 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6783); } 
if(BgL_test4605z00_7458)
{ /* Ieee/input.scm 307 */
 long BgL_arg1491z00_6784; long BgL_arg1492z00_6785;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6786;
if(
INPUT_PORTP(BgL_iportz00_6777))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6786 = BgL_iportz00_6777; }  else 
{ 
 obj_t BgL_auxz00_7468;
BgL_auxz00_7468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4225z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6777); 
FAILURE(BgL_auxz00_7468,BFALSE,BFALSE);} 
BgL_arg1491z00_6784 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6786); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6787;
if(
INPUT_PORTP(BgL_iportz00_6777))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6787 = BgL_iportz00_6777; }  else 
{ 
 obj_t BgL_auxz00_7475;
BgL_auxz00_7475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4225z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6777); 
FAILURE(BgL_auxz00_7475,BFALSE,BFALSE);} 
BgL_arg1492z00_6785 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6787); } 
{ 
 long BgL_bufposz00_7481; long BgL_forwardz00_7480;
BgL_forwardz00_7480 = BgL_arg1491z00_6784; 
BgL_bufposz00_7481 = BgL_arg1492z00_6785; 
BgL_bufposz00_6780 = BgL_bufposz00_7481; 
BgL_forwardz00_6779 = BgL_forwardz00_7480; 
goto BgL_statezd28zd21113z00_6735;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6781; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6788;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6789;
if(
INPUT_PORTP(BgL_iportz00_6777))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6789 = BgL_iportz00_6777; }  else 
{ 
 obj_t BgL_auxz00_7484;
BgL_auxz00_7484 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4225z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6777); 
FAILURE(BgL_auxz00_7484,BFALSE,BFALSE);} 
BgL_curz00_6788 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6789, BgL_forwardz00_6779); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4610z00_7489;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4611z00_7490;
if(
(
(long)(BgL_curz00_6788)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4611z00_7490 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4611z00_7490 = 
(
(long)(BgL_curz00_6788)==9L)
; } 
if(BgL_test4611z00_7490)
{ /* Ieee/input.scm 307 */
BgL_test4610z00_7489 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4610z00_7489 = 
(
(long)(BgL_curz00_6788)==32L)
; } } 
if(BgL_test4610z00_7489)
{ 
 long BgL_forwardz00_7499; long BgL_lastzd2matchzd2_7498;
BgL_lastzd2matchzd2_7498 = BgL_newzd2matchzd2_6781; 
BgL_forwardz00_7499 = 
(1L+BgL_forwardz00_6779); 
BgL_forwardz00_6779 = BgL_forwardz00_7499; 
BgL_lastzd2matchzd2_6778 = BgL_lastzd2matchzd2_7498; 
goto BgL_statezd28zd21113z00_6735;}  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6781; } } } } } }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6843; } } } } } }  else 
{ /* Ieee/input.scm 307 */
BgL_iportz00_6868 = BgL_iportz00_6814; 
BgL_lastzd2matchzd2_6869 = BgL_lastzd2matchzd2_6815; 
BgL_forwardz00_6870 = 
(1L+BgL_forwardz00_6816); 
BgL_bufposz00_6871 = BgL_bufposz00_6817; 
BgL_statezd21zd21106z00_6742:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6872;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6873;
if(
INPUT_PORTP(BgL_iportz00_6868))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6873 = BgL_iportz00_6868; }  else 
{ 
 obj_t BgL_auxz00_7505;
BgL_auxz00_7505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4232z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6868); 
FAILURE(BgL_auxz00_7505,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6873, BgL_forwardz00_6870); } 
BgL_newzd2matchzd2_6872 = 3L; 
if(
(BgL_forwardz00_6870==BgL_bufposz00_6871))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4615z00_7512;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6874;
if(
INPUT_PORTP(BgL_iportz00_6868))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6874 = BgL_iportz00_6868; }  else 
{ 
 obj_t BgL_auxz00_7515;
BgL_auxz00_7515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4232z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6868); 
FAILURE(BgL_auxz00_7515,BFALSE,BFALSE);} 
BgL_test4615z00_7512 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6874); } 
if(BgL_test4615z00_7512)
{ /* Ieee/input.scm 307 */
 long BgL_arg1413z00_6875; long BgL_arg1414z00_6876;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6877;
if(
INPUT_PORTP(BgL_iportz00_6868))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6877 = BgL_iportz00_6868; }  else 
{ 
 obj_t BgL_auxz00_7522;
BgL_auxz00_7522 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4232z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6868); 
FAILURE(BgL_auxz00_7522,BFALSE,BFALSE);} 
BgL_arg1413z00_6875 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6877); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6878;
if(
INPUT_PORTP(BgL_iportz00_6868))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6878 = BgL_iportz00_6868; }  else 
{ 
 obj_t BgL_auxz00_7529;
BgL_auxz00_7529 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4232z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6868); 
FAILURE(BgL_auxz00_7529,BFALSE,BFALSE);} 
BgL_arg1414z00_6876 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6878); } 
{ 
 long BgL_bufposz00_7535; long BgL_forwardz00_7534;
BgL_forwardz00_7534 = BgL_arg1413z00_6875; 
BgL_bufposz00_7535 = BgL_arg1414z00_6876; 
BgL_bufposz00_6871 = BgL_bufposz00_7535; 
BgL_forwardz00_6870 = BgL_forwardz00_7534; 
goto BgL_statezd21zd21106z00_6742;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6872; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6879;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6880;
if(
INPUT_PORTP(BgL_iportz00_6868))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6880 = BgL_iportz00_6868; }  else 
{ 
 obj_t BgL_auxz00_7538;
BgL_auxz00_7538 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4232z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6868); 
FAILURE(BgL_auxz00_7538,BFALSE,BFALSE);} 
BgL_curz00_6879 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6880, BgL_forwardz00_6870); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4620z00_7543;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4621z00_7544;
if(
(
(long)(BgL_curz00_6879)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4621z00_7544 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4621z00_7544 = 
(
(long)(BgL_curz00_6879)==9L)
; } 
if(BgL_test4621z00_7544)
{ /* Ieee/input.scm 307 */
BgL_test4620z00_7543 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_6879)==32L))
{ /* Ieee/input.scm 307 */
BgL_test4620z00_7543 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4620z00_7543 = 
(
(long)(BgL_curz00_6879)==34L)
; } } } 
if(BgL_test4620z00_7543)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6872; }  else 
{ /* Ieee/input.scm 307 */
BgL_iportz00_6801 = BgL_iportz00_6868; 
BgL_lastzd2matchzd2_6802 = BgL_newzd2matchzd2_6872; 
BgL_forwardz00_6803 = 
(1L+BgL_forwardz00_6870); 
BgL_bufposz00_6804 = BgL_bufposz00_6871; 
BgL_statezd29zd21114z00_6737:
{ /* Ieee/input.scm 307 */
 long BgL_newzd2matchzd2_6805;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6806;
if(
INPUT_PORTP(BgL_iportz00_6801))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6806 = BgL_iportz00_6801; }  else 
{ 
 obj_t BgL_auxz00_7557;
BgL_auxz00_7557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4227z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6801); 
FAILURE(BgL_auxz00_7557,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_6806, BgL_forwardz00_6803); } 
BgL_newzd2matchzd2_6805 = 3L; 
if(
(BgL_forwardz00_6803==BgL_bufposz00_6804))
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4626z00_7564;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6807;
if(
INPUT_PORTP(BgL_iportz00_6801))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6807 = BgL_iportz00_6801; }  else 
{ 
 obj_t BgL_auxz00_7567;
BgL_auxz00_7567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4227z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6801); 
FAILURE(BgL_auxz00_7567,BFALSE,BFALSE);} 
BgL_test4626z00_7564 = 
rgc_fill_buffer(BgL_inputzd2portzd2_6807); } 
if(BgL_test4626z00_7564)
{ /* Ieee/input.scm 307 */
 long BgL_arg1472z00_6808; long BgL_arg1473z00_6809;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6810;
if(
INPUT_PORTP(BgL_iportz00_6801))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6810 = BgL_iportz00_6801; }  else 
{ 
 obj_t BgL_auxz00_7574;
BgL_auxz00_7574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4227z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6801); 
FAILURE(BgL_auxz00_7574,BFALSE,BFALSE);} 
BgL_arg1472z00_6808 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_6810); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6811;
if(
INPUT_PORTP(BgL_iportz00_6801))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6811 = BgL_iportz00_6801; }  else 
{ 
 obj_t BgL_auxz00_7581;
BgL_auxz00_7581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4227z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6801); 
FAILURE(BgL_auxz00_7581,BFALSE,BFALSE);} 
BgL_arg1473z00_6809 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_6811); } 
{ 
 long BgL_bufposz00_7587; long BgL_forwardz00_7586;
BgL_forwardz00_7586 = BgL_arg1472z00_6808; 
BgL_bufposz00_7587 = BgL_arg1473z00_6809; 
BgL_bufposz00_6804 = BgL_bufposz00_7587; 
BgL_forwardz00_6803 = BgL_forwardz00_7586; 
goto BgL_statezd29zd21114z00_6737;} }  else 
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6805; } }  else 
{ /* Ieee/input.scm 307 */
 int BgL_curz00_6812;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6813;
if(
INPUT_PORTP(BgL_iportz00_6801))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6813 = BgL_iportz00_6801; }  else 
{ 
 obj_t BgL_auxz00_7590;
BgL_auxz00_7590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4227z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_6801); 
FAILURE(BgL_auxz00_7590,BFALSE,BFALSE);} 
BgL_curz00_6812 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_6813, BgL_forwardz00_6803); } 
{ /* Ieee/input.scm 307 */

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4631z00_7595;
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4632z00_7596;
if(
(
(long)(BgL_curz00_6812)==10L))
{ /* Ieee/input.scm 307 */
BgL_test4632z00_7596 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4632z00_7596 = 
(
(long)(BgL_curz00_6812)==9L)
; } 
if(BgL_test4632z00_7596)
{ /* Ieee/input.scm 307 */
BgL_test4631z00_7595 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_curz00_6812)==32L))
{ /* Ieee/input.scm 307 */
BgL_test4631z00_7595 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 307 */
BgL_test4631z00_7595 = 
(
(long)(BgL_curz00_6812)==34L)
; } } } 
if(BgL_test4631z00_7595)
{ /* Ieee/input.scm 307 */
BgL_matchz00_6744 = BgL_newzd2matchzd2_6805; }  else 
{ 
 long BgL_forwardz00_7608; long BgL_lastzd2matchzd2_7607;
BgL_lastzd2matchzd2_7607 = BgL_newzd2matchzd2_6805; 
BgL_forwardz00_7608 = 
(1L+BgL_forwardz00_6803); 
BgL_forwardz00_6803 = BgL_forwardz00_7608; 
BgL_lastzd2matchzd2_6802 = BgL_lastzd2matchzd2_7607; 
goto BgL_statezd29zd21114z00_6737;} } } } } } } } } } } } } } } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6749;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6749 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7614;
BgL_auxz00_7614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7614,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_6749); } 
switch( BgL_matchz00_6744) { case 4L : 

{ /* Ieee/input.scm 307 */
 bool_t BgL_test4636z00_7619;
{ /* Ieee/input.scm 307 */
 long BgL_arg1591z00_6756;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6757;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6757 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7622;
BgL_auxz00_7622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7622,BFALSE,BFALSE);} 
BgL_arg1591z00_6756 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6757); } 
BgL_test4636z00_7619 = 
(BgL_arg1591z00_6756==0L); } 
if(BgL_test4636z00_7619)
{ /* Ieee/input.scm 307 */
return BEOF;}  else 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6758;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6758 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7630;
BgL_auxz00_7630 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7630,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_6758));} } break;case 3L : 

{ /* Ieee/input.scm 307 */
 long BgL_arg1503z00_6750;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6751;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6751 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7638;
BgL_auxz00_7638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7638,BFALSE,BFALSE);} 
BgL_arg1503z00_6750 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6751); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6752;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6752 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7645;
BgL_auxz00_7645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7645,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_6752, 0L, BgL_arg1503z00_6750);} } break;case 2L : 

BgL_minz00_6759 = 
(int)(1L); 
BgL_maxz00_6760 = 
(int)(-1L); 
if(
(
(long)(BgL_maxz00_6760)<
(long)(BgL_minz00_6759)))
{ /* Ieee/input.scm 307 */
 long BgL_arg1506z00_6761;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6762;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6762 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7656;
BgL_auxz00_7656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7656,BFALSE,BFALSE);} 
BgL_arg1506z00_6761 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6762); } 
{ /* Ieee/input.scm 307 */
 long BgL_za72za7_6763;
BgL_za72za7_6763 = 
(long)(BgL_maxz00_6760); 
BgL_maxz00_6760 = 
(int)(
(BgL_arg1506z00_6761+BgL_za72za7_6763)); } }  else 
{ /* Ieee/input.scm 307 */BFALSE; } 
{ /* Ieee/input.scm 307 */
 bool_t BgL_test4643z00_7664;
if(
(
(long)(BgL_minz00_6759)>=0L))
{ /* Ieee/input.scm 307 */
if(
(
(long)(BgL_maxz00_6760)>=
(long)(BgL_minz00_6759)))
{ /* Ieee/input.scm 307 */
 long BgL_arg1520z00_6764;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6765;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6765 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7674;
BgL_auxz00_7674 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7674,BFALSE,BFALSE);} 
BgL_arg1520z00_6764 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6765); } 
BgL_test4643z00_7664 = 
(
(long)(BgL_maxz00_6760)<=BgL_arg1520z00_6764); }  else 
{ /* Ieee/input.scm 307 */
BgL_test4643z00_7664 = ((bool_t)0)
; } }  else 
{ /* Ieee/input.scm 307 */
BgL_test4643z00_7664 = ((bool_t)0)
; } 
if(BgL_test4643z00_7664)
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6766; long BgL_startz00_6767; long BgL_stopz00_6768;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6766 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7683;
BgL_auxz00_7683 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7683,BFALSE,BFALSE);} 
BgL_startz00_6767 = 
(long)(BgL_minz00_6759); 
BgL_stopz00_6768 = 
(long)(BgL_maxz00_6760); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_6766, BgL_startz00_6767, BgL_stopz00_6768);}  else 
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1512z00_6769; obj_t BgL_arg1515z00_6770;
{ /* Ieee/input.scm 307 */
 obj_t BgL_arg1516z00_6771;
{ /* Ieee/input.scm 307 */
 long BgL_arg1503z00_6772;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6773;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6773 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7692;
BgL_auxz00_7692 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7692,BFALSE,BFALSE);} 
BgL_arg1503z00_6772 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6773); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6774;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6774 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7699;
BgL_auxz00_7699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7699,BFALSE,BFALSE);} 
BgL_arg1516z00_6771 = 
rgc_buffer_substring(BgL_inputzd2portzd2_6774, 0L, BgL_arg1503z00_6772); } } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_list1519z00_6775;
BgL_list1519z00_6775 = 
MAKE_YOUNG_PAIR(BgL_arg1516z00_6771, BNIL); 
BgL_arg1512z00_6769 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string4223z00zz__r4_input_6_10_2z00, BgL_list1519z00_6775); } } 
BgL_arg1515z00_6770 = 
MAKE_YOUNG_PAIR(
BINT(BgL_minz00_6759), 
BINT(BgL_maxz00_6760)); 
{ /* Ieee/input.scm 307 */
 obj_t BgL_aux3571z00_6776;
BgL_aux3571z00_6776 = 
BGl_errorz00zz__errorz00(BGl_string4222z00zz__r4_input_6_10_2z00, BgL_arg1512z00_6769, BgL_arg1515z00_6770); 
if(
STRINGP(BgL_aux3571z00_6776))
{ /* Ieee/input.scm 307 */
return BgL_aux3571z00_6776;}  else 
{ 
 obj_t BgL_auxz00_7712;
BgL_auxz00_7712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_aux3571z00_6776); 
FAILURE(BgL_auxz00_7712,BFALSE,BFALSE);} } } } break;case 1L : 

{ /* Ieee/input.scm 307 */
 long BgL_arg1503z00_6753;
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6754;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6754 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7720;
BgL_auxz00_7720 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7720,BFALSE,BFALSE);} 
BgL_arg1503z00_6753 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_6754); } 
{ /* Ieee/input.scm 307 */
 obj_t BgL_inputzd2portzd2_6755;
if(
INPUT_PORTP(BgL_iportz00_5984))
{ /* Ieee/input.scm 307 */
BgL_inputzd2portzd2_6755 = BgL_iportz00_5984; }  else 
{ 
 obj_t BgL_auxz00_7727;
BgL_auxz00_7727 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(12240L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_5984); 
FAILURE(BgL_auxz00_7727,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_6755, 0L, BgL_arg1503z00_6753);} } break;case 0L : 

goto BgL_ignorez00_6732;break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_6744));} } } } } } 

}



/* 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_6168;
{ /* Ieee/input.scm 109 */
 obj_t BgL_list1605z00_1613;
BgL_list1605z00_1613 = 
MAKE_YOUNG_PAIR(BgL_optsz00_5, BNIL); 
BgL_valz00_6168 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_4, BgL_list1605z00_1613); } 
{ /* Ieee/input.scm 109 */
 int BgL_len3657z00_6169;
BgL_len3657z00_6169 = 
(int)(
bgl_list_length(BgL_valz00_6168)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, BgL_len3657z00_6169))
{ /* Ieee/input.scm 109 */
return 
apply(BgL_grammarz00_3, BgL_valz00_6168);}  else 
{ /* Ieee/input.scm 109 */
FAILURE(BGl_symbol4236z00zz__r4_input_6_10_2z00,BGl_string4238z00zz__r4_input_6_10_2z00,BGl_list4239z00zz__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, 1L))
{ /* Ieee/input.scm 111 */
return 
(VA_PROCEDUREP( BgL_grammarz00_3 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_grammarz00_3))(BgL_grammarz00_3, BgL_portz00_4, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_grammarz00_3))(BgL_grammarz00_3, BgL_portz00_4) );}  else 
{ /* Ieee/input.scm 111 */
FAILURE(BGl_string4264z00zz__r4_input_6_10_2z00,BGl_list4265z00zz__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, 2L))
{ /* Ieee/input.scm 113 */
return 
(VA_PROCEDUREP( BgL_grammarz00_3 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_grammarz00_3))(BgL_grammarz00_3, BgL_portz00_4, BUNSPEC, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_grammarz00_3))(BgL_grammarz00_3, BgL_portz00_4, BUNSPEC) );}  else 
{ /* Ieee/input.scm 113 */
FAILURE(BGl_string4264z00zz__r4_input_6_10_2z00,BGl_list4268z00zz__r4_input_6_10_2z00,BgL_grammarz00_3);} }  else 
{ /* Ieee/input.scm 112 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4236z00zz__r4_input_6_10_2z00, BGl_string4269z00zz__r4_input_6_10_2z00, BgL_grammarz00_3);} } } } 

}



/* &read/rp */
obj_t BGl_z62readzf2rpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_5985, obj_t BgL_grammarz00_5986, obj_t BgL_portz00_5987, obj_t BgL_optsz00_5988)
{
{ /* Ieee/input.scm 106 */
{ /* Ieee/input.scm 108 */
 obj_t BgL_auxz00_7775; obj_t BgL_auxz00_7768;
if(
INPUT_PORTP(BgL_portz00_5987))
{ /* Ieee/input.scm 108 */
BgL_auxz00_7775 = BgL_portz00_5987
; }  else 
{ 
 obj_t BgL_auxz00_7778;
BgL_auxz00_7778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(4665L), BGl_string4270z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_portz00_5987); 
FAILURE(BgL_auxz00_7778,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_grammarz00_5986))
{ /* Ieee/input.scm 108 */
BgL_auxz00_7768 = BgL_grammarz00_5986
; }  else 
{ 
 obj_t BgL_auxz00_7771;
BgL_auxz00_7771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(4665L), BGl_string4270z00zz__r4_input_6_10_2z00, BGl_string4271z00zz__r4_input_6_10_2z00, BgL_grammarz00_5986); 
FAILURE(BgL_auxz00_7771,BFALSE,BFALSE);} 
return 
BGl_readzf2rpzf2zz__r4_input_6_10_2z00(BgL_auxz00_7768, BgL_auxz00_7775, BgL_optsz00_5988);} } 

}



/* 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, 3L))
{ /* Ieee/input.scm 122 */
return 
(VA_PROCEDUREP( BgL_lalrz00_6 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_lalrz00_6))(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_lalrz00_6))(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00) );}  else 
{ /* Ieee/input.scm 122 */
FAILURE(BGl_string4272z00zz__r4_input_6_10_2z00,BGl_list4273z00zz__r4_input_6_10_2z00,BgL_lalrz00_6);} }  else 
{ /* Ieee/input.scm 123 */
 obj_t BgL_arg1607z00_4801;
{ /* Ieee/input.scm 123 */
 obj_t BgL_pairz00_4802;
if(
PAIRP(BgL_eofzd2funzf3z21_9))
{ /* Ieee/input.scm 123 */
BgL_pairz00_4802 = BgL_eofzd2funzf3z21_9; }  else 
{ 
 obj_t BgL_auxz00_7796;
BgL_auxz00_7796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5267L), BGl_string4280z00zz__r4_input_6_10_2z00, BGl_string4281z00zz__r4_input_6_10_2z00, BgL_eofzd2funzf3z21_9); 
FAILURE(BgL_auxz00_7796,BFALSE,BFALSE);} 
BgL_arg1607z00_4801 = 
CAR(BgL_pairz00_4802); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_6, 3L))
{ /* Ieee/input.scm 123 */
return 
(VA_PROCEDUREP( BgL_lalrz00_6 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_lalrz00_6))(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8, BgL_arg1607z00_4801, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_lalrz00_6))(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8, BgL_arg1607z00_4801) );}  else 
{ /* Ieee/input.scm 123 */
FAILURE(BGl_string4272z00zz__r4_input_6_10_2z00,BGl_list4282z00zz__r4_input_6_10_2z00,BgL_lalrz00_6);} } } 

}



/* &read/lalrp */
obj_t BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_5989, obj_t BgL_lalrz00_5990, obj_t BgL_rgcz00_5991, obj_t BgL_portz00_5992, obj_t BgL_eofzd2funzf3z21_5993)
{
{ /* Ieee/input.scm 120 */
{ /* Ieee/input.scm 121 */
 obj_t BgL_auxz00_7824; obj_t BgL_auxz00_7817; obj_t BgL_auxz00_7810;
if(
INPUT_PORTP(BgL_portz00_5992))
{ /* Ieee/input.scm 121 */
BgL_auxz00_7824 = BgL_portz00_5992
; }  else 
{ 
 obj_t BgL_auxz00_7827;
BgL_auxz00_7827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5184L), BGl_string4285z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_portz00_5992); 
FAILURE(BgL_auxz00_7827,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_rgcz00_5991))
{ /* Ieee/input.scm 121 */
BgL_auxz00_7817 = BgL_rgcz00_5991
; }  else 
{ 
 obj_t BgL_auxz00_7820;
BgL_auxz00_7820 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5184L), BGl_string4285z00zz__r4_input_6_10_2z00, BGl_string4271z00zz__r4_input_6_10_2z00, BgL_rgcz00_5991); 
FAILURE(BgL_auxz00_7820,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_lalrz00_5990))
{ /* Ieee/input.scm 121 */
BgL_auxz00_7810 = BgL_lalrz00_5990
; }  else 
{ 
 obj_t BgL_auxz00_7813;
BgL_auxz00_7813 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5184L), BGl_string4285z00zz__r4_input_6_10_2z00, BGl_string4271z00zz__r4_input_6_10_2z00, BgL_lalrz00_5990); 
FAILURE(BgL_auxz00_7813,BFALSE,BFALSE);} 
return 
BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(BgL_auxz00_7810, BgL_auxz00_7817, BgL_auxz00_7824, BgL_eofzd2funzf3z21_5993);} } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1246z00_11)) { case 0L : 

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

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

{ /* Ieee/input.scm 128 */
 obj_t BgL_ipz00_1619;
BgL_ipz00_1619 = 
VECTOR_REF(BgL_opt1246z00_11,0L); 
{ /* Ieee/input.scm 128 */

return 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1619);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4286z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1246z00_11)));} } } } 

}



/* 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_1623;
BgL_iportz00_1623 = BgL_ipz00_10; 
{ 

{ /* Ieee/input.scm 129 */
 bool_t BgL_test4668z00_7843;
{ /* Ieee/input.scm 129 */
 obj_t BgL_arg1615z00_1661;
{ /* Ieee/input.scm 129 */
 obj_t BgL_res3489z00_4847;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_res3489z00_4847 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7846;
BgL_auxz00_7846 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7846,BFALSE,BFALSE);} 
BgL_arg1615z00_1661 = BgL_res3489z00_4847; } 
BgL_test4668z00_7843 = 
INPUT_PORT_CLOSEP(BgL_arg1615z00_1661); } 
if(BgL_test4668z00_7843)
{ /* Ieee/input.scm 129 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1610z00_1655;
{ /* Ieee/input.scm 129 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_1656;
{ /* Ieee/input.scm 129 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_1659;
BgL_new1045z00_1659 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 129 */
 long BgL_arg1614z00_1660;
BgL_arg1614z00_1660 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_1659), BgL_arg1614z00_1660); } 
BgL_new1046z00_1656 = BgL_new1045z00_1659; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1656)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1656)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_7859;
{ /* Ieee/input.scm 129 */
 obj_t BgL_arg1611z00_1657;
{ /* Ieee/input.scm 129 */
 obj_t BgL_arg1613z00_1658;
{ /* Ieee/input.scm 129 */
 obj_t BgL_classz00_4852;
BgL_classz00_4852 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1613z00_1658 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_4852); } 
BgL_arg1611z00_1657 = 
VECTOR_REF(BgL_arg1613z00_1658,2L); } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_auxz00_7863;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1611z00_1657))
{ /* Ieee/input.scm 129 */
BgL_auxz00_7863 = BgL_arg1611z00_1657
; }  else 
{ 
 obj_t BgL_auxz00_7866;
BgL_auxz00_7866 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg1611z00_1657); 
FAILURE(BgL_auxz00_7866,BFALSE,BFALSE);} 
BgL_auxz00_7859 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_7863); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1656)))->BgL_stackz00)=((obj_t)BgL_auxz00_7859),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1656)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1656)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_7876;
{ /* Ieee/input.scm 129 */
 obj_t BgL_res3490z00_4854;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_res3490z00_4854 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7880;
BgL_auxz00_7880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7880,BFALSE,BFALSE);} 
BgL_auxz00_7876 = BgL_res3490z00_4854; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1656)))->BgL_objz00)=((obj_t)BgL_auxz00_7876),BUNSPEC); } 
BgL_arg1610z00_1655 = BgL_new1046z00_1656; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1610z00_1655));}  else 
{ /* Ieee/input.scm 129 */
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4822;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4822 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7889;
BgL_auxz00_7889 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7889,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4822); } 
{ /* Ieee/input.scm 129 */
 long BgL_matchz00_1798;
{ /* Ieee/input.scm 129 */
 long BgL_arg1727z00_1801; long BgL_arg1729z00_1802;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4823;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4823 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7896;
BgL_auxz00_7896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7896,BFALSE,BFALSE);} 
BgL_arg1727z00_1801 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4823); } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4824;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4824 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7903;
BgL_auxz00_7903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7903,BFALSE,BFALSE);} 
BgL_arg1729z00_1802 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4824); } 
{ 
 long BgL_forwardz00_4826; long BgL_bufposz00_4827;
BgL_forwardz00_4826 = BgL_arg1727z00_1801; 
BgL_bufposz00_4827 = BgL_arg1729z00_1802; 
BgL_statezd20zd21040z00_4825:
if(
(BgL_forwardz00_4826==BgL_bufposz00_4827))
{ /* Ieee/input.scm 129 */
 bool_t BgL_test4676z00_7910;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4832;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4832 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7913;
BgL_auxz00_7913 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4289z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7913,BFALSE,BFALSE);} 
BgL_test4676z00_7910 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4832); } 
if(BgL_test4676z00_7910)
{ /* Ieee/input.scm 129 */
 long BgL_arg1620z00_4833; long BgL_arg1621z00_4834;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4835;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4835 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7920;
BgL_auxz00_7920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4289z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7920,BFALSE,BFALSE);} 
BgL_arg1620z00_4833 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4835); } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4836;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4836 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7927;
BgL_auxz00_7927 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4289z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7927,BFALSE,BFALSE);} 
BgL_arg1621z00_4834 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4836); } 
{ 
 long BgL_bufposz00_7933; long BgL_forwardz00_7932;
BgL_forwardz00_7932 = BgL_arg1620z00_4833; 
BgL_bufposz00_7933 = BgL_arg1621z00_4834; 
BgL_bufposz00_4827 = BgL_bufposz00_7933; 
BgL_forwardz00_4826 = BgL_forwardz00_7932; 
goto BgL_statezd20zd21040z00_4825;} }  else 
{ /* Ieee/input.scm 129 */
BgL_matchz00_1798 = 1L; } }  else 
{ /* Ieee/input.scm 129 */
 int BgL_curz00_4837;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4838;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4838 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7936;
BgL_auxz00_7936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4289z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7936,BFALSE,BFALSE);} 
BgL_curz00_4837 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4838, BgL_forwardz00_4826); } 
{ /* Ieee/input.scm 129 */

{ /* Ieee/input.scm 129 */
 long BgL_arg1622z00_4840;
BgL_arg1622z00_4840 = 
(1L+BgL_forwardz00_4826); 
{ /* Ieee/input.scm 129 */
 long BgL_newzd2matchzd2_4842;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4843;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4843 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7944;
BgL_auxz00_7944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4289z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7944,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_4843, BgL_arg1622z00_4840); } 
BgL_newzd2matchzd2_4842 = 0L; 
BgL_matchz00_1798 = BgL_newzd2matchzd2_4842; } } } } } } 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4845;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4845 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7951;
BgL_auxz00_7951 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7951,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_4845); } 
switch( BgL_matchz00_1798) { case 1L : 

{ /* Ieee/input.scm 129 */
 bool_t BgL_test4683z00_7956;
{ /* Ieee/input.scm 129 */
 long BgL_arg1720z00_1788;
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4819;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4819 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7959;
BgL_auxz00_7959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7959,BFALSE,BFALSE);} 
BgL_arg1720z00_1788 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4819); } 
BgL_test4683z00_7956 = 
(BgL_arg1720z00_1788==0L); } 
if(BgL_test4683z00_7956)
{ /* Ieee/input.scm 129 */
return BEOF;}  else 
{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4821;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4821 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7967;
BgL_auxz00_7967 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7967,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4821));} } break;case 0L : 

{ /* Ieee/input.scm 129 */
 obj_t BgL_inputzd2portzd2_4846;
if(
INPUT_PORTP(BgL_iportz00_1623))
{ /* Ieee/input.scm 129 */
BgL_inputzd2portzd2_4846 = BgL_iportz00_1623; }  else 
{ 
 obj_t BgL_auxz00_7975;
BgL_auxz00_7975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5578L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1623); 
FAILURE(BgL_auxz00_7975,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4846));} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_1798));} } } } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1250z00_14)) { case 0L : 

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

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

{ /* Ieee/input.scm 136 */
 obj_t BgL_ipz00_1836;
BgL_ipz00_1836 = 
VECTOR_REF(BgL_opt1250z00_14,0L); 
{ /* Ieee/input.scm 136 */

return 
BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1836);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4290z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1250z00_14)));} } } } 

}



/* 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_1840;
BgL_iportz00_1840 = BgL_ipz00_13; 
{ 

{ /* Ieee/input.scm 137 */
 bool_t BgL_test4687z00_7995;
{ /* Ieee/input.scm 137 */
 obj_t BgL_arg1736z00_1878;
{ /* Ieee/input.scm 137 */
 obj_t BgL_res3492z00_4903;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_res3492z00_4903 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_7998;
BgL_auxz00_7998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_7998,BFALSE,BFALSE);} 
BgL_arg1736z00_1878 = BgL_res3492z00_4903; } 
BgL_test4687z00_7995 = 
INPUT_PORT_CLOSEP(BgL_arg1736z00_1878); } 
if(BgL_test4687z00_7995)
{ /* Ieee/input.scm 137 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1732z00_1872;
{ /* Ieee/input.scm 137 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_1873;
{ /* Ieee/input.scm 137 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_1876;
BgL_new1045z00_1876 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 137 */
 long BgL_arg1735z00_1877;
BgL_arg1735z00_1877 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_1876), BgL_arg1735z00_1877); } 
BgL_new1046z00_1873 = BgL_new1045z00_1876; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1873)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1873)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8011;
{ /* Ieee/input.scm 137 */
 obj_t BgL_arg1733z00_1874;
{ /* Ieee/input.scm 137 */
 obj_t BgL_arg1734z00_1875;
{ /* Ieee/input.scm 137 */
 obj_t BgL_classz00_4908;
BgL_classz00_4908 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1734z00_1875 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_4908); } 
BgL_arg1733z00_1874 = 
VECTOR_REF(BgL_arg1734z00_1875,2L); } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_auxz00_8015;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1733z00_1874))
{ /* Ieee/input.scm 137 */
BgL_auxz00_8015 = BgL_arg1733z00_1874
; }  else 
{ 
 obj_t BgL_auxz00_8018;
BgL_auxz00_8018 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg1733z00_1874); 
FAILURE(BgL_auxz00_8018,BFALSE,BFALSE);} 
BgL_auxz00_8011 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8015); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_1873)))->BgL_stackz00)=((obj_t)BgL_auxz00_8011),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1873)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1873)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8028;
{ /* Ieee/input.scm 137 */
 obj_t BgL_res3493z00_4910;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_res3493z00_4910 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8032;
BgL_auxz00_8032 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8032,BFALSE,BFALSE);} 
BgL_auxz00_8028 = BgL_res3493z00_4910; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_1873)))->BgL_objz00)=((obj_t)BgL_auxz00_8028),BUNSPEC); } 
BgL_arg1732z00_1872 = BgL_new1046z00_1873; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1732z00_1872));}  else 
{ /* Ieee/input.scm 137 */
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4874;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4874 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8041;
BgL_auxz00_8041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8041,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4874); } 
{ /* Ieee/input.scm 137 */
 long BgL_matchz00_2015;
{ /* Ieee/input.scm 137 */
 long BgL_arg1836z00_2021; long BgL_arg1837z00_2022;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4875;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4875 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8048;
BgL_auxz00_8048 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8048,BFALSE,BFALSE);} 
BgL_arg1836z00_2021 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4875); } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4876;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4876 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8055;
BgL_auxz00_8055 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8055,BFALSE,BFALSE);} 
BgL_arg1837z00_2022 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4876); } 
{ 
 long BgL_forwardz00_4878; long BgL_bufposz00_4879;
BgL_forwardz00_4878 = BgL_arg1836z00_2021; 
BgL_bufposz00_4879 = BgL_arg1837z00_2022; 
BgL_statezd20zd21048z00_4877:
if(
(BgL_forwardz00_4878==BgL_bufposz00_4879))
{ /* Ieee/input.scm 137 */
 bool_t BgL_test4695z00_8062;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4884;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4884 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8065;
BgL_auxz00_8065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4292z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8065,BFALSE,BFALSE);} 
BgL_test4695z00_8062 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4884); } 
if(BgL_test4695z00_8062)
{ /* Ieee/input.scm 137 */
 long BgL_arg1741z00_4885; long BgL_arg1742z00_4886;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4887;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4887 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8072;
BgL_auxz00_8072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4292z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8072,BFALSE,BFALSE);} 
BgL_arg1741z00_4885 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4887); } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4888;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4888 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8079;
BgL_auxz00_8079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4292z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8079,BFALSE,BFALSE);} 
BgL_arg1742z00_4886 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4888); } 
{ 
 long BgL_bufposz00_8085; long BgL_forwardz00_8084;
BgL_forwardz00_8084 = BgL_arg1741z00_4885; 
BgL_bufposz00_8085 = BgL_arg1742z00_4886; 
BgL_bufposz00_4879 = BgL_bufposz00_8085; 
BgL_forwardz00_4878 = BgL_forwardz00_8084; 
goto BgL_statezd20zd21048z00_4877;} }  else 
{ /* Ieee/input.scm 137 */
BgL_matchz00_2015 = 1L; } }  else 
{ /* Ieee/input.scm 137 */
 int BgL_curz00_4889;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4890;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4890 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8088;
BgL_auxz00_8088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4292z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8088,BFALSE,BFALSE);} 
BgL_curz00_4889 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4890, BgL_forwardz00_4878); } 
{ /* Ieee/input.scm 137 */

{ /* Ieee/input.scm 137 */
 long BgL_arg1743z00_4892;
BgL_arg1743z00_4892 = 
(1L+BgL_forwardz00_4878); 
{ /* Ieee/input.scm 137 */
 long BgL_newzd2matchzd2_4894;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4895;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4895 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8096;
BgL_auxz00_8096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4292z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8096,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_4895, BgL_arg1743z00_4892); } 
BgL_newzd2matchzd2_4894 = 0L; 
BgL_matchz00_2015 = BgL_newzd2matchzd2_4894; } } } } } } 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4897;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4897 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8103;
BgL_auxz00_8103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8103,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_4897); } 
switch( BgL_matchz00_2015) { case 1L : 

{ /* Ieee/input.scm 137 */
 bool_t BgL_test4702z00_8108;
{ /* Ieee/input.scm 137 */
 long BgL_arg1827z00_2005;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4871;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4871 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8111;
BgL_auxz00_8111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8111,BFALSE,BFALSE);} 
BgL_arg1827z00_2005 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4871); } 
BgL_test4702z00_8108 = 
(BgL_arg1827z00_2005==0L); } 
if(BgL_test4702z00_8108)
{ /* Ieee/input.scm 137 */
return BEOF;}  else 
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4873;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4873 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8119;
BgL_auxz00_8119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8119,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4873));} } break;case 0L : 

{ /* Ieee/input.scm 139 */
 unsigned char BgL_cz00_2018;
{ /* Ieee/input.scm 137 */
 obj_t BgL_inputzd2portzd2_4898;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_inputzd2portzd2_4898 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8127;
BgL_auxz00_8127 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8127,BFALSE,BFALSE);} 
BgL_cz00_2018 = 
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4898); } 
{ /* Ieee/input.scm 140 */
 obj_t BgL_arg1834z00_2019; long BgL_arg1835z00_2020;
{ /* Ieee/input.scm 140 */
 obj_t BgL_res3491z00_4899;
if(
INPUT_PORTP(BgL_iportz00_1840))
{ /* Ieee/input.scm 137 */
BgL_res3491z00_4899 = BgL_iportz00_1840; }  else 
{ 
 obj_t BgL_auxz00_8134;
BgL_auxz00_8134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(5972L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_1840); 
FAILURE(BgL_auxz00_8134,BFALSE,BFALSE);} 
BgL_arg1834z00_2019 = BgL_res3491z00_4899; } 
BgL_arg1835z00_2020 = 
(
(unsigned char)(BgL_cz00_2018)); 
rgc_buffer_unget_char(BgL_arg1834z00_2019, 
(int)(BgL_arg1835z00_2020)); } 
return 
BCHAR(BgL_cz00_2018);} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2015));} } } } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1254z00_17)) { case 0L : 

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

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

{ /* Ieee/input.scm 147 */
 obj_t BgL_ipz00_2056;
BgL_ipz00_2056 = 
VECTOR_REF(BgL_opt1254z00_17,0L); 
{ /* Ieee/input.scm 147 */

return 
BGl_readzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2056);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4293z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1254z00_17)));} } } } 

}



/* 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_2060;
BgL_iportz00_2060 = BgL_ipz00_16; 
{ 

{ /* Ieee/input.scm 148 */
 bool_t BgL_test4707z00_8157;
{ /* Ieee/input.scm 148 */
 obj_t BgL_arg1844z00_2098;
{ /* Ieee/input.scm 148 */
 obj_t BgL_res3494z00_4955;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_res3494z00_4955 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8160;
BgL_auxz00_8160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8160,BFALSE,BFALSE);} 
BgL_arg1844z00_2098 = BgL_res3494z00_4955; } 
BgL_test4707z00_8157 = 
INPUT_PORT_CLOSEP(BgL_arg1844z00_2098); } 
if(BgL_test4707z00_8157)
{ /* Ieee/input.scm 148 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1840z00_2092;
{ /* Ieee/input.scm 148 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2093;
{ /* Ieee/input.scm 148 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2096;
BgL_new1045z00_2096 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 148 */
 long BgL_arg1843z00_2097;
BgL_arg1843z00_2097 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2096), BgL_arg1843z00_2097); } 
BgL_new1046z00_2093 = BgL_new1045z00_2096; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2093)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2093)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8173;
{ /* Ieee/input.scm 148 */
 obj_t BgL_arg1841z00_2094;
{ /* Ieee/input.scm 148 */
 obj_t BgL_arg1842z00_2095;
{ /* Ieee/input.scm 148 */
 obj_t BgL_classz00_4960;
BgL_classz00_4960 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1842z00_2095 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_4960); } 
BgL_arg1841z00_2094 = 
VECTOR_REF(BgL_arg1842z00_2095,2L); } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_auxz00_8177;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1841z00_2094))
{ /* Ieee/input.scm 148 */
BgL_auxz00_8177 = BgL_arg1841z00_2094
; }  else 
{ 
 obj_t BgL_auxz00_8180;
BgL_auxz00_8180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg1841z00_2094); 
FAILURE(BgL_auxz00_8180,BFALSE,BFALSE);} 
BgL_auxz00_8173 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8177); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2093)))->BgL_stackz00)=((obj_t)BgL_auxz00_8173),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2093)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2093)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8190;
{ /* Ieee/input.scm 148 */
 obj_t BgL_res3495z00_4962;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_res3495z00_4962 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8194;
BgL_auxz00_8194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8194,BFALSE,BFALSE);} 
BgL_auxz00_8190 = BgL_res3495z00_4962; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2093)))->BgL_objz00)=((obj_t)BgL_auxz00_8190),BUNSPEC); } 
BgL_arg1840z00_2092 = BgL_new1046z00_2093; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1840z00_2092));}  else 
{ /* Ieee/input.scm 148 */
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4930;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4930 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8203;
BgL_auxz00_8203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8203,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4930); } 
{ /* Ieee/input.scm 148 */
 long BgL_matchz00_2235;
{ /* Ieee/input.scm 148 */
 long BgL_arg1950z00_2238; long BgL_arg1951z00_2239;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4931;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4931 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8210;
BgL_auxz00_8210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8210,BFALSE,BFALSE);} 
BgL_arg1950z00_2238 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4931); } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4932;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4932 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8217;
BgL_auxz00_8217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8217,BFALSE,BFALSE);} 
BgL_arg1951z00_2239 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4932); } 
{ 
 long BgL_forwardz00_4934; long BgL_bufposz00_4935;
BgL_forwardz00_4934 = BgL_arg1950z00_2238; 
BgL_bufposz00_4935 = BgL_arg1951z00_2239; 
BgL_statezd20zd21054z00_4933:
if(
(BgL_forwardz00_4934==BgL_bufposz00_4935))
{ /* Ieee/input.scm 148 */
 bool_t BgL_test4715z00_8224;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4940;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4940 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8227;
BgL_auxz00_8227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4295z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8227,BFALSE,BFALSE);} 
BgL_test4715z00_8224 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4940); } 
if(BgL_test4715z00_8224)
{ /* Ieee/input.scm 148 */
 long BgL_arg1850z00_4941; long BgL_arg1851z00_4942;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4943;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4943 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8234;
BgL_auxz00_8234 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4295z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8234,BFALSE,BFALSE);} 
BgL_arg1850z00_4941 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4943); } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4944;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4944 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8241;
BgL_auxz00_8241 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4295z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8241,BFALSE,BFALSE);} 
BgL_arg1851z00_4942 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4944); } 
{ 
 long BgL_bufposz00_8247; long BgL_forwardz00_8246;
BgL_forwardz00_8246 = BgL_arg1850z00_4941; 
BgL_bufposz00_8247 = BgL_arg1851z00_4942; 
BgL_bufposz00_4935 = BgL_bufposz00_8247; 
BgL_forwardz00_4934 = BgL_forwardz00_8246; 
goto BgL_statezd20zd21054z00_4933;} }  else 
{ /* Ieee/input.scm 148 */
BgL_matchz00_2235 = 1L; } }  else 
{ /* Ieee/input.scm 148 */
 int BgL_curz00_4945;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4946;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4946 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8250;
BgL_auxz00_8250 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4295z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8250,BFALSE,BFALSE);} 
BgL_curz00_4945 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4946, BgL_forwardz00_4934); } 
{ /* Ieee/input.scm 148 */

{ /* Ieee/input.scm 148 */
 long BgL_arg1852z00_4948;
BgL_arg1852z00_4948 = 
(1L+BgL_forwardz00_4934); 
{ /* Ieee/input.scm 148 */
 long BgL_newzd2matchzd2_4950;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4951;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4951 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8258;
BgL_auxz00_8258 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4295z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8258,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_4951, BgL_arg1852z00_4948); } 
BgL_newzd2matchzd2_4950 = 0L; 
BgL_matchz00_2235 = BgL_newzd2matchzd2_4950; } } } } } } 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4953;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4953 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8265;
BgL_auxz00_8265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8265,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_4953); } 
switch( BgL_matchz00_2235) { case 1L : 

{ /* Ieee/input.scm 148 */
 bool_t BgL_test4722z00_8270;
{ /* Ieee/input.scm 148 */
 long BgL_arg1943z00_2225;
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4927;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4927 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8273;
BgL_auxz00_8273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8273,BFALSE,BFALSE);} 
BgL_arg1943z00_2225 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4927); } 
BgL_test4722z00_8270 = 
(BgL_arg1943z00_2225==0L); } 
if(BgL_test4722z00_8270)
{ /* Ieee/input.scm 148 */
return BEOF;}  else 
{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4929;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4929 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8281;
BgL_auxz00_8281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8281,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4929));} } break;case 0L : 

{ /* Ieee/input.scm 148 */
 obj_t BgL_inputzd2portzd2_4954;
if(
INPUT_PORTP(BgL_iportz00_2060))
{ /* Ieee/input.scm 148 */
BgL_inputzd2portzd2_4954 = BgL_iportz00_2060; }  else 
{ 
 obj_t BgL_auxz00_8289;
BgL_auxz00_8289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6449L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2060); 
FAILURE(BgL_auxz00_8289,BFALSE,BFALSE);} 
return 
BINT(
RGC_BUFFER_BYTE(BgL_inputzd2portzd2_4954));} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2235));} } } } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1258z00_20)) { case 0L : 

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

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

{ /* Ieee/input.scm 155 */
 obj_t BgL_ipz00_2273;
BgL_ipz00_2273 = 
VECTOR_REF(BgL_opt1258z00_20,0L); 
{ /* Ieee/input.scm 155 */

return 
BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2273);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4296z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1258z00_20)));} } } } 

}



/* 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_2277;
BgL_iportz00_2277 = BgL_ipz00_19; 
{ 

{ /* Ieee/input.scm 156 */
 bool_t BgL_test4726z00_8309;
{ /* Ieee/input.scm 156 */
 obj_t BgL_arg1958z00_2315;
{ /* Ieee/input.scm 156 */
 obj_t BgL_res3497z00_5010;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_res3497z00_5010 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8312;
BgL_auxz00_8312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8312,BFALSE,BFALSE);} 
BgL_arg1958z00_2315 = BgL_res3497z00_5010; } 
BgL_test4726z00_8309 = 
INPUT_PORT_CLOSEP(BgL_arg1958z00_2315); } 
if(BgL_test4726z00_8309)
{ /* Ieee/input.scm 156 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg1954z00_2309;
{ /* Ieee/input.scm 156 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2310;
{ /* Ieee/input.scm 156 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2313;
BgL_new1045z00_2313 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 156 */
 long BgL_arg1957z00_2314;
BgL_arg1957z00_2314 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2313), BgL_arg1957z00_2314); } 
BgL_new1046z00_2310 = BgL_new1045z00_2313; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2310)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2310)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8325;
{ /* Ieee/input.scm 156 */
 obj_t BgL_arg1955z00_2311;
{ /* Ieee/input.scm 156 */
 obj_t BgL_arg1956z00_2312;
{ /* Ieee/input.scm 156 */
 obj_t BgL_classz00_5015;
BgL_classz00_5015 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg1956z00_2312 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5015); } 
BgL_arg1955z00_2311 = 
VECTOR_REF(BgL_arg1956z00_2312,2L); } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_auxz00_8329;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1955z00_2311))
{ /* Ieee/input.scm 156 */
BgL_auxz00_8329 = BgL_arg1955z00_2311
; }  else 
{ 
 obj_t BgL_auxz00_8332;
BgL_auxz00_8332 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg1955z00_2311); 
FAILURE(BgL_auxz00_8332,BFALSE,BFALSE);} 
BgL_auxz00_8325 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8329); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2310)))->BgL_stackz00)=((obj_t)BgL_auxz00_8325),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2310)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2310)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8342;
{ /* Ieee/input.scm 156 */
 obj_t BgL_res3498z00_5017;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_res3498z00_5017 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8346;
BgL_auxz00_8346 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8346,BFALSE,BFALSE);} 
BgL_auxz00_8342 = BgL_res3498z00_5017; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2310)))->BgL_objz00)=((obj_t)BgL_auxz00_8342),BUNSPEC); } 
BgL_arg1954z00_2309 = BgL_new1046z00_2310; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1954z00_2309));}  else 
{ /* Ieee/input.scm 156 */
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4982;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4982 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8355;
BgL_auxz00_8355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8355,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_4982); } 
{ /* Ieee/input.scm 156 */
 long BgL_matchz00_2452;
{ /* Ieee/input.scm 156 */
 long BgL_arg2058z00_2457; long BgL_arg2059z00_2458;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4983;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4983 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8362;
BgL_auxz00_8362 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8362,BFALSE,BFALSE);} 
BgL_arg2058z00_2457 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4983); } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4984;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4984 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8369;
BgL_auxz00_8369 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8369,BFALSE,BFALSE);} 
BgL_arg2059z00_2458 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4984); } 
{ 
 long BgL_forwardz00_4986; long BgL_bufposz00_4987;
BgL_forwardz00_4986 = BgL_arg2058z00_2457; 
BgL_bufposz00_4987 = BgL_arg2059z00_2458; 
BgL_statezd20zd21060z00_4985:
if(
(BgL_forwardz00_4986==BgL_bufposz00_4987))
{ /* Ieee/input.scm 156 */
 bool_t BgL_test4734z00_8376;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4992;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4992 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8379;
BgL_auxz00_8379 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4298z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8379,BFALSE,BFALSE);} 
BgL_test4734z00_8376 = 
rgc_fill_buffer(BgL_inputzd2portzd2_4992); } 
if(BgL_test4734z00_8376)
{ /* Ieee/input.scm 156 */
 long BgL_arg1963z00_4993; long BgL_arg1964z00_4994;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4995;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4995 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8386;
BgL_auxz00_8386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4298z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8386,BFALSE,BFALSE);} 
BgL_arg1963z00_4993 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_4995); } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4996;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4996 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8393;
BgL_auxz00_8393 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4298z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8393,BFALSE,BFALSE);} 
BgL_arg1964z00_4994 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_4996); } 
{ 
 long BgL_bufposz00_8399; long BgL_forwardz00_8398;
BgL_forwardz00_8398 = BgL_arg1963z00_4993; 
BgL_bufposz00_8399 = BgL_arg1964z00_4994; 
BgL_bufposz00_4987 = BgL_bufposz00_8399; 
BgL_forwardz00_4986 = BgL_forwardz00_8398; 
goto BgL_statezd20zd21060z00_4985;} }  else 
{ /* Ieee/input.scm 156 */
BgL_matchz00_2452 = 1L; } }  else 
{ /* Ieee/input.scm 156 */
 int BgL_curz00_4997;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4998;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4998 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8402;
BgL_auxz00_8402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4298z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8402,BFALSE,BFALSE);} 
BgL_curz00_4997 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4998, BgL_forwardz00_4986); } 
{ /* Ieee/input.scm 156 */

{ /* Ieee/input.scm 156 */
 long BgL_arg1965z00_5000;
BgL_arg1965z00_5000 = 
(1L+BgL_forwardz00_4986); 
{ /* Ieee/input.scm 156 */
 long BgL_newzd2matchzd2_5002;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5003;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5003 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8410;
BgL_auxz00_8410 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4298z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8410,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5003, BgL_arg1965z00_5000); } 
BgL_newzd2matchzd2_5002 = 0L; 
BgL_matchz00_2452 = BgL_newzd2matchzd2_5002; } } } } } } 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5005;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5005 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8417;
BgL_auxz00_8417 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8417,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5005); } 
switch( BgL_matchz00_2452) { case 1L : 

{ /* Ieee/input.scm 156 */
 bool_t BgL_test4741z00_8422;
{ /* Ieee/input.scm 156 */
 long BgL_arg2050z00_2442;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4979;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4979 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8425;
BgL_auxz00_8425 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8425,BFALSE,BFALSE);} 
BgL_arg2050z00_2442 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_4979); } 
BgL_test4741z00_8422 = 
(BgL_arg2050z00_2442==0L); } 
if(BgL_test4741z00_8422)
{ /* Ieee/input.scm 156 */
return BEOF;}  else 
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_4981;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_4981 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8433;
BgL_auxz00_8433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8433,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_4981));} } break;case 0L : 

{ /* Ieee/input.scm 158 */
 int BgL_cz00_2455;
{ /* Ieee/input.scm 156 */
 obj_t BgL_inputzd2portzd2_5006;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_inputzd2portzd2_5006 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8441;
BgL_auxz00_8441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8441,BFALSE,BFALSE);} 
BgL_cz00_2455 = 
RGC_BUFFER_BYTE(BgL_inputzd2portzd2_5006); } 
{ /* Ieee/input.scm 159 */
 obj_t BgL_arg2057z00_2456;
{ /* Ieee/input.scm 159 */
 obj_t BgL_res3496z00_5007;
if(
INPUT_PORTP(BgL_iportz00_2277))
{ /* Ieee/input.scm 156 */
BgL_res3496z00_5007 = BgL_iportz00_2277; }  else 
{ 
 obj_t BgL_auxz00_8448;
BgL_auxz00_8448 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(6838L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2277); 
FAILURE(BgL_auxz00_8448,BFALSE,BFALSE);} 
BgL_arg2057z00_2456 = BgL_res3496z00_5007; } 
rgc_buffer_unget_char(BgL_arg2057z00_2456, BgL_cz00_2455); } 
return 
BINT(BgL_cz00_2455);} break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2452));} } } } } } } 

}



/* 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_5996)
{
{ /* 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_5994, obj_t BgL_objectz00_5995)
{
{ /* Ieee/input.scm 172 */
return 
BBOOL(
EOF_OBJECTP(BgL_objectz00_5995));} 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1262z00_24)) { case 0L : 

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

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

{ /* Ieee/input.scm 178 */
 obj_t BgL_ipz00_6893;
BgL_ipz00_6893 = 
VECTOR_REF(BgL_opt1262z00_24,0L); 
{ /* Ieee/input.scm 178 */

{ /* Ieee/input.scm 179 */
 bool_t BgL_tmpz00_8467;
{ /* Ieee/input.scm 179 */
 obj_t BgL_tmpz00_8468;
if(
INPUT_PORTP(BgL_ipz00_6893))
{ /* Ieee/input.scm 179 */
BgL_tmpz00_8468 = BgL_ipz00_6893
; }  else 
{ 
 obj_t BgL_auxz00_8471;
BgL_auxz00_8471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(7849L), BGl_string4301z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_6893); 
FAILURE(BgL_auxz00_8471,BFALSE,BFALSE);} 
BgL_tmpz00_8467 = 
bgl_rgc_charready(BgL_tmpz00_8468); } 
return 
BBOOL(BgL_tmpz00_8467);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4299z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1262z00_24)));} } } } 

}



/* 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_8482;
if(
INPUT_PORTP(BgL_ipz00_23))
{ /* Ieee/input.scm 179 */
BgL_tmpz00_8482 = BgL_ipz00_23
; }  else 
{ 
 obj_t BgL_auxz00_8485;
BgL_auxz00_8485 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(7849L), BGl_string4300z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_23); 
FAILURE(BgL_auxz00_8485,BFALSE,BFALSE);} 
return 
bgl_rgc_charready(BgL_tmpz00_8482);} } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1266z00_27)) { case 0L : 

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

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

{ /* Ieee/input.scm 184 */
 obj_t BgL_ipz00_2497;
BgL_ipz00_2497 = 
VECTOR_REF(BgL_opt1266z00_27,0L); 
{ /* Ieee/input.scm 184 */

return 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_2497);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4302z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1266z00_27)));} } } } 

}



/* 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_test4748z00_8501;
{ /* Ieee/input.scm 185 */
 long BgL_arg2229z00_2838;
{ /* Ieee/input.scm 185 */
 obj_t BgL_tmpz00_8502;
if(
INPUT_PORTP(BgL_ipz00_26))
{ /* Ieee/input.scm 185 */
BgL_tmpz00_8502 = BgL_ipz00_26
; }  else 
{ 
 obj_t BgL_auxz00_8505;
BgL_auxz00_8505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8167L), BGl_string4303z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_26); 
FAILURE(BgL_auxz00_8505,BFALSE,BFALSE);} 
BgL_arg2229z00_2838 = 
BGL_INPUT_PORT_BUFSIZ(BgL_tmpz00_8502); } 
BgL_test4748z00_8501 = 
(BgL_arg2229z00_2838>2L); } 
if(BgL_test4748z00_8501)
{ 
 obj_t BgL_iportz00_2503;
BgL_iportz00_2503 = BgL_ipz00_26; 
{ 
 int BgL_minz00_2658; int BgL_maxz00_2659; obj_t BgL_iportz00_2621; long BgL_lastzd2matchzd2_2622; long BgL_forwardz00_2623; long BgL_bufposz00_2624; obj_t BgL_iportz00_2593; long BgL_lastzd2matchzd2_2594; long BgL_forwardz00_2595; long BgL_bufposz00_2596; obj_t BgL_iportz00_2580; long BgL_lastzd2matchzd2_2581; long BgL_forwardz00_2582; long BgL_bufposz00_2583; obj_t BgL_iportz00_2565; long BgL_lastzd2matchzd2_2566; long BgL_forwardz00_2567; long BgL_bufposz00_2568; obj_t BgL_iportz00_2549; long BgL_lastzd2matchzd2_2550; long BgL_forwardz00_2551; long BgL_bufposz00_2552;
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4750z00_8511;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2071z00_2548;
{ /* Ieee/input.scm 186 */
 obj_t BgL_res3499z00_5153;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_res3499z00_5153 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8514;
BgL_auxz00_8514 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8514,BFALSE,BFALSE);} 
BgL_arg2071z00_2548 = BgL_res3499z00_5153; } 
BgL_test4750z00_8511 = 
INPUT_PORT_CLOSEP(BgL_arg2071z00_2548); } 
if(BgL_test4750z00_8511)
{ /* Ieee/input.scm 186 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2066z00_2542;
{ /* Ieee/input.scm 186 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2543;
{ /* Ieee/input.scm 186 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2546;
BgL_new1045z00_2546 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 186 */
 long BgL_arg2070z00_2547;
BgL_arg2070z00_2547 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2546), BgL_arg2070z00_2547); } 
BgL_new1046z00_2543 = BgL_new1045z00_2546; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2543)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2543)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8527;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2067z00_2544;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2069z00_2545;
{ /* Ieee/input.scm 186 */
 obj_t BgL_classz00_5158;
BgL_classz00_5158 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2069z00_2545 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5158); } 
BgL_arg2067z00_2544 = 
VECTOR_REF(BgL_arg2069z00_2545,2L); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_auxz00_8531;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2067z00_2544))
{ /* Ieee/input.scm 186 */
BgL_auxz00_8531 = BgL_arg2067z00_2544
; }  else 
{ 
 obj_t BgL_auxz00_8534;
BgL_auxz00_8534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2067z00_2544); 
FAILURE(BgL_auxz00_8534,BFALSE,BFALSE);} 
BgL_auxz00_8527 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_8531); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2543)))->BgL_stackz00)=((obj_t)BgL_auxz00_8527),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2543)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2543)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8544;
{ /* Ieee/input.scm 186 */
 obj_t BgL_res3500z00_5160;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_res3500z00_5160 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8548;
BgL_auxz00_8548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8548,BFALSE,BFALSE);} 
BgL_auxz00_8544 = BgL_res3500z00_5160; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2543)))->BgL_objz00)=((obj_t)BgL_auxz00_8544),BUNSPEC); } 
BgL_arg2066z00_2542 = BgL_new1046z00_2543; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2066z00_2542));}  else 
{ /* Ieee/input.scm 186 */
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5141;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5141 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8557;
BgL_auxz00_8557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8557,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_5141); } 
{ /* Ieee/input.scm 186 */
 long BgL_matchz00_2765;
{ /* Ieee/input.scm 186 */
 long BgL_arg2214z00_2772; long BgL_arg2215z00_2773;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5142;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5142 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8564;
BgL_auxz00_8564 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8564,BFALSE,BFALSE);} 
BgL_arg2214z00_2772 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5142); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5143;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5143 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8571;
BgL_auxz00_8571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8571,BFALSE,BFALSE);} 
BgL_arg2215z00_2773 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5143); } 
BgL_iportz00_2565 = BgL_iportz00_2503; 
BgL_lastzd2matchzd2_2566 = 4L; 
BgL_forwardz00_2567 = BgL_arg2214z00_2772; 
BgL_bufposz00_2568 = BgL_arg2215z00_2773; 
BgL_zc3z04anonymousza32083ze3z87_2569:
if(
(BgL_forwardz00_2567==BgL_bufposz00_2568))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4758z00_8578;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5045;
if(
INPUT_PORTP(BgL_iportz00_2565))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5045 = BgL_iportz00_2565; }  else 
{ 
 obj_t BgL_auxz00_8581;
BgL_auxz00_8581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4305z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2565); 
FAILURE(BgL_auxz00_8581,BFALSE,BFALSE);} 
BgL_test4758z00_8578 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5045); } 
if(BgL_test4758z00_8578)
{ /* Ieee/input.scm 186 */
 long BgL_arg2086z00_2572; long BgL_arg2087z00_2573;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5046;
if(
INPUT_PORTP(BgL_iportz00_2565))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5046 = BgL_iportz00_2565; }  else 
{ 
 obj_t BgL_auxz00_8588;
BgL_auxz00_8588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4305z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2565); 
FAILURE(BgL_auxz00_8588,BFALSE,BFALSE);} 
BgL_arg2086z00_2572 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5046); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5047;
if(
INPUT_PORTP(BgL_iportz00_2565))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5047 = BgL_iportz00_2565; }  else 
{ 
 obj_t BgL_auxz00_8595;
BgL_auxz00_8595 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4305z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2565); 
FAILURE(BgL_auxz00_8595,BFALSE,BFALSE);} 
BgL_arg2087z00_2573 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5047); } 
{ 
 long BgL_bufposz00_8601; long BgL_forwardz00_8600;
BgL_forwardz00_8600 = BgL_arg2086z00_2572; 
BgL_bufposz00_8601 = BgL_arg2087z00_2573; 
BgL_bufposz00_2568 = BgL_bufposz00_8601; 
BgL_forwardz00_2567 = BgL_forwardz00_8600; 
goto BgL_zc3z04anonymousza32083ze3z87_2569;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_lastzd2matchzd2_2566; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2574;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5048;
if(
INPUT_PORTP(BgL_iportz00_2565))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5048 = BgL_iportz00_2565; }  else 
{ 
 obj_t BgL_auxz00_8604;
BgL_auxz00_8604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4305z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2565); 
FAILURE(BgL_auxz00_8604,BFALSE,BFALSE);} 
BgL_curz00_2574 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5048, BgL_forwardz00_2567); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2574)==13L))
{ /* Ieee/input.scm 186 */
BgL_iportz00_2580 = BgL_iportz00_2565; 
BgL_lastzd2matchzd2_2581 = BgL_lastzd2matchzd2_2566; 
BgL_forwardz00_2582 = 
(1L+BgL_forwardz00_2567); 
BgL_bufposz00_2583 = BgL_bufposz00_2568; 
BgL_zc3z04anonymousza32094ze3z87_2584:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2585;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5058;
if(
INPUT_PORTP(BgL_iportz00_2580))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5058 = BgL_iportz00_2580; }  else 
{ 
 obj_t BgL_auxz00_8614;
BgL_auxz00_8614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4306z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2580); 
FAILURE(BgL_auxz00_8614,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5058, BgL_forwardz00_2582); } 
BgL_newzd2matchzd2_2585 = 3L; 
if(
(BgL_forwardz00_2582==BgL_bufposz00_2583))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4766z00_8621;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5062;
if(
INPUT_PORTP(BgL_iportz00_2580))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5062 = BgL_iportz00_2580; }  else 
{ 
 obj_t BgL_auxz00_8624;
BgL_auxz00_8624 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4306z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2580); 
FAILURE(BgL_auxz00_8624,BFALSE,BFALSE);} 
BgL_test4766z00_8621 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5062); } 
if(BgL_test4766z00_8621)
{ /* Ieee/input.scm 186 */
 long BgL_arg2097z00_2588; long BgL_arg2098z00_2589;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5063;
if(
INPUT_PORTP(BgL_iportz00_2580))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5063 = BgL_iportz00_2580; }  else 
{ 
 obj_t BgL_auxz00_8631;
BgL_auxz00_8631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4306z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2580); 
FAILURE(BgL_auxz00_8631,BFALSE,BFALSE);} 
BgL_arg2097z00_2588 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5063); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5064;
if(
INPUT_PORTP(BgL_iportz00_2580))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5064 = BgL_iportz00_2580; }  else 
{ 
 obj_t BgL_auxz00_8638;
BgL_auxz00_8638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4306z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2580); 
FAILURE(BgL_auxz00_8638,BFALSE,BFALSE);} 
BgL_arg2098z00_2589 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5064); } 
{ 
 long BgL_bufposz00_8644; long BgL_forwardz00_8643;
BgL_forwardz00_8643 = BgL_arg2097z00_2588; 
BgL_bufposz00_8644 = BgL_arg2098z00_2589; 
BgL_bufposz00_2583 = BgL_bufposz00_8644; 
BgL_forwardz00_2582 = BgL_forwardz00_8643; 
goto BgL_zc3z04anonymousza32094ze3z87_2584;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_newzd2matchzd2_2585; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2590;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5065;
if(
INPUT_PORTP(BgL_iportz00_2580))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5065 = BgL_iportz00_2580; }  else 
{ 
 obj_t BgL_auxz00_8647;
BgL_auxz00_8647 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4306z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2580); 
FAILURE(BgL_auxz00_8647,BFALSE,BFALSE);} 
BgL_curz00_2590 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5065, BgL_forwardz00_2582); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2590)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2100z00_2592;
BgL_arg2100z00_2592 = 
(1L+BgL_forwardz00_2582); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5069;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5070;
if(
INPUT_PORTP(BgL_iportz00_2580))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5070 = BgL_iportz00_2580; }  else 
{ 
 obj_t BgL_auxz00_8658;
BgL_auxz00_8658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4306z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2580); 
FAILURE(BgL_auxz00_8658,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5070, BgL_arg2100z00_2592); } 
BgL_newzd2matchzd2_5069 = 3L; 
BgL_matchz00_2765 = BgL_newzd2matchzd2_5069; } }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_newzd2matchzd2_2585; } } } } }  else 
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_curz00_2574)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2091z00_2578;
BgL_arg2091z00_2578 = 
(1L+BgL_forwardz00_2567); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5054;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5055;
if(
INPUT_PORTP(BgL_iportz00_2565))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5055 = BgL_iportz00_2565; }  else 
{ 
 obj_t BgL_auxz00_8670;
BgL_auxz00_8670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4305z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2565); 
FAILURE(BgL_auxz00_8670,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5055, BgL_arg2091z00_2578); } 
BgL_newzd2matchzd2_5054 = 3L; 
BgL_matchz00_2765 = BgL_newzd2matchzd2_5054; } }  else 
{ /* Ieee/input.scm 186 */
BgL_iportz00_2549 = BgL_iportz00_2565; 
BgL_lastzd2matchzd2_2550 = BgL_lastzd2matchzd2_2566; 
BgL_forwardz00_2551 = 
(1L+BgL_forwardz00_2567); 
BgL_bufposz00_2552 = BgL_bufposz00_2568; 
BgL_zc3z04anonymousza32072ze3z87_2553:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2554;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5026;
if(
INPUT_PORTP(BgL_iportz00_2549))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5026 = BgL_iportz00_2549; }  else 
{ 
 obj_t BgL_auxz00_8677;
BgL_auxz00_8677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4304z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2549); 
FAILURE(BgL_auxz00_8677,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5026, BgL_forwardz00_2551); } 
BgL_newzd2matchzd2_2554 = 2L; 
if(
(BgL_forwardz00_2551==BgL_bufposz00_2552))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4777z00_8684;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5030;
if(
INPUT_PORTP(BgL_iportz00_2549))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5030 = BgL_iportz00_2549; }  else 
{ 
 obj_t BgL_auxz00_8687;
BgL_auxz00_8687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4304z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2549); 
FAILURE(BgL_auxz00_8687,BFALSE,BFALSE);} 
BgL_test4777z00_8684 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5030); } 
if(BgL_test4777z00_8684)
{ /* Ieee/input.scm 186 */
 long BgL_arg2076z00_2557; long BgL_arg2077z00_2558;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5031;
if(
INPUT_PORTP(BgL_iportz00_2549))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5031 = BgL_iportz00_2549; }  else 
{ 
 obj_t BgL_auxz00_8694;
BgL_auxz00_8694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4304z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2549); 
FAILURE(BgL_auxz00_8694,BFALSE,BFALSE);} 
BgL_arg2076z00_2557 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5031); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5032;
if(
INPUT_PORTP(BgL_iportz00_2549))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5032 = BgL_iportz00_2549; }  else 
{ 
 obj_t BgL_auxz00_8701;
BgL_auxz00_8701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4304z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2549); 
FAILURE(BgL_auxz00_8701,BFALSE,BFALSE);} 
BgL_arg2077z00_2558 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5032); } 
{ 
 long BgL_bufposz00_8707; long BgL_forwardz00_8706;
BgL_forwardz00_8706 = BgL_arg2076z00_2557; 
BgL_bufposz00_8707 = BgL_arg2077z00_2558; 
BgL_bufposz00_2552 = BgL_bufposz00_8707; 
BgL_forwardz00_2551 = BgL_forwardz00_8706; 
goto BgL_zc3z04anonymousza32072ze3z87_2553;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_newzd2matchzd2_2554; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2559;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5033;
if(
INPUT_PORTP(BgL_iportz00_2549))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5033 = BgL_iportz00_2549; }  else 
{ 
 obj_t BgL_auxz00_8710;
BgL_auxz00_8710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4304z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2549); 
FAILURE(BgL_auxz00_8710,BFALSE,BFALSE);} 
BgL_curz00_2559 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5033, BgL_forwardz00_2551); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2559)==13L))
{ /* Ieee/input.scm 186 */
BgL_iportz00_2621 = BgL_iportz00_2549; 
BgL_lastzd2matchzd2_2622 = BgL_newzd2matchzd2_2554; 
BgL_forwardz00_2623 = 
(1L+BgL_forwardz00_2551); 
BgL_bufposz00_2624 = BgL_bufposz00_2552; 
BgL_zc3z04anonymousza32113ze3z87_2625:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2626;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5095;
if(
INPUT_PORTP(BgL_iportz00_2621))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5095 = BgL_iportz00_2621; }  else 
{ 
 obj_t BgL_auxz00_8720;
BgL_auxz00_8720 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4308z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2621); 
FAILURE(BgL_auxz00_8720,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5095, BgL_forwardz00_2623); } 
BgL_newzd2matchzd2_2626 = 0L; 
if(
(BgL_forwardz00_2623==BgL_bufposz00_2624))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4785z00_8727;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5099;
if(
INPUT_PORTP(BgL_iportz00_2621))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5099 = BgL_iportz00_2621; }  else 
{ 
 obj_t BgL_auxz00_8730;
BgL_auxz00_8730 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4308z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2621); 
FAILURE(BgL_auxz00_8730,BFALSE,BFALSE);} 
BgL_test4785z00_8727 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5099); } 
if(BgL_test4785z00_8727)
{ /* Ieee/input.scm 186 */
 long BgL_arg2116z00_2629; long BgL_arg2117z00_2630;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5100;
if(
INPUT_PORTP(BgL_iportz00_2621))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5100 = BgL_iportz00_2621; }  else 
{ 
 obj_t BgL_auxz00_8737;
BgL_auxz00_8737 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4308z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2621); 
FAILURE(BgL_auxz00_8737,BFALSE,BFALSE);} 
BgL_arg2116z00_2629 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5100); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5101;
if(
INPUT_PORTP(BgL_iportz00_2621))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5101 = BgL_iportz00_2621; }  else 
{ 
 obj_t BgL_auxz00_8744;
BgL_auxz00_8744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4308z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2621); 
FAILURE(BgL_auxz00_8744,BFALSE,BFALSE);} 
BgL_arg2117z00_2630 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5101); } 
{ 
 long BgL_bufposz00_8750; long BgL_forwardz00_8749;
BgL_forwardz00_8749 = BgL_arg2116z00_2629; 
BgL_bufposz00_8750 = BgL_arg2117z00_2630; 
BgL_bufposz00_2624 = BgL_bufposz00_8750; 
BgL_forwardz00_2623 = BgL_forwardz00_8749; 
goto BgL_zc3z04anonymousza32113ze3z87_2625;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_newzd2matchzd2_2626; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2631;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5102;
if(
INPUT_PORTP(BgL_iportz00_2621))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5102 = BgL_iportz00_2621; }  else 
{ 
 obj_t BgL_auxz00_8753;
BgL_auxz00_8753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4308z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2621); 
FAILURE(BgL_auxz00_8753,BFALSE,BFALSE);} 
BgL_curz00_2631 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5102, BgL_forwardz00_2623); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2631)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2119z00_2633;
BgL_arg2119z00_2633 = 
(1L+BgL_forwardz00_2623); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5106;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5107;
if(
INPUT_PORTP(BgL_iportz00_2621))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5107 = BgL_iportz00_2621; }  else 
{ 
 obj_t BgL_auxz00_8764;
BgL_auxz00_8764 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4308z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2621); 
FAILURE(BgL_auxz00_8764,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5107, BgL_arg2119z00_2633); } 
BgL_newzd2matchzd2_5106 = 1L; 
BgL_matchz00_2765 = BgL_newzd2matchzd2_5106; } }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_newzd2matchzd2_2626; } } } } }  else 
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_curz00_2559)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2081z00_2563;
BgL_arg2081z00_2563 = 
(1L+BgL_forwardz00_2551); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5039;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5040;
if(
INPUT_PORTP(BgL_iportz00_2549))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5040 = BgL_iportz00_2549; }  else 
{ 
 obj_t BgL_auxz00_8776;
BgL_auxz00_8776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4304z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2549); 
FAILURE(BgL_auxz00_8776,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5040, BgL_arg2081z00_2563); } 
BgL_newzd2matchzd2_5039 = 0L; 
BgL_matchz00_2765 = BgL_newzd2matchzd2_5039; } }  else 
{ /* Ieee/input.scm 186 */
BgL_iportz00_2593 = BgL_iportz00_2549; 
BgL_lastzd2matchzd2_2594 = BgL_newzd2matchzd2_2554; 
BgL_forwardz00_2595 = 
(1L+BgL_forwardz00_2551); 
BgL_bufposz00_2596 = BgL_bufposz00_2552; 
BgL_zc3z04anonymousza32101ze3z87_2597:
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_2598;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5072;
if(
INPUT_PORTP(BgL_iportz00_2593))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5072 = BgL_iportz00_2593; }  else 
{ 
 obj_t BgL_auxz00_8783;
BgL_auxz00_8783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4307z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2593); 
FAILURE(BgL_auxz00_8783,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5072, BgL_forwardz00_2595); } 
BgL_newzd2matchzd2_2598 = 2L; 
if(
(BgL_forwardz00_2595==BgL_bufposz00_2596))
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4796z00_8790;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5076;
if(
INPUT_PORTP(BgL_iportz00_2593))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5076 = BgL_iportz00_2593; }  else 
{ 
 obj_t BgL_auxz00_8793;
BgL_auxz00_8793 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4307z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2593); 
FAILURE(BgL_auxz00_8793,BFALSE,BFALSE);} 
BgL_test4796z00_8790 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5076); } 
if(BgL_test4796z00_8790)
{ /* Ieee/input.scm 186 */
 long BgL_arg2104z00_2601; long BgL_arg2105z00_2602;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5077;
if(
INPUT_PORTP(BgL_iportz00_2593))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5077 = BgL_iportz00_2593; }  else 
{ 
 obj_t BgL_auxz00_8800;
BgL_auxz00_8800 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4307z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2593); 
FAILURE(BgL_auxz00_8800,BFALSE,BFALSE);} 
BgL_arg2104z00_2601 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5077); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5078;
if(
INPUT_PORTP(BgL_iportz00_2593))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5078 = BgL_iportz00_2593; }  else 
{ 
 obj_t BgL_auxz00_8807;
BgL_auxz00_8807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4307z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2593); 
FAILURE(BgL_auxz00_8807,BFALSE,BFALSE);} 
BgL_arg2105z00_2602 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5078); } 
{ 
 long BgL_bufposz00_8813; long BgL_forwardz00_8812;
BgL_forwardz00_8812 = BgL_arg2104z00_2601; 
BgL_bufposz00_8813 = BgL_arg2105z00_2602; 
BgL_bufposz00_2596 = BgL_bufposz00_8813; 
BgL_forwardz00_2595 = BgL_forwardz00_8812; 
goto BgL_zc3z04anonymousza32101ze3z87_2597;} }  else 
{ /* Ieee/input.scm 186 */
BgL_matchz00_2765 = BgL_newzd2matchzd2_2598; } }  else 
{ /* Ieee/input.scm 186 */
 int BgL_curz00_2603;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5079;
if(
INPUT_PORTP(BgL_iportz00_2593))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5079 = BgL_iportz00_2593; }  else 
{ 
 obj_t BgL_auxz00_8816;
BgL_auxz00_8816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4307z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2593); 
FAILURE(BgL_auxz00_8816,BFALSE,BFALSE);} 
BgL_curz00_2603 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5079, BgL_forwardz00_2595); } 
{ /* Ieee/input.scm 186 */

if(
(
(long)(BgL_curz00_2603)==13L))
{ 
 long BgL_bufposz00_8828; long BgL_forwardz00_8826; long BgL_lastzd2matchzd2_8825; obj_t BgL_iportz00_8824;
BgL_iportz00_8824 = BgL_iportz00_2593; 
BgL_lastzd2matchzd2_8825 = BgL_newzd2matchzd2_2598; 
BgL_forwardz00_8826 = 
(1L+BgL_forwardz00_2595); 
BgL_bufposz00_8828 = BgL_bufposz00_2596; 
BgL_bufposz00_2624 = BgL_bufposz00_8828; 
BgL_forwardz00_2623 = BgL_forwardz00_8826; 
BgL_lastzd2matchzd2_2622 = BgL_lastzd2matchzd2_8825; 
BgL_iportz00_2621 = BgL_iportz00_8824; 
goto BgL_zc3z04anonymousza32113ze3z87_2625;}  else 
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_curz00_2603)==10L))
{ /* Ieee/input.scm 186 */
 long BgL_arg2109z00_2607;
BgL_arg2109z00_2607 = 
(1L+BgL_forwardz00_2595); 
{ /* Ieee/input.scm 186 */
 long BgL_newzd2matchzd2_5085;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5086;
if(
INPUT_PORTP(BgL_iportz00_2593))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5086 = BgL_iportz00_2593; }  else 
{ 
 obj_t BgL_auxz00_8835;
BgL_auxz00_8835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4307z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2593); 
FAILURE(BgL_auxz00_8835,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5086, BgL_arg2109z00_2607); } 
BgL_newzd2matchzd2_5085 = 0L; 
BgL_matchz00_2765 = BgL_newzd2matchzd2_5085; } }  else 
{ 
 long BgL_forwardz00_8841; long BgL_lastzd2matchzd2_8840;
BgL_lastzd2matchzd2_8840 = BgL_newzd2matchzd2_2598; 
BgL_forwardz00_8841 = 
(1L+BgL_forwardz00_2595); 
BgL_forwardz00_2595 = BgL_forwardz00_8841; 
BgL_lastzd2matchzd2_2594 = BgL_lastzd2matchzd2_8840; 
goto BgL_zc3z04anonymousza32101ze3z87_2597;} } } } } } } } } } } } } } } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5144;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5144 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8847;
BgL_auxz00_8847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8847,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5144); } 
switch( BgL_matchz00_2765) { case 4L : 

{ /* Ieee/input.scm 186 */
 bool_t BgL_test4805z00_8852;
{ /* Ieee/input.scm 186 */
 long BgL_arg2203z00_2755;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5138;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5138 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8855;
BgL_auxz00_8855 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8855,BFALSE,BFALSE);} 
BgL_arg2203z00_2755 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5138); } 
BgL_test4805z00_8852 = 
(BgL_arg2203z00_2755==0L); } 
if(BgL_test4805z00_8852)
{ /* Ieee/input.scm 186 */
return BEOF;}  else 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5140;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5140 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8863;
BgL_auxz00_8863 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8863,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_5140));} } break;case 3L : 

return BGl_string4309z00zz__r4_input_6_10_2z00;break;case 2L : 

{ /* Ieee/input.scm 186 */
 long BgL_arg2128z00_5145;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5146;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5146 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8871;
BgL_auxz00_8871 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8871,BFALSE,BFALSE);} 
BgL_arg2128z00_5145 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5146); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5147;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5147 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8878;
BgL_auxz00_8878 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8878,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_5147, 0L, BgL_arg2128z00_5145);} } break;case 1L : 

{ /* Ieee/input.scm 191 */
 long BgL_arg2210z00_2768;
{ /* Ieee/input.scm 191 */
 long BgL_arg2211z00_2769;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5149;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5149 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8885;
BgL_auxz00_8885 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8885,BFALSE,BFALSE);} 
BgL_arg2211z00_2769 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5149); } 
BgL_arg2210z00_2768 = 
(BgL_arg2211z00_2769-2L); } 
BgL_minz00_2658 = 
(int)(0L); 
BgL_maxz00_2659 = 
(int)(BgL_arg2210z00_2768); 
BgL_lambda2129z00_2660:
if(
(
(long)(BgL_maxz00_2659)<
(long)(BgL_minz00_2658)))
{ /* Ieee/input.scm 186 */
 long BgL_arg2131z00_2662;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5121;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5121 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8897;
BgL_auxz00_8897 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8897,BFALSE,BFALSE);} 
BgL_arg2131z00_2662 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5121); } 
{ /* Ieee/input.scm 186 */
 long BgL_za72za7_5123;
BgL_za72za7_5123 = 
(long)(BgL_maxz00_2659); 
BgL_maxz00_2659 = 
(int)(
(BgL_arg2131z00_2662+BgL_za72za7_5123)); } }  else 
{ /* Ieee/input.scm 186 */BFALSE; } 
{ /* Ieee/input.scm 186 */
 bool_t BgL_test4813z00_8905;
if(
(
(long)(BgL_minz00_2658)>=0L))
{ /* Ieee/input.scm 186 */
if(
(
(long)(BgL_maxz00_2659)>=
(long)(BgL_minz00_2658)))
{ /* Ieee/input.scm 186 */
 long BgL_arg2140z00_2673;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5127;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5127 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8915;
BgL_auxz00_8915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8915,BFALSE,BFALSE);} 
BgL_arg2140z00_2673 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5127); } 
BgL_test4813z00_8905 = 
(
(long)(BgL_maxz00_2659)<=BgL_arg2140z00_2673); }  else 
{ /* Ieee/input.scm 186 */
BgL_test4813z00_8905 = ((bool_t)0)
; } }  else 
{ /* Ieee/input.scm 186 */
BgL_test4813z00_8905 = ((bool_t)0)
; } 
if(BgL_test4813z00_8905)
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5130; long BgL_startz00_5131; long BgL_stopz00_5132;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5130 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8924;
BgL_auxz00_8924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8924,BFALSE,BFALSE);} 
BgL_startz00_5131 = 
(long)(BgL_minz00_2658); 
BgL_stopz00_5132 = 
(long)(BgL_maxz00_2659); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_5130, BgL_startz00_5131, BgL_stopz00_5132);}  else 
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2136z00_2667; obj_t BgL_arg2137z00_2668;
{ /* Ieee/input.scm 186 */
 obj_t BgL_arg2138z00_2669;
{ /* Ieee/input.scm 186 */
 long BgL_arg2128z00_5133;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5134;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5134 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8933;
BgL_auxz00_8933 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8933,BFALSE,BFALSE);} 
BgL_arg2128z00_5133 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5134); } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5135;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5135 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8940;
BgL_auxz00_8940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8940,BFALSE,BFALSE);} 
BgL_arg2138z00_2669 = 
rgc_buffer_substring(BgL_inputzd2portzd2_5135, 0L, BgL_arg2128z00_5133); } } 
{ /* Ieee/input.scm 186 */
 obj_t BgL_list2139z00_2670;
BgL_list2139z00_2670 = 
MAKE_YOUNG_PAIR(BgL_arg2138z00_2669, BNIL); 
BgL_arg2136z00_2667 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string4223z00zz__r4_input_6_10_2z00, BgL_list2139z00_2670); } } 
BgL_arg2137z00_2668 = 
MAKE_YOUNG_PAIR(
BINT(BgL_minz00_2658), 
BINT(BgL_maxz00_2659)); 
{ /* Ieee/input.scm 186 */
 obj_t BgL_aux3872z00_6388;
BgL_aux3872z00_6388 = 
BGl_errorz00zz__errorz00(BGl_string4222z00zz__r4_input_6_10_2z00, BgL_arg2136z00_2667, BgL_arg2137z00_2668); 
if(
STRINGP(BgL_aux3872z00_6388))
{ /* Ieee/input.scm 186 */
return BgL_aux3872z00_6388;}  else 
{ 
 obj_t BgL_auxz00_8953;
BgL_auxz00_8953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4222z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_aux3872z00_6388); 
FAILURE(BgL_auxz00_8953,BFALSE,BFALSE);} } } } } break;case 0L : 

{ /* Ieee/input.scm 189 */
 long BgL_arg2212z00_2770;
{ /* Ieee/input.scm 189 */
 long BgL_arg2213z00_2771;
{ /* Ieee/input.scm 186 */
 obj_t BgL_inputzd2portzd2_5151;
if(
INPUT_PORTP(BgL_iportz00_2503))
{ /* Ieee/input.scm 186 */
BgL_inputzd2portzd2_5151 = BgL_iportz00_2503; }  else 
{ 
 obj_t BgL_auxz00_8961;
BgL_auxz00_8961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(8196L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2503); 
FAILURE(BgL_auxz00_8961,BFALSE,BFALSE);} 
BgL_arg2213z00_2771 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5151); } 
BgL_arg2212z00_2770 = 
(BgL_arg2213z00_2771-1L); } 
{ 
 int BgL_maxz00_8969; int BgL_minz00_8967;
BgL_minz00_8967 = 
(int)(0L); 
BgL_maxz00_8969 = 
(int)(BgL_arg2212z00_2770); 
BgL_maxz00_2659 = BgL_maxz00_8969; 
BgL_minz00_2658 = BgL_minz00_8967; 
goto BgL_lambda2129z00_2660;} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_2765));} } } } } }  else 
{ /* Ieee/input.scm 201 */
 obj_t BgL_g1080z00_2811; obj_t BgL_g1081z00_2812;
BgL_g1080z00_2811 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26); 
{ /* Ieee/string.scm 168 */

BgL_g1081z00_2812 = 
make_string(100L, ((unsigned char)' ')); } 
{ 
 obj_t BgL_cz00_2814; long BgL_wz00_2815; long BgL_mz00_2816; obj_t BgL_accz00_2817;
BgL_cz00_2814 = BgL_g1080z00_2811; 
BgL_wz00_2815 = 0L; 
BgL_mz00_2816 = 100L; 
BgL_accz00_2817 = BgL_g1081z00_2812; 
BgL_zc3z04anonymousza32216ze3z87_2818:
if(
EOF_OBJECTP(BgL_cz00_2814))
{ /* Ieee/input.scm 206 */
if(
(BgL_wz00_2815==0L))
{ /* Ieee/input.scm 208 */
return BgL_cz00_2814;}  else 
{ /* Ieee/input.scm 208 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_2817, 0L, BgL_wz00_2815);} }  else 
{ /* Ieee/input.scm 206 */
if(
(BgL_wz00_2815==BgL_mz00_2816))
{ /* Ieee/input.scm 213 */
 long BgL_arg2220z00_2822; obj_t BgL_arg2221z00_2823;
BgL_arg2220z00_2822 = 
(BgL_mz00_2816*2L); 
{ /* Ieee/input.scm 214 */
 obj_t BgL_newzd2acczd2_2824;
{ /* Ieee/input.scm 214 */
 long BgL_arg2222z00_2825;
BgL_arg2222z00_2825 = 
(BgL_mz00_2816*2L); 
{ /* Ieee/string.scm 168 */

BgL_newzd2acczd2_2824 = 
make_string(BgL_arg2222z00_2825, ((unsigned char)' ')); } } 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_accz00_2817, 0L, BgL_newzd2acczd2_2824, 0L, BgL_mz00_2816); 
BgL_arg2221z00_2823 = BgL_newzd2acczd2_2824; } 
{ 
 obj_t BgL_accz00_8988; long BgL_mz00_8987;
BgL_mz00_8987 = BgL_arg2220z00_2822; 
BgL_accz00_8988 = BgL_arg2221z00_2823; 
BgL_accz00_2817 = BgL_accz00_8988; 
BgL_mz00_2816 = BgL_mz00_8987; 
goto BgL_zc3z04anonymousza32216ze3z87_2818;} }  else 
{ /* Ieee/input.scm 217 */
 bool_t BgL_test4825z00_8989;
{ /* Ieee/input.scm 217 */
 unsigned char BgL_char1z00_5168;
{ /* Ieee/input.scm 217 */
 obj_t BgL_tmpz00_8990;
if(
CHARP(BgL_cz00_2814))
{ /* Ieee/input.scm 217 */
BgL_tmpz00_8990 = BgL_cz00_2814
; }  else 
{ 
 obj_t BgL_auxz00_8993;
BgL_auxz00_8993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9091L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_2814); 
FAILURE(BgL_auxz00_8993,BFALSE,BFALSE);} 
BgL_char1z00_5168 = 
CCHAR(BgL_tmpz00_8990); } 
BgL_test4825z00_8989 = 
(BgL_char1z00_5168==((unsigned char)13)); } 
if(BgL_test4825z00_8989)
{ /* Ieee/input.scm 218 */
 obj_t BgL_c2z00_2829;
BgL_c2z00_2829 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26); 
{ /* Ieee/input.scm 219 */
 bool_t BgL_test4827z00_9000;
{ /* Ieee/input.scm 219 */
 unsigned char BgL_char1z00_5170;
{ /* Ieee/input.scm 219 */
 obj_t BgL_tmpz00_9001;
if(
CHARP(BgL_c2z00_2829))
{ /* Ieee/input.scm 219 */
BgL_tmpz00_9001 = BgL_c2z00_2829
; }  else 
{ 
 obj_t BgL_auxz00_9004;
BgL_auxz00_9004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9152L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_c2z00_2829); 
FAILURE(BgL_auxz00_9004,BFALSE,BFALSE);} 
BgL_char1z00_5170 = 
CCHAR(BgL_tmpz00_9001); } 
BgL_test4827z00_9000 = 
(BgL_char1z00_5170==((unsigned char)10)); } 
if(BgL_test4827z00_9000)
{ /* Ieee/input.scm 219 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_2817, 0L, BgL_wz00_2815);}  else 
{ /* Ieee/input.scm 219 */
{ /* Ieee/input.scm 222 */
 unsigned char BgL_charz00_5174;
{ /* Ieee/input.scm 222 */
 obj_t BgL_tmpz00_9011;
if(
CHARP(BgL_cz00_2814))
{ /* Ieee/input.scm 222 */
BgL_tmpz00_9011 = BgL_cz00_2814
; }  else 
{ 
 obj_t BgL_auxz00_9014;
BgL_auxz00_9014 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9229L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_2814); 
FAILURE(BgL_auxz00_9014,BFALSE,BFALSE);} 
BgL_charz00_5174 = 
CCHAR(BgL_tmpz00_9011); } 
{ /* Ieee/input.scm 222 */
 long BgL_l3515z00_6025;
BgL_l3515z00_6025 = 
STRING_LENGTH(BgL_accz00_2817); 
if(
BOUND_CHECK(BgL_wz00_2815, BgL_l3515z00_6025))
{ /* Ieee/input.scm 222 */
STRING_SET(BgL_accz00_2817, BgL_wz00_2815, BgL_charz00_5174); }  else 
{ 
 obj_t BgL_auxz00_9023;
BgL_auxz00_9023 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9210L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_2817, 
(int)(BgL_l3515z00_6025), 
(int)(BgL_wz00_2815)); 
FAILURE(BgL_auxz00_9023,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9030; obj_t BgL_cz00_9029;
BgL_cz00_9029 = BgL_c2z00_2829; 
BgL_wz00_9030 = 
(BgL_wz00_2815+1L); 
BgL_wz00_2815 = BgL_wz00_9030; 
BgL_cz00_2814 = BgL_cz00_9029; 
goto BgL_zc3z04anonymousza32216ze3z87_2818;} } } }  else 
{ /* Ieee/input.scm 224 */
 bool_t BgL_test4831z00_9032;
{ /* Ieee/input.scm 224 */
 unsigned char BgL_char1z00_5176;
{ /* Ieee/input.scm 224 */
 obj_t BgL_tmpz00_9033;
if(
CHARP(BgL_cz00_2814))
{ /* Ieee/input.scm 224 */
BgL_tmpz00_9033 = BgL_cz00_2814
; }  else 
{ 
 obj_t BgL_auxz00_9036;
BgL_auxz00_9036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9280L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_2814); 
FAILURE(BgL_auxz00_9036,BFALSE,BFALSE);} 
BgL_char1z00_5176 = 
CCHAR(BgL_tmpz00_9033); } 
BgL_test4831z00_9032 = 
(BgL_char1z00_5176==((unsigned char)10)); } 
if(BgL_test4831z00_9032)
{ /* Ieee/input.scm 224 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_2817, 0L, BgL_wz00_2815);}  else 
{ /* Ieee/input.scm 224 */
{ /* Ieee/input.scm 229 */
 unsigned char BgL_charz00_5180;
{ /* Ieee/input.scm 229 */
 obj_t BgL_tmpz00_9043;
if(
CHARP(BgL_cz00_2814))
{ /* Ieee/input.scm 229 */
BgL_tmpz00_9043 = BgL_cz00_2814
; }  else 
{ 
 obj_t BgL_auxz00_9046;
BgL_auxz00_9046 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9425L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_2814); 
FAILURE(BgL_auxz00_9046,BFALSE,BFALSE);} 
BgL_charz00_5180 = 
CCHAR(BgL_tmpz00_9043); } 
{ /* Ieee/input.scm 229 */
 long BgL_l3519z00_6029;
BgL_l3519z00_6029 = 
STRING_LENGTH(BgL_accz00_2817); 
if(
BOUND_CHECK(BgL_wz00_2815, BgL_l3519z00_6029))
{ /* Ieee/input.scm 229 */
STRING_SET(BgL_accz00_2817, BgL_wz00_2815, BgL_charz00_5180); }  else 
{ 
 obj_t BgL_auxz00_9055;
BgL_auxz00_9055 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9406L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_2817, 
(int)(BgL_l3519z00_6029), 
(int)(BgL_wz00_2815)); 
FAILURE(BgL_auxz00_9055,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9063; obj_t BgL_cz00_9061;
BgL_cz00_9061 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26); 
BgL_wz00_9063 = 
(BgL_wz00_2815+1L); 
BgL_wz00_2815 = BgL_wz00_9063; 
BgL_cz00_2814 = BgL_cz00_9061; 
goto BgL_zc3z04anonymousza32216ze3z87_2818;} } } } } } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1270z00_30)) { case 0L : 

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

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

{ /* Ieee/input.scm 235 */
 obj_t BgL_ipz00_2842;
BgL_ipz00_2842 = 
VECTOR_REF(BgL_opt1270z00_30,0L); 
{ /* Ieee/input.scm 235 */

return 
BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(BgL_ipz00_2842);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4313z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1270z00_30)));} } } } 

}



/* 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_test4835z00_9076;
{ /* Ieee/input.scm 236 */
 long BgL_arg2401z00_3168;
{ /* Ieee/input.scm 236 */
 obj_t BgL_tmpz00_9077;
if(
INPUT_PORTP(BgL_ipz00_29))
{ /* Ieee/input.scm 236 */
BgL_tmpz00_9077 = BgL_ipz00_29
; }  else 
{ 
 obj_t BgL_auxz00_9080;
BgL_auxz00_9080 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9799L), BGl_string4314z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_29); 
FAILURE(BgL_auxz00_9080,BFALSE,BFALSE);} 
BgL_arg2401z00_3168 = 
BGL_INPUT_PORT_BUFSIZ(BgL_tmpz00_9077); } 
BgL_test4835z00_9076 = 
(BgL_arg2401z00_3168>2L); } 
if(BgL_test4835z00_9076)
{ 
 obj_t BgL_iportz00_2848;
BgL_iportz00_2848 = BgL_ipz00_29; 
{ 
 obj_t BgL_iportz00_2958; long BgL_lastzd2matchzd2_2959; long BgL_forwardz00_2960; long BgL_bufposz00_2961; obj_t BgL_iportz00_2942; long BgL_lastzd2matchzd2_2943; long BgL_forwardz00_2944; long BgL_bufposz00_2945; obj_t BgL_iportz00_2927; long BgL_lastzd2matchzd2_2928; long BgL_forwardz00_2929; long BgL_bufposz00_2930; obj_t BgL_iportz00_2914; long BgL_lastzd2matchzd2_2915; long BgL_forwardz00_2916; long BgL_bufposz00_2917; obj_t BgL_iportz00_2892; long BgL_lastzd2matchzd2_2893; long BgL_forwardz00_2894; long BgL_bufposz00_2895;
{ /* Ieee/input.scm 237 */
 bool_t BgL_test4837z00_9086;
{ /* Ieee/input.scm 237 */
 obj_t BgL_arg2238z00_2891;
{ /* Ieee/input.scm 237 */
 obj_t BgL_res3501z00_5283;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_res3501z00_5283 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9089;
BgL_auxz00_9089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9089,BFALSE,BFALSE);} 
BgL_arg2238z00_2891 = BgL_res3501z00_5283; } 
BgL_test4837z00_9086 = 
INPUT_PORT_CLOSEP(BgL_arg2238z00_2891); } 
if(BgL_test4837z00_9086)
{ /* Ieee/input.scm 237 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2234z00_2885;
{ /* Ieee/input.scm 237 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_2886;
{ /* Ieee/input.scm 237 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_2889;
BgL_new1045z00_2889 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 237 */
 long BgL_arg2237z00_2890;
BgL_arg2237z00_2890 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_2889), BgL_arg2237z00_2890); } 
BgL_new1046z00_2886 = BgL_new1045z00_2889; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2886)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2886)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9102;
{ /* Ieee/input.scm 237 */
 obj_t BgL_arg2235z00_2887;
{ /* Ieee/input.scm 237 */
 obj_t BgL_arg2236z00_2888;
{ /* Ieee/input.scm 237 */
 obj_t BgL_classz00_5288;
BgL_classz00_5288 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2236z00_2888 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5288); } 
BgL_arg2235z00_2887 = 
VECTOR_REF(BgL_arg2236z00_2888,2L); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_auxz00_9106;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2235z00_2887))
{ /* Ieee/input.scm 237 */
BgL_auxz00_9106 = BgL_arg2235z00_2887
; }  else 
{ 
 obj_t BgL_auxz00_9109;
BgL_auxz00_9109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2235z00_2887); 
FAILURE(BgL_auxz00_9109,BFALSE,BFALSE);} 
BgL_auxz00_9102 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_9106); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_2886)))->BgL_stackz00)=((obj_t)BgL_auxz00_9102),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2886)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2886)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9119;
{ /* Ieee/input.scm 237 */
 obj_t BgL_res3502z00_5290;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_res3502z00_5290 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9123;
BgL_auxz00_9123 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4243z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9123,BFALSE,BFALSE);} 
BgL_auxz00_9119 = BgL_res3502z00_5290; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_2886)))->BgL_objz00)=((obj_t)BgL_auxz00_9119),BUNSPEC); } 
BgL_arg2234z00_2885 = BgL_new1046z00_2886; } 
BGL_TAIL return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2234z00_2885));}  else 
{ /* Ieee/input.scm 237 */
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5275;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5275 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9132;
BgL_auxz00_9132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9132,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_5275); } 
{ /* Ieee/input.scm 237 */
 long BgL_matchz00_3096;
{ /* Ieee/input.scm 237 */
 long BgL_arg2377z00_3099; long BgL_arg2378z00_3100;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5276;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5276 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9139;
BgL_auxz00_9139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9139,BFALSE,BFALSE);} 
BgL_arg2377z00_3099 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5276); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5277;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5277 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9146;
BgL_auxz00_9146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9146,BFALSE,BFALSE);} 
BgL_arg2378z00_3100 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5277); } 
BgL_iportz00_2927 = BgL_iportz00_2848; 
BgL_lastzd2matchzd2_2928 = 1L; 
BgL_forwardz00_2929 = BgL_arg2377z00_3099; 
BgL_bufposz00_2930 = BgL_arg2378z00_3100; 
BgL_zc3z04anonymousza32257ze3z87_2931:
if(
(BgL_forwardz00_2929==BgL_bufposz00_2930))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test4845z00_9153;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5220;
if(
INPUT_PORTP(BgL_iportz00_2927))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5220 = BgL_iportz00_2927; }  else 
{ 
 obj_t BgL_auxz00_9156;
BgL_auxz00_9156 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4317z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2927); 
FAILURE(BgL_auxz00_9156,BFALSE,BFALSE);} 
BgL_test4845z00_9153 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5220); } 
if(BgL_test4845z00_9153)
{ /* Ieee/input.scm 237 */
 long BgL_arg2260z00_2934; long BgL_arg2261z00_2935;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5221;
if(
INPUT_PORTP(BgL_iportz00_2927))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5221 = BgL_iportz00_2927; }  else 
{ 
 obj_t BgL_auxz00_9163;
BgL_auxz00_9163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4317z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2927); 
FAILURE(BgL_auxz00_9163,BFALSE,BFALSE);} 
BgL_arg2260z00_2934 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5221); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5222;
if(
INPUT_PORTP(BgL_iportz00_2927))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5222 = BgL_iportz00_2927; }  else 
{ 
 obj_t BgL_auxz00_9170;
BgL_auxz00_9170 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4317z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2927); 
FAILURE(BgL_auxz00_9170,BFALSE,BFALSE);} 
BgL_arg2261z00_2935 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5222); } 
{ 
 long BgL_bufposz00_9176; long BgL_forwardz00_9175;
BgL_forwardz00_9175 = BgL_arg2260z00_2934; 
BgL_bufposz00_9176 = BgL_arg2261z00_2935; 
BgL_bufposz00_2930 = BgL_bufposz00_9176; 
BgL_forwardz00_2929 = BgL_forwardz00_9175; 
goto BgL_zc3z04anonymousza32257ze3z87_2931;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_lastzd2matchzd2_2928; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2936;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5223;
if(
INPUT_PORTP(BgL_iportz00_2927))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5223 = BgL_iportz00_2927; }  else 
{ 
 obj_t BgL_auxz00_9179;
BgL_auxz00_9179 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4317z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2927); 
FAILURE(BgL_auxz00_9179,BFALSE,BFALSE);} 
BgL_curz00_2936 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5223, BgL_forwardz00_2929); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2936)==13L))
{ /* Ieee/input.scm 237 */
BgL_iportz00_2914 = BgL_iportz00_2927; 
BgL_lastzd2matchzd2_2915 = BgL_lastzd2matchzd2_2928; 
BgL_forwardz00_2916 = 
(1L+BgL_forwardz00_2929); 
BgL_bufposz00_2917 = BgL_bufposz00_2930; 
BgL_zc3z04anonymousza32250ze3z87_2918:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2919;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5204;
if(
INPUT_PORTP(BgL_iportz00_2914))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5204 = BgL_iportz00_2914; }  else 
{ 
 obj_t BgL_auxz00_9189;
BgL_auxz00_9189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4316z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2914); 
FAILURE(BgL_auxz00_9189,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5204, BgL_forwardz00_2916); } 
BgL_newzd2matchzd2_2919 = 0L; 
if(
(BgL_forwardz00_2916==BgL_bufposz00_2917))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test4853z00_9196;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5208;
if(
INPUT_PORTP(BgL_iportz00_2914))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5208 = BgL_iportz00_2914; }  else 
{ 
 obj_t BgL_auxz00_9199;
BgL_auxz00_9199 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4316z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2914); 
FAILURE(BgL_auxz00_9199,BFALSE,BFALSE);} 
BgL_test4853z00_9196 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5208); } 
if(BgL_test4853z00_9196)
{ /* Ieee/input.scm 237 */
 long BgL_arg2253z00_2922; long BgL_arg2254z00_2923;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5209;
if(
INPUT_PORTP(BgL_iportz00_2914))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5209 = BgL_iportz00_2914; }  else 
{ 
 obj_t BgL_auxz00_9206;
BgL_auxz00_9206 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4316z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2914); 
FAILURE(BgL_auxz00_9206,BFALSE,BFALSE);} 
BgL_arg2253z00_2922 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5209); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5210;
if(
INPUT_PORTP(BgL_iportz00_2914))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5210 = BgL_iportz00_2914; }  else 
{ 
 obj_t BgL_auxz00_9213;
BgL_auxz00_9213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4316z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2914); 
FAILURE(BgL_auxz00_9213,BFALSE,BFALSE);} 
BgL_arg2254z00_2923 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5210); } 
{ 
 long BgL_bufposz00_9219; long BgL_forwardz00_9218;
BgL_forwardz00_9218 = BgL_arg2253z00_2922; 
BgL_bufposz00_9219 = BgL_arg2254z00_2923; 
BgL_bufposz00_2917 = BgL_bufposz00_9219; 
BgL_forwardz00_2916 = BgL_forwardz00_9218; 
goto BgL_zc3z04anonymousza32250ze3z87_2918;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_newzd2matchzd2_2919; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2924;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5211;
if(
INPUT_PORTP(BgL_iportz00_2914))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5211 = BgL_iportz00_2914; }  else 
{ 
 obj_t BgL_auxz00_9222;
BgL_auxz00_9222 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4316z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2914); 
FAILURE(BgL_auxz00_9222,BFALSE,BFALSE);} 
BgL_curz00_2924 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5211, BgL_forwardz00_2916); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2924)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2256z00_2926;
BgL_arg2256z00_2926 = 
(1L+BgL_forwardz00_2916); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5215;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5216;
if(
INPUT_PORTP(BgL_iportz00_2914))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5216 = BgL_iportz00_2914; }  else 
{ 
 obj_t BgL_auxz00_9233;
BgL_auxz00_9233 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4316z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2914); 
FAILURE(BgL_auxz00_9233,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5216, BgL_arg2256z00_2926); } 
BgL_newzd2matchzd2_5215 = 0L; 
BgL_matchz00_3096 = BgL_newzd2matchzd2_5215; } }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_newzd2matchzd2_2919; } } } } }  else 
{ /* Ieee/input.scm 237 */
if(
(
(long)(BgL_curz00_2936)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2265z00_2940;
BgL_arg2265z00_2940 = 
(1L+BgL_forwardz00_2929); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5229;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5230;
if(
INPUT_PORTP(BgL_iportz00_2927))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5230 = BgL_iportz00_2927; }  else 
{ 
 obj_t BgL_auxz00_9245;
BgL_auxz00_9245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4317z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2927); 
FAILURE(BgL_auxz00_9245,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5230, BgL_arg2265z00_2940); } 
BgL_newzd2matchzd2_5229 = 0L; 
BgL_matchz00_3096 = BgL_newzd2matchzd2_5229; } }  else 
{ /* Ieee/input.scm 237 */
BgL_iportz00_2942 = BgL_iportz00_2927; 
BgL_lastzd2matchzd2_2943 = BgL_lastzd2matchzd2_2928; 
BgL_forwardz00_2944 = 
(1L+BgL_forwardz00_2929); 
BgL_bufposz00_2945 = BgL_bufposz00_2930; 
BgL_zc3z04anonymousza32267ze3z87_2946:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2947;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5233;
if(
INPUT_PORTP(BgL_iportz00_2942))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5233 = BgL_iportz00_2942; }  else 
{ 
 obj_t BgL_auxz00_9252;
BgL_auxz00_9252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4318z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2942); 
FAILURE(BgL_auxz00_9252,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5233, BgL_forwardz00_2944); } 
BgL_newzd2matchzd2_2947 = 0L; 
if(
(BgL_forwardz00_2944==BgL_bufposz00_2945))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test4864z00_9259;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5237;
if(
INPUT_PORTP(BgL_iportz00_2942))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5237 = BgL_iportz00_2942; }  else 
{ 
 obj_t BgL_auxz00_9262;
BgL_auxz00_9262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4318z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2942); 
FAILURE(BgL_auxz00_9262,BFALSE,BFALSE);} 
BgL_test4864z00_9259 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5237); } 
if(BgL_test4864z00_9259)
{ /* Ieee/input.scm 237 */
 long BgL_arg2270z00_2950; long BgL_arg2271z00_2951;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5238;
if(
INPUT_PORTP(BgL_iportz00_2942))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5238 = BgL_iportz00_2942; }  else 
{ 
 obj_t BgL_auxz00_9269;
BgL_auxz00_9269 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4318z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2942); 
FAILURE(BgL_auxz00_9269,BFALSE,BFALSE);} 
BgL_arg2270z00_2950 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5238); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5239;
if(
INPUT_PORTP(BgL_iportz00_2942))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5239 = BgL_iportz00_2942; }  else 
{ 
 obj_t BgL_auxz00_9276;
BgL_auxz00_9276 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4318z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2942); 
FAILURE(BgL_auxz00_9276,BFALSE,BFALSE);} 
BgL_arg2271z00_2951 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5239); } 
{ 
 long BgL_bufposz00_9282; long BgL_forwardz00_9281;
BgL_forwardz00_9281 = BgL_arg2270z00_2950; 
BgL_bufposz00_9282 = BgL_arg2271z00_2951; 
BgL_bufposz00_2945 = BgL_bufposz00_9282; 
BgL_forwardz00_2944 = BgL_forwardz00_9281; 
goto BgL_zc3z04anonymousza32267ze3z87_2946;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_newzd2matchzd2_2947; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2952;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5240;
if(
INPUT_PORTP(BgL_iportz00_2942))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5240 = BgL_iportz00_2942; }  else 
{ 
 obj_t BgL_auxz00_9285;
BgL_auxz00_9285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4318z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2942); 
FAILURE(BgL_auxz00_9285,BFALSE,BFALSE);} 
BgL_curz00_2952 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5240, BgL_forwardz00_2944); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2952)==13L))
{ /* Ieee/input.scm 237 */
BgL_iportz00_2958 = BgL_iportz00_2942; 
BgL_lastzd2matchzd2_2959 = BgL_newzd2matchzd2_2947; 
BgL_forwardz00_2960 = 
(1L+BgL_forwardz00_2944); 
BgL_bufposz00_2961 = BgL_bufposz00_2945; 
BgL_zc3z04anonymousza32277ze3z87_2962:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2963;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5250;
if(
INPUT_PORTP(BgL_iportz00_2958))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5250 = BgL_iportz00_2958; }  else 
{ 
 obj_t BgL_auxz00_9295;
BgL_auxz00_9295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4319z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2958); 
FAILURE(BgL_auxz00_9295,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5250, BgL_forwardz00_2960); } 
BgL_newzd2matchzd2_2963 = 0L; 
if(
(BgL_forwardz00_2960==BgL_bufposz00_2961))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test4872z00_9302;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5254;
if(
INPUT_PORTP(BgL_iportz00_2958))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5254 = BgL_iportz00_2958; }  else 
{ 
 obj_t BgL_auxz00_9305;
BgL_auxz00_9305 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4319z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2958); 
FAILURE(BgL_auxz00_9305,BFALSE,BFALSE);} 
BgL_test4872z00_9302 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5254); } 
if(BgL_test4872z00_9302)
{ /* Ieee/input.scm 237 */
 long BgL_arg2280z00_2966; long BgL_arg2281z00_2967;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5255;
if(
INPUT_PORTP(BgL_iportz00_2958))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5255 = BgL_iportz00_2958; }  else 
{ 
 obj_t BgL_auxz00_9312;
BgL_auxz00_9312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4319z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2958); 
FAILURE(BgL_auxz00_9312,BFALSE,BFALSE);} 
BgL_arg2280z00_2966 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5255); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5256;
if(
INPUT_PORTP(BgL_iportz00_2958))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5256 = BgL_iportz00_2958; }  else 
{ 
 obj_t BgL_auxz00_9319;
BgL_auxz00_9319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4319z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2958); 
FAILURE(BgL_auxz00_9319,BFALSE,BFALSE);} 
BgL_arg2281z00_2967 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5256); } 
{ 
 long BgL_bufposz00_9325; long BgL_forwardz00_9324;
BgL_forwardz00_9324 = BgL_arg2280z00_2966; 
BgL_bufposz00_9325 = BgL_arg2281z00_2967; 
BgL_bufposz00_2961 = BgL_bufposz00_9325; 
BgL_forwardz00_2960 = BgL_forwardz00_9324; 
goto BgL_zc3z04anonymousza32277ze3z87_2962;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_newzd2matchzd2_2963; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2968;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5257;
if(
INPUT_PORTP(BgL_iportz00_2958))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5257 = BgL_iportz00_2958; }  else 
{ 
 obj_t BgL_auxz00_9328;
BgL_auxz00_9328 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4319z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2958); 
FAILURE(BgL_auxz00_9328,BFALSE,BFALSE);} 
BgL_curz00_2968 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5257, BgL_forwardz00_2960); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2968)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2283z00_2970;
BgL_arg2283z00_2970 = 
(1L+BgL_forwardz00_2960); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5261;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5262;
if(
INPUT_PORTP(BgL_iportz00_2958))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5262 = BgL_iportz00_2958; }  else 
{ 
 obj_t BgL_auxz00_9339;
BgL_auxz00_9339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4319z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2958); 
FAILURE(BgL_auxz00_9339,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5262, BgL_arg2283z00_2970); } 
BgL_newzd2matchzd2_5261 = 0L; 
BgL_matchz00_3096 = BgL_newzd2matchzd2_5261; } }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_newzd2matchzd2_2963; } } } } }  else 
{ /* Ieee/input.scm 237 */
if(
(
(long)(BgL_curz00_2952)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2275z00_2956;
BgL_arg2275z00_2956 = 
(1L+BgL_forwardz00_2944); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5246;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5247;
if(
INPUT_PORTP(BgL_iportz00_2942))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5247 = BgL_iportz00_2942; }  else 
{ 
 obj_t BgL_auxz00_9351;
BgL_auxz00_9351 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4318z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2942); 
FAILURE(BgL_auxz00_9351,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5247, BgL_arg2275z00_2956); } 
BgL_newzd2matchzd2_5246 = 0L; 
BgL_matchz00_3096 = BgL_newzd2matchzd2_5246; } }  else 
{ /* Ieee/input.scm 237 */
BgL_iportz00_2892 = BgL_iportz00_2942; 
BgL_lastzd2matchzd2_2893 = BgL_newzd2matchzd2_2947; 
BgL_forwardz00_2894 = 
(1L+BgL_forwardz00_2944); 
BgL_bufposz00_2895 = BgL_bufposz00_2945; 
BgL_zc3z04anonymousza32239ze3z87_2896:
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_2897;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5184;
if(
INPUT_PORTP(BgL_iportz00_2892))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5184 = BgL_iportz00_2892; }  else 
{ 
 obj_t BgL_auxz00_9358;
BgL_auxz00_9358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4315z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2892); 
FAILURE(BgL_auxz00_9358,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5184, BgL_forwardz00_2894); } 
BgL_newzd2matchzd2_2897 = 0L; 
if(
(BgL_forwardz00_2894==BgL_bufposz00_2895))
{ /* Ieee/input.scm 237 */
 bool_t BgL_test4883z00_9365;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5188;
if(
INPUT_PORTP(BgL_iportz00_2892))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5188 = BgL_iportz00_2892; }  else 
{ 
 obj_t BgL_auxz00_9368;
BgL_auxz00_9368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4315z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2892); 
FAILURE(BgL_auxz00_9368,BFALSE,BFALSE);} 
BgL_test4883z00_9365 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5188); } 
if(BgL_test4883z00_9365)
{ /* Ieee/input.scm 237 */
 long BgL_arg2242z00_2900; long BgL_arg2243z00_2901;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5189;
if(
INPUT_PORTP(BgL_iportz00_2892))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5189 = BgL_iportz00_2892; }  else 
{ 
 obj_t BgL_auxz00_9375;
BgL_auxz00_9375 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4315z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2892); 
FAILURE(BgL_auxz00_9375,BFALSE,BFALSE);} 
BgL_arg2242z00_2900 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5189); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5190;
if(
INPUT_PORTP(BgL_iportz00_2892))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5190 = BgL_iportz00_2892; }  else 
{ 
 obj_t BgL_auxz00_9382;
BgL_auxz00_9382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4315z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2892); 
FAILURE(BgL_auxz00_9382,BFALSE,BFALSE);} 
BgL_arg2243z00_2901 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5190); } 
{ 
 long BgL_bufposz00_9388; long BgL_forwardz00_9387;
BgL_forwardz00_9387 = BgL_arg2242z00_2900; 
BgL_bufposz00_9388 = BgL_arg2243z00_2901; 
BgL_bufposz00_2895 = BgL_bufposz00_9388; 
BgL_forwardz00_2894 = BgL_forwardz00_9387; 
goto BgL_zc3z04anonymousza32239ze3z87_2896;} }  else 
{ /* Ieee/input.scm 237 */
BgL_matchz00_3096 = BgL_newzd2matchzd2_2897; } }  else 
{ /* Ieee/input.scm 237 */
 int BgL_curz00_2902;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5191;
if(
INPUT_PORTP(BgL_iportz00_2892))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5191 = BgL_iportz00_2892; }  else 
{ 
 obj_t BgL_auxz00_9391;
BgL_auxz00_9391 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4315z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2892); 
FAILURE(BgL_auxz00_9391,BFALSE,BFALSE);} 
BgL_curz00_2902 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5191, BgL_forwardz00_2894); } 
{ /* Ieee/input.scm 237 */

if(
(
(long)(BgL_curz00_2902)==13L))
{ 
 long BgL_bufposz00_9403; long BgL_forwardz00_9401; long BgL_lastzd2matchzd2_9400; obj_t BgL_iportz00_9399;
BgL_iportz00_9399 = BgL_iportz00_2892; 
BgL_lastzd2matchzd2_9400 = BgL_newzd2matchzd2_2897; 
BgL_forwardz00_9401 = 
(1L+BgL_forwardz00_2894); 
BgL_bufposz00_9403 = BgL_bufposz00_2895; 
BgL_bufposz00_2961 = BgL_bufposz00_9403; 
BgL_forwardz00_2960 = BgL_forwardz00_9401; 
BgL_lastzd2matchzd2_2959 = BgL_lastzd2matchzd2_9400; 
BgL_iportz00_2958 = BgL_iportz00_9399; 
goto BgL_zc3z04anonymousza32277ze3z87_2962;}  else 
{ /* Ieee/input.scm 237 */
if(
(
(long)(BgL_curz00_2902)==10L))
{ /* Ieee/input.scm 237 */
 long BgL_arg2247z00_2906;
BgL_arg2247z00_2906 = 
(1L+BgL_forwardz00_2894); 
{ /* Ieee/input.scm 237 */
 long BgL_newzd2matchzd2_5197;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5198;
if(
INPUT_PORTP(BgL_iportz00_2892))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5198 = BgL_iportz00_2892; }  else 
{ 
 obj_t BgL_auxz00_9410;
BgL_auxz00_9410 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4315z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2892); 
FAILURE(BgL_auxz00_9410,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5198, BgL_arg2247z00_2906); } 
BgL_newzd2matchzd2_5197 = 0L; 
BgL_matchz00_3096 = BgL_newzd2matchzd2_5197; } }  else 
{ 
 long BgL_forwardz00_9416; long BgL_lastzd2matchzd2_9415;
BgL_lastzd2matchzd2_9415 = BgL_newzd2matchzd2_2897; 
BgL_forwardz00_9416 = 
(1L+BgL_forwardz00_2894); 
BgL_forwardz00_2894 = BgL_forwardz00_9416; 
BgL_lastzd2matchzd2_2893 = BgL_lastzd2matchzd2_9415; 
goto BgL_zc3z04anonymousza32239ze3z87_2896;} } } } } } } } } } } } } } } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5278;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5278 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9422;
BgL_auxz00_9422 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9422,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5278); } 
switch( BgL_matchz00_3096) { case 1L : 

{ /* Ieee/input.scm 237 */
 bool_t BgL_test4892z00_9427;
{ /* Ieee/input.scm 237 */
 long BgL_arg2369z00_3086;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5272;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5272 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9430;
BgL_auxz00_9430 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9430,BFALSE,BFALSE);} 
BgL_arg2369z00_3086 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5272); } 
BgL_test4892z00_9427 = 
(BgL_arg2369z00_3086==0L); } 
if(BgL_test4892z00_9427)
{ /* Ieee/input.scm 237 */
return BEOF;}  else 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5274;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5274 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9438;
BgL_auxz00_9438 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4221z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9438,BFALSE,BFALSE);} 
return 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_5274));} } break;case 0L : 

{ /* Ieee/input.scm 237 */
 long BgL_arg2291z00_5279;
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5280;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5280 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9446;
BgL_auxz00_9446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9446,BFALSE,BFALSE);} 
BgL_arg2291z00_5279 = 
RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_5280); } 
{ /* Ieee/input.scm 237 */
 obj_t BgL_inputzd2portzd2_5281;
if(
INPUT_PORTP(BgL_iportz00_2848))
{ /* Ieee/input.scm 237 */
BgL_inputzd2portzd2_5281 = BgL_iportz00_2848; }  else 
{ 
 obj_t BgL_auxz00_9453;
BgL_auxz00_9453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(9828L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_2848); 
FAILURE(BgL_auxz00_9453,BFALSE,BFALSE);} 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_5281, 0L, BgL_arg2291z00_5279);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_3096));} } } } } }  else 
{ /* Ieee/input.scm 249 */
 obj_t BgL_g1093z00_3136; obj_t BgL_g1094z00_3137;
BgL_g1093z00_3136 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29); 
{ /* Ieee/string.scm 168 */

BgL_g1094z00_3137 = 
make_string(100L, ((unsigned char)' ')); } 
{ 
 obj_t BgL_cz00_3139; long BgL_wz00_3140; long BgL_mz00_3141; obj_t BgL_accz00_3142;
BgL_cz00_3139 = BgL_g1093z00_3136; 
BgL_wz00_3140 = 0L; 
BgL_mz00_3141 = 100L; 
BgL_accz00_3142 = BgL_g1094z00_3137; 
BgL_zc3z04anonymousza32379ze3z87_3143:
if(
EOF_OBJECTP(BgL_cz00_3139))
{ /* Ieee/input.scm 254 */
if(
(BgL_wz00_3140==0L))
{ /* Ieee/input.scm 256 */
return BgL_cz00_3139;}  else 
{ /* Ieee/input.scm 256 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_3142, 0L, BgL_wz00_3140);} }  else 
{ /* Ieee/input.scm 254 */
if(
(BgL_wz00_3140==
(BgL_mz00_3141-2L)))
{ /* Ieee/input.scm 261 */
 long BgL_arg2384z00_3148; obj_t BgL_arg2385z00_3149;
BgL_arg2384z00_3148 = 
(BgL_mz00_3141*2L); 
{ /* Ieee/input.scm 262 */
 obj_t BgL_newzd2acczd2_3150;
{ /* Ieee/input.scm 262 */
 long BgL_arg2387z00_3151;
BgL_arg2387z00_3151 = 
(BgL_mz00_3141*2L); 
{ /* Ieee/string.scm 168 */

BgL_newzd2acczd2_3150 = 
make_string(BgL_arg2387z00_3151, ((unsigned char)' ')); } } 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_accz00_3142, 0L, BgL_newzd2acczd2_3150, 0L, BgL_mz00_3141); 
BgL_arg2385z00_3149 = BgL_newzd2acczd2_3150; } 
{ 
 obj_t BgL_accz00_9476; long BgL_mz00_9475;
BgL_mz00_9475 = BgL_arg2384z00_3148; 
BgL_accz00_9476 = BgL_arg2385z00_3149; 
BgL_accz00_3142 = BgL_accz00_9476; 
BgL_mz00_3141 = BgL_mz00_9475; 
goto BgL_zc3z04anonymousza32379ze3z87_3143;} }  else 
{ /* Ieee/input.scm 265 */
 bool_t BgL_test4900z00_9477;
{ /* Ieee/input.scm 265 */
 unsigned char BgL_char1z00_5299;
{ /* Ieee/input.scm 265 */
 obj_t BgL_tmpz00_9478;
if(
CHARP(BgL_cz00_3139))
{ /* Ieee/input.scm 265 */
BgL_tmpz00_9478 = BgL_cz00_3139
; }  else 
{ 
 obj_t BgL_auxz00_9481;
BgL_auxz00_9481 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10651L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_3139); 
FAILURE(BgL_auxz00_9481,BFALSE,BFALSE);} 
BgL_char1z00_5299 = 
CCHAR(BgL_tmpz00_9478); } 
BgL_test4900z00_9477 = 
(BgL_char1z00_5299==((unsigned char)13)); } 
if(BgL_test4900z00_9477)
{ /* Ieee/input.scm 266 */
 obj_t BgL_c2z00_3155;
BgL_c2z00_3155 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29); 
{ /* Ieee/input.scm 267 */
 bool_t BgL_test4902z00_9488;
{ /* Ieee/input.scm 267 */
 unsigned char BgL_char1z00_5301;
{ /* Ieee/input.scm 267 */
 obj_t BgL_tmpz00_9489;
if(
CHARP(BgL_c2z00_3155))
{ /* Ieee/input.scm 267 */
BgL_tmpz00_9489 = BgL_c2z00_3155
; }  else 
{ 
 obj_t BgL_auxz00_9492;
BgL_auxz00_9492 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10712L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_c2z00_3155); 
FAILURE(BgL_auxz00_9492,BFALSE,BFALSE);} 
BgL_char1z00_5301 = 
CCHAR(BgL_tmpz00_9489); } 
BgL_test4902z00_9488 = 
(BgL_char1z00_5301==((unsigned char)10)); } 
if(BgL_test4902z00_9488)
{ /* Ieee/input.scm 267 */
{ /* Ieee/input.scm 269 */
 long BgL_l3523z00_6033;
BgL_l3523z00_6033 = 
STRING_LENGTH(BgL_accz00_3142); 
if(
BOUND_CHECK(BgL_wz00_3140, BgL_l3523z00_6033))
{ /* Ieee/input.scm 269 */
STRING_SET(BgL_accz00_3142, BgL_wz00_3140, ((unsigned char)13)); }  else 
{ 
 obj_t BgL_auxz00_9502;
BgL_auxz00_9502 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10743L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_3142, 
(int)(BgL_l3523z00_6033), 
(int)(BgL_wz00_3140)); 
FAILURE(BgL_auxz00_9502,BFALSE,BFALSE);} } 
{ /* Ieee/input.scm 270 */
 long BgL_arg2391z00_3157;
BgL_arg2391z00_3157 = 
(1L+BgL_wz00_3140); 
{ /* Ieee/input.scm 270 */
 long BgL_l3527z00_6037;
BgL_l3527z00_6037 = 
STRING_LENGTH(BgL_accz00_3142); 
if(
BOUND_CHECK(BgL_arg2391z00_3157, BgL_l3527z00_6037))
{ /* Ieee/input.scm 270 */
STRING_SET(BgL_accz00_3142, BgL_arg2391z00_3157, ((unsigned char)10)); }  else 
{ 
 obj_t BgL_auxz00_9513;
BgL_auxz00_9513 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10775L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_3142, 
(int)(BgL_l3527z00_6037), 
(int)(BgL_arg2391z00_3157)); 
FAILURE(BgL_auxz00_9513,BFALSE,BFALSE);} } } 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_3142, 0L, 
(BgL_wz00_3140+2L));}  else 
{ /* Ieee/input.scm 267 */
{ /* Ieee/input.scm 273 */
 unsigned char BgL_charz00_5313;
{ /* Ieee/input.scm 273 */
 obj_t BgL_tmpz00_9521;
if(
CHARP(BgL_cz00_3139))
{ /* Ieee/input.scm 273 */
BgL_tmpz00_9521 = BgL_cz00_3139
; }  else 
{ 
 obj_t BgL_auxz00_9524;
BgL_auxz00_9524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10881L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_3139); 
FAILURE(BgL_auxz00_9524,BFALSE,BFALSE);} 
BgL_charz00_5313 = 
CCHAR(BgL_tmpz00_9521); } 
{ /* Ieee/input.scm 273 */
 long BgL_l3531z00_6041;
BgL_l3531z00_6041 = 
STRING_LENGTH(BgL_accz00_3142); 
if(
BOUND_CHECK(BgL_wz00_3140, BgL_l3531z00_6041))
{ /* Ieee/input.scm 273 */
STRING_SET(BgL_accz00_3142, BgL_wz00_3140, BgL_charz00_5313); }  else 
{ 
 obj_t BgL_auxz00_9533;
BgL_auxz00_9533 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10862L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_3142, 
(int)(BgL_l3531z00_6041), 
(int)(BgL_wz00_3140)); 
FAILURE(BgL_auxz00_9533,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9540; obj_t BgL_cz00_9539;
BgL_cz00_9539 = BgL_c2z00_3155; 
BgL_wz00_9540 = 
(BgL_wz00_3140+1L); 
BgL_wz00_3140 = BgL_wz00_9540; 
BgL_cz00_3139 = BgL_cz00_9539; 
goto BgL_zc3z04anonymousza32379ze3z87_3143;} } } }  else 
{ /* Ieee/input.scm 275 */
 bool_t BgL_test4908z00_9542;
{ /* Ieee/input.scm 275 */
 unsigned char BgL_char1z00_5315;
{ /* Ieee/input.scm 275 */
 obj_t BgL_tmpz00_9543;
if(
CHARP(BgL_cz00_3139))
{ /* Ieee/input.scm 275 */
BgL_tmpz00_9543 = BgL_cz00_3139
; }  else 
{ 
 obj_t BgL_auxz00_9546;
BgL_auxz00_9546 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10932L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_3139); 
FAILURE(BgL_auxz00_9546,BFALSE,BFALSE);} 
BgL_char1z00_5315 = 
CCHAR(BgL_tmpz00_9543); } 
BgL_test4908z00_9542 = 
(BgL_char1z00_5315==((unsigned char)10)); } 
if(BgL_test4908z00_9542)
{ /* Ieee/input.scm 275 */
{ /* Ieee/input.scm 277 */
 long BgL_l3535z00_6045;
BgL_l3535z00_6045 = 
STRING_LENGTH(BgL_accz00_3142); 
if(
BOUND_CHECK(BgL_wz00_3140, BgL_l3535z00_6045))
{ /* Ieee/input.scm 277 */
STRING_SET(BgL_accz00_3142, BgL_wz00_3140, ((unsigned char)10)); }  else 
{ 
 obj_t BgL_auxz00_9556;
BgL_auxz00_9556 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(10991L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_3142, 
(int)(BgL_l3535z00_6045), 
(int)(BgL_wz00_3140)); 
FAILURE(BgL_auxz00_9556,BFALSE,BFALSE);} } 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_accz00_3142, 0L, 
(BgL_wz00_3140+1L));}  else 
{ /* Ieee/input.scm 275 */
{ /* Ieee/input.scm 281 */
 unsigned char BgL_charz00_5323;
{ /* Ieee/input.scm 281 */
 obj_t BgL_tmpz00_9564;
if(
CHARP(BgL_cz00_3139))
{ /* Ieee/input.scm 281 */
BgL_tmpz00_9564 = BgL_cz00_3139
; }  else 
{ 
 obj_t BgL_auxz00_9567;
BgL_auxz00_9567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11121L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_cz00_3139); 
FAILURE(BgL_auxz00_9567,BFALSE,BFALSE);} 
BgL_charz00_5323 = 
CCHAR(BgL_tmpz00_9564); } 
{ /* Ieee/input.scm 281 */
 long BgL_l3539z00_6049;
BgL_l3539z00_6049 = 
STRING_LENGTH(BgL_accz00_3142); 
if(
BOUND_CHECK(BgL_wz00_3140, BgL_l3539z00_6049))
{ /* Ieee/input.scm 281 */
STRING_SET(BgL_accz00_3142, BgL_wz00_3140, BgL_charz00_5323); }  else 
{ 
 obj_t BgL_auxz00_9576;
BgL_auxz00_9576 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11102L), BGl_string4312z00zz__r4_input_6_10_2z00, BgL_accz00_3142, 
(int)(BgL_l3539z00_6049), 
(int)(BgL_wz00_3140)); 
FAILURE(BgL_auxz00_9576,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_9584; obj_t BgL_cz00_9582;
BgL_cz00_9582 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29); 
BgL_wz00_9584 = 
(BgL_wz00_3140+1L); 
BgL_wz00_3140 = BgL_wz00_9584; 
BgL_cz00_3139 = BgL_cz00_9582; 
goto BgL_zc3z04anonymousza32379ze3z87_3143;} } } } } } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1274z00_33)) { case 0L : 

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

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

{ /* Ieee/input.scm 287 */
 obj_t BgL_ipz00_3172;
BgL_ipz00_3172 = 
VECTOR_REF(BgL_opt1274z00_33,0L); 
{ /* Ieee/input.scm 287 */

return 
BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_ipz00_3172);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4320z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1274z00_33)));} } } } 

}



/* 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_3174;
BgL_g1096z00_3174 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32); 
{ 
 obj_t BgL_lz00_5333; obj_t BgL_lsz00_5334;
BgL_lz00_5333 = BgL_g1096z00_3174; 
BgL_lsz00_5334 = BNIL; 
BgL_loopz00_5332:
if(
EOF_OBJECTP(BgL_lz00_5333))
{ /* Ieee/input.scm 290 */
return 
bgl_reverse_bang(BgL_lsz00_5334);}  else 
{ /* Ieee/input.scm 292 */
 obj_t BgL_arg2405z00_5339; obj_t BgL_arg2407z00_5340;
BgL_arg2405z00_5339 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32); 
BgL_arg2407z00_5340 = 
MAKE_YOUNG_PAIR(BgL_lz00_5333, BgL_lsz00_5334); 
{ 
 obj_t BgL_lsz00_9604; obj_t BgL_lz00_9603;
BgL_lz00_9603 = BgL_arg2405z00_5339; 
BgL_lsz00_9604 = BgL_arg2407z00_5340; 
BgL_lsz00_5334 = BgL_lsz00_9604; 
BgL_lz00_5333 = BgL_lz00_9603; 
goto BgL_loopz00_5332;} } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1278z00_36)) { case 0L : 

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

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

{ /* Ieee/input.scm 297 */
 obj_t BgL_ipz00_3187;
BgL_ipz00_3187 = 
VECTOR_REF(BgL_opt1278z00_36,0L); 
{ /* Ieee/input.scm 297 */

return 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3187);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4322z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1278z00_36)));} } } } 

}



/* 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_3252; long BgL_lastzd2matchzd2_3253; long BgL_forwardz00_3254; long BgL_bufposz00_3255; obj_t BgL_iportz00_3240; long BgL_lastzd2matchzd2_3241; long BgL_forwardz00_3242; long BgL_bufposz00_3243;
{ /* Ieee/input.scm 298 */
 bool_t BgL_test4914z00_9616;
{ /* Ieee/input.scm 298 */
 obj_t BgL_arg2415z00_3228;
{ /* Ieee/input.scm 298 */
 obj_t BgL_res3503z00_5400;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_res3503z00_5400 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9619;
BgL_auxz00_9619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4323z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9619,BFALSE,BFALSE);} 
BgL_arg2415z00_3228 = BgL_res3503z00_5400; } 
BgL_test4914z00_9616 = 
INPUT_PORT_CLOSEP(BgL_arg2415z00_3228); } 
if(BgL_test4914z00_9616)
{ /* Ieee/input.scm 298 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2410z00_3222;
{ /* Ieee/input.scm 298 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_3223;
{ /* Ieee/input.scm 298 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_3226;
BgL_new1045z00_3226 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 298 */
 long BgL_arg2414z00_3227;
BgL_arg2414z00_3227 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_3226), BgL_arg2414z00_3227); } 
BgL_new1046z00_3223 = BgL_new1045z00_3226; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_3223)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_3223)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9632;
{ /* Ieee/input.scm 298 */
 obj_t BgL_arg2411z00_3224;
{ /* Ieee/input.scm 298 */
 obj_t BgL_arg2412z00_3225;
{ /* Ieee/input.scm 298 */
 obj_t BgL_classz00_5405;
BgL_classz00_5405 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2412z00_3225 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5405); } 
BgL_arg2411z00_3224 = 
VECTOR_REF(BgL_arg2412z00_3225,2L); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_auxz00_9636;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2411z00_3224))
{ /* Ieee/input.scm 298 */
BgL_auxz00_9636 = BgL_arg2411z00_3224
; }  else 
{ 
 obj_t BgL_auxz00_9639;
BgL_auxz00_9639 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4323z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2411z00_3224); 
FAILURE(BgL_auxz00_9639,BFALSE,BFALSE);} 
BgL_auxz00_9632 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_9636); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_3223)))->BgL_stackz00)=((obj_t)BgL_auxz00_9632),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_3223)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_3223)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9649;
{ /* Ieee/input.scm 298 */
 obj_t BgL_res3504z00_5407;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_res3504z00_5407 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9653;
BgL_auxz00_9653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4323z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9653,BFALSE,BFALSE);} 
BgL_auxz00_9649 = BgL_res3504z00_5407; } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_3223)))->BgL_objz00)=((obj_t)BgL_auxz00_9649),BUNSPEC); } 
BgL_arg2410z00_3222 = BgL_new1046z00_3223; } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_aux4048z00_6564;
BgL_aux4048z00_6564 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2410z00_3222)); 
if(
STRINGP(BgL_aux4048z00_6564))
{ /* Ieee/input.scm 298 */
return BgL_aux4048z00_6564;}  else 
{ 
 obj_t BgL_auxz00_9662;
BgL_auxz00_9662 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4323z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_aux4048z00_6564); 
FAILURE(BgL_auxz00_9662,BFALSE,BFALSE);} } }  else 
{ /* Ieee/input.scm 298 */
 obj_t BgL_aux4050z00_6566;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5375;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5375 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9668;
BgL_auxz00_9668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9668,BFALSE,BFALSE);} 
RGC_START_MATCH(BgL_inputzd2portzd2_5375); } 
{ /* Ieee/input.scm 298 */
 long BgL_matchz00_3383;
{ /* Ieee/input.scm 298 */
 long BgL_arg2538z00_3388; long BgL_arg2539z00_3389;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5376;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5376 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9675;
BgL_auxz00_9675 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9675,BFALSE,BFALSE);} 
BgL_arg2538z00_3388 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5376); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5377;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5377 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9682;
BgL_auxz00_9682 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9682,BFALSE,BFALSE);} 
BgL_arg2539z00_3389 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5377); } 
{ 
 long BgL_forwardz00_5379; long BgL_bufposz00_5380;
BgL_forwardz00_5379 = BgL_arg2538z00_3388; 
BgL_bufposz00_5380 = BgL_arg2539z00_3389; 
BgL_statezd20zd21099z00_5378:
if(
(BgL_forwardz00_5379==BgL_bufposz00_5380))
{ /* Ieee/input.scm 298 */
 bool_t BgL_test4923z00_9689;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5385;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5385 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9692;
BgL_auxz00_9692 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4326z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9692,BFALSE,BFALSE);} 
BgL_test4923z00_9689 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5385); } 
if(BgL_test4923z00_9689)
{ /* Ieee/input.scm 298 */
 long BgL_arg2420z00_5386; long BgL_arg2421z00_5387;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5388;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5388 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9699;
BgL_auxz00_9699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4326z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9699,BFALSE,BFALSE);} 
BgL_arg2420z00_5386 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5388); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5389;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5389 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9706;
BgL_auxz00_9706 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4326z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9706,BFALSE,BFALSE);} 
BgL_arg2421z00_5387 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5389); } 
{ 
 long BgL_bufposz00_9712; long BgL_forwardz00_9711;
BgL_forwardz00_9711 = BgL_arg2420z00_5386; 
BgL_bufposz00_9712 = BgL_arg2421z00_5387; 
BgL_bufposz00_5380 = BgL_bufposz00_9712; 
BgL_forwardz00_5379 = BgL_forwardz00_9711; 
goto BgL_statezd20zd21099z00_5378;} }  else 
{ /* Ieee/input.scm 298 */
BgL_matchz00_3383 = 1L; } }  else 
{ /* Ieee/input.scm 298 */
 int BgL_curz00_5390;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5391;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5391 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9715;
BgL_auxz00_9715 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4326z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9715,BFALSE,BFALSE);} 
BgL_curz00_5390 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5391, BgL_forwardz00_5379); } 
{ /* Ieee/input.scm 298 */

BgL_iportz00_3252 = BgL_ipz00_35; 
BgL_lastzd2matchzd2_3253 = 1L; 
BgL_forwardz00_3254 = 
(1L+BgL_forwardz00_5379); 
BgL_bufposz00_3255 = BgL_bufposz00_5380; 
BgL_zc3z04anonymousza32430ze3z87_3256:
{ /* Ieee/input.scm 298 */
 long BgL_newzd2matchzd2_3257;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5360;
if(
INPUT_PORTP(BgL_iportz00_3252))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5360 = BgL_iportz00_3252; }  else 
{ 
 obj_t BgL_auxz00_9722;
BgL_auxz00_9722 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4325z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3252); 
FAILURE(BgL_auxz00_9722,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5360, BgL_forwardz00_3254); } 
BgL_newzd2matchzd2_3257 = 0L; 
if(
(BgL_forwardz00_3254==BgL_bufposz00_3255))
{ /* Ieee/input.scm 298 */
 bool_t BgL_test4930z00_9729;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5364;
if(
INPUT_PORTP(BgL_iportz00_3252))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5364 = BgL_iportz00_3252; }  else 
{ 
 obj_t BgL_auxz00_9732;
BgL_auxz00_9732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4325z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3252); 
FAILURE(BgL_auxz00_9732,BFALSE,BFALSE);} 
BgL_test4930z00_9729 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5364); } 
if(BgL_test4930z00_9729)
{ /* Ieee/input.scm 298 */
 long BgL_arg2434z00_3260; long BgL_arg2435z00_3261;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5365;
if(
INPUT_PORTP(BgL_iportz00_3252))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5365 = BgL_iportz00_3252; }  else 
{ 
 obj_t BgL_auxz00_9739;
BgL_auxz00_9739 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4325z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3252); 
FAILURE(BgL_auxz00_9739,BFALSE,BFALSE);} 
BgL_arg2434z00_3260 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5365); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5366;
if(
INPUT_PORTP(BgL_iportz00_3252))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5366 = BgL_iportz00_3252; }  else 
{ 
 obj_t BgL_auxz00_9746;
BgL_auxz00_9746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4325z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3252); 
FAILURE(BgL_auxz00_9746,BFALSE,BFALSE);} 
BgL_arg2435z00_3261 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5366); } 
{ 
 long BgL_bufposz00_9752; long BgL_forwardz00_9751;
BgL_forwardz00_9751 = BgL_arg2434z00_3260; 
BgL_bufposz00_9752 = BgL_arg2435z00_3261; 
BgL_bufposz00_3255 = BgL_bufposz00_9752; 
BgL_forwardz00_3254 = BgL_forwardz00_9751; 
goto BgL_zc3z04anonymousza32430ze3z87_3256;} }  else 
{ /* Ieee/input.scm 298 */
BgL_matchz00_3383 = BgL_newzd2matchzd2_3257; } }  else 
{ /* Ieee/input.scm 298 */
 int BgL_curz00_3262;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5367;
if(
INPUT_PORTP(BgL_iportz00_3252))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5367 = BgL_iportz00_3252; }  else 
{ 
 obj_t BgL_auxz00_9755;
BgL_auxz00_9755 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4325z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3252); 
FAILURE(BgL_auxz00_9755,BFALSE,BFALSE);} 
BgL_curz00_3262 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5367, BgL_forwardz00_3254); } 
{ /* Ieee/input.scm 298 */

BgL_iportz00_3240 = BgL_iportz00_3252; 
BgL_lastzd2matchzd2_3241 = BgL_newzd2matchzd2_3257; 
BgL_forwardz00_3242 = 
(1L+BgL_forwardz00_3254); 
BgL_bufposz00_3243 = BgL_bufposz00_3255; 
BgL_zc3z04anonymousza32423ze3z87_3244:
{ /* Ieee/input.scm 298 */
 long BgL_newzd2matchzd2_3245;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5350;
if(
INPUT_PORTP(BgL_iportz00_3240))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5350 = BgL_iportz00_3240; }  else 
{ 
 obj_t BgL_auxz00_9762;
BgL_auxz00_9762 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4324z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3240); 
FAILURE(BgL_auxz00_9762,BFALSE,BFALSE);} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_5350, BgL_forwardz00_3242); } 
BgL_newzd2matchzd2_3245 = 0L; 
if(
(BgL_forwardz00_3242==BgL_bufposz00_3243))
{ /* Ieee/input.scm 298 */
 bool_t BgL_test4937z00_9769;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5354;
if(
INPUT_PORTP(BgL_iportz00_3240))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5354 = BgL_iportz00_3240; }  else 
{ 
 obj_t BgL_auxz00_9772;
BgL_auxz00_9772 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4324z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3240); 
FAILURE(BgL_auxz00_9772,BFALSE,BFALSE);} 
BgL_test4937z00_9769 = 
rgc_fill_buffer(BgL_inputzd2portzd2_5354); } 
if(BgL_test4937z00_9769)
{ /* Ieee/input.scm 298 */
 long BgL_arg2426z00_3248; long BgL_arg2427z00_3249;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5355;
if(
INPUT_PORTP(BgL_iportz00_3240))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5355 = BgL_iportz00_3240; }  else 
{ 
 obj_t BgL_auxz00_9779;
BgL_auxz00_9779 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4324z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3240); 
FAILURE(BgL_auxz00_9779,BFALSE,BFALSE);} 
BgL_arg2426z00_3248 = 
RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_5355); } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5356;
if(
INPUT_PORTP(BgL_iportz00_3240))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5356 = BgL_iportz00_3240; }  else 
{ 
 obj_t BgL_auxz00_9786;
BgL_auxz00_9786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4324z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3240); 
FAILURE(BgL_auxz00_9786,BFALSE,BFALSE);} 
BgL_arg2427z00_3249 = 
RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_5356); } 
{ 
 long BgL_bufposz00_9792; long BgL_forwardz00_9791;
BgL_forwardz00_9791 = BgL_arg2426z00_3248; 
BgL_bufposz00_9792 = BgL_arg2427z00_3249; 
BgL_bufposz00_3243 = BgL_bufposz00_9792; 
BgL_forwardz00_3242 = BgL_forwardz00_9791; 
goto BgL_zc3z04anonymousza32423ze3z87_3244;} }  else 
{ /* Ieee/input.scm 298 */
BgL_matchz00_3383 = BgL_newzd2matchzd2_3245; } }  else 
{ /* Ieee/input.scm 298 */
 int BgL_curz00_3250;
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5357;
if(
INPUT_PORTP(BgL_iportz00_3240))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5357 = BgL_iportz00_3240; }  else 
{ 
 obj_t BgL_auxz00_9795;
BgL_auxz00_9795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4324z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_iportz00_3240); 
FAILURE(BgL_auxz00_9795,BFALSE,BFALSE);} 
BgL_curz00_3250 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_5357, BgL_forwardz00_3242); } 
{ /* Ieee/input.scm 298 */

{ 
 long BgL_forwardz00_9801; long BgL_lastzd2matchzd2_9800;
BgL_lastzd2matchzd2_9800 = BgL_newzd2matchzd2_3245; 
BgL_forwardz00_9801 = 
(1L+BgL_forwardz00_3242); 
BgL_forwardz00_3242 = BgL_forwardz00_9801; 
BgL_lastzd2matchzd2_3241 = BgL_lastzd2matchzd2_9800; 
goto BgL_zc3z04anonymousza32423ze3z87_3244;} } } } } } } } } } } 
{ /* Ieee/input.scm 298 */
 obj_t BgL_inputzd2portzd2_5395;
if(
INPUT_PORTP(BgL_ipz00_35))
{ /* Ieee/input.scm 298 */
BgL_inputzd2portzd2_5395 = BgL_ipz00_35; }  else 
{ 
 obj_t BgL_auxz00_9807;
BgL_auxz00_9807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9807,BFALSE,BFALSE);} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_5395); } 
{ 

switch( BgL_matchz00_3383) { case 1L : 

BgL_aux4050z00_6566 = BGl_string4309z00zz__r4_input_6_10_2z00; break;case 0L : 

{ /* Ieee/input.scm 298 */
 long BgL_arg2443z00_5396;
{ /* 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_9814;
BgL_auxz00_9814 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9814,BFALSE,BFALSE);} 
BgL_arg2443z00_5396 = 
RGC_BUFFER_MATCH_LENGTH(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_9821;
BgL_auxz00_9821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4217z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_35); 
FAILURE(BgL_auxz00_9821,BFALSE,BFALSE);} 
BgL_aux4050z00_6566 = 
rgc_buffer_substring(BgL_inputzd2portzd2_5398, 0L, BgL_arg2443z00_5396); } } break;
default: 
BgL_aux4050z00_6566 = 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_3383)); } } } 
if(
STRINGP(BgL_aux4050z00_6566))
{ /* Ieee/input.scm 298 */
return BgL_aux4050z00_6566;}  else 
{ 
 obj_t BgL_auxz00_9831;
BgL_auxz00_9831 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(11873L), BGl_string4323z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_aux4050z00_6566); 
FAILURE(BgL_auxz00_9831,BFALSE,BFALSE);} } } } } 

}



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

{ 

switch( 
VECTOR_LENGTH(BgL_opt1282z00_39)) { case 0L : 

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

return 
BGl_z62zc3z04anonymousza31401ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_3422);} } break;case 1L : 

{ /* Ieee/input.scm 320 */
 obj_t BgL_ipz00_3423;
BgL_ipz00_3423 = 
VECTOR_REF(BgL_opt1282z00_39,0L); 
{ /* Ieee/input.scm 320 */

return 
BGl_z62zc3z04anonymousza31401ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_3423);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4327z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1282z00_39)));} } } } 

}



/* 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_z62zc3z04anonymousza31401ze3ze5zz__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_env1287z00_44, obj_t BgL_opt1286z00_43)
{
{ /* Ieee/input.scm 326 */
{ /* Ieee/input.scm 326 */
 obj_t BgL_g1288z00_3425;
BgL_g1288z00_3425 = 
VECTOR_REF(BgL_opt1286z00_43,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1286z00_43)) { case 1L : 

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

return 
BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1288z00_3425, BgL_ipz00_3428);} } break;case 2L : 

{ /* Ieee/input.scm 326 */
 obj_t BgL_ipz00_3429;
BgL_ipz00_3429 = 
VECTOR_REF(BgL_opt1286z00_43,1L); 
{ /* Ieee/input.scm 326 */

return 
BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1288z00_3425, BgL_ipz00_3429);} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4329z00zz__r4_input_6_10_2z00, BGl_string4331z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1286z00_43)));} } } } 

}



/* 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_3431;
if(
INTEGERP(BgL_lz00_41))
{ /* Ieee/input.scm 328 */
BgL_lenz00_3431 = BgL_lz00_41; }  else 
{ /* Ieee/input.scm 328 */
if(
ELONGP(BgL_lz00_41))
{ /* Ieee/input.scm 329 */
 long BgL_xz00_5410;
BgL_xz00_5410 = 
BELONG_TO_LONG(BgL_lz00_41); 
BgL_lenz00_3431 = 
BINT(
(long)(BgL_xz00_5410)); }  else 
{ /* Ieee/input.scm 329 */
if(
LLONGP(BgL_lz00_41))
{ /* Ieee/input.scm 330 */
 BGL_LONGLONG_T BgL_xz00_5411;
BgL_xz00_5411 = 
BLLONG_TO_LLONG(BgL_lz00_41); 
BgL_lenz00_3431 = 
BINT(
LLONG_TO_LONG(BgL_xz00_5411)); }  else 
{ /* Ieee/input.scm 332 */
 obj_t BgL_arg2557z00_3448;
BgL_arg2557z00_3448 = 
bgl_find_runtime_type(BgL_lz00_41); 
BgL_lenz00_3431 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol4329z00zz__r4_input_6_10_2z00, BGl_string4332z00zz__r4_input_6_10_2z00, BgL_arg2557z00_3448); } } } 
{ /* Ieee/input.scm 334 */
 bool_t BgL_test4949z00_9882;
{ /* Ieee/input.scm 334 */
 long BgL_n1z00_5412;
{ /* Ieee/input.scm 334 */
 obj_t BgL_tmpz00_9883;
if(
INTEGERP(BgL_lenz00_3431))
{ /* Ieee/input.scm 334 */
BgL_tmpz00_9883 = BgL_lenz00_3431
; }  else 
{ 
 obj_t BgL_auxz00_9886;
BgL_auxz00_9886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13328L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3431); 
FAILURE(BgL_auxz00_9886,BFALSE,BFALSE);} 
BgL_n1z00_5412 = 
(long)CINT(BgL_tmpz00_9883); } 
BgL_test4949z00_9882 = 
(BgL_n1z00_5412<=0L); } 
if(BgL_test4949z00_9882)
{ /* Ieee/input.scm 335 */
 bool_t BgL_test4951z00_9892;
{ /* Ieee/input.scm 335 */
 long BgL_n1z00_5413;
{ /* Ieee/input.scm 335 */
 obj_t BgL_tmpz00_9893;
if(
INTEGERP(BgL_lenz00_3431))
{ /* Ieee/input.scm 335 */
BgL_tmpz00_9893 = BgL_lenz00_3431
; }  else 
{ 
 obj_t BgL_auxz00_9896;
BgL_auxz00_9896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13347L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3431); 
FAILURE(BgL_auxz00_9896,BFALSE,BFALSE);} 
BgL_n1z00_5413 = 
(long)CINT(BgL_tmpz00_9893); } 
BgL_test4951z00_9892 = 
(BgL_n1z00_5413==0L); } 
if(BgL_test4951z00_9892)
{ /* Ieee/input.scm 335 */
return BGl_string4309z00zz__r4_input_6_10_2z00;}  else 
{ /* Ieee/input.scm 338 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2545z00_3434;
{ /* Ieee/input.scm 338 */
 BgL_z62iozd2errorzb0_bglt BgL_new1120z00_3435;
{ /* Ieee/input.scm 338 */
 BgL_z62iozd2errorzb0_bglt BgL_new1119z00_3438;
BgL_new1119z00_3438 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 338 */
 long BgL_arg2549z00_3439;
BgL_arg2549z00_3439 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1119z00_3438), BgL_arg2549z00_3439); } 
BgL_new1120z00_3435 = BgL_new1119z00_3438; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1120z00_3435)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1120z00_3435)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_9910;
{ /* Ieee/input.scm 338 */
 obj_t BgL_arg2546z00_3436;
{ /* Ieee/input.scm 338 */
 obj_t BgL_arg2547z00_3437;
{ /* Ieee/input.scm 338 */
 obj_t BgL_classz00_5417;
BgL_classz00_5417 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2547z00_3437 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5417); } 
BgL_arg2546z00_3436 = 
VECTOR_REF(BgL_arg2547z00_3437,2L); } 
{ /* Ieee/input.scm 338 */
 obj_t BgL_auxz00_9914;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2546z00_3436))
{ /* Ieee/input.scm 338 */
BgL_auxz00_9914 = BgL_arg2546z00_3436
; }  else 
{ 
 obj_t BgL_auxz00_9917;
BgL_auxz00_9917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13386L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2546z00_3436); 
FAILURE(BgL_auxz00_9917,BFALSE,BFALSE);} 
BgL_auxz00_9910 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_9914); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1120z00_3435)))->BgL_stackz00)=((obj_t)BgL_auxz00_9910),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1120z00_3435)))->BgL_procz00)=((obj_t)BGl_symbol4329z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1120z00_3435)))->BgL_msgz00)=((obj_t)BGl_string4334z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1120z00_3435)))->BgL_objz00)=((obj_t)BgL_lenz00_3431),BUNSPEC); 
BgL_arg2545z00_3434 = BgL_new1120z00_3435; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2545z00_3434));} }  else 
{ /* Ieee/input.scm 343 */
 obj_t BgL_sz00_3440;
{ /* Ieee/input.scm 343 */
 long BgL_tmpz00_9931;
{ /* Ieee/input.scm 343 */
 obj_t BgL_tmpz00_9932;
if(
INTEGERP(BgL_lenz00_3431))
{ /* Ieee/input.scm 343 */
BgL_tmpz00_9932 = BgL_lenz00_3431
; }  else 
{ 
 obj_t BgL_auxz00_9935;
BgL_auxz00_9935 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13530L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3431); 
FAILURE(BgL_auxz00_9935,BFALSE,BFALSE);} 
BgL_tmpz00_9931 = 
(long)CINT(BgL_tmpz00_9932); } 
BgL_sz00_3440 = 
make_string_sans_fill(BgL_tmpz00_9931); } 
{ /* Ieee/input.scm 343 */
 long BgL_nz00_3441;
{ /* Ieee/input.scm 344 */
 long BgL_auxz00_9948; obj_t BgL_tmpz00_9941;
{ /* Ieee/input.scm 344 */
 obj_t BgL_tmpz00_9950;
if(
INTEGERP(BgL_lenz00_3431))
{ /* Ieee/input.scm 344 */
BgL_tmpz00_9950 = BgL_lenz00_3431
; }  else 
{ 
 obj_t BgL_auxz00_9953;
BgL_auxz00_9953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13568L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3431); 
FAILURE(BgL_auxz00_9953,BFALSE,BFALSE);} 
BgL_auxz00_9948 = 
(long)CINT(BgL_tmpz00_9950); } 
if(
INPUT_PORTP(BgL_ipz00_42))
{ /* Ieee/input.scm 344 */
BgL_tmpz00_9941 = BgL_ipz00_42
; }  else 
{ 
 obj_t BgL_auxz00_9944;
BgL_auxz00_9944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13561L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_42); 
FAILURE(BgL_auxz00_9944,BFALSE,BFALSE);} 
BgL_nz00_3441 = 
bgl_rgc_blit_string(BgL_tmpz00_9941, 
BSTRING_TO_STRING(BgL_sz00_3440), 0L, BgL_auxz00_9948); } 
{ /* Ieee/input.scm 344 */

if(
(BgL_nz00_3441==0L))
{ /* Ieee/input.scm 347 */
 bool_t BgL_test4958z00_9961;
{ /* Ieee/input.scm 347 */
 obj_t BgL_inputzd2portzd2_5420;
if(
INPUT_PORTP(BgL_ipz00_42))
{ /* Ieee/input.scm 347 */
BgL_inputzd2portzd2_5420 = BgL_ipz00_42; }  else 
{ 
 obj_t BgL_auxz00_9964;
BgL_auxz00_9964 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13624L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_42); 
FAILURE(BgL_auxz00_9964,BFALSE,BFALSE);} 
BgL_test4958z00_9961 = 
rgc_buffer_eof_p(BgL_inputzd2portzd2_5420); } 
if(BgL_test4958z00_9961)
{ /* Ieee/input.scm 347 */
return BEOF;}  else 
{ /* Ieee/input.scm 347 */
return BGl_string4309z00zz__r4_input_6_10_2z00;} }  else 
{ /* Ieee/input.scm 350 */
 bool_t BgL_test4960z00_9969;
{ /* Ieee/input.scm 350 */
 long BgL_n2z00_5422;
{ /* Ieee/input.scm 350 */
 obj_t BgL_tmpz00_9970;
if(
INTEGERP(BgL_lenz00_3431))
{ /* Ieee/input.scm 350 */
BgL_tmpz00_9970 = BgL_lenz00_3431
; }  else 
{ 
 obj_t BgL_auxz00_9973;
BgL_auxz00_9973 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13662L), BGl_string4330z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3431); 
FAILURE(BgL_auxz00_9973,BFALSE,BFALSE);} 
BgL_n2z00_5422 = 
(long)CINT(BgL_tmpz00_9970); } 
BgL_test4960z00_9969 = 
(BgL_nz00_3441<BgL_n2z00_5422); } 
if(BgL_test4960z00_9969)
{ /* Ieee/input.scm 350 */
return 
bgl_string_shrink(BgL_sz00_3440, BgL_nz00_3441);}  else 
{ /* Ieee/input.scm 350 */
return BgL_sz00_3440;} } } } } } } } 

}



/* _read-chars! */
obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1292z00_49, obj_t BgL_opt1291z00_48)
{
{ /* Ieee/input.scm 358 */
{ /* Ieee/input.scm 358 */
 obj_t BgL_g1293z00_3449; obj_t BgL_g1294z00_3450;
BgL_g1293z00_3449 = 
VECTOR_REF(BgL_opt1291z00_48,0L); 
BgL_g1294z00_3450 = 
VECTOR_REF(BgL_opt1291z00_48,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1291z00_48)) { case 2L : 

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

{ /* Ieee/input.scm 358 */
 obj_t BgL_auxz00_9985;
if(
STRINGP(BgL_g1293z00_3449))
{ /* Ieee/input.scm 358 */
BgL_auxz00_9985 = BgL_g1293z00_3449
; }  else 
{ 
 obj_t BgL_auxz00_9988;
BgL_auxz00_9988 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4338z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1293z00_3449); 
FAILURE(BgL_auxz00_9988,BFALSE,BFALSE);} 
return 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_9985, BgL_g1294z00_3450, BgL_ipz00_3453);} } } break;case 3L : 

{ /* Ieee/input.scm 358 */
 obj_t BgL_ipz00_3454;
BgL_ipz00_3454 = 
VECTOR_REF(BgL_opt1291z00_48,2L); 
{ /* Ieee/input.scm 358 */

{ /* Ieee/input.scm 358 */
 obj_t BgL_auxz00_9994;
if(
STRINGP(BgL_g1293z00_3449))
{ /* Ieee/input.scm 358 */
BgL_auxz00_9994 = BgL_g1293z00_3449
; }  else 
{ 
 obj_t BgL_auxz00_9997;
BgL_auxz00_9997 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(13935L), BGl_string4338z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1293z00_3449); 
FAILURE(BgL_auxz00_9997,BFALSE,BFALSE);} 
return 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_9994, BgL_g1294z00_3450, BgL_ipz00_3454);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4335z00zz__r4_input_6_10_2z00, BGl_string4337z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1291z00_48)));} } } } 

}



/* 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_3456;
if(
INTEGERP(BgL_lz00_46))
{ /* Ieee/input.scm 360 */
BgL_lenz00_3456 = BgL_lz00_46; }  else 
{ /* Ieee/input.scm 360 */
if(
ELONGP(BgL_lz00_46))
{ /* Ieee/input.scm 361 */
 long BgL_xz00_5426;
BgL_xz00_5426 = 
BELONG_TO_LONG(BgL_lz00_46); 
BgL_lenz00_3456 = 
BINT(
(long)(BgL_xz00_5426)); }  else 
{ /* Ieee/input.scm 361 */
if(
LLONGP(BgL_lz00_46))
{ /* Ieee/input.scm 362 */
 BGL_LONGLONG_T BgL_xz00_5427;
BgL_xz00_5427 = 
BLLONG_TO_LLONG(BgL_lz00_46); 
BgL_lenz00_3456 = 
BINT(
LLONG_TO_LONG(BgL_xz00_5427)); }  else 
{ /* Ieee/input.scm 364 */
 obj_t BgL_arg2576z00_3472;
BgL_arg2576z00_3472 = 
bgl_find_runtime_type(BgL_lz00_46); 
BgL_lenz00_3456 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol4335z00zz__r4_input_6_10_2z00, BGl_string4332z00zz__r4_input_6_10_2z00, BgL_arg2576z00_3472); } } } 
{ /* Ieee/input.scm 365 */
 bool_t BgL_test4967z00_10021;
{ /* Ieee/input.scm 365 */
 long BgL_n1z00_5428;
{ /* Ieee/input.scm 365 */
 obj_t BgL_tmpz00_10022;
if(
INTEGERP(BgL_lenz00_3456))
{ /* Ieee/input.scm 365 */
BgL_tmpz00_10022 = BgL_lenz00_3456
; }  else 
{ 
 obj_t BgL_auxz00_10025;
BgL_auxz00_10025 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14204L), BGl_string4336z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3456); 
FAILURE(BgL_auxz00_10025,BFALSE,BFALSE);} 
BgL_n1z00_5428 = 
(long)CINT(BgL_tmpz00_10022); } 
BgL_test4967z00_10021 = 
(BgL_n1z00_5428<=0L); } 
if(BgL_test4967z00_10021)
{ /* Ieee/input.scm 366 */
 bool_t BgL_test4969z00_10031;
{ /* Ieee/input.scm 366 */
 long BgL_n1z00_5429;
{ /* Ieee/input.scm 366 */
 obj_t BgL_tmpz00_10032;
if(
INTEGERP(BgL_lenz00_3456))
{ /* Ieee/input.scm 366 */
BgL_tmpz00_10032 = BgL_lenz00_3456
; }  else 
{ 
 obj_t BgL_auxz00_10035;
BgL_auxz00_10035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14223L), BGl_string4336z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3456); 
FAILURE(BgL_auxz00_10035,BFALSE,BFALSE);} 
BgL_n1z00_5429 = 
(long)CINT(BgL_tmpz00_10032); } 
BgL_test4969z00_10031 = 
(BgL_n1z00_5429==0L); } 
if(BgL_test4969z00_10031)
{ /* Ieee/input.scm 366 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 369 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2565z00_3459;
{ /* Ieee/input.scm 369 */
 BgL_z62iozd2errorzb0_bglt BgL_new1123z00_3460;
{ /* Ieee/input.scm 369 */
 BgL_z62iozd2errorzb0_bglt BgL_new1122z00_3463;
BgL_new1122z00_3463 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 369 */
 long BgL_arg2570z00_3464;
BgL_arg2570z00_3464 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1122z00_3463), BgL_arg2570z00_3464); } 
BgL_new1123z00_3460 = BgL_new1122z00_3463; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1123z00_3460)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1123z00_3460)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10050;
{ /* Ieee/input.scm 369 */
 obj_t BgL_arg2566z00_3461;
{ /* Ieee/input.scm 369 */
 obj_t BgL_arg2567z00_3462;
{ /* Ieee/input.scm 369 */
 obj_t BgL_classz00_5433;
BgL_classz00_5433 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2567z00_3462 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5433); } 
BgL_arg2566z00_3461 = 
VECTOR_REF(BgL_arg2567z00_3462,2L); } 
{ /* Ieee/input.scm 369 */
 obj_t BgL_auxz00_10054;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2566z00_3461))
{ /* Ieee/input.scm 369 */
BgL_auxz00_10054 = BgL_arg2566z00_3461
; }  else 
{ 
 obj_t BgL_auxz00_10057;
BgL_auxz00_10057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14256L), BGl_string4336z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2566z00_3461); 
FAILURE(BgL_auxz00_10057,BFALSE,BFALSE);} 
BgL_auxz00_10050 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10054); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1123z00_3460)))->BgL_stackz00)=((obj_t)BgL_auxz00_10050),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1123z00_3460)))->BgL_procz00)=((obj_t)BGl_symbol4329z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1123z00_3460)))->BgL_msgz00)=((obj_t)BGl_string4334z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1123z00_3460)))->BgL_objz00)=((obj_t)BgL_lenz00_3456),BUNSPEC); 
BgL_arg2565z00_3459 = BgL_new1123z00_3460; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2565z00_3459));} }  else 
{ /* Ieee/input.scm 373 */
 obj_t BgL_arg2571z00_3465;
{ /* Ieee/input.scm 373 */
 long BgL_az00_3466;
BgL_az00_3466 = 
STRING_LENGTH(BgL_bufz00_45); 
{ /* Ieee/input.scm 373 */
 bool_t BgL_test4972z00_10072;
{ /* Ieee/input.scm 373 */
 long BgL_n2z00_5437;
{ /* Ieee/input.scm 373 */
 obj_t BgL_tmpz00_10073;
if(
INTEGERP(BgL_lenz00_3456))
{ /* Ieee/input.scm 373 */
BgL_tmpz00_10073 = BgL_lenz00_3456
; }  else 
{ 
 obj_t BgL_auxz00_10076;
BgL_auxz00_10076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14393L), BGl_string4336z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_lenz00_3456); 
FAILURE(BgL_auxz00_10076,BFALSE,BFALSE);} 
BgL_n2z00_5437 = 
(long)CINT(BgL_tmpz00_10073); } 
BgL_test4972z00_10072 = 
(BgL_az00_3466<BgL_n2z00_5437); } 
if(BgL_test4972z00_10072)
{ /* Ieee/input.scm 373 */
BgL_arg2571z00_3465 = 
BINT(BgL_az00_3466); }  else 
{ /* Ieee/input.scm 373 */
BgL_arg2571z00_3465 = BgL_lenz00_3456; } } } 
{ /* Ieee/input.scm 373 */
 long BgL_tmpz00_10083;
{ /* Ieee/input.scm 373 */
 long BgL_auxz00_10091; obj_t BgL_tmpz00_10084;
{ /* Ieee/input.scm 373 */
 obj_t BgL_tmpz00_10093;
if(
INTEGERP(BgL_arg2571z00_3465))
{ /* Ieee/input.scm 373 */
BgL_tmpz00_10093 = BgL_arg2571z00_3465
; }  else 
{ 
 obj_t BgL_auxz00_10096;
BgL_auxz00_10096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14423L), BGl_string4336z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_arg2571z00_3465); 
FAILURE(BgL_auxz00_10096,BFALSE,BFALSE);} 
BgL_auxz00_10091 = 
(long)CINT(BgL_tmpz00_10093); } 
if(
INPUT_PORTP(BgL_ipz00_47))
{ /* Ieee/input.scm 373 */
BgL_tmpz00_10084 = BgL_ipz00_47
; }  else 
{ 
 obj_t BgL_auxz00_10087;
BgL_auxz00_10087 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14384L), BGl_string4336z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_47); 
FAILURE(BgL_auxz00_10087,BFALSE,BFALSE);} 
BgL_tmpz00_10083 = 
bgl_rgc_blit_string(BgL_tmpz00_10084, 
BSTRING_TO_STRING(BgL_bufz00_45), 0L, BgL_auxz00_10091); } 
return 
BINT(BgL_tmpz00_10083);} } } } } 

}



/* _read-fill-string! */
obj_t BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t BgL_env1298z00_55, obj_t BgL_opt1297z00_54)
{
{ /* Ieee/input.scm 378 */
{ /* Ieee/input.scm 378 */
 obj_t BgL_g1299z00_6894; obj_t BgL_g1300z00_6895; obj_t BgL_g1301z00_6896;
BgL_g1299z00_6894 = 
VECTOR_REF(BgL_opt1297z00_54,0L); 
BgL_g1300z00_6895 = 
VECTOR_REF(BgL_opt1297z00_54,1L); 
BgL_g1301z00_6896 = 
VECTOR_REF(BgL_opt1297z00_54,2L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1297z00_54)) { case 3L : 

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

{ /* Ieee/input.scm 378 */
 obj_t BgL_sz00_6899; long BgL_oz00_6900; long BgL_lenz00_6901;
if(
STRINGP(BgL_g1299z00_6894))
{ /* Ieee/input.scm 378 */
BgL_sz00_6899 = BgL_g1299z00_6894; }  else 
{ 
 obj_t BgL_auxz00_10111;
BgL_auxz00_10111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1299z00_6894); 
FAILURE(BgL_auxz00_10111,BFALSE,BFALSE);} 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10115;
if(
INTEGERP(BgL_g1300z00_6895))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10115 = BgL_g1300z00_6895
; }  else 
{ 
 obj_t BgL_auxz00_10118;
BgL_auxz00_10118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1300z00_6895); 
FAILURE(BgL_auxz00_10118,BFALSE,BFALSE);} 
BgL_oz00_6900 = 
(long)CINT(BgL_tmpz00_10115); } 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10123;
if(
INTEGERP(BgL_g1301z00_6896))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10123 = BgL_g1301z00_6896
; }  else 
{ 
 obj_t BgL_auxz00_10126;
BgL_auxz00_10126 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1301z00_6896); 
FAILURE(BgL_auxz00_10126,BFALSE,BFALSE);} 
BgL_lenz00_6901 = 
(long)CINT(BgL_tmpz00_10123); } 
if(
(BgL_lenz00_6901<=0L))
{ /* Ieee/input.scm 386 */
if(
(BgL_lenz00_6901==0L))
{ /* Ieee/input.scm 387 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2580z00_6902;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1128z00_6903;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1127z00_6904;
BgL_new1127z00_6904 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 390 */
 long BgL_arg2583z00_6905;
BgL_arg2583z00_6905 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1127z00_6904), BgL_arg2583z00_6905); } 
BgL_new1128z00_6903 = BgL_new1127z00_6904; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6903)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6903)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10144;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2581z00_6906;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2582z00_6907;
{ /* Ieee/input.scm 390 */
 obj_t BgL_classz00_6908;
BgL_classz00_6908 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2582z00_6907 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_6908); } 
BgL_arg2581z00_6906 = 
VECTOR_REF(BgL_arg2582z00_6907,2L); } 
{ /* Ieee/input.scm 390 */
 obj_t BgL_auxz00_10148;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2581z00_6906))
{ /* Ieee/input.scm 390 */
BgL_auxz00_10148 = BgL_arg2581z00_6906
; }  else 
{ 
 obj_t BgL_auxz00_10151;
BgL_auxz00_10151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15052L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2581z00_6906); 
FAILURE(BgL_auxz00_10151,BFALSE,BFALSE);} 
BgL_auxz00_10144 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10148); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6903)))->BgL_stackz00)=((obj_t)BgL_auxz00_10144),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6903)))->BgL_procz00)=((obj_t)BGl_symbol4329z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6903)))->BgL_msgz00)=((obj_t)BGl_string4334z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6903)))->BgL_objz00)=((obj_t)
BINT(BgL_lenz00_6901)),BUNSPEC); 
BgL_arg2580z00_6902 = BgL_new1128z00_6903; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2580z00_6902));} }  else 
{ /* Ieee/input.scm 394 */
 long BgL_nz00_6909;
{ /* Ieee/input.scm 395 */
 long BgL_arg2586z00_6910;
{ /* Ieee/input.scm 395 */
 long BgL_bz00_6911;
BgL_bz00_6911 = 
(
STRING_LENGTH(BgL_sz00_6899)-BgL_oz00_6900); 
if(
(BgL_lenz00_6901<BgL_bz00_6911))
{ /* Ieee/input.scm 395 */
BgL_arg2586z00_6910 = BgL_lenz00_6901; }  else 
{ /* Ieee/input.scm 395 */
BgL_arg2586z00_6910 = BgL_bz00_6911; } } 
BgL_nz00_6909 = 
bgl_rgc_blit_string(BgL_ipz00_6898, 
BSTRING_TO_STRING(BgL_sz00_6899), BgL_oz00_6900, BgL_arg2586z00_6910); } 
{ /* Ieee/input.scm 396 */
 bool_t BgL_test4983z00_10172;
if(
(BgL_nz00_6909==0L))
{ /* Ieee/input.scm 396 */
BgL_test4983z00_10172 = 
rgc_buffer_eof_p(BgL_ipz00_6898)
; }  else 
{ /* Ieee/input.scm 396 */
BgL_test4983z00_10172 = ((bool_t)0)
; } 
if(BgL_test4983z00_10172)
{ /* Ieee/input.scm 396 */
return BEOF;}  else 
{ /* Ieee/input.scm 396 */
return 
BINT(BgL_nz00_6909);} } } } } } break;case 4L : 

{ /* Ieee/input.scm 378 */
 obj_t BgL_ipz00_6912;
BgL_ipz00_6912 = 
VECTOR_REF(BgL_opt1297z00_54,3L); 
{ /* Ieee/input.scm 378 */

{ /* Ieee/input.scm 378 */
 obj_t BgL_sz00_6913; long BgL_oz00_6914; long BgL_lenz00_6915;
if(
STRINGP(BgL_g1299z00_6894))
{ /* Ieee/input.scm 378 */
BgL_sz00_6913 = BgL_g1299z00_6894; }  else 
{ 
 obj_t BgL_auxz00_10180;
BgL_auxz00_10180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1299z00_6894); 
FAILURE(BgL_auxz00_10180,BFALSE,BFALSE);} 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10184;
if(
INTEGERP(BgL_g1300z00_6895))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10184 = BgL_g1300z00_6895
; }  else 
{ 
 obj_t BgL_auxz00_10187;
BgL_auxz00_10187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1300z00_6895); 
FAILURE(BgL_auxz00_10187,BFALSE,BFALSE);} 
BgL_oz00_6914 = 
(long)CINT(BgL_tmpz00_10184); } 
{ /* Ieee/input.scm 378 */
 obj_t BgL_tmpz00_10192;
if(
INTEGERP(BgL_g1301z00_6896))
{ /* Ieee/input.scm 378 */
BgL_tmpz00_10192 = BgL_g1301z00_6896
; }  else 
{ 
 obj_t BgL_auxz00_10195;
BgL_auxz00_10195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(14652L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1301z00_6896); 
FAILURE(BgL_auxz00_10195,BFALSE,BFALSE);} 
BgL_lenz00_6915 = 
(long)CINT(BgL_tmpz00_10192); } 
if(
(BgL_lenz00_6915<=0L))
{ /* Ieee/input.scm 386 */
if(
(BgL_lenz00_6915==0L))
{ /* Ieee/input.scm 387 */
return 
BINT(0L);}  else 
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2580z00_6916;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1128z00_6917;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1127z00_6918;
BgL_new1127z00_6918 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 390 */
 long BgL_arg2583z00_6919;
BgL_arg2583z00_6919 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1127z00_6918), BgL_arg2583z00_6919); } 
BgL_new1128z00_6917 = BgL_new1127z00_6918; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6917)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6917)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10213;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2581z00_6920;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2582z00_6921;
{ /* Ieee/input.scm 390 */
 obj_t BgL_classz00_6922;
BgL_classz00_6922 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2582z00_6921 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_6922); } 
BgL_arg2581z00_6920 = 
VECTOR_REF(BgL_arg2582z00_6921,2L); } 
{ /* Ieee/input.scm 390 */
 obj_t BgL_auxz00_10217;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2581z00_6920))
{ /* Ieee/input.scm 390 */
BgL_auxz00_10217 = BgL_arg2581z00_6920
; }  else 
{ 
 obj_t BgL_auxz00_10220;
BgL_auxz00_10220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15052L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2581z00_6920); 
FAILURE(BgL_auxz00_10220,BFALSE,BFALSE);} 
BgL_auxz00_10213 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10217); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6917)))->BgL_stackz00)=((obj_t)BgL_auxz00_10213),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6917)))->BgL_procz00)=((obj_t)BGl_symbol4329z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6917)))->BgL_msgz00)=((obj_t)BGl_string4334z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6917)))->BgL_objz00)=((obj_t)
BINT(BgL_lenz00_6915)),BUNSPEC); 
BgL_arg2580z00_6916 = BgL_new1128z00_6917; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2580z00_6916));} }  else 
{ /* Ieee/input.scm 394 */
 long BgL_nz00_6923;
{ /* Ieee/input.scm 395 */
 long BgL_arg2586z00_6924;
{ /* Ieee/input.scm 395 */
 long BgL_bz00_6925;
BgL_bz00_6925 = 
(
STRING_LENGTH(BgL_sz00_6913)-BgL_oz00_6914); 
if(
(BgL_lenz00_6915<BgL_bz00_6925))
{ /* Ieee/input.scm 395 */
BgL_arg2586z00_6924 = BgL_lenz00_6915; }  else 
{ /* Ieee/input.scm 395 */
BgL_arg2586z00_6924 = BgL_bz00_6925; } } 
{ /* Ieee/input.scm 394 */
 obj_t BgL_tmpz00_10239;
if(
INPUT_PORTP(BgL_ipz00_6912))
{ /* Ieee/input.scm 394 */
BgL_tmpz00_10239 = BgL_ipz00_6912
; }  else 
{ 
 obj_t BgL_auxz00_10242;
BgL_auxz00_10242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15193L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_6912); 
FAILURE(BgL_auxz00_10242,BFALSE,BFALSE);} 
BgL_nz00_6923 = 
bgl_rgc_blit_string(BgL_tmpz00_10239, 
BSTRING_TO_STRING(BgL_sz00_6913), BgL_oz00_6914, BgL_arg2586z00_6924); } } 
{ /* Ieee/input.scm 396 */
 bool_t BgL_test4993z00_10248;
if(
(BgL_nz00_6923==0L))
{ /* Ieee/input.scm 396 */
 obj_t BgL_tmpz00_10251;
if(
INPUT_PORTP(BgL_ipz00_6912))
{ /* Ieee/input.scm 396 */
BgL_tmpz00_10251 = BgL_ipz00_6912
; }  else 
{ 
 obj_t BgL_auxz00_10254;
BgL_auxz00_10254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15294L), BGl_string4342z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_6912); 
FAILURE(BgL_auxz00_10254,BFALSE,BFALSE);} 
BgL_test4993z00_10248 = 
rgc_buffer_eof_p(BgL_tmpz00_10251); }  else 
{ /* Ieee/input.scm 396 */
BgL_test4993z00_10248 = ((bool_t)0)
; } 
if(BgL_test4993z00_10248)
{ /* Ieee/input.scm 396 */
return BEOF;}  else 
{ /* Ieee/input.scm 396 */
return 
BINT(BgL_nz00_6923);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4339z00zz__r4_input_6_10_2z00, BGl_string4341z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1297z00_54)));} } } } 

}



/* 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_arg2580z00_6926;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1128z00_6927;
{ /* Ieee/input.scm 390 */
 BgL_z62iozd2errorzb0_bglt BgL_new1127z00_6928;
BgL_new1127z00_6928 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 390 */
 long BgL_arg2583z00_6929;
BgL_arg2583z00_6929 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1127z00_6928), BgL_arg2583z00_6929); } 
BgL_new1128z00_6927 = BgL_new1127z00_6928; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6927)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6927)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10278;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2581z00_6930;
{ /* Ieee/input.scm 390 */
 obj_t BgL_arg2582z00_6931;
{ /* Ieee/input.scm 390 */
 obj_t BgL_classz00_6932;
BgL_classz00_6932 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2582z00_6931 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_6932); } 
BgL_arg2581z00_6930 = 
VECTOR_REF(BgL_arg2582z00_6931,2L); } 
{ /* Ieee/input.scm 390 */
 obj_t BgL_auxz00_10282;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2581z00_6930))
{ /* Ieee/input.scm 390 */
BgL_auxz00_10282 = BgL_arg2581z00_6930
; }  else 
{ 
 obj_t BgL_auxz00_10285;
BgL_auxz00_10285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15052L), BGl_string4340z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2581z00_6930); 
FAILURE(BgL_auxz00_10285,BFALSE,BFALSE);} 
BgL_auxz00_10278 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10282); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1128z00_6927)))->BgL_stackz00)=((obj_t)BgL_auxz00_10278),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6927)))->BgL_procz00)=((obj_t)BGl_symbol4329z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6927)))->BgL_msgz00)=((obj_t)BGl_string4334z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1128z00_6927)))->BgL_objz00)=((obj_t)
BINT(BgL_lenz00_52)),BUNSPEC); 
BgL_arg2580z00_6926 = BgL_new1128z00_6927; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2580z00_6926));} }  else 
{ /* Ieee/input.scm 394 */
 long BgL_nz00_6933;
{ /* Ieee/input.scm 395 */
 long BgL_arg2586z00_6934;
{ /* Ieee/input.scm 395 */
 long BgL_bz00_6935;
BgL_bz00_6935 = 
(
STRING_LENGTH(BgL_sz00_50)-BgL_oz00_51); 
if(
(BgL_lenz00_52<BgL_bz00_6935))
{ /* Ieee/input.scm 395 */
BgL_arg2586z00_6934 = BgL_lenz00_52; }  else 
{ /* Ieee/input.scm 395 */
BgL_arg2586z00_6934 = BgL_bz00_6935; } } 
{ /* Ieee/input.scm 394 */
 obj_t BgL_tmpz00_10304;
if(
INPUT_PORTP(BgL_ipz00_53))
{ /* Ieee/input.scm 394 */
BgL_tmpz00_10304 = BgL_ipz00_53
; }  else 
{ 
 obj_t BgL_auxz00_10307;
BgL_auxz00_10307 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15193L), BGl_string4340z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_53); 
FAILURE(BgL_auxz00_10307,BFALSE,BFALSE);} 
BgL_nz00_6933 = 
bgl_rgc_blit_string(BgL_tmpz00_10304, 
BSTRING_TO_STRING(BgL_sz00_50), BgL_oz00_51, BgL_arg2586z00_6934); } } 
{ /* Ieee/input.scm 396 */
 bool_t BgL_test5001z00_10313;
if(
(BgL_nz00_6933==0L))
{ /* Ieee/input.scm 396 */
 obj_t BgL_tmpz00_10316;
if(
INPUT_PORTP(BgL_ipz00_53))
{ /* Ieee/input.scm 396 */
BgL_tmpz00_10316 = BgL_ipz00_53
; }  else 
{ 
 obj_t BgL_auxz00_10319;
BgL_auxz00_10319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15294L), BGl_string4340z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_53); 
FAILURE(BgL_auxz00_10319,BFALSE,BFALSE);} 
BgL_test5001z00_10313 = 
rgc_buffer_eof_p(BgL_tmpz00_10316); }  else 
{ /* Ieee/input.scm 396 */
BgL_test5001z00_10313 = ((bool_t)0)
; } 
if(BgL_test5001z00_10313)
{ /* Ieee/input.scm 396 */
return BEOF;}  else 
{ /* Ieee/input.scm 396 */
return 
BINT(BgL_nz00_6933);} } } } 

}



/* _unread-char! */
obj_t BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1305z00_59, obj_t BgL_opt1304z00_58)
{
{ /* Ieee/input.scm 401 */
{ /* Ieee/input.scm 401 */
 obj_t BgL_g1306z00_3498;
BgL_g1306z00_3498 = 
VECTOR_REF(BgL_opt1304z00_58,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1304z00_58)) { case 1L : 

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

{ /* Ieee/input.scm 401 */
 unsigned char BgL_auxz00_10329;
{ /* Ieee/input.scm 401 */
 obj_t BgL_tmpz00_10330;
if(
CHARP(BgL_g1306z00_3498))
{ /* Ieee/input.scm 401 */
BgL_tmpz00_10330 = BgL_g1306z00_3498
; }  else 
{ 
 obj_t BgL_auxz00_10333;
BgL_auxz00_10333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4345z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_g1306z00_3498); 
FAILURE(BgL_auxz00_10333,BFALSE,BFALSE);} 
BgL_auxz00_10329 = 
CCHAR(BgL_tmpz00_10330); } 
return 
BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10329, BgL_ipz00_3501);} } } break;case 2L : 

{ /* Ieee/input.scm 401 */
 obj_t BgL_ipz00_3502;
BgL_ipz00_3502 = 
VECTOR_REF(BgL_opt1304z00_58,1L); 
{ /* Ieee/input.scm 401 */

{ /* Ieee/input.scm 401 */
 unsigned char BgL_auxz00_10340;
{ /* Ieee/input.scm 401 */
 obj_t BgL_tmpz00_10341;
if(
CHARP(BgL_g1306z00_3498))
{ /* Ieee/input.scm 401 */
BgL_tmpz00_10341 = BgL_g1306z00_3498
; }  else 
{ 
 obj_t BgL_auxz00_10344;
BgL_auxz00_10344 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15535L), BGl_string4345z00zz__r4_input_6_10_2z00, BGl_string4311z00zz__r4_input_6_10_2z00, BgL_g1306z00_3498); 
FAILURE(BgL_auxz00_10344,BFALSE,BFALSE);} 
BgL_auxz00_10340 = 
CCHAR(BgL_tmpz00_10341); } 
return 
BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10340, BgL_ipz00_3502);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4343z00zz__r4_input_6_10_2z00, BGl_string4331z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1304z00_58)));} } } } 

}



/* 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_test5006z00_10355;
{ /* Ieee/input.scm 402 */
 long BgL_arg2598z00_3512;
BgL_arg2598z00_3512 = 
(
(unsigned char)(BgL_cz00_56)); 
{ /* Ieee/input.scm 402 */
 obj_t BgL_inputzd2portzd2_5542;
if(
INPUT_PORTP(BgL_ipz00_57))
{ /* Ieee/input.scm 402 */
BgL_inputzd2portzd2_5542 = BgL_ipz00_57; }  else 
{ 
 obj_t BgL_auxz00_10360;
BgL_auxz00_10360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15639L), BGl_string4344z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_57); 
FAILURE(BgL_auxz00_10360,BFALSE,BFALSE);} 
BgL_test5006z00_10355 = 
rgc_buffer_insert_char(BgL_inputzd2portzd2_5542, 
(int)(BgL_arg2598z00_3512)); } } 
if(BgL_test5006z00_10355)
{ /* Ieee/input.scm 402 */
return BFALSE;}  else 
{ /* Ieee/input.scm 404 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2593z00_3506;
{ /* Ieee/input.scm 404 */
 BgL_z62iozd2errorzb0_bglt BgL_new1132z00_3507;
{ /* Ieee/input.scm 404 */
 BgL_z62iozd2errorzb0_bglt BgL_new1131z00_3510;
BgL_new1131z00_3510 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 404 */
 long BgL_arg2597z00_3511;
BgL_arg2597z00_3511 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1131z00_3510), BgL_arg2597z00_3511); } 
BgL_new1132z00_3507 = BgL_new1131z00_3510; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1132z00_3507)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1132z00_3507)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10374;
{ /* Ieee/input.scm 404 */
 obj_t BgL_arg2594z00_3508;
{ /* Ieee/input.scm 404 */
 obj_t BgL_arg2595z00_3509;
{ /* Ieee/input.scm 404 */
 obj_t BgL_classz00_5547;
BgL_classz00_5547 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2595z00_3509 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5547); } 
BgL_arg2594z00_3508 = 
VECTOR_REF(BgL_arg2595z00_3509,2L); } 
{ /* Ieee/input.scm 404 */
 obj_t BgL_auxz00_10378;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2594z00_3508))
{ /* Ieee/input.scm 404 */
BgL_auxz00_10378 = BgL_arg2594z00_3508
; }  else 
{ 
 obj_t BgL_auxz00_10381;
BgL_auxz00_10381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15676L), BGl_string4344z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2594z00_3508); 
FAILURE(BgL_auxz00_10381,BFALSE,BFALSE);} 
BgL_auxz00_10374 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10378); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1132z00_3507)))->BgL_stackz00)=((obj_t)BgL_auxz00_10374),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1132z00_3507)))->BgL_procz00)=((obj_t)BGl_symbol4343z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1132z00_3507)))->BgL_msgz00)=((obj_t)BGl_string4346z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1132z00_3507)))->BgL_objz00)=((obj_t)
BCHAR(BgL_cz00_56)),BUNSPEC); 
BgL_arg2593z00_3506 = BgL_new1132z00_3507; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2593z00_3506));} } } 

}



/* _unread-string! */
obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1310z00_63, obj_t BgL_opt1309z00_62)
{
{ /* Ieee/input.scm 412 */
{ /* Ieee/input.scm 412 */
 obj_t BgL_g1311z00_3513;
BgL_g1311z00_3513 = 
VECTOR_REF(BgL_opt1309z00_62,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1309z00_62)) { case 1L : 

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

{ /* Ieee/input.scm 412 */
 obj_t BgL_auxz00_10400;
if(
STRINGP(BgL_g1311z00_3513))
{ /* Ieee/input.scm 412 */
BgL_auxz00_10400 = BgL_g1311z00_3513
; }  else 
{ 
 obj_t BgL_auxz00_10403;
BgL_auxz00_10403 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4349z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1311z00_3513); 
FAILURE(BgL_auxz00_10403,BFALSE,BFALSE);} 
return 
BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10400, BgL_ipz00_3516);} } } break;case 2L : 

{ /* Ieee/input.scm 412 */
 obj_t BgL_ipz00_3517;
BgL_ipz00_3517 = 
VECTOR_REF(BgL_opt1309z00_62,1L); 
{ /* Ieee/input.scm 412 */

{ /* Ieee/input.scm 412 */
 obj_t BgL_auxz00_10409;
if(
STRINGP(BgL_g1311z00_3513))
{ /* Ieee/input.scm 412 */
BgL_auxz00_10409 = BgL_g1311z00_3513
; }  else 
{ 
 obj_t BgL_auxz00_10412;
BgL_auxz00_10412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(15998L), BGl_string4349z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1311z00_3513); 
FAILURE(BgL_auxz00_10412,BFALSE,BFALSE);} 
return 
BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10409, BgL_ipz00_3517);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4347z00zz__r4_input_6_10_2z00, BGl_string4331z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1309z00_62)));} } } } 

}



/* 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_test5011z00_10422;
{ /* Ieee/input.scm 413 */
 long BgL_arg2610z00_3527;
BgL_arg2610z00_3527 = 
STRING_LENGTH(BgL_strz00_60); 
{ /* Ieee/input.scm 413 */
 obj_t BgL_inputzd2portzd2_5551;
if(
INPUT_PORTP(BgL_ipz00_61))
{ /* Ieee/input.scm 413 */
BgL_inputzd2portzd2_5551 = BgL_ipz00_61; }  else 
{ 
 obj_t BgL_auxz00_10426;
BgL_auxz00_10426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16117L), BGl_string4348z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_61); 
FAILURE(BgL_auxz00_10426,BFALSE,BFALSE);} 
BgL_test5011z00_10422 = 
rgc_buffer_insert_substring(BgL_inputzd2portzd2_5551, BgL_strz00_60, 0L, BgL_arg2610z00_3527); } } 
if(BgL_test5011z00_10422)
{ /* Ieee/input.scm 413 */
return BFALSE;}  else 
{ /* Ieee/input.scm 415 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2606z00_3521;
{ /* Ieee/input.scm 415 */
 BgL_z62iozd2errorzb0_bglt BgL_new1136z00_3522;
{ /* Ieee/input.scm 415 */
 BgL_z62iozd2errorzb0_bglt BgL_new1135z00_3525;
BgL_new1135z00_3525 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 415 */
 long BgL_arg2609z00_3526;
BgL_arg2609z00_3526 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1135z00_3525), BgL_arg2609z00_3526); } 
BgL_new1136z00_3522 = BgL_new1135z00_3525; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1136z00_3522)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1136z00_3522)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10439;
{ /* Ieee/input.scm 415 */
 obj_t BgL_arg2607z00_3523;
{ /* Ieee/input.scm 415 */
 obj_t BgL_arg2608z00_3524;
{ /* Ieee/input.scm 415 */
 obj_t BgL_classz00_5557;
BgL_classz00_5557 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2608z00_3524 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5557); } 
BgL_arg2607z00_3523 = 
VECTOR_REF(BgL_arg2608z00_3524,2L); } 
{ /* Ieee/input.scm 415 */
 obj_t BgL_auxz00_10443;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2607z00_3523))
{ /* Ieee/input.scm 415 */
BgL_auxz00_10443 = BgL_arg2607z00_3523
; }  else 
{ 
 obj_t BgL_auxz00_10446;
BgL_auxz00_10446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16168L), BGl_string4348z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2607z00_3523); 
FAILURE(BgL_auxz00_10446,BFALSE,BFALSE);} 
BgL_auxz00_10439 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10443); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1136z00_3522)))->BgL_stackz00)=((obj_t)BgL_auxz00_10439),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1136z00_3522)))->BgL_procz00)=((obj_t)BGl_symbol4347z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1136z00_3522)))->BgL_msgz00)=((obj_t)BGl_string4350z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1136z00_3522)))->BgL_objz00)=((obj_t)BgL_strz00_60),BUNSPEC); 
BgL_arg2606z00_3521 = BgL_new1136z00_3522; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2606z00_3521));} } } 

}



/* _unread-substring! */
obj_t BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1315z00_69, obj_t BgL_opt1314z00_68)
{
{ /* Ieee/input.scm 423 */
{ /* Ieee/input.scm 423 */
 obj_t BgL_g1316z00_3528; obj_t BgL_g1317z00_3529; obj_t BgL_g1318z00_3530;
BgL_g1316z00_3528 = 
VECTOR_REF(BgL_opt1314z00_68,0L); 
BgL_g1317z00_3529 = 
VECTOR_REF(BgL_opt1314z00_68,1L); 
BgL_g1318z00_3530 = 
VECTOR_REF(BgL_opt1314z00_68,2L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1314z00_68)) { case 3L : 

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

{ /* Ieee/input.scm 423 */
 long BgL_auxz00_10482; long BgL_auxz00_10473; obj_t BgL_auxz00_10466;
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_10483;
if(
INTEGERP(BgL_g1318z00_3530))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_10483 = BgL_g1318z00_3530
; }  else 
{ 
 obj_t BgL_auxz00_10486;
BgL_auxz00_10486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4353z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1318z00_3530); 
FAILURE(BgL_auxz00_10486,BFALSE,BFALSE);} 
BgL_auxz00_10482 = 
(long)CINT(BgL_tmpz00_10483); } 
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_10474;
if(
INTEGERP(BgL_g1317z00_3529))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_10474 = BgL_g1317z00_3529
; }  else 
{ 
 obj_t BgL_auxz00_10477;
BgL_auxz00_10477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4353z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1317z00_3529); 
FAILURE(BgL_auxz00_10477,BFALSE,BFALSE);} 
BgL_auxz00_10473 = 
(long)CINT(BgL_tmpz00_10474); } 
if(
STRINGP(BgL_g1316z00_3528))
{ /* Ieee/input.scm 423 */
BgL_auxz00_10466 = BgL_g1316z00_3528
; }  else 
{ 
 obj_t BgL_auxz00_10469;
BgL_auxz00_10469 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4353z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1316z00_3528); 
FAILURE(BgL_auxz00_10469,BFALSE,BFALSE);} 
return 
BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10466, BgL_auxz00_10473, BgL_auxz00_10482, BgL_ipz00_3533);} } } break;case 4L : 

{ /* Ieee/input.scm 423 */
 obj_t BgL_ipz00_3534;
BgL_ipz00_3534 = 
VECTOR_REF(BgL_opt1314z00_68,3L); 
{ /* Ieee/input.scm 423 */

{ /* Ieee/input.scm 423 */
 long BgL_auxz00_10509; long BgL_auxz00_10500; obj_t BgL_auxz00_10493;
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_10510;
if(
INTEGERP(BgL_g1318z00_3530))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_10510 = BgL_g1318z00_3530
; }  else 
{ 
 obj_t BgL_auxz00_10513;
BgL_auxz00_10513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4353z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1318z00_3530); 
FAILURE(BgL_auxz00_10513,BFALSE,BFALSE);} 
BgL_auxz00_10509 = 
(long)CINT(BgL_tmpz00_10510); } 
{ /* Ieee/input.scm 423 */
 obj_t BgL_tmpz00_10501;
if(
INTEGERP(BgL_g1317z00_3529))
{ /* Ieee/input.scm 423 */
BgL_tmpz00_10501 = BgL_g1317z00_3529
; }  else 
{ 
 obj_t BgL_auxz00_10504;
BgL_auxz00_10504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4353z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_g1317z00_3529); 
FAILURE(BgL_auxz00_10504,BFALSE,BFALSE);} 
BgL_auxz00_10500 = 
(long)CINT(BgL_tmpz00_10501); } 
if(
STRINGP(BgL_g1316z00_3528))
{ /* Ieee/input.scm 423 */
BgL_auxz00_10493 = BgL_g1316z00_3528
; }  else 
{ 
 obj_t BgL_auxz00_10496;
BgL_auxz00_10496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16490L), BGl_string4353z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_g1316z00_3528); 
FAILURE(BgL_auxz00_10496,BFALSE,BFALSE);} 
return 
BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(BgL_auxz00_10493, BgL_auxz00_10500, BgL_auxz00_10509, BgL_ipz00_3534);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4351z00zz__r4_input_6_10_2z00, BGl_string4341z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1314z00_68)));} } } } 

}



/* 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_test5020z00_10524;
if(
(BgL_toz00_66>=BgL_fromz00_65))
{ /* Ieee/input.scm 425 */
if(
(BgL_fromz00_65<0L))
{ /* Ieee/input.scm 426 */
BgL_test5020z00_10524 = ((bool_t)1)
; }  else 
{ /* Ieee/input.scm 426 */
BgL_test5020z00_10524 = 
(BgL_toz00_66>
STRING_LENGTH(BgL_strz00_64))
; } }  else 
{ /* Ieee/input.scm 425 */
BgL_test5020z00_10524 = ((bool_t)1)
; } 
if(BgL_test5020z00_10524)
{ /* Ieee/input.scm 428 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2617z00_3540;
{ /* Ieee/input.scm 428 */
 BgL_z62iozd2errorzb0_bglt BgL_new1139z00_3541;
{ /* Ieee/input.scm 428 */
 BgL_z62iozd2errorzb0_bglt BgL_new1138z00_3548;
BgL_new1138z00_3548 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 428 */
 long BgL_arg2625z00_3549;
BgL_arg2625z00_3549 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1138z00_3548), BgL_arg2625z00_3549); } 
BgL_new1139z00_3541 = BgL_new1138z00_3548; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1139z00_3541)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1139z00_3541)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10539;
{ /* Ieee/input.scm 428 */
 obj_t BgL_arg2618z00_3542;
{ /* Ieee/input.scm 428 */
 obj_t BgL_arg2619z00_3543;
{ /* Ieee/input.scm 428 */
 obj_t BgL_classz00_5569;
BgL_classz00_5569 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2619z00_3543 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5569); } 
BgL_arg2618z00_3542 = 
VECTOR_REF(BgL_arg2619z00_3543,2L); } 
{ /* Ieee/input.scm 428 */
 obj_t BgL_auxz00_10543;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2618z00_3542))
{ /* Ieee/input.scm 428 */
BgL_auxz00_10543 = BgL_arg2618z00_3542
; }  else 
{ 
 obj_t BgL_auxz00_10546;
BgL_auxz00_10546 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16684L), BGl_string4352z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2618z00_3542); 
FAILURE(BgL_auxz00_10546,BFALSE,BFALSE);} 
BgL_auxz00_10539 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10543); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1139z00_3541)))->BgL_stackz00)=((obj_t)BgL_auxz00_10539),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1139z00_3541)))->BgL_procz00)=((obj_t)BGl_symbol4351z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1139z00_3541)))->BgL_msgz00)=((obj_t)BGl_string4354z00zz__r4_input_6_10_2z00),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10556;
{ /* Ieee/input.scm 431 */
 long BgL_arg2621z00_3544;
BgL_arg2621z00_3544 = 
STRING_LENGTH(BgL_strz00_64); 
{ /* Ieee/input.scm 431 */
 obj_t BgL_list2622z00_3545;
{ /* Ieee/input.scm 431 */
 obj_t BgL_arg2623z00_3546;
{ /* Ieee/input.scm 431 */
 obj_t BgL_arg2624z00_3547;
BgL_arg2624z00_3547 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2621z00_3544), BNIL); 
BgL_arg2623z00_3546 = 
MAKE_YOUNG_PAIR(
BINT(BgL_toz00_66), BgL_arg2624z00_3547); } 
BgL_list2622z00_3545 = 
MAKE_YOUNG_PAIR(
BINT(BgL_fromz00_65), BgL_arg2623z00_3546); } 
BgL_auxz00_10556 = BgL_list2622z00_3545; } } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1139z00_3541)))->BgL_objz00)=((obj_t)BgL_auxz00_10556),BUNSPEC); } 
BgL_arg2617z00_3540 = BgL_new1139z00_3541; } 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2617z00_3540)); }  else 
{ /* Ieee/input.scm 425 */BFALSE; } } 
{ /* Ieee/input.scm 432 */
 bool_t BgL_test5024z00_10568;
{ /* Ieee/input.scm 432 */
 obj_t BgL_inputzd2portzd2_5573;
if(
INPUT_PORTP(BgL_ipz00_67))
{ /* Ieee/input.scm 432 */
BgL_inputzd2portzd2_5573 = BgL_ipz00_67; }  else 
{ 
 obj_t BgL_auxz00_10571;
BgL_auxz00_10571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16866L), BGl_string4352z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_67); 
FAILURE(BgL_auxz00_10571,BFALSE,BFALSE);} 
BgL_test5024z00_10568 = 
rgc_buffer_insert_substring(BgL_inputzd2portzd2_5573, BgL_strz00_64, BgL_fromz00_65, BgL_toz00_66); } 
if(BgL_test5024z00_10568)
{ /* Ieee/input.scm 432 */
return BFALSE;}  else 
{ /* Ieee/input.scm 433 */
 BgL_z62iozd2errorzb0_bglt BgL_arg2629z00_3554;
{ /* Ieee/input.scm 433 */
 BgL_z62iozd2errorzb0_bglt BgL_new1141z00_3555;
{ /* Ieee/input.scm 433 */
 BgL_z62iozd2errorzb0_bglt BgL_new1140z00_3558;
BgL_new1140z00_3558 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Ieee/input.scm 433 */
 long BgL_arg2632z00_3559;
BgL_arg2632z00_3559 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1140z00_3558), BgL_arg2632z00_3559); } 
BgL_new1141z00_3555 = BgL_new1140z00_3558; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1141z00_3555)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1141z00_3555)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_10584;
{ /* Ieee/input.scm 433 */
 obj_t BgL_arg2630z00_3556;
{ /* Ieee/input.scm 433 */
 obj_t BgL_arg2631z00_3557;
{ /* Ieee/input.scm 433 */
 obj_t BgL_classz00_5580;
BgL_classz00_5580 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg2631z00_3557 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5580); } 
BgL_arg2630z00_3556 = 
VECTOR_REF(BgL_arg2631z00_3557,2L); } 
{ /* Ieee/input.scm 433 */
 obj_t BgL_auxz00_10588;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2630z00_3556))
{ /* Ieee/input.scm 433 */
BgL_auxz00_10588 = BgL_arg2630z00_3556
; }  else 
{ 
 obj_t BgL_auxz00_10591;
BgL_auxz00_10591 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(16896L), BGl_string4352z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2630z00_3556); 
FAILURE(BgL_auxz00_10591,BFALSE,BFALSE);} 
BgL_auxz00_10584 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_10588); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1141z00_3555)))->BgL_stackz00)=((obj_t)BgL_auxz00_10584),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1141z00_3555)))->BgL_procz00)=((obj_t)BGl_symbol4355z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1141z00_3555)))->BgL_msgz00)=((obj_t)BGl_string4350z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1141z00_3555)))->BgL_objz00)=((obj_t)BgL_strz00_64),BUNSPEC); 
BgL_arg2629z00_3554 = BgL_new1141z00_3555; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2629z00_3554));} } } 

}



/* 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_3562;
BgL_resz00_3562 = BNIL; 
BgL_zc3z04anonymousza32633ze3z87_3563:
{ /* Ieee/input.scm 443 */
 obj_t BgL_expz00_3564;
BgL_expz00_3564 = 
BGl_z62zc3z04anonymousza31401ze3ze5zz__r4_input_6_10_2z00(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_ipz00_70); 
if(
EOF_OBJECTP(BgL_expz00_3564))
{ /* Ieee/input.scm 444 */
return 
bgl_reverse_bang(BgL_resz00_3562);}  else 
{ /* Ieee/input.scm 446 */
 obj_t BgL_arg2637z00_3566;
BgL_arg2637z00_3566 = 
MAKE_YOUNG_PAIR(BgL_expz00_3564, BgL_resz00_3562); 
{ 
 obj_t BgL_resz00_10613;
BgL_resz00_10613 = BgL_arg2637z00_3566; 
BgL_resz00_3562 = BgL_resz00_10613; 
goto BgL_zc3z04anonymousza32633ze3z87_3563;} } } } } 

}



/* &port->string-list */
obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t BgL_envz00_5997, obj_t BgL_ipz00_5998)
{
{ /* Ieee/input.scm 441 */
{ /* Ieee/input.scm 443 */
 obj_t BgL_auxz00_10614;
if(
INPUT_PORTP(BgL_ipz00_5998))
{ /* Ieee/input.scm 443 */
BgL_auxz00_10614 = BgL_ipz00_5998
; }  else 
{ 
 obj_t BgL_auxz00_10617;
BgL_auxz00_10617 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(17279L), BGl_string4357z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_5998); 
FAILURE(BgL_auxz00_10617,BFALSE,BFALSE);} 
return 
BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(BgL_auxz00_10614);} } 

}



/* %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_3569;
if(
(BgL_sza7za7_73==-1L))
{ /* Ieee/input.scm 458 */
BgL_bufsiza7eza7_3569 = 
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_3569 = default_io_bufsiz; }  else 
{ /* Ieee/input.scm 460 */
BgL_bufsiza7eza7_3569 = BgL_sza7za7_73; } } 
{ /* Ieee/input.scm 457 */
 obj_t BgL_bufz00_3570;
{ /* Ieee/string.scm 168 */

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

if(
(BgL_sza7za7_73<0L))
{ 
 long BgL_charszd2readzd2_3575;
{ /* Ieee/input.scm 468 */
 long BgL_tmpz00_10633;
BgL_charszd2readzd2_3575 = 0L; 
BgL_zc3z04anonymousza32640ze3z87_3576:
{ /* Ieee/input.scm 469 */
 obj_t BgL_nz00_3577;
BgL_nz00_3577 = 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_bufz00_3570, 
BINT(BgL_bufsiza7eza7_3569), BgL_ipz00_71); 
{ /* Ieee/input.scm 470 */
 bool_t BgL_test5033z00_10636;
{ /* Ieee/input.scm 470 */
 long BgL_n1z00_5588;
{ /* Ieee/input.scm 470 */
 obj_t BgL_tmpz00_10637;
if(
INTEGERP(BgL_nz00_3577))
{ /* Ieee/input.scm 470 */
BgL_tmpz00_10637 = BgL_nz00_3577
; }  else 
{ 
 obj_t BgL_auxz00_10640;
BgL_auxz00_10640 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18414L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3577); 
FAILURE(BgL_auxz00_10640,BFALSE,BFALSE);} 
BgL_n1z00_5588 = 
(long)CINT(BgL_tmpz00_10637); } 
BgL_test5033z00_10636 = 
(BgL_n1z00_5588==0L); } 
if(BgL_test5033z00_10636)
{ /* Ieee/input.scm 470 */
bgl_flush_output_port(BgL_opz00_72); 
BgL_tmpz00_10633 = BgL_charszd2readzd2_3575; }  else 
{ /* Ieee/input.scm 474 */
 obj_t BgL_sz00_3579;
{ /* Ieee/input.scm 474 */
 bool_t BgL_test5035z00_10647;
{ /* Ieee/input.scm 474 */
 long BgL_n1z00_5590;
{ /* Ieee/input.scm 474 */
 obj_t BgL_tmpz00_10648;
if(
INTEGERP(BgL_nz00_3577))
{ /* Ieee/input.scm 474 */
BgL_tmpz00_10648 = BgL_nz00_3577
; }  else 
{ 
 obj_t BgL_auxz00_10651;
BgL_auxz00_10651 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18509L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3577); 
FAILURE(BgL_auxz00_10651,BFALSE,BFALSE);} 
BgL_n1z00_5590 = 
(long)CINT(BgL_tmpz00_10648); } 
BgL_test5035z00_10647 = 
(BgL_n1z00_5590<BgL_bufsiza7eza7_3569); } 
if(BgL_test5035z00_10647)
{ /* Ieee/input.scm 474 */
 long BgL_auxz00_10657;
{ /* Ieee/input.scm 474 */
 obj_t BgL_tmpz00_10658;
if(
INTEGERP(BgL_nz00_3577))
{ /* Ieee/input.scm 474 */
BgL_tmpz00_10658 = BgL_nz00_3577
; }  else 
{ 
 obj_t BgL_auxz00_10661;
BgL_auxz00_10661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18520L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3577); 
FAILURE(BgL_auxz00_10661,BFALSE,BFALSE);} 
BgL_auxz00_10657 = 
(long)CINT(BgL_tmpz00_10658); } 
BgL_sz00_3579 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_bufz00_3570, 0L, BgL_auxz00_10657); }  else 
{ /* Ieee/input.scm 474 */
BgL_sz00_3579 = BgL_bufz00_3570; } } 
bgl_display_obj(BgL_sz00_3579, BgL_opz00_72); 
{ /* Ieee/input.scm 476 */
 long BgL_arg2643z00_3580;
{ /* Ieee/input.scm 476 */
 long BgL_za72za7_5593;
{ /* Ieee/input.scm 476 */
 obj_t BgL_tmpz00_10668;
if(
INTEGERP(BgL_nz00_3577))
{ /* Ieee/input.scm 476 */
BgL_tmpz00_10668 = BgL_nz00_3577
; }  else 
{ 
 obj_t BgL_auxz00_10671;
BgL_auxz00_10671 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18602L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3577); 
FAILURE(BgL_auxz00_10671,BFALSE,BFALSE);} 
BgL_za72za7_5593 = 
(long)CINT(BgL_tmpz00_10668); } 
BgL_arg2643z00_3580 = 
(BgL_charszd2readzd2_3575+BgL_za72za7_5593); } 
{ 
 long BgL_charszd2readzd2_10677;
BgL_charszd2readzd2_10677 = BgL_arg2643z00_3580; 
BgL_charszd2readzd2_3575 = BgL_charszd2readzd2_10677; 
goto BgL_zc3z04anonymousza32640ze3z87_3576;} } } } } 
return 
(int)(BgL_tmpz00_10633);} }  else 
{ 
 long BgL_charszd2readzd2_3584; long BgL_charszd2tozd2readz00_3585; long BgL_sza7za7_3586;
{ /* Ieee/input.scm 477 */
 long BgL_tmpz00_10679;
BgL_charszd2readzd2_3584 = 0L; 
BgL_charszd2tozd2readz00_3585 = BgL_bufsiza7eza7_3569; 
BgL_sza7za7_3586 = BgL_sza7za7_73; 
BgL_zc3z04anonymousza32645ze3z87_3587:
if(
(BgL_charszd2tozd2readz00_3585==0L))
{ /* Ieee/input.scm 480 */
BgL_tmpz00_10679 = BgL_charszd2readzd2_3584
; }  else 
{ /* Ieee/input.scm 482 */
 obj_t BgL_nz00_3589;
BgL_nz00_3589 = 
BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_bufz00_3570, 
BINT(BgL_charszd2tozd2readz00_3585), BgL_ipz00_71); 
{ /* Ieee/input.scm 483 */
 bool_t BgL_test5040z00_10684;
{ /* Ieee/input.scm 483 */
 long BgL_n1z00_5595;
{ /* Ieee/input.scm 483 */
 obj_t BgL_tmpz00_10685;
if(
INTEGERP(BgL_nz00_3589))
{ /* Ieee/input.scm 483 */
BgL_tmpz00_10685 = BgL_nz00_3589
; }  else 
{ 
 obj_t BgL_auxz00_10688;
BgL_auxz00_10688 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18796L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3589); 
FAILURE(BgL_auxz00_10688,BFALSE,BFALSE);} 
BgL_n1z00_5595 = 
(long)CINT(BgL_tmpz00_10685); } 
BgL_test5040z00_10684 = 
(BgL_n1z00_5595==0L); } 
if(BgL_test5040z00_10684)
{ /* Ieee/input.scm 483 */
bgl_flush_output_port(BgL_opz00_72); 
BgL_tmpz00_10679 = BgL_charszd2readzd2_3584; }  else 
{ /* Ieee/input.scm 487 */
 obj_t BgL_sz00_3591;
{ /* Ieee/input.scm 487 */
 bool_t BgL_test5042z00_10695;
{ /* Ieee/input.scm 487 */
 long BgL_n1z00_5597;
{ /* Ieee/input.scm 487 */
 obj_t BgL_tmpz00_10696;
if(
INTEGERP(BgL_nz00_3589))
{ /* Ieee/input.scm 487 */
BgL_tmpz00_10696 = BgL_nz00_3589
; }  else 
{ 
 obj_t BgL_auxz00_10699;
BgL_auxz00_10699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18879L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3589); 
FAILURE(BgL_auxz00_10699,BFALSE,BFALSE);} 
BgL_n1z00_5597 = 
(long)CINT(BgL_tmpz00_10696); } 
BgL_test5042z00_10695 = 
(BgL_n1z00_5597<BgL_bufsiza7eza7_3569); } 
if(BgL_test5042z00_10695)
{ /* Ieee/input.scm 487 */
 long BgL_auxz00_10705;
{ /* Ieee/input.scm 487 */
 obj_t BgL_tmpz00_10706;
if(
INTEGERP(BgL_nz00_3589))
{ /* Ieee/input.scm 487 */
BgL_tmpz00_10706 = BgL_nz00_3589
; }  else 
{ 
 obj_t BgL_auxz00_10709;
BgL_auxz00_10709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18890L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3589); 
FAILURE(BgL_auxz00_10709,BFALSE,BFALSE);} 
BgL_auxz00_10705 = 
(long)CINT(BgL_tmpz00_10706); } 
BgL_sz00_3591 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_bufz00_3570, 0L, BgL_auxz00_10705); }  else 
{ /* Ieee/input.scm 487 */
BgL_sz00_3591 = BgL_bufz00_3570; } } 
bgl_display_obj(BgL_sz00_3591, BgL_opz00_72); 
{ /* Ieee/input.scm 489 */
 long BgL_sza7za7_3592;
{ /* Ieee/input.scm 489 */
 long BgL_za72za7_5600;
{ /* Ieee/input.scm 489 */
 obj_t BgL_tmpz00_10716;
if(
INTEGERP(BgL_nz00_3589))
{ /* Ieee/input.scm 489 */
BgL_tmpz00_10716 = BgL_nz00_3589
; }  else 
{ 
 obj_t BgL_auxz00_10719;
BgL_auxz00_10719 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(18963L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3589); 
FAILURE(BgL_auxz00_10719,BFALSE,BFALSE);} 
BgL_za72za7_5600 = 
(long)CINT(BgL_tmpz00_10716); } 
BgL_sza7za7_3592 = 
(BgL_sza7za7_3586-BgL_za72za7_5600); } 
{ /* Ieee/input.scm 489 */
 long BgL_ctrz00_3593;
if(
(BgL_sza7za7_3592<BgL_bufsiza7eza7_3569))
{ /* Ieee/input.scm 490 */
BgL_ctrz00_3593 = BgL_sza7za7_3592; }  else 
{ /* Ieee/input.scm 490 */
BgL_ctrz00_3593 = BgL_bufsiza7eza7_3569; } 
{ /* Ieee/input.scm 490 */

{ /* Ieee/input.scm 491 */
 long BgL_arg2648z00_3594;
{ /* Ieee/input.scm 491 */
 long BgL_za72za7_5604;
{ /* Ieee/input.scm 491 */
 obj_t BgL_tmpz00_10727;
if(
INTEGERP(BgL_nz00_3589))
{ /* Ieee/input.scm 491 */
BgL_tmpz00_10727 = BgL_nz00_3589
; }  else 
{ 
 obj_t BgL_auxz00_10730;
BgL_auxz00_10730 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(19044L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_nz00_3589); 
FAILURE(BgL_auxz00_10730,BFALSE,BFALSE);} 
BgL_za72za7_5604 = 
(long)CINT(BgL_tmpz00_10727); } 
BgL_arg2648z00_3594 = 
(BgL_charszd2readzd2_3584+BgL_za72za7_5604); } 
{ 
 long BgL_sza7za7_10738; long BgL_charszd2tozd2readz00_10737; long BgL_charszd2readzd2_10736;
BgL_charszd2readzd2_10736 = BgL_arg2648z00_3594; 
BgL_charszd2tozd2readz00_10737 = BgL_ctrz00_3593; 
BgL_sza7za7_10738 = BgL_sza7za7_3592; 
BgL_sza7za7_3586 = BgL_sza7za7_10738; 
BgL_charszd2tozd2readz00_3585 = BgL_charszd2tozd2readz00_10737; 
BgL_charszd2readzd2_3584 = BgL_charszd2readzd2_10736; 
goto BgL_zc3z04anonymousza32645ze3z87_3587;} } } } } } } } 
return 
(int)(BgL_tmpz00_10679);} } } } } } 

}



/* 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_3602;
{ /* Ieee/string.scm 219 */

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

BgL_test5049z00_10745 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BGl_string4358z00zz__r4_input_6_10_2z00, BgL_pathz00_75, BFALSE, BFALSE, BFALSE, BFALSE); } 
if(BgL_test5049z00_10745)
{ /* Ieee/input.scm 504 */
 obj_t BgL_arg2654z00_3610;
BgL_arg2654z00_3610 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_pathz00_75, 5L, 
STRING_LENGTH(BgL_pathz00_75)); 
return 
bgl_file_to_string(
BSTRING_TO_STRING(BgL_arg2654z00_3610));}  else 
{ /* Ieee/input.scm 506 */
 obj_t BgL_ipz00_3612;
{ /* Ieee/port.scm 460 */

BgL_ipz00_3612 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_pathz00_75, BTRUE, 
BINT(5000000L)); } 
{ /* Ieee/input.scm 507 */
 obj_t BgL_exitd1143z00_3613;
BgL_exitd1143z00_3613 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Ieee/input.scm 509 */
 obj_t BgL_zc3z04anonymousza32656ze3z87_5999;
BgL_zc3z04anonymousza32656ze3z87_5999 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32656ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32656ze3z87_5999, 
(int)(0L), BgL_ipz00_3612); 
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3451z00_5607;
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3452z00_5608;
BgL_arg3452z00_5608 = 
BGL_EXITD_PROTECT(BgL_exitd1143z00_3613); 
BgL_arg3451z00_5607 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32656ze3z87_5999, BgL_arg3452z00_5608); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1143z00_3613, BgL_arg3451z00_5607); BUNSPEC; } 
{ /* Ieee/input.scm 508 */
 obj_t BgL_tmp1145z00_3615;
BgL_tmp1145z00_3615 = 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3612); 
{ /* Ieee/input.scm 507 */
 bool_t BgL_test5050z00_10763;
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3450z00_5610;
BgL_arg3450z00_5610 = 
BGL_EXITD_PROTECT(BgL_exitd1143z00_3613); 
BgL_test5050z00_10763 = 
PAIRP(BgL_arg3450z00_5610); } 
if(BgL_test5050z00_10763)
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3448z00_5611;
{ /* Ieee/input.scm 507 */
 obj_t BgL_arg3449z00_5612;
BgL_arg3449z00_5612 = 
BGL_EXITD_PROTECT(BgL_exitd1143z00_3613); 
{ /* Ieee/input.scm 507 */
 obj_t BgL_pairz00_5613;
if(
PAIRP(BgL_arg3449z00_5612))
{ /* Ieee/input.scm 507 */
BgL_pairz00_5613 = BgL_arg3449z00_5612; }  else 
{ 
 obj_t BgL_auxz00_10769;
BgL_auxz00_10769 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(19600L), BGl_string4359z00zz__r4_input_6_10_2z00, BGl_string4281z00zz__r4_input_6_10_2z00, BgL_arg3449z00_5612); 
FAILURE(BgL_auxz00_10769,BFALSE,BFALSE);} 
BgL_arg3448z00_5611 = 
CDR(BgL_pairz00_5613); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1143z00_3613, BgL_arg3448z00_5611); BUNSPEC; }  else 
{ /* Ieee/input.scm 507 */BFALSE; } } 
{ /* Ieee/input.scm 509 */
 obj_t BgL_portz00_5614;
if(
INPUT_PORTP(BgL_ipz00_3612))
{ /* Ieee/input.scm 509 */
BgL_portz00_5614 = BgL_ipz00_3612; }  else 
{ 
 obj_t BgL_auxz00_10777;
BgL_auxz00_10777 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(19663L), BGl_string4359z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_3612); 
FAILURE(BgL_auxz00_10777,BFALSE,BFALSE);} 
bgl_close_input_port(BgL_portz00_5614); } 
return BgL_tmp1145z00_3615;} } } } }  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_6000, obj_t BgL_pathz00_6001)
{
{ /* Ieee/input.scm 496 */
{ /* Ieee/input.scm 499 */
 obj_t BgL_auxz00_10784;
if(
STRINGP(BgL_pathz00_6001))
{ /* Ieee/input.scm 499 */
BgL_auxz00_10784 = BgL_pathz00_6001
; }  else 
{ 
 obj_t BgL_auxz00_10787;
BgL_auxz00_10787 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(19354L), BGl_string4360z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_pathz00_6001); 
FAILURE(BgL_auxz00_10787,BFALSE,BFALSE);} 
return 
BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(BgL_auxz00_10784);} } 

}



/* &<@anonymous:2656> */
obj_t BGl_z62zc3z04anonymousza32656ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6002)
{
{ /* Ieee/input.scm 507 */
{ /* Ieee/input.scm 509 */
 obj_t BgL_ipz00_6003;
BgL_ipz00_6003 = 
PROCEDURE_REF(BgL_envz00_6002, 
(int)(0L)); 
{ /* Ieee/input.scm 509 */
 obj_t BgL_portz00_6936;
if(
INPUT_PORTP(BgL_ipz00_6003))
{ /* Ieee/input.scm 509 */
BgL_portz00_6936 = BgL_ipz00_6003; }  else 
{ 
 obj_t BgL_auxz00_10796;
BgL_auxz00_10796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(19663L), BGl_string4361z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_6003); 
FAILURE(BgL_auxz00_10796,BFALSE,BFALSE);} 
return 
bgl_close_input_port(BgL_portz00_6936);} } } 

}



/* 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_3630; long BgL_offz00_3631;
BgL_sza7za7_3630 = 
(long)(BgL_siza7eza7_78); 
BgL_offz00_3631 = 
(long)(BgL_offsetz00_79); 
{ /* Ieee/input.scm 525 */
 obj_t BgL__ortest_1147z00_3632;
BgL__ortest_1147z00_3632 = 
bgl_sendchars(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_3630, BgL_offz00_3631); 
if(
CBOOL(BgL__ortest_1147z00_3632))
{ /* Ieee/input.scm 525 */
 obj_t BgL_tmpz00_10806;
if(
INTEGERP(BgL__ortest_1147z00_3632))
{ /* Ieee/input.scm 525 */
BgL_tmpz00_10806 = BgL__ortest_1147z00_3632
; }  else 
{ 
 obj_t BgL_auxz00_10809;
BgL_auxz00_10809 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20229L), BGl_string4362z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL__ortest_1147z00_3632); 
FAILURE(BgL_auxz00_10809,BFALSE,BFALSE);} 
return 
(long)CINT(BgL_tmpz00_10806);}  else 
{ /* Ieee/input.scm 527 */
 bool_t BgL_test5057z00_10814;
if(
INPUT_GZIP_PORTP(BgL_ipz00_76))
{ /* Ieee/input.scm 527 */
if(
(BgL_sza7za7_3630==-1L))
{ /* Ieee/input.scm 527 */
BgL_test5057z00_10814 = 
(BgL_offz00_3631==-1L)
; }  else 
{ /* Ieee/input.scm 527 */
BgL_test5057z00_10814 = ((bool_t)0)
; } }  else 
{ /* Ieee/input.scm 527 */
BgL_test5057z00_10814 = ((bool_t)0)
; } 
if(BgL_test5057z00_10814)
{ /* Ieee/input.scm 528 */
 obj_t BgL_tmpz00_10820;
{ /* Ieee/input.scm 528 */
 obj_t BgL_aux4147z00_6663;
BgL_aux4147z00_6663 = 
BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7(BgL_ipz00_76, BgL_opz00_77); 
if(
INTEGERP(BgL_aux4147z00_6663))
{ /* Ieee/input.scm 528 */
BgL_tmpz00_10820 = BgL_aux4147z00_6663
; }  else 
{ 
 obj_t BgL_auxz00_10824;
BgL_auxz00_10824 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20329L), BGl_string4362z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_aux4147z00_6663); 
FAILURE(BgL_auxz00_10824,BFALSE,BFALSE);} } 
return 
(long)CINT(BgL_tmpz00_10820);}  else 
{ /* Ieee/input.scm 527 */
return 
(long)(
BGl_z52sendcharsz52zz__r4_input_6_10_2z00(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_3630, BgL_offz00_3631));} } } } } 

}



/* &send-chars/size */
obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6004, obj_t BgL_ipz00_6005, obj_t BgL_opz00_6006, obj_t BgL_siza7eza7_6007, obj_t BgL_offsetz00_6008)
{
{ /* Ieee/input.scm 519 */
{ /* Ieee/input.scm 521 */
 long BgL_tmpz00_10831;
{ /* Ieee/input.scm 521 */
 long BgL_auxz00_10855; long BgL_auxz00_10846; obj_t BgL_auxz00_10839; obj_t BgL_auxz00_10832;
{ /* Ieee/input.scm 521 */
 obj_t BgL_tmpz00_10856;
if(
ELONGP(BgL_offsetz00_6008))
{ /* Ieee/input.scm 521 */
BgL_tmpz00_10856 = BgL_offsetz00_6008
; }  else 
{ 
 obj_t BgL_auxz00_10859;
BgL_auxz00_10859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4363z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_offsetz00_6008); 
FAILURE(BgL_auxz00_10859,BFALSE,BFALSE);} 
BgL_auxz00_10855 = 
BELONG_TO_LONG(BgL_tmpz00_10856); } 
{ /* Ieee/input.scm 521 */
 obj_t BgL_tmpz00_10847;
if(
ELONGP(BgL_siza7eza7_6007))
{ /* Ieee/input.scm 521 */
BgL_tmpz00_10847 = BgL_siza7eza7_6007
; }  else 
{ 
 obj_t BgL_auxz00_10850;
BgL_auxz00_10850 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4363z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_siza7eza7_6007); 
FAILURE(BgL_auxz00_10850,BFALSE,BFALSE);} 
BgL_auxz00_10846 = 
BELONG_TO_LONG(BgL_tmpz00_10847); } 
if(
OUTPUT_PORTP(BgL_opz00_6006))
{ /* Ieee/input.scm 521 */
BgL_auxz00_10839 = BgL_opz00_6006
; }  else 
{ 
 obj_t BgL_auxz00_10842;
BgL_auxz00_10842 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4363z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_opz00_6006); 
FAILURE(BgL_auxz00_10842,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_ipz00_6005))
{ /* Ieee/input.scm 521 */
BgL_auxz00_10832 = BgL_ipz00_6005
; }  else 
{ 
 obj_t BgL_auxz00_10835;
BgL_auxz00_10835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20115L), BGl_string4363z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_6005); 
FAILURE(BgL_auxz00_10835,BFALSE,BFALSE);} 
BgL_tmpz00_10831 = 
BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_auxz00_10832, BgL_auxz00_10839, BgL_auxz00_10846, BgL_auxz00_10855); } 
return 
BINT(BgL_tmpz00_10831);} } 

}



/* _send-chars */
obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_env1322z00_85, obj_t BgL_opt1321z00_84)
{
{ /* Ieee/input.scm 541 */
{ /* Ieee/input.scm 541 */
 obj_t BgL_g1323z00_3638; obj_t BgL_g1324z00_3639;
BgL_g1323z00_3638 = 
VECTOR_REF(BgL_opt1321z00_84,0L); 
BgL_g1324z00_3639 = 
VECTOR_REF(BgL_opt1321z00_84,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1321z00_84)) { case 2L : 

{ /* Ieee/input.scm 541 */

{ /* Ieee/input.scm 541 */
 long BgL_tmpz00_10868;
{ /* Ieee/input.scm 541 */
 obj_t BgL_auxz00_10876; obj_t BgL_auxz00_10869;
if(
OUTPUT_PORTP(BgL_g1324z00_3639))
{ /* Ieee/input.scm 541 */
BgL_auxz00_10876 = BgL_g1324z00_3639
; }  else 
{ 
 obj_t BgL_auxz00_10879;
BgL_auxz00_10879 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4369z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_g1324z00_3639); 
FAILURE(BgL_auxz00_10879,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_g1323z00_3638))
{ /* Ieee/input.scm 541 */
BgL_auxz00_10869 = BgL_g1323z00_3638
; }  else 
{ 
 obj_t BgL_auxz00_10872;
BgL_auxz00_10872 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4369z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_g1323z00_3638); 
FAILURE(BgL_auxz00_10872,BFALSE,BFALSE);} 
BgL_tmpz00_10868 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_10869, BgL_auxz00_10876, 
BINT(-1L), 
BINT(-1L)); } 
return 
BINT(BgL_tmpz00_10868);} } break;case 3L : 

{ /* Ieee/input.scm 541 */
 obj_t BgL_siza7eza7_3644;
BgL_siza7eza7_3644 = 
VECTOR_REF(BgL_opt1321z00_84,2L); 
{ /* Ieee/input.scm 541 */

{ /* Ieee/input.scm 541 */
 long BgL_tmpz00_10888;
{ /* Ieee/input.scm 541 */
 obj_t BgL_auxz00_10896; obj_t BgL_auxz00_10889;
if(
OUTPUT_PORTP(BgL_g1324z00_3639))
{ /* Ieee/input.scm 541 */
BgL_auxz00_10896 = BgL_g1324z00_3639
; }  else 
{ 
 obj_t BgL_auxz00_10899;
BgL_auxz00_10899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4369z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_g1324z00_3639); 
FAILURE(BgL_auxz00_10899,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_g1323z00_3638))
{ /* Ieee/input.scm 541 */
BgL_auxz00_10889 = BgL_g1323z00_3638
; }  else 
{ 
 obj_t BgL_auxz00_10892;
BgL_auxz00_10892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4369z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_g1323z00_3638); 
FAILURE(BgL_auxz00_10892,BFALSE,BFALSE);} 
BgL_tmpz00_10888 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_10889, BgL_auxz00_10896, BgL_siza7eza7_3644, 
BINT(-1L)); } 
return 
BINT(BgL_tmpz00_10888);} } } break;case 4L : 

{ /* Ieee/input.scm 541 */
 obj_t BgL_siza7eza7_3646;
BgL_siza7eza7_3646 = 
VECTOR_REF(BgL_opt1321z00_84,2L); 
{ /* Ieee/input.scm 541 */
 obj_t BgL_offsetz00_3647;
BgL_offsetz00_3647 = 
VECTOR_REF(BgL_opt1321z00_84,3L); 
{ /* Ieee/input.scm 541 */

{ /* Ieee/input.scm 541 */
 long BgL_tmpz00_10908;
{ /* Ieee/input.scm 541 */
 obj_t BgL_auxz00_10916; obj_t BgL_auxz00_10909;
if(
OUTPUT_PORTP(BgL_g1324z00_3639))
{ /* Ieee/input.scm 541 */
BgL_auxz00_10916 = BgL_g1324z00_3639
; }  else 
{ 
 obj_t BgL_auxz00_10919;
BgL_auxz00_10919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4369z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_g1324z00_3639); 
FAILURE(BgL_auxz00_10919,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_g1323z00_3638))
{ /* Ieee/input.scm 541 */
BgL_auxz00_10909 = BgL_g1323z00_3638
; }  else 
{ 
 obj_t BgL_auxz00_10912;
BgL_auxz00_10912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20782L), BGl_string4369z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_g1323z00_3638); 
FAILURE(BgL_auxz00_10912,BFALSE,BFALSE);} 
BgL_tmpz00_10908 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_10909, BgL_auxz00_10916, BgL_siza7eza7_3646, BgL_offsetz00_3647); } 
return 
BINT(BgL_tmpz00_10908);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4366z00zz__r4_input_6_10_2z00, BGl_string4368z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1321z00_84)));} } } } 

}



/* 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_3649; long BgL_offz00_3650;
if(
INTEGERP(BgL_siza7eza7_82))
{ /* Ieee/input.scm 544 */
 long BgL_tmpz00_10932;
BgL_tmpz00_10932 = 
(long)CINT(BgL_siza7eza7_82); 
BgL_sza7za7_3649 = 
(long)(BgL_tmpz00_10932); }  else 
{ /* Ieee/input.scm 544 */
if(
ELONGP(BgL_siza7eza7_82))
{ /* Ieee/input.scm 545 */
BgL_sza7za7_3649 = 
BELONG_TO_LONG(BgL_siza7eza7_82); }  else 
{ /* Ieee/input.scm 546 */
 obj_t BgL_tmpz00_10938;
{ /* Ieee/input.scm 546 */
 obj_t BgL_aux4168z00_6684;
BgL_aux4168z00_6684 = 
BGl_errorz00zz__errorz00(BGl_symbol4370z00zz__r4_input_6_10_2z00, BGl_string4372z00zz__r4_input_6_10_2z00, BgL_siza7eza7_82); 
if(
ELONGP(BgL_aux4168z00_6684))
{ /* Ieee/input.scm 546 */
BgL_tmpz00_10938 = BgL_aux4168z00_6684
; }  else 
{ 
 obj_t BgL_auxz00_10942;
BgL_auxz00_10942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(20996L), BGl_string4371z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_aux4168z00_6684); 
FAILURE(BgL_auxz00_10942,BFALSE,BFALSE);} } 
BgL_sza7za7_3649 = 
BELONG_TO_LONG(BgL_tmpz00_10938); } } 
if(
INTEGERP(BgL_offsetz00_83))
{ /* Ieee/input.scm 548 */
 long BgL_tmpz00_10949;
BgL_tmpz00_10949 = 
(long)CINT(BgL_offsetz00_83); 
BgL_offz00_3650 = 
(long)(BgL_tmpz00_10949); }  else 
{ /* Ieee/input.scm 548 */
if(
ELONGP(BgL_offsetz00_83))
{ /* Ieee/input.scm 549 */
BgL_offz00_3650 = 
BELONG_TO_LONG(BgL_offsetz00_83); }  else 
{ /* Ieee/input.scm 550 */
 obj_t BgL_tmpz00_10955;
{ /* Ieee/input.scm 550 */
 obj_t BgL_aux4170z00_6686;
BgL_aux4170z00_6686 = 
BGl_errorz00zz__errorz00(BGl_symbol4370z00zz__r4_input_6_10_2z00, BGl_string4373z00zz__r4_input_6_10_2z00, BgL_offsetz00_83); 
if(
ELONGP(BgL_aux4170z00_6686))
{ /* Ieee/input.scm 550 */
BgL_tmpz00_10955 = BgL_aux4170z00_6686
; }  else 
{ 
 obj_t BgL_auxz00_10959;
BgL_auxz00_10959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21141L), BGl_string4371z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_aux4170z00_6686); 
FAILURE(BgL_auxz00_10959,BFALSE,BFALSE);} } 
BgL_offz00_3650 = 
BELONG_TO_LONG(BgL_tmpz00_10955); } } 
return 
BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_ipz00_80, BgL_opz00_81, BgL_sza7za7_3649, BgL_offz00_3650);} } 

}



/* _send-file */
obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t BgL_env1328z00_91, obj_t BgL_opt1327z00_90)
{
{ /* Ieee/input.scm 556 */
{ /* Ieee/input.scm 556 */
 obj_t BgL_filez00_3655; obj_t BgL_opz00_3656;
BgL_filez00_3655 = 
VECTOR_REF(BgL_opt1327z00_90,0L); 
BgL_opz00_3656 = 
VECTOR_REF(BgL_opt1327z00_90,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1327z00_90)) { case 2L : 

{ /* Ieee/input.scm 556 */

{ /* Ieee/input.scm 556 */
 long BgL_tmpz00_10967;
{ /* Ieee/input.scm 556 */
 obj_t BgL_auxz00_10975; obj_t BgL_auxz00_10968;
if(
OUTPUT_PORTP(BgL_opz00_3656))
{ /* Ieee/input.scm 556 */
BgL_auxz00_10975 = BgL_opz00_3656
; }  else 
{ 
 obj_t BgL_auxz00_10978;
BgL_auxz00_10978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_opz00_3656); 
FAILURE(BgL_auxz00_10978,BFALSE,BFALSE);} 
if(
STRINGP(BgL_filez00_3655))
{ /* Ieee/input.scm 556 */
BgL_auxz00_10968 = BgL_filez00_3655
; }  else 
{ 
 obj_t BgL_auxz00_10971;
BgL_auxz00_10971 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_filez00_3655); 
FAILURE(BgL_auxz00_10971,BFALSE,BFALSE);} 
BgL_tmpz00_10967 = 
BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_auxz00_10968, BgL_auxz00_10975, ((long)-1), ((long)-1)); } 
return 
BINT(BgL_tmpz00_10967);} } break;case 3L : 

{ /* Ieee/input.scm 556 */
 obj_t BgL_siza7eza7_3661;
BgL_siza7eza7_3661 = 
VECTOR_REF(BgL_opt1327z00_90,2L); 
{ /* Ieee/input.scm 556 */

{ /* Ieee/input.scm 556 */
 long BgL_tmpz00_10985;
{ /* Ieee/input.scm 556 */
 long BgL_auxz00_11000; obj_t BgL_auxz00_10993; obj_t BgL_auxz00_10986;
{ /* Ieee/input.scm 556 */
 obj_t BgL_tmpz00_11001;
if(
ELONGP(BgL_siza7eza7_3661))
{ /* Ieee/input.scm 556 */
BgL_tmpz00_11001 = BgL_siza7eza7_3661
; }  else 
{ 
 obj_t BgL_auxz00_11004;
BgL_auxz00_11004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_siza7eza7_3661); 
FAILURE(BgL_auxz00_11004,BFALSE,BFALSE);} 
BgL_auxz00_11000 = 
BELONG_TO_LONG(BgL_tmpz00_11001); } 
if(
OUTPUT_PORTP(BgL_opz00_3656))
{ /* Ieee/input.scm 556 */
BgL_auxz00_10993 = BgL_opz00_3656
; }  else 
{ 
 obj_t BgL_auxz00_10996;
BgL_auxz00_10996 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_opz00_3656); 
FAILURE(BgL_auxz00_10996,BFALSE,BFALSE);} 
if(
STRINGP(BgL_filez00_3655))
{ /* Ieee/input.scm 556 */
BgL_auxz00_10986 = BgL_filez00_3655
; }  else 
{ 
 obj_t BgL_auxz00_10989;
BgL_auxz00_10989 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_filez00_3655); 
FAILURE(BgL_auxz00_10989,BFALSE,BFALSE);} 
BgL_tmpz00_10985 = 
BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_auxz00_10986, BgL_auxz00_10993, BgL_auxz00_11000, ((long)-1)); } 
return 
BINT(BgL_tmpz00_10985);} } } break;case 4L : 

{ /* Ieee/input.scm 556 */
 obj_t BgL_siza7eza7_3663;
BgL_siza7eza7_3663 = 
VECTOR_REF(BgL_opt1327z00_90,2L); 
{ /* Ieee/input.scm 556 */
 obj_t BgL_offsetz00_3664;
BgL_offsetz00_3664 = 
VECTOR_REF(BgL_opt1327z00_90,3L); 
{ /* Ieee/input.scm 556 */

{ /* Ieee/input.scm 556 */
 long BgL_tmpz00_11013;
{ /* Ieee/input.scm 556 */
 long BgL_auxz00_11037; long BgL_auxz00_11028; obj_t BgL_auxz00_11021; obj_t BgL_auxz00_11014;
{ /* Ieee/input.scm 556 */
 obj_t BgL_tmpz00_11038;
if(
ELONGP(BgL_offsetz00_3664))
{ /* Ieee/input.scm 556 */
BgL_tmpz00_11038 = BgL_offsetz00_3664
; }  else 
{ 
 obj_t BgL_auxz00_11041;
BgL_auxz00_11041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_offsetz00_3664); 
FAILURE(BgL_auxz00_11041,BFALSE,BFALSE);} 
BgL_auxz00_11037 = 
BELONG_TO_LONG(BgL_tmpz00_11038); } 
{ /* Ieee/input.scm 556 */
 obj_t BgL_tmpz00_11029;
if(
ELONGP(BgL_siza7eza7_3663))
{ /* Ieee/input.scm 556 */
BgL_tmpz00_11029 = BgL_siza7eza7_3663
; }  else 
{ 
 obj_t BgL_auxz00_11032;
BgL_auxz00_11032 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4365z00zz__r4_input_6_10_2z00, BgL_siza7eza7_3663); 
FAILURE(BgL_auxz00_11032,BFALSE,BFALSE);} 
BgL_auxz00_11028 = 
BELONG_TO_LONG(BgL_tmpz00_11029); } 
if(
OUTPUT_PORTP(BgL_opz00_3656))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11021 = BgL_opz00_3656
; }  else 
{ 
 obj_t BgL_auxz00_11024;
BgL_auxz00_11024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4364z00zz__r4_input_6_10_2z00, BgL_opz00_3656); 
FAILURE(BgL_auxz00_11024,BFALSE,BFALSE);} 
if(
STRINGP(BgL_filez00_3655))
{ /* Ieee/input.scm 556 */
BgL_auxz00_11014 = BgL_filez00_3655
; }  else 
{ 
 obj_t BgL_auxz00_11017;
BgL_auxz00_11017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21451L), BGl_string4376z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_filez00_3655); 
FAILURE(BgL_auxz00_11017,BFALSE,BFALSE);} 
BgL_tmpz00_11013 = 
BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_auxz00_11014, BgL_auxz00_11021, BgL_auxz00_11028, BgL_auxz00_11037); } 
return 
BINT(BgL_tmpz00_11013);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4374z00zz__r4_input_6_10_2z00, BGl_string4368z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1327z00_90)));} } } } 

}



/* 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_3666; long BgL_offz00_3667;
BgL_sza7za7_3666 = 
(long)(BgL_siza7eza7_88); 
BgL_offz00_3667 = 
(long)(BgL_offsetz00_89); 
{ /* Ieee/input.scm 564 */
 obj_t BgL__ortest_1150z00_3668;
BgL__ortest_1150z00_3668 = 
bgl_sendfile(BgL_filez00_86, BgL_opz00_87, 
(long)(BgL_siza7eza7_88), 
(long)(BgL_offsetz00_89)); 
if(
CBOOL(BgL__ortest_1150z00_3668))
{ /* Ieee/input.scm 564 */
 obj_t BgL_tmpz00_11060;
if(
INTEGERP(BgL__ortest_1150z00_3668))
{ /* Ieee/input.scm 564 */
BgL_tmpz00_11060 = BgL__ortest_1150z00_3668
; }  else 
{ 
 obj_t BgL_auxz00_11063;
BgL_auxz00_11063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21690L), BGl_string4377z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL__ortest_1150z00_3668); 
FAILURE(BgL_auxz00_11063,BFALSE,BFALSE);} 
return 
(long)CINT(BgL_tmpz00_11060);}  else 
{ /* Ieee/input.scm 565 */
 obj_t BgL_ipz00_3669;
{ /* Ieee/port.scm 460 */

BgL_ipz00_3669 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_filez00_86, BTRUE, 
BINT(5000000L)); } 
{ /* Ieee/input.scm 566 */
 obj_t BgL_exitd1151z00_3670;
BgL_exitd1151z00_3670 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Ieee/input.scm 568 */
 obj_t BgL_zc3z04anonymousza32670ze3z87_6009;
BgL_zc3z04anonymousza32670ze3z87_6009 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32670ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32670ze3z87_6009, 
(int)(0L), BgL_ipz00_3669); 
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3451z00_5624;
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3452z00_5625;
BgL_arg3452z00_5625 = 
BGL_EXITD_PROTECT(BgL_exitd1151z00_3670); 
BgL_arg3451z00_5624 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32670ze3z87_6009, BgL_arg3452z00_5625); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1151z00_3670, BgL_arg3451z00_5624); BUNSPEC; } 
{ /* Ieee/input.scm 567 */
 long BgL_tmp1153z00_3672;
{ /* Ieee/input.scm 567 */
 obj_t BgL_auxz00_11079;
if(
INPUT_PORTP(BgL_ipz00_3669))
{ /* Ieee/input.scm 567 */
BgL_auxz00_11079 = BgL_ipz00_3669
; }  else 
{ 
 obj_t BgL_auxz00_11082;
BgL_auxz00_11082 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21806L), BGl_string4377z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_3669); 
FAILURE(BgL_auxz00_11082,BFALSE,BFALSE);} 
BgL_tmp1153z00_3672 = 
BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_auxz00_11079, BgL_opz00_87, BgL_siza7eza7_88, BgL_offsetz00_89); } 
{ /* Ieee/input.scm 566 */
 bool_t BgL_test5089z00_11087;
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3450z00_5627;
BgL_arg3450z00_5627 = 
BGL_EXITD_PROTECT(BgL_exitd1151z00_3670); 
BgL_test5089z00_11087 = 
PAIRP(BgL_arg3450z00_5627); } 
if(BgL_test5089z00_11087)
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3448z00_5628;
{ /* Ieee/input.scm 566 */
 obj_t BgL_arg3449z00_5629;
BgL_arg3449z00_5629 = 
BGL_EXITD_PROTECT(BgL_exitd1151z00_3670); 
{ /* Ieee/input.scm 566 */
 obj_t BgL_pairz00_5630;
if(
PAIRP(BgL_arg3449z00_5629))
{ /* Ieee/input.scm 566 */
BgL_pairz00_5630 = BgL_arg3449z00_5629; }  else 
{ 
 obj_t BgL_auxz00_11093;
BgL_auxz00_11093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21767L), BGl_string4377z00zz__r4_input_6_10_2z00, BGl_string4281z00zz__r4_input_6_10_2z00, BgL_arg3449z00_5629); 
FAILURE(BgL_auxz00_11093,BFALSE,BFALSE);} 
BgL_arg3448z00_5628 = 
CDR(BgL_pairz00_5630); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1151z00_3670, BgL_arg3448z00_5628); BUNSPEC; }  else 
{ /* Ieee/input.scm 566 */BFALSE; } } 
{ /* Ieee/input.scm 568 */
 obj_t BgL_portz00_5631;
if(
INPUT_PORTP(BgL_ipz00_3669))
{ /* Ieee/input.scm 568 */
BgL_portz00_5631 = BgL_ipz00_3669; }  else 
{ 
 obj_t BgL_auxz00_11101;
BgL_auxz00_11101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21849L), BGl_string4377z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_3669); 
FAILURE(BgL_auxz00_11101,BFALSE,BFALSE);} 
bgl_close_input_port(BgL_portz00_5631); } 
return BgL_tmp1153z00_3672;} } } } } } } 

}



/* &<@anonymous:2670> */
obj_t BGl_z62zc3z04anonymousza32670ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6010)
{
{ /* Ieee/input.scm 566 */
{ /* Ieee/input.scm 568 */
 obj_t BgL_ipz00_6011;
BgL_ipz00_6011 = 
PROCEDURE_REF(BgL_envz00_6010, 
(int)(0L)); 
{ /* Ieee/input.scm 568 */
 obj_t BgL_portz00_6937;
if(
INPUT_PORTP(BgL_ipz00_6011))
{ /* Ieee/input.scm 568 */
BgL_portz00_6937 = BgL_ipz00_6011; }  else 
{ 
 obj_t BgL_auxz00_11110;
BgL_auxz00_11110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(21849L), BGl_string4378z00zz__r4_input_6_10_2z00, BGl_string4218z00zz__r4_input_6_10_2z00, BgL_ipz00_6011); 
FAILURE(BgL_auxz00_11110,BFALSE,BFALSE);} 
return 
bgl_close_input_port(BgL_portz00_6937);} } } 

}



/* 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_zc3z04anonymousza32673ze3z87_6012;
BgL_zc3z04anonymousza32673ze3z87_6012 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32673ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32673ze3z87_6012, 
(int)(0L), BgL_filez00_92); 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_filez00_92, BgL_zc3z04anonymousza32673ze3z87_6012);}  else 
{ /* Ieee/input.scm 601 */
return BFALSE;} } 

}



/* &file-lines */
obj_t BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00(obj_t BgL_envz00_6013, obj_t BgL_filez00_6014)
{
{ /* Ieee/input.scm 580 */
{ /* Ieee/input.scm 583 */
 obj_t BgL_auxz00_11124;
if(
STRINGP(BgL_filez00_6014))
{ /* Ieee/input.scm 583 */
BgL_auxz00_11124 = BgL_filez00_6014
; }  else 
{ 
 obj_t BgL_auxz00_11127;
BgL_auxz00_11127 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(22416L), BGl_string4379z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_filez00_6014); 
FAILURE(BgL_auxz00_11127,BFALSE,BFALSE);} 
return 
BGl_filezd2lineszd2zz__r4_input_6_10_2z00(BgL_auxz00_11124);} } 

}



/* &<@anonymous:2673> */
obj_t BGl_z62zc3z04anonymousza32673ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6015)
{
{ /* Ieee/input.scm 604 */
{ /* Ieee/input.scm 605 */
 obj_t BgL_filez00_6016;
BgL_filez00_6016 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_6015, 
(int)(0L))); 
{ 
 obj_t BgL_iportz00_6939; long BgL_startz00_6940; obj_t BgL_accz00_6941;
{ /* Ieee/input.scm 605 */
 obj_t BgL_arg2674z00_6989;
{ /* Ieee/input.scm 605 */
 obj_t BgL_tmpz00_11135;
BgL_tmpz00_11135 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2674z00_6989 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_11135); } 
BgL_iportz00_6939 = BgL_arg2674z00_6989; 
BgL_startz00_6940 = 0L; 
BgL_accz00_6941 = BNIL; 
{ 
 obj_t BgL_iportz00_6974; long BgL_lastzd2matchzd2_6975; long BgL_forwardz00_6976; long BgL_bufposz00_6977; obj_t BgL_iportz00_6966; long BgL_lastzd2matchzd2_6967; long BgL_forwardz00_6968; long BgL_bufposz00_6969; obj_t BgL_iportz00_6957; long BgL_lastzd2matchzd2_6958; long BgL_forwardz00_6959; long BgL_bufposz00_6960;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_6939))
{ /* Ieee/input.scm 583 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2676z00_6982;
{ /* Ieee/input.scm 583 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_6983;
{ /* Ieee/input.scm 583 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_6984;
BgL_new1045z00_6984 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 583 */
 long BgL_arg2679z00_6985;
BgL_arg2679z00_6985 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_6984), BgL_arg2679z00_6985); } 
BgL_new1046z00_6983 = BgL_new1045z00_6984; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_6983)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_6983)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11148;
{ /* Ieee/input.scm 583 */
 obj_t BgL_arg2677z00_6986;
{ /* Ieee/input.scm 583 */
 obj_t BgL_arg2678z00_6987;
{ /* Ieee/input.scm 583 */
 obj_t BgL_classz00_6988;
BgL_classz00_6988 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2678z00_6987 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_6988); } 
BgL_arg2677z00_6986 = 
VECTOR_REF(BgL_arg2678z00_6987,2L); } 
{ /* Ieee/input.scm 583 */
 obj_t BgL_auxz00_11152;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2677z00_6986))
{ /* Ieee/input.scm 583 */
BgL_auxz00_11152 = BgL_arg2677z00_6986
; }  else 
{ 
 obj_t BgL_auxz00_11155;
BgL_auxz00_11155 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(22416L), BGl_string4383z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2677z00_6986); 
FAILURE(BgL_auxz00_11155,BFALSE,BFALSE);} 
BgL_auxz00_11148 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_11152); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_6983)))->BgL_stackz00)=((obj_t)BgL_auxz00_11148),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_6983)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_6983)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_6983)))->BgL_objz00)=((obj_t)BgL_iportz00_6939),BUNSPEC); 
BgL_arg2676z00_6982 = BgL_new1046z00_6983; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2676z00_6982));}  else 
{ /* Ieee/input.scm 583 */
BgL_ignorez00_6942:
RGC_START_MATCH(BgL_iportz00_6939); 
{ /* Ieee/input.scm 583 */
 long BgL_matchz00_6947;
{ /* Ieee/input.scm 583 */
 long BgL_arg2831z00_6948; long BgL_arg2832z00_6949;
BgL_arg2831z00_6948 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6939); 
BgL_arg2832z00_6949 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6939); 
BgL_iportz00_6957 = BgL_iportz00_6939; 
BgL_lastzd2matchzd2_6958 = 2L; 
BgL_forwardz00_6959 = BgL_arg2831z00_6948; 
BgL_bufposz00_6960 = BgL_arg2832z00_6949; 
BgL_statezd20zd21155z00_6944:
if(
(BgL_forwardz00_6959==BgL_bufposz00_6960))
{ /* Ieee/input.scm 583 */
if(
rgc_fill_buffer(BgL_iportz00_6957))
{ /* Ieee/input.scm 583 */
 long BgL_arg2699z00_6961; long BgL_arg2701z00_6962;
BgL_arg2699z00_6961 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6957); 
BgL_arg2701z00_6962 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6957); 
{ 
 long BgL_bufposz00_11179; long BgL_forwardz00_11178;
BgL_forwardz00_11178 = BgL_arg2699z00_6961; 
BgL_bufposz00_11179 = BgL_arg2701z00_6962; 
BgL_bufposz00_6960 = BgL_bufposz00_11179; 
BgL_forwardz00_6959 = BgL_forwardz00_11178; 
goto BgL_statezd20zd21155z00_6944;} }  else 
{ /* Ieee/input.scm 583 */
BgL_matchz00_6947 = BgL_lastzd2matchzd2_6958; } }  else 
{ /* Ieee/input.scm 583 */
 int BgL_curz00_6963;
BgL_curz00_6963 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6957, BgL_forwardz00_6959); 
{ /* Ieee/input.scm 583 */

if(
(
(long)(BgL_curz00_6963)==10L))
{ /* Ieee/input.scm 583 */
 long BgL_arg2703z00_6964;
BgL_arg2703z00_6964 = 
(1L+BgL_forwardz00_6959); 
{ /* Ieee/input.scm 583 */
 long BgL_newzd2matchzd2_6965;
RGC_STOP_MATCH(BgL_iportz00_6957, BgL_arg2703z00_6964); 
BgL_newzd2matchzd2_6965 = 0L; 
BgL_matchz00_6947 = BgL_newzd2matchzd2_6965; } }  else 
{ /* Ieee/input.scm 583 */
BgL_iportz00_6966 = BgL_iportz00_6957; 
BgL_lastzd2matchzd2_6967 = BgL_lastzd2matchzd2_6958; 
BgL_forwardz00_6968 = 
(1L+BgL_forwardz00_6959); 
BgL_bufposz00_6969 = BgL_bufposz00_6960; 
BgL_statezd21zd21156z00_6945:
{ /* Ieee/input.scm 583 */
 long BgL_newzd2matchzd2_6970;
RGC_STOP_MATCH(BgL_iportz00_6966, BgL_forwardz00_6968); 
BgL_newzd2matchzd2_6970 = 1L; 
if(
(BgL_forwardz00_6968==BgL_bufposz00_6969))
{ /* Ieee/input.scm 583 */
if(
rgc_fill_buffer(BgL_iportz00_6966))
{ /* Ieee/input.scm 583 */
 long BgL_arg2692z00_6971; long BgL_arg2693z00_6972;
BgL_arg2692z00_6971 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6966); 
BgL_arg2693z00_6972 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6966); 
{ 
 long BgL_bufposz00_11194; long BgL_forwardz00_11193;
BgL_forwardz00_11193 = BgL_arg2692z00_6971; 
BgL_bufposz00_11194 = BgL_arg2693z00_6972; 
BgL_bufposz00_6969 = BgL_bufposz00_11194; 
BgL_forwardz00_6968 = BgL_forwardz00_11193; 
goto BgL_statezd21zd21156z00_6945;} }  else 
{ /* Ieee/input.scm 583 */
BgL_matchz00_6947 = BgL_newzd2matchzd2_6970; } }  else 
{ /* Ieee/input.scm 583 */
 int BgL_curz00_6973;
BgL_curz00_6973 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6966, BgL_forwardz00_6968); 
{ /* Ieee/input.scm 583 */

if(
(
(long)(BgL_curz00_6973)==10L))
{ /* Ieee/input.scm 583 */
BgL_matchz00_6947 = BgL_newzd2matchzd2_6970; }  else 
{ /* Ieee/input.scm 583 */
BgL_iportz00_6974 = BgL_iportz00_6966; 
BgL_lastzd2matchzd2_6975 = BgL_newzd2matchzd2_6970; 
BgL_forwardz00_6976 = 
(1L+BgL_forwardz00_6968); 
BgL_bufposz00_6977 = BgL_bufposz00_6969; 
BgL_statezd24zd21159z00_6946:
{ /* Ieee/input.scm 583 */
 long BgL_newzd2matchzd2_6978;
RGC_STOP_MATCH(BgL_iportz00_6974, BgL_forwardz00_6976); 
BgL_newzd2matchzd2_6978 = 1L; 
if(
(BgL_forwardz00_6976==BgL_bufposz00_6977))
{ /* Ieee/input.scm 583 */
if(
rgc_fill_buffer(BgL_iportz00_6974))
{ /* Ieee/input.scm 583 */
 long BgL_arg2684z00_6979; long BgL_arg2685z00_6980;
BgL_arg2684z00_6979 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6974); 
BgL_arg2685z00_6980 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6974); 
{ 
 long BgL_bufposz00_11207; long BgL_forwardz00_11206;
BgL_forwardz00_11206 = BgL_arg2684z00_6979; 
BgL_bufposz00_11207 = BgL_arg2685z00_6980; 
BgL_bufposz00_6977 = BgL_bufposz00_11207; 
BgL_forwardz00_6976 = BgL_forwardz00_11206; 
goto BgL_statezd24zd21159z00_6946;} }  else 
{ /* Ieee/input.scm 583 */
BgL_matchz00_6947 = BgL_newzd2matchzd2_6978; } }  else 
{ /* Ieee/input.scm 583 */
 int BgL_curz00_6981;
BgL_curz00_6981 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_6974, BgL_forwardz00_6976); 
{ /* Ieee/input.scm 583 */

if(
(
(long)(BgL_curz00_6981)==10L))
{ /* Ieee/input.scm 583 */
BgL_matchz00_6947 = BgL_newzd2matchzd2_6978; }  else 
{ 
 long BgL_forwardz00_11213; long BgL_lastzd2matchzd2_11212;
BgL_lastzd2matchzd2_11212 = BgL_newzd2matchzd2_6978; 
BgL_forwardz00_11213 = 
(1L+BgL_forwardz00_6976); 
BgL_forwardz00_6976 = BgL_forwardz00_11213; 
BgL_lastzd2matchzd2_6975 = BgL_lastzd2matchzd2_11212; 
goto BgL_statezd24zd21159z00_6946;} } } } } } } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_6939); 
switch( BgL_matchz00_6947) { case 2L : 

{ /* Ieee/input.scm 593 */
 obj_t BgL_cz00_6950;
{ /* Ieee/input.scm 583 */
 bool_t BgL_test5106z00_11218;
{ /* Ieee/input.scm 583 */
 long BgL_arg2807z00_6956;
BgL_arg2807z00_6956 = 
RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_6939); 
BgL_test5106z00_11218 = 
(BgL_arg2807z00_6956==0L); } 
if(BgL_test5106z00_11218)
{ /* Ieee/input.scm 583 */
BgL_cz00_6950 = BEOF; }  else 
{ /* Ieee/input.scm 583 */
BgL_cz00_6950 = 
BCHAR(
RGC_BUFFER_CHARACTER(BgL_iportz00_6939)); } } 
if(
EOF_OBJECTP(BgL_cz00_6950))
{ /* Ieee/input.scm 595 */
 long BgL_stopz00_6951;
BgL_stopz00_6951 = 
INPUT_PORT_FILEPOS(BgL_iportz00_6939); 
if(
(BgL_stopz00_6951>BgL_startz00_6940))
{ /* Ieee/input.scm 597 */
 obj_t BgL_arg2816z00_6952;
{ /* Ieee/input.scm 597 */
 obj_t BgL_arg2827z00_6953;
BgL_arg2827z00_6953 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_6940), 
BINT(BgL_stopz00_6951)); 
BgL_arg2816z00_6952 = 
MAKE_YOUNG_PAIR(BgL_arg2827z00_6953, BgL_accz00_6941); } 
return 
bgl_reverse_bang(BgL_arg2816z00_6952);}  else 
{ /* Ieee/input.scm 596 */
return 
bgl_reverse_bang(BgL_accz00_6941);} }  else 
{ /* Ieee/input.scm 594 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4380z00zz__r4_input_6_10_2z00, BGl_string4382z00zz__r4_input_6_10_2z00, BgL_filez00_6016);} } break;case 1L : 

goto BgL_ignorez00_6942;break;case 0L : 

{ /* Ieee/input.scm 585 */
 long BgL_stopz00_6954;
BgL_stopz00_6954 = 
INPUT_PORT_FILEPOS(BgL_iportz00_6939); 
{ /* Ieee/input.scm 585 */
 obj_t BgL_descz00_6955;
BgL_descz00_6955 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_6940), 
BINT(BgL_stopz00_6954)); 
{ /* Ieee/input.scm 586 */

BgL_startz00_6940 = 
(1L+BgL_stopz00_6954); 
BgL_accz00_6941 = 
MAKE_YOUNG_PAIR(BgL_descz00_6955, BgL_accz00_6941); 
goto BgL_ignorez00_6942;} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_6947));} } } } } } } } 

}



/* 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_5704; long BgL_linez00_5705;
BgL_flinesz00_5704 = BgL_fdescz00_94; 
BgL_linez00_5705 = 1L; 
BgL_loopz00_5703:
if(
NULLP(BgL_flinesz00_5704))
{ /* Ieee/input.scm 616 */
return BFALSE;}  else 
{ /* Ieee/input.scm 618 */
 bool_t BgL_test5111z00_11248;
{ /* Ieee/input.scm 618 */
 long BgL_n1z00_5713; long BgL_n2z00_5714;
BgL_n1z00_5713 = 
(long)(BgL_posz00_93); 
{ /* Ieee/input.scm 618 */
 obj_t BgL_pairz00_5709;
if(
PAIRP(BgL_flinesz00_5704))
{ /* Ieee/input.scm 618 */
BgL_pairz00_5709 = BgL_flinesz00_5704; }  else 
{ 
 obj_t BgL_auxz00_11252;
BgL_auxz00_11252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23446L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4281z00zz__r4_input_6_10_2z00, BgL_flinesz00_5704); 
FAILURE(BgL_auxz00_11252,BFALSE,BFALSE);} 
{ /* Ieee/input.scm 618 */
 obj_t BgL_pairz00_5712;
{ /* Ieee/input.scm 618 */
 obj_t BgL_aux4205z00_6721;
BgL_aux4205z00_6721 = 
CAR(BgL_pairz00_5709); 
if(
PAIRP(BgL_aux4205z00_6721))
{ /* Ieee/input.scm 618 */
BgL_pairz00_5712 = BgL_aux4205z00_6721; }  else 
{ 
 obj_t BgL_auxz00_11259;
BgL_auxz00_11259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23440L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4281z00zz__r4_input_6_10_2z00, BgL_aux4205z00_6721); 
FAILURE(BgL_auxz00_11259,BFALSE,BFALSE);} } 
{ /* Ieee/input.scm 618 */
 obj_t BgL_tmpz00_11263;
{ /* Ieee/input.scm 618 */
 obj_t BgL_aux4207z00_6723;
BgL_aux4207z00_6723 = 
CDR(BgL_pairz00_5712); 
if(
INTEGERP(BgL_aux4207z00_6723))
{ /* Ieee/input.scm 618 */
BgL_tmpz00_11263 = BgL_aux4207z00_6723
; }  else 
{ 
 obj_t BgL_auxz00_11267;
BgL_auxz00_11267 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23440L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_aux4207z00_6723); 
FAILURE(BgL_auxz00_11267,BFALSE,BFALSE);} } 
BgL_n2z00_5714 = 
(long)CINT(BgL_tmpz00_11263); } } } 
BgL_test5111z00_11248 = 
(BgL_n1z00_5713>=BgL_n2z00_5714); } 
if(BgL_test5111z00_11248)
{ /* Ieee/input.scm 619 */
 obj_t BgL_arg2838z00_5715; long BgL_arg2839z00_5716;
{ /* Ieee/input.scm 619 */
 obj_t BgL_pairz00_5717;
if(
PAIRP(BgL_flinesz00_5704))
{ /* Ieee/input.scm 619 */
BgL_pairz00_5717 = BgL_flinesz00_5704; }  else 
{ 
 obj_t BgL_auxz00_11275;
BgL_auxz00_11275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23473L), BGl_string4310z00zz__r4_input_6_10_2z00, BGl_string4281z00zz__r4_input_6_10_2z00, BgL_flinesz00_5704); 
FAILURE(BgL_auxz00_11275,BFALSE,BFALSE);} 
BgL_arg2838z00_5715 = 
CDR(BgL_pairz00_5717); } 
BgL_arg2839z00_5716 = 
(BgL_linez00_5705+1L); 
{ 
 long BgL_linez00_11282; obj_t BgL_flinesz00_11281;
BgL_flinesz00_11281 = BgL_arg2838z00_5715; 
BgL_linez00_11282 = BgL_arg2839z00_5716; 
BgL_linez00_5705 = BgL_linez00_11282; 
BgL_flinesz00_5704 = BgL_flinesz00_11281; 
goto BgL_loopz00_5703;} }  else 
{ /* Ieee/input.scm 618 */
return 
BINT(BgL_linez00_5705);} } }  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_zc3z04anonymousza32844ze3z87_6017;
BgL_zc3z04anonymousza32844ze3z87_6017 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32844ze3ze5zz__r4_input_6_10_2z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32844ze3z87_6017, 
(int)(0L), 
BINT(BgL_posz00_93)); 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_fdescz00_94, BgL_zc3z04anonymousza32844ze3z87_6017);}  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_6018, obj_t BgL_posz00_6019, obj_t BgL_fdescz00_6020)
{
{ /* Ieee/input.scm 610 */
{ /* Ieee/input.scm 612 */
 int BgL_auxz00_11296;
{ /* Ieee/input.scm 612 */
 obj_t BgL_tmpz00_11297;
if(
INTEGERP(BgL_posz00_6019))
{ /* Ieee/input.scm 612 */
BgL_tmpz00_11297 = BgL_posz00_6019
; }  else 
{ 
 obj_t BgL_auxz00_11300;
BgL_auxz00_11300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23319L), BGl_string4384z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_posz00_6019); 
FAILURE(BgL_auxz00_11300,BFALSE,BFALSE);} 
BgL_auxz00_11296 = 
CINT(BgL_tmpz00_11297); } 
return 
BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(BgL_auxz00_11296, BgL_fdescz00_6020);} } 

}



/* &<@anonymous:2844> */
obj_t BGl_z62zc3z04anonymousza32844ze3ze5zz__r4_input_6_10_2z00(obj_t BgL_envz00_6021)
{
{ /* Ieee/input.scm 637 */
{ /* Ieee/input.scm 638 */
 int BgL_posz00_6022;
{ /* Ieee/input.scm 638 */
 obj_t BgL_tmpz00_11306;
{ /* Ieee/input.scm 638 */
 obj_t BgL_aux4211z00_6727;
BgL_aux4211z00_6727 = 
PROCEDURE_REF(BgL_envz00_6021, 
(int)(0L)); 
if(
INTEGERP(BgL_aux4211z00_6727))
{ /* Ieee/input.scm 638 */
BgL_tmpz00_11306 = BgL_aux4211z00_6727
; }  else 
{ 
 obj_t BgL_auxz00_11311;
BgL_auxz00_11311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23928L), BGl_string4385z00zz__r4_input_6_10_2z00, BGl_string4333z00zz__r4_input_6_10_2z00, BgL_aux4211z00_6727); 
FAILURE(BgL_auxz00_11311,BFALSE,BFALSE);} } 
BgL_posz00_6022 = 
CINT(BgL_tmpz00_11306); } 
{ 
 obj_t BgL_iportz00_6991; obj_t BgL_posz00_6992; long BgL_linez00_6993;
{ /* Ieee/input.scm 638 */
 obj_t BgL_arg2845z00_7034;
{ /* Ieee/input.scm 638 */
 obj_t BgL_tmpz00_11316;
BgL_tmpz00_11316 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2845z00_7034 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_11316); } 
BgL_iportz00_6991 = BgL_arg2845z00_7034; 
BgL_posz00_6992 = 
BINT(BgL_posz00_6022); 
BgL_linez00_6993 = 1L; 
{ 
 obj_t BgL_iportz00_7019; long BgL_lastzd2matchzd2_7020; long BgL_forwardz00_7021; long BgL_bufposz00_7022; obj_t BgL_iportz00_7011; long BgL_lastzd2matchzd2_7012; long BgL_forwardz00_7013; long BgL_bufposz00_7014; obj_t BgL_iportz00_7002; long BgL_lastzd2matchzd2_7003; long BgL_forwardz00_7004; long BgL_bufposz00_7005;
if(
INPUT_PORT_CLOSEP(BgL_iportz00_6991))
{ /* Ieee/input.scm 623 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_arg2847z00_7027;
{ /* Ieee/input.scm 623 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1046z00_7028;
{ /* Ieee/input.scm 623 */
 BgL_z62iozd2closedzd2errorz62_bglt BgL_new1045z00_7029;
BgL_new1045z00_7029 = 
((BgL_z62iozd2closedzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2closedzd2errorz62_bgl) ))); 
{ /* Ieee/input.scm 623 */
 long BgL_arg2853z00_7030;
BgL_arg2853z00_7030 = 
BGL_CLASS_NUM(BGl_z62iozd2closedzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1045z00_7029), BgL_arg2853z00_7030); } 
BgL_new1046z00_7028 = BgL_new1045z00_7029; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7028)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7028)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_11329;
{ /* Ieee/input.scm 623 */
 obj_t BgL_arg2851z00_7031;
{ /* Ieee/input.scm 623 */
 obj_t BgL_arg2852z00_7032;
{ /* Ieee/input.scm 623 */
 obj_t BgL_classz00_7033;
BgL_classz00_7033 = BGl_z62iozd2closedzd2errorz62zz__objectz00; 
BgL_arg2852z00_7032 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_7033); } 
BgL_arg2851z00_7031 = 
VECTOR_REF(BgL_arg2852z00_7032,2L); } 
{ /* Ieee/input.scm 623 */
 obj_t BgL_auxz00_11333;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg2851z00_7031))
{ /* Ieee/input.scm 623 */
BgL_auxz00_11333 = BgL_arg2851z00_7031
; }  else 
{ 
 obj_t BgL_auxz00_11336;
BgL_auxz00_11336 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(23566L), BGl_string4383z00zz__r4_input_6_10_2z00, BGl_string4234z00zz__r4_input_6_10_2z00, BgL_arg2851z00_7031); 
FAILURE(BgL_auxz00_11336,BFALSE,BFALSE);} 
BgL_auxz00_11329 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_auxz00_11333); } } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1046z00_7028)))->BgL_stackz00)=((obj_t)BgL_auxz00_11329),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7028)))->BgL_procz00)=((obj_t)BGl_string4219z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7028)))->BgL_msgz00)=((obj_t)BGl_string4235z00zz__r4_input_6_10_2z00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1046z00_7028)))->BgL_objz00)=((obj_t)BgL_iportz00_6991),BUNSPEC); 
BgL_arg2847z00_7027 = BgL_new1046z00_7028; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg2847z00_7027));}  else 
{ /* Ieee/input.scm 623 */
BgL_ignorez00_6994:
RGC_START_MATCH(BgL_iportz00_6991); 
{ /* Ieee/input.scm 623 */
 long BgL_matchz00_6998;
{ /* Ieee/input.scm 623 */
 long BgL_arg3026z00_6999; long BgL_arg3027z00_7000;
BgL_arg3026z00_6999 = 
RGC_BUFFER_FORWARD(BgL_iportz00_6991); 
BgL_arg3027z00_7000 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_6991); 
BgL_iportz00_7002 = BgL_iportz00_6991; 
BgL_lastzd2matchzd2_7003 = 2L; 
BgL_forwardz00_7004 = BgL_arg3026z00_6999; 
BgL_bufposz00_7005 = BgL_arg3027z00_7000; 
BgL_statezd20zd21162z00_6995:
if(
(BgL_forwardz00_7004==BgL_bufposz00_7005))
{ /* Ieee/input.scm 623 */
if(
rgc_fill_buffer(BgL_iportz00_7002))
{ /* Ieee/input.scm 623 */
 long BgL_arg2876z00_7006; long BgL_arg2877z00_7007;
BgL_arg2876z00_7006 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7002); 
BgL_arg2877z00_7007 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7002); 
{ 
 long BgL_bufposz00_11360; long BgL_forwardz00_11359;
BgL_forwardz00_11359 = BgL_arg2876z00_7006; 
BgL_bufposz00_11360 = BgL_arg2877z00_7007; 
BgL_bufposz00_7005 = BgL_bufposz00_11360; 
BgL_forwardz00_7004 = BgL_forwardz00_11359; 
goto BgL_statezd20zd21162z00_6995;} }  else 
{ /* Ieee/input.scm 623 */
BgL_matchz00_6998 = BgL_lastzd2matchzd2_7003; } }  else 
{ /* Ieee/input.scm 623 */
 int BgL_curz00_7008;
BgL_curz00_7008 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7002, BgL_forwardz00_7004); 
{ /* Ieee/input.scm 623 */

if(
(
(long)(BgL_curz00_7008)==10L))
{ /* Ieee/input.scm 623 */
 long BgL_arg2881z00_7009;
BgL_arg2881z00_7009 = 
(1L+BgL_forwardz00_7004); 
{ /* Ieee/input.scm 623 */
 long BgL_newzd2matchzd2_7010;
RGC_STOP_MATCH(BgL_iportz00_7002, BgL_arg2881z00_7009); 
BgL_newzd2matchzd2_7010 = 0L; 
BgL_matchz00_6998 = BgL_newzd2matchzd2_7010; } }  else 
{ /* Ieee/input.scm 623 */
BgL_iportz00_7011 = BgL_iportz00_7002; 
BgL_lastzd2matchzd2_7012 = BgL_lastzd2matchzd2_7003; 
BgL_forwardz00_7013 = 
(1L+BgL_forwardz00_7004); 
BgL_bufposz00_7014 = BgL_bufposz00_7005; 
BgL_statezd21zd21163z00_6996:
{ /* Ieee/input.scm 623 */
 long BgL_newzd2matchzd2_7015;
RGC_STOP_MATCH(BgL_iportz00_7011, BgL_forwardz00_7013); 
BgL_newzd2matchzd2_7015 = 1L; 
if(
(BgL_forwardz00_7013==BgL_bufposz00_7014))
{ /* Ieee/input.scm 623 */
if(
rgc_fill_buffer(BgL_iportz00_7011))
{ /* Ieee/input.scm 623 */
 long BgL_arg2868z00_7016; long BgL_arg2870z00_7017;
BgL_arg2868z00_7016 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7011); 
BgL_arg2870z00_7017 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7011); 
{ 
 long BgL_bufposz00_11375; long BgL_forwardz00_11374;
BgL_forwardz00_11374 = BgL_arg2868z00_7016; 
BgL_bufposz00_11375 = BgL_arg2870z00_7017; 
BgL_bufposz00_7014 = BgL_bufposz00_11375; 
BgL_forwardz00_7013 = BgL_forwardz00_11374; 
goto BgL_statezd21zd21163z00_6996;} }  else 
{ /* Ieee/input.scm 623 */
BgL_matchz00_6998 = BgL_newzd2matchzd2_7015; } }  else 
{ /* Ieee/input.scm 623 */
 int BgL_curz00_7018;
BgL_curz00_7018 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7011, BgL_forwardz00_7013); 
{ /* Ieee/input.scm 623 */

if(
(
(long)(BgL_curz00_7018)==10L))
{ /* Ieee/input.scm 623 */
BgL_matchz00_6998 = BgL_newzd2matchzd2_7015; }  else 
{ /* Ieee/input.scm 623 */
BgL_iportz00_7019 = BgL_iportz00_7011; 
BgL_lastzd2matchzd2_7020 = BgL_newzd2matchzd2_7015; 
BgL_forwardz00_7021 = 
(1L+BgL_forwardz00_7013); 
BgL_bufposz00_7022 = BgL_bufposz00_7014; 
BgL_statezd24zd21166z00_6997:
{ /* Ieee/input.scm 623 */
 long BgL_newzd2matchzd2_7023;
RGC_STOP_MATCH(BgL_iportz00_7019, BgL_forwardz00_7021); 
BgL_newzd2matchzd2_7023 = 1L; 
if(
(BgL_forwardz00_7021==BgL_bufposz00_7022))
{ /* Ieee/input.scm 623 */
if(
rgc_fill_buffer(BgL_iportz00_7019))
{ /* Ieee/input.scm 623 */
 long BgL_arg2858z00_7024; long BgL_arg2859z00_7025;
BgL_arg2858z00_7024 = 
RGC_BUFFER_FORWARD(BgL_iportz00_7019); 
BgL_arg2859z00_7025 = 
RGC_BUFFER_BUFPOS(BgL_iportz00_7019); 
{ 
 long BgL_bufposz00_11388; long BgL_forwardz00_11387;
BgL_forwardz00_11387 = BgL_arg2858z00_7024; 
BgL_bufposz00_11388 = BgL_arg2859z00_7025; 
BgL_bufposz00_7022 = BgL_bufposz00_11388; 
BgL_forwardz00_7021 = BgL_forwardz00_11387; 
goto BgL_statezd24zd21166z00_6997;} }  else 
{ /* Ieee/input.scm 623 */
BgL_matchz00_6998 = BgL_newzd2matchzd2_7023; } }  else 
{ /* Ieee/input.scm 623 */
 int BgL_curz00_7026;
BgL_curz00_7026 = 
RGC_BUFFER_GET_CHAR(BgL_iportz00_7019, BgL_forwardz00_7021); 
{ /* Ieee/input.scm 623 */

if(
(
(long)(BgL_curz00_7026)==10L))
{ /* Ieee/input.scm 623 */
BgL_matchz00_6998 = BgL_newzd2matchzd2_7023; }  else 
{ 
 long BgL_forwardz00_11394; long BgL_lastzd2matchzd2_11393;
BgL_lastzd2matchzd2_11393 = BgL_newzd2matchzd2_7023; 
BgL_forwardz00_11394 = 
(1L+BgL_forwardz00_7021); 
BgL_forwardz00_7021 = BgL_forwardz00_11394; 
BgL_lastzd2matchzd2_7020 = BgL_lastzd2matchzd2_11393; 
goto BgL_statezd24zd21166z00_6997;} } } } } } } } } } } } 
RGC_SET_FILEPOS(BgL_iportz00_6991); 
switch( BgL_matchz00_6998) { case 2L : 

return BFALSE;break;case 1L : 

goto BgL_ignorez00_6994;break;case 0L : 

{ /* Ieee/input.scm 625 */
 bool_t BgL_test5131z00_11399;
{ /* Ieee/input.scm 625 */
 long BgL_arg3024z00_7001;
BgL_arg3024z00_7001 = 
INPUT_PORT_FILEPOS(BgL_iportz00_6991); 
BgL_test5131z00_11399 = 
(BgL_arg3024z00_7001>=
(long)CINT(BgL_posz00_6992)); } 
if(BgL_test5131z00_11399)
{ /* Ieee/input.scm 625 */
return 
BINT(BgL_linez00_6993);}  else 
{ /* Ieee/input.scm 625 */
BgL_linez00_6993 = 
(BgL_linez00_6993+1L); 
goto BgL_ignorez00_6994;} } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_string4219z00zz__r4_input_6_10_2z00, BGl_string4220z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_6998));} } } } } } } } 

}



/* _password */
obj_t BGl__passwordz00zz__r4_input_6_10_2z00(obj_t BgL_env1332z00_97, obj_t BgL_opt1331z00_96)
{
{ /* Ieee/input.scm 645 */
{ /* Ieee/input.scm 645 */

{ 

switch( 
VECTOR_LENGTH(BgL_opt1331z00_96)) { case 0L : 

{ /* Ieee/input.scm 645 */

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

{ /* Ieee/input.scm 645 */
 obj_t BgL_promptz00_7036;
BgL_promptz00_7036 = 
VECTOR_REF(BgL_opt1331z00_96,0L); 
{ /* Ieee/input.scm 645 */

{ /* Ieee/input.scm 645 */
 obj_t BgL_promptz00_7037;
if(
STRINGP(BgL_promptz00_7036))
{ /* Ieee/input.scm 645 */
BgL_promptz00_7037 = BgL_promptz00_7036; }  else 
{ 
 obj_t BgL_auxz00_11414;
BgL_auxz00_11414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4216z00zz__r4_input_6_10_2z00, 
BINT(24216L), BGl_string4388z00zz__r4_input_6_10_2z00, BGl_string4224z00zz__r4_input_6_10_2z00, BgL_promptz00_7036); 
FAILURE(BgL_auxz00_11414,BFALSE,BFALSE);} 
return 
bgl_password(
BSTRING_TO_STRING(BgL_promptz00_7037));} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4386z00zz__r4_input_6_10_2z00, BGl_string4288z00zz__r4_input_6_10_2z00, 
BINT(
VECTOR_LENGTH(BgL_opt1331z00_96)));} } } } 

}



/* 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_string4389z00zz__r4_input_6_10_2z00)); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(496722665L, 
BSTRING_TO_STRING(BGl_string4389z00zz__r4_input_6_10_2z00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string4389z00zz__r4_input_6_10_2z00)); 
return 
BGl_modulezd2initializa7ationz75zz__gunza7ipza7(224363699L, 
BSTRING_TO_STRING(BGl_string4389z00zz__r4_input_6_10_2z00));} 

}

#ifdef __cplusplus
}
#endif
