/*===========================================================================*/
/*   (Ieee/input.scm)                                                        */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/input.scm -indent -o objs/obj_s/Ieee/input.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <signal.h>

BGL_EXPORTED_DECL obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_list5070z00zz__r4_input_6_10_2z00 = BUNSPEC;
static long BGl_loopz00zz__r4_input_6_10_2z00(obj_t, obj_t, 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__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t bgl_sendchars(obj_t, obj_t, int);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_list4987z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t make_string(int, unsigned char);
static obj_t BGl_list4992z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31342za3Ieeezf2inputze2scmza398ze3z93zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
extern int rgc_blit_string(obj_t, obj_t, int, int);
static obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL int BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4999z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4996z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4994z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_thezd2failure_2700zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_thezd2failure_2689zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4993z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4991z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4990z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4989z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_thezd2failure_2694zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol4988z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_thezd2string_2706zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5087z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_thezd2string_2695zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5085z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2aboutzd2tozd2readza2z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5084z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5083z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_thezd2string_2701zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00();
static obj_t BGl_symbol5082z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_thezd2string_2690zd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5081z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4981z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5079z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4980z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol4979z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5078z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5076z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5075z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5073z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5071z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5068z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5067z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5065z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_symbol5064z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5062z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5061z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5058z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5055z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_ignore_2699z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5052z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_ignore_2705z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_ignore_2693z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5047z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5046z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5045z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5044z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_ignore_2688z00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5042z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5041z00zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5039z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__readzd2fillzd2stringz122711z12zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5036z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5035z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5034z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5032z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5031z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5029z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_thezd2stringzd2zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(int, obj_t);
static obj_t BGl_symbol5026z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5025z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_symbol5024z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_symbol5023z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5020z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5019z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5018z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5015z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5014z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5012z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5011z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5008z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00();
extern obj_t bgl_string_shrink(obj_t, int);
static obj_t BGl_symbol5006z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_symbol5004z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, int, obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_symbol5000z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__readzd2chars2709zd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t, int, int, obj_t);
static obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31716za3Ieeezf2inputze2scmza3185ze3z93zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
extern obj_t rgc_buffer_substring(obj_t, int, int);
static obj_t BGl_thezd2failurezd2zz__r4_input_6_10_2z00(obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
extern obj_t make_string_sans_fill(int);
static obj_t BGl_zc3anonymousza31049za3Ieeezf2inputze2scmza3194ze3z93zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl__sendzd2chars2713zd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31458za3Ieeezf2inputze2scmza3123ze3z93zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_list5010z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern int default_io_bufsiz;
extern bool_t rgc_fill_buffer(obj_t);
extern bool_t rgc_buffer_eof_p(obj_t);
static obj_t BGl_list5017z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_list5022z00zz__r4_input_6_10_2z00 = BUNSPEC;
extern bool_t bgl_rgc_charready(obj_t);
static obj_t BGl_list5028z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_ignorez00zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl_list5038z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31236za3Ieeezf2inputze2scmza389ze3z93zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t BGl_thezd2substringzd2zz__r4_input_6_10_2z00(obj_t, long, long);
static obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00();
extern int rgc_buffer_unget_char(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list5054z00zz__r4_input_6_10_2z00 = BUNSPEC;
static obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t, obj_t);
static obj_t BGl__readzf2rpzf2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STATIC_PROCEDURE( BGl_proc5063z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21014za700za7za7__r4_input_6_10_2za7005097z00, BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc5074z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21032za700za7za7__r4_input_6_10_2za7005098z00, BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2stringza7d2za7za7__r4_input_6_10_2za7005099za7, va_generic_entry, BGl__readzd2stringzd2zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00, BgL_bgl__readza7d2fillza7d2stringza7122711za712za7za7__r4_input_6_10_2za7005100za7, va_generic_entry, BGl__readzd2fillzd2stringz122711z12zz__r4_input_6_10_2z00, -4 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2charza7d2za7za7__r4_input_6_10_2za7005101za7, va_generic_entry, BGl__readzd2charzd2zz__r4_input_6_10_2z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_sendzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__sendza7d2chars2713za7d2za7za7__r4_input_6_10_2za7005102za7, va_generic_entry, BGl__sendzd2chars2713zd2zz__r4_input_6_10_2z00, -3 );
DEFINE_STRING( BGl_string4998z00zz__r4_input_6_10_2z00, BgL_bgl_string4998za700za7za7__r4_input_6_10_2za7005103z00, "Illegal match", 13 );
DEFINE_STRING( BGl_string4997z00zz__r4_input_6_10_2z00, BgL_bgl_string4997za700za7za7__r4_input_6_10_2za7005104z00, "regular-grammar", 15 );
DEFINE_EXPORT_PROCEDURE( BGl_peekzd2charzd2envz00zz__r4_input_6_10_2z00, BgL_bgl__peekza7d2charza7d2za7za7__r4_input_6_10_2za7005105za7, va_generic_entry, BGl__peekzd2charzd2zz__r4_input_6_10_2z00, -1 );
DEFINE_STRING( BGl_string5086z00zz__r4_input_6_10_2z00, BgL_bgl_string5086za700za7za7__r4_input_6_10_2za7005106z00, "output-port", 11 );
DEFINE_STRING( BGl_string4986z00zz__r4_input_6_10_2z00, BgL_bgl_string4986za700za7za7__r4_input_6_10_2za7005107z00, "ignore:Wrong number of arguments", 32 );
DEFINE_STRING( BGl_string4985z00zz__r4_input_6_10_2z00, BgL_bgl_string4985za700za7za7__r4_input_6_10_2za7005108z00, "long", 4 );
DEFINE_STRING( BGl_string4984z00zz__r4_input_6_10_2z00, BgL_bgl_string4984za700za7za7__r4_input_6_10_2za7005109z00, "procedure", 9 );
DEFINE_STRING( BGl_string4983z00zz__r4_input_6_10_2z00, BgL_bgl_string4983za700za7za7__r4_input_6_10_2za7005110z00, "/tmp/bigloo/runtime/./Ieee/input.scm", 36 );
DEFINE_STRING( BGl_string4982z00zz__r4_input_6_10_2z00, BgL_bgl_string4982za700za7za7__r4_input_6_10_2za7005111z00, "input-port", 10 );
DEFINE_STRING( BGl_string5080z00zz__r4_input_6_10_2z00, BgL_bgl_string5080za700za7za7__r4_input_6_10_2za7005112z00, "int", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl__readza7f2rpza7f2za7za7__r4_input_6_10_2za7005113za7, BGl__readzf2rpzf2zz__r4_input_6_10_2z00, 0L, 2 );
DEFINE_STRING( BGl_string5077z00zz__r4_input_6_10_2z00, BgL_bgl_string5077za700za7za7__r4_input_6_10_2za7005114z00, "read-of-strings:Wrong number of arguments", 41 );
DEFINE_STRING( BGl_string5069z00zz__r4_input_6_10_2z00, BgL_bgl_string5069za700za7za7__r4_input_6_10_2za7005115z00, "ignore_2705:Wrong number of arguments", 37 );
DEFINE_STRING( BGl_string5066z00zz__r4_input_6_10_2z00, BgL_bgl_string5066za700za7za7__r4_input_6_10_2za7005116z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string5060z00zz__r4_input_6_10_2z00, BgL_bgl_string5060za700za7za7__r4_input_6_10_2za7005117z00, "Illegal range", 13 );
DEFINE_STRING( BGl_string5059z00zz__r4_input_6_10_2z00, BgL_bgl_string5059za700za7za7__r4_input_6_10_2za7005118z00, "the-substring", 13 );
DEFINE_STRING( BGl_string5057z00zz__r4_input_6_10_2z00, BgL_bgl_string5057za700za7za7__r4_input_6_10_2za7005119z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2readyzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl__charza7d2readyza7f3za721za7za7__r4_input_6_10_2za7005120z00, va_generic_entry, BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00, -1 );
DEFINE_STRING( BGl_string5053z00zz__r4_input_6_10_2z00, BgL_bgl_string5053za700za7za7__r4_input_6_10_2za7005121z00, "ignore_2699:Wrong number of arguments", 37 );
DEFINE_STRING( BGl_string5051z00zz__r4_input_6_10_2z00, BgL_bgl_string5051za700za7za7__r4_input_6_10_2za7005122z00, "string-set!", 11 );
DEFINE_STRING( BGl_string5050z00zz__r4_input_6_10_2z00, BgL_bgl_string5050za700za7za7__r4_input_6_10_2za7005123z00, "bstring", 7 );
DEFINE_STRING( BGl_string5049z00zz__r4_input_6_10_2z00, BgL_bgl_string5049za700za7za7__r4_input_6_10_2za7005124z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string5048z00zz__r4_input_6_10_2z00, BgL_bgl_string5048za700za7za7__r4_input_6_10_2za7005125z00, "substring", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2linesza7d2za7za7__r4_input_6_10_2za7005126za7, va_generic_entry, BGl__readzd2lineszd2zz__r4_input_6_10_2z00, -1 );
DEFINE_STRING( BGl_string5037z00zz__r4_input_6_10_2z00, BgL_bgl_string5037za700za7za7__r4_input_6_10_2za7005127z00, "ignore_2693:Wrong number of arguments", 37 );
DEFINE_STRING( BGl_string5027z00zz__r4_input_6_10_2z00, BgL_bgl_string5027za700za7za7__r4_input_6_10_2za7005128z00, "ignore_2688:Wrong number of arguments", 37 );
DEFINE_STRING( BGl_string5021z00zz__r4_input_6_10_2z00, BgL_bgl_string5021za700za7za7__r4_input_6_10_2za7005129z00, "pair", 4 );
DEFINE_STRING( BGl_string5016z00zz__r4_input_6_10_2z00, BgL_bgl_string5016za700za7za7__r4_input_6_10_2za7005130z00, "read/lalrp:Wrong number of arguments", 36 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2lineza7d2za7za7__r4_input_6_10_2za7005131za7, va_generic_entry, BGl__readzd2linezd2zz__r4_input_6_10_2z00, -1 );
DEFINE_STRING( BGl_string5009z00zz__r4_input_6_10_2z00, BgL_bgl_string5009za700za7za7__r4_input_6_10_2za7005132z00, "read/rp:Wrong number of arguments", 33 );
DEFINE_STRING( BGl_string5007z00zz__r4_input_6_10_2z00, BgL_bgl_string5007za700za7za7__r4_input_6_10_2za7005133z00, "Can't read on a closed input port", 33 );
DEFINE_STRING( BGl_string5003z00zz__r4_input_6_10_2z00, BgL_bgl_string5003za700za7za7__r4_input_6_10_2za7005134z00, "uchar", 5 );
DEFINE_STRING( BGl_string5002z00zz__r4_input_6_10_2z00, BgL_bgl_string5002za700za7za7__r4_input_6_10_2za7005135z00, "index out of range", 18 );
DEFINE_STRING( BGl_string5001z00zz__r4_input_6_10_2z00, BgL_bgl_string5001za700za7za7__r4_input_6_10_2za7005136z00, "string-ref", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BgL_bgl__eofza7d2objectza7f3za721za7za7__r4_input_6_10_2za7005137z00, BGl__eofzd2objectzf3z21zz__r4_input_6_10_2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5005z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21038za700za7za7__r4_input_6_10_2za7005138z00, BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_readzf2lalrpzd2envz20zz__r4_input_6_10_2z00, BgL_bgl__readza7f2lalrpza7f2za7za7__r4_input_6_10_2za7005139za7, va_generic_entry, BGl__readzf2lalrpzf2zz__r4_input_6_10_2z00, -4 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00, BgL_bgl__readza7d2chars2709za7d2za7za7__r4_input_6_10_2za7005140za7, va_generic_entry, BGl__readzd2chars2709zd2zz__r4_input_6_10_2z00, -2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5033z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21003za700za7za7__r4_input_6_10_2za7005141z00, BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc5043z00zz__r4_input_6_10_2z00, BgL_bgl_stateza7d20za7d21009za700za7za7__r4_input_6_10_2za7005142z00, BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00, BgL_bgl__readza7d2ofza7d2stringsza700za7za7__r4_input_6_10_2za7005143z00, va_generic_entry, BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00, -1 );



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00()
{ AN_OBJECT;
{ /* ./Ieee/input.scm 14 */
BGl_symbol4979z00zz__r4_input_6_10_2z00 = 
string_to_symbol("%toplevel@__r4_input_6_10_2"); 
BGl_symbol4980z00zz__r4_input_6_10_2z00 = 
string_to_symbol("*read-of-strings-grammar*"); 
BGl_symbol4981z00zz__r4_input_6_10_2z00 = 
string_to_symbol("ignore"); 
BGl_symbol4988z00zz__r4_input_6_10_2z00 = 
string_to_symbol("funcall"); 
BGl_symbol4989z00zz__r4_input_6_10_2z00 = 
string_to_symbol("proc"); 
BGl_symbol4990z00zz__r4_input_6_10_2z00 = 
string_to_symbol("STATE-0-1038"); 
BGl_symbol4991z00zz__r4_input_6_10_2z00 = 
string_to_symbol("input-port"); 
BGl_symbol4993z00zz__r4_input_6_10_2z00 = 
string_to_symbol("box-ref"); 
BGl_symbol4994z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-rgc-context"); 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2575;
BgL_auxz00_2575 = 
MAKE_PAIR(BGl_symbol4994z00zz__r4_input_6_10_2z00, BNIL); 
BGl_list4992z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4993z00zz__r4_input_6_10_2z00, BgL_auxz00_2575); } 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2578;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2579;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2580;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2581;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2582;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2585;obj_t BgL_auxz00_2583;
BgL_auxz00_2585 = 
MAKE_PAIR(BGl_list4992z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2583 = 
BINT(((long)2)); 
BgL_auxz00_2582 = 
MAKE_PAIR(BgL_auxz00_2583, BgL_auxz00_2585); } 
BgL_auxz00_2581 = 
MAKE_PAIR(BGl_symbol4991z00zz__r4_input_6_10_2z00, BgL_auxz00_2582); } 
BgL_auxz00_2580 = 
MAKE_PAIR(BGl_symbol4990z00zz__r4_input_6_10_2z00, BgL_auxz00_2581); } 
BgL_auxz00_2579 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2580); } 
BgL_auxz00_2578 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2579); } 
BGl_list4987z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2578); } 
BGl_symbol4996z00zz__r4_input_6_10_2z00 = 
string_to_symbol("_"); 
BGl_symbol4999z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-string"); 
BGl_symbol5000z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-failure"); 
BGl_symbol5004z00zz__r4_input_6_10_2z00 = 
string_to_symbol("<anonymous:1049:Ieee/input.scm:194>:toplevel-init"); 
BGl_symbol5006z00zz__r4_input_6_10_2z00 = 
string_to_symbol("<anonymous:1049:Ieee/input.scm:194>"); 
BGl_symbol5008z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read/rp"); 
BGl_symbol5011z00zz__r4_input_6_10_2z00 = 
string_to_symbol("grammar"); 
BGl_symbol5012z00zz__r4_input_6_10_2z00 = 
string_to_symbol("port"); 
{ /* ./Ieee/input.scm 75 */
obj_t BgL_auxz00_2601;
{ /* ./Ieee/input.scm 75 */
obj_t BgL_auxz00_2602;
{ /* ./Ieee/input.scm 75 */
obj_t BgL_auxz00_2603;
{ /* ./Ieee/input.scm 75 */
obj_t BgL_auxz00_2604;
{ /* ./Ieee/input.scm 75 */
obj_t BgL_auxz00_2605;
BgL_auxz00_2605 = 
BBOOL(((bool_t)0)); 
BgL_auxz00_2604 = 
MAKE_PAIR(BgL_auxz00_2605, BNIL); } 
BgL_auxz00_2603 = 
MAKE_PAIR(BGl_symbol5012z00zz__r4_input_6_10_2z00, BgL_auxz00_2604); } 
BgL_auxz00_2602 = 
MAKE_PAIR(BGl_symbol5011z00zz__r4_input_6_10_2z00, BgL_auxz00_2603); } 
BgL_auxz00_2601 = 
MAKE_PAIR(BGl_symbol5011z00zz__r4_input_6_10_2z00, BgL_auxz00_2602); } 
BGl_list5010z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2601); } 
BGl_symbol5014z00zz__r4_input_6_10_2z00 = 
string_to_symbol("_read/rp"); 
BGl_symbol5015z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read/lalrp"); 
BGl_symbol5018z00zz__r4_input_6_10_2z00 = 
string_to_symbol("lalr"); 
BGl_symbol5019z00zz__r4_input_6_10_2z00 = 
string_to_symbol("rgc"); 
BGl_symbol5020z00zz__r4_input_6_10_2z00 = 
string_to_symbol("eof-object?-env"); 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2617;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2618;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2619;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2620;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2621;
BgL_auxz00_2621 = 
MAKE_PAIR(BGl_symbol5020z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2620 = 
MAKE_PAIR(BGl_symbol5012z00zz__r4_input_6_10_2z00, BgL_auxz00_2621); } 
BgL_auxz00_2619 = 
MAKE_PAIR(BGl_symbol5019z00zz__r4_input_6_10_2z00, BgL_auxz00_2620); } 
BgL_auxz00_2618 = 
MAKE_PAIR(BGl_symbol5018z00zz__r4_input_6_10_2z00, BgL_auxz00_2619); } 
BgL_auxz00_2617 = 
MAKE_PAIR(BGl_symbol5018z00zz__r4_input_6_10_2z00, BgL_auxz00_2618); } 
BGl_list5017z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2617); } 
BGl_symbol5023z00zz__r4_input_6_10_2z00 = 
string_to_symbol("arg1225"); 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2629;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2630;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2631;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2632;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_auxz00_2633;
BgL_auxz00_2633 = 
MAKE_PAIR(BGl_symbol5023z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2632 = 
MAKE_PAIR(BGl_symbol5012z00zz__r4_input_6_10_2z00, BgL_auxz00_2633); } 
BgL_auxz00_2631 = 
MAKE_PAIR(BGl_symbol5019z00zz__r4_input_6_10_2z00, BgL_auxz00_2632); } 
BgL_auxz00_2630 = 
MAKE_PAIR(BGl_symbol5018z00zz__r4_input_6_10_2z00, BgL_auxz00_2631); } 
BgL_auxz00_2629 = 
MAKE_PAIR(BGl_symbol5018z00zz__r4_input_6_10_2z00, BgL_auxz00_2630); } 
BGl_list5022z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2629); } 
BGl_symbol5024z00zz__r4_input_6_10_2z00 = 
string_to_symbol("_read/lalrp"); 
BGl_symbol5025z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-char"); 
BGl_symbol5026z00zz__r4_input_6_10_2z00 = 
string_to_symbol("ignore_2688"); 
BGl_symbol5029z00zz__r4_input_6_10_2z00 = 
string_to_symbol("STATE-0-1003"); 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2644;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2645;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2646;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2647;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2648;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_2651;obj_t BgL_auxz00_2649;
BgL_auxz00_2651 = 
MAKE_PAIR(BGl_list4992z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2649 = 
BINT(((long)1)); 
BgL_auxz00_2648 = 
MAKE_PAIR(BgL_auxz00_2649, BgL_auxz00_2651); } 
BgL_auxz00_2647 = 
MAKE_PAIR(BGl_symbol4991z00zz__r4_input_6_10_2z00, BgL_auxz00_2648); } 
BgL_auxz00_2646 = 
MAKE_PAIR(BGl_symbol5029z00zz__r4_input_6_10_2z00, BgL_auxz00_2647); } 
BgL_auxz00_2645 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2646); } 
BgL_auxz00_2644 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2645); } 
BGl_list5028z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2644); } 
BGl_symbol5031z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-failure_2689"); 
BGl_symbol5032z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-string_2690"); 
BGl_symbol5034z00zz__r4_input_6_10_2z00 = 
string_to_symbol("<anonymous:1236:Ieee/input.scm:89>"); 
BGl_symbol5035z00zz__r4_input_6_10_2z00 = 
string_to_symbol("peek-char"); 
BGl_symbol5036z00zz__r4_input_6_10_2z00 = 
string_to_symbol("ignore_2693"); 
BGl_symbol5039z00zz__r4_input_6_10_2z00 = 
string_to_symbol("STATE-0-1009"); 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2665;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2666;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2667;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2668;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2669;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_2672;obj_t BgL_auxz00_2670;
BgL_auxz00_2672 = 
MAKE_PAIR(BGl_list4992z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2670 = 
BINT(((long)1)); 
BgL_auxz00_2669 = 
MAKE_PAIR(BgL_auxz00_2670, BgL_auxz00_2672); } 
BgL_auxz00_2668 = 
MAKE_PAIR(BGl_symbol4991z00zz__r4_input_6_10_2z00, BgL_auxz00_2669); } 
BgL_auxz00_2667 = 
MAKE_PAIR(BGl_symbol5039z00zz__r4_input_6_10_2z00, BgL_auxz00_2668); } 
BgL_auxz00_2666 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2667); } 
BgL_auxz00_2665 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2666); } 
BGl_list5038z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2665); } 
BGl_symbol5041z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-failure_2694"); 
BGl_symbol5042z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-string_2695"); 
BGl_symbol5044z00zz__r4_input_6_10_2z00 = 
string_to_symbol("<anonymous:1342:Ieee/input.scm:98>"); 
BGl_symbol5045z00zz__r4_input_6_10_2z00 = 
string_to_symbol("eof-object?"); 
BGl_symbol5046z00zz__r4_input_6_10_2z00 = 
string_to_symbol("char-ready?"); 
BGl_symbol5047z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-line"); 
BGl_symbol5052z00zz__r4_input_6_10_2z00 = 
string_to_symbol("ignore_2699"); 
BGl_symbol5055z00zz__r4_input_6_10_2z00 = 
string_to_symbol("STATE-0-1014"); 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2688;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2689;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2690;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2691;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2692;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_2695;obj_t BgL_auxz00_2693;
BgL_auxz00_2695 = 
MAKE_PAIR(BGl_list4992z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2693 = 
BINT(((long)4)); 
BgL_auxz00_2692 = 
MAKE_PAIR(BgL_auxz00_2693, BgL_auxz00_2695); } 
BgL_auxz00_2691 = 
MAKE_PAIR(BGl_symbol4991z00zz__r4_input_6_10_2z00, BgL_auxz00_2692); } 
BgL_auxz00_2690 = 
MAKE_PAIR(BGl_symbol5055z00zz__r4_input_6_10_2z00, BgL_auxz00_2691); } 
BgL_auxz00_2689 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2690); } 
BgL_auxz00_2688 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2689); } 
BGl_list5054z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2688); } 
BGl_symbol5058z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-substring"); 
BGl_symbol5061z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-string_2701"); 
BGl_symbol5062z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-failure_2700"); 
BGl_symbol5064z00zz__r4_input_6_10_2z00 = 
string_to_symbol("<anonymous:1458:Ieee/input.scm:123>"); 
BGl_symbol5065z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-lines"); 
BGl_symbol5067z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-string"); 
BGl_symbol5068z00zz__r4_input_6_10_2z00 = 
string_to_symbol("ignore_2705"); 
BGl_symbol5071z00zz__r4_input_6_10_2z00 = 
string_to_symbol("STATE-0-1032"); 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2711;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2712;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2713;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2714;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2715;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_2718;obj_t BgL_auxz00_2716;
BgL_auxz00_2718 = 
MAKE_PAIR(BGl_list4992z00zz__r4_input_6_10_2z00, BNIL); 
BgL_auxz00_2716 = 
BINT(((long)1)); 
BgL_auxz00_2715 = 
MAKE_PAIR(BgL_auxz00_2716, BgL_auxz00_2718); } 
BgL_auxz00_2714 = 
MAKE_PAIR(BGl_symbol4991z00zz__r4_input_6_10_2z00, BgL_auxz00_2715); } 
BgL_auxz00_2713 = 
MAKE_PAIR(BGl_symbol5071z00zz__r4_input_6_10_2z00, BgL_auxz00_2714); } 
BgL_auxz00_2712 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2713); } 
BgL_auxz00_2711 = 
MAKE_PAIR(BGl_symbol4989z00zz__r4_input_6_10_2z00, BgL_auxz00_2712); } 
BGl_list5070z00zz__r4_input_6_10_2z00 = 
MAKE_PAIR(BGl_symbol4988z00zz__r4_input_6_10_2z00, BgL_auxz00_2711); } 
BGl_symbol5073z00zz__r4_input_6_10_2z00 = 
string_to_symbol("the-string_2706"); 
BGl_symbol5075z00zz__r4_input_6_10_2z00 = 
string_to_symbol("<anonymous:1716:Ieee/input.scm:185>"); 
BGl_symbol5076z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-of-strings"); 
BGl_symbol5078z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-chars"); 
BGl_symbol5079z00zz__r4_input_6_10_2z00 = 
string_to_symbol("_read-chars2709"); 
BGl_symbol5081z00zz__r4_input_6_10_2z00 = 
string_to_symbol("read-fill-string!"); 
BGl_symbol5082z00zz__r4_input_6_10_2z00 = 
string_to_symbol("_read-fill-string!2711"); 
BGl_symbol5083z00zz__r4_input_6_10_2z00 = 
string_to_symbol("send-chars"); 
BGl_symbol5084z00zz__r4_input_6_10_2z00 = 
string_to_symbol("loop"); 
BGl_symbol5085z00zz__r4_input_6_10_2z00 = 
string_to_symbol("_send-chars2713"); 
return ( 
BGl_symbol5087z00zz__r4_input_6_10_2z00 = 
string_to_symbol("%import@__r4_input_6_10_2"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00()
{ AN_OBJECT;
{ /* ./Ieee/input.scm 14 */
{ /* ./Ieee/input.scm 14 */
obj_t BgL_symbol2600z00_1952;
BgL_symbol2600z00_1952 = BGl_symbol4979z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 14 */

PUSH_TRACE(BgL_symbol2600z00_1952); BUNSPEC; 
{ /* ./Ieee/input.scm 14 */
obj_t BgL_aux2599z00_1953;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_symbol2592z00_1948;
BgL_symbol2592z00_1948 = BGl_symbol4980z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 194 */

PUSH_TRACE(BgL_symbol2592z00_1948); BUNSPEC; 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_aux2591z00_1949;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_thezd2rgczd2contextz00_367;
BgL_thezd2rgczd2contextz00_367 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_zc3anonymousza31049za3ieeezf2inputze2scmza3194ze3z93_1986;
{ 
int BgL_auxz00_2741;int BgL_auxz00_2739;
BgL_auxz00_2741 = 
(int)(((long)1)); 
BgL_auxz00_2739 = 
(int)(((long)2)); 
BgL_zc3anonymousza31049za3ieeezf2inputze2scmza3194ze3z93_1986 = 
make_fx_procedure(BGl_zc3anonymousza31049za3Ieeezf2inputze2scmza3194ze3z93zz__r4_input_6_10_2z00, BgL_auxz00_2739, BgL_auxz00_2741); } 
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2744;
BgL_auxz00_2744 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31049za3ieeezf2inputze2scmza3194ze3z93_1986, BgL_auxz00_2744, BgL_thezd2rgczd2contextz00_367); } 
BgL_aux2591z00_1949 = BgL_zc3anonymousza31049za3ieeezf2inputze2scmza3194ze3z93_1986; } } 
POP_TRACE(); 
BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00 = BgL_aux2591z00_1949; } } } 
BgL_aux2599z00_1953 = ( 
BGl_za2aboutzd2tozd2readza2z00zz__r4_input_6_10_2z00 = BUNSPEC, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux2599z00_1953;} } } } 
}



