/*===========================================================================*/
/*   (Ieee/input.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -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

	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_symbol3620z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00(obj_t, obj_t);
	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_z62zc3z04anonymousza32568ze3ze5zz__r4_input_6_10_2z00(obj_t);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__gunza7ipza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol3641z00zz__r4_input_6_10_2z00 = BUNSPEC;
	extern obj_t bgl_file_to_string(char *);
	static obj_t BGl_symbol3647z00zz__r4_input_6_10_2z00 = BUNSPEC;
	extern bool_t fexists(char *);
	BGL_EXPORTED_DECL obj_t BGl_eofzd2objectzd2zz__r4_input_6_10_2z00(void);
	static obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_symbol3653z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_symbol3657z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00(void);
	static obj_t BGl__readzd2linezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern bool_t rgc_buffer_insert_substring(obj_t, obj_t, long, long);
	static obj_t BGl_z62zc3z04anonymousza32579ze3ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00(obj_t,
		obj_t, obj_t);
	extern obj_t
		BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
	static obj_t BGl_symbol3661z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_symbol3664z00zz__r4_input_6_10_2z00 = BUNSPEC;
	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_symbol3673z00zz__r4_input_6_10_2z00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_input_6_10_2z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_peekzd2charzd2zz__r4_input_6_10_2z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_readzd2ofzd2stringsz00zz__r4_input_6_10_2z00(obj_t);
	extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
	static obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__r4_input_6_10_2z00(void);
	extern long bgl_rgc_blit_string(obj_t, char *, long, long);
	static obj_t BGl__readzd2stringzd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_symbol3680z00zz__r4_input_6_10_2z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t, long, long,
		obj_t);
	BGL_EXPORTED_DECL long BGl_sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t,
		long, long);
	extern obj_t bgl_password(char *);
	static obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t bgl_sendchars(obj_t, obj_t, long, long);
	static obj_t BGl__peekzd2bytezd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl__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 bgl_sendfile(obj_t, obj_t, long, long);
	extern bool_t rgc_buffer_insert_char(obj_t, int);
	static obj_t BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00
		= BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
	extern int rgc_buffer_unget_char(obj_t, int);
	BGL_EXPORTED_DECL obj_t BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	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_z62zc3z04anonymousza31395ze3ze5zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	static obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern long default_io_bufsiz;
	BGL_EXPORTED_DECL obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__r4_input_6_10_2z00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t 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);
	BGL_EXPORTED_DECL obj_t BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl__readzd2lineszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t bgl_close_input_port(obj_t);
	extern obj_t bgl_bignum_sub(obj_t, obj_t);
	static obj_t BGl__readzd2linezd2newlinez00zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern bool_t bgl_rgc_charready(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32750ze3ze5zz__r4_input_6_10_2z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_readzd2bytezd2zz__r4_input_6_10_2z00(obj_t);
	extern obj_t bgl_long_to_bignum(long);
	static obj_t
		BGl_z62zc3z04anonymousza32579ze33381ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza32579ze33382ze5zz__r4_input_6_10_2z00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza32579ze33383ze5zz__r4_input_6_10_2z00(obj_t);
	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__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t,
		obj_t);
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	BGL_EXPORTED_DECL obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
	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_z62zc3z04anonymousza32582ze3ze5zz__r4_input_6_10_2z00(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__peekza7d2byteza7d2za73686za7, opt_generic_entry,
		BGl__peekzd2bytezd2zz__r4_input_6_10_2z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3650z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3650za700za7za7_3687za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string3651z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3651za700za7za7_3688za7, "_unread-char!", 13);
	      BGL_DEFINE_STRING(BGl_string3652z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3652za700za7za7_3689za7, "bchar", 5);
	      BGL_DEFINE_STRING(BGl_string3654z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3654za700za7za7_3690za7, "unread-char!", 12);
	      BGL_DEFINE_STRING(BGl_string3655z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3655za700za7za7_3691za7, "Unread char failed", 18);
	      BGL_DEFINE_STRING(BGl_string3656z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3656za700za7za7_3692za7, "_unread-string!", 15);
	      BGL_DEFINE_STRING(BGl_string3658z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3658za700za7za7_3693za7, "unread-string!", 14);
	      BGL_DEFINE_STRING(BGl_string3659z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3659za700za7za7_3694za7, "Unread string failed", 20);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2bytezd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2byteza7d2za73695za7, 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_za762readza7f2lalrpza73696za7, va_generic_entry,
		BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00, BUNSPEC, -4);
	      BGL_DEFINE_STRING(BGl_string3660z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3660za700za7za7_3697za7, "_unread-substring!", 18);
	      BGL_DEFINE_STRING(BGl_string3662z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3662za700za7za7_3698za7, "unread-substring!", 17);
	      BGL_DEFINE_STRING(BGl_string3663z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3663za700za7za7_3699za7, "Invalid positional parameters", 29);
	      BGL_DEFINE_STRING(BGl_string3665z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3665za700za7za7_3700za7, "unread-sustring!", 16);
	      BGL_DEFINE_STRING(BGl_string3666z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3666za700za7za7_3701za7, "&port->string-list", 18);
	      BGL_DEFINE_STRING(BGl_string3667z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3667za700za7za7_3702za7, "file:", 5);
	      BGL_DEFINE_STRING(BGl_string3668z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3668za700za7za7_3703za7, "&file->string", 13);
	      BGL_DEFINE_STRING(BGl_string3669z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3669za700za7za7_3704za7, "&send-chars/size", 16);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2charsza7d23705z00, opt_generic_entry,
		BGl__readzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3670z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3670za700za7za7_3706za7, "output-port", 11);
	      BGL_DEFINE_STRING(BGl_string3671z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3671za700za7za7_3707za7, "belong", 6);
	      BGL_DEFINE_STRING(BGl_string3672z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3672za700za7za7_3708za7, "_send-chars", 11);
	      BGL_DEFINE_STRING(BGl_string3674z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3674za700za7za7_3709za7, "send-chars", 10);
	      BGL_DEFINE_STRING(BGl_string3675z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3675za700za7za7_3710za7, "Illegal size", 12);
	      BGL_DEFINE_STRING(BGl_string3676z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3676za700za7za7_3711za7, "Illegal offset", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_sendzd2filezd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__sendza7d2fileza7d2za73712za7, opt_generic_entry,
		BGl__sendzd2filezd2zz__r4_input_6_10_2z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3677z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3677za700za7za7_3713za7, "_send-file", 10);
	      BGL_DEFINE_STRING(BGl_string3678z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3678za700za7za7_3714za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string3679z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3679za700za7za7_3715za7, "&file-lines", 11);
	      BGL_DEFINE_STRING(BGl_string3681z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3681za700za7za7_3716za7, "file-lines", 10);
	      BGL_DEFINE_STRING(BGl_string3682z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3682za700za7za7_3717za7, "Illegal files", 13);
	      BGL_DEFINE_STRING(BGl_string3683z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3683za700za7za7_3718za7, "&file-position->line", 20);
	      BGL_DEFINE_STRING(BGl_string3684z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3684za700za7za7_3719za7, "_password", 9);
	      BGL_DEFINE_STRING(BGl_string3685z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3685za700za7za7_3720za7, "__r4_input_6_10_2", 17);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2ze3stringzd2envze3zz__r4_input_6_10_2z00,
		BgL_bgl_za762fileza7d2za7e3str3721za7,
		BGl_z62filezd2ze3stringz53zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2lineszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl_za762fileza7d2linesza73722za7,
		BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2linezd2newlinezd2envzd2zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2lineza7d2n3723z00, 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__peekza7d2charza7d2za73724za7, 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__readza7d2charsza7123725z00, 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__readza7d2charza7d2za73726za7, 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__charza7d2readyza7f33727z00, 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__unreadza7d2charza713728z00, 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_za762sendza7d2charsza73729za7,
		BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00, 0L, BUNSPEC, 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00,
		BgL_bgl_za762readza7f2rpza790za73730z00, 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__readza7d2lineza7d2za73731za7, 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__readza7d2stringza7d3732z00, 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__unreadza7d2string3733za7, opt_generic_entry,
		BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2ofza7d2str3734z00, opt_generic_entry,
		BGl__readzd2ofzd2stringsz00zz__r4_input_6_10_2z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2fillza7d2s3735z00, 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_za762eofza7d2objectza73736za7,
		BGl_z62eofzd2objectzb0zz__r4_input_6_10_2z00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00,
		BgL_bgl_za762eofza7d2objectza73737za7,
		BGl_z62eofzd2objectzf3z43zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3616z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3616za700za7za7_3738za7, "regular-grammar", 15);
	      BGL_DEFINE_STRING(BGl_string3617z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3617za700za7za7_3739za7, "Illegal match", 13);
	      BGL_DEFINE_STRING(BGl_string3618z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3618za700za7za7_3740za7, "Illegal range `~a'", 18);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_passwordzd2envzd2zz__r4_input_6_10_2z00,
		BgL_bgl__passwordza700za7za7__3741za7, opt_generic_entry,
		BGl__passwordz00zz__r4_input_6_10_2z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3619z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3619za700za7za7_3742za7, "the-substring", 13);
	      BGL_DEFINE_STRING(BGl_string3621z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3621za700za7za7_3743za7, "read/rp", 7);
	      BGL_DEFINE_STRING(BGl_string3622z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3622za700za7za7_3744za7, "Grammar arity mismatch", 22);
	      BGL_DEFINE_STRING(BGl_string3623z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3623za700za7za7_3745za7, "/tmp/bigloo/runtime/Ieee/input.scm",
		34);
	      BGL_DEFINE_STRING(BGl_string3624z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3624za700za7za7_3746za7, "&read/rp", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_portzd2ze3stringzd2listzd2envz31zz__r4_input_6_10_2z00,
		BgL_bgl_za762portza7d2za7e3str3747za7,
		BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3625z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3625za700za7za7_3748za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string3626z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3626za700za7za7_3749za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string3627z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3627za700za7za7_3750za7, "&read/lalrp", 11);
	      BGL_DEFINE_STRING(BGl_string3628z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3628za700za7za7_3751za7, "_read-char", 10);
	      BGL_DEFINE_STRING(BGl_string3629z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3629za700za7za7_3752za7, "vector", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00,
		BgL_bgl__readza7d2linesza7d23753z00, 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__sendza7d2charsza7d23754z00, opt_generic_entry,
		BGl__sendzd2charszd2zz__r4_input_6_10_2z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3630z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3630za700za7za7_3755za7, "_peek-char", 10);
	      BGL_DEFINE_STRING(BGl_string3631z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3631za700za7za7_3756za7, "_read-byte", 10);
	      BGL_DEFINE_STRING(BGl_string3632z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3632za700za7za7_3757za7, "_peek-byte", 10);
	      BGL_DEFINE_STRING(BGl_string3633z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3633za700za7za7_3758za7, "_char-ready?", 12);
	      BGL_DEFINE_STRING(BGl_string3634z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3634za700za7za7_3759za7, "_read-line", 10);
	      BGL_DEFINE_STRING(BGl_string3635z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3635za700za7za7_3760za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string3636z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3636za700za7za7_3761za7, "_read-line-newline", 18);
	      BGL_DEFINE_STRING(BGl_string3637z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3637za700za7za7_3762za7, "_read-lines", 11);
	      BGL_DEFINE_STRING(BGl_string3638z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3638za700za7za7_3763za7, "_read-string", 12);
	      BGL_DEFINE_STRING(BGl_string3639z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3639za700za7za7_3764za7, "_read-of-strings", 16);
	      BGL_DEFINE_STRING(BGl_string3640z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3640za700za7za7_3765za7, "_read-chars", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unreadzd2substringz12zd2envz12zz__r4_input_6_10_2z00,
		BgL_bgl__unreadza7d2substr3766za7, opt_generic_entry,
		BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3642z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3642za700za7za7_3767za7, "read-chars", 10);
	      BGL_DEFINE_STRING(BGl_string3643z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3643za700za7za7_3768za7, "integer", 7);
	      BGL_DEFINE_STRING(BGl_string3644z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3644za700za7za7_3769za7, "Illegal negative length", 23);
	      BGL_DEFINE_STRING(BGl_string3645z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3645za700za7za7_3770za7, "_read-chars!", 12);
	      BGL_DEFINE_STRING(BGl_string3646z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3646za700za7za7_3771za7, "bstring", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2positionzd2ze3linezd2envz31zz__r4_input_6_10_2z00,
		BgL_bgl_za762fileza7d2positi3772z00,
		BGl_z62filezd2positionzd2ze3linez81zz__r4_input_6_10_2z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3648z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3648za700za7za7_3773za7, "read-chars!", 11);
	      BGL_DEFINE_STRING(BGl_string3649z00zz__r4_input_6_10_2z00,
		BgL_bgl_string3649za700za7za7_3774za7, "_read-fill-string!", 18);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string3649z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3649za700za7za7_3774za7);
		BGL_BIND_STRING(BGl_string3648z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3648za700za7za7_3773za7);
		BGL_BIND_PROCEDURE
			(BGl_filezd2positionzd2ze3linezd2envz31zz__r4_input_6_10_2z00,
			BgL_bgl_za762fileza7d2positi3772z00);
		BGL_BIND_STRING(BGl_string3646z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3646za700za7za7_3771za7);
		BGL_BIND_STRING(BGl_string3645z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3645za700za7za7_3770za7);
		BGL_BIND_STRING(BGl_string3644z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3644za700za7za7_3769za7);
		BGL_BIND_STRING(BGl_string3643z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3643za700za7za7_3768za7);
		BGL_BIND_STRING(BGl_string3642z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3642za700za7za7_3767za7);
		BGL_BIND_PROCEDURE(BGl_unreadzd2substringz12zd2envz12zz__r4_input_6_10_2z00,
			BgL_bgl__unreadza7d2substr3766za7);
		BGL_BIND_STRING(BGl_string3640z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3640za700za7za7_3765za7);
		BGL_BIND_STRING(BGl_string3639z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3639za700za7za7_3764za7);
		BGL_BIND_STRING(BGl_string3638z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3638za700za7za7_3763za7);
		BGL_BIND_STRING(BGl_string3637z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3637za700za7za7_3762za7);
		BGL_BIND_STRING(BGl_string3636z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3636za700za7za7_3761za7);
		BGL_BIND_STRING(BGl_string3635z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3635za700za7za7_3760za7);
		BGL_BIND_STRING(BGl_string3634z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3634za700za7za7_3759za7);
		BGL_BIND_STRING(BGl_string3633z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3633za700za7za7_3758za7);
		BGL_BIND_STRING(BGl_string3632z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3632za700za7za7_3757za7);
		BGL_BIND_STRING(BGl_string3631z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3631za700za7za7_3756za7);
		BGL_BIND_STRING(BGl_string3630z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3630za700za7za7_3755za7);
		BGL_BIND_PROCEDURE(BGl_sendzd2charszd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__sendza7d2charsza7d23754z00);
		BGL_BIND_PROCEDURE(BGl_readzd2lineszd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2linesza7d23753z00);
		BGL_BIND_STRING(BGl_string3629z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3629za700za7za7_3752za7);
		BGL_BIND_STRING(BGl_string3628z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3628za700za7za7_3751za7);
		BGL_BIND_STRING(BGl_string3627z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3627za700za7za7_3750za7);
		BGL_BIND_STRING(BGl_string3626z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3626za700za7za7_3749za7);
		BGL_BIND_STRING(BGl_string3625z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3625za700za7za7_3748za7);
		BGL_BIND_PROCEDURE
			(BGl_portzd2ze3stringzd2listzd2envz31zz__r4_input_6_10_2z00,
			BgL_bgl_za762portza7d2za7e3str3747za7);
		BGL_BIND_STRING(BGl_string3624z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3624za700za7za7_3746za7);
		BGL_BIND_STRING(BGl_string3623z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3623za700za7za7_3745za7);
		BGL_BIND_STRING(BGl_string3622z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3622za700za7za7_3744za7);
		BGL_BIND_STRING(BGl_string3621z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3621za700za7za7_3743za7);
		BGL_BIND_STRING(BGl_string3619z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3619za700za7za7_3742za7);
		BGL_BIND_PROCEDURE(BGl_passwordzd2envzd2zz__r4_input_6_10_2z00,
			BgL_bgl__passwordza700za7za7__3741za7);
		BGL_BIND_STRING(BGl_string3618z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3618za700za7za7_3740za7);
		BGL_BIND_STRING(BGl_string3617z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3617za700za7za7_3739za7);
		BGL_BIND_STRING(BGl_string3616z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3616za700za7za7_3738za7);
		BGL_BIND_PROCEDURE(BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00,
			BgL_bgl_za762eofza7d2objectza73737za7);
		BGL_BIND_PROCEDURE(BGl_eofzd2objectzd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl_za762eofza7d2objectza73736za7);
		BGL_BIND_PROCEDURE
			(BGl_readzd2fillzd2stringz12zd2envzc0zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2fillza7d2s3735z00);
		BGL_BIND_PROCEDURE(BGl_readzd2ofzd2stringszd2envzd2zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2ofza7d2str3734z00);
		BGL_BIND_PROCEDURE(BGl_unreadzd2stringz12zd2envz12zz__r4_input_6_10_2z00,
			BgL_bgl__unreadza7d2string3733za7);
		BGL_BIND_PROCEDURE(BGl_readzd2stringzd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2stringza7d3732z00);
		BGL_BIND_PROCEDURE(BGl_readzd2linezd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2lineza7d2za73731za7);
		BGL_BIND_PROCEDURE(BGl_readzf2rpzd2envz20zz__r4_input_6_10_2z00,
			BgL_bgl_za762readza7f2rpza790za73730z00);
		BGL_BIND_PROCEDURE(BGl_sendzd2charszf2siza7ezd2envz55zz__r4_input_6_10_2z00,
			BgL_bgl_za762sendza7d2charsza73729za7);
		BGL_BIND_PROCEDURE(BGl_unreadzd2charz12zd2envz12zz__r4_input_6_10_2z00,
			BgL_bgl__unreadza7d2charza713728z00);
		BGL_BIND_PROCEDURE(BGl_charzd2readyzf3zd2envzf3zz__r4_input_6_10_2z00,
			BgL_bgl__charza7d2readyza7f33727z00);
		BGL_BIND_PROCEDURE(BGl_readzd2charzd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2charza7d2za73726za7);
		BGL_BIND_PROCEDURE(BGl_readzd2charsz12zd2envz12zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2charsza7123725z00);
		BGL_BIND_PROCEDURE(BGl_peekzd2charzd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__peekza7d2charza7d2za73724za7);
		BGL_BIND_PROCEDURE(BGl_readzd2linezd2newlinezd2envzd2zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2lineza7d2n3723z00);
		BGL_BIND_PROCEDURE(BGl_filezd2lineszd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl_za762fileza7d2linesza73722za7);
		BGL_BIND_PROCEDURE(BGl_filezd2ze3stringzd2envze3zz__r4_input_6_10_2z00,
			BgL_bgl_za762fileza7d2za7e3str3721za7);
		BGL_BIND_STRING(BGl_string3685z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3685za700za7za7_3720za7);
		BGL_BIND_STRING(BGl_string3684z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3684za700za7za7_3719za7);
		BGL_BIND_STRING(BGl_string3683z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3683za700za7za7_3718za7);
		BGL_BIND_STRING(BGl_string3682z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3682za700za7za7_3717za7);
		BGL_BIND_STRING(BGl_string3681z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3681za700za7za7_3716za7);
		BGL_BIND_STRING(BGl_string3679z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3679za700za7za7_3715za7);
		BGL_BIND_STRING(BGl_string3678z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3678za700za7za7_3714za7);
		BGL_BIND_STRING(BGl_string3677z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3677za700za7za7_3713za7);
		BGL_BIND_PROCEDURE(BGl_sendzd2filezd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__sendza7d2fileza7d2za73712za7);
		BGL_BIND_STRING(BGl_string3676z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3676za700za7za7_3711za7);
		BGL_BIND_STRING(BGl_string3675z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3675za700za7za7_3710za7);
		BGL_BIND_STRING(BGl_string3674z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3674za700za7za7_3709za7);
		BGL_BIND_STRING(BGl_string3672z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3672za700za7za7_3708za7);
		BGL_BIND_STRING(BGl_string3671z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3671za700za7za7_3707za7);
		BGL_BIND_STRING(BGl_string3670z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3670za700za7za7_3706za7);
		BGL_BIND_PROCEDURE(BGl_readzd2charszd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2charsza7d23705z00);
		BGL_BIND_STRING(BGl_string3669z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3669za700za7za7_3704za7);
		BGL_BIND_STRING(BGl_string3668z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3668za700za7za7_3703za7);
		BGL_BIND_STRING(BGl_string3667z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3667za700za7za7_3702za7);
		BGL_BIND_STRING(BGl_string3666z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3666za700za7za7_3701za7);
		BGL_BIND_STRING(BGl_string3665z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3665za700za7za7_3700za7);
		BGL_BIND_STRING(BGl_string3663z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3663za700za7za7_3699za7);
		BGL_BIND_STRING(BGl_string3662z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3662za700za7za7_3698za7);
		BGL_BIND_STRING(BGl_string3660z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3660za700za7za7_3697za7);
		BGL_BIND_PROCEDURE(BGl_readzf2lalrpzd2envz20zz__r4_input_6_10_2z00,
			BgL_bgl_za762readza7f2lalrpza73696za7);
		BGL_BIND_PROCEDURE(BGl_readzd2bytezd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__readza7d2byteza7d2za73695za7);
		BGL_BIND_STRING(BGl_string3659z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3659za700za7za7_3694za7);
		BGL_BIND_STRING(BGl_string3658z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3658za700za7za7_3693za7);
		BGL_BIND_STRING(BGl_string3656z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3656za700za7za7_3692za7);
		BGL_BIND_STRING(BGl_string3655z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3655za700za7za7_3691za7);
		BGL_BIND_STRING(BGl_string3654z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3654za700za7za7_3690za7);
		BGL_BIND_STRING(BGl_string3652z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3652za700za7za7_3689za7);
		BGL_BIND_STRING(BGl_string3651z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3651za700za7za7_3688za7);
		BGL_BIND_STRING(BGl_string3650z00zz__r4_input_6_10_2z00,
			BgL_bgl_string3650za700za7za7_3687za7);
		BGL_BIND_PROCEDURE(BGl_peekzd2bytezd2envz00zz__r4_input_6_10_2z00,
			BgL_bgl__peekza7d2byteza7d2za73686za7);
	}

/* 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_symbol3620z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3641z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3647z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3653z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3657z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3661z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3664z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3673z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void *) (&BGl_symbol3680z00zz__r4_input_6_10_2z00));
		ADD_ROOT((void
				*) (&BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__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_6758, char *BgL_fromz00_6759)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_input_6_10_2z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_input_6_10_2z00();
					BGl_cnstzd2initzd2zz__r4_input_6_10_2z00();
					BGl_importedzd2moduleszd2initz00zz__r4_input_6_10_2z00();
					return BGl_toplevelzd2initzd2zz__r4_input_6_10_2z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__r4_input_6_10_2z00(void)
	{
		{	/* Ieee/input.scm 14 */
			BGl_symbol3620z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3621z00zz__r4_input_6_10_2z00);
			BGl_symbol3641z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3642z00zz__r4_input_6_10_2z00);
			BGl_symbol3647z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3648z00zz__r4_input_6_10_2z00);
			BGl_symbol3653z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3654z00zz__r4_input_6_10_2z00);
			BGl_symbol3657z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3658z00zz__r4_input_6_10_2z00);
			BGl_symbol3661z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3662z00zz__r4_input_6_10_2z00);
			BGl_symbol3664z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3665z00zz__r4_input_6_10_2z00);
			BGl_symbol3673z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3674z00zz__r4_input_6_10_2z00);
			return (BGl_symbol3680z00zz__r4_input_6_10_2z00 =
				bstring_to_symbol(BGl_string3681z00zz__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_zc3z04anonymousza31395ze3z87_6267;

				{
					int BgL_tmpz00_6778;

					BgL_tmpz00_6778 = (int) (0L);
					BgL_zc3z04anonymousza31395ze3z87_6267 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_6778);
				}
				return (BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00
					= BgL_zc3z04anonymousza31395ze3z87_6267, BUNSPEC);
			}
		}

	}



/* &<@anonymous:1395> */
	obj_t BGl_z62zc3z04anonymousza31395ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6268, obj_t BgL_iportz00_6269)
	{
		{	/* Ieee/input.scm 307 */
			{
				obj_t BgL_iportz00_6650;
				long BgL_lastzd2matchzd2_6651;
				long BgL_forwardz00_6652;
				long BgL_bufposz00_6653;
				obj_t BgL_iportz00_6633;
				long BgL_lastzd2matchzd2_6634;
				long BgL_forwardz00_6635;
				long BgL_bufposz00_6636;
				obj_t BgL_iportz00_6625;
				long BgL_lastzd2matchzd2_6626;
				long BgL_forwardz00_6627;
				long BgL_bufposz00_6628;
				obj_t BgL_iportz00_6609;
				long BgL_lastzd2matchzd2_6610;
				long BgL_forwardz00_6611;
				long BgL_bufposz00_6612;
				obj_t BgL_iportz00_6602;
				long BgL_lastzd2matchzd2_6603;
				long BgL_forwardz00_6604;
				long BgL_bufposz00_6605;
				obj_t BgL_iportz00_6594;
				long BgL_lastzd2matchzd2_6595;
				long BgL_forwardz00_6596;
				long BgL_bufposz00_6597;
				obj_t BgL_iportz00_6586;
				long BgL_lastzd2matchzd2_6587;
				long BgL_forwardz00_6588;
				long BgL_bufposz00_6589;
				int BgL_minz00_6574;
				int BgL_maxz00_6575;

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

					BgL_tmpz00_6781 = ((obj_t) BgL_iportz00_6269);
					RGC_START_MATCH(BgL_tmpz00_6781);
				}
				{	/* Ieee/input.scm 307 */
					long BgL_matchz00_6568;

					{	/* Ieee/input.scm 307 */
						long BgL_arg1581z00_6569;
						long BgL_arg1582z00_6570;

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

							BgL_tmpz00_6784 = ((obj_t) BgL_iportz00_6269);
							BgL_arg1581z00_6569 = RGC_BUFFER_FORWARD(BgL_tmpz00_6784);
						}
						{	/* Ieee/input.scm 307 */
							obj_t BgL_tmpz00_6787;

							BgL_tmpz00_6787 = ((obj_t) BgL_iportz00_6269);
							BgL_arg1582z00_6570 = RGC_BUFFER_BUFPOS(BgL_tmpz00_6787);
						}
						BgL_iportz00_6602 = BgL_iportz00_6269;
						BgL_lastzd2matchzd2_6603 = 4L;
						BgL_forwardz00_6604 = BgL_arg1581z00_6569;
						BgL_bufposz00_6605 = BgL_arg1582z00_6570;
					BgL_statezd20zd21103z00_6563:
						if ((BgL_forwardz00_6604 == BgL_bufposz00_6605))
							{	/* Ieee/input.scm 307 */
								if (rgc_fill_buffer(((obj_t) BgL_iportz00_6602)))
									{	/* Ieee/input.scm 307 */
										long BgL_arg1442z00_6606;
										long BgL_arg1443z00_6607;

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

											BgL_tmpz00_6795 = ((obj_t) BgL_iportz00_6602);
											BgL_arg1442z00_6606 = RGC_BUFFER_FORWARD(BgL_tmpz00_6795);
										}
										{	/* Ieee/input.scm 307 */
											obj_t BgL_tmpz00_6798;

											BgL_tmpz00_6798 = ((obj_t) BgL_iportz00_6602);
											BgL_arg1443z00_6607 = RGC_BUFFER_BUFPOS(BgL_tmpz00_6798);
										}
										{
											long BgL_bufposz00_6802;
											long BgL_forwardz00_6801;

											BgL_forwardz00_6801 = BgL_arg1442z00_6606;
											BgL_bufposz00_6802 = BgL_arg1443z00_6607;
											BgL_bufposz00_6605 = BgL_bufposz00_6802;
											BgL_forwardz00_6604 = BgL_forwardz00_6801;
											goto BgL_statezd20zd21103z00_6563;
										}
									}
								else
									{	/* Ieee/input.scm 307 */
										BgL_matchz00_6568 = BgL_lastzd2matchzd2_6603;
									}
							}
						else
							{	/* Ieee/input.scm 307 */
								int BgL_curz00_6608;

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

									BgL_tmpz00_6803 = ((obj_t) BgL_iportz00_6602);
									BgL_curz00_6608 =
										RGC_BUFFER_GET_CHAR(BgL_tmpz00_6803, BgL_forwardz00_6604);
								}
								{	/* Ieee/input.scm 307 */

									if (((long) (BgL_curz00_6608) == 34L))
										{	/* Ieee/input.scm 307 */
											BgL_iportz00_6633 = BgL_iportz00_6602;
											BgL_lastzd2matchzd2_6634 = BgL_lastzd2matchzd2_6603;
											BgL_forwardz00_6635 = (1L + BgL_forwardz00_6604);
											BgL_bufposz00_6636 = BgL_bufposz00_6605;
										BgL_statezd23zd21106z00_6566:
											{	/* Ieee/input.scm 307 */
												long BgL_newzd2matchzd2_6637;

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

													BgL_tmpz00_6809 = ((obj_t) BgL_iportz00_6633);
													RGC_STOP_MATCH(BgL_tmpz00_6809, BgL_forwardz00_6635);
												}
												BgL_newzd2matchzd2_6637 = 1L;
												if ((BgL_forwardz00_6635 == BgL_bufposz00_6636))
													{	/* Ieee/input.scm 307 */
														if (rgc_fill_buffer(((obj_t) BgL_iportz00_6633)))
															{	/* Ieee/input.scm 307 */
																long BgL_arg1409z00_6638;
																long BgL_arg1410z00_6639;

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

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

																	BgL_tmpz00_6820 = ((obj_t) BgL_iportz00_6633);
																	BgL_arg1410z00_6639 =
																		RGC_BUFFER_BUFPOS(BgL_tmpz00_6820);
																}
																{
																	long BgL_bufposz00_6824;
																	long BgL_forwardz00_6823;

																	BgL_forwardz00_6823 = BgL_arg1409z00_6638;
																	BgL_bufposz00_6824 = BgL_arg1410z00_6639;
																	BgL_bufposz00_6636 = BgL_bufposz00_6824;
																	BgL_forwardz00_6635 = BgL_forwardz00_6823;
																	goto BgL_statezd23zd21106z00_6566;
																}
															}
														else
															{	/* Ieee/input.scm 307 */
																BgL_matchz00_6568 = BgL_newzd2matchzd2_6637;
															}
													}
												else
													{	/* Ieee/input.scm 307 */
														int BgL_curz00_6640;

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

															BgL_tmpz00_6825 = ((obj_t) BgL_iportz00_6633);
															BgL_curz00_6640 =
																RGC_BUFFER_GET_CHAR(BgL_tmpz00_6825,
																BgL_forwardz00_6635);
														}
														{	/* Ieee/input.scm 307 */

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

																	BgL_arg1412z00_6641 =
																		(1L + BgL_forwardz00_6635);
																	{
																		long BgL_forwardz00_6643;
																		long BgL_bufposz00_6644;

																		BgL_forwardz00_6643 = BgL_arg1412z00_6641;
																		BgL_bufposz00_6644 = BgL_bufposz00_6636;
																	BgL_statezd26zd21109z00_6642:
																		if (
																			(BgL_forwardz00_6643 ==
																				BgL_bufposz00_6644))
																			{	/* Ieee/input.scm 307 */
																				if (rgc_fill_buffer(
																						((obj_t) BgL_iportz00_6633)))
																					{	/* Ieee/input.scm 307 */
																						long BgL_arg1465z00_6645;
																						long BgL_arg1466z00_6646;

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

																							BgL_tmpz00_6837 =
																								((obj_t) BgL_iportz00_6633);
																							BgL_arg1465z00_6645 =
																								RGC_BUFFER_FORWARD
																								(BgL_tmpz00_6837);
																						}
																						{	/* Ieee/input.scm 307 */
																							obj_t BgL_tmpz00_6840;

																							BgL_tmpz00_6840 =
																								((obj_t) BgL_iportz00_6633);
																							BgL_arg1466z00_6646 =
																								RGC_BUFFER_BUFPOS
																								(BgL_tmpz00_6840);
																						}
																						{
																							long BgL_bufposz00_6844;
																							long BgL_forwardz00_6843;

																							BgL_forwardz00_6843 =
																								BgL_arg1465z00_6645;
																							BgL_bufposz00_6844 =
																								BgL_arg1466z00_6646;
																							BgL_bufposz00_6644 =
																								BgL_bufposz00_6844;
																							BgL_forwardz00_6643 =
																								BgL_forwardz00_6843;
																							goto BgL_statezd26zd21109z00_6642;
																						}
																					}
																				else
																					{	/* Ieee/input.scm 307 */
																						BgL_matchz00_6568 =
																							BgL_newzd2matchzd2_6637;
																					}
																			}
																		else
																			{	/* Ieee/input.scm 307 */
																				int BgL_curz00_6647;

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

																					BgL_tmpz00_6845 =
																						((obj_t) BgL_iportz00_6633);
																					BgL_curz00_6647 =
																						RGC_BUFFER_GET_CHAR(BgL_tmpz00_6845,
																						BgL_forwardz00_6643);
																				}
																				{	/* Ieee/input.scm 307 */

																					if (((long) (BgL_curz00_6647) == 10L))
																						{	/* Ieee/input.scm 307 */
																							BgL_matchz00_6568 =
																								BgL_newzd2matchzd2_6637;
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							BgL_iportz00_6609 =
																								BgL_iportz00_6633;
																							BgL_lastzd2matchzd2_6610 =
																								BgL_newzd2matchzd2_6637;
																							BgL_forwardz00_6611 =
																								(1L + BgL_forwardz00_6643);
																							BgL_bufposz00_6612 =
																								BgL_bufposz00_6644;
																						BgL_statezd24zd21107z00_6564:
																							if (
																								(BgL_forwardz00_6611 ==
																									BgL_bufposz00_6612))
																								{	/* Ieee/input.scm 307 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_6609)))
																										{	/* Ieee/input.scm 307 */
																											long BgL_arg1430z00_6613;
																											long BgL_arg1431z00_6614;

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

																												BgL_tmpz00_6856 =
																													((obj_t)
																													BgL_iportz00_6609);
																												BgL_arg1430z00_6613 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_6856);
																											}
																											{	/* Ieee/input.scm 307 */
																												obj_t BgL_tmpz00_6859;

																												BgL_tmpz00_6859 =
																													((obj_t)
																													BgL_iportz00_6609);
																												BgL_arg1431z00_6614 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_6859);
																											}
																											{
																												long BgL_bufposz00_6863;
																												long
																													BgL_forwardz00_6862;
																												BgL_forwardz00_6862 =
																													BgL_arg1430z00_6613;
																												BgL_bufposz00_6863 =
																													BgL_arg1431z00_6614;
																												BgL_bufposz00_6612 =
																													BgL_bufposz00_6863;
																												BgL_forwardz00_6611 =
																													BgL_forwardz00_6862;
																												goto
																													BgL_statezd24zd21107z00_6564;
																											}
																										}
																									else
																										{	/* Ieee/input.scm 307 */
																											BgL_matchz00_6568 =
																												BgL_lastzd2matchzd2_6610;
																										}
																								}
																							else
																								{	/* Ieee/input.scm 307 */
																									int BgL_curz00_6615;

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

																										BgL_tmpz00_6864 =
																											((obj_t)
																											BgL_iportz00_6609);
																										BgL_curz00_6615 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_6864,
																											BgL_forwardz00_6611);
																									}
																									{	/* Ieee/input.scm 307 */

																										if (
																											((long) (BgL_curz00_6615)
																												== 92L))
																											{	/* Ieee/input.scm 307 */
																												long
																													BgL_arg1433z00_6616;
																												BgL_arg1433z00_6616 =
																													(1L +
																													BgL_forwardz00_6611);
																												{
																													long
																														BgL_forwardz00_6618;
																													long
																														BgL_bufposz00_6619;
																													BgL_forwardz00_6618 =
																														BgL_arg1433z00_6616;
																													BgL_bufposz00_6619 =
																														BgL_bufposz00_6612;
																												BgL_statezd26zd21109z00_6617:
																													if (
																														(BgL_forwardz00_6618
																															==
																															BgL_bufposz00_6619))
																														{	/* Ieee/input.scm 307 */
																															if (rgc_fill_buffer(((obj_t) BgL_iportz00_6609)))
																																{	/* Ieee/input.scm 307 */
																																	long
																																		BgL_arg1465z00_6620;
																																	long
																																		BgL_arg1466z00_6621;
																																	{	/* Ieee/input.scm 307 */
																																		obj_t
																																			BgL_tmpz00_6876;
																																		BgL_tmpz00_6876
																																			=
																																			((obj_t)
																																			BgL_iportz00_6609);
																																		BgL_arg1465z00_6620
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_tmpz00_6876);
																																	}
																																	{	/* Ieee/input.scm 307 */
																																		obj_t
																																			BgL_tmpz00_6879;
																																		BgL_tmpz00_6879
																																			=
																																			((obj_t)
																																			BgL_iportz00_6609);
																																		BgL_arg1466z00_6621
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_tmpz00_6879);
																																	}
																																	{
																																		long
																																			BgL_bufposz00_6883;
																																		long
																																			BgL_forwardz00_6882;
																																		BgL_forwardz00_6882
																																			=
																																			BgL_arg1465z00_6620;
																																		BgL_bufposz00_6883
																																			=
																																			BgL_arg1466z00_6621;
																																		BgL_bufposz00_6619
																																			=
																																			BgL_bufposz00_6883;
																																		BgL_forwardz00_6618
																																			=
																																			BgL_forwardz00_6882;
																																		goto
																																			BgL_statezd26zd21109z00_6617;
																																	}
																																}
																															else
																																{	/* Ieee/input.scm 307 */
																																	BgL_matchz00_6568
																																		=
																																		BgL_lastzd2matchzd2_6610;
																																}
																														}
																													else
																														{	/* Ieee/input.scm 307 */
																															int
																																BgL_curz00_6622;
																															{	/* Ieee/input.scm 307 */
																																obj_t
																																	BgL_tmpz00_6884;
																																BgL_tmpz00_6884
																																	=
																																	((obj_t)
																																	BgL_iportz00_6609);
																																BgL_curz00_6622
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_tmpz00_6884,
																																	BgL_forwardz00_6618);
																															}
																															{	/* Ieee/input.scm 307 */

																																if (
																																	((long)
																																		(BgL_curz00_6622)
																																		== 10L))
																																	{	/* Ieee/input.scm 307 */
																																		BgL_matchz00_6568
																																			=
																																			BgL_lastzd2matchzd2_6610;
																																	}
																																else
																																	{
																																		long
																																			BgL_bufposz00_6892;
																																		long
																																			BgL_forwardz00_6890;
																																		BgL_forwardz00_6890
																																			=
																																			(1L +
																																			BgL_forwardz00_6618);
																																		BgL_bufposz00_6892
																																			=
																																			BgL_bufposz00_6619;
																																		BgL_bufposz00_6612
																																			=
																																			BgL_bufposz00_6892;
																																		BgL_forwardz00_6611
																																			=
																																			BgL_forwardz00_6890;
																																		goto
																																			BgL_statezd24zd21107z00_6564;
																																	}
																															}
																														}
																												}
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												if (
																													((long)
																														(BgL_curz00_6615) ==
																														34L))
																													{	/* Ieee/input.scm 307 */
																														long
																															BgL_arg1435z00_6623;
																														BgL_arg1435z00_6623
																															=
																															(1L +
																															BgL_forwardz00_6611);
																														{	/* Ieee/input.scm 307 */
																															long
																																BgL_newzd2matchzd2_6624;
																															{	/* Ieee/input.scm 307 */
																																obj_t
																																	BgL_tmpz00_6897;
																																BgL_tmpz00_6897
																																	=
																																	((obj_t)
																																	BgL_iportz00_6609);
																																RGC_STOP_MATCH
																																	(BgL_tmpz00_6897,
																																	BgL_arg1435z00_6623);
																															}
																															BgL_newzd2matchzd2_6624
																																= 2L;
																															BgL_matchz00_6568
																																=
																																BgL_newzd2matchzd2_6624;
																													}}
																												else
																													{	/* Ieee/input.scm 307 */
																														bool_t
																															BgL_test3792z00_6900;
																														if (((long)
																																(BgL_curz00_6615)
																																== 34L))
																															{	/* Ieee/input.scm 307 */
																																BgL_test3792z00_6900
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Ieee/input.scm 307 */
																																BgL_test3792z00_6900
																																	=
																																	((long)
																																	(BgL_curz00_6615)
																																	== 92L);
																															}
																														if (BgL_test3792z00_6900)
																															{	/* Ieee/input.scm 307 */
																																BgL_matchz00_6568
																																	=
																																	BgL_lastzd2matchzd2_6610;
																															}
																														else
																															{
																																long
																																	BgL_forwardz00_6906;
																																BgL_forwardz00_6906
																																	=
																																	(1L +
																																	BgL_forwardz00_6611);
																																BgL_forwardz00_6611
																																	=
																																	BgL_forwardz00_6906;
																																goto
																																	BgL_statezd24zd21107z00_6564;
																															}
																													}
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Ieee/input.scm 307 */
																	if (((long) (BgL_curz00_6640) == 34L))
																		{	/* Ieee/input.scm 307 */
																			long BgL_arg1414z00_6648;

																			BgL_arg1414z00_6648 =
																				(1L + BgL_forwardz00_6635);
																			{	/* Ieee/input.scm 307 */
																				long BgL_newzd2matchzd2_6649;

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

																					BgL_tmpz00_6913 =
																						((obj_t) BgL_iportz00_6633);
																					RGC_STOP_MATCH(BgL_tmpz00_6913,
																						BgL_arg1414z00_6648);
																				}
																				BgL_newzd2matchzd2_6649 = 2L;
																				BgL_matchz00_6568 =
																					BgL_newzd2matchzd2_6649;
																		}}
																	else
																		{	/* Ieee/input.scm 307 */
																			bool_t BgL_test3795z00_6916;

																			if (((long) (BgL_curz00_6640) == 34L))
																				{	/* Ieee/input.scm 307 */
																					BgL_test3795z00_6916 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3795z00_6916 =
																						((long) (BgL_curz00_6640) == 92L);
																				}
																			if (BgL_test3795z00_6916)
																				{	/* Ieee/input.scm 307 */
																					BgL_matchz00_6568 =
																						BgL_newzd2matchzd2_6637;
																				}
																			else
																				{
																					long BgL_bufposz00_6926;
																					long BgL_forwardz00_6924;
																					long BgL_lastzd2matchzd2_6923;
																					obj_t BgL_iportz00_6922;

																					BgL_iportz00_6922 = BgL_iportz00_6633;
																					BgL_lastzd2matchzd2_6923 =
																						BgL_newzd2matchzd2_6637;
																					BgL_forwardz00_6924 =
																						(1L + BgL_forwardz00_6635);
																					BgL_bufposz00_6926 =
																						BgL_bufposz00_6636;
																					BgL_bufposz00_6612 =
																						BgL_bufposz00_6926;
																					BgL_forwardz00_6611 =
																						BgL_forwardz00_6924;
																					BgL_lastzd2matchzd2_6610 =
																						BgL_lastzd2matchzd2_6923;
																					BgL_iportz00_6609 = BgL_iportz00_6922;
																					goto BgL_statezd24zd21107z00_6564;
																				}
																		}
																}
														}
													}
											}
										}
									else
										{	/* Ieee/input.scm 307 */
											bool_t BgL_test3797z00_6928;

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

												if (((long) (BgL_curz00_6608) == 10L))
													{	/* Ieee/input.scm 307 */
														BgL_test3798z00_6929 = ((bool_t) 1);
													}
												else
													{	/* Ieee/input.scm 307 */
														BgL_test3798z00_6929 =
															((long) (BgL_curz00_6608) == 9L);
													}
												if (BgL_test3798z00_6929)
													{	/* Ieee/input.scm 307 */
														BgL_test3797z00_6928 = ((bool_t) 1);
													}
												else
													{	/* Ieee/input.scm 307 */
														BgL_test3797z00_6928 =
															((long) (BgL_curz00_6608) == 32L);
											}}
											if (BgL_test3797z00_6928)
												{	/* Ieee/input.scm 307 */
													BgL_iportz00_6625 = BgL_iportz00_6602;
													BgL_lastzd2matchzd2_6626 = BgL_lastzd2matchzd2_6603;
													BgL_forwardz00_6627 = (1L + BgL_forwardz00_6604);
													BgL_bufposz00_6628 = BgL_bufposz00_6605;
												BgL_statezd22zd21105z00_6565:
													{	/* Ieee/input.scm 307 */
														long BgL_newzd2matchzd2_6629;

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

															BgL_tmpz00_6937 = ((obj_t) BgL_iportz00_6625);
															RGC_STOP_MATCH(BgL_tmpz00_6937,
																BgL_forwardz00_6627);
														}
														BgL_newzd2matchzd2_6629 = 0L;
														if ((BgL_forwardz00_6627 == BgL_bufposz00_6628))
															{	/* Ieee/input.scm 307 */
																if (rgc_fill_buffer(
																		((obj_t) BgL_iportz00_6625)))
																	{	/* Ieee/input.scm 307 */
																		long BgL_arg1421z00_6630;
																		long BgL_arg1422z00_6631;

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

																			BgL_tmpz00_6945 =
																				((obj_t) BgL_iportz00_6625);
																			BgL_arg1421z00_6630 =
																				RGC_BUFFER_FORWARD(BgL_tmpz00_6945);
																		}
																		{	/* Ieee/input.scm 307 */
																			obj_t BgL_tmpz00_6948;

																			BgL_tmpz00_6948 =
																				((obj_t) BgL_iportz00_6625);
																			BgL_arg1422z00_6631 =
																				RGC_BUFFER_BUFPOS(BgL_tmpz00_6948);
																		}
																		{
																			long BgL_bufposz00_6952;
																			long BgL_forwardz00_6951;

																			BgL_forwardz00_6951 = BgL_arg1421z00_6630;
																			BgL_bufposz00_6952 = BgL_arg1422z00_6631;
																			BgL_bufposz00_6628 = BgL_bufposz00_6952;
																			BgL_forwardz00_6627 = BgL_forwardz00_6951;
																			goto BgL_statezd22zd21105z00_6565;
																		}
																	}
																else
																	{	/* Ieee/input.scm 307 */
																		BgL_matchz00_6568 = BgL_newzd2matchzd2_6629;
																	}
															}
														else
															{	/* Ieee/input.scm 307 */
																int BgL_curz00_6632;

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

																	BgL_tmpz00_6953 = ((obj_t) BgL_iportz00_6625);
																	BgL_curz00_6632 =
																		RGC_BUFFER_GET_CHAR(BgL_tmpz00_6953,
																		BgL_forwardz00_6627);
																}
																{	/* Ieee/input.scm 307 */

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

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

																			if (((long) (BgL_curz00_6632) == 10L))
																				{	/* Ieee/input.scm 307 */
																					BgL_test3803z00_6957 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3803z00_6957 =
																						((long) (BgL_curz00_6632) == 9L);
																				}
																			if (BgL_test3803z00_6957)
																				{	/* Ieee/input.scm 307 */
																					BgL_test3802z00_6956 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3802z00_6956 =
																						((long) (BgL_curz00_6632) == 32L);
																		}}
																		if (BgL_test3802z00_6956)
																			{	/* Ieee/input.scm 307 */
																				BgL_iportz00_6586 = BgL_iportz00_6625;
																				BgL_lastzd2matchzd2_6587 =
																					BgL_newzd2matchzd2_6629;
																				BgL_forwardz00_6588 =
																					(1L + BgL_forwardz00_6627);
																				BgL_bufposz00_6589 = BgL_bufposz00_6628;
																			BgL_statezd28zd21111z00_6561:
																				{	/* Ieee/input.scm 307 */
																					long BgL_newzd2matchzd2_6590;

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

																						BgL_tmpz00_6965 =
																							((obj_t) BgL_iportz00_6586);
																						RGC_STOP_MATCH(BgL_tmpz00_6965,
																							BgL_forwardz00_6588);
																					}
																					BgL_newzd2matchzd2_6590 = 0L;
																					if (
																						(BgL_forwardz00_6588 ==
																							BgL_bufposz00_6589))
																						{	/* Ieee/input.scm 307 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_6586)))
																								{	/* Ieee/input.scm 307 */
																									long BgL_arg1473z00_6591;
																									long BgL_arg1474z00_6592;

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

																										BgL_tmpz00_6973 =
																											((obj_t)
																											BgL_iportz00_6586);
																										BgL_arg1473z00_6591 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_6973);
																									}
																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_6976;

																										BgL_tmpz00_6976 =
																											((obj_t)
																											BgL_iportz00_6586);
																										BgL_arg1474z00_6592 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_6976);
																									}
																									{
																										long BgL_bufposz00_6980;
																										long BgL_forwardz00_6979;

																										BgL_forwardz00_6979 =
																											BgL_arg1473z00_6591;
																										BgL_bufposz00_6980 =
																											BgL_arg1474z00_6592;
																										BgL_bufposz00_6589 =
																											BgL_bufposz00_6980;
																										BgL_forwardz00_6588 =
																											BgL_forwardz00_6979;
																										goto
																											BgL_statezd28zd21111z00_6561;
																									}
																								}
																							else
																								{	/* Ieee/input.scm 307 */
																									BgL_matchz00_6568 =
																										BgL_newzd2matchzd2_6590;
																								}
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							int BgL_curz00_6593;

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

																								BgL_tmpz00_6981 =
																									((obj_t) BgL_iportz00_6586);
																								BgL_curz00_6593 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_6981,
																									BgL_forwardz00_6588);
																							}
																							{	/* Ieee/input.scm 307 */

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

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

																										if (
																											((long) (BgL_curz00_6593)
																												== 10L))
																											{	/* Ieee/input.scm 307 */
																												BgL_test3808z00_6985 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												BgL_test3808z00_6985 =
																													(
																													(long)
																													(BgL_curz00_6593) ==
																													9L);
																											}
																										if (BgL_test3808z00_6985)
																											{	/* Ieee/input.scm 307 */
																												BgL_test3807z00_6984 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												BgL_test3807z00_6984 =
																													(
																													(long)
																													(BgL_curz00_6593) ==
																													32L);
																									}}
																									if (BgL_test3807z00_6984)
																										{
																											long BgL_forwardz00_6994;
																											long
																												BgL_lastzd2matchzd2_6993;
																											BgL_lastzd2matchzd2_6993 =
																												BgL_newzd2matchzd2_6590;
																											BgL_forwardz00_6994 =
																												(1L +
																												BgL_forwardz00_6588);
																											BgL_forwardz00_6588 =
																												BgL_forwardz00_6994;
																											BgL_lastzd2matchzd2_6587 =
																												BgL_lastzd2matchzd2_6993;
																											goto
																												BgL_statezd28zd21111z00_6561;
																										}
																									else
																										{	/* Ieee/input.scm 307 */
																											BgL_matchz00_6568 =
																												BgL_newzd2matchzd2_6590;
																										}
																								}
																							}
																						}
																				}
																			}
																		else
																			{	/* Ieee/input.scm 307 */
																				BgL_matchz00_6568 =
																					BgL_newzd2matchzd2_6629;
																			}
																	}
																}
															}
													}
												}
											else
												{	/* Ieee/input.scm 307 */
													BgL_iportz00_6650 = BgL_iportz00_6602;
													BgL_lastzd2matchzd2_6651 = BgL_lastzd2matchzd2_6603;
													BgL_forwardz00_6652 = (1L + BgL_forwardz00_6604);
													BgL_bufposz00_6653 = BgL_bufposz00_6605;
												BgL_statezd21zd21104z00_6567:
													{	/* Ieee/input.scm 307 */
														long BgL_newzd2matchzd2_6654;

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

															BgL_tmpz00_6998 = ((obj_t) BgL_iportz00_6650);
															RGC_STOP_MATCH(BgL_tmpz00_6998,
																BgL_forwardz00_6652);
														}
														BgL_newzd2matchzd2_6654 = 3L;
														if ((BgL_forwardz00_6652 == BgL_bufposz00_6653))
															{	/* Ieee/input.scm 307 */
																if (rgc_fill_buffer(
																		((obj_t) BgL_iportz00_6650)))
																	{	/* Ieee/input.scm 307 */
																		long BgL_arg1399z00_6655;
																		long BgL_arg1400z00_6656;

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

																			BgL_tmpz00_7006 =
																				((obj_t) BgL_iportz00_6650);
																			BgL_arg1399z00_6655 =
																				RGC_BUFFER_FORWARD(BgL_tmpz00_7006);
																		}
																		{	/* Ieee/input.scm 307 */
																			obj_t BgL_tmpz00_7009;

																			BgL_tmpz00_7009 =
																				((obj_t) BgL_iportz00_6650);
																			BgL_arg1400z00_6656 =
																				RGC_BUFFER_BUFPOS(BgL_tmpz00_7009);
																		}
																		{
																			long BgL_bufposz00_7013;
																			long BgL_forwardz00_7012;

																			BgL_forwardz00_7012 = BgL_arg1399z00_6655;
																			BgL_bufposz00_7013 = BgL_arg1400z00_6656;
																			BgL_bufposz00_6653 = BgL_bufposz00_7013;
																			BgL_forwardz00_6652 = BgL_forwardz00_7012;
																			goto BgL_statezd21zd21104z00_6567;
																		}
																	}
																else
																	{	/* Ieee/input.scm 307 */
																		BgL_matchz00_6568 = BgL_newzd2matchzd2_6654;
																	}
															}
														else
															{	/* Ieee/input.scm 307 */
																int BgL_curz00_6657;

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

																	BgL_tmpz00_7014 = ((obj_t) BgL_iportz00_6650);
																	BgL_curz00_6657 =
																		RGC_BUFFER_GET_CHAR(BgL_tmpz00_7014,
																		BgL_forwardz00_6652);
																}
																{	/* Ieee/input.scm 307 */

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

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

																			if (((long) (BgL_curz00_6657) == 10L))
																				{	/* Ieee/input.scm 307 */
																					BgL_test3813z00_7018 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					BgL_test3813z00_7018 =
																						((long) (BgL_curz00_6657) == 9L);
																				}
																			if (BgL_test3813z00_7018)
																				{	/* Ieee/input.scm 307 */
																					BgL_test3812z00_7017 = ((bool_t) 1);
																				}
																			else
																				{	/* Ieee/input.scm 307 */
																					if (((long) (BgL_curz00_6657) == 32L))
																						{	/* Ieee/input.scm 307 */
																							BgL_test3812z00_7017 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							BgL_test3812z00_7017 =
																								(
																								(long) (BgL_curz00_6657) ==
																								34L);
																		}}}
																		if (BgL_test3812z00_7017)
																			{	/* Ieee/input.scm 307 */
																				BgL_matchz00_6568 =
																					BgL_newzd2matchzd2_6654;
																			}
																		else
																			{	/* Ieee/input.scm 307 */
																				BgL_iportz00_6594 = BgL_iportz00_6650;
																				BgL_lastzd2matchzd2_6595 =
																					BgL_newzd2matchzd2_6654;
																				BgL_forwardz00_6596 =
																					(1L + BgL_forwardz00_6652);
																				BgL_bufposz00_6597 = BgL_bufposz00_6653;
																			BgL_statezd29zd21112z00_6562:
																				{	/* Ieee/input.scm 307 */
																					long BgL_newzd2matchzd2_6598;

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

																						BgL_tmpz00_7029 =
																							((obj_t) BgL_iportz00_6594);
																						RGC_STOP_MATCH(BgL_tmpz00_7029,
																							BgL_forwardz00_6596);
																					}
																					BgL_newzd2matchzd2_6598 = 3L;
																					if (
																						(BgL_forwardz00_6596 ==
																							BgL_bufposz00_6597))
																						{	/* Ieee/input.scm 307 */
																							if (rgc_fill_buffer(
																									((obj_t) BgL_iportz00_6594)))
																								{	/* Ieee/input.scm 307 */
																									long BgL_arg1455z00_6599;
																									long BgL_arg1456z00_6600;

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

																										BgL_tmpz00_7037 =
																											((obj_t)
																											BgL_iportz00_6594);
																										BgL_arg1455z00_6599 =
																											RGC_BUFFER_FORWARD
																											(BgL_tmpz00_7037);
																									}
																									{	/* Ieee/input.scm 307 */
																										obj_t BgL_tmpz00_7040;

																										BgL_tmpz00_7040 =
																											((obj_t)
																											BgL_iportz00_6594);
																										BgL_arg1456z00_6600 =
																											RGC_BUFFER_BUFPOS
																											(BgL_tmpz00_7040);
																									}
																									{
																										long BgL_bufposz00_7044;
																										long BgL_forwardz00_7043;

																										BgL_forwardz00_7043 =
																											BgL_arg1455z00_6599;
																										BgL_bufposz00_7044 =
																											BgL_arg1456z00_6600;
																										BgL_bufposz00_6597 =
																											BgL_bufposz00_7044;
																										BgL_forwardz00_6596 =
																											BgL_forwardz00_7043;
																										goto
																											BgL_statezd29zd21112z00_6562;
																									}
																								}
																							else
																								{	/* Ieee/input.scm 307 */
																									BgL_matchz00_6568 =
																										BgL_newzd2matchzd2_6598;
																								}
																						}
																					else
																						{	/* Ieee/input.scm 307 */
																							int BgL_curz00_6601;

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

																								BgL_tmpz00_7045 =
																									((obj_t) BgL_iportz00_6594);
																								BgL_curz00_6601 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_tmpz00_7045,
																									BgL_forwardz00_6596);
																							}
																							{	/* Ieee/input.scm 307 */

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

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

																										if (
																											((long) (BgL_curz00_6601)
																												== 10L))
																											{	/* Ieee/input.scm 307 */
																												BgL_test3819z00_7049 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												BgL_test3819z00_7049 =
																													(
																													(long)
																													(BgL_curz00_6601) ==
																													9L);
																											}
																										if (BgL_test3819z00_7049)
																											{	/* Ieee/input.scm 307 */
																												BgL_test3818z00_7048 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Ieee/input.scm 307 */
																												if (
																													((long)
																														(BgL_curz00_6601) ==
																														32L))
																													{	/* Ieee/input.scm 307 */
																														BgL_test3818z00_7048
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Ieee/input.scm 307 */
																														BgL_test3818z00_7048
																															=
																															((long)
																															(BgL_curz00_6601)
																															== 34L);
																									}}}
																									if (BgL_test3818z00_7048)
																										{	/* Ieee/input.scm 307 */
																											BgL_matchz00_6568 =
																												BgL_newzd2matchzd2_6598;
																										}
																									else
																										{
																											long BgL_forwardz00_7061;
																											long
																												BgL_lastzd2matchzd2_7060;
																											BgL_lastzd2matchzd2_7060 =
																												BgL_newzd2matchzd2_6598;
																											BgL_forwardz00_7061 =
																												(1L +
																												BgL_forwardz00_6596);
																											BgL_forwardz00_6596 =
																												BgL_forwardz00_7061;
																											BgL_lastzd2matchzd2_6595 =
																												BgL_lastzd2matchzd2_7060;
																											goto
																												BgL_statezd29zd21112z00_6562;
																										}
																								}
																							}
																						}
																				}
																			}
																	}
																}
															}
													}
												}
										}
								}
							}
					}
					{	/* Ieee/input.scm 307 */
						obj_t BgL_tmpz00_7065;

						BgL_tmpz00_7065 = ((obj_t) BgL_iportz00_6269);
						RGC_SET_FILEPOS(BgL_tmpz00_7065);
					}
					switch (BgL_matchz00_6568)
						{
						case 4L:

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

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

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

										BgL_tmpz00_7069 = ((obj_t) BgL_iportz00_6269);
										BgL_arg1573z00_6573 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7069);
									}
									BgL_test3822z00_7068 = (BgL_arg1573z00_6573 == 0L);
								}
								if (BgL_test3822z00_7068)
									{	/* Ieee/input.scm 307 */
										return BEOF;
									}
								else
									{	/* Ieee/input.scm 307 */
										unsigned char BgL_tmpz00_7073;

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

											BgL_tmpz00_7074 = ((obj_t) BgL_iportz00_6269);
											BgL_tmpz00_7073 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7074);
										}
										return BCHAR(BgL_tmpz00_7073);
									}
							}
							break;
						case 3L:

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

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

									BgL_tmpz00_7078 = ((obj_t) BgL_iportz00_6269);
									BgL_arg1486z00_6571 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7078);
								}
								return
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_6269), 0L, BgL_arg1486z00_6571);
							}
							break;
						case 2L:

							BgL_minz00_6574 = (int) (1L);
							BgL_maxz00_6575 = (int) ((-1L));
							if (((long) (BgL_maxz00_6575) < (long) (BgL_minz00_6574)))
								{	/* Ieee/input.scm 307 */
									long BgL_arg1489z00_6576;

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

										BgL_tmpz00_7087 = ((obj_t) BgL_iportz00_6269);
										BgL_arg1489z00_6576 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7087);
									}
									{	/* Ieee/input.scm 307 */
										long BgL_za72za7_6577;

										BgL_za72za7_6577 = (long) (BgL_maxz00_6575);
										BgL_maxz00_6575 =
											(int) ((BgL_arg1489z00_6576 + BgL_za72za7_6577));
								}}
							else
								{	/* Ieee/input.scm 307 */
									BFALSE;
								}
							{	/* Ieee/input.scm 307 */
								bool_t BgL_test3824z00_7093;

								if (((long) (BgL_minz00_6574) >= 0L))
									{	/* Ieee/input.scm 307 */
										if (((long) (BgL_maxz00_6575) >= (long) (BgL_minz00_6574)))
											{	/* Ieee/input.scm 307 */
												long BgL_arg1499z00_6578;

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

													BgL_tmpz00_7101 = ((obj_t) BgL_iportz00_6269);
													BgL_arg1499z00_6578 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7101);
												}
												BgL_test3824z00_7093 =
													((long) (BgL_maxz00_6575) <= BgL_arg1499z00_6578);
											}
										else
											{	/* Ieee/input.scm 307 */
												BgL_test3824z00_7093 = ((bool_t) 0);
											}
									}
								else
									{	/* Ieee/input.scm 307 */
										BgL_test3824z00_7093 = ((bool_t) 0);
									}
								if (BgL_test3824z00_7093)
									{	/* Ieee/input.scm 307 */
										long BgL_startz00_6579;
										long BgL_stopz00_6580;

										BgL_startz00_6579 = (long) (BgL_minz00_6574);
										BgL_stopz00_6580 = (long) (BgL_maxz00_6575);
										return
											rgc_buffer_substring(
											((obj_t) BgL_iportz00_6269), BgL_startz00_6579,
											BgL_stopz00_6580);
									}
								else
									{	/* Ieee/input.scm 307 */
										obj_t BgL_arg1494z00_6581;
										obj_t BgL_arg1495z00_6582;

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

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

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

													BgL_tmpz00_7110 = ((obj_t) BgL_iportz00_6269);
													BgL_arg1486z00_6584 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7110);
												}
												BgL_arg1497z00_6583 =
													rgc_buffer_substring(
													((obj_t) BgL_iportz00_6269), 0L, BgL_arg1486z00_6584);
											}
											{	/* Ieee/input.scm 307 */
												obj_t BgL_list1498z00_6585;

												BgL_list1498z00_6585 =
													MAKE_YOUNG_PAIR(BgL_arg1497z00_6583, BNIL);
												BgL_arg1494z00_6581 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string3618z00zz__r4_input_6_10_2z00,
													BgL_list1498z00_6585);
										}}
										BgL_arg1495z00_6582 =
											MAKE_YOUNG_PAIR(BINT(BgL_minz00_6574),
											BINT(BgL_maxz00_6575));
										return
											BGl_errorz00zz__errorz00
											(BGl_string3619z00zz__r4_input_6_10_2z00,
											BgL_arg1494z00_6581, BgL_arg1495z00_6582);
									}
							}
							break;
						case 1L:

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

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

									BgL_tmpz00_7123 = ((obj_t) BgL_iportz00_6269);
									BgL_arg1486z00_6572 =
										RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7123);
								}
								return
									rgc_buffer_substring(
									((obj_t) BgL_iportz00_6269), 0L, BgL_arg1486z00_6572);
							}
							break;
						case 0L:

							goto BgL_ignorez00_6558;
							break;
						default:
							return
								BGl_errorz00zz__errorz00
								(BGl_string3616z00zz__r4_input_6_10_2z00,
								BGl_string3617z00zz__r4_input_6_10_2z00,
								BINT(BgL_matchz00_6568));
						}
				}
			}
		}

	}



/* 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_7133;

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

						BgL_list1589z00_4741 = MAKE_YOUNG_PAIR(BgL_optsz00_5, BNIL);
						BgL_auxz00_7133 =
							BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_4,
							BgL_list1589z00_4741);
					}
					return apply(BgL_grammarz00_3, BgL_auxz00_7133);
				}
			else
				{	/* Ieee/input.scm 108 */
					if (PROCEDURE_CORRECT_ARITYP(BgL_grammarz00_3, (int) (1L)))
						{	/* Ieee/input.scm 110 */
							return BGL_PROCEDURE_CALL1(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
										BGL_PROCEDURE_CALL2(BgL_grammarz00_3, BgL_portz00_4,
										BUNSPEC);
								}
							else
								{	/* Ieee/input.scm 112 */
									return
										BGl_errorz00zz__errorz00
										(BGl_symbol3620z00zz__r4_input_6_10_2z00,
										BGl_string3622z00zz__r4_input_6_10_2z00, BgL_grammarz00_3);
								}
						}
				}
		}

	}



/* &read/rp */
	obj_t BGl_z62readzf2rpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_6270,
		obj_t BgL_grammarz00_6271, obj_t BgL_portz00_6272, obj_t BgL_optsz00_6273)
	{
		{	/* Ieee/input.scm 106 */
			{	/* Ieee/input.scm 108 */
				obj_t BgL_auxz00_7160;
				obj_t BgL_auxz00_7153;

				if (INPUT_PORTP(BgL_portz00_6272))
					{	/* Ieee/input.scm 108 */
						BgL_auxz00_7160 = BgL_portz00_6272;
					}
				else
					{
						obj_t BgL_auxz00_7163;

						BgL_auxz00_7163 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(4665L),
							BGl_string3624z00zz__r4_input_6_10_2z00,
							BGl_string3626z00zz__r4_input_6_10_2z00, BgL_portz00_6272);
						FAILURE(BgL_auxz00_7163, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_grammarz00_6271))
					{	/* Ieee/input.scm 108 */
						BgL_auxz00_7153 = BgL_grammarz00_6271;
					}
				else
					{
						obj_t BgL_auxz00_7156;

						BgL_auxz00_7156 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(4665L),
							BGl_string3624z00zz__r4_input_6_10_2z00,
							BGl_string3625z00zz__r4_input_6_10_2z00, BgL_grammarz00_6271);
						FAILURE(BgL_auxz00_7156, BFALSE, BFALSE);
					}
				return
					BGl_readzf2rpzf2zz__r4_input_6_10_2z00(BgL_auxz00_7153,
					BgL_auxz00_7160, BgL_optsz00_6273);
			}
		}

	}



/* 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
						BGL_PROCEDURE_CALL3(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8,
						BGl_eofzd2objectzf3zd2envzf3zz__r4_input_6_10_2z00);
				}
			else
				{	/* Ieee/input.scm 123 */
					obj_t BgL_arg1592z00_4743;

					BgL_arg1592z00_4743 = CAR(((obj_t) BgL_eofzd2funzf3z21_9));
					return
						BGL_PROCEDURE_CALL3(BgL_lalrz00_6, BgL_rgcz00_7, BgL_portz00_8,
						BgL_arg1592z00_4743);
				}
		}

	}



/* &read/lalrp */
	obj_t BGl_z62readzf2lalrpz90zz__r4_input_6_10_2z00(obj_t BgL_envz00_6274,
		obj_t BgL_lalrz00_6275, obj_t BgL_rgcz00_6276, obj_t BgL_portz00_6277,
		obj_t BgL_eofzd2funzf3z21_6278)
	{
		{	/* Ieee/input.scm 120 */
			{	/* Ieee/input.scm 121 */
				obj_t BgL_auxz00_7198;
				obj_t BgL_auxz00_7191;
				obj_t BgL_auxz00_7184;

				if (INPUT_PORTP(BgL_portz00_6277))
					{	/* Ieee/input.scm 121 */
						BgL_auxz00_7198 = BgL_portz00_6277;
					}
				else
					{
						obj_t BgL_auxz00_7201;

						BgL_auxz00_7201 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5184L),
							BGl_string3627z00zz__r4_input_6_10_2z00,
							BGl_string3626z00zz__r4_input_6_10_2z00, BgL_portz00_6277);
						FAILURE(BgL_auxz00_7201, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_rgcz00_6276))
					{	/* Ieee/input.scm 121 */
						BgL_auxz00_7191 = BgL_rgcz00_6276;
					}
				else
					{
						obj_t BgL_auxz00_7194;

						BgL_auxz00_7194 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5184L),
							BGl_string3627z00zz__r4_input_6_10_2z00,
							BGl_string3625z00zz__r4_input_6_10_2z00, BgL_rgcz00_6276);
						FAILURE(BgL_auxz00_7194, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_lalrz00_6275))
					{	/* Ieee/input.scm 121 */
						BgL_auxz00_7184 = BgL_lalrz00_6275;
					}
				else
					{
						obj_t BgL_auxz00_7187;

						BgL_auxz00_7187 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5184L),
							BGl_string3627z00zz__r4_input_6_10_2z00,
							BGl_string3625z00zz__r4_input_6_10_2z00, BgL_lalrz00_6275);
						FAILURE(BgL_auxz00_7187, BFALSE, BFALSE);
					}
				return
					BGl_readzf2lalrpzf2zz__r4_input_6_10_2z00(BgL_auxz00_7184,
					BgL_auxz00_7191, BgL_auxz00_7198, BgL_eofzd2funzf3z21_6278);
			}
		}

	}



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

				{	/* Ieee/input.scm 128 */
					long BgL_aux1243z00_1614;

					{
						obj_t BgL_auxz00_7206;

						if (VECTORP(BgL_opt1240z00_11))
							{	/* Ieee/input.scm 128 */
								BgL_auxz00_7206 = BgL_opt1240z00_11;
							}
						else
							{
								obj_t BgL_auxz00_7209;

								BgL_auxz00_7209 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5503L),
									BGl_string3628z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1240z00_11);
								FAILURE(BgL_auxz00_7209, BFALSE, BFALSE);
							}
						BgL_aux1243z00_1614 = VECTOR_LENGTH(BgL_auxz00_7206);
					}
					switch (BgL_aux1243z00_1614)
						{
						case 0L:

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

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

									BgL_tmpz00_7214 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_1615 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7214);
								}
								{	/* Ieee/input.scm 128 */

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

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

								{
									obj_t BgL_auxz00_7218;

									if (VECTORP(BgL_opt1240z00_11))
										{	/* Ieee/input.scm 128 */
											BgL_auxz00_7218 = BgL_opt1240z00_11;
										}
									else
										{
											obj_t BgL_auxz00_7221;

											BgL_auxz00_7221 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5503L),
												BGl_string3628z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1240z00_11);
											FAILURE(BgL_auxz00_7221, BFALSE, BFALSE);
										}
									BgL_ipz00_1616 = VECTOR_REF(BgL_auxz00_7218, 0L);
								}
								{	/* Ieee/input.scm 128 */

									return
										BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1616);
								}
							}
							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_1619;

				BgL_iportz00_1619 = BgL_ipz00_10;
				{

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

						BgL_tmpz00_7228 = ((obj_t) BgL_iportz00_1619);
						RGC_START_MATCH(BgL_tmpz00_7228);
					}
					{	/* Ieee/input.scm 129 */
						long BgL_matchz00_1786;

						{	/* Ieee/input.scm 129 */
							long BgL_arg1705z00_1789;
							long BgL_arg1706z00_1790;

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

								BgL_tmpz00_7231 = ((obj_t) BgL_iportz00_1619);
								BgL_arg1705z00_1789 = RGC_BUFFER_FORWARD(BgL_tmpz00_7231);
							}
							{	/* Ieee/input.scm 129 */
								obj_t BgL_tmpz00_7234;

								BgL_tmpz00_7234 = ((obj_t) BgL_iportz00_1619);
								BgL_arg1706z00_1790 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7234);
							}
							{
								long BgL_forwardz00_4791;
								long BgL_bufposz00_4792;

								BgL_forwardz00_4791 = BgL_arg1705z00_1789;
								BgL_bufposz00_4792 = BgL_arg1706z00_1790;
							BgL_statezd20zd21040z00_4790:
								if ((BgL_forwardz00_4791 == BgL_bufposz00_4792))
									{	/* Ieee/input.scm 129 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_1619)))
											{	/* Ieee/input.scm 129 */
												long BgL_arg1598z00_4795;
												long BgL_arg1599z00_4796;

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

													BgL_tmpz00_7242 = ((obj_t) BgL_iportz00_1619);
													BgL_arg1598z00_4795 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7242);
												}
												{	/* Ieee/input.scm 129 */
													obj_t BgL_tmpz00_7245;

													BgL_tmpz00_7245 = ((obj_t) BgL_iportz00_1619);
													BgL_arg1599z00_4796 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7245);
												}
												{
													long BgL_bufposz00_7249;
													long BgL_forwardz00_7248;

													BgL_forwardz00_7248 = BgL_arg1598z00_4795;
													BgL_bufposz00_7249 = BgL_arg1599z00_4796;
													BgL_bufposz00_4792 = BgL_bufposz00_7249;
													BgL_forwardz00_4791 = BgL_forwardz00_7248;
													goto BgL_statezd20zd21040z00_4790;
												}
											}
										else
											{	/* Ieee/input.scm 129 */
												BgL_matchz00_1786 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 129 */
										int BgL_curz00_4797;

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

											BgL_tmpz00_7250 = ((obj_t) BgL_iportz00_1619);
											BgL_curz00_4797 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7250,
												BgL_forwardz00_4791);
										}
										{	/* Ieee/input.scm 129 */

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

												BgL_arg1600z00_4798 = (1L + BgL_forwardz00_4791);
												{	/* Ieee/input.scm 129 */
													long BgL_newzd2matchzd2_4807;

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

														BgL_tmpz00_7254 = ((obj_t) BgL_iportz00_1619);
														RGC_STOP_MATCH(BgL_tmpz00_7254,
															BgL_arg1600z00_4798);
													}
													BgL_newzd2matchzd2_4807 = 0L;
													BgL_matchz00_1786 = BgL_newzd2matchzd2_4807;
						}}}}}}
						{	/* Ieee/input.scm 129 */
							obj_t BgL_tmpz00_7257;

							BgL_tmpz00_7257 = ((obj_t) BgL_iportz00_1619);
							RGC_SET_FILEPOS(BgL_tmpz00_7257);
						}
						switch (BgL_matchz00_1786)
							{
							case 1L:

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

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

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

											BgL_tmpz00_7261 = ((obj_t) BgL_iportz00_1619);
											BgL_arg1697z00_1776 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7261);
										}
										BgL_test3840z00_7260 = (BgL_arg1697z00_1776 == 0L);
									}
									if (BgL_test3840z00_7260)
										{	/* Ieee/input.scm 129 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 129 */
											unsigned char BgL_tmpz00_7265;

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

												BgL_tmpz00_7266 = ((obj_t) BgL_iportz00_1619);
												BgL_tmpz00_7265 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7266);
											}
											return BCHAR(BgL_tmpz00_7265);
										}
								}
								break;
							case 0L:

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

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

										BgL_tmpz00_7271 = ((obj_t) BgL_iportz00_1619);
										BgL_tmpz00_7270 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7271);
									}
									return BCHAR(BgL_tmpz00_7270);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3616z00zz__r4_input_6_10_2z00,
									BGl_string3617z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_1786));
							}
					}
				}
			}
		}

	}



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

				{	/* Ieee/input.scm 136 */
					long BgL_aux1247z00_1822;

					{
						obj_t BgL_auxz00_7278;

						if (VECTORP(BgL_opt1244z00_14))
							{	/* Ieee/input.scm 136 */
								BgL_auxz00_7278 = BgL_opt1244z00_14;
							}
						else
							{
								obj_t BgL_auxz00_7281;

								BgL_auxz00_7281 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5897L),
									BGl_string3630z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1244z00_14);
								FAILURE(BgL_auxz00_7281, BFALSE, BFALSE);
							}
						BgL_aux1247z00_1822 = VECTOR_LENGTH(BgL_auxz00_7278);
					}
					switch (BgL_aux1247z00_1822)
						{
						case 0L:

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

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

									BgL_tmpz00_7286 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_1823 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7286);
								}
								{	/* Ieee/input.scm 136 */

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

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

								{
									obj_t BgL_auxz00_7290;

									if (VECTORP(BgL_opt1244z00_14))
										{	/* Ieee/input.scm 136 */
											BgL_auxz00_7290 = BgL_opt1244z00_14;
										}
									else
										{
											obj_t BgL_auxz00_7293;

											BgL_auxz00_7293 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(5897L),
												BGl_string3630z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1244z00_14);
											FAILURE(BgL_auxz00_7293, BFALSE, BFALSE);
										}
									BgL_ipz00_1824 = VECTOR_REF(BgL_auxz00_7290, 0L);
								}
								{	/* Ieee/input.scm 136 */

									return
										BGl_peekzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_1824);
								}
							}
							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_1827;

				BgL_iportz00_1827 = BgL_ipz00_13;
				{

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

						BgL_tmpz00_7300 = ((obj_t) BgL_iportz00_1827);
						RGC_START_MATCH(BgL_tmpz00_7300);
					}
					{	/* Ieee/input.scm 137 */
						long BgL_matchz00_1994;

						{	/* Ieee/input.scm 137 */
							long BgL_arg1811z00_2000;
							long BgL_arg1812z00_2001;

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

								BgL_tmpz00_7303 = ((obj_t) BgL_iportz00_1827);
								BgL_arg1811z00_2000 = RGC_BUFFER_FORWARD(BgL_tmpz00_7303);
							}
							{	/* Ieee/input.scm 137 */
								obj_t BgL_tmpz00_7306;

								BgL_tmpz00_7306 = ((obj_t) BgL_iportz00_1827);
								BgL_arg1812z00_2001 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7306);
							}
							{
								long BgL_forwardz00_4858;
								long BgL_bufposz00_4859;

								BgL_forwardz00_4858 = BgL_arg1811z00_2000;
								BgL_bufposz00_4859 = BgL_arg1812z00_2001;
							BgL_statezd20zd21046z00_4857:
								if ((BgL_forwardz00_4858 == BgL_bufposz00_4859))
									{	/* Ieee/input.scm 137 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_1827)))
											{	/* Ieee/input.scm 137 */
												long BgL_arg1712z00_4862;
												long BgL_arg1714z00_4863;

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

													BgL_tmpz00_7314 = ((obj_t) BgL_iportz00_1827);
													BgL_arg1712z00_4862 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7314);
												}
												{	/* Ieee/input.scm 137 */
													obj_t BgL_tmpz00_7317;

													BgL_tmpz00_7317 = ((obj_t) BgL_iportz00_1827);
													BgL_arg1714z00_4863 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7317);
												}
												{
													long BgL_bufposz00_7321;
													long BgL_forwardz00_7320;

													BgL_forwardz00_7320 = BgL_arg1712z00_4862;
													BgL_bufposz00_7321 = BgL_arg1714z00_4863;
													BgL_bufposz00_4859 = BgL_bufposz00_7321;
													BgL_forwardz00_4858 = BgL_forwardz00_7320;
													goto BgL_statezd20zd21046z00_4857;
												}
											}
										else
											{	/* Ieee/input.scm 137 */
												BgL_matchz00_1994 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 137 */
										int BgL_curz00_4864;

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

											BgL_tmpz00_7322 = ((obj_t) BgL_iportz00_1827);
											BgL_curz00_4864 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7322,
												BgL_forwardz00_4858);
										}
										{	/* Ieee/input.scm 137 */

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

												BgL_arg1715z00_4865 = (1L + BgL_forwardz00_4858);
												{	/* Ieee/input.scm 137 */
													long BgL_newzd2matchzd2_4874;

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

														BgL_tmpz00_7326 = ((obj_t) BgL_iportz00_1827);
														RGC_STOP_MATCH(BgL_tmpz00_7326,
															BgL_arg1715z00_4865);
													}
													BgL_newzd2matchzd2_4874 = 0L;
													BgL_matchz00_1994 = BgL_newzd2matchzd2_4874;
						}}}}}}
						{	/* Ieee/input.scm 137 */
							obj_t BgL_tmpz00_7329;

							BgL_tmpz00_7329 = ((obj_t) BgL_iportz00_1827);
							RGC_SET_FILEPOS(BgL_tmpz00_7329);
						}
						switch (BgL_matchz00_1994)
							{
							case 1L:

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

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

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

											BgL_tmpz00_7333 = ((obj_t) BgL_iportz00_1827);
											BgL_arg1801z00_1984 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7333);
										}
										BgL_test3845z00_7332 = (BgL_arg1801z00_1984 == 0L);
									}
									if (BgL_test3845z00_7332)
										{	/* Ieee/input.scm 137 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 137 */
											unsigned char BgL_tmpz00_7337;

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

												BgL_tmpz00_7338 = ((obj_t) BgL_iportz00_1827);
												BgL_tmpz00_7337 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7338);
											}
											return BCHAR(BgL_tmpz00_7337);
										}
								}
								break;
							case 0L:

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

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

										BgL_tmpz00_7342 = ((obj_t) BgL_iportz00_1827);
										BgL_cz00_1997 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7342);
									}
									{	/* Ieee/input.scm 140 */
										long BgL_arg1809z00_1999;

										BgL_arg1809z00_1999 = ((unsigned char) (BgL_cz00_1997));
										{	/* Ieee/input.scm 140 */
											int BgL_charz00_4882;

											BgL_charz00_4882 = (int) (BgL_arg1809z00_1999);
											rgc_buffer_unget_char(
												((obj_t) BgL_iportz00_1827), BgL_charz00_4882);
									}}
									return BCHAR(BgL_cz00_1997);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3616z00zz__r4_input_6_10_2z00,
									BGl_string3617z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_1994));
							}
					}
				}
			}
		}

	}



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

				{	/* Ieee/input.scm 147 */
					long BgL_aux1251z00_2033;

					{
						obj_t BgL_auxz00_7354;

						if (VECTORP(BgL_opt1248z00_17))
							{	/* Ieee/input.scm 147 */
								BgL_auxz00_7354 = BgL_opt1248z00_17;
							}
						else
							{
								obj_t BgL_auxz00_7357;

								BgL_auxz00_7357 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(6374L),
									BGl_string3631z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1248z00_17);
								FAILURE(BgL_auxz00_7357, BFALSE, BFALSE);
							}
						BgL_aux1251z00_2033 = VECTOR_LENGTH(BgL_auxz00_7354);
					}
					switch (BgL_aux1251z00_2033)
						{
						case 0L:

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

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

									BgL_tmpz00_7362 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_2034 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7362);
								}
								{	/* Ieee/input.scm 147 */

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

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

								{
									obj_t BgL_auxz00_7366;

									if (VECTORP(BgL_opt1248z00_17))
										{	/* Ieee/input.scm 147 */
											BgL_auxz00_7366 = BgL_opt1248z00_17;
										}
									else
										{
											obj_t BgL_auxz00_7369;

											BgL_auxz00_7369 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(6374L),
												BGl_string3631z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1248z00_17);
											FAILURE(BgL_auxz00_7369, BFALSE, BFALSE);
										}
									BgL_ipz00_2035 = VECTOR_REF(BgL_auxz00_7366, 0L);
								}
								{	/* Ieee/input.scm 147 */

									return
										BGl_readzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2035);
								}
							}
							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_2038;

				BgL_iportz00_2038 = BgL_ipz00_16;
				{

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

						BgL_tmpz00_7376 = ((obj_t) BgL_iportz00_2038);
						RGC_START_MATCH(BgL_tmpz00_7376);
					}
					{	/* Ieee/input.scm 148 */
						long BgL_matchz00_2205;

						{	/* Ieee/input.scm 148 */
							long BgL_arg1914z00_2208;
							long BgL_arg1915z00_2209;

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

								BgL_tmpz00_7379 = ((obj_t) BgL_iportz00_2038);
								BgL_arg1914z00_2208 = RGC_BUFFER_FORWARD(BgL_tmpz00_7379);
							}
							{	/* Ieee/input.scm 148 */
								obj_t BgL_tmpz00_7382;

								BgL_tmpz00_7382 = ((obj_t) BgL_iportz00_2038);
								BgL_arg1915z00_2209 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7382);
							}
							{
								long BgL_forwardz00_4929;
								long BgL_bufposz00_4930;

								BgL_forwardz00_4929 = BgL_arg1914z00_2208;
								BgL_bufposz00_4930 = BgL_arg1915z00_2209;
							BgL_statezd20zd21052z00_4928:
								if ((BgL_forwardz00_4929 == BgL_bufposz00_4930))
									{	/* Ieee/input.scm 148 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_2038)))
											{	/* Ieee/input.scm 148 */
												long BgL_arg1818z00_4933;
												long BgL_arg1819z00_4934;

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

													BgL_tmpz00_7390 = ((obj_t) BgL_iportz00_2038);
													BgL_arg1818z00_4933 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7390);
												}
												{	/* Ieee/input.scm 148 */
													obj_t BgL_tmpz00_7393;

													BgL_tmpz00_7393 = ((obj_t) BgL_iportz00_2038);
													BgL_arg1819z00_4934 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7393);
												}
												{
													long BgL_bufposz00_7397;
													long BgL_forwardz00_7396;

													BgL_forwardz00_7396 = BgL_arg1818z00_4933;
													BgL_bufposz00_7397 = BgL_arg1819z00_4934;
													BgL_bufposz00_4930 = BgL_bufposz00_7397;
													BgL_forwardz00_4929 = BgL_forwardz00_7396;
													goto BgL_statezd20zd21052z00_4928;
												}
											}
										else
											{	/* Ieee/input.scm 148 */
												BgL_matchz00_2205 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 148 */
										int BgL_curz00_4935;

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

											BgL_tmpz00_7398 = ((obj_t) BgL_iportz00_2038);
											BgL_curz00_4935 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7398,
												BgL_forwardz00_4929);
										}
										{	/* Ieee/input.scm 148 */

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

												BgL_arg1820z00_4936 = (1L + BgL_forwardz00_4929);
												{	/* Ieee/input.scm 148 */
													long BgL_newzd2matchzd2_4945;

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

														BgL_tmpz00_7402 = ((obj_t) BgL_iportz00_2038);
														RGC_STOP_MATCH(BgL_tmpz00_7402,
															BgL_arg1820z00_4936);
													}
													BgL_newzd2matchzd2_4945 = 0L;
													BgL_matchz00_2205 = BgL_newzd2matchzd2_4945;
						}}}}}}
						{	/* Ieee/input.scm 148 */
							obj_t BgL_tmpz00_7405;

							BgL_tmpz00_7405 = ((obj_t) BgL_iportz00_2038);
							RGC_SET_FILEPOS(BgL_tmpz00_7405);
						}
						switch (BgL_matchz00_2205)
							{
							case 1L:

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

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

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

											BgL_tmpz00_7409 = ((obj_t) BgL_iportz00_2038);
											BgL_arg1905z00_2195 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7409);
										}
										BgL_test3850z00_7408 = (BgL_arg1905z00_2195 == 0L);
									}
									if (BgL_test3850z00_7408)
										{	/* Ieee/input.scm 148 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 148 */
											unsigned char BgL_tmpz00_7413;

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

												BgL_tmpz00_7414 = ((obj_t) BgL_iportz00_2038);
												BgL_tmpz00_7413 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7414);
											}
											return BCHAR(BgL_tmpz00_7413);
										}
								}
								break;
							case 0L:

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

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

										BgL_tmpz00_7419 = ((obj_t) BgL_iportz00_2038);
										BgL_tmpz00_7418 = RGC_BUFFER_BYTE(BgL_tmpz00_7419);
									}
									return BINT(BgL_tmpz00_7418);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3616z00zz__r4_input_6_10_2z00,
									BGl_string3617z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_2205));
							}
					}
				}
			}
		}

	}



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

				{	/* Ieee/input.scm 155 */
					long BgL_aux1255z00_2241;

					{
						obj_t BgL_auxz00_7426;

						if (VECTORP(BgL_opt1252z00_20))
							{	/* Ieee/input.scm 155 */
								BgL_auxz00_7426 = BgL_opt1252z00_20;
							}
						else
							{
								obj_t BgL_auxz00_7429;

								BgL_auxz00_7429 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(6763L),
									BGl_string3632z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1252z00_20);
								FAILURE(BgL_auxz00_7429, BFALSE, BFALSE);
							}
						BgL_aux1255z00_2241 = VECTOR_LENGTH(BgL_auxz00_7426);
					}
					switch (BgL_aux1255z00_2241)
						{
						case 0L:

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

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

									BgL_tmpz00_7434 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_2242 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7434);
								}
								{	/* Ieee/input.scm 155 */

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

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

								{
									obj_t BgL_auxz00_7438;

									if (VECTORP(BgL_opt1252z00_20))
										{	/* Ieee/input.scm 155 */
											BgL_auxz00_7438 = BgL_opt1252z00_20;
										}
									else
										{
											obj_t BgL_auxz00_7441;

											BgL_auxz00_7441 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(6763L),
												BGl_string3632z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1252z00_20);
											FAILURE(BgL_auxz00_7441, BFALSE, BFALSE);
										}
									BgL_ipz00_2243 = VECTOR_REF(BgL_auxz00_7438, 0L);
								}
								{	/* Ieee/input.scm 155 */

									return
										BGl_peekzd2bytezd2zz__r4_input_6_10_2z00(BgL_ipz00_2243);
								}
							}
							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_2246;

				BgL_iportz00_2246 = BgL_ipz00_19;
				{

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

						BgL_tmpz00_7448 = ((obj_t) BgL_iportz00_2246);
						RGC_START_MATCH(BgL_tmpz00_7448);
					}
					{	/* Ieee/input.scm 156 */
						long BgL_matchz00_2413;

						{	/* Ieee/input.scm 156 */
							long BgL_arg2019z00_2418;
							long BgL_arg2020z00_2419;

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

								BgL_tmpz00_7451 = ((obj_t) BgL_iportz00_2246);
								BgL_arg2019z00_2418 = RGC_BUFFER_FORWARD(BgL_tmpz00_7451);
							}
							{	/* Ieee/input.scm 156 */
								obj_t BgL_tmpz00_7454;

								BgL_tmpz00_7454 = ((obj_t) BgL_iportz00_2246);
								BgL_arg2020z00_2419 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7454);
							}
							{
								long BgL_forwardz00_4996;
								long BgL_bufposz00_4997;

								BgL_forwardz00_4996 = BgL_arg2019z00_2418;
								BgL_bufposz00_4997 = BgL_arg2020z00_2419;
							BgL_statezd20zd21058z00_4995:
								if ((BgL_forwardz00_4996 == BgL_bufposz00_4997))
									{	/* Ieee/input.scm 156 */
										if (rgc_fill_buffer(((obj_t) BgL_iportz00_2246)))
											{	/* Ieee/input.scm 156 */
												long BgL_arg1921z00_5000;
												long BgL_arg1922z00_5001;

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

													BgL_tmpz00_7462 = ((obj_t) BgL_iportz00_2246);
													BgL_arg1921z00_5000 =
														RGC_BUFFER_FORWARD(BgL_tmpz00_7462);
												}
												{	/* Ieee/input.scm 156 */
													obj_t BgL_tmpz00_7465;

													BgL_tmpz00_7465 = ((obj_t) BgL_iportz00_2246);
													BgL_arg1922z00_5001 =
														RGC_BUFFER_BUFPOS(BgL_tmpz00_7465);
												}
												{
													long BgL_bufposz00_7469;
													long BgL_forwardz00_7468;

													BgL_forwardz00_7468 = BgL_arg1921z00_5000;
													BgL_bufposz00_7469 = BgL_arg1922z00_5001;
													BgL_bufposz00_4997 = BgL_bufposz00_7469;
													BgL_forwardz00_4996 = BgL_forwardz00_7468;
													goto BgL_statezd20zd21058z00_4995;
												}
											}
										else
											{	/* Ieee/input.scm 156 */
												BgL_matchz00_2413 = 1L;
											}
									}
								else
									{	/* Ieee/input.scm 156 */
										int BgL_curz00_5002;

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

											BgL_tmpz00_7470 = ((obj_t) BgL_iportz00_2246);
											BgL_curz00_5002 =
												RGC_BUFFER_GET_CHAR(BgL_tmpz00_7470,
												BgL_forwardz00_4996);
										}
										{	/* Ieee/input.scm 156 */

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

												BgL_arg1923z00_5003 = (1L + BgL_forwardz00_4996);
												{	/* Ieee/input.scm 156 */
													long BgL_newzd2matchzd2_5012;

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

														BgL_tmpz00_7474 = ((obj_t) BgL_iportz00_2246);
														RGC_STOP_MATCH(BgL_tmpz00_7474,
															BgL_arg1923z00_5003);
													}
													BgL_newzd2matchzd2_5012 = 0L;
													BgL_matchz00_2413 = BgL_newzd2matchzd2_5012;
						}}}}}}
						{	/* Ieee/input.scm 156 */
							obj_t BgL_tmpz00_7477;

							BgL_tmpz00_7477 = ((obj_t) BgL_iportz00_2246);
							RGC_SET_FILEPOS(BgL_tmpz00_7477);
						}
						switch (BgL_matchz00_2413)
							{
							case 1L:

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

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

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

											BgL_tmpz00_7481 = ((obj_t) BgL_iportz00_2246);
											BgL_arg2011z00_2403 =
												RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7481);
										}
										BgL_test3855z00_7480 = (BgL_arg2011z00_2403 == 0L);
									}
									if (BgL_test3855z00_7480)
										{	/* Ieee/input.scm 156 */
											return BEOF;
										}
									else
										{	/* Ieee/input.scm 156 */
											unsigned char BgL_tmpz00_7485;

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

												BgL_tmpz00_7486 = ((obj_t) BgL_iportz00_2246);
												BgL_tmpz00_7485 = RGC_BUFFER_CHARACTER(BgL_tmpz00_7486);
											}
											return BCHAR(BgL_tmpz00_7485);
										}
								}
								break;
							case 0L:

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

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

										BgL_tmpz00_7490 = ((obj_t) BgL_iportz00_2246);
										BgL_cz00_2416 = RGC_BUFFER_BYTE(BgL_tmpz00_7490);
									}
									rgc_buffer_unget_char(
										((obj_t) BgL_iportz00_2246), BgL_cz00_2416);
									return BINT(BgL_cz00_2416);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3616z00zz__r4_input_6_10_2z00,
									BGl_string3617z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_2413));
							}
					}
				}
			}
		}

	}



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

	}



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

				{	/* Ieee/input.scm 178 */
					long BgL_aux1259z00_6658;

					{
						obj_t BgL_auxz00_7503;

						if (VECTORP(BgL_opt1256z00_24))
							{	/* Ieee/input.scm 178 */
								BgL_auxz00_7503 = BgL_opt1256z00_24;
							}
						else
							{
								obj_t BgL_auxz00_7506;

								BgL_auxz00_7506 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(7765L),
									BGl_string3633z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1256z00_24);
								FAILURE(BgL_auxz00_7506, BFALSE, BFALSE);
							}
						BgL_aux1259z00_6658 = VECTOR_LENGTH(BgL_auxz00_7503);
					}
					switch (BgL_aux1259z00_6658)
						{
						case 0L:

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

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

									BgL_tmpz00_7511 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_6659 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7511);
								}
								{	/* Ieee/input.scm 178 */

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

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

								{
									obj_t BgL_auxz00_7516;

									if (VECTORP(BgL_opt1256z00_24))
										{	/* Ieee/input.scm 178 */
											BgL_auxz00_7516 = BgL_opt1256z00_24;
										}
									else
										{
											obj_t BgL_auxz00_7519;

											BgL_auxz00_7519 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(7765L),
												BGl_string3633z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1256z00_24);
											FAILURE(BgL_auxz00_7519, BFALSE, BFALSE);
										}
									BgL_ipz00_6660 = VECTOR_REF(BgL_auxz00_7516, 0L);
								}
								{	/* Ieee/input.scm 178 */

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

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

											if (INPUT_PORTP(BgL_ipz00_6660))
												{	/* Ieee/input.scm 179 */
													BgL_tmpz00_7525 = BgL_ipz00_6660;
												}
											else
												{
													obj_t BgL_auxz00_7528;

													BgL_auxz00_7528 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(7849L),
														BGl_string3633z00zz__r4_input_6_10_2z00,
														BGl_string3626z00zz__r4_input_6_10_2z00,
														BgL_ipz00_6660);
													FAILURE(BgL_auxz00_7528, BFALSE, BFALSE);
												}
											BgL_tmpz00_7524 = bgl_rgc_charready(BgL_tmpz00_7525);
										}
										return BBOOL(BgL_tmpz00_7524);
									}
								}
							}
							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_env1261z00_28,
		obj_t BgL_opt1260z00_27)
	{
		{	/* Ieee/input.scm 184 */
			{	/* Ieee/input.scm 184 */

				{	/* Ieee/input.scm 184 */
					long BgL_aux1263z00_2455;

					{
						obj_t BgL_auxz00_7536;

						if (VECTORP(BgL_opt1260z00_27))
							{	/* Ieee/input.scm 184 */
								BgL_auxz00_7536 = BgL_opt1260z00_27;
							}
						else
							{
								obj_t BgL_auxz00_7539;

								BgL_auxz00_7539 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(8077L),
									BGl_string3634z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1260z00_27);
								FAILURE(BgL_auxz00_7539, BFALSE, BFALSE);
							}
						BgL_aux1263z00_2455 = VECTOR_LENGTH(BgL_auxz00_7536);
					}
					switch (BgL_aux1263z00_2455)
						{
						case 0L:

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

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

									BgL_tmpz00_7544 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_2456 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7544);
								}
								{	/* Ieee/input.scm 184 */

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

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

								{
									obj_t BgL_auxz00_7548;

									if (VECTORP(BgL_opt1260z00_27))
										{	/* Ieee/input.scm 184 */
											BgL_auxz00_7548 = BgL_opt1260z00_27;
										}
									else
										{
											obj_t BgL_auxz00_7551;

											BgL_auxz00_7551 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(8077L),
												BGl_string3634z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1260z00_27);
											FAILURE(BgL_auxz00_7551, BFALSE, BFALSE);
										}
									BgL_ipz00_2457 = VECTOR_REF(BgL_auxz00_7548, 0L);
								}
								{	/* Ieee/input.scm 184 */

									return
										BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_2457);
								}
							}
							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_test3861z00_7558;

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

					BgL_arg2181z00_2789 = BGL_INPUT_PORT_BUFSIZ(BgL_ipz00_26);
					BgL_test3861z00_7558 = (BgL_arg2181z00_2789 > 2L);
				}
				if (BgL_test3861z00_7558)
					{
						obj_t BgL_iportz00_2462;

						BgL_iportz00_2462 = BgL_ipz00_26;
						{
							int BgL_minz00_2609;
							int BgL_maxz00_2610;
							obj_t BgL_iportz00_2572;
							long BgL_lastzd2matchzd2_2573;
							long BgL_forwardz00_2574;
							long BgL_bufposz00_2575;
							obj_t BgL_iportz00_2544;
							long BgL_lastzd2matchzd2_2545;
							long BgL_forwardz00_2546;
							long BgL_bufposz00_2547;
							obj_t BgL_iportz00_2531;
							long BgL_lastzd2matchzd2_2532;
							long BgL_forwardz00_2533;
							long BgL_bufposz00_2534;
							obj_t BgL_iportz00_2516;
							long BgL_lastzd2matchzd2_2517;
							long BgL_forwardz00_2518;
							long BgL_bufposz00_2519;
							obj_t BgL_iportz00_2500;
							long BgL_lastzd2matchzd2_2501;
							long BgL_forwardz00_2502;
							long BgL_bufposz00_2503;

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

								BgL_tmpz00_7561 = ((obj_t) BgL_iportz00_2462);
								RGC_START_MATCH(BgL_tmpz00_7561);
							}
							{	/* Ieee/input.scm 186 */
								long BgL_matchz00_2716;

								{	/* Ieee/input.scm 186 */
									long BgL_arg2166z00_2723;
									long BgL_arg2167z00_2724;

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

										BgL_tmpz00_7564 = ((obj_t) BgL_iportz00_2462);
										BgL_arg2166z00_2723 = RGC_BUFFER_FORWARD(BgL_tmpz00_7564);
									}
									{	/* Ieee/input.scm 186 */
										obj_t BgL_tmpz00_7567;

										BgL_tmpz00_7567 = ((obj_t) BgL_iportz00_2462);
										BgL_arg2167z00_2724 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7567);
									}
									BgL_iportz00_2516 = BgL_iportz00_2462;
									BgL_lastzd2matchzd2_2517 = 4L;
									BgL_forwardz00_2518 = BgL_arg2166z00_2723;
									BgL_bufposz00_2519 = BgL_arg2167z00_2724;
								BgL_zc3z04anonymousza32035ze3z87_2520:
									if ((BgL_forwardz00_2518 == BgL_bufposz00_2519))
										{	/* Ieee/input.scm 186 */
											if (rgc_fill_buffer(((obj_t) BgL_iportz00_2516)))
												{	/* Ieee/input.scm 186 */
													long BgL_arg2038z00_2523;
													long BgL_arg2039z00_2524;

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

														BgL_tmpz00_7575 = ((obj_t) BgL_iportz00_2516);
														BgL_arg2038z00_2523 =
															RGC_BUFFER_FORWARD(BgL_tmpz00_7575);
													}
													{	/* Ieee/input.scm 186 */
														obj_t BgL_tmpz00_7578;

														BgL_tmpz00_7578 = ((obj_t) BgL_iportz00_2516);
														BgL_arg2039z00_2524 =
															RGC_BUFFER_BUFPOS(BgL_tmpz00_7578);
													}
													{
														long BgL_bufposz00_7582;
														long BgL_forwardz00_7581;

														BgL_forwardz00_7581 = BgL_arg2038z00_2523;
														BgL_bufposz00_7582 = BgL_arg2039z00_2524;
														BgL_bufposz00_2519 = BgL_bufposz00_7582;
														BgL_forwardz00_2518 = BgL_forwardz00_7581;
														goto BgL_zc3z04anonymousza32035ze3z87_2520;
													}
												}
											else
												{	/* Ieee/input.scm 186 */
													BgL_matchz00_2716 = BgL_lastzd2matchzd2_2517;
												}
										}
									else
										{	/* Ieee/input.scm 186 */
											int BgL_curz00_2525;

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

												BgL_tmpz00_7583 = ((obj_t) BgL_iportz00_2516);
												BgL_curz00_2525 =
													RGC_BUFFER_GET_CHAR(BgL_tmpz00_7583,
													BgL_forwardz00_2518);
											}
											{	/* Ieee/input.scm 186 */

												if (((long) (BgL_curz00_2525) == 13L))
													{	/* Ieee/input.scm 186 */
														BgL_iportz00_2531 = BgL_iportz00_2516;
														BgL_lastzd2matchzd2_2532 = BgL_lastzd2matchzd2_2517;
														BgL_forwardz00_2533 = (1L + BgL_forwardz00_2518);
														BgL_bufposz00_2534 = BgL_bufposz00_2519;
													BgL_zc3z04anonymousza32045ze3z87_2535:
														{	/* Ieee/input.scm 186 */
															long BgL_newzd2matchzd2_2536;

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

																BgL_tmpz00_7589 = ((obj_t) BgL_iportz00_2531);
																RGC_STOP_MATCH(BgL_tmpz00_7589,
																	BgL_forwardz00_2533);
															}
															BgL_newzd2matchzd2_2536 = 3L;
															if ((BgL_forwardz00_2533 == BgL_bufposz00_2534))
																{	/* Ieee/input.scm 186 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_2531)))
																		{	/* Ieee/input.scm 186 */
																			long BgL_arg2048z00_2539;
																			long BgL_arg2049z00_2540;

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

																				BgL_tmpz00_7597 =
																					((obj_t) BgL_iportz00_2531);
																				BgL_arg2048z00_2539 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_7597);
																			}
																			{	/* Ieee/input.scm 186 */
																				obj_t BgL_tmpz00_7600;

																				BgL_tmpz00_7600 =
																					((obj_t) BgL_iportz00_2531);
																				BgL_arg2049z00_2540 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_7600);
																			}
																			{
																				long BgL_bufposz00_7604;
																				long BgL_forwardz00_7603;

																				BgL_forwardz00_7603 =
																					BgL_arg2048z00_2539;
																				BgL_bufposz00_7604 =
																					BgL_arg2049z00_2540;
																				BgL_bufposz00_2534 = BgL_bufposz00_7604;
																				BgL_forwardz00_2533 =
																					BgL_forwardz00_7603;
																				goto
																					BgL_zc3z04anonymousza32045ze3z87_2535;
																			}
																		}
																	else
																		{	/* Ieee/input.scm 186 */
																			BgL_matchz00_2716 =
																				BgL_newzd2matchzd2_2536;
																		}
																}
															else
																{	/* Ieee/input.scm 186 */
																	int BgL_curz00_2541;

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

																		BgL_tmpz00_7605 =
																			((obj_t) BgL_iportz00_2531);
																		BgL_curz00_2541 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_7605,
																			BgL_forwardz00_2533);
																	}
																	{	/* Ieee/input.scm 186 */

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

																				BgL_arg2051z00_2543 =
																					(1L + BgL_forwardz00_2533);
																				{	/* Ieee/input.scm 186 */
																					long BgL_newzd2matchzd2_5070;

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

																						BgL_tmpz00_7612 =
																							((obj_t) BgL_iportz00_2531);
																						RGC_STOP_MATCH(BgL_tmpz00_7612,
																							BgL_arg2051z00_2543);
																					}
																					BgL_newzd2matchzd2_5070 = 3L;
																					BgL_matchz00_2716 =
																						BgL_newzd2matchzd2_5070;
																			}}
																		else
																			{	/* Ieee/input.scm 186 */
																				BgL_matchz00_2716 =
																					BgL_newzd2matchzd2_2536;
																			}
																	}
																}
														}
													}
												else
													{	/* Ieee/input.scm 186 */
														if (((long) (BgL_curz00_2525) == 10L))
															{	/* Ieee/input.scm 186 */
																long BgL_arg2043z00_2529;

																BgL_arg2043z00_2529 =
																	(1L + BgL_forwardz00_2518);
																{	/* Ieee/input.scm 186 */
																	long BgL_newzd2matchzd2_5055;

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

																		BgL_tmpz00_7620 =
																			((obj_t) BgL_iportz00_2516);
																		RGC_STOP_MATCH(BgL_tmpz00_7620,
																			BgL_arg2043z00_2529);
																	}
																	BgL_newzd2matchzd2_5055 = 3L;
																	BgL_matchz00_2716 = BgL_newzd2matchzd2_5055;
															}}
														else
															{	/* Ieee/input.scm 186 */
																BgL_iportz00_2500 = BgL_iportz00_2516;
																BgL_lastzd2matchzd2_2501 =
																	BgL_lastzd2matchzd2_2517;
																BgL_forwardz00_2502 =
																	(1L + BgL_forwardz00_2518);
																BgL_bufposz00_2503 = BgL_bufposz00_2519;
															BgL_zc3z04anonymousza32024ze3z87_2504:
																{	/* Ieee/input.scm 186 */
																	long BgL_newzd2matchzd2_2505;

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

																		BgL_tmpz00_7623 =
																			((obj_t) BgL_iportz00_2500);
																		RGC_STOP_MATCH(BgL_tmpz00_7623,
																			BgL_forwardz00_2502);
																	}
																	BgL_newzd2matchzd2_2505 = 2L;
																	if (
																		(BgL_forwardz00_2502 == BgL_bufposz00_2503))
																		{	/* Ieee/input.scm 186 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_2500)))
																				{	/* Ieee/input.scm 186 */
																					long BgL_arg2028z00_2508;
																					long BgL_arg2029z00_2509;

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

																						BgL_tmpz00_7631 =
																							((obj_t) BgL_iportz00_2500);
																						BgL_arg2028z00_2508 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_7631);
																					}
																					{	/* Ieee/input.scm 186 */
																						obj_t BgL_tmpz00_7634;

																						BgL_tmpz00_7634 =
																							((obj_t) BgL_iportz00_2500);
																						BgL_arg2029z00_2509 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_7634);
																					}
																					{
																						long BgL_bufposz00_7638;
																						long BgL_forwardz00_7637;

																						BgL_forwardz00_7637 =
																							BgL_arg2028z00_2508;
																						BgL_bufposz00_7638 =
																							BgL_arg2029z00_2509;
																						BgL_bufposz00_2503 =
																							BgL_bufposz00_7638;
																						BgL_forwardz00_2502 =
																							BgL_forwardz00_7637;
																						goto
																							BgL_zc3z04anonymousza32024ze3z87_2504;
																					}
																				}
																			else
																				{	/* Ieee/input.scm 186 */
																					BgL_matchz00_2716 =
																						BgL_newzd2matchzd2_2505;
																				}
																		}
																	else
																		{	/* Ieee/input.scm 186 */
																			int BgL_curz00_2510;

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

																				BgL_tmpz00_7639 =
																					((obj_t) BgL_iportz00_2500);
																				BgL_curz00_2510 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_7639,
																					BgL_forwardz00_2502);
																			}
																			{	/* Ieee/input.scm 186 */

																				if (((long) (BgL_curz00_2510) == 13L))
																					{	/* Ieee/input.scm 186 */
																						BgL_iportz00_2572 =
																							BgL_iportz00_2500;
																						BgL_lastzd2matchzd2_2573 =
																							BgL_newzd2matchzd2_2505;
																						BgL_forwardz00_2574 =
																							(1L + BgL_forwardz00_2502);
																						BgL_bufposz00_2575 =
																							BgL_bufposz00_2503;
																					BgL_zc3z04anonymousza32064ze3z87_2576:
																						{	/* Ieee/input.scm 186 */
																							long BgL_newzd2matchzd2_2577;

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

																								BgL_tmpz00_7645 =
																									((obj_t) BgL_iportz00_2572);
																								RGC_STOP_MATCH(BgL_tmpz00_7645,
																									BgL_forwardz00_2574);
																							}
																							BgL_newzd2matchzd2_2577 = 0L;
																							if (
																								(BgL_forwardz00_2574 ==
																									BgL_bufposz00_2575))
																								{	/* Ieee/input.scm 186 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_2572)))
																										{	/* Ieee/input.scm 186 */
																											long BgL_arg2067z00_2580;
																											long BgL_arg2068z00_2581;

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

																												BgL_tmpz00_7653 =
																													((obj_t)
																													BgL_iportz00_2572);
																												BgL_arg2067z00_2580 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_7653);
																											}
																											{	/* Ieee/input.scm 186 */
																												obj_t BgL_tmpz00_7656;

																												BgL_tmpz00_7656 =
																													((obj_t)
																													BgL_iportz00_2572);
																												BgL_arg2068z00_2581 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_7656);
																											}
																											{
																												long BgL_bufposz00_7660;
																												long
																													BgL_forwardz00_7659;
																												BgL_forwardz00_7659 =
																													BgL_arg2067z00_2580;
																												BgL_bufposz00_7660 =
																													BgL_arg2068z00_2581;
																												BgL_bufposz00_2575 =
																													BgL_bufposz00_7660;
																												BgL_forwardz00_2574 =
																													BgL_forwardz00_7659;
																												goto
																													BgL_zc3z04anonymousza32064ze3z87_2576;
																											}
																										}
																									else
																										{	/* Ieee/input.scm 186 */
																											BgL_matchz00_2716 =
																												BgL_newzd2matchzd2_2577;
																										}
																								}
																							else
																								{	/* Ieee/input.scm 186 */
																									int BgL_curz00_2582;

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

																										BgL_tmpz00_7661 =
																											((obj_t)
																											BgL_iportz00_2572);
																										BgL_curz00_2582 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_7661,
																											BgL_forwardz00_2574);
																									}
																									{	/* Ieee/input.scm 186 */

																										if (
																											((long) (BgL_curz00_2582)
																												== 10L))
																											{	/* Ieee/input.scm 186 */
																												long
																													BgL_arg2070z00_2584;
																												BgL_arg2070z00_2584 =
																													(1L +
																													BgL_forwardz00_2574);
																												{	/* Ieee/input.scm 186 */
																													long
																														BgL_newzd2matchzd2_5107;
																													{	/* Ieee/input.scm 186 */
																														obj_t
																															BgL_tmpz00_7668;
																														BgL_tmpz00_7668 =
																															((obj_t)
																															BgL_iportz00_2572);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_7668,
																															BgL_arg2070z00_2584);
																													}
																													BgL_newzd2matchzd2_5107
																														= 1L;
																													BgL_matchz00_2716 =
																														BgL_newzd2matchzd2_5107;
																											}}
																										else
																											{	/* Ieee/input.scm 186 */
																												BgL_matchz00_2716 =
																													BgL_newzd2matchzd2_2577;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Ieee/input.scm 186 */
																						if (
																							((long) (BgL_curz00_2510) == 10L))
																							{	/* Ieee/input.scm 186 */
																								long BgL_arg2033z00_2514;

																								BgL_arg2033z00_2514 =
																									(1L + BgL_forwardz00_2502);
																								{	/* Ieee/input.scm 186 */
																									long BgL_newzd2matchzd2_5040;

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

																										BgL_tmpz00_7676 =
																											((obj_t)
																											BgL_iportz00_2500);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7676,
																											BgL_arg2033z00_2514);
																									}
																									BgL_newzd2matchzd2_5040 = 0L;
																									BgL_matchz00_2716 =
																										BgL_newzd2matchzd2_5040;
																							}}
																						else
																							{	/* Ieee/input.scm 186 */
																								BgL_iportz00_2544 =
																									BgL_iportz00_2500;
																								BgL_lastzd2matchzd2_2545 =
																									BgL_newzd2matchzd2_2505;
																								BgL_forwardz00_2546 =
																									(1L + BgL_forwardz00_2502);
																								BgL_bufposz00_2547 =
																									BgL_bufposz00_2503;
																							BgL_zc3z04anonymousza32052ze3z87_2548:
																								{	/* Ieee/input.scm 186 */
																									long BgL_newzd2matchzd2_2549;

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

																										BgL_tmpz00_7679 =
																											((obj_t)
																											BgL_iportz00_2544);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7679,
																											BgL_forwardz00_2546);
																									}
																									BgL_newzd2matchzd2_2549 = 2L;
																									if (
																										(BgL_forwardz00_2546 ==
																											BgL_bufposz00_2547))
																										{	/* Ieee/input.scm 186 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_2544)))
																												{	/* Ieee/input.scm 186 */
																													long
																														BgL_arg2055z00_2552;
																													long
																														BgL_arg2056z00_2553;
																													{	/* Ieee/input.scm 186 */
																														obj_t
																															BgL_tmpz00_7687;
																														BgL_tmpz00_7687 =
																															((obj_t)
																															BgL_iportz00_2544);
																														BgL_arg2055z00_2552
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_7687);
																													}
																													{	/* Ieee/input.scm 186 */
																														obj_t
																															BgL_tmpz00_7690;
																														BgL_tmpz00_7690 =
																															((obj_t)
																															BgL_iportz00_2544);
																														BgL_arg2056z00_2553
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_7690);
																													}
																													{
																														long
																															BgL_bufposz00_7694;
																														long
																															BgL_forwardz00_7693;
																														BgL_forwardz00_7693
																															=
																															BgL_arg2055z00_2552;
																														BgL_bufposz00_7694 =
																															BgL_arg2056z00_2553;
																														BgL_bufposz00_2547 =
																															BgL_bufposz00_7694;
																														BgL_forwardz00_2546
																															=
																															BgL_forwardz00_7693;
																														goto
																															BgL_zc3z04anonymousza32052ze3z87_2548;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 186 */
																													BgL_matchz00_2716 =
																														BgL_newzd2matchzd2_2549;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 186 */
																											int BgL_curz00_2554;

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

																												BgL_tmpz00_7695 =
																													((obj_t)
																													BgL_iportz00_2544);
																												BgL_curz00_2554 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_7695,
																													BgL_forwardz00_2546);
																											}
																											{	/* Ieee/input.scm 186 */

																												if (
																													((long)
																														(BgL_curz00_2554) ==
																														13L))
																													{
																														long
																															BgL_bufposz00_7705;
																														long
																															BgL_forwardz00_7703;
																														long
																															BgL_lastzd2matchzd2_7702;
																														obj_t
																															BgL_iportz00_7701;
																														BgL_iportz00_7701 =
																															BgL_iportz00_2544;
																														BgL_lastzd2matchzd2_7702
																															=
																															BgL_newzd2matchzd2_2549;
																														BgL_forwardz00_7703
																															=
																															(1L +
																															BgL_forwardz00_2546);
																														BgL_bufposz00_7705 =
																															BgL_bufposz00_2547;
																														BgL_bufposz00_2575 =
																															BgL_bufposz00_7705;
																														BgL_forwardz00_2574
																															=
																															BgL_forwardz00_7703;
																														BgL_lastzd2matchzd2_2573
																															=
																															BgL_lastzd2matchzd2_7702;
																														BgL_iportz00_2572 =
																															BgL_iportz00_7701;
																														goto
																															BgL_zc3z04anonymousza32064ze3z87_2576;
																													}
																												else
																													{	/* Ieee/input.scm 186 */
																														if (
																															((long)
																																(BgL_curz00_2554)
																																== 10L))
																															{	/* Ieee/input.scm 186 */
																																long
																																	BgL_arg2060z00_2558;
																																BgL_arg2060z00_2558
																																	=
																																	(1L +
																																	BgL_forwardz00_2546);
																																{	/* Ieee/input.scm 186 */
																																	long
																																		BgL_newzd2matchzd2_5086;
																																	{	/* Ieee/input.scm 186 */
																																		obj_t
																																			BgL_tmpz00_7710;
																																		BgL_tmpz00_7710
																																			=
																																			((obj_t)
																																			BgL_iportz00_2544);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_7710,
																																			BgL_arg2060z00_2558);
																																	}
																																	BgL_newzd2matchzd2_5086
																																		= 0L;
																																	BgL_matchz00_2716
																																		=
																																		BgL_newzd2matchzd2_5086;
																															}}
																														else
																															{
																																long
																																	BgL_forwardz00_7714;
																																long
																																	BgL_lastzd2matchzd2_7713;
																																BgL_lastzd2matchzd2_7713
																																	=
																																	BgL_newzd2matchzd2_2549;
																																BgL_forwardz00_7714
																																	=
																																	(1L +
																																	BgL_forwardz00_2546);
																																BgL_forwardz00_2546
																																	=
																																	BgL_forwardz00_7714;
																																BgL_lastzd2matchzd2_2545
																																	=
																																	BgL_lastzd2matchzd2_7713;
																																goto
																																	BgL_zc3z04anonymousza32052ze3z87_2548;
																															}
																													}
																											}
																										}
																								}
																							}
																					}
																			}
																		}
																}
															}
													}
											}
										}
								}
								{	/* Ieee/input.scm 186 */
									obj_t BgL_tmpz00_7718;

									BgL_tmpz00_7718 = ((obj_t) BgL_iportz00_2462);
									RGC_SET_FILEPOS(BgL_tmpz00_7718);
								}
								switch (BgL_matchz00_2716)
									{
									case 4L:

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

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

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

													BgL_tmpz00_7722 = ((obj_t) BgL_iportz00_2462);
													BgL_arg2155z00_2706 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7722);
												}
												BgL_test3880z00_7721 = (BgL_arg2155z00_2706 == 0L);
											}
											if (BgL_test3880z00_7721)
												{	/* Ieee/input.scm 186 */
													return BEOF;
												}
											else
												{	/* Ieee/input.scm 186 */
													unsigned char BgL_tmpz00_7726;

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

														BgL_tmpz00_7727 = ((obj_t) BgL_iportz00_2462);
														BgL_tmpz00_7726 =
															RGC_BUFFER_CHARACTER(BgL_tmpz00_7727);
													}
													return BCHAR(BgL_tmpz00_7726);
												}
										}
										break;
									case 3L:

										return BGl_string3635z00zz__r4_input_6_10_2z00;
										break;
									case 2L:

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

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

												BgL_tmpz00_7731 = ((obj_t) BgL_iportz00_2462);
												BgL_arg2079z00_5146 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7731);
											}
											return
												rgc_buffer_substring(
												((obj_t) BgL_iportz00_2462), 0L, BgL_arg2079z00_5146);
										}
										break;
									case 1L:

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

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

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

													BgL_tmpz00_7736 = ((obj_t) BgL_iportz00_2462);
													BgL_arg2163z00_2720 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7736);
												}
												BgL_arg2162z00_2719 = (BgL_arg2163z00_2720 - 2L);
											}
											BgL_minz00_2609 = (int) (0L);
											BgL_maxz00_2610 = (int) (BgL_arg2162z00_2719);
										BgL_lambda2080z00_2611:
											if (((long) (BgL_maxz00_2610) < (long) (BgL_minz00_2609)))
												{	/* Ieee/input.scm 186 */
													long BgL_arg2082z00_2613;

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

														BgL_tmpz00_7744 = ((obj_t) BgL_iportz00_2462);
														BgL_arg2082z00_2613 =
															RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7744);
													}
													{	/* Ieee/input.scm 186 */
														long BgL_za72za7_5124;

														BgL_za72za7_5124 = (long) (BgL_maxz00_2610);
														BgL_maxz00_2610 =
															(int) ((BgL_arg2082z00_2613 + BgL_za72za7_5124));
												}}
											else
												{	/* Ieee/input.scm 186 */
													BFALSE;
												}
											{	/* Ieee/input.scm 186 */
												bool_t BgL_test3882z00_7750;

												if (((long) (BgL_minz00_2609) >= 0L))
													{	/* Ieee/input.scm 186 */
														if (
															((long) (BgL_maxz00_2610) >=
																(long) (BgL_minz00_2609)))
															{	/* Ieee/input.scm 186 */
																long BgL_arg2091z00_2624;

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

																	BgL_tmpz00_7758 = ((obj_t) BgL_iportz00_2462);
																	BgL_arg2091z00_2624 =
																		RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7758);
																}
																BgL_test3882z00_7750 =
																	(
																	(long) (BgL_maxz00_2610) <=
																	BgL_arg2091z00_2624);
															}
														else
															{	/* Ieee/input.scm 186 */
																BgL_test3882z00_7750 = ((bool_t) 0);
															}
													}
												else
													{	/* Ieee/input.scm 186 */
														BgL_test3882z00_7750 = ((bool_t) 0);
													}
												if (BgL_test3882z00_7750)
													{	/* Ieee/input.scm 186 */
														long BgL_startz00_5132;
														long BgL_stopz00_5133;

														BgL_startz00_5132 = (long) (BgL_minz00_2609);
														BgL_stopz00_5133 = (long) (BgL_maxz00_2610);
														return
															rgc_buffer_substring(
															((obj_t) BgL_iportz00_2462), BgL_startz00_5132,
															BgL_stopz00_5133);
													}
												else
													{	/* Ieee/input.scm 186 */
														obj_t BgL_arg2087z00_2618;
														obj_t BgL_arg2088z00_2619;

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

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

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

																	BgL_tmpz00_7767 = ((obj_t) BgL_iportz00_2462);
																	BgL_arg2079z00_5134 =
																		RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7767);
																}
																BgL_arg2089z00_2620 =
																	rgc_buffer_substring(
																	((obj_t) BgL_iportz00_2462), 0L,
																	BgL_arg2079z00_5134);
															}
															{	/* Ieee/input.scm 186 */
																obj_t BgL_list2090z00_2621;

																BgL_list2090z00_2621 =
																	MAKE_YOUNG_PAIR(BgL_arg2089z00_2620, BNIL);
																BgL_arg2087z00_2618 =
																	BGl_formatz00zz__r4_output_6_10_3z00
																	(BGl_string3618z00zz__r4_input_6_10_2z00,
																	BgL_list2090z00_2621);
														}}
														BgL_arg2088z00_2619 =
															MAKE_YOUNG_PAIR(BINT(BgL_minz00_2609),
															BINT(BgL_maxz00_2610));
														return
															BGl_errorz00zz__errorz00
															(BGl_string3619z00zz__r4_input_6_10_2z00,
															BgL_arg2087z00_2618, BgL_arg2088z00_2619);
													}
											}
										}
										break;
									case 0L:

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

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

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

													BgL_tmpz00_7780 = ((obj_t) BgL_iportz00_2462);
													BgL_arg2165z00_2722 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_7780);
												}
												BgL_arg2164z00_2721 = (BgL_arg2165z00_2722 - 1L);
											}
											{
												int BgL_maxz00_7786;
												int BgL_minz00_7784;

												BgL_minz00_7784 = (int) (0L);
												BgL_maxz00_7786 = (int) (BgL_arg2164z00_2721);
												BgL_maxz00_2610 = BgL_maxz00_7786;
												BgL_minz00_2609 = BgL_minz00_7784;
												goto BgL_lambda2080z00_2611;
											}
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3616z00zz__r4_input_6_10_2z00,
											BGl_string3617z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_2716));
									}
							}
						}
					}
				else
					{	/* Ieee/input.scm 201 */
						obj_t BgL_g1078z00_2762;
						obj_t BgL_g1079z00_2763;

						BgL_g1078z00_2762 =
							BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_26);
						{	/* Ieee/string.scm 172 */

							BgL_g1079z00_2763 = make_string(100L, ((unsigned char) ' '));
						}
						{
							obj_t BgL_cz00_2765;
							long BgL_wz00_2766;
							long BgL_mz00_2767;
							obj_t BgL_accz00_2768;

							BgL_cz00_2765 = BgL_g1078z00_2762;
							BgL_wz00_2766 = 0L;
							BgL_mz00_2767 = 100L;
							BgL_accz00_2768 = BgL_g1079z00_2763;
						BgL_zc3z04anonymousza32168ze3z87_2769:
							if (EOF_OBJECTP(BgL_cz00_2765))
								{	/* Ieee/input.scm 206 */
									if ((BgL_wz00_2766 == 0L))
										{	/* Ieee/input.scm 208 */
											return BgL_cz00_2765;
										}
									else
										{	/* Ieee/input.scm 208 */
											return c_substring(BgL_accz00_2768, 0L, BgL_wz00_2766);
										}
								}
							else
								{	/* Ieee/input.scm 206 */
									if ((BgL_wz00_2766 == BgL_mz00_2767))
										{	/* Ieee/input.scm 213 */
											long BgL_arg2172z00_2773;
											obj_t BgL_arg2173z00_2774;

											BgL_arg2172z00_2773 = (BgL_mz00_2767 * 2L);
											{	/* Ieee/input.scm 214 */
												obj_t BgL_newzd2acczd2_2775;

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

													BgL_arg2174z00_2776 = (BgL_mz00_2767 * 2L);
													{	/* Ieee/string.scm 172 */

														BgL_newzd2acczd2_2775 =
															make_string(BgL_arg2174z00_2776,
															((unsigned char) ' '));
												}}
												blit_string(BgL_accz00_2768, 0L, BgL_newzd2acczd2_2775,
													0L, BgL_mz00_2767);
												BgL_arg2173z00_2774 = BgL_newzd2acczd2_2775;
											}
											{
												obj_t BgL_accz00_7805;
												long BgL_mz00_7804;

												BgL_mz00_7804 = BgL_arg2172z00_2773;
												BgL_accz00_7805 = BgL_arg2173z00_2774;
												BgL_accz00_2768 = BgL_accz00_7805;
												BgL_mz00_2767 = BgL_mz00_7804;
												goto BgL_zc3z04anonymousza32168ze3z87_2769;
											}
										}
									else
										{	/* Ieee/input.scm 209 */
											if ((CCHAR(BgL_cz00_2765) == ((unsigned char) 13)))
												{	/* Ieee/input.scm 218 */
													obj_t BgL_c2z00_2780;

													BgL_c2z00_2780 =
														BGl_readzd2charzd2zz__r4_input_6_10_2z00
														(BgL_ipz00_26);
													if ((CCHAR(BgL_c2z00_2780) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 219 */
															return
																c_substring(BgL_accz00_2768, 0L, BgL_wz00_2766);
														}
													else
														{	/* Ieee/input.scm 219 */
															{	/* Ieee/input.scm 222 */
																unsigned char BgL_tmpz00_7814;

																BgL_tmpz00_7814 = CCHAR(BgL_cz00_2765);
																STRING_SET(BgL_accz00_2768, BgL_wz00_2766,
																	BgL_tmpz00_7814);
															}
															{
																long BgL_wz00_7818;
																obj_t BgL_cz00_7817;

																BgL_cz00_7817 = BgL_c2z00_2780;
																BgL_wz00_7818 = (BgL_wz00_2766 + 1L);
																BgL_wz00_2766 = BgL_wz00_7818;
																BgL_cz00_2765 = BgL_cz00_7817;
																goto BgL_zc3z04anonymousza32168ze3z87_2769;
															}
														}
												}
											else
												{	/* Ieee/input.scm 217 */
													if ((CCHAR(BgL_cz00_2765) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 224 */
															return
																c_substring(BgL_accz00_2768, 0L, BgL_wz00_2766);
														}
													else
														{	/* Ieee/input.scm 224 */
															{	/* Ieee/input.scm 229 */
																unsigned char BgL_tmpz00_7824;

																BgL_tmpz00_7824 = CCHAR(BgL_cz00_2765);
																STRING_SET(BgL_accz00_2768, BgL_wz00_2766,
																	BgL_tmpz00_7824);
															}
															{
																long BgL_wz00_7829;
																obj_t BgL_cz00_7827;

																BgL_cz00_7827 =
																	BGl_readzd2charzd2zz__r4_input_6_10_2z00
																	(BgL_ipz00_26);
																BgL_wz00_7829 = (BgL_wz00_2766 + 1L);
																BgL_wz00_2766 = BgL_wz00_7829;
																BgL_cz00_2765 = BgL_cz00_7827;
																goto BgL_zc3z04anonymousza32168ze3z87_2769;
															}
														}
												}
										}
								}
						}
					}
			}
		}

	}



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

				{	/* Ieee/input.scm 235 */
					long BgL_aux1267z00_2791;

					{
						obj_t BgL_auxz00_7831;

						if (VECTORP(BgL_opt1264z00_30))
							{	/* Ieee/input.scm 235 */
								BgL_auxz00_7831 = BgL_opt1264z00_30;
							}
						else
							{
								obj_t BgL_auxz00_7834;

								BgL_auxz00_7834 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(9701L),
									BGl_string3636z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1264z00_30);
								FAILURE(BgL_auxz00_7834, BFALSE, BFALSE);
							}
						BgL_aux1267z00_2791 = VECTOR_LENGTH(BgL_auxz00_7831);
					}
					switch (BgL_aux1267z00_2791)
						{
						case 0L:

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

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

									BgL_tmpz00_7839 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_2792 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7839);
								}
								{	/* Ieee/input.scm 235 */

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

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

								{
									obj_t BgL_auxz00_7843;

									if (VECTORP(BgL_opt1264z00_30))
										{	/* Ieee/input.scm 235 */
											BgL_auxz00_7843 = BgL_opt1264z00_30;
										}
									else
										{
											obj_t BgL_auxz00_7846;

											BgL_auxz00_7846 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(9701L),
												BGl_string3636z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1264z00_30);
											FAILURE(BgL_auxz00_7846, BFALSE, BFALSE);
										}
									BgL_ipz00_2793 = VECTOR_REF(BgL_auxz00_7843, 0L);
								}
								{	/* Ieee/input.scm 235 */

									return
										BGl_readzd2linezd2newlinez00zz__r4_input_6_10_2z00
										(BgL_ipz00_2793);
								}
							}
							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_test3893z00_7853;

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

					BgL_arg2347z00_3110 = BGL_INPUT_PORT_BUFSIZ(BgL_ipz00_29);
					BgL_test3893z00_7853 = (BgL_arg2347z00_3110 > 2L);
				}
				if (BgL_test3893z00_7853)
					{
						obj_t BgL_iportz00_2798;

						BgL_iportz00_2798 = BgL_ipz00_29;
						{
							obj_t BgL_iportz00_2900;
							long BgL_lastzd2matchzd2_2901;
							long BgL_forwardz00_2902;
							long BgL_bufposz00_2903;
							obj_t BgL_iportz00_2884;
							long BgL_lastzd2matchzd2_2885;
							long BgL_forwardz00_2886;
							long BgL_bufposz00_2887;
							obj_t BgL_iportz00_2869;
							long BgL_lastzd2matchzd2_2870;
							long BgL_forwardz00_2871;
							long BgL_bufposz00_2872;
							obj_t BgL_iportz00_2856;
							long BgL_lastzd2matchzd2_2857;
							long BgL_forwardz00_2858;
							long BgL_bufposz00_2859;
							obj_t BgL_iportz00_2834;
							long BgL_lastzd2matchzd2_2835;
							long BgL_forwardz00_2836;
							long BgL_bufposz00_2837;

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

								BgL_tmpz00_7856 = ((obj_t) BgL_iportz00_2798);
								RGC_START_MATCH(BgL_tmpz00_7856);
							}
							{	/* Ieee/input.scm 237 */
								long BgL_matchz00_3038;

								{	/* Ieee/input.scm 237 */
									long BgL_arg2323z00_3041;
									long BgL_arg2324z00_3042;

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

										BgL_tmpz00_7859 = ((obj_t) BgL_iportz00_2798);
										BgL_arg2323z00_3041 = RGC_BUFFER_FORWARD(BgL_tmpz00_7859);
									}
									{	/* Ieee/input.scm 237 */
										obj_t BgL_tmpz00_7862;

										BgL_tmpz00_7862 = ((obj_t) BgL_iportz00_2798);
										BgL_arg2324z00_3042 = RGC_BUFFER_BUFPOS(BgL_tmpz00_7862);
									}
									BgL_iportz00_2869 = BgL_iportz00_2798;
									BgL_lastzd2matchzd2_2870 = 1L;
									BgL_forwardz00_2871 = BgL_arg2323z00_3041;
									BgL_bufposz00_2872 = BgL_arg2324z00_3042;
								BgL_zc3z04anonymousza32203ze3z87_2873:
									if ((BgL_forwardz00_2871 == BgL_bufposz00_2872))
										{	/* Ieee/input.scm 237 */
											if (rgc_fill_buffer(((obj_t) BgL_iportz00_2869)))
												{	/* Ieee/input.scm 237 */
													long BgL_arg2206z00_2876;
													long BgL_arg2207z00_2877;

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

														BgL_tmpz00_7870 = ((obj_t) BgL_iportz00_2869);
														BgL_arg2206z00_2876 =
															RGC_BUFFER_FORWARD(BgL_tmpz00_7870);
													}
													{	/* Ieee/input.scm 237 */
														obj_t BgL_tmpz00_7873;

														BgL_tmpz00_7873 = ((obj_t) BgL_iportz00_2869);
														BgL_arg2207z00_2877 =
															RGC_BUFFER_BUFPOS(BgL_tmpz00_7873);
													}
													{
														long BgL_bufposz00_7877;
														long BgL_forwardz00_7876;

														BgL_forwardz00_7876 = BgL_arg2206z00_2876;
														BgL_bufposz00_7877 = BgL_arg2207z00_2877;
														BgL_bufposz00_2872 = BgL_bufposz00_7877;
														BgL_forwardz00_2871 = BgL_forwardz00_7876;
														goto BgL_zc3z04anonymousza32203ze3z87_2873;
													}
												}
											else
												{	/* Ieee/input.scm 237 */
													BgL_matchz00_3038 = BgL_lastzd2matchzd2_2870;
												}
										}
									else
										{	/* Ieee/input.scm 237 */
											int BgL_curz00_2878;

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

												BgL_tmpz00_7878 = ((obj_t) BgL_iportz00_2869);
												BgL_curz00_2878 =
													RGC_BUFFER_GET_CHAR(BgL_tmpz00_7878,
													BgL_forwardz00_2871);
											}
											{	/* Ieee/input.scm 237 */

												if (((long) (BgL_curz00_2878) == 13L))
													{	/* Ieee/input.scm 237 */
														BgL_iportz00_2856 = BgL_iportz00_2869;
														BgL_lastzd2matchzd2_2857 = BgL_lastzd2matchzd2_2870;
														BgL_forwardz00_2858 = (1L + BgL_forwardz00_2871);
														BgL_bufposz00_2859 = BgL_bufposz00_2872;
													BgL_zc3z04anonymousza32196ze3z87_2860:
														{	/* Ieee/input.scm 237 */
															long BgL_newzd2matchzd2_2861;

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

																BgL_tmpz00_7884 = ((obj_t) BgL_iportz00_2856);
																RGC_STOP_MATCH(BgL_tmpz00_7884,
																	BgL_forwardz00_2858);
															}
															BgL_newzd2matchzd2_2861 = 0L;
															if ((BgL_forwardz00_2858 == BgL_bufposz00_2859))
																{	/* Ieee/input.scm 237 */
																	if (rgc_fill_buffer(
																			((obj_t) BgL_iportz00_2856)))
																		{	/* Ieee/input.scm 237 */
																			long BgL_arg2199z00_2864;
																			long BgL_arg2200z00_2865;

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

																				BgL_tmpz00_7892 =
																					((obj_t) BgL_iportz00_2856);
																				BgL_arg2199z00_2864 =
																					RGC_BUFFER_FORWARD(BgL_tmpz00_7892);
																			}
																			{	/* Ieee/input.scm 237 */
																				obj_t BgL_tmpz00_7895;

																				BgL_tmpz00_7895 =
																					((obj_t) BgL_iportz00_2856);
																				BgL_arg2200z00_2865 =
																					RGC_BUFFER_BUFPOS(BgL_tmpz00_7895);
																			}
																			{
																				long BgL_bufposz00_7899;
																				long BgL_forwardz00_7898;

																				BgL_forwardz00_7898 =
																					BgL_arg2199z00_2864;
																				BgL_bufposz00_7899 =
																					BgL_arg2200z00_2865;
																				BgL_bufposz00_2859 = BgL_bufposz00_7899;
																				BgL_forwardz00_2858 =
																					BgL_forwardz00_7898;
																				goto
																					BgL_zc3z04anonymousza32196ze3z87_2860;
																			}
																		}
																	else
																		{	/* Ieee/input.scm 237 */
																			BgL_matchz00_3038 =
																				BgL_newzd2matchzd2_2861;
																		}
																}
															else
																{	/* Ieee/input.scm 237 */
																	int BgL_curz00_2866;

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

																		BgL_tmpz00_7900 =
																			((obj_t) BgL_iportz00_2856);
																		BgL_curz00_2866 =
																			RGC_BUFFER_GET_CHAR(BgL_tmpz00_7900,
																			BgL_forwardz00_2858);
																	}
																	{	/* Ieee/input.scm 237 */

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

																				BgL_arg2202z00_2868 =
																					(1L + BgL_forwardz00_2858);
																				{	/* Ieee/input.scm 237 */
																					long BgL_newzd2matchzd2_5217;

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

																						BgL_tmpz00_7907 =
																							((obj_t) BgL_iportz00_2856);
																						RGC_STOP_MATCH(BgL_tmpz00_7907,
																							BgL_arg2202z00_2868);
																					}
																					BgL_newzd2matchzd2_5217 = 0L;
																					BgL_matchz00_3038 =
																						BgL_newzd2matchzd2_5217;
																			}}
																		else
																			{	/* Ieee/input.scm 237 */
																				BgL_matchz00_3038 =
																					BgL_newzd2matchzd2_2861;
																			}
																	}
																}
														}
													}
												else
													{	/* Ieee/input.scm 237 */
														if (((long) (BgL_curz00_2878) == 10L))
															{	/* Ieee/input.scm 237 */
																long BgL_arg2211z00_2882;

																BgL_arg2211z00_2882 =
																	(1L + BgL_forwardz00_2871);
																{	/* Ieee/input.scm 237 */
																	long BgL_newzd2matchzd2_5231;

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

																		BgL_tmpz00_7915 =
																			((obj_t) BgL_iportz00_2869);
																		RGC_STOP_MATCH(BgL_tmpz00_7915,
																			BgL_arg2211z00_2882);
																	}
																	BgL_newzd2matchzd2_5231 = 0L;
																	BgL_matchz00_3038 = BgL_newzd2matchzd2_5231;
															}}
														else
															{	/* Ieee/input.scm 237 */
																BgL_iportz00_2884 = BgL_iportz00_2869;
																BgL_lastzd2matchzd2_2885 =
																	BgL_lastzd2matchzd2_2870;
																BgL_forwardz00_2886 =
																	(1L + BgL_forwardz00_2871);
																BgL_bufposz00_2887 = BgL_bufposz00_2872;
															BgL_zc3z04anonymousza32213ze3z87_2888:
																{	/* Ieee/input.scm 237 */
																	long BgL_newzd2matchzd2_2889;

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

																		BgL_tmpz00_7918 =
																			((obj_t) BgL_iportz00_2884);
																		RGC_STOP_MATCH(BgL_tmpz00_7918,
																			BgL_forwardz00_2886);
																	}
																	BgL_newzd2matchzd2_2889 = 0L;
																	if (
																		(BgL_forwardz00_2886 == BgL_bufposz00_2887))
																		{	/* Ieee/input.scm 237 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_2884)))
																				{	/* Ieee/input.scm 237 */
																					long BgL_arg2216z00_2892;
																					long BgL_arg2217z00_2893;

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

																						BgL_tmpz00_7926 =
																							((obj_t) BgL_iportz00_2884);
																						BgL_arg2216z00_2892 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_7926);
																					}
																					{	/* Ieee/input.scm 237 */
																						obj_t BgL_tmpz00_7929;

																						BgL_tmpz00_7929 =
																							((obj_t) BgL_iportz00_2884);
																						BgL_arg2217z00_2893 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_7929);
																					}
																					{
																						long BgL_bufposz00_7933;
																						long BgL_forwardz00_7932;

																						BgL_forwardz00_7932 =
																							BgL_arg2216z00_2892;
																						BgL_bufposz00_7933 =
																							BgL_arg2217z00_2893;
																						BgL_bufposz00_2887 =
																							BgL_bufposz00_7933;
																						BgL_forwardz00_2886 =
																							BgL_forwardz00_7932;
																						goto
																							BgL_zc3z04anonymousza32213ze3z87_2888;
																					}
																				}
																			else
																				{	/* Ieee/input.scm 237 */
																					BgL_matchz00_3038 =
																						BgL_newzd2matchzd2_2889;
																				}
																		}
																	else
																		{	/* Ieee/input.scm 237 */
																			int BgL_curz00_2894;

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

																				BgL_tmpz00_7934 =
																					((obj_t) BgL_iportz00_2884);
																				BgL_curz00_2894 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_7934,
																					BgL_forwardz00_2886);
																			}
																			{	/* Ieee/input.scm 237 */

																				if (((long) (BgL_curz00_2894) == 13L))
																					{	/* Ieee/input.scm 237 */
																						BgL_iportz00_2900 =
																							BgL_iportz00_2884;
																						BgL_lastzd2matchzd2_2901 =
																							BgL_newzd2matchzd2_2889;
																						BgL_forwardz00_2902 =
																							(1L + BgL_forwardz00_2886);
																						BgL_bufposz00_2903 =
																							BgL_bufposz00_2887;
																					BgL_zc3z04anonymousza32223ze3z87_2904:
																						{	/* Ieee/input.scm 237 */
																							long BgL_newzd2matchzd2_2905;

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

																								BgL_tmpz00_7940 =
																									((obj_t) BgL_iportz00_2900);
																								RGC_STOP_MATCH(BgL_tmpz00_7940,
																									BgL_forwardz00_2902);
																							}
																							BgL_newzd2matchzd2_2905 = 0L;
																							if (
																								(BgL_forwardz00_2902 ==
																									BgL_bufposz00_2903))
																								{	/* Ieee/input.scm 237 */
																									if (rgc_fill_buffer(
																											((obj_t)
																												BgL_iportz00_2900)))
																										{	/* Ieee/input.scm 237 */
																											long BgL_arg2226z00_2908;
																											long BgL_arg2227z00_2909;

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

																												BgL_tmpz00_7948 =
																													((obj_t)
																													BgL_iportz00_2900);
																												BgL_arg2226z00_2908 =
																													RGC_BUFFER_FORWARD
																													(BgL_tmpz00_7948);
																											}
																											{	/* Ieee/input.scm 237 */
																												obj_t BgL_tmpz00_7951;

																												BgL_tmpz00_7951 =
																													((obj_t)
																													BgL_iportz00_2900);
																												BgL_arg2227z00_2909 =
																													RGC_BUFFER_BUFPOS
																													(BgL_tmpz00_7951);
																											}
																											{
																												long BgL_bufposz00_7955;
																												long
																													BgL_forwardz00_7954;
																												BgL_forwardz00_7954 =
																													BgL_arg2226z00_2908;
																												BgL_bufposz00_7955 =
																													BgL_arg2227z00_2909;
																												BgL_bufposz00_2903 =
																													BgL_bufposz00_7955;
																												BgL_forwardz00_2902 =
																													BgL_forwardz00_7954;
																												goto
																													BgL_zc3z04anonymousza32223ze3z87_2904;
																											}
																										}
																									else
																										{	/* Ieee/input.scm 237 */
																											BgL_matchz00_3038 =
																												BgL_newzd2matchzd2_2905;
																										}
																								}
																							else
																								{	/* Ieee/input.scm 237 */
																									int BgL_curz00_2910;

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

																										BgL_tmpz00_7956 =
																											((obj_t)
																											BgL_iportz00_2900);
																										BgL_curz00_2910 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_tmpz00_7956,
																											BgL_forwardz00_2902);
																									}
																									{	/* Ieee/input.scm 237 */

																										if (
																											((long) (BgL_curz00_2910)
																												== 10L))
																											{	/* Ieee/input.scm 237 */
																												long
																													BgL_arg2229z00_2912;
																												BgL_arg2229z00_2912 =
																													(1L +
																													BgL_forwardz00_2902);
																												{	/* Ieee/input.scm 237 */
																													long
																														BgL_newzd2matchzd2_5263;
																													{	/* Ieee/input.scm 237 */
																														obj_t
																															BgL_tmpz00_7963;
																														BgL_tmpz00_7963 =
																															((obj_t)
																															BgL_iportz00_2900);
																														RGC_STOP_MATCH
																															(BgL_tmpz00_7963,
																															BgL_arg2229z00_2912);
																													}
																													BgL_newzd2matchzd2_5263
																														= 0L;
																													BgL_matchz00_3038 =
																														BgL_newzd2matchzd2_5263;
																											}}
																										else
																											{	/* Ieee/input.scm 237 */
																												BgL_matchz00_3038 =
																													BgL_newzd2matchzd2_2905;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Ieee/input.scm 237 */
																						if (
																							((long) (BgL_curz00_2894) == 10L))
																							{	/* Ieee/input.scm 237 */
																								long BgL_arg2221z00_2898;

																								BgL_arg2221z00_2898 =
																									(1L + BgL_forwardz00_2886);
																								{	/* Ieee/input.scm 237 */
																									long BgL_newzd2matchzd2_5248;

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

																										BgL_tmpz00_7971 =
																											((obj_t)
																											BgL_iportz00_2884);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7971,
																											BgL_arg2221z00_2898);
																									}
																									BgL_newzd2matchzd2_5248 = 0L;
																									BgL_matchz00_3038 =
																										BgL_newzd2matchzd2_5248;
																							}}
																						else
																							{	/* Ieee/input.scm 237 */
																								BgL_iportz00_2834 =
																									BgL_iportz00_2884;
																								BgL_lastzd2matchzd2_2835 =
																									BgL_newzd2matchzd2_2889;
																								BgL_forwardz00_2836 =
																									(1L + BgL_forwardz00_2886);
																								BgL_bufposz00_2837 =
																									BgL_bufposz00_2887;
																							BgL_zc3z04anonymousza32185ze3z87_2838:
																								{	/* Ieee/input.scm 237 */
																									long BgL_newzd2matchzd2_2839;

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

																										BgL_tmpz00_7974 =
																											((obj_t)
																											BgL_iportz00_2834);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_7974,
																											BgL_forwardz00_2836);
																									}
																									BgL_newzd2matchzd2_2839 = 0L;
																									if (
																										(BgL_forwardz00_2836 ==
																											BgL_bufposz00_2837))
																										{	/* Ieee/input.scm 237 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_2834)))
																												{	/* Ieee/input.scm 237 */
																													long
																														BgL_arg2188z00_2842;
																													long
																														BgL_arg2189z00_2843;
																													{	/* Ieee/input.scm 237 */
																														obj_t
																															BgL_tmpz00_7982;
																														BgL_tmpz00_7982 =
																															((obj_t)
																															BgL_iportz00_2834);
																														BgL_arg2188z00_2842
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_7982);
																													}
																													{	/* Ieee/input.scm 237 */
																														obj_t
																															BgL_tmpz00_7985;
																														BgL_tmpz00_7985 =
																															((obj_t)
																															BgL_iportz00_2834);
																														BgL_arg2189z00_2843
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_7985);
																													}
																													{
																														long
																															BgL_bufposz00_7989;
																														long
																															BgL_forwardz00_7988;
																														BgL_forwardz00_7988
																															=
																															BgL_arg2188z00_2842;
																														BgL_bufposz00_7989 =
																															BgL_arg2189z00_2843;
																														BgL_bufposz00_2837 =
																															BgL_bufposz00_7989;
																														BgL_forwardz00_2836
																															=
																															BgL_forwardz00_7988;
																														goto
																															BgL_zc3z04anonymousza32185ze3z87_2838;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 237 */
																													BgL_matchz00_3038 =
																														BgL_newzd2matchzd2_2839;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 237 */
																											int BgL_curz00_2844;

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

																												BgL_tmpz00_7990 =
																													((obj_t)
																													BgL_iportz00_2834);
																												BgL_curz00_2844 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_7990,
																													BgL_forwardz00_2836);
																											}
																											{	/* Ieee/input.scm 237 */

																												if (
																													((long)
																														(BgL_curz00_2844) ==
																														13L))
																													{
																														long
																															BgL_bufposz00_8000;
																														long
																															BgL_forwardz00_7998;
																														long
																															BgL_lastzd2matchzd2_7997;
																														obj_t
																															BgL_iportz00_7996;
																														BgL_iportz00_7996 =
																															BgL_iportz00_2834;
																														BgL_lastzd2matchzd2_7997
																															=
																															BgL_newzd2matchzd2_2839;
																														BgL_forwardz00_7998
																															=
																															(1L +
																															BgL_forwardz00_2836);
																														BgL_bufposz00_8000 =
																															BgL_bufposz00_2837;
																														BgL_bufposz00_2903 =
																															BgL_bufposz00_8000;
																														BgL_forwardz00_2902
																															=
																															BgL_forwardz00_7998;
																														BgL_lastzd2matchzd2_2901
																															=
																															BgL_lastzd2matchzd2_7997;
																														BgL_iportz00_2900 =
																															BgL_iportz00_7996;
																														goto
																															BgL_zc3z04anonymousza32223ze3z87_2904;
																													}
																												else
																													{	/* Ieee/input.scm 237 */
																														if (
																															((long)
																																(BgL_curz00_2844)
																																== 10L))
																															{	/* Ieee/input.scm 237 */
																																long
																																	BgL_arg2193z00_2848;
																																BgL_arg2193z00_2848
																																	=
																																	(1L +
																																	BgL_forwardz00_2836);
																																{	/* Ieee/input.scm 237 */
																																	long
																																		BgL_newzd2matchzd2_5199;
																																	{	/* Ieee/input.scm 237 */
																																		obj_t
																																			BgL_tmpz00_8005;
																																		BgL_tmpz00_8005
																																			=
																																			((obj_t)
																																			BgL_iportz00_2834);
																																		RGC_STOP_MATCH
																																			(BgL_tmpz00_8005,
																																			BgL_arg2193z00_2848);
																																	}
																																	BgL_newzd2matchzd2_5199
																																		= 0L;
																																	BgL_matchz00_3038
																																		=
																																		BgL_newzd2matchzd2_5199;
																															}}
																														else
																															{
																																long
																																	BgL_forwardz00_8009;
																																long
																																	BgL_lastzd2matchzd2_8008;
																																BgL_lastzd2matchzd2_8008
																																	=
																																	BgL_newzd2matchzd2_2839;
																																BgL_forwardz00_8009
																																	=
																																	(1L +
																																	BgL_forwardz00_2836);
																																BgL_forwardz00_2836
																																	=
																																	BgL_forwardz00_8009;
																																BgL_lastzd2matchzd2_2835
																																	=
																																	BgL_lastzd2matchzd2_8008;
																																goto
																																	BgL_zc3z04anonymousza32185ze3z87_2838;
																															}
																													}
																											}
																										}
																								}
																							}
																					}
																			}
																		}
																}
															}
													}
											}
										}
								}
								{	/* Ieee/input.scm 237 */
									obj_t BgL_tmpz00_8013;

									BgL_tmpz00_8013 = ((obj_t) BgL_iportz00_2798);
									RGC_SET_FILEPOS(BgL_tmpz00_8013);
								}
								switch (BgL_matchz00_3038)
									{
									case 1L:

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

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

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

													BgL_tmpz00_8017 = ((obj_t) BgL_iportz00_2798);
													BgL_arg2316z00_3028 =
														RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_8017);
												}
												BgL_test3912z00_8016 = (BgL_arg2316z00_3028 == 0L);
											}
											if (BgL_test3912z00_8016)
												{	/* Ieee/input.scm 237 */
													return BEOF;
												}
											else
												{	/* Ieee/input.scm 237 */
													unsigned char BgL_tmpz00_8021;

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

														BgL_tmpz00_8022 = ((obj_t) BgL_iportz00_2798);
														BgL_tmpz00_8021 =
															RGC_BUFFER_CHARACTER(BgL_tmpz00_8022);
													}
													return BCHAR(BgL_tmpz00_8021);
												}
										}
										break;
									case 0L:

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

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

												BgL_tmpz00_8026 = ((obj_t) BgL_iportz00_2798);
												BgL_arg2237z00_5281 =
													RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_8026);
											}
											return
												rgc_buffer_substring(
												((obj_t) BgL_iportz00_2798), 0L, BgL_arg2237z00_5281);
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3616z00zz__r4_input_6_10_2z00,
											BGl_string3617z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_3038));
									}
							}
						}
					}
				else
					{	/* Ieee/input.scm 249 */
						obj_t BgL_g1091z00_3078;
						obj_t BgL_g1092z00_3079;

						BgL_g1091z00_3078 =
							BGl_readzd2charzd2zz__r4_input_6_10_2z00(BgL_ipz00_29);
						{	/* Ieee/string.scm 172 */

							BgL_g1092z00_3079 = make_string(100L, ((unsigned char) ' '));
						}
						{
							obj_t BgL_cz00_3081;
							long BgL_wz00_3082;
							long BgL_mz00_3083;
							obj_t BgL_accz00_3084;

							BgL_cz00_3081 = BgL_g1091z00_3078;
							BgL_wz00_3082 = 0L;
							BgL_mz00_3083 = 100L;
							BgL_accz00_3084 = BgL_g1092z00_3079;
						BgL_zc3z04anonymousza32325ze3z87_3085:
							if (EOF_OBJECTP(BgL_cz00_3081))
								{	/* Ieee/input.scm 254 */
									if ((BgL_wz00_3082 == 0L))
										{	/* Ieee/input.scm 256 */
											return BgL_cz00_3081;
										}
									else
										{	/* Ieee/input.scm 256 */
											return c_substring(BgL_accz00_3084, 0L, BgL_wz00_3082);
										}
								}
							else
								{	/* Ieee/input.scm 257 */
									bool_t BgL_test3915z00_8041;

									{	/* Ieee/input.scm 257 */
										obj_t BgL_arg2346z00_3106;

										{	/* Ieee/input.scm 257 */
											obj_t BgL_za71za7_5289;

											BgL_za71za7_5289 = BINT(BgL_mz00_3083);
											{	/* Ieee/input.scm 257 */
												obj_t BgL_tmpz00_5291;

												BgL_tmpz00_5291 = BINT(0L);
												{	/* Ieee/input.scm 257 */
													bool_t BgL_test3916z00_8044;

													{	/* Ieee/input.scm 257 */
														obj_t BgL_tmpz00_8045;

														BgL_tmpz00_8045 = BINT(2L);
														BgL_test3916z00_8044 =
															BGL_SUBFX_OV(BgL_za71za7_5289, BgL_tmpz00_8045,
															BgL_tmpz00_5291);
													}
													if (BgL_test3916z00_8044)
														{	/* Ieee/input.scm 257 */
															BgL_arg2346z00_3106 =
																bgl_bignum_sub(bgl_long_to_bignum(
																	(long) CINT(BgL_za71za7_5289)),
																bgl_long_to_bignum(2L));
														}
													else
														{	/* Ieee/input.scm 257 */
															BgL_arg2346z00_3106 = BgL_tmpz00_5291;
														}
												}
											}
										}
										BgL_test3915z00_8041 =
											(BgL_wz00_3082 == (long) CINT(BgL_arg2346z00_3106));
									}
									if (BgL_test3915z00_8041)
										{	/* Ieee/input.scm 261 */
											long BgL_arg2330z00_3090;
											obj_t BgL_arg2331z00_3091;

											BgL_arg2330z00_3090 = (BgL_mz00_3083 * 2L);
											{	/* Ieee/input.scm 262 */
												obj_t BgL_newzd2acczd2_3092;

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

													BgL_arg2332z00_3093 = (BgL_mz00_3083 * 2L);
													{	/* Ieee/string.scm 172 */

														BgL_newzd2acczd2_3092 =
															make_string(BgL_arg2332z00_3093,
															((unsigned char) ' '));
												}}
												blit_string(BgL_accz00_3084, 0L, BgL_newzd2acczd2_3092,
													0L, BgL_mz00_3083);
												BgL_arg2331z00_3091 = BgL_newzd2acczd2_3092;
											}
											{
												obj_t BgL_accz00_8059;
												long BgL_mz00_8058;

												BgL_mz00_8058 = BgL_arg2330z00_3090;
												BgL_accz00_8059 = BgL_arg2331z00_3091;
												BgL_accz00_3084 = BgL_accz00_8059;
												BgL_mz00_3083 = BgL_mz00_8058;
												goto BgL_zc3z04anonymousza32325ze3z87_3085;
											}
										}
									else
										{	/* Ieee/input.scm 257 */
											if ((CCHAR(BgL_cz00_3081) == ((unsigned char) 13)))
												{	/* Ieee/input.scm 266 */
													obj_t BgL_c2z00_3097;

													BgL_c2z00_3097 =
														BGl_readzd2charzd2zz__r4_input_6_10_2z00
														(BgL_ipz00_29);
													if ((CCHAR(BgL_c2z00_3097) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 267 */
															STRING_SET(BgL_accz00_3084, BgL_wz00_3082,
																((unsigned char) 13));
															{	/* Ieee/input.scm 270 */
																long BgL_tmpz00_8068;

																BgL_tmpz00_8068 = (1L + BgL_wz00_3082);
																STRING_SET(BgL_accz00_3084, BgL_tmpz00_8068,
																	((unsigned char) 10));
															}
															return
																c_substring(BgL_accz00_3084, 0L,
																(BgL_wz00_3082 + 2L));
														}
													else
														{	/* Ieee/input.scm 267 */
															{	/* Ieee/input.scm 273 */
																unsigned char BgL_tmpz00_8073;

																BgL_tmpz00_8073 = CCHAR(BgL_cz00_3081);
																STRING_SET(BgL_accz00_3084, BgL_wz00_3082,
																	BgL_tmpz00_8073);
															}
															{
																long BgL_wz00_8077;
																obj_t BgL_cz00_8076;

																BgL_cz00_8076 = BgL_c2z00_3097;
																BgL_wz00_8077 = (BgL_wz00_3082 + 1L);
																BgL_wz00_3082 = BgL_wz00_8077;
																BgL_cz00_3081 = BgL_cz00_8076;
																goto BgL_zc3z04anonymousza32325ze3z87_3085;
															}
														}
												}
											else
												{	/* Ieee/input.scm 265 */
													if ((CCHAR(BgL_cz00_3081) == ((unsigned char) 10)))
														{	/* Ieee/input.scm 275 */
															STRING_SET(BgL_accz00_3084, BgL_wz00_3082,
																((unsigned char) 10));
															return c_substring(BgL_accz00_3084, 0L,
																(BgL_wz00_3082 + 1L));
														}
													else
														{	/* Ieee/input.scm 275 */
															{	/* Ieee/input.scm 281 */
																unsigned char BgL_tmpz00_8085;

																BgL_tmpz00_8085 = CCHAR(BgL_cz00_3081);
																STRING_SET(BgL_accz00_3084, BgL_wz00_3082,
																	BgL_tmpz00_8085);
															}
															{
																long BgL_wz00_8090;
																obj_t BgL_cz00_8088;

																BgL_cz00_8088 =
																	BGl_readzd2charzd2zz__r4_input_6_10_2z00
																	(BgL_ipz00_29);
																BgL_wz00_8090 = (BgL_wz00_3082 + 1L);
																BgL_wz00_3082 = BgL_wz00_8090;
																BgL_cz00_3081 = BgL_cz00_8088;
																goto BgL_zc3z04anonymousza32325ze3z87_3085;
															}
														}
												}
										}
								}
						}
					}
			}
		}

	}



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

				{	/* Ieee/input.scm 287 */
					long BgL_aux1271z00_3112;

					{
						obj_t BgL_auxz00_8092;

						if (VECTORP(BgL_opt1268z00_33))
							{	/* Ieee/input.scm 287 */
								BgL_auxz00_8092 = BgL_opt1268z00_33;
							}
						else
							{
								obj_t BgL_auxz00_8095;

								BgL_auxz00_8095 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(11397L),
									BGl_string3637z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1268z00_33);
								FAILURE(BgL_auxz00_8095, BFALSE, BFALSE);
							}
						BgL_aux1271z00_3112 = VECTOR_LENGTH(BgL_auxz00_8092);
					}
					switch (BgL_aux1271z00_3112)
						{
						case 0L:

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

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

									BgL_tmpz00_8100 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3113 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8100);
								}
								{	/* Ieee/input.scm 287 */

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

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

								{
									obj_t BgL_auxz00_8104;

									if (VECTORP(BgL_opt1268z00_33))
										{	/* Ieee/input.scm 287 */
											BgL_auxz00_8104 = BgL_opt1268z00_33;
										}
									else
										{
											obj_t BgL_auxz00_8107;

											BgL_auxz00_8107 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(11397L),
												BGl_string3637z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1268z00_33);
											FAILURE(BgL_auxz00_8107, BFALSE, BFALSE);
										}
									BgL_ipz00_3114 = VECTOR_REF(BgL_auxz00_8104, 0L);
								}
								{	/* Ieee/input.scm 287 */

									return
										BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_ipz00_3114);
								}
							}
							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_3115;

				BgL_g1094z00_3115 =
					BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32);
				{
					obj_t BgL_lz00_5345;
					obj_t BgL_lsz00_5346;

					BgL_lz00_5345 = BgL_g1094z00_3115;
					BgL_lsz00_5346 = BNIL;
				BgL_loopz00_5344:
					if (EOF_OBJECTP(BgL_lz00_5345))
						{	/* Ieee/input.scm 290 */
							return bgl_reverse_bang(BgL_lsz00_5346);
						}
					else
						{	/* Ieee/input.scm 292 */
							obj_t BgL_arg2350z00_5351;
							obj_t BgL_arg2351z00_5352;

							BgL_arg2350z00_5351 =
								BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_32);
							BgL_arg2351z00_5352 =
								MAKE_YOUNG_PAIR(BgL_lz00_5345, BgL_lsz00_5346);
							{
								obj_t BgL_lsz00_8121;
								obj_t BgL_lz00_8120;

								BgL_lz00_8120 = BgL_arg2350z00_5351;
								BgL_lsz00_8121 = BgL_arg2351z00_5352;
								BgL_lsz00_5346 = BgL_lsz00_8121;
								BgL_lz00_5345 = BgL_lz00_8120;
								goto BgL_loopz00_5344;
							}
						}
				}
			}
		}

	}



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

				{	/* Ieee/input.scm 297 */
					long BgL_aux1275z00_3126;

					{
						obj_t BgL_auxz00_8122;

						if (VECTORP(BgL_opt1272z00_36))
							{	/* Ieee/input.scm 297 */
								BgL_auxz00_8122 = BgL_opt1272z00_36;
							}
						else
							{
								obj_t BgL_auxz00_8125;

								BgL_auxz00_8125 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(11811L),
									BGl_string3638z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1272z00_36);
								FAILURE(BgL_auxz00_8125, BFALSE, BFALSE);
							}
						BgL_aux1275z00_3126 = VECTOR_LENGTH(BgL_auxz00_8122);
					}
					switch (BgL_aux1275z00_3126)
						{
						case 0L:

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

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

									BgL_tmpz00_8130 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3127 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8130);
								}
								{	/* Ieee/input.scm 297 */

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

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

								{
									obj_t BgL_auxz00_8134;

									if (VECTORP(BgL_opt1272z00_36))
										{	/* Ieee/input.scm 297 */
											BgL_auxz00_8134 = BgL_opt1272z00_36;
										}
									else
										{
											obj_t BgL_auxz00_8137;

											BgL_auxz00_8137 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(11811L),
												BGl_string3638z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1272z00_36);
											FAILURE(BgL_auxz00_8137, BFALSE, BFALSE);
										}
									BgL_ipz00_3128 = VECTOR_REF(BgL_auxz00_8134, 0L);
								}
								{	/* Ieee/input.scm 297 */

									return
										BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_ipz00_3128);
								}
							}
							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_3184;
				long BgL_lastzd2matchzd2_3185;
				long BgL_forwardz00_3186;
				long BgL_bufposz00_3187;
				obj_t BgL_iportz00_3172;
				long BgL_lastzd2matchzd2_3173;
				long BgL_forwardz00_3174;
				long BgL_bufposz00_3175;

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

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

					{	/* Ieee/input.scm 298 */
						long BgL_arg2477z00_3320;
						long BgL_arg2478z00_3321;

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

							BgL_tmpz00_8147 = ((obj_t) BgL_ipz00_35);
							BgL_arg2477z00_3320 = RGC_BUFFER_FORWARD(BgL_tmpz00_8147);
						}
						{	/* Ieee/input.scm 298 */
							obj_t BgL_tmpz00_8150;

							BgL_tmpz00_8150 = ((obj_t) BgL_ipz00_35);
							BgL_arg2478z00_3321 = RGC_BUFFER_BUFPOS(BgL_tmpz00_8150);
						}
						{
							long BgL_forwardz00_5517;
							long BgL_bufposz00_5518;

							BgL_forwardz00_5517 = BgL_arg2477z00_3320;
							BgL_bufposz00_5518 = BgL_arg2478z00_3321;
						BgL_statezd20zd21097z00_5516:
							if ((BgL_forwardz00_5517 == BgL_bufposz00_5518))
								{	/* Ieee/input.scm 298 */
									if (rgc_fill_buffer(((obj_t) BgL_ipz00_35)))
										{	/* Ieee/input.scm 298 */
											long BgL_arg2356z00_5521;
											long BgL_arg2358z00_5522;

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

												BgL_tmpz00_8158 = ((obj_t) BgL_ipz00_35);
												BgL_arg2356z00_5521 =
													RGC_BUFFER_FORWARD(BgL_tmpz00_8158);
											}
											{	/* Ieee/input.scm 298 */
												obj_t BgL_tmpz00_8161;

												BgL_tmpz00_8161 = ((obj_t) BgL_ipz00_35);
												BgL_arg2358z00_5522 =
													RGC_BUFFER_BUFPOS(BgL_tmpz00_8161);
											}
											{
												long BgL_bufposz00_8165;
												long BgL_forwardz00_8164;

												BgL_forwardz00_8164 = BgL_arg2356z00_5521;
												BgL_bufposz00_8165 = BgL_arg2358z00_5522;
												BgL_bufposz00_5518 = BgL_bufposz00_8165;
												BgL_forwardz00_5517 = BgL_forwardz00_8164;
												goto BgL_statezd20zd21097z00_5516;
											}
										}
									else
										{	/* Ieee/input.scm 298 */
											BgL_matchz00_3315 = 1L;
										}
								}
							else
								{	/* Ieee/input.scm 298 */
									int BgL_curz00_5523;

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

										BgL_tmpz00_8166 = ((obj_t) BgL_ipz00_35);
										BgL_curz00_5523 =
											RGC_BUFFER_GET_CHAR(BgL_tmpz00_8166, BgL_forwardz00_5517);
									}
									{	/* Ieee/input.scm 298 */

										BgL_iportz00_3184 = BgL_ipz00_35;
										BgL_lastzd2matchzd2_3185 = 1L;
										BgL_forwardz00_3186 = (1L + BgL_forwardz00_5517);
										BgL_bufposz00_3187 = BgL_bufposz00_5518;
									BgL_zc3z04anonymousza32366ze3z87_3188:
										{	/* Ieee/input.scm 298 */
											long BgL_newzd2matchzd2_5453;

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

												BgL_tmpz00_8169 = ((obj_t) BgL_iportz00_3184);
												RGC_STOP_MATCH(BgL_tmpz00_8169, BgL_forwardz00_3186);
											}
											BgL_newzd2matchzd2_5453 = 0L;
											if ((BgL_forwardz00_3186 == BgL_bufposz00_3187))
												{	/* Ieee/input.scm 298 */
													if (rgc_fill_buffer(((obj_t) BgL_iportz00_3184)))
														{	/* Ieee/input.scm 298 */
															long BgL_arg2369z00_5456;
															long BgL_arg2370z00_5457;

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

																BgL_tmpz00_8177 = ((obj_t) BgL_iportz00_3184);
																BgL_arg2369z00_5456 =
																	RGC_BUFFER_FORWARD(BgL_tmpz00_8177);
															}
															{	/* Ieee/input.scm 298 */
																obj_t BgL_tmpz00_8180;

																BgL_tmpz00_8180 = ((obj_t) BgL_iportz00_3184);
																BgL_arg2370z00_5457 =
																	RGC_BUFFER_BUFPOS(BgL_tmpz00_8180);
															}
															{	/* Ieee/input.scm 298 */
																long BgL_newzd2matchzd2_5467;

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

																	BgL_tmpz00_8183 = ((obj_t) BgL_iportz00_3184);
																	RGC_STOP_MATCH(BgL_tmpz00_8183,
																		BgL_arg2369z00_5456);
																}
																BgL_newzd2matchzd2_5467 = 0L;
																if (
																	(BgL_arg2369z00_5456 == BgL_arg2370z00_5457))
																	{	/* Ieee/input.scm 298 */
																		if (rgc_fill_buffer(
																				((obj_t) BgL_iportz00_3184)))
																			{	/* Ieee/input.scm 298 */
																				long BgL_arg2369z00_5470;
																				long BgL_arg2370z00_5471;

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

																					BgL_tmpz00_8191 =
																						((obj_t) BgL_iportz00_3184);
																					BgL_arg2369z00_5470 =
																						RGC_BUFFER_FORWARD(BgL_tmpz00_8191);
																				}
																				{	/* Ieee/input.scm 298 */
																					obj_t BgL_tmpz00_8194;

																					BgL_tmpz00_8194 =
																						((obj_t) BgL_iportz00_3184);
																					BgL_arg2370z00_5471 =
																						RGC_BUFFER_BUFPOS(BgL_tmpz00_8194);
																				}
																				{
																					long BgL_bufposz00_8198;
																					long BgL_forwardz00_8197;

																					BgL_forwardz00_8197 =
																						BgL_arg2369z00_5470;
																					BgL_bufposz00_8198 =
																						BgL_arg2370z00_5471;
																					BgL_bufposz00_3187 =
																						BgL_bufposz00_8198;
																					BgL_forwardz00_3186 =
																						BgL_forwardz00_8197;
																					goto
																						BgL_zc3z04anonymousza32366ze3z87_3188;
																				}
																			}
																		else
																			{	/* Ieee/input.scm 298 */
																				BgL_matchz00_3315 =
																					BgL_newzd2matchzd2_5467;
																			}
																	}
																else
																	{	/* Ieee/input.scm 298 */
																		int BgL_curz00_5472;

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

																			BgL_tmpz00_8199 =
																				((obj_t) BgL_iportz00_3184);
																			BgL_curz00_5472 =
																				RGC_BUFFER_GET_CHAR(BgL_tmpz00_8199,
																				BgL_arg2369z00_5456);
																		}
																		{	/* Ieee/input.scm 298 */

																			BgL_iportz00_3172 = BgL_iportz00_3184;
																			BgL_lastzd2matchzd2_3173 =
																				BgL_newzd2matchzd2_5467;
																			BgL_forwardz00_3174 =
																				(1L + BgL_arg2369z00_5456);
																			BgL_bufposz00_3175 = BgL_arg2370z00_5457;
																		BgL_zc3z04anonymousza32360ze3z87_3176:
																			{	/* Ieee/input.scm 298 */
																				long BgL_newzd2matchzd2_5402;

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

																					BgL_tmpz00_8202 =
																						((obj_t) BgL_iportz00_3172);
																					RGC_STOP_MATCH(BgL_tmpz00_8202,
																						BgL_forwardz00_3174);
																				}
																				BgL_newzd2matchzd2_5402 = 0L;
																				if (
																					(BgL_forwardz00_3174 ==
																						BgL_bufposz00_3175))
																					{	/* Ieee/input.scm 298 */
																						if (rgc_fill_buffer(
																								((obj_t) BgL_iportz00_3172)))
																							{	/* Ieee/input.scm 298 */
																								long BgL_arg2363z00_5405;
																								long BgL_arg2364z00_5406;

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

																									BgL_tmpz00_8210 =
																										((obj_t) BgL_iportz00_3172);
																									BgL_arg2363z00_5405 =
																										RGC_BUFFER_FORWARD
																										(BgL_tmpz00_8210);
																								}
																								{	/* Ieee/input.scm 298 */
																									obj_t BgL_tmpz00_8213;

																									BgL_tmpz00_8213 =
																										((obj_t) BgL_iportz00_3172);
																									BgL_arg2364z00_5406 =
																										RGC_BUFFER_BUFPOS
																										(BgL_tmpz00_8213);
																								}
																								{	/* Ieee/input.scm 298 */
																									long BgL_newzd2matchzd2_5416;

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

																										BgL_tmpz00_8216 =
																											((obj_t)
																											BgL_iportz00_3172);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_8216,
																											BgL_arg2363z00_5405);
																									}
																									BgL_newzd2matchzd2_5416 = 0L;
																									if (
																										(BgL_arg2363z00_5405 ==
																											BgL_arg2364z00_5406))
																										{	/* Ieee/input.scm 298 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_3172)))
																												{	/* Ieee/input.scm 298 */
																													long
																														BgL_arg2363z00_5419;
																													long
																														BgL_arg2364z00_5420;
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_8224;
																														BgL_tmpz00_8224 =
																															((obj_t)
																															BgL_iportz00_3172);
																														BgL_arg2363z00_5419
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_8224);
																													}
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_8227;
																														BgL_tmpz00_8227 =
																															((obj_t)
																															BgL_iportz00_3172);
																														BgL_arg2364z00_5420
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_8227);
																													}
																													{
																														long
																															BgL_bufposz00_8231;
																														long
																															BgL_forwardz00_8230;
																														BgL_forwardz00_8230
																															=
																															BgL_arg2363z00_5419;
																														BgL_bufposz00_8231 =
																															BgL_arg2364z00_5420;
																														BgL_bufposz00_3175 =
																															BgL_bufposz00_8231;
																														BgL_forwardz00_3174
																															=
																															BgL_forwardz00_8230;
																														goto
																															BgL_zc3z04anonymousza32360ze3z87_3176;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 298 */
																													BgL_matchz00_3315 =
																														BgL_newzd2matchzd2_5416;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 298 */
																											int BgL_curz00_5421;

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

																												BgL_tmpz00_8232 =
																													((obj_t)
																													BgL_iportz00_3172);
																												BgL_curz00_5421 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_8232,
																													BgL_arg2363z00_5405);
																											}
																											{	/* Ieee/input.scm 298 */

																												{
																													long
																														BgL_bufposz00_8238;
																													long
																														BgL_forwardz00_8236;
																													long
																														BgL_lastzd2matchzd2_8235;
																													BgL_lastzd2matchzd2_8235
																														=
																														BgL_newzd2matchzd2_5416;
																													BgL_forwardz00_8236 =
																														(1L +
																														BgL_arg2363z00_5405);
																													BgL_bufposz00_8238 =
																														BgL_arg2364z00_5406;
																													BgL_bufposz00_3175 =
																														BgL_bufposz00_8238;
																													BgL_forwardz00_3174 =
																														BgL_forwardz00_8236;
																													BgL_lastzd2matchzd2_3173
																														=
																														BgL_lastzd2matchzd2_8235;
																													goto
																														BgL_zc3z04anonymousza32360ze3z87_3176;
																												}
																											}
																										}
																								}
																							}
																						else
																							{	/* Ieee/input.scm 298 */
																								BgL_matchz00_3315 =
																									BgL_newzd2matchzd2_5402;
																							}
																					}
																				else
																					{	/* Ieee/input.scm 298 */
																						int BgL_curz00_5407;

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

																							BgL_tmpz00_8239 =
																								((obj_t) BgL_iportz00_3172);
																							BgL_curz00_5407 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_tmpz00_8239,
																								BgL_forwardz00_3174);
																						}
																						{	/* Ieee/input.scm 298 */

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

																								BgL_arg2365z00_5408 =
																									(1L + BgL_forwardz00_3174);
																								{	/* Ieee/input.scm 298 */
																									long BgL_newzd2matchzd2_5436;

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

																										BgL_tmpz00_8243 =
																											((obj_t)
																											BgL_iportz00_3172);
																										RGC_STOP_MATCH
																											(BgL_tmpz00_8243,
																											BgL_arg2365z00_5408);
																									}
																									BgL_newzd2matchzd2_5436 = 0L;
																									if (
																										(BgL_arg2365z00_5408 ==
																											BgL_bufposz00_3175))
																										{	/* Ieee/input.scm 298 */
																											if (rgc_fill_buffer(
																													((obj_t)
																														BgL_iportz00_3172)))
																												{	/* Ieee/input.scm 298 */
																													long
																														BgL_arg2363z00_5439;
																													long
																														BgL_arg2364z00_5440;
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_8251;
																														BgL_tmpz00_8251 =
																															((obj_t)
																															BgL_iportz00_3172);
																														BgL_arg2363z00_5439
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_tmpz00_8251);
																													}
																													{	/* Ieee/input.scm 298 */
																														obj_t
																															BgL_tmpz00_8254;
																														BgL_tmpz00_8254 =
																															((obj_t)
																															BgL_iportz00_3172);
																														BgL_arg2364z00_5440
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_tmpz00_8254);
																													}
																													{
																														long
																															BgL_bufposz00_8259;
																														long
																															BgL_forwardz00_8258;
																														long
																															BgL_lastzd2matchzd2_8257;
																														BgL_lastzd2matchzd2_8257
																															=
																															BgL_newzd2matchzd2_5402;
																														BgL_forwardz00_8258
																															=
																															BgL_arg2363z00_5439;
																														BgL_bufposz00_8259 =
																															BgL_arg2364z00_5440;
																														BgL_bufposz00_3175 =
																															BgL_bufposz00_8259;
																														BgL_forwardz00_3174
																															=
																															BgL_forwardz00_8258;
																														BgL_lastzd2matchzd2_3173
																															=
																															BgL_lastzd2matchzd2_8257;
																														goto
																															BgL_zc3z04anonymousza32360ze3z87_3176;
																													}
																												}
																											else
																												{	/* Ieee/input.scm 298 */
																													BgL_matchz00_3315 =
																														BgL_newzd2matchzd2_5436;
																												}
																										}
																									else
																										{	/* Ieee/input.scm 298 */
																											int BgL_curz00_5441;

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

																												BgL_tmpz00_8260 =
																													((obj_t)
																													BgL_iportz00_3172);
																												BgL_curz00_5441 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_tmpz00_8260,
																													BgL_arg2365z00_5408);
																											}
																											{	/* Ieee/input.scm 298 */

																												{
																													long
																														BgL_forwardz00_8264;
																													long
																														BgL_lastzd2matchzd2_8263;
																													BgL_lastzd2matchzd2_8263
																														=
																														BgL_newzd2matchzd2_5436;
																													BgL_forwardz00_8264 =
																														(1L +
																														BgL_arg2365z00_5408);
																													BgL_forwardz00_3174 =
																														BgL_forwardz00_8264;
																													BgL_lastzd2matchzd2_3173
																														=
																														BgL_lastzd2matchzd2_8263;
																													goto
																														BgL_zc3z04anonymousza32360ze3z87_3176;
																												}
																											}
																										}
																								}
																							}
																						}
																					}
																			}
																		}
																	}
															}
														}
													else
														{	/* Ieee/input.scm 298 */
															BgL_matchz00_3315 = BgL_newzd2matchzd2_5453;
														}
												}
											else
												{	/* Ieee/input.scm 298 */
													int BgL_curz00_5458;

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

														BgL_tmpz00_8267 = ((obj_t) BgL_iportz00_3184);
														BgL_curz00_5458 =
															RGC_BUFFER_GET_CHAR(BgL_tmpz00_8267,
															BgL_forwardz00_3186);
													}
													{	/* Ieee/input.scm 298 */

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

															BgL_arg2372z00_5459 = (1L + BgL_forwardz00_3186);
															{
																long BgL_lastzd2matchzd2_5488;
																long BgL_forwardz00_5489;
																long BgL_bufposz00_5490;

																BgL_lastzd2matchzd2_5488 =
																	BgL_newzd2matchzd2_5453;
																BgL_forwardz00_5489 = BgL_arg2372z00_5459;
																BgL_bufposz00_5490 = BgL_bufposz00_3187;
															BgL_statezd22zd21099z00_5487:
																{	/* Ieee/input.scm 298 */
																	long BgL_newzd2matchzd2_5491;

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

																		BgL_tmpz00_8271 =
																			((obj_t) BgL_iportz00_3184);
																		RGC_STOP_MATCH(BgL_tmpz00_8271,
																			BgL_forwardz00_5489);
																	}
																	BgL_newzd2matchzd2_5491 = 0L;
																	if (
																		(BgL_forwardz00_5489 == BgL_bufposz00_5490))
																		{	/* Ieee/input.scm 298 */
																			if (rgc_fill_buffer(
																					((obj_t) BgL_iportz00_3184)))
																				{	/* Ieee/input.scm 298 */
																					long BgL_arg2363z00_5494;
																					long BgL_arg2364z00_5495;

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

																						BgL_tmpz00_8279 =
																							((obj_t) BgL_iportz00_3184);
																						BgL_arg2363z00_5494 =
																							RGC_BUFFER_FORWARD
																							(BgL_tmpz00_8279);
																					}
																					{	/* Ieee/input.scm 298 */
																						obj_t BgL_tmpz00_8282;

																						BgL_tmpz00_8282 =
																							((obj_t) BgL_iportz00_3184);
																						BgL_arg2364z00_5495 =
																							RGC_BUFFER_BUFPOS
																							(BgL_tmpz00_8282);
																					}
																					{
																						long BgL_bufposz00_8286;
																						long BgL_forwardz00_8285;

																						BgL_forwardz00_8285 =
																							BgL_arg2363z00_5494;
																						BgL_bufposz00_8286 =
																							BgL_arg2364z00_5495;
																						BgL_bufposz00_5490 =
																							BgL_bufposz00_8286;
																						BgL_forwardz00_5489 =
																							BgL_forwardz00_8285;
																						goto BgL_statezd22zd21099z00_5487;
																					}
																				}
																			else
																				{	/* Ieee/input.scm 298 */
																					BgL_matchz00_3315 =
																						BgL_newzd2matchzd2_5491;
																				}
																		}
																	else
																		{	/* Ieee/input.scm 298 */
																			int BgL_curz00_5496;

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

																				BgL_tmpz00_8287 =
																					((obj_t) BgL_iportz00_3184);
																				BgL_curz00_5496 =
																					RGC_BUFFER_GET_CHAR(BgL_tmpz00_8287,
																					BgL_forwardz00_5489);
																			}
																			{	/* Ieee/input.scm 298 */

																				{
																					long BgL_forwardz00_8291;
																					long BgL_lastzd2matchzd2_8290;

																					BgL_lastzd2matchzd2_8290 =
																						BgL_newzd2matchzd2_5491;
																					BgL_forwardz00_8291 =
																						(1L + BgL_forwardz00_5489);
																					BgL_forwardz00_5489 =
																						BgL_forwardz00_8291;
																					BgL_lastzd2matchzd2_5488 =
																						BgL_lastzd2matchzd2_8290;
																					goto BgL_statezd22zd21099z00_5487;
																				}
																			}
																		}
																}
															}
														}
													}
												}
										}
									}
								}
						}
					}
					{	/* Ieee/input.scm 298 */
						obj_t BgL_tmpz00_8294;

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

						switch (BgL_matchz00_3315)
							{
							case 1L:

								return BGl_string3635z00zz__r4_input_6_10_2z00;
								break;
							case 0L:

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

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

										BgL_tmpz00_8297 = ((obj_t) BgL_ipz00_35);
										BgL_arg2379z00_5534 =
											RGC_BUFFER_MATCH_LENGTH(BgL_tmpz00_8297);
									}
									return
										rgc_buffer_substring(
										((obj_t) BgL_ipz00_35), 0L, BgL_arg2379z00_5534);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00
									(BGl_string3616z00zz__r4_input_6_10_2z00,
									BGl_string3617z00zz__r4_input_6_10_2z00,
									BINT(BgL_matchz00_3315));
							}
					}
				}
			}
		}

	}



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

				{	/* Ieee/input.scm 320 */
					long BgL_aux1279z00_3353;

					{
						obj_t BgL_auxz00_8305;

						if (VECTORP(BgL_opt1276z00_39))
							{	/* Ieee/input.scm 320 */
								BgL_auxz00_8305 = BgL_opt1276z00_39;
							}
						else
							{
								obj_t BgL_auxz00_8308;

								BgL_auxz00_8308 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(12731L),
									BGl_string3639z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1276z00_39);
								FAILURE(BgL_auxz00_8308, BFALSE, BFALSE);
							}
						BgL_aux1279z00_3353 = VECTOR_LENGTH(BgL_auxz00_8305);
					}
					switch (BgL_aux1279z00_3353)
						{
						case 0L:

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

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

									BgL_tmpz00_8313 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3354 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8313);
								}
								{	/* Ieee/input.scm 320 */

									return
										BGl_z62zc3z04anonymousza31395ze3ze5zz__r4_input_6_10_2z00
										(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00,
										BgL_ipz00_3354);
								}
							}
							break;
						case 1L:

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

								{
									obj_t BgL_auxz00_8320;

									if (VECTORP(BgL_opt1276z00_39))
										{	/* Ieee/input.scm 320 */
											BgL_auxz00_8320 = BgL_opt1276z00_39;
										}
									else
										{
											obj_t BgL_auxz00_8323;

											BgL_auxz00_8323 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(12731L),
												BGl_string3639z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1276z00_39);
											FAILURE(BgL_auxz00_8323, BFALSE, BFALSE);
										}
									BgL_ipz00_3355 = VECTOR_REF(BgL_auxz00_8320, 0L);
								}
								{	/* Ieee/input.scm 320 */

									return
										BGl_z62zc3z04anonymousza31395ze3ze5zz__r4_input_6_10_2z00
										(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00,
										BgL_ipz00_3355);
								}
							}
							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_z62zc3z04anonymousza31395ze3ze5zz__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_env1281z00_44,
		obj_t BgL_opt1280z00_43)
	{
		{	/* Ieee/input.scm 326 */
			{	/* Ieee/input.scm 326 */
				obj_t BgL_g1282z00_3356;

				{
					obj_t BgL_auxz00_8337;

					if (VECTORP(BgL_opt1280z00_43))
						{	/* Ieee/input.scm 326 */
							BgL_auxz00_8337 = BgL_opt1280z00_43;
						}
					else
						{
							obj_t BgL_auxz00_8340;

							BgL_auxz00_8340 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13060L),
								BGl_string3640z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1280z00_43);
							FAILURE(BgL_auxz00_8340, BFALSE, BFALSE);
						}
					BgL_g1282z00_3356 = VECTOR_REF(BgL_auxz00_8337, 0L);
				}
				{	/* Ieee/input.scm 326 */
					long BgL_aux1284z00_3358;

					{
						obj_t BgL_auxz00_8345;

						if (VECTORP(BgL_opt1280z00_43))
							{	/* Ieee/input.scm 326 */
								BgL_auxz00_8345 = BgL_opt1280z00_43;
							}
						else
							{
								obj_t BgL_auxz00_8348;

								BgL_auxz00_8348 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13060L),
									BGl_string3640z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1280z00_43);
								FAILURE(BgL_auxz00_8348, BFALSE, BFALSE);
							}
						BgL_aux1284z00_3358 = VECTOR_LENGTH(BgL_auxz00_8345);
					}
					switch (BgL_aux1284z00_3358)
						{
						case 1L:

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

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

									BgL_tmpz00_8353 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3359 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8353);
								}
								{	/* Ieee/input.scm 326 */

									return
										BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1282z00_3356,
										BgL_ipz00_3359);
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_8357;

									if (VECTORP(BgL_opt1280z00_43))
										{	/* Ieee/input.scm 326 */
											BgL_auxz00_8357 = BgL_opt1280z00_43;
										}
									else
										{
											obj_t BgL_auxz00_8360;

											BgL_auxz00_8360 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13060L),
												BGl_string3640z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1280z00_43);
											FAILURE(BgL_auxz00_8360, BFALSE, BFALSE);
										}
									BgL_ipz00_3360 = VECTOR_REF(BgL_auxz00_8357, 1L);
								}
								{	/* Ieee/input.scm 326 */

									return
										BGl_readzd2charszd2zz__r4_input_6_10_2z00(BgL_g1282z00_3356,
										BgL_ipz00_3360);
								}
							}
							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_3361;

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

								BgL_xz00_5540 = BELONG_TO_LONG(BgL_lz00_41);
								BgL_lenz00_3361 = BINT((long) (BgL_xz00_5540));
							}
						else
							{	/* Ieee/input.scm 329 */
								if (LLONGP(BgL_lz00_41))
									{	/* Ieee/input.scm 330 */
										BGL_LONGLONG_T BgL_xz00_5541;

										BgL_xz00_5541 = BLLONG_TO_LLONG(BgL_lz00_41);
										BgL_lenz00_3361 = BINT(LLONG_TO_LONG(BgL_xz00_5541));
									}
								else
									{	/* Ieee/input.scm 332 */
										obj_t BgL_arg2492z00_3378;

										BgL_arg2492z00_3378 = bgl_find_runtime_type(BgL_lz00_41);
										BgL_lenz00_3361 =
											BGl_bigloozd2typezd2errorz00zz__errorz00
											(BGl_symbol3641z00zz__r4_input_6_10_2z00,
											BGl_string3643z00zz__r4_input_6_10_2z00,
											BgL_arg2492z00_3378);
									}
							}
					}
				if (((long) CINT(BgL_lenz00_3361) <= 0L))
					{	/* Ieee/input.scm 334 */
						if (((long) CINT(BgL_lenz00_3361) == 0L))
							{	/* Ieee/input.scm 335 */
								return BGl_string3635z00zz__r4_input_6_10_2z00;
							}
						else
							{	/* Ieee/input.scm 338 */
								BgL_z62iozd2errorzb0_bglt BgL_arg2481z00_3364;

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

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

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

											BgL_arg2485z00_3369 =
												BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1117z00_3368),
												BgL_arg2485z00_3369);
										}
										BgL_new1118z00_3365 = BgL_new1117z00_3368;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1118z00_3365)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1118z00_3365)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									{
										obj_t BgL_auxz00_8395;

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

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

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

													BgL_classz00_5547 = BGl_z62iozd2errorzb0zz__objectz00;
													BgL_arg2484z00_3367 =
														BGL_CLASS_ALL_FIELDS(BgL_classz00_5547);
												}
												BgL_arg2483z00_3366 =
													VECTOR_REF(BgL_arg2484z00_3367, 2L);
											}
											BgL_auxz00_8395 =
												BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
												(BgL_arg2483z00_3366);
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1118z00_3365)))->
												BgL_stackz00) = ((obj_t) BgL_auxz00_8395), BUNSPEC);
									}
									((((BgL_z62errorz62_bglt) COBJECT(
													((BgL_z62errorz62_bglt) BgL_new1118z00_3365)))->
											BgL_procz00) =
										((obj_t) BGl_symbol3641z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1118z00_3365)))->BgL_msgz00) =
										((obj_t) BGl_string3644z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1118z00_3365)))->BgL_objz00) =
										((obj_t) BgL_lenz00_3361), BUNSPEC);
									BgL_arg2481z00_3364 = BgL_new1118z00_3365;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2481z00_3364));
							}
					}
				else
					{	/* Ieee/input.scm 343 */
						obj_t BgL_sz00_3370;

						BgL_sz00_3370 = make_string_sans_fill((long) CINT(BgL_lenz00_3361));
						{	/* Ieee/input.scm 343 */
							long BgL_nz00_3371;

							BgL_nz00_3371 =
								bgl_rgc_blit_string(BgL_ipz00_42,
								BSTRING_TO_STRING(BgL_sz00_3370), 0L,
								(long) CINT(BgL_lenz00_3361));
							{	/* Ieee/input.scm 344 */

								if ((BgL_nz00_3371 == 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_string3635z00zz__r4_input_6_10_2z00;
											}
									}
								else
									{	/* Ieee/input.scm 346 */
										if ((BgL_nz00_3371 < (long) CINT(BgL_lenz00_3361)))
											{	/* Ieee/input.scm 350 */
												return bgl_string_shrink(BgL_sz00_3370, BgL_nz00_3371);
											}
										else
											{	/* Ieee/input.scm 350 */
												return BgL_sz00_3370;
											}
									}
							}
						}
					}
			}
		}

	}



/* _read-chars! */
	obj_t BGl__readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1286z00_49,
		obj_t BgL_opt1285z00_48)
	{
		{	/* Ieee/input.scm 358 */
			{	/* Ieee/input.scm 358 */
				obj_t BgL_g1287z00_3379;
				obj_t BgL_g1288z00_3380;

				{
					obj_t BgL_auxz00_8423;

					if (VECTORP(BgL_opt1285z00_48))
						{	/* Ieee/input.scm 358 */
							BgL_auxz00_8423 = BgL_opt1285z00_48;
						}
					else
						{
							obj_t BgL_auxz00_8426;

							BgL_auxz00_8426 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13935L),
								BGl_string3645z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1285z00_48);
							FAILURE(BgL_auxz00_8426, BFALSE, BFALSE);
						}
					BgL_g1287z00_3379 = VECTOR_REF(BgL_auxz00_8423, 0L);
				}
				{
					obj_t BgL_auxz00_8431;

					if (VECTORP(BgL_opt1285z00_48))
						{	/* Ieee/input.scm 358 */
							BgL_auxz00_8431 = BgL_opt1285z00_48;
						}
					else
						{
							obj_t BgL_auxz00_8434;

							BgL_auxz00_8434 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13935L),
								BGl_string3645z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1285z00_48);
							FAILURE(BgL_auxz00_8434, BFALSE, BFALSE);
						}
					BgL_g1288z00_3380 = VECTOR_REF(BgL_auxz00_8431, 1L);
				}
				{	/* Ieee/input.scm 358 */
					long BgL_aux1290z00_3382;

					{
						obj_t BgL_auxz00_8439;

						if (VECTORP(BgL_opt1285z00_48))
							{	/* Ieee/input.scm 358 */
								BgL_auxz00_8439 = BgL_opt1285z00_48;
							}
						else
							{
								obj_t BgL_auxz00_8442;

								BgL_auxz00_8442 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13935L),
									BGl_string3645z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1285z00_48);
								FAILURE(BgL_auxz00_8442, BFALSE, BFALSE);
							}
						BgL_aux1290z00_3382 = VECTOR_LENGTH(BgL_auxz00_8439);
					}
					switch (BgL_aux1290z00_3382)
						{
						case 2L:

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

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

									BgL_tmpz00_8447 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3383 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8447);
								}
								{	/* Ieee/input.scm 358 */

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

										if (STRINGP(BgL_g1287z00_3379))
											{	/* Ieee/input.scm 358 */
												BgL_auxz00_8450 = BgL_g1287z00_3379;
											}
										else
											{
												obj_t BgL_auxz00_8453;

												BgL_auxz00_8453 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(13935L), BGl_string3645z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1287z00_3379);
												FAILURE(BgL_auxz00_8453, BFALSE, BFALSE);
											}
										return
											BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8450, BgL_g1288z00_3380, BgL_ipz00_3383);
									}
								}
							}
							break;
						case 3L:

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

								{
									obj_t BgL_auxz00_8458;

									if (VECTORP(BgL_opt1285z00_48))
										{	/* Ieee/input.scm 358 */
											BgL_auxz00_8458 = BgL_opt1285z00_48;
										}
									else
										{
											obj_t BgL_auxz00_8461;

											BgL_auxz00_8461 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(13935L),
												BGl_string3645z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1285z00_48);
											FAILURE(BgL_auxz00_8461, BFALSE, BFALSE);
										}
									BgL_ipz00_3384 = VECTOR_REF(BgL_auxz00_8458, 2L);
								}
								{	/* Ieee/input.scm 358 */

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

										if (STRINGP(BgL_g1287z00_3379))
											{	/* Ieee/input.scm 358 */
												BgL_auxz00_8466 = BgL_g1287z00_3379;
											}
										else
											{
												obj_t BgL_auxz00_8469;

												BgL_auxz00_8469 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(13935L), BGl_string3645z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1287z00_3379);
												FAILURE(BgL_auxz00_8469, BFALSE, BFALSE);
											}
										return
											BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8466, BgL_g1288z00_3380, BgL_ipz00_3384);
									}
								}
							}
							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_3385;

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

								BgL_xz00_5556 = BELONG_TO_LONG(BgL_lz00_46);
								BgL_lenz00_3385 = BINT((long) (BgL_xz00_5556));
							}
						else
							{	/* Ieee/input.scm 361 */
								if (LLONGP(BgL_lz00_46))
									{	/* Ieee/input.scm 362 */
										BGL_LONGLONG_T BgL_xz00_5557;

										BgL_xz00_5557 = BLLONG_TO_LLONG(BgL_lz00_46);
										BgL_lenz00_3385 = BINT(LLONG_TO_LONG(BgL_xz00_5557));
									}
								else
									{	/* Ieee/input.scm 364 */
										obj_t BgL_arg2506z00_3401;

										BgL_arg2506z00_3401 = bgl_find_runtime_type(BgL_lz00_46);
										BgL_lenz00_3385 =
											BGl_bigloozd2typezd2errorz00zz__errorz00
											(BGl_symbol3647z00zz__r4_input_6_10_2z00,
											BGl_string3643z00zz__r4_input_6_10_2z00,
											BgL_arg2506z00_3401);
									}
							}
					}
				if (((long) CINT(BgL_lenz00_3385) <= 0L))
					{	/* Ieee/input.scm 365 */
						if (((long) CINT(BgL_lenz00_3385) == 0L))
							{	/* Ieee/input.scm 366 */
								return BINT(0L);
							}
						else
							{	/* Ieee/input.scm 369 */
								BgL_z62iozd2errorzb0_bglt BgL_arg2496z00_3388;

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

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

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

											BgL_arg2500z00_3393 =
												BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1120z00_3392),
												BgL_arg2500z00_3393);
										}
										BgL_new1121z00_3389 = BgL_new1120z00_3392;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1121z00_3389)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1121z00_3389)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									{
										obj_t BgL_auxz00_8504;

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

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

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

													BgL_classz00_5563 = BGl_z62iozd2errorzb0zz__objectz00;
													BgL_arg2499z00_3391 =
														BGL_CLASS_ALL_FIELDS(BgL_classz00_5563);
												}
												BgL_arg2497z00_3390 =
													VECTOR_REF(BgL_arg2499z00_3391, 2L);
											}
											BgL_auxz00_8504 =
												BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
												(BgL_arg2497z00_3390);
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1121z00_3389)))->
												BgL_stackz00) = ((obj_t) BgL_auxz00_8504), BUNSPEC);
									}
									((((BgL_z62errorz62_bglt) COBJECT(
													((BgL_z62errorz62_bglt) BgL_new1121z00_3389)))->
											BgL_procz00) =
										((obj_t) BGl_symbol3641z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1121z00_3389)))->BgL_msgz00) =
										((obj_t) BGl_string3644z00zz__r4_input_6_10_2z00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1121z00_3389)))->BgL_objz00) =
										((obj_t) BgL_lenz00_3385), BUNSPEC);
									BgL_arg2496z00_3388 = BgL_new1121z00_3389;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2496z00_3388));
							}
					}
				else
					{	/* Ieee/input.scm 373 */
						obj_t BgL_arg2501z00_3394;

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

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

	}



/* _read-fill-string! */
	obj_t BGl__readzd2fillzd2stringz12z12zz__r4_input_6_10_2z00(obj_t
		BgL_env1292z00_55, obj_t BgL_opt1291z00_54)
	{
		{	/* Ieee/input.scm 378 */
			{	/* Ieee/input.scm 378 */
				obj_t BgL_g1293z00_6661;
				obj_t BgL_g1294z00_6662;
				obj_t BgL_g1295z00_6663;

				{
					obj_t BgL_auxz00_8527;

					if (VECTORP(BgL_opt1291z00_54))
						{	/* Ieee/input.scm 378 */
							BgL_auxz00_8527 = BgL_opt1291z00_54;
						}
					else
						{
							obj_t BgL_auxz00_8530;

							BgL_auxz00_8530 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(14652L),
								BGl_string3649z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1291z00_54);
							FAILURE(BgL_auxz00_8530, BFALSE, BFALSE);
						}
					BgL_g1293z00_6661 = VECTOR_REF(BgL_auxz00_8527, 0L);
				}
				{
					obj_t BgL_auxz00_8535;

					if (VECTORP(BgL_opt1291z00_54))
						{	/* Ieee/input.scm 378 */
							BgL_auxz00_8535 = BgL_opt1291z00_54;
						}
					else
						{
							obj_t BgL_auxz00_8538;

							BgL_auxz00_8538 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(14652L),
								BGl_string3649z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1291z00_54);
							FAILURE(BgL_auxz00_8538, BFALSE, BFALSE);
						}
					BgL_g1294z00_6662 = VECTOR_REF(BgL_auxz00_8535, 1L);
				}
				{
					obj_t BgL_auxz00_8543;

					if (VECTORP(BgL_opt1291z00_54))
						{	/* Ieee/input.scm 378 */
							BgL_auxz00_8543 = BgL_opt1291z00_54;
						}
					else
						{
							obj_t BgL_auxz00_8546;

							BgL_auxz00_8546 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(14652L),
								BGl_string3649z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1291z00_54);
							FAILURE(BgL_auxz00_8546, BFALSE, BFALSE);
						}
					BgL_g1295z00_6663 = VECTOR_REF(BgL_auxz00_8543, 2L);
				}
				{	/* Ieee/input.scm 378 */
					long BgL_aux1297z00_6664;

					{
						obj_t BgL_auxz00_8551;

						if (VECTORP(BgL_opt1291z00_54))
							{	/* Ieee/input.scm 378 */
								BgL_auxz00_8551 = BgL_opt1291z00_54;
							}
						else
							{
								obj_t BgL_auxz00_8554;

								BgL_auxz00_8554 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(14652L),
									BGl_string3649z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1291z00_54);
								FAILURE(BgL_auxz00_8554, BFALSE, BFALSE);
							}
						BgL_aux1297z00_6664 = VECTOR_LENGTH(BgL_auxz00_8551);
					}
					switch (BgL_aux1297z00_6664)
						{
						case 3L:

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

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

									BgL_tmpz00_8559 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_6665 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8559);
								}
								{	/* Ieee/input.scm 378 */

									{	/* Ieee/input.scm 378 */
										obj_t BgL_sz00_6666;
										long BgL_oz00_6667;
										long BgL_lenz00_6668;

										if (STRINGP(BgL_g1293z00_6661))
											{	/* Ieee/input.scm 378 */
												BgL_sz00_6666 = BgL_g1293z00_6661;
											}
										else
											{
												obj_t BgL_auxz00_8564;

												BgL_auxz00_8564 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(14652L), BGl_string3649z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1293z00_6661);
												FAILURE(BgL_auxz00_8564, BFALSE, BFALSE);
											}
										{	/* Ieee/input.scm 378 */
											obj_t BgL_tmpz00_8568;

											if (INTEGERP(BgL_g1294z00_6662))
												{	/* Ieee/input.scm 378 */
													BgL_tmpz00_8568 = BgL_g1294z00_6662;
												}
											else
												{
													obj_t BgL_auxz00_8571;

													BgL_auxz00_8571 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(14652L),
														BGl_string3649z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1294z00_6662);
													FAILURE(BgL_auxz00_8571, BFALSE, BFALSE);
												}
											BgL_oz00_6667 = (long) CINT(BgL_tmpz00_8568);
										}
										{	/* Ieee/input.scm 378 */
											obj_t BgL_tmpz00_8576;

											if (INTEGERP(BgL_g1295z00_6663))
												{	/* Ieee/input.scm 378 */
													BgL_tmpz00_8576 = BgL_g1295z00_6663;
												}
											else
												{
													obj_t BgL_auxz00_8579;

													BgL_auxz00_8579 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(14652L),
														BGl_string3649z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1295z00_6663);
													FAILURE(BgL_auxz00_8579, BFALSE, BFALSE);
												}
											BgL_lenz00_6668 = (long) CINT(BgL_tmpz00_8576);
										}
										{	/* Ieee/input.scm 382 */
											long BgL_nz00_6669;

											BgL_nz00_6669 =
												bgl_rgc_blit_string(BgL_ipz00_6665,
												BSTRING_TO_STRING(BgL_sz00_6666), BgL_oz00_6667,
												BgL_lenz00_6668);
											{	/* Ieee/input.scm 383 */
												bool_t BgL_test3971z00_8586;

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

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

								{
									obj_t BgL_auxz00_8591;

									if (VECTORP(BgL_opt1291z00_54))
										{	/* Ieee/input.scm 378 */
											BgL_auxz00_8591 = BgL_opt1291z00_54;
										}
									else
										{
											obj_t BgL_auxz00_8594;

											BgL_auxz00_8594 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(14652L),
												BGl_string3649z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1291z00_54);
											FAILURE(BgL_auxz00_8594, BFALSE, BFALSE);
										}
									BgL_ipz00_6670 = VECTOR_REF(BgL_auxz00_8591, 3L);
								}
								{	/* Ieee/input.scm 378 */

									{	/* Ieee/input.scm 378 */
										obj_t BgL_sz00_6671;
										long BgL_oz00_6672;
										long BgL_lenz00_6673;

										if (STRINGP(BgL_g1293z00_6661))
											{	/* Ieee/input.scm 378 */
												BgL_sz00_6671 = BgL_g1293z00_6661;
											}
										else
											{
												obj_t BgL_auxz00_8601;

												BgL_auxz00_8601 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(14652L), BGl_string3649z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1293z00_6661);
												FAILURE(BgL_auxz00_8601, BFALSE, BFALSE);
											}
										{	/* Ieee/input.scm 378 */
											obj_t BgL_tmpz00_8605;

											if (INTEGERP(BgL_g1294z00_6662))
												{	/* Ieee/input.scm 378 */
													BgL_tmpz00_8605 = BgL_g1294z00_6662;
												}
											else
												{
													obj_t BgL_auxz00_8608;

													BgL_auxz00_8608 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(14652L),
														BGl_string3649z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1294z00_6662);
													FAILURE(BgL_auxz00_8608, BFALSE, BFALSE);
												}
											BgL_oz00_6672 = (long) CINT(BgL_tmpz00_8605);
										}
										{	/* Ieee/input.scm 378 */
											obj_t BgL_tmpz00_8613;

											if (INTEGERP(BgL_g1295z00_6663))
												{	/* Ieee/input.scm 378 */
													BgL_tmpz00_8613 = BgL_g1295z00_6663;
												}
											else
												{
													obj_t BgL_auxz00_8616;

													BgL_auxz00_8616 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(14652L),
														BGl_string3649z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1295z00_6663);
													FAILURE(BgL_auxz00_8616, BFALSE, BFALSE);
												}
											BgL_lenz00_6673 = (long) CINT(BgL_tmpz00_8613);
										}
										{	/* Ieee/input.scm 382 */
											long BgL_nz00_6674;

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

												if (INPUT_PORTP(BgL_ipz00_6670))
													{	/* Ieee/input.scm 382 */
														BgL_tmpz00_8621 = BgL_ipz00_6670;
													}
												else
													{
														obj_t BgL_auxz00_8624;

														BgL_auxz00_8624 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3623z00zz__r4_input_6_10_2z00,
															BINT(14866L),
															BGl_string3649z00zz__r4_input_6_10_2z00,
															BGl_string3626z00zz__r4_input_6_10_2z00,
															BgL_ipz00_6670);
														FAILURE(BgL_auxz00_8624, BFALSE, BFALSE);
													}
												BgL_nz00_6674 =
													bgl_rgc_blit_string(BgL_tmpz00_8621,
													BSTRING_TO_STRING(BgL_sz00_6671), BgL_oz00_6672,
													BgL_lenz00_6673);
											}
											{	/* Ieee/input.scm 383 */
												bool_t BgL_test3978z00_8630;

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

														if (INPUT_PORTP(BgL_ipz00_6670))
															{	/* Ieee/input.scm 383 */
																BgL_tmpz00_8633 = BgL_ipz00_6670;
															}
														else
															{
																obj_t BgL_auxz00_8636;

																BgL_auxz00_8636 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3623z00zz__r4_input_6_10_2z00,
																	BINT(14920L),
																	BGl_string3649z00zz__r4_input_6_10_2z00,
																	BGl_string3626z00zz__r4_input_6_10_2z00,
																	BgL_ipz00_6670);
																FAILURE(BgL_auxz00_8636, BFALSE, BFALSE);
															}
														BgL_test3978z00_8630 =
															rgc_buffer_eof_p(BgL_tmpz00_8633);
													}
												else
													{	/* Ieee/input.scm 383 */
														BgL_test3978z00_8630 = ((bool_t) 0);
													}
												if (BgL_test3978z00_8630)
													{	/* Ieee/input.scm 383 */
														return BEOF;
													}
												else
													{	/* Ieee/input.scm 383 */
														return BINT(BgL_nz00_6674);
													}
											}
										}
									}
								}
							}
							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_6675;

				BgL_nz00_6675 =
					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_test3981z00_8645;

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

	}



/* _unread-char! */
	obj_t BGl__unreadzd2charz12zc0zz__r4_input_6_10_2z00(obj_t BgL_env1299z00_59,
		obj_t BgL_opt1298z00_58)
	{
		{	/* Ieee/input.scm 401 */
			{	/* Ieee/input.scm 401 */
				obj_t BgL_g1300z00_3413;

				{
					obj_t BgL_auxz00_8650;

					if (VECTORP(BgL_opt1298z00_58))
						{	/* Ieee/input.scm 401 */
							BgL_auxz00_8650 = BgL_opt1298z00_58;
						}
					else
						{
							obj_t BgL_auxz00_8653;

							BgL_auxz00_8653 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(15535L),
								BGl_string3651z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1298z00_58);
							FAILURE(BgL_auxz00_8653, BFALSE, BFALSE);
						}
					BgL_g1300z00_3413 = VECTOR_REF(BgL_auxz00_8650, 0L);
				}
				{	/* Ieee/input.scm 401 */
					long BgL_aux1302z00_3415;

					{
						obj_t BgL_auxz00_8658;

						if (VECTORP(BgL_opt1298z00_58))
							{	/* Ieee/input.scm 401 */
								BgL_auxz00_8658 = BgL_opt1298z00_58;
							}
						else
							{
								obj_t BgL_auxz00_8661;

								BgL_auxz00_8661 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(15535L),
									BGl_string3651z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1298z00_58);
								FAILURE(BgL_auxz00_8661, BFALSE, BFALSE);
							}
						BgL_aux1302z00_3415 = VECTOR_LENGTH(BgL_auxz00_8658);
					}
					switch (BgL_aux1302z00_3415)
						{
						case 1L:

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

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

									BgL_tmpz00_8666 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3416 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8666);
								}
								{	/* Ieee/input.scm 401 */

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

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

											if (CHARP(BgL_g1300z00_3413))
												{	/* Ieee/input.scm 401 */
													BgL_tmpz00_8670 = BgL_g1300z00_3413;
												}
											else
												{
													obj_t BgL_auxz00_8673;

													BgL_auxz00_8673 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(15535L),
														BGl_string3651z00zz__r4_input_6_10_2z00,
														BGl_string3652z00zz__r4_input_6_10_2z00,
														BgL_g1300z00_3413);
													FAILURE(BgL_auxz00_8673, BFALSE, BFALSE);
												}
											BgL_auxz00_8669 = CCHAR(BgL_tmpz00_8670);
										}
										return
											BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8669, BgL_ipz00_3416);
									}
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_8679;

									if (VECTORP(BgL_opt1298z00_58))
										{	/* Ieee/input.scm 401 */
											BgL_auxz00_8679 = BgL_opt1298z00_58;
										}
									else
										{
											obj_t BgL_auxz00_8682;

											BgL_auxz00_8682 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(15535L),
												BGl_string3651z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1298z00_58);
											FAILURE(BgL_auxz00_8682, BFALSE, BFALSE);
										}
									BgL_ipz00_3417 = VECTOR_REF(BgL_auxz00_8679, 1L);
								}
								{	/* Ieee/input.scm 401 */

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

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

											if (CHARP(BgL_g1300z00_3413))
												{	/* Ieee/input.scm 401 */
													BgL_tmpz00_8688 = BgL_g1300z00_3413;
												}
											else
												{
													obj_t BgL_auxz00_8691;

													BgL_auxz00_8691 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(15535L),
														BGl_string3651z00zz__r4_input_6_10_2z00,
														BGl_string3652z00zz__r4_input_6_10_2z00,
														BgL_g1300z00_3413);
													FAILURE(BgL_auxz00_8691, BFALSE, BFALSE);
												}
											BgL_auxz00_8687 = CCHAR(BgL_tmpz00_8688);
										}
										return
											BGl_unreadzd2charz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8687, BgL_ipz00_3417);
									}
								}
							}
							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_test3988z00_8698;

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

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

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

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

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

									BgL_arg2515z00_3425 =
										BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1125z00_3424),
										BgL_arg2515z00_3425);
								}
								BgL_new1126z00_3421 = BgL_new1125z00_3424;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1126z00_3421)))->
									BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1126z00_3421)))->BgL_locationz00) =
								((obj_t) BFALSE), BUNSPEC);
							{
								obj_t BgL_auxz00_8712;

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

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

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

											BgL_classz00_5601 = BGl_z62iozd2errorzb0zz__objectz00;
											BgL_arg2514z00_3423 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_5601);
										}
										BgL_arg2512z00_3422 = VECTOR_REF(BgL_arg2514z00_3423, 2L);
									}
									BgL_auxz00_8712 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg2512z00_3422);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1126z00_3421)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_8712), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1126z00_3421)))->
									BgL_procz00) =
								((obj_t) BGl_symbol3653z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1126z00_3421)))->BgL_msgz00) =
								((obj_t) BGl_string3655z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1126z00_3421)))->BgL_objz00) =
								((obj_t) BCHAR(BgL_cz00_56)), BUNSPEC);
							BgL_arg2511z00_3420 = BgL_new1126z00_3421;
						}
						return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2511z00_3420));
					}
			}
		}

	}



/* _unread-string! */
	obj_t BGl__unreadzd2stringz12zc0zz__r4_input_6_10_2z00(obj_t
		BgL_env1304z00_63, obj_t BgL_opt1303z00_62)
	{
		{	/* Ieee/input.scm 412 */
			{	/* Ieee/input.scm 412 */
				obj_t BgL_g1305z00_3427;

				{
					obj_t BgL_auxz00_8727;

					if (VECTORP(BgL_opt1303z00_62))
						{	/* Ieee/input.scm 412 */
							BgL_auxz00_8727 = BgL_opt1303z00_62;
						}
					else
						{
							obj_t BgL_auxz00_8730;

							BgL_auxz00_8730 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(15998L),
								BGl_string3656z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1303z00_62);
							FAILURE(BgL_auxz00_8730, BFALSE, BFALSE);
						}
					BgL_g1305z00_3427 = VECTOR_REF(BgL_auxz00_8727, 0L);
				}
				{	/* Ieee/input.scm 412 */
					long BgL_aux1307z00_3429;

					{
						obj_t BgL_auxz00_8735;

						if (VECTORP(BgL_opt1303z00_62))
							{	/* Ieee/input.scm 412 */
								BgL_auxz00_8735 = BgL_opt1303z00_62;
							}
						else
							{
								obj_t BgL_auxz00_8738;

								BgL_auxz00_8738 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(15998L),
									BGl_string3656z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1303z00_62);
								FAILURE(BgL_auxz00_8738, BFALSE, BFALSE);
							}
						BgL_aux1307z00_3429 = VECTOR_LENGTH(BgL_auxz00_8735);
					}
					switch (BgL_aux1307z00_3429)
						{
						case 1L:

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

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

									BgL_tmpz00_8743 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3430 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8743);
								}
								{	/* Ieee/input.scm 412 */

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

										if (STRINGP(BgL_g1305z00_3427))
											{	/* Ieee/input.scm 412 */
												BgL_auxz00_8746 = BgL_g1305z00_3427;
											}
										else
											{
												obj_t BgL_auxz00_8749;

												BgL_auxz00_8749 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(15998L), BGl_string3656z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1305z00_3427);
												FAILURE(BgL_auxz00_8749, BFALSE, BFALSE);
											}
										return
											BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8746, BgL_ipz00_3430);
									}
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_8754;

									if (VECTORP(BgL_opt1303z00_62))
										{	/* Ieee/input.scm 412 */
											BgL_auxz00_8754 = BgL_opt1303z00_62;
										}
									else
										{
											obj_t BgL_auxz00_8757;

											BgL_auxz00_8757 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(15998L),
												BGl_string3656z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1303z00_62);
											FAILURE(BgL_auxz00_8757, BFALSE, BFALSE);
										}
									BgL_ipz00_3431 = VECTOR_REF(BgL_auxz00_8754, 1L);
								}
								{	/* Ieee/input.scm 412 */

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

										if (STRINGP(BgL_g1305z00_3427))
											{	/* Ieee/input.scm 412 */
												BgL_auxz00_8762 = BgL_g1305z00_3427;
											}
										else
											{
												obj_t BgL_auxz00_8765;

												BgL_auxz00_8765 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(15998L), BGl_string3656z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1305z00_3427);
												FAILURE(BgL_auxz00_8765, BFALSE, BFALSE);
											}
										return
											BGl_unreadzd2stringz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8762, BgL_ipz00_3431);
									}
								}
							}
							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_test3994z00_8771;

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

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

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

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

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

									BgL_arg2524z00_3439 =
										BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1128z00_3438),
										BgL_arg2524z00_3439);
								}
								BgL_new1129z00_3435 = BgL_new1128z00_3438;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1129z00_3435)))->
									BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1129z00_3435)))->BgL_locationz00) =
								((obj_t) BFALSE), BUNSPEC);
							{
								obj_t BgL_auxz00_8783;

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

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

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

											BgL_classz00_5611 = BGl_z62iozd2errorzb0zz__objectz00;
											BgL_arg2521z00_3437 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_5611);
										}
										BgL_arg2520z00_3436 = VECTOR_REF(BgL_arg2521z00_3437, 2L);
									}
									BgL_auxz00_8783 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg2520z00_3436);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1129z00_3435)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_8783), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1129z00_3435)))->
									BgL_procz00) =
								((obj_t) BGl_symbol3657z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1129z00_3435)))->BgL_msgz00) =
								((obj_t) BGl_string3659z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1129z00_3435)))->BgL_objz00) =
								((obj_t) BgL_strz00_60), BUNSPEC);
							BgL_arg2519z00_3434 = BgL_new1129z00_3435;
						}
						return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2519z00_3434));
					}
			}
		}

	}



/* _unread-substring! */
	obj_t BGl__unreadzd2substringz12zc0zz__r4_input_6_10_2z00(obj_t
		BgL_env1309z00_69, obj_t BgL_opt1308z00_68)
	{
		{	/* Ieee/input.scm 423 */
			{	/* Ieee/input.scm 423 */
				obj_t BgL_g1310z00_3441;
				obj_t BgL_g1311z00_3442;
				obj_t BgL_g1312z00_3443;

				{
					obj_t BgL_auxz00_8797;

					if (VECTORP(BgL_opt1308z00_68))
						{	/* Ieee/input.scm 423 */
							BgL_auxz00_8797 = BgL_opt1308z00_68;
						}
					else
						{
							obj_t BgL_auxz00_8800;

							BgL_auxz00_8800 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(16490L),
								BGl_string3660z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1308z00_68);
							FAILURE(BgL_auxz00_8800, BFALSE, BFALSE);
						}
					BgL_g1310z00_3441 = VECTOR_REF(BgL_auxz00_8797, 0L);
				}
				{
					obj_t BgL_auxz00_8805;

					if (VECTORP(BgL_opt1308z00_68))
						{	/* Ieee/input.scm 423 */
							BgL_auxz00_8805 = BgL_opt1308z00_68;
						}
					else
						{
							obj_t BgL_auxz00_8808;

							BgL_auxz00_8808 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(16490L),
								BGl_string3660z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1308z00_68);
							FAILURE(BgL_auxz00_8808, BFALSE, BFALSE);
						}
					BgL_g1311z00_3442 = VECTOR_REF(BgL_auxz00_8805, 1L);
				}
				{
					obj_t BgL_auxz00_8813;

					if (VECTORP(BgL_opt1308z00_68))
						{	/* Ieee/input.scm 423 */
							BgL_auxz00_8813 = BgL_opt1308z00_68;
						}
					else
						{
							obj_t BgL_auxz00_8816;

							BgL_auxz00_8816 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(16490L),
								BGl_string3660z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1308z00_68);
							FAILURE(BgL_auxz00_8816, BFALSE, BFALSE);
						}
					BgL_g1312z00_3443 = VECTOR_REF(BgL_auxz00_8813, 2L);
				}
				{	/* Ieee/input.scm 423 */
					long BgL_aux1314z00_3445;

					{
						obj_t BgL_auxz00_8821;

						if (VECTORP(BgL_opt1308z00_68))
							{	/* Ieee/input.scm 423 */
								BgL_auxz00_8821 = BgL_opt1308z00_68;
							}
						else
							{
								obj_t BgL_auxz00_8824;

								BgL_auxz00_8824 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(16490L),
									BGl_string3660z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1308z00_68);
								FAILURE(BgL_auxz00_8824, BFALSE, BFALSE);
							}
						BgL_aux1314z00_3445 = VECTOR_LENGTH(BgL_auxz00_8821);
					}
					switch (BgL_aux1314z00_3445)
						{
						case 3L:

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

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

									BgL_tmpz00_8829 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_ipz00_3446 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8829);
								}
								{	/* Ieee/input.scm 423 */

									{	/* Ieee/input.scm 423 */
										long BgL_auxz00_8848;
										long BgL_auxz00_8839;
										obj_t BgL_auxz00_8832;

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

											if (INTEGERP(BgL_g1312z00_3443))
												{	/* Ieee/input.scm 423 */
													BgL_tmpz00_8849 = BgL_g1312z00_3443;
												}
											else
												{
													obj_t BgL_auxz00_8852;

													BgL_auxz00_8852 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(16490L),
														BGl_string3660z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1312z00_3443);
													FAILURE(BgL_auxz00_8852, BFALSE, BFALSE);
												}
											BgL_auxz00_8848 = (long) CINT(BgL_tmpz00_8849);
										}
										{	/* Ieee/input.scm 423 */
											obj_t BgL_tmpz00_8840;

											if (INTEGERP(BgL_g1311z00_3442))
												{	/* Ieee/input.scm 423 */
													BgL_tmpz00_8840 = BgL_g1311z00_3442;
												}
											else
												{
													obj_t BgL_auxz00_8843;

													BgL_auxz00_8843 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(16490L),
														BGl_string3660z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1311z00_3442);
													FAILURE(BgL_auxz00_8843, BFALSE, BFALSE);
												}
											BgL_auxz00_8839 = (long) CINT(BgL_tmpz00_8840);
										}
										if (STRINGP(BgL_g1310z00_3441))
											{	/* Ieee/input.scm 423 */
												BgL_auxz00_8832 = BgL_g1310z00_3441;
											}
										else
											{
												obj_t BgL_auxz00_8835;

												BgL_auxz00_8835 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(16490L), BGl_string3660z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1310z00_3441);
												FAILURE(BgL_auxz00_8835, BFALSE, BFALSE);
											}
										return
											BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8832, BgL_auxz00_8839, BgL_auxz00_8848,
											BgL_ipz00_3446);
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_8858;

									if (VECTORP(BgL_opt1308z00_68))
										{	/* Ieee/input.scm 423 */
											BgL_auxz00_8858 = BgL_opt1308z00_68;
										}
									else
										{
											obj_t BgL_auxz00_8861;

											BgL_auxz00_8861 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(16490L),
												BGl_string3660z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1308z00_68);
											FAILURE(BgL_auxz00_8861, BFALSE, BFALSE);
										}
									BgL_ipz00_3447 = VECTOR_REF(BgL_auxz00_8858, 3L);
								}
								{	/* Ieee/input.scm 423 */

									{	/* Ieee/input.scm 423 */
										long BgL_auxz00_8882;
										long BgL_auxz00_8873;
										obj_t BgL_auxz00_8866;

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

											if (INTEGERP(BgL_g1312z00_3443))
												{	/* Ieee/input.scm 423 */
													BgL_tmpz00_8883 = BgL_g1312z00_3443;
												}
											else
												{
													obj_t BgL_auxz00_8886;

													BgL_auxz00_8886 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(16490L),
														BGl_string3660z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1312z00_3443);
													FAILURE(BgL_auxz00_8886, BFALSE, BFALSE);
												}
											BgL_auxz00_8882 = (long) CINT(BgL_tmpz00_8883);
										}
										{	/* Ieee/input.scm 423 */
											obj_t BgL_tmpz00_8874;

											if (INTEGERP(BgL_g1311z00_3442))
												{	/* Ieee/input.scm 423 */
													BgL_tmpz00_8874 = BgL_g1311z00_3442;
												}
											else
												{
													obj_t BgL_auxz00_8877;

													BgL_auxz00_8877 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(16490L),
														BGl_string3660z00zz__r4_input_6_10_2z00,
														BGl_string3650z00zz__r4_input_6_10_2z00,
														BgL_g1311z00_3442);
													FAILURE(BgL_auxz00_8877, BFALSE, BFALSE);
												}
											BgL_auxz00_8873 = (long) CINT(BgL_tmpz00_8874);
										}
										if (STRINGP(BgL_g1310z00_3441))
											{	/* Ieee/input.scm 423 */
												BgL_auxz00_8866 = BgL_g1310z00_3441;
											}
										else
											{
												obj_t BgL_auxz00_8869;

												BgL_auxz00_8869 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(16490L), BGl_string3660z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_g1310z00_3441);
												FAILURE(BgL_auxz00_8869, BFALSE, BFALSE);
											}
										return
											BGl_unreadzd2substringz12zc0zz__r4_input_6_10_2z00
											(BgL_auxz00_8866, BgL_auxz00_8873, BgL_auxz00_8882,
											BgL_ipz00_3447);
									}
								}
							}
							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_test4006z00_8893;

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

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

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

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

									BgL_arg2539z00_3461 =
										BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1131z00_3460),
										BgL_arg2539z00_3461);
								}
								BgL_new1132z00_3453 = BgL_new1131z00_3460;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1132z00_3453)))->
									BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1132z00_3453)))->BgL_locationz00) =
								((obj_t) BFALSE), BUNSPEC);
							{
								obj_t BgL_auxz00_8908;

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

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

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

											BgL_classz00_5623 = BGl_z62iozd2errorzb0zz__objectz00;
											BgL_arg2532z00_3455 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_5623);
										}
										BgL_arg2531z00_3454 = VECTOR_REF(BgL_arg2532z00_3455, 2L);
									}
									BgL_auxz00_8908 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg2531z00_3454);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1132z00_3453)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_8908), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1132z00_3453)))->
									BgL_procz00) =
								((obj_t) BGl_symbol3661z00zz__r4_input_6_10_2z00), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1132z00_3453)))->BgL_msgz00) =
								((obj_t) BGl_string3663z00zz__r4_input_6_10_2z00), BUNSPEC);
							{
								obj_t BgL_auxz00_8918;

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

									BgL_arg2533z00_3456 = STRING_LENGTH(BgL_strz00_64);
									{	/* Ieee/input.scm 431 */
										obj_t BgL_list2534z00_3457;

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

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

												BgL_arg2537z00_3459 =
													MAKE_YOUNG_PAIR(BINT(BgL_arg2533z00_3456), BNIL);
												BgL_arg2536z00_3458 =
													MAKE_YOUNG_PAIR(BINT(BgL_toz00_66),
													BgL_arg2537z00_3459);
											}
											BgL_list2534z00_3457 =
												MAKE_YOUNG_PAIR(BINT(BgL_fromz00_65),
												BgL_arg2536z00_3458);
										}
										BgL_auxz00_8918 = BgL_list2534z00_3457;
								}}
								((((BgL_z62errorz62_bglt) COBJECT(
												((BgL_z62errorz62_bglt) BgL_new1132z00_3453)))->
										BgL_objz00) = ((obj_t) BgL_auxz00_8918), BUNSPEC);
							}
							BgL_arg2530z00_3452 = BgL_new1132z00_3453;
						}
						BGl_raisez00zz__errorz00(((obj_t) BgL_arg2530z00_3452));
					}
				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_arg2542z00_3466;

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

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

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

								BgL_arg2547z00_3471 =
									BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1133z00_3470),
									BgL_arg2547z00_3471);
							}
							BgL_new1135z00_3467 = BgL_new1133z00_3470;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1135z00_3467)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1135z00_3467)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_8941;

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

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

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

										BgL_classz00_5634 = BGl_z62iozd2errorzb0zz__objectz00;
										BgL_arg2545z00_3469 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_5634);
									}
									BgL_arg2544z00_3468 = VECTOR_REF(BgL_arg2545z00_3469, 2L);
								}
								BgL_auxz00_8941 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg2544z00_3468);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1135z00_3467)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_8941), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1135z00_3467)))->
								BgL_procz00) =
							((obj_t) BGl_symbol3664z00zz__r4_input_6_10_2z00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1135z00_3467)))->BgL_msgz00) =
							((obj_t) BGl_string3659z00zz__r4_input_6_10_2z00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1135z00_3467)))->BgL_objz00) =
							((obj_t) BgL_strz00_64), BUNSPEC);
						BgL_arg2542z00_3466 = BgL_new1135z00_3467;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg2542z00_3466));
				}
		}

	}



/* 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_5643;

				BgL_resz00_5643 = BNIL;
			BgL_loopz00_5642:
				{	/* Ieee/input.scm 443 */
					obj_t BgL_expz00_5647;

					BgL_expz00_5647 =
						BGl_z62zc3z04anonymousza31395ze3ze5zz__r4_input_6_10_2z00
						(BGl_za2readzd2ofzd2stringszd2grammarza2zd2zz__r4_input_6_10_2z00,
						BgL_ipz00_70);
					if (EOF_OBJECTP(BgL_expz00_5647))
						{	/* Ieee/input.scm 444 */
							return bgl_reverse_bang(BgL_resz00_5643);
						}
					else
						{	/* Ieee/input.scm 446 */
							obj_t BgL_arg2550z00_5649;

							BgL_arg2550z00_5649 =
								MAKE_YOUNG_PAIR(BgL_expz00_5647, BgL_resz00_5643);
							{
								obj_t BgL_resz00_8963;

								BgL_resz00_8963 = BgL_arg2550z00_5649;
								BgL_resz00_5643 = BgL_resz00_8963;
								goto BgL_loopz00_5642;
							}
						}
				}
			}
		}

	}



/* &port->string-list */
	obj_t BGl_z62portzd2ze3stringzd2listz81zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6282, obj_t BgL_ipz00_6283)
	{
		{	/* Ieee/input.scm 441 */
			{	/* Ieee/input.scm 442 */
				obj_t BgL_auxz00_8964;

				if (INPUT_PORTP(BgL_ipz00_6283))
					{	/* Ieee/input.scm 442 */
						BgL_auxz00_8964 = BgL_ipz00_6283;
					}
				else
					{
						obj_t BgL_auxz00_8967;

						BgL_auxz00_8967 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(17251L),
							BGl_string3666z00zz__r4_input_6_10_2z00,
							BGl_string3626z00zz__r4_input_6_10_2z00, BgL_ipz00_6283);
						FAILURE(BgL_auxz00_8967, BFALSE, BFALSE);
					}
				return
					BGl_portzd2ze3stringzd2listze3zz__r4_input_6_10_2z00(BgL_auxz00_8964);
			}
		}

	}



/* %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_3481;

				if ((BgL_sza7za7_73 == (-1L)))
					{	/* Ieee/input.scm 458 */
						BgL_bufsiza7eza7_3481 = 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_3481 = default_io_bufsiz;
							}
						else
							{	/* Ieee/input.scm 460 */
								BgL_bufsiza7eza7_3481 = BgL_sza7za7_73;
							}
					}
				{	/* Ieee/input.scm 457 */
					obj_t BgL_bufz00_3482;

					{	/* Ieee/string.scm 172 */

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

						if ((BgL_sza7za7_73 < 0L))
							{
								long BgL_charszd2readzd2_3487;

								{	/* Ieee/input.scm 468 */
									long BgL_tmpz00_8983;

									BgL_charszd2readzd2_3487 = 0L;
								BgL_zc3z04anonymousza32553ze3z87_3488:
									{	/* Ieee/input.scm 469 */
										obj_t BgL_nz00_3489;

										BgL_nz00_3489 =
											BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
											(BgL_bufz00_3482, BINT(BgL_bufsiza7eza7_3481),
											BgL_ipz00_71);
										if (((long) CINT(BgL_nz00_3489) == 0L))
											{	/* Ieee/input.scm 470 */
												bgl_flush_output_port(BgL_opz00_72);
												BgL_tmpz00_8983 = BgL_charszd2readzd2_3487;
											}
										else
											{	/* Ieee/input.scm 474 */
												obj_t BgL_sz00_3491;

												if (
													((long) CINT(BgL_nz00_3489) < BgL_bufsiza7eza7_3481))
													{	/* Ieee/input.scm 474 */
														BgL_sz00_3491 =
															c_substring(BgL_bufz00_3482, 0L,
															(long) CINT(BgL_nz00_3489));
													}
												else
													{	/* Ieee/input.scm 474 */
														BgL_sz00_3491 = BgL_bufz00_3482;
													}
												bgl_display_obj(BgL_sz00_3491, BgL_opz00_72);
												{
													long BgL_charszd2readzd2_8996;

													BgL_charszd2readzd2_8996 =
														(BgL_charszd2readzd2_3487 +
														(long) CINT(BgL_nz00_3489));
													BgL_charszd2readzd2_3487 = BgL_charszd2readzd2_8996;
													goto BgL_zc3z04anonymousza32553ze3z87_3488;
												}
											}
									}
									return (int) (BgL_tmpz00_8983);
							}}
						else
							{
								long BgL_charszd2readzd2_3496;
								long BgL_charszd2tozd2readz00_3497;
								long BgL_sza7za7_3498;

								{	/* Ieee/input.scm 477 */
									long BgL_tmpz00_9000;

									BgL_charszd2readzd2_3496 = 0L;
									BgL_charszd2tozd2readz00_3497 = BgL_bufsiza7eza7_3481;
									BgL_sza7za7_3498 = BgL_sza7za7_73;
								BgL_zc3z04anonymousza32557ze3z87_3499:
									if ((BgL_charszd2tozd2readz00_3497 == 0L))
										{	/* Ieee/input.scm 480 */
											BgL_tmpz00_9000 = BgL_charszd2readzd2_3496;
										}
									else
										{	/* Ieee/input.scm 482 */
											obj_t BgL_nz00_3501;

											BgL_nz00_3501 =
												BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
												(BgL_bufz00_3482, BINT(BgL_charszd2tozd2readz00_3497),
												BgL_ipz00_71);
											if (((long) CINT(BgL_nz00_3501) == 0L))
												{	/* Ieee/input.scm 483 */
													bgl_flush_output_port(BgL_opz00_72);
													BgL_tmpz00_9000 = BgL_charszd2readzd2_3496;
												}
											else
												{	/* Ieee/input.scm 487 */
													obj_t BgL_sz00_3503;

													if (
														((long) CINT(BgL_nz00_3501) <
															BgL_bufsiza7eza7_3481))
														{	/* Ieee/input.scm 487 */
															BgL_sz00_3503 =
																c_substring(BgL_bufz00_3482, 0L,
																(long) CINT(BgL_nz00_3501));
														}
													else
														{	/* Ieee/input.scm 487 */
															BgL_sz00_3503 = BgL_bufz00_3482;
														}
													bgl_display_obj(BgL_sz00_3503, BgL_opz00_72);
													{	/* Ieee/input.scm 489 */
														long BgL_sza7za7_3504;

														BgL_sza7za7_3504 =
															(BgL_sza7za7_3498 - (long) CINT(BgL_nz00_3501));
														{	/* Ieee/input.scm 489 */
															long BgL_ctrz00_3505;

															if ((BgL_sza7za7_3504 < BgL_bufsiza7eza7_3481))
																{	/* Ieee/input.scm 490 */
																	BgL_ctrz00_3505 = BgL_sza7za7_3504;
																}
															else
																{	/* Ieee/input.scm 490 */
																	BgL_ctrz00_3505 = BgL_bufsiza7eza7_3481;
																}
															{	/* Ieee/input.scm 490 */

																{
																	long BgL_sza7za7_9023;
																	long BgL_charszd2tozd2readz00_9022;
																	long BgL_charszd2readzd2_9019;

																	BgL_charszd2readzd2_9019 =
																		(BgL_charszd2readzd2_3496 +
																		(long) CINT(BgL_nz00_3501));
																	BgL_charszd2tozd2readz00_9022 =
																		BgL_ctrz00_3505;
																	BgL_sza7za7_9023 = BgL_sza7za7_3504;
																	BgL_sza7za7_3498 = BgL_sza7za7_9023;
																	BgL_charszd2tozd2readz00_3497 =
																		BgL_charszd2tozd2readz00_9022;
																	BgL_charszd2readzd2_3496 =
																		BgL_charszd2readzd2_9019;
																	goto BgL_zc3z04anonymousza32557ze3z87_3499;
																}
															}
														}
													}
												}
										}
									return (int) (BgL_tmpz00_9000);
		}}}}}}

	}



/* 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_3514;

				{	/* Ieee/string.scm 223 */

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

						{	/* Ieee/input.scm 503 */

							BgL_test4023z00_9030 =
								BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
								(BGl_string3667z00zz__r4_input_6_10_2z00, BgL_pathz00_75,
								BFALSE, BFALSE, BFALSE, BFALSE);
						}
						if (BgL_test4023z00_9030)
							{	/* Ieee/input.scm 504 */
								obj_t BgL_arg2566z00_3522;

								BgL_arg2566z00_3522 =
									c_substring(BgL_pathz00_75, 5L,
									STRING_LENGTH(BgL_pathz00_75));
								return
									bgl_file_to_string(BSTRING_TO_STRING(BgL_arg2566z00_3522));
							}
						else
							{	/* Ieee/input.scm 506 */
								obj_t BgL_ipz00_3524;

								{	/* Ieee/port.scm 466 */

									BgL_ipz00_3524 =
										BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
										(BgL_pathz00_75, BTRUE, BINT(5000000L));
								}
								{	/* Ieee/input.scm 507 */
									obj_t BgL_exitd1137z00_3525;

									BgL_exitd1137z00_3525 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/input.scm 509 */
										obj_t BgL_zc3z04anonymousza32568ze3z87_6284;

										BgL_zc3z04anonymousza32568ze3z87_6284 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32568ze3ze5zz__r4_input_6_10_2z00,
											(int) (0L), (int) (1L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32568ze3z87_6284,
											(int) (0L), BgL_ipz00_3524);
										{	/* Ieee/input.scm 507 */
											obj_t BgL_arg3337z00_5681;

											{	/* Ieee/input.scm 507 */
												obj_t BgL_arg3338z00_5682;

												BgL_arg3338z00_5682 =
													BGL_EXITD_PROTECT(BgL_exitd1137z00_3525);
												BgL_arg3337z00_5681 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32568ze3z87_6284,
													BgL_arg3338z00_5682);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1137z00_3525,
												BgL_arg3337z00_5681);
											BUNSPEC;
										}
										{	/* Ieee/input.scm 508 */
											obj_t BgL_tmp1139z00_3527;

											BgL_tmp1139z00_3527 =
												BGl_readzd2stringzd2zz__r4_input_6_10_2z00
												(BgL_ipz00_3524);
											{	/* Ieee/input.scm 507 */
												bool_t BgL_test4024z00_9048;

												{	/* Ieee/input.scm 507 */
													obj_t BgL_arg3336z00_5684;

													BgL_arg3336z00_5684 =
														BGL_EXITD_PROTECT(BgL_exitd1137z00_3525);
													BgL_test4024z00_9048 = PAIRP(BgL_arg3336z00_5684);
												}
												if (BgL_test4024z00_9048)
													{	/* Ieee/input.scm 507 */
														obj_t BgL_arg3333z00_5685;

														{	/* Ieee/input.scm 507 */
															obj_t BgL_arg3335z00_5686;

															BgL_arg3335z00_5686 =
																BGL_EXITD_PROTECT(BgL_exitd1137z00_3525);
															BgL_arg3333z00_5685 =
																CDR(((obj_t) BgL_arg3335z00_5686));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1137z00_3525,
															BgL_arg3333z00_5685);
														BUNSPEC;
													}
												else
													{	/* Ieee/input.scm 507 */
														BFALSE;
													}
											}
											bgl_close_input_port(((obj_t) BgL_ipz00_3524));
											return BgL_tmp1139z00_3527;
										}
									}
								}
							}
					}
				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_6285,
		obj_t BgL_pathz00_6286)
	{
		{	/* Ieee/input.scm 496 */
			{	/* Ieee/input.scm 499 */
				obj_t BgL_auxz00_9059;

				if (STRINGP(BgL_pathz00_6286))
					{	/* Ieee/input.scm 499 */
						BgL_auxz00_9059 = BgL_pathz00_6286;
					}
				else
					{
						obj_t BgL_auxz00_9062;

						BgL_auxz00_9062 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(19354L),
							BGl_string3668z00zz__r4_input_6_10_2z00,
							BGl_string3646z00zz__r4_input_6_10_2z00, BgL_pathz00_6286);
						FAILURE(BgL_auxz00_9062, BFALSE, BFALSE);
					}
				return BGl_filezd2ze3stringz31zz__r4_input_6_10_2z00(BgL_auxz00_9059);
			}
		}

	}



/* &<@anonymous:2568> */
	obj_t BGl_z62zc3z04anonymousza32568ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6287)
	{
		{	/* Ieee/input.scm 507 */
			{	/* Ieee/input.scm 509 */
				obj_t BgL_ipz00_6288;

				BgL_ipz00_6288 = PROCEDURE_REF(BgL_envz00_6287, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6288));
			}
		}

	}



/* 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_5689;
				long BgL_offz00_5690;

				BgL_sza7za7_5689 = (long) (BgL_siza7eza7_78);
				BgL_offz00_5690 = (long) (BgL_offsetz00_79);
				{	/* Ieee/input.scm 525 */
					obj_t BgL__ortest_1141z00_5691;

					BgL__ortest_1141z00_5691 =
						bgl_sendchars(BgL_ipz00_76, BgL_opz00_77, BgL_sza7za7_5689,
						BgL_offz00_5690);
					if (CBOOL(BgL__ortest_1141z00_5691))
						{	/* Ieee/input.scm 525 */
							return (long) CINT(BgL__ortest_1141z00_5691);
						}
					else
						{	/* Ieee/input.scm 527 */
							bool_t BgL_test4027z00_9077;

							if (INPUT_GZIP_PORTP(BgL_ipz00_76))
								{	/* Ieee/input.scm 527 */
									if ((BgL_sza7za7_5689 == (-1L)))
										{	/* Ieee/input.scm 527 */
											BgL_test4027z00_9077 = (BgL_offz00_5690 == (-1L));
										}
									else
										{	/* Ieee/input.scm 527 */
											BgL_test4027z00_9077 = ((bool_t) 0);
										}
								}
							else
								{	/* Ieee/input.scm 527 */
									BgL_test4027z00_9077 = ((bool_t) 0);
								}
							if (BgL_test4027z00_9077)
								{	/* 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_5689,
											BgL_offz00_5690));
		}}}}}

	}



/* &send-chars/size */
	obj_t BGl_z62sendzd2charszf2siza7eze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6289, obj_t BgL_ipz00_6290, obj_t BgL_opz00_6291,
		obj_t BgL_siza7eza7_6292, obj_t BgL_offsetz00_6293)
	{
		{	/* Ieee/input.scm 519 */
			{	/* Ieee/input.scm 521 */
				long BgL_tmpz00_9087;

				{	/* Ieee/input.scm 521 */
					long BgL_auxz00_9111;
					long BgL_auxz00_9102;
					obj_t BgL_auxz00_9095;
					obj_t BgL_auxz00_9088;

					{	/* Ieee/input.scm 521 */
						obj_t BgL_tmpz00_9112;

						if (ELONGP(BgL_offsetz00_6293))
							{	/* Ieee/input.scm 521 */
								BgL_tmpz00_9112 = BgL_offsetz00_6293;
							}
						else
							{
								obj_t BgL_auxz00_9115;

								BgL_auxz00_9115 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20115L),
									BGl_string3669z00zz__r4_input_6_10_2z00,
									BGl_string3671z00zz__r4_input_6_10_2z00, BgL_offsetz00_6293);
								FAILURE(BgL_auxz00_9115, BFALSE, BFALSE);
							}
						BgL_auxz00_9111 = BELONG_TO_LONG(BgL_tmpz00_9112);
					}
					{	/* Ieee/input.scm 521 */
						obj_t BgL_tmpz00_9103;

						if (ELONGP(BgL_siza7eza7_6292))
							{	/* Ieee/input.scm 521 */
								BgL_tmpz00_9103 = BgL_siza7eza7_6292;
							}
						else
							{
								obj_t BgL_auxz00_9106;

								BgL_auxz00_9106 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20115L),
									BGl_string3669z00zz__r4_input_6_10_2z00,
									BGl_string3671z00zz__r4_input_6_10_2z00, BgL_siza7eza7_6292);
								FAILURE(BgL_auxz00_9106, BFALSE, BFALSE);
							}
						BgL_auxz00_9102 = BELONG_TO_LONG(BgL_tmpz00_9103);
					}
					if (OUTPUT_PORTP(BgL_opz00_6291))
						{	/* Ieee/input.scm 521 */
							BgL_auxz00_9095 = BgL_opz00_6291;
						}
					else
						{
							obj_t BgL_auxz00_9098;

							BgL_auxz00_9098 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20115L),
								BGl_string3669z00zz__r4_input_6_10_2z00,
								BGl_string3670z00zz__r4_input_6_10_2z00, BgL_opz00_6291);
							FAILURE(BgL_auxz00_9098, BFALSE, BFALSE);
						}
					if (INPUT_PORTP(BgL_ipz00_6290))
						{	/* Ieee/input.scm 521 */
							BgL_auxz00_9088 = BgL_ipz00_6290;
						}
					else
						{
							obj_t BgL_auxz00_9091;

							BgL_auxz00_9091 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20115L),
								BGl_string3669z00zz__r4_input_6_10_2z00,
								BGl_string3626z00zz__r4_input_6_10_2z00, BgL_ipz00_6290);
							FAILURE(BgL_auxz00_9091, BFALSE, BFALSE);
						}
					BgL_tmpz00_9087 =
						BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00(BgL_auxz00_9088,
						BgL_auxz00_9095, BgL_auxz00_9102, BgL_auxz00_9111);
				}
				return BINT(BgL_tmpz00_9087);
			}
		}

	}



/* _send-chars */
	obj_t BGl__sendzd2charszd2zz__r4_input_6_10_2z00(obj_t BgL_env1316z00_85,
		obj_t BgL_opt1315z00_84)
	{
		{	/* Ieee/input.scm 541 */
			{	/* Ieee/input.scm 541 */
				obj_t BgL_g1317z00_3550;
				obj_t BgL_g1318z00_3551;

				{
					obj_t BgL_auxz00_9122;

					if (VECTORP(BgL_opt1315z00_84))
						{	/* Ieee/input.scm 541 */
							BgL_auxz00_9122 = BgL_opt1315z00_84;
						}
					else
						{
							obj_t BgL_auxz00_9125;

							BgL_auxz00_9125 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
								BGl_string3672z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1315z00_84);
							FAILURE(BgL_auxz00_9125, BFALSE, BFALSE);
						}
					BgL_g1317z00_3550 = VECTOR_REF(BgL_auxz00_9122, 0L);
				}
				{
					obj_t BgL_auxz00_9130;

					if (VECTORP(BgL_opt1315z00_84))
						{	/* Ieee/input.scm 541 */
							BgL_auxz00_9130 = BgL_opt1315z00_84;
						}
					else
						{
							obj_t BgL_auxz00_9133;

							BgL_auxz00_9133 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
								BGl_string3672z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1315z00_84);
							FAILURE(BgL_auxz00_9133, BFALSE, BFALSE);
						}
					BgL_g1318z00_3551 = VECTOR_REF(BgL_auxz00_9130, 1L);
				}
				{	/* Ieee/input.scm 541 */
					long BgL_aux1320z00_3553;

					{
						obj_t BgL_auxz00_9138;

						if (VECTORP(BgL_opt1315z00_84))
							{	/* Ieee/input.scm 541 */
								BgL_auxz00_9138 = BgL_opt1315z00_84;
							}
						else
							{
								obj_t BgL_auxz00_9141;

								BgL_auxz00_9141 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
									BGl_string3672z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1315z00_84);
								FAILURE(BgL_auxz00_9141, BFALSE, BFALSE);
							}
						BgL_aux1320z00_3553 = VECTOR_LENGTH(BgL_auxz00_9138);
					}
					switch (BgL_aux1320z00_3553)
						{
						case 2L:

							{	/* Ieee/input.scm 541 */

								{	/* Ieee/input.scm 541 */
									obj_t BgL_ipz00_5699;
									obj_t BgL_opz00_5700;

									if (INPUT_PORTP(BgL_g1317z00_3550))
										{	/* Ieee/input.scm 541 */
											BgL_ipz00_5699 = BgL_g1317z00_3550;
										}
									else
										{
											obj_t BgL_auxz00_9148;

											BgL_auxz00_9148 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
												BGl_string3672z00zz__r4_input_6_10_2z00,
												BGl_string3626z00zz__r4_input_6_10_2z00,
												BgL_g1317z00_3550);
											FAILURE(BgL_auxz00_9148, BFALSE, BFALSE);
										}
									if (OUTPUT_PORTP(BgL_g1318z00_3551))
										{	/* Ieee/input.scm 541 */
											BgL_opz00_5700 = BgL_g1318z00_3551;
										}
									else
										{
											obj_t BgL_auxz00_9154;

											BgL_auxz00_9154 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
												BGl_string3672z00zz__r4_input_6_10_2z00,
												BGl_string3670z00zz__r4_input_6_10_2z00,
												BgL_g1318z00_3551);
											FAILURE(BgL_auxz00_9154, BFALSE, BFALSE);
										}
									{	/* Ieee/input.scm 543 */
										long BgL_sza7za7_5701;
										long BgL_offz00_5702;

										BgL_sza7za7_5701 = (long) ((-1L));
										BgL_offz00_5702 = (long) ((-1L));
										return
											BINT(BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
											(BgL_ipz00_5699, BgL_opz00_5700, BgL_sza7za7_5701,
												BgL_offz00_5702));
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/input.scm 541 */
								obj_t BgL_siza7eza7_3556;

								{
									obj_t BgL_auxz00_9162;

									if (VECTORP(BgL_opt1315z00_84))
										{	/* Ieee/input.scm 541 */
											BgL_auxz00_9162 = BgL_opt1315z00_84;
										}
									else
										{
											obj_t BgL_auxz00_9165;

											BgL_auxz00_9165 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
												BGl_string3672z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1315z00_84);
											FAILURE(BgL_auxz00_9165, BFALSE, BFALSE);
										}
									BgL_siza7eza7_3556 = VECTOR_REF(BgL_auxz00_9162, 2L);
								}
								{	/* Ieee/input.scm 541 */

									{	/* Ieee/input.scm 541 */
										obj_t BgL_ipz00_5709;
										obj_t BgL_opz00_5710;

										if (INPUT_PORTP(BgL_g1317z00_3550))
											{	/* Ieee/input.scm 541 */
												BgL_ipz00_5709 = BgL_g1317z00_3550;
											}
										else
											{
												obj_t BgL_auxz00_9172;

												BgL_auxz00_9172 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(20782L), BGl_string3672z00zz__r4_input_6_10_2z00,
													BGl_string3626z00zz__r4_input_6_10_2z00,
													BgL_g1317z00_3550);
												FAILURE(BgL_auxz00_9172, BFALSE, BFALSE);
											}
										if (OUTPUT_PORTP(BgL_g1318z00_3551))
											{	/* Ieee/input.scm 541 */
												BgL_opz00_5710 = BgL_g1318z00_3551;
											}
										else
											{
												obj_t BgL_auxz00_9178;

												BgL_auxz00_9178 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(20782L), BGl_string3672z00zz__r4_input_6_10_2z00,
													BGl_string3670z00zz__r4_input_6_10_2z00,
													BgL_g1318z00_3551);
												FAILURE(BgL_auxz00_9178, BFALSE, BFALSE);
											}
										{	/* Ieee/input.scm 543 */
											long BgL_sza7za7_5711;
											long BgL_offz00_5712;

											if (INTEGERP(BgL_siza7eza7_3556))
												{	/* Ieee/input.scm 544 */
													long BgL_tmpz00_9184;

													BgL_tmpz00_9184 = (long) CINT(BgL_siza7eza7_3556);
													BgL_sza7za7_5711 = (long) (BgL_tmpz00_9184);
												}
											else
												{	/* Ieee/input.scm 544 */
													if (ELONGP(BgL_siza7eza7_3556))
														{	/* Ieee/input.scm 545 */
															BgL_sza7za7_5711 =
																BELONG_TO_LONG(BgL_siza7eza7_3556);
														}
													else
														{	/* Ieee/input.scm 546 */
															obj_t BgL_tmpz00_9190;

															{	/* Ieee/input.scm 546 */
																obj_t BgL_aux3542z00_6475;

																BgL_aux3542z00_6475 =
																	BGl_errorz00zz__errorz00
																	(BGl_symbol3673z00zz__r4_input_6_10_2z00,
																	BGl_string3675z00zz__r4_input_6_10_2z00,
																	BgL_siza7eza7_3556);
																if (ELONGP(BgL_aux3542z00_6475))
																	{	/* Ieee/input.scm 546 */
																		BgL_tmpz00_9190 = BgL_aux3542z00_6475;
																	}
																else
																	{
																		obj_t BgL_auxz00_9194;

																		BgL_auxz00_9194 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3623z00zz__r4_input_6_10_2z00,
																			BINT(20996L),
																			BGl_string3672z00zz__r4_input_6_10_2z00,
																			BGl_string3671z00zz__r4_input_6_10_2z00,
																			BgL_aux3542z00_6475);
																		FAILURE(BgL_auxz00_9194, BFALSE, BFALSE);
																	}
															}
															BgL_sza7za7_5711 =
																BELONG_TO_LONG(BgL_tmpz00_9190);
														}
												}
											BgL_offz00_5712 = (long) ((-1L));
											return
												BINT(BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
												(BgL_ipz00_5709, BgL_opz00_5710, BgL_sza7za7_5711,
													BgL_offz00_5712));
										}
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/input.scm 541 */
								obj_t BgL_siza7eza7_3558;

								{
									obj_t BgL_auxz00_9202;

									if (VECTORP(BgL_opt1315z00_84))
										{	/* Ieee/input.scm 541 */
											BgL_auxz00_9202 = BgL_opt1315z00_84;
										}
									else
										{
											obj_t BgL_auxz00_9205;

											BgL_auxz00_9205 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(20782L),
												BGl_string3672z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1315z00_84);
											FAILURE(BgL_auxz00_9205, BFALSE, BFALSE);
										}
									BgL_siza7eza7_3558 = VECTOR_REF(BgL_auxz00_9202, 2L);
								}
								{	/* Ieee/input.scm 541 */
									obj_t BgL_offsetz00_3559;

									{
										obj_t BgL_auxz00_9210;

										if (VECTORP(BgL_opt1315z00_84))
											{	/* Ieee/input.scm 541 */
												BgL_auxz00_9210 = BgL_opt1315z00_84;
											}
										else
											{
												obj_t BgL_auxz00_9213;

												BgL_auxz00_9213 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(20782L), BGl_string3672z00zz__r4_input_6_10_2z00,
													BGl_string3629z00zz__r4_input_6_10_2z00,
													BgL_opt1315z00_84);
												FAILURE(BgL_auxz00_9213, BFALSE, BFALSE);
											}
										BgL_offsetz00_3559 = VECTOR_REF(BgL_auxz00_9210, 3L);
									}
									{	/* Ieee/input.scm 541 */

										{	/* Ieee/input.scm 541 */
											obj_t BgL_ipz00_5719;
											obj_t BgL_opz00_5720;

											if (INPUT_PORTP(BgL_g1317z00_3550))
												{	/* Ieee/input.scm 541 */
													BgL_ipz00_5719 = BgL_g1317z00_3550;
												}
											else
												{
													obj_t BgL_auxz00_9220;

													BgL_auxz00_9220 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(20782L),
														BGl_string3672z00zz__r4_input_6_10_2z00,
														BGl_string3626z00zz__r4_input_6_10_2z00,
														BgL_g1317z00_3550);
													FAILURE(BgL_auxz00_9220, BFALSE, BFALSE);
												}
											if (OUTPUT_PORTP(BgL_g1318z00_3551))
												{	/* Ieee/input.scm 541 */
													BgL_opz00_5720 = BgL_g1318z00_3551;
												}
											else
												{
													obj_t BgL_auxz00_9226;

													BgL_auxz00_9226 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(20782L),
														BGl_string3672z00zz__r4_input_6_10_2z00,
														BGl_string3670z00zz__r4_input_6_10_2z00,
														BgL_g1318z00_3551);
													FAILURE(BgL_auxz00_9226, BFALSE, BFALSE);
												}
											{	/* Ieee/input.scm 543 */
												long BgL_sza7za7_5721;
												long BgL_offz00_5722;

												if (INTEGERP(BgL_siza7eza7_3558))
													{	/* Ieee/input.scm 544 */
														long BgL_tmpz00_9232;

														BgL_tmpz00_9232 = (long) CINT(BgL_siza7eza7_3558);
														BgL_sza7za7_5721 = (long) (BgL_tmpz00_9232);
													}
												else
													{	/* Ieee/input.scm 544 */
														if (ELONGP(BgL_siza7eza7_3558))
															{	/* Ieee/input.scm 545 */
																BgL_sza7za7_5721 =
																	BELONG_TO_LONG(BgL_siza7eza7_3558);
															}
														else
															{	/* Ieee/input.scm 546 */
																obj_t BgL_tmpz00_9238;

																{	/* Ieee/input.scm 546 */
																	obj_t BgL_aux3552z00_6485;

																	BgL_aux3552z00_6485 =
																		BGl_errorz00zz__errorz00
																		(BGl_symbol3673z00zz__r4_input_6_10_2z00,
																		BGl_string3675z00zz__r4_input_6_10_2z00,
																		BgL_siza7eza7_3558);
																	if (ELONGP(BgL_aux3552z00_6485))
																		{	/* Ieee/input.scm 546 */
																			BgL_tmpz00_9238 = BgL_aux3552z00_6485;
																		}
																	else
																		{
																			obj_t BgL_auxz00_9242;

																			BgL_auxz00_9242 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3623z00zz__r4_input_6_10_2z00,
																				BINT(20996L),
																				BGl_string3672z00zz__r4_input_6_10_2z00,
																				BGl_string3671z00zz__r4_input_6_10_2z00,
																				BgL_aux3552z00_6485);
																			FAILURE(BgL_auxz00_9242, BFALSE, BFALSE);
																		}
																}
																BgL_sza7za7_5721 =
																	BELONG_TO_LONG(BgL_tmpz00_9238);
															}
													}
												if (INTEGERP(BgL_offsetz00_3559))
													{	/* Ieee/input.scm 548 */
														long BgL_tmpz00_9249;

														BgL_tmpz00_9249 = (long) CINT(BgL_offsetz00_3559);
														BgL_offz00_5722 = (long) (BgL_tmpz00_9249);
													}
												else
													{	/* Ieee/input.scm 548 */
														if (ELONGP(BgL_offsetz00_3559))
															{	/* Ieee/input.scm 549 */
																BgL_offz00_5722 =
																	BELONG_TO_LONG(BgL_offsetz00_3559);
															}
														else
															{	/* Ieee/input.scm 550 */
																obj_t BgL_tmpz00_9255;

																{	/* Ieee/input.scm 550 */
																	obj_t BgL_aux3554z00_6487;

																	BgL_aux3554z00_6487 =
																		BGl_errorz00zz__errorz00
																		(BGl_symbol3673z00zz__r4_input_6_10_2z00,
																		BGl_string3676z00zz__r4_input_6_10_2z00,
																		BgL_offsetz00_3559);
																	if (ELONGP(BgL_aux3554z00_6487))
																		{	/* Ieee/input.scm 550 */
																			BgL_tmpz00_9255 = BgL_aux3554z00_6487;
																		}
																	else
																		{
																			obj_t BgL_auxz00_9259;

																			BgL_auxz00_9259 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3623z00zz__r4_input_6_10_2z00,
																				BINT(21141L),
																				BGl_string3672z00zz__r4_input_6_10_2z00,
																				BGl_string3671z00zz__r4_input_6_10_2z00,
																				BgL_aux3554z00_6487);
																			FAILURE(BgL_auxz00_9259, BFALSE, BFALSE);
																		}
																}
																BgL_offz00_5722 =
																	BELONG_TO_LONG(BgL_tmpz00_9255);
															}
													}
												return
													BINT
													(BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
													(BgL_ipz00_5719, BgL_opz00_5720, BgL_sza7za7_5721,
														BgL_offz00_5722));
											}
										}
									}
								}
							}
							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_5729;
				long BgL_offz00_5730;

				if (INTEGERP(BgL_siza7eza7_82))
					{	/* Ieee/input.scm 544 */
						long BgL_tmpz00_9269;

						BgL_tmpz00_9269 = (long) CINT(BgL_siza7eza7_82);
						BgL_sza7za7_5729 = (long) (BgL_tmpz00_9269);
					}
				else
					{	/* Ieee/input.scm 544 */
						if (ELONGP(BgL_siza7eza7_82))
							{	/* Ieee/input.scm 545 */
								BgL_sza7za7_5729 = BELONG_TO_LONG(BgL_siza7eza7_82);
							}
						else
							{	/* Ieee/input.scm 546 */
								obj_t BgL_tmpz00_9275;

								BgL_tmpz00_9275 =
									BGl_errorz00zz__errorz00
									(BGl_symbol3673z00zz__r4_input_6_10_2z00,
									BGl_string3675z00zz__r4_input_6_10_2z00, BgL_siza7eza7_82);
								BgL_sza7za7_5729 = BELONG_TO_LONG(BgL_tmpz00_9275);
							}
					}
				if (INTEGERP(BgL_offsetz00_83))
					{	/* Ieee/input.scm 548 */
						long BgL_tmpz00_9280;

						BgL_tmpz00_9280 = (long) CINT(BgL_offsetz00_83);
						BgL_offz00_5730 = (long) (BgL_tmpz00_9280);
					}
				else
					{	/* Ieee/input.scm 548 */
						if (ELONGP(BgL_offsetz00_83))
							{	/* Ieee/input.scm 549 */
								BgL_offz00_5730 = BELONG_TO_LONG(BgL_offsetz00_83);
							}
						else
							{	/* Ieee/input.scm 550 */
								obj_t BgL_tmpz00_9286;

								BgL_tmpz00_9286 =
									BGl_errorz00zz__errorz00
									(BGl_symbol3673z00zz__r4_input_6_10_2z00,
									BGl_string3676z00zz__r4_input_6_10_2z00, BgL_offsetz00_83);
								BgL_offz00_5730 = BELONG_TO_LONG(BgL_tmpz00_9286);
							}
					}
				{	/* Ieee/input.scm 551 */
					long BgL_res3373z00_5751;

					{	/* Ieee/input.scm 521 */
						long BgL_sza7za7_5741;
						long BgL_offz00_5742;

						BgL_sza7za7_5741 = (long) (BgL_sza7za7_5729);
						BgL_offz00_5742 = (long) (BgL_offz00_5730);
						{	/* Ieee/input.scm 525 */
							obj_t BgL__ortest_1141z00_5743;

							BgL__ortest_1141z00_5743 =
								bgl_sendchars(BgL_ipz00_80, BgL_opz00_81, BgL_sza7za7_5741,
								BgL_offz00_5742);
							if (CBOOL(BgL__ortest_1141z00_5743))
								{	/* Ieee/input.scm 525 */
									BgL_res3373z00_5751 = (long) CINT(BgL__ortest_1141z00_5743);
								}
							else
								{	/* Ieee/input.scm 527 */
									bool_t BgL_test4060z00_9295;

									if (INPUT_GZIP_PORTP(BgL_ipz00_80))
										{	/* Ieee/input.scm 527 */
											if ((BgL_sza7za7_5741 == (-1L)))
												{	/* Ieee/input.scm 527 */
													BgL_test4060z00_9295 = (BgL_offz00_5742 == (-1L));
												}
											else
												{	/* Ieee/input.scm 527 */
													BgL_test4060z00_9295 = ((bool_t) 0);
												}
										}
									else
										{	/* Ieee/input.scm 527 */
											BgL_test4060z00_9295 = ((bool_t) 0);
										}
									if (BgL_test4060z00_9295)
										{	/* Ieee/input.scm 527 */
											BgL_res3373z00_5751 =
												(long)
												CINT(BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7
												(BgL_ipz00_80, BgL_opz00_81));
										}
									else
										{	/* Ieee/input.scm 527 */
											BgL_res3373z00_5751 =
												(long) (BGl_z52sendcharsz52zz__r4_input_6_10_2z00
												(BgL_ipz00_80, BgL_opz00_81, BgL_sza7za7_5741,
													BgL_offz00_5742));
					}}}}
					return BgL_res3373z00_5751;
				}
			}
		}

	}



/* _send-file */
	obj_t BGl__sendzd2filezd2zz__r4_input_6_10_2z00(obj_t BgL_env1322z00_91,
		obj_t BgL_opt1321z00_90)
	{
		{	/* Ieee/input.scm 556 */
			{	/* Ieee/input.scm 556 */
				obj_t BgL_filez00_3566;
				obj_t BgL_opz00_3567;

				{
					obj_t BgL_auxz00_9305;

					if (VECTORP(BgL_opt1321z00_90))
						{	/* Ieee/input.scm 556 */
							BgL_auxz00_9305 = BgL_opt1321z00_90;
						}
					else
						{
							obj_t BgL_auxz00_9308;

							BgL_auxz00_9308 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(21451L),
								BGl_string3677z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1321z00_90);
							FAILURE(BgL_auxz00_9308, BFALSE, BFALSE);
						}
					BgL_filez00_3566 = VECTOR_REF(BgL_auxz00_9305, 0L);
				}
				{
					obj_t BgL_auxz00_9313;

					if (VECTORP(BgL_opt1321z00_90))
						{	/* Ieee/input.scm 556 */
							BgL_auxz00_9313 = BgL_opt1321z00_90;
						}
					else
						{
							obj_t BgL_auxz00_9316;

							BgL_auxz00_9316 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(21451L),
								BGl_string3677z00zz__r4_input_6_10_2z00,
								BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1321z00_90);
							FAILURE(BgL_auxz00_9316, BFALSE, BFALSE);
						}
					BgL_opz00_3567 = VECTOR_REF(BgL_auxz00_9313, 1L);
				}
				{	/* Ieee/input.scm 556 */
					long BgL_aux1324z00_3569;

					{
						obj_t BgL_auxz00_9321;

						if (VECTORP(BgL_opt1321z00_90))
							{	/* Ieee/input.scm 556 */
								BgL_auxz00_9321 = BgL_opt1321z00_90;
							}
						else
							{
								obj_t BgL_auxz00_9324;

								BgL_auxz00_9324 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(21451L),
									BGl_string3677z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1321z00_90);
								FAILURE(BgL_auxz00_9324, BFALSE, BFALSE);
							}
						BgL_aux1324z00_3569 = VECTOR_LENGTH(BgL_auxz00_9321);
					}
					switch (BgL_aux1324z00_3569)
						{
						case 2L:

							{	/* Ieee/input.scm 556 */

								{	/* Ieee/input.scm 556 */
									long BgL_res3374z00_5777;

									{	/* Ieee/input.scm 556 */
										obj_t BgL_filez00_5752;
										obj_t BgL_opz00_5753;

										if (STRINGP(BgL_filez00_3566))
											{	/* Ieee/input.scm 556 */
												BgL_filez00_5752 = BgL_filez00_3566;
											}
										else
											{
												obj_t BgL_auxz00_9331;

												BgL_auxz00_9331 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(21451L), BGl_string3677z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_filez00_3566);
												FAILURE(BgL_auxz00_9331, BFALSE, BFALSE);
											}
										if (OUTPUT_PORTP(BgL_opz00_3567))
											{	/* Ieee/input.scm 556 */
												BgL_opz00_5753 = BgL_opz00_3567;
											}
										else
											{
												obj_t BgL_auxz00_9337;

												BgL_auxz00_9337 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(21451L), BGl_string3677z00zz__r4_input_6_10_2z00,
													BGl_string3670z00zz__r4_input_6_10_2z00,
													BgL_opz00_3567);
												FAILURE(BgL_auxz00_9337, BFALSE, BFALSE);
											}
										{	/* Ieee/input.scm 560 */
											long BgL_sza7za7_5756;
											long BgL_offz00_5757;

											BgL_sza7za7_5756 = (long) (((long) -1));
											BgL_offz00_5757 = (long) (((long) -1));
											{	/* Ieee/input.scm 564 */
												obj_t BgL__ortest_1144z00_5758;

												BgL__ortest_1144z00_5758 =
													bgl_sendfile(BgL_filez00_5752, BgL_opz00_5753,
													(long) (((long) -1)), (long) (((long) -1)));
												if (CBOOL(BgL__ortest_1144z00_5758))
													{	/* Ieee/input.scm 564 */
														obj_t BgL_tmpz00_9348;

														if (INTEGERP(BgL__ortest_1144z00_5758))
															{	/* Ieee/input.scm 564 */
																BgL_tmpz00_9348 = BgL__ortest_1144z00_5758;
															}
														else
															{
																obj_t BgL_auxz00_9351;

																BgL_auxz00_9351 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3623z00zz__r4_input_6_10_2z00,
																	BINT(21690L),
																	BGl_string3677z00zz__r4_input_6_10_2z00,
																	BGl_string3650z00zz__r4_input_6_10_2z00,
																	BgL__ortest_1144z00_5758);
																FAILURE(BgL_auxz00_9351, BFALSE, BFALSE);
															}
														BgL_res3374z00_5777 = (long) CINT(BgL_tmpz00_9348);
													}
												else
													{	/* Ieee/input.scm 565 */
														obj_t BgL_ipz00_5759;

														{	/* Ieee/input.scm 565 */

															BgL_ipz00_5759 =
																BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
																(BgL_filez00_5752, BTRUE, BINT(5000000L));
														}
														{	/* Ieee/input.scm 566 */
															obj_t BgL_exitd1145z00_5763;

															BgL_exitd1145z00_5763 = BGL_EXITD_TOP_AS_OBJ();
															{	/* Ieee/input.scm 568 */
																obj_t BgL_zc3z04anonymousza32579ze3z87_6296;

																BgL_zc3z04anonymousza32579ze3z87_6296 =
																	MAKE_FX_PROCEDURE
																	(BGl_z62zc3z04anonymousza32579ze33382ze5zz__r4_input_6_10_2z00,
																	(int) (0L), (int) (1L));
																PROCEDURE_SET
																	(BgL_zc3z04anonymousza32579ze3z87_6296,
																	(int) (0L), BgL_ipz00_5759);
																{	/* Ieee/input.scm 566 */
																	obj_t BgL_arg3337z00_5769;

																	{	/* Ieee/input.scm 566 */
																		obj_t BgL_arg3338z00_5770;

																		BgL_arg3338z00_5770 =
																			BGL_EXITD_PROTECT(BgL_exitd1145z00_5763);
																		BgL_arg3337z00_5769 =
																			MAKE_YOUNG_PAIR
																			(BgL_zc3z04anonymousza32579ze3z87_6296,
																			BgL_arg3338z00_5770);
																	}
																	BGL_EXITD_PROTECT_SET(BgL_exitd1145z00_5763,
																		BgL_arg3337z00_5769);
																	BUNSPEC;
																}
																{	/* Ieee/input.scm 567 */
																	long BgL_tmp1147z00_5765;

																	{	/* Ieee/input.scm 567 */
																		obj_t BgL_auxz00_9367;

																		if (INPUT_PORTP(BgL_ipz00_5759))
																			{	/* Ieee/input.scm 567 */
																				BgL_auxz00_9367 = BgL_ipz00_5759;
																			}
																		else
																			{
																				obj_t BgL_auxz00_9370;

																				BgL_auxz00_9370 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3623z00zz__r4_input_6_10_2z00,
																					BINT(21806L),
																					BGl_string3677z00zz__r4_input_6_10_2z00,
																					BGl_string3626z00zz__r4_input_6_10_2z00,
																					BgL_ipz00_5759);
																				FAILURE(BgL_auxz00_9370, BFALSE,
																					BFALSE);
																			}
																		BgL_tmp1147z00_5765 =
																			BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
																			(BgL_auxz00_9367, BgL_opz00_5753,
																			((long) -1), ((long) -1));
																	}
																	{	/* Ieee/input.scm 566 */
																		bool_t BgL_test4071z00_9375;

																		{	/* Ieee/input.scm 566 */
																			obj_t BgL_arg3336z00_5772;

																			BgL_arg3336z00_5772 =
																				BGL_EXITD_PROTECT
																				(BgL_exitd1145z00_5763);
																			BgL_test4071z00_9375 =
																				PAIRP(BgL_arg3336z00_5772);
																		}
																		if (BgL_test4071z00_9375)
																			{	/* Ieee/input.scm 566 */
																				obj_t BgL_arg3333z00_5773;

																				{	/* Ieee/input.scm 566 */
																					obj_t BgL_arg3335z00_5774;

																					BgL_arg3335z00_5774 =
																						BGL_EXITD_PROTECT
																						(BgL_exitd1145z00_5763);
																					{	/* Ieee/input.scm 566 */
																						obj_t BgL_pairz00_5775;

																						if (PAIRP(BgL_arg3335z00_5774))
																							{	/* Ieee/input.scm 566 */
																								BgL_pairz00_5775 =
																									BgL_arg3335z00_5774;
																							}
																						else
																							{
																								obj_t BgL_auxz00_9381;

																								BgL_auxz00_9381 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3623z00zz__r4_input_6_10_2z00,
																									BINT(21767L),
																									BGl_string3677z00zz__r4_input_6_10_2z00,
																									BGl_string3678z00zz__r4_input_6_10_2z00,
																									BgL_arg3335z00_5774);
																								FAILURE(BgL_auxz00_9381, BFALSE,
																									BFALSE);
																							}
																						BgL_arg3333z00_5773 =
																							CDR(BgL_pairz00_5775);
																					}
																				}
																				BGL_EXITD_PROTECT_SET
																					(BgL_exitd1145z00_5763,
																					BgL_arg3333z00_5773);
																				BUNSPEC;
																			}
																		else
																			{	/* Ieee/input.scm 566 */
																				BFALSE;
																			}
																	}
																	{	/* Ieee/input.scm 568 */
																		obj_t BgL_portz00_5776;

																		if (INPUT_PORTP(BgL_ipz00_5759))
																			{	/* Ieee/input.scm 568 */
																				BgL_portz00_5776 = BgL_ipz00_5759;
																			}
																		else
																			{
																				obj_t BgL_auxz00_9389;

																				BgL_auxz00_9389 =
																					BGl_typezd2errorzd2zz__errorz00
																					(BGl_string3623z00zz__r4_input_6_10_2z00,
																					BINT(21849L),
																					BGl_string3677z00zz__r4_input_6_10_2z00,
																					BGl_string3626z00zz__r4_input_6_10_2z00,
																					BgL_ipz00_5759);
																				FAILURE(BgL_auxz00_9389, BFALSE,
																					BFALSE);
																			}
																		bgl_close_input_port(BgL_portz00_5776);
																	}
																	BgL_res3374z00_5777 = BgL_tmp1147z00_5765;
																}
															}
														}
													}
											}
										}
									}
									return BINT(BgL_res3374z00_5777);
								}
							}
							break;
						case 3L:

							{	/* Ieee/input.scm 556 */
								obj_t BgL_siza7eza7_3572;

								{
									obj_t BgL_auxz00_9395;

									if (VECTORP(BgL_opt1321z00_90))
										{	/* Ieee/input.scm 556 */
											BgL_auxz00_9395 = BgL_opt1321z00_90;
										}
									else
										{
											obj_t BgL_auxz00_9398;

											BgL_auxz00_9398 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(21451L),
												BGl_string3677z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1321z00_90);
											FAILURE(BgL_auxz00_9398, BFALSE, BFALSE);
										}
									BgL_siza7eza7_3572 = VECTOR_REF(BgL_auxz00_9395, 2L);
								}
								{	/* Ieee/input.scm 556 */

									{	/* Ieee/input.scm 556 */
										long BgL_res3375z00_5803;

										{	/* Ieee/input.scm 556 */
											obj_t BgL_filez00_5778;
											obj_t BgL_opz00_5779;
											long BgL_siza7eza7_5780;

											if (STRINGP(BgL_filez00_3566))
												{	/* Ieee/input.scm 556 */
													BgL_filez00_5778 = BgL_filez00_3566;
												}
											else
												{
													obj_t BgL_auxz00_9405;

													BgL_auxz00_9405 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(21451L),
														BGl_string3677z00zz__r4_input_6_10_2z00,
														BGl_string3646z00zz__r4_input_6_10_2z00,
														BgL_filez00_3566);
													FAILURE(BgL_auxz00_9405, BFALSE, BFALSE);
												}
											if (OUTPUT_PORTP(BgL_opz00_3567))
												{	/* Ieee/input.scm 556 */
													BgL_opz00_5779 = BgL_opz00_3567;
												}
											else
												{
													obj_t BgL_auxz00_9411;

													BgL_auxz00_9411 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3623z00zz__r4_input_6_10_2z00,
														BINT(21451L),
														BGl_string3677z00zz__r4_input_6_10_2z00,
														BGl_string3670z00zz__r4_input_6_10_2z00,
														BgL_opz00_3567);
													FAILURE(BgL_auxz00_9411, BFALSE, BFALSE);
												}
											{	/* Ieee/input.scm 556 */
												obj_t BgL_tmpz00_9415;

												if (ELONGP(BgL_siza7eza7_3572))
													{	/* Ieee/input.scm 556 */
														BgL_tmpz00_9415 = BgL_siza7eza7_3572;
													}
												else
													{
														obj_t BgL_auxz00_9418;

														BgL_auxz00_9418 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3623z00zz__r4_input_6_10_2z00,
															BINT(21451L),
															BGl_string3677z00zz__r4_input_6_10_2z00,
															BGl_string3671z00zz__r4_input_6_10_2z00,
															BgL_siza7eza7_3572);
														FAILURE(BgL_auxz00_9418, BFALSE, BFALSE);
													}
												BgL_siza7eza7_5780 = BELONG_TO_LONG(BgL_tmpz00_9415);
											}
											{	/* Ieee/input.scm 560 */
												long BgL_sza7za7_5782;
												long BgL_offz00_5783;

												BgL_sza7za7_5782 = (long) (BgL_siza7eza7_5780);
												BgL_offz00_5783 = (long) (((long) -1));
												{	/* Ieee/input.scm 564 */
													obj_t BgL__ortest_1144z00_5784;

													BgL__ortest_1144z00_5784 =
														bgl_sendfile(BgL_filez00_5778, BgL_opz00_5779,
														(long) (BgL_siza7eza7_5780), (long) (((long) -1)));
													if (CBOOL(BgL__ortest_1144z00_5784))
														{	/* Ieee/input.scm 564 */
															obj_t BgL_tmpz00_9430;

															if (INTEGERP(BgL__ortest_1144z00_5784))
																{	/* Ieee/input.scm 564 */
																	BgL_tmpz00_9430 = BgL__ortest_1144z00_5784;
																}
															else
																{
																	obj_t BgL_auxz00_9433;

																	BgL_auxz00_9433 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3623z00zz__r4_input_6_10_2z00,
																		BINT(21690L),
																		BGl_string3677z00zz__r4_input_6_10_2z00,
																		BGl_string3650z00zz__r4_input_6_10_2z00,
																		BgL__ortest_1144z00_5784);
																	FAILURE(BgL_auxz00_9433, BFALSE, BFALSE);
																}
															BgL_res3375z00_5803 =
																(long) CINT(BgL_tmpz00_9430);
														}
													else
														{	/* Ieee/input.scm 565 */
															obj_t BgL_ipz00_5785;

															{	/* Ieee/input.scm 565 */

																BgL_ipz00_5785 =
																	BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
																	(BgL_filez00_5778, BTRUE, BINT(5000000L));
															}
															{	/* Ieee/input.scm 566 */
																obj_t BgL_exitd1145z00_5789;

																BgL_exitd1145z00_5789 = BGL_EXITD_TOP_AS_OBJ();
																{	/* Ieee/input.scm 568 */
																	obj_t BgL_zc3z04anonymousza32579ze3z87_6295;

																	BgL_zc3z04anonymousza32579ze3z87_6295 =
																		MAKE_FX_PROCEDURE
																		(BGl_z62zc3z04anonymousza32579ze33381ze5zz__r4_input_6_10_2z00,
																		(int) (0L), (int) (1L));
																	PROCEDURE_SET
																		(BgL_zc3z04anonymousza32579ze3z87_6295,
																		(int) (0L), BgL_ipz00_5785);
																	{	/* Ieee/input.scm 566 */
																		obj_t BgL_arg3337z00_5795;

																		{	/* Ieee/input.scm 566 */
																			obj_t BgL_arg3338z00_5796;

																			BgL_arg3338z00_5796 =
																				BGL_EXITD_PROTECT
																				(BgL_exitd1145z00_5789);
																			BgL_arg3337z00_5795 =
																				MAKE_YOUNG_PAIR
																				(BgL_zc3z04anonymousza32579ze3z87_6295,
																				BgL_arg3338z00_5796);
																		}
																		BGL_EXITD_PROTECT_SET(BgL_exitd1145z00_5789,
																			BgL_arg3337z00_5795);
																		BUNSPEC;
																	}
																	{	/* Ieee/input.scm 567 */
																		long BgL_tmp1147z00_5791;

																		{	/* Ieee/input.scm 567 */
																			obj_t BgL_auxz00_9449;

																			if (INPUT_PORTP(BgL_ipz00_5785))
																				{	/* Ieee/input.scm 567 */
																					BgL_auxz00_9449 = BgL_ipz00_5785;
																				}
																			else
																				{
																					obj_t BgL_auxz00_9452;

																					BgL_auxz00_9452 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3623z00zz__r4_input_6_10_2z00,
																						BINT(21806L),
																						BGl_string3677z00zz__r4_input_6_10_2z00,
																						BGl_string3626z00zz__r4_input_6_10_2z00,
																						BgL_ipz00_5785);
																					FAILURE(BgL_auxz00_9452, BFALSE,
																						BFALSE);
																				}
																			BgL_tmp1147z00_5791 =
																				BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
																				(BgL_auxz00_9449, BgL_opz00_5779,
																				BgL_siza7eza7_5780, ((long) -1));
																		}
																		{	/* Ieee/input.scm 566 */
																			bool_t BgL_test4081z00_9457;

																			{	/* Ieee/input.scm 566 */
																				obj_t BgL_arg3336z00_5798;

																				BgL_arg3336z00_5798 =
																					BGL_EXITD_PROTECT
																					(BgL_exitd1145z00_5789);
																				BgL_test4081z00_9457 =
																					PAIRP(BgL_arg3336z00_5798);
																			}
																			if (BgL_test4081z00_9457)
																				{	/* Ieee/input.scm 566 */
																					obj_t BgL_arg3333z00_5799;

																					{	/* Ieee/input.scm 566 */
																						obj_t BgL_arg3335z00_5800;

																						BgL_arg3335z00_5800 =
																							BGL_EXITD_PROTECT
																							(BgL_exitd1145z00_5789);
																						{	/* Ieee/input.scm 566 */
																							obj_t BgL_pairz00_5801;

																							if (PAIRP(BgL_arg3335z00_5800))
																								{	/* Ieee/input.scm 566 */
																									BgL_pairz00_5801 =
																										BgL_arg3335z00_5800;
																								}
																							else
																								{
																									obj_t BgL_auxz00_9463;

																									BgL_auxz00_9463 =
																										BGl_typezd2errorzd2zz__errorz00
																										(BGl_string3623z00zz__r4_input_6_10_2z00,
																										BINT(21767L),
																										BGl_string3677z00zz__r4_input_6_10_2z00,
																										BGl_string3678z00zz__r4_input_6_10_2z00,
																										BgL_arg3335z00_5800);
																									FAILURE(BgL_auxz00_9463,
																										BFALSE, BFALSE);
																								}
																							BgL_arg3333z00_5799 =
																								CDR(BgL_pairz00_5801);
																						}
																					}
																					BGL_EXITD_PROTECT_SET
																						(BgL_exitd1145z00_5789,
																						BgL_arg3333z00_5799);
																					BUNSPEC;
																				}
																			else
																				{	/* Ieee/input.scm 566 */
																					BFALSE;
																				}
																		}
																		{	/* Ieee/input.scm 568 */
																			obj_t BgL_portz00_5802;

																			if (INPUT_PORTP(BgL_ipz00_5785))
																				{	/* Ieee/input.scm 568 */
																					BgL_portz00_5802 = BgL_ipz00_5785;
																				}
																			else
																				{
																					obj_t BgL_auxz00_9471;

																					BgL_auxz00_9471 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3623z00zz__r4_input_6_10_2z00,
																						BINT(21849L),
																						BGl_string3677z00zz__r4_input_6_10_2z00,
																						BGl_string3626z00zz__r4_input_6_10_2z00,
																						BgL_ipz00_5785);
																					FAILURE(BgL_auxz00_9471, BFALSE,
																						BFALSE);
																				}
																			bgl_close_input_port(BgL_portz00_5802);
																		}
																		BgL_res3375z00_5803 = BgL_tmp1147z00_5791;
																	}
																}
															}
														}
												}
											}
										}
										return BINT(BgL_res3375z00_5803);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/input.scm 556 */
								obj_t BgL_siza7eza7_3574;

								{
									obj_t BgL_auxz00_9477;

									if (VECTORP(BgL_opt1321z00_90))
										{	/* Ieee/input.scm 556 */
											BgL_auxz00_9477 = BgL_opt1321z00_90;
										}
									else
										{
											obj_t BgL_auxz00_9480;

											BgL_auxz00_9480 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(21451L),
												BGl_string3677z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1321z00_90);
											FAILURE(BgL_auxz00_9480, BFALSE, BFALSE);
										}
									BgL_siza7eza7_3574 = VECTOR_REF(BgL_auxz00_9477, 2L);
								}
								{	/* Ieee/input.scm 556 */
									obj_t BgL_offsetz00_3575;

									{
										obj_t BgL_auxz00_9485;

										if (VECTORP(BgL_opt1321z00_90))
											{	/* Ieee/input.scm 556 */
												BgL_auxz00_9485 = BgL_opt1321z00_90;
											}
										else
											{
												obj_t BgL_auxz00_9488;

												BgL_auxz00_9488 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(21451L), BGl_string3677z00zz__r4_input_6_10_2z00,
													BGl_string3629z00zz__r4_input_6_10_2z00,
													BgL_opt1321z00_90);
												FAILURE(BgL_auxz00_9488, BFALSE, BFALSE);
											}
										BgL_offsetz00_3575 = VECTOR_REF(BgL_auxz00_9485, 3L);
									}
									{	/* Ieee/input.scm 556 */

										{	/* Ieee/input.scm 556 */
											long BgL_res3376z00_5829;

											{	/* Ieee/input.scm 556 */
												obj_t BgL_filez00_5804;
												obj_t BgL_opz00_5805;
												long BgL_siza7eza7_5806;
												long BgL_offsetz00_5807;

												if (STRINGP(BgL_filez00_3566))
													{	/* Ieee/input.scm 556 */
														BgL_filez00_5804 = BgL_filez00_3566;
													}
												else
													{
														obj_t BgL_auxz00_9495;

														BgL_auxz00_9495 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3623z00zz__r4_input_6_10_2z00,
															BINT(21451L),
															BGl_string3677z00zz__r4_input_6_10_2z00,
															BGl_string3646z00zz__r4_input_6_10_2z00,
															BgL_filez00_3566);
														FAILURE(BgL_auxz00_9495, BFALSE, BFALSE);
													}
												if (OUTPUT_PORTP(BgL_opz00_3567))
													{	/* Ieee/input.scm 556 */
														BgL_opz00_5805 = BgL_opz00_3567;
													}
												else
													{
														obj_t BgL_auxz00_9501;

														BgL_auxz00_9501 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3623z00zz__r4_input_6_10_2z00,
															BINT(21451L),
															BGl_string3677z00zz__r4_input_6_10_2z00,
															BGl_string3670z00zz__r4_input_6_10_2z00,
															BgL_opz00_3567);
														FAILURE(BgL_auxz00_9501, BFALSE, BFALSE);
													}
												{	/* Ieee/input.scm 556 */
													obj_t BgL_tmpz00_9505;

													if (ELONGP(BgL_siza7eza7_3574))
														{	/* Ieee/input.scm 556 */
															BgL_tmpz00_9505 = BgL_siza7eza7_3574;
														}
													else
														{
															obj_t BgL_auxz00_9508;

															BgL_auxz00_9508 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3623z00zz__r4_input_6_10_2z00,
																BINT(21451L),
																BGl_string3677z00zz__r4_input_6_10_2z00,
																BGl_string3671z00zz__r4_input_6_10_2z00,
																BgL_siza7eza7_3574);
															FAILURE(BgL_auxz00_9508, BFALSE, BFALSE);
														}
													BgL_siza7eza7_5806 = BELONG_TO_LONG(BgL_tmpz00_9505);
												}
												{	/* Ieee/input.scm 556 */
													obj_t BgL_tmpz00_9513;

													if (ELONGP(BgL_offsetz00_3575))
														{	/* Ieee/input.scm 556 */
															BgL_tmpz00_9513 = BgL_offsetz00_3575;
														}
													else
														{
															obj_t BgL_auxz00_9516;

															BgL_auxz00_9516 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3623z00zz__r4_input_6_10_2z00,
																BINT(21451L),
																BGl_string3677z00zz__r4_input_6_10_2z00,
																BGl_string3671z00zz__r4_input_6_10_2z00,
																BgL_offsetz00_3575);
															FAILURE(BgL_auxz00_9516, BFALSE, BFALSE);
														}
													BgL_offsetz00_5807 = BELONG_TO_LONG(BgL_tmpz00_9513);
												}
												{	/* Ieee/input.scm 560 */
													long BgL_sza7za7_5808;
													long BgL_offz00_5809;

													BgL_sza7za7_5808 = (long) (BgL_siza7eza7_5806);
													BgL_offz00_5809 = (long) (BgL_offsetz00_5807);
													{	/* Ieee/input.scm 564 */
														obj_t BgL__ortest_1144z00_5810;

														BgL__ortest_1144z00_5810 =
															bgl_sendfile(BgL_filez00_5804, BgL_opz00_5805,
															(long) (BgL_siza7eza7_5806),
															(long) (BgL_offsetz00_5807));
														if (CBOOL(BgL__ortest_1144z00_5810))
															{	/* Ieee/input.scm 564 */
																obj_t BgL_tmpz00_9528;

																if (INTEGERP(BgL__ortest_1144z00_5810))
																	{	/* Ieee/input.scm 564 */
																		BgL_tmpz00_9528 = BgL__ortest_1144z00_5810;
																	}
																else
																	{
																		obj_t BgL_auxz00_9531;

																		BgL_auxz00_9531 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3623z00zz__r4_input_6_10_2z00,
																			BINT(21690L),
																			BGl_string3677z00zz__r4_input_6_10_2z00,
																			BGl_string3650z00zz__r4_input_6_10_2z00,
																			BgL__ortest_1144z00_5810);
																		FAILURE(BgL_auxz00_9531, BFALSE, BFALSE);
																	}
																BgL_res3376z00_5829 =
																	(long) CINT(BgL_tmpz00_9528);
															}
														else
															{	/* Ieee/input.scm 565 */
																obj_t BgL_ipz00_5811;

																{	/* Ieee/input.scm 565 */

																	BgL_ipz00_5811 =
																		BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
																		(BgL_filez00_5804, BTRUE, BINT(5000000L));
																}
																{	/* Ieee/input.scm 566 */
																	obj_t BgL_exitd1145z00_5815;

																	BgL_exitd1145z00_5815 =
																		BGL_EXITD_TOP_AS_OBJ();
																	{	/* Ieee/input.scm 568 */
																		obj_t BgL_zc3z04anonymousza32579ze3z87_6294;

																		BgL_zc3z04anonymousza32579ze3z87_6294 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza32579ze3ze5zz__r4_input_6_10_2z00,
																			(int) (0L), (int) (1L));
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza32579ze3z87_6294,
																			(int) (0L), BgL_ipz00_5811);
																		{	/* Ieee/input.scm 566 */
																			obj_t BgL_arg3337z00_5821;

																			{	/* Ieee/input.scm 566 */
																				obj_t BgL_arg3338z00_5822;

																				BgL_arg3338z00_5822 =
																					BGL_EXITD_PROTECT
																					(BgL_exitd1145z00_5815);
																				BgL_arg3337z00_5821 =
																					MAKE_YOUNG_PAIR
																					(BgL_zc3z04anonymousza32579ze3z87_6294,
																					BgL_arg3338z00_5822);
																			}
																			BGL_EXITD_PROTECT_SET
																				(BgL_exitd1145z00_5815,
																				BgL_arg3337z00_5821);
																			BUNSPEC;
																		}
																		{	/* Ieee/input.scm 567 */
																			long BgL_tmp1147z00_5817;

																			{	/* Ieee/input.scm 567 */
																				obj_t BgL_auxz00_9547;

																				if (INPUT_PORTP(BgL_ipz00_5811))
																					{	/* Ieee/input.scm 567 */
																						BgL_auxz00_9547 = BgL_ipz00_5811;
																					}
																				else
																					{
																						obj_t BgL_auxz00_9550;

																						BgL_auxz00_9550 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3623z00zz__r4_input_6_10_2z00,
																							BINT(21806L),
																							BGl_string3677z00zz__r4_input_6_10_2z00,
																							BGl_string3626z00zz__r4_input_6_10_2z00,
																							BgL_ipz00_5811);
																						FAILURE(BgL_auxz00_9550, BFALSE,
																							BFALSE);
																					}
																				BgL_tmp1147z00_5817 =
																					BGl_sendzd2charszf2siza7ez87zz__r4_input_6_10_2z00
																					(BgL_auxz00_9547, BgL_opz00_5805,
																					BgL_siza7eza7_5806,
																					BgL_offsetz00_5807);
																			}
																			{	/* Ieee/input.scm 566 */
																				bool_t BgL_test4093z00_9555;

																				{	/* Ieee/input.scm 566 */
																					obj_t BgL_arg3336z00_5824;

																					BgL_arg3336z00_5824 =
																						BGL_EXITD_PROTECT
																						(BgL_exitd1145z00_5815);
																					BgL_test4093z00_9555 =
																						PAIRP(BgL_arg3336z00_5824);
																				}
																				if (BgL_test4093z00_9555)
																					{	/* Ieee/input.scm 566 */
																						obj_t BgL_arg3333z00_5825;

																						{	/* Ieee/input.scm 566 */
																							obj_t BgL_arg3335z00_5826;

																							BgL_arg3335z00_5826 =
																								BGL_EXITD_PROTECT
																								(BgL_exitd1145z00_5815);
																							{	/* Ieee/input.scm 566 */
																								obj_t BgL_pairz00_5827;

																								if (PAIRP(BgL_arg3335z00_5826))
																									{	/* Ieee/input.scm 566 */
																										BgL_pairz00_5827 =
																											BgL_arg3335z00_5826;
																									}
																								else
																									{
																										obj_t BgL_auxz00_9561;

																										BgL_auxz00_9561 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string3623z00zz__r4_input_6_10_2z00,
																											BINT(21767L),
																											BGl_string3677z00zz__r4_input_6_10_2z00,
																											BGl_string3678z00zz__r4_input_6_10_2z00,
																											BgL_arg3335z00_5826);
																										FAILURE(BgL_auxz00_9561,
																											BFALSE, BFALSE);
																									}
																								BgL_arg3333z00_5825 =
																									CDR(BgL_pairz00_5827);
																							}
																						}
																						BGL_EXITD_PROTECT_SET
																							(BgL_exitd1145z00_5815,
																							BgL_arg3333z00_5825);
																						BUNSPEC;
																					}
																				else
																					{	/* Ieee/input.scm 566 */
																						BFALSE;
																					}
																			}
																			{	/* Ieee/input.scm 568 */
																				obj_t BgL_portz00_5828;

																				if (INPUT_PORTP(BgL_ipz00_5811))
																					{	/* Ieee/input.scm 568 */
																						BgL_portz00_5828 = BgL_ipz00_5811;
																					}
																				else
																					{
																						obj_t BgL_auxz00_9569;

																						BgL_auxz00_9569 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3623z00zz__r4_input_6_10_2z00,
																							BINT(21849L),
																							BGl_string3677z00zz__r4_input_6_10_2z00,
																							BGl_string3626z00zz__r4_input_6_10_2z00,
																							BgL_ipz00_5811);
																						FAILURE(BgL_auxz00_9569, BFALSE,
																							BFALSE);
																					}
																				bgl_close_input_port(BgL_portz00_5828);
																			}
																			BgL_res3376z00_5829 = BgL_tmp1147z00_5817;
																		}
																	}
																}
															}
													}
												}
											}
											return BINT(BgL_res3376z00_5829);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* &<@anonymous:2579> */
	obj_t BGl_z62zc3z04anonymousza32579ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6297)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6298;

				BgL_ipz00_6298 = PROCEDURE_REF(BgL_envz00_6297, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6298));
			}
		}

	}



/* &<@anonymous:2579>3381 */
	obj_t BGl_z62zc3z04anonymousza32579ze33381ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6299)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6300;

				BgL_ipz00_6300 = PROCEDURE_REF(BgL_envz00_6299, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6300));
			}
		}

	}



/* &<@anonymous:2579>3382 */
	obj_t BGl_z62zc3z04anonymousza32579ze33382ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6301)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6302;

				BgL_ipz00_6302 = PROCEDURE_REF(BgL_envz00_6301, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6302));
			}
		}

	}



/* 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_5830;
				long BgL_offz00_5831;

				BgL_sza7za7_5830 = (long) (BgL_siza7eza7_88);
				BgL_offz00_5831 = (long) (BgL_offsetz00_89);
				{	/* Ieee/input.scm 564 */
					obj_t BgL__ortest_1144z00_5832;

					BgL__ortest_1144z00_5832 =
						bgl_sendfile(BgL_filez00_86, BgL_opz00_87,
						(long) (BgL_siza7eza7_88), (long) (BgL_offsetz00_89));
					if (CBOOL(BgL__ortest_1144z00_5832))
						{	/* Ieee/input.scm 564 */
							return (long) CINT(BgL__ortest_1144z00_5832);
						}
					else
						{	/* Ieee/input.scm 565 */
							obj_t BgL_ipz00_5833;

							{	/* Ieee/input.scm 565 */

								BgL_ipz00_5833 =
									BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
									(BgL_filez00_86, BTRUE, BINT(5000000L));
							}
							{	/* Ieee/input.scm 566 */
								obj_t BgL_exitd1145z00_5837;

								BgL_exitd1145z00_5837 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Ieee/input.scm 568 */
									obj_t BgL_zc3z04anonymousza32579ze3z87_6303;

									BgL_zc3z04anonymousza32579ze3z87_6303 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza32579ze33383ze5zz__r4_input_6_10_2z00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza32579ze3z87_6303,
										(int) (0L), BgL_ipz00_5833);
									{	/* Ieee/input.scm 566 */
										obj_t BgL_arg3337z00_5843;

										{	/* Ieee/input.scm 566 */
											obj_t BgL_arg3338z00_5844;

											BgL_arg3338z00_5844 =
												BGL_EXITD_PROTECT(BgL_exitd1145z00_5837);
											BgL_arg3337z00_5843 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza32579ze3z87_6303,
												BgL_arg3338z00_5844);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1145z00_5837,
											BgL_arg3337z00_5843);
										BUNSPEC;
									}
									{	/* Ieee/input.scm 567 */
										long BgL_tmp1147z00_5839;

										{	/* Ieee/input.scm 567 */
											long BgL_res3377z00_5859;

											{	/* Ieee/input.scm 521 */
												long BgL_sza7za7_5849;
												long BgL_offz00_5850;

												BgL_sza7za7_5849 = (long) (BgL_siza7eza7_88);
												BgL_offz00_5850 = (long) (BgL_offsetz00_89);
												{	/* Ieee/input.scm 525 */
													obj_t BgL__ortest_1141z00_5851;

													BgL__ortest_1141z00_5851 =
														bgl_sendchars(
														((obj_t) BgL_ipz00_5833), BgL_opz00_87,
														BgL_sza7za7_5849, BgL_offz00_5850);
													if (CBOOL(BgL__ortest_1141z00_5851))
														{	/* Ieee/input.scm 525 */
															BgL_res3377z00_5859 =
																(long) CINT(BgL__ortest_1141z00_5851);
														}
													else
														{	/* Ieee/input.scm 527 */
															bool_t BgL_test4098z00_9614;

															{	/* Ieee/input.scm 527 */
																bool_t BgL_test4099z00_9615;

																{	/* Ieee/input.scm 527 */
																	obj_t BgL_tmpz00_9616;

																	BgL_tmpz00_9616 = ((obj_t) BgL_ipz00_5833);
																	BgL_test4099z00_9615 =
																		INPUT_GZIP_PORTP(BgL_tmpz00_9616);
																}
																if (BgL_test4099z00_9615)
																	{	/* Ieee/input.scm 527 */
																		if ((BgL_sza7za7_5849 == (-1L)))
																			{	/* Ieee/input.scm 527 */
																				BgL_test4098z00_9614 =
																					(BgL_offz00_5850 == (-1L));
																			}
																		else
																			{	/* Ieee/input.scm 527 */
																				BgL_test4098z00_9614 = ((bool_t) 0);
																			}
																	}
																else
																	{	/* Ieee/input.scm 527 */
																		BgL_test4098z00_9614 = ((bool_t) 0);
																	}
															}
															if (BgL_test4098z00_9614)
																{	/* Ieee/input.scm 527 */
																	BgL_res3377z00_5859 =
																		(long)
																		CINT
																		(BGl_gunza7ipzd2sendcharsz75zz__gunza7ipza7(
																			((obj_t) BgL_ipz00_5833), BgL_opz00_87));
																}
															else
																{	/* Ieee/input.scm 527 */
																	BgL_res3377z00_5859 =
																		(long)
																		(BGl_z52sendcharsz52zz__r4_input_6_10_2z00((
																				(obj_t) BgL_ipz00_5833), BgL_opz00_87,
																			BgL_sza7za7_5849, BgL_offz00_5850));
											}}}}
											BgL_tmp1147z00_5839 = BgL_res3377z00_5859;
										}
										{	/* Ieee/input.scm 566 */
											bool_t BgL_test4101z00_9628;

											{	/* Ieee/input.scm 566 */
												obj_t BgL_arg3336z00_5861;

												BgL_arg3336z00_5861 =
													BGL_EXITD_PROTECT(BgL_exitd1145z00_5837);
												BgL_test4101z00_9628 = PAIRP(BgL_arg3336z00_5861);
											}
											if (BgL_test4101z00_9628)
												{	/* Ieee/input.scm 566 */
													obj_t BgL_arg3333z00_5862;

													{	/* Ieee/input.scm 566 */
														obj_t BgL_arg3335z00_5863;

														BgL_arg3335z00_5863 =
															BGL_EXITD_PROTECT(BgL_exitd1145z00_5837);
														BgL_arg3333z00_5862 =
															CDR(((obj_t) BgL_arg3335z00_5863));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1145z00_5837,
														BgL_arg3333z00_5862);
													BUNSPEC;
												}
											else
												{	/* Ieee/input.scm 566 */
													BFALSE;
												}
										}
										bgl_close_input_port(((obj_t) BgL_ipz00_5833));
										return BgL_tmp1147z00_5839;
									}
								}
							}
						}
				}
			}
		}

	}



/* &<@anonymous:2579>3383 */
	obj_t BGl_z62zc3z04anonymousza32579ze33383ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6304)
	{
		{	/* Ieee/input.scm 566 */
			{	/* Ieee/input.scm 568 */
				obj_t BgL_ipz00_6305;

				BgL_ipz00_6305 = PROCEDURE_REF(BgL_envz00_6304, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_6305));
			}
		}

	}



/* 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_zc3z04anonymousza32582ze3z87_6306;

					BgL_zc3z04anonymousza32582ze3z87_6306 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza32582ze3ze5zz__r4_input_6_10_2z00,
						(int) (0L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza32582ze3z87_6306, (int) (0L),
						BgL_filez00_92);
					return
						BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00
						(BgL_filez00_92, BgL_zc3z04anonymousza32582ze3z87_6306);
				}
			else
				{	/* Ieee/input.scm 601 */
					return BFALSE;
				}
		}

	}



/* &file-lines */
	obj_t BGl_z62filezd2lineszb0zz__r4_input_6_10_2z00(obj_t BgL_envz00_6307,
		obj_t BgL_filez00_6308)
	{
		{	/* Ieee/input.scm 580 */
			{	/* Ieee/input.scm 583 */
				obj_t BgL_auxz00_9650;

				if (STRINGP(BgL_filez00_6308))
					{	/* Ieee/input.scm 583 */
						BgL_auxz00_9650 = BgL_filez00_6308;
					}
				else
					{
						obj_t BgL_auxz00_9653;

						BgL_auxz00_9653 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(22416L),
							BGl_string3679z00zz__r4_input_6_10_2z00,
							BGl_string3646z00zz__r4_input_6_10_2z00, BgL_filez00_6308);
						FAILURE(BgL_auxz00_9653, BFALSE, BFALSE);
					}
				return BGl_filezd2lineszd2zz__r4_input_6_10_2z00(BgL_auxz00_9650);
			}
		}

	}



/* &<@anonymous:2582> */
	obj_t BGl_z62zc3z04anonymousza32582ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6309)
	{
		{	/* Ieee/input.scm 604 */
			{	/* Ieee/input.scm 605 */
				obj_t BgL_filez00_6310;

				BgL_filez00_6310 = ((obj_t) PROCEDURE_REF(BgL_envz00_6309, (int) (0L)));
				{
					obj_t BgL_iportz00_6677;
					long BgL_startz00_6678;
					obj_t BgL_accz00_6679;

					{	/* Ieee/input.scm 605 */
						obj_t BgL_arg2584z00_6718;

						{	/* Ieee/input.scm 605 */
							obj_t BgL_tmpz00_9661;

							BgL_tmpz00_9661 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_arg2584z00_6718 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_9661);
						}
						BgL_iportz00_6677 = BgL_arg2584z00_6718;
						BgL_startz00_6678 = 0L;
						BgL_accz00_6679 = BNIL;
						{
							obj_t BgL_iportz00_6710;
							long BgL_lastzd2matchzd2_6711;
							long BgL_forwardz00_6712;
							long BgL_bufposz00_6713;
							obj_t BgL_iportz00_6702;
							long BgL_lastzd2matchzd2_6703;
							long BgL_forwardz00_6704;
							long BgL_bufposz00_6705;

						BgL_ignorez00_6680:
							RGC_START_MATCH(BgL_iportz00_6677);
							{	/* Ieee/input.scm 583 */
								long BgL_matchz00_6684;

								{	/* Ieee/input.scm 583 */
									long BgL_arg2733z00_6685;
									long BgL_arg2734z00_6686;

									BgL_arg2733z00_6685 = RGC_BUFFER_FORWARD(BgL_iportz00_6677);
									BgL_arg2734z00_6686 = RGC_BUFFER_BUFPOS(BgL_iportz00_6677);
									{
										long BgL_forwardz00_6688;
										long BgL_bufposz00_6689;

										BgL_forwardz00_6688 = BgL_arg2733z00_6685;
										BgL_bufposz00_6689 = BgL_arg2734z00_6686;
									BgL_statezd20zd21149z00_6687:
										if ((BgL_forwardz00_6688 == BgL_bufposz00_6689))
											{	/* Ieee/input.scm 583 */
												if (rgc_fill_buffer(BgL_iportz00_6677))
													{	/* Ieee/input.scm 583 */
														long BgL_arg2604z00_6690;
														long BgL_arg2605z00_6691;

														BgL_arg2604z00_6690 =
															RGC_BUFFER_FORWARD(BgL_iportz00_6677);
														BgL_arg2605z00_6691 =
															RGC_BUFFER_BUFPOS(BgL_iportz00_6677);
														{
															long BgL_bufposz00_9674;
															long BgL_forwardz00_9673;

															BgL_forwardz00_9673 = BgL_arg2604z00_6690;
															BgL_bufposz00_9674 = BgL_arg2605z00_6691;
															BgL_bufposz00_6689 = BgL_bufposz00_9674;
															BgL_forwardz00_6688 = BgL_forwardz00_9673;
															goto BgL_statezd20zd21149z00_6687;
														}
													}
												else
													{	/* Ieee/input.scm 583 */
														BgL_matchz00_6684 = 2L;
													}
											}
										else
											{	/* Ieee/input.scm 583 */
												int BgL_curz00_6692;

												BgL_curz00_6692 =
													RGC_BUFFER_GET_CHAR(BgL_iportz00_6677,
													BgL_forwardz00_6688);
												{	/* Ieee/input.scm 583 */

													if (((long) (BgL_curz00_6692) == 10L))
														{	/* Ieee/input.scm 583 */
															long BgL_arg2607z00_6693;

															BgL_arg2607z00_6693 = (1L + BgL_forwardz00_6688);
															{	/* Ieee/input.scm 583 */
																long BgL_newzd2matchzd2_6694;

																RGC_STOP_MATCH(BgL_iportz00_6677,
																	BgL_arg2607z00_6693);
																BgL_newzd2matchzd2_6694 = 0L;
																BgL_matchz00_6684 = BgL_newzd2matchzd2_6694;
														}}
													else
														{	/* Ieee/input.scm 583 */
															BgL_iportz00_6702 = BgL_iportz00_6677;
															BgL_lastzd2matchzd2_6703 = 2L;
															BgL_forwardz00_6704 = (1L + BgL_forwardz00_6688);
															BgL_bufposz00_6705 = BgL_bufposz00_6689;
														BgL_statezd21zd21150z00_6682:
															{	/* Ieee/input.scm 583 */
																long BgL_newzd2matchzd2_6706;

																RGC_STOP_MATCH(BgL_iportz00_6702,
																	BgL_forwardz00_6704);
																BgL_newzd2matchzd2_6706 = 1L;
																if ((BgL_forwardz00_6704 == BgL_bufposz00_6705))
																	{	/* Ieee/input.scm 583 */
																		if (rgc_fill_buffer(BgL_iportz00_6702))
																			{	/* Ieee/input.scm 583 */
																				long BgL_arg2597z00_6707;
																				long BgL_arg2598z00_6708;

																				BgL_arg2597z00_6707 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_6702);
																				BgL_arg2598z00_6708 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_6702);
																				{
																					long BgL_bufposz00_9689;
																					long BgL_forwardz00_9688;

																					BgL_forwardz00_9688 =
																						BgL_arg2597z00_6707;
																					BgL_bufposz00_9689 =
																						BgL_arg2598z00_6708;
																					BgL_bufposz00_6705 =
																						BgL_bufposz00_9689;
																					BgL_forwardz00_6704 =
																						BgL_forwardz00_9688;
																					goto BgL_statezd21zd21150z00_6682;
																				}
																			}
																		else
																			{	/* Ieee/input.scm 583 */
																				BgL_matchz00_6684 =
																					BgL_newzd2matchzd2_6706;
																			}
																	}
																else
																	{	/* Ieee/input.scm 583 */
																		int BgL_curz00_6709;

																		BgL_curz00_6709 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_6702,
																			BgL_forwardz00_6704);
																		{	/* Ieee/input.scm 583 */

																			if (((long) (BgL_curz00_6709) == 10L))
																				{	/* Ieee/input.scm 583 */
																					BgL_matchz00_6684 =
																						BgL_newzd2matchzd2_6706;
																				}
																			else
																				{	/* Ieee/input.scm 583 */
																					BgL_iportz00_6710 = BgL_iportz00_6702;
																					BgL_lastzd2matchzd2_6711 =
																						BgL_newzd2matchzd2_6706;
																					BgL_forwardz00_6712 =
																						(1L + BgL_forwardz00_6704);
																					BgL_bufposz00_6713 =
																						BgL_bufposz00_6705;
																				BgL_statezd24zd21153z00_6683:
																					{	/* Ieee/input.scm 583 */
																						long BgL_newzd2matchzd2_6714;

																						RGC_STOP_MATCH(BgL_iportz00_6710,
																							BgL_forwardz00_6712);
																						BgL_newzd2matchzd2_6714 = 1L;
																						if (
																							(BgL_forwardz00_6712 ==
																								BgL_bufposz00_6713))
																							{	/* Ieee/input.scm 583 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_6710))
																									{	/* Ieee/input.scm 583 */
																										long BgL_arg2589z00_6715;
																										long BgL_arg2590z00_6716;

																										BgL_arg2589z00_6715 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_6710);
																										BgL_arg2590z00_6716 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_6710);
																										{
																											long BgL_bufposz00_9702;
																											long BgL_forwardz00_9701;

																											BgL_forwardz00_9701 =
																												BgL_arg2589z00_6715;
																											BgL_bufposz00_9702 =
																												BgL_arg2590z00_6716;
																											BgL_bufposz00_6713 =
																												BgL_bufposz00_9702;
																											BgL_forwardz00_6712 =
																												BgL_forwardz00_9701;
																											goto
																												BgL_statezd24zd21153z00_6683;
																										}
																									}
																								else
																									{	/* Ieee/input.scm 583 */
																										BgL_matchz00_6684 =
																											BgL_newzd2matchzd2_6714;
																									}
																							}
																						else
																							{	/* Ieee/input.scm 583 */
																								int BgL_curz00_6717;

																								BgL_curz00_6717 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_6710,
																									BgL_forwardz00_6712);
																								{	/* Ieee/input.scm 583 */

																									if (
																										((long) (BgL_curz00_6717) ==
																											10L))
																										{	/* Ieee/input.scm 583 */
																											BgL_matchz00_6684 =
																												BgL_newzd2matchzd2_6714;
																										}
																									else
																										{
																											long BgL_forwardz00_9708;
																											long
																												BgL_lastzd2matchzd2_9707;
																											BgL_lastzd2matchzd2_9707 =
																												BgL_newzd2matchzd2_6714;
																											BgL_forwardz00_9708 =
																												(1L +
																												BgL_forwardz00_6712);
																											BgL_forwardz00_6712 =
																												BgL_forwardz00_9708;
																											BgL_lastzd2matchzd2_6711 =
																												BgL_lastzd2matchzd2_9707;
																											goto
																												BgL_statezd24zd21153z00_6683;
																										}
																								}
																							}
																					}
																				}
																		}
																	}
															}
														}
												}
											}
									}
								}
								RGC_SET_FILEPOS(BgL_iportz00_6677);
								switch (BgL_matchz00_6684)
									{
									case 2L:

										{	/* Ieee/input.scm 593 */
											obj_t BgL_cz00_6695;

											{	/* Ieee/input.scm 583 */
												bool_t BgL_test4113z00_9713;

												{	/* Ieee/input.scm 583 */
													long BgL_arg2720z00_6701;

													BgL_arg2720z00_6701 =
														RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_6677);
													BgL_test4113z00_9713 = (BgL_arg2720z00_6701 == 0L);
												}
												if (BgL_test4113z00_9713)
													{	/* Ieee/input.scm 583 */
														BgL_cz00_6695 = BEOF;
													}
												else
													{	/* Ieee/input.scm 583 */
														BgL_cz00_6695 =
															BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_6677));
													}
											}
											if (EOF_OBJECTP(BgL_cz00_6695))
												{	/* Ieee/input.scm 595 */
													long BgL_stopz00_6696;

													BgL_stopz00_6696 =
														INPUT_PORT_FILEPOS(BgL_iportz00_6677);
													if ((BgL_stopz00_6696 > BgL_startz00_6678))
														{	/* Ieee/input.scm 597 */
															obj_t BgL_arg2729z00_6697;

															{	/* Ieee/input.scm 597 */
																obj_t BgL_arg2730z00_6698;

																BgL_arg2730z00_6698 =
																	MAKE_YOUNG_PAIR(BINT(BgL_startz00_6678),
																	BINT(BgL_stopz00_6696));
																BgL_arg2729z00_6697 =
																	MAKE_YOUNG_PAIR(BgL_arg2730z00_6698,
																	BgL_accz00_6679);
															}
															return bgl_reverse_bang(BgL_arg2729z00_6697);
														}
													else
														{	/* Ieee/input.scm 596 */
															return bgl_reverse_bang(BgL_accz00_6679);
														}
												}
											else
												{	/* Ieee/input.scm 594 */
													return
														BGl_errorz00zz__errorz00
														(BGl_symbol3680z00zz__r4_input_6_10_2z00,
														BGl_string3682z00zz__r4_input_6_10_2z00,
														BgL_filez00_6310);
												}
										}
										break;
									case 1L:

										goto BgL_ignorez00_6680;
										break;
									case 0L:

										{	/* Ieee/input.scm 585 */
											long BgL_stopz00_6699;

											BgL_stopz00_6699 = INPUT_PORT_FILEPOS(BgL_iportz00_6677);
											{	/* Ieee/input.scm 585 */
												obj_t BgL_descz00_6700;

												BgL_descz00_6700 =
													MAKE_YOUNG_PAIR(BINT(BgL_startz00_6678),
													BINT(BgL_stopz00_6699));
												{	/* Ieee/input.scm 586 */

													BgL_startz00_6678 = (1L + BgL_stopz00_6699);
													BgL_accz00_6679 =
														MAKE_YOUNG_PAIR(BgL_descz00_6700, BgL_accz00_6679);
													goto BgL_ignorez00_6680;
												}
											}
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3616z00zz__r4_input_6_10_2z00,
											BGl_string3617z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_6684));
									}
							}
						}
					}
				}
			}
		}

	}



/* 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_5972;
					long BgL_linez00_5973;

					BgL_flinesz00_5972 = BgL_fdescz00_94;
					BgL_linez00_5973 = 1L;
				BgL_loopz00_5971:
					if (NULLP(BgL_flinesz00_5972))
						{	/* Ieee/input.scm 616 */
							return BFALSE;
						}
					else
						{	/* Ieee/input.scm 618 */
							bool_t BgL_test4118z00_9743;

							{	/* Ieee/input.scm 618 */
								long BgL_tmpz00_9744;

								{	/* Ieee/input.scm 618 */
									obj_t BgL_pairz00_5987;

									BgL_pairz00_5987 = CAR(((obj_t) BgL_flinesz00_5972));
									BgL_tmpz00_9744 = (long) CINT(CDR(BgL_pairz00_5987));
								}
								BgL_test4118z00_9743 =
									((long) (BgL_posz00_93) >= BgL_tmpz00_9744);
							}
							if (BgL_test4118z00_9743)
								{	/* Ieee/input.scm 619 */
									obj_t BgL_arg2740z00_5982;
									long BgL_arg2741z00_5983;

									BgL_arg2740z00_5982 = CDR(((obj_t) BgL_flinesz00_5972));
									BgL_arg2741z00_5983 = (BgL_linez00_5973 + 1L);
									{
										long BgL_linez00_9755;
										obj_t BgL_flinesz00_9754;

										BgL_flinesz00_9754 = BgL_arg2740z00_5982;
										BgL_linez00_9755 = BgL_arg2741z00_5983;
										BgL_linez00_5973 = BgL_linez00_9755;
										BgL_flinesz00_5972 = BgL_flinesz00_9754;
										goto BgL_loopz00_5971;
									}
								}
							else
								{	/* Ieee/input.scm 618 */
									return BINT(BgL_linez00_5973);
								}
						}
				}
			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_zc3z04anonymousza32750ze3z87_6311;

									BgL_zc3z04anonymousza32750ze3z87_6311 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza32750ze3ze5zz__r4_input_6_10_2z00,
										(int) (0L), (int) (1L));
									PROCEDURE_SET(BgL_zc3z04anonymousza32750ze3z87_6311,
										(int) (0L), BINT(BgL_posz00_93));
									return
										BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00
										(BgL_fdescz00_94, BgL_zc3z04anonymousza32750ze3z87_6311);
								}
							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_6312, obj_t BgL_posz00_6313, obj_t BgL_fdescz00_6314)
	{
		{	/* Ieee/input.scm 610 */
			{	/* Ieee/input.scm 612 */
				int BgL_auxz00_9769;

				{	/* Ieee/input.scm 612 */
					obj_t BgL_tmpz00_9770;

					if (INTEGERP(BgL_posz00_6313))
						{	/* Ieee/input.scm 612 */
							BgL_tmpz00_9770 = BgL_posz00_6313;
						}
					else
						{
							obj_t BgL_auxz00_9773;

							BgL_auxz00_9773 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(23319L),
								BGl_string3683z00zz__r4_input_6_10_2z00,
								BGl_string3650z00zz__r4_input_6_10_2z00, BgL_posz00_6313);
							FAILURE(BgL_auxz00_9773, BFALSE, BFALSE);
						}
					BgL_auxz00_9769 = CINT(BgL_tmpz00_9770);
				}
				return
					BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00
					(BgL_auxz00_9769, BgL_fdescz00_6314);
			}
		}

	}



/* &<@anonymous:2750> */
	obj_t BGl_z62zc3z04anonymousza32750ze3ze5zz__r4_input_6_10_2z00(obj_t
		BgL_envz00_6315)
	{
		{	/* Ieee/input.scm 637 */
			{	/* Ieee/input.scm 638 */
				int BgL_posz00_6316;

				BgL_posz00_6316 = CINT(PROCEDURE_REF(BgL_envz00_6315, (int) (0L)));
				{
					obj_t BgL_iportz00_6720;
					obj_t BgL_posz00_6721;
					long BgL_linez00_6722;

					{	/* Ieee/input.scm 638 */
						obj_t BgL_arg2751z00_6754;

						{	/* Ieee/input.scm 638 */
							obj_t BgL_tmpz00_9782;

							BgL_tmpz00_9782 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_arg2751z00_6754 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_9782);
						}
						BgL_iportz00_6720 = BgL_arg2751z00_6754;
						BgL_posz00_6721 = BINT(BgL_posz00_6316);
						BgL_linez00_6722 = 1L;
						{
							obj_t BgL_iportz00_6746;
							long BgL_lastzd2matchzd2_6747;
							long BgL_forwardz00_6748;
							long BgL_bufposz00_6749;
							obj_t BgL_iportz00_6738;
							long BgL_lastzd2matchzd2_6739;
							long BgL_forwardz00_6740;
							long BgL_bufposz00_6741;

						BgL_ignorez00_6723:
							RGC_START_MATCH(BgL_iportz00_6720);
							{	/* Ieee/input.scm 623 */
								long BgL_matchz00_6726;

								{	/* Ieee/input.scm 623 */
									long BgL_arg2924z00_6727;
									long BgL_arg2925z00_6728;

									BgL_arg2924z00_6727 = RGC_BUFFER_FORWARD(BgL_iportz00_6720);
									BgL_arg2925z00_6728 = RGC_BUFFER_BUFPOS(BgL_iportz00_6720);
									{
										long BgL_forwardz00_6730;
										long BgL_bufposz00_6731;

										BgL_forwardz00_6730 = BgL_arg2924z00_6727;
										BgL_bufposz00_6731 = BgL_arg2925z00_6728;
									BgL_statezd20zd21156z00_6729:
										if ((BgL_forwardz00_6730 == BgL_bufposz00_6731))
											{	/* Ieee/input.scm 623 */
												if (rgc_fill_buffer(BgL_iportz00_6720))
													{	/* Ieee/input.scm 623 */
														long BgL_arg2776z00_6732;
														long BgL_arg2777z00_6733;

														BgL_arg2776z00_6732 =
															RGC_BUFFER_FORWARD(BgL_iportz00_6720);
														BgL_arg2777z00_6733 =
															RGC_BUFFER_BUFPOS(BgL_iportz00_6720);
														{
															long BgL_bufposz00_9795;
															long BgL_forwardz00_9794;

															BgL_forwardz00_9794 = BgL_arg2776z00_6732;
															BgL_bufposz00_9795 = BgL_arg2777z00_6733;
															BgL_bufposz00_6731 = BgL_bufposz00_9795;
															BgL_forwardz00_6730 = BgL_forwardz00_9794;
															goto BgL_statezd20zd21156z00_6729;
														}
													}
												else
													{	/* Ieee/input.scm 623 */
														BgL_matchz00_6726 = 2L;
													}
											}
										else
											{	/* Ieee/input.scm 623 */
												int BgL_curz00_6734;

												BgL_curz00_6734 =
													RGC_BUFFER_GET_CHAR(BgL_iportz00_6720,
													BgL_forwardz00_6730);
												{	/* Ieee/input.scm 623 */

													if (((long) (BgL_curz00_6734) == 10L))
														{	/* Ieee/input.scm 623 */
															long BgL_arg2779z00_6735;

															BgL_arg2779z00_6735 = (1L + BgL_forwardz00_6730);
															{	/* Ieee/input.scm 623 */
																long BgL_newzd2matchzd2_6736;

																RGC_STOP_MATCH(BgL_iportz00_6720,
																	BgL_arg2779z00_6735);
																BgL_newzd2matchzd2_6736 = 0L;
																BgL_matchz00_6726 = BgL_newzd2matchzd2_6736;
														}}
													else
														{	/* Ieee/input.scm 623 */
															BgL_iportz00_6738 = BgL_iportz00_6720;
															BgL_lastzd2matchzd2_6739 = 2L;
															BgL_forwardz00_6740 = (1L + BgL_forwardz00_6730);
															BgL_bufposz00_6741 = BgL_bufposz00_6731;
														BgL_statezd21zd21157z00_6724:
															{	/* Ieee/input.scm 623 */
																long BgL_newzd2matchzd2_6742;

																RGC_STOP_MATCH(BgL_iportz00_6738,
																	BgL_forwardz00_6740);
																BgL_newzd2matchzd2_6742 = 1L;
																if ((BgL_forwardz00_6740 == BgL_bufposz00_6741))
																	{	/* Ieee/input.scm 623 */
																		if (rgc_fill_buffer(BgL_iportz00_6738))
																			{	/* Ieee/input.scm 623 */
																				long BgL_arg2767z00_6743;
																				long BgL_arg2768z00_6744;

																				BgL_arg2767z00_6743 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_6738);
																				BgL_arg2768z00_6744 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_6738);
																				{
																					long BgL_bufposz00_9810;
																					long BgL_forwardz00_9809;

																					BgL_forwardz00_9809 =
																						BgL_arg2767z00_6743;
																					BgL_bufposz00_9810 =
																						BgL_arg2768z00_6744;
																					BgL_bufposz00_6741 =
																						BgL_bufposz00_9810;
																					BgL_forwardz00_6740 =
																						BgL_forwardz00_9809;
																					goto BgL_statezd21zd21157z00_6724;
																				}
																			}
																		else
																			{	/* Ieee/input.scm 623 */
																				BgL_matchz00_6726 =
																					BgL_newzd2matchzd2_6742;
																			}
																	}
																else
																	{	/* Ieee/input.scm 623 */
																		int BgL_curz00_6745;

																		BgL_curz00_6745 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_6738,
																			BgL_forwardz00_6740);
																		{	/* Ieee/input.scm 623 */

																			if (((long) (BgL_curz00_6745) == 10L))
																				{	/* Ieee/input.scm 623 */
																					BgL_matchz00_6726 =
																						BgL_newzd2matchzd2_6742;
																				}
																			else
																				{	/* Ieee/input.scm 623 */
																					BgL_iportz00_6746 = BgL_iportz00_6738;
																					BgL_lastzd2matchzd2_6747 =
																						BgL_newzd2matchzd2_6742;
																					BgL_forwardz00_6748 =
																						(1L + BgL_forwardz00_6740);
																					BgL_bufposz00_6749 =
																						BgL_bufposz00_6741;
																				BgL_statezd24zd21160z00_6725:
																					{	/* Ieee/input.scm 623 */
																						long BgL_newzd2matchzd2_6750;

																						RGC_STOP_MATCH(BgL_iportz00_6746,
																							BgL_forwardz00_6748);
																						BgL_newzd2matchzd2_6750 = 1L;
																						if (
																							(BgL_forwardz00_6748 ==
																								BgL_bufposz00_6749))
																							{	/* Ieee/input.scm 623 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_6746))
																									{	/* Ieee/input.scm 623 */
																										long BgL_arg2756z00_6751;
																										long BgL_arg2760z00_6752;

																										BgL_arg2756z00_6751 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_6746);
																										BgL_arg2760z00_6752 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_6746);
																										{
																											long BgL_bufposz00_9823;
																											long BgL_forwardz00_9822;

																											BgL_forwardz00_9822 =
																												BgL_arg2756z00_6751;
																											BgL_bufposz00_9823 =
																												BgL_arg2760z00_6752;
																											BgL_bufposz00_6749 =
																												BgL_bufposz00_9823;
																											BgL_forwardz00_6748 =
																												BgL_forwardz00_9822;
																											goto
																												BgL_statezd24zd21160z00_6725;
																										}
																									}
																								else
																									{	/* Ieee/input.scm 623 */
																										BgL_matchz00_6726 =
																											BgL_newzd2matchzd2_6750;
																									}
																							}
																						else
																							{	/* Ieee/input.scm 623 */
																								int BgL_curz00_6753;

																								BgL_curz00_6753 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_6746,
																									BgL_forwardz00_6748);
																								{	/* Ieee/input.scm 623 */

																									if (
																										((long) (BgL_curz00_6753) ==
																											10L))
																										{	/* Ieee/input.scm 623 */
																											BgL_matchz00_6726 =
																												BgL_newzd2matchzd2_6750;
																										}
																									else
																										{
																											long BgL_forwardz00_9829;
																											long
																												BgL_lastzd2matchzd2_9828;
																											BgL_lastzd2matchzd2_9828 =
																												BgL_newzd2matchzd2_6750;
																											BgL_forwardz00_9829 =
																												(1L +
																												BgL_forwardz00_6748);
																											BgL_forwardz00_6748 =
																												BgL_forwardz00_9829;
																											BgL_lastzd2matchzd2_6747 =
																												BgL_lastzd2matchzd2_9828;
																											goto
																												BgL_statezd24zd21160z00_6725;
																										}
																								}
																							}
																					}
																				}
																		}
																	}
															}
														}
												}
											}
									}
								}
								RGC_SET_FILEPOS(BgL_iportz00_6720);
								switch (BgL_matchz00_6726)
									{
									case 2L:

										return BFALSE;
										break;
									case 1L:

										goto BgL_ignorez00_6723;
										break;
									case 0L:

										{	/* Ieee/input.scm 625 */
											bool_t BgL_test4131z00_9834;

											{	/* Ieee/input.scm 625 */
												long BgL_arg2922z00_6737;

												BgL_arg2922z00_6737 =
													INPUT_PORT_FILEPOS(BgL_iportz00_6720);
												BgL_test4131z00_9834 =
													(BgL_arg2922z00_6737 >= (long) CINT(BgL_posz00_6721));
											}
											if (BgL_test4131z00_9834)
												{	/* Ieee/input.scm 625 */
													return BINT(BgL_linez00_6722);
												}
											else
												{	/* Ieee/input.scm 625 */
													BgL_linez00_6722 = (BgL_linez00_6722 + 1L);
													goto BgL_ignorez00_6723;
												}
										}
										break;
									default:
										return
											BGl_errorz00zz__errorz00
											(BGl_string3616z00zz__r4_input_6_10_2z00,
											BGl_string3617z00zz__r4_input_6_10_2z00,
											BINT(BgL_matchz00_6726));
									}
							}
						}
					}
				}
			}
		}

	}



/* _password */
	obj_t BGl__passwordz00zz__r4_input_6_10_2z00(obj_t BgL_env1326z00_97,
		obj_t BgL_opt1325z00_96)
	{
		{	/* Ieee/input.scm 645 */
			{	/* Ieee/input.scm 645 */

				{	/* Ieee/input.scm 645 */
					long BgL_aux1328z00_6755;

					{
						obj_t BgL_auxz00_9844;

						if (VECTORP(BgL_opt1325z00_96))
							{	/* Ieee/input.scm 645 */
								BgL_auxz00_9844 = BgL_opt1325z00_96;
							}
						else
							{
								obj_t BgL_auxz00_9847;

								BgL_auxz00_9847 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(24216L),
									BGl_string3684z00zz__r4_input_6_10_2z00,
									BGl_string3629z00zz__r4_input_6_10_2z00, BgL_opt1325z00_96);
								FAILURE(BgL_auxz00_9847, BFALSE, BFALSE);
							}
						BgL_aux1328z00_6755 = VECTOR_LENGTH(BgL_auxz00_9844);
					}
					switch (BgL_aux1328z00_6755)
						{
						case 0L:

							{	/* Ieee/input.scm 645 */

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

							{	/* Ieee/input.scm 645 */
								obj_t BgL_promptz00_6756;

								{
									obj_t BgL_auxz00_9854;

									if (VECTORP(BgL_opt1325z00_96))
										{	/* Ieee/input.scm 645 */
											BgL_auxz00_9854 = BgL_opt1325z00_96;
										}
									else
										{
											obj_t BgL_auxz00_9857;

											BgL_auxz00_9857 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3623z00zz__r4_input_6_10_2z00, BINT(24216L),
												BGl_string3684z00zz__r4_input_6_10_2z00,
												BGl_string3629z00zz__r4_input_6_10_2z00,
												BgL_opt1325z00_96);
											FAILURE(BgL_auxz00_9857, BFALSE, BFALSE);
										}
									BgL_promptz00_6756 = VECTOR_REF(BgL_auxz00_9854, 0L);
								}
								{	/* Ieee/input.scm 645 */

									{	/* Ieee/input.scm 645 */
										obj_t BgL_promptz00_6757;

										if (STRINGP(BgL_promptz00_6756))
											{	/* Ieee/input.scm 645 */
												BgL_promptz00_6757 = BgL_promptz00_6756;
											}
										else
											{
												obj_t BgL_auxz00_9864;

												BgL_auxz00_9864 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3623z00zz__r4_input_6_10_2z00,
													BINT(24216L), BGl_string3684z00zz__r4_input_6_10_2z00,
													BGl_string3646z00zz__r4_input_6_10_2z00,
													BgL_promptz00_6756);
												FAILURE(BgL_auxz00_9864, BFALSE, BFALSE);
											}
										return bgl_password(BSTRING_TO_STRING(BgL_promptz00_6757));
									}
								}
							}
							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_string3685z00zz__r4_input_6_10_2z00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string3685z00zz__r4_input_6_10_2z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string3685z00zz__r4_input_6_10_2z00));
			return
				BGl_modulezd2initializa7ationz75zz__gunza7ipza7(224363699L,
				BSTRING_TO_STRING(BGl_string3685z00zz__r4_input_6_10_2z00));
		}

	}

#ifdef __cplusplus
}
#endif
