/*===========================================================================*/
/*   (Ieee/input.scm)                                                        */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Ieee/input.scm -indent -o objs/obj_u/Ieee/input.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

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

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

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

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

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


#endif													// BGL___R4_INPUT_6_10_2_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol3532z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_symbol3535z00zz__r4_input_6_10_2z00 = BUNSPEC;
	BGL_EXPORTED_DECL long
		BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(obj_t, obj_t, long,
		long);
	static obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static int BGl_z52sendcharsz52zz__r4_input_6_10_2z00(obj_t, obj_t, long,
		long);
	static obj_t BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_symbol3544z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 =
		BUNSPEC;
	static obj_t BGl__passwordz00zz__r4_input_6_10_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_passwordz00zz__r4_input_6_10_2z00(obj_t);
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32584ze3ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_symbol3551z00zz__r4_input_6_10_2z00 = BUNSPEC;
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__gunza7ipza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_file_to_string(char *);
	extern bool_t fexists(char *);
	BGL_EXPORTED_DECL obj_t BGl_eofzd2objectzd2zz__r4_input_6_10_2z00(void);
	static obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(void);
	static obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern bool_t rgc_buffer_insert_substring(obj_t, obj_t, long, long);
	static obj_t BGl_z62zc3z04anonymousza32587ze3ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00(obj_t,
		obj_t, obj_t);
	extern obj_t
		BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern bool_t rgc_buffer_eof_p(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl__peekzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62readzf2rpz90zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00(void);
	extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__r4_input_6_10_2z00(void);
	static obj_t BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_filezd2lineszd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_input_6_10_2z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t);
	extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
	static obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__r4_input_6_10_2z00(void);
	extern long bgl_rgc_blit_string(obj_t, char *, long, long);
	static obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t, long, long,
		obj_t);
	BGL_EXPORTED_DECL long BGl_sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t,
		long, long);
	extern obj_t bgl_password(char *);
	static obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t bgl_sendchars(obj_t, obj_t, long, long);
	static obj_t BGl__peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t, long, long,
		obj_t);
	static obj_t BGl__readzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_eofzd2objectzf3z21zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t bgl_sendfile(obj_t, obj_t, long, long);
	extern bool_t rgc_buffer_insert_char(obj_t, int);
	static obj_t BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00
		= BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
	extern int rgc_buffer_unget_char(obj_t, int);
	BGL_EXPORTED_DECL obj_t BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl__readzd2charzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza32584ze33377ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza32584ze33378ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza32584ze33379ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern long default_io_bufsiz;
	BGL_EXPORTED_DECL obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__r4_input_6_10_2z00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t blit_string(obj_t, long, obj_t, long, long);
	BGL_EXPORTED_DECL bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t);
	extern obj_t bgl_find_runtime_type(obj_t);
	extern obj_t BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(unsigned
		char, obj_t);
	static obj_t BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(int, obj_t);
	extern bool_t rgc_fill_buffer(obj_t);
	static obj_t BGl__readzd2bytezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_symbol3502z00zz__r4_input_6_10_2z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl__readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern bool_t bgl_rgc_charready(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31398ze3ze5zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2bytezd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_symbol3512z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_symbol3518z00zz__r4_input_6_10_2z00 = BUNSPEC;
	extern obj_t make_string_sans_fill(long);
	BGL_EXPORTED_DECL obj_t
		BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32735ze3ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32573ze3ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	static obj_t BGl_symbol3524z00zz__r4_input_6_10_2z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_symbol3528z00zz__r4_input_6_10_2z00 = BUNSPEC;
	BGL_EXPORTED_DECL long BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	static obj_t BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_peekzd2bytezd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__peekza7d2byteza7d2za73557za7, opt_generic_entry,
		BGl__peekzd2bytezd2zz__r4_input_6_10_2z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string3498z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3498za700za7za7_3558za7, "regular-grammar", 15);
	      DEFINE_STRING(BGl_string3499z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3499za700za7za7_3559za7, "Illegal match", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2bytezd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2byteza7d2za73560za7, opt_generic_entry,
		BGl__readzd2bytezd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2lalrpzd2envz20zz__r4_input_6_10_2z00,
		BgL_bgl_za762readza7f2lalrpza73561za7, va_generic_entry,
		BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00, BUNSPEC, -4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2charsza7d23562z00, opt_generic_entry,
		BGl__readzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_sendzd2filezd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__sendza7d2fileza7d2za73563za7, opt_generic_entry,
		BGl__sendzd2filezd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2ze3stringzd2envze3zz__r4_input_6_10_2z00,
		BgL_bgl_za762fileza7d2za7e3str3564za7,
		BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2lineszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl_za762fileza7d2linesza73565za7,
		BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2linezd2newlinezd2envzd2zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2lineza7d2n3566z00, opt_generic_entry,
		BGl__readzd2linezd2newlinez00zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_peekzd2charzd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__peekza7d2charza7d2za73567za7, opt_generic_entry,
		BGl__peekzd2charzd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2charsz12zd2envz12zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2charsza7123568z00, opt_generic_entry,
		BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2charzd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2charza7d2za73569za7, opt_generic_entry,
		BGl__readzd2charzd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_charzd2readyzf3zd2envzf3zz__r4_input_6_10_2z00,
		BgL_bgl__charza7d2readyza7f33570z00, opt_generic_entry,
		BGl__charzd2readyzf3z21zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unreadzd2charz12zd2envz12zz__r4_input_6_10_2z00,
		BgL_bgl__unreadza7d2charza713571z00, opt_generic_entry,
		BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_sendzd2charszf2siza7ezd2envz55zz__r4_input_6_10_2z00,
		BgL_bgl_za762sendza7d2charsza73572za7,
		BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00, 0L, BUNSPEC, 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00,
		BgL_bgl_za762readza7f2rpza790za73573z00, va_generic_entry,
		BGl_z62readzf2rpz90zz__r4_input_6_10_2z00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2lineza7d2za73574za7, opt_generic_entry,
		BGl__readzd2linezd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2stringza7d3575z00, opt_generic_entry,
		BGl__readzd2stringzd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unreadzd2stringz12zd2envz12zz__r4_input_6_10_2z00,
		BgL_bgl__unreadza7d2string3576za7, opt_generic_entry,
		BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string3500z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3500za700za7za7_3577za7, "Illegal range `~a'", 18);
	      DEFINE_STRING(BGl_string3501z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3501za700za7za7_3578za7, "the-substring", 13);
	      DEFINE_STRING(BGl_string3503z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3503za700za7za7_3579za7, "read/rp", 7);
	      DEFINE_STRING(BGl_string3504z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3504za700za7za7_3580za7, "Grammar arity mismatch", 22);
	      DEFINE_STRING(BGl_string3505z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3505za700za7za7_3581za7, "/tmp/bigloo/runtime/Ieee/input.scm",
		34);
	      DEFINE_STRING(BGl_string3506z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3506za700za7za7_3582za7, "&read/rp", 8);
	      DEFINE_STRING(BGl_string3507z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3507za700za7za7_3583za7, "procedure", 9);
	      DEFINE_STRING(BGl_string3508z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3508za700za7za7_3584za7, "input-port", 10);
	      DEFINE_STRING(BGl_string3509z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3509za700za7za7_3585za7, "&read/lalrp", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2ofza7d2str3586z00, opt_generic_entry,
		BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string3510z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3510za700za7za7_3587za7, "_char-ready?", 12);
	      DEFINE_STRING(BGl_string3511z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3511za700za7za7_3588za7, "", 0);
	      DEFINE_STRING(BGl_string3513z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3513za700za7za7_3589za7, "read-chars", 10);
	      DEFINE_STRING(BGl_string3514z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3514za700za7za7_3590za7, "integer", 7);
	      DEFINE_STRING(BGl_string3515z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3515za700za7za7_3591za7, "Illegal negative length", 23);
	      DEFINE_STRING(BGl_string3516z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3516za700za7za7_3592za7, "_read-chars!", 12);
	      DEFINE_STRING(BGl_string3517z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3517za700za7za7_3593za7, "bstring", 7);
	      DEFINE_STRING(BGl_string3519z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3519za700za7za7_3594za7, "read-chars!", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2fillza7d2s3595z00, opt_generic_entry,
		BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_eofzd2objectzd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl_za762eofza7d2objectza73596za7,
		BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 0);
	      DEFINE_STRING(BGl_string3520z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3520za700za7za7_3597za7, "_read-fill-string!", 18);
	      DEFINE_STRING(BGl_string3521z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3521za700za7za7_3598za7, "bint", 4);
	      DEFINE_STRING(BGl_string3522z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3522za700za7za7_3599za7, "_unread-char!", 13);
	      DEFINE_STRING(BGl_string3523z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3523za700za7za7_3600za7, "bchar", 5);
	      DEFINE_STRING(BGl_string3525z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3525za700za7za7_3601za7, "unread-char!", 12);
	      DEFINE_STRING(BGl_string3526z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3526za700za7za7_3602za7, "Unread char failed", 18);
	      DEFINE_STRING(BGl_string3527z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3527za700za7za7_3603za7, "_unread-string!", 15);
	      DEFINE_STRING(BGl_string3529z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3529za700za7za7_3604za7, "unread-string!", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00,
		BgL_bgl_za762eofza7d2objectza73605za7,
		BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string3530z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3530za700za7za7_3606za7, "Unread string failed", 20);
	      DEFINE_STRING(BGl_string3531z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3531za700za7za7_3607za7, "_unread-substring!", 18);
	      DEFINE_STRING(BGl_string3533z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3533za700za7za7_3608za7, "unread-substring!", 17);
	      DEFINE_STRING(BGl_string3534z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3534za700za7za7_3609za7, "Invalid positional parameters", 29);
	      DEFINE_STRING(BGl_string3536z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3536za700za7za7_3610za7, "unread-sustring!", 16);
	      DEFINE_STRING(BGl_string3537z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3537za700za7za7_3611za7, "&port->string-list", 18);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_passwordzd2envzd2zz__r4_input_6_10_2z00,
		BgL_bgl__passwordza700za7za7__3612za7, opt_generic_entry,
		BGl__passwordz00zz__r4_input_6_10_2z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string3538z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3538za700za7za7_3613za7, "file:", 5);
	      DEFINE_STRING(BGl_string3539z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3539za700za7za7_3614za7, "&file->string", 13);
	      DEFINE_STRING(BGl_string3540z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3540za700za7za7_3615za7, "&send-chars/size", 16);
	      DEFINE_STRING(BGl_string3541z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3541za700za7za7_3616za7, "output-port", 11);
	      DEFINE_STRING(BGl_string3542z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3542za700za7za7_3617za7, "belong", 6);
	      DEFINE_STRING(BGl_string3543z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3543za700za7za7_3618za7, "_send-chars", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_portzd2ze3stringzd2listzd2envz31zz__r4_input_6_10_2z00,
		BgL_bgl_za762portza7d2za7e3str3619za7,
		BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string3545z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3545za700za7za7_3620za7, "send-chars", 10);
	      DEFINE_STRING(BGl_string3546z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3546za700za7za7_3621za7, "Illegal size", 12);
	      DEFINE_STRING(BGl_string3547z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3547za700za7za7_3622za7, "Illegal offset", 14);
	      DEFINE_STRING(BGl_string3548z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3548za700za7za7_3623za7, "_send-file", 10);
	      DEFINE_STRING(BGl_string3549z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3549za700za7za7_3624za7, "pair", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2linesza7d23625z00, opt_generic_entry,
		BGl__readzd2lineszd2zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_sendzd2charszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__sendza7d2charsza7d23626z00, opt_generic_entry,
		BGl__sendzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string3550z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3550za700za7za7_3627za7, "&file-lines", 11);
	      DEFINE_STRING(BGl_string3552z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3552za700za7za7_3628za7, "file-lines", 10);
	      DEFINE_STRING(BGl_string3553z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3553za700za7za7_3629za7, "Illegal files", 13);
	      DEFINE_STRING(BGl_string3554z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3554za700za7za7_3630za7, "&file-position->line", 20);
	      DEFINE_STRING(BGl_string3555z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3555za700za7za7_3631za7, "_password", 9);
	      DEFINE_STRING(BGl_string3556z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3556za700za7za7_3632za7, "__r4_input_6_10_2", 17);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unreadzd2substringz12zd2envz12zz__r4_input_6_10_2z00,
		BgL_bgl__unreadza7d2substr3633za7, opt_generic_entry,
		BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2positionzd2ze3linezd2envz31zz__r4_input_6_10_2z00,
		BgL_bgl_za762fileza7d2positi3634z00,
		BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 2);

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;
		     ADD_ROOT((void *) (&BGl_symbol3532z00zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3535z00zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3544z00zz__r4_input_6_10_2z00));
		   
			 ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3551z00zz__r4_input_6_10_2z00));
		   
			 ADD_ROOT((void
				*) (&BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3502z00zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3512z00zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3518z00zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3524z00zz__r4_input_6_10_2z00));
		     ADD_ROOT((void *) (&BGl_symbol3528z00zz__r4_input_6_10_2z00));
#undef ADD_ROOT
		if   (roots_max > 0)
			     GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		     return BUNSPEC;
	}



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

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00(void)
	{
		{	/* Ieee/input.scm 14 */
			BGl_symbol3502z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3503z00zz__r4_input_6_10_2z00);
			BGl_symbol3512z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3513z00zz__r4_input_6_10_2z00);
			BGl_symbol3518z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3519z00zz__r4_input_6_10_2z00);
			BGl_symbol3524z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3525z00zz__r4_input_6_10_2z00);
			BGl_symbol3528z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3529z00zz__r4_input_6_10_2z00);
			BGl_symbol3532z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3533z00zz__r4_input_6_10_2z00);
			BGl_symbol3535z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3536z00zz__r4_input_6_10_2z00);
			BGl_symbol3544z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3545z00zz__r4_input_6_10_2z00);
			return (BGl_symbol3551z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3552z00zz__r4_input_6_10_2z00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(void)
	{
		{	/* Ieee/input.scm 14 */
			{	/* Ieee/input.scm 307 */
				obj_t BgL_zc3z04anonymousza31398ze3z87_6238;

				{
					int BgL_tmpz00_6622;

					BgL_tmpz00_6622 = (int) (0L);
					BgL_zc3z04anonymousza31398ze3z87_6238 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_6622);
				}
				return (BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00
					= BgL_zc3z04anonymousza31398ze3z87_6238, BUNSPEC);
			}
		}

	}



/* &<@anonymous:1398> */
	obj_t BGl_z62zc3z04anonymousza31398ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6239, obj_t BgL_iportz00_6240)
	{
		{	/* Ieee/input.scm 307 */
			{
				obj_t BgL_iportz00_6498;
				long BgL_lastzd2matchzd2_6499;
				long BgL_forwardz00_6500;
				long BgL_bufposz00_6501;
				obj_t BgL_iportz00_6481;
				long BgL_lastzd2matchzd2_6482;
				long BgL_forwardz00_6483;
				long BgL_bufposz00_6484;
				obj_t BgL_iportz00_6473;
				long BgL_lastzd2matchzd2_6474;
				long BgL_forwardz00_6475;
				long BgL_bufposz00_6476;
				obj_t BgL_iportz00_6457;
				long BgL_lastzd2matchzd2_6458;
				long BgL_forwardz00_6459;
				long BgL_bufposz00_6460;
				obj_t BgL_iportz00_6450;
				long BgL_lastzd2matchzd2_6451;
				long BgL_forwardz00_6452;
				long BgL_bufposz00_6453;
				obj_t BgL_iportz00_6442;
				long BgL_lastzd2matchzd2_6443;
				long BgL_forwardz00_6444;
				long BgL_bufposz00_6445;
				obj_t BgL_iportz00_6434;
				long BgL_lastzd2matchzd2_6435;
				long BgL_forwardz00_6436;
				long BgL_bufposz00_6437;
				int BgL_minz00_6422;
				int BgL_maxz00_6423;

			BgL_ignorez00_6406:
				{	/* Ieee/input.scm 307 */
					obj_t BgL_tmpz00_6625;

					BgL_tmpz00_6625 = ((obj_t) BgL_iportz00_6240);
					RGC_START_MATCH(BgL_tmpz00_6625);
				}
				{	/* Ieee/input.scm 307 */
					long BgL_matchz00_6416;

					{	/* Ieee/input.scm 307 */
						long BgL_arg1582z00_6417;
						long BgL_arg1583z00_6418;

						{	/* Ieee/input.scm 307 */
							obj_t BgL_tmpz00_6628;

							BgL_tmpz00_6628 = ((obj_t) BgL_iportz00_6240);
							BgL_arg1582z00_6417 = RGC_BUFFER_FORWARD(BgL_tmpz00_6628);
						}
						{	/* Ieee/input.scm 307 */
							obj_t BgL_tmpz00_6631;

							BgL_tmpz00_6631 = ((obj_t) BgL_iportz00_6240);
							BgL_arg1583z00_6418 = RGC_BUFFER_BUFPOS(BgL_tmpz00_6631);
						}
						BgL_iportz00_6450 = BgL_iportz00_6240;
						BgL_lastzd2matchzd2_6451 = 4L;
						BgL_forwardz00_6452 = BgL_arg1582z00_6417;
						BgL_bufposz00_6453 = BgL_arg1583z00_6418;
					BgL_statezd20zd21103z00_6411:
						if ((BgL_forwardz00_6452 == BgL_bufposz00_6453))
							{	/* Ieee/input.scm 307 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_6450)))
									{	/* Ieee/input.scm 307 */
										long BgL_arg1446z00_6454;
										long BgL_arg1447z00_6455;

										{	/* Ieee/input.scm 307 */
											obj_t BgL_tmpz00_6639;

											BgL_tmpz00_6639 = ((obj_t) BgL_iportz00_6450);
											BgL_arg1446z00_6454 = RGC_BUFFER_FORWARD(BgL_tmpz00_6639);
										}
										{	/* Ieee/input.scm 307 */
											obj_t BgL_tmpz00_6642;

											BgL_tmpz00_6642 = ((obj_t) BgL_iportz00_6450);
											BgL_arg1447z00_6455 = RGC_BUFFER_BUFPOS(BgL_tmpz00_6642);
										}
										{
											long BgL_bufposz00_6646;
											long BgL_forwardz00_6645;

											BgL_forwardz00_6645 = BgL_arg1446z00_6454;
											BgL_bufposz00_6646 = BgL_arg1447z00_6455;
											BgL_bufposz00_6453 = BgL_bufposz00_6646;
											BgL_forwardz00_6452 = BgL_forwardz00_6645;
											goto BgL_statezd20zd21103z00_6411;
										}
									}
								else
									{	/* Ieee/input.scm 307 */
										BgL_matchz00_6416 = BgL_lastzd2matchzd2_6451;
									}
							}
						else
							{	/* Ieee/input.scm 307 */
								int BgL_curz00_6456;

								{	/* Ieee/input.scm 307 */
									obj_t BgL_tmpz00_6647;

									BgL_tmpz00_6647 = ((obj_t) BgL_iportz00_6450);
									BgL_curz00_6456 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_6647, BgL_forwardz00_6452);
								}
								{	/* Ieee/input.scm 307 */

									if (((long) (BgL_curz00_6456) == 34L))
										{	/* Ieee/input.scm 307 */
											BgL_iportz00_6481 = BgL_iportz00_6450;
											BgL_lastzd2matchzd2_6482 = BgL_lastzd2matchzd2_6451;
											BgL_forwardz00_6483 = (1L + BgL_forwardz00_6452);
											BgL_bufposz00_6484 = BgL_bufposz00_6453;
										BgL_statezd23zd21106z00_6414:
											{	/* Ieee/input.scm 307 */
												long BgL_newzd2matchzd2_6485;

												{	/* Ieee/input.scm 307 */
													obj_t BgL_tmpz00_6653;

													BgL_tmpz00_6653 = ((obj_t) BgL_iportz00_6481);
													RGC_STOP_MATCH(BgL_tmpz00_6653, BgL_forwardz00_6483);
												}
												BgL_newzd2matchzd2_6485 = 1L;
												if ((BgL_forwardz00_6483 == BgL_bufposz00_6484))
													{	/* Ieee/input.scm 307 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_6481)))
															{	/* Ieee/input.scm 307 */
																long BgL_arg1412z00_6486;
																long BgL_arg1413z00_6487;

																{	/* Ieee/input.scm 307 */
																	obj_t BgL_tmpz00_6661;

																	BgL_tmpz00_6661 = ((obj_t) BgL_iportz00_6481);
																	BgL_arg1412z00_6486 =
																		RGC_BUFFER_FORWARD(BgL_tmpz00_6661);
																}
																{	/* Ieee/input.scm 307 */
																	obj_t BgL_tmpz00_6664;

																	BgL_tmpz00_6664 = ((obj_t) BgL_iportz00_6481);
																	BgL_arg1413z00_6487 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_6664);
																}
																{
																	long BgL_bufposz00_6668;
																	long BgL_forwardz00_6667;

																	BgL_forwardz00_6667 = BgL_arg1412z00_6486;
																	BgL_bufposz00_6668 = BgL_arg1413z00_6487;
																	BgL_bufposz00_6484 = BgL_bufposz00_6668;
																	BgL_forwardz00_6483 = BgL_forwardz00_6667;
																	goto BgL_statezd23zd21106z00_6414;
																}
															}
														else
															{	/* Ieee/input.scm 307 */
																BgL_matchz00_6416 = BgL_newzd2matchzd2_6485;
															}
													}
												else
													{	/* Ieee/input.scm 307 */
														int BgL_curz00_6488;

														{	/* Ieee/input.scm 307 */
															obj_t BgL_tmpz00_6669;

															BgL_tmpz00_6669 = ((obj_t) BgL_iportz00_6481);
															BgL_curz00_6488 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_6669,
																BgL_forwardz00_6483);
														}
														{	/* Ieee/input.scm 307 */

															if (((long) (BgL_curz00_6488) == 92L))
																{	/* Ieee/input.scm 307 */
																	long BgL_arg1415z00_6489;

																	BgL_arg1415z00_6489 =
																		(1L + BgL_forwardz00_6483);
																	{
																		long BgL_forwardz00_6491;
																		long BgL_bufposz00_6492;

																		BgL_forwardz00_6491 = BgL_arg1415z00_6489;
																		BgL_bufposz00_6492 = BgL_bufposz00_6484;
																	BgL_statezd26zd21109z00_6490:
																		if (
																			(BgL_forwardz00_6491 ==
																				BgL_bufposz00_6492))
																			{	/* Ieee/input.scm 307 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_6481)))
																					{	/* Ieee/input.scm 307 */
																						long BgL_arg1468z00_6493;
																						long BgL_arg1469z00_6494;

																						{	/* Ieee/input.scm 307 */
																							obj_t BgL_tmpz00_6681;

																							BgL_tmpz00_6681 =
																								((obj_t) BgL_iportz00_6481);
																							BgL_arg1468z00_6493 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_6681);
																						}
																						{	/* Ieee/input.scm 307 */
																							obj_t BgL_tmpz00_6684;

																							BgL_tmpz00_6684 =
																								((obj_t) BgL_iportz00_6481);
																							BgL_arg1469z00_6494 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_6684);
																						}
																						{
																							long BgL_bufposz00_6688;
																							long BgL_forwardz00_6687;

																							BgL_forwardz00_6687 =
																								BgL_arg1468z00_6493;
																							BgL_bufposz00_6688 =
																								BgL_arg1469z00_6494;
																							BgL_bufposz00_6492 =
																								BgL_bufposz00_6688;
																							BgL_forwardz00_6491 =
																								BgL_forwardz00_6687;
																							goto BgL_statezd26zd21109z00_6490;
																						}
																					}
																				else
																					{	/* Ieee/input.scm 307 */
																						BgL_matchz00_6416 =
																							BgL_newzd2matchzd2_6485;
																					}
																			}
																		else
																			{	/* Ieee/input.scm 307 */
																				int BgL_curz00_6495;

																				{	/* Ieee/input.scm 307 */
																					obj_t BgL_tmpz00_6689;

																					BgL_tmpz00_6689 =
																						((obj_t) BgL_iportz00_6481);
																					BgL_curz00_6495 =
																						RGC_BUFFER_GET_CHAR(BgL_tmpz00_6689,
																						BgL_forwardz00_6491);
																				}
																				{	/* Ieee/input.scm 307 */

																					if (((long) (BgL_curz00_6495) == 10L))
																						{	/* Ieee/input.scm 307 */
																							BgL_matchz00_6416 =
																								BgL_newzd2matchzd2_6485;
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							BgL_iportz00_6457 =
																								BgL_iportz00_6481;
																							BgL_lastzd2matchzd2_6458 =
																								BgL_newzd2matchzd2_6485;
																							BgL_forwardz00_6459 =
																								(1L + BgL_forwardz00_6491);
																							BgL_bufposz00_6460 =
																								BgL_bufposz00_6492;
																						BgL_statezd24zd21107z00_6412:
																							if (
																								(BgL_forwardz00_6459 ==
																									BgL_bufposz00_6460))
																								{	/* Ieee/input.scm 307 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_6457)))
																										{	/* Ieee/input.scm 307 */
																											long BgL_arg1434z00_6461;
																											long BgL_arg1435z00_6462;

																											{	/* Ieee/input.scm 307 */
																												obj_t BgL_tmpz00_6700;

																												BgL_tmpz00_6700 =
																													((obj_t)
																													BgL_iportz00_6457);
																												BgL_arg1434z00_6461 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_6700);
																											}
																											{	/* Ieee/input.scm 307 */
																												obj_t BgL_tmpz00_6703;

																												BgL_tmpz00_6703 =
																													((obj_t)
																													BgL_iportz00_6457);
																												BgL_arg1435z00_6462 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_6703);
																											}
																											{
																												long BgL_bufposz00_6707;
																												long
																													BgL_forwardz00_6706;
																												BgL_forwardz00_6706 =
																													BgL_arg1434z00_6461;
																												BgL_bufposz00_6707 =
																													BgL_arg1435z00_6462;
																												BgL_bufposz00_6460 =
																													BgL_bufposz00_6707;
																												BgL_forwardz00_6459 =
																													BgL_forwardz00_6706;
																												goto
																													BgL_statezd24zd21107z00_6412;
																											}
																										}
																									else
																										{	/* Ieee/input.scm 307 */
																											BgL_matchz00_6416 =
																												BgL_lastzd2matchzd2_6458;
																										}
																								}
																							else
																								{	/* Ieee/input.scm 307 */
																									int BgL_curz00_6463;

																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_6708;

																										BgL_tmpz00_6708 =
																											((obj_t)
																											BgL_iportz00_6457);
																										BgL_curz00_6463 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_6708,
																											BgL_forwardz00_6459);
																									}
																									{	/* Ieee/input.scm 307 */

																										if (
																											((long) (BgL_curz00_6463)
																												== 92L))
																											{	/* Ieee/input.scm 307 */
																												long
																													BgL_arg1437z00_6464;
																												BgL_arg1437z00_6464 =
																													(1L +
																													BgL_forwardz00_6459);
																												{
																													long
																														BgL_forwardz00_6466;
																													long
																														BgL_bufposz00_6467;
																													BgL_forwardz00_6466 =
																														BgL_arg1437z00_6464;
																													BgL_bufposz00_6467 =
																														BgL_bufposz00_6460;
																												BgL_statezd26zd21109z00_6465:
																													if (
																														(BgL_forwardz00_6466
																															==
																															BgL_bufposz00_6467))
																														{	/* Ieee/input.scm 307 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_6457)))
																																{	/* Ieee/input.scm 307 */
																																	long
																																		BgL_arg1468z00_6468;
																																	long
																																		BgL_arg1469z00_6469;
																																	{	/* Ieee/input.scm 307 */
																																		obj_t
																																			BgL_tmpz00_6720;
																																		BgL_tmpz00_6720
																																			=
																																			((obj_t)
																																			BgL_iportz00_6457);
																																		BgL_arg1468z00_6468
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_6720);
																																	}
																																	{	/* Ieee/input.scm 307 */
																																		obj_t
																																			BgL_tmpz00_6723;
																																		BgL_tmpz00_6723
																																			=
																																			((obj_t)
																																			BgL_iportz00_6457);
																																		BgL_arg1469z00_6469
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_6723);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_6727;
																																		long
																																			BgL_forwardz00_6726;
																																		BgL_forwardz00_6726
																																			=
																																			BgL_arg1468z00_6468;
																																		BgL_bufposz00_6727
																																			=
																																			BgL_arg1469z00_6469;
																																		BgL_bufposz00_6467
																																			=
																																			BgL_bufposz00_6727;
																																		BgL_forwardz00_6466
																																			=
																																			BgL_forwardz00_6726;
																																		goto
																																			BgL_statezd26zd21109z00_6465;
																																	}
																																}
																															else
																																{	/* Ieee/input.scm 307 */
																																	BgL_matchz00_6416
																																		=
																																		BgL_lastzd2matchzd2_6458;
																																}
																														}
																													else
																														{	/* Ieee/input.scm 307 */
																															int
																																BgL_curz00_6470;
																															{	/* Ieee/input.scm 307 */
																																obj_t
																																	BgL_tmpz00_6728;
																																BgL_tmpz00_6728
																																	=
																																	((obj_t)
																																	BgL_iportz00_6457);
																																BgL_curz00_6470
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_6728,
																																	BgL_forwardz00_6466);
																															}
																															{	/* Ieee/input.scm 307 */

																																if (
																																	((long)
																																		(BgL_curz00_6470)
																																		== 10L))
																																	{	/* Ieee/input.scm 307 */
																																		BgL_matchz00_6416
																																			=
																																			BgL_lastzd2matchzd2_6458;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_6736;
																																		long
																																			BgL_forwardz00_6734;
																																		BgL_forwardz00_6734
																																			=
																																			(1L +
																																			BgL_forwardz00_6466);
																																		BgL_bufposz00_6736
																																			=
																																			BgL_bufposz00_6467;
																																		BgL_bufposz00_6460
																																			=
																																			BgL_bufposz00_6736;
																																		BgL_forwardz00_6459
																																			=
																																			BgL_forwardz00_6734;
																																		goto
																																			BgL_statezd24zd21107z00_6412;
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												if (
																													((long)
																														(BgL_curz00_6463) ==
																														34L))
																													{	/* Ieee/input.scm 307 */
																														long
																															BgL_arg1439z00_6471;
																														BgL_arg1439z00_6471
																															=
																															(1L +
																															BgL_forwardz00_6459);
																														{	/* Ieee/input.scm 307 */
																															long
																																BgL_newzd2matchzd2_6472;
																															{	/* Ieee/input.scm 307 */
																																obj_t
																																	BgL_tmpz00_6741;
																																BgL_tmpz00_6741
																																	=
																																	((obj_t)
																																	BgL_iportz00_6457);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_6741,
																																	BgL_arg1439z00_6471);
																															}
																															BgL_newzd2matchzd2_6472
																																= 2L;
																															BgL_matchz00_6416
																																=
																																BgL_newzd2matchzd2_6472;
																													}}
																												else
																													{	/* Ieee/input.scm 307 */
																														bool_t
																															BgL_test3652z00_6744;
																														if (((long)
																																(BgL_curz00_6463)
																																== 34L))
																															{	/* Ieee/input.scm 307 */
																																BgL_test3652z00_6744
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Ieee/input.scm 307 */
																																BgL_test3652z00_6744
																																	=
																																	((long)
																																	(BgL_curz00_6463)
																																	== 92L);
																															}
																														if (BgL_test3652z00_6744)
																															{	/* Ieee/input.scm 307 */
																																BgL_matchz00_6416
																																	=
																																	BgL_lastzd2matchzd2_6458;
																															}
																														else
																															{
																																long
																																	BgL_forwardz00_6750;
																																BgL_forwardz00_6750
																																	=
																																	(1L +
																																	BgL_forwardz00_6459);
																																BgL_forwardz00_6459
																																	=
																																	BgL_forwardz00_6750;
																																goto
																																	BgL_statezd24zd21107z00_6412;
																															}
																													}
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Ieee/input.scm 307 */
																	if (((long) (BgL_curz00_6488) == 34L))
																		{	/* Ieee/input.scm 307 */
																			long BgL_arg1417z00_6496;

																			BgL_arg1417z00_6496 =
																				(1L + BgL_forwardz00_6483);
																			{	/* Ieee/input.scm 307 */
																				long BgL_newzd2matchzd2_6497;

																				{	/* Ieee/input.scm 307 */
																					obj_t BgL_tmpz00_6757;

																					BgL_tmpz00_6757 =
																						((obj_t) BgL_iportz00_6481);
																					RGC_STOP_MATCH(BgL_tmpz00_6757,
																						BgL_arg1417z00_6496);
																				}
																				BgL_newzd2matchzd2_6497 = 2L;
																				BgL_matchz00_6416 =
																					BgL_newzd2matchzd2_6497;
																		}}
																	else
																		{	/* Ieee/input.scm 307 */
																			bool_t BgL_test3655z00_6760;

																			if (((long) (BgL_curz00_6488) == 34L))
																				{	/* Ieee/input.scm 307 */
																					BgL_test3655z00_6760 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3655z00_6760 =
																						((long) (BgL_curz00_6488) == 92L);
																				}
																			if (BgL_test3655z00_6760)
																				{	/* Ieee/input.scm 307 */
																					BgL_matchz00_6416 =
																						BgL_newzd2matchzd2_6485;
																				}
																			else
																				{
																					long BgL_bufposz00_6770;
																					long BgL_forwardz00_6768;
																					long BgL_lastzd2matchzd2_6767;
																					obj_t BgL_iportz00_6766;

																					BgL_iportz00_6766 = BgL_iportz00_6481;
																					BgL_lastzd2matchzd2_6767 =
																						BgL_newzd2matchzd2_6485;
																					BgL_forwardz00_6768 =
																						(1L + BgL_forwardz00_6483);
																					BgL_bufposz00_6770 =
																						BgL_bufposz00_6484;
																					BgL_bufposz00_6460 =
																						BgL_bufposz00_6770;
																					BgL_forwardz00_6459 =
																						BgL_forwardz00_6768;
																					BgL_lastzd2matchzd2_6458 =
																						BgL_lastzd2matchzd2_6767;
																					BgL_iportz00_6457 = BgL_iportz00_6766;
																					goto BgL_statezd24zd21107z00_6412;
																				}
																		}
																}
														}
													}
											}
										}
									else
										{	/* Ieee/input.scm 307 */
											bool_t BgL_test3657z00_6772;

											{	/* Ieee/input.scm 307 */
												bool_t BgL_test3658z00_6773;

												if (((long) (BgL_curz00_6456) == 10L))
													{	/* Ieee/input.scm 307 */
														BgL_test3658z00_6773 = ((bool_t) 1);
													}
												else
													{	/* Ieee/input.scm 307 */
														BgL_test3658z00_6773 =
															((long) (BgL_curz00_6456) == 9L);
													}
												if (BgL_test3658z00_6773)
													{	/* Ieee/input.scm 307 */
														BgL_test3657z00_6772 = ((bool_t) 1);
													}
												else
													{	/* Ieee/input.scm 307 */
														BgL_test3657z00_6772 =
															((long) (BgL_curz00_6456) == 32L);
											}}
											if (BgL_test3657z00_6772)
												{	/* Ieee/input.scm 307 */
													BgL_iportz00_6473 = BgL_iportz00_6450;
													BgL_lastzd2matchzd2_6474 = BgL_lastzd2matchzd2_6451;
													BgL_forwardz00_6475 = (1L + BgL_forwardz00_6452);
													BgL_bufposz00_6476 = BgL_bufposz00_6453;
												BgL_statezd22zd21105z00_6413:
													{	/* Ieee/input.scm 307 */
														long BgL_newzd2matchzd2_6477;

														{	/* Ieee/input.scm 307 */
															obj_t BgL_tmpz00_6781;

															BgL_tmpz00_6781 = ((obj_t) BgL_iportz00_6473);
															RGC_STOP_MATCH(BgL_tmpz00_6781,
																BgL_forwardz00_6475);
														}
														BgL_newzd2matchzd2_6477 = 0L;
														if ((BgL_forwardz00_6475 == BgL_bufposz00_6476))
															{	/* Ieee/input.scm 307 */
																if (rgc_fill_buffer(
																		((obj_t) BgL_iportz00_6473)))
																	{	/* Ieee/input.scm 307 */
																		long BgL_arg1424z00_6478;
																		long BgL_arg1425z00_6479;

																		{	/* Ieee/input.scm 307 */
																			obj_t BgL_tmpz00_6789;

																			BgL_tmpz00_6789 =
																				((obj_t) BgL_iportz00_6473);
																			BgL_arg1424z00_6478 =
																				RGC_BUFFER_FORWARD(BgL_tmpz00_6789);
																		}
																		{	/* Ieee/input.scm 307 */
																			obj_t BgL_tmpz00_6792;

																			BgL_tmpz00_6792 =
																				((obj_t) BgL_iportz00_6473);
																			BgL_arg1425z00_6479 =
																				RGC_BUFFER_BUFPOS(BgL_tmpz00_6792);
																		}
																		{
																			long BgL_bufposz00_6796;
																			long BgL_forwardz00_6795;

																			BgL_forwardz00_6795 = BgL_arg1424z00_6478;
																			BgL_bufposz00_6796 = BgL_arg1425z00_6479;
																			BgL_bufposz00_6476 = BgL_bufposz00_6796;
																			BgL_forwardz00_6475 = BgL_forwardz00_6795;
																			goto BgL_statezd22zd21105z00_6413;
																		}
																	}
																else
																	{	/* Ieee/input.scm 307 */
																		BgL_matchz00_6416 = BgL_newzd2matchzd2_6477;
																	}
															}
														else
															{	/* Ieee/input.scm 307 */
																int BgL_curz00_6480;

																{	/* Ieee/input.scm 307 */
																	obj_t BgL_tmpz00_6797;

																	BgL_tmpz00_6797 = ((obj_t) BgL_iportz00_6473);
																	BgL_curz00_6480 =
																		RGC_BUFFER_GET_CHAR(BgL_tmpz00_6797,
																		BgL_forwardz00_6475);
																}
																{	/* Ieee/input.scm 307 */

																	{	/* Ieee/input.scm 307 */
																		bool_t BgL_test3662z00_6800;

																		{	/* Ieee/input.scm 307 */
																			bool_t BgL_test3663z00_6801;

																			if (((long) (BgL_curz00_6480) == 10L))
																				{	/* Ieee/input.scm 307 */
																					BgL_test3663z00_6801 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3663z00_6801 =
																						((long) (BgL_curz00_6480) == 9L);
																				}
																			if (BgL_test3663z00_6801)
																				{	/* Ieee/input.scm 307 */
																					BgL_test3662z00_6800 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3662z00_6800 =
																						((long) (BgL_curz00_6480) == 32L);
																		}}
																		if (BgL_test3662z00_6800)
																			{	/* Ieee/input.scm 307 */
																				BgL_iportz00_6434 = BgL_iportz00_6473;
																				BgL_lastzd2matchzd2_6435 =
																					BgL_newzd2matchzd2_6477;
																				BgL_forwardz00_6436 =
																					(1L + BgL_forwardz00_6475);
																				BgL_bufposz00_6437 = BgL_bufposz00_6476;
																			BgL_statezd28zd21111z00_6409:
																				{	/* Ieee/input.scm 307 */
																					long BgL_newzd2matchzd2_6438;

																					{	/* Ieee/input.scm 307 */
																						obj_t BgL_tmpz00_6809;

																						BgL_tmpz00_6809 =
																							((obj_t) BgL_iportz00_6434);
																						RGC_STOP_MATCH(BgL_tmpz00_6809,
																							BgL_forwardz00_6436);
																					}
																					BgL_newzd2matchzd2_6438 = 0L;
																					if (
																						(BgL_forwardz00_6436 ==
																							BgL_bufposz00_6437))
																						{	/* Ieee/input.scm 307 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_6434)))
																								{	/* Ieee/input.scm 307 */
																									long BgL_arg1476z00_6439;
																									long BgL_arg1477z00_6440;

																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_6817;

																										BgL_tmpz00_6817 =
																											((obj_t)
																											BgL_iportz00_6434);
																										BgL_arg1476z00_6439 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_6817);
																									}
																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_6820;

																										BgL_tmpz00_6820 =
																											((obj_t)
																											BgL_iportz00_6434);
																										BgL_arg1477z00_6440 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_6820);
																									}
																									{
																										long BgL_bufposz00_6824;
																										long BgL_forwardz00_6823;

																										BgL_forwardz00_6823 =
																											BgL_arg1476z00_6439;
																										BgL_bufposz00_6824 =
																											BgL_arg1477z00_6440;
																										BgL_bufposz00_6437 =
																											BgL_bufposz00_6824;
																										BgL_forwardz00_6436 =
																											BgL_forwardz00_6823;
																										goto
																											BgL_statezd28zd21111z00_6409;
																									}
																								}
																							else
																								{	/* Ieee/input.scm 307 */
																									BgL_matchz00_6416 =
																										BgL_newzd2matchzd2_6438;
																								}
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							int BgL_curz00_6441;

																							{	/* Ieee/input.scm 307 */
																								obj_t BgL_tmpz00_6825;

																								BgL_tmpz00_6825 =
																									((obj_t) BgL_iportz00_6434);
																								BgL_curz00_6441 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_6825,
																									BgL_forwardz00_6436);
																							}
																							{	/* Ieee/input.scm 307 */

																								{	/* Ieee/input.scm 307 */
																									bool_t BgL_test3667z00_6828;

																									{	/* Ieee/input.scm 307 */
																										bool_t BgL_test3668z00_6829;

																										if (
																											((long) (BgL_curz00_6441)
																												== 10L))
																											{	/* Ieee/input.scm 307 */
																												BgL_test3668z00_6829 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												BgL_test3668z00_6829 =
																													(
																													(long)
																													(BgL_curz00_6441) ==
																													9L);
																											}
																										if (BgL_test3668z00_6829)
																											{	/* Ieee/input.scm 307 */
																												BgL_test3667z00_6828 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												BgL_test3667z00_6828 =
																													(
																													(long)
																													(BgL_curz00_6441) ==
																													32L);
																									}}
																									if (BgL_test3667z00_6828)
																										{
																											long BgL_forwardz00_6838;
																											long
																												BgL_lastzd2matchzd2_6837;
																											BgL_lastzd2matchzd2_6837 =
																												BgL_newzd2matchzd2_6438;
																											BgL_forwardz00_6838 =
																												(1L +
																												BgL_forwardz00_6436);
																											BgL_forwardz00_6436 =
																												BgL_forwardz00_6838;
																											BgL_lastzd2matchzd2_6435 =
																												BgL_lastzd2matchzd2_6837;
																											goto
																												BgL_statezd28zd21111z00_6409;
																										}
																									else
																										{	/* Ieee/input.scm 307 */
																											BgL_matchz00_6416 =
																												BgL_newzd2matchzd2_6438;
																										}
																								}
																							}
																						}
																				}
																			}
																		else
																			{	/* Ieee/input.scm 307 */
																				BgL_matchz00_6416 =
																					BgL_newzd2matchzd2_6477;
																			}
																	}
																}
															}
													}
												}
											else
												{	/* Ieee/input.scm 307 */
													BgL_iportz00_6498 = BgL_iportz00_6450;
													BgL_lastzd2matchzd2_6499 = BgL_lastzd2matchzd2_6451;
													BgL_forwardz00_6500 = (1L + BgL_forwardz00_6452);
													BgL_bufposz00_6501 = BgL_bufposz00_6453;
												BgL_statezd21zd21104z00_6415:
													{	/* Ieee/input.scm 307 */
														long BgL_newzd2matchzd2_6502;

														{	/* Ieee/input.scm 307 */
															obj_t BgL_tmpz00_6842;

															BgL_tmpz00_6842 = ((obj_t) BgL_iportz00_6498);
															RGC_STOP_MATCH(BgL_tmpz00_6842,
																BgL_forwardz00_6500);
														}
														BgL_newzd2matchzd2_6502 = 3L;
														if ((BgL_forwardz00_6500 == BgL_bufposz00_6501))
															{	/* Ieee/input.scm 307 */
																if (rgc_fill_buffer(
																		((obj_t) BgL_iportz00_6498)))
																	{	/* Ieee/input.scm 307 */
																		long BgL_arg1402z00_6503;
																		long BgL_arg1403z00_6504;

																		{	/* Ieee/input.scm 307 */
																			obj_t BgL_tmpz00_6850;

																			BgL_tmpz00_6850 =
																				((obj_t) BgL_iportz00_6498);
																			BgL_arg1402z00_6503 =
																				RGC_BUFFER_FORWARD(BgL_tmpz00_6850);
																		}
																		{	/* Ieee/input.scm 307 */
																			obj_t BgL_tmpz00_6853;

																			BgL_tmpz00_6853 =
																				((obj_t) BgL_iportz00_6498);
																			BgL_arg1403z00_6504 =
																				RGC_BUFFER_BUFPOS(BgL_tmpz00_6853);
																		}
																		{
																			long BgL_bufposz00_6857;
																			long BgL_forwardz00_6856;

																			BgL_forwardz00_6856 = BgL_arg1402z00_6503;
																			BgL_bufposz00_6857 = BgL_arg1403z00_6504;
																			BgL_bufposz00_6501 = BgL_bufposz00_6857;
																			BgL_forwardz00_6500 = BgL_forwardz00_6856;
																			goto BgL_statezd21zd21104z00_6415;
																		}
																	}
																else
																	{	/* Ieee/input.scm 307 */
																		BgL_matchz00_6416 = BgL_newzd2matchzd2_6502;
																	}
															}
														else
															{	/* Ieee/input.scm 307 */
																int BgL_curz00_6505;

																{	/* Ieee/input.scm 307 */
																	obj_t BgL_tmpz00_6858;

																	BgL_tmpz00_6858 = ((obj_t) BgL_iportz00_6498);
																	BgL_curz00_6505 =
																		RGC_BUFFER_GET_CHAR(BgL_tmpz00_6858,
																		BgL_forwardz00_6500);
																}
																{	/* Ieee/input.scm 307 */

																	{	/* Ieee/input.scm 307 */
																		bool_t BgL_test3672z00_6861;

																		{	/* Ieee/input.scm 307 */
																			bool_t BgL_test3673z00_6862;

																			if (((long) (BgL_curz00_6505) == 10L))
																				{	/* Ieee/input.scm 307 */
																					BgL_test3673z00_6862 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3673z00_6862 =
																						((long) (BgL_curz00_6505) == 9L);
																				}
																			if (BgL_test3673z00_6862)
																				{	/* Ieee/input.scm 307 */
																					BgL_test3672z00_6861 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					if (((long) (BgL_curz00_6505) == 32L))
																						{	/* Ieee/input.scm 307 */
																							BgL_test3672z00_6861 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							BgL_test3672z00_6861 =
																								(
																								(long) (BgL_curz00_6505) ==
																								34L);
																		}}}
																		if (BgL_test3672z00_6861)
																			{	/* Ieee/input.scm 307 */
																				BgL_matchz00_6416 =
																					BgL_newzd2matchzd2_6502;
																			}
																		else
																			{	/* Ieee/input.scm 307 */
																				BgL_iportz00_6442 = BgL_iportz00_6498;
																				BgL_lastzd2matchzd2_6443 =
																					BgL_newzd2matchzd2_6502;
																				BgL_forwardz00_6444 =
																					(1L + BgL_forwardz00_6500);
																				BgL_bufposz00_6445 = BgL_bufposz00_6501;
																			BgL_statezd29zd21112z00_6410:
																				{	/* Ieee/input.scm 307 */
																					long BgL_newzd2matchzd2_6446;

																					{	/* Ieee/input.scm 307 */
																						obj_t BgL_tmpz00_6873;

																						BgL_tmpz00_6873 =
																							((obj_t) BgL_iportz00_6442);
																						RGC_STOP_MATCH(BgL_tmpz00_6873,
																							BgL_forwardz00_6444);
																					}
																					BgL_newzd2matchzd2_6446 = 3L;
																					if (
																						(BgL_forwardz00_6444 ==
																							BgL_bufposz00_6445))
																						{	/* Ieee/input.scm 307 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_6442)))
																								{	/* Ieee/input.scm 307 */
																									long BgL_arg1458z00_6447;
																									long BgL_arg1459z00_6448;

																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_6881;

																										BgL_tmpz00_6881 =
																											((obj_t)
																											BgL_iportz00_6442);
																										BgL_arg1458z00_6447 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_6881);
																									}
																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_6884;

																										BgL_tmpz00_6884 =
																											((obj_t)
																											BgL_iportz00_6442);
																										BgL_arg1459z00_6448 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_6884);
																									}
																									{
																										long BgL_bufposz00_6888;
																										long BgL_forwardz00_6887;

																										BgL_forwardz00_6887 =
																											BgL_arg1458z00_6447;
																										BgL_bufposz00_6888 =
																											BgL_arg1459z00_6448;
																										BgL_bufposz00_6445 =
																											BgL_bufposz00_6888;
																										BgL_forwardz00_6444 =
																											BgL_forwardz00_6887;
																										goto
																											BgL_statezd29zd21112z00_6410;
																									}
																								}
																							else
																								{	/* Ieee/input.scm 307 */
																									BgL_matchz00_6416 =
																										BgL_newzd2matchzd2_6446;
																								}
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							int BgL_curz00_6449;

																							{	/* Ieee/input.scm 307 */
																								obj_t BgL_tmpz00_6889;

																								BgL_tmpz00_6889 =
																									((obj_t) BgL_iportz00_6442);
																								BgL_curz00_6449 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_6889,
																									BgL_forwardz00_6444);
																							}
																							{	/* Ieee/input.scm 307 */

																								{	/* Ieee/input.scm 307 */
																									bool_t BgL_test3678z00_6892;

																									{	/* Ieee/input.scm 307 */
																										bool_t BgL_test3679z00_6893;

																										if (
																											((long) (BgL_curz00_6449)
																												== 10L))
																											{	/* Ieee/input.scm 307 */
																												BgL_test3679z00_6893 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												BgL_test3679z00_6893 =
																													(
																													(long)
																													(BgL_curz00_6449) ==
																													9L);
																											}
																										if (BgL_test3679z00_6893)
																											{	/* Ieee/input.scm 307 */
																												BgL_test3678z00_6892 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												if (
																													((long)
																														(BgL_curz00_6449) ==
																														32L))
																													{	/* Ieee/input.scm 307 */
																														BgL_test3678z00_6892
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Ieee/input.scm 307 */
																														BgL_test3678z00_6892
																															=
																															((long)
																															(BgL_curz00_6449)
																															== 34L);
																									}}}
																									if (BgL_test3678z00_6892)
																										{	/* Ieee/input.scm 307 */
																											BgL_matchz00_6416 =
																												BgL_newzd2matchzd2_6446;
																										}
																									else
																										{
																											long BgL_forwardz00_6905;
																											long
																												BgL_lastzd2matchzd2_6904;
																											BgL_lastzd2matchzd2_6904 =
																												BgL_newzd2matchzd2_6446;
																											BgL_forwardz00_6905 =
																												(1L +
																												BgL_forwardz00_6444);
																											BgL_forwardz00_6444 =
																												BgL_forwardz00_6905;
																											BgL_lastzd2matchzd2_6443 =
																												BgL_lastzd2matchzd2_6904;
																											goto
																												BgL_statezd29zd21112z00_6410;
																										}
																								}
																							}
																						}
																				}
																			}
																	}
																}
															}
													}
												}
										}
								}
							}
					}
					{	/* Ieee/input.scm 307 */
						obj_t BgL_tmpz00_6909;

						BgL_tmpz00_6909 = ((obj_t) BgL_iportz00_6240);
						RGC_SET_FILEPOS(BgL_tmpz00_6909);
					}
					switch (BgL_matchz00_6416)
						{
						case 4L:

							{	/* Ieee/input.scm 307 */
								bool_t BgL_test3682z00_6912;

								{	/* Ieee/input.scm 307 */
									long BgL_arg1575z00_6421;

									{	/* Ieee/input.scm 307 */
										obj_t BgL_tmpz00_6913;

										BgL_tmpz00_6913 = ((obj_t) BgL_iportz00_6240);
										BgL_arg1575z00_6421 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_6913);
									}
									BgL_test3682z00_6912 = (BgL_arg1575z00_6421 == 0L);
								}
								if (BgL_test3682z00_6912)
									{	/* Ieee/input.scm 307 */
										return BEOF;
									}
								else
									{	/* Ieee/input.scm 307 */
										unsigned char BgL_tmpz00_6917;

										{	/* Ieee/input.scm 307 */
											obj_t BgL_tmpz00_6918;

											BgL_tmpz00_6918 = ((obj_t) BgL_iportz00_6240);
											BgL_tmpz00_6917 = RGC_BUFFER_CHARACTER(BgL_tmpz00_6918);
										}
										return BCHAR(BgL_tmpz00_6917);
									}
							}
							break;
						case 3L:

							{	/* Ieee/input.scm 307 */
								long BgL_arg1488z00_6419;

								{	/* Ieee/input.scm 307 */
									obj_t BgL_tmpz00_6922;

									BgL_tmpz00_6922 = ((obj_t) BgL_iportz00_6240);
									BgL_arg1488z00_6419 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_6922);
								}
								return
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_6240), 0L, BgL_arg1488z00_6419);
							}
							break;
						case 2L:

							BgL_minz00_6422 = (int) (1L);
							BgL_maxz00_6423 = (int) (-1L);
							if (((long) (BgL_maxz00_6423) < (long) (BgL_minz00_6422)))
								{	/* Ieee/input.scm 307 */
									long BgL_arg1491z00_6424;

									{	/* Ieee/input.scm 307 */
										obj_t BgL_tmpz00_6931;

										BgL_tmpz00_6931 = ((obj_t) BgL_iportz00_6240);
										BgL_arg1491z00_6424 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_6931);
									}
									{	/* Ieee/input.scm 307 */
										long BgL_za72za7_6425;

										BgL_za72za7_6425 = (long) (BgL_maxz00_6423);
										BgL_maxz00_6423 =
											(int) ((BgL_arg1491z00_6424 + BgL_za72za7_6425));
								}}
							else
								{	/* Ieee/input.scm 307 */
									BFALSE;
								}
							{	/* Ieee/input.scm 307 */
								bool_t BgL_test3684z00_6937;

								if (((long) (BgL_minz00_6422) >= 0L))
									{	/* Ieee/input.scm 307 */
										if (((long) (BgL_maxz00_6423) >= (long) (BgL_minz00_6422)))
											{	/* Ieee/input.scm 307 */
												long BgL_arg1500z00_6426;

												{	/* Ieee/input.scm 307 */
													obj_t BgL_tmpz00_6945;

													BgL_tmpz00_6945 = ((obj_t) BgL_iportz00_6240);
													BgL_arg1500z00_6426 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_6945);
												}
												BgL_test3684z00_6937 =
													((long) (BgL_maxz00_6423) <= BgL_arg1500z00_6426);
											}
										else
											{	/* Ieee/input.scm 307 */
												BgL_test3684z00_6937 = ((bool_t) 0);
											}
									}
								else
									{	/* Ieee/input.scm 307 */
										BgL_test3684z00_6937 = ((bool_t) 0);
									}
								if (BgL_test3684z00_6937)
									{	/* Ieee/input.scm 307 */
										long BgL_startz00_6427;
										long BgL_stopz00_6428;

										BgL_startz00_6427 = (long) (BgL_minz00_6422);
										BgL_stopz00_6428 = (long) (BgL_maxz00_6423);
										return
											rgc_buffer_substring(
											((obj_t) BgL_iportz00_6240), BgL_startz00_6427,
											BgL_stopz00_6428);
									}
								else
									{	/* Ieee/input.scm 307 */
										obj_t BgL_arg1496z00_6429;
										obj_t BgL_arg1497z00_6430;

										{	/* Ieee/input.scm 307 */
											obj_t BgL_arg1498z00_6431;

											{	/* Ieee/input.scm 307 */
												long BgL_arg1488z00_6432;

												{	/* Ieee/input.scm 307 */
													obj_t BgL_tmpz00_6954;

													BgL_tmpz00_6954 = ((obj_t) BgL_iportz00_6240);
													BgL_arg1488z00_6432 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_6954);
												}
												BgL_arg1498z00_6431 =
													rgc_buffer_substring(
													((obj_t) BgL_iportz00_6240), 0L, BgL_arg1488z00_6432);
											}
											{	/* Ieee/input.scm 307 */
												obj_t BgL_list1499z00_6433;

												BgL_list1499z00_6433 =
													MAKE_YOUNG_PAIR(BgL_arg1498z00_6431, BNIL);
												BgL_arg1496z00_6429 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string3500z00zz__r4_input_6_10_2z00,
													BgL_list1499z00_6433);
										}}
										BgL_arg1497z00_6430 =
											MAKE_YOUNG_PAIR(BINT(BgL_minz00_6422),
											BINT(BgL_maxz00_6423));
										return
											BGl_errorz00zz__errorz00
											(BGl_string3501z00zz__r4_input_6_10_2z00,
											BgL_arg1496z00_6429, BgL_arg1497z00_6430);
									}
							}
							break;
						case 1L:

							{	/* Ieee/input.scm 307 */
								long BgL_arg1488z00_6420;

								{	/* Ieee/input.scm 307 */
									obj_t BgL_tmpz00_6967;

									BgL_tmpz00_6967 = ((obj_t) BgL_iportz00_6240);
									BgL_arg1488z00_6420 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_6967);
								}
								return
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_6240), 0L, BgL_arg1488z00_6420);
							}
							break;
						case 0L:

							goto BgL_ignorez00_6406;
							break;
						default:
							return
								BGl_errorz00zz__errorz00
								(BGl_string3498z00zz__r4_input_6_10_2z00,
								BGl_string3499z00zz__r4_input_6_10_2z00,
								BINT(BgL_matchz00_6416));
						}
				}
			}
		}

	}



/* read/rp */
	BGL_EXPORTED_DEF obj_t BGl_readzf2rpzf2zz__r4_input_6_10_2z00(obj_t
		BgL_grammarz00_3, obj_t BgL_portz00_4, obj_t BgL_optsz00_5)
	{
		{	/* Ieee/input.scm 106 */
			if (PAIRP(BgL_optsz00_5))
				{	/* Ieee/input.scm 109 */
					obj_t BgL_auxz00_6977;

					{	/* Ieee/input.scm 109 */
						obj_t BgL_list1589z00_4729;

						BgL_list1589z00_4729 = MAKE_YOUNG_PAIR(BgL_optsz00_5, BNIL);
						BgL_auxz00_6977 =
							BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_4,
							BgL_list1589z00_4729);
					}
					return apply(BgL_grammarz00_3, BgL_auxz00_6977);
				}
			else
				{	/* Ieee/input.scm 108 */
					if (PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, (int) (1L)))
						{	/* Ieee/input.scm 110 */
							return
								(VA_PROCEDUREP(BgL_grammarz00_3) ? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BgL_grammarz00_3)) (BgL_grammarz00_3,
									BgL_portz00_4, BEOA) : ((obj_t(*)(obj_t,
											obj_t))
									PROCEDURE_ENTRY(BgL_grammarz00_3)) (BgL_grammarz00_3,
									BgL_portz00_4));
						}
					else
						{	/* Ieee/input.scm 110 */
							if (PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, (int) (2L)))
								{	/* Ieee/input.scm 112 */
									return
										(VA_PROCEDUREP(BgL_grammarz00_3) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_grammarz00_3)) (BgL_grammarz00_3,
											BgL_portz00_4, BUNSPEC, BEOA) : ((obj_t(*)(obj_t, obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_grammarz00_3)) (BgL_grammarz00_3,
											BgL_portz00_4, BUNSPEC));
								}
							else
								{	/* Ieee/input.scm 112 */
									return
										BGl_errorz00zz__errorz00
										(BGl_symbol3502z00zz__r4_input_6_10_2z00,
										BGl_string3504z00zz__r4_input_6_10_2z00, BgL_grammarz00_3);
								}
						}
				}
		}

	}



/* &read/rp */
	obj_t BGl_z62readzf2rpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_6241,
		obj_t BgL_grammarz00_6242, obj_t BgL_portz00_6243, obj_t BgL_optsz00_6244)
	{
		{	/* Ieee/input.scm 106 */
			{	/* Ieee/input.scm 108 */
				obj_t BgL_auxz00_7004;
				obj_t BgL_auxz00_6997;

				if (INPUT_PORTP(BgL_portz00_6243))
					{	/* Ieee/input.scm 108 */
						BgL_auxz00_7004 = BgL_portz00_6243;
					}
				else
					{
						obj_t BgL_auxz00_7007;

						BgL_auxz00_7007 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(4665L),
							BGl_string3506z00zz__r4_input_6_10_2z00,
							BGl_string3508z00zz__r4_input_6_10_2z00, BgL_portz00_6243);
						FAILURE(BgL_auxz00_7007, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_grammarz00_6242))
					{	/* Ieee/input.scm 108 */
						BgL_auxz00_6997 = BgL_grammarz00_6242;
					}
				else
					{
						obj_t BgL_auxz00_7000;

						BgL_auxz00_7000 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(4665L),
							BGl_string3506z00zz__r4_input_6_10_2z00,
							BGl_string3507z00zz__r4_input_6_10_2z00, BgL_grammarz00_6242);
						FAILURE(BgL_auxz00_7000, BFALSE, BFALSE);
					}
				return
					BGl_readzf2rpzf2zz__r4_input_6_10_2z00(BgL_auxz00_6997,
					BgL_auxz00_7004, BgL_optsz00_6244);
			}
		}

	}



/* read/lalrp */
	BGL_EXPORTED_DEF obj_t BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(obj_t
		BgL_lalrz00_6, obj_t BgL_rgcz00_7, obj_t BgL_portz00_8,
		obj_t BgL_eofzd2funzf3z21_9)
	{
		{	/* Ieee/input.scm 120 */
			if (NULLP(BgL_eofzd2funzf3z21_9))
				{	/* Ieee/input.scm 121 */
					return
						(VA_PROCEDUREP(BgL_lalrz00_6) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_lalrz00_6)) (BgL_lalrz00_6,
							BgL_rgcz00_7, BgL_portz00_8,
							BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00,
							BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_lalrz00_6)) (BgL_lalrz00_6,
							BgL_rgcz00_7, BgL_portz00_8,
							BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00));
				}
			else
				{	/* Ieee/input.scm 123 */
					obj_t BgL_arg1591z00_4731;

					BgL_arg1591z00_4731 = CAR(((obj_t) BgL_eofzd2funzf3z21_9));
					return
						(VA_PROCEDUREP(BgL_lalrz00_6) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_lalrz00_6)) (BgL_lalrz00_6,
							BgL_rgcz00_7, BgL_portz00_8, BgL_arg1591z00_4731,
							BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_lalrz00_6)) (BgL_lalrz00_6,
							BgL_rgcz00_7, BgL_portz00_8, BgL_arg1591z00_4731));
				}
		}

	}



/* &read/lalrp */
	obj_t BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_6245,
		obj_t BgL_lalrz00_6246, obj_t BgL_rgcz00_6247, obj_t BgL_portz00_6248,
		obj_t BgL_eofzd2funzf3z21_6249)
	{
		{	/* Ieee/input.scm 120 */
			{	/* Ieee/input.scm 121 */
				obj_t BgL_auxz00_7042;
				obj_t BgL_auxz00_7035;
				obj_t BgL_auxz00_7028;

				if (INPUT_PORTP(BgL_portz00_6248))
					{	/* Ieee/input.scm 121 */
						BgL_auxz00_7042 = BgL_portz00_6248;
					}
				else
					{
						obj_t BgL_auxz00_7045;

						BgL_auxz00_7045 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(5184L),
							BGl_string3509z00zz__r4_input_6_10_2z00,
							BGl_string3508z00zz__r4_input_6_10_2z00, BgL_portz00_6248);
						FAILURE(BgL_auxz00_7045, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_rgcz00_6247))
					{	/* Ieee/input.scm 121 */
						BgL_auxz00_7035 = BgL_rgcz00_6247;
					}
				else
					{
						obj_t BgL_auxz00_7038;

						BgL_auxz00_7038 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(5184L),
							BGl_string3509z00zz__r4_input_6_10_2z00,
							BGl_string3507z00zz__r4_input_6_10_2z00, BgL_rgcz00_6247);
						FAILURE(BgL_auxz00_7038, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_lalrz00_6246))
					{	/* Ieee/input.scm 121 */
						BgL_auxz00_7028 = BgL_lalrz00_6246;
					}
				else
					{
						obj_t BgL_auxz00_7031;

						BgL_auxz00_7031 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(5184L),
							BGl_string3509z00zz__r4_input_6_10_2z00,
							BGl_string3507z00zz__r4_input_6_10_2z00, BgL_lalrz00_6246);
						FAILURE(BgL_auxz00_7031, BFALSE, BFALSE);
					}
				return
					BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(BgL_auxz00_7028,
					BgL_auxz00_7035, BgL_auxz00_7042, BgL_eofzd2funzf3z21_6249);
			}
		}

	}



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

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

						{	/* Ieee/input.scm 128 */
							obj_t BgL_ipz00_1609;

							{	/* Ieee/input.scm 128 */
								obj_t BgL_tmpz00_7050;

								BgL_tmpz00_7050 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_1609 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7050);
							}
							{	/* Ieee/input.scm 128 */

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

						{	/* Ieee/input.scm 128 */
							obj_t BgL_ipz00_1610;

							BgL_ipz00_1610 = VECTOR_REF(BgL_opt1243z00_11, 0L);
							{	/* Ieee/input.scm 128 */

								return BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1610);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



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

				BgL_iportz00_1613 = BgL_ipz00_10;
				{

					{	/* Ieee/input.scm 129 */
						obj_t BgL_tmpz00_7058;

						BgL_tmpz00_7058 = ((obj_t) BgL_iportz00_1613);
						RGC_START_MATCH(BgL_tmpz00_7058);
					}
					{	/* Ieee/input.scm 129 */
						long BgL_matchz00_1780;

						{	/* Ieee/input.scm 129 */
							long BgL_arg1706z00_1783;
							long BgL_arg1707z00_1784;

							{	/* Ieee/input.scm 129 */
								obj_t BgL_tmpz00_7061;

								BgL_tmpz00_7061 = ((obj_t) BgL_iportz00_1613);
								BgL_arg1706z00_1783 = RGC_BUFFER_FORWARD(BgL_tmpz00_7061);
							}
							{	/* Ieee/input.scm 129 */
								obj_t BgL_tmpz00_7064;

								BgL_tmpz00_7064 = ((obj_t) BgL_iportz00_1613);
								BgL_arg1707z00_1784 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7064);
							}
							{
								long BgL_forwardz00_4779;
								long BgL_bufposz00_4780;

								BgL_forwardz00_4779 = BgL_arg1706z00_1783;
								BgL_bufposz00_4780 = BgL_arg1707z00_1784;
							BgL_statezd20zd21040z00_4778:
								if ((BgL_forwardz00_4779 == BgL_bufposz00_4780))
									{	/* Ieee/input.scm 129 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_1613)))
											{	/* Ieee/input.scm 129 */
												long BgL_arg1597z00_4783;
												long BgL_arg1598z00_4784;

												{	/* Ieee/input.scm 129 */
													obj_t BgL_tmpz00_7072;

													BgL_tmpz00_7072 = ((obj_t) BgL_iportz00_1613);
													BgL_arg1597z00_4783 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7072);
												}
												{	/* Ieee/input.scm 129 */
													obj_t BgL_tmpz00_7075;

													BgL_tmpz00_7075 = ((obj_t) BgL_iportz00_1613);
													BgL_arg1598z00_4784 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7075);
												}
												{
													long BgL_bufposz00_7079;
													long BgL_forwardz00_7078;

													BgL_forwardz00_7078 = BgL_arg1597z00_4783;
													BgL_bufposz00_7079 = BgL_arg1598z00_4784;
													BgL_bufposz00_4780 = BgL_bufposz00_7079;
													BgL_forwardz00_4779 = BgL_forwardz00_7078;
													goto BgL_statezd20zd21040z00_4778;
												}
											}
										else
											{	/* Ieee/input.scm 129 */
												BgL_matchz00_1780 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 129 */
										int BgL_curz00_4785;

										{	/* Ieee/input.scm 129 */
											obj_t BgL_tmpz00_7080;

											BgL_tmpz00_7080 = ((obj_t) BgL_iportz00_1613);
											BgL_curz00_4785 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7080,
												BgL_forwardz00_4779);
										}
										{	/* Ieee/input.scm 129 */

											{	/* Ieee/input.scm 129 */
												long BgL_arg1600z00_4786;

												BgL_arg1600z00_4786 = (1L + BgL_forwardz00_4779);
												{	/* Ieee/input.scm 129 */
													long BgL_newzd2matchzd2_4795;

													{	/* Ieee/input.scm 129 */
														obj_t BgL_tmpz00_7084;

														BgL_tmpz00_7084 = ((obj_t) BgL_iportz00_1613);
														RGC_STOP_MATCH(BgL_tmpz00_7084,
															BgL_arg1600z00_4786);
													}
													BgL_newzd2matchzd2_4795 = 0L;
													BgL_matchz00_1780 = BgL_newzd2matchzd2_4795;
						}}}}}}
						{	/* Ieee/input.scm 129 */
							obj_t BgL_tmpz00_7087;

							BgL_tmpz00_7087 = ((obj_t) BgL_iportz00_1613);
							RGC_SET_FILEPOS(BgL_tmpz00_7087);
						}
						switch (BgL_matchz00_1780)
							{
							case 1L:

								{	/* Ieee/input.scm 129 */
									bool_t BgL_test3698z00_7090;

									{	/* Ieee/input.scm 129 */
										long BgL_arg1698z00_1770;

										{	/* Ieee/input.scm 129 */
											obj_t BgL_tmpz00_7091;

											BgL_tmpz00_7091 = ((obj_t) BgL_iportz00_1613);
											BgL_arg1698z00_1770 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7091);
										}
										BgL_test3698z00_7090 = (BgL_arg1698z00_1770 == 0L);
									}
									if (BgL_test3698z00_7090)
										{	/* Ieee/input.scm 129 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 129 */
											unsigned char BgL_tmpz00_7095;

											{	/* Ieee/input.scm 129 */
												obj_t BgL_tmpz00_7096;

												BgL_tmpz00_7096 = ((obj_t) BgL_iportz00_1613);
												BgL_tmpz00_7095 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7096);
											}
											return BCHAR(BgL_tmpz00_7095);
										}
								}
								break;
							case 0L:

								{	/* Ieee/input.scm 129 */
									unsigned char BgL_tmpz00_7100;

									{	/* Ieee/input.scm 129 */
										obj_t BgL_tmpz00_7101;

										BgL_tmpz00_7101 = ((obj_t) BgL_iportz00_1613);
										BgL_tmpz00_7100 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7101);
									}
									return BCHAR(BgL_tmpz00_7100);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3498z00zz__r4_input_6_10_2z00,
									BGl_string3499z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_1780));
							}
					}
				}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 136 */
							obj_t BgL_ipz00_1817;

							{	/* Ieee/input.scm 136 */
								obj_t BgL_tmpz00_7108;

								BgL_tmpz00_7108 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_1817 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7108);
							}
							{	/* Ieee/input.scm 136 */

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

						{	/* Ieee/input.scm 136 */
							obj_t BgL_ipz00_1818;

							BgL_ipz00_1818 = VECTOR_REF(BgL_opt1247z00_14, 0L);
							{	/* Ieee/input.scm 136 */

								return BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1818);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



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

				BgL_iportz00_1821 = BgL_ipz00_13;
				{

					{	/* Ieee/input.scm 137 */
						obj_t BgL_tmpz00_7116;

						BgL_tmpz00_7116 = ((obj_t) BgL_iportz00_1821);
						RGC_START_MATCH(BgL_tmpz00_7116);
					}
					{	/* Ieee/input.scm 137 */
						long BgL_matchz00_1988;

						{	/* Ieee/input.scm 137 */
							long BgL_arg1807z00_1994;
							long BgL_arg1808z00_1995;

							{	/* Ieee/input.scm 137 */
								obj_t BgL_tmpz00_7119;

								BgL_tmpz00_7119 = ((obj_t) BgL_iportz00_1821);
								BgL_arg1807z00_1994 = RGC_BUFFER_FORWARD(BgL_tmpz00_7119);
							}
							{	/* Ieee/input.scm 137 */
								obj_t BgL_tmpz00_7122;

								BgL_tmpz00_7122 = ((obj_t) BgL_iportz00_1821);
								BgL_arg1808z00_1995 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7122);
							}
							{
								long BgL_forwardz00_4846;
								long BgL_bufposz00_4847;

								BgL_forwardz00_4846 = BgL_arg1807z00_1994;
								BgL_bufposz00_4847 = BgL_arg1808z00_1995;
							BgL_statezd20zd21046z00_4845:
								if ((BgL_forwardz00_4846 == BgL_bufposz00_4847))
									{	/* Ieee/input.scm 137 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_1821)))
											{	/* Ieee/input.scm 137 */
												long BgL_arg1713z00_4850;
												long BgL_arg1714z00_4851;

												{	/* Ieee/input.scm 137 */
													obj_t BgL_tmpz00_7130;

													BgL_tmpz00_7130 = ((obj_t) BgL_iportz00_1821);
													BgL_arg1713z00_4850 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7130);
												}
												{	/* Ieee/input.scm 137 */
													obj_t BgL_tmpz00_7133;

													BgL_tmpz00_7133 = ((obj_t) BgL_iportz00_1821);
													BgL_arg1714z00_4851 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7133);
												}
												{
													long BgL_bufposz00_7137;
													long BgL_forwardz00_7136;

													BgL_forwardz00_7136 = BgL_arg1713z00_4850;
													BgL_bufposz00_7137 = BgL_arg1714z00_4851;
													BgL_bufposz00_4847 = BgL_bufposz00_7137;
													BgL_forwardz00_4846 = BgL_forwardz00_7136;
													goto BgL_statezd20zd21046z00_4845;
												}
											}
										else
											{	/* Ieee/input.scm 137 */
												BgL_matchz00_1988 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 137 */
										int BgL_curz00_4852;

										{	/* Ieee/input.scm 137 */
											obj_t BgL_tmpz00_7138;

											BgL_tmpz00_7138 = ((obj_t) BgL_iportz00_1821);
											BgL_curz00_4852 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7138,
												BgL_forwardz00_4846);
										}
										{	/* Ieee/input.scm 137 */

											{	/* Ieee/input.scm 137 */
												long BgL_arg1715z00_4853;

												BgL_arg1715z00_4853 = (1L + BgL_forwardz00_4846);
												{	/* Ieee/input.scm 137 */
													long BgL_newzd2matchzd2_4862;

													{	/* Ieee/input.scm 137 */
														obj_t BgL_tmpz00_7142;

														BgL_tmpz00_7142 = ((obj_t) BgL_iportz00_1821);
														RGC_STOP_MATCH(BgL_tmpz00_7142,
															BgL_arg1715z00_4853);
													}
													BgL_newzd2matchzd2_4862 = 0L;
													BgL_matchz00_1988 = BgL_newzd2matchzd2_4862;
						}}}}}}
						{	/* Ieee/input.scm 137 */
							obj_t BgL_tmpz00_7145;

							BgL_tmpz00_7145 = ((obj_t) BgL_iportz00_1821);
							RGC_SET_FILEPOS(BgL_tmpz00_7145);
						}
						switch (BgL_matchz00_1988)
							{
							case 1L:

								{	/* Ieee/input.scm 137 */
									bool_t BgL_test3701z00_7148;

									{	/* Ieee/input.scm 137 */
										long BgL_arg1798z00_1978;

										{	/* Ieee/input.scm 137 */
											obj_t BgL_tmpz00_7149;

											BgL_tmpz00_7149 = ((obj_t) BgL_iportz00_1821);
											BgL_arg1798z00_1978 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7149);
										}
										BgL_test3701z00_7148 = (BgL_arg1798z00_1978 == 0L);
									}
									if (BgL_test3701z00_7148)
										{	/* Ieee/input.scm 137 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 137 */
											unsigned char BgL_tmpz00_7153;

											{	/* Ieee/input.scm 137 */
												obj_t BgL_tmpz00_7154;

												BgL_tmpz00_7154 = ((obj_t) BgL_iportz00_1821);
												BgL_tmpz00_7153 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7154);
											}
											return BCHAR(BgL_tmpz00_7153);
										}
								}
								break;
							case 0L:

								{	/* Ieee/input.scm 139 */
									unsigned char BgL_cz00_1991;

									{	/* Ieee/input.scm 137 */
										obj_t BgL_tmpz00_7158;

										BgL_tmpz00_7158 = ((obj_t) BgL_iportz00_1821);
										BgL_cz00_1991 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7158);
									}
									{	/* Ieee/input.scm 140 */
										long BgL_arg1806z00_1993;

										BgL_arg1806z00_1993 = ((unsigned char) (BgL_cz00_1991));
										{	/* Ieee/input.scm 140 */
											int BgL_charz00_4870;

											BgL_charz00_4870 = (int) (BgL_arg1806z00_1993);
											rgc_buffer_unget_char(
												((obj_t) BgL_iportz00_1821), BgL_charz00_4870);
									}}
									return BCHAR(BgL_cz00_1991);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3498z00zz__r4_input_6_10_2z00,
									BGl_string3499z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_1988));
							}
					}
				}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 147 */
							obj_t BgL_ipz00_2028;

							{	/* Ieee/input.scm 147 */
								obj_t BgL_tmpz00_7170;

								BgL_tmpz00_7170 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_2028 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7170);
							}
							{	/* Ieee/input.scm 147 */

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

						{	/* Ieee/input.scm 147 */
							obj_t BgL_ipz00_2029;

							BgL_ipz00_2029 = VECTOR_REF(BgL_opt1251z00_17, 0L);
							{	/* Ieee/input.scm 147 */

								return BGl_readzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2029);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



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

				BgL_iportz00_2032 = BgL_ipz00_16;
				{

					{	/* Ieee/input.scm 148 */
						obj_t BgL_tmpz00_7178;

						BgL_tmpz00_7178 = ((obj_t) BgL_iportz00_2032);
						RGC_START_MATCH(BgL_tmpz00_7178);
					}
					{	/* Ieee/input.scm 148 */
						long BgL_matchz00_2199;

						{	/* Ieee/input.scm 148 */
							long BgL_arg1915z00_2202;
							long BgL_arg1916z00_2203;

							{	/* Ieee/input.scm 148 */
								obj_t BgL_tmpz00_7181;

								BgL_tmpz00_7181 = ((obj_t) BgL_iportz00_2032);
								BgL_arg1915z00_2202 = RGC_BUFFER_FORWARD(BgL_tmpz00_7181);
							}
							{	/* Ieee/input.scm 148 */
								obj_t BgL_tmpz00_7184;

								BgL_tmpz00_7184 = ((obj_t) BgL_iportz00_2032);
								BgL_arg1916z00_2203 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7184);
							}
							{
								long BgL_forwardz00_4917;
								long BgL_bufposz00_4918;

								BgL_forwardz00_4917 = BgL_arg1915z00_2202;
								BgL_bufposz00_4918 = BgL_arg1916z00_2203;
							BgL_statezd20zd21052z00_4916:
								if ((BgL_forwardz00_4917 == BgL_bufposz00_4918))
									{	/* Ieee/input.scm 148 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_2032)))
											{	/* Ieee/input.scm 148 */
												long BgL_arg1814z00_4921;
												long BgL_arg1816z00_4922;

												{	/* Ieee/input.scm 148 */
													obj_t BgL_tmpz00_7192;

													BgL_tmpz00_7192 = ((obj_t) BgL_iportz00_2032);
													BgL_arg1814z00_4921 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7192);
												}
												{	/* Ieee/input.scm 148 */
													obj_t BgL_tmpz00_7195;

													BgL_tmpz00_7195 = ((obj_t) BgL_iportz00_2032);
													BgL_arg1816z00_4922 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7195);
												}
												{
													long BgL_bufposz00_7199;
													long BgL_forwardz00_7198;

													BgL_forwardz00_7198 = BgL_arg1814z00_4921;
													BgL_bufposz00_7199 = BgL_arg1816z00_4922;
													BgL_bufposz00_4918 = BgL_bufposz00_7199;
													BgL_forwardz00_4917 = BgL_forwardz00_7198;
													goto BgL_statezd20zd21052z00_4916;
												}
											}
										else
											{	/* Ieee/input.scm 148 */
												BgL_matchz00_2199 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 148 */
										int BgL_curz00_4923;

										{	/* Ieee/input.scm 148 */
											obj_t BgL_tmpz00_7200;

											BgL_tmpz00_7200 = ((obj_t) BgL_iportz00_2032);
											BgL_curz00_4923 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7200,
												BgL_forwardz00_4917);
										}
										{	/* Ieee/input.scm 148 */

											{	/* Ieee/input.scm 148 */
												long BgL_arg1817z00_4924;

												BgL_arg1817z00_4924 = (1L + BgL_forwardz00_4917);
												{	/* Ieee/input.scm 148 */
													long BgL_newzd2matchzd2_4933;

													{	/* Ieee/input.scm 148 */
														obj_t BgL_tmpz00_7204;

														BgL_tmpz00_7204 = ((obj_t) BgL_iportz00_2032);
														RGC_STOP_MATCH(BgL_tmpz00_7204,
															BgL_arg1817z00_4924);
													}
													BgL_newzd2matchzd2_4933 = 0L;
													BgL_matchz00_2199 = BgL_newzd2matchzd2_4933;
						}}}}}}
						{	/* Ieee/input.scm 148 */
							obj_t BgL_tmpz00_7207;

							BgL_tmpz00_7207 = ((obj_t) BgL_iportz00_2032);
							RGC_SET_FILEPOS(BgL_tmpz00_7207);
						}
						switch (BgL_matchz00_2199)
							{
							case 1L:

								{	/* Ieee/input.scm 148 */
									bool_t BgL_test3704z00_7210;

									{	/* Ieee/input.scm 148 */
										long BgL_arg1908z00_2189;

										{	/* Ieee/input.scm 148 */
											obj_t BgL_tmpz00_7211;

											BgL_tmpz00_7211 = ((obj_t) BgL_iportz00_2032);
											BgL_arg1908z00_2189 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7211);
										}
										BgL_test3704z00_7210 = (BgL_arg1908z00_2189 == 0L);
									}
									if (BgL_test3704z00_7210)
										{	/* Ieee/input.scm 148 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 148 */
											unsigned char BgL_tmpz00_7215;

											{	/* Ieee/input.scm 148 */
												obj_t BgL_tmpz00_7216;

												BgL_tmpz00_7216 = ((obj_t) BgL_iportz00_2032);
												BgL_tmpz00_7215 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7216);
											}
											return BCHAR(BgL_tmpz00_7215);
										}
								}
								break;
							case 0L:

								{	/* Ieee/input.scm 148 */
									int BgL_tmpz00_7220;

									{	/* Ieee/input.scm 148 */
										obj_t BgL_tmpz00_7221;

										BgL_tmpz00_7221 = ((obj_t) BgL_iportz00_2032);
										BgL_tmpz00_7220 = RGC_BUFFER_BYTE(BgL_tmpz00_7221);
									}
									return BINT(BgL_tmpz00_7220);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3498z00zz__r4_input_6_10_2z00,
									BGl_string3499z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_2199));
							}
					}
				}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 155 */
							obj_t BgL_ipz00_2236;

							{	/* Ieee/input.scm 155 */
								obj_t BgL_tmpz00_7228;

								BgL_tmpz00_7228 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_2236 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7228);
							}
							{	/* Ieee/input.scm 155 */

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

						{	/* Ieee/input.scm 155 */
							obj_t BgL_ipz00_2237;

							BgL_ipz00_2237 = VECTOR_REF(BgL_opt1255z00_20, 0L);
							{	/* Ieee/input.scm 155 */

								return BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2237);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



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

				BgL_iportz00_2240 = BgL_ipz00_19;
				{

					{	/* Ieee/input.scm 156 */
						obj_t BgL_tmpz00_7236;

						BgL_tmpz00_7236 = ((obj_t) BgL_iportz00_2240);
						RGC_START_MATCH(BgL_tmpz00_7236);
					}
					{	/* Ieee/input.scm 156 */
						long BgL_matchz00_2407;

						{	/* Ieee/input.scm 156 */
							long BgL_arg2014z00_2412;
							long BgL_arg2015z00_2413;

							{	/* Ieee/input.scm 156 */
								obj_t BgL_tmpz00_7239;

								BgL_tmpz00_7239 = ((obj_t) BgL_iportz00_2240);
								BgL_arg2014z00_2412 = RGC_BUFFER_FORWARD(BgL_tmpz00_7239);
							}
							{	/* Ieee/input.scm 156 */
								obj_t BgL_tmpz00_7242;

								BgL_tmpz00_7242 = ((obj_t) BgL_iportz00_2240);
								BgL_arg2015z00_2413 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7242);
							}
							{
								long BgL_forwardz00_4984;
								long BgL_bufposz00_4985;

								BgL_forwardz00_4984 = BgL_arg2014z00_2412;
								BgL_bufposz00_4985 = BgL_arg2015z00_2413;
							BgL_statezd20zd21058z00_4983:
								if ((BgL_forwardz00_4984 == BgL_bufposz00_4985))
									{	/* Ieee/input.scm 156 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_2240)))
											{	/* Ieee/input.scm 156 */
												long BgL_arg1922z00_4988;
												long BgL_arg1923z00_4989;

												{	/* Ieee/input.scm 156 */
													obj_t BgL_tmpz00_7250;

													BgL_tmpz00_7250 = ((obj_t) BgL_iportz00_2240);
													BgL_arg1922z00_4988 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7250);
												}
												{	/* Ieee/input.scm 156 */
													obj_t BgL_tmpz00_7253;

													BgL_tmpz00_7253 = ((obj_t) BgL_iportz00_2240);
													BgL_arg1923z00_4989 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7253);
												}
												{
													long BgL_bufposz00_7257;
													long BgL_forwardz00_7256;

													BgL_forwardz00_7256 = BgL_arg1922z00_4988;
													BgL_bufposz00_7257 = BgL_arg1923z00_4989;
													BgL_bufposz00_4985 = BgL_bufposz00_7257;
													BgL_forwardz00_4984 = BgL_forwardz00_7256;
													goto BgL_statezd20zd21058z00_4983;
												}
											}
										else
											{	/* Ieee/input.scm 156 */
												BgL_matchz00_2407 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 156 */
										int BgL_curz00_4990;

										{	/* Ieee/input.scm 156 */
											obj_t BgL_tmpz00_7258;

											BgL_tmpz00_7258 = ((obj_t) BgL_iportz00_2240);
											BgL_curz00_4990 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7258,
												BgL_forwardz00_4984);
										}
										{	/* Ieee/input.scm 156 */

											{	/* Ieee/input.scm 156 */
												long BgL_arg1924z00_4991;

												BgL_arg1924z00_4991 = (1L + BgL_forwardz00_4984);
												{	/* Ieee/input.scm 156 */
													long BgL_newzd2matchzd2_5000;

													{	/* Ieee/input.scm 156 */
														obj_t BgL_tmpz00_7262;

														BgL_tmpz00_7262 = ((obj_t) BgL_iportz00_2240);
														RGC_STOP_MATCH(BgL_tmpz00_7262,
															BgL_arg1924z00_4991);
													}
													BgL_newzd2matchzd2_5000 = 0L;
													BgL_matchz00_2407 = BgL_newzd2matchzd2_5000;
						}}}}}}
						{	/* Ieee/input.scm 156 */
							obj_t BgL_tmpz00_7265;

							BgL_tmpz00_7265 = ((obj_t) BgL_iportz00_2240);
							RGC_SET_FILEPOS(BgL_tmpz00_7265);
						}
						switch (BgL_matchz00_2407)
							{
							case 1L:

								{	/* Ieee/input.scm 156 */
									bool_t BgL_test3707z00_7268;

									{	/* Ieee/input.scm 156 */
										long BgL_arg2006z00_2397;

										{	/* Ieee/input.scm 156 */
											obj_t BgL_tmpz00_7269;

											BgL_tmpz00_7269 = ((obj_t) BgL_iportz00_2240);
											BgL_arg2006z00_2397 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7269);
										}
										BgL_test3707z00_7268 = (BgL_arg2006z00_2397 == 0L);
									}
									if (BgL_test3707z00_7268)
										{	/* Ieee/input.scm 156 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 156 */
											unsigned char BgL_tmpz00_7273;

											{	/* Ieee/input.scm 156 */
												obj_t BgL_tmpz00_7274;

												BgL_tmpz00_7274 = ((obj_t) BgL_iportz00_2240);
												BgL_tmpz00_7273 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7274);
											}
											return BCHAR(BgL_tmpz00_7273);
										}
								}
								break;
							case 0L:

								{	/* Ieee/input.scm 158 */
									int BgL_cz00_2410;

									{	/* Ieee/input.scm 156 */
										obj_t BgL_tmpz00_7278;

										BgL_tmpz00_7278 = ((obj_t) BgL_iportz00_2240);
										BgL_cz00_2410 = RGC_BUFFER_BYTE(BgL_tmpz00_7278);
									}
									rgc_buffer_unget_char(
										((obj_t) BgL_iportz00_2240), BgL_cz00_2410);
									return BINT(BgL_cz00_2410);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3498z00zz__r4_input_6_10_2z00,
									BGl_string3499z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_2407));
							}
					}
				}
			}
		}

	}



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

	}



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

	}



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

	}



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

	}



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

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

						{	/* Ieee/input.scm 178 */
							obj_t BgL_ipz00_6506;

							{	/* Ieee/input.scm 178 */
								obj_t BgL_tmpz00_7291;

								BgL_tmpz00_7291 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_6506 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7291);
							}
							{	/* Ieee/input.scm 178 */

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

						{	/* Ieee/input.scm 178 */
							obj_t BgL_ipz00_6507;

							BgL_ipz00_6507 = VECTOR_REF(BgL_opt1259z00_24, 0L);
							{	/* Ieee/input.scm 178 */

								{	/* Ieee/input.scm 179 */
									bool_t BgL_tmpz00_7297;

									{	/* Ieee/input.scm 179 */
										obj_t BgL_tmpz00_7298;

										if (INPUT_PORTP(BgL_ipz00_6507))
											{	/* Ieee/input.scm 179 */
												BgL_tmpz00_7298 = BgL_ipz00_6507;
											}
										else
											{
												obj_t BgL_auxz00_7301;

												BgL_auxz00_7301 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(7849L),
													BGl_string3510z00zz__r4_input_6_10_2z00,
													BGl_string3508z00zz__r4_input_6_10_2z00,
													BgL_ipz00_6507);
												FAILURE(BgL_auxz00_7301, BFALSE, BFALSE);
											}
										BgL_tmpz00_7297 = bgl_rgc_charready(BgL_tmpz00_7298);
									}
									return BBOOL(BgL_tmpz00_7297);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* char-ready? */
	BGL_EXPORTED_DEF bool_t BGl_charzd2readyzf3z21zz__r4_input_6_10_2z00(obj_t
		BgL_ipz00_23)
	{
		{	/* Ieee/input.scm 178 */
			return bgl_rgc_charready(BgL_ipz00_23);
		}

	}



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

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

						{	/* Ieee/input.scm 184 */
							obj_t BgL_ipz00_2450;

							{	/* Ieee/input.scm 184 */
								obj_t BgL_tmpz00_7310;

								BgL_tmpz00_7310 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_2450 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7310);
							}
							{	/* Ieee/input.scm 184 */

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

						{	/* Ieee/input.scm 184 */
							obj_t BgL_ipz00_2451;

							BgL_ipz00_2451 = VECTOR_REF(BgL_opt1263z00_27, 0L);
							{	/* Ieee/input.scm 184 */

								return BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_2451);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-line */
	BGL_EXPORTED_DEF obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t
		BgL_ipz00_26)
	{
		{	/* Ieee/input.scm 184 */
			{	/* Ieee/input.scm 185 */
				bool_t BgL_test3709z00_7318;

				{	/* Ieee/input.scm 185 */
					long BgL_arg2181z00_2783;

					BgL_arg2181z00_2783 = BGL_INPUT_PORT_BUFSIZ(BgL_ipz00_26);
					BgL_test3709z00_7318 = (BgL_arg2181z00_2783 > 2L);
				}
				if (BgL_test3709z00_7318)
					{
						obj_t BgL_iportz00_2456;

						BgL_iportz00_2456 = BgL_ipz00_26;
						{
							int BgL_minz00_2603;
							int BgL_maxz00_2604;
							obj_t BgL_iportz00_2566;
							long BgL_lastzd2matchzd2_2567;
							long BgL_forwardz00_2568;
							long BgL_bufposz00_2569;
							obj_t BgL_iportz00_2538;
							long BgL_lastzd2matchzd2_2539;
							long BgL_forwardz00_2540;
							long BgL_bufposz00_2541;
							obj_t BgL_iportz00_2525;
							long BgL_lastzd2matchzd2_2526;
							long BgL_forwardz00_2527;
							long BgL_bufposz00_2528;
							obj_t BgL_iportz00_2510;
							long BgL_lastzd2matchzd2_2511;
							long BgL_forwardz00_2512;
							long BgL_bufposz00_2513;
							obj_t BgL_iportz00_2494;
							long BgL_lastzd2matchzd2_2495;
							long BgL_forwardz00_2496;
							long BgL_bufposz00_2497;

							{	/* Ieee/input.scm 186 */
								obj_t BgL_tmpz00_7321;

								BgL_tmpz00_7321 = ((obj_t) BgL_iportz00_2456);
								RGC_START_MATCH(BgL_tmpz00_7321);
							}
							{	/* Ieee/input.scm 186 */
								long BgL_matchz00_2710;

								{	/* Ieee/input.scm 186 */
									long BgL_arg2166z00_2717;
									long BgL_arg2167z00_2718;

									{	/* Ieee/input.scm 186 */
										obj_t BgL_tmpz00_7324;

										BgL_tmpz00_7324 = ((obj_t) BgL_iportz00_2456);
										BgL_arg2166z00_2717 = RGC_BUFFER_FORWARD(BgL_tmpz00_7324);
									}
									{	/* Ieee/input.scm 186 */
										obj_t BgL_tmpz00_7327;

										BgL_tmpz00_7327 = ((obj_t) BgL_iportz00_2456);
										BgL_arg2167z00_2718 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7327);
									}
									BgL_iportz00_2510 = BgL_iportz00_2456;
									BgL_lastzd2matchzd2_2511 = 4L;
									BgL_forwardz00_2512 = BgL_arg2166z00_2717;
									BgL_bufposz00_2513 = BgL_arg2167z00_2718;
								BgL_zc3z04anonymousza32033ze3z87_2514:
									if ((BgL_forwardz00_2512 == BgL_bufposz00_2513))
										{	/* Ieee/input.scm 186 */
											if (rgc_fill_buffer(((obj_t) BgL_iportz00_2510)))
												{	/* Ieee/input.scm 186 */
													long BgL_arg2036z00_2517;
													long BgL_arg2037z00_2518;

													{	/* Ieee/input.scm 186 */
														obj_t BgL_tmpz00_7335;

														BgL_tmpz00_7335 = ((obj_t) BgL_iportz00_2510);
														BgL_arg2036z00_2517 =
															RGC_BUFFER_FORWARD(BgL_tmpz00_7335);
													}
													{	/* Ieee/input.scm 186 */
														obj_t BgL_tmpz00_7338;

														BgL_tmpz00_7338 = ((obj_t) BgL_iportz00_2510);
														BgL_arg2037z00_2518 =
															RGC_BUFFER_BUFPOS(BgL_tmpz00_7338);
													}
													{
														long BgL_bufposz00_7342;
														long BgL_forwardz00_7341;

														BgL_forwardz00_7341 = BgL_arg2036z00_2517;
														BgL_bufposz00_7342 = BgL_arg2037z00_2518;
														BgL_bufposz00_2513 = BgL_bufposz00_7342;
														BgL_forwardz00_2512 = BgL_forwardz00_7341;
														goto BgL_zc3z04anonymousza32033ze3z87_2514;
													}
												}
											else
												{	/* Ieee/input.scm 186 */
													BgL_matchz00_2710 = BgL_lastzd2matchzd2_2511;
												}
										}
									else
										{	/* Ieee/input.scm 186 */
											int BgL_curz00_2519;

											{	/* Ieee/input.scm 186 */
												obj_t BgL_tmpz00_7343;

												BgL_tmpz00_7343 = ((obj_t) BgL_iportz00_2510);
												BgL_curz00_2519 =
													RGC_BUFFER_GET_CHAR(BgL_tmpz00_7343,
													BgL_forwardz00_2512);
											}
											{	/* Ieee/input.scm 186 */

												if (((long) (BgL_curz00_2519) == 13L))
													{	/* Ieee/input.scm 186 */
														BgL_iportz00_2525 = BgL_iportz00_2510;
														BgL_lastzd2matchzd2_2526 = BgL_lastzd2matchzd2_2511;
														BgL_forwardz00_2527 = (1L + BgL_forwardz00_2512);
														BgL_bufposz00_2528 = BgL_bufposz00_2513;
													BgL_zc3z04anonymousza32043ze3z87_2529:
														{	/* Ieee/input.scm 186 */
															long BgL_newzd2matchzd2_2530;

															{	/* Ieee/input.scm 186 */
																obj_t BgL_tmpz00_7349;

																BgL_tmpz00_7349 = ((obj_t) BgL_iportz00_2525);
																RGC_STOP_MATCH(BgL_tmpz00_7349,
																	BgL_forwardz00_2527);
															}
															BgL_newzd2matchzd2_2530 = 3L;
															if ((BgL_forwardz00_2527 == BgL_bufposz00_2528))
																{	/* Ieee/input.scm 186 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_2525)))
																		{	/* Ieee/input.scm 186 */
																			long BgL_arg2046z00_2533;
																			long BgL_arg2047z00_2534;

																			{	/* Ieee/input.scm 186 */
																				obj_t BgL_tmpz00_7357;

																				BgL_tmpz00_7357 =
																					((obj_t) BgL_iportz00_2525);
																				BgL_arg2046z00_2533 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_7357);
																			}
																			{	/* Ieee/input.scm 186 */
																				obj_t BgL_tmpz00_7360;

																				BgL_tmpz00_7360 =
																					((obj_t) BgL_iportz00_2525);
																				BgL_arg2047z00_2534 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_7360);
																			}
																			{
																				long BgL_bufposz00_7364;
																				long BgL_forwardz00_7363;

																				BgL_forwardz00_7363 =
																					BgL_arg2046z00_2533;
																				BgL_bufposz00_7364 =
																					BgL_arg2047z00_2534;
																				BgL_bufposz00_2528 = BgL_bufposz00_7364;
																				BgL_forwardz00_2527 =
																					BgL_forwardz00_7363;
																				goto
																					BgL_zc3z04anonymousza32043ze3z87_2529;
																			}
																		}
																	else
																		{	/* Ieee/input.scm 186 */
																			BgL_matchz00_2710 =
																				BgL_newzd2matchzd2_2530;
																		}
																}
															else
																{	/* Ieee/input.scm 186 */
																	int BgL_curz00_2535;

																	{	/* Ieee/input.scm 186 */
																		obj_t BgL_tmpz00_7365;

																		BgL_tmpz00_7365 =
																			((obj_t) BgL_iportz00_2525);
																		BgL_curz00_2535 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_7365,
																			BgL_forwardz00_2527);
																	}
																	{	/* Ieee/input.scm 186 */

																		if (((long) (BgL_curz00_2535) == 10L))
																			{	/* Ieee/input.scm 186 */
																				long BgL_arg2049z00_2537;

																				BgL_arg2049z00_2537 =
																					(1L + BgL_forwardz00_2527);
																				{	/* Ieee/input.scm 186 */
																					long BgL_newzd2matchzd2_5058;

																					{	/* Ieee/input.scm 186 */
																						obj_t BgL_tmpz00_7372;

																						BgL_tmpz00_7372 =
																							((obj_t) BgL_iportz00_2525);
																						RGC_STOP_MATCH(BgL_tmpz00_7372,
																							BgL_arg2049z00_2537);
																					}
																					BgL_newzd2matchzd2_5058 = 3L;
																					BgL_matchz00_2710 =
																						BgL_newzd2matchzd2_5058;
																			}}
																		else
																			{	/* Ieee/input.scm 186 */
																				BgL_matchz00_2710 =
																					BgL_newzd2matchzd2_2530;
																			}
																	}
																}
														}
													}
												else
													{	/* Ieee/input.scm 186 */
														if (((long) (BgL_curz00_2519) == 10L))
															{	/* Ieee/input.scm 186 */
																long BgL_arg2041z00_2523;

																BgL_arg2041z00_2523 =
																	(1L + BgL_forwardz00_2512);
																{	/* Ieee/input.scm 186 */
																	long BgL_newzd2matchzd2_5043;

																	{	/* Ieee/input.scm 186 */
																		obj_t BgL_tmpz00_7380;

																		BgL_tmpz00_7380 =
																			((obj_t) BgL_iportz00_2510);
																		RGC_STOP_MATCH(BgL_tmpz00_7380,
																			BgL_arg2041z00_2523);
																	}
																	BgL_newzd2matchzd2_5043 = 3L;
																	BgL_matchz00_2710 = BgL_newzd2matchzd2_5043;
															}}
														else
															{	/* Ieee/input.scm 186 */
																BgL_iportz00_2494 = BgL_iportz00_2510;
																BgL_lastzd2matchzd2_2495 =
																	BgL_lastzd2matchzd2_2511;
																BgL_forwardz00_2496 =
																	(1L + BgL_forwardz00_2512);
																BgL_bufposz00_2497 = BgL_bufposz00_2513;
															BgL_zc3z04anonymousza32019ze3z87_2498:
																{	/* Ieee/input.scm 186 */
																	long BgL_newzd2matchzd2_2499;

																	{	/* Ieee/input.scm 186 */
																		obj_t BgL_tmpz00_7383;

																		BgL_tmpz00_7383 =
																			((obj_t) BgL_iportz00_2494);
																		RGC_STOP_MATCH(BgL_tmpz00_7383,
																			BgL_forwardz00_2496);
																	}
																	BgL_newzd2matchzd2_2499 = 2L;
																	if (
																		(BgL_forwardz00_2496 == BgL_bufposz00_2497))
																		{	/* Ieee/input.scm 186 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_2494)))
																				{	/* Ieee/input.scm 186 */
																					long BgL_arg2023z00_2502;
																					long BgL_arg2024z00_2503;

																					{	/* Ieee/input.scm 186 */
																						obj_t BgL_tmpz00_7391;

																						BgL_tmpz00_7391 =
																							((obj_t) BgL_iportz00_2494);
																						BgL_arg2023z00_2502 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_7391);
																					}
																					{	/* Ieee/input.scm 186 */
																						obj_t BgL_tmpz00_7394;

																						BgL_tmpz00_7394 =
																							((obj_t) BgL_iportz00_2494);
																						BgL_arg2024z00_2503 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_7394);
																					}
																					{
																						long BgL_bufposz00_7398;
																						long BgL_forwardz00_7397;

																						BgL_forwardz00_7397 =
																							BgL_arg2023z00_2502;
																						BgL_bufposz00_7398 =
																							BgL_arg2024z00_2503;
																						BgL_bufposz00_2497 =
																							BgL_bufposz00_7398;
																						BgL_forwardz00_2496 =
																							BgL_forwardz00_7397;
																						goto
																							BgL_zc3z04anonymousza32019ze3z87_2498;
																					}
																				}
																			else
																				{	/* Ieee/input.scm 186 */
																					BgL_matchz00_2710 =
																						BgL_newzd2matchzd2_2499;
																				}
																		}
																	else
																		{	/* Ieee/input.scm 186 */
																			int BgL_curz00_2504;

																			{	/* Ieee/input.scm 186 */
																				obj_t BgL_tmpz00_7399;

																				BgL_tmpz00_7399 =
																					((obj_t) BgL_iportz00_2494);
																				BgL_curz00_2504 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_7399,
																					BgL_forwardz00_2496);
																			}
																			{	/* Ieee/input.scm 186 */

																				if (((long) (BgL_curz00_2504) == 13L))
																					{	/* Ieee/input.scm 186 */
																						BgL_iportz00_2566 =
																							BgL_iportz00_2494;
																						BgL_lastzd2matchzd2_2567 =
																							BgL_newzd2matchzd2_2499;
																						BgL_forwardz00_2568 =
																							(1L + BgL_forwardz00_2496);
																						BgL_bufposz00_2569 =
																							BgL_bufposz00_2497;
																					BgL_zc3z04anonymousza32062ze3z87_2570:
																						{	/* Ieee/input.scm 186 */
																							long BgL_newzd2matchzd2_2571;

																							{	/* Ieee/input.scm 186 */
																								obj_t BgL_tmpz00_7405;

																								BgL_tmpz00_7405 =
																									((obj_t) BgL_iportz00_2566);
																								RGC_STOP_MATCH(BgL_tmpz00_7405,
																									BgL_forwardz00_2568);
																							}
																							BgL_newzd2matchzd2_2571 = 0L;
																							if (
																								(BgL_forwardz00_2568 ==
																									BgL_bufposz00_2569))
																								{	/* Ieee/input.scm 186 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_2566)))
																										{	/* Ieee/input.scm 186 */
																											long BgL_arg2066z00_2574;
																											long BgL_arg2067z00_2575;

																											{	/* Ieee/input.scm 186 */
																												obj_t BgL_tmpz00_7413;

																												BgL_tmpz00_7413 =
																													((obj_t)
																													BgL_iportz00_2566);
																												BgL_arg2066z00_2574 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_7413);
																											}
																											{	/* Ieee/input.scm 186 */
																												obj_t BgL_tmpz00_7416;

																												BgL_tmpz00_7416 =
																													((obj_t)
																													BgL_iportz00_2566);
																												BgL_arg2067z00_2575 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_7416);
																											}
																											{
																												long BgL_bufposz00_7420;
																												long
																													BgL_forwardz00_7419;
																												BgL_forwardz00_7419 =
																													BgL_arg2066z00_2574;
																												BgL_bufposz00_7420 =
																													BgL_arg2067z00_2575;
																												BgL_bufposz00_2569 =
																													BgL_bufposz00_7420;
																												BgL_forwardz00_2568 =
																													BgL_forwardz00_7419;
																												goto
																													BgL_zc3z04anonymousza32062ze3z87_2570;
																											}
																										}
																									else
																										{	/* Ieee/input.scm 186 */
																											BgL_matchz00_2710 =
																												BgL_newzd2matchzd2_2571;
																										}
																								}
																							else
																								{	/* Ieee/input.scm 186 */
																									int BgL_curz00_2576;

																									{	/* Ieee/input.scm 186 */
																										obj_t BgL_tmpz00_7421;

																										BgL_tmpz00_7421 =
																											((obj_t)
																											BgL_iportz00_2566);
																										BgL_curz00_2576 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_7421,
																											BgL_forwardz00_2568);
																									}
																									{	/* Ieee/input.scm 186 */

																										if (
																											((long) (BgL_curz00_2576)
																												== 10L))
																											{	/* Ieee/input.scm 186 */
																												long
																													BgL_arg2069z00_2578;
																												BgL_arg2069z00_2578 =
																													(1L +
																													BgL_forwardz00_2568);
																												{	/* Ieee/input.scm 186 */
																													long
																														BgL_newzd2matchzd2_5095;
																													{	/* Ieee/input.scm 186 */
																														obj_t
																															BgL_tmpz00_7428;
																														BgL_tmpz00_7428 =
																															((obj_t)
																															BgL_iportz00_2566);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_7428,
																															BgL_arg2069z00_2578);
																													}
																													BgL_newzd2matchzd2_5095
																														= 1L;
																													BgL_matchz00_2710 =
																														BgL_newzd2matchzd2_5095;
																											}}
																										else
																											{	/* Ieee/input.scm 186 */
																												BgL_matchz00_2710 =
																													BgL_newzd2matchzd2_2571;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Ieee/input.scm 186 */
																						if (
																							((long) (BgL_curz00_2504) == 10L))
																							{	/* Ieee/input.scm 186 */
																								long BgL_arg2031z00_2508;

																								BgL_arg2031z00_2508 =
																									(1L + BgL_forwardz00_2496);
																								{	/* Ieee/input.scm 186 */
																									long BgL_newzd2matchzd2_5028;

																									{	/* Ieee/input.scm 186 */
																										obj_t BgL_tmpz00_7436;

																										BgL_tmpz00_7436 =
																											((obj_t)
																											BgL_iportz00_2494);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7436,
																											BgL_arg2031z00_2508);
																									}
																									BgL_newzd2matchzd2_5028 = 0L;
																									BgL_matchz00_2710 =
																										BgL_newzd2matchzd2_5028;
																							}}
																						else
																							{	/* Ieee/input.scm 186 */
																								BgL_iportz00_2538 =
																									BgL_iportz00_2494;
																								BgL_lastzd2matchzd2_2539 =
																									BgL_newzd2matchzd2_2499;
																								BgL_forwardz00_2540 =
																									(1L + BgL_forwardz00_2496);
																								BgL_bufposz00_2541 =
																									BgL_bufposz00_2497;
																							BgL_zc3z04anonymousza32050ze3z87_2542:
																								{	/* Ieee/input.scm 186 */
																									long BgL_newzd2matchzd2_2543;

																									{	/* Ieee/input.scm 186 */
																										obj_t BgL_tmpz00_7439;

																										BgL_tmpz00_7439 =
																											((obj_t)
																											BgL_iportz00_2538);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7439,
																											BgL_forwardz00_2540);
																									}
																									BgL_newzd2matchzd2_2543 = 2L;
																									if (
																										(BgL_forwardz00_2540 ==
																											BgL_bufposz00_2541))
																										{	/* Ieee/input.scm 186 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_2538)))
																												{	/* Ieee/input.scm 186 */
																													long
																														BgL_arg2053z00_2546;
																													long
																														BgL_arg2054z00_2547;
																													{	/* Ieee/input.scm 186 */
																														obj_t
																															BgL_tmpz00_7447;
																														BgL_tmpz00_7447 =
																															((obj_t)
																															BgL_iportz00_2538);
																														BgL_arg2053z00_2546
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_7447);
																													}
																													{	/* Ieee/input.scm 186 */
																														obj_t
																															BgL_tmpz00_7450;
																														BgL_tmpz00_7450 =
																															((obj_t)
																															BgL_iportz00_2538);
																														BgL_arg2054z00_2547
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_7450);
																													}
																													{
																														long
																															BgL_bufposz00_7454;
																														long
																															BgL_forwardz00_7453;
																														BgL_forwardz00_7453
																															=
																															BgL_arg2053z00_2546;
																														BgL_bufposz00_7454 =
																															BgL_arg2054z00_2547;
																														BgL_bufposz00_2541 =
																															BgL_bufposz00_7454;
																														BgL_forwardz00_2540
																															=
																															BgL_forwardz00_7453;
																														goto
																															BgL_zc3z04anonymousza32050ze3z87_2542;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 186 */
																													BgL_matchz00_2710 =
																														BgL_newzd2matchzd2_2543;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 186 */
																											int BgL_curz00_2548;

																											{	/* Ieee/input.scm 186 */
																												obj_t BgL_tmpz00_7455;

																												BgL_tmpz00_7455 =
																													((obj_t)
																													BgL_iportz00_2538);
																												BgL_curz00_2548 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_7455,
																													BgL_forwardz00_2540);
																											}
																											{	/* Ieee/input.scm 186 */

																												if (
																													((long)
																														(BgL_curz00_2548) ==
																														13L))
																													{
																														long
																															BgL_bufposz00_7465;
																														long
																															BgL_forwardz00_7463;
																														long
																															BgL_lastzd2matchzd2_7462;
																														obj_t
																															BgL_iportz00_7461;
																														BgL_iportz00_7461 =
																															BgL_iportz00_2538;
																														BgL_lastzd2matchzd2_7462
																															=
																															BgL_newzd2matchzd2_2543;
																														BgL_forwardz00_7463
																															=
																															(1L +
																															BgL_forwardz00_2540);
																														BgL_bufposz00_7465 =
																															BgL_bufposz00_2541;
																														BgL_bufposz00_2569 =
																															BgL_bufposz00_7465;
																														BgL_forwardz00_2568
																															=
																															BgL_forwardz00_7463;
																														BgL_lastzd2matchzd2_2567
																															=
																															BgL_lastzd2matchzd2_7462;
																														BgL_iportz00_2566 =
																															BgL_iportz00_7461;
																														goto
																															BgL_zc3z04anonymousza32062ze3z87_2570;
																													}
																												else
																													{	/* Ieee/input.scm 186 */
																														if (
																															((long)
																																(BgL_curz00_2548)
																																== 10L))
																															{	/* Ieee/input.scm 186 */
																																long
																																	BgL_arg2058z00_2552;
																																BgL_arg2058z00_2552
																																	=
																																	(1L +
																																	BgL_forwardz00_2540);
																																{	/* Ieee/input.scm 186 */
																																	long
																																		BgL_newzd2matchzd2_5074;
																																	{	/* Ieee/input.scm 186 */
																																		obj_t
																																			BgL_tmpz00_7470;
																																		BgL_tmpz00_7470
																																			=
																																			((obj_t)
																																			BgL_iportz00_2538);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_7470,
																																			BgL_arg2058z00_2552);
																																	}
																																	BgL_newzd2matchzd2_5074
																																		= 0L;
																																	BgL_matchz00_2710
																																		=
																																		BgL_newzd2matchzd2_5074;
																															}}
																														else
																															{
																																long
																																	BgL_forwardz00_7474;
																																long
																																	BgL_lastzd2matchzd2_7473;
																																BgL_lastzd2matchzd2_7473
																																	=
																																	BgL_newzd2matchzd2_2543;
																																BgL_forwardz00_7474
																																	=
																																	(1L +
																																	BgL_forwardz00_2540);
																																BgL_forwardz00_2540
																																	=
																																	BgL_forwardz00_7474;
																																BgL_lastzd2matchzd2_2539
																																	=
																																	BgL_lastzd2matchzd2_7473;
																																goto
																																	BgL_zc3z04anonymousza32050ze3z87_2542;
																															}
																													}
																											}
																										}
																								}
																							}
																					}
																			}
																		}
																}
															}
													}
											}
										}
								}
								{	/* Ieee/input.scm 186 */
									obj_t BgL_tmpz00_7478;

									BgL_tmpz00_7478 = ((obj_t) BgL_iportz00_2456);
									RGC_SET_FILEPOS(BgL_tmpz00_7478);
								}
								switch (BgL_matchz00_2710)
									{
									case 4L:

										{	/* Ieee/input.scm 186 */
											bool_t BgL_test3728z00_7481;

											{	/* Ieee/input.scm 186 */
												long BgL_arg2155z00_2700;

												{	/* Ieee/input.scm 186 */
													obj_t BgL_tmpz00_7482;

													BgL_tmpz00_7482 = ((obj_t) BgL_iportz00_2456);
													BgL_arg2155z00_2700 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7482);
												}
												BgL_test3728z00_7481 = (BgL_arg2155z00_2700 == 0L);
											}
											if (BgL_test3728z00_7481)
												{	/* Ieee/input.scm 186 */
													return BEOF;
												}
											else
												{	/* Ieee/input.scm 186 */
													unsigned char BgL_tmpz00_7486;

													{	/* Ieee/input.scm 186 */
														obj_t BgL_tmpz00_7487;

														BgL_tmpz00_7487 = ((obj_t) BgL_iportz00_2456);
														BgL_tmpz00_7486 =
															RGC_BUFFER_CHARACTER(BgL_tmpz00_7487);
													}
													return BCHAR(BgL_tmpz00_7486);
												}
										}
										break;
									case 3L:

										return BGl_string3511z00zz__r4_input_6_10_2z00;
										break;
									case 2L:

										{	/* Ieee/input.scm 186 */
											long BgL_arg2078z00_5134;

											{	/* Ieee/input.scm 186 */
												obj_t BgL_tmpz00_7491;

												BgL_tmpz00_7491 = ((obj_t) BgL_iportz00_2456);
												BgL_arg2078z00_5134 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7491);
											}
											return
												rgc_buffer_substring(
												((obj_t) BgL_iportz00_2456), 0L, BgL_arg2078z00_5134);
										}
										break;
									case 1L:

										{	/* Ieee/input.scm 191 */
											long BgL_arg2162z00_2713;

											{	/* Ieee/input.scm 191 */
												long BgL_arg2163z00_2714;

												{	/* Ieee/input.scm 186 */
													obj_t BgL_tmpz00_7496;

													BgL_tmpz00_7496 = ((obj_t) BgL_iportz00_2456);
													BgL_arg2163z00_2714 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7496);
												}
												BgL_arg2162z00_2713 = (BgL_arg2163z00_2714 - 2L);
											}
											BgL_minz00_2603 = (int) (0L);
											BgL_maxz00_2604 = (int) (BgL_arg2162z00_2713);
										BgL_lambda2079z00_2605:
											if (((long) (BgL_maxz00_2604) < (long) (BgL_minz00_2603)))
												{	/* Ieee/input.scm 186 */
													long BgL_arg2081z00_2607;

													{	/* Ieee/input.scm 186 */
														obj_t BgL_tmpz00_7504;

														BgL_tmpz00_7504 = ((obj_t) BgL_iportz00_2456);
														BgL_arg2081z00_2607 =
															RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7504);
													}
													{	/* Ieee/input.scm 186 */
														long BgL_za72za7_5112;

														BgL_za72za7_5112 = (long) (BgL_maxz00_2604);
														BgL_maxz00_2604 =
															(int) ((BgL_arg2081z00_2607 + BgL_za72za7_5112));
												}}
											else
												{	/* Ieee/input.scm 186 */
													BFALSE;
												}
											{	/* Ieee/input.scm 186 */
												bool_t BgL_test3730z00_7510;

												if (((long) (BgL_minz00_2603) >= 0L))
													{	/* Ieee/input.scm 186 */
														if (
															((long) (BgL_maxz00_2604) >=
																(long) (BgL_minz00_2603)))
															{	/* Ieee/input.scm 186 */
																long BgL_arg2091z00_2618;

																{	/* Ieee/input.scm 186 */
																	obj_t BgL_tmpz00_7518;

																	BgL_tmpz00_7518 = ((obj_t) BgL_iportz00_2456);
																	BgL_arg2091z00_2618 =
																		RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7518);
																}
																BgL_test3730z00_7510 =
																	(
																	(long) (BgL_maxz00_2604) <=
																	BgL_arg2091z00_2618);
															}
														else
															{	/* Ieee/input.scm 186 */
																BgL_test3730z00_7510 = ((bool_t) 0);
															}
													}
												else
													{	/* Ieee/input.scm 186 */
														BgL_test3730z00_7510 = ((bool_t) 0);
													}
												if (BgL_test3730z00_7510)
													{	/* Ieee/input.scm 186 */
														long BgL_startz00_5120;
														long BgL_stopz00_5121;

														BgL_startz00_5120 = (long) (BgL_minz00_2603);
														BgL_stopz00_5121 = (long) (BgL_maxz00_2604);
														return
															rgc_buffer_substring(
															((obj_t) BgL_iportz00_2456), BgL_startz00_5120,
															BgL_stopz00_5121);
													}
												else
													{	/* Ieee/input.scm 186 */
														obj_t BgL_arg2087z00_2612;
														obj_t BgL_arg2088z00_2613;

														{	/* Ieee/input.scm 186 */
															obj_t BgL_arg2089z00_2614;

															{	/* Ieee/input.scm 186 */
																long BgL_arg2078z00_5122;

																{	/* Ieee/input.scm 186 */
																	obj_t BgL_tmpz00_7527;

																	BgL_tmpz00_7527 = ((obj_t) BgL_iportz00_2456);
																	BgL_arg2078z00_5122 =
																		RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7527);
																}
																BgL_arg2089z00_2614 =
																	rgc_buffer_substring(
																	((obj_t) BgL_iportz00_2456), 0L,
																	BgL_arg2078z00_5122);
															}
															{	/* Ieee/input.scm 186 */
																obj_t BgL_list2090z00_2615;

																BgL_list2090z00_2615 =
																	MAKE_YOUNG_PAIR(BgL_arg2089z00_2614, BNIL);
																BgL_arg2087z00_2612 =
																	BGl_formatz00zz__r4_output_6_10_3z00
																	(BGl_string3500z00zz__r4_input_6_10_2z00,
																	BgL_list2090z00_2615);
														}}
														BgL_arg2088z00_2613 =
															MAKE_YOUNG_PAIR(BINT(BgL_minz00_2603),
															BINT(BgL_maxz00_2604));
														return
															BGl_errorz00zz__errorz00
															(BGl_string3501z00zz__r4_input_6_10_2z00,
															BgL_arg2087z00_2612, BgL_arg2088z00_2613);
													}
											}
										}
										break;
									case 0L:

										{	/* Ieee/input.scm 189 */
											long BgL_arg2164z00_2715;

											{	/* Ieee/input.scm 189 */
												long BgL_arg2165z00_2716;

												{	/* Ieee/input.scm 186 */
													obj_t BgL_tmpz00_7540;

													BgL_tmpz00_7540 = ((obj_t) BgL_iportz00_2456);
													BgL_arg2165z00_2716 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7540);
												}
												BgL_arg2164z00_2715 = (BgL_arg2165z00_2716 - 1L);
											}
											{
												int BgL_maxz00_7546;
												int BgL_minz00_7544;

												BgL_minz00_7544 = (int) (0L);
												BgL_maxz00_7546 = (int) (BgL_arg2164z00_2715);
												BgL_maxz00_2604 = BgL_maxz00_7546;
												BgL_minz00_2603 = BgL_minz00_7544;
												goto BgL_lambda2079z00_2605;
											}
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3498z00zz__r4_input_6_10_2z00,
											BGl_string3499z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_2710));
									}
							}
						}
					}
				else
					{	/* Ieee/input.scm 201 */
						obj_t BgL_g1078z00_2756;
						obj_t BgL_g1079z00_2757;

						BgL_g1078z00_2756 =
							BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26);
						{	/* Ieee/string.scm 168 */

							BgL_g1079z00_2757 = make_string(100L, ((unsigned char) ' '));
						}
						{
							obj_t BgL_cz00_2759;
							long BgL_wz00_2760;
							long BgL_mz00_2761;
							obj_t BgL_accz00_2762;

							BgL_cz00_2759 = BgL_g1078z00_2756;
							BgL_wz00_2760 = 0L;
							BgL_mz00_2761 = 100L;
							BgL_accz00_2762 = BgL_g1079z00_2757;
						BgL_zc3z04anonymousza32168ze3z87_2763:
							if (EOF_OBJECTP(BgL_cz00_2759))
								{	/* Ieee/input.scm 206 */
									if ((BgL_wz00_2760 == 0L))
										{	/* Ieee/input.scm 208 */
											return BgL_cz00_2759;
										}
									else
										{	/* Ieee/input.scm 208 */
											return c_substring(BgL_accz00_2762, 0L, BgL_wz00_2760);
										}
								}
							else
								{	/* Ieee/input.scm 206 */
									if ((BgL_wz00_2760 == BgL_mz00_2761))
										{	/* Ieee/input.scm 213 */
											long BgL_arg2172z00_2767;
											obj_t BgL_arg2173z00_2768;

											BgL_arg2172z00_2767 = (BgL_mz00_2761 * 2L);
											{	/* Ieee/input.scm 214 */
												obj_t BgL_newzd2acczd2_2769;

												{	/* Ieee/input.scm 214 */
													long BgL_arg2174z00_2770;

													BgL_arg2174z00_2770 = (BgL_mz00_2761 * 2L);
													{	/* Ieee/string.scm 168 */

														BgL_newzd2acczd2_2769 =
															make_string(BgL_arg2174z00_2770,
															((unsigned char) ' '));
												}}
												blit_string(BgL_accz00_2762, 0L, BgL_newzd2acczd2_2769,
													0L, BgL_mz00_2761);
												BgL_arg2173z00_2768 = BgL_newzd2acczd2_2769;
											}
											{
												obj_t BgL_accz00_7565;
												long BgL_mz00_7564;

												BgL_mz00_7564 = BgL_arg2172z00_2767;
												BgL_accz00_7565 = BgL_arg2173z00_2768;
												BgL_accz00_2762 = BgL_accz00_7565;
												BgL_mz00_2761 = BgL_mz00_7564;
												goto BgL_zc3z04anonymousza32168ze3z87_2763;
											}
										}
									else
										{	/* Ieee/input.scm 209 */
											if ((CCHAR(BgL_cz00_2759) == ((unsigned char) 13)))
												{	/* Ieee/input.scm 218 */
													obj_t BgL_c2z00_2774;

													BgL_c2z00_2774 =
														BGl_readzd2charzd2zz__r4_input_6_10_2z00
														(BgL_ipz00_26);
													if ((CCHAR(BgL_c2z00_2774) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 219 */
															return
																c_substring(BgL_accz00_2762, 0L, BgL_wz00_2760);
														}
													else
														{	/* Ieee/input.scm 219 */
															{	/* Ieee/input.scm 222 */
																unsigned char BgL_tmpz00_7574;

																BgL_tmpz00_7574 = CCHAR(BgL_cz00_2759);
																STRING_SET(BgL_accz00_2762, BgL_wz00_2760,
																	BgL_tmpz00_7574);
															}
															{
																long BgL_wz00_7578;
																obj_t BgL_cz00_7577;

																BgL_cz00_7577 = BgL_c2z00_2774;
																BgL_wz00_7578 = (BgL_wz00_2760 + 1L);
																BgL_wz00_2760 = BgL_wz00_7578;
																BgL_cz00_2759 = BgL_cz00_7577;
																goto BgL_zc3z04anonymousza32168ze3z87_2763;
															}
														}
												}
											else
												{	/* Ieee/input.scm 217 */
													if ((CCHAR(BgL_cz00_2759) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 224 */
															return
																c_substring(BgL_accz00_2762, 0L, BgL_wz00_2760);
														}
													else
														{	/* Ieee/input.scm 224 */
															{	/* Ieee/input.scm 229 */
																unsigned char BgL_tmpz00_7584;

																BgL_tmpz00_7584 = CCHAR(BgL_cz00_2759);
																STRING_SET(BgL_accz00_2762, BgL_wz00_2760,
																	BgL_tmpz00_7584);
															}
															{
																long BgL_wz00_7589;
																obj_t BgL_cz00_7587;

																BgL_cz00_7587 =
																	BGl_readzd2charzd2zz__r4_input_6_10_2z00
																	(BgL_ipz00_26);
																BgL_wz00_7589 = (BgL_wz00_2760 + 1L);
																BgL_wz00_2760 = BgL_wz00_7589;
																BgL_cz00_2759 = BgL_cz00_7587;
																goto BgL_zc3z04anonymousza32168ze3z87_2763;
															}
														}
												}
										}
								}
						}
					}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 235 */
							obj_t BgL_ipz00_2786;

							{	/* Ieee/input.scm 235 */
								obj_t BgL_tmpz00_7591;

								BgL_tmpz00_7591 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_2786 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7591);
							}
							{	/* Ieee/input.scm 235 */

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

						{	/* Ieee/input.scm 235 */
							obj_t BgL_ipz00_2787;

							BgL_ipz00_2787 = VECTOR_REF(BgL_opt1267z00_30, 0L);
							{	/* Ieee/input.scm 235 */

								return
									BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00
									(BgL_ipz00_2787);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-line-newline */
	BGL_EXPORTED_DEF obj_t
		BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t BgL_ipz00_29)
	{
		{	/* Ieee/input.scm 235 */
			{	/* Ieee/input.scm 236 */
				bool_t BgL_test3739z00_7599;

				{	/* Ieee/input.scm 236 */
					long BgL_arg2342z00_3104;

					BgL_arg2342z00_3104 = BGL_INPUT_PORT_BUFSIZ(BgL_ipz00_29);
					BgL_test3739z00_7599 = (BgL_arg2342z00_3104 > 2L);
				}
				if (BgL_test3739z00_7599)
					{
						obj_t BgL_iportz00_2792;

						BgL_iportz00_2792 = BgL_ipz00_29;
						{
							obj_t BgL_iportz00_2894;
							long BgL_lastzd2matchzd2_2895;
							long BgL_forwardz00_2896;
							long BgL_bufposz00_2897;
							obj_t BgL_iportz00_2878;
							long BgL_lastzd2matchzd2_2879;
							long BgL_forwardz00_2880;
							long BgL_bufposz00_2881;
							obj_t BgL_iportz00_2863;
							long BgL_lastzd2matchzd2_2864;
							long BgL_forwardz00_2865;
							long BgL_bufposz00_2866;
							obj_t BgL_iportz00_2850;
							long BgL_lastzd2matchzd2_2851;
							long BgL_forwardz00_2852;
							long BgL_bufposz00_2853;
							obj_t BgL_iportz00_2828;
							long BgL_lastzd2matchzd2_2829;
							long BgL_forwardz00_2830;
							long BgL_bufposz00_2831;

							{	/* Ieee/input.scm 237 */
								obj_t BgL_tmpz00_7602;

								BgL_tmpz00_7602 = ((obj_t) BgL_iportz00_2792);
								RGC_START_MATCH(BgL_tmpz00_7602);
							}
							{	/* Ieee/input.scm 237 */
								long BgL_matchz00_3032;

								{	/* Ieee/input.scm 237 */
									long BgL_arg2322z00_3035;
									long BgL_arg2323z00_3036;

									{	/* Ieee/input.scm 237 */
										obj_t BgL_tmpz00_7605;

										BgL_tmpz00_7605 = ((obj_t) BgL_iportz00_2792);
										BgL_arg2322z00_3035 = RGC_BUFFER_FORWARD(BgL_tmpz00_7605);
									}
									{	/* Ieee/input.scm 237 */
										obj_t BgL_tmpz00_7608;

										BgL_tmpz00_7608 = ((obj_t) BgL_iportz00_2792);
										BgL_arg2323z00_3036 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7608);
									}
									BgL_iportz00_2863 = BgL_iportz00_2792;
									BgL_lastzd2matchzd2_2864 = 1L;
									BgL_forwardz00_2865 = BgL_arg2322z00_3035;
									BgL_bufposz00_2866 = BgL_arg2323z00_3036;
								BgL_zc3z04anonymousza32204ze3z87_2867:
									if ((BgL_forwardz00_2865 == BgL_bufposz00_2866))
										{	/* Ieee/input.scm 237 */
											if (rgc_fill_buffer(((obj_t) BgL_iportz00_2863)))
												{	/* Ieee/input.scm 237 */
													long BgL_arg2207z00_2870;
													long BgL_arg2208z00_2871;

													{	/* Ieee/input.scm 237 */
														obj_t BgL_tmpz00_7616;

														BgL_tmpz00_7616 = ((obj_t) BgL_iportz00_2863);
														BgL_arg2207z00_2870 =
															RGC_BUFFER_FORWARD(BgL_tmpz00_7616);
													}
													{	/* Ieee/input.scm 237 */
														obj_t BgL_tmpz00_7619;

														BgL_tmpz00_7619 = ((obj_t) BgL_iportz00_2863);
														BgL_arg2208z00_2871 =
															RGC_BUFFER_BUFPOS(BgL_tmpz00_7619);
													}
													{
														long BgL_bufposz00_7623;
														long BgL_forwardz00_7622;

														BgL_forwardz00_7622 = BgL_arg2207z00_2870;
														BgL_bufposz00_7623 = BgL_arg2208z00_2871;
														BgL_bufposz00_2866 = BgL_bufposz00_7623;
														BgL_forwardz00_2865 = BgL_forwardz00_7622;
														goto BgL_zc3z04anonymousza32204ze3z87_2867;
													}
												}
											else
												{	/* Ieee/input.scm 237 */
													BgL_matchz00_3032 = BgL_lastzd2matchzd2_2864;
												}
										}
									else
										{	/* Ieee/input.scm 237 */
											int BgL_curz00_2872;

											{	/* Ieee/input.scm 237 */
												obj_t BgL_tmpz00_7624;

												BgL_tmpz00_7624 = ((obj_t) BgL_iportz00_2863);
												BgL_curz00_2872 =
													RGC_BUFFER_GET_CHAR(BgL_tmpz00_7624,
													BgL_forwardz00_2865);
											}
											{	/* Ieee/input.scm 237 */

												if (((long) (BgL_curz00_2872) == 13L))
													{	/* Ieee/input.scm 237 */
														BgL_iportz00_2850 = BgL_iportz00_2863;
														BgL_lastzd2matchzd2_2851 = BgL_lastzd2matchzd2_2864;
														BgL_forwardz00_2852 = (1L + BgL_forwardz00_2865);
														BgL_bufposz00_2853 = BgL_bufposz00_2866;
													BgL_zc3z04anonymousza32196ze3z87_2854:
														{	/* Ieee/input.scm 237 */
															long BgL_newzd2matchzd2_2855;

															{	/* Ieee/input.scm 237 */
																obj_t BgL_tmpz00_7630;

																BgL_tmpz00_7630 = ((obj_t) BgL_iportz00_2850);
																RGC_STOP_MATCH(BgL_tmpz00_7630,
																	BgL_forwardz00_2852);
															}
															BgL_newzd2matchzd2_2855 = 0L;
															if ((BgL_forwardz00_2852 == BgL_bufposz00_2853))
																{	/* Ieee/input.scm 237 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_2850)))
																		{	/* Ieee/input.scm 237 */
																			long BgL_arg2199z00_2858;
																			long BgL_arg2201z00_2859;

																			{	/* Ieee/input.scm 237 */
																				obj_t BgL_tmpz00_7638;

																				BgL_tmpz00_7638 =
																					((obj_t) BgL_iportz00_2850);
																				BgL_arg2199z00_2858 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_7638);
																			}
																			{	/* Ieee/input.scm 237 */
																				obj_t BgL_tmpz00_7641;

																				BgL_tmpz00_7641 =
																					((obj_t) BgL_iportz00_2850);
																				BgL_arg2201z00_2859 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_7641);
																			}
																			{
																				long BgL_bufposz00_7645;
																				long BgL_forwardz00_7644;

																				BgL_forwardz00_7644 =
																					BgL_arg2199z00_2858;
																				BgL_bufposz00_7645 =
																					BgL_arg2201z00_2859;
																				BgL_bufposz00_2853 = BgL_bufposz00_7645;
																				BgL_forwardz00_2852 =
																					BgL_forwardz00_7644;
																				goto
																					BgL_zc3z04anonymousza32196ze3z87_2854;
																			}
																		}
																	else
																		{	/* Ieee/input.scm 237 */
																			BgL_matchz00_3032 =
																				BgL_newzd2matchzd2_2855;
																		}
																}
															else
																{	/* Ieee/input.scm 237 */
																	int BgL_curz00_2860;

																	{	/* Ieee/input.scm 237 */
																		obj_t BgL_tmpz00_7646;

																		BgL_tmpz00_7646 =
																			((obj_t) BgL_iportz00_2850);
																		BgL_curz00_2860 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_7646,
																			BgL_forwardz00_2852);
																	}
																	{	/* Ieee/input.scm 237 */

																		if (((long) (BgL_curz00_2860) == 10L))
																			{	/* Ieee/input.scm 237 */
																				long BgL_arg2203z00_2862;

																				BgL_arg2203z00_2862 =
																					(1L + BgL_forwardz00_2852);
																				{	/* Ieee/input.scm 237 */
																					long BgL_newzd2matchzd2_5205;

																					{	/* Ieee/input.scm 237 */
																						obj_t BgL_tmpz00_7653;

																						BgL_tmpz00_7653 =
																							((obj_t) BgL_iportz00_2850);
																						RGC_STOP_MATCH(BgL_tmpz00_7653,
																							BgL_arg2203z00_2862);
																					}
																					BgL_newzd2matchzd2_5205 = 0L;
																					BgL_matchz00_3032 =
																						BgL_newzd2matchzd2_5205;
																			}}
																		else
																			{	/* Ieee/input.scm 237 */
																				BgL_matchz00_3032 =
																					BgL_newzd2matchzd2_2855;
																			}
																	}
																}
														}
													}
												else
													{	/* Ieee/input.scm 237 */
														if (((long) (BgL_curz00_2872) == 10L))
															{	/* Ieee/input.scm 237 */
																long BgL_arg2212z00_2876;

																BgL_arg2212z00_2876 =
																	(1L + BgL_forwardz00_2865);
																{	/* Ieee/input.scm 237 */
																	long BgL_newzd2matchzd2_5219;

																	{	/* Ieee/input.scm 237 */
																		obj_t BgL_tmpz00_7661;

																		BgL_tmpz00_7661 =
																			((obj_t) BgL_iportz00_2863);
																		RGC_STOP_MATCH(BgL_tmpz00_7661,
																			BgL_arg2212z00_2876);
																	}
																	BgL_newzd2matchzd2_5219 = 0L;
																	BgL_matchz00_3032 = BgL_newzd2matchzd2_5219;
															}}
														else
															{	/* Ieee/input.scm 237 */
																BgL_iportz00_2878 = BgL_iportz00_2863;
																BgL_lastzd2matchzd2_2879 =
																	BgL_lastzd2matchzd2_2864;
																BgL_forwardz00_2880 =
																	(1L + BgL_forwardz00_2865);
																BgL_bufposz00_2881 = BgL_bufposz00_2866;
															BgL_zc3z04anonymousza32214ze3z87_2882:
																{	/* Ieee/input.scm 237 */
																	long BgL_newzd2matchzd2_2883;

																	{	/* Ieee/input.scm 237 */
																		obj_t BgL_tmpz00_7664;

																		BgL_tmpz00_7664 =
																			((obj_t) BgL_iportz00_2878);
																		RGC_STOP_MATCH(BgL_tmpz00_7664,
																			BgL_forwardz00_2880);
																	}
																	BgL_newzd2matchzd2_2883 = 0L;
																	if (
																		(BgL_forwardz00_2880 == BgL_bufposz00_2881))
																		{	/* Ieee/input.scm 237 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_2878)))
																				{	/* Ieee/input.scm 237 */
																					long BgL_arg2217z00_2886;
																					long BgL_arg2218z00_2887;

																					{	/* Ieee/input.scm 237 */
																						obj_t BgL_tmpz00_7672;

																						BgL_tmpz00_7672 =
																							((obj_t) BgL_iportz00_2878);
																						BgL_arg2217z00_2886 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_7672);
																					}
																					{	/* Ieee/input.scm 237 */
																						obj_t BgL_tmpz00_7675;

																						BgL_tmpz00_7675 =
																							((obj_t) BgL_iportz00_2878);
																						BgL_arg2218z00_2887 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_7675);
																					}
																					{
																						long BgL_bufposz00_7679;
																						long BgL_forwardz00_7678;

																						BgL_forwardz00_7678 =
																							BgL_arg2217z00_2886;
																						BgL_bufposz00_7679 =
																							BgL_arg2218z00_2887;
																						BgL_bufposz00_2881 =
																							BgL_bufposz00_7679;
																						BgL_forwardz00_2880 =
																							BgL_forwardz00_7678;
																						goto
																							BgL_zc3z04anonymousza32214ze3z87_2882;
																					}
																				}
																			else
																				{	/* Ieee/input.scm 237 */
																					BgL_matchz00_3032 =
																						BgL_newzd2matchzd2_2883;
																				}
																		}
																	else
																		{	/* Ieee/input.scm 237 */
																			int BgL_curz00_2888;

																			{	/* Ieee/input.scm 237 */
																				obj_t BgL_tmpz00_7680;

																				BgL_tmpz00_7680 =
																					((obj_t) BgL_iportz00_2878);
																				BgL_curz00_2888 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_7680,
																					BgL_forwardz00_2880);
																			}
																			{	/* Ieee/input.scm 237 */

																				if (((long) (BgL_curz00_2888) == 13L))
																					{	/* Ieee/input.scm 237 */
																						BgL_iportz00_2894 =
																							BgL_iportz00_2878;
																						BgL_lastzd2matchzd2_2895 =
																							BgL_newzd2matchzd2_2883;
																						BgL_forwardz00_2896 =
																							(1L + BgL_forwardz00_2880);
																						BgL_bufposz00_2897 =
																							BgL_bufposz00_2881;
																					BgL_zc3z04anonymousza32224ze3z87_2898:
																						{	/* Ieee/input.scm 237 */
																							long BgL_newzd2matchzd2_2899;

																							{	/* Ieee/input.scm 237 */
																								obj_t BgL_tmpz00_7686;

																								BgL_tmpz00_7686 =
																									((obj_t) BgL_iportz00_2894);
																								RGC_STOP_MATCH(BgL_tmpz00_7686,
																									BgL_forwardz00_2896);
																							}
																							BgL_newzd2matchzd2_2899 = 0L;
																							if (
																								(BgL_forwardz00_2896 ==
																									BgL_bufposz00_2897))
																								{	/* Ieee/input.scm 237 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_2894)))
																										{	/* Ieee/input.scm 237 */
																											long BgL_arg2227z00_2902;
																											long BgL_arg2228z00_2903;

																											{	/* Ieee/input.scm 237 */
																												obj_t BgL_tmpz00_7694;

																												BgL_tmpz00_7694 =
																													((obj_t)
																													BgL_iportz00_2894);
																												BgL_arg2227z00_2902 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_7694);
																											}
																											{	/* Ieee/input.scm 237 */
																												obj_t BgL_tmpz00_7697;

																												BgL_tmpz00_7697 =
																													((obj_t)
																													BgL_iportz00_2894);
																												BgL_arg2228z00_2903 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_7697);
																											}
																											{
																												long BgL_bufposz00_7701;
																												long
																													BgL_forwardz00_7700;
																												BgL_forwardz00_7700 =
																													BgL_arg2227z00_2902;
																												BgL_bufposz00_7701 =
																													BgL_arg2228z00_2903;
																												BgL_bufposz00_2897 =
																													BgL_bufposz00_7701;
																												BgL_forwardz00_2896 =
																													BgL_forwardz00_7700;
																												goto
																													BgL_zc3z04anonymousza32224ze3z87_2898;
																											}
																										}
																									else
																										{	/* Ieee/input.scm 237 */
																											BgL_matchz00_3032 =
																												BgL_newzd2matchzd2_2899;
																										}
																								}
																							else
																								{	/* Ieee/input.scm 237 */
																									int BgL_curz00_2904;

																									{	/* Ieee/input.scm 237 */
																										obj_t BgL_tmpz00_7702;

																										BgL_tmpz00_7702 =
																											((obj_t)
																											BgL_iportz00_2894);
																										BgL_curz00_2904 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_7702,
																											BgL_forwardz00_2896);
																									}
																									{	/* Ieee/input.scm 237 */

																										if (
																											((long) (BgL_curz00_2904)
																												== 10L))
																											{	/* Ieee/input.scm 237 */
																												long
																													BgL_arg2230z00_2906;
																												BgL_arg2230z00_2906 =
																													(1L +
																													BgL_forwardz00_2896);
																												{	/* Ieee/input.scm 237 */
																													long
																														BgL_newzd2matchzd2_5251;
																													{	/* Ieee/input.scm 237 */
																														obj_t
																															BgL_tmpz00_7709;
																														BgL_tmpz00_7709 =
																															((obj_t)
																															BgL_iportz00_2894);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_7709,
																															BgL_arg2230z00_2906);
																													}
																													BgL_newzd2matchzd2_5251
																														= 0L;
																													BgL_matchz00_3032 =
																														BgL_newzd2matchzd2_5251;
																											}}
																										else
																											{	/* Ieee/input.scm 237 */
																												BgL_matchz00_3032 =
																													BgL_newzd2matchzd2_2899;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Ieee/input.scm 237 */
																						if (
																							((long) (BgL_curz00_2888) == 10L))
																							{	/* Ieee/input.scm 237 */
																								long BgL_arg2222z00_2892;

																								BgL_arg2222z00_2892 =
																									(1L + BgL_forwardz00_2880);
																								{	/* Ieee/input.scm 237 */
																									long BgL_newzd2matchzd2_5236;

																									{	/* Ieee/input.scm 237 */
																										obj_t BgL_tmpz00_7717;

																										BgL_tmpz00_7717 =
																											((obj_t)
																											BgL_iportz00_2878);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7717,
																											BgL_arg2222z00_2892);
																									}
																									BgL_newzd2matchzd2_5236 = 0L;
																									BgL_matchz00_3032 =
																										BgL_newzd2matchzd2_5236;
																							}}
																						else
																							{	/* Ieee/input.scm 237 */
																								BgL_iportz00_2828 =
																									BgL_iportz00_2878;
																								BgL_lastzd2matchzd2_2829 =
																									BgL_newzd2matchzd2_2883;
																								BgL_forwardz00_2830 =
																									(1L + BgL_forwardz00_2880);
																								BgL_bufposz00_2831 =
																									BgL_bufposz00_2881;
																							BgL_zc3z04anonymousza32185ze3z87_2832:
																								{	/* Ieee/input.scm 237 */
																									long BgL_newzd2matchzd2_2833;

																									{	/* Ieee/input.scm 237 */
																										obj_t BgL_tmpz00_7720;

																										BgL_tmpz00_7720 =
																											((obj_t)
																											BgL_iportz00_2828);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7720,
																											BgL_forwardz00_2830);
																									}
																									BgL_newzd2matchzd2_2833 = 0L;
																									if (
																										(BgL_forwardz00_2830 ==
																											BgL_bufposz00_2831))
																										{	/* Ieee/input.scm 237 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_2828)))
																												{	/* Ieee/input.scm 237 */
																													long
																														BgL_arg2188z00_2836;
																													long
																														BgL_arg2189z00_2837;
																													{	/* Ieee/input.scm 237 */
																														obj_t
																															BgL_tmpz00_7728;
																														BgL_tmpz00_7728 =
																															((obj_t)
																															BgL_iportz00_2828);
																														BgL_arg2188z00_2836
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_7728);
																													}
																													{	/* Ieee/input.scm 237 */
																														obj_t
																															BgL_tmpz00_7731;
																														BgL_tmpz00_7731 =
																															((obj_t)
																															BgL_iportz00_2828);
																														BgL_arg2189z00_2837
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_7731);
																													}
																													{
																														long
																															BgL_bufposz00_7735;
																														long
																															BgL_forwardz00_7734;
																														BgL_forwardz00_7734
																															=
																															BgL_arg2188z00_2836;
																														BgL_bufposz00_7735 =
																															BgL_arg2189z00_2837;
																														BgL_bufposz00_2831 =
																															BgL_bufposz00_7735;
																														BgL_forwardz00_2830
																															=
																															BgL_forwardz00_7734;
																														goto
																															BgL_zc3z04anonymousza32185ze3z87_2832;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 237 */
																													BgL_matchz00_3032 =
																														BgL_newzd2matchzd2_2833;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 237 */
																											int BgL_curz00_2838;

																											{	/* Ieee/input.scm 237 */
																												obj_t BgL_tmpz00_7736;

																												BgL_tmpz00_7736 =
																													((obj_t)
																													BgL_iportz00_2828);
																												BgL_curz00_2838 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_7736,
																													BgL_forwardz00_2830);
																											}
																											{	/* Ieee/input.scm 237 */

																												if (
																													((long)
																														(BgL_curz00_2838) ==
																														13L))
																													{
																														long
																															BgL_bufposz00_7746;
																														long
																															BgL_forwardz00_7744;
																														long
																															BgL_lastzd2matchzd2_7743;
																														obj_t
																															BgL_iportz00_7742;
																														BgL_iportz00_7742 =
																															BgL_iportz00_2828;
																														BgL_lastzd2matchzd2_7743
																															=
																															BgL_newzd2matchzd2_2833;
																														BgL_forwardz00_7744
																															=
																															(1L +
																															BgL_forwardz00_2830);
																														BgL_bufposz00_7746 =
																															BgL_bufposz00_2831;
																														BgL_bufposz00_2897 =
																															BgL_bufposz00_7746;
																														BgL_forwardz00_2896
																															=
																															BgL_forwardz00_7744;
																														BgL_lastzd2matchzd2_2895
																															=
																															BgL_lastzd2matchzd2_7743;
																														BgL_iportz00_2894 =
																															BgL_iportz00_7742;
																														goto
																															BgL_zc3z04anonymousza32224ze3z87_2898;
																													}
																												else
																													{	/* Ieee/input.scm 237 */
																														if (
																															((long)
																																(BgL_curz00_2838)
																																== 10L))
																															{	/* Ieee/input.scm 237 */
																																long
																																	BgL_arg2193z00_2842;
																																BgL_arg2193z00_2842
																																	=
																																	(1L +
																																	BgL_forwardz00_2830);
																																{	/* Ieee/input.scm 237 */
																																	long
																																		BgL_newzd2matchzd2_5187;
																																	{	/* Ieee/input.scm 237 */
																																		obj_t
																																			BgL_tmpz00_7751;
																																		BgL_tmpz00_7751
																																			=
																																			((obj_t)
																																			BgL_iportz00_2828);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_7751,
																																			BgL_arg2193z00_2842);
																																	}
																																	BgL_newzd2matchzd2_5187
																																		= 0L;
																																	BgL_matchz00_3032
																																		=
																																		BgL_newzd2matchzd2_5187;
																															}}
																														else
																															{
																																long
																																	BgL_forwardz00_7755;
																																long
																																	BgL_lastzd2matchzd2_7754;
																																BgL_lastzd2matchzd2_7754
																																	=
																																	BgL_newzd2matchzd2_2833;
																																BgL_forwardz00_7755
																																	=
																																	(1L +
																																	BgL_forwardz00_2830);
																																BgL_forwardz00_2830
																																	=
																																	BgL_forwardz00_7755;
																																BgL_lastzd2matchzd2_2829
																																	=
																																	BgL_lastzd2matchzd2_7754;
																																goto
																																	BgL_zc3z04anonymousza32185ze3z87_2832;
																															}
																													}
																											}
																										}
																								}
																							}
																					}
																			}
																		}
																}
															}
													}
											}
										}
								}
								{	/* Ieee/input.scm 237 */
									obj_t BgL_tmpz00_7759;

									BgL_tmpz00_7759 = ((obj_t) BgL_iportz00_2792);
									RGC_SET_FILEPOS(BgL_tmpz00_7759);
								}
								switch (BgL_matchz00_3032)
									{
									case 1L:

										{	/* Ieee/input.scm 237 */
											bool_t BgL_test3758z00_7762;

											{	/* Ieee/input.scm 237 */
												long BgL_arg2314z00_3022;

												{	/* Ieee/input.scm 237 */
													obj_t BgL_tmpz00_7763;

													BgL_tmpz00_7763 = ((obj_t) BgL_iportz00_2792);
													BgL_arg2314z00_3022 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7763);
												}
												BgL_test3758z00_7762 = (BgL_arg2314z00_3022 == 0L);
											}
											if (BgL_test3758z00_7762)
												{	/* Ieee/input.scm 237 */
													return BEOF;
												}
											else
												{	/* Ieee/input.scm 237 */
													unsigned char BgL_tmpz00_7767;

													{	/* Ieee/input.scm 237 */
														obj_t BgL_tmpz00_7768;

														BgL_tmpz00_7768 = ((obj_t) BgL_iportz00_2792);
														BgL_tmpz00_7767 =
															RGC_BUFFER_CHARACTER(BgL_tmpz00_7768);
													}
													return BCHAR(BgL_tmpz00_7767);
												}
										}
										break;
									case 0L:

										{	/* Ieee/input.scm 237 */
											long BgL_arg2238z00_5269;

											{	/* Ieee/input.scm 237 */
												obj_t BgL_tmpz00_7772;

												BgL_tmpz00_7772 = ((obj_t) BgL_iportz00_2792);
												BgL_arg2238z00_5269 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7772);
											}
											return
												rgc_buffer_substring(
												((obj_t) BgL_iportz00_2792), 0L, BgL_arg2238z00_5269);
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3498z00zz__r4_input_6_10_2z00,
											BGl_string3499z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_3032));
									}
							}
						}
					}
				else
					{	/* Ieee/input.scm 249 */
						obj_t BgL_g1091z00_3072;
						obj_t BgL_g1092z00_3073;

						BgL_g1091z00_3072 =
							BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29);
						{	/* Ieee/string.scm 168 */

							BgL_g1092z00_3073 = make_string(100L, ((unsigned char) ' '));
						}
						{
							obj_t BgL_cz00_3075;
							long BgL_wz00_3076;
							long BgL_mz00_3077;
							obj_t BgL_accz00_3078;

							BgL_cz00_3075 = BgL_g1091z00_3072;
							BgL_wz00_3076 = 0L;
							BgL_mz00_3077 = 100L;
							BgL_accz00_3078 = BgL_g1092z00_3073;
						BgL_zc3z04anonymousza32324ze3z87_3079:
							if (EOF_OBJECTP(BgL_cz00_3075))
								{	/* Ieee/input.scm 254 */
									if ((BgL_wz00_3076 == 0L))
										{	/* Ieee/input.scm 256 */
											return BgL_cz00_3075;
										}
									else
										{	/* Ieee/input.scm 256 */
											return c_substring(BgL_accz00_3078, 0L, BgL_wz00_3076);
										}
								}
							else
								{	/* Ieee/input.scm 254 */
									if ((BgL_wz00_3076 == (BgL_mz00_3077 - 2L)))
										{	/* Ieee/input.scm 261 */
											long BgL_arg2329z00_3084;
											obj_t BgL_arg2330z00_3085;

											BgL_arg2329z00_3084 = (BgL_mz00_3077 * 2L);
											{	/* Ieee/input.scm 262 */
												obj_t BgL_newzd2acczd2_3086;

												{	/* Ieee/input.scm 262 */
													long BgL_arg2331z00_3087;

													BgL_arg2331z00_3087 = (BgL_mz00_3077 * 2L);
													{	/* Ieee/string.scm 168 */

														BgL_newzd2acczd2_3086 =
															make_string(BgL_arg2331z00_3087,
															((unsigned char) ' '));
												}}
												blit_string(BgL_accz00_3078, 0L, BgL_newzd2acczd2_3086,
													0L, BgL_mz00_3077);
												BgL_arg2330z00_3085 = BgL_newzd2acczd2_3086;
											}
											{
												obj_t BgL_accz00_7795;
												long BgL_mz00_7794;

												BgL_mz00_7794 = BgL_arg2329z00_3084;
												BgL_accz00_7795 = BgL_arg2330z00_3085;
												BgL_accz00_3078 = BgL_accz00_7795;
												BgL_mz00_3077 = BgL_mz00_7794;
												goto BgL_zc3z04anonymousza32324ze3z87_3079;
											}
										}
									else
										{	/* Ieee/input.scm 257 */
											if ((CCHAR(BgL_cz00_3075) == ((unsigned char) 13)))
												{	/* Ieee/input.scm 266 */
													obj_t BgL_c2z00_3091;

													BgL_c2z00_3091 =
														BGl_readzd2charzd2zz__r4_input_6_10_2z00
														(BgL_ipz00_29);
													if ((CCHAR(BgL_c2z00_3091) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 267 */
															STRING_SET(BgL_accz00_3078, BgL_wz00_3076,
																((unsigned char) 13));
															{	/* Ieee/input.scm 270 */
																long BgL_tmpz00_7804;

																BgL_tmpz00_7804 = (1L + BgL_wz00_3076);
																STRING_SET(BgL_accz00_3078, BgL_tmpz00_7804,
																	((unsigned char) 10));
															}
															return
																c_substring(BgL_accz00_3078, 0L,
																(BgL_wz00_3076 + 2L));
														}
													else
														{	/* Ieee/input.scm 267 */
															{	/* Ieee/input.scm 273 */
																unsigned char BgL_tmpz00_7809;

																BgL_tmpz00_7809 = CCHAR(BgL_cz00_3075);
																STRING_SET(BgL_accz00_3078, BgL_wz00_3076,
																	BgL_tmpz00_7809);
															}
															{
																long BgL_wz00_7813;
																obj_t BgL_cz00_7812;

																BgL_cz00_7812 = BgL_c2z00_3091;
																BgL_wz00_7813 = (BgL_wz00_3076 + 1L);
																BgL_wz00_3076 = BgL_wz00_7813;
																BgL_cz00_3075 = BgL_cz00_7812;
																goto BgL_zc3z04anonymousza32324ze3z87_3079;
															}
														}
												}
											else
												{	/* Ieee/input.scm 265 */
													if ((CCHAR(BgL_cz00_3075) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 275 */
															STRING_SET(BgL_accz00_3078, BgL_wz00_3076,
																((unsigned char) 10));
															return c_substring(BgL_accz00_3078, 0L,
																(BgL_wz00_3076 + 1L));
														}
													else
														{	/* Ieee/input.scm 275 */
															{	/* Ieee/input.scm 281 */
																unsigned char BgL_tmpz00_7821;

																BgL_tmpz00_7821 = CCHAR(BgL_cz00_3075);
																STRING_SET(BgL_accz00_3078, BgL_wz00_3076,
																	BgL_tmpz00_7821);
															}
															{
																long BgL_wz00_7826;
																obj_t BgL_cz00_7824;

																BgL_cz00_7824 =
																	BGl_readzd2charzd2zz__r4_input_6_10_2z00
																	(BgL_ipz00_29);
																BgL_wz00_7826 = (BgL_wz00_3076 + 1L);
																BgL_wz00_3076 = BgL_wz00_7826;
																BgL_cz00_3075 = BgL_cz00_7824;
																goto BgL_zc3z04anonymousza32324ze3z87_3079;
															}
														}
												}
										}
								}
						}
					}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 287 */
							obj_t BgL_ipz00_3107;

							{	/* Ieee/input.scm 287 */
								obj_t BgL_tmpz00_7828;

								BgL_tmpz00_7828 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3107 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7828);
							}
							{	/* Ieee/input.scm 287 */

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

						{	/* Ieee/input.scm 287 */
							obj_t BgL_ipz00_3108;

							BgL_ipz00_3108 = VECTOR_REF(BgL_opt1271z00_33, 0L);
							{	/* Ieee/input.scm 287 */

								return
									BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_ipz00_3108);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-lines */
	BGL_EXPORTED_DEF obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t
		BgL_ipz00_32)
	{
		{	/* Ieee/input.scm 287 */
			{	/* Ieee/input.scm 288 */
				obj_t BgL_g1094z00_3109;

				BgL_g1094z00_3109 =
					BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32);
				{
					obj_t BgL_lz00_5324;
					obj_t BgL_lsz00_5325;

					BgL_lz00_5324 = BgL_g1094z00_3109;
					BgL_lsz00_5325 = BNIL;
				BgL_loopz00_5323:
					if (EOF_OBJECTP(BgL_lz00_5324))
						{	/* Ieee/input.scm 290 */
							return bgl_reverse_bang(BgL_lsz00_5325);
						}
					else
						{	/* Ieee/input.scm 292 */
							obj_t BgL_arg2345z00_5330;
							obj_t BgL_arg2346z00_5331;

							BgL_arg2345z00_5330 =
								BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32);
							BgL_arg2346z00_5331 =
								MAKE_YOUNG_PAIR(BgL_lz00_5324, BgL_lsz00_5325);
							{
								obj_t BgL_lsz00_7843;
								obj_t BgL_lz00_7842;

								BgL_lz00_7842 = BgL_arg2345z00_5330;
								BgL_lsz00_7843 = BgL_arg2346z00_5331;
								BgL_lsz00_5325 = BgL_lsz00_7843;
								BgL_lz00_5324 = BgL_lz00_7842;
								goto BgL_loopz00_5323;
							}
						}
				}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 297 */
							obj_t BgL_ipz00_3121;

							{	/* Ieee/input.scm 297 */
								obj_t BgL_tmpz00_7844;

								BgL_tmpz00_7844 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3121 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7844);
							}
							{	/* Ieee/input.scm 297 */

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

						{	/* Ieee/input.scm 297 */
							obj_t BgL_ipz00_3122;

							BgL_ipz00_3122 = VECTOR_REF(BgL_opt1275z00_36, 0L);
							{	/* Ieee/input.scm 297 */

								return
									BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3122);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-string */
	BGL_EXPORTED_DEF obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t
		BgL_ipz00_35)
	{
		{	/* Ieee/input.scm 297 */
			{
				obj_t BgL_iportz00_3178;
				long BgL_lastzd2matchzd2_3179;
				long BgL_forwardz00_3180;
				long BgL_bufposz00_3181;
				obj_t BgL_iportz00_3166;
				long BgL_lastzd2matchzd2_3167;
				long BgL_forwardz00_3168;
				long BgL_bufposz00_3169;

				{	/* Ieee/input.scm 298 */
					obj_t BgL_tmpz00_7852;

					BgL_tmpz00_7852 = ((obj_t) BgL_ipz00_35);
					RGC_START_MATCH(BgL_tmpz00_7852);
				}
				{	/* Ieee/input.scm 298 */
					long BgL_matchz00_3309;

					{	/* Ieee/input.scm 298 */
						long BgL_arg2464z00_3314;
						long BgL_arg2465z00_3315;

						{	/* Ieee/input.scm 298 */
							obj_t BgL_tmpz00_7855;

							BgL_tmpz00_7855 = ((obj_t) BgL_ipz00_35);
							BgL_arg2464z00_3314 = RGC_BUFFER_FORWARD(BgL_tmpz00_7855);
						}
						{	/* Ieee/input.scm 298 */
							obj_t BgL_tmpz00_7858;

							BgL_tmpz00_7858 = ((obj_t) BgL_ipz00_35);
							BgL_arg2465z00_3315 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7858);
						}
						{
							long BgL_forwardz00_5496;
							long BgL_bufposz00_5497;

							BgL_forwardz00_5496 = BgL_arg2464z00_3314;
							BgL_bufposz00_5497 = BgL_arg2465z00_3315;
						BgL_statezd20zd21097z00_5495:
							if ((BgL_forwardz00_5496 == BgL_bufposz00_5497))
								{	/* Ieee/input.scm 298 */
									if (rgc_fill_buffer(((obj_t) BgL_ipz00_35)))
										{	/* Ieee/input.scm 298 */
											long BgL_arg2351z00_5500;
											long BgL_arg2352z00_5501;

											{	/* Ieee/input.scm 298 */
												obj_t BgL_tmpz00_7866;

												BgL_tmpz00_7866 = ((obj_t) BgL_ipz00_35);
												BgL_arg2351z00_5500 =
													RGC_BUFFER_FORWARD(BgL_tmpz00_7866);
											}
											{	/* Ieee/input.scm 298 */
												obj_t BgL_tmpz00_7869;

												BgL_tmpz00_7869 = ((obj_t) BgL_ipz00_35);
												BgL_arg2352z00_5501 =
													RGC_BUFFER_BUFPOS(BgL_tmpz00_7869);
											}
											{
												long BgL_bufposz00_7873;
												long BgL_forwardz00_7872;

												BgL_forwardz00_7872 = BgL_arg2351z00_5500;
												BgL_bufposz00_7873 = BgL_arg2352z00_5501;
												BgL_bufposz00_5497 = BgL_bufposz00_7873;
												BgL_forwardz00_5496 = BgL_forwardz00_7872;
												goto BgL_statezd20zd21097z00_5495;
											}
										}
									else
										{	/* Ieee/input.scm 298 */
											BgL_matchz00_3309 = 1L;
										}
								}
							else
								{	/* Ieee/input.scm 298 */
									int BgL_curz00_5502;

									{	/* Ieee/input.scm 298 */
										obj_t BgL_tmpz00_7874;

										BgL_tmpz00_7874 = ((obj_t) BgL_ipz00_35);
										BgL_curz00_5502 =
											RGC_BUFFER_GET_CHAR(BgL_tmpz00_7874, BgL_forwardz00_5496);
									}
									{	/* Ieee/input.scm 298 */

										BgL_iportz00_3178 = BgL_ipz00_35;
										BgL_lastzd2matchzd2_3179 = 1L;
										BgL_forwardz00_3180 = (1L + BgL_forwardz00_5496);
										BgL_bufposz00_3181 = BgL_bufposz00_5497;
									BgL_zc3z04anonymousza32360ze3z87_3182:
										{	/* Ieee/input.scm 298 */
											long BgL_newzd2matchzd2_5432;

											{	/* Ieee/input.scm 298 */
												obj_t BgL_tmpz00_7877;

												BgL_tmpz00_7877 = ((obj_t) BgL_iportz00_3178);
												RGC_STOP_MATCH(BgL_tmpz00_7877, BgL_forwardz00_3180);
											}
											BgL_newzd2matchzd2_5432 = 0L;
											if ((BgL_forwardz00_3180 == BgL_bufposz00_3181))
												{	/* Ieee/input.scm 298 */
													if (rgc_fill_buffer(((obj_t) BgL_iportz00_3178)))
														{	/* Ieee/input.scm 298 */
															long BgL_arg2363z00_5435;
															long BgL_arg2364z00_5436;

															{	/* Ieee/input.scm 298 */
																obj_t BgL_tmpz00_7885;

																BgL_tmpz00_7885 = ((obj_t) BgL_iportz00_3178);
																BgL_arg2363z00_5435 =
																	RGC_BUFFER_FORWARD(BgL_tmpz00_7885);
															}
															{	/* Ieee/input.scm 298 */
																obj_t BgL_tmpz00_7888;

																BgL_tmpz00_7888 = ((obj_t) BgL_iportz00_3178);
																BgL_arg2364z00_5436 =
																	RGC_BUFFER_BUFPOS(BgL_tmpz00_7888);
															}
															{	/* Ieee/input.scm 298 */
																long BgL_newzd2matchzd2_5446;

																{	/* Ieee/input.scm 298 */
																	obj_t BgL_tmpz00_7891;

																	BgL_tmpz00_7891 = ((obj_t) BgL_iportz00_3178);
																	RGC_STOP_MATCH(BgL_tmpz00_7891,
																		BgL_arg2363z00_5435);
																}
																BgL_newzd2matchzd2_5446 = 0L;
																if (
																	(BgL_arg2363z00_5435 == BgL_arg2364z00_5436))
																	{	/* Ieee/input.scm 298 */
																		if (rgc_fill_buffer(
																				((obj_t) BgL_iportz00_3178)))
																			{	/* Ieee/input.scm 298 */
																				long BgL_arg2363z00_5449;
																				long BgL_arg2364z00_5450;

																				{	/* Ieee/input.scm 298 */
																					obj_t BgL_tmpz00_7899;

																					BgL_tmpz00_7899 =
																						((obj_t) BgL_iportz00_3178);
																					BgL_arg2363z00_5449 =
																						RGC_BUFFER_FORWARD(BgL_tmpz00_7899);
																				}
																				{	/* Ieee/input.scm 298 */
																					obj_t BgL_tmpz00_7902;

																					BgL_tmpz00_7902 =
																						((obj_t) BgL_iportz00_3178);
																					BgL_arg2364z00_5450 =
																						RGC_BUFFER_BUFPOS(BgL_tmpz00_7902);
																				}
																				{
																					long BgL_bufposz00_7906;
																					long BgL_forwardz00_7905;

																					BgL_forwardz00_7905 =
																						BgL_arg2363z00_5449;
																					BgL_bufposz00_7906 =
																						BgL_arg2364z00_5450;
																					BgL_bufposz00_3181 =
																						BgL_bufposz00_7906;
																					BgL_forwardz00_3180 =
																						BgL_forwardz00_7905;
																					goto
																						BgL_zc3z04anonymousza32360ze3z87_3182;
																				}
																			}
																		else
																			{	/* Ieee/input.scm 298 */
																				BgL_matchz00_3309 =
																					BgL_newzd2matchzd2_5446;
																			}
																	}
																else
																	{	/* Ieee/input.scm 298 */
																		int BgL_curz00_5451;

																		{	/* Ieee/input.scm 298 */
																			obj_t BgL_tmpz00_7907;

																			BgL_tmpz00_7907 =
																				((obj_t) BgL_iportz00_3178);
																			BgL_curz00_5451 =
																				RGC_BUFFER_GET_CHAR(BgL_tmpz00_7907,
																				BgL_arg2363z00_5435);
																		}
																		{	/* Ieee/input.scm 298 */

																			BgL_iportz00_3166 = BgL_iportz00_3178;
																			BgL_lastzd2matchzd2_3167 =
																				BgL_newzd2matchzd2_5446;
																			BgL_forwardz00_3168 =
																				(1L + BgL_arg2363z00_5435);
																			BgL_bufposz00_3169 = BgL_arg2364z00_5436;
																		BgL_zc3z04anonymousza32354ze3z87_3170:
																			{	/* Ieee/input.scm 298 */
																				long BgL_newzd2matchzd2_5381;

																				{	/* Ieee/input.scm 298 */
																					obj_t BgL_tmpz00_7910;

																					BgL_tmpz00_7910 =
																						((obj_t) BgL_iportz00_3166);
																					RGC_STOP_MATCH(BgL_tmpz00_7910,
																						BgL_forwardz00_3168);
																				}
																				BgL_newzd2matchzd2_5381 = 0L;
																				if (
																					(BgL_forwardz00_3168 ==
																						BgL_bufposz00_3169))
																					{	/* Ieee/input.scm 298 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_3166)))
																							{	/* Ieee/input.scm 298 */
																								long BgL_arg2357z00_5384;
																								long BgL_arg2358z00_5385;

																								{	/* Ieee/input.scm 298 */
																									obj_t BgL_tmpz00_7918;

																									BgL_tmpz00_7918 =
																										((obj_t) BgL_iportz00_3166);
																									BgL_arg2357z00_5384 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_7918);
																								}
																								{	/* Ieee/input.scm 298 */
																									obj_t BgL_tmpz00_7921;

																									BgL_tmpz00_7921 =
																										((obj_t) BgL_iportz00_3166);
																									BgL_arg2358z00_5385 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_7921);
																								}
																								{	/* Ieee/input.scm 298 */
																									long BgL_newzd2matchzd2_5395;

																									{	/* Ieee/input.scm 298 */
																										obj_t BgL_tmpz00_7924;

																										BgL_tmpz00_7924 =
																											((obj_t)
																											BgL_iportz00_3166);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7924,
																											BgL_arg2357z00_5384);
																									}
																									BgL_newzd2matchzd2_5395 = 0L;
																									if (
																										(BgL_arg2357z00_5384 ==
																											BgL_arg2358z00_5385))
																										{	/* Ieee/input.scm 298 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_3166)))
																												{	/* Ieee/input.scm 298 */
																													long
																														BgL_arg2357z00_5398;
																													long
																														BgL_arg2358z00_5399;
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_7932;
																														BgL_tmpz00_7932 =
																															((obj_t)
																															BgL_iportz00_3166);
																														BgL_arg2357z00_5398
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_7932);
																													}
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_7935;
																														BgL_tmpz00_7935 =
																															((obj_t)
																															BgL_iportz00_3166);
																														BgL_arg2358z00_5399
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_7935);
																													}
																													{
																														long
																															BgL_bufposz00_7939;
																														long
																															BgL_forwardz00_7938;
																														BgL_forwardz00_7938
																															=
																															BgL_arg2357z00_5398;
																														BgL_bufposz00_7939 =
																															BgL_arg2358z00_5399;
																														BgL_bufposz00_3169 =
																															BgL_bufposz00_7939;
																														BgL_forwardz00_3168
																															=
																															BgL_forwardz00_7938;
																														goto
																															BgL_zc3z04anonymousza32354ze3z87_3170;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 298 */
																													BgL_matchz00_3309 =
																														BgL_newzd2matchzd2_5395;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 298 */
																											int BgL_curz00_5400;

																											{	/* Ieee/input.scm 298 */
																												obj_t BgL_tmpz00_7940;

																												BgL_tmpz00_7940 =
																													((obj_t)
																													BgL_iportz00_3166);
																												BgL_curz00_5400 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_7940,
																													BgL_arg2357z00_5384);
																											}
																											{	/* Ieee/input.scm 298 */

																												{
																													long
																														BgL_bufposz00_7946;
																													long
																														BgL_forwardz00_7944;
																													long
																														BgL_lastzd2matchzd2_7943;
																													BgL_lastzd2matchzd2_7943
																														=
																														BgL_newzd2matchzd2_5395;
																													BgL_forwardz00_7944 =
																														(1L +
																														BgL_arg2357z00_5384);
																													BgL_bufposz00_7946 =
																														BgL_arg2358z00_5385;
																													BgL_bufposz00_3169 =
																														BgL_bufposz00_7946;
																													BgL_forwardz00_3168 =
																														BgL_forwardz00_7944;
																													BgL_lastzd2matchzd2_3167
																														=
																														BgL_lastzd2matchzd2_7943;
																													goto
																														BgL_zc3z04anonymousza32354ze3z87_3170;
																												}
																											}
																										}
																								}
																							}
																						else
																							{	/* Ieee/input.scm 298 */
																								BgL_matchz00_3309 =
																									BgL_newzd2matchzd2_5381;
																							}
																					}
																				else
																					{	/* Ieee/input.scm 298 */
																						int BgL_curz00_5386;

																						{	/* Ieee/input.scm 298 */
																							obj_t BgL_tmpz00_7947;

																							BgL_tmpz00_7947 =
																								((obj_t) BgL_iportz00_3166);
																							BgL_curz00_5386 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_7947,
																								BgL_forwardz00_3168);
																						}
																						{	/* Ieee/input.scm 298 */

																							{	/* Ieee/input.scm 298 */
																								long BgL_arg2359z00_5387;

																								BgL_arg2359z00_5387 =
																									(1L + BgL_forwardz00_3168);
																								{	/* Ieee/input.scm 298 */
																									long BgL_newzd2matchzd2_5415;

																									{	/* Ieee/input.scm 298 */
																										obj_t BgL_tmpz00_7951;

																										BgL_tmpz00_7951 =
																											((obj_t)
																											BgL_iportz00_3166);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7951,
																											BgL_arg2359z00_5387);
																									}
																									BgL_newzd2matchzd2_5415 = 0L;
																									if (
																										(BgL_arg2359z00_5387 ==
																											BgL_bufposz00_3169))
																										{	/* Ieee/input.scm 298 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_3166)))
																												{	/* Ieee/input.scm 298 */
																													long
																														BgL_arg2357z00_5418;
																													long
																														BgL_arg2358z00_5419;
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_7959;
																														BgL_tmpz00_7959 =
																															((obj_t)
																															BgL_iportz00_3166);
																														BgL_arg2357z00_5418
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_7959);
																													}
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_7962;
																														BgL_tmpz00_7962 =
																															((obj_t)
																															BgL_iportz00_3166);
																														BgL_arg2358z00_5419
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_7962);
																													}
																													{
																														long
																															BgL_bufposz00_7967;
																														long
																															BgL_forwardz00_7966;
																														long
																															BgL_lastzd2matchzd2_7965;
																														BgL_lastzd2matchzd2_7965
																															=
																															BgL_newzd2matchzd2_5381;
																														BgL_forwardz00_7966
																															=
																															BgL_arg2357z00_5418;
																														BgL_bufposz00_7967 =
																															BgL_arg2358z00_5419;
																														BgL_bufposz00_3169 =
																															BgL_bufposz00_7967;
																														BgL_forwardz00_3168
																															=
																															BgL_forwardz00_7966;
																														BgL_lastzd2matchzd2_3167
																															=
																															BgL_lastzd2matchzd2_7965;
																														goto
																															BgL_zc3z04anonymousza32354ze3z87_3170;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 298 */
																													BgL_matchz00_3309 =
																														BgL_newzd2matchzd2_5415;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 298 */
																											int BgL_curz00_5420;

																											{	/* Ieee/input.scm 298 */
																												obj_t BgL_tmpz00_7968;

																												BgL_tmpz00_7968 =
																													((obj_t)
																													BgL_iportz00_3166);
																												BgL_curz00_5420 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_7968,
																													BgL_arg2359z00_5387);
																											}
																											{	/* Ieee/input.scm 298 */

																												{
																													long
																														BgL_forwardz00_7972;
																													long
																														BgL_lastzd2matchzd2_7971;
																													BgL_lastzd2matchzd2_7971
																														=
																														BgL_newzd2matchzd2_5415;
																													BgL_forwardz00_7972 =
																														(1L +
																														BgL_arg2359z00_5387);
																													BgL_forwardz00_3168 =
																														BgL_forwardz00_7972;
																													BgL_lastzd2matchzd2_3167
																														=
																														BgL_lastzd2matchzd2_7971;
																													goto
																														BgL_zc3z04anonymousza32354ze3z87_3170;
																												}
																											}
																										}
																								}
																							}
																						}
																					}
																			}
																		}
																	}
															}
														}
													else
														{	/* Ieee/input.scm 298 */
															BgL_matchz00_3309 = BgL_newzd2matchzd2_5432;
														}
												}
											else
												{	/* Ieee/input.scm 298 */
													int BgL_curz00_5437;

													{	/* Ieee/input.scm 298 */
														obj_t BgL_tmpz00_7975;

														BgL_tmpz00_7975 = ((obj_t) BgL_iportz00_3178);
														BgL_curz00_5437 =
															RGC_BUFFER_GET_CHAR(BgL_tmpz00_7975,
															BgL_forwardz00_3180);
													}
													{	/* Ieee/input.scm 298 */

														{	/* Ieee/input.scm 298 */
															long BgL_arg2365z00_5438;

															BgL_arg2365z00_5438 = (1L + BgL_forwardz00_3180);
															{
																long BgL_lastzd2matchzd2_5467;
																long BgL_forwardz00_5468;
																long BgL_bufposz00_5469;

																BgL_lastzd2matchzd2_5467 =
																	BgL_newzd2matchzd2_5432;
																BgL_forwardz00_5468 = BgL_arg2365z00_5438;
																BgL_bufposz00_5469 = BgL_bufposz00_3181;
															BgL_statezd22zd21099z00_5466:
																{	/* Ieee/input.scm 298 */
																	long BgL_newzd2matchzd2_5470;

																	{	/* Ieee/input.scm 298 */
																		obj_t BgL_tmpz00_7979;

																		BgL_tmpz00_7979 =
																			((obj_t) BgL_iportz00_3178);
																		RGC_STOP_MATCH(BgL_tmpz00_7979,
																			BgL_forwardz00_5468);
																	}
																	BgL_newzd2matchzd2_5470 = 0L;
																	if (
																		(BgL_forwardz00_5468 == BgL_bufposz00_5469))
																		{	/* Ieee/input.scm 298 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_3178)))
																				{	/* Ieee/input.scm 298 */
																					long BgL_arg2357z00_5473;
																					long BgL_arg2358z00_5474;

																					{	/* Ieee/input.scm 298 */
																						obj_t BgL_tmpz00_7987;

																						BgL_tmpz00_7987 =
																							((obj_t) BgL_iportz00_3178);
																						BgL_arg2357z00_5473 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_7987);
																					}
																					{	/* Ieee/input.scm 298 */
																						obj_t BgL_tmpz00_7990;

																						BgL_tmpz00_7990 =
																							((obj_t) BgL_iportz00_3178);
																						BgL_arg2358z00_5474 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_7990);
																					}
																					{
																						long BgL_bufposz00_7994;
																						long BgL_forwardz00_7993;

																						BgL_forwardz00_7993 =
																							BgL_arg2357z00_5473;
																						BgL_bufposz00_7994 =
																							BgL_arg2358z00_5474;
																						BgL_bufposz00_5469 =
																							BgL_bufposz00_7994;
																						BgL_forwardz00_5468 =
																							BgL_forwardz00_7993;
																						goto BgL_statezd22zd21099z00_5466;
																					}
																				}
																			else
																				{	/* Ieee/input.scm 298 */
																					BgL_matchz00_3309 =
																						BgL_newzd2matchzd2_5470;
																				}
																		}
																	else
																		{	/* Ieee/input.scm 298 */
																			int BgL_curz00_5475;

																			{	/* Ieee/input.scm 298 */
																				obj_t BgL_tmpz00_7995;

																				BgL_tmpz00_7995 =
																					((obj_t) BgL_iportz00_3178);
																				BgL_curz00_5475 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_7995,
																					BgL_forwardz00_5468);
																			}
																			{	/* Ieee/input.scm 298 */

																				{
																					long BgL_forwardz00_7999;
																					long BgL_lastzd2matchzd2_7998;

																					BgL_lastzd2matchzd2_7998 =
																						BgL_newzd2matchzd2_5470;
																					BgL_forwardz00_7999 =
																						(1L + BgL_forwardz00_5468);
																					BgL_forwardz00_5468 =
																						BgL_forwardz00_7999;
																					BgL_lastzd2matchzd2_5467 =
																						BgL_lastzd2matchzd2_7998;
																					goto BgL_statezd22zd21099z00_5466;
																				}
																			}
																		}
																}
															}
														}
													}
												}
										}
									}
								}
						}
					}
					{	/* Ieee/input.scm 298 */
						obj_t BgL_tmpz00_8002;

						BgL_tmpz00_8002 = ((obj_t) BgL_ipz00_35);
						RGC_SET_FILEPOS(BgL_tmpz00_8002);
					}
					{

						switch (BgL_matchz00_3309)
							{
							case 1L:

								return BGl_string3511z00zz__r4_input_6_10_2z00;
								break;
							case 0L:

								{	/* Ieee/input.scm 298 */
									long BgL_arg2373z00_5513;

									{	/* Ieee/input.scm 298 */
										obj_t BgL_tmpz00_8005;

										BgL_tmpz00_8005 = ((obj_t) BgL_ipz00_35);
										BgL_arg2373z00_5513 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_8005);
									}
									return
										rgc_buffer_substring(
										((obj_t) BgL_ipz00_35), 0L, BgL_arg2373z00_5513);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3498z00zz__r4_input_6_10_2z00,
									BGl_string3499z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_3309));
							}
					}
				}
			}
		}

	}



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

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

						{	/* Ieee/input.scm 320 */
							obj_t BgL_ipz00_3348;

							{	/* Ieee/input.scm 320 */
								obj_t BgL_tmpz00_8013;

								BgL_tmpz00_8013 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3348 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8013);
							}
							{	/* Ieee/input.scm 320 */

								return
									BGl_z62zc3z04anonymousza31398ze3ze5zz__r4_input_6_10_2z00
									(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00,
									BgL_ipz00_3348);
							}
						}
						break;
					case 1L:

						{	/* Ieee/input.scm 320 */
							obj_t BgL_ipz00_3349;

							BgL_ipz00_3349 = VECTOR_REF(BgL_opt1279z00_39, 0L);
							{	/* Ieee/input.scm 320 */

								return
									BGl_z62zc3z04anonymousza31398ze3ze5zz__r4_input_6_10_2z00
									(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00,
									BgL_ipz00_3349);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



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

	}



/* _read-chars */
	obj_t BGl__readzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_env1284z00_44,
		obj_t BgL_opt1283z00_43)
	{
		{	/* Ieee/input.scm 326 */
			{	/* Ieee/input.scm 326 */
				obj_t BgL_g1285z00_3350;

				BgL_g1285z00_3350 = VECTOR_REF(BgL_opt1283z00_43, 0L);
				switch (VECTOR_LENGTH(BgL_opt1283z00_43))
					{
					case 1L:

						{	/* Ieee/input.scm 326 */
							obj_t BgL_ipz00_3353;

							{	/* Ieee/input.scm 326 */
								obj_t BgL_tmpz00_8032;

								BgL_tmpz00_8032 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3353 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8032);
							}
							{	/* Ieee/input.scm 326 */

								return
									BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1285z00_3350,
									BgL_ipz00_3353);
							}
						}
						break;
					case 2L:

						{	/* Ieee/input.scm 326 */
							obj_t BgL_ipz00_3354;

							BgL_ipz00_3354 = VECTOR_REF(BgL_opt1283z00_43, 1L);
							{	/* Ieee/input.scm 326 */

								return
									BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1285z00_3350,
									BgL_ipz00_3354);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-chars */
	BGL_EXPORTED_DEF obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t
		BgL_lz00_41, obj_t BgL_ipz00_42)
	{
		{	/* Ieee/input.scm 326 */
			{	/* Ieee/input.scm 327 */
				obj_t BgL_lenz00_3355;

				if (INTEGERP(BgL_lz00_41))
					{	/* Ieee/input.scm 328 */
						BgL_lenz00_3355 = BgL_lz00_41;
					}
				else
					{	/* Ieee/input.scm 328 */
						if (ELONGP(BgL_lz00_41))
							{	/* Ieee/input.scm 329 */
								long BgL_xz00_5519;

								BgL_xz00_5519 = BELONG_TO_LONG(BgL_lz00_41);
								BgL_lenz00_3355 = BINT((long) (BgL_xz00_5519));
							}
						else
							{	/* Ieee/input.scm 329 */
								if (LLONGP(BgL_lz00_41))
									{	/* Ieee/input.scm 330 */
										BGL_LONGLONG_T BgL_xz00_5520;

										BgL_xz00_5520 = BLLONG_TO_LLONG(BgL_lz00_41);
										BgL_lenz00_3355 = BINT(LLONG_TO_LONG(BgL_xz00_5520));
									}
								else
									{	/* Ieee/input.scm 332 */
										obj_t BgL_arg2479z00_3372;

										BgL_arg2479z00_3372 = bgl_find_runtime_type(BgL_lz00_41);
										BgL_lenz00_3355 =
											BGl_bigloozd2typezd2errorz00zz__errorz00
											(BGl_symbol3512z00zz__r4_input_6_10_2z00,
											BGl_string3514z00zz__r4_input_6_10_2z00,
											BgL_arg2479z00_3372);
									}
							}
					}
				if (((long) CINT(BgL_lenz00_3355) <= 0L))
					{	/* Ieee/input.scm 334 */
						if (((long) CINT(BgL_lenz00_3355) == 0L))
							{	/* Ieee/input.scm 335 */
								return BGl_string3511z00zz__r4_input_6_10_2z00;
							}
						else
							{	/* Ieee/input.scm 338 */
								BgL_z62iozd2errorzb0_bglt BgL_arg2468z00_3358;

								{	/* Ieee/input.scm 338 */
									BgL_z62iozd2errorzb0_bglt BgL_new1118z00_3359;

									{	/* Ieee/input.scm 338 */
										BgL_z62iozd2errorzb0_bglt BgL_new1117z00_3362;

										BgL_new1117z00_3362 =
											((BgL_z62iozd2errorzb0_bglt)
											BOBJECT(GC_MALLOC(sizeof(struct
														BgL_z62iozd2errorzb0_bgl))));
										{	/* Ieee/input.scm 338 */
											long BgL_arg2472z00_3363;

											BgL_arg2472z00_3363 =
												BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1117z00_3362),
												BgL_arg2472z00_3363);
										}
										BgL_new1118z00_3359 = BgL_new1117z00_3362;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1118z00_3359)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1118z00_3359)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									{
										obj_t BgL_auxz00_8068;

										{	/* Ieee/input.scm 338 */
											obj_t BgL_arg2469z00_3360;

											{	/* Ieee/input.scm 338 */
												obj_t BgL_arg2471z00_3361;

												{	/* Ieee/input.scm 338 */
													obj_t BgL_classz00_5526;

													BgL_classz00_5526 = BGl_z62iozd2errorzb0zz__objectz00;
													BgL_arg2471z00_3361 =
														BGL_CLASS_ALL_FIELDS(BgL_classz00_5526);
												}
												BgL_arg2469z00_3360 =
													VECTOR_REF(BgL_arg2471z00_3361, 2L);
											}
											BgL_auxz00_8068 =
												BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
												(BgL_arg2469z00_3360);
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1118z00_3359)))->
												BgL_stackz00) = ((obj_t) BgL_auxz00_8068), BUNSPEC);
									}
									((((BgL_z62errorz62_bglt) COBJECT(
													((BgL_z62errorz62_bglt) BgL_new1118z00_3359)))->
											BgL_procz00) =
										((obj_t) BGl_symbol3512z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1118z00_3359)))->BgL_msgz00) =
										((obj_t) BGl_string3515z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1118z00_3359)))->BgL_objz00) =
										((obj_t) BgL_lenz00_3355), BUNSPEC);
									BgL_arg2468z00_3358 = BgL_new1118z00_3359;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2468z00_3358));
							}
					}
				else
					{	/* Ieee/input.scm 343 */
						obj_t BgL_sz00_3364;

						BgL_sz00_3364 = make_string_sans_fill((long) CINT(BgL_lenz00_3355));
						{	/* Ieee/input.scm 343 */
							long BgL_nz00_3365;

							BgL_nz00_3365 =
								bgl_rgc_blit_string(BgL_ipz00_42,
								BSTRING_TO_STRING(BgL_sz00_3364), 0L,
								(long) CINT(BgL_lenz00_3355));
							{	/* Ieee/input.scm 344 */

								if ((BgL_nz00_3365 == 0L))
									{	/* Ieee/input.scm 346 */
										if (rgc_buffer_eof_p(((obj_t) BgL_ipz00_42)))
											{	/* Ieee/input.scm 347 */
												return BEOF;
											}
										else
											{	/* Ieee/input.scm 347 */
												return BGl_string3511z00zz__r4_input_6_10_2z00;
											}
									}
								else
									{	/* Ieee/input.scm 346 */
										if ((BgL_nz00_3365 < (long) CINT(BgL_lenz00_3355)))
											{	/* Ieee/input.scm 350 */
												return bgl_string_shrink(BgL_sz00_3364, BgL_nz00_3365);
											}
										else
											{	/* Ieee/input.scm 350 */
												return BgL_sz00_3364;
											}
									}
							}
						}
					}
			}
		}

	}



/* _read-chars! */
	obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1289z00_49,
		obj_t BgL_opt1288z00_48)
	{
		{	/* Ieee/input.scm 358 */
			{	/* Ieee/input.scm 358 */
				obj_t BgL_g1290z00_3373;
				obj_t BgL_g1291z00_3374;

				BgL_g1290z00_3373 = VECTOR_REF(BgL_opt1288z00_48, 0L);
				BgL_g1291z00_3374 = VECTOR_REF(BgL_opt1288z00_48, 1L);
				switch (VECTOR_LENGTH(BgL_opt1288z00_48))
					{
					case 2L:

						{	/* Ieee/input.scm 358 */
							obj_t BgL_ipz00_3377;

							{	/* Ieee/input.scm 358 */
								obj_t BgL_tmpz00_8098;

								BgL_tmpz00_8098 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3377 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8098);
							}
							{	/* Ieee/input.scm 358 */

								{	/* Ieee/input.scm 358 */
									obj_t BgL_auxz00_8101;

									if (STRINGP(BgL_g1290z00_3373))
										{	/* Ieee/input.scm 358 */
											BgL_auxz00_8101 = BgL_g1290z00_3373;
										}
									else
										{
											obj_t BgL_auxz00_8104;

											BgL_auxz00_8104 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(13935L),
												BGl_string3516z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1290z00_3373);
											FAILURE(BgL_auxz00_8104, BFALSE, BFALSE);
										}
									return
										BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8101, BgL_g1291z00_3374, BgL_ipz00_3377);
								}
							}
						}
						break;
					case 3L:

						{	/* Ieee/input.scm 358 */
							obj_t BgL_ipz00_3378;

							BgL_ipz00_3378 = VECTOR_REF(BgL_opt1288z00_48, 2L);
							{	/* Ieee/input.scm 358 */

								{	/* Ieee/input.scm 358 */
									obj_t BgL_auxz00_8110;

									if (STRINGP(BgL_g1290z00_3373))
										{	/* Ieee/input.scm 358 */
											BgL_auxz00_8110 = BgL_g1290z00_3373;
										}
									else
										{
											obj_t BgL_auxz00_8113;

											BgL_auxz00_8113 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(13935L),
												BGl_string3516z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1290z00_3373);
											FAILURE(BgL_auxz00_8113, BFALSE, BFALSE);
										}
									return
										BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8110, BgL_g1291z00_3374, BgL_ipz00_3378);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-chars! */
	BGL_EXPORTED_DEF obj_t BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t
		BgL_bufz00_45, obj_t BgL_lz00_46, obj_t BgL_ipz00_47)
	{
		{	/* Ieee/input.scm 358 */
			{	/* Ieee/input.scm 359 */
				obj_t BgL_lenz00_3379;

				if (INTEGERP(BgL_lz00_46))
					{	/* Ieee/input.scm 360 */
						BgL_lenz00_3379 = BgL_lz00_46;
					}
				else
					{	/* Ieee/input.scm 360 */
						if (ELONGP(BgL_lz00_46))
							{	/* Ieee/input.scm 361 */
								long BgL_xz00_5535;

								BgL_xz00_5535 = BELONG_TO_LONG(BgL_lz00_46);
								BgL_lenz00_3379 = BINT((long) (BgL_xz00_5535));
							}
						else
							{	/* Ieee/input.scm 361 */
								if (LLONGP(BgL_lz00_46))
									{	/* Ieee/input.scm 362 */
										BGL_LONGLONG_T BgL_xz00_5536;

										BgL_xz00_5536 = BLLONG_TO_LLONG(BgL_lz00_46);
										BgL_lenz00_3379 = BINT(LLONG_TO_LONG(BgL_xz00_5536));
									}
								else
									{	/* Ieee/input.scm 364 */
										obj_t BgL_arg2494z00_3395;

										BgL_arg2494z00_3395 = bgl_find_runtime_type(BgL_lz00_46);
										BgL_lenz00_3379 =
											BGl_bigloozd2typezd2errorz00zz__errorz00
											(BGl_symbol3518z00zz__r4_input_6_10_2z00,
											BGl_string3514z00zz__r4_input_6_10_2z00,
											BgL_arg2494z00_3395);
									}
							}
					}
				if (((long) CINT(BgL_lenz00_3379) <= 0L))
					{	/* Ieee/input.scm 365 */
						if (((long) CINT(BgL_lenz00_3379) == 0L))
							{	/* Ieee/input.scm 366 */
								return BINT(0L);
							}
						else
							{	/* Ieee/input.scm 369 */
								BgL_z62iozd2errorzb0_bglt BgL_arg2482z00_3382;

								{	/* Ieee/input.scm 369 */
									BgL_z62iozd2errorzb0_bglt BgL_new1122z00_3383;

									{	/* Ieee/input.scm 369 */
										BgL_z62iozd2errorzb0_bglt BgL_new1120z00_3386;

										BgL_new1120z00_3386 =
											((BgL_z62iozd2errorzb0_bglt)
											BOBJECT(GC_MALLOC(sizeof(struct
														BgL_z62iozd2errorzb0_bgl))));
										{	/* Ieee/input.scm 369 */
											long BgL_arg2486z00_3387;

											BgL_arg2486z00_3387 =
												BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1120z00_3386),
												BgL_arg2486z00_3387);
										}
										BgL_new1122z00_3383 = BgL_new1120z00_3386;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1122z00_3383)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1122z00_3383)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									{
										obj_t BgL_auxz00_8149;

										{	/* Ieee/input.scm 369 */
											obj_t BgL_arg2483z00_3384;

											{	/* Ieee/input.scm 369 */
												obj_t BgL_arg2485z00_3385;

												{	/* Ieee/input.scm 369 */
													obj_t BgL_classz00_5542;

													BgL_classz00_5542 = BGl_z62iozd2errorzb0zz__objectz00;
													BgL_arg2485z00_3385 =
														BGL_CLASS_ALL_FIELDS(BgL_classz00_5542);
												}
												BgL_arg2483z00_3384 =
													VECTOR_REF(BgL_arg2485z00_3385, 2L);
											}
											BgL_auxz00_8149 =
												BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
												(BgL_arg2483z00_3384);
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1122z00_3383)))->
												BgL_stackz00) = ((obj_t) BgL_auxz00_8149), BUNSPEC);
									}
									((((BgL_z62errorz62_bglt) COBJECT(
													((BgL_z62errorz62_bglt) BgL_new1122z00_3383)))->
											BgL_procz00) =
										((obj_t) BGl_symbol3512z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1122z00_3383)))->BgL_msgz00) =
										((obj_t) BGl_string3515z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1122z00_3383)))->BgL_objz00) =
										((obj_t) BgL_lenz00_3379), BUNSPEC);
									BgL_arg2482z00_3382 = BgL_new1122z00_3383;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2482z00_3382));
							}
					}
				else
					{	/* Ieee/input.scm 373 */
						obj_t BgL_arg2488z00_3388;

						{	/* Ieee/input.scm 373 */
							long BgL_az00_3389;

							BgL_az00_3389 = STRING_LENGTH(BgL_bufz00_45);
							if ((BgL_az00_3389 < (long) CINT(BgL_lenz00_3379)))
								{	/* Ieee/input.scm 373 */
									BgL_arg2488z00_3388 = BINT(BgL_az00_3389);
								}
							else
								{	/* Ieee/input.scm 373 */
									BgL_arg2488z00_3388 = BgL_lenz00_3379;
								}
						}
						return
							BINT(bgl_rgc_blit_string(BgL_ipz00_47,
								BSTRING_TO_STRING(BgL_bufz00_45), 0L,
								(long) CINT(BgL_arg2488z00_3388)));
		}}}

	}



/* _read-fill-string! */
	obj_t BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t
		BgL_env1295z00_55, obj_t BgL_opt1294z00_54)
	{
		{	/* Ieee/input.scm 378 */
			{	/* Ieee/input.scm 378 */
				obj_t BgL_g1296z00_6508;
				obj_t BgL_g1297z00_6509;
				obj_t BgL_g1298z00_6510;

				BgL_g1296z00_6508 = VECTOR_REF(BgL_opt1294z00_54, 0L);
				BgL_g1297z00_6509 = VECTOR_REF(BgL_opt1294z00_54, 1L);
				BgL_g1298z00_6510 = VECTOR_REF(BgL_opt1294z00_54, 2L);
				switch (VECTOR_LENGTH(BgL_opt1294z00_54))
					{
					case 3L:

						{	/* Ieee/input.scm 378 */
							obj_t BgL_ipz00_6511;

							{	/* Ieee/input.scm 378 */
								obj_t BgL_tmpz00_8175;

								BgL_tmpz00_8175 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_6511 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8175);
							}
							{	/* Ieee/input.scm 378 */

								{	/* Ieee/input.scm 378 */
									obj_t BgL_sz00_6512;
									long BgL_oz00_6513;
									long BgL_lenz00_6514;

									if (STRINGP(BgL_g1296z00_6508))
										{	/* Ieee/input.scm 378 */
											BgL_sz00_6512 = BgL_g1296z00_6508;
										}
									else
										{
											obj_t BgL_auxz00_8180;

											BgL_auxz00_8180 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(14652L),
												BGl_string3520z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1296z00_6508);
											FAILURE(BgL_auxz00_8180, BFALSE, BFALSE);
										}
									{	/* Ieee/input.scm 378 */
										obj_t BgL_tmpz00_8184;

										if (INTEGERP(BgL_g1297z00_6509))
											{	/* Ieee/input.scm 378 */
												BgL_tmpz00_8184 = BgL_g1297z00_6509;
											}
										else
											{
												obj_t BgL_auxz00_8187;

												BgL_auxz00_8187 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(14652L), BGl_string3520z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1297z00_6509);
												FAILURE(BgL_auxz00_8187, BFALSE, BFALSE);
											}
										BgL_oz00_6513 = (long) CINT(BgL_tmpz00_8184);
									}
									{	/* Ieee/input.scm 378 */
										obj_t BgL_tmpz00_8192;

										if (INTEGERP(BgL_g1298z00_6510))
											{	/* Ieee/input.scm 378 */
												BgL_tmpz00_8192 = BgL_g1298z00_6510;
											}
										else
											{
												obj_t BgL_auxz00_8195;

												BgL_auxz00_8195 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(14652L), BGl_string3520z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1298z00_6510);
												FAILURE(BgL_auxz00_8195, BFALSE, BFALSE);
											}
										BgL_lenz00_6514 = (long) CINT(BgL_tmpz00_8192);
									}
									{	/* Ieee/input.scm 382 */
										long BgL_nz00_6515;

										BgL_nz00_6515 =
											bgl_rgc_blit_string(BgL_ipz00_6511,
											BSTRING_TO_STRING(BgL_sz00_6512), BgL_oz00_6513,
											BgL_lenz00_6514);
										{	/* Ieee/input.scm 383 */
											bool_t BgL_test3799z00_8202;

											if ((BgL_nz00_6515 == 0L))
												{	/* Ieee/input.scm 383 */
													BgL_test3799z00_8202 =
														rgc_buffer_eof_p(BgL_ipz00_6511);
												}
											else
												{	/* Ieee/input.scm 383 */
													BgL_test3799z00_8202 = ((bool_t) 0);
												}
											if (BgL_test3799z00_8202)
												{	/* Ieee/input.scm 383 */
													return BEOF;
												}
											else
												{	/* Ieee/input.scm 383 */
													return BINT(BgL_nz00_6515);
												}
										}
									}
								}
							}
						}
						break;
					case 4L:

						{	/* Ieee/input.scm 378 */
							obj_t BgL_ipz00_6516;

							BgL_ipz00_6516 = VECTOR_REF(BgL_opt1294z00_54, 3L);
							{	/* Ieee/input.scm 378 */

								{	/* Ieee/input.scm 378 */
									obj_t BgL_sz00_6517;
									long BgL_oz00_6518;
									long BgL_lenz00_6519;

									if (STRINGP(BgL_g1296z00_6508))
										{	/* Ieee/input.scm 378 */
											BgL_sz00_6517 = BgL_g1296z00_6508;
										}
									else
										{
											obj_t BgL_auxz00_8210;

											BgL_auxz00_8210 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(14652L),
												BGl_string3520z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1296z00_6508);
											FAILURE(BgL_auxz00_8210, BFALSE, BFALSE);
										}
									{	/* Ieee/input.scm 378 */
										obj_t BgL_tmpz00_8214;

										if (INTEGERP(BgL_g1297z00_6509))
											{	/* Ieee/input.scm 378 */
												BgL_tmpz00_8214 = BgL_g1297z00_6509;
											}
										else
											{
												obj_t BgL_auxz00_8217;

												BgL_auxz00_8217 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(14652L), BGl_string3520z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1297z00_6509);
												FAILURE(BgL_auxz00_8217, BFALSE, BFALSE);
											}
										BgL_oz00_6518 = (long) CINT(BgL_tmpz00_8214);
									}
									{	/* Ieee/input.scm 378 */
										obj_t BgL_tmpz00_8222;

										if (INTEGERP(BgL_g1298z00_6510))
											{	/* Ieee/input.scm 378 */
												BgL_tmpz00_8222 = BgL_g1298z00_6510;
											}
										else
											{
												obj_t BgL_auxz00_8225;

												BgL_auxz00_8225 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(14652L), BGl_string3520z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1298z00_6510);
												FAILURE(BgL_auxz00_8225, BFALSE, BFALSE);
											}
										BgL_lenz00_6519 = (long) CINT(BgL_tmpz00_8222);
									}
									{	/* Ieee/input.scm 382 */
										long BgL_nz00_6520;

										{	/* Ieee/input.scm 382 */
											obj_t BgL_tmpz00_8230;

											if (INPUT_PORTP(BgL_ipz00_6516))
												{	/* Ieee/input.scm 382 */
													BgL_tmpz00_8230 = BgL_ipz00_6516;
												}
											else
												{
													obj_t BgL_auxz00_8233;

													BgL_auxz00_8233 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3505z00zz__r4_input_6_10_2z00,
														BINT(14866L),
														BGl_string3520z00zz__r4_input_6_10_2z00,
														BGl_string3508z00zz__r4_input_6_10_2z00,
														BgL_ipz00_6516);
													FAILURE(BgL_auxz00_8233, BFALSE, BFALSE);
												}
											BgL_nz00_6520 =
												bgl_rgc_blit_string(BgL_tmpz00_8230,
												BSTRING_TO_STRING(BgL_sz00_6517), BgL_oz00_6518,
												BgL_lenz00_6519);
										}
										{	/* Ieee/input.scm 383 */
											bool_t BgL_test3805z00_8239;

											if ((BgL_nz00_6520 == 0L))
												{	/* Ieee/input.scm 383 */
													obj_t BgL_tmpz00_8242;

													if (INPUT_PORTP(BgL_ipz00_6516))
														{	/* Ieee/input.scm 383 */
															BgL_tmpz00_8242 = BgL_ipz00_6516;
														}
													else
														{
															obj_t BgL_auxz00_8245;

															BgL_auxz00_8245 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3505z00zz__r4_input_6_10_2z00,
																BINT(14920L),
																BGl_string3520z00zz__r4_input_6_10_2z00,
																BGl_string3508z00zz__r4_input_6_10_2z00,
																BgL_ipz00_6516);
															FAILURE(BgL_auxz00_8245, BFALSE, BFALSE);
														}
													BgL_test3805z00_8239 =
														rgc_buffer_eof_p(BgL_tmpz00_8242);
												}
											else
												{	/* Ieee/input.scm 383 */
													BgL_test3805z00_8239 = ((bool_t) 0);
												}
											if (BgL_test3805z00_8239)
												{	/* Ieee/input.scm 383 */
													return BEOF;
												}
											else
												{	/* Ieee/input.scm 383 */
													return BINT(BgL_nz00_6520);
												}
										}
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* read-fill-string! */
	BGL_EXPORTED_DEF obj_t
		BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t BgL_sz00_50,
		long BgL_oz00_51, long BgL_lenz00_52, obj_t BgL_ipz00_53)
	{
		{	/* Ieee/input.scm 378 */
			{	/* Ieee/input.scm 382 */
				long BgL_nz00_6521;

				BgL_nz00_6521 =
					bgl_rgc_blit_string(BgL_ipz00_53,
					BSTRING_TO_STRING(BgL_sz00_50), BgL_oz00_51, BgL_lenz00_52);
				{	/* Ieee/input.scm 383 */
					bool_t BgL_test3808z00_8255;

					if ((BgL_nz00_6521 == 0L))
						{	/* Ieee/input.scm 383 */
							BgL_test3808z00_8255 = rgc_buffer_eof_p(BgL_ipz00_53);
						}
					else
						{	/* Ieee/input.scm 383 */
							BgL_test3808z00_8255 = ((bool_t) 0);
						}
					if (BgL_test3808z00_8255)
						{	/* Ieee/input.scm 383 */
							return BEOF;
						}
					else
						{	/* Ieee/input.scm 383 */
							return BINT(BgL_nz00_6521);
						}
				}
			}
		}

	}



/* _unread-char! */
	obj_t BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1302z00_59,
		obj_t BgL_opt1301z00_58)
	{
		{	/* Ieee/input.scm 401 */
			{	/* Ieee/input.scm 401 */
				obj_t BgL_g1303z00_3407;

				BgL_g1303z00_3407 = VECTOR_REF(BgL_opt1301z00_58, 0L);
				switch (VECTOR_LENGTH(BgL_opt1301z00_58))
					{
					case 1L:

						{	/* Ieee/input.scm 401 */
							obj_t BgL_ipz00_3410;

							{	/* Ieee/input.scm 401 */
								obj_t BgL_tmpz00_8261;

								BgL_tmpz00_8261 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3410 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8261);
							}
							{	/* Ieee/input.scm 401 */

								{	/* Ieee/input.scm 401 */
									unsigned char BgL_auxz00_8264;

									{	/* Ieee/input.scm 401 */
										obj_t BgL_tmpz00_8265;

										if (CHARP(BgL_g1303z00_3407))
											{	/* Ieee/input.scm 401 */
												BgL_tmpz00_8265 = BgL_g1303z00_3407;
											}
										else
											{
												obj_t BgL_auxz00_8268;

												BgL_auxz00_8268 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(15535L), BGl_string3522z00zz__r4_input_6_10_2z00,
													BGl_string3523z00zz__r4_input_6_10_2z00,
													BgL_g1303z00_3407);
												FAILURE(BgL_auxz00_8268, BFALSE, BFALSE);
											}
										BgL_auxz00_8264 = CCHAR(BgL_tmpz00_8265);
									}
									return
										BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8264, BgL_ipz00_3410);
								}
							}
						}
						break;
					case 2L:

						{	/* Ieee/input.scm 401 */
							obj_t BgL_ipz00_3411;

							BgL_ipz00_3411 = VECTOR_REF(BgL_opt1301z00_58, 1L);
							{	/* Ieee/input.scm 401 */

								{	/* Ieee/input.scm 401 */
									unsigned char BgL_auxz00_8275;

									{	/* Ieee/input.scm 401 */
										obj_t BgL_tmpz00_8276;

										if (CHARP(BgL_g1303z00_3407))
											{	/* Ieee/input.scm 401 */
												BgL_tmpz00_8276 = BgL_g1303z00_3407;
											}
										else
											{
												obj_t BgL_auxz00_8279;

												BgL_auxz00_8279 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(15535L), BGl_string3522z00zz__r4_input_6_10_2z00,
													BGl_string3523z00zz__r4_input_6_10_2z00,
													BgL_g1303z00_3407);
												FAILURE(BgL_auxz00_8279, BFALSE, BFALSE);
											}
										BgL_auxz00_8275 = CCHAR(BgL_tmpz00_8276);
									}
									return
										BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8275, BgL_ipz00_3411);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* unread-char! */
	BGL_EXPORTED_DEF obj_t BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00(unsigned
		char BgL_cz00_56, obj_t BgL_ipz00_57)
	{
		{	/* Ieee/input.scm 401 */
			{	/* Ieee/input.scm 402 */
				bool_t BgL_test3812z00_8287;

				{	/* Ieee/input.scm 402 */
					long BgL_arg2504z00_3420;

					BgL_arg2504z00_3420 = ((unsigned char) (BgL_cz00_56));
					BgL_test3812z00_8287 =
						rgc_buffer_insert_char(
						((obj_t) BgL_ipz00_57), (int) (BgL_arg2504z00_3420));
				}
				if (BgL_test3812z00_8287)
					{	/* Ieee/input.scm 402 */
						return BFALSE;
					}
				else
					{	/* Ieee/input.scm 404 */
						BgL_z62iozd2errorzb0_bglt BgL_arg2499z00_3414;

						{	/* Ieee/input.scm 404 */
							BgL_z62iozd2errorzb0_bglt BgL_new1128z00_3415;

							{	/* Ieee/input.scm 404 */
								BgL_z62iozd2errorzb0_bglt BgL_new1127z00_3418;

								BgL_new1127z00_3418 =
									((BgL_z62iozd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_z62iozd2errorzb0_bgl))));
								{	/* Ieee/input.scm 404 */
									long BgL_arg2503z00_3419;

									BgL_arg2503z00_3419 =
										BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1127z00_3418),
										BgL_arg2503z00_3419);
								}
								BgL_new1128z00_3415 = BgL_new1127z00_3418;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1128z00_3415)))->
									BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1128z00_3415)))->BgL_locationz00) =
								((obj_t) BFALSE), BUNSPEC);
							{
								obj_t BgL_auxz00_8301;

								{	/* Ieee/input.scm 404 */
									obj_t BgL_arg2501z00_3416;

									{	/* Ieee/input.scm 404 */
										obj_t BgL_arg2502z00_3417;

										{	/* Ieee/input.scm 404 */
											obj_t BgL_classz00_5580;

											BgL_classz00_5580 = BGl_z62iozd2errorzb0zz__objectz00;
											BgL_arg2502z00_3417 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_5580);
										}
										BgL_arg2501z00_3416 = VECTOR_REF(BgL_arg2502z00_3417, 2L);
									}
									BgL_auxz00_8301 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg2501z00_3416);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1128z00_3415)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_8301), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1128z00_3415)))->
									BgL_procz00) =
								((obj_t) BGl_symbol3524z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1128z00_3415)))->BgL_msgz00) =
								((obj_t) BGl_string3526z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1128z00_3415)))->BgL_objz00) =
								((obj_t) BCHAR(BgL_cz00_56)), BUNSPEC);
							BgL_arg2499z00_3414 = BgL_new1128z00_3415;
						}
						return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2499z00_3414));
					}
			}
		}

	}



/* _unread-string! */
	obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t
		BgL_env1307z00_63, obj_t BgL_opt1306z00_62)
	{
		{	/* Ieee/input.scm 412 */
			{	/* Ieee/input.scm 412 */
				obj_t BgL_g1308z00_3421;

				BgL_g1308z00_3421 = VECTOR_REF(BgL_opt1306z00_62, 0L);
				switch (VECTOR_LENGTH(BgL_opt1306z00_62))
					{
					case 1L:

						{	/* Ieee/input.scm 412 */
							obj_t BgL_ipz00_3424;

							{	/* Ieee/input.scm 412 */
								obj_t BgL_tmpz00_8317;

								BgL_tmpz00_8317 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3424 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8317);
							}
							{	/* Ieee/input.scm 412 */

								{	/* Ieee/input.scm 412 */
									obj_t BgL_auxz00_8320;

									if (STRINGP(BgL_g1308z00_3421))
										{	/* Ieee/input.scm 412 */
											BgL_auxz00_8320 = BgL_g1308z00_3421;
										}
									else
										{
											obj_t BgL_auxz00_8323;

											BgL_auxz00_8323 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(15998L),
												BGl_string3527z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1308z00_3421);
											FAILURE(BgL_auxz00_8323, BFALSE, BFALSE);
										}
									return
										BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8320, BgL_ipz00_3424);
								}
							}
						}
						break;
					case 2L:

						{	/* Ieee/input.scm 412 */
							obj_t BgL_ipz00_3425;

							BgL_ipz00_3425 = VECTOR_REF(BgL_opt1306z00_62, 1L);
							{	/* Ieee/input.scm 412 */

								{	/* Ieee/input.scm 412 */
									obj_t BgL_auxz00_8329;

									if (STRINGP(BgL_g1308z00_3421))
										{	/* Ieee/input.scm 412 */
											BgL_auxz00_8329 = BgL_g1308z00_3421;
										}
									else
										{
											obj_t BgL_auxz00_8332;

											BgL_auxz00_8332 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(15998L),
												BGl_string3527z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1308z00_3421);
											FAILURE(BgL_auxz00_8332, BFALSE, BFALSE);
										}
									return
										BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8329, BgL_ipz00_3425);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* unread-string! */
	BGL_EXPORTED_DEF obj_t BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t
		BgL_strz00_60, obj_t BgL_ipz00_61)
	{
		{	/* Ieee/input.scm 412 */
			{	/* Ieee/input.scm 413 */
				bool_t BgL_test3815z00_8339;

				{	/* Ieee/input.scm 413 */
					long BgL_arg2515z00_3434;

					BgL_arg2515z00_3434 = STRING_LENGTH(BgL_strz00_60);
					BgL_test3815z00_8339 =
						rgc_buffer_insert_substring(
						((obj_t) BgL_ipz00_61), BgL_strz00_60, 0L, BgL_arg2515z00_3434);
				}
				if (BgL_test3815z00_8339)
					{	/* Ieee/input.scm 413 */
						return BFALSE;
					}
				else
					{	/* Ieee/input.scm 415 */
						BgL_z62iozd2errorzb0_bglt BgL_arg2508z00_3428;

						{	/* Ieee/input.scm 415 */
							BgL_z62iozd2errorzb0_bglt BgL_new1132z00_3429;

							{	/* Ieee/input.scm 415 */
								BgL_z62iozd2errorzb0_bglt BgL_new1131z00_3432;

								BgL_new1131z00_3432 =
									((BgL_z62iozd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_z62iozd2errorzb0_bgl))));
								{	/* Ieee/input.scm 415 */
									long BgL_arg2514z00_3433;

									BgL_arg2514z00_3433 =
										BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1131z00_3432),
										BgL_arg2514z00_3433);
								}
								BgL_new1132z00_3429 = BgL_new1131z00_3432;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1132z00_3429)))->
									BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1132z00_3429)))->BgL_locationz00) =
								((obj_t) BFALSE), BUNSPEC);
							{
								obj_t BgL_auxz00_8351;

								{	/* Ieee/input.scm 415 */
									obj_t BgL_arg2509z00_3430;

									{	/* Ieee/input.scm 415 */
										obj_t BgL_arg2512z00_3431;

										{	/* Ieee/input.scm 415 */
											obj_t BgL_classz00_5590;

											BgL_classz00_5590 = BGl_z62iozd2errorzb0zz__objectz00;
											BgL_arg2512z00_3431 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_5590);
										}
										BgL_arg2509z00_3430 = VECTOR_REF(BgL_arg2512z00_3431, 2L);
									}
									BgL_auxz00_8351 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg2509z00_3430);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1132z00_3429)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_8351), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1132z00_3429)))->
									BgL_procz00) =
								((obj_t) BGl_symbol3528z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1132z00_3429)))->BgL_msgz00) =
								((obj_t) BGl_string3530z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1132z00_3429)))->BgL_objz00) =
								((obj_t) BgL_strz00_60), BUNSPEC);
							BgL_arg2508z00_3428 = BgL_new1132z00_3429;
						}
						return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2508z00_3428));
					}
			}
		}

	}



/* _unread-substring! */
	obj_t BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t
		BgL_env1312z00_69, obj_t BgL_opt1311z00_68)
	{
		{	/* Ieee/input.scm 423 */
			{	/* Ieee/input.scm 423 */
				obj_t BgL_g1313z00_3435;
				obj_t BgL_g1314z00_3436;
				obj_t BgL_g1315z00_3437;

				BgL_g1313z00_3435 = VECTOR_REF(BgL_opt1311z00_68, 0L);
				BgL_g1314z00_3436 = VECTOR_REF(BgL_opt1311z00_68, 1L);
				BgL_g1315z00_3437 = VECTOR_REF(BgL_opt1311z00_68, 2L);
				switch (VECTOR_LENGTH(BgL_opt1311z00_68))
					{
					case 3L:

						{	/* Ieee/input.scm 424 */
							obj_t BgL_ipz00_3440;

							{	/* Ieee/input.scm 424 */
								obj_t BgL_tmpz00_8368;

								BgL_tmpz00_8368 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_ipz00_3440 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8368);
							}
							{	/* Ieee/input.scm 423 */

								{	/* Ieee/input.scm 423 */
									long BgL_auxz00_8387;
									long BgL_auxz00_8378;
									obj_t BgL_auxz00_8371;

									{	/* Ieee/input.scm 423 */
										obj_t BgL_tmpz00_8388;

										if (INTEGERP(BgL_g1315z00_3437))
											{	/* Ieee/input.scm 423 */
												BgL_tmpz00_8388 = BgL_g1315z00_3437;
											}
										else
											{
												obj_t BgL_auxz00_8391;

												BgL_auxz00_8391 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(16490L), BGl_string3531z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1315z00_3437);
												FAILURE(BgL_auxz00_8391, BFALSE, BFALSE);
											}
										BgL_auxz00_8387 = (long) CINT(BgL_tmpz00_8388);
									}
									{	/* Ieee/input.scm 423 */
										obj_t BgL_tmpz00_8379;

										if (INTEGERP(BgL_g1314z00_3436))
											{	/* Ieee/input.scm 423 */
												BgL_tmpz00_8379 = BgL_g1314z00_3436;
											}
										else
											{
												obj_t BgL_auxz00_8382;

												BgL_auxz00_8382 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(16490L), BGl_string3531z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1314z00_3436);
												FAILURE(BgL_auxz00_8382, BFALSE, BFALSE);
											}
										BgL_auxz00_8378 = (long) CINT(BgL_tmpz00_8379);
									}
									if (STRINGP(BgL_g1313z00_3435))
										{	/* Ieee/input.scm 423 */
											BgL_auxz00_8371 = BgL_g1313z00_3435;
										}
									else
										{
											obj_t BgL_auxz00_8374;

											BgL_auxz00_8374 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(16490L),
												BGl_string3531z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1313z00_3435);
											FAILURE(BgL_auxz00_8374, BFALSE, BFALSE);
										}
									return
										BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8371, BgL_auxz00_8378, BgL_auxz00_8387,
										BgL_ipz00_3440);
								}
							}
						}
						break;
					case 4L:

						{	/* Ieee/input.scm 423 */
							obj_t BgL_ipz00_3441;

							BgL_ipz00_3441 = VECTOR_REF(BgL_opt1311z00_68, 3L);
							{	/* Ieee/input.scm 423 */

								{	/* Ieee/input.scm 423 */
									long BgL_auxz00_8414;
									long BgL_auxz00_8405;
									obj_t BgL_auxz00_8398;

									{	/* Ieee/input.scm 423 */
										obj_t BgL_tmpz00_8415;

										if (INTEGERP(BgL_g1315z00_3437))
											{	/* Ieee/input.scm 423 */
												BgL_tmpz00_8415 = BgL_g1315z00_3437;
											}
										else
											{
												obj_t BgL_auxz00_8418;

												BgL_auxz00_8418 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(16490L), BGl_string3531z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1315z00_3437);
												FAILURE(BgL_auxz00_8418, BFALSE, BFALSE);
											}
										BgL_auxz00_8414 = (long) CINT(BgL_tmpz00_8415);
									}
									{	/* Ieee/input.scm 423 */
										obj_t BgL_tmpz00_8406;

										if (INTEGERP(BgL_g1314z00_3436))
											{	/* Ieee/input.scm 423 */
												BgL_tmpz00_8406 = BgL_g1314z00_3436;
											}
										else
											{
												obj_t BgL_auxz00_8409;

												BgL_auxz00_8409 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(16490L), BGl_string3531z00zz__r4_input_6_10_2z00,
													BGl_string3521z00zz__r4_input_6_10_2z00,
													BgL_g1314z00_3436);
												FAILURE(BgL_auxz00_8409, BFALSE, BFALSE);
											}
										BgL_auxz00_8405 = (long) CINT(BgL_tmpz00_8406);
									}
									if (STRINGP(BgL_g1313z00_3435))
										{	/* Ieee/input.scm 423 */
											BgL_auxz00_8398 = BgL_g1313z00_3435;
										}
									else
										{
											obj_t BgL_auxz00_8401;

											BgL_auxz00_8401 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(16490L),
												BGl_string3531z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_g1313z00_3435);
											FAILURE(BgL_auxz00_8401, BFALSE, BFALSE);
										}
									return
										BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00
										(BgL_auxz00_8398, BgL_auxz00_8405, BgL_auxz00_8414,
										BgL_ipz00_3441);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* unread-substring! */
	BGL_EXPORTED_DEF obj_t
		BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t BgL_strz00_64,
		long BgL_fromz00_65, long BgL_toz00_66, obj_t BgL_ipz00_67)
	{
		{	/* Ieee/input.scm 423 */
			{	/* Ieee/input.scm 425 */
				bool_t BgL_test3822z00_8426;

				if ((BgL_toz00_66 >= BgL_fromz00_65))
					{	/* Ieee/input.scm 425 */
						if ((BgL_fromz00_65 < 0L))
							{	/* Ieee/input.scm 426 */
								BgL_test3822z00_8426 = ((bool_t) 1);
							}
						else
							{	/* Ieee/input.scm 426 */
								BgL_test3822z00_8426 =
									(BgL_toz00_66 > STRING_LENGTH(BgL_strz00_64));
							}
					}
				else
					{	/* Ieee/input.scm 425 */
						BgL_test3822z00_8426 = ((bool_t) 1);
					}
				if (BgL_test3822z00_8426)
					{	/* Ieee/input.scm 428 */
						BgL_z62iozd2errorzb0_bglt BgL_arg2520z00_3446;

						{	/* Ieee/input.scm 428 */
							BgL_z62iozd2errorzb0_bglt BgL_new1136z00_3447;

							{	/* Ieee/input.scm 428 */
								BgL_z62iozd2errorzb0_bglt BgL_new1135z00_3454;

								BgL_new1135z00_3454 =
									((BgL_z62iozd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_z62iozd2errorzb0_bgl))));
								{	/* Ieee/input.scm 428 */
									long BgL_arg2535z00_3455;

									BgL_arg2535z00_3455 =
										BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1135z00_3454),
										BgL_arg2535z00_3455);
								}
								BgL_new1136z00_3447 = BgL_new1135z00_3454;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1136z00_3447)))->
									BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1136z00_3447)))->BgL_locationz00) =
								((obj_t) BFALSE), BUNSPEC);
							{
								obj_t BgL_auxz00_8441;

								{	/* Ieee/input.scm 428 */
									obj_t BgL_arg2524z00_3448;

									{	/* Ieee/input.scm 428 */
										obj_t BgL_arg2527z00_3449;

										{	/* Ieee/input.scm 428 */
											obj_t BgL_classz00_5602;

											BgL_classz00_5602 = BGl_z62iozd2errorzb0zz__objectz00;
											BgL_arg2527z00_3449 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_5602);
										}
										BgL_arg2524z00_3448 = VECTOR_REF(BgL_arg2527z00_3449, 2L);
									}
									BgL_auxz00_8441 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg2524z00_3448);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1136z00_3447)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_8441), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1136z00_3447)))->
									BgL_procz00) =
								((obj_t) BGl_symbol3532z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1136z00_3447)))->BgL_msgz00) =
								((obj_t) BGl_string3534z00zz__r4_input_6_10_2z00), BUNSPEC);
							{
								obj_t BgL_auxz00_8451;

								{	/* Ieee/input.scm 431 */
									long BgL_arg2528z00_3450;

									BgL_arg2528z00_3450 = STRING_LENGTH(BgL_strz00_64);
									{	/* Ieee/input.scm 431 */
										obj_t BgL_list2529z00_3451;

										{	/* Ieee/input.scm 431 */
											obj_t BgL_arg2531z00_3452;

											{	/* Ieee/input.scm 431 */
												obj_t BgL_arg2532z00_3453;

												BgL_arg2532z00_3453 =
													MAKE_YOUNG_PAIR(BINT(BgL_arg2528z00_3450), BNIL);
												BgL_arg2531z00_3452 =
													MAKE_YOUNG_PAIR(BINT(BgL_toz00_66),
													BgL_arg2532z00_3453);
											}
											BgL_list2529z00_3451 =
												MAKE_YOUNG_PAIR(BINT(BgL_fromz00_65),
												BgL_arg2531z00_3452);
										}
										BgL_auxz00_8451 = BgL_list2529z00_3451;
								}}
								((((BgL_z62errorz62_bglt) COBJECT(
												((BgL_z62errorz62_bglt) BgL_new1136z00_3447)))->
										BgL_objz00) = ((obj_t) BgL_auxz00_8451), BUNSPEC);
							}
							BgL_arg2520z00_3446 = BgL_new1136z00_3447;
						}
						BGl_raisez00zz__errorz00(((obj_t) BgL_arg2520z00_3446));
					}
				else
					{	/* Ieee/input.scm 425 */
						BFALSE;
					}
			}
			if (rgc_buffer_insert_substring(
					((obj_t) BgL_ipz00_67), BgL_strz00_64, BgL_fromz00_65, BgL_toz00_66))
				{	/* Ieee/input.scm 432 */
					return BFALSE;
				}
			else
				{	/* Ieee/input.scm 433 */
					BgL_z62iozd2errorzb0_bglt BgL_arg2539z00_3460;

					{	/* Ieee/input.scm 433 */
						BgL_z62iozd2errorzb0_bglt BgL_new1138z00_3461;

						{	/* Ieee/input.scm 433 */
							BgL_z62iozd2errorzb0_bglt BgL_new1137z00_3464;

							BgL_new1137z00_3464 =
								((BgL_z62iozd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2errorzb0_bgl))));
							{	/* Ieee/input.scm 433 */
								long BgL_arg2545z00_3465;

								BgL_arg2545z00_3465 =
									BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1137z00_3464),
									BgL_arg2545z00_3465);
							}
							BgL_new1138z00_3461 = BgL_new1137z00_3464;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1138z00_3461)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1138z00_3461)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_8474;

							{	/* Ieee/input.scm 433 */
								obj_t BgL_arg2540z00_3462;

								{	/* Ieee/input.scm 433 */
									obj_t BgL_arg2541z00_3463;

									{	/* Ieee/input.scm 433 */
										obj_t BgL_classz00_5613;

										BgL_classz00_5613 = BGl_z62iozd2errorzb0zz__objectz00;
										BgL_arg2541z00_3463 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_5613);
									}
									BgL_arg2540z00_3462 = VECTOR_REF(BgL_arg2541z00_3463, 2L);
								}
								BgL_auxz00_8474 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg2540z00_3462);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1138z00_3461)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_8474), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1138z00_3461)))->
								BgL_procz00) =
							((obj_t) BGl_symbol3535z00zz__r4_input_6_10_2z00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1138z00_3461)))->BgL_msgz00) =
							((obj_t) BGl_string3530z00zz__r4_input_6_10_2z00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1138z00_3461)))->BgL_objz00) =
							((obj_t) BgL_strz00_64), BUNSPEC);
						BgL_arg2539z00_3460 = BgL_new1138z00_3461;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2539z00_3460));
				}
		}

	}



/* port->string-list */
	BGL_EXPORTED_DEF obj_t
		BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(obj_t BgL_ipz00_70)
	{
		{	/* Ieee/input.scm 441 */
			{
				obj_t BgL_resz00_5622;

				BgL_resz00_5622 = BNIL;
			BgL_loopz00_5621:
				{	/* Ieee/input.scm 443 */
					obj_t BgL_expz00_5626;

					BgL_expz00_5626 =
						BGl_z62zc3z04anonymousza31398ze3ze5zz__r4_input_6_10_2z00
						(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00,
						BgL_ipz00_70);
					if (EOF_OBJECTP(BgL_expz00_5626))
						{	/* Ieee/input.scm 444 */
							return bgl_reverse_bang(BgL_resz00_5622);
						}
					else
						{	/* Ieee/input.scm 446 */
							obj_t BgL_arg2549z00_5628;

							BgL_arg2549z00_5628 =
								MAKE_YOUNG_PAIR(BgL_expz00_5626, BgL_resz00_5622);
							{
								obj_t BgL_resz00_8496;

								BgL_resz00_8496 = BgL_arg2549z00_5628;
								BgL_resz00_5622 = BgL_resz00_8496;
								goto BgL_loopz00_5621;
							}
						}
				}
			}
		}

	}



/* &port->string-list */
	obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6253, obj_t BgL_ipz00_6254)
	{
		{	/* Ieee/input.scm 441 */
			{	/* Ieee/input.scm 442 */
				obj_t BgL_auxz00_8497;

				if (INPUT_PORTP(BgL_ipz00_6254))
					{	/* Ieee/input.scm 442 */
						BgL_auxz00_8497 = BgL_ipz00_6254;
					}
				else
					{
						obj_t BgL_auxz00_8500;

						BgL_auxz00_8500 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(17251L),
							BGl_string3537z00zz__r4_input_6_10_2z00,
							BGl_string3508z00zz__r4_input_6_10_2z00, BgL_ipz00_6254);
						FAILURE(BgL_auxz00_8500, BFALSE, BFALSE);
					}
				return
					BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(BgL_auxz00_8497);
			}
		}

	}



/* %sendchars */
	int BGl_z52sendcharsz52zz__r4_input_6_10_2z00(obj_t BgL_ipz00_71,
		obj_t BgL_opz00_72, long BgL_sza7za7_73, long BgL_offsetz00_74)
	{
		{	/* Ieee/input.scm 455 */
			if ((BgL_offsetz00_74 >= 0L))
				{	/* Ieee/input.scm 456 */
					BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00
						(BgL_ipz00_71, BgL_offsetz00_74);
				}
			else
				{	/* Ieee/input.scm 456 */
					BFALSE;
				}
			{	/* Ieee/input.scm 457 */
				long BgL_bufsiza7eza7_3475;

				if ((BgL_sza7za7_73 == -1L))
					{	/* Ieee/input.scm 458 */
						BgL_bufsiza7eza7_3475 = BGL_INPUT_PORT_BUFSIZ(BgL_ipz00_71);
					}
				else
					{	/* Ieee/input.scm 458 */
						if ((default_io_bufsiz < BgL_sza7za7_73))
							{	/* Ieee/input.scm 460 */
								BgL_bufsiza7eza7_3475 = default_io_bufsiz;
							}
						else
							{	/* Ieee/input.scm 460 */
								BgL_bufsiza7eza7_3475 = BgL_sza7za7_73;
							}
					}
				{	/* Ieee/input.scm 457 */
					obj_t BgL_bufz00_3476;

					{	/* Ieee/string.scm 168 */

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

						if ((BgL_sza7za7_73 < 0L))
							{
								long BgL_charszd2readzd2_3481;

								{	/* Ieee/input.scm 468 */
									long BgL_tmpz00_8516;

									BgL_charszd2readzd2_3481 = 0L;
								BgL_zc3z04anonymousza32552ze3z87_3482:
									{	/* Ieee/input.scm 469 */
										obj_t BgL_nz00_3483;

										BgL_nz00_3483 =
											BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
											(BgL_bufz00_3476, BINT(BgL_bufsiza7eza7_3475),
											BgL_ipz00_71);
										if (((long) CINT(BgL_nz00_3483) == 0L))
											{	/* Ieee/input.scm 470 */
												bgl_flush_output_port(BgL_opz00_72);
												BgL_tmpz00_8516 = BgL_charszd2readzd2_3481;
											}
										else
											{	/* Ieee/input.scm 474 */
												obj_t BgL_sz00_3485;

												if (
													((long) CINT(BgL_nz00_3483) < BgL_bufsiza7eza7_3475))
													{	/* Ieee/input.scm 474 */
														BgL_sz00_3485 =
															c_substring(BgL_bufz00_3476, 0L,
															(long) CINT(BgL_nz00_3483));
													}
												else
													{	/* Ieee/input.scm 474 */
														BgL_sz00_3485 = BgL_bufz00_3476;
													}
												bgl_display_obj(BgL_sz00_3485, BgL_opz00_72);
												{
													long BgL_charszd2readzd2_8529;

													BgL_charszd2readzd2_8529 =
														(BgL_charszd2readzd2_3481 +
														(long) CINT(BgL_nz00_3483));
													BgL_charszd2readzd2_3481 = BgL_charszd2readzd2_8529;
													goto BgL_zc3z04anonymousza32552ze3z87_3482;
												}
											}
									}
									return (int) (BgL_tmpz00_8516);
							}}
						else
							{
								long BgL_charszd2readzd2_3490;
								long BgL_charszd2tozd2readz00_3491;
								long BgL_sza7za7_3492;

								{	/* Ieee/input.scm 477 */
									long BgL_tmpz00_8533;

									BgL_charszd2readzd2_3490 = 0L;
									BgL_charszd2tozd2readz00_3491 = BgL_bufsiza7eza7_3475;
									BgL_sza7za7_3492 = BgL_sza7za7_73;
								BgL_zc3z04anonymousza32556ze3z87_3493:
									if ((BgL_charszd2tozd2readz00_3491 == 0L))
										{	/* Ieee/input.scm 480 */
											BgL_tmpz00_8533 = BgL_charszd2readzd2_3490;
										}
									else
										{	/* Ieee/input.scm 482 */
											obj_t BgL_nz00_3495;

											BgL_nz00_3495 =
												BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
												(BgL_bufz00_3476, BINT(BgL_charszd2tozd2readz00_3491),
												BgL_ipz00_71);
											if (((long) CINT(BgL_nz00_3495) == 0L))
												{	/* Ieee/input.scm 483 */
													bgl_flush_output_port(BgL_opz00_72);
													BgL_tmpz00_8533 = BgL_charszd2readzd2_3490;
												}
											else
												{	/* Ieee/input.scm 487 */
													obj_t BgL_sz00_3497;

													if (
														((long) CINT(BgL_nz00_3495) <
															BgL_bufsiza7eza7_3475))
														{	/* Ieee/input.scm 487 */
															BgL_sz00_3497 =
																c_substring(BgL_bufz00_3476, 0L,
																(long) CINT(BgL_nz00_3495));
														}
													else
														{	/* Ieee/input.scm 487 */
															BgL_sz00_3497 = BgL_bufz00_3476;
														}
													bgl_display_obj(BgL_sz00_3497, BgL_opz00_72);
													{	/* Ieee/input.scm 489 */
														long BgL_sza7za7_3498;

														BgL_sza7za7_3498 =
															(BgL_sza7za7_3492 - (long) CINT(BgL_nz00_3495));
														{	/* Ieee/input.scm 489 */
															long BgL_ctrz00_3499;

															if ((BgL_sza7za7_3498 < BgL_bufsiza7eza7_3475))
																{	/* Ieee/input.scm 490 */
																	BgL_ctrz00_3499 = BgL_sza7za7_3498;
																}
															else
																{	/* Ieee/input.scm 490 */
																	BgL_ctrz00_3499 = BgL_bufsiza7eza7_3475;
																}
															{	/* Ieee/input.scm 490 */

																{
																	long BgL_sza7za7_8556;
																	long BgL_charszd2tozd2readz00_8555;
																	long BgL_charszd2readzd2_8552;

																	BgL_charszd2readzd2_8552 =
																		(BgL_charszd2readzd2_3490 +
																		(long) CINT(BgL_nz00_3495));
																	BgL_charszd2tozd2readz00_8555 =
																		BgL_ctrz00_3499;
																	BgL_sza7za7_8556 = BgL_sza7za7_3498;
																	BgL_sza7za7_3492 = BgL_sza7za7_8556;
																	BgL_charszd2tozd2readz00_3491 =
																		BgL_charszd2tozd2readz00_8555;
																	BgL_charszd2readzd2_3490 =
																		BgL_charszd2readzd2_8552;
																	goto BgL_zc3z04anonymousza32556ze3z87_3493;
																}
															}
														}
													}
												}
										}
									return (int) (BgL_tmpz00_8533);
		}}}}}}

	}



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

				{	/* Ieee/string.scm 219 */

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

						{	/* Ieee/input.scm 503 */

							BgL_test3839z00_8563 =
								BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
								(BGl_string3538z00zz__r4_input_6_10_2z00, BgL_pathz00_75,
								BFALSE, BFALSE, BFALSE, BFALSE);
						}
						if (BgL_test3839z00_8563)
							{	/* Ieee/input.scm 504 */
								obj_t BgL_arg2571z00_3516;

								BgL_arg2571z00_3516 =
									c_substring(BgL_pathz00_75, 5L,
									STRING_LENGTH(BgL_pathz00_75));
								return
									bgl_file_to_string(BSTRING_TO_STRING(BgL_arg2571z00_3516));
							}
						else
							{	/* Ieee/input.scm 506 */
								obj_t BgL_ipz00_3518;

								{	/* Ieee/port.scm 460 */

									BgL_ipz00_3518 =
										BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
										(BgL_pathz00_75, BTRUE, BINT(5000000L));
								}
								{	/* Ieee/input.scm 507 */
									obj_t BgL_exitd1140z00_3519;

									BgL_exitd1140z00_3519 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/input.scm 509 */
										obj_t BgL_zc3z04anonymousza32573ze3z87_6255;

										BgL_zc3z04anonymousza32573ze3z87_6255 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32573ze3ze5zz__r4_input_6_10_2z00,
											(int) (0L), (int) (1L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32573ze3z87_6255,
											(int) (0L), BgL_ipz00_3518);
										{	/* Ieee/input.scm 507 */
											obj_t BgL_arg3334z00_5660;

											{	/* Ieee/input.scm 507 */
												obj_t BgL_arg3335z00_5661;

												BgL_arg3335z00_5661 =
													BGL_EXITD_PROTECT(BgL_exitd1140z00_3519);
												BgL_arg3334z00_5660 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32573ze3z87_6255,
													BgL_arg3335z00_5661);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1140z00_3519,
												BgL_arg3334z00_5660);
											BUNSPEC;
										}
										{	/* Ieee/input.scm 508 */
											obj_t BgL_tmp1142z00_3521;

											BgL_tmp1142z00_3521 =
												BGl_readzd2stringzd2zz__r4_input_6_10_2z00
												(BgL_ipz00_3518);
											{	/* Ieee/input.scm 507 */
												bool_t BgL_test3840z00_8581;

												{	/* Ieee/input.scm 507 */
													obj_t BgL_arg3333z00_5663;

													BgL_arg3333z00_5663 =
														BGL_EXITD_PROTECT(BgL_exitd1140z00_3519);
													BgL_test3840z00_8581 = PAIRP(BgL_arg3333z00_5663);
												}
												if (BgL_test3840z00_8581)
													{	/* Ieee/input.scm 507 */
														obj_t BgL_arg3331z00_5664;

														{	/* Ieee/input.scm 507 */
															obj_t BgL_arg3332z00_5665;

															BgL_arg3332z00_5665 =
																BGL_EXITD_PROTECT(BgL_exitd1140z00_3519);
															BgL_arg3331z00_5664 =
																CDR(((obj_t) BgL_arg3332z00_5665));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1140z00_3519,
															BgL_arg3331z00_5664);
														BUNSPEC;
													}
												else
													{	/* Ieee/input.scm 507 */
														BFALSE;
													}
											}
											bgl_close_input_port(((obj_t) BgL_ipz00_3518));
											return BgL_tmp1142z00_3521;
										}
									}
								}
							}
					}
				else
					{	/* Ieee/input.scm 501 */
						return bgl_file_to_string(BSTRING_TO_STRING(BgL_pathz00_75));
					}
			}
		}

	}



/* &file->string */
	obj_t BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00(obj_t BgL_envz00_6256,
		obj_t BgL_pathz00_6257)
	{
		{	/* Ieee/input.scm 496 */
			{	/* Ieee/input.scm 499 */
				obj_t BgL_auxz00_8592;

				if (STRINGP(BgL_pathz00_6257))
					{	/* Ieee/input.scm 499 */
						BgL_auxz00_8592 = BgL_pathz00_6257;
					}
				else
					{
						obj_t BgL_auxz00_8595;

						BgL_auxz00_8595 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(19354L),
							BGl_string3539z00zz__r4_input_6_10_2z00,
							BGl_string3517z00zz__r4_input_6_10_2z00, BgL_pathz00_6257);
						FAILURE(BgL_auxz00_8595, BFALSE, BFALSE);
					}
				return BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(BgL_auxz00_8592);
			}
		}

	}



/* &<@anonymous:2573> */
	obj_t BGl_z62zc3z04anonymousza32573ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6258)
	{
		{	/* Ieee/input.scm 507 */
			{	/* Ieee/input.scm 509 */
				obj_t BgL_ipz00_6259;

				BgL_ipz00_6259 = PROCEDURE_REF(BgL_envz00_6258, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6259));
			}
		}

	}



/* send-chars/size */
	BGL_EXPORTED_DEF long BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(obj_t
		BgL_ipz00_76, obj_t BgL_opz00_77, long BgL_siza7eza7_78,
		long BgL_offsetz00_79)
	{
		{	/* Ieee/input.scm 519 */
			{	/* Ieee/input.scm 521 */
				long BgL_sza7za7_5668;
				long BgL_offz00_5669;

				BgL_sza7za7_5668 = (long) (BgL_siza7eza7_78);
				BgL_offz00_5669 = (long) (BgL_offsetz00_79);
				{	/* Ieee/input.scm 525 */
					obj_t BgL__ortest_1144z00_5670;

					BgL__ortest_1144z00_5670 =
						bgl_sendchars(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_5668,
						BgL_offz00_5669);
					if (CBOOL(BgL__ortest_1144z00_5670))
						{	/* Ieee/input.scm 525 */
							return (long) CINT(BgL__ortest_1144z00_5670);
						}
					else
						{	/* Ieee/input.scm 527 */
							bool_t BgL_test3843z00_8610;

							if (INPUT_GZIP_PORTP(BgL_ipz00_76))
								{	/* Ieee/input.scm 527 */
									if ((BgL_sza7za7_5668 == -1L))
										{	/* Ieee/input.scm 527 */
											BgL_test3843z00_8610 = (BgL_offz00_5669 == -1L);
										}
									else
										{	/* Ieee/input.scm 527 */
											BgL_test3843z00_8610 = ((bool_t) 0);
										}
								}
							else
								{	/* Ieee/input.scm 527 */
									BgL_test3843z00_8610 = ((bool_t) 0);
								}
							if (BgL_test3843z00_8610)
								{	/* Ieee/input.scm 527 */
									return
										(long)
										CINT(BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7
										(BgL_ipz00_76, BgL_opz00_77));
								}
							else
								{	/* Ieee/input.scm 527 */
									return
										(long) (BGl_z52sendcharsz52zz__r4_input_6_10_2z00
										(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_5668,
											BgL_offz00_5669));
		}}}}}

	}



/* &send-chars/size */
	obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6260, obj_t BgL_ipz00_6261, obj_t BgL_opz00_6262,
		obj_t BgL_siza7eza7_6263, obj_t BgL_offsetz00_6264)
	{
		{	/* Ieee/input.scm 519 */
			{	/* Ieee/input.scm 521 */
				long BgL_tmpz00_8620;

				{	/* Ieee/input.scm 521 */
					long BgL_auxz00_8644;
					long BgL_auxz00_8635;
					obj_t BgL_auxz00_8628;
					obj_t BgL_auxz00_8621;

					{	/* Ieee/input.scm 521 */
						obj_t BgL_tmpz00_8645;

						if (ELONGP(BgL_offsetz00_6264))
							{	/* Ieee/input.scm 521 */
								BgL_tmpz00_8645 = BgL_offsetz00_6264;
							}
						else
							{
								obj_t BgL_auxz00_8648;

								BgL_auxz00_8648 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20115L),
									BGl_string3540z00zz__r4_input_6_10_2z00,
									BGl_string3542z00zz__r4_input_6_10_2z00, BgL_offsetz00_6264);
								FAILURE(BgL_auxz00_8648, BFALSE, BFALSE);
							}
						BgL_auxz00_8644 = BELONG_TO_LONG(BgL_tmpz00_8645);
					}
					{	/* Ieee/input.scm 521 */
						obj_t BgL_tmpz00_8636;

						if (ELONGP(BgL_siza7eza7_6263))
							{	/* Ieee/input.scm 521 */
								BgL_tmpz00_8636 = BgL_siza7eza7_6263;
							}
						else
							{
								obj_t BgL_auxz00_8639;

								BgL_auxz00_8639 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20115L),
									BGl_string3540z00zz__r4_input_6_10_2z00,
									BGl_string3542z00zz__r4_input_6_10_2z00, BgL_siza7eza7_6263);
								FAILURE(BgL_auxz00_8639, BFALSE, BFALSE);
							}
						BgL_auxz00_8635 = BELONG_TO_LONG(BgL_tmpz00_8636);
					}
					if (OUTPUT_PORTP(BgL_opz00_6262))
						{	/* Ieee/input.scm 521 */
							BgL_auxz00_8628 = BgL_opz00_6262;
						}
					else
						{
							obj_t BgL_auxz00_8631;

							BgL_auxz00_8631 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20115L),
								BGl_string3540z00zz__r4_input_6_10_2z00,
								BGl_string3541z00zz__r4_input_6_10_2z00, BgL_opz00_6262);
							FAILURE(BgL_auxz00_8631, BFALSE, BFALSE);
						}
					if (INPUT_PORTP(BgL_ipz00_6261))
						{	/* Ieee/input.scm 521 */
							BgL_auxz00_8621 = BgL_ipz00_6261;
						}
					else
						{
							obj_t BgL_auxz00_8624;

							BgL_auxz00_8624 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20115L),
								BGl_string3540z00zz__r4_input_6_10_2z00,
								BGl_string3508z00zz__r4_input_6_10_2z00, BgL_ipz00_6261);
							FAILURE(BgL_auxz00_8624, BFALSE, BFALSE);
						}
					BgL_tmpz00_8620 =
						BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_auxz00_8621,
						BgL_auxz00_8628, BgL_auxz00_8635, BgL_auxz00_8644);
				}
				return BINT(BgL_tmpz00_8620);
			}
		}

	}



/* _send-chars */
	obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_env1319z00_85,
		obj_t BgL_opt1318z00_84)
	{
		{	/* Ieee/input.scm 541 */
			{	/* Ieee/input.scm 541 */
				obj_t BgL_g1320z00_3544;
				obj_t BgL_g1321z00_3545;

				BgL_g1320z00_3544 = VECTOR_REF(BgL_opt1318z00_84, 0L);
				BgL_g1321z00_3545 = VECTOR_REF(BgL_opt1318z00_84, 1L);
				switch (VECTOR_LENGTH(BgL_opt1318z00_84))
					{
					case 2L:

						{	/* Ieee/input.scm 541 */

							{	/* Ieee/input.scm 541 */
								obj_t BgL_ipz00_5678;
								obj_t BgL_opz00_5679;

								if (INPUT_PORTP(BgL_g1320z00_3544))
									{	/* Ieee/input.scm 541 */
										BgL_ipz00_5678 = BgL_g1320z00_3544;
									}
								else
									{
										obj_t BgL_auxz00_8659;

										BgL_auxz00_8659 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20782L),
											BGl_string3543z00zz__r4_input_6_10_2z00,
											BGl_string3508z00zz__r4_input_6_10_2z00,
											BgL_g1320z00_3544);
										FAILURE(BgL_auxz00_8659, BFALSE, BFALSE);
									}
								if (OUTPUT_PORTP(BgL_g1321z00_3545))
									{	/* Ieee/input.scm 541 */
										BgL_opz00_5679 = BgL_g1321z00_3545;
									}
								else
									{
										obj_t BgL_auxz00_8665;

										BgL_auxz00_8665 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20782L),
											BGl_string3543z00zz__r4_input_6_10_2z00,
											BGl_string3541z00zz__r4_input_6_10_2z00,
											BgL_g1321z00_3545);
										FAILURE(BgL_auxz00_8665, BFALSE, BFALSE);
									}
								{	/* Ieee/input.scm 543 */
									long BgL_sza7za7_5680;
									long BgL_offz00_5681;

									BgL_sza7za7_5680 = (long) (-1L);
									BgL_offz00_5681 = (long) (-1L);
									return
										BINT(BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
										(BgL_ipz00_5678, BgL_opz00_5679, BgL_sza7za7_5680,
											BgL_offz00_5681));
								}
							}
						}
						break;
					case 3L:

						{	/* Ieee/input.scm 541 */
							obj_t BgL_siza7eza7_3550;

							BgL_siza7eza7_3550 = VECTOR_REF(BgL_opt1318z00_84, 2L);
							{	/* Ieee/input.scm 541 */

								{	/* Ieee/input.scm 541 */
									obj_t BgL_ipz00_5688;
									obj_t BgL_opz00_5689;

									if (INPUT_PORTP(BgL_g1320z00_3544))
										{	/* Ieee/input.scm 541 */
											BgL_ipz00_5688 = BgL_g1320z00_3544;
										}
									else
										{
											obj_t BgL_auxz00_8676;

											BgL_auxz00_8676 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20782L),
												BGl_string3543z00zz__r4_input_6_10_2z00,
												BGl_string3508z00zz__r4_input_6_10_2z00,
												BgL_g1320z00_3544);
											FAILURE(BgL_auxz00_8676, BFALSE, BFALSE);
										}
									if (OUTPUT_PORTP(BgL_g1321z00_3545))
										{	/* Ieee/input.scm 541 */
											BgL_opz00_5689 = BgL_g1321z00_3545;
										}
									else
										{
											obj_t BgL_auxz00_8682;

											BgL_auxz00_8682 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(20782L),
												BGl_string3543z00zz__r4_input_6_10_2z00,
												BGl_string3541z00zz__r4_input_6_10_2z00,
												BgL_g1321z00_3545);
											FAILURE(BgL_auxz00_8682, BFALSE, BFALSE);
										}
									{	/* Ieee/input.scm 543 */
										long BgL_sza7za7_5690;
										long BgL_offz00_5691;

										if (INTEGERP(BgL_siza7eza7_3550))
											{	/* Ieee/input.scm 544 */
												long BgL_tmpz00_8688;

												BgL_tmpz00_8688 = (long) CINT(BgL_siza7eza7_3550);
												BgL_sza7za7_5690 = (long) (BgL_tmpz00_8688);
											}
										else
											{	/* Ieee/input.scm 544 */
												if (ELONGP(BgL_siza7eza7_3550))
													{	/* Ieee/input.scm 545 */
														BgL_sza7za7_5690 =
															BELONG_TO_LONG(BgL_siza7eza7_3550);
													}
												else
													{	/* Ieee/input.scm 546 */
														obj_t BgL_tmpz00_8694;

														{	/* Ieee/input.scm 546 */
															obj_t BgL_aux3444z00_6352;

															BgL_aux3444z00_6352 =
																BGl_errorz00zz__errorz00
																(BGl_symbol3544z00zz__r4_input_6_10_2z00,
																BGl_string3546z00zz__r4_input_6_10_2z00,
																BgL_siza7eza7_3550);
															if (ELONGP(BgL_aux3444z00_6352))
																{	/* Ieee/input.scm 546 */
																	BgL_tmpz00_8694 = BgL_aux3444z00_6352;
																}
															else
																{
																	obj_t BgL_auxz00_8698;

																	BgL_auxz00_8698 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3505z00zz__r4_input_6_10_2z00,
																		BINT(20996L),
																		BGl_string3543z00zz__r4_input_6_10_2z00,
																		BGl_string3542z00zz__r4_input_6_10_2z00,
																		BgL_aux3444z00_6352);
																	FAILURE(BgL_auxz00_8698, BFALSE, BFALSE);
																}
														}
														BgL_sza7za7_5690 = BELONG_TO_LONG(BgL_tmpz00_8694);
													}
											}
										BgL_offz00_5691 = (long) (-1L);
										return
											BINT(BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
											(BgL_ipz00_5688, BgL_opz00_5689, BgL_sza7za7_5690,
												BgL_offz00_5691));
									}
								}
							}
						}
						break;
					case 4L:

						{	/* Ieee/input.scm 541 */
							obj_t BgL_siza7eza7_3552;

							BgL_siza7eza7_3552 = VECTOR_REF(BgL_opt1318z00_84, 2L);
							{	/* Ieee/input.scm 541 */
								obj_t BgL_offsetz00_3553;

								BgL_offsetz00_3553 = VECTOR_REF(BgL_opt1318z00_84, 3L);
								{	/* Ieee/input.scm 541 */

									{	/* Ieee/input.scm 541 */
										obj_t BgL_ipz00_5698;
										obj_t BgL_opz00_5699;

										if (INPUT_PORTP(BgL_g1320z00_3544))
											{	/* Ieee/input.scm 541 */
												BgL_ipz00_5698 = BgL_g1320z00_3544;
											}
										else
											{
												obj_t BgL_auxz00_8710;

												BgL_auxz00_8710 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(20782L), BGl_string3543z00zz__r4_input_6_10_2z00,
													BGl_string3508z00zz__r4_input_6_10_2z00,
													BgL_g1320z00_3544);
												FAILURE(BgL_auxz00_8710, BFALSE, BFALSE);
											}
										if (OUTPUT_PORTP(BgL_g1321z00_3545))
											{	/* Ieee/input.scm 541 */
												BgL_opz00_5699 = BgL_g1321z00_3545;
											}
										else
											{
												obj_t BgL_auxz00_8716;

												BgL_auxz00_8716 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(20782L), BGl_string3543z00zz__r4_input_6_10_2z00,
													BGl_string3541z00zz__r4_input_6_10_2z00,
													BgL_g1321z00_3545);
												FAILURE(BgL_auxz00_8716, BFALSE, BFALSE);
											}
										{	/* Ieee/input.scm 543 */
											long BgL_sza7za7_5700;
											long BgL_offz00_5701;

											if (INTEGERP(BgL_siza7eza7_3552))
												{	/* Ieee/input.scm 544 */
													long BgL_tmpz00_8722;

													BgL_tmpz00_8722 = (long) CINT(BgL_siza7eza7_3552);
													BgL_sza7za7_5700 = (long) (BgL_tmpz00_8722);
												}
											else
												{	/* Ieee/input.scm 544 */
													if (ELONGP(BgL_siza7eza7_3552))
														{	/* Ieee/input.scm 545 */
															BgL_sza7za7_5700 =
																BELONG_TO_LONG(BgL_siza7eza7_3552);
														}
													else
														{	/* Ieee/input.scm 546 */
															obj_t BgL_tmpz00_8728;

															{	/* Ieee/input.scm 546 */
																obj_t BgL_aux3450z00_6358;

																BgL_aux3450z00_6358 =
																	BGl_errorz00zz__errorz00
																	(BGl_symbol3544z00zz__r4_input_6_10_2z00,
																	BGl_string3546z00zz__r4_input_6_10_2z00,
																	BgL_siza7eza7_3552);
																if (ELONGP(BgL_aux3450z00_6358))
																	{	/* Ieee/input.scm 546 */
																		BgL_tmpz00_8728 = BgL_aux3450z00_6358;
																	}
																else
																	{
																		obj_t BgL_auxz00_8732;

																		BgL_auxz00_8732 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3505z00zz__r4_input_6_10_2z00,
																			BINT(20996L),
																			BGl_string3543z00zz__r4_input_6_10_2z00,
																			BGl_string3542z00zz__r4_input_6_10_2z00,
																			BgL_aux3450z00_6358);
																		FAILURE(BgL_auxz00_8732, BFALSE, BFALSE);
																	}
															}
															BgL_sza7za7_5700 =
																BELONG_TO_LONG(BgL_tmpz00_8728);
														}
												}
											if (INTEGERP(BgL_offsetz00_3553))
												{	/* Ieee/input.scm 548 */
													long BgL_tmpz00_8739;

													BgL_tmpz00_8739 = (long) CINT(BgL_offsetz00_3553);
													BgL_offz00_5701 = (long) (BgL_tmpz00_8739);
												}
											else
												{	/* Ieee/input.scm 548 */
													if (ELONGP(BgL_offsetz00_3553))
														{	/* Ieee/input.scm 549 */
															BgL_offz00_5701 =
																BELONG_TO_LONG(BgL_offsetz00_3553);
														}
													else
														{	/* Ieee/input.scm 550 */
															obj_t BgL_tmpz00_8745;

															{	/* Ieee/input.scm 550 */
																obj_t BgL_aux3452z00_6360;

																BgL_aux3452z00_6360 =
																	BGl_errorz00zz__errorz00
																	(BGl_symbol3544z00zz__r4_input_6_10_2z00,
																	BGl_string3547z00zz__r4_input_6_10_2z00,
																	BgL_offsetz00_3553);
																if (ELONGP(BgL_aux3452z00_6360))
																	{	/* Ieee/input.scm 550 */
																		BgL_tmpz00_8745 = BgL_aux3452z00_6360;
																	}
																else
																	{
																		obj_t BgL_auxz00_8749;

																		BgL_auxz00_8749 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3505z00zz__r4_input_6_10_2z00,
																			BINT(21141L),
																			BGl_string3543z00zz__r4_input_6_10_2z00,
																			BGl_string3542z00zz__r4_input_6_10_2z00,
																			BgL_aux3452z00_6360);
																		FAILURE(BgL_auxz00_8749, BFALSE, BFALSE);
																	}
															}
															BgL_offz00_5701 = BELONG_TO_LONG(BgL_tmpz00_8745);
														}
												}
											return
												BINT(BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
												(BgL_ipz00_5698, BgL_opz00_5699, BgL_sza7za7_5700,
													BgL_offz00_5701));
										}
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* send-chars */
	BGL_EXPORTED_DEF long BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t
		BgL_ipz00_80, obj_t BgL_opz00_81, obj_t BgL_siza7eza7_82,
		obj_t BgL_offsetz00_83)
	{
		{	/* Ieee/input.scm 541 */
			{	/* Ieee/input.scm 543 */
				long BgL_sza7za7_5708;
				long BgL_offz00_5709;

				if (INTEGERP(BgL_siza7eza7_82))
					{	/* Ieee/input.scm 544 */
						long BgL_tmpz00_8760;

						BgL_tmpz00_8760 = (long) CINT(BgL_siza7eza7_82);
						BgL_sza7za7_5708 = (long) (BgL_tmpz00_8760);
					}
				else
					{	/* Ieee/input.scm 544 */
						if (ELONGP(BgL_siza7eza7_82))
							{	/* Ieee/input.scm 545 */
								BgL_sza7za7_5708 = BELONG_TO_LONG(BgL_siza7eza7_82);
							}
						else
							{	/* Ieee/input.scm 546 */
								obj_t BgL_tmpz00_8766;

								BgL_tmpz00_8766 =
									BGl_errorz00zz__errorz00
									(BGl_symbol3544z00zz__r4_input_6_10_2z00,
									BGl_string3546z00zz__r4_input_6_10_2z00, BgL_siza7eza7_82);
								BgL_sza7za7_5708 = BELONG_TO_LONG(BgL_tmpz00_8766);
							}
					}
				if (INTEGERP(BgL_offsetz00_83))
					{	/* Ieee/input.scm 548 */
						long BgL_tmpz00_8771;

						BgL_tmpz00_8771 = (long) CINT(BgL_offsetz00_83);
						BgL_offz00_5709 = (long) (BgL_tmpz00_8771);
					}
				else
					{	/* Ieee/input.scm 548 */
						if (ELONGP(BgL_offsetz00_83))
							{	/* Ieee/input.scm 549 */
								BgL_offz00_5709 = BELONG_TO_LONG(BgL_offsetz00_83);
							}
						else
							{	/* Ieee/input.scm 550 */
								obj_t BgL_tmpz00_8777;

								BgL_tmpz00_8777 =
									BGl_errorz00zz__errorz00
									(BGl_symbol3544z00zz__r4_input_6_10_2z00,
									BGl_string3547z00zz__r4_input_6_10_2z00, BgL_offsetz00_83);
								BgL_offz00_5709 = BELONG_TO_LONG(BgL_tmpz00_8777);
							}
					}
				{	/* Ieee/input.scm 551 */
					long BgL_res3369z00_5730;

					{	/* Ieee/input.scm 521 */
						long BgL_sza7za7_5720;
						long BgL_offz00_5721;

						BgL_sza7za7_5720 = (long) (BgL_sza7za7_5708);
						BgL_offz00_5721 = (long) (BgL_offz00_5709);
						{	/* Ieee/input.scm 525 */
							obj_t BgL__ortest_1144z00_5722;

							BgL__ortest_1144z00_5722 =
								bgl_sendchars(BgL_ipz00_80, BgL_opz00_81, BgL_sza7za7_5720,
								BgL_offz00_5721);
							if (CBOOL(BgL__ortest_1144z00_5722))
								{	/* Ieee/input.scm 525 */
									BgL_res3369z00_5730 = (long) CINT(BgL__ortest_1144z00_5722);
								}
							else
								{	/* Ieee/input.scm 527 */
									bool_t BgL_test3870z00_8786;

									if (INPUT_GZIP_PORTP(BgL_ipz00_80))
										{	/* Ieee/input.scm 527 */
											if ((BgL_sza7za7_5720 == -1L))
												{	/* Ieee/input.scm 527 */
													BgL_test3870z00_8786 = (BgL_offz00_5721 == -1L);
												}
											else
												{	/* Ieee/input.scm 527 */
													BgL_test3870z00_8786 = ((bool_t) 0);
												}
										}
									else
										{	/* Ieee/input.scm 527 */
											BgL_test3870z00_8786 = ((bool_t) 0);
										}
									if (BgL_test3870z00_8786)
										{	/* Ieee/input.scm 527 */
											BgL_res3369z00_5730 =
												(long)
												CINT(BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7
												(BgL_ipz00_80, BgL_opz00_81));
										}
									else
										{	/* Ieee/input.scm 527 */
											BgL_res3369z00_5730 =
												(long) (BGl_z52sendcharsz52zz__r4_input_6_10_2z00
												(BgL_ipz00_80, BgL_opz00_81, BgL_sza7za7_5720,
													BgL_offz00_5721));
					}}}}
					return BgL_res3369z00_5730;
				}
			}
		}

	}



/* _send-file */
	obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t BgL_env1325z00_91,
		obj_t BgL_opt1324z00_90)
	{
		{	/* Ieee/input.scm 556 */
			{	/* Ieee/input.scm 556 */
				obj_t BgL_filez00_3560;
				obj_t BgL_opz00_3561;

				BgL_filez00_3560 = VECTOR_REF(BgL_opt1324z00_90, 0L);
				BgL_opz00_3561 = VECTOR_REF(BgL_opt1324z00_90, 1L);
				switch (VECTOR_LENGTH(BgL_opt1324z00_90))
					{
					case 2L:

						{	/* Ieee/input.scm 556 */

							{	/* Ieee/input.scm 556 */
								long BgL_res3370z00_5756;

								{	/* Ieee/input.scm 556 */
									obj_t BgL_filez00_5731;
									obj_t BgL_opz00_5732;

									if (STRINGP(BgL_filez00_3560))
										{	/* Ieee/input.scm 556 */
											BgL_filez00_5731 = BgL_filez00_3560;
										}
									else
										{
											obj_t BgL_auxz00_8800;

											BgL_auxz00_8800 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(21451L),
												BGl_string3548z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_filez00_3560);
											FAILURE(BgL_auxz00_8800, BFALSE, BFALSE);
										}
									if (OUTPUT_PORTP(BgL_opz00_3561))
										{	/* Ieee/input.scm 556 */
											BgL_opz00_5732 = BgL_opz00_3561;
										}
									else
										{
											obj_t BgL_auxz00_8806;

											BgL_auxz00_8806 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(21451L),
												BGl_string3548z00zz__r4_input_6_10_2z00,
												BGl_string3541z00zz__r4_input_6_10_2z00,
												BgL_opz00_3561);
											FAILURE(BgL_auxz00_8806, BFALSE, BFALSE);
										}
									{	/* Ieee/input.scm 560 */
										long BgL_sza7za7_5735;
										long BgL_offz00_5736;

										BgL_sza7za7_5735 = (long) (((long) -1));
										BgL_offz00_5736 = (long) (((long) -1));
										{	/* Ieee/input.scm 564 */
											obj_t BgL__ortest_1147z00_5737;

											BgL__ortest_1147z00_5737 =
												bgl_sendfile(BgL_filez00_5731, BgL_opz00_5732,
												(long) (((long) -1)), (long) (((long) -1)));
											if (CBOOL(BgL__ortest_1147z00_5737))
												{	/* Ieee/input.scm 564 */
													obj_t BgL_tmpz00_8817;

													if (INTEGERP(BgL__ortest_1147z00_5737))
														{	/* Ieee/input.scm 564 */
															BgL_tmpz00_8817 = BgL__ortest_1147z00_5737;
														}
													else
														{
															obj_t BgL_auxz00_8820;

															BgL_auxz00_8820 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3505z00zz__r4_input_6_10_2z00,
																BINT(21690L),
																BGl_string3548z00zz__r4_input_6_10_2z00,
																BGl_string3521z00zz__r4_input_6_10_2z00,
																BgL__ortest_1147z00_5737);
															FAILURE(BgL_auxz00_8820, BFALSE, BFALSE);
														}
													BgL_res3370z00_5756 = (long) CINT(BgL_tmpz00_8817);
												}
											else
												{	/* Ieee/input.scm 565 */
													obj_t BgL_ipz00_5738;

													{	/* Ieee/input.scm 565 */

														BgL_ipz00_5738 =
															BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
															(BgL_filez00_5731, BTRUE, BINT(5000000L));
													}
													{	/* Ieee/input.scm 566 */
														obj_t BgL_exitd1148z00_5742;

														BgL_exitd1148z00_5742 = BGL_EXITD_TOP_AS_OBJ();
														{	/* Ieee/input.scm 568 */
															obj_t BgL_zc3z04anonymousza32584ze3z87_6267;

															BgL_zc3z04anonymousza32584ze3z87_6267 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza32584ze33378ze5zz__r4_input_6_10_2z00,
																(int) (0L), (int) (1L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza32584ze3z87_6267,
																(int) (0L), BgL_ipz00_5738);
															{	/* Ieee/input.scm 566 */
																obj_t BgL_arg3334z00_5748;

																{	/* Ieee/input.scm 566 */
																	obj_t BgL_arg3335z00_5749;

																	BgL_arg3335z00_5749 =
																		BGL_EXITD_PROTECT(BgL_exitd1148z00_5742);
																	BgL_arg3334z00_5748 =
																		MAKE_YOUNG_PAIR
																		(BgL_zc3z04anonymousza32584ze3z87_6267,
																		BgL_arg3335z00_5749);
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1148z00_5742,
																	BgL_arg3334z00_5748);
																BUNSPEC;
															}
															{	/* Ieee/input.scm 567 */
																long BgL_tmp1150z00_5744;

																{	/* Ieee/input.scm 567 */
																	obj_t BgL_auxz00_8836;

																	if (INPUT_PORTP(BgL_ipz00_5738))
																		{	/* Ieee/input.scm 567 */
																			BgL_auxz00_8836 = BgL_ipz00_5738;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8839;

																			BgL_auxz00_8839 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3505z00zz__r4_input_6_10_2z00,
																				BINT(21806L),
																				BGl_string3548z00zz__r4_input_6_10_2z00,
																				BGl_string3508z00zz__r4_input_6_10_2z00,
																				BgL_ipz00_5738);
																			FAILURE(BgL_auxz00_8839, BFALSE, BFALSE);
																		}
																	BgL_tmp1150z00_5744 =
																		BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
																		(BgL_auxz00_8836, BgL_opz00_5732,
																		((long) -1), ((long) -1));
																}
																{	/* Ieee/input.scm 566 */
																	bool_t BgL_test3878z00_8844;

																	{	/* Ieee/input.scm 566 */
																		obj_t BgL_arg3333z00_5751;

																		BgL_arg3333z00_5751 =
																			BGL_EXITD_PROTECT(BgL_exitd1148z00_5742);
																		BgL_test3878z00_8844 =
																			PAIRP(BgL_arg3333z00_5751);
																	}
																	if (BgL_test3878z00_8844)
																		{	/* Ieee/input.scm 566 */
																			obj_t BgL_arg3331z00_5752;

																			{	/* Ieee/input.scm 566 */
																				obj_t BgL_arg3332z00_5753;

																				BgL_arg3332z00_5753 =
																					BGL_EXITD_PROTECT
																					(BgL_exitd1148z00_5742);
																				{	/* Ieee/input.scm 566 */
																					obj_t BgL_pairz00_5754;

																					if (PAIRP(BgL_arg3332z00_5753))
																						{	/* Ieee/input.scm 566 */
																							BgL_pairz00_5754 =
																								BgL_arg3332z00_5753;
																						}
																					else
																						{
																							obj_t BgL_auxz00_8850;

																							BgL_auxz00_8850 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3505z00zz__r4_input_6_10_2z00,
																								BINT(21767L),
																								BGl_string3548z00zz__r4_input_6_10_2z00,
																								BGl_string3549z00zz__r4_input_6_10_2z00,
																								BgL_arg3332z00_5753);
																							FAILURE(BgL_auxz00_8850, BFALSE,
																								BFALSE);
																						}
																					BgL_arg3331z00_5752 =
																						CDR(BgL_pairz00_5754);
																				}
																			}
																			BGL_EXITD_PROTECT_SET
																				(BgL_exitd1148z00_5742,
																				BgL_arg3331z00_5752);
																			BUNSPEC;
																		}
																	else
																		{	/* Ieee/input.scm 566 */
																			BFALSE;
																		}
																}
																{	/* Ieee/input.scm 568 */
																	obj_t BgL_portz00_5755;

																	if (INPUT_PORTP(BgL_ipz00_5738))
																		{	/* Ieee/input.scm 568 */
																			BgL_portz00_5755 = BgL_ipz00_5738;
																		}
																	else
																		{
																			obj_t BgL_auxz00_8858;

																			BgL_auxz00_8858 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3505z00zz__r4_input_6_10_2z00,
																				BINT(21849L),
																				BGl_string3548z00zz__r4_input_6_10_2z00,
																				BGl_string3508z00zz__r4_input_6_10_2z00,
																				BgL_ipz00_5738);
																			FAILURE(BgL_auxz00_8858, BFALSE, BFALSE);
																		}
																	bgl_close_input_port(BgL_portz00_5755);
																}
																BgL_res3370z00_5756 = BgL_tmp1150z00_5744;
															}
														}
													}
												}
										}
									}
								}
								return BINT(BgL_res3370z00_5756);
							}
						}
						break;
					case 3L:

						{	/* Ieee/input.scm 556 */
							obj_t BgL_siza7eza7_3566;

							BgL_siza7eza7_3566 = VECTOR_REF(BgL_opt1324z00_90, 2L);
							{	/* Ieee/input.scm 556 */

								{	/* Ieee/input.scm 556 */
									long BgL_res3371z00_5782;

									{	/* Ieee/input.scm 556 */
										obj_t BgL_filez00_5757;
										obj_t BgL_opz00_5758;
										long BgL_siza7eza7_5759;

										if (STRINGP(BgL_filez00_3560))
											{	/* Ieee/input.scm 556 */
												BgL_filez00_5757 = BgL_filez00_3560;
											}
										else
											{
												obj_t BgL_auxz00_8867;

												BgL_auxz00_8867 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(21451L), BGl_string3548z00zz__r4_input_6_10_2z00,
													BGl_string3517z00zz__r4_input_6_10_2z00,
													BgL_filez00_3560);
												FAILURE(BgL_auxz00_8867, BFALSE, BFALSE);
											}
										if (OUTPUT_PORTP(BgL_opz00_3561))
											{	/* Ieee/input.scm 556 */
												BgL_opz00_5758 = BgL_opz00_3561;
											}
										else
											{
												obj_t BgL_auxz00_8873;

												BgL_auxz00_8873 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3505z00zz__r4_input_6_10_2z00,
													BINT(21451L), BGl_string3548z00zz__r4_input_6_10_2z00,
													BGl_string3541z00zz__r4_input_6_10_2z00,
													BgL_opz00_3561);
												FAILURE(BgL_auxz00_8873, BFALSE, BFALSE);
											}
										{	/* Ieee/input.scm 556 */
											obj_t BgL_tmpz00_8877;

											if (ELONGP(BgL_siza7eza7_3566))
												{	/* Ieee/input.scm 556 */
													BgL_tmpz00_8877 = BgL_siza7eza7_3566;
												}
											else
												{
													obj_t BgL_auxz00_8880;

													BgL_auxz00_8880 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3505z00zz__r4_input_6_10_2z00,
														BINT(21451L),
														BGl_string3548z00zz__r4_input_6_10_2z00,
														BGl_string3542z00zz__r4_input_6_10_2z00,
														BgL_siza7eza7_3566);
													FAILURE(BgL_auxz00_8880, BFALSE, BFALSE);
												}
											BgL_siza7eza7_5759 = BELONG_TO_LONG(BgL_tmpz00_8877);
										}
										{	/* Ieee/input.scm 560 */
											long BgL_sza7za7_5761;
											long BgL_offz00_5762;

											BgL_sza7za7_5761 = (long) (BgL_siza7eza7_5759);
											BgL_offz00_5762 = (long) (((long) -1));
											{	/* Ieee/input.scm 564 */
												obj_t BgL__ortest_1147z00_5763;

												BgL__ortest_1147z00_5763 =
													bgl_sendfile(BgL_filez00_5757, BgL_opz00_5758,
													(long) (BgL_siza7eza7_5759), (long) (((long) -1)));
												if (CBOOL(BgL__ortest_1147z00_5763))
													{	/* Ieee/input.scm 564 */
														obj_t BgL_tmpz00_8892;

														if (INTEGERP(BgL__ortest_1147z00_5763))
															{	/* Ieee/input.scm 564 */
																BgL_tmpz00_8892 = BgL__ortest_1147z00_5763;
															}
														else
															{
																obj_t BgL_auxz00_8895;

																BgL_auxz00_8895 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3505z00zz__r4_input_6_10_2z00,
																	BINT(21690L),
																	BGl_string3548z00zz__r4_input_6_10_2z00,
																	BGl_string3521z00zz__r4_input_6_10_2z00,
																	BgL__ortest_1147z00_5763);
																FAILURE(BgL_auxz00_8895, BFALSE, BFALSE);
															}
														BgL_res3371z00_5782 = (long) CINT(BgL_tmpz00_8892);
													}
												else
													{	/* Ieee/input.scm 565 */
														obj_t BgL_ipz00_5764;

														{	/* Ieee/input.scm 565 */

															BgL_ipz00_5764 =
																BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
																(BgL_filez00_5757, BTRUE, BINT(5000000L));
														}
														{	/* Ieee/input.scm 566 */
															obj_t BgL_exitd1148z00_5768;

															BgL_exitd1148z00_5768 = BGL_EXITD_TOP_AS_OBJ();
															{	/* Ieee/input.scm 568 */
																obj_t BgL_zc3z04anonymousza32584ze3z87_6266;

																BgL_zc3z04anonymousza32584ze3z87_6266 =
																	MAKE_FX_PROCEDURE
																	(BGl_z62zc3z04anonymousza32584ze33377ze5zz__r4_input_6_10_2z00,
																	(int) (0L), (int) (1L));
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32584ze3z87_6266,
																	(int) (0L), BgL_ipz00_5764);
																{	/* Ieee/input.scm 566 */
																	obj_t BgL_arg3334z00_5774;

																	{	/* Ieee/input.scm 566 */
																		obj_t BgL_arg3335z00_5775;

																		BgL_arg3335z00_5775 =
																			BGL_EXITD_PROTECT(BgL_exitd1148z00_5768);
																		BgL_arg3334z00_5774 =
																			MAKE_YOUNG_PAIR
																			(BgL_zc3z04anonymousza32584ze3z87_6266,
																			BgL_arg3335z00_5775);
																	}
																	BGL_EXITD_PROTECT_SET(BgL_exitd1148z00_5768,
																		BgL_arg3334z00_5774);
																	BUNSPEC;
																}
																{	/* Ieee/input.scm 567 */
																	long BgL_tmp1150z00_5770;

																	{	/* Ieee/input.scm 567 */
																		obj_t BgL_auxz00_8911;

																		if (INPUT_PORTP(BgL_ipz00_5764))
																			{	/* Ieee/input.scm 567 */
																				BgL_auxz00_8911 = BgL_ipz00_5764;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8914;

																				BgL_auxz00_8914 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3505z00zz__r4_input_6_10_2z00,
																					BINT(21806L),
																					BGl_string3548z00zz__r4_input_6_10_2z00,
																					BGl_string3508z00zz__r4_input_6_10_2z00,
																					BgL_ipz00_5764);
																				FAILURE(BgL_auxz00_8914, BFALSE,
																					BFALSE);
																			}
																		BgL_tmp1150z00_5770 =
																			BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
																			(BgL_auxz00_8911, BgL_opz00_5758,
																			BgL_siza7eza7_5759, ((long) -1));
																	}
																	{	/* Ieee/input.scm 566 */
																		bool_t BgL_test3887z00_8919;

																		{	/* Ieee/input.scm 566 */
																			obj_t BgL_arg3333z00_5777;

																			BgL_arg3333z00_5777 =
																				BGL_EXITD_PROTECT
																				(BgL_exitd1148z00_5768);
																			BgL_test3887z00_8919 =
																				PAIRP(BgL_arg3333z00_5777);
																		}
																		if (BgL_test3887z00_8919)
																			{	/* Ieee/input.scm 566 */
																				obj_t BgL_arg3331z00_5778;

																				{	/* Ieee/input.scm 566 */
																					obj_t BgL_arg3332z00_5779;

																					BgL_arg3332z00_5779 =
																						BGL_EXITD_PROTECT
																						(BgL_exitd1148z00_5768);
																					{	/* Ieee/input.scm 566 */
																						obj_t BgL_pairz00_5780;

																						if (PAIRP(BgL_arg3332z00_5779))
																							{	/* Ieee/input.scm 566 */
																								BgL_pairz00_5780 =
																									BgL_arg3332z00_5779;
																							}
																						else
																							{
																								obj_t BgL_auxz00_8925;

																								BgL_auxz00_8925 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3505z00zz__r4_input_6_10_2z00,
																									BINT(21767L),
																									BGl_string3548z00zz__r4_input_6_10_2z00,
																									BGl_string3549z00zz__r4_input_6_10_2z00,
																									BgL_arg3332z00_5779);
																								FAILURE(BgL_auxz00_8925, BFALSE,
																									BFALSE);
																							}
																						BgL_arg3331z00_5778 =
																							CDR(BgL_pairz00_5780);
																					}
																				}
																				BGL_EXITD_PROTECT_SET
																					(BgL_exitd1148z00_5768,
																					BgL_arg3331z00_5778);
																				BUNSPEC;
																			}
																		else
																			{	/* Ieee/input.scm 566 */
																				BFALSE;
																			}
																	}
																	{	/* Ieee/input.scm 568 */
																		obj_t BgL_portz00_5781;

																		if (INPUT_PORTP(BgL_ipz00_5764))
																			{	/* Ieee/input.scm 568 */
																				BgL_portz00_5781 = BgL_ipz00_5764;
																			}
																		else
																			{
																				obj_t BgL_auxz00_8933;

																				BgL_auxz00_8933 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3505z00zz__r4_input_6_10_2z00,
																					BINT(21849L),
																					BGl_string3548z00zz__r4_input_6_10_2z00,
																					BGl_string3508z00zz__r4_input_6_10_2z00,
																					BgL_ipz00_5764);
																				FAILURE(BgL_auxz00_8933, BFALSE,
																					BFALSE);
																			}
																		bgl_close_input_port(BgL_portz00_5781);
																	}
																	BgL_res3371z00_5782 = BgL_tmp1150z00_5770;
																}
															}
														}
													}
											}
										}
									}
									return BINT(BgL_res3371z00_5782);
								}
							}
						}
						break;
					case 4L:

						{	/* Ieee/input.scm 556 */
							obj_t BgL_siza7eza7_3568;

							BgL_siza7eza7_3568 = VECTOR_REF(BgL_opt1324z00_90, 2L);
							{	/* Ieee/input.scm 556 */
								obj_t BgL_offsetz00_3569;

								BgL_offsetz00_3569 = VECTOR_REF(BgL_opt1324z00_90, 3L);
								{	/* Ieee/input.scm 556 */

									{	/* Ieee/input.scm 556 */
										long BgL_res3372z00_5808;

										{	/* Ieee/input.scm 556 */
											obj_t BgL_filez00_5783;
											obj_t BgL_opz00_5784;
											long BgL_siza7eza7_5785;
											long BgL_offsetz00_5786;

											if (STRINGP(BgL_filez00_3560))
												{	/* Ieee/input.scm 556 */
													BgL_filez00_5783 = BgL_filez00_3560;
												}
											else
												{
													obj_t BgL_auxz00_8943;

													BgL_auxz00_8943 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3505z00zz__r4_input_6_10_2z00,
														BINT(21451L),
														BGl_string3548z00zz__r4_input_6_10_2z00,
														BGl_string3517z00zz__r4_input_6_10_2z00,
														BgL_filez00_3560);
													FAILURE(BgL_auxz00_8943, BFALSE, BFALSE);
												}
											if (OUTPUT_PORTP(BgL_opz00_3561))
												{	/* Ieee/input.scm 556 */
													BgL_opz00_5784 = BgL_opz00_3561;
												}
											else
												{
													obj_t BgL_auxz00_8949;

													BgL_auxz00_8949 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3505z00zz__r4_input_6_10_2z00,
														BINT(21451L),
														BGl_string3548z00zz__r4_input_6_10_2z00,
														BGl_string3541z00zz__r4_input_6_10_2z00,
														BgL_opz00_3561);
													FAILURE(BgL_auxz00_8949, BFALSE, BFALSE);
												}
											{	/* Ieee/input.scm 556 */
												obj_t BgL_tmpz00_8953;

												if (ELONGP(BgL_siza7eza7_3568))
													{	/* Ieee/input.scm 556 */
														BgL_tmpz00_8953 = BgL_siza7eza7_3568;
													}
												else
													{
														obj_t BgL_auxz00_8956;

														BgL_auxz00_8956 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3505z00zz__r4_input_6_10_2z00,
															BINT(21451L),
															BGl_string3548z00zz__r4_input_6_10_2z00,
															BGl_string3542z00zz__r4_input_6_10_2z00,
															BgL_siza7eza7_3568);
														FAILURE(BgL_auxz00_8956, BFALSE, BFALSE);
													}
												BgL_siza7eza7_5785 = BELONG_TO_LONG(BgL_tmpz00_8953);
											}
											{	/* Ieee/input.scm 556 */
												obj_t BgL_tmpz00_8961;

												if (ELONGP(BgL_offsetz00_3569))
													{	/* Ieee/input.scm 556 */
														BgL_tmpz00_8961 = BgL_offsetz00_3569;
													}
												else
													{
														obj_t BgL_auxz00_8964;

														BgL_auxz00_8964 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3505z00zz__r4_input_6_10_2z00,
															BINT(21451L),
															BGl_string3548z00zz__r4_input_6_10_2z00,
															BGl_string3542z00zz__r4_input_6_10_2z00,
															BgL_offsetz00_3569);
														FAILURE(BgL_auxz00_8964, BFALSE, BFALSE);
													}
												BgL_offsetz00_5786 = BELONG_TO_LONG(BgL_tmpz00_8961);
											}
											{	/* Ieee/input.scm 560 */
												long BgL_sza7za7_5787;
												long BgL_offz00_5788;

												BgL_sza7za7_5787 = (long) (BgL_siza7eza7_5785);
												BgL_offz00_5788 = (long) (BgL_offsetz00_5786);
												{	/* Ieee/input.scm 564 */
													obj_t BgL__ortest_1147z00_5789;

													BgL__ortest_1147z00_5789 =
														bgl_sendfile(BgL_filez00_5783, BgL_opz00_5784,
														(long) (BgL_siza7eza7_5785),
														(long) (BgL_offsetz00_5786));
													if (CBOOL(BgL__ortest_1147z00_5789))
														{	/* Ieee/input.scm 564 */
															obj_t BgL_tmpz00_8976;

															if (INTEGERP(BgL__ortest_1147z00_5789))
																{	/* Ieee/input.scm 564 */
																	BgL_tmpz00_8976 = BgL__ortest_1147z00_5789;
																}
															else
																{
																	obj_t BgL_auxz00_8979;

																	BgL_auxz00_8979 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3505z00zz__r4_input_6_10_2z00,
																		BINT(21690L),
																		BGl_string3548z00zz__r4_input_6_10_2z00,
																		BGl_string3521z00zz__r4_input_6_10_2z00,
																		BgL__ortest_1147z00_5789);
																	FAILURE(BgL_auxz00_8979, BFALSE, BFALSE);
																}
															BgL_res3372z00_5808 =
																(long) CINT(BgL_tmpz00_8976);
														}
													else
														{	/* Ieee/input.scm 565 */
															obj_t BgL_ipz00_5790;

															{	/* Ieee/input.scm 565 */

																BgL_ipz00_5790 =
																	BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
																	(BgL_filez00_5783, BTRUE, BINT(5000000L));
															}
															{	/* Ieee/input.scm 566 */
																obj_t BgL_exitd1148z00_5794;

																BgL_exitd1148z00_5794 = BGL_EXITD_TOP_AS_OBJ();
																{	/* Ieee/input.scm 568 */
																	obj_t BgL_zc3z04anonymousza32584ze3z87_6265;

																	BgL_zc3z04anonymousza32584ze3z87_6265 =
																		MAKE_FX_PROCEDURE
																		(BGl_z62zc3z04anonymousza32584ze3ze5zz__r4_input_6_10_2z00,
																		(int) (0L), (int) (1L));
																	PROCEDURE_SET
																		(BgL_zc3z04anonymousza32584ze3z87_6265,
																		(int) (0L), BgL_ipz00_5790);
																	{	/* Ieee/input.scm 566 */
																		obj_t BgL_arg3334z00_5800;

																		{	/* Ieee/input.scm 566 */
																			obj_t BgL_arg3335z00_5801;

																			BgL_arg3335z00_5801 =
																				BGL_EXITD_PROTECT
																				(BgL_exitd1148z00_5794);
																			BgL_arg3334z00_5800 =
																				MAKE_YOUNG_PAIR
																				(BgL_zc3z04anonymousza32584ze3z87_6265,
																				BgL_arg3335z00_5801);
																		}
																		BGL_EXITD_PROTECT_SET(BgL_exitd1148z00_5794,
																			BgL_arg3334z00_5800);
																		BUNSPEC;
																	}
																	{	/* Ieee/input.scm 567 */
																		long BgL_tmp1150z00_5796;

																		{	/* Ieee/input.scm 567 */
																			obj_t BgL_auxz00_8995;

																			if (INPUT_PORTP(BgL_ipz00_5790))
																				{	/* Ieee/input.scm 567 */
																					BgL_auxz00_8995 = BgL_ipz00_5790;
																				}
																			else
																				{
																					obj_t BgL_auxz00_8998;

																					BgL_auxz00_8998 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3505z00zz__r4_input_6_10_2z00,
																						BINT(21806L),
																						BGl_string3548z00zz__r4_input_6_10_2z00,
																						BGl_string3508z00zz__r4_input_6_10_2z00,
																						BgL_ipz00_5790);
																					FAILURE(BgL_auxz00_8998, BFALSE,
																						BFALSE);
																				}
																			BgL_tmp1150z00_5796 =
																				BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
																				(BgL_auxz00_8995, BgL_opz00_5784,
																				BgL_siza7eza7_5785, BgL_offsetz00_5786);
																		}
																		{	/* Ieee/input.scm 566 */
																			bool_t BgL_test3897z00_9003;

																			{	/* Ieee/input.scm 566 */
																				obj_t BgL_arg3333z00_5803;

																				BgL_arg3333z00_5803 =
																					BGL_EXITD_PROTECT
																					(BgL_exitd1148z00_5794);
																				BgL_test3897z00_9003 =
																					PAIRP(BgL_arg3333z00_5803);
																			}
																			if (BgL_test3897z00_9003)
																				{	/* Ieee/input.scm 566 */
																					obj_t BgL_arg3331z00_5804;

																					{	/* Ieee/input.scm 566 */
																						obj_t BgL_arg3332z00_5805;

																						BgL_arg3332z00_5805 =
																							BGL_EXITD_PROTECT
																							(BgL_exitd1148z00_5794);
																						{	/* Ieee/input.scm 566 */
																							obj_t BgL_pairz00_5806;

																							if (PAIRP(BgL_arg3332z00_5805))
																								{	/* Ieee/input.scm 566 */
																									BgL_pairz00_5806 =
																										BgL_arg3332z00_5805;
																								}
																							else
																								{
																									obj_t BgL_auxz00_9009;

																									BgL_auxz00_9009 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3505z00zz__r4_input_6_10_2z00,
																										BINT(21767L),
																										BGl_string3548z00zz__r4_input_6_10_2z00,
																										BGl_string3549z00zz__r4_input_6_10_2z00,
																										BgL_arg3332z00_5805);
																									FAILURE(BgL_auxz00_9009,
																										BFALSE, BFALSE);
																								}
																							BgL_arg3331z00_5804 =
																								CDR(BgL_pairz00_5806);
																						}
																					}
																					BGL_EXITD_PROTECT_SET
																						(BgL_exitd1148z00_5794,
																						BgL_arg3331z00_5804);
																					BUNSPEC;
																				}
																			else
																				{	/* Ieee/input.scm 566 */
																					BFALSE;
																				}
																		}
																		{	/* Ieee/input.scm 568 */
																			obj_t BgL_portz00_5807;

																			if (INPUT_PORTP(BgL_ipz00_5790))
																				{	/* Ieee/input.scm 568 */
																					BgL_portz00_5807 = BgL_ipz00_5790;
																				}
																			else
																				{
																					obj_t BgL_auxz00_9017;

																					BgL_auxz00_9017 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3505z00zz__r4_input_6_10_2z00,
																						BINT(21849L),
																						BGl_string3548z00zz__r4_input_6_10_2z00,
																						BGl_string3508z00zz__r4_input_6_10_2z00,
																						BgL_ipz00_5790);
																					FAILURE(BgL_auxz00_9017, BFALSE,
																						BFALSE);
																				}
																			bgl_close_input_port(BgL_portz00_5807);
																		}
																		BgL_res3372z00_5808 = BgL_tmp1150z00_5796;
																	}
																}
															}
														}
												}
											}
										}
										return BINT(BgL_res3372z00_5808);
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* &<@anonymous:2584> */
	obj_t BGl_z62zc3z04anonymousza32584ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6268)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6269;

				BgL_ipz00_6269 = PROCEDURE_REF(BgL_envz00_6268, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6269));
			}
		}

	}



/* &<@anonymous:2584>3377 */
	obj_t BGl_z62zc3z04anonymousza32584ze33377ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6270)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6271;

				BgL_ipz00_6271 = PROCEDURE_REF(BgL_envz00_6270, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6271));
			}
		}

	}



/* &<@anonymous:2584>3378 */
	obj_t BGl_z62zc3z04anonymousza32584ze33378ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6272)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6273;

				BgL_ipz00_6273 = PROCEDURE_REF(BgL_envz00_6272, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6273));
			}
		}

	}



/* send-file */
	BGL_EXPORTED_DEF long BGl_sendzd2filezd2zz__r4_input_6_10_2z00(obj_t
		BgL_filez00_86, obj_t BgL_opz00_87, long BgL_siza7eza7_88,
		long BgL_offsetz00_89)
	{
		{	/* Ieee/input.scm 556 */
			{	/* Ieee/input.scm 560 */
				long BgL_sza7za7_5809;
				long BgL_offz00_5810;

				BgL_sza7za7_5809 = (long) (BgL_siza7eza7_88);
				BgL_offz00_5810 = (long) (BgL_offsetz00_89);
				{	/* Ieee/input.scm 564 */
					obj_t BgL__ortest_1147z00_5811;

					BgL__ortest_1147z00_5811 =
						bgl_sendfile(BgL_filez00_86, BgL_opz00_87,
						(long) (BgL_siza7eza7_88), (long) (BgL_offsetz00_89));
					if (CBOOL(BgL__ortest_1147z00_5811))
						{	/* Ieee/input.scm 564 */
							return (long) CINT(BgL__ortest_1147z00_5811);
						}
					else
						{	/* Ieee/input.scm 565 */
							obj_t BgL_ipz00_5812;

							{	/* Ieee/input.scm 565 */

								BgL_ipz00_5812 =
									BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
									(BgL_filez00_86, BTRUE, BINT(5000000L));
							}
							{	/* Ieee/input.scm 566 */
								obj_t BgL_exitd1148z00_5816;

								BgL_exitd1148z00_5816 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Ieee/input.scm 568 */
									obj_t BgL_zc3z04anonymousza32584ze3z87_6274;

									BgL_zc3z04anonymousza32584ze3z87_6274 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza32584ze33379ze5zz__r4_input_6_10_2z00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza32584ze3z87_6274,
										(int) (0L), BgL_ipz00_5812);
									{	/* Ieee/input.scm 566 */
										obj_t BgL_arg3334z00_5822;

										{	/* Ieee/input.scm 566 */
											obj_t BgL_arg3335z00_5823;

											BgL_arg3335z00_5823 =
												BGL_EXITD_PROTECT(BgL_exitd1148z00_5816);
											BgL_arg3334z00_5822 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32584ze3z87_6274,
												BgL_arg3335z00_5823);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1148z00_5816,
											BgL_arg3334z00_5822);
										BUNSPEC;
									}
									{	/* Ieee/input.scm 567 */
										long BgL_tmp1150z00_5818;

										{	/* Ieee/input.scm 567 */
											long BgL_res3373z00_5838;

											{	/* Ieee/input.scm 521 */
												long BgL_sza7za7_5828;
												long BgL_offz00_5829;

												BgL_sza7za7_5828 = (long) (BgL_siza7eza7_88);
												BgL_offz00_5829 = (long) (BgL_offsetz00_89);
												{	/* Ieee/input.scm 525 */
													obj_t BgL__ortest_1144z00_5830;

													BgL__ortest_1144z00_5830 =
														bgl_sendchars(
														((obj_t) BgL_ipz00_5812), BgL_opz00_87,
														BgL_sza7za7_5828, BgL_offz00_5829);
													if (CBOOL(BgL__ortest_1144z00_5830))
														{	/* Ieee/input.scm 525 */
															BgL_res3373z00_5838 =
																(long) CINT(BgL__ortest_1144z00_5830);
														}
													else
														{	/* Ieee/input.scm 527 */
															bool_t BgL_test3902z00_9063;

															{	/* Ieee/input.scm 527 */
																bool_t BgL_test3903z00_9064;

																{	/* Ieee/input.scm 527 */
																	obj_t BgL_tmpz00_9065;

																	BgL_tmpz00_9065 = ((obj_t) BgL_ipz00_5812);
																	BgL_test3903z00_9064 =
																		INPUT_GZIP_PORTP(BgL_tmpz00_9065);
																}
																if (BgL_test3903z00_9064)
																	{	/* Ieee/input.scm 527 */
																		if ((BgL_sza7za7_5828 == -1L))
																			{	/* Ieee/input.scm 527 */
																				BgL_test3902z00_9063 =
																					(BgL_offz00_5829 == -1L);
																			}
																		else
																			{	/* Ieee/input.scm 527 */
																				BgL_test3902z00_9063 = ((bool_t) 0);
																			}
																	}
																else
																	{	/* Ieee/input.scm 527 */
																		BgL_test3902z00_9063 = ((bool_t) 0);
																	}
															}
															if (BgL_test3902z00_9063)
																{	/* Ieee/input.scm 527 */
																	BgL_res3373z00_5838 =
																		(long)
																		CINT
																		(BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7(
																			((obj_t) BgL_ipz00_5812), BgL_opz00_87));
																}
															else
																{	/* Ieee/input.scm 527 */
																	BgL_res3373z00_5838 =
																		(long)
																		(BGl_z52sendcharsz52zz__r4_input_6_10_2z00((
																				(obj_t) BgL_ipz00_5812), BgL_opz00_87,
																			BgL_sza7za7_5828, BgL_offz00_5829));
											}}}}
											BgL_tmp1150z00_5818 = BgL_res3373z00_5838;
										}
										{	/* Ieee/input.scm 566 */
											bool_t BgL_test3905z00_9077;

											{	/* Ieee/input.scm 566 */
												obj_t BgL_arg3333z00_5840;

												BgL_arg3333z00_5840 =
													BGL_EXITD_PROTECT(BgL_exitd1148z00_5816);
												BgL_test3905z00_9077 = PAIRP(BgL_arg3333z00_5840);
											}
											if (BgL_test3905z00_9077)
												{	/* Ieee/input.scm 566 */
													obj_t BgL_arg3331z00_5841;

													{	/* Ieee/input.scm 566 */
														obj_t BgL_arg3332z00_5842;

														BgL_arg3332z00_5842 =
															BGL_EXITD_PROTECT(BgL_exitd1148z00_5816);
														BgL_arg3331z00_5841 =
															CDR(((obj_t) BgL_arg3332z00_5842));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1148z00_5816,
														BgL_arg3331z00_5841);
													BUNSPEC;
												}
											else
												{	/* Ieee/input.scm 566 */
													BFALSE;
												}
										}
										bgl_close_input_port(((obj_t) BgL_ipz00_5812));
										return BgL_tmp1150z00_5818;
									}
								}
							}
						}
				}
			}
		}

	}



/* &<@anonymous:2584>3379 */
	obj_t BGl_z62zc3z04anonymousza32584ze33379ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6275)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6276;

				BgL_ipz00_6276 = PROCEDURE_REF(BgL_envz00_6275, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6276));
			}
		}

	}



/* file-lines */
	BGL_EXPORTED_DEF obj_t BGl_filezd2lineszd2zz__r4_input_6_10_2z00(obj_t
		BgL_filez00_92)
	{
		{	/* Ieee/input.scm 580 */
			if (fexists(BSTRING_TO_STRING(BgL_filez00_92)))
				{	/* Ieee/input.scm 605 */
					obj_t BgL_zc3z04anonymousza32587ze3z87_6277;

					BgL_zc3z04anonymousza32587ze3z87_6277 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza32587ze3ze5zz__r4_input_6_10_2z00,
						(int) (0L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza32587ze3z87_6277, (int) (0L),
						BgL_filez00_92);
					return
						BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00
						(BgL_filez00_92, BgL_zc3z04anonymousza32587ze3z87_6277);
				}
			else
				{	/* Ieee/input.scm 601 */
					return BFALSE;
				}
		}

	}



/* &file-lines */
	obj_t BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00(obj_t BgL_envz00_6278,
		obj_t BgL_filez00_6279)
	{
		{	/* Ieee/input.scm 580 */
			{	/* Ieee/input.scm 583 */
				obj_t BgL_auxz00_9099;

				if (STRINGP(BgL_filez00_6279))
					{	/* Ieee/input.scm 583 */
						BgL_auxz00_9099 = BgL_filez00_6279;
					}
				else
					{
						obj_t BgL_auxz00_9102;

						BgL_auxz00_9102 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(22416L),
							BGl_string3550z00zz__r4_input_6_10_2z00,
							BGl_string3517z00zz__r4_input_6_10_2z00, BgL_filez00_6279);
						FAILURE(BgL_auxz00_9102, BFALSE, BFALSE);
					}
				return BGl_filezd2lineszd2zz__r4_input_6_10_2z00(BgL_auxz00_9099);
			}
		}

	}



/* &<@anonymous:2587> */
	obj_t BGl_z62zc3z04anonymousza32587ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6280)
	{
		{	/* Ieee/input.scm 604 */
			{	/* Ieee/input.scm 605 */
				obj_t BgL_filez00_6281;

				BgL_filez00_6281 = ((obj_t) PROCEDURE_REF(BgL_envz00_6280, (int) (0L)));
				{
					obj_t BgL_iportz00_6523;
					long BgL_startz00_6524;
					obj_t BgL_accz00_6525;

					{	/* Ieee/input.scm 605 */
						obj_t BgL_arg2588z00_6564;

						{	/* Ieee/input.scm 605 */
							obj_t BgL_tmpz00_9110;

							BgL_tmpz00_9110 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_arg2588z00_6564 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_9110);
						}
						BgL_iportz00_6523 = BgL_arg2588z00_6564;
						BgL_startz00_6524 = 0L;
						BgL_accz00_6525 = BNIL;
						{
							obj_t BgL_iportz00_6556;
							long BgL_lastzd2matchzd2_6557;
							long BgL_forwardz00_6558;
							long BgL_bufposz00_6559;
							obj_t BgL_iportz00_6548;
							long BgL_lastzd2matchzd2_6549;
							long BgL_forwardz00_6550;
							long BgL_bufposz00_6551;

						BgL_ignorez00_6526:
							RGC_START_MATCH(BgL_iportz00_6523);
							{	/* Ieee/input.scm 583 */
								long BgL_matchz00_6530;

								{	/* Ieee/input.scm 583 */
									long BgL_arg2718z00_6531;
									long BgL_arg2720z00_6532;

									BgL_arg2718z00_6531 = RGC_BUFFER_FORWARD(BgL_iportz00_6523);
									BgL_arg2720z00_6532 = RGC_BUFFER_BUFPOS(BgL_iportz00_6523);
									{
										long BgL_forwardz00_6534;
										long BgL_bufposz00_6535;

										BgL_forwardz00_6534 = BgL_arg2718z00_6531;
										BgL_bufposz00_6535 = BgL_arg2720z00_6532;
									BgL_statezd20zd21152z00_6533:
										if ((BgL_forwardz00_6534 == BgL_bufposz00_6535))
											{	/* Ieee/input.scm 583 */
												if (rgc_fill_buffer(BgL_iportz00_6523))
													{	/* Ieee/input.scm 583 */
														long BgL_arg2610z00_6536;
														long BgL_arg2612z00_6537;

														BgL_arg2610z00_6536 =
															RGC_BUFFER_FORWARD(BgL_iportz00_6523);
														BgL_arg2612z00_6537 =
															RGC_BUFFER_BUFPOS(BgL_iportz00_6523);
														{
															long BgL_bufposz00_9123;
															long BgL_forwardz00_9122;

															BgL_forwardz00_9122 = BgL_arg2610z00_6536;
															BgL_bufposz00_9123 = BgL_arg2612z00_6537;
															BgL_bufposz00_6535 = BgL_bufposz00_9123;
															BgL_forwardz00_6534 = BgL_forwardz00_9122;
															goto BgL_statezd20zd21152z00_6533;
														}
													}
												else
													{	/* Ieee/input.scm 583 */
														BgL_matchz00_6530 = 2L;
													}
											}
										else
											{	/* Ieee/input.scm 583 */
												int BgL_curz00_6538;

												BgL_curz00_6538 =
													RGC_BUFFER_GET_CHAR(BgL_iportz00_6523,
													BgL_forwardz00_6534);
												{	/* Ieee/input.scm 583 */

													if (((long) (BgL_curz00_6538) == 10L))
														{	/* Ieee/input.scm 583 */
															long BgL_arg2614z00_6539;

															BgL_arg2614z00_6539 = (1L + BgL_forwardz00_6534);
															{	/* Ieee/input.scm 583 */
																long BgL_newzd2matchzd2_6540;

																RGC_STOP_MATCH(BgL_iportz00_6523,
																	BgL_arg2614z00_6539);
																BgL_newzd2matchzd2_6540 = 0L;
																BgL_matchz00_6530 = BgL_newzd2matchzd2_6540;
														}}
													else
														{	/* Ieee/input.scm 583 */
															BgL_iportz00_6548 = BgL_iportz00_6523;
															BgL_lastzd2matchzd2_6549 = 2L;
															BgL_forwardz00_6550 = (1L + BgL_forwardz00_6534);
															BgL_bufposz00_6551 = BgL_bufposz00_6535;
														BgL_statezd21zd21153z00_6528:
															{	/* Ieee/input.scm 583 */
																long BgL_newzd2matchzd2_6552;

																RGC_STOP_MATCH(BgL_iportz00_6548,
																	BgL_forwardz00_6550);
																BgL_newzd2matchzd2_6552 = 1L;
																if ((BgL_forwardz00_6550 == BgL_bufposz00_6551))
																	{	/* Ieee/input.scm 583 */
																		if (rgc_fill_buffer(BgL_iportz00_6548))
																			{	/* Ieee/input.scm 583 */
																				long BgL_arg2603z00_6553;
																				long BgL_arg2604z00_6554;

																				BgL_arg2603z00_6553 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_6548);
																				BgL_arg2604z00_6554 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_6548);
																				{
																					long BgL_bufposz00_9138;
																					long BgL_forwardz00_9137;

																					BgL_forwardz00_9137 =
																						BgL_arg2603z00_6553;
																					BgL_bufposz00_9138 =
																						BgL_arg2604z00_6554;
																					BgL_bufposz00_6551 =
																						BgL_bufposz00_9138;
																					BgL_forwardz00_6550 =
																						BgL_forwardz00_9137;
																					goto BgL_statezd21zd21153z00_6528;
																				}
																			}
																		else
																			{	/* Ieee/input.scm 583 */
																				BgL_matchz00_6530 =
																					BgL_newzd2matchzd2_6552;
																			}
																	}
																else
																	{	/* Ieee/input.scm 583 */
																		int BgL_curz00_6555;

																		BgL_curz00_6555 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_6548,
																			BgL_forwardz00_6550);
																		{	/* Ieee/input.scm 583 */

																			if (((long) (BgL_curz00_6555) == 10L))
																				{	/* Ieee/input.scm 583 */
																					BgL_matchz00_6530 =
																						BgL_newzd2matchzd2_6552;
																				}
																			else
																				{	/* Ieee/input.scm 583 */
																					BgL_iportz00_6556 = BgL_iportz00_6548;
																					BgL_lastzd2matchzd2_6557 =
																						BgL_newzd2matchzd2_6552;
																					BgL_forwardz00_6558 =
																						(1L + BgL_forwardz00_6550);
																					BgL_bufposz00_6559 =
																						BgL_bufposz00_6551;
																				BgL_statezd24zd21156z00_6529:
																					{	/* Ieee/input.scm 583 */
																						long BgL_newzd2matchzd2_6560;

																						RGC_STOP_MATCH(BgL_iportz00_6556,
																							BgL_forwardz00_6558);
																						BgL_newzd2matchzd2_6560 = 1L;
																						if (
																							(BgL_forwardz00_6558 ==
																								BgL_bufposz00_6559))
																							{	/* Ieee/input.scm 583 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_6556))
																									{	/* Ieee/input.scm 583 */
																										long BgL_arg2593z00_6561;
																										long BgL_arg2594z00_6562;

																										BgL_arg2593z00_6561 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_6556);
																										BgL_arg2594z00_6562 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_6556);
																										{
																											long BgL_bufposz00_9151;
																											long BgL_forwardz00_9150;

																											BgL_forwardz00_9150 =
																												BgL_arg2593z00_6561;
																											BgL_bufposz00_9151 =
																												BgL_arg2594z00_6562;
																											BgL_bufposz00_6559 =
																												BgL_bufposz00_9151;
																											BgL_forwardz00_6558 =
																												BgL_forwardz00_9150;
																											goto
																												BgL_statezd24zd21156z00_6529;
																										}
																									}
																								else
																									{	/* Ieee/input.scm 583 */
																										BgL_matchz00_6530 =
																											BgL_newzd2matchzd2_6560;
																									}
																							}
																						else
																							{	/* Ieee/input.scm 583 */
																								int BgL_curz00_6563;

																								BgL_curz00_6563 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_6556,
																									BgL_forwardz00_6558);
																								{	/* Ieee/input.scm 583 */

																									if (
																										((long) (BgL_curz00_6563) ==
																											10L))
																										{	/* Ieee/input.scm 583 */
																											BgL_matchz00_6530 =
																												BgL_newzd2matchzd2_6560;
																										}
																									else
																										{
																											long BgL_forwardz00_9157;
																											long
																												BgL_lastzd2matchzd2_9156;
																											BgL_lastzd2matchzd2_9156 =
																												BgL_newzd2matchzd2_6560;
																											BgL_forwardz00_9157 =
																												(1L +
																												BgL_forwardz00_6558);
																											BgL_forwardz00_6558 =
																												BgL_forwardz00_9157;
																											BgL_lastzd2matchzd2_6557 =
																												BgL_lastzd2matchzd2_9156;
																											goto
																												BgL_statezd24zd21156z00_6529;
																										}
																								}
																							}
																					}
																				}
																		}
																	}
															}
														}
												}
											}
									}
								}
								RGC_SET_FILEPOS(BgL_iportz00_6523);
								switch (BgL_matchz00_6530)
									{
									case 2L:

										{	/* Ieee/input.scm 593 */
											obj_t BgL_cz00_6541;

											{	/* Ieee/input.scm 583 */
												bool_t BgL_test3917z00_9162;

												{	/* Ieee/input.scm 583 */
													long BgL_arg2704z00_6547;

													BgL_arg2704z00_6547 =
														RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_6523);
													BgL_test3917z00_9162 = (BgL_arg2704z00_6547 == 0L);
												}
												if (BgL_test3917z00_9162)
													{	/* Ieee/input.scm 583 */
														BgL_cz00_6541 = BEOF;
													}
												else
													{	/* Ieee/input.scm 583 */
														BgL_cz00_6541 =
															BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_6523));
													}
											}
											if (EOF_OBJECTP(BgL_cz00_6541))
												{	/* Ieee/input.scm 595 */
													long BgL_stopz00_6542;

													BgL_stopz00_6542 =
														INPUT_PORT_FILEPOS(BgL_iportz00_6523);
													if ((BgL_stopz00_6542 > BgL_startz00_6524))
														{	/* Ieee/input.scm 597 */
															obj_t BgL_arg2714z00_6543;

															{	/* Ieee/input.scm 597 */
																obj_t BgL_arg2715z00_6544;

																BgL_arg2715z00_6544 =
																	MAKE_YOUNG_PAIR(BINT(BgL_startz00_6524),
																	BINT(BgL_stopz00_6542));
																BgL_arg2714z00_6543 =
																	MAKE_YOUNG_PAIR(BgL_arg2715z00_6544,
																	BgL_accz00_6525);
															}
															return bgl_reverse_bang(BgL_arg2714z00_6543);
														}
													else
														{	/* Ieee/input.scm 596 */
															return bgl_reverse_bang(BgL_accz00_6525);
														}
												}
											else
												{	/* Ieee/input.scm 594 */
													return
														BGl_errorz00zz__errorz00
														(BGl_symbol3551z00zz__r4_input_6_10_2z00,
														BGl_string3553z00zz__r4_input_6_10_2z00,
														BgL_filez00_6281);
												}
										}
										break;
									case 1L:

										goto BgL_ignorez00_6526;
										break;
									case 0L:

										{	/* Ieee/input.scm 585 */
											long BgL_stopz00_6545;

											BgL_stopz00_6545 = INPUT_PORT_FILEPOS(BgL_iportz00_6523);
											{	/* Ieee/input.scm 585 */
												obj_t BgL_descz00_6546;

												BgL_descz00_6546 =
													MAKE_YOUNG_PAIR(BINT(BgL_startz00_6524),
													BINT(BgL_stopz00_6545));
												{	/* Ieee/input.scm 586 */

													BgL_startz00_6524 = (1L + BgL_stopz00_6545);
													BgL_accz00_6525 =
														MAKE_YOUNG_PAIR(BgL_descz00_6546, BgL_accz00_6525);
													goto BgL_ignorez00_6526;
												}
											}
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3498z00zz__r4_input_6_10_2z00,
											BGl_string3499z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_6530));
									}
							}
						}
					}
				}
			}
		}

	}



/* file-position->line */
	BGL_EXPORTED_DEF obj_t
		BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(int BgL_posz00_93,
		obj_t BgL_fdescz00_94)
	{
		{	/* Ieee/input.scm 610 */
			if (PAIRP(BgL_fdescz00_94))
				{
					obj_t BgL_flinesz00_5951;
					long BgL_linez00_5952;

					BgL_flinesz00_5951 = BgL_fdescz00_94;
					BgL_linez00_5952 = 1L;
				BgL_loopz00_5950:
					if (NULLP(BgL_flinesz00_5951))
						{	/* Ieee/input.scm 616 */
							return BFALSE;
						}
					else
						{	/* Ieee/input.scm 618 */
							bool_t BgL_test3922z00_9192;

							{	/* Ieee/input.scm 618 */
								long BgL_tmpz00_9193;

								{	/* Ieee/input.scm 618 */
									obj_t BgL_pairz00_5966;

									BgL_pairz00_5966 = CAR(((obj_t) BgL_flinesz00_5951));
									BgL_tmpz00_9193 = (long) CINT(CDR(BgL_pairz00_5966));
								}
								BgL_test3922z00_9192 =
									((long) (BgL_posz00_93) >= BgL_tmpz00_9193);
							}
							if (BgL_test3922z00_9192)
								{	/* Ieee/input.scm 619 */
									obj_t BgL_arg2727z00_5961;
									long BgL_arg2729z00_5962;

									BgL_arg2727z00_5961 = CDR(((obj_t) BgL_flinesz00_5951));
									BgL_arg2729z00_5962 = (BgL_linez00_5952 + 1L);
									{
										long BgL_linez00_9204;
										obj_t BgL_flinesz00_9203;

										BgL_flinesz00_9203 = BgL_arg2727z00_5961;
										BgL_linez00_9204 = BgL_arg2729z00_5962;
										BgL_linez00_5952 = BgL_linez00_9204;
										BgL_flinesz00_5951 = BgL_flinesz00_9203;
										goto BgL_loopz00_5950;
									}
								}
							else
								{	/* Ieee/input.scm 618 */
									return BINT(BgL_linez00_5952);
								}
						}
				}
			else
				{	/* Ieee/input.scm 612 */
					if (STRINGP(BgL_fdescz00_94))
						{	/* Ieee/input.scm 622 */
							if (fexists(BSTRING_TO_STRING(BgL_fdescz00_94)))
								{	/* Ieee/input.scm 638 */
									obj_t BgL_zc3z04anonymousza32735ze3z87_6282;

									BgL_zc3z04anonymousza32735ze3z87_6282 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza32735ze3ze5zz__r4_input_6_10_2z00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza32735ze3z87_6282,
										(int) (0L), BINT(BgL_posz00_93));
									return
										BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00
										(BgL_fdescz00_94, BgL_zc3z04anonymousza32735ze3z87_6282);
								}
							else
								{	/* Ieee/input.scm 634 */
									return BFALSE;
								}
						}
					else
						{	/* Ieee/input.scm 622 */
							return BFALSE;
						}
				}
		}

	}



/* &file-position->line */
	obj_t BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6283, obj_t BgL_posz00_6284, obj_t BgL_fdescz00_6285)
	{
		{	/* Ieee/input.scm 610 */
			{	/* Ieee/input.scm 612 */
				int BgL_auxz00_9218;

				{	/* Ieee/input.scm 612 */
					obj_t BgL_tmpz00_9219;

					if (INTEGERP(BgL_posz00_6284))
						{	/* Ieee/input.scm 612 */
							BgL_tmpz00_9219 = BgL_posz00_6284;
						}
					else
						{
							obj_t BgL_auxz00_9222;

							BgL_auxz00_9222 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(23319L),
								BGl_string3554z00zz__r4_input_6_10_2z00,
								BGl_string3521z00zz__r4_input_6_10_2z00, BgL_posz00_6284);
							FAILURE(BgL_auxz00_9222, BFALSE, BFALSE);
						}
					BgL_auxz00_9218 = CINT(BgL_tmpz00_9219);
				}
				return
					BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00
					(BgL_auxz00_9218, BgL_fdescz00_6285);
			}
		}

	}



/* &<@anonymous:2735> */
	obj_t BGl_z62zc3z04anonymousza32735ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6286)
	{
		{	/* Ieee/input.scm 637 */
			{	/* Ieee/input.scm 638 */
				int BgL_posz00_6287;

				BgL_posz00_6287 = CINT(PROCEDURE_REF(BgL_envz00_6286, (int) (0L)));
				{
					obj_t BgL_iportz00_6566;
					obj_t BgL_posz00_6567;
					long BgL_linez00_6568;

					{	/* Ieee/input.scm 638 */
						obj_t BgL_arg2739z00_6600;

						{	/* Ieee/input.scm 638 */
							obj_t BgL_tmpz00_9231;

							BgL_tmpz00_9231 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_arg2739z00_6600 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_9231);
						}
						BgL_iportz00_6566 = BgL_arg2739z00_6600;
						BgL_posz00_6567 = BINT(BgL_posz00_6287);
						BgL_linez00_6568 = 1L;
						{
							obj_t BgL_iportz00_6592;
							long BgL_lastzd2matchzd2_6593;
							long BgL_forwardz00_6594;
							long BgL_bufposz00_6595;
							obj_t BgL_iportz00_6584;
							long BgL_lastzd2matchzd2_6585;
							long BgL_forwardz00_6586;
							long BgL_bufposz00_6587;

						BgL_ignorez00_6569:
							RGC_START_MATCH(BgL_iportz00_6566);
							{	/* Ieee/input.scm 623 */
								long BgL_matchz00_6572;

								{	/* Ieee/input.scm 623 */
									long BgL_arg2919z00_6573;
									long BgL_arg2920z00_6574;

									BgL_arg2919z00_6573 = RGC_BUFFER_FORWARD(BgL_iportz00_6566);
									BgL_arg2920z00_6574 = RGC_BUFFER_BUFPOS(BgL_iportz00_6566);
									{
										long BgL_forwardz00_6576;
										long BgL_bufposz00_6577;

										BgL_forwardz00_6576 = BgL_arg2919z00_6573;
										BgL_bufposz00_6577 = BgL_arg2920z00_6574;
									BgL_statezd20zd21159z00_6575:
										if ((BgL_forwardz00_6576 == BgL_bufposz00_6577))
											{	/* Ieee/input.scm 623 */
												if (rgc_fill_buffer(BgL_iportz00_6566))
													{	/* Ieee/input.scm 623 */
														long BgL_arg2763z00_6578;
														long BgL_arg2765z00_6579;

														BgL_arg2763z00_6578 =
															RGC_BUFFER_FORWARD(BgL_iportz00_6566);
														BgL_arg2765z00_6579 =
															RGC_BUFFER_BUFPOS(BgL_iportz00_6566);
														{
															long BgL_bufposz00_9244;
															long BgL_forwardz00_9243;

															BgL_forwardz00_9243 = BgL_arg2763z00_6578;
															BgL_bufposz00_9244 = BgL_arg2765z00_6579;
															BgL_bufposz00_6577 = BgL_bufposz00_9244;
															BgL_forwardz00_6576 = BgL_forwardz00_9243;
															goto BgL_statezd20zd21159z00_6575;
														}
													}
												else
													{	/* Ieee/input.scm 623 */
														BgL_matchz00_6572 = 2L;
													}
											}
										else
											{	/* Ieee/input.scm 623 */
												int BgL_curz00_6580;

												BgL_curz00_6580 =
													RGC_BUFFER_GET_CHAR(BgL_iportz00_6566,
													BgL_forwardz00_6576);
												{	/* Ieee/input.scm 623 */

													if (((long) (BgL_curz00_6580) == 10L))
														{	/* Ieee/input.scm 623 */
															long BgL_arg2767z00_6581;

															BgL_arg2767z00_6581 = (1L + BgL_forwardz00_6576);
															{	/* Ieee/input.scm 623 */
																long BgL_newzd2matchzd2_6582;

																RGC_STOP_MATCH(BgL_iportz00_6566,
																	BgL_arg2767z00_6581);
																BgL_newzd2matchzd2_6582 = 0L;
																BgL_matchz00_6572 = BgL_newzd2matchzd2_6582;
														}}
													else
														{	/* Ieee/input.scm 623 */
															BgL_iportz00_6584 = BgL_iportz00_6566;
															BgL_lastzd2matchzd2_6585 = 2L;
															BgL_forwardz00_6586 = (1L + BgL_forwardz00_6576);
															BgL_bufposz00_6587 = BgL_bufposz00_6577;
														BgL_statezd21zd21160z00_6570:
															{	/* Ieee/input.scm 623 */
																long BgL_newzd2matchzd2_6588;

																RGC_STOP_MATCH(BgL_iportz00_6584,
																	BgL_forwardz00_6586);
																BgL_newzd2matchzd2_6588 = 1L;
																if ((BgL_forwardz00_6586 == BgL_bufposz00_6587))
																	{	/* Ieee/input.scm 623 */
																		if (rgc_fill_buffer(BgL_iportz00_6584))
																			{	/* Ieee/input.scm 623 */
																				long BgL_arg2753z00_6589;
																				long BgL_arg2755z00_6590;

																				BgL_arg2753z00_6589 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_6584);
																				BgL_arg2755z00_6590 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_6584);
																				{
																					long BgL_bufposz00_9259;
																					long BgL_forwardz00_9258;

																					BgL_forwardz00_9258 =
																						BgL_arg2753z00_6589;
																					BgL_bufposz00_9259 =
																						BgL_arg2755z00_6590;
																					BgL_bufposz00_6587 =
																						BgL_bufposz00_9259;
																					BgL_forwardz00_6586 =
																						BgL_forwardz00_9258;
																					goto BgL_statezd21zd21160z00_6570;
																				}
																			}
																		else
																			{	/* Ieee/input.scm 623 */
																				BgL_matchz00_6572 =
																					BgL_newzd2matchzd2_6588;
																			}
																	}
																else
																	{	/* Ieee/input.scm 623 */
																		int BgL_curz00_6591;

																		BgL_curz00_6591 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_6584,
																			BgL_forwardz00_6586);
																		{	/* Ieee/input.scm 623 */

																			if (((long) (BgL_curz00_6591) == 10L))
																				{	/* Ieee/input.scm 623 */
																					BgL_matchz00_6572 =
																						BgL_newzd2matchzd2_6588;
																				}
																			else
																				{	/* Ieee/input.scm 623 */
																					BgL_iportz00_6592 = BgL_iportz00_6584;
																					BgL_lastzd2matchzd2_6593 =
																						BgL_newzd2matchzd2_6588;
																					BgL_forwardz00_6594 =
																						(1L + BgL_forwardz00_6586);
																					BgL_bufposz00_6595 =
																						BgL_bufposz00_6587;
																				BgL_statezd24zd21163z00_6571:
																					{	/* Ieee/input.scm 623 */
																						long BgL_newzd2matchzd2_6596;

																						RGC_STOP_MATCH(BgL_iportz00_6592,
																							BgL_forwardz00_6594);
																						BgL_newzd2matchzd2_6596 = 1L;
																						if (
																							(BgL_forwardz00_6594 ==
																								BgL_bufposz00_6595))
																							{	/* Ieee/input.scm 623 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_6592))
																									{	/* Ieee/input.scm 623 */
																										long BgL_arg2744z00_6597;
																										long BgL_arg2746z00_6598;

																										BgL_arg2744z00_6597 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_6592);
																										BgL_arg2746z00_6598 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_6592);
																										{
																											long BgL_bufposz00_9272;
																											long BgL_forwardz00_9271;

																											BgL_forwardz00_9271 =
																												BgL_arg2744z00_6597;
																											BgL_bufposz00_9272 =
																												BgL_arg2746z00_6598;
																											BgL_bufposz00_6595 =
																												BgL_bufposz00_9272;
																											BgL_forwardz00_6594 =
																												BgL_forwardz00_9271;
																											goto
																												BgL_statezd24zd21163z00_6571;
																										}
																									}
																								else
																									{	/* Ieee/input.scm 623 */
																										BgL_matchz00_6572 =
																											BgL_newzd2matchzd2_6596;
																									}
																							}
																						else
																							{	/* Ieee/input.scm 623 */
																								int BgL_curz00_6599;

																								BgL_curz00_6599 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_6592,
																									BgL_forwardz00_6594);
																								{	/* Ieee/input.scm 623 */

																									if (
																										((long) (BgL_curz00_6599) ==
																											10L))
																										{	/* Ieee/input.scm 623 */
																											BgL_matchz00_6572 =
																												BgL_newzd2matchzd2_6596;
																										}
																									else
																										{
																											long BgL_forwardz00_9278;
																											long
																												BgL_lastzd2matchzd2_9277;
																											BgL_lastzd2matchzd2_9277 =
																												BgL_newzd2matchzd2_6596;
																											BgL_forwardz00_9278 =
																												(1L +
																												BgL_forwardz00_6594);
																											BgL_forwardz00_6594 =
																												BgL_forwardz00_9278;
																											BgL_lastzd2matchzd2_6593 =
																												BgL_lastzd2matchzd2_9277;
																											goto
																												BgL_statezd24zd21163z00_6571;
																										}
																								}
																							}
																					}
																				}
																		}
																	}
															}
														}
												}
											}
									}
								}
								RGC_SET_FILEPOS(BgL_iportz00_6566);
								switch (BgL_matchz00_6572)
									{
									case 2L:

										return BFALSE;
										break;
									case 1L:

										goto BgL_ignorez00_6569;
										break;
									case 0L:

										{	/* Ieee/input.scm 625 */
											bool_t BgL_test3935z00_9283;

											{	/* Ieee/input.scm 625 */
												long BgL_arg2891z00_6583;

												BgL_arg2891z00_6583 =
													INPUT_PORT_FILEPOS(BgL_iportz00_6566);
												BgL_test3935z00_9283 =
													(BgL_arg2891z00_6583 >= (long) CINT(BgL_posz00_6567));
											}
											if (BgL_test3935z00_9283)
												{	/* Ieee/input.scm 625 */
													return BINT(BgL_linez00_6568);
												}
											else
												{	/* Ieee/input.scm 625 */
													BgL_linez00_6568 = (BgL_linez00_6568 + 1L);
													goto BgL_ignorez00_6569;
												}
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3498z00zz__r4_input_6_10_2z00,
											BGl_string3499z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_6572));
									}
							}
						}
					}
				}
			}
		}

	}



/* _password */
	obj_t BGl__passwordz00zz__r4_input_6_10_2z00(obj_t BgL_env1329z00_97,
		obj_t BgL_opt1328z00_96)
	{
		{	/* Ieee/input.scm 645 */
			{	/* Ieee/input.scm 645 */

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

						{	/* Ieee/input.scm 645 */

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

						{	/* Ieee/input.scm 645 */
							obj_t BgL_promptz00_6601;

							BgL_promptz00_6601 = VECTOR_REF(BgL_opt1328z00_96, 0L);
							{	/* Ieee/input.scm 645 */

								{	/* Ieee/input.scm 645 */
									obj_t BgL_promptz00_6602;

									if (STRINGP(BgL_promptz00_6601))
										{	/* Ieee/input.scm 645 */
											BgL_promptz00_6602 = BgL_promptz00_6601;
										}
									else
										{
											obj_t BgL_auxz00_9298;

											BgL_auxz00_9298 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3505z00zz__r4_input_6_10_2z00, BINT(24216L),
												BGl_string3555z00zz__r4_input_6_10_2z00,
												BGl_string3517z00zz__r4_input_6_10_2z00,
												BgL_promptz00_6601);
											FAILURE(BgL_auxz00_9298, BFALSE, BFALSE);
										}
									return bgl_password(BSTRING_TO_STRING(BgL_promptz00_6602));
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



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

	}



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

	}



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

	}



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

	}



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

	}

#ifdef __cplusplus
}
#endif