/* ignore */
obj_t BGl_ignorez00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21038z00_1990, obj_t BgL_thezd2rgczd2contextz00_1989, obj_t BgL_procz00_1988, obj_t BgL_inputzd2portzd2_1987)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
BGl_ignorez00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1281;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1987))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1281 = BgL_inputzd2portzd2_1987; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4981z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1987, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
RGC_START_MATCH(BgL_inputzd2portzd2_1281); } 
{ /* ./Ieee/input.scm 194 */
long BgL_matchz00_399;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1073z00_403;
BgL_test1073z00_403 = 
PROCEDUREP(BgL_procz00_1988); 
if(BgL_test1073z00_403)
{ /* ./Ieee/input.scm 194 */
obj_t BgL_funz00_2128;
if(BgL_test1073z00_403)
{ /* ./Ieee/input.scm 194 */
BgL_funz00_2128 = BgL_procz00_1988; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4981z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_procz00_1988, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2128, ((long)4)))
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2763;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_aux2740z00_2129;
BgL_aux2740z00_2129 = 
PROCEDURE_ENTRY(BgL_funz00_2128)(BgL_procz00_1988, BgL_statezd20zd21038z00_1990, BgL_inputzd2portzd2_1987, 
BINT(((long)2)), 
CELL_REF(BgL_thezd2rgczd2contextz00_1989), BEOA); 
if(
INTEGERP(BgL_aux2740z00_2129))
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2763 = BgL_aux2740z00_2129
; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4981z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux2740z00_2129, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} } 
BgL_matchz00_399 = 
(long)CINT(BgL_auxz00_2763); }  else 
{ /* ./Ieee/input.scm 194 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4986z00zz__r4_input_6_10_2z00, BGl_list4987z00zz__r4_input_6_10_2z00, BgL_funz00_2128, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2776;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_aux2758z00_2133;
BgL_aux2758z00_2133 = 
BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00(BgL_statezd20zd21038z00_1990, BgL_inputzd2portzd2_1987, 
BINT(((long)2)), 
CELL_REF(BgL_thezd2rgczd2contextz00_1989)); 
if(
INTEGERP(BgL_aux2758z00_2133))
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2776 = BgL_aux2758z00_2133
; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4981z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux2758z00_2133, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} } 
BgL_matchz00_399 = 
(long)CINT(BgL_auxz00_2776); } } 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1283;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1987))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1283 = BgL_inputzd2portzd2_1987; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4981z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1987, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1283); } 
switch( BgL_matchz00_399) { case ((long)2) : 

return 
BGl_thezd2failurezd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1987);break;case ((long)1) : 

return 
BGl_thezd2stringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1987);break;case ((long)0) : 

{ 

goto BGl_ignorez00zz__r4_input_6_10_2z00;} break;
default: 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string4998z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_399), BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518)));} } } 
}



/* the-string */
obj_t BGl_thezd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_1991)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
int BgL_arg1130z00_436;
{ /* ./Ieee/input.scm 194 */
int BgL_res2557z00_1308;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1307;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1991))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1307 = BgL_inputzd2portzd2_1991; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4999z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1991, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2802;
BgL_auxz00_2802 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1307); 
BgL_res2557z00_1308 = 
(int)(BgL_auxz00_2802); } } 
BgL_arg1130z00_436 = BgL_res2557z00_1308; } 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1309;int BgL_startz00_1310;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1991))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1309 = BgL_inputzd2portzd2_1991; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4999z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1991, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_startz00_1310 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_1309, BgL_startz00_1310, BgL_arg1130z00_436);} } } 
}



/* the-failure */
obj_t BGl_thezd2failurezd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_1992)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1086z00_413;
{ /* ./Ieee/input.scm 194 */
int BgL_arg1093z00_416;
{ /* ./Ieee/input.scm 194 */
int BgL_res2555z00_1294;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1293;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1992))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1293 = BgL_inputzd2portzd2_1992; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5000z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1992, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2817;
BgL_auxz00_2817 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1293); 
BgL_res2555z00_1294 = 
(int)(BgL_auxz00_2817); } } 
BgL_arg1093z00_416 = BgL_res2555z00_1294; } 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2820;
BgL_auxz00_2820 = 
(long)(BgL_arg1093z00_416); 
BgL_test1086z00_413 = 
(BgL_auxz00_2820==((long)0)); } } 
if(BgL_test1086z00_413)
{ /* ./Ieee/input.scm 194 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_arg1088z00_414;
BgL_arg1088z00_414 = 
BGl_thezd2stringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_1992); 
{ /* ./Ieee/input.scm 194 */
unsigned char BgL_res2556z00_1305;
{ /* ./Ieee/input.scm 194 */
int BgL_kz00_1298;
BgL_kz00_1298 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2826;
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2827;
BgL_auxz00_2827 = 
STRING_LENGTH(BgL_arg1088z00_414); 
BgL_testz00_2826 = 
BOUND_CHECK(BgL_kz00_1298, BgL_auxz00_2827); } 
if(BgL_testz00_2826)
{ /* ./Ieee/input.scm 194 */
BgL_res2556z00_1305 = 
STRING_REF(BgL_arg1088z00_414, BgL_kz00_1298); }  else 
{ /* ./Ieee/input.scm 194 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5001z00zz__r4_input_6_10_2z00, BGl_string5002z00zz__r4_input_6_10_2z00, 
BINT(BgL_kz00_1298), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_auxz00_2833;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_aux2833z00_2143;
BgL_aux2833z00_2143 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
if(
CHARP(BgL_aux2833z00_2143))
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2833 = BgL_aux2833z00_2143
; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5000z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_aux2833z00_2143, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} } 
BgL_res2556z00_1305 = 
(unsigned char)CCHAR(BgL_auxz00_2833); } } } } 
return 
BCHAR(BgL_res2556z00_1305);} } } } 
}



/* <anonymous:1049:Ieee/input.scm:194> */
obj_t BGl_zc3anonymousza31049za3Ieeezf2inputze2scmza3194ze3z93zz__r4_input_6_10_2z00(obj_t BgL_envz00_1993, obj_t BgL_inputzd2portzd2_1995, obj_t BgL_procz00_1996)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
obj_t BgL_thezd2rgczd2contextz00_1994;
{ /* ./Ieee/input.scm 194 */
int BgL_auxz00_2843;
BgL_auxz00_2843 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_1994 = 
PROCEDURE_REF(BgL_envz00_1993, BgL_auxz00_2843); } 
{ 
obj_t BgL_inputzd2portzd2_368;obj_t BgL_procz00_369;
BgL_inputzd2portzd2_368 = BgL_inputzd2portzd2_1995; 
BgL_procz00_369 = BgL_procz00_1996; 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_symbol2596z00_1950;
BgL_symbol2596z00_1950 = BGl_symbol5004z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 194 */

PUSH_TRACE(BgL_symbol2596z00_1950); BUNSPEC; 
{ /* ./Ieee/input.scm 194 */
obj_t BgL_aux2595z00_1951;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1050z00_393;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_arg1059z00_397;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_res2553z00_1275;
if(
INPUT_PORTP(BgL_inputzd2portzd2_368))
{ /* ./Ieee/input.scm 194 */
BgL_res2553z00_1275 = BgL_inputzd2portzd2_368; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5006z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_368, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_arg1059z00_397 = BgL_res2553z00_1275; } 
BgL_test1050z00_393 = 
!RGC_BUFFER(BgL_arg1059z00_397); } 
if(BgL_test1050z00_393)
{ /* ./Ieee/input.scm 194 */
obj_t BgL_arg1054z00_396;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_res2554z00_1277;
if(
INPUT_PORTP(BgL_inputzd2portzd2_368))
{ /* ./Ieee/input.scm 194 */
BgL_res2554z00_1277 = BgL_inputzd2portzd2_368; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5006z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_368, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_arg1054z00_396 = BgL_res2554z00_1277; } 
BgL_aux2595z00_1951 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string5007z00zz__r4_input_6_10_2z00, BgL_arg1054z00_396, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); }  else 
{ /* ./Ieee/input.scm 194 */
BgL_aux2595z00_1951 = 
BGl_ignorez00zz__r4_input_6_10_2z00(BGl_proc5005z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_1994, BgL_procz00_369, BgL_inputzd2portzd2_368); } } 
POP_TRACE(); 
return BgL_aux2595z00_1951;} } } } } } 
}



/* STATE-0-1038 */
obj_t BGl_STATEzd20zd21038z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_1997, obj_t BgL_inputzd2portzd2_1998, obj_t BgL_lastzd2matchzd2_1999, obj_t BgL_thezd2rgczd2contextz00_2000)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 194 */
{ 
obj_t BgL_inputzd2portzd2_463;obj_t BgL_lastzd2matchzd2_464;obj_t BgL_thezd2rgczd2contextz00_465;
BgL_inputzd2portzd2_463 = BgL_inputzd2portzd2_1998; 
BgL_lastzd2matchzd2_464 = BgL_lastzd2matchzd2_1999; 
BgL_thezd2rgczd2contextz00_465 = BgL_thezd2rgczd2contextz00_2000; 
BgL_zc3anonymousza31172za3ieeezf2inputze2scmza3194ze3z93_466:
{ 
obj_t BgL_inputzd2portzd2_474;obj_t BgL_lastzd2matchzd2_475;obj_t BgL_thezd2rgczd2contextz00_476;obj_t BgL_inputzd2portzd2_439;obj_t BgL_lastzd2matchzd2_440;obj_t BgL_thezd2rgczd2contextz00_441;obj_t BgL_inputzd2portzd2_451;long BgL_lastzd2matchzd2_452;obj_t BgL_thezd2rgczd2contextz00_453;obj_t BgL_inputzd2portzd2_485;long BgL_lastzd2matchzd2_486;obj_t BgL_thezd2rgczd2contextz00_487;
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_467;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1336;
if(
INPUT_PORTP(BgL_inputzd2portzd2_463))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1336 = BgL_inputzd2portzd2_463; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_463, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_currentzd2charzd2_467 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1336); } 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2869;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2870;
BgL_auxz00_2870 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_testz00_2869 = 
(BgL_auxz00_2870==((long)0)); } 
if(BgL_testz00_2869)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1174z00_469;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1339;
if(
INPUT_PORTP(BgL_inputzd2portzd2_463))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1339 = BgL_inputzd2portzd2_463; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_463, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_test1174z00_469 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1339); } 
if(BgL_test1174z00_469)
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1175z00_470;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1340;
if(
INPUT_PORTP(BgL_inputzd2portzd2_463))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1340 = BgL_inputzd2portzd2_463; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_463, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_test1175z00_470 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1340); } 
if(BgL_test1175z00_470)
{ 

goto BgL_zc3anonymousza31172za3ieeezf2inputze2scmza3194ze3z93_466;}  else 
{ /* ./Ieee/input.scm 194 */
return BgL_lastzd2matchzd2_464;} }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2887;
BgL_inputzd2portzd2_439 = BgL_inputzd2portzd2_463; 
BgL_lastzd2matchzd2_440 = BgL_lastzd2matchzd2_464; 
BgL_thezd2rgczd2contextz00_441 = BgL_thezd2rgczd2contextz00_465; 
BgL_zc3anonymousza31136za3ieeezf2inputze2scmza3194ze3z93_442:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_443;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1312;
if(
INPUT_PORTP(BgL_inputzd2portzd2_439))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1312 = BgL_inputzd2portzd2_439; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_439, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1312); } 
BgL_newzd2matchzd2_443 = ((long)1); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_444;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1313;
if(
INPUT_PORTP(BgL_inputzd2portzd2_439))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1313 = BgL_inputzd2portzd2_439; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_439, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_currentzd2charzd2_444 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1313); } 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2900;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2901;
BgL_auxz00_2901 = 
(long)(BgL_currentzd2charzd2_444); 
BgL_testz00_2900 = 
(BgL_auxz00_2901==((long)0)); } 
if(BgL_testz00_2900)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1138z00_446;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1316;
if(
INPUT_PORTP(BgL_inputzd2portzd2_439))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1316 = BgL_inputzd2portzd2_439; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_439, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_test1138z00_446 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1316); } 
if(BgL_test1138z00_446)
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1139z00_447;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1317;
if(
INPUT_PORTP(BgL_inputzd2portzd2_439))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1317 = BgL_inputzd2portzd2_439; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_439, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_test1139z00_447 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1317); } 
if(BgL_test1139z00_447)
{ 

goto BgL_zc3anonymousza31136za3ieeezf2inputze2scmza3194ze3z93_442;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2887 = BgL_newzd2matchzd2_443
; } }  else 
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_451 = BgL_inputzd2portzd2_439; 
BgL_lastzd2matchzd2_452 = BgL_newzd2matchzd2_443; 
BgL_thezd2rgczd2contextz00_453 = BgL_thezd2rgczd2contextz00_441; 
BgL_zc3anonymousza31154za3ieeezf2inputze2scmza3194ze3z93_454:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_455;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1324;
if(
INPUT_PORTP(BgL_inputzd2portzd2_451))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1324 = BgL_inputzd2portzd2_451; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_451, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1324); } 
BgL_newzd2matchzd2_455 = ((long)1); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_456;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1325;
if(
INPUT_PORTP(BgL_inputzd2portzd2_451))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1325 = BgL_inputzd2portzd2_451; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_451, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_currentzd2charzd2_456 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1325); } 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2930;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2931;
BgL_auxz00_2931 = 
(long)(BgL_currentzd2charzd2_456); 
BgL_testz00_2930 = 
(BgL_auxz00_2931==((long)0)); } 
if(BgL_testz00_2930)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1156z00_458;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1328;
if(
INPUT_PORTP(BgL_inputzd2portzd2_451))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1328 = BgL_inputzd2portzd2_451; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_451, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_test1156z00_458 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1328); } 
if(BgL_test1156z00_458)
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1157z00_459;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1329;
if(
INPUT_PORTP(BgL_inputzd2portzd2_451))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1329 = BgL_inputzd2portzd2_451; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_451, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_test1157z00_459 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1329); } 
if(BgL_test1157z00_459)
{ 

goto BgL_zc3anonymousza31154za3ieeezf2inputze2scmza3194ze3z93_454;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2887 = BgL_newzd2matchzd2_455
; } }  else 
{ 
long BgL_lastzd2matchzd2_2948;
BgL_lastzd2matchzd2_2948 = BgL_newzd2matchzd2_455; 
BgL_lastzd2matchzd2_452 = BgL_lastzd2matchzd2_2948; 
goto BgL_zc3anonymousza31154za3ieeezf2inputze2scmza3194ze3z93_454;} } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1162z00_460;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2949;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2950;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2951;
BgL_auxz00_2951 = 
(long)(BgL_currentzd2charzd2_456); 
BgL_testz00_2950 = 
(BgL_auxz00_2951==((long)10)); } 
if(BgL_testz00_2950)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2949 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2954;
BgL_auxz00_2954 = 
(long)(BgL_currentzd2charzd2_456); 
BgL_testz00_2949 = 
(BgL_auxz00_2954==((long)9)); } } 
if(BgL_testz00_2949)
{ /* ./Ieee/input.scm 194 */
BgL_test1162z00_460 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2957;
BgL_auxz00_2957 = 
(long)(BgL_currentzd2charzd2_456); 
BgL_test1162z00_460 = 
(BgL_auxz00_2957==((long)32)); } } 
if(BgL_test1162z00_460)
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2887 = BgL_newzd2matchzd2_455; }  else 
{ /* ./Ieee/input.scm 194 */
{ 
long BgL_lastzd2matchzd2_2961;
BgL_lastzd2matchzd2_2961 = BgL_newzd2matchzd2_455; 
BgL_lastzd2matchzd2_452 = BgL_lastzd2matchzd2_2961; 
goto BgL_zc3anonymousza31154za3ieeezf2inputze2scmza3194ze3z93_454;} } } } } } } } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1144z00_448;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2962;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2963;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2964;
BgL_auxz00_2964 = 
(long)(BgL_currentzd2charzd2_444); 
BgL_testz00_2963 = 
(BgL_auxz00_2964==((long)10)); } 
if(BgL_testz00_2963)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2962 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2967;
BgL_auxz00_2967 = 
(long)(BgL_currentzd2charzd2_444); 
BgL_testz00_2962 = 
(BgL_auxz00_2967==((long)9)); } } 
if(BgL_testz00_2962)
{ /* ./Ieee/input.scm 194 */
BgL_test1144z00_448 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2970;
BgL_auxz00_2970 = 
(long)(BgL_currentzd2charzd2_444); 
BgL_test1144z00_448 = 
(BgL_auxz00_2970==((long)32)); } } 
if(BgL_test1144z00_448)
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2887 = BgL_newzd2matchzd2_443; }  else 
{ /* ./Ieee/input.scm 194 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2976;long BgL_lastzd2matchzd2_2975;obj_t BgL_inputzd2portzd2_2974;
BgL_inputzd2portzd2_2974 = BgL_inputzd2portzd2_439; 
BgL_lastzd2matchzd2_2975 = BgL_newzd2matchzd2_443; 
BgL_thezd2rgczd2contextz00_2976 = BgL_thezd2rgczd2contextz00_441; 
BgL_thezd2rgczd2contextz00_453 = BgL_thezd2rgczd2contextz00_2976; 
BgL_lastzd2matchzd2_452 = BgL_lastzd2matchzd2_2975; 
BgL_inputzd2portzd2_451 = BgL_inputzd2portzd2_2974; 
goto BgL_zc3anonymousza31154za3ieeezf2inputze2scmza3194ze3z93_454;} } } } } } 
return 
BINT(BgL_auxz00_2887);} } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1180z00_471;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2978;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_2979;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2980;
BgL_auxz00_2980 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_testz00_2979 = 
(BgL_auxz00_2980==((long)10)); } 
if(BgL_testz00_2979)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_2978 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2983;
BgL_auxz00_2983 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_testz00_2978 = 
(BgL_auxz00_2983==((long)9)); } } 
if(BgL_testz00_2978)
{ /* ./Ieee/input.scm 194 */
BgL_test1180z00_471 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2986;
BgL_auxz00_2986 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_test1180z00_471 = 
(BgL_auxz00_2986==((long)32)); } } 
if(BgL_test1180z00_471)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_2990;
BgL_inputzd2portzd2_474 = BgL_inputzd2portzd2_463; 
BgL_lastzd2matchzd2_475 = BgL_lastzd2matchzd2_464; 
BgL_thezd2rgczd2contextz00_476 = BgL_thezd2rgczd2contextz00_465; 
BgL_zc3anonymousza31190za3ieeezf2inputze2scmza3194ze3z93_477:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_478;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1347;
if(
INPUT_PORTP(BgL_inputzd2portzd2_474))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1347 = BgL_inputzd2portzd2_474; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_474, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1347); } 
BgL_newzd2matchzd2_478 = ((long)0); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_479;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1348;
if(
INPUT_PORTP(BgL_inputzd2portzd2_474))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1348 = BgL_inputzd2portzd2_474; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_474, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_currentzd2charzd2_479 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1348); } 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_3003;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3004;
BgL_auxz00_3004 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_testz00_3003 = 
(BgL_auxz00_3004==((long)0)); } 
if(BgL_testz00_3003)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1192z00_481;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_res2558z00_1355;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1351;
if(
INPUT_PORTP(BgL_inputzd2portzd2_474))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1351 = BgL_inputzd2portzd2_474; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_474, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 194 */
bool_t BgL__andtest_1047z00_1352;
BgL__andtest_1047z00_1352 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1351); 
if(BgL__andtest_1047z00_1352)
{ /* ./Ieee/input.scm 194 */
BgL_res2558z00_1355 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1351); }  else 
{ /* ./Ieee/input.scm 194 */
BgL_res2558z00_1355 = ((bool_t)0); } } } 
BgL_test1192z00_481 = BgL_res2558z00_1355; } 
if(BgL_test1192z00_481)
{ 

goto BgL_zc3anonymousza31190za3ieeezf2inputze2scmza3194ze3z93_477;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2990 = BgL_newzd2matchzd2_478
; } } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1195z00_482;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_3016;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_3017;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3018;
BgL_auxz00_3018 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_testz00_3017 = 
(BgL_auxz00_3018==((long)10)); } 
if(BgL_testz00_3017)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_3016 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3021;
BgL_auxz00_3021 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_testz00_3016 = 
(BgL_auxz00_3021==((long)9)); } } 
if(BgL_testz00_3016)
{ /* ./Ieee/input.scm 194 */
BgL_test1195z00_482 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3024;
BgL_auxz00_3024 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_test1195z00_482 = 
(BgL_auxz00_3024==((long)32)); } } 
if(BgL_test1195z00_482)
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_485 = BgL_inputzd2portzd2_474; 
BgL_lastzd2matchzd2_486 = BgL_newzd2matchzd2_478; 
BgL_thezd2rgczd2contextz00_487 = BgL_thezd2rgczd2contextz00_476; 
BgL_zc3anonymousza31205za3ieeezf2inputze2scmza3194ze3z93_488:
{ /* ./Ieee/input.scm 194 */
long BgL_newzd2matchzd2_489;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1362;
if(
INPUT_PORTP(BgL_inputzd2portzd2_485))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1362 = BgL_inputzd2portzd2_485; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_485, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1362); } 
BgL_newzd2matchzd2_489 = ((long)0); 
{ /* ./Ieee/input.scm 194 */
int BgL_currentzd2charzd2_490;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1363;
if(
INPUT_PORTP(BgL_inputzd2portzd2_485))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1363 = BgL_inputzd2portzd2_485; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_485, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
BgL_currentzd2charzd2_490 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1363); } 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_3040;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3041;
BgL_auxz00_3041 = 
(long)(BgL_currentzd2charzd2_490); 
BgL_testz00_3040 = 
(BgL_auxz00_3041==((long)0)); } 
if(BgL_testz00_3040)
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1207z00_492;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_res2559z00_1370;
{ /* ./Ieee/input.scm 194 */
obj_t BgL_inputzd2portzd2_1366;
if(
INPUT_PORTP(BgL_inputzd2portzd2_485))
{ /* ./Ieee/input.scm 194 */
BgL_inputzd2portzd2_1366 = BgL_inputzd2portzd2_485; }  else 
{ /* ./Ieee/input.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4990z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_485, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7518))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 194 */
bool_t BgL__andtest_1047z00_1367;
BgL__andtest_1047z00_1367 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1366); 
if(BgL__andtest_1047z00_1367)
{ /* ./Ieee/input.scm 194 */
BgL_res2559z00_1370 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1366); }  else 
{ /* ./Ieee/input.scm 194 */
BgL_res2559z00_1370 = ((bool_t)0); } } } 
BgL_test1207z00_492 = BgL_res2559z00_1370; } 
if(BgL_test1207z00_492)
{ 

goto BgL_zc3anonymousza31205za3ieeezf2inputze2scmza3194ze3z93_488;}  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2990 = BgL_newzd2matchzd2_489
; } } }  else 
{ /* ./Ieee/input.scm 194 */
bool_t BgL_test1210z00_493;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_3053;
{ /* ./Ieee/input.scm 194 */
bool_t BgL_testz00_3054;
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3055;
BgL_auxz00_3055 = 
(long)(BgL_currentzd2charzd2_490); 
BgL_testz00_3054 = 
(BgL_auxz00_3055==((long)10)); } 
if(BgL_testz00_3054)
{ /* ./Ieee/input.scm 194 */
BgL_testz00_3053 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3058;
BgL_auxz00_3058 = 
(long)(BgL_currentzd2charzd2_490); 
BgL_testz00_3053 = 
(BgL_auxz00_3058==((long)9)); } } 
if(BgL_testz00_3053)
{ /* ./Ieee/input.scm 194 */
BgL_test1210z00_493 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3061;
BgL_auxz00_3061 = 
(long)(BgL_currentzd2charzd2_490); 
BgL_test1210z00_493 = 
(BgL_auxz00_3061==((long)32)); } } 
if(BgL_test1210z00_493)
{ /* ./Ieee/input.scm 194 */
{ 
long BgL_lastzd2matchzd2_3065;
BgL_lastzd2matchzd2_3065 = BgL_newzd2matchzd2_489; 
BgL_lastzd2matchzd2_486 = BgL_lastzd2matchzd2_3065; 
goto BgL_zc3anonymousza31205za3ieeezf2inputze2scmza3194ze3z93_488;} }  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2990 = BgL_newzd2matchzd2_489; } } } } } }  else 
{ /* ./Ieee/input.scm 194 */
BgL_auxz00_2990 = BgL_newzd2matchzd2_478; } } } } } 
return 
BINT(BgL_auxz00_2990);} }  else 
{ /* ./Ieee/input.scm 194 */
{ /* ./Ieee/input.scm 194 */
long BgL_auxz00_3067;
{ 
obj_t BgL_thezd2rgczd2contextz00_3070;obj_t BgL_lastzd2matchzd2_3069;obj_t BgL_inputzd2portzd2_3068;
BgL_inputzd2portzd2_3068 = BgL_inputzd2portzd2_463; 
BgL_lastzd2matchzd2_3069 = BgL_lastzd2matchzd2_464; 
BgL_thezd2rgczd2contextz00_3070 = BgL_thezd2rgczd2contextz00_465; 
BgL_thezd2rgczd2contextz00_441 = BgL_thezd2rgczd2contextz00_3070; 
BgL_lastzd2matchzd2_440 = BgL_lastzd2matchzd2_3069; 
BgL_inputzd2portzd2_439 = BgL_inputzd2portzd2_3068; 
goto BgL_zc3anonymousza31136za3ieeezf2inputze2scmza3194ze3z93_442;} 
return 
BINT(BgL_auxz00_3067);} } } } } } } } 
}



/* read/rp */
BGL_EXPORTED_DEF obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t BgL_grammarz00_1, obj_t BgL_portz00_2)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 74 */
{ /* ./Ieee/input.scm 75 */
obj_t BgL_symbol2604z00_2517;
BgL_symbol2604z00_2517 = BGl_symbol5008z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 75 */

PUSH_TRACE(BgL_symbol2604z00_2517); BUNSPEC; 
{ /* ./Ieee/input.scm 75 */
obj_t BgL_aux2603z00_2518;
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_1, ((long)2)))
{ /* ./Ieee/input.scm 75 */
BgL_aux2603z00_2518 = 
PROCEDURE_ENTRY(BgL_grammarz00_1)(BgL_grammarz00_1, BgL_portz00_2, BFALSE, BEOA); }  else 
{ /* ./Ieee/input.scm 75 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5009z00zz__r4_input_6_10_2z00, BGl_list5010z00zz__r4_input_6_10_2z00, BgL_grammarz00_1, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)2868))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} 
POP_TRACE(); 
return BgL_aux2603z00_2518;} } } } 
}



/* _read/rp */
obj_t BGl__readzf2rpzf2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2001, obj_t BgL_grammarz00_2002, obj_t BgL_portz00_2003)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 74 */
{ /* ./Ieee/input.scm 75 */
obj_t BgL_grammarz00_2519;obj_t BgL_portz00_2520;
if(
PROCEDUREP(BgL_grammarz00_2002))
{ /* ./Ieee/input.scm 75 */
BgL_grammarz00_2519 = BgL_grammarz00_2002; }  else 
{ /* ./Ieee/input.scm 75 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5014z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_grammarz00_2002, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)2868))); 
exit( -1 );} 
if(
INPUT_PORTP(BgL_portz00_2003))
{ /* ./Ieee/input.scm 75 */
BgL_portz00_2520 = BgL_portz00_2003; }  else 
{ /* ./Ieee/input.scm 75 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5014z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_2003, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)2868))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 75 */
obj_t BgL_symbol2604z00_2521;
BgL_symbol2604z00_2521 = BGl_symbol5008z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 75 */

PUSH_TRACE(BgL_symbol2604z00_2521); BUNSPEC; 
{ /* ./Ieee/input.scm 75 */
obj_t BgL_aux2603z00_2522;
if(
PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_2519, ((long)2)))
{ /* ./Ieee/input.scm 75 */
BgL_aux2603z00_2522 = 
PROCEDURE_ENTRY(BgL_grammarz00_2519)(BgL_grammarz00_2519, BgL_portz00_2520, BFALSE, BEOA); }  else 
{ /* ./Ieee/input.scm 75 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5009z00zz__r4_input_6_10_2z00, BGl_list5010z00zz__r4_input_6_10_2z00, BgL_grammarz00_2519, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)2868))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} 
POP_TRACE(); 
return BgL_aux2603z00_2522;} } } } } 
}



/* read/lalrp */
BGL_EXPORTED_DEF obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t BgL_lalrz00_3, obj_t BgL_rgcz00_4, obj_t BgL_portz00_5, obj_t BgL_eofzd2funzf3z21_6)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 80 */
{ /* ./Ieee/input.scm 81 */
obj_t BgL_symbol2608z00_2523;
BgL_symbol2608z00_2523 = BGl_symbol5015z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 81 */

PUSH_TRACE(BgL_symbol2608z00_2523); BUNSPEC; 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_aux2607z00_2524;
if(
NULLP(BgL_eofzd2funzf3z21_6))
{ /* ./Ieee/input.scm 81 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_3, ((long)3)))
{ /* ./Ieee/input.scm 81 */
BgL_aux2607z00_2524 = 
PROCEDURE_ENTRY(BgL_lalrz00_3)(BgL_lalrz00_3, BgL_rgcz00_4, BgL_portz00_5, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BEOA); }  else 
{ /* ./Ieee/input.scm 81 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5016z00zz__r4_input_6_10_2z00, BGl_list5017z00zz__r4_input_6_10_2z00, BgL_lalrz00_3, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_arg1225z00_2525;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_pairz00_2526;
if(
PAIRP(BgL_eofzd2funzf3z21_6))
{ /* ./Ieee/input.scm 81 */
BgL_pairz00_2526 = BgL_eofzd2funzf3z21_6; }  else 
{ /* ./Ieee/input.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5015z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_eofzd2funzf3z21_6, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
exit( -1 );} 
BgL_arg1225z00_2525 = 
CAR(BgL_pairz00_2526); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_3, ((long)3)))
{ /* ./Ieee/input.scm 81 */
BgL_aux2607z00_2524 = 
PROCEDURE_ENTRY(BgL_lalrz00_3)(BgL_lalrz00_3, BgL_rgcz00_4, BgL_portz00_5, BgL_arg1225z00_2525, BEOA); }  else 
{ /* ./Ieee/input.scm 81 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5016z00zz__r4_input_6_10_2z00, BGl_list5022z00zz__r4_input_6_10_2z00, BgL_lalrz00_3, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} } 
POP_TRACE(); 
return BgL_aux2607z00_2524;} } } } 
}



/* _read/lalrp */
obj_t BGl__readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2004, obj_t BgL_lalrz00_2005, obj_t BgL_rgcz00_2006, obj_t BgL_portz00_2007, obj_t BgL_eofzd2funzf3z21_2008)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 80 */
{ /* ./Ieee/input.scm 81 */
obj_t BgL_lalrz00_2527;obj_t BgL_rgcz00_2528;obj_t BgL_portz00_2529;
if(
PROCEDUREP(BgL_lalrz00_2005))
{ /* ./Ieee/input.scm 81 */
BgL_lalrz00_2527 = BgL_lalrz00_2005; }  else 
{ /* ./Ieee/input.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5024z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_lalrz00_2005, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_rgcz00_2006))
{ /* ./Ieee/input.scm 81 */
BgL_rgcz00_2528 = BgL_rgcz00_2006; }  else 
{ /* ./Ieee/input.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5024z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_rgcz00_2006, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
exit( -1 );} 
if(
INPUT_PORTP(BgL_portz00_2007))
{ /* ./Ieee/input.scm 81 */
BgL_portz00_2529 = BgL_portz00_2007; }  else 
{ /* ./Ieee/input.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5024z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_2007, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_symbol2608z00_2531;
BgL_symbol2608z00_2531 = BGl_symbol5015z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 81 */

PUSH_TRACE(BgL_symbol2608z00_2531); BUNSPEC; 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_aux2607z00_2532;
if(
NULLP(BgL_eofzd2funzf3z21_2008))
{ /* ./Ieee/input.scm 81 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_2527, ((long)3)))
{ /* ./Ieee/input.scm 81 */
BgL_aux2607z00_2532 = 
PROCEDURE_ENTRY(BgL_lalrz00_2527)(BgL_lalrz00_2527, BgL_rgcz00_2528, BgL_portz00_2529, BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00, BEOA); }  else 
{ /* ./Ieee/input.scm 81 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5016z00zz__r4_input_6_10_2z00, BGl_list5017z00zz__r4_input_6_10_2z00, BgL_lalrz00_2527, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 81 */
obj_t BgL_arg1225z00_2533;
{ /* ./Ieee/input.scm 81 */
obj_t BgL_pairz00_2534;
if(
PAIRP(BgL_eofzd2funzf3z21_2008))
{ /* ./Ieee/input.scm 81 */
BgL_pairz00_2534 = BgL_eofzd2funzf3z21_2008; }  else 
{ /* ./Ieee/input.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5015z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_eofzd2funzf3z21_2008, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
exit( -1 );} 
BgL_arg1225z00_2533 = 
CAR(BgL_pairz00_2534); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_lalrz00_2527, ((long)3)))
{ /* ./Ieee/input.scm 81 */
BgL_aux2607z00_2532 = 
PROCEDURE_ENTRY(BgL_lalrz00_2527)(BgL_lalrz00_2527, BgL_rgcz00_2528, BgL_portz00_2529, BgL_arg1225z00_2533, BEOA); }  else 
{ /* ./Ieee/input.scm 81 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5016z00zz__r4_input_6_10_2z00, BGl_list5022z00zz__r4_input_6_10_2z00, BgL_lalrz00_2527, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3166))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} } 
POP_TRACE(); 
return BgL_aux2607z00_2532;} } } } } 
}



/* read-char */
BGL_EXPORTED_DEF obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_7)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 88 */
{ /* ./Ieee/input.scm 89 */
obj_t BgL_symbol2612z00_1958;
BgL_symbol2612z00_1958 = BGl_symbol5025z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 89 */

PUSH_TRACE(BgL_symbol2612z00_1958); BUNSPEC; 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_aux2611z00_1959;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_grammarz00_524;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_thezd2rgczd2contextz00_527;
BgL_thezd2rgczd2contextz00_527 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_zc3anonymousza31236za3ieeezf2inputze2scmza389ze3z93_2015;
{ 
int BgL_auxz00_3164;
BgL_auxz00_3164 = 
(int)(((long)1)); 
BgL_zc3anonymousza31236za3ieeezf2inputze2scmza389ze3z93_2015 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_3164); } 
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_3167;
BgL_auxz00_3167 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31236za3ieeezf2inputze2scmza389ze3z93_2015, BgL_auxz00_3167, BgL_thezd2rgczd2contextz00_527); } 
BgL_grammarz00_524 = BgL_zc3anonymousza31236za3ieeezf2inputze2scmza389ze3z93_2015; } } 
{ /* ./Ieee/input.scm 92 */
obj_t BgL_arg1230z00_525;
if(
NULLP(BgL_ipz00_7))
{ /* ./Ieee/input.scm 92 */
BgL_arg1230z00_525 = 
BGL_CURRENT_INPUT_PORT(); }  else 
{ /* ./Ieee/input.scm 92 */
obj_t BgL_pairz00_1438;
if(
PAIRP(BgL_ipz00_7))
{ /* ./Ieee/input.scm 92 */
BgL_pairz00_1438 = BgL_ipz00_7; }  else 
{ /* ./Ieee/input.scm 92 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5025z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_ipz00_7, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3668))); 
exit( -1 );} 
BgL_arg1230z00_525 = 
CAR(BgL_pairz00_1438); } 
{ /* ./Ieee/input.scm 92 */
obj_t BgL_portz00_1440;
if(
INPUT_PORTP(BgL_arg1230z00_525))
{ /* ./Ieee/input.scm 92 */
BgL_portz00_1440 = BgL_arg1230z00_525; }  else 
{ /* ./Ieee/input.scm 92 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5025z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_arg1230z00_525, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3609))); 
exit( -1 );} 
BgL_aux2611z00_1959 = 
BGl_zc3anonymousza31236za3Ieeezf2inputze2scmza389ze3z93zz__r4_input_6_10_2z00(BgL_grammarz00_524, BgL_portz00_1440, BFALSE); } } } 
POP_TRACE(); 
return BgL_aux2611z00_1959;} } } } 
}



/* _read-char */
obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2016, obj_t BgL_ipz00_2017)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 88 */
return 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_2017);} 
}



/* ignore_2688 */
obj_t BGl_ignore_2688z00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21003z00_2021, obj_t BgL_thezd2rgczd2contextz00_2020, obj_t BgL_procz00_2019, obj_t BgL_inputzd2portzd2_2018)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1387;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2018))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1387 = BgL_inputzd2portzd2_2018; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5026z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2018, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
RGC_START_MATCH(BgL_inputzd2portzd2_1387); } 
{ /* ./Ieee/input.scm 89 */
long BgL_matchz00_556;
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1259z00_560;
BgL_test1259z00_560 = 
PROCEDUREP(BgL_procz00_2019); 
if(BgL_test1259z00_560)
{ /* ./Ieee/input.scm 89 */
obj_t BgL_funz00_2212;
if(BgL_test1259z00_560)
{ /* ./Ieee/input.scm 89 */
BgL_funz00_2212 = BgL_procz00_2019; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5026z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_procz00_2019, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2212, ((long)4)))
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_3202;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_aux3192z00_2213;
BgL_aux3192z00_2213 = 
PROCEDURE_ENTRY(BgL_funz00_2212)(BgL_procz00_2019, BgL_statezd20zd21003z00_2021, BgL_inputzd2portzd2_2018, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2020), BEOA); 
if(
INTEGERP(BgL_aux3192z00_2213))
{ /* ./Ieee/input.scm 89 */
BgL_auxz00_3202 = BgL_aux3192z00_2213
; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5026z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux3192z00_2213, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} } 
BgL_matchz00_556 = 
(long)CINT(BgL_auxz00_3202); }  else 
{ /* ./Ieee/input.scm 89 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5027z00zz__r4_input_6_10_2z00, BGl_list5028z00zz__r4_input_6_10_2z00, BgL_funz00_2212, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_3215;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_aux3210z00_2217;
BgL_aux3210z00_2217 = 
BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00(BgL_statezd20zd21003z00_2021, BgL_inputzd2portzd2_2018, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2020)); 
if(
INTEGERP(BgL_aux3210z00_2217))
{ /* ./Ieee/input.scm 89 */
BgL_auxz00_3215 = BgL_aux3210z00_2217
; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5026z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux3210z00_2217, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} } 
BgL_matchz00_556 = 
(long)CINT(BgL_auxz00_3215); } } 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1389;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2018))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1389 = BgL_inputzd2portzd2_2018; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5026z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2018, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1389); } 
switch( BgL_matchz00_556) { case ((long)1) : 

return 
BGl_thezd2failure_2689zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2018);break;case ((long)0) : 

{ /* ./Ieee/input.scm 91 */
obj_t BgL_inputzd2portzd2_1390;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2018))
{ /* ./Ieee/input.scm 91 */
BgL_inputzd2portzd2_1390 = BgL_inputzd2portzd2_2018; }  else 
{ /* ./Ieee/input.scm 91 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5026z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2018, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3583))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 91 */
char BgL_auxz00_3236;
BgL_auxz00_3236 = 
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_1390); 
return 
BCHAR(BgL_auxz00_3236);} } break;
default: 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string4998z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_556), BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528)));} } } 
}



/* the-failure_2689 */
obj_t BGl_thezd2failure_2689zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2022)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1272z00_570;
{ /* ./Ieee/input.scm 89 */
int BgL_arg1279z00_573;
{ /* ./Ieee/input.scm 89 */
int BgL_res2562z00_1401;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1400;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2022))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1400 = BgL_inputzd2portzd2_2022; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5031z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2022, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_3248;
BgL_auxz00_3248 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1400); 
BgL_res2562z00_1401 = 
(int)(BgL_auxz00_3248); } } 
BgL_arg1279z00_573 = BgL_res2562z00_1401; } 
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_3251;
BgL_auxz00_3251 = 
(long)(BgL_arg1279z00_573); 
BgL_test1272z00_570 = 
(BgL_auxz00_3251==((long)0)); } } 
if(BgL_test1272z00_570)
{ /* ./Ieee/input.scm 89 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_arg1274z00_571;
BgL_arg1274z00_571 = 
BGl_thezd2string_2690zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2022); 
{ /* ./Ieee/input.scm 89 */
unsigned char BgL_res2563z00_1412;
{ /* ./Ieee/input.scm 89 */
int BgL_kz00_1405;
BgL_kz00_1405 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 89 */
bool_t BgL_testz00_3257;
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_3258;
BgL_auxz00_3258 = 
STRING_LENGTH(BgL_arg1274z00_571); 
BgL_testz00_3257 = 
BOUND_CHECK(BgL_kz00_1405, BgL_auxz00_3258); } 
if(BgL_testz00_3257)
{ /* ./Ieee/input.scm 89 */
BgL_res2563z00_1412 = 
STRING_REF(BgL_arg1274z00_571, BgL_kz00_1405); }  else 
{ /* ./Ieee/input.scm 89 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5001z00zz__r4_input_6_10_2z00, BGl_string5002z00zz__r4_input_6_10_2z00, 
BINT(BgL_kz00_1405), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_auxz00_3264;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_aux3274z00_2225;
BgL_aux3274z00_2225 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
if(
CHARP(BgL_aux3274z00_2225))
{ /* ./Ieee/input.scm 89 */
BgL_auxz00_3264 = BgL_aux3274z00_2225
; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5031z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_aux3274z00_2225, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} } 
BgL_res2563z00_1412 = 
(unsigned char)CCHAR(BgL_auxz00_3264); } } } } 
return 
BCHAR(BgL_res2563z00_1412);} } } } 
}



/* the-string_2690 */
obj_t BGl_thezd2string_2690zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2023)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
int BgL_arg1315z00_593;
{ /* ./Ieee/input.scm 89 */
int BgL_res2564z00_1415;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1414;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2023))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1414 = BgL_inputzd2portzd2_2023; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5032z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2023, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_3279;
BgL_auxz00_3279 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1414); 
BgL_res2564z00_1415 = 
(int)(BgL_auxz00_3279); } } 
BgL_arg1315z00_593 = BgL_res2564z00_1415; } 
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1416;int BgL_startz00_1417;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2023))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1416 = BgL_inputzd2portzd2_2023; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5032z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2023, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_startz00_1417 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_1416, BgL_startz00_1417, BgL_arg1315z00_593);} } } 
}



/* <anonymous:1236:Ieee/input.scm:89> */
obj_t BGl_zc3anonymousza31236za3Ieeezf2inputze2scmza389ze3z93zz__r4_input_6_10_2z00(obj_t BgL_envz00_2024, obj_t BgL_inputzd2portzd2_2026, obj_t BgL_procz00_2027)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
obj_t BgL_thezd2rgczd2contextz00_2025;
{ /* ./Ieee/input.scm 89 */
int BgL_auxz00_3289;
BgL_auxz00_3289 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2025 = 
PROCEDURE_1_EL_REF(BgL_envz00_2024, BgL_auxz00_3289); } 
{ 
obj_t BgL_inputzd2portzd2_528;obj_t BgL_procz00_529;
BgL_inputzd2portzd2_528 = BgL_inputzd2portzd2_2026; 
BgL_procz00_529 = BgL_procz00_2027; 
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1050z00_550;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_arg1246z00_554;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_res2560z00_1381;
if(
INPUT_PORTP(BgL_inputzd2portzd2_528))
{ /* ./Ieee/input.scm 89 */
BgL_res2560z00_1381 = BgL_inputzd2portzd2_528; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5034z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_528, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_arg1246z00_554 = BgL_res2560z00_1381; } 
BgL_test1050z00_550 = 
!RGC_BUFFER(BgL_arg1246z00_554); } 
if(BgL_test1050z00_550)
{ /* ./Ieee/input.scm 89 */
obj_t BgL_arg1241z00_553;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_res2561z00_1383;
if(
INPUT_PORTP(BgL_inputzd2portzd2_528))
{ /* ./Ieee/input.scm 89 */
BgL_res2561z00_1383 = BgL_inputzd2portzd2_528; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5034z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_528, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_arg1241z00_553 = BgL_res2561z00_1383; } 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string5007z00zz__r4_input_6_10_2z00, BgL_arg1241z00_553, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528)));}  else 
{ /* ./Ieee/input.scm 89 */
return 
BGl_ignore_2688z00zz__r4_input_6_10_2z00(BGl_proc5033z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_2025, BgL_procz00_529, BgL_inputzd2portzd2_528);} } } } } 
}



/* STATE-0-1003 */
obj_t BGl_STATEzd20zd21003z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2028, obj_t BgL_inputzd2portzd2_2029, obj_t BgL_lastzd2matchzd2_2030, obj_t BgL_thezd2rgczd2contextz00_2031)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 89 */
{ 
obj_t BgL_inputzd2portzd2_596;obj_t BgL_lastzd2matchzd2_597;obj_t BgL_thezd2rgczd2contextz00_598;
BgL_inputzd2portzd2_596 = BgL_inputzd2portzd2_2029; 
BgL_lastzd2matchzd2_597 = BgL_lastzd2matchzd2_2030; 
BgL_thezd2rgczd2contextz00_598 = BgL_thezd2rgczd2contextz00_2031; 
BgL_zc3anonymousza31321za3ieeezf2inputze2scmza389ze3z93_599:
{ /* ./Ieee/input.scm 89 */
int BgL_currentzd2charzd2_600;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1420;
if(
INPUT_PORTP(BgL_inputzd2portzd2_596))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1420 = BgL_inputzd2portzd2_596; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5029z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_596, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_currentzd2charzd2_600 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1420); } 
{ /* ./Ieee/input.scm 89 */
bool_t BgL_testz00_3313;
{ /* ./Ieee/input.scm 89 */
long BgL_auxz00_3314;
BgL_auxz00_3314 = 
(long)(BgL_currentzd2charzd2_600); 
BgL_testz00_3313 = 
(BgL_auxz00_3314==((long)0)); } 
if(BgL_testz00_3313)
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1323z00_602;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1423;
if(
INPUT_PORTP(BgL_inputzd2portzd2_596))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1423 = BgL_inputzd2portzd2_596; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5029z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_596, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_test1323z00_602 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1423); } 
if(BgL_test1323z00_602)
{ /* ./Ieee/input.scm 89 */
bool_t BgL_test1324z00_603;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1424;
if(
INPUT_PORTP(BgL_inputzd2portzd2_596))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1424 = BgL_inputzd2portzd2_596; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5029z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_596, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
BgL_test1324z00_603 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1424); } 
if(BgL_test1324z00_603)
{ 

goto BgL_zc3anonymousza31321za3ieeezf2inputze2scmza389ze3z93_599;}  else 
{ /* ./Ieee/input.scm 89 */
return BgL_lastzd2matchzd2_597;} }  else 
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1428;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1429;
if(
INPUT_PORTP(BgL_inputzd2portzd2_596))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1429 = BgL_inputzd2portzd2_596; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5029z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_596, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1429); } 
BgL_newzd2matchzd2_1428 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1428);} } }  else 
{ /* ./Ieee/input.scm 89 */
{ /* ./Ieee/input.scm 89 */
long BgL_newzd2matchzd2_1433;
{ /* ./Ieee/input.scm 89 */
obj_t BgL_inputzd2portzd2_1434;
if(
INPUT_PORTP(BgL_inputzd2portzd2_596))
{ /* ./Ieee/input.scm 89 */
BgL_inputzd2portzd2_1434 = BgL_inputzd2portzd2_596; }  else 
{ /* ./Ieee/input.scm 89 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5029z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_596, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3528))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1434); } 
BgL_newzd2matchzd2_1433 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1433);} } } } } } 
}



/* peek-char */
BGL_EXPORTED_DEF obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_ipz00_8)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 97 */
{ /* ./Ieee/input.scm 98 */
obj_t BgL_symbol2616z00_1960;
BgL_symbol2616z00_1960 = BGl_symbol5035z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 98 */

PUSH_TRACE(BgL_symbol2616z00_1960); BUNSPEC; 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_aux2615z00_1961;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_grammarz00_632;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_thezd2rgczd2contextz00_635;
BgL_thezd2rgczd2contextz00_635 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_zc3anonymousza31342za3ieeezf2inputze2scmza398ze3z93_2036;
{ 
int BgL_auxz00_3346;
BgL_auxz00_3346 = 
(int)(((long)1)); 
BgL_zc3anonymousza31342za3ieeezf2inputze2scmza398ze3z93_2036 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_3346); } 
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_3349;
BgL_auxz00_3349 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31342za3ieeezf2inputze2scmza398ze3z93_2036, BgL_auxz00_3349, BgL_thezd2rgczd2contextz00_635); } 
BgL_grammarz00_632 = BgL_zc3anonymousza31342za3ieeezf2inputze2scmza398ze3z93_2036; } } 
{ /* ./Ieee/input.scm 103 */
obj_t BgL_arg1336z00_633;
if(
NULLP(BgL_ipz00_8))
{ /* ./Ieee/input.scm 103 */
BgL_arg1336z00_633 = 
BGL_CURRENT_INPUT_PORT(); }  else 
{ /* ./Ieee/input.scm 103 */
obj_t BgL_pairz00_1502;
if(
PAIRP(BgL_ipz00_8))
{ /* ./Ieee/input.scm 103 */
BgL_pairz00_1502 = BgL_ipz00_8; }  else 
{ /* ./Ieee/input.scm 103 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5035z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_ipz00_8, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4156))); 
exit( -1 );} 
BgL_arg1336z00_633 = 
CAR(BgL_pairz00_1502); } 
{ /* ./Ieee/input.scm 103 */
obj_t BgL_portz00_1504;
if(
INPUT_PORTP(BgL_arg1336z00_633))
{ /* ./Ieee/input.scm 103 */
BgL_portz00_1504 = BgL_arg1336z00_633; }  else 
{ /* ./Ieee/input.scm 103 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5035z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_arg1336z00_633, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4097))); 
exit( -1 );} 
BgL_aux2615z00_1961 = 
BGl_zc3anonymousza31342za3Ieeezf2inputze2scmza398ze3z93zz__r4_input_6_10_2z00(BgL_grammarz00_632, BgL_portz00_1504, BFALSE); } } } 
POP_TRACE(); 
return BgL_aux2615z00_1961;} } } } 
}



/* _peek-char */
obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2037, obj_t BgL_ipz00_2038)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 97 */
return 
BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_2038);} 
}



/* ignore_2693 */
obj_t BGl_ignore_2693z00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21009z00_2042, obj_t BgL_thezd2rgczd2contextz00_2041, obj_t BgL_procz00_2040, obj_t BgL_inputzd2portzd2_2039)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1447;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2039))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1447 = BgL_inputzd2portzd2_2039; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2039, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
RGC_START_MATCH(BgL_inputzd2portzd2_1447); } 
{ /* ./Ieee/input.scm 98 */
long BgL_matchz00_664;
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1371z00_671;
BgL_test1371z00_671 = 
PROCEDUREP(BgL_procz00_2040); 
if(BgL_test1371z00_671)
{ /* ./Ieee/input.scm 98 */
obj_t BgL_funz00_2253;
if(BgL_test1371z00_671)
{ /* ./Ieee/input.scm 98 */
BgL_funz00_2253 = BgL_procz00_2040; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_procz00_2040, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2253, ((long)4)))
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_3384;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_aux3433z00_2254;
BgL_aux3433z00_2254 = 
PROCEDURE_ENTRY(BgL_funz00_2253)(BgL_procz00_2040, BgL_statezd20zd21009z00_2042, BgL_inputzd2portzd2_2039, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2041), BEOA); 
if(
INTEGERP(BgL_aux3433z00_2254))
{ /* ./Ieee/input.scm 98 */
BgL_auxz00_3384 = BgL_aux3433z00_2254
; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux3433z00_2254, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} } 
BgL_matchz00_664 = 
(long)CINT(BgL_auxz00_3384); }  else 
{ /* ./Ieee/input.scm 98 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5037z00zz__r4_input_6_10_2z00, BGl_list5038z00zz__r4_input_6_10_2z00, BgL_funz00_2253, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_3397;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_aux3451z00_2258;
BgL_aux3451z00_2258 = 
BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00(BgL_statezd20zd21009z00_2042, BgL_inputzd2portzd2_2039, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2041)); 
if(
INTEGERP(BgL_aux3451z00_2258))
{ /* ./Ieee/input.scm 98 */
BgL_auxz00_3397 = BgL_aux3451z00_2258
; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux3451z00_2258, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} } 
BgL_matchz00_664 = 
(long)CINT(BgL_auxz00_3397); } } 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1449;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2039))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1449 = BgL_inputzd2portzd2_2039; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2039, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1449); } 
switch( BgL_matchz00_664) { case ((long)1) : 

return 
BGl_thezd2failure_2694zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2039);break;case ((long)0) : 

{ /* ./Ieee/input.scm 100 */
char BgL_cz00_668;
{ /* ./Ieee/input.scm 100 */
obj_t BgL_inputzd2portzd2_1450;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2039))
{ /* ./Ieee/input.scm 100 */
BgL_inputzd2portzd2_1450 = BgL_inputzd2portzd2_2039; }  else 
{ /* ./Ieee/input.scm 100 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2039, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4005))); 
exit( -1 );} 
BgL_cz00_668 = 
RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_1450); } 
{ /* ./Ieee/input.scm 101 */
obj_t BgL_arg1361z00_669;long BgL_arg1362z00_670;
{ /* ./Ieee/input.scm 101 */
obj_t BgL_res2567z00_1451;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2039))
{ /* ./Ieee/input.scm 101 */
BgL_res2567z00_1451 = BgL_inputzd2portzd2_2039; }  else 
{ /* ./Ieee/input.scm 101 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5036z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2039, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4050))); 
exit( -1 );} 
BgL_arg1361z00_669 = BgL_res2567z00_1451; } 
{ /* ./Ieee/input.scm 101 */
unsigned char BgL_auxz00_3424;
BgL_auxz00_3424 = 
(unsigned char)(BgL_cz00_668); 
BgL_arg1362z00_670 = 
(BgL_auxz00_3424); } 
{ /* ./Ieee/input.scm 101 */
int BgL_auxz00_3427;
BgL_auxz00_3427 = 
(int)(BgL_arg1362z00_670); 
rgc_buffer_unget_char(BgL_arg1361z00_669, BgL_auxz00_3427); } } 
return 
BCHAR(BgL_cz00_668);} break;
default: 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string4998z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_664), BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941)));} } } 
}



/* the-failure_2694 */
obj_t BGl_thezd2failure_2694zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2043)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1384z00_681;
{ /* ./Ieee/input.scm 98 */
int BgL_arg1392z00_684;
{ /* ./Ieee/input.scm 98 */
int BgL_res2568z00_1465;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1464;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2043))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1464 = BgL_inputzd2portzd2_2043; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5041z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2043, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_3440;
BgL_auxz00_3440 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1464); 
BgL_res2568z00_1465 = 
(int)(BgL_auxz00_3440); } } 
BgL_arg1392z00_684 = BgL_res2568z00_1465; } 
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_3443;
BgL_auxz00_3443 = 
(long)(BgL_arg1392z00_684); 
BgL_test1384z00_681 = 
(BgL_auxz00_3443==((long)0)); } } 
if(BgL_test1384z00_681)
{ /* ./Ieee/input.scm 98 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_arg1386z00_682;
BgL_arg1386z00_682 = 
BGl_thezd2string_2695zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2043); 
{ /* ./Ieee/input.scm 98 */
unsigned char BgL_res2569z00_1476;
{ /* ./Ieee/input.scm 98 */
int BgL_kz00_1469;
BgL_kz00_1469 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 98 */
bool_t BgL_testz00_3449;
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_3450;
BgL_auxz00_3450 = 
STRING_LENGTH(BgL_arg1386z00_682); 
BgL_testz00_3449 = 
BOUND_CHECK(BgL_kz00_1469, BgL_auxz00_3450); } 
if(BgL_testz00_3449)
{ /* ./Ieee/input.scm 98 */
BgL_res2569z00_1476 = 
STRING_REF(BgL_arg1386z00_682, BgL_kz00_1469); }  else 
{ /* ./Ieee/input.scm 98 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5001z00zz__r4_input_6_10_2z00, BGl_string5002z00zz__r4_input_6_10_2z00, 
BINT(BgL_kz00_1469), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_auxz00_3456;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_aux3527z00_2268;
BgL_aux3527z00_2268 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
if(
CHARP(BgL_aux3527z00_2268))
{ /* ./Ieee/input.scm 98 */
BgL_auxz00_3456 = BgL_aux3527z00_2268
; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5041z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_aux3527z00_2268, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} } 
BgL_res2569z00_1476 = 
(unsigned char)CCHAR(BgL_auxz00_3456); } } } } 
return 
BCHAR(BgL_res2569z00_1476);} } } } 
}



/* the-string_2695 */
obj_t BGl_thezd2string_2695zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2044)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
int BgL_arg1428z00_704;
{ /* ./Ieee/input.scm 98 */
int BgL_res2570z00_1479;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1478;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2044))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1478 = BgL_inputzd2portzd2_2044; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5042z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2044, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_3471;
BgL_auxz00_3471 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1478); 
BgL_res2570z00_1479 = 
(int)(BgL_auxz00_3471); } } 
BgL_arg1428z00_704 = BgL_res2570z00_1479; } 
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1480;int BgL_startz00_1481;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2044))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1480 = BgL_inputzd2portzd2_2044; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5042z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2044, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
BgL_startz00_1481 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_1480, BgL_startz00_1481, BgL_arg1428z00_704);} } } 
}



/* <anonymous:1342:Ieee/input.scm:98> */
obj_t BGl_zc3anonymousza31342za3Ieeezf2inputze2scmza398ze3z93zz__r4_input_6_10_2z00(obj_t BgL_envz00_2045, obj_t BgL_inputzd2portzd2_2047, obj_t BgL_procz00_2048)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
obj_t BgL_thezd2rgczd2contextz00_2046;
{ /* ./Ieee/input.scm 98 */
int BgL_auxz00_3481;
BgL_auxz00_3481 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2046 = 
PROCEDURE_1_EL_REF(BgL_envz00_2045, BgL_auxz00_3481); } 
{ 
obj_t BgL_inputzd2portzd2_636;obj_t BgL_procz00_637;
BgL_inputzd2portzd2_636 = BgL_inputzd2portzd2_2047; 
BgL_procz00_637 = BgL_procz00_2048; 
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1050z00_658;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_arg1352z00_662;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_res2565z00_1441;
if(
INPUT_PORTP(BgL_inputzd2portzd2_636))
{ /* ./Ieee/input.scm 98 */
BgL_res2565z00_1441 = BgL_inputzd2portzd2_636; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5044z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_636, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
BgL_arg1352z00_662 = BgL_res2565z00_1441; } 
BgL_test1050z00_658 = 
!RGC_BUFFER(BgL_arg1352z00_662); } 
if(BgL_test1050z00_658)
{ /* ./Ieee/input.scm 98 */
obj_t BgL_arg1346z00_661;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_res2566z00_1443;
if(
INPUT_PORTP(BgL_inputzd2portzd2_636))
{ /* ./Ieee/input.scm 98 */
BgL_res2566z00_1443 = BgL_inputzd2portzd2_636; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5044z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_636, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
BgL_arg1346z00_661 = BgL_res2566z00_1443; } 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string5007z00zz__r4_input_6_10_2z00, BgL_arg1346z00_661, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941)));}  else 
{ /* ./Ieee/input.scm 98 */
return 
BGl_ignore_2693z00zz__r4_input_6_10_2z00(BGl_proc5043z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_2046, BgL_procz00_637, BgL_inputzd2portzd2_636);} } } } } 
}



/* STATE-0-1009 */
obj_t BGl_STATEzd20zd21009z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2049, obj_t BgL_inputzd2portzd2_2050, obj_t BgL_lastzd2matchzd2_2051, obj_t BgL_thezd2rgczd2contextz00_2052)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 98 */
{ 
obj_t BgL_inputzd2portzd2_707;obj_t BgL_lastzd2matchzd2_708;obj_t BgL_thezd2rgczd2contextz00_709;
BgL_inputzd2portzd2_707 = BgL_inputzd2portzd2_2050; 
BgL_lastzd2matchzd2_708 = BgL_lastzd2matchzd2_2051; 
BgL_thezd2rgczd2contextz00_709 = BgL_thezd2rgczd2contextz00_2052; 
BgL_zc3anonymousza31434za3ieeezf2inputze2scmza398ze3z93_710:
{ /* ./Ieee/input.scm 98 */
int BgL_currentzd2charzd2_711;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1484;
if(
INPUT_PORTP(BgL_inputzd2portzd2_707))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1484 = BgL_inputzd2portzd2_707; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5039z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_707, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
BgL_currentzd2charzd2_711 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1484); } 
{ /* ./Ieee/input.scm 98 */
bool_t BgL_testz00_3505;
{ /* ./Ieee/input.scm 98 */
long BgL_auxz00_3506;
BgL_auxz00_3506 = 
(long)(BgL_currentzd2charzd2_711); 
BgL_testz00_3505 = 
(BgL_auxz00_3506==((long)0)); } 
if(BgL_testz00_3505)
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1436z00_713;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1487;
if(
INPUT_PORTP(BgL_inputzd2portzd2_707))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1487 = BgL_inputzd2portzd2_707; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5039z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_707, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
BgL_test1436z00_713 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1487); } 
if(BgL_test1436z00_713)
{ /* ./Ieee/input.scm 98 */
bool_t BgL_test1437z00_714;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1488;
if(
INPUT_PORTP(BgL_inputzd2portzd2_707))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1488 = BgL_inputzd2portzd2_707; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5039z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_707, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
BgL_test1437z00_714 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1488); } 
if(BgL_test1437z00_714)
{ 

goto BgL_zc3anonymousza31434za3ieeezf2inputze2scmza398ze3z93_710;}  else 
{ /* ./Ieee/input.scm 98 */
return BgL_lastzd2matchzd2_708;} }  else 
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1492;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1493;
if(
INPUT_PORTP(BgL_inputzd2portzd2_707))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1493 = BgL_inputzd2portzd2_707; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5039z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_707, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1493); } 
BgL_newzd2matchzd2_1492 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1492);} } }  else 
{ /* ./Ieee/input.scm 98 */
{ /* ./Ieee/input.scm 98 */
long BgL_newzd2matchzd2_1497;
{ /* ./Ieee/input.scm 98 */
obj_t BgL_inputzd2portzd2_1498;
if(
INPUT_PORTP(BgL_inputzd2portzd2_707))
{ /* ./Ieee/input.scm 98 */
BgL_inputzd2portzd2_1498 = BgL_inputzd2portzd2_707; }  else 
{ /* ./Ieee/input.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5039z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_707, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)3941))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1498); } 
BgL_newzd2matchzd2_1497 = ((long)0); 
return 
BINT(BgL_newzd2matchzd2_1497);} } } } } } 
}



/* eof-object? */
BGL_EXPORTED_DEF bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t BgL_objectz00_9)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 108 */
{ /* ./Ieee/input.scm 109 */
obj_t BgL_symbol2620z00_2535;
BgL_symbol2620z00_2535 = BGl_symbol5045z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 109 */

PUSH_TRACE(BgL_symbol2620z00_2535); BUNSPEC; 
{ /* ./Ieee/input.scm 109 */
bool_t BgL_aux2619z00_2536;
BgL_aux2619z00_2536 = 
EOF_OBJECTP(BgL_objectz00_9); 
POP_TRACE(); 
return BgL_aux2619z00_2536;} } } } 
}



/* _eof-object? */
obj_t BGl__eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t BgL_envz00_2009, obj_t BgL_objectz00_2010)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 108 */
{ /* ./Ieee/input.scm 109 */
bool_t BgL_auxz00_3540;
{ /* ./Ieee/input.scm 109 */
bool_t BgL_res5088z00_2540;
{ /* ./Ieee/input.scm 109 */
obj_t BgL_symbol2620z00_2538;
BgL_symbol2620z00_2538 = BGl_symbol5045z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 109 */

PUSH_TRACE(BgL_symbol2620z00_2538); BUNSPEC; 
{ /* ./Ieee/input.scm 109 */
bool_t BgL_aux2619z00_2539;
BgL_aux2619z00_2539 = 
EOF_OBJECTP(BgL_objectz00_2010); 
POP_TRACE(); 
BgL_res5088z00_2540 = BgL_aux2619z00_2539; } } } 
BgL_auxz00_3540 = BgL_res5088z00_2540; } 
return 
BBOOL(BgL_auxz00_3540);} } 
}



/* char-ready? */
BGL_EXPORTED_DEF bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t BgL_portz00_10)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 114 */
{ /* ./Ieee/input.scm 115 */
obj_t BgL_symbol2624z00_2541;
BgL_symbol2624z00_2541 = BGl_symbol5046z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 115 */

PUSH_TRACE(BgL_symbol2624z00_2541); BUNSPEC; 
{ /* ./Ieee/input.scm 115 */
bool_t BgL_aux2623z00_2542;
{ /* ./Ieee/input.scm 115 */
obj_t BgL_arg1450z00_2543;
{ /* ./Ieee/input.scm 115 */
bool_t BgL_test1452z00_2544;
BgL_test1452z00_2544 = 
PAIRP(BgL_portz00_10); 
if(BgL_test1452z00_2544)
{ /* ./Ieee/input.scm 115 */
obj_t BgL_pairz00_2545;
if(BgL_test1452z00_2544)
{ /* ./Ieee/input.scm 115 */
BgL_pairz00_2545 = BgL_portz00_10; }  else 
{ /* ./Ieee/input.scm 115 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5046z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_portz00_10, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4726))); 
exit( -1 );} 
BgL_arg1450z00_2543 = 
CAR(BgL_pairz00_2545); }  else 
{ /* ./Ieee/input.scm 115 */
BgL_arg1450z00_2543 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 115 */
obj_t BgL_auxz00_3554;
if(
INPUT_PORTP(BgL_arg1450z00_2543))
{ /* ./Ieee/input.scm 115 */
BgL_auxz00_3554 = BgL_arg1450z00_2543
; }  else 
{ /* ./Ieee/input.scm 115 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5046z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_arg1450z00_2543, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4726))); 
exit( -1 );} 
BgL_aux2623z00_2542 = 
bgl_rgc_charready(BgL_auxz00_3554); } } 
POP_TRACE(); 
return BgL_aux2623z00_2542;} } } } 
}



/* _char-ready? */
obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t BgL_envz00_2053, obj_t BgL_portz00_2054)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 114 */
{ /* ./Ieee/input.scm 115 */
bool_t BgL_auxz00_3562;
{ /* ./Ieee/input.scm 115 */
bool_t BgL_res5089z00_2552;
{ /* ./Ieee/input.scm 115 */
obj_t BgL_symbol2624z00_2547;
BgL_symbol2624z00_2547 = BGl_symbol5046z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 115 */

PUSH_TRACE(BgL_symbol2624z00_2547); BUNSPEC; 
{ /* ./Ieee/input.scm 115 */
bool_t BgL_aux2623z00_2548;
{ /* ./Ieee/input.scm 115 */
obj_t BgL_arg1450z00_2549;
{ /* ./Ieee/input.scm 115 */
bool_t BgL_test1452z00_2550;
BgL_test1452z00_2550 = 
PAIRP(BgL_portz00_2054); 
if(BgL_test1452z00_2550)
{ /* ./Ieee/input.scm 115 */
obj_t BgL_pairz00_2551;
if(BgL_test1452z00_2550)
{ /* ./Ieee/input.scm 115 */
BgL_pairz00_2551 = BgL_portz00_2054; }  else 
{ /* ./Ieee/input.scm 115 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5046z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_portz00_2054, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4726))); 
exit( -1 );} 
BgL_arg1450z00_2549 = 
CAR(BgL_pairz00_2551); }  else 
{ /* ./Ieee/input.scm 115 */
BgL_arg1450z00_2549 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 115 */
obj_t BgL_auxz00_3572;
if(
INPUT_PORTP(BgL_arg1450z00_2549))
{ /* ./Ieee/input.scm 115 */
BgL_auxz00_3572 = BgL_arg1450z00_2549
; }  else 
{ /* ./Ieee/input.scm 115 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5046z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_arg1450z00_2549, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)4726))); 
exit( -1 );} 
BgL_aux2623z00_2548 = 
bgl_rgc_charready(BgL_auxz00_3572); } } 
POP_TRACE(); 
BgL_res5089z00_2552 = BgL_aux2623z00_2548; } } } 
BgL_auxz00_3562 = BgL_res5089z00_2552; } 
return 
BBOOL(BgL_auxz00_3562);} } 
}



/* read-line */
BGL_EXPORTED_DEF obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_11)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 120 */
{ /* ./Ieee/input.scm 121 */
obj_t BgL_symbol2628z00_1966;
BgL_symbol2628z00_1966 = BGl_symbol5047z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 121 */

PUSH_TRACE(BgL_symbol2628z00_1966); BUNSPEC; 
{ /* ./Ieee/input.scm 121 */
obj_t BgL_aux2627z00_1967;
{ /* ./Ieee/input.scm 121 */
obj_t BgL_portz00_745;
{ /* ./Ieee/input.scm 121 */
bool_t BgL_test1687z00_958;
BgL_test1687z00_958 = 
PAIRP(BgL_inputzd2portzd2_11); 
if(BgL_test1687z00_958)
{ /* ./Ieee/input.scm 121 */
obj_t BgL_pairz00_1510;
if(BgL_test1687z00_958)
{ /* ./Ieee/input.scm 121 */
BgL_pairz00_1510 = BgL_inputzd2portzd2_11; }  else 
{ /* ./Ieee/input.scm 121 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_11, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5086))); 
exit( -1 );} 
BgL_portz00_745 = 
CAR(BgL_pairz00_1510); }  else 
{ /* ./Ieee/input.scm 121 */
BgL_portz00_745 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 122 */
bool_t BgL_test1456z00_746;
{ /* ./Ieee/input.scm 122 */
int BgL_arg1683z00_956;
{ /* ./Ieee/input.scm 122 */
obj_t BgL_auxz00_3590;
if(
INPUT_PORTP(BgL_portz00_745))
{ /* ./Ieee/input.scm 122 */
BgL_auxz00_3590 = BgL_portz00_745
; }  else 
{ /* ./Ieee/input.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_745, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5152))); 
exit( -1 );} 
BgL_arg1683z00_956 = 
INPUT_PORT_BUFSIZ(BgL_auxz00_3590); } 
{ /* ./Ieee/input.scm 122 */
long BgL_auxz00_3597;
BgL_auxz00_3597 = 
(long)(BgL_arg1683z00_956); 
BgL_test1456z00_746 = 
(BgL_auxz00_3597>((long)2)); } } 
if(BgL_test1456z00_746)
{ /* ./Ieee/input.scm 123 */
obj_t BgL_grammarz00_747;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_thezd2rgczd2contextz00_748;
BgL_thezd2rgczd2contextz00_748 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_zc3anonymousza31458za3ieeezf2inputze2scmza3123ze3z93_2060;
{ 
int BgL_auxz00_3601;
BgL_auxz00_3601 = 
(int)(((long)1)); 
BgL_zc3anonymousza31458za3ieeezf2inputze2scmza3123ze3z93_2060 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_3601); } 
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_3604;
BgL_auxz00_3604 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31458za3ieeezf2inputze2scmza3123ze3z93_2060, BgL_auxz00_3604, BgL_thezd2rgczd2contextz00_748); } 
BgL_grammarz00_747 = BgL_zc3anonymousza31458za3ieeezf2inputze2scmza3123ze3z93_2060; } } 
{ /* ./Ieee/input.scm 135 */
obj_t BgL_portz00_1639;
if(
INPUT_PORTP(BgL_portz00_745))
{ /* ./Ieee/input.scm 135 */
BgL_portz00_1639 = BgL_portz00_745; }  else 
{ /* ./Ieee/input.scm 135 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_745, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5581))); 
exit( -1 );} 
BgL_aux2627z00_1967 = 
BGl_zc3anonymousza31458za3Ieeezf2inputze2scmza3123ze3z93zz__r4_input_6_10_2z00(BgL_grammarz00_747, BgL_portz00_1639, BFALSE); } }  else 
{ 
obj_t BgL_cz00_932;long BgL_wz00_933;long BgL_mz00_934;obj_t BgL_accz00_935;
{ /* ./Ieee/input.scm 138 */
obj_t BgL_arg1640z00_937;obj_t BgL_arg1643z00_940;
{ /* ./Ieee/input.scm 138 */
obj_t BgL_list1646z00_941;
BgL_list1646z00_941 = 
MAKE_PAIR(BgL_portz00_745, BNIL); 
BgL_arg1640z00_937 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_list1646z00_941); } 
{ /* ./Ieee/input.scm 141 */
int BgL_auxz00_3616;
BgL_auxz00_3616 = 
(int)(((long)80)); 
BgL_arg1643z00_940 = 
make_string(BgL_auxz00_3616, ((unsigned char)' ')); } 
BgL_cz00_932 = BgL_arg1640z00_937; 
BgL_wz00_933 = ((long)0); 
BgL_mz00_934 = ((long)80); 
BgL_accz00_935 = BgL_arg1643z00_940; 
BgL_loopz00_936:
{ /* ./Ieee/input.scm 143 */
bool_t BgL_test1650z00_943;
BgL_test1650z00_943 = 
EOF_OBJECTP(BgL_cz00_932); 
if(BgL_test1650z00_943)
{ /* ./Ieee/input.scm 143 */
if(
(BgL_wz00_933==((long)0)))
{ /* ./Ieee/input.scm 145 */
BgL_aux2627z00_1967 = BgL_cz00_932; }  else 
{ /* ./Ieee/input.scm 147 */
obj_t BgL_res2582z00_1678;
{ /* ./Ieee/input.scm 147 */
int BgL_startz00_1651;int BgL_endz00_1652;
BgL_startz00_1651 = 
(int)(((long)0)); 
BgL_endz00_1652 = 
(int)(BgL_wz00_933); 
{ /* ./Ieee/input.scm 147 */
bool_t BgL_test2235z00_1653;
{ /* ./Ieee/input.scm 147 */
bool_t BgL_testz00_3625;
{ /* ./Ieee/input.scm 147 */
long BgL_auxz00_3628;long BgL_auxz00_3626;
BgL_auxz00_3628 = 
(long)(BgL_startz00_1651); 
BgL_auxz00_3626 = 
(long)(BgL_endz00_1652); 
BgL_testz00_3625 = 
(BgL_auxz00_3626>=BgL_auxz00_3628); } 
if(BgL_testz00_3625)
{ /* ./Ieee/input.scm 147 */
bool_t BgL_testz00_3631;
{ /* ./Ieee/input.scm 147 */
int BgL_auxz00_3632;
{ /* ./Ieee/input.scm 147 */
long BgL_auxz00_3633;
{ /* ./Ieee/input.scm 147 */
long BgL_auxz00_3634;
{ /* ./Ieee/input.scm 147 */
int BgL_auxz00_3635;
BgL_auxz00_3635 = 
STRING_LENGTH(BgL_accz00_935); 
BgL_auxz00_3634 = 
(long)(BgL_auxz00_3635); } 
BgL_auxz00_3633 = 
(BgL_auxz00_3634+((long)1)); } 
BgL_auxz00_3632 = 
(int)(BgL_auxz00_3633); } 
BgL_testz00_3631 = 
BOUND_CHECK(BgL_startz00_1651, BgL_auxz00_3632); } 
if(BgL_testz00_3631)
{ /* ./Ieee/input.scm 147 */
int BgL_auxz00_3641;
{ /* ./Ieee/input.scm 147 */
long BgL_auxz00_3642;
{ /* ./Ieee/input.scm 147 */
long BgL_auxz00_3643;
{ /* ./Ieee/input.scm 147 */
int BgL_auxz00_3644;
BgL_auxz00_3644 = 
STRING_LENGTH(BgL_accz00_935); 
BgL_auxz00_3643 = 
(long)(BgL_auxz00_3644); } 
BgL_auxz00_3642 = 
(BgL_auxz00_3643+((long)1)); } 
BgL_auxz00_3641 = 
(int)(BgL_auxz00_3642); } 
BgL_test2235z00_1653 = 
BOUND_CHECK(BgL_endz00_1652, BgL_auxz00_3641); }  else 
{ /* ./Ieee/input.scm 147 */
BgL_test2235z00_1653 = ((bool_t)0); } }  else 
{ /* ./Ieee/input.scm 147 */
BgL_test2235z00_1653 = ((bool_t)0); } } 
if(BgL_test2235z00_1653)
{ /* ./Ieee/input.scm 147 */
BgL_res2582z00_1678 = 
c_substring(BgL_accz00_935, BgL_startz00_1651, BgL_endz00_1652); }  else 
{ /* ./Ieee/input.scm 147 */
{ /* ./Ieee/input.scm 147 */
obj_t BgL_arg2240z00_1664;
{ /* ./Ieee/input.scm 147 */
obj_t BgL_auxz00_3654;obj_t BgL_auxz00_3652;
BgL_auxz00_3654 = 
BINT(BgL_endz00_1652); 
BgL_auxz00_3652 = 
BINT(BgL_startz00_1651); 
BgL_arg2240z00_1664 = 
MAKE_PAIR(BgL_auxz00_3652, BgL_auxz00_3654); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5048z00zz__r4_input_6_10_2z00, BGl_string5049z00zz__r4_input_6_10_2z00, BgL_arg2240z00_1664, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/input.scm 147 */
obj_t BgL_aux3714z00_2298;
BgL_aux3714z00_2298 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5880))); 
if(
STRINGP(BgL_aux3714z00_2298))
{ /* ./Ieee/input.scm 147 */
BgL_res2582z00_1678 = BgL_aux3714z00_2298; }  else 
{ /* ./Ieee/input.scm 147 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string5050z00zz__r4_input_6_10_2z00, BgL_aux3714z00_2298, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5880))); 
exit( -1 );} } } } } 
BgL_aux2627z00_1967 = BgL_res2582z00_1678; } }  else 
{ /* ./Ieee/input.scm 148 */
bool_t BgL_test1654z00_945;
{ /* ./Ieee/input.scm 148 */
bool_t BgL_test1678z00_955;
{ /* ./Ieee/input.scm 148 */
unsigned char BgL_char1z00_1679;
{ /* ./Ieee/input.scm 148 */
obj_t BgL_auxz00_3665;
if(
CHARP(BgL_cz00_932))
{ /* ./Ieee/input.scm 148 */
BgL_auxz00_3665 = BgL_cz00_932
; }  else 
{ /* ./Ieee/input.scm 148 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_cz00_932, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5917))); 
exit( -1 );} 
BgL_char1z00_1679 = 
(unsigned char)CCHAR(BgL_auxz00_3665); } 
BgL_test1678z00_955 = 
(BgL_char1z00_1679==((unsigned char)'\n')); } 
if(BgL_test1678z00_955)
{ /* ./Ieee/input.scm 148 */
BgL_test1654z00_945 = ((bool_t)1); }  else 
{ /* ./Ieee/input.scm 148 */
unsigned char BgL_char1z00_1681;
{ /* ./Ieee/input.scm 148 */
obj_t BgL_auxz00_3674;
if(
CHARP(BgL_cz00_932))
{ /* ./Ieee/input.scm 148 */
BgL_auxz00_3674 = BgL_cz00_932
; }  else 
{ /* ./Ieee/input.scm 148 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_cz00_932, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5938))); 
exit( -1 );} 
BgL_char1z00_1681 = 
(unsigned char)CCHAR(BgL_auxz00_3674); } 
BgL_test1654z00_945 = 
(BgL_char1z00_1681==((unsigned char)'\r')); } } 
if(BgL_test1654z00_945)
{ /* ./Ieee/input.scm 148 */
{ /* ./Ieee/input.scm 150 */
obj_t BgL_res2583z00_1711;
{ /* ./Ieee/input.scm 150 */
int BgL_startz00_1684;int BgL_endz00_1685;
BgL_startz00_1684 = 
(int)(((long)0)); 
BgL_endz00_1685 = 
(int)(BgL_wz00_933); 
{ /* ./Ieee/input.scm 150 */
bool_t BgL_test2235z00_1686;
{ /* ./Ieee/input.scm 150 */
bool_t BgL_testz00_3685;
{ /* ./Ieee/input.scm 150 */
long BgL_auxz00_3688;long BgL_auxz00_3686;
BgL_auxz00_3688 = 
(long)(BgL_startz00_1684); 
BgL_auxz00_3686 = 
(long)(BgL_endz00_1685); 
BgL_testz00_3685 = 
(BgL_auxz00_3686>=BgL_auxz00_3688); } 
if(BgL_testz00_3685)
{ /* ./Ieee/input.scm 150 */
bool_t BgL_testz00_3691;
{ /* ./Ieee/input.scm 150 */
int BgL_auxz00_3692;
{ /* ./Ieee/input.scm 150 */
long BgL_auxz00_3693;
{ /* ./Ieee/input.scm 150 */
long BgL_auxz00_3694;
{ /* ./Ieee/input.scm 150 */
int BgL_auxz00_3695;
BgL_auxz00_3695 = 
STRING_LENGTH(BgL_accz00_935); 
BgL_auxz00_3694 = 
(long)(BgL_auxz00_3695); } 
BgL_auxz00_3693 = 
(BgL_auxz00_3694+((long)1)); } 
BgL_auxz00_3692 = 
(int)(BgL_auxz00_3693); } 
BgL_testz00_3691 = 
BOUND_CHECK(BgL_startz00_1684, BgL_auxz00_3692); } 
if(BgL_testz00_3691)
{ /* ./Ieee/input.scm 150 */
int BgL_auxz00_3701;
{ /* ./Ieee/input.scm 150 */
long BgL_auxz00_3702;
{ /* ./Ieee/input.scm 150 */
long BgL_auxz00_3703;
{ /* ./Ieee/input.scm 150 */
int BgL_auxz00_3704;
BgL_auxz00_3704 = 
STRING_LENGTH(BgL_accz00_935); 
BgL_auxz00_3703 = 
(long)(BgL_auxz00_3704); } 
BgL_auxz00_3702 = 
(BgL_auxz00_3703+((long)1)); } 
BgL_auxz00_3701 = 
(int)(BgL_auxz00_3702); } 
BgL_test2235z00_1686 = 
BOUND_CHECK(BgL_endz00_1685, BgL_auxz00_3701); }  else 
{ /* ./Ieee/input.scm 150 */
BgL_test2235z00_1686 = ((bool_t)0); } }  else 
{ /* ./Ieee/input.scm 150 */
BgL_test2235z00_1686 = ((bool_t)0); } } 
if(BgL_test2235z00_1686)
{ /* ./Ieee/input.scm 150 */
BgL_res2583z00_1711 = 
c_substring(BgL_accz00_935, BgL_startz00_1684, BgL_endz00_1685); }  else 
{ /* ./Ieee/input.scm 150 */
{ /* ./Ieee/input.scm 150 */
obj_t BgL_arg2240z00_1697;
{ /* ./Ieee/input.scm 150 */
obj_t BgL_auxz00_3714;obj_t BgL_auxz00_3712;
BgL_auxz00_3714 = 
BINT(BgL_endz00_1685); 
BgL_auxz00_3712 = 
BINT(BgL_startz00_1684); 
BgL_arg2240z00_1697 = 
MAKE_PAIR(BgL_auxz00_3712, BgL_auxz00_3714); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5048z00zz__r4_input_6_10_2z00, BGl_string5049z00zz__r4_input_6_10_2z00, BgL_arg2240z00_1697, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/input.scm 150 */
obj_t BgL_aux3763z00_2304;
BgL_aux3763z00_2304 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5990))); 
if(
STRINGP(BgL_aux3763z00_2304))
{ /* ./Ieee/input.scm 150 */
BgL_res2583z00_1711 = BgL_aux3763z00_2304; }  else 
{ /* ./Ieee/input.scm 150 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string5050z00zz__r4_input_6_10_2z00, BgL_aux3763z00_2304, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5990))); 
exit( -1 );} } } } } 
BgL_aux2627z00_1967 = BgL_res2583z00_1711; } }  else 
{ /* ./Ieee/input.scm 148 */
if(
(BgL_wz00_933==BgL_mz00_934))
{ /* ./Ieee/input.scm 151 */
{ /* ./Ieee/input.scm 155 */
long BgL_arg1658z00_947;obj_t BgL_arg1659z00_948;
BgL_arg1658z00_947 = 
(BgL_mz00_934*((long)2)); 
{ /* ./Ieee/input.scm 156 */
obj_t BgL_newzd2acczd2_949;
{ /* ./Ieee/input.scm 156 */
long BgL_arg1664z00_950;
BgL_arg1664z00_950 = 
(BgL_mz00_934*((long)2)); 
{ /* ./Ieee/input.scm 156 */
int BgL_auxz00_3729;
BgL_auxz00_3729 = 
(int)(BgL_arg1664z00_950); 
BgL_newzd2acczd2_949 = 
make_string(BgL_auxz00_3729, ((unsigned char)' ')); } } 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_accz00_935, 
(int)(((long)0)), BgL_newzd2acczd2_949, 
(int)(((long)0)), 
(int)(BgL_mz00_934)); 
BgL_arg1659z00_948 = BgL_newzd2acczd2_949; } 
{ 
obj_t BgL_accz00_3737;long BgL_mz00_3736;
BgL_mz00_3736 = BgL_arg1658z00_947; 
BgL_accz00_3737 = BgL_arg1659z00_948; 
BgL_accz00_935 = BgL_accz00_3737; 
BgL_mz00_934 = BgL_mz00_3736; 
goto BgL_loopz00_936;} } }  else 
{ /* ./Ieee/input.scm 151 */
{ /* ./Ieee/input.scm 163 */
int BgL_kz00_1726;unsigned char BgL_charz00_1727;
BgL_kz00_1726 = 
(int)(BgL_wz00_933); 
{ /* ./Ieee/input.scm 163 */
obj_t BgL_auxz00_3739;
if(
CHARP(BgL_cz00_932))
{ /* ./Ieee/input.scm 163 */
BgL_auxz00_3739 = BgL_cz00_932
; }  else 
{ /* ./Ieee/input.scm 163 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5047z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_cz00_932, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)6237))); 
exit( -1 );} 
BgL_charz00_1727 = 
(unsigned char)CCHAR(BgL_auxz00_3739); } 
{ /* ./Ieee/input.scm 163 */
bool_t BgL_testz00_3746;
{ /* ./Ieee/input.scm 163 */
int BgL_auxz00_3747;
BgL_auxz00_3747 = 
STRING_LENGTH(BgL_accz00_935); 
BgL_testz00_3746 = 
BOUND_CHECK(BgL_kz00_1726, BgL_auxz00_3747); } 
if(BgL_testz00_3746)
{ /* ./Ieee/input.scm 163 */
STRING_SET(BgL_accz00_935, BgL_kz00_1726, BgL_charz00_1727); }  else 
{ /* ./Ieee/input.scm 163 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5051z00zz__r4_input_6_10_2z00, BGl_string5002z00zz__r4_input_6_10_2z00, 
BINT(BgL_kz00_1726), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)6237))); } } } 
{ /* ./Ieee/input.scm 164 */
obj_t BgL_arg1670z00_952;long BgL_arg1671z00_953;
{ /* ./Ieee/input.scm 164 */
obj_t BgL_list1674z00_954;
BgL_list1674z00_954 = 
MAKE_PAIR(BgL_portz00_745, BNIL); 
BgL_arg1670z00_952 = 
BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_list1674z00_954); } 
BgL_arg1671z00_953 = 
(BgL_wz00_933+((long)1)); 
{ 
long BgL_wz00_3759;obj_t BgL_cz00_3758;
BgL_cz00_3758 = BgL_arg1670z00_952; 
BgL_wz00_3759 = BgL_arg1671z00_953; 
BgL_wz00_933 = BgL_wz00_3759; 
BgL_cz00_932 = BgL_cz00_3758; 
goto BgL_loopz00_936;} } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2627z00_1967;} } } } 
}



/* _read-line */
obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2061, obj_t BgL_inputzd2portzd2_2062)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 120 */
return 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2062);} 
}



/* ignore_2699 */
obj_t BGl_ignore_2699z00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21014z00_2066, obj_t BgL_thezd2rgczd2contextz00_2065, obj_t BgL_procz00_2064, obj_t BgL_inputzd2portzd2_2063)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1519;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2063))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1519 = BgL_inputzd2portzd2_2063; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2063, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_START_MATCH(BgL_inputzd2portzd2_1519); } 
{ /* ./Ieee/input.scm 123 */
long BgL_matchz00_784;
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1499z00_796;
BgL_test1499z00_796 = 
PROCEDUREP(BgL_procz00_2064); 
if(BgL_test1499z00_796)
{ /* ./Ieee/input.scm 123 */
obj_t BgL_funz00_2320;
if(BgL_test1499z00_796)
{ /* ./Ieee/input.scm 123 */
BgL_funz00_2320 = BgL_procz00_2064; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_procz00_2064, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2320, ((long)4)))
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_3776;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_aux3862z00_2321;
BgL_aux3862z00_2321 = 
PROCEDURE_ENTRY(BgL_funz00_2320)(BgL_procz00_2064, BgL_statezd20zd21014z00_2066, BgL_inputzd2portzd2_2063, 
BINT(((long)4)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2065), BEOA); 
if(
INTEGERP(BgL_aux3862z00_2321))
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3776 = BgL_aux3862z00_2321
; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux3862z00_2321, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} } 
BgL_matchz00_784 = 
(long)CINT(BgL_auxz00_3776); }  else 
{ /* ./Ieee/input.scm 123 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5053z00zz__r4_input_6_10_2z00, BGl_list5054z00zz__r4_input_6_10_2z00, BgL_funz00_2320, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_3789;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_aux3880z00_2325;
BgL_aux3880z00_2325 = 
BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00(BgL_statezd20zd21014z00_2066, BgL_inputzd2portzd2_2063, 
BINT(((long)4)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2065)); 
if(
INTEGERP(BgL_aux3880z00_2325))
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3789 = BgL_aux3880z00_2325
; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux3880z00_2325, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} } 
BgL_matchz00_784 = 
(long)CINT(BgL_auxz00_3789); } } 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1521;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2063))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1521 = BgL_inputzd2portzd2_2063; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2063, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1521); } 
switch( BgL_matchz00_784) { case ((long)4) : 

return 
BGl_thezd2failure_2700zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2063);break;case ((long)3) : 

return BGl_string5057z00zz__r4_input_6_10_2z00;break;case ((long)2) : 

return 
BGl_thezd2string_2701zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2063);break;case ((long)1) : 

{ /* ./Ieee/input.scm 128 */
long BgL_arg1479z00_789;
{ /* ./Ieee/input.scm 128 */
int BgL_arg1482z00_790;
{ /* ./Ieee/input.scm 128 */
int BgL_res2573z00_1523;
{ /* ./Ieee/input.scm 128 */
obj_t BgL_inputzd2portzd2_1522;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2063))
{ /* ./Ieee/input.scm 128 */
BgL_inputzd2portzd2_1522 = BgL_inputzd2portzd2_2063; }  else 
{ /* ./Ieee/input.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2063, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5412))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 128 */
long BgL_auxz00_3811;
BgL_auxz00_3811 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1522); 
BgL_res2573z00_1523 = 
(int)(BgL_auxz00_3811); } } 
BgL_arg1482z00_790 = BgL_res2573z00_1523; } 
{ /* ./Ieee/input.scm 128 */
long BgL_auxz00_3814;
BgL_auxz00_3814 = 
(long)(BgL_arg1482z00_790); 
BgL_arg1479z00_789 = 
(BgL_auxz00_3814-((long)2)); } } 
return 
BGl_thezd2substringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2063, ((long)0), BgL_arg1479z00_789);} break;case ((long)0) : 

{ /* ./Ieee/input.scm 126 */
long BgL_arg1488z00_793;
{ /* ./Ieee/input.scm 126 */
int BgL_arg1491z00_794;
{ /* ./Ieee/input.scm 126 */
int BgL_res2574z00_1527;
{ /* ./Ieee/input.scm 126 */
obj_t BgL_inputzd2portzd2_1526;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2063))
{ /* ./Ieee/input.scm 126 */
BgL_inputzd2portzd2_1526 = BgL_inputzd2portzd2_2063; }  else 
{ /* ./Ieee/input.scm 126 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5052z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2063, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5324))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 126 */
long BgL_auxz00_3823;
BgL_auxz00_3823 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1526); 
BgL_res2574z00_1527 = 
(int)(BgL_auxz00_3823); } } 
BgL_arg1491z00_794 = BgL_res2574z00_1527; } 
{ /* ./Ieee/input.scm 126 */
long BgL_auxz00_3826;
BgL_auxz00_3826 = 
(long)(BgL_arg1491z00_794); 
BgL_arg1488z00_793 = 
(BgL_auxz00_3826-((long)1)); } } 
return 
BGl_thezd2substringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2063, ((long)0), BgL_arg1488z00_793);} break;
default: 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string4998z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_784), BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176)));} } } 
}



/* the-substring */
obj_t BGl_thezd2substringzd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2067, long BgL_minz00_817, long BgL_maxz00_818)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1536z00_820;
if(
(BgL_minz00_817>=((long)0)))
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1545z00_825;
{ /* ./Ieee/input.scm 123 */
int BgL_arg1548z00_826;
{ /* ./Ieee/input.scm 123 */
int BgL_res2577z00_1556;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1555;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2067))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1555 = BgL_inputzd2portzd2_2067; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5058z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2067, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_3841;
BgL_auxz00_3841 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1555); 
BgL_res2577z00_1556 = 
(int)(BgL_auxz00_3841); } } 
BgL_arg1548z00_826 = BgL_res2577z00_1556; } 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_3844;
BgL_auxz00_3844 = 
(long)(BgL_arg1548z00_826); 
BgL_test1545z00_825 = 
(BgL_maxz00_818<=BgL_auxz00_3844); } } 
if(BgL_test1545z00_825)
{ /* ./Ieee/input.scm 123 */
BgL_test1536z00_820 = 
(BgL_maxz00_818>=BgL_minz00_817); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_test1536z00_820 = ((bool_t)0); } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_test1536z00_820 = ((bool_t)0); } 
if(BgL_test1536z00_820)
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1561;int BgL_startz00_1562;int BgL_stopz00_1563;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2067))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1561 = BgL_inputzd2portzd2_2067; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5058z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2067, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_startz00_1562 = 
(int)(BgL_minz00_817); 
BgL_stopz00_1563 = 
(int)(BgL_maxz00_818); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_1561, BgL_startz00_1562, BgL_stopz00_1563);}  else 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_arg1541z00_823;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_3860;obj_t BgL_auxz00_3858;
BgL_auxz00_3860 = 
BINT(BgL_maxz00_818); 
BgL_auxz00_3858 = 
BINT(BgL_minz00_817); 
BgL_arg1541z00_823 = 
MAKE_PAIR(BgL_auxz00_3858, BgL_auxz00_3860); } 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_aux3967z00_2337;
BgL_aux3967z00_2337 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5059z00zz__r4_input_6_10_2z00, BGl_string5060z00zz__r4_input_6_10_2z00, BgL_arg1541z00_823, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
if(
STRINGP(BgL_aux3967z00_2337))
{ /* ./Ieee/input.scm 123 */
return BgL_aux3967z00_2337;}  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5058z00zz__r4_input_6_10_2z00, BGl_string5050z00zz__r4_input_6_10_2z00, BgL_aux3967z00_2337, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} } } } } 
}



/* the-string_2701 */
obj_t BGl_thezd2string_2701zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2068)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
int BgL_arg1555z00_829;
{ /* ./Ieee/input.scm 123 */
int BgL_res2578z00_1568;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1567;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2068))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1567 = BgL_inputzd2portzd2_2068; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5061z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2068, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_3875;
BgL_auxz00_3875 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1567); 
BgL_res2578z00_1568 = 
(int)(BgL_auxz00_3875); } } 
BgL_arg1555z00_829 = BgL_res2578z00_1568; } 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1569;int BgL_startz00_1570;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2068))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1569 = BgL_inputzd2portzd2_2068; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5061z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2068, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_startz00_1570 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_1569, BgL_startz00_1570, BgL_arg1555z00_829);} } } 
}



/* the-failure_2700 */
obj_t BGl_thezd2failure_2700zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2069)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1512z00_806;
{ /* ./Ieee/input.scm 123 */
int BgL_arg1519z00_809;
{ /* ./Ieee/input.scm 123 */
int BgL_res2575z00_1540;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1539;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2069))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1539 = BgL_inputzd2portzd2_2069; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5062z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2069, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_3890;
BgL_auxz00_3890 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1539); 
BgL_res2575z00_1540 = 
(int)(BgL_auxz00_3890); } } 
BgL_arg1519z00_809 = BgL_res2575z00_1540; } 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_3893;
BgL_auxz00_3893 = 
(long)(BgL_arg1519z00_809); 
BgL_test1512z00_806 = 
(BgL_auxz00_3893==((long)0)); } } 
if(BgL_test1512z00_806)
{ /* ./Ieee/input.scm 123 */
return BCNST(256);}  else 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_arg1514z00_807;
BgL_arg1514z00_807 = 
BGl_thezd2string_2701zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2069); 
{ /* ./Ieee/input.scm 123 */
unsigned char BgL_res2576z00_1551;
{ /* ./Ieee/input.scm 123 */
int BgL_kz00_1544;
BgL_kz00_1544 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_3899;
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_3900;
BgL_auxz00_3900 = 
STRING_LENGTH(BgL_arg1514z00_807); 
BgL_testz00_3899 = 
BOUND_CHECK(BgL_kz00_1544, BgL_auxz00_3900); } 
if(BgL_testz00_3899)
{ /* ./Ieee/input.scm 123 */
BgL_res2576z00_1551 = 
STRING_REF(BgL_arg1514z00_807, BgL_kz00_1544); }  else 
{ /* ./Ieee/input.scm 123 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5001z00zz__r4_input_6_10_2z00, BGl_string5002z00zz__r4_input_6_10_2z00, 
BINT(BgL_kz00_1544), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/input.scm 123 */
obj_t BgL_auxz00_3906;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_aux4020z00_2345;
BgL_aux4020z00_2345 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
if(
CHARP(BgL_aux4020z00_2345))
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3906 = BgL_aux4020z00_2345
; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5062z00zz__r4_input_6_10_2z00, BGl_string5003z00zz__r4_input_6_10_2z00, BgL_aux4020z00_2345, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} } 
BgL_res2576z00_1551 = 
(unsigned char)CCHAR(BgL_auxz00_3906); } } } } 
return 
BCHAR(BgL_res2576z00_1551);} } } } 
}



/* <anonymous:1458:Ieee/input.scm:123> */
obj_t BGl_zc3anonymousza31458za3Ieeezf2inputze2scmza3123ze3z93zz__r4_input_6_10_2z00(obj_t BgL_envz00_2070, obj_t BgL_inputzd2portzd2_2072, obj_t BgL_procz00_2073)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
obj_t BgL_thezd2rgczd2contextz00_2071;
{ /* ./Ieee/input.scm 123 */
int BgL_auxz00_3916;
BgL_auxz00_3916 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2071 = 
PROCEDURE_1_EL_REF(BgL_envz00_2070, BgL_auxz00_3916); } 
{ 
obj_t BgL_inputzd2portzd2_749;obj_t BgL_procz00_750;
BgL_inputzd2portzd2_749 = BgL_inputzd2portzd2_2072; 
BgL_procz00_750 = BgL_procz00_2073; 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1050z00_778;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_arg1468z00_782;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_res2571z00_1513;
if(
INPUT_PORTP(BgL_inputzd2portzd2_749))
{ /* ./Ieee/input.scm 123 */
BgL_res2571z00_1513 = BgL_inputzd2portzd2_749; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5064z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_749, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_arg1468z00_782 = BgL_res2571z00_1513; } 
BgL_test1050z00_778 = 
!RGC_BUFFER(BgL_arg1468z00_782); } 
if(BgL_test1050z00_778)
{ /* ./Ieee/input.scm 123 */
obj_t BgL_arg1463z00_781;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_res2572z00_1515;
if(
INPUT_PORTP(BgL_inputzd2portzd2_749))
{ /* ./Ieee/input.scm 123 */
BgL_res2572z00_1515 = BgL_inputzd2portzd2_749; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5064z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_749, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_arg1463z00_781 = BgL_res2572z00_1515; } 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string5007z00zz__r4_input_6_10_2z00, BgL_arg1463z00_781, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176)));}  else 
{ /* ./Ieee/input.scm 123 */
return 
BGl_ignore_2699z00zz__r4_input_6_10_2z00(BGl_proc5063z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_2071, BgL_procz00_750, BgL_inputzd2portzd2_749);} } } } } 
}



/* STATE-0-1014 */
obj_t BGl_STATEzd20zd21014z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2074, obj_t BgL_inputzd2portzd2_2075, obj_t BgL_lastzd2matchzd2_2076, obj_t BgL_thezd2rgczd2contextz00_2077)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 123 */
{ 
obj_t BgL_inputzd2portzd2_832;obj_t BgL_lastzd2matchzd2_833;obj_t BgL_thezd2rgczd2contextz00_834;
BgL_inputzd2portzd2_832 = BgL_inputzd2portzd2_2075; 
BgL_lastzd2matchzd2_833 = BgL_lastzd2matchzd2_2076; 
BgL_thezd2rgczd2contextz00_834 = BgL_thezd2rgczd2contextz00_2077; 
BgL_zc3anonymousza31561za3ieeezf2inputze2scmza3123ze3z93_835:
{ 
obj_t BgL_inputzd2portzd2_858;obj_t BgL_lastzd2matchzd2_859;obj_t BgL_thezd2rgczd2contextz00_860;obj_t BgL_inputzd2portzd2_842;obj_t BgL_lastzd2matchzd2_843;obj_t BgL_thezd2rgczd2contextz00_844;obj_t BgL_inputzd2portzd2_892;long BgL_lastzd2matchzd2_893;obj_t BgL_thezd2rgczd2contextz00_894;obj_t BgL_inputzd2portzd2_876;long BgL_lastzd2matchzd2_877;obj_t BgL_thezd2rgczd2contextz00_878;
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_836;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1572;
if(
INPUT_PORTP(BgL_inputzd2portzd2_832))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1572 = BgL_inputzd2portzd2_832; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_832, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_currentzd2charzd2_836 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1572); } 
switch( 
(long)(BgL_currentzd2charzd2_836)) { case ((long)0) : 

{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1563z00_840;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1573;
if(
INPUT_PORTP(BgL_inputzd2portzd2_832))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1573 = BgL_inputzd2portzd2_832; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_832, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_test1563z00_840 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1573); } 
if(BgL_test1563z00_840)
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1564z00_841;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1574;
if(
INPUT_PORTP(BgL_inputzd2portzd2_832))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1574 = BgL_inputzd2portzd2_832; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_832, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_test1564z00_841 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1574); } 
if(BgL_test1564z00_841)
{ 

goto BgL_zc3anonymousza31561za3ieeezf2inputze2scmza3123ze3z93_835;}  else 
{ /* ./Ieee/input.scm 123 */
return BgL_lastzd2matchzd2_833;} }  else 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_3954;
BgL_inputzd2portzd2_842 = BgL_inputzd2portzd2_832; 
BgL_lastzd2matchzd2_843 = BgL_lastzd2matchzd2_833; 
BgL_thezd2rgczd2contextz00_844 = BgL_thezd2rgczd2contextz00_834; 
BgL_zc3anonymousza31576za3ieeezf2inputze2scmza3123ze3z93_845:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_846;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1580;
if(
INPUT_PORTP(BgL_inputzd2portzd2_842))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1580 = BgL_inputzd2portzd2_842; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_842, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1580); } 
BgL_newzd2matchzd2_846 = ((long)2); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_847;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1581;
if(
INPUT_PORTP(BgL_inputzd2portzd2_842))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1581 = BgL_inputzd2portzd2_842; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_842, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_currentzd2charzd2_847 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1581); } 
switch( 
(long)(BgL_currentzd2charzd2_847)) { case ((long)0) : 

{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1578z00_851;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1582;
if(
INPUT_PORTP(BgL_inputzd2portzd2_842))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1582 = BgL_inputzd2portzd2_842; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_842, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_test1578z00_851 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1582); } 
if(BgL_test1578z00_851)
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1579z00_852;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1583;
if(
INPUT_PORTP(BgL_inputzd2portzd2_842))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1583 = BgL_inputzd2portzd2_842; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_842, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_test1579z00_852 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1583); } 
if(BgL_test1579z00_852)
{ 

goto BgL_zc3anonymousza31576za3ieeezf2inputze2scmza3123ze3z93_845;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3954 = BgL_newzd2matchzd2_846
; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_876 = BgL_inputzd2portzd2_842; 
BgL_lastzd2matchzd2_877 = BgL_newzd2matchzd2_846; 
BgL_thezd2rgczd2contextz00_878 = BgL_thezd2rgczd2contextz00_844; 
BgL_zc3anonymousza31608za3ieeezf2inputze2scmza3123ze3z93_879:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_880;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1609;
if(
INPUT_PORTP(BgL_inputzd2portzd2_876))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1609 = BgL_inputzd2portzd2_876; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_876, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1609); } 
BgL_newzd2matchzd2_880 = ((long)2); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_881;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1610;
if(
INPUT_PORTP(BgL_inputzd2portzd2_876))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1610 = BgL_inputzd2portzd2_876; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_876, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_currentzd2charzd2_881 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1610); } 
switch( 
(long)(BgL_currentzd2charzd2_881)) { case ((long)0) : 

{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1610z00_885;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1611;
if(
INPUT_PORTP(BgL_inputzd2portzd2_876))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1611 = BgL_inputzd2portzd2_876; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_876, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_test1610z00_885 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1611); } 
if(BgL_test1610z00_885)
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1611z00_886;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1612;
if(
INPUT_PORTP(BgL_inputzd2portzd2_876))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1612 = BgL_inputzd2portzd2_876; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_876, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_test1611z00_886 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1612); } 
if(BgL_test1611z00_886)
{ 

goto BgL_zc3anonymousza31608za3ieeezf2inputze2scmza3123ze3z93_879;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3954 = BgL_newzd2matchzd2_880
; } }  else 
{ 
long BgL_lastzd2matchzd2_4007;
BgL_lastzd2matchzd2_4007 = BgL_newzd2matchzd2_880; 
BgL_lastzd2matchzd2_877 = BgL_lastzd2matchzd2_4007; 
goto BgL_zc3anonymousza31608za3ieeezf2inputze2scmza3123ze3z93_879;} } break;case ((long)13) : 

BgL_inputzd2portzd2_892 = BgL_inputzd2portzd2_876; 
BgL_lastzd2matchzd2_893 = BgL_newzd2matchzd2_880; 
BgL_thezd2rgczd2contextz00_894 = BgL_thezd2rgczd2contextz00_878; 
BgL_zc3anonymousza31626za3ieeezf2inputze2scmza3123ze3z93_895:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_896;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1620;
if(
INPUT_PORTP(BgL_inputzd2portzd2_892))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1620 = BgL_inputzd2portzd2_892; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_892, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1620); } 
BgL_newzd2matchzd2_896 = ((long)0); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_897;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1621;
if(
INPUT_PORTP(BgL_inputzd2portzd2_892))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1621 = BgL_inputzd2portzd2_892; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_892, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_currentzd2charzd2_897 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1621); } 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_4020;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_4021;
BgL_auxz00_4021 = 
(long)(BgL_currentzd2charzd2_897); 
BgL_testz00_4020 = 
(BgL_auxz00_4021==((long)0)); } 
if(BgL_testz00_4020)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1628z00_899;
{ /* ./Ieee/input.scm 123 */
bool_t BgL_res2580z00_1628;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1624;
if(
INPUT_PORTP(BgL_inputzd2portzd2_892))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1624 = BgL_inputzd2portzd2_892; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_892, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 123 */
bool_t BgL__andtest_1047z00_1625;
BgL__andtest_1047z00_1625 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1624); 
if(BgL__andtest_1047z00_1625)
{ /* ./Ieee/input.scm 123 */
BgL_res2580z00_1628 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1624); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_res2580z00_1628 = ((bool_t)0); } } } 
BgL_test1628z00_899 = BgL_res2580z00_1628; } 
if(BgL_test1628z00_899)
{ 

goto BgL_zc3anonymousza31626za3ieeezf2inputze2scmza3123ze3z93_895;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3954 = BgL_newzd2matchzd2_896
; } } }  else 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_4033;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_4034;
BgL_auxz00_4034 = 
(long)(BgL_currentzd2charzd2_897); 
BgL_testz00_4033 = 
(BgL_auxz00_4034==((long)10)); } 
if(BgL_testz00_4033)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1634;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1635;
if(
INPUT_PORTP(BgL_inputzd2portzd2_892))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1635 = BgL_inputzd2portzd2_892; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_892, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1635); } 
BgL_newzd2matchzd2_1634 = ((long)1); 
BgL_auxz00_3954 = BgL_newzd2matchzd2_1634; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_3954 = BgL_newzd2matchzd2_896; } } } } } break;case ((long)10) : 

{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1616;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1617;
if(
INPUT_PORTP(BgL_inputzd2portzd2_876))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1617 = BgL_inputzd2portzd2_876; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_876, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1617); } 
BgL_newzd2matchzd2_1616 = ((long)0); 
BgL_auxz00_3954 = BgL_newzd2matchzd2_1616; } break;
default: 
{ 
long BgL_lastzd2matchzd2_4049;
BgL_lastzd2matchzd2_4049 = BgL_newzd2matchzd2_880; 
BgL_lastzd2matchzd2_877 = BgL_lastzd2matchzd2_4049; 
goto BgL_zc3anonymousza31608za3ieeezf2inputze2scmza3123ze3z93_879;} } } } } } break;case ((long)13) : 

{ 
obj_t BgL_thezd2rgczd2contextz00_4054;long BgL_lastzd2matchzd2_4053;obj_t BgL_inputzd2portzd2_4052;
BgL_inputzd2portzd2_4052 = BgL_inputzd2portzd2_842; 
BgL_lastzd2matchzd2_4053 = BgL_newzd2matchzd2_846; 
BgL_thezd2rgczd2contextz00_4054 = BgL_thezd2rgczd2contextz00_844; 
BgL_thezd2rgczd2contextz00_894 = BgL_thezd2rgczd2contextz00_4054; 
BgL_lastzd2matchzd2_893 = BgL_lastzd2matchzd2_4053; 
BgL_inputzd2portzd2_892 = BgL_inputzd2portzd2_4052; 
goto BgL_zc3anonymousza31626za3ieeezf2inputze2scmza3123ze3z93_895;} break;case ((long)10) : 

{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1587;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1588;
if(
INPUT_PORTP(BgL_inputzd2portzd2_842))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1588 = BgL_inputzd2portzd2_842; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_842, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1588); } 
BgL_newzd2matchzd2_1587 = ((long)0); 
BgL_auxz00_3954 = BgL_newzd2matchzd2_1587; } break;
default: 
{ 
obj_t BgL_thezd2rgczd2contextz00_4063;long BgL_lastzd2matchzd2_4062;obj_t BgL_inputzd2portzd2_4061;
BgL_inputzd2portzd2_4061 = BgL_inputzd2portzd2_842; 
BgL_lastzd2matchzd2_4062 = BgL_newzd2matchzd2_846; 
BgL_thezd2rgczd2contextz00_4063 = BgL_thezd2rgczd2contextz00_844; 
BgL_thezd2rgczd2contextz00_878 = BgL_thezd2rgczd2contextz00_4063; 
BgL_lastzd2matchzd2_877 = BgL_lastzd2matchzd2_4062; 
BgL_inputzd2portzd2_876 = BgL_inputzd2portzd2_4061; 
goto BgL_zc3anonymousza31608za3ieeezf2inputze2scmza3123ze3z93_879;} } } } 
return 
BINT(BgL_auxz00_3954);} } break;case ((long)13) : 

{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_4067;
BgL_inputzd2portzd2_858 = BgL_inputzd2portzd2_832; 
BgL_lastzd2matchzd2_859 = BgL_lastzd2matchzd2_833; 
BgL_thezd2rgczd2contextz00_860 = BgL_thezd2rgczd2contextz00_834; 
BgL_zc3anonymousza31594za3ieeezf2inputze2scmza3123ze3z93_861:
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_862;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1591;
if(
INPUT_PORTP(BgL_inputzd2portzd2_858))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1591 = BgL_inputzd2portzd2_858; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_858, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1591); } 
BgL_newzd2matchzd2_862 = ((long)3); 
{ /* ./Ieee/input.scm 123 */
int BgL_currentzd2charzd2_863;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1592;
if(
INPUT_PORTP(BgL_inputzd2portzd2_858))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1592 = BgL_inputzd2portzd2_858; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_858, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_currentzd2charzd2_863 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1592); } 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_4080;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_4081;
BgL_auxz00_4081 = 
(long)(BgL_currentzd2charzd2_863); 
BgL_testz00_4080 = 
(BgL_auxz00_4081==((long)0)); } 
if(BgL_testz00_4080)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
bool_t BgL_test1596z00_865;
{ /* ./Ieee/input.scm 123 */
bool_t BgL_res2579z00_1599;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1595;
if(
INPUT_PORTP(BgL_inputzd2portzd2_858))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1595 = BgL_inputzd2portzd2_858; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_858, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 123 */
bool_t BgL__andtest_1047z00_1596;
BgL__andtest_1047z00_1596 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1595); 
if(BgL__andtest_1047z00_1596)
{ /* ./Ieee/input.scm 123 */
BgL_res2579z00_1599 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1595); }  else 
{ /* ./Ieee/input.scm 123 */
BgL_res2579z00_1599 = ((bool_t)0); } } } 
BgL_test1596z00_865 = BgL_res2579z00_1599; } 
if(BgL_test1596z00_865)
{ 

goto BgL_zc3anonymousza31594za3ieeezf2inputze2scmza3123ze3z93_861;}  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_4067 = BgL_newzd2matchzd2_862
; } } }  else 
{ /* ./Ieee/input.scm 123 */
bool_t BgL_testz00_4093;
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_4094;
BgL_auxz00_4094 = 
(long)(BgL_currentzd2charzd2_863); 
BgL_testz00_4093 = 
(BgL_auxz00_4094==((long)10)); } 
if(BgL_testz00_4093)
{ /* ./Ieee/input.scm 123 */
{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1605;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1606;
if(
INPUT_PORTP(BgL_inputzd2portzd2_858))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1606 = BgL_inputzd2portzd2_858; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_858, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1606); } 
BgL_newzd2matchzd2_1605 = ((long)3); 
BgL_auxz00_4067 = BgL_newzd2matchzd2_1605; } }  else 
{ /* ./Ieee/input.scm 123 */
BgL_auxz00_4067 = BgL_newzd2matchzd2_862; } } } } } 
return 
BINT(BgL_auxz00_4067);} break;case ((long)10) : 

{ /* ./Ieee/input.scm 123 */
long BgL_newzd2matchzd2_1578;
{ /* ./Ieee/input.scm 123 */
obj_t BgL_inputzd2portzd2_1579;
if(
INPUT_PORTP(BgL_inputzd2portzd2_832))
{ /* ./Ieee/input.scm 123 */
BgL_inputzd2portzd2_1579 = BgL_inputzd2portzd2_832; }  else 
{ /* ./Ieee/input.scm 123 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5055z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_832, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)5176))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1579); } 
BgL_newzd2matchzd2_1578 = ((long)3); 
return 
BINT(BgL_newzd2matchzd2_1578);} break;
default: 
{ /* ./Ieee/input.scm 123 */
long BgL_auxz00_4111;
{ 
obj_t BgL_thezd2rgczd2contextz00_4114;obj_t BgL_lastzd2matchzd2_4113;obj_t BgL_inputzd2portzd2_4112;
BgL_inputzd2portzd2_4112 = BgL_inputzd2portzd2_832; 
BgL_lastzd2matchzd2_4113 = BgL_lastzd2matchzd2_833; 
BgL_thezd2rgczd2contextz00_4114 = BgL_thezd2rgczd2contextz00_834; 
BgL_thezd2rgczd2contextz00_844 = BgL_thezd2rgczd2contextz00_4114; 
BgL_lastzd2matchzd2_843 = BgL_lastzd2matchzd2_4113; 
BgL_inputzd2portzd2_842 = BgL_inputzd2portzd2_4112; 
goto BgL_zc3anonymousza31576za3ieeezf2inputze2scmza3123ze3z93_845;} 
return 
BINT(BgL_auxz00_4111);} } } } } } 
}



/* read-lines */
BGL_EXPORTED_DEF obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_12)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 172 */
{ /* ./Ieee/input.scm 173 */
obj_t BgL_symbol2632z00_1968;
BgL_symbol2632z00_1968 = BGl_symbol5065z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 173 */

PUSH_TRACE(BgL_symbol2632z00_1968); BUNSPEC; 
{ /* ./Ieee/input.scm 173 */
obj_t BgL_aux2631z00_1969;
{ /* ./Ieee/input.scm 173 */
obj_t BgL_portz00_959;
{ /* ./Ieee/input.scm 173 */
bool_t BgL_test1709z00_970;
BgL_test1709z00_970 = 
PAIRP(BgL_inputzd2portzd2_12); 
if(BgL_test1709z00_970)
{ /* ./Ieee/input.scm 173 */
obj_t BgL_pairz00_1737;
if(BgL_test1709z00_970)
{ /* ./Ieee/input.scm 173 */
BgL_pairz00_1737 = BgL_inputzd2portzd2_12; }  else 
{ /* ./Ieee/input.scm 173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5065z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_12, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)6644))); 
exit( -1 );} 
BgL_portz00_959 = 
CAR(BgL_pairz00_1737); }  else 
{ /* ./Ieee/input.scm 173 */
BgL_portz00_959 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 174 */
obj_t BgL_arg1692z00_963;
{ /* ./Ieee/input.scm 174 */
obj_t BgL_list1696z00_965;
BgL_list1696z00_965 = 
MAKE_PAIR(BgL_portz00_959, BNIL); 
BgL_arg1692z00_963 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1696z00_965); } 
{ 
obj_t BgL_lz00_1739;obj_t BgL_lsz00_1740;
BgL_lz00_1739 = BgL_arg1692z00_963; 
BgL_lsz00_1740 = BNIL; 
BgL_loopz00_1738:
{ /* ./Ieee/input.scm 174 */
bool_t BgL_test1698z00_1745;
BgL_test1698z00_1745 = 
EOF_OBJECTP(BgL_lz00_1739); 
if(BgL_test1698z00_1745)
{ /* ./Ieee/input.scm 174 */
obj_t BgL_auxz00_4131;
{ /* ./Ieee/input.scm 174 */
bool_t BgL_testz00_4132;
if(
PAIRP(BgL_lsz00_1740))
{ /* ./Ieee/input.scm 174 */
BgL_testz00_4132 = ((bool_t)1)
; }  else 
{ /* ./Ieee/input.scm 174 */
BgL_testz00_4132 = 
NULLP(BgL_lsz00_1740)
; } 
if(BgL_testz00_4132)
{ /* ./Ieee/input.scm 174 */
BgL_auxz00_4131 = BgL_lsz00_1740
; }  else 
{ /* ./Ieee/input.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5065z00zz__r4_input_6_10_2z00, BGl_string5066z00zz__r4_input_6_10_2z00, BgL_lsz00_1740, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)6677))); 
exit( -1 );} } 
BgL_aux2631z00_1969 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4131); }  else 
{ /* ./Ieee/input.scm 174 */
obj_t BgL_arg1701z00_1746;obj_t BgL_arg1702z00_1747;
{ /* ./Ieee/input.scm 174 */
obj_t BgL_list1705z00_1748;
BgL_list1705z00_1748 = 
MAKE_PAIR(BgL_portz00_959, BNIL); 
BgL_arg1701z00_1746 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1705z00_1748); } 
BgL_arg1702z00_1747 = 
MAKE_PAIR(BgL_lz00_1739, BgL_lsz00_1740); 
{ 
obj_t BgL_lsz00_4144;obj_t BgL_lz00_4143;
BgL_lz00_4143 = BgL_arg1701z00_1746; 
BgL_lsz00_4144 = BgL_arg1702z00_1747; 
BgL_lsz00_1740 = BgL_lsz00_4144; 
BgL_lz00_1739 = BgL_lz00_4143; 
goto BgL_loopz00_1738;} } } } } } 
POP_TRACE(); 
return BgL_aux2631z00_1969;} } } } 
}



/* _read-lines */
obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2078, obj_t BgL_inputzd2portzd2_2079)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 172 */
return 
BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2079);} 
}



/* read-string */
BGL_EXPORTED_DEF obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_13)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 183 */
{ /* ./Ieee/input.scm 184 */
obj_t BgL_symbol2636z00_1970;
BgL_symbol2636z00_1970 = BGl_symbol5067z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 184 */

PUSH_TRACE(BgL_symbol2636z00_1970); BUNSPEC; 
{ /* ./Ieee/input.scm 184 */
obj_t BgL_aux2635z00_1971;
{ /* ./Ieee/input.scm 184 */
obj_t BgL_portz00_971;
{ /* ./Ieee/input.scm 184 */
bool_t BgL_test1836z00_1093;
BgL_test1836z00_1093 = 
PAIRP(BgL_inputzd2portzd2_13); 
if(BgL_test1836z00_1093)
{ /* ./Ieee/input.scm 184 */
obj_t BgL_pairz00_1763;
if(BgL_test1836z00_1093)
{ /* ./Ieee/input.scm 184 */
BgL_pairz00_1763 = BgL_inputzd2portzd2_13; }  else 
{ /* ./Ieee/input.scm 184 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5067z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_13, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7120))); 
exit( -1 );} 
BgL_portz00_971 = 
CAR(BgL_pairz00_1763); }  else 
{ /* ./Ieee/input.scm 184 */
BgL_portz00_971 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_arg1714z00_972;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_thezd2rgczd2contextz00_973;
BgL_thezd2rgczd2contextz00_973 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_zc3anonymousza31716za3ieeezf2inputze2scmza3185ze3z93_2083;
{ 
int BgL_auxz00_4156;
BgL_auxz00_4156 = 
(int)(((long)1)); 
BgL_zc3anonymousza31716za3ieeezf2inputze2scmza3185ze3z93_2083 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_4156); } 
{ /* ./Ieee/input.scm 185 */
int BgL_auxz00_4159;
BgL_auxz00_4159 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31716za3ieeezf2inputze2scmza3185ze3z93_2083, BgL_auxz00_4159, BgL_thezd2rgczd2contextz00_973); } 
BgL_arg1714z00_972 = BgL_zc3anonymousza31716za3ieeezf2inputze2scmza3185ze3z93_2083; } } 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_portz00_1806;
if(
INPUT_PORTP(BgL_portz00_971))
{ /* ./Ieee/input.scm 185 */
BgL_portz00_1806 = BgL_portz00_971; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5067z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_971, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7153))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_aux4337z00_2403;
BgL_aux4337z00_2403 = 
BGl_zc3anonymousza31716za3Ieeezf2inputze2scmza3185ze3z93zz__r4_input_6_10_2z00(BgL_arg1714z00_972, BgL_portz00_1806, BFALSE); 
if(
STRINGP(BgL_aux4337z00_2403))
{ /* ./Ieee/input.scm 185 */
BgL_aux2635z00_1971 = BgL_aux4337z00_2403; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5067z00zz__r4_input_6_10_2z00, BGl_string5050z00zz__r4_input_6_10_2z00, BgL_aux4337z00_2403, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7153))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux2635z00_1971;} } } } 
}



/* _read-string */
obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2084, obj_t BgL_inputzd2portzd2_2085)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 183 */
return 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2085);} 
}



/* ignore_2705 */
obj_t BGl_ignore_2705z00zz__r4_input_6_10_2z00(obj_t BgL_statezd20zd21032z00_2089, obj_t BgL_thezd2rgczd2contextz00_2088, obj_t BgL_procz00_2087, obj_t BgL_inputzd2portzd2_2086)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1770;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2086))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1770 = BgL_inputzd2portzd2_2086; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5068z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2086, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
RGC_START_MATCH(BgL_inputzd2portzd2_1770); } 
{ /* ./Ieee/input.scm 185 */
long BgL_matchz00_1003;
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1737z00_1007;
BgL_test1737z00_1007 = 
PROCEDUREP(BgL_procz00_2087); 
if(BgL_test1737z00_1007)
{ /* ./Ieee/input.scm 185 */
obj_t BgL_funz00_2409;
if(BgL_test1737z00_1007)
{ /* ./Ieee/input.scm 185 */
BgL_funz00_2409 = BgL_procz00_2087; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5068z00zz__r4_input_6_10_2z00, BGl_string4984z00zz__r4_input_6_10_2z00, BgL_procz00_2087, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2409, ((long)4)))
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_4190;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_aux4369z00_2410;
BgL_aux4369z00_2410 = 
PROCEDURE_ENTRY(BgL_funz00_2409)(BgL_procz00_2087, BgL_statezd20zd21032z00_2089, BgL_inputzd2portzd2_2086, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2088), BEOA); 
if(
INTEGERP(BgL_aux4369z00_2410))
{ /* ./Ieee/input.scm 185 */
BgL_auxz00_4190 = BgL_aux4369z00_2410
; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5068z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4369z00_2410, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} } 
BgL_matchz00_1003 = 
(long)CINT(BgL_auxz00_4190); }  else 
{ /* ./Ieee/input.scm 185 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5069z00zz__r4_input_6_10_2z00, BGl_list5070z00zz__r4_input_6_10_2z00, BgL_funz00_2409, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} }  else 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_auxz00_4203;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_aux4387z00_2414;
BgL_aux4387z00_2414 = 
BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00(BgL_statezd20zd21032z00_2089, BgL_inputzd2portzd2_2086, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_2088)); 
if(
INTEGERP(BgL_aux4387z00_2414))
{ /* ./Ieee/input.scm 185 */
BgL_auxz00_4203 = BgL_aux4387z00_2414
; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5068z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4387z00_2414, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} } 
BgL_matchz00_1003 = 
(long)CINT(BgL_auxz00_4203); } } 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1772;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2086))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1772 = BgL_inputzd2portzd2_2086; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5068z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2086, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1772); } 
switch( BgL_matchz00_1003) { case ((long)1) : 

return BGl_string5057z00zz__r4_input_6_10_2z00;break;case ((long)0) : 

return 
BGl_thezd2string_2706zd2zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2086);break;
default: 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string4998z00zz__r4_input_6_10_2z00, 
BINT(BgL_matchz00_1003), BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162)));} } } 
}



/* the-string_2706 */
obj_t BGl_thezd2string_2706zd2zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_2090)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
int BgL_arg1793z00_1040;
{ /* ./Ieee/input.scm 185 */
int BgL_res2587z00_1784;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1783;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2090))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1783 = BgL_inputzd2portzd2_2090; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5073z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2090, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_4228;
BgL_auxz00_4228 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_1783); 
BgL_res2587z00_1784 = 
(int)(BgL_auxz00_4228); } } 
BgL_arg1793z00_1040 = BgL_res2587z00_1784; } 
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1785;int BgL_startz00_1786;
if(
INPUT_PORTP(BgL_inputzd2portzd2_2090))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1785 = BgL_inputzd2portzd2_2090; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5073z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_2090, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_startz00_1786 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_1785, BgL_startz00_1786, BgL_arg1793z00_1040);} } } 
}



/* <anonymous:1716:Ieee/input.scm:185> */
obj_t BGl_zc3anonymousza31716za3Ieeezf2inputze2scmza3185ze3z93zz__r4_input_6_10_2z00(obj_t BgL_envz00_2091, obj_t BgL_inputzd2portzd2_2093, obj_t BgL_procz00_2094)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
obj_t BgL_thezd2rgczd2contextz00_2092;
{ /* ./Ieee/input.scm 185 */
int BgL_auxz00_4238;
BgL_auxz00_4238 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_2092 = 
PROCEDURE_1_EL_REF(BgL_envz00_2091, BgL_auxz00_4238); } 
{ 
obj_t BgL_inputzd2portzd2_974;obj_t BgL_procz00_975;
BgL_inputzd2portzd2_974 = BgL_inputzd2portzd2_2093; 
BgL_procz00_975 = BgL_procz00_2094; 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1050z00_997;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_arg1725z00_1001;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_res2585z00_1764;
if(
INPUT_PORTP(BgL_inputzd2portzd2_974))
{ /* ./Ieee/input.scm 185 */
BgL_res2585z00_1764 = BgL_inputzd2portzd2_974; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5075z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_974, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_arg1725z00_1001 = BgL_res2585z00_1764; } 
BgL_test1050z00_997 = 
!RGC_BUFFER(BgL_arg1725z00_1001); } 
if(BgL_test1050z00_997)
{ /* ./Ieee/input.scm 185 */
obj_t BgL_arg1720z00_1000;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_res2586z00_1766;
if(
INPUT_PORTP(BgL_inputzd2portzd2_974))
{ /* ./Ieee/input.scm 185 */
BgL_res2586z00_1766 = BgL_inputzd2portzd2_974; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5075z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_974, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_arg1720z00_1000 = BgL_res2586z00_1766; } 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string4997z00zz__r4_input_6_10_2z00, BGl_string5007z00zz__r4_input_6_10_2z00, BgL_arg1720z00_1000, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162)));}  else 
{ /* ./Ieee/input.scm 185 */
return 
BGl_ignore_2705z00zz__r4_input_6_10_2z00(BGl_proc5074z00zz__r4_input_6_10_2z00, BgL_thezd2rgczd2contextz00_2092, BgL_procz00_975, BgL_inputzd2portzd2_974);} } } } } 
}



/* STATE-0-1032 */
obj_t BGl_STATEzd20zd21032z00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2095, obj_t BgL_inputzd2portzd2_2096, obj_t BgL_lastzd2matchzd2_2097, obj_t BgL_thezd2rgczd2contextz00_2098)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 185 */
{ 
obj_t BgL_inputzd2portzd2_1061;obj_t BgL_lastzd2matchzd2_1062;obj_t BgL_thezd2rgczd2contextz00_1063;
BgL_inputzd2portzd2_1061 = BgL_inputzd2portzd2_2096; 
BgL_lastzd2matchzd2_1062 = BgL_lastzd2matchzd2_2097; 
BgL_thezd2rgczd2contextz00_1063 = BgL_thezd2rgczd2contextz00_2098; 
BgL_zc3anonymousza31823za3ieeezf2inputze2scmza3185ze3z93_1064:
{ 
obj_t BgL_inputzd2portzd2_1043;obj_t BgL_lastzd2matchzd2_1044;obj_t BgL_thezd2rgczd2contextz00_1045;obj_t BgL_inputzd2portzd2_1052;long BgL_lastzd2matchzd2_1053;obj_t BgL_thezd2rgczd2contextz00_1054;
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1065;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1800;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1061))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1800 = BgL_inputzd2portzd2_1061; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1061, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_currentzd2charzd2_1065 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1800); } 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_4262;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_4263;
BgL_auxz00_4263 = 
(long)(BgL_currentzd2charzd2_1065); 
BgL_testz00_4262 = 
(BgL_auxz00_4263==((long)0)); } 
if(BgL_testz00_4262)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1825z00_1067;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1803;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1061))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1803 = BgL_inputzd2portzd2_1061; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1061, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_test1825z00_1067 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1803); } 
if(BgL_test1825z00_1067)
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1827z00_1068;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1804;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1061))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1804 = BgL_inputzd2portzd2_1061; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1061, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_test1827z00_1068 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1804); } 
if(BgL_test1827z00_1068)
{ 

goto BgL_zc3anonymousza31823za3ieeezf2inputze2scmza3185ze3z93_1064;}  else 
{ /* ./Ieee/input.scm 185 */
return BgL_lastzd2matchzd2_1062;} }  else 
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_4280;
BgL_inputzd2portzd2_1043 = BgL_inputzd2portzd2_1061; 
BgL_lastzd2matchzd2_1044 = BgL_lastzd2matchzd2_1062; 
BgL_thezd2rgczd2contextz00_1045 = BgL_thezd2rgczd2contextz00_1063; 
BgL_zc3anonymousza31799za3ieeezf2inputze2scmza3185ze3z93_1046:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1047;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1788;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1043))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1788 = BgL_inputzd2portzd2_1043; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1043, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1788); } 
BgL_newzd2matchzd2_1047 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1048;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1789;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1043))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1789 = BgL_inputzd2portzd2_1043; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1043, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_currentzd2charzd2_1048 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1789); } 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_4293;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_4294;
BgL_auxz00_4294 = 
(long)(BgL_currentzd2charzd2_1048); 
BgL_testz00_4293 = 
(BgL_auxz00_4294==((long)0)); } 
if(BgL_testz00_4293)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1801z00_1050;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1792;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1043))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1792 = BgL_inputzd2portzd2_1043; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1043, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_test1801z00_1050 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1792); } 
if(BgL_test1801z00_1050)
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1802z00_1051;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1793;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1043))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1793 = BgL_inputzd2portzd2_1043; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1043, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_test1802z00_1051 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1793); } 
if(BgL_test1802z00_1051)
{ 

goto BgL_zc3anonymousza31799za3ieeezf2inputze2scmza3185ze3z93_1046;}  else 
{ /* ./Ieee/input.scm 185 */
BgL_auxz00_4280 = BgL_newzd2matchzd2_1047
; } }  else 
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1052 = BgL_inputzd2portzd2_1043; 
BgL_lastzd2matchzd2_1053 = BgL_newzd2matchzd2_1047; 
BgL_thezd2rgczd2contextz00_1054 = BgL_thezd2rgczd2contextz00_1045; 
BgL_zc3anonymousza31811za3ieeezf2inputze2scmza3185ze3z93_1055:
{ /* ./Ieee/input.scm 185 */
long BgL_newzd2matchzd2_1056;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1794;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1052))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1794 = BgL_inputzd2portzd2_1052; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1052, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
RGC_STOP_MATCH(BgL_inputzd2portzd2_1794); } 
BgL_newzd2matchzd2_1056 = ((long)0); 
{ /* ./Ieee/input.scm 185 */
int BgL_currentzd2charzd2_1057;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1795;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1052))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1795 = BgL_inputzd2portzd2_1052; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1052, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_currentzd2charzd2_1057 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1795); } 
{ /* ./Ieee/input.scm 185 */
bool_t BgL_testz00_4323;
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_4324;
BgL_auxz00_4324 = 
(long)(BgL_currentzd2charzd2_1057); 
BgL_testz00_4323 = 
(BgL_auxz00_4324==((long)0)); } 
if(BgL_testz00_4323)
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1813z00_1059;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1798;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1052))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1798 = BgL_inputzd2portzd2_1052; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1052, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_test1813z00_1059 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1798); } 
if(BgL_test1813z00_1059)
{ /* ./Ieee/input.scm 185 */
bool_t BgL_test1814z00_1060;
{ /* ./Ieee/input.scm 185 */
obj_t BgL_inputzd2portzd2_1799;
if(
INPUT_PORTP(BgL_inputzd2portzd2_1052))
{ /* ./Ieee/input.scm 185 */
BgL_inputzd2portzd2_1799 = BgL_inputzd2portzd2_1052; }  else 
{ /* ./Ieee/input.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5071z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_1052, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7162))); 
exit( -1 );} 
BgL_test1814z00_1060 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1799); } 
if(BgL_test1814z00_1060)
{ 

goto BgL_zc3anonymousza31811za3ieeezf2inputze2scmza3185ze3z93_1055;}  else 
{ /* ./Ieee/input.scm 185 */
BgL_auxz00_4280 = BgL_newzd2matchzd2_1056
; } }  else 
{ 
long BgL_lastzd2matchzd2_4341;
BgL_lastzd2matchzd2_4341 = BgL_newzd2matchzd2_1056; 
BgL_lastzd2matchzd2_1053 = BgL_lastzd2matchzd2_4341; 
goto BgL_zc3anonymousza31811za3ieeezf2inputze2scmza3185ze3z93_1055;} } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
long BgL_lastzd2matchzd2_4342;
BgL_lastzd2matchzd2_4342 = BgL_newzd2matchzd2_1056; 
BgL_lastzd2matchzd2_1053 = BgL_lastzd2matchzd2_4342; 
goto BgL_zc3anonymousza31811za3ieeezf2inputze2scmza3185ze3z93_1055;} } } } } } } }  else 
{ /* ./Ieee/input.scm 185 */
{ 
obj_t BgL_thezd2rgczd2contextz00_4345;long BgL_lastzd2matchzd2_4344;obj_t BgL_inputzd2portzd2_4343;
BgL_inputzd2portzd2_4343 = BgL_inputzd2portzd2_1043; 
BgL_lastzd2matchzd2_4344 = BgL_newzd2matchzd2_1047; 
BgL_thezd2rgczd2contextz00_4345 = BgL_thezd2rgczd2contextz00_1045; 
BgL_thezd2rgczd2contextz00_1054 = BgL_thezd2rgczd2contextz00_4345; 
BgL_lastzd2matchzd2_1053 = BgL_lastzd2matchzd2_4344; 
BgL_inputzd2portzd2_1052 = BgL_inputzd2portzd2_4343; 
goto BgL_zc3anonymousza31811za3ieeezf2inputze2scmza3185ze3z93_1055;} } } } } 
return 
BINT(BgL_auxz00_4280);} } }  else 
{ /* ./Ieee/input.scm 185 */
{ /* ./Ieee/input.scm 185 */
long BgL_auxz00_4347;
{ 
obj_t BgL_thezd2rgczd2contextz00_4350;obj_t BgL_lastzd2matchzd2_4349;obj_t BgL_inputzd2portzd2_4348;
BgL_inputzd2portzd2_4348 = BgL_inputzd2portzd2_1061; 
BgL_lastzd2matchzd2_4349 = BgL_lastzd2matchzd2_1062; 
BgL_thezd2rgczd2contextz00_4350 = BgL_thezd2rgczd2contextz00_1063; 
BgL_thezd2rgczd2contextz00_1045 = BgL_thezd2rgczd2contextz00_4350; 
BgL_lastzd2matchzd2_1044 = BgL_lastzd2matchzd2_4349; 
BgL_inputzd2portzd2_1043 = BgL_inputzd2portzd2_4348; 
goto BgL_zc3anonymousza31799za3ieeezf2inputze2scmza3185ze3z93_1046;} 
return 
BINT(BgL_auxz00_4347);} } } } } } } 
}



/* read-of-strings */
BGL_EXPORTED_DEF obj_t BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t BgL_inputzd2portzd2_14)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 203 */
{ /* ./Ieee/input.scm 204 */
obj_t BgL_symbol2640z00_1972;
BgL_symbol2640z00_1972 = BGl_symbol5076z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 204 */

PUSH_TRACE(BgL_symbol2640z00_1972); BUNSPEC; 
{ /* ./Ieee/input.scm 204 */
obj_t BgL_aux2639z00_1973;
{ /* ./Ieee/input.scm 204 */
obj_t BgL_portz00_1807;
{ /* ./Ieee/input.scm 204 */
bool_t BgL_test1841z00_1808;
BgL_test1841z00_1808 = 
PAIRP(BgL_inputzd2portzd2_14); 
if(BgL_test1841z00_1808)
{ /* ./Ieee/input.scm 204 */
obj_t BgL_pairz00_1810;
if(BgL_test1841z00_1808)
{ /* ./Ieee/input.scm 204 */
BgL_pairz00_1810 = BgL_inputzd2portzd2_14; }  else 
{ /* ./Ieee/input.scm 204 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5076z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_14, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7936))); 
exit( -1 );} 
BgL_portz00_1807 = 
CAR(BgL_pairz00_1810); }  else 
{ /* ./Ieee/input.scm 204 */
BgL_portz00_1807 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 204 */
obj_t BgL_portz00_1812;
if(
INPUT_PORTP(BgL_portz00_1807))
{ /* ./Ieee/input.scm 204 */
BgL_portz00_1812 = BgL_portz00_1807; }  else 
{ /* ./Ieee/input.scm 204 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5076z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_1807, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7936))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, ((long)2)))
{ /* ./Ieee/input.scm 204 */
BgL_aux2639z00_1973 = 
PROCEDURE_ENTRY(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00)(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BgL_portz00_1812, BFALSE, BEOA); }  else 
{ /* ./Ieee/input.scm 204 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5077z00zz__r4_input_6_10_2z00, BGl_list5010z00zz__r4_input_6_10_2z00, BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)7936))); 
FAILURE(BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00,BGl_symbol4996z00zz__r4_input_6_10_2z00);} } } 
POP_TRACE(); 
return BgL_aux2639z00_1973;} } } } 
}



/* _read-of-strings */
obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t BgL_envz00_2099, obj_t BgL_inputzd2portzd2_2100)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 203 */
return 
BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(BgL_inputzd2portzd2_2100);} 
}



/* read-chars */
BGL_EXPORTED_DEF obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(int BgL_lenz00_15, obj_t BgL_inputzd2portzd2_16)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 210 */
{ /* ./Ieee/input.scm 211 */
obj_t BgL_symbol2644z00_1974;
BgL_symbol2644z00_1974 = BGl_symbol5078z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 211 */

PUSH_TRACE(BgL_symbol2644z00_1974); BUNSPEC; 
{ /* ./Ieee/input.scm 211 */
obj_t BgL_aux2643z00_1975;
{ /* ./Ieee/input.scm 211 */
obj_t BgL_sz00_1096;
BgL_sz00_1096 = 
make_string_sans_fill(BgL_lenz00_15); 
{ /* ./Ieee/input.scm 211 */
obj_t BgL_pz00_1097;
{ /* ./Ieee/input.scm 212 */
bool_t BgL_test1853z00_1102;
BgL_test1853z00_1102 = 
PAIRP(BgL_inputzd2portzd2_16); 
if(BgL_test1853z00_1102)
{ /* ./Ieee/input.scm 212 */
obj_t BgL_pairz00_1814;
if(BgL_test1853z00_1102)
{ /* ./Ieee/input.scm 212 */
BgL_pairz00_1814 = BgL_inputzd2portzd2_16; }  else 
{ /* ./Ieee/input.scm 212 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5078z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_16, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8395))); 
exit( -1 );} 
BgL_pz00_1097 = 
CAR(BgL_pairz00_1814); }  else 
{ /* ./Ieee/input.scm 212 */
BgL_pz00_1097 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 212 */
int BgL_nz00_1098;
{ /* ./Ieee/input.scm 213 */
int BgL_auxz00_4391;obj_t BgL_auxz00_4385;
BgL_auxz00_4391 = 
(int)(((long)0)); 
if(
INPUT_PORTP(BgL_pz00_1097))
{ /* ./Ieee/input.scm 213 */
BgL_auxz00_4385 = BgL_pz00_1097
; }  else 
{ /* ./Ieee/input.scm 213 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5078z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_pz00_1097, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8446))); 
exit( -1 );} 
BgL_nz00_1098 = 
rgc_blit_string(BgL_auxz00_4385, BgL_sz00_1096, BgL_auxz00_4391, BgL_lenz00_15); } 
{ /* ./Ieee/input.scm 213 */

{ /* ./Ieee/input.scm 215 */
bool_t BgL_testz00_4394;
{ /* ./Ieee/input.scm 215 */
long BgL_auxz00_4395;
BgL_auxz00_4395 = 
(long)(BgL_nz00_1098); 
BgL_testz00_4394 = 
(BgL_auxz00_4395==((long)0)); } 
if(BgL_testz00_4394)
{ /* ./Ieee/input.scm 215 */
{ /* ./Ieee/input.scm 216 */
bool_t BgL_test1846z00_1100;
{ /* ./Ieee/input.scm 216 */
obj_t BgL_inputzd2portzd2_1817;
if(
INPUT_PORTP(BgL_pz00_1097))
{ /* ./Ieee/input.scm 216 */
BgL_inputzd2portzd2_1817 = BgL_pz00_1097; }  else 
{ /* ./Ieee/input.scm 216 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5078z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_pz00_1097, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8508))); 
exit( -1 );} 
BgL_test1846z00_1100 = 
rgc_buffer_eof_p(BgL_inputzd2portzd2_1817); } 
if(BgL_test1846z00_1100)
{ /* ./Ieee/input.scm 216 */
BgL_aux2643z00_1975 = BEOF; }  else 
{ /* ./Ieee/input.scm 216 */
BgL_aux2643z00_1975 = BGl_string5057z00zz__r4_input_6_10_2z00; } } }  else 
{ /* ./Ieee/input.scm 219 */
bool_t BgL_testz00_4405;
{ /* ./Ieee/input.scm 219 */
long BgL_auxz00_4408;long BgL_auxz00_4406;
BgL_auxz00_4408 = 
(long)(BgL_lenz00_15); 
BgL_auxz00_4406 = 
(long)(BgL_nz00_1098); 
BgL_testz00_4405 = 
(BgL_auxz00_4406<BgL_auxz00_4408); } 
if(BgL_testz00_4405)
{ /* ./Ieee/input.scm 219 */
BgL_aux2643z00_1975 = 
bgl_string_shrink(BgL_sz00_1096, BgL_nz00_1098); }  else 
{ /* ./Ieee/input.scm 219 */
BgL_aux2643z00_1975 = BgL_sz00_1096; } } } } } } } 
POP_TRACE(); 
return BgL_aux2643z00_1975;} } } } 
}



/* _read-chars2709 */
obj_t BGl__readzd2chars2709zd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2101, obj_t BgL_lenz00_2102, obj_t BgL_inputzd2portzd2_2103)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 210 */
{ /* ./Ieee/input.scm 211 */
int BgL_auxz00_4413;
{ /* ./Ieee/input.scm 211 */
obj_t BgL_auxz00_4414;
if(
INTEGERP(BgL_lenz00_2102))
{ /* ./Ieee/input.scm 211 */
BgL_auxz00_4414 = BgL_lenz00_2102
; }  else 
{ /* ./Ieee/input.scm 211 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5079z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL_lenz00_2102, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8313))); 
exit( -1 );} 
BgL_auxz00_4413 = 
CINT(BgL_auxz00_4414); } 
return 
BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_4413, BgL_inputzd2portzd2_2103);} } 
}



/* read-fill-string! */
BGL_EXPORTED_DEF int BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t BgL_sz00_17, int BgL_oz00_18, int BgL_lenz00_19, obj_t BgL_inputzd2portzd2_20)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 227 */
{ /* ./Ieee/input.scm 228 */
obj_t BgL_symbol2648z00_1976;
BgL_symbol2648z00_1976 = BGl_symbol5081z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 228 */

PUSH_TRACE(BgL_symbol2648z00_1976); BUNSPEC; 
{ /* ./Ieee/input.scm 228 */
int BgL_aux2647z00_1977;
{ /* ./Ieee/input.scm 228 */
obj_t BgL_portz00_1822;
{ /* ./Ieee/input.scm 228 */
bool_t BgL_test1859z00_1823;
BgL_test1859z00_1823 = 
PAIRP(BgL_inputzd2portzd2_20); 
if(BgL_test1859z00_1823)
{ /* ./Ieee/input.scm 228 */
obj_t BgL_pairz00_1825;
if(BgL_test1859z00_1823)
{ /* ./Ieee/input.scm 228 */
BgL_pairz00_1825 = BgL_inputzd2portzd2_20; }  else 
{ /* ./Ieee/input.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5081z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_inputzd2portzd2_20, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8879))); 
exit( -1 );} 
BgL_portz00_1822 = 
CAR(BgL_pairz00_1825); }  else 
{ /* ./Ieee/input.scm 228 */
BgL_portz00_1822 = 
BGL_CURRENT_INPUT_PORT(); } } 
{ /* ./Ieee/input.scm 228 */
obj_t BgL_auxz00_4431;
if(
INPUT_PORTP(BgL_portz00_1822))
{ /* ./Ieee/input.scm 228 */
BgL_auxz00_4431 = BgL_portz00_1822
; }  else 
{ /* ./Ieee/input.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5081z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_1822, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8879))); 
exit( -1 );} 
BgL_aux2647z00_1977 = 
rgc_blit_string(BgL_auxz00_4431, BgL_sz00_17, BgL_oz00_18, BgL_lenz00_19); } } 
POP_TRACE(); 
return BgL_aux2647z00_1977;} } } } 
}



/* _read-fill-string!2711 */
obj_t BGl__readzd2fillzd2stringz122711z12zz__r4_input_6_10_2z00(obj_t BgL_envz00_2104, obj_t BgL_sz00_2105, obj_t BgL_oz00_2106, obj_t BgL_lenz00_2107, obj_t BgL_inputzd2portzd2_2108)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 227 */
{ /* ./Ieee/input.scm 228 */
int BgL_auxz00_4439;
{ /* ./Ieee/input.scm 228 */
int BgL_auxz00_4454;int BgL_auxz00_4446;obj_t BgL_auxz00_4440;
{ /* ./Ieee/input.scm 228 */
obj_t BgL_auxz00_4455;
if(
INTEGERP(BgL_lenz00_2107))
{ /* ./Ieee/input.scm 228 */
BgL_auxz00_4455 = BgL_lenz00_2107
; }  else 
{ /* ./Ieee/input.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5082z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL_lenz00_2107, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8879))); 
exit( -1 );} 
BgL_auxz00_4454 = 
CINT(BgL_auxz00_4455); } 
{ /* ./Ieee/input.scm 228 */
obj_t BgL_auxz00_4447;
if(
INTEGERP(BgL_oz00_2106))
{ /* ./Ieee/input.scm 228 */
BgL_auxz00_4447 = BgL_oz00_2106
; }  else 
{ /* ./Ieee/input.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5082z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL_oz00_2106, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8879))); 
exit( -1 );} 
BgL_auxz00_4446 = 
CINT(BgL_auxz00_4447); } 
if(
STRINGP(BgL_sz00_2105))
{ /* ./Ieee/input.scm 228 */
BgL_auxz00_4440 = BgL_sz00_2105
; }  else 
{ /* ./Ieee/input.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5082z00zz__r4_input_6_10_2z00, BGl_string5050z00zz__r4_input_6_10_2z00, BgL_sz00_2105, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)8879))); 
exit( -1 );} 
BgL_auxz00_4439 = 
BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(BgL_auxz00_4440, BgL_auxz00_4446, BgL_auxz00_4454, BgL_inputzd2portzd2_2108); } 
return 
BINT(BgL_auxz00_4439);} } 
}



/* send-chars */
BGL_EXPORTED_DEF int BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_inputz00_21, obj_t BgL_outputz00_22, obj_t BgL_objz00_23)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 239 */
{ /* ./Ieee/input.scm 240 */
obj_t BgL_symbol2652z00_1978;
BgL_symbol2652z00_1978 = BGl_symbol5083z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 240 */

PUSH_TRACE(BgL_symbol2652z00_1978); BUNSPEC; 
{ /* ./Ieee/input.scm 240 */
int BgL_aux2651z00_1979;
{ /* ./Ieee/input.scm 240 */
obj_t BgL_siza7eza7_1105;
{ /* ./Ieee/input.scm 240 */
obj_t BgL_cellvalz00_4465;
if(
NULLP(BgL_objz00_23))
{ /* ./Ieee/input.scm 240 */
BgL_cellvalz00_4465 = 
BINT(((long)-1))
; }  else 
{ /* ./Ieee/input.scm 240 */
obj_t BgL_pairz00_1827;
if(
PAIRP(BgL_objz00_23))
{ /* ./Ieee/input.scm 240 */
BgL_pairz00_1827 = BgL_objz00_23; }  else 
{ /* ./Ieee/input.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5083z00zz__r4_input_6_10_2z00, BGl_string5021z00zz__r4_input_6_10_2z00, BgL_objz00_23, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9577))); 
exit( -1 );} 
BgL_cellvalz00_4465 = 
CAR(BgL_pairz00_1827); } 
BgL_siza7eza7_1105 = 
MAKE_CELL(BgL_cellvalz00_4465); } 
{ /* ./Ieee/input.scm 241 */
obj_t BgL__ortest_1046z00_1106;
{ /* ./Ieee/input.scm 241 */
int BgL_auxz00_4475;
{ /* ./Ieee/input.scm 241 */
obj_t BgL_auxz00_4476;
{ /* ./Ieee/input.scm 241 */
obj_t BgL_aux4722z00_2475;
BgL_aux4722z00_2475 = 
CELL_REF(BgL_siza7eza7_1105); 
if(
INTEGERP(BgL_aux4722z00_2475))
{ /* ./Ieee/input.scm 241 */
BgL_auxz00_4476 = BgL_aux4722z00_2475
; }  else 
{ /* ./Ieee/input.scm 241 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5083z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL_aux4722z00_2475, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9622))); 
exit( -1 );} } 
BgL_auxz00_4475 = 
CINT(BgL_auxz00_4476); } 
BgL__ortest_1046z00_1106 = 
bgl_sendchars(BgL_inputz00_21, BgL_outputz00_22, BgL_auxz00_4475); } 
if(
CBOOL(BgL__ortest_1046z00_1106))
{ /* ./Ieee/input.scm 241 */
obj_t BgL_auxz00_4486;
if(
INTEGERP(BgL__ortest_1046z00_1106))
{ /* ./Ieee/input.scm 241 */
BgL_auxz00_4486 = BgL__ortest_1046z00_1106
; }  else 
{ /* ./Ieee/input.scm 241 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5083z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL__ortest_1046z00_1106, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9593))); 
exit( -1 );} 
BgL_aux2651z00_1979 = 
CINT(BgL_auxz00_4486); }  else 
{ /* ./Ieee/input.scm 242 */
obj_t BgL_bufsiza7eza7_1107;
{ /* ./Ieee/input.scm 242 */
bool_t BgL_test1887z00_1121;
{ /* ./Ieee/input.scm 242 */
long BgL_n1z00_1828;
{ /* ./Ieee/input.scm 242 */
obj_t BgL_auxz00_4493;
{ /* ./Ieee/input.scm 242 */
obj_t BgL_aux4745z00_2479;
BgL_aux4745z00_2479 = 
CELL_REF(BgL_siza7eza7_1105); 
if(
INTEGERP(BgL_aux4745z00_2479))
{ /* ./Ieee/input.scm 242 */
BgL_auxz00_4493 = BgL_aux4745z00_2479
; }  else 
{ /* ./Ieee/input.scm 242 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5083z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4745z00_2479, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9656))); 
exit( -1 );} } 
BgL_n1z00_1828 = 
(long)CINT(BgL_auxz00_4493); } 
BgL_test1887z00_1121 = 
(BgL_n1z00_1828==((long)-1)); } 
if(BgL_test1887z00_1121)
{ /* ./Ieee/input.scm 242 */
BgL_bufsiza7eza7_1107 = 
BINT(default_io_bufsiz); }  else 
{ /* ./Ieee/input.scm 244 */
bool_t BgL_test1888z00_1122;
{ /* ./Ieee/input.scm 244 */
long BgL_n1z00_1830;long BgL_n2z00_1831;
BgL_n1z00_1830 = 
(long)(default_io_bufsiz); 
{ /* ./Ieee/input.scm 244 */
obj_t BgL_auxz00_4504;
{ /* ./Ieee/input.scm 244 */
obj_t BgL_aux4758z00_2481;
BgL_aux4758z00_2481 = 
CELL_REF(BgL_siza7eza7_1105); 
if(
INTEGERP(BgL_aux4758z00_2481))
{ /* ./Ieee/input.scm 244 */
BgL_auxz00_4504 = BgL_aux4758z00_2481
; }  else 
{ /* ./Ieee/input.scm 244 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5083z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4758z00_2481, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9732))); 
exit( -1 );} } 
BgL_n2z00_1831 = 
(long)CINT(BgL_auxz00_4504); } 
BgL_test1888z00_1122 = 
(BgL_n1z00_1830<BgL_n2z00_1831); } 
if(BgL_test1888z00_1122)
{ /* ./Ieee/input.scm 244 */
BgL_bufsiza7eza7_1107 = 
BINT(default_io_bufsiz); }  else 
{ /* ./Ieee/input.scm 244 */
BgL_bufsiza7eza7_1107 = 
CELL_REF(BgL_siza7eza7_1105); } } } 
{ /* ./Ieee/input.scm 242 */
obj_t BgL_bufferz00_1108;
{ /* ./Ieee/input.scm 247 */
obj_t BgL_res2588z00_1838;
{ /* ./Ieee/input.scm 247 */
int BgL_kz00_1832;
{ /* ./Ieee/input.scm 247 */
obj_t BgL_auxz00_4514;
if(
INTEGERP(BgL_bufsiza7eza7_1107))
{ /* ./Ieee/input.scm 247 */
BgL_auxz00_4514 = BgL_bufsiza7eza7_1107
; }  else 
{ /* ./Ieee/input.scm 247 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5083z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL_bufsiza7eza7_1107, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9786))); 
exit( -1 );} 
BgL_kz00_1832 = 
CINT(BgL_auxz00_4514); } 
BgL_res2588z00_1838 = 
make_string(BgL_kz00_1832, ((unsigned char)' ')); } 
BgL_bufferz00_1108 = BgL_res2588z00_1838; } 
{ /* ./Ieee/input.scm 247 */
obj_t BgL_charszd2tozd2readz00_1109;
BgL_charszd2tozd2readz00_1109 = 
MAKE_CELL(BgL_bufsiza7eza7_1107); 
{ /* ./Ieee/input.scm 248 */
obj_t BgL_charszd2readzd2_1110;
{ /* ./Ieee/input.scm 249 */
obj_t BgL_cellvalz00_4522;
BgL_cellvalz00_4522 = 
BINT(((long)0)); 
BgL_charszd2readzd2_1110 = 
MAKE_CELL(BgL_cellvalz00_4522); } 
{ /* ./Ieee/input.scm 249 */

{ /* ./Ieee/input.scm 250 */
long BgL_auxz00_4524;
BgL_auxz00_4524 = 
BGl_loopz00zz__r4_input_6_10_2z00(BgL_outputz00_22, BgL_bufsiza7eza7_1107, BgL_siza7eza7_1105, BgL_charszd2readzd2_1110, BgL_bufferz00_1108, BgL_inputz00_21, BgL_charszd2tozd2readz00_1109); 
BgL_aux2651z00_1979 = 
(int)(BgL_auxz00_4524); } } } } } } } } 
POP_TRACE(); 
return BgL_aux2651z00_1979;} } } } 
}



/* loop */
long BGl_loopz00zz__r4_input_6_10_2z00(obj_t BgL_outputz00_2119, obj_t BgL_bufsiza7eza7_2118, obj_t BgL_siza7eza7_2117, obj_t BgL_charszd2readzd2_2116, obj_t BgL_bufferz00_2115, obj_t BgL_inputz00_2114, obj_t BgL_charszd2tozd2readz00_2113)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 250 */
BGl_loopz00zz__r4_input_6_10_2z00:
{ /* ./Ieee/input.scm 251 */
bool_t BgL_test1864z00_1112;
{ /* ./Ieee/input.scm 251 */
long BgL_n1z00_1839;
{ /* ./Ieee/input.scm 251 */
obj_t BgL_auxz00_4528;
{ /* ./Ieee/input.scm 251 */
obj_t BgL_aux4804z00_2489;
BgL_aux4804z00_2489 = 
CELL_REF(BgL_charszd2tozd2readz00_2113); 
if(
INTEGERP(BgL_aux4804z00_2489))
{ /* ./Ieee/input.scm 251 */
BgL_auxz00_4528 = BgL_aux4804z00_2489
; }  else 
{ /* ./Ieee/input.scm 251 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4804z00_2489, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9897))); 
exit( -1 );} } 
BgL_n1z00_1839 = 
(long)CINT(BgL_auxz00_4528); } 
BgL_test1864z00_1112 = 
(BgL_n1z00_1839==((long)0)); } 
if(BgL_test1864z00_1112)
{ /* ./Ieee/input.scm 252 */
obj_t BgL_auxz00_4537;
{ /* ./Ieee/input.scm 252 */
obj_t BgL_aux4815z00_2491;
BgL_aux4815z00_2491 = 
CELL_REF(BgL_charszd2readzd2_2116); 
if(
INTEGERP(BgL_aux4815z00_2491))
{ /* ./Ieee/input.scm 252 */
BgL_auxz00_4537 = BgL_aux4815z00_2491
; }  else 
{ /* ./Ieee/input.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4815z00_2491, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9917))); 
exit( -1 );} } 
return 
(long)CINT(BgL_auxz00_4537);}  else 
{ /* ./Ieee/input.scm 253 */
int BgL_nz00_1113;
{ /* ./Ieee/input.scm 253 */
obj_t BgL_list1882z00_1119;
BgL_list1882z00_1119 = 
MAKE_PAIR(BgL_inputz00_2114, BNIL); 
{ /* ./Ieee/input.scm 253 */
int BgL_res2589z00_1849;
{ /* ./Ieee/input.scm 253 */
int BgL_oz00_1842;int BgL_lenz00_1843;
BgL_oz00_1842 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 253 */
obj_t BgL_auxz00_4546;
{ /* ./Ieee/input.scm 253 */
obj_t BgL_aux4827z00_2493;
BgL_aux4827z00_2493 = 
CELL_REF(BgL_charszd2tozd2readz00_2113); 
if(
INTEGERP(BgL_aux4827z00_2493))
{ /* ./Ieee/input.scm 253 */
BgL_auxz00_4546 = BgL_aux4827z00_2493
; }  else 
{ /* ./Ieee/input.scm 253 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string5080z00zz__r4_input_6_10_2z00, BgL_aux4827z00_2493, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9934))); 
exit( -1 );} } 
BgL_lenz00_1843 = 
CINT(BgL_auxz00_4546); } 
{ /* ./Ieee/input.scm 253 */
obj_t BgL_portz00_1845;
BgL_portz00_1845 = 
CAR(BgL_list1882z00_1119); 
{ /* ./Ieee/input.scm 253 */
obj_t BgL_auxz00_4554;
if(
INPUT_PORTP(BgL_portz00_1845))
{ /* ./Ieee/input.scm 253 */
BgL_auxz00_4554 = BgL_portz00_1845
; }  else 
{ /* ./Ieee/input.scm 253 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_portz00_1845, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9934))); 
exit( -1 );} 
BgL_res2589z00_1849 = 
rgc_blit_string(BgL_auxz00_4554, BgL_bufferz00_2115, BgL_oz00_1842, BgL_lenz00_1843); } } } 
BgL_nz00_1113 = BgL_res2589z00_1849; } } 
{ /* ./Ieee/input.scm 257 */
obj_t BgL_auxz00_2120;
{ /* ./Ieee/input.scm 257 */
long BgL_za71za7_1850;long BgL_za72za7_1851;
{ /* ./Ieee/input.scm 257 */
obj_t BgL_auxz00_4561;
{ /* ./Ieee/input.scm 257 */
obj_t BgL_aux4858z00_2499;
BgL_aux4858z00_2499 = 
CELL_REF(BgL_charszd2readzd2_2116); 
if(
INTEGERP(BgL_aux4858z00_2499))
{ /* ./Ieee/input.scm 257 */
BgL_auxz00_4561 = BgL_aux4858z00_2499
; }  else 
{ /* ./Ieee/input.scm 257 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4858z00_2499, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10029))); 
exit( -1 );} } 
BgL_za71za7_1850 = 
(long)CINT(BgL_auxz00_4561); } 
BgL_za72za7_1851 = 
(long)(BgL_nz00_1113); 
{ /* ./Ieee/input.scm 257 */
long BgL_auxz00_4569;
BgL_auxz00_4569 = 
(BgL_za71za7_1850+BgL_za72za7_1851); 
BgL_auxz00_2120 = 
BINT(BgL_auxz00_4569); } } 
CELL_SET(BgL_charszd2readzd2_2116, BgL_auxz00_2120); } 
{ /* ./Ieee/input.scm 259 */
bool_t BgL_testz00_4572;
{ /* ./Ieee/input.scm 259 */
long BgL_auxz00_4573;
BgL_auxz00_4573 = 
(long)(BgL_nz00_1113); 
BgL_testz00_4572 = 
(((long)0)==BgL_auxz00_4573); } 
if(BgL_testz00_4572)
{ /* ./Ieee/input.scm 259 */
{ /* ./Ieee/input.scm 260 */
obj_t BgL_auxz00_2121;
BgL_auxz00_2121 = 
BINT(((long)0)); 
CELL_SET(BgL_charszd2tozd2readz00_2113, BgL_auxz00_2121); } }  else 
{ /* ./Ieee/input.scm 261 */
bool_t BgL_test1867z00_1115;
{ /* ./Ieee/input.scm 261 */
long BgL_n2z00_1855;
{ /* ./Ieee/input.scm 261 */
obj_t BgL_auxz00_4577;
{ /* ./Ieee/input.scm 261 */
obj_t BgL_aux4873z00_2501;
BgL_aux4873z00_2501 = 
CELL_REF(BgL_siza7eza7_2117); 
if(
INTEGERP(BgL_aux4873z00_2501))
{ /* ./Ieee/input.scm 261 */
BgL_auxz00_4577 = BgL_aux4873z00_2501
; }  else 
{ /* ./Ieee/input.scm 261 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4873z00_2501, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10132))); 
exit( -1 );} } 
BgL_n2z00_1855 = 
(long)CINT(BgL_auxz00_4577); } 
BgL_test1867z00_1115 = 
(((long)-1)==BgL_n2z00_1855); } 
if(BgL_test1867z00_1115)
{ /* ./Ieee/input.scm 261 */BFALSE; }  else 
{ /* ./Ieee/input.scm 261 */
{ /* ./Ieee/input.scm 262 */
obj_t BgL_auxz00_2122;
{ /* ./Ieee/input.scm 262 */
long BgL_za71za7_1856;long BgL_za72za7_1857;
{ /* ./Ieee/input.scm 262 */
obj_t BgL_auxz00_4586;
{ /* ./Ieee/input.scm 262 */
obj_t BgL_aux4885z00_2503;
BgL_aux4885z00_2503 = 
CELL_REF(BgL_siza7eza7_2117); 
if(
INTEGERP(BgL_aux4885z00_2503))
{ /* ./Ieee/input.scm 262 */
BgL_auxz00_4586 = BgL_aux4885z00_2503
; }  else 
{ /* ./Ieee/input.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4885z00_2503, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10153))); 
exit( -1 );} } 
BgL_za71za7_1856 = 
(long)CINT(BgL_auxz00_4586); } 
BgL_za72za7_1857 = 
(long)(BgL_nz00_1113); 
{ /* ./Ieee/input.scm 262 */
long BgL_auxz00_4594;
BgL_auxz00_4594 = 
(BgL_za71za7_1856-BgL_za72za7_1857); 
BgL_auxz00_2122 = 
BINT(BgL_auxz00_4594); } } 
CELL_SET(BgL_siza7eza7_2117, BgL_auxz00_2122); } 
{ /* ./Ieee/input.scm 263 */
obj_t BgL_auxz00_2123;
{ /* ./Ieee/input.scm 264 */
bool_t BgL_test1869z00_1116;
{ /* ./Ieee/input.scm 264 */
long BgL_n1z00_1858;long BgL_n2z00_1859;
{ /* ./Ieee/input.scm 264 */
obj_t BgL_auxz00_4597;
{ /* ./Ieee/input.scm 264 */
obj_t BgL_aux4898z00_2505;
BgL_aux4898z00_2505 = 
CELL_REF(BgL_siza7eza7_2117); 
if(
INTEGERP(BgL_aux4898z00_2505))
{ /* ./Ieee/input.scm 264 */
BgL_auxz00_4597 = BgL_aux4898z00_2505
; }  else 
{ /* ./Ieee/input.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_aux4898z00_2505, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10210))); 
exit( -1 );} } 
BgL_n1z00_1858 = 
(long)CINT(BgL_auxz00_4597); } 
{ /* ./Ieee/input.scm 264 */
obj_t BgL_auxz00_4604;
if(
INTEGERP(BgL_bufsiza7eza7_2118))
{ /* ./Ieee/input.scm 264 */
BgL_auxz00_4604 = BgL_bufsiza7eza7_2118
; }  else 
{ /* ./Ieee/input.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_bufsiza7eza7_2118, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10218))); 
exit( -1 );} 
BgL_n2z00_1859 = 
(long)CINT(BgL_auxz00_4604); } 
BgL_test1869z00_1116 = 
(BgL_n1z00_1858<BgL_n2z00_1859); } 
if(BgL_test1869z00_1116)
{ /* ./Ieee/input.scm 264 */
BgL_auxz00_2123 = 
CELL_REF(BgL_siza7eza7_2117); }  else 
{ /* ./Ieee/input.scm 264 */
BgL_auxz00_2123 = BgL_bufsiza7eza7_2118; } } 
CELL_SET(BgL_charszd2tozd2readz00_2113, BgL_auxz00_2123); } } } } 
{ /* ./Ieee/input.scm 267 */
bool_t BgL_test1873z00_1117;
{ /* ./Ieee/input.scm 267 */
long BgL_n1z00_1860;long BgL_n2z00_1861;
{ /* ./Ieee/input.scm 267 */
obj_t BgL_auxz00_4613;
if(
INTEGERP(BgL_bufsiza7eza7_2118))
{ /* ./Ieee/input.scm 267 */
BgL_auxz00_4613 = BgL_bufsiza7eza7_2118
; }  else 
{ /* ./Ieee/input.scm 267 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string4985z00zz__r4_input_6_10_2z00, BgL_bufsiza7eza7_2118, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10280))); 
exit( -1 );} 
BgL_n1z00_1860 = 
(long)CINT(BgL_auxz00_4613); } 
BgL_n2z00_1861 = 
(long)(BgL_nz00_1113); 
BgL_test1873z00_1117 = 
(BgL_n1z00_1860==BgL_n2z00_1861); } 
if(BgL_test1873z00_1117)
{ /* ./Ieee/input.scm 267 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_bufferz00_2115, BgL_outputz00_2119); }  else 
{ /* ./Ieee/input.scm 269 */
obj_t BgL_arg1876z00_1118;
{ /* ./Ieee/input.scm 269 */
obj_t BgL_res2590z00_1890;
{ /* ./Ieee/input.scm 269 */
int BgL_startz00_1863;
BgL_startz00_1863 = 
(int)(((long)0)); 
{ /* ./Ieee/input.scm 269 */
bool_t BgL_test2235z00_1865;
{ /* ./Ieee/input.scm 269 */
bool_t BgL_testz00_4625;
{ /* ./Ieee/input.scm 269 */
long BgL_auxz00_4628;long BgL_auxz00_4626;
BgL_auxz00_4628 = 
(long)(BgL_startz00_1863); 
BgL_auxz00_4626 = 
(long)(BgL_nz00_1113); 
BgL_testz00_4625 = 
(BgL_auxz00_4626>=BgL_auxz00_4628); } 
if(BgL_testz00_4625)
{ /* ./Ieee/input.scm 269 */
bool_t BgL_testz00_4631;
{ /* ./Ieee/input.scm 269 */
int BgL_auxz00_4632;
{ /* ./Ieee/input.scm 269 */
long BgL_auxz00_4633;
{ /* ./Ieee/input.scm 269 */
long BgL_auxz00_4634;
{ /* ./Ieee/input.scm 269 */
int BgL_auxz00_4635;
BgL_auxz00_4635 = 
STRING_LENGTH(BgL_bufferz00_2115); 
BgL_auxz00_4634 = 
(long)(BgL_auxz00_4635); } 
BgL_auxz00_4633 = 
(BgL_auxz00_4634+((long)1)); } 
BgL_auxz00_4632 = 
(int)(BgL_auxz00_4633); } 
BgL_testz00_4631 = 
BOUND_CHECK(BgL_startz00_1863, BgL_auxz00_4632); } 
if(BgL_testz00_4631)
{ /* ./Ieee/input.scm 269 */
int BgL_auxz00_4641;
{ /* ./Ieee/input.scm 269 */
long BgL_auxz00_4642;
{ /* ./Ieee/input.scm 269 */
long BgL_auxz00_4643;
{ /* ./Ieee/input.scm 269 */
int BgL_auxz00_4644;
BgL_auxz00_4644 = 
STRING_LENGTH(BgL_bufferz00_2115); 
BgL_auxz00_4643 = 
(long)(BgL_auxz00_4644); } 
BgL_auxz00_4642 = 
(BgL_auxz00_4643+((long)1)); } 
BgL_auxz00_4641 = 
(int)(BgL_auxz00_4642); } 
BgL_test2235z00_1865 = 
BOUND_CHECK(BgL_nz00_1113, BgL_auxz00_4641); }  else 
{ /* ./Ieee/input.scm 269 */
BgL_test2235z00_1865 = ((bool_t)0); } }  else 
{ /* ./Ieee/input.scm 269 */
BgL_test2235z00_1865 = ((bool_t)0); } } 
if(BgL_test2235z00_1865)
{ /* ./Ieee/input.scm 269 */
BgL_res2590z00_1890 = 
c_substring(BgL_bufferz00_2115, BgL_startz00_1863, BgL_nz00_1113); }  else 
{ /* ./Ieee/input.scm 269 */
{ /* ./Ieee/input.scm 269 */
obj_t BgL_arg2240z00_1876;
{ /* ./Ieee/input.scm 269 */
obj_t BgL_auxz00_4654;obj_t BgL_auxz00_4652;
BgL_auxz00_4654 = 
BINT(BgL_nz00_1113); 
BgL_auxz00_4652 = 
BINT(BgL_startz00_1863); 
BgL_arg2240z00_1876 = 
MAKE_PAIR(BgL_auxz00_4652, BgL_auxz00_4654); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5048z00zz__r4_input_6_10_2z00, BGl_string5049z00zz__r4_input_6_10_2z00, BgL_arg2240z00_1876, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/input.scm 269 */
obj_t BgL_aux4948z00_2511;
BgL_aux4948z00_2511 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10330))); 
if(
STRINGP(BgL_aux4948z00_2511))
{ /* ./Ieee/input.scm 269 */
BgL_res2590z00_1890 = BgL_aux4948z00_2511; }  else 
{ /* ./Ieee/input.scm 269 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5084z00zz__r4_input_6_10_2z00, BGl_string5050z00zz__r4_input_6_10_2z00, BgL_aux4948z00_2511, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)10330))); 
exit( -1 );} } } } } 
BgL_arg1876z00_1118 = BgL_res2590z00_1890; } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1876z00_1118, BgL_outputz00_2119); } } 
{ 

goto BGl_loopz00zz__r4_input_6_10_2z00;} } } } 
}



/* _send-chars2713 */
obj_t BGl__sendzd2chars2713zd2zz__r4_input_6_10_2z00(obj_t BgL_envz00_2109, obj_t BgL_inputz00_2110, obj_t BgL_outputz00_2111, obj_t BgL_objz00_2112)
{ AN_OBJECT;
{ /* ./Ieee/input.scm 239 */
{ /* ./Ieee/input.scm 240 */
int BgL_auxz00_4666;
{ /* ./Ieee/input.scm 240 */
obj_t BgL_auxz00_4673;obj_t BgL_auxz00_4667;
if(
OUTPUT_PORTP(BgL_outputz00_2111))
{ /* ./Ieee/input.scm 240 */
BgL_auxz00_4673 = BgL_outputz00_2111
; }  else 
{ /* ./Ieee/input.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5085z00zz__r4_input_6_10_2z00, BGl_string5086z00zz__r4_input_6_10_2z00, BgL_outputz00_2111, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9539))); 
exit( -1 );} 
if(
INPUT_PORTP(BgL_inputz00_2110))
{ /* ./Ieee/input.scm 240 */
BgL_auxz00_4667 = BgL_inputz00_2110
; }  else 
{ /* ./Ieee/input.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5085z00zz__r4_input_6_10_2z00, BGl_string4982z00zz__r4_input_6_10_2z00, BgL_inputz00_2110, BGl_string4983z00zz__r4_input_6_10_2z00, 
BINT(((long)9539))); 
exit( -1 );} 
BgL_auxz00_4666 = 
BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_auxz00_4667, BgL_auxz00_4673, BgL_objz00_2112); } 
return 
BINT(BgL_auxz00_4666);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00()
{ AN_OBJECT;
{ /* ./Ieee/input.scm 14 */
{ /* ./Ieee/input.scm 14 */
obj_t BgL_symbol2656z00_1980;
BgL_symbol2656z00_1980 = BGl_symbol5087z00zz__r4_input_6_10_2z00; 
{ /* ./Ieee/input.scm 14 */

PUSH_TRACE(BgL_symbol2656z00_1980); BUNSPEC; 
{ /* ./Ieee/input.scm 14 */
obj_t BgL_aux2655z00_1981;
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_input_6_10_2"); 
BgL_aux2655z00_1981 = 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__r4_input_6_10_2"); 
POP_TRACE(); 
return BgL_aux2655z00_1981;} } } } 
}

