/*===========================================================================*/
/*   (Ieee/port.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/port.scm -indent -o objs/obj_u/Ieee/port.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_PORTS_6_10_1_TYPE_DEFINITIONS
#define BGL___R4_PORTS_6_10_1_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_z62httpzd2redirectionzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_portz00;
		obj_t BgL_urlz00;
	}                               *BgL_z62httpzd2redirectionzb0_bglt;


#endif													// BGL___R4_PORTS_6_10_1_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62outputzd2portzd2truncatez62zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62directoryzd2ze3pathzd2listz81zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t bgl_open_input_descriptor(int, obj_t);
	static obj_t BGl__selectz00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_symbol2722z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2inputzd2stringzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl__openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62inputzd2portzd2namez62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62outputzd2portzd2flushzd2bufferzd2setz12z70zz__r4_ports_6_10_1z00
		(obj_t, obj_t, obj_t);
	static obj_t BGl_z62truncatezd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern bool_t reset_eof(obj_t);
	extern obj_t bgl_directory_to_list(char *);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2clonez12z12zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_symbol2730z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_symbol2732z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_symbol2571z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_symbol2734z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_symbol2736z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	BGL_EXPORTED_DECL bool_t
		BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00 =
		BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_search1307ze70ze7zz__r4_ports_6_10_1z00(long, obj_t, obj_t,
		long);
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00 =
		BUNSPEC;
	BGL_EXPORTED_DECL bool_t
		BGl_outputzd2portzd2truncatez00zz__r4_ports_6_10_1z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t
		BGl_directoryzd2ze3pathzd2listze3zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62withzd2errorzd2tozd2procedurezb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(char
		*);
	static obj_t BGl__lockfz00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_resetzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t bgl_input_port_reopen(obj_t);
	extern obj_t bgl_system_failure(int, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2595z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	extern obj_t BGl_z62httpzd2redirectionzb0zz__httpz00;
	extern int bgl_input_fill_string(obj_t, obj_t);
	static obj_t BGl_symbol2597z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_symbol2599z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_z62inputzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(char *,
		char *);
	extern obj_t bgl_open_input_resource(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_closedzd2outputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	extern long bgl_file_size(char *);
	static obj_t BGl_toplevelzd2initzd2zz__r4_ports_6_10_1z00(void);
	extern obj_t bgl_output_port_seek(obj_t, long);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_deletezd2directoryzd2zz__r4_ports_6_10_1z00(char
		*);
	static obj_t BGl__openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62outputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_directoryzd2lengthzd2zz__r4_ports_6_10_1z00(char
		*);
	BGL_EXPORTED_DECL obj_t
		BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62currentzd2errorzd2portz62zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2descriptorz00zz__r4_ports_6_10_1z00(int, obj_t);
	static obj_t
		BGl_z62z52openzd2inputzd2httpzd2socketze2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__r4_ports_6_10_1z00(void);
	BGL_EXPORTED_DECL long
		BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(char *);
	static obj_t BGl_z62makezd2directoryzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_outputzd2portzd2isattyzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2appendzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62outputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62outputzd2portzd2namez62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__r4_ports_6_10_1z00(void);
	extern obj_t BGl_gunza7ipzd2parsezd2headerza7zz__gunza7ipza7(obj_t);
	static obj_t BGl_z62inputzd2portzd2reopenz12z70zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t bgl_open_pipes(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_closezd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t bgl_open_input_mmap(obj_t, obj_t, long, long);
	static obj_t BGl_z62makezd2directorieszb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern long bgl_file_mode(char *);
	BGL_EXPORTED_DECL long BGl_filezd2accesszd2timez00zz__r4_ports_6_10_1z00(char
		*);
	static obj_t BGl_z62withzd2errorzd2tozd2portzb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	extern obj_t BGl_dirnamez00zz__osz00(obj_t);
	static obj_t
		BGl_z62withzd2outputzd2tozd2procedurezb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62inputzd2portzd2positionz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t BGl_openzd2inputzd2binaryzd2filezd2zz__binaryz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
	static obj_t BGl__openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_directoryzd2ze3vectorz31zz__r4_ports_6_10_1z00(char *);
	static obj_t BGl_z62filezd2uidzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern int bgl_output_string(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2mmapzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62outputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2fillzd2barrierzd2zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31411ze3ze5zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62withzd2errorzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL long BGl_filezd2changezd2timez00zz__r4_ports_6_10_1z00(char
		*);
	extern obj_t BGl_openzd2outputzd2binaryzd2filezd2zz__binaryz00(obj_t);
	static obj_t
		BGl_z62directoryzd2ze3pathzd2vectorz81zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long
		BGl_inputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62currentzd2inputzd2portz62zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62z52openzd2inputzd2filez30zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62outputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62callzd2withzd2inputzd2stringzb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62outputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern bool_t bgl_input_port_timeout_set(obj_t, long);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62deletezd2directoryzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62callzd2withzd2appendzd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62inputzd2portzd2protocolzd2setz12za2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern void bgl_input_port_seek(obj_t, long);
	static obj_t BGl_methodzd2initzd2zz__r4_ports_6_10_1z00(void);
	static obj_t BGl_z62withzd2outputzd2tozd2portzb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t bgl_input_port_clone(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
	extern long bgl_directory_length(char *);
	static obj_t BGl_z62directoryzd2lengthzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62outputzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t get_output_string(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(char *);
	static obj_t
		BGl_z62inputzd2portzd2lastzd2tokenzd2positionz62zz__r4_ports_6_10_1z00
		(obj_t, obj_t);
	static obj_t BGl__openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(char
		*);
	extern obj_t bgl_open_input_substring(obj_t, long, long);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2fillzd2barrierzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		long);
	static obj_t BGl_z62filezd2gidzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62outputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern int bgl_symlink(char *, char *);
	static obj_t BGl_z62renamezd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62withzd2inputzd2fromzd2portzb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2flushzd2bufferzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_truncatezd2filezd2zz__r4_ports_6_10_1z00(char *,
		long);
	static obj_t BGl_z62z52openzd2inputzd2pipez30zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62callzd2withzd2outputzd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL long
		BGl_outputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern obj_t bgl_reopen_input_c_string(obj_t, char *);
	static obj_t BGl_z62withzd2appendzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62outputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t make_string(long, unsigned char);
	extern obj_t bgl_open_input_c_string(char *);
	static obj_t BGl_z62inputzd2portzd2clonez12z70zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_z62closezd2inputzd2portz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62directoryzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern obj_t close_binary_port(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(char *);
	static obj_t BGl_z62filezd2accesszd2timez62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl__openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t bgl_append_output_file(obj_t, obj_t);
	static obj_t BGl_z62close2073z62zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62close2075z62zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62close2076z62zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62close2077z62zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62resetzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62inputzd2mmapzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern bool_t bigloo_strncmp(obj_t, obj_t, long);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62flushz62zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_close_output_port(obj_t);
	static obj_t BGl_z62copyzd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62filezd2changezd2timez62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62filezd2typezb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2seekz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62inputzd2portzd2seekz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL long
		BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62filezd2modificationzd2timez62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL int BGl_filezd2timeszd2setz12z12zz__r4_ports_6_10_1z00(char
		*, long, long);
	static obj_t BGl_z62filezd2timeszd2setz12z70zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_makezd2symlinkzd2zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62filezd2existszf3z43zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern obj_t BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7(obj_t, obj_t);
	static obj_t BGl_z62inputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62closezd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31451ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_zc3z04exitza31585ze3ze70z60zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31435ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL long
		BGl_inputzd2portzd2lastzd2tokenzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62inputzd2portzd2seekzd2setz12za2zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2errorzd2tozd2procedurezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2outputzd2tozd2procedurezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_list2713z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	extern obj_t bgl_open_input_procedure(obj_t, obj_t);
	static obj_t BGl_z62outputzd2portzd2positionz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL int BGl_filezd2uidzd2zz__r4_ports_6_10_1z00(char *);
	BGL_EXPORTED_DECL long
		BGl_inputzd2portzd2lengthz00zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t bgl_directory_to_vector(char *);
	BGL_EXPORTED_DECL obj_t
		BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(obj_t, char *);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__ftpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__httpz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__urlz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__gunza7ipza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
	extern obj_t bgl_open_output_file(obj_t, obj_t);
	extern obj_t bgl_open_input_substring_bang(obj_t, long, long);
	static obj_t BGl_z62inputzd2portzf3z43zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2gza7ipzd2portzf3z54zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_copyzd2filezd2zz__r4_ports_6_10_1z00(char *,
		char *);
	static obj_t BGl_z62openzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_currentzd2errorzd2portz00zz__r4_ports_6_10_1z00(void);
	static obj_t BGl_z62closedzd2inputzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_filezd2typezd2zz__r4_ports_6_10_1z00(char *);
	static obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2seekzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern long bgl_last_access_time(char *);
	static obj_t BGl_z62zc3z04anonymousza31437ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	extern bool_t fexists(char *);
	BGL_EXPORTED_DECL long
		BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl__openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2flushzd2hookzd2zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		long);
	static obj_t BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62directoryzd2ze3vectorz53zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2protocolzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2appendzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62outputzd2portzd2flushzd2bufferzb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t bgl_open_input_file(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern long bgl_last_change_time(char *);
	BGL_EXPORTED_DECL obj_t BGl_filezd2gza7ipzf3z86zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62outputzd2portzf3z43zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern obj_t bgl_open_output_procedure(obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2flushzd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62z52openzd2inputzd2resourcez30zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_list2587z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_list2588z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31447ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31439ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__r4_ports_6_10_1z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(obj_t, obj_t, int);
	static obj_t BGl_z62getzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL int BGl_filezd2gidzd2zz__r4_ports_6_10_1z00(char *);
	static obj_t BGl__appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62deletezd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62getzd2outputzd2stringz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00(void);
	static obj_t BGl_list2592z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62filezd2siza7ez17zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_ports_6_10_1z00(void);
	static obj_t BGl_z62zc3z04anonymousza31464ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31448ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	extern bool_t bgl_output_port_timeout_set(obj_t, long);
	static obj_t BGl_z62flush2074z62zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62withzd2errorzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62flush2078z62zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62closez62zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl__openzd2pipeszd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62reopenzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62inputzd2portzd2protocolz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62filezd2gza7ipzf3ze4zz__r4_ports_6_10_1z00(obj_t, obj_t);
	extern obj_t bgl_open_input_pipe(obj_t, obj_t);
	extern obj_t socket_close(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00(void);
	static obj_t BGl_z62zc3z04anonymousza31465ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_keyword2608z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31449ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	extern long bgl_input_port_timeout(obj_t);
	extern obj_t bgl_directory_to_path_list(char *, int, unsigned char);
	extern long bgl_file_uid(char *);
	static obj_t BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62inputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl__openzd2inputzd2descriptorz00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_openzd2pipeszd2zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62loopz62zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62inputzd2gza7ipzd2portzf3z36zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62inputzd2portzd2fillzd2barrierzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_zc3z04exitza31498ze3ze70z60zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern bool_t bgl_lockf(obj_t, int, long);
	static obj_t BGl_z62parserz62zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62callzd2withzd2inputzd2filezb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62withzd2inputzd2fromzd2procedurezb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern bool_t bgl_directoryp(char *);
	static obj_t BGl_z62flushzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62filezd2modezb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62withzd2outputzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t BGl_httpzd2parsezd2responsez00zz__httpz00(obj_t, obj_t, obj_t);
	extern obj_t c_substring(obj_t, long, long);
	BGL_EXPORTED_DECL long BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(char *);
	static obj_t
		BGl_z62inputzd2portzd2fillzd2barrierzd2setz12z70zz__r4_ports_6_10_1z00
		(obj_t, obj_t, obj_t);
	static obj_t BGl_z62portzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62outputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_keyword2714z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t
		BGl_z62withzd2outputzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_keyword2716z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_keyword2718z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_z62currentzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t);
	extern long default_io_bufsiz;
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(char *);
	static obj_t
		BGl_z62setzd2inputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t,
		obj_t);
	extern int bgl_utime(char *, long, long);
	static obj_t BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00 =
		BUNSPEC;
	static obj_t BGl_z62withzd2inputzd2fromzd2filezb0zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_keyword2720z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	static obj_t BGl_z62resetzd2eofzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31485ze3ze5zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern long bgl_last_modification_time(char *);
	extern obj_t bgl_open_output_string(obj_t);
	static obj_t BGl_z62inputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62inputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t bgl_select(long, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62withzd2inputzd2fromzd2stringzb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern long bgl_file_gid(char *);
	BGL_EXPORTED_DECL obj_t
		BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62closedzd2outputzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31583ze3ze5zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62inputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62outputzd2portzd2flushzd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	extern obj_t bgl_directory_to_path_vector(char *, int, unsigned char);
	BGL_EXPORTED_DECL int BGl_filezd2modezd2zz__r4_ports_6_10_1z00(char *);
	extern obj_t bgl_file_type(char *);
	static obj_t BGl_z62zc3z04anonymousza31487ze3ze5zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_keyword2589z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	extern obj_t BGl_httpz00zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_selectz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl__openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t
		BGl_z62inputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_vector2699z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	extern obj_t make_string_sans_fill(long);
	static obj_t BGl_z62outputzd2portzd2isattyzf3z91zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62outputzd2portzd2flushzd2hookzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	static obj_t BGl_z62inputzd2portzd2lengthz62zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_keyword2593z00zz__r4_ports_6_10_1z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62makezd2symlinkzb0zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_outputzd2portzd2flushzd2bufferzd2zz__r4_ports_6_10_1z00(obj_t);
	extern long bgl_output_port_timeout(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(char
		*);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2portzd2protocolz00zz__r4_ports_6_10_1z00(obj_t);
	static obj_t BGl_z62directoryzd2ze3listz53zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62setzd2outputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62z52openzd2inputzd2descriptorz30zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62inputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_resetzd2eofzd2zz__r4_ports_6_10_1z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_directoryzd2ze3pathzd2vectorze3zz__r4_ports_6_10_1z00(obj_t);
	static obj_t
		BGl_z62callzd2withzd2outputzd2stringzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_lockfz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62inputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2mmapzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d22741z00, opt_generic_entry,
		BGl__openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_closedzd2inputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762closedza7d2inpu2742z00,
		BGl_z62closedzd2inputzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2directorieszd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762makeza7d2direct2743z00,
		BGl_z62makezd2directorieszb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2744z00,
		BGl_z62outputzd2portzd2bufferz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72745za7,
		BGl_z62inputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2modificationzd2timezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2modifi2746z00,
		BGl_z62filezd2modificationzd2timez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za752openza7d2inp2747za7,
		BGl_z62z52openzd2inputzd2pipez30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2appendzd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762callza7d2withza7d2748za7,
		BGl_z62callzd2withzd2appendzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2flushzd2bufferzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2749z00,
		BGl_z62outputzd2portzd2flushzd2bufferzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2outputzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2output2750z00,
		BGl_z62withzd2outputzd2tozd2portzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2filezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d22751z00, opt_generic_entry,
		BGl__openzd2inputzd2filez00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2protocolzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72752za7,
		BGl_z62inputzd2portzd2protocolz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_currentzd2errorzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762currentza7d2err2753z00,
		BGl_z62currentzd2errorzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2errorzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2errorza72754za7,
		BGl_z62withzd2errorzd2tozd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2755z00,
		BGl_z62outputzd2portzd2namez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2clonez12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72756za7,
		BGl_z62inputzd2portzd2clonez12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2changezd2timezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2change2757z00,
		BGl_z62filezd2changezd2timez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2modezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2modeza7b2758za7,
		BGl_z62filezd2modezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72759za7,
		BGl_z62inputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762portza7f3za791za7za7_2760za7,
		BGl_z62portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	extern obj_t BGl_openzd2inputzd2za7libzd2filezd2envza7zz__gunza7ipza7;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762openza7d2inputza72761za7,
		BGl_z62openzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2errorzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2errorza72762za7,
		BGl_z62withzd2errorzd2tozd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_resetzd2eofzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762resetza7d2eofza7b2763za7,
		BGl_z62resetzd2eofzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_z52openzd2inputzd2filezd2envz80zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za752openza7d2inp2764za7,
		BGl_z62z52openzd2inputzd2filez30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2765z00,
		BGl_z62outputzd2portzd2positionz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_closedzd2outputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762closedza7d2outp2766z00,
		BGl_z62closedzd2outputzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2outputzd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762callza7d2withza7d2767za7,
		BGl_z62callzd2withzd2outputzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72768za7,
		BGl_z62inputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2769z00,
		BGl_z62outputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2600z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2600za700za7za7_2770za7, "HTTP/1.1", 8);
	      BGL_DEFINE_STRING(BGl_string2601z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2601za700za7za7_2771za7, "input-port-close-hook-set!", 26);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72772za7,
		BGl_z62inputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2602z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2602za700za7za7_2773za7, "Illegal hook", 12);
	      BGL_DEFINE_STRING(BGl_string2603z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2603za700za7za7_2774za7, "input-port-seek-set!", 20);
	      BGL_DEFINE_STRING(BGl_string2604z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2604za700za7za7_2775za7, "Illegal seek procedure", 22);
	      BGL_DEFINE_STRING(BGl_string2523z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2523za700za7za7_2776za7, "input-port-protocols", 20);
	      BGL_DEFINE_STRING(BGl_string2605z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2605za700za7za7_2777za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2524z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2524za700za7za7_2778za7, "file:", 5);
	      BGL_DEFINE_STRING(BGl_string2606z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2606za700za7za7_2779za7, "bytes=", 6);
	      BGL_DEFINE_STRING(BGl_string2525z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2525za700za7za7_2780za7, "string:", 7);
	      BGL_DEFINE_STRING(BGl_string2607z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2607za700za7za7_2781za7, "-", 1);
	      BGL_DEFINE_STRING(BGl_string2527z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2527za700za7za7_2782za7, "| ", 2);
	      BGL_DEFINE_STRING(BGl_string2609z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2609za700za7za7_2783za7, "range", 5);
	      BGL_DEFINE_STRING(BGl_string2528z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2528za700za7za7_2784za7, "pipe:", 5);
	      BGL_DEFINE_STRING(BGl_string2529z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2529za700za7za7_2785za7, "http://", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2errorzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2errorza72786za7,
		BGl_z62withzd2errorzd2tozd2portzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2inputzd2fromzd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2inputza72787za7,
		BGl_z62withzd2inputzd2fromzd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2610z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2610za700za7za7_2788za7, "_open-input-file", 16);
	      BGL_DEFINE_STRING(BGl_string2611z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2611za700za7za7_2789za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2530z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2530za700za7za7_2790za7, "gzip:", 5);
	      BGL_DEFINE_STRING(BGl_string2612z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2612za700za7za7_2791za7, "_open-input-descriptor", 22);
	      BGL_DEFINE_STRING(BGl_string2531z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2531za700za7za7_2792za7, "zlib:", 5);
	      BGL_DEFINE_STRING(BGl_string2613z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2613za700za7za7_2793za7, "_open-input-string", 18);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2526z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za7c3za704anonymo2794za7,
		BGl_z62zc3z04anonymousza31411ze3ze5zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2532z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2532za700za7za7_2795za7, "inflate:", 8);
	      BGL_DEFINE_STRING(BGl_string2614z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2614za700za7za7_2796za7, "open-input-string", 17);
	      BGL_DEFINE_STRING(BGl_string2533z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2533za700za7za7_2797za7, "/resource/", 10);
	      BGL_DEFINE_STRING(BGl_string2615z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2615za700za7za7_2798za7, "Illegal start offset", 20);
	      BGL_DEFINE_STRING(BGl_string2534z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2534za700za7za7_2799za7, "ftp://", 6);
	      BGL_DEFINE_STRING(BGl_string2616z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2616za700za7za7_2800za7, "Start offset out of bounds", 26);
	      BGL_DEFINE_STRING(BGl_string2535z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2535za700za7za7_2801za7, "fd:", 3);
	      BGL_DEFINE_STRING(BGl_string2617z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2617za700za7za7_2802za7, "Start offset greater than end", 29);
	      BGL_DEFINE_STRING(BGl_string2536z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2536za700za7za7_2803za7, "call-with-input-file", 20);
	      BGL_DEFINE_STRING(BGl_string2618z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2618za700za7za7_2804za7, "End offset out of bounds", 24);
	      BGL_DEFINE_STRING(BGl_string2537z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2537za700za7za7_2805za7, "can't open file", 15);
	      BGL_DEFINE_STRING(BGl_string2619z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2619za700za7za7_2806za7, "_open-input-string!", 19);
	      BGL_DEFINE_STRING(BGl_string2538z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2538za700za7za7_2807za7, "/tmp/bigloo/runtime/Ieee/port.scm",
		33);
	      BGL_DEFINE_STRING(BGl_string2539z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2539za700za7za7_2808za7, "&call-with-input-file", 21);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2outputzd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762callza7d2withza7d2809za7,
		BGl_z62callzd2withzd2outputzd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2700z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2700za700za7za7_2810za7, "&directory->path-vector", 23);
	      BGL_DEFINE_STRING(BGl_string2701z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2701za700za7za7_2811za7, "&file-modification-time", 23);
	      BGL_DEFINE_STRING(BGl_string2620z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2620za700za7za7_2812za7, "open-input-string!", 18);
	      BGL_DEFINE_STRING(BGl_string2702z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2702za700za7za7_2813za7, "&file-change-time", 17);
	      BGL_DEFINE_STRING(BGl_string2621z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2621za700za7za7_2814za7, "_open-input-mmap", 16);
	      BGL_DEFINE_STRING(BGl_string2540z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2540za700za7za7_2815za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2703z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2703za700za7za7_2816za7, "&file-access-time", 17);
	      BGL_DEFINE_STRING(BGl_string2622z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2622za700za7za7_2817za7, "mmap", 4);
	      BGL_DEFINE_STRING(BGl_string2541z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2541za700za7za7_2818za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2704z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2704za700za7za7_2819za7, "&file-times-set!", 16);
	      BGL_DEFINE_STRING(BGl_string2623z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2623za700za7za7_2820za7, "open-input-mmap", 15);
	      BGL_DEFINE_STRING(BGl_string2542z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2542za700za7za7_2821za7, "&call-with-input-string", 23);
	      BGL_DEFINE_STRING(BGl_string2705z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2705za700za7za7_2822za7, "belong", 6);
	      BGL_DEFINE_STRING(BGl_string2624z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2624za700za7za7_2823za7, "_open-input-procedure", 21);
	      BGL_DEFINE_STRING(BGl_string2543z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2543za700za7za7_2824za7, "open-output-file", 16);
	      BGL_DEFINE_STRING(BGl_string2706z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2706za700za7za7_2825za7, "&file-size", 10);
	      BGL_DEFINE_STRING(BGl_string2625z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2625za700za7za7_2826za7, "_open-input-gzip-port", 21);
	      BGL_DEFINE_STRING(BGl_string2544z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2544za700za7za7_2827za7, "call-with-output-file", 21);
	      BGL_DEFINE_STRING(BGl_string2707z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2707za700za7za7_2828za7, "&file-uid", 9);
	      BGL_DEFINE_STRING(BGl_string2626z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2626za700za7za7_2829za7, "open-input-gzip-port", 20);
	      BGL_DEFINE_STRING(BGl_string2545z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2545za700za7za7_2830za7, "&call-with-output-file", 22);
	      BGL_DEFINE_STRING(BGl_string2708z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2708za700za7za7_2831za7, "&file-gid", 9);
	      BGL_DEFINE_STRING(BGl_string2627z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2627za700za7za7_2832za7, "&open-input-c-string", 20);
	      BGL_DEFINE_STRING(BGl_string2546z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2546za700za7za7_2833za7, "append-output-file", 18);
	      BGL_DEFINE_STRING(BGl_string2709z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2709za700za7za7_2834za7, "&file-mode", 10);
	      BGL_DEFINE_STRING(BGl_string2628z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2628za700za7za7_2835za7, "&reopen-input-c-string", 22);
	      BGL_DEFINE_STRING(BGl_string2547z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2547za700za7za7_2836za7, "call-with-append-file", 21);
	      BGL_DEFINE_STRING(BGl_string2629z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2629za700za7za7_2837za7, "&input-port-timeout", 19);
	      BGL_DEFINE_STRING(BGl_string2548z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2548za700za7za7_2838za7, "&call-with-append-file", 22);
	      BGL_DEFINE_STRING(BGl_string2549z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2549za700za7za7_2839za7, "&call-with-output-string", 24);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2seekzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72840za7,
		BGl_z62inputzd2portzd2seekz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2directoryzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762makeza7d2direct2841z00,
		BGl_z62makezd2directoryzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__appendza7d2output2842za7, opt_generic_entry,
		BGl__appendzd2outputzd2filez00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2bufferzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2843z00,
		BGl_z62outputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2710z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2710za700za7za7_2844za7, "&file-type", 10);
	      BGL_DEFINE_STRING(BGl_string2711z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2711za700za7za7_2845za7, "&make-symlink", 13);
	      BGL_DEFINE_STRING(BGl_string2630z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2630za700za7za7_2846za7, "&input-port-timeout-set!", 24);
	      BGL_DEFINE_STRING(BGl_string2712z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2712za700za7za7_2847za7, "_select", 7);
	      BGL_DEFINE_STRING(BGl_string2631z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2631za700za7za7_2848za7, "&output-port-timeout", 20);
	      BGL_DEFINE_STRING(BGl_string2550z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2550za700za7za7_2849za7, "input-port-reopen!", 18);
	      BGL_DEFINE_STRING(BGl_string2632z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2632za700za7za7_2850za7, "_open-output-file", 17);
	      BGL_DEFINE_STRING(BGl_string2551z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2551za700za7za7_2851za7, "Cannot reopen port", 18);
	      BGL_DEFINE_STRING(BGl_string2633z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2633za700za7za7_2852za7, "_append-output-file", 19);
	      BGL_DEFINE_STRING(BGl_string2552z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2552za700za7za7_2853za7, "&input-port-reopen!", 19);
	      BGL_DEFINE_STRING(BGl_string2715z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2715za700za7za7_2854za7, "except", 6);
	      BGL_DEFINE_STRING(BGl_string2634z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2634za700za7za7_2855za7, "_open-output-string", 19);
	      BGL_DEFINE_STRING(BGl_string2553z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2553za700za7za7_2856za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string2635z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2635za700za7za7_2857za7, "_open-output-procedure", 22);
	      BGL_DEFINE_STRING(BGl_string2554z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2554za700za7za7_2858za7, "&input-port-clone!", 18);
	      BGL_DEFINE_STRING(BGl_string2717z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2717za700za7za7_2859za7, "read", 4);
	      BGL_DEFINE_STRING(BGl_string2555z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2555za700za7za7_2860za7, "with-input-from-file", 20);
	      BGL_DEFINE_STRING(BGl_string2556z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2556za700za7za7_2861za7, "&with-input-from-file", 21);
	      BGL_DEFINE_STRING(BGl_string2719z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2719za700za7za7_2862za7, "timeout", 7);
	      BGL_DEFINE_STRING(BGl_string2557z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2557za700za7za7_2863za7, "&with-input-from-string", 23);
	      BGL_DEFINE_STRING(BGl_string2558z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2558za700za7za7_2864za7, "&with-input-from-port", 21);
	      BGL_DEFINE_STRING(BGl_string2559z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2559za700za7za7_2865za7, "open-input-procedure", 20);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2mmapzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2mmapza72866za7,
		BGl_z62inputzd2mmapzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2appendzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2append2867z00,
		BGl_z62withzd2appendzd2tozd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2gza7ipzf3zd2envz54zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2gza7a7ip2868za7,
		BGl_z62filezd2gza7ipzf3ze4zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2721z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2721za700za7za7_2869za7, "write", 5);
	      BGL_DEFINE_STRING(BGl_string2640z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2640za700za7za7_2870za7, "open-output-procedure", 21);
	      BGL_DEFINE_STRING(BGl_string2641z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2641za700za7za7_2871za7, "Illegal flush procedure", 23);
	      BGL_DEFINE_STRING(BGl_string2560z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2560za700za7za7_2872za7, "&with-input-from-procedure", 26);
	      BGL_DEFINE_STRING(BGl_string2723z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2723za700za7za7_2873za7, "select", 6);
	      BGL_DEFINE_STRING(BGl_string2642z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2642za700za7za7_2874za7, "Illegal close procedure", 23);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2636z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762flush2078za762za72875za7,
		BGl_z62flush2078z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2561z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2561za700za7za7_2876za7, "with-output-to-file", 19);
	      BGL_DEFINE_STRING(BGl_string2724z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2724za700za7za7_2877za7, "Illegal keyword argument", 24);
	      BGL_DEFINE_STRING(BGl_string2643z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2643za700za7za7_2878za7, "Illegal write procedure", 23);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2637z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762close2077za762za72879za7,
		BGl_z62close2077z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2562z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2562za700za7za7_2880za7, "&with-output-to-file", 20);
	      BGL_DEFINE_STRING(BGl_string2725z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2725za700za7za7_2881za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2644z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2644za700za7za7_2882za7, "&output-port-timeout-set!", 25);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2638z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762close2076za762za72883za7,
		BGl_z62close2076z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2563z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2563za700za7za7_2884za7, "&with-append-to-file", 20);
	      BGL_DEFINE_STRING(BGl_string2726z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2726za700za7za7_2885za7,
		"wrong number of arguments: [0..4] expected, provided", 52);
	      BGL_DEFINE_STRING(BGl_string2645z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2645za700za7za7_2886za7, "&closed-input-port?", 19);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2639z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762close2075za762za72887za7,
		BGl_z62close2075z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2564z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2564za700za7za7_2888za7, "&with-output-to-port", 20);
	      BGL_DEFINE_STRING(BGl_string2727z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2727za700za7za7_2889za7, "_open-pipes", 11);
	      BGL_DEFINE_STRING(BGl_string2646z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2646za700za7za7_2890za7, "&close-input-port", 17);
	      BGL_DEFINE_STRING(BGl_string2565z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2565za700za7za7_2891za7, "output-port", 11);
	      BGL_DEFINE_STRING(BGl_string2728z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2728za700za7za7_2892za7, "_lockf", 6);
	      BGL_DEFINE_STRING(BGl_string2647z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2647za700za7za7_2893za7, "&get-output-string", 18);
	      BGL_DEFINE_STRING(BGl_string2566z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2566za700za7za7_2894za7, "&with-output-to-string", 22);
	      BGL_DEFINE_STRING(BGl_string2729z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2729za700za7za7_2895za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2648z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2648za700za7za7_2896za7, "&close-output-port", 18);
	      BGL_DEFINE_STRING(BGl_string2649z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2649za700za7za7_2897za7, "&flush-output-port", 18);
	      BGL_DEFINE_STRING(BGl_string2569z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2569za700za7za7_2898za7, "&with-output-to-procedure", 25);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72899za7,
		BGl_z62inputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_deletezd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762deleteza7d2file2900z00,
		BGl_z62deletezd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2731z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2731za700za7za7_2901za7, "lock", 4);
	      BGL_DEFINE_STRING(BGl_string2650z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2650za700za7za7_2902za7, "&reset-output-port", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2outputzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2output2903z00,
		BGl_z62withzd2outputzd2tozd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2651z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2651za700za7za7_2904za7, "&reset-eof", 10);
	      BGL_DEFINE_STRING(BGl_string2570z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2570za700za7za7_2905za7, "&with-error-to-string", 21);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2uidzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2uidza7b02906za7,
		BGl_z62filezd2uidzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2733z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2733za700za7za7_2907za7, "tlock", 5);
	      BGL_DEFINE_STRING(BGl_string2652z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2652za700za7za7_2908za7, "&set-input-port-position!", 25);
	      BGL_DEFINE_STRING(BGl_string2653z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2653za700za7za7_2909za7, "&input-port-position", 20);
	      BGL_DEFINE_STRING(BGl_string2572z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2572za700za7za7_2910za7, "with-error-to-file", 18);
	      BGL_DEFINE_STRING(BGl_string2735z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2735za700za7za7_2911za7, "ulock", 5);
	      BGL_DEFINE_STRING(BGl_string2654z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2654za700za7za7_2912za7, "&input-port-fill-barrier", 24);
	      BGL_DEFINE_STRING(BGl_string2573z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2573za700za7za7_2913za7, "&with-error-to-file", 19);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2567z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762flushza762za7za7__r2914z00,
		BGl_z62flushz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2655z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2655za700za7za7_2915za7, "&input-port-fill-barrier-set!", 29);
	      BGL_DEFINE_STRING(BGl_string2574z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2574za700za7za7_2916za7, "&with-error-to-port", 19);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2568z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762closeza762za7za7__r2917z00,
		BGl_z62closez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_currentzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762currentza7d2out2918z00,
		BGl_z62currentzd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_resetzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762resetza7d2outpu2919z00,
		BGl_z62resetzd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2737z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2737za700za7za7_2920za7, "test", 4);
	      BGL_DEFINE_STRING(BGl_string2656z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2656za700za7za7_2921za7, "&input-port-last-token-position",
		31);
	      BGL_DEFINE_STRING(BGl_string2738z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2738za700za7za7_2922za7, "lockf", 5);
	      BGL_DEFINE_STRING(BGl_string2657z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2657za700za7za7_2923za7, "&output-port-name", 17);
	      BGL_DEFINE_STRING(BGl_string2739z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2739za700za7za7_2924za7, "Bad command", 11);
	      BGL_DEFINE_STRING(BGl_string2658z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2658za700za7za7_2925za7, "&output-port-name-set!", 22);
	      BGL_DEFINE_STRING(BGl_string2577z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2577za700za7za7_2926za7, "&with-error-to-procedure", 24);
	      BGL_DEFINE_STRING(BGl_string2659z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2659za700za7za7_2927za7, "set-output-port-position!", 25);
	      BGL_DEFINE_STRING(BGl_string2578z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2578za700za7za7_2928za7, "input-port-protocol-set!", 24);
	      BGL_DEFINE_STRING(BGl_string2579z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2579za700za7za7_2929za7,
		"Illegal open procedure for protocol", 35);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_directoryzd2ze3listzd2envze3zz__r4_ports_6_10_1z00,
		BgL_bgl_za762directoryza7d2za72930za7,
		BGl_z62directoryzd2ze3listz53zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72931za7,
		BGl_z62inputzd2portzf3z43zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2932z00,
		BGl_z62outputzd2portzf3z43zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2740za700za7za7_2933za7, "__r4_ports_6_10_1", 17);
	      BGL_DEFINE_STRING(BGl_string2660z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2660za700za7za7_2934za7, "Cannot seek port", 16);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2typezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2typeza7b2935za7,
		BGl_z62filezd2typezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2661z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2661za700za7za7_2936za7, "&set-output-port-position!", 26);
	      BGL_DEFINE_STRING(BGl_string2580z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2580za700za7za7_2937za7, "Illegal buffer", 14);
	      BGL_DEFINE_STRING(BGl_string2662z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2662za700za7za7_2938za7, "&output-port-position", 21);
	      BGL_DEFINE_STRING(BGl_string2581z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2581za700za7za7_2939za7, "&get-port-buffer", 16);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2575z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762flush2074za762za72940za7,
		BGl_z62flush2074z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2663z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2663za700za7za7_2941za7, "&output-port-isatty?", 20);
	      BGL_DEFINE_STRING(BGl_string2582z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2582za700za7za7_2942za7, "bint", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2576z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762close2073za762za72943za7,
		BGl_z62close2073z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2664z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2664za700za7za7_2944za7, "&input-port-name", 16);
	      BGL_DEFINE_STRING(BGl_string2583z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2583za700za7za7_2945za7, "open-input-pipe", 15);
	      BGL_DEFINE_STRING(BGl_string2665z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2665za700za7za7_2946za7, "&input-port-name-set!", 21);
	      BGL_DEFINE_STRING(BGl_string2584z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2584za700za7za7_2947za7, "open-input-file", 15);
	      BGL_DEFINE_STRING(BGl_string2666z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2666za700za7za7_2948za7, "&input-port-length", 18);
	      BGL_DEFINE_STRING(BGl_string2667z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2667za700za7za7_2949za7, "&output-port-close-hook", 23);
	      BGL_DEFINE_STRING(BGl_string2586z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2586za700za7za7_2950za7, "http", 4);
	      BGL_DEFINE_STRING(BGl_string2668z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2668za700za7za7_2951za7, "&closed-output-port?", 20);
	      BGL_DEFINE_STRING(BGl_string2669z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2669za700za7za7_2952za7, "output-port-close-hook-set!", 27);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2953z00,
		BGl_z62outputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d22954z00, opt_generic_entry,
		BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2670z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2670za700za7za7_2955za7, "&output-port-close-hook-set!", 28);
	      BGL_DEFINE_STRING(BGl_string2671z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2671za700za7za7_2956za7, "&output-port-flush-hook", 23);
	      BGL_DEFINE_STRING(BGl_string2590z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2590za700za7za7_2957za7, "user-agent", 10);
	      BGL_DEFINE_STRING(BGl_string2672z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2672za700za7za7_2958za7, "output-port-flush-hook-set!", 27);
	      BGL_DEFINE_STRING(BGl_string2591z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2591za700za7za7_2959za7, "Mozilla/5.0", 11);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2585z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762parserza762za7za7__2960z00,
		BGl_z62parserz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string2673z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2673za700za7za7_2961za7, "&output-port-flush-hook-set!", 28);
	      BGL_DEFINE_STRING(BGl_string2674z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2674za700za7za7_2962za7, "&output-port-flush-buffer", 25);
	      BGL_DEFINE_STRING(BGl_string2675z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2675za700za7za7_2963za7, "&output-port-flush-buffer-set!",
		30);
	      BGL_DEFINE_STRING(BGl_string2594z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2594za700za7za7_2964za7, "Connection", 10);
	      BGL_DEFINE_STRING(BGl_string2676z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2676za700za7za7_2965za7, "&input-port-close-hook", 22);
	      BGL_DEFINE_STRING(BGl_string2677z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2677za700za7za7_2966za7, "&input-port-close-hook-set!", 27);
	      BGL_DEFINE_STRING(BGl_string2596z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2596za700za7za7_2967za7, "close", 5);
	      BGL_DEFINE_STRING(BGl_string2678z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2678za700za7za7_2968za7, "&input-port-seek", 16);
	      BGL_DEFINE_STRING(BGl_string2679z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2679za700za7za7_2969za7, "&input-port-seek-set!", 21);
	      BGL_DEFINE_STRING(BGl_string2598z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2598za700za7za7_2970za7, "get", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2fillzd2barrierzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza72971za7,
		BGl_z62inputzd2portzd2fillzd2barrierzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2680z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2680za700za7za7_2972za7, "&input-port-buffer", 18);
	      BGL_DEFINE_STRING(BGl_string2681z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2681za700za7za7_2973za7, "&input-port-buffer-set!", 23);
	      BGL_DEFINE_STRING(BGl_string2682z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2682za700za7za7_2974za7, "&output-port-buffer", 19);
	      BGL_DEFINE_STRING(BGl_string2683z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2683za700za7za7_2975za7, "&output-port-buffer-set!", 24);
	      BGL_DEFINE_STRING(BGl_string2684z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2684za700za7za7_2976za7, "&file-exists?", 13);
	      BGL_DEFINE_STRING(BGl_string2686z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2686za700za7za7_2977za7, "&delete-file", 12);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_z52openzd2inputzd2httpzd2socketzd2envz52zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za752openza7d2inp2978za7,
		BGl_z62z52openzd2inputzd2httpzd2socketze2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2687z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2687za700za7za7_2979za7, "&make-directory", 15);
	      BGL_DEFINE_STRING(BGl_string2688z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2688za700za7za7_2980za7, "&make-directories", 17);
	      BGL_DEFINE_STRING(BGl_string2689z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2689za700za7za7_2981za7, "&delete-directory", 17);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2descriptorzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d22982z00, opt_generic_entry,
		BGl__openzd2inputzd2descriptorz00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2outputzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2output2983z00,
		BGl_z62withzd2outputzd2tozd2procedurezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762getza7d2outputza72984za7,
		BGl_z62getzd2outputzd2stringz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port2985z00,
		BGl_z62outputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2existszf3zd2envzf3zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2exists2986z00,
		BGl_z62filezd2existszf3z43zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2690z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2690za700za7za7_2987za7, "&rename-file", 12);
	      BGL_DEFINE_STRING(BGl_string2691z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2691za700za7za7_2988za7, "&truncate-file", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2685z00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za7c3za704anonymo2989za7,
		BGl_z62zc3z04anonymousza31583ze3ze5zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2692z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2692za700za7za7_2990za7, "&output-port-truncate", 21);
	      BGL_DEFINE_STRING(BGl_string2693z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2693za700za7za7_2991za7, "&copy-file", 10);
	      BGL_DEFINE_STRING(BGl_string2694z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2694za700za7za7_2992za7, "&directory?", 11);
	      BGL_DEFINE_STRING(BGl_string2695z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2695za700za7za7_2993za7, "&directory-length", 17);
	      BGL_DEFINE_STRING(BGl_string2696z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2696za700za7za7_2994za7, "&directory->list", 16);
	      BGL_DEFINE_STRING(BGl_string2697z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2697za700za7za7_2995za7, "&directory->path-list", 21);
	      BGL_DEFINE_STRING(BGl_string2698z00zz__r4_ports_6_10_1z00,
		BgL_bgl_string2698za700za7za7_2996za7, "&directory->vector", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2strin2997z00,
		BGl_z62inputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2outputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2outputza7d2998z00, opt_generic_entry,
		BGl__openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2gza7ipzd2portzf3zd2envz86zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2gza7a7i2999za7,
		BGl_z62inputzd2gza7ipzd2portzf3z36zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_copyzd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762copyza7d2fileza7b3000za7,
		BGl_z62copyzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_directoryzd2ze3pathzd2vectorzd2envz31zz__r4_ports_6_10_1z00,
		BgL_bgl_za762directoryza7d2za73001za7,
		BGl_z62directoryzd2ze3pathzd2vectorz81zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2accesszd2timezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2access3002z00,
		BGl_z62filezd2accesszd2timez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2timeszd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2timesza73003za7,
		BGl_z62filezd2timeszd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
	extern obj_t BGl_openzd2inputzd2inflatezd2filezd2envz00zz__gunza7ipza7;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2flushzd2hookzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3004z00,
		BGl_z62outputzd2portzd2flushzd2hookzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3005z00,
		BGl_z62outputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	extern obj_t BGl_openzd2inputzd2ftpzd2filezd2envz00zz__ftpz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_directoryzd2ze3vectorzd2envze3zz__r4_ports_6_10_1z00,
		BgL_bgl_za762directoryza7d2za73006za7,
		BGl_z62directoryzd2ze3vectorz53zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2proce3007z00,
		BGl_z62inputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_z52openzd2inputzd2descriptorzd2envz80zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za752openza7d2inp3008za7,
		BGl_z62z52openzd2inputzd2descriptorz30zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_directoryzd2lengthzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762directoryza7d2l3009z00,
		BGl_z62directoryzd2lengthzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_flushzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762flushza7d2outpu3010z00,
		BGl_z62flushzd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2errorzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2errorza73011za7,
		BGl_z62withzd2errorzd2tozd2procedurezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2lengthzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73012za7,
		BGl_z62inputzd2portzd2lengthz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2inputzd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762callza7d2withza7d3013za7,
		BGl_z62callzd2withzd2inputzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2seekzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73014za7,
		BGl_z62inputzd2portzd2seekzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_renamezd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762renameza7d2file3015z00,
		BGl_z62renamezd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2inputzd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762callza7d2withza7d3016za7,
		BGl_z62callzd2withzd2inputzd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2symlinkzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762makeza7d2symlin3017z00,
		BGl_z62makezd2symlinkzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2flushzd2bufferzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3018z00,
		BGl_z62outputzd2portzd2flushzd2bufferzd2setz12z70zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_truncatezd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762truncateza7d2fi3019z00,
		BGl_z62truncatezd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_deletezd2directoryzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762deleteza7d2dire3020z00,
		BGl_z62deletezd2directoryzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2reopenz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73021za7,
		BGl_z62inputzd2portzd2reopenz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2pipeszd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2pipesza7d23022z00, opt_generic_entry,
		BGl__openzd2pipeszd2zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2inputzd2fromzd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2inputza73023za7,
		BGl_z62withzd2inputzd2fromzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2truncatezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3024z00,
		BGl_z62outputzd2portzd2truncatez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_directoryzd2ze3pathzd2listzd2envz31zz__r4_ports_6_10_1z00,
		BgL_bgl_za762directoryza7d2za73025za7,
		BGl_z62directoryzd2ze3pathzd2listz81zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_getzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762getza7d2portza7d23026za7,
		BGl_z62getzd2portzd2bufferz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2gidzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2gidza7b03027za7,
		BGl_z62filezd2gidzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2stri3028z00,
		BGl_z62outputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filezd2siza7ezd2envza7zz__r4_ports_6_10_1z00,
		BgL_bgl_za762fileza7d2siza7a7e3029za7,
		BGl_z62filezd2siza7ez17zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2isattyzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3030z00,
		BGl_z62outputzd2portzd2isattyzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2stringz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d23031z00, opt_generic_entry,
		BGl__openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_reopenzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762reopenza7d2inpu3032z00,
		BGl_z62reopenzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);
	extern obj_t BGl_openzd2inputzd2gza7ipzd2filezd2envza7zz__gunza7ipza7;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_closezd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762closeza7d2input3033z00,
		BGl_z62closezd2inputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_z52openzd2inputzd2resourcezd2envz80zz__r4_ports_6_10_1z00,
		BgL_bgl_za762za752openza7d2inp3034za7,
		BGl_z62z52openzd2inputzd2resourcez30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73035za7,
		BGl_z62inputzd2portzd2bufferz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_lockfzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__lockfza700za7za7__r4_3036za7, opt_generic_entry,
		BGl__lockfz00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_directoryzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762directoryza7f3za73037za7,
		BGl_z62directoryzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2fillzd2barrierzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73038za7,
		BGl_z62inputzd2portzd2fillzd2barrierzd2setz12z70zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2inputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762setza7d2inputza7d3039za7,
		BGl_z62setzd2inputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3040z00,
		BGl_z62outputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_closezd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762closeza7d2outpu3041z00,
		BGl_z62closezd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2portzd2flushzd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2port3042z00,
		BGl_z62outputzd2portzd2flushzd2hookzd2setz12z70zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2inputzd2fromzd2procedurezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2inputza73043za7,
		BGl_z62withzd2inputzd2fromzd2procedurezb0zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2stringzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d23044z00, opt_generic_entry,
		BGl__openzd2inputzd2stringz00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2lastzd2tokenzd2positionzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73045za7,
		BGl_z62inputzd2portzd2lastzd2tokenzd2positionz62zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2outputza7d3046z00, opt_generic_entry,
		BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2outputzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2output3047z00,
		BGl_z62withzd2outputzd2tozd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_selectzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__selectza700za7za7__r43048za7, opt_generic_entry,
		BGl__selectz00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2inputzd2fromzd2portzd2envz00zz__r4_ports_6_10_1z00,
		BgL_bgl_za762withza7d2inputza73049za7,
		BGl_z62withzd2inputzd2fromzd2portzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_outputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
		BgL_bgl_za762outputza7d2proc3050z00,
		BGl_z62outputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2outputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762setza7d2outputza73051za7,
		BGl_z62setzd2outputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_currentzd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762currentza7d2inp3052z00,
		BGl_z62currentzd2inputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73053za7,
		BGl_z62inputzd2portzd2positionz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2gza7ipzd2portzd2envza7zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2inputza7d23054z00, opt_generic_entry,
		BGl__openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73055za7,
		BGl_z62inputzd2portzd2namez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2protocolzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73056za7,
		BGl_z62inputzd2portzd2protocolzd2setz12za2zz__r4_ports_6_10_1z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00,
		BgL_bgl__openza7d2outputza7d3057z00, opt_generic_entry,
		BGl__openzd2outputzd2filez00zz__r4_ports_6_10_1z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_inputzd2portzd2bufferzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
		BgL_bgl_za762inputza7d2portza73058za7,
		BGl_z62inputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC,
		2);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2bufferzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73058za7);
		BGL_BIND_PROCEDURE(BGl_openzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2outputza7d3057z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2protocolzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73056za7);
		BGL_BIND_PROCEDURE(BGl_inputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73055za7);
		BGL_BIND_PROCEDURE
			(BGl_openzd2inputzd2gza7ipzd2portzd2envza7zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d23054z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73053za7);
		BGL_BIND_PROCEDURE
			(BGl_currentzd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762currentza7d2inp3052z00);
		BGL_BIND_PROCEDURE
			(BGl_setzd2outputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762setza7d2outputza73051za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2proc3050z00);
		BGL_BIND_PROCEDURE
			(BGl_withzd2inputzd2fromzd2portzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2inputza73049za7);
		BGL_BIND_PROCEDURE(BGl_selectzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__selectza700za7za7__r43048za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2outputzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2output3047z00);
		BGL_BIND_PROCEDURE
			(BGl_openzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2outputza7d3046z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2lastzd2tokenzd2positionzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73045za7);
		BGL_BIND_PROCEDURE(BGl_openzd2inputzd2stringzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d23044z00);
		BGL_BIND_PROCEDURE
			(BGl_withzd2inputzd2fromzd2procedurezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2inputza73043za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2flushzd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3042z00);
		BGL_BIND_PROCEDURE(BGl_closezd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762closeza7d2outpu3041z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3040z00);
		BGL_BIND_PROCEDURE
			(BGl_setzd2inputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762setza7d2inputza7d3039za7);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2fillzd2barrierzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73038za7);
		BGL_BIND_PROCEDURE(BGl_directoryzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762directoryza7f3za73037za7);
		BGL_BIND_PROCEDURE(BGl_lockfzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__lockfza700za7za7__r4_3036za7);
		BGL_BIND_PROCEDURE(BGl_inputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73035za7);
		BGL_BIND_PROCEDURE
			(BGl_z52openzd2inputzd2resourcezd2envz80zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za752openza7d2inp3034za7);
		BGL_BIND_PROCEDURE(BGl_closezd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762closeza7d2input3033z00);
		BGL_BIND_PROCEDURE
			(BGl_reopenzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762reopenza7d2inpu3032z00);
		BGL_BIND_PROCEDURE
			(BGl_openzd2inputzd2stringz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d23031z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2isattyzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3030z00);
		BGL_BIND_PROCEDURE(BGl_filezd2siza7ezd2envza7zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2siza7a7e3029za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2stri3028z00);
		BGL_BIND_PROCEDURE(BGl_filezd2gidzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2gidza7b03027za7);
		BGL_BIND_PROCEDURE(BGl_getzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762getza7d2portza7d23026za7);
		BGL_BIND_PROCEDURE
			(BGl_directoryzd2ze3pathzd2listzd2envz31zz__r4_ports_6_10_1z00,
			BgL_bgl_za762directoryza7d2za73025za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2truncatezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3024z00);
		BGL_BIND_PROCEDURE
			(BGl_withzd2inputzd2fromzd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2inputza73023za7);
		BGL_BIND_PROCEDURE(BGl_openzd2pipeszd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2pipesza7d23022z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2reopenz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73021za7);
		BGL_BIND_PROCEDURE(BGl_deletezd2directoryzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762deleteza7d2dire3020z00);
		BGL_BIND_PROCEDURE(BGl_truncatezd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762truncateza7d2fi3019z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2flushzd2bufferzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3018z00);
		BGL_BIND_PROCEDURE(BGl_makezd2symlinkzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762makeza7d2symlin3017z00);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2inputzd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762callza7d2withza7d3016za7);
		BGL_BIND_PROCEDURE(BGl_renamezd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762renameza7d2file3015z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2seekzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73014za7);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2inputzd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762callza7d2withza7d3013za7);
		BGL_BIND_PROCEDURE(BGl_inputzd2portzd2lengthzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza73012za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2errorzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2errorza73011za7);
		BGL_BIND_PROCEDURE(BGl_flushzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762flushza7d2outpu3010z00);
		BGL_BIND_PROCEDURE(BGl_directoryzd2lengthzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762directoryza7d2l3009z00);
		BGL_BIND_PROCEDURE
			(BGl_z52openzd2inputzd2descriptorzd2envz80zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za752openza7d2inp3008za7);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2proce3007z00);
		BGL_BIND_PROCEDURE(BGl_directoryzd2ze3vectorzd2envze3zz__r4_ports_6_10_1z00,
			BgL_bgl_za762directoryza7d2za73006za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3005z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2flushzd2hookzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port3004z00);
		BGL_BIND_PROCEDURE(BGl_filezd2timeszd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2timesza73003za7);
		BGL_BIND_PROCEDURE(BGl_filezd2accesszd2timezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2access3002z00);
		BGL_BIND_PROCEDURE
			(BGl_directoryzd2ze3pathzd2vectorzd2envz31zz__r4_ports_6_10_1z00,
			BgL_bgl_za762directoryza7d2za73001za7);
		BGL_BIND_PROCEDURE(BGl_copyzd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762copyza7d2fileza7b3000za7);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2gza7ipzd2portzf3zd2envz86zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2gza7a7i2999za7);
		BGL_BIND_PROCEDURE
			(BGl_openzd2outputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2outputza7d2998z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2strin2997z00);
		BGL_BIND_STRING(BGl_string2698z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2698za700za7za7_2996za7);
		BGL_BIND_STRING(BGl_string2697z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2697za700za7za7_2995za7);
		BGL_BIND_STRING(BGl_string2696z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2696za700za7za7_2994za7);
		BGL_BIND_STRING(BGl_string2695z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2695za700za7za7_2993za7);
		BGL_BIND_STRING(BGl_string2694z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2694za700za7za7_2992za7);
		BGL_BIND_STRING(BGl_string2693z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2693za700za7za7_2991za7);
		BGL_BIND_STRING(BGl_string2692z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2692za700za7za7_2990za7);
		BGL_BIND_PROCEDURE(BGl_proc2685z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za7c3za704anonymo2989za7);
		BGL_BIND_STRING(BGl_string2691z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2691za700za7za7_2988za7);
		BGL_BIND_STRING(BGl_string2690z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2690za700za7za7_2987za7);
		BGL_BIND_PROCEDURE(BGl_filezd2existszf3zd2envzf3zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2exists2986z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2985z00);
		BGL_BIND_PROCEDURE(BGl_getzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762getza7d2outputza72984za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2outputzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2output2983z00);
		BGL_BIND_PROCEDURE
			(BGl_openzd2inputzd2descriptorzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d22982z00);
		BGL_BIND_STRING(BGl_string2689z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2689za700za7za7_2981za7);
		BGL_BIND_STRING(BGl_string2688z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2688za700za7za7_2980za7);
		BGL_BIND_STRING(BGl_string2687z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2687za700za7za7_2979za7);
		BGL_BIND_PROCEDURE
			(BGl_z52openzd2inputzd2httpzd2socketzd2envz52zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za752openza7d2inp2978za7);
		BGL_BIND_STRING(BGl_string2686z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2686za700za7za7_2977za7);
		BGL_BIND_STRING(BGl_string2684z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2684za700za7za7_2976za7);
		BGL_BIND_STRING(BGl_string2683z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2683za700za7za7_2975za7);
		BGL_BIND_STRING(BGl_string2682z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2682za700za7za7_2974za7);
		BGL_BIND_STRING(BGl_string2681z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2681za700za7za7_2973za7);
		BGL_BIND_STRING(BGl_string2680z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2680za700za7za7_2972za7);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2fillzd2barrierzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72971za7);
		BGL_BIND_STRING(BGl_string2598z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2598za700za7za7_2970za7);
		BGL_BIND_STRING(BGl_string2679z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2679za700za7za7_2969za7);
		BGL_BIND_STRING(BGl_string2678z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2678za700za7za7_2968za7);
		BGL_BIND_STRING(BGl_string2596z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2596za700za7za7_2967za7);
		BGL_BIND_STRING(BGl_string2677z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2677za700za7za7_2966za7);
		BGL_BIND_STRING(BGl_string2676z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2676za700za7za7_2965za7);
		BGL_BIND_STRING(BGl_string2594z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2594za700za7za7_2964za7);
		BGL_BIND_STRING(BGl_string2675z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2675za700za7za7_2963za7);
		BGL_BIND_STRING(BGl_string2674z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2674za700za7za7_2962za7);
		BGL_BIND_STRING(BGl_string2673z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2673za700za7za7_2961za7);
		BGL_BIND_PROCEDURE(BGl_proc2585z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762parserza762za7za7__2960z00);
		BGL_BIND_STRING(BGl_string2591z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2591za700za7za7_2959za7);
		BGL_BIND_STRING(BGl_string2672z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2672za700za7za7_2958za7);
		BGL_BIND_STRING(BGl_string2590z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2590za700za7za7_2957za7);
		BGL_BIND_STRING(BGl_string2671z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2671za700za7za7_2956za7);
		BGL_BIND_STRING(BGl_string2670z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2670za700za7za7_2955za7);
		BGL_BIND_PROCEDURE
			(BGl_openzd2inputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d22954z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2953z00);
		BGL_BIND_STRING(BGl_string2669z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2669za700za7za7_2952za7);
		BGL_BIND_STRING(BGl_string2668z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2668za700za7za7_2951za7);
		BGL_BIND_STRING(BGl_string2586z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2586za700za7za7_2950za7);
		BGL_BIND_STRING(BGl_string2667z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2667za700za7za7_2949za7);
		BGL_BIND_STRING(BGl_string2666z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2666za700za7za7_2948za7);
		BGL_BIND_STRING(BGl_string2584z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2584za700za7za7_2947za7);
		BGL_BIND_STRING(BGl_string2665z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2665za700za7za7_2946za7);
		BGL_BIND_STRING(BGl_string2583z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2583za700za7za7_2945za7);
		BGL_BIND_STRING(BGl_string2664z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2664za700za7za7_2944za7);
		BGL_BIND_PROCEDURE(BGl_proc2576z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762close2073za762za72943za7);
		BGL_BIND_STRING(BGl_string2582z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2582za700za7za7_2942za7);
		BGL_BIND_STRING(BGl_string2663z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2663za700za7za7_2941za7);
		BGL_BIND_PROCEDURE(BGl_proc2575z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762flush2074za762za72940za7);
		BGL_BIND_STRING(BGl_string2581z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2581za700za7za7_2939za7);
		BGL_BIND_STRING(BGl_string2662z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2662za700za7za7_2938za7);
		BGL_BIND_STRING(BGl_string2580z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2580za700za7za7_2937za7);
		BGL_BIND_STRING(BGl_string2661z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2661za700za7za7_2936za7);
		BGL_BIND_PROCEDURE(BGl_filezd2typezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2typeza7b2935za7);
		BGL_BIND_STRING(BGl_string2660z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2660za700za7za7_2934za7);
		BGL_BIND_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2740za700za7za7_2933za7);
		BGL_BIND_PROCEDURE(BGl_outputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2932z00);
		BGL_BIND_PROCEDURE(BGl_inputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72931za7);
		BGL_BIND_PROCEDURE(BGl_directoryzd2ze3listzd2envze3zz__r4_ports_6_10_1z00,
			BgL_bgl_za762directoryza7d2za72930za7);
		BGL_BIND_STRING(BGl_string2579z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2579za700za7za7_2929za7);
		BGL_BIND_STRING(BGl_string2578z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2578za700za7za7_2928za7);
		BGL_BIND_STRING(BGl_string2659z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2659za700za7za7_2927za7);
		BGL_BIND_STRING(BGl_string2577z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2577za700za7za7_2926za7);
		BGL_BIND_STRING(BGl_string2658z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2658za700za7za7_2925za7);
		BGL_BIND_STRING(BGl_string2739z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2739za700za7za7_2924za7);
		BGL_BIND_STRING(BGl_string2657z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2657za700za7za7_2923za7);
		BGL_BIND_STRING(BGl_string2738z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2738za700za7za7_2922za7);
		BGL_BIND_STRING(BGl_string2656z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2656za700za7za7_2921za7);
		BGL_BIND_STRING(BGl_string2737z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2737za700za7za7_2920za7);
		BGL_BIND_PROCEDURE(BGl_resetzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762resetza7d2outpu2919z00);
		BGL_BIND_PROCEDURE
			(BGl_currentzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762currentza7d2out2918z00);
		BGL_BIND_PROCEDURE(BGl_proc2568z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762closeza762za7za7__r2917z00);
		BGL_BIND_STRING(BGl_string2574z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2574za700za7za7_2916za7);
		BGL_BIND_STRING(BGl_string2655z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2655za700za7za7_2915za7);
		BGL_BIND_PROCEDURE(BGl_proc2567z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762flushza762za7za7__r2914z00);
		BGL_BIND_STRING(BGl_string2573z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2573za700za7za7_2913za7);
		BGL_BIND_STRING(BGl_string2654z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2654za700za7za7_2912za7);
		BGL_BIND_STRING(BGl_string2735z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2735za700za7za7_2911za7);
		BGL_BIND_STRING(BGl_string2572z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2572za700za7za7_2910za7);
		BGL_BIND_STRING(BGl_string2653z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2653za700za7za7_2909za7);
		BGL_BIND_STRING(BGl_string2652z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2652za700za7za7_2908za7);
		BGL_BIND_STRING(BGl_string2733z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2733za700za7za7_2907za7);
		BGL_BIND_PROCEDURE(BGl_filezd2uidzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2uidza7b02906za7);
		BGL_BIND_STRING(BGl_string2570z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2570za700za7za7_2905za7);
		BGL_BIND_STRING(BGl_string2651z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2651za700za7za7_2904za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2outputzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2output2903z00);
		BGL_BIND_STRING(BGl_string2650z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2650za700za7za7_2902za7);
		BGL_BIND_STRING(BGl_string2731z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2731za700za7za7_2901za7);
		BGL_BIND_PROCEDURE(BGl_deletezd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762deleteza7d2file2900z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72899za7);
		BGL_BIND_STRING(BGl_string2569z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2569za700za7za7_2898za7);
		BGL_BIND_STRING(BGl_string2649z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2649za700za7za7_2897za7);
		BGL_BIND_STRING(BGl_string2648z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2648za700za7za7_2896za7);
		BGL_BIND_STRING(BGl_string2729z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2729za700za7za7_2895za7);
		BGL_BIND_STRING(BGl_string2566z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2566za700za7za7_2894za7);
		BGL_BIND_STRING(BGl_string2647z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2647za700za7za7_2893za7);
		BGL_BIND_STRING(BGl_string2728z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2728za700za7za7_2892za7);
		BGL_BIND_STRING(BGl_string2565z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2565za700za7za7_2891za7);
		BGL_BIND_STRING(BGl_string2646z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2646za700za7za7_2890za7);
		BGL_BIND_STRING(BGl_string2727z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2727za700za7za7_2889za7);
		BGL_BIND_STRING(BGl_string2564z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2564za700za7za7_2888za7);
		BGL_BIND_PROCEDURE(BGl_proc2639z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762close2075za762za72887za7);
		BGL_BIND_STRING(BGl_string2645z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2645za700za7za7_2886za7);
		BGL_BIND_STRING(BGl_string2726z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2726za700za7za7_2885za7);
		BGL_BIND_STRING(BGl_string2563z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2563za700za7za7_2884za7);
		BGL_BIND_PROCEDURE(BGl_proc2638z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762close2076za762za72883za7);
		BGL_BIND_STRING(BGl_string2644z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2644za700za7za7_2882za7);
		BGL_BIND_STRING(BGl_string2725z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2725za700za7za7_2881za7);
		BGL_BIND_STRING(BGl_string2562z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2562za700za7za7_2880za7);
		BGL_BIND_PROCEDURE(BGl_proc2637z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762close2077za762za72879za7);
		BGL_BIND_STRING(BGl_string2643z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2643za700za7za7_2878za7);
		BGL_BIND_STRING(BGl_string2724z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2724za700za7za7_2877za7);
		BGL_BIND_STRING(BGl_string2561z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2561za700za7za7_2876za7);
		BGL_BIND_PROCEDURE(BGl_proc2636z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762flush2078za762za72875za7);
		BGL_BIND_STRING(BGl_string2642z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2642za700za7za7_2874za7);
		BGL_BIND_STRING(BGl_string2723z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2723za700za7za7_2873za7);
		BGL_BIND_STRING(BGl_string2560z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2560za700za7za7_2872za7);
		BGL_BIND_STRING(BGl_string2641z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2641za700za7za7_2871za7);
		BGL_BIND_STRING(BGl_string2640z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2640za700za7za7_2870za7);
		BGL_BIND_STRING(BGl_string2721z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2721za700za7za7_2869za7);
		BGL_BIND_PROCEDURE(BGl_filezd2gza7ipzf3zd2envz54zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2gza7a7ip2868za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2appendzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2append2867z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2mmapzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2mmapza72866za7);
		BGL_BIND_STRING(BGl_string2559z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2559za700za7za7_2865za7);
		BGL_BIND_STRING(BGl_string2558z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2558za700za7za7_2864za7);
		BGL_BIND_STRING(BGl_string2557z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2557za700za7za7_2863za7);
		BGL_BIND_STRING(BGl_string2719z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2719za700za7za7_2862za7);
		BGL_BIND_STRING(BGl_string2556z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2556za700za7za7_2861za7);
		BGL_BIND_STRING(BGl_string2555z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2555za700za7za7_2860za7);
		BGL_BIND_STRING(BGl_string2717z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2717za700za7za7_2859za7);
		BGL_BIND_STRING(BGl_string2554z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2554za700za7za7_2858za7);
		BGL_BIND_STRING(BGl_string2635z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2635za700za7za7_2857za7);
		BGL_BIND_STRING(BGl_string2553z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2553za700za7za7_2856za7);
		BGL_BIND_STRING(BGl_string2634z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2634za700za7za7_2855za7);
		BGL_BIND_STRING(BGl_string2715z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2715za700za7za7_2854za7);
		BGL_BIND_STRING(BGl_string2552z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2552za700za7za7_2853za7);
		BGL_BIND_STRING(BGl_string2633z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2633za700za7za7_2852za7);
		BGL_BIND_STRING(BGl_string2551z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2551za700za7za7_2851za7);
		BGL_BIND_STRING(BGl_string2632z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2632za700za7za7_2850za7);
		BGL_BIND_STRING(BGl_string2550z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2550za700za7za7_2849za7);
		BGL_BIND_STRING(BGl_string2631z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2631za700za7za7_2848za7);
		BGL_BIND_STRING(BGl_string2712z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2712za700za7za7_2847za7);
		BGL_BIND_STRING(BGl_string2630z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2630za700za7za7_2846za7);
		BGL_BIND_STRING(BGl_string2711z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2711za700za7za7_2845za7);
		BGL_BIND_STRING(BGl_string2710z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2710za700za7za7_2844za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2bufferzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2843z00);
		BGL_BIND_PROCEDURE
			(BGl_appendzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__appendza7d2output2842za7);
		BGL_BIND_PROCEDURE(BGl_makezd2directoryzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762makeza7d2direct2841z00);
		BGL_BIND_PROCEDURE(BGl_inputzd2portzd2seekzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72840za7);
		BGL_BIND_STRING(BGl_string2549z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2549za700za7za7_2839za7);
		BGL_BIND_STRING(BGl_string2548z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2548za700za7za7_2838za7);
		BGL_BIND_STRING(BGl_string2629z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2629za700za7za7_2837za7);
		BGL_BIND_STRING(BGl_string2547z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2547za700za7za7_2836za7);
		BGL_BIND_STRING(BGl_string2628z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2628za700za7za7_2835za7);
		BGL_BIND_STRING(BGl_string2709z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2709za700za7za7_2834za7);
		BGL_BIND_STRING(BGl_string2546z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2546za700za7za7_2833za7);
		BGL_BIND_STRING(BGl_string2627z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2627za700za7za7_2832za7);
		BGL_BIND_STRING(BGl_string2708z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2708za700za7za7_2831za7);
		BGL_BIND_STRING(BGl_string2545z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2545za700za7za7_2830za7);
		BGL_BIND_STRING(BGl_string2626z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2626za700za7za7_2829za7);
		BGL_BIND_STRING(BGl_string2707z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2707za700za7za7_2828za7);
		BGL_BIND_STRING(BGl_string2544z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2544za700za7za7_2827za7);
		BGL_BIND_STRING(BGl_string2625z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2625za700za7za7_2826za7);
		BGL_BIND_STRING(BGl_string2706z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2706za700za7za7_2825za7);
		BGL_BIND_STRING(BGl_string2543z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2543za700za7za7_2824za7);
		BGL_BIND_STRING(BGl_string2624z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2624za700za7za7_2823za7);
		BGL_BIND_STRING(BGl_string2705z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2705za700za7za7_2822za7);
		BGL_BIND_STRING(BGl_string2542z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2542za700za7za7_2821za7);
		BGL_BIND_STRING(BGl_string2623z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2623za700za7za7_2820za7);
		BGL_BIND_STRING(BGl_string2704z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2704za700za7za7_2819za7);
		BGL_BIND_STRING(BGl_string2541z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2541za700za7za7_2818za7);
		BGL_BIND_STRING(BGl_string2622z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2622za700za7za7_2817za7);
		BGL_BIND_STRING(BGl_string2703z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2703za700za7za7_2816za7);
		BGL_BIND_STRING(BGl_string2540z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2540za700za7za7_2815za7);
		BGL_BIND_STRING(BGl_string2621z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2621za700za7za7_2814za7);
		BGL_BIND_STRING(BGl_string2702z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2702za700za7za7_2813za7);
		BGL_BIND_STRING(BGl_string2620z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2620za700za7za7_2812za7);
		BGL_BIND_STRING(BGl_string2701z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2701za700za7za7_2811za7);
		BGL_BIND_STRING(BGl_string2700z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2700za700za7za7_2810za7);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2outputzd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762callza7d2withza7d2809za7);
		BGL_BIND_STRING(BGl_string2539z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2539za700za7za7_2808za7);
		BGL_BIND_STRING(BGl_string2538z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2538za700za7za7_2807za7);
		BGL_BIND_STRING(BGl_string2619z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2619za700za7za7_2806za7);
		BGL_BIND_STRING(BGl_string2537z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2537za700za7za7_2805za7);
		BGL_BIND_STRING(BGl_string2618z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2618za700za7za7_2804za7);
		BGL_BIND_STRING(BGl_string2536z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2536za700za7za7_2803za7);
		BGL_BIND_STRING(BGl_string2617z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2617za700za7za7_2802za7);
		BGL_BIND_STRING(BGl_string2535z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2535za700za7za7_2801za7);
		BGL_BIND_STRING(BGl_string2616z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2616za700za7za7_2800za7);
		BGL_BIND_STRING(BGl_string2534z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2534za700za7za7_2799za7);
		BGL_BIND_STRING(BGl_string2615z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2615za700za7za7_2798za7);
		BGL_BIND_STRING(BGl_string2533z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2533za700za7za7_2797za7);
		BGL_BIND_STRING(BGl_string2614z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2614za700za7za7_2796za7);
		BGL_BIND_STRING(BGl_string2532z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2532za700za7za7_2795za7);
		BGL_BIND_PROCEDURE(BGl_proc2526z00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za7c3za704anonymo2794za7);
		BGL_BIND_STRING(BGl_string2613z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2613za700za7za7_2793za7);
		BGL_BIND_STRING(BGl_string2531z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2531za700za7za7_2792za7);
		BGL_BIND_STRING(BGl_string2612z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2612za700za7za7_2791za7);
		BGL_BIND_STRING(BGl_string2530z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2530za700za7za7_2790za7);
		BGL_BIND_STRING(BGl_string2611z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2611za700za7za7_2789za7);
		BGL_BIND_STRING(BGl_string2610z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2610za700za7za7_2788za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2inputzd2fromzd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2inputza72787za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2errorzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2errorza72786za7);
		BGL_BIND_STRING(BGl_string2529z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2529za700za7za7_2785za7);
		BGL_BIND_STRING(BGl_string2528z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2528za700za7za7_2784za7);
		BGL_BIND_STRING(BGl_string2609z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2609za700za7za7_2783za7);
		BGL_BIND_STRING(BGl_string2527z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2527za700za7za7_2782za7);
		BGL_BIND_STRING(BGl_string2607z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2607za700za7za7_2781za7);
		BGL_BIND_STRING(BGl_string2525z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2525za700za7za7_2780za7);
		BGL_BIND_STRING(BGl_string2606z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2606za700za7za7_2779za7);
		BGL_BIND_STRING(BGl_string2524z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2524za700za7za7_2778za7);
		BGL_BIND_STRING(BGl_string2605z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2605za700za7za7_2777za7);
		BGL_BIND_STRING(BGl_string2523z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2523za700za7za7_2776za7);
		BGL_BIND_STRING(BGl_string2604z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2604za700za7za7_2775za7);
		BGL_BIND_STRING(BGl_string2603z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2603za700za7za7_2774za7);
		BGL_BIND_STRING(BGl_string2602z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2602za700za7za7_2773za7);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72772za7);
		BGL_BIND_STRING(BGl_string2601z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2601za700za7za7_2771za7);
		BGL_BIND_STRING(BGl_string2600z00zz__r4_ports_6_10_1z00,
			BgL_bgl_string2600za700za7za7_2770za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2769z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72768za7);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2outputzd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762callza7d2withza7d2767za7);
		BGL_BIND_PROCEDURE
			(BGl_closedzd2outputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762closedza7d2outp2766z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2765z00);
		BGL_BIND_PROCEDURE
			(BGl_z52openzd2inputzd2filezd2envz80zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za752openza7d2inp2764za7);
		BGL_BIND_PROCEDURE(BGl_resetzd2eofzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762resetza7d2eofza7b2763za7);
		BGL_BIND_PROCEDURE
			(BGl_withzd2errorzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2errorza72762za7);
		BGL_BIND_PROCEDURE
			(BGl_openzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762openza7d2inputza72761za7);
		BGL_BIND_PROCEDURE(BGl_portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762portza7f3za791za7za7_2760za7);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72759za7);
		BGL_BIND_PROCEDURE(BGl_filezd2modezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2modeza7b2758za7);
		BGL_BIND_PROCEDURE(BGl_filezd2changezd2timezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2change2757z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2clonez12zd2envzc0zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72756za7);
		BGL_BIND_PROCEDURE(BGl_outputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2755z00);
		BGL_BIND_PROCEDURE
			(BGl_withzd2errorzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2errorza72754za7);
		BGL_BIND_PROCEDURE
			(BGl_currentzd2errorzd2portzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762currentza7d2err2753z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2protocolzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72752za7);
		BGL_BIND_PROCEDURE(BGl_openzd2inputzd2filezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d22751z00);
		BGL_BIND_PROCEDURE
			(BGl_withzd2outputzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762withza7d2output2750z00);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2flushzd2bufferzd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2749z00);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2appendzd2filezd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762callza7d2withza7d2748za7);
		BGL_BIND_PROCEDURE
			(BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00,
			BgL_bgl_za762za752openza7d2inp2747za7);
		BGL_BIND_PROCEDURE
			(BGl_filezd2modificationzd2timezd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762fileza7d2modifi2746z00);
		BGL_BIND_PROCEDURE
			(BGl_inputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762inputza7d2portza72745za7);
		BGL_BIND_PROCEDURE
			(BGl_outputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl_za762outputza7d2port2744z00);
		BGL_BIND_PROCEDURE(BGl_makezd2directorieszd2envz00zz__r4_ports_6_10_1z00,
			BgL_bgl_za762makeza7d2direct2743z00);
		BGL_BIND_PROCEDURE
			(BGl_closedzd2inputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00,
			BgL_bgl_za762closedza7d2inpu2742z00);
		BGL_BIND_PROCEDURE(BGl_openzd2inputzd2mmapzd2envzd2zz__r4_ports_6_10_1z00,
			BgL_bgl__openza7d2inputza7d22741z00);
	}

/* 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_symbol2722z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2730z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2732z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2571z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2734z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2736z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void
				*)
			(&BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00));
		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2595z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2597z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_symbol2599z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_list2713z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_list2587z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_list2588z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_list2592z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2608z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2714z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2716z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2718z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void
				*) (&BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2720z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2589z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_vector2699z00zz__r4_ports_6_10_1z00));
		ADD_ROOT((void *) (&BGl_keyword2593z00zz__r4_ports_6_10_1z00));
#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_ports_6_10_1z00(long
		BgL_checksumz00_4343, char *BgL_fromz00_4344)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_ports_6_10_1z00();
					BGl_cnstzd2initzd2zz__r4_ports_6_10_1z00();
					BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00();
					return BGl_toplevelzd2initzd2zz__r4_ports_6_10_1z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			BGl_symbol2571z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2572z00zz__r4_ports_6_10_1z00);
			BGl_keyword2589z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2590z00zz__r4_ports_6_10_1z00);
			BGl_list2588z00zz__r4_ports_6_10_1z00 =
				MAKE_YOUNG_PAIR(BGl_keyword2589z00zz__r4_ports_6_10_1z00,
				MAKE_YOUNG_PAIR(BGl_string2591z00zz__r4_ports_6_10_1z00, BNIL));
			BGl_keyword2593z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2594z00zz__r4_ports_6_10_1z00);
			BGl_symbol2595z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2596z00zz__r4_ports_6_10_1z00);
			BGl_list2592z00zz__r4_ports_6_10_1z00 =
				MAKE_YOUNG_PAIR(BGl_keyword2593z00zz__r4_ports_6_10_1z00,
				MAKE_YOUNG_PAIR(BGl_symbol2595z00zz__r4_ports_6_10_1z00, BNIL));
			BGl_list2587z00zz__r4_ports_6_10_1z00 =
				MAKE_YOUNG_PAIR(BGl_list2588z00zz__r4_ports_6_10_1z00,
				MAKE_YOUNG_PAIR(BGl_list2592z00zz__r4_ports_6_10_1z00, BNIL));
			BGl_symbol2597z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2598z00zz__r4_ports_6_10_1z00);
			BGl_symbol2599z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2586z00zz__r4_ports_6_10_1z00);
			BGl_keyword2608z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2609z00zz__r4_ports_6_10_1z00);
			BGl_vector2699z00zz__r4_ports_6_10_1z00 =
				BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL);
			BGl_keyword2714z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2715z00zz__r4_ports_6_10_1z00);
			BGl_keyword2716z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2717z00zz__r4_ports_6_10_1z00);
			BGl_keyword2718z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2719z00zz__r4_ports_6_10_1z00);
			BGl_keyword2720z00zz__r4_ports_6_10_1z00 =
				bstring_to_keyword(BGl_string2721z00zz__r4_ports_6_10_1z00);
			BGl_list2713z00zz__r4_ports_6_10_1z00 =
				MAKE_YOUNG_PAIR(BGl_keyword2714z00zz__r4_ports_6_10_1z00,
				MAKE_YOUNG_PAIR(BGl_keyword2716z00zz__r4_ports_6_10_1z00,
					MAKE_YOUNG_PAIR(BGl_keyword2718z00zz__r4_ports_6_10_1z00,
						MAKE_YOUNG_PAIR(BGl_keyword2720z00zz__r4_ports_6_10_1z00, BNIL))));
			BGl_symbol2722z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2723z00zz__r4_ports_6_10_1z00);
			BGl_symbol2730z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2731z00zz__r4_ports_6_10_1z00);
			BGl_symbol2732z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2733z00zz__r4_ports_6_10_1z00);
			BGl_symbol2734z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2735z00zz__r4_ports_6_10_1z00);
			return (BGl_symbol2736z00zz__r4_ports_6_10_1z00 =
				bstring_to_symbol(BGl_string2737z00zz__r4_ports_6_10_1z00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00 =
				bgl_make_mutex(BGl_string2523z00zz__r4_ports_6_10_1z00);
			{	/* Ieee/port.scm 924 */
				obj_t BgL_arg1405z00_1405;
				obj_t BgL_arg1407z00_1406;

				BgL_arg1405z00_1405 =
					MAKE_YOUNG_PAIR(BGl_string2524z00zz__r4_ports_6_10_1z00,
					BGl_z52openzd2inputzd2filezd2envz80zz__r4_ports_6_10_1z00);
				{	/* Ieee/port.scm 925 */
					obj_t BgL_arg1408z00_1407;
					obj_t BgL_arg1409z00_1408;

					BgL_arg1408z00_1407 =
						MAKE_YOUNG_PAIR(BGl_string2525z00zz__r4_ports_6_10_1z00,
						BGl_proc2526z00zz__r4_ports_6_10_1z00);
					{	/* Ieee/port.scm 926 */
						obj_t BgL_arg1412z00_1418;
						obj_t BgL_arg1413z00_1419;

						BgL_arg1412z00_1418 =
							MAKE_YOUNG_PAIR(BGl_string2527z00zz__r4_ports_6_10_1z00,
							BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00);
						{	/* Ieee/port.scm 927 */
							obj_t BgL_arg1414z00_1420;
							obj_t BgL_arg1415z00_1421;

							BgL_arg1414z00_1420 =
								MAKE_YOUNG_PAIR(BGl_string2528z00zz__r4_ports_6_10_1z00,
								BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00);
							{	/* Ieee/port.scm 928 */
								obj_t BgL_arg1416z00_1422;
								obj_t BgL_arg1417z00_1423;

								BgL_arg1416z00_1422 =
									MAKE_YOUNG_PAIR(BGl_string2529z00zz__r4_ports_6_10_1z00,
									BGl_z52openzd2inputzd2httpzd2socketzd2envz52zz__r4_ports_6_10_1z00);
								{	/* Ieee/port.scm 929 */
									obj_t BgL_arg1419z00_1424;
									obj_t BgL_arg1420z00_1425;

									BgL_arg1419z00_1424 =
										MAKE_YOUNG_PAIR(BGl_string2530z00zz__r4_ports_6_10_1z00,
										BGl_openzd2inputzd2gza7ipzd2filezd2envza7zz__gunza7ipza7);
									{	/* Ieee/port.scm 930 */
										obj_t BgL_arg1421z00_1426;
										obj_t BgL_arg1422z00_1427;

										BgL_arg1421z00_1426 =
											MAKE_YOUNG_PAIR(BGl_string2531z00zz__r4_ports_6_10_1z00,
											BGl_openzd2inputzd2za7libzd2filezd2envza7zz__gunza7ipza7);
										{	/* Ieee/port.scm 931 */
											obj_t BgL_arg1423z00_1428;
											obj_t BgL_arg1424z00_1429;

											BgL_arg1423z00_1428 =
												MAKE_YOUNG_PAIR(BGl_string2532z00zz__r4_ports_6_10_1z00,
												BGl_openzd2inputzd2inflatezd2filezd2envz00zz__gunza7ipza7);
											{	/* Ieee/port.scm 932 */
												obj_t BgL_arg1425z00_1430;
												obj_t BgL_arg1426z00_1431;

												BgL_arg1425z00_1430 =
													MAKE_YOUNG_PAIR
													(BGl_string2533z00zz__r4_ports_6_10_1z00,
													BGl_z52openzd2inputzd2resourcezd2envz80zz__r4_ports_6_10_1z00);
												{	/* Ieee/port.scm 933 */
													obj_t BgL_arg1427z00_1432;
													obj_t BgL_arg1428z00_1433;

													BgL_arg1427z00_1432 =
														MAKE_YOUNG_PAIR
														(BGl_string2534z00zz__r4_ports_6_10_1z00,
														BGl_openzd2inputzd2ftpzd2filezd2envz00zz__ftpz00);
													{	/* Ieee/port.scm 934 */
														obj_t BgL_arg1429z00_1434;

														BgL_arg1429z00_1434 =
															MAKE_YOUNG_PAIR
															(BGl_string2535z00zz__r4_ports_6_10_1z00,
															BGl_z52openzd2inputzd2descriptorzd2envz80zz__r4_ports_6_10_1z00);
														BgL_arg1428z00_1433 =
															MAKE_YOUNG_PAIR(BgL_arg1429z00_1434, BNIL);
													}
													BgL_arg1426z00_1431 =
														MAKE_YOUNG_PAIR(BgL_arg1427z00_1432,
														BgL_arg1428z00_1433);
												}
												BgL_arg1424z00_1429 =
													MAKE_YOUNG_PAIR(BgL_arg1425z00_1430,
													BgL_arg1426z00_1431);
											}
											BgL_arg1422z00_1427 =
												MAKE_YOUNG_PAIR(BgL_arg1423z00_1428,
												BgL_arg1424z00_1429);
										}
										BgL_arg1420z00_1425 =
											MAKE_YOUNG_PAIR(BgL_arg1421z00_1426, BgL_arg1422z00_1427);
									}
									BgL_arg1417z00_1423 =
										MAKE_YOUNG_PAIR(BgL_arg1419z00_1424, BgL_arg1420z00_1425);
								}
								BgL_arg1415z00_1421 =
									MAKE_YOUNG_PAIR(BgL_arg1416z00_1422, BgL_arg1417z00_1423);
							}
							BgL_arg1413z00_1419 =
								MAKE_YOUNG_PAIR(BgL_arg1414z00_1420, BgL_arg1415z00_1421);
						}
						BgL_arg1409z00_1408 =
							MAKE_YOUNG_PAIR(BgL_arg1412z00_1418, BgL_arg1413z00_1419);
					}
					BgL_arg1407z00_1406 =
						MAKE_YOUNG_PAIR(BgL_arg1408z00_1407, BgL_arg1409z00_1408);
				}
				return (BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00 =
					MAKE_YOUNG_PAIR(BgL_arg1405z00_1405, BgL_arg1407z00_1406), BUNSPEC);
			}
		}

	}



/* &<@anonymous:1411> */
	obj_t BGl_z62zc3z04anonymousza31411ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3384, obj_t BgL_sz00_3385, obj_t BgL_pz00_3386,
		obj_t BgL_tmtz00_3387)
	{
		{	/* Ieee/port.scm 925 */
			{	/* Ieee/port.scm 469 */
				long BgL_endz00_4277;

				BgL_endz00_4277 = STRING_LENGTH(((obj_t) BgL_sz00_3385));
				{	/* Ieee/port.scm 469 */

					return
						BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_sz00_3385,
						BINT(0L), BINT(BgL_endz00_4277));
				}
			}
		}

	}



/* call-with-input-file */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_3, obj_t BgL_procz00_4)
	{
		{	/* Ieee/port.scm 569 */
			{	/* Ieee/port.scm 570 */
				obj_t BgL_portz00_1444;

				{	/* Ieee/port.scm 466 */

					BgL_portz00_1444 =
						BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_stringz00_3,
						BTRUE, BINT(5000000L));
				}
				if (INPUT_PORTP(BgL_portz00_1444))
					{	/* Ieee/port.scm 572 */
						obj_t BgL_exitd1047z00_1446;

						BgL_exitd1047z00_1446 = BGL_EXITD_TOP_AS_OBJ();
						{	/* Ieee/port.scm 574 */
							obj_t BgL_zc3z04anonymousza31435ze3z87_3424;

							BgL_zc3z04anonymousza31435ze3z87_3424 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31435ze3ze5zz__r4_ports_6_10_1z00,
								(int) (0L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31435ze3z87_3424, (int) (0L),
								BgL_portz00_1444);
							{	/* Ieee/port.scm 572 */
								obj_t BgL_arg2038z00_2512;

								{	/* Ieee/port.scm 572 */
									obj_t BgL_arg2039z00_2513;

									BgL_arg2039z00_2513 =
										BGL_EXITD_PROTECT(BgL_exitd1047z00_1446);
									BgL_arg2038z00_2512 =
										MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31435ze3z87_3424,
										BgL_arg2039z00_2513);
								}
								BGL_EXITD_PROTECT_SET(BgL_exitd1047z00_1446,
									BgL_arg2038z00_2512);
								BUNSPEC;
							}
							{	/* Ieee/port.scm 573 */
								obj_t BgL_tmp1049z00_1448;

								BgL_tmp1049z00_1448 =
									BGL_PROCEDURE_CALL1(BgL_procz00_4, BgL_portz00_1444);
								{	/* Ieee/port.scm 572 */
									bool_t BgL_test3061z00_4426;

									{	/* Ieee/port.scm 572 */
										obj_t BgL_arg2037z00_2515;

										BgL_arg2037z00_2515 =
											BGL_EXITD_PROTECT(BgL_exitd1047z00_1446);
										BgL_test3061z00_4426 = PAIRP(BgL_arg2037z00_2515);
									}
									if (BgL_test3061z00_4426)
										{	/* Ieee/port.scm 572 */
											obj_t BgL_arg2034z00_2516;

											{	/* Ieee/port.scm 572 */
												obj_t BgL_arg2035z00_2517;

												BgL_arg2035z00_2517 =
													BGL_EXITD_PROTECT(BgL_exitd1047z00_1446);
												BgL_arg2034z00_2516 =
													CDR(((obj_t) BgL_arg2035z00_2517));
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1047z00_1446,
												BgL_arg2034z00_2516);
											BUNSPEC;
										}
									else
										{	/* Ieee/port.scm 572 */
											BFALSE;
										}
								}
								bgl_close_input_port(BgL_portz00_1444);
								return BgL_tmp1049z00_1448;
							}
						}
					}
				else
					{	/* Ieee/port.scm 571 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2536z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_3);
					}
			}
		}

	}



/* &call-with-input-file */
	obj_t BGl_z62callzd2withzd2inputzd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3425, obj_t BgL_stringz00_3426, obj_t BgL_procz00_3427)
	{
		{	/* Ieee/port.scm 569 */
			{	/* Ieee/port.scm 570 */
				obj_t BgL_auxz00_4442;
				obj_t BgL_auxz00_4435;

				if (PROCEDUREP(BgL_procz00_3427))
					{	/* Ieee/port.scm 570 */
						BgL_auxz00_4442 = BgL_procz00_3427;
					}
				else
					{
						obj_t BgL_auxz00_4445;

						BgL_auxz00_4445 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(25846L),
							BGl_string2539z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3427);
						FAILURE(BgL_auxz00_4445, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3426))
					{	/* Ieee/port.scm 570 */
						BgL_auxz00_4435 = BgL_stringz00_3426;
					}
				else
					{
						obj_t BgL_auxz00_4438;

						BgL_auxz00_4438 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(25846L),
							BGl_string2539z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3426);
						FAILURE(BgL_auxz00_4438, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4435, BgL_auxz00_4442);
			}
		}

	}



/* &<@anonymous:1435> */
	obj_t BGl_z62zc3z04anonymousza31435ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3428)
	{
		{	/* Ieee/port.scm 572 */
			{	/* Ieee/port.scm 574 */
				obj_t BgL_portz00_3429;

				BgL_portz00_3429 = PROCEDURE_REF(BgL_envz00_3428, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_portz00_3429));
			}
		}

	}



/* call-with-input-string */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2inputzd2stringzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_5, obj_t BgL_procz00_6)
	{
		{	/* Ieee/port.scm 581 */
			{	/* Ieee/port.scm 582 */
				obj_t BgL_portz00_2520;

				{	/* Ieee/port.scm 469 */
					long BgL_endz00_2523;

					BgL_endz00_2523 = STRING_LENGTH(BgL_stringz00_5);
					{	/* Ieee/port.scm 469 */

						BgL_portz00_2520 =
							BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
							(BgL_stringz00_5, BINT(0L), BINT(BgL_endz00_2523));
				}}
				{	/* Ieee/port.scm 584 */
					obj_t BgL_resz00_2524;

					BgL_resz00_2524 =
						BGL_PROCEDURE_CALL1(BgL_procz00_6, BgL_portz00_2520);
					bgl_close_input_port(BgL_portz00_2520);
					return BgL_resz00_2524;
				}
			}
		}

	}



/* &call-with-input-string */
	obj_t BGl_z62callzd2withzd2inputzd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3430, obj_t BgL_stringz00_3431, obj_t BgL_procz00_3432)
	{
		{	/* Ieee/port.scm 581 */
			{	/* Ieee/port.scm 582 */
				obj_t BgL_auxz00_4470;
				obj_t BgL_auxz00_4463;

				if (PROCEDUREP(BgL_procz00_3432))
					{	/* Ieee/port.scm 582 */
						BgL_auxz00_4470 = BgL_procz00_3432;
					}
				else
					{
						obj_t BgL_auxz00_4473;

						BgL_auxz00_4473 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(26348L),
							BGl_string2542z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3432);
						FAILURE(BgL_auxz00_4473, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3431))
					{	/* Ieee/port.scm 582 */
						BgL_auxz00_4463 = BgL_stringz00_3431;
					}
				else
					{
						obj_t BgL_auxz00_4466;

						BgL_auxz00_4466 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(26348L),
							BGl_string2542z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3431);
						FAILURE(BgL_auxz00_4466, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2inputzd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4463, BgL_auxz00_4470);
			}
		}

	}



/* call-with-output-file */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_7, obj_t BgL_procz00_8)
	{
		{	/* Ieee/port.scm 591 */
			{	/* Ieee/port.scm 592 */
				obj_t BgL_portz00_1459;

				{	/* Ieee/port.scm 483 */

					BgL_portz00_1459 =
						bgl_open_output_file(BgL_stringz00_7,
						BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
						(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE,
							(int) (default_io_bufsiz)));
				}
				if (OUTPUT_PORTP(BgL_portz00_1459))
					{	/* Ieee/port.scm 594 */
						obj_t BgL_exitd1051z00_1461;

						BgL_exitd1051z00_1461 = BGL_EXITD_TOP_AS_OBJ();
						{	/* Ieee/port.scm 596 */
							obj_t BgL_zc3z04anonymousza31437ze3z87_3433;

							BgL_zc3z04anonymousza31437ze3z87_3433 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31437ze3ze5zz__r4_ports_6_10_1z00,
								(int) (0L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31437ze3z87_3433, (int) (0L),
								BgL_portz00_1459);
							{	/* Ieee/port.scm 594 */
								obj_t BgL_arg2038z00_2530;

								{	/* Ieee/port.scm 594 */
									obj_t BgL_arg2039z00_2531;

									BgL_arg2039z00_2531 =
										BGL_EXITD_PROTECT(BgL_exitd1051z00_1461);
									BgL_arg2038z00_2530 =
										MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31437ze3z87_3433,
										BgL_arg2039z00_2531);
								}
								BGL_EXITD_PROTECT_SET(BgL_exitd1051z00_1461,
									BgL_arg2038z00_2530);
								BUNSPEC;
							}
							{	/* Ieee/port.scm 595 */
								obj_t BgL_tmp1053z00_1463;

								BgL_tmp1053z00_1463 =
									BGL_PROCEDURE_CALL1(BgL_procz00_8, BgL_portz00_1459);
								{	/* Ieee/port.scm 594 */
									bool_t BgL_test3067z00_4496;

									{	/* Ieee/port.scm 594 */
										obj_t BgL_arg2037z00_2533;

										BgL_arg2037z00_2533 =
											BGL_EXITD_PROTECT(BgL_exitd1051z00_1461);
										BgL_test3067z00_4496 = PAIRP(BgL_arg2037z00_2533);
									}
									if (BgL_test3067z00_4496)
										{	/* Ieee/port.scm 594 */
											obj_t BgL_arg2034z00_2534;

											{	/* Ieee/port.scm 594 */
												obj_t BgL_arg2035z00_2535;

												BgL_arg2035z00_2535 =
													BGL_EXITD_PROTECT(BgL_exitd1051z00_1461);
												BgL_arg2034z00_2534 =
													CDR(((obj_t) BgL_arg2035z00_2535));
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1051z00_1461,
												BgL_arg2034z00_2534);
											BUNSPEC;
										}
									else
										{	/* Ieee/port.scm 594 */
											BFALSE;
										}
								}
								bgl_close_output_port(BgL_portz00_1459);
								return BgL_tmp1053z00_1463;
							}
						}
					}
				else
					{	/* Ieee/port.scm 593 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2544z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_7);
					}
			}
		}

	}



/* &call-with-output-file */
	obj_t BGl_z62callzd2withzd2outputzd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3434, obj_t BgL_stringz00_3435, obj_t BgL_procz00_3436)
	{
		{	/* Ieee/port.scm 591 */
			{	/* Ieee/port.scm 592 */
				obj_t BgL_auxz00_4512;
				obj_t BgL_auxz00_4505;

				if (PROCEDUREP(BgL_procz00_3436))
					{	/* Ieee/port.scm 592 */
						BgL_auxz00_4512 = BgL_procz00_3436;
					}
				else
					{
						obj_t BgL_auxz00_4515;

						BgL_auxz00_4515 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(26798L),
							BGl_string2545z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3436);
						FAILURE(BgL_auxz00_4515, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3435))
					{	/* Ieee/port.scm 592 */
						BgL_auxz00_4505 = BgL_stringz00_3435;
					}
				else
					{
						obj_t BgL_auxz00_4508;

						BgL_auxz00_4508 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(26798L),
							BGl_string2545z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3435);
						FAILURE(BgL_auxz00_4508, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4505, BgL_auxz00_4512);
			}
		}

	}



/* &<@anonymous:1437> */
	obj_t BGl_z62zc3z04anonymousza31437ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3437)
	{
		{	/* Ieee/port.scm 594 */
			{	/* Ieee/port.scm 596 */
				obj_t BgL_portz00_3438;

				BgL_portz00_3438 = PROCEDURE_REF(BgL_envz00_3437, (int) (0L));
				return bgl_close_output_port(((obj_t) BgL_portz00_3438));
			}
		}

	}



/* call-with-append-file */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2appendzd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_9, obj_t BgL_procz00_10)
	{
		{	/* Ieee/port.scm 603 */
			{	/* Ieee/port.scm 604 */
				obj_t BgL_portz00_1468;

				{	/* Ieee/port.scm 484 */

					BgL_portz00_1468 =
						bgl_append_output_file(BgL_stringz00_9,
						BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
						(BGl_string2546z00zz__r4_ports_6_10_1z00, BTRUE,
							(int) (default_io_bufsiz)));
				}
				if (OUTPUT_PORTP(BgL_portz00_1468))
					{	/* Ieee/port.scm 606 */
						obj_t BgL_exitd1055z00_1470;

						BgL_exitd1055z00_1470 = BGL_EXITD_TOP_AS_OBJ();
						{	/* Ieee/port.scm 608 */
							obj_t BgL_zc3z04anonymousza31439ze3z87_3439;

							BgL_zc3z04anonymousza31439ze3z87_3439 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31439ze3ze5zz__r4_ports_6_10_1z00,
								(int) (0L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31439ze3z87_3439, (int) (0L),
								BgL_portz00_1468);
							{	/* Ieee/port.scm 606 */
								obj_t BgL_arg2038z00_2541;

								{	/* Ieee/port.scm 606 */
									obj_t BgL_arg2039z00_2542;

									BgL_arg2039z00_2542 =
										BGL_EXITD_PROTECT(BgL_exitd1055z00_1470);
									BgL_arg2038z00_2541 =
										MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31439ze3z87_3439,
										BgL_arg2039z00_2542);
								}
								BGL_EXITD_PROTECT_SET(BgL_exitd1055z00_1470,
									BgL_arg2038z00_2541);
								BUNSPEC;
							}
							{	/* Ieee/port.scm 607 */
								obj_t BgL_tmp1057z00_1472;

								BgL_tmp1057z00_1472 =
									BGL_PROCEDURE_CALL1(BgL_procz00_10, BgL_portz00_1468);
								{	/* Ieee/port.scm 606 */
									bool_t BgL_test3071z00_4542;

									{	/* Ieee/port.scm 606 */
										obj_t BgL_arg2037z00_2544;

										BgL_arg2037z00_2544 =
											BGL_EXITD_PROTECT(BgL_exitd1055z00_1470);
										BgL_test3071z00_4542 = PAIRP(BgL_arg2037z00_2544);
									}
									if (BgL_test3071z00_4542)
										{	/* Ieee/port.scm 606 */
											obj_t BgL_arg2034z00_2545;

											{	/* Ieee/port.scm 606 */
												obj_t BgL_arg2035z00_2546;

												BgL_arg2035z00_2546 =
													BGL_EXITD_PROTECT(BgL_exitd1055z00_1470);
												BgL_arg2034z00_2545 =
													CDR(((obj_t) BgL_arg2035z00_2546));
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1055z00_1470,
												BgL_arg2034z00_2545);
											BUNSPEC;
										}
									else
										{	/* Ieee/port.scm 606 */
											BFALSE;
										}
								}
								bgl_close_output_port(BgL_portz00_1468);
								return BgL_tmp1057z00_1472;
							}
						}
					}
				else
					{	/* Ieee/port.scm 605 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2547z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_9);
					}
			}
		}

	}



/* &call-with-append-file */
	obj_t BGl_z62callzd2withzd2appendzd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3440, obj_t BgL_stringz00_3441, obj_t BgL_procz00_3442)
	{
		{	/* Ieee/port.scm 603 */
			{	/* Ieee/port.scm 604 */
				obj_t BgL_auxz00_4558;
				obj_t BgL_auxz00_4551;

				if (PROCEDUREP(BgL_procz00_3442))
					{	/* Ieee/port.scm 604 */
						BgL_auxz00_4558 = BgL_procz00_3442;
					}
				else
					{
						obj_t BgL_auxz00_4561;

						BgL_auxz00_4561 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(27304L),
							BGl_string2548z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3442);
						FAILURE(BgL_auxz00_4561, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3441))
					{	/* Ieee/port.scm 604 */
						BgL_auxz00_4551 = BgL_stringz00_3441;
					}
				else
					{
						obj_t BgL_auxz00_4554;

						BgL_auxz00_4554 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(27304L),
							BGl_string2548z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3441);
						FAILURE(BgL_auxz00_4554, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2appendzd2filezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4551, BgL_auxz00_4558);
			}
		}

	}



/* &<@anonymous:1439> */
	obj_t BGl_z62zc3z04anonymousza31439ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3443)
	{
		{	/* Ieee/port.scm 606 */
			{	/* Ieee/port.scm 608 */
				obj_t BgL_portz00_3444;

				BgL_portz00_3444 = PROCEDURE_REF(BgL_envz00_3443, (int) (0L));
				return bgl_close_output_port(((obj_t) BgL_portz00_3444));
			}
		}

	}



/* call-with-output-string */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_procz00_11)
	{
		{	/* Ieee/port.scm 615 */
			{	/* Ieee/port.scm 616 */
				obj_t BgL_portz00_2549;

				{	/* Ieee/port.scm 616 */

					{	/* Ieee/port.scm 485 */

						BgL_portz00_2549 =
							bgl_open_output_string
							(BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
							(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE, (int) (128L)));
				}}
				BGL_PROCEDURE_CALL1(BgL_procz00_11, BgL_portz00_2549);
				return bgl_close_output_port(BgL_portz00_2549);
			}
		}

	}



/* &call-with-output-string */
	obj_t BGl_z62callzd2withzd2outputzd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3445, obj_t BgL_procz00_3446)
	{
		{	/* Ieee/port.scm 615 */
			{	/* Ieee/port.scm 616 */
				obj_t BgL_auxz00_4578;

				if (PROCEDUREP(BgL_procz00_3446))
					{	/* Ieee/port.scm 616 */
						BgL_auxz00_4578 = BgL_procz00_3446;
					}
				else
					{
						obj_t BgL_auxz00_4581;

						BgL_auxz00_4581 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(27807L),
							BGl_string2549z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3446);
						FAILURE(BgL_auxz00_4581, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4578);
			}
		}

	}



/* input-port? */
	BGL_EXPORTED_DEF obj_t BGl_inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t
		BgL_objz00_12)
	{
		{	/* Ieee/port.scm 623 */
			return BBOOL(INPUT_PORTP(BgL_objz00_12));
		}

	}



/* &input-port? */
	obj_t BGl_z62inputzd2portzf3z43zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3447,
		obj_t BgL_objz00_3448)
	{
		{	/* Ieee/port.scm 623 */
			return BGl_inputzd2portzf3z21zz__r4_ports_6_10_1z00(BgL_objz00_3448);
		}

	}



/* input-string-port? */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_13)
	{
		{	/* Ieee/port.scm 629 */
			return BBOOL(INPUT_STRING_PORTP(BgL_objz00_13));
		}

	}



/* &input-string-port? */
	obj_t BGl_z62inputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3449, obj_t BgL_objz00_3450)
	{
		{	/* Ieee/port.scm 629 */
			return
				BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3450);
		}

	}



/* input-procedure-port? */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t
		BgL_objz00_14)
	{
		{	/* Ieee/port.scm 635 */
			return BBOOL(INPUT_PROCEDURE_PORTP(BgL_objz00_14));
		}

	}



/* &input-procedure-port? */
	obj_t BGl_z62inputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3451, obj_t BgL_objz00_3452)
	{
		{	/* Ieee/port.scm 635 */
			return
				BGl_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00
				(BgL_objz00_3452);
		}

	}



/* input-gzip-port? */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2gza7ipzd2portzf3z54zz__r4_ports_6_10_1z00(obj_t BgL_objz00_15)
	{
		{	/* Ieee/port.scm 641 */
			return BBOOL(INPUT_GZIP_PORTP(BgL_objz00_15));
		}

	}



/* &input-gzip-port? */
	obj_t BGl_z62inputzd2gza7ipzd2portzf3z36zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3453, obj_t BgL_objz00_3454)
	{
		{	/* Ieee/port.scm 641 */
			return
				BGl_inputzd2gza7ipzd2portzf3z54zz__r4_ports_6_10_1z00(BgL_objz00_3454);
		}

	}



/* input-mmap-port? */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2mmapzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_16)
	{
		{	/* Ieee/port.scm 647 */
			return BBOOL(INPUT_MMAP_PORTP(BgL_objz00_16));
		}

	}



/* &input-mmap-port? */
	obj_t BGl_z62inputzd2mmapzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3455, obj_t BgL_objz00_3456)
	{
		{	/* Ieee/port.scm 647 */
			return
				BGl_inputzd2mmapzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3456);
		}

	}



/* output-port? */
	BGL_EXPORTED_DEF obj_t BGl_outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t
		BgL_objz00_17)
	{
		{	/* Ieee/port.scm 653 */
			return BBOOL(OUTPUT_PORTP(BgL_objz00_17));
		}

	}



/* &output-port? */
	obj_t BGl_z62outputzd2portzf3z43zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3457,
		obj_t BgL_objz00_3458)
	{
		{	/* Ieee/port.scm 653 */
			return BGl_outputzd2portzf3z21zz__r4_ports_6_10_1z00(BgL_objz00_3458);
		}

	}



/* output-string-port? */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_18)
	{
		{	/* Ieee/port.scm 659 */
			return BBOOL(BGL_OUTPUT_STRING_PORTP(BgL_objz00_18));
		}

	}



/* &output-string-port? */
	obj_t BGl_z62outputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3459, obj_t BgL_objz00_3460)
	{
		{	/* Ieee/port.scm 659 */
			return
				BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3460);
		}

	}



/* output-procedure-port? */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t
		BgL_objz00_19)
	{
		{	/* Ieee/port.scm 665 */
			return BBOOL(BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_19));
		}

	}



/* &output-procedure-port? */
	obj_t BGl_z62outputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3461, obj_t BgL_objz00_3462)
	{
		{	/* Ieee/port.scm 665 */
			return
				BGl_outputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00
				(BgL_objz00_3462);
		}

	}



/* current-input-port */
	BGL_EXPORTED_DEF obj_t
		BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 671 */
			{	/* Ieee/port.scm 672 */
				obj_t BgL_tmpz00_4610;

				BgL_tmpz00_4610 = BGL_CURRENT_DYNAMIC_ENV();
				return BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_4610);
			}
		}

	}



/* &current-input-port */
	obj_t BGl_z62currentzd2inputzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3463)
	{
		{	/* Ieee/port.scm 671 */
			return BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00();
		}

	}



/* current-output-port */
	BGL_EXPORTED_DEF obj_t
		BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 677 */
			{	/* Ieee/port.scm 678 */
				obj_t BgL_tmpz00_4614;

				BgL_tmpz00_4614 = BGL_CURRENT_DYNAMIC_ENV();
				return BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4614);
			}
		}

	}



/* &current-output-port */
	obj_t BGl_z62currentzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3464)
	{
		{	/* Ieee/port.scm 677 */
			return BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00();
		}

	}



/* current-error-port */
	BGL_EXPORTED_DEF obj_t
		BGl_currentzd2errorzd2portz00zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 683 */
			{	/* Ieee/port.scm 684 */
				obj_t BgL_tmpz00_4618;

				BgL_tmpz00_4618 = BGL_CURRENT_DYNAMIC_ENV();
				return BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_4618);
			}
		}

	}



/* &current-error-port */
	obj_t BGl_z62currentzd2errorzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3465)
	{
		{	/* Ieee/port.scm 683 */
			return BGl_currentzd2errorzd2portz00zz__r4_ports_6_10_1z00();
		}

	}



/* input-port-reopen! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00(obj_t BgL_portz00_20)
	{
		{	/* Ieee/port.scm 689 */
			if (CBOOL(bgl_input_port_reopen(BgL_portz00_20)))
				{	/* Ieee/port.scm 690 */
					return BFALSE;
				}
			else
				{	/* Ieee/port.scm 690 */
					return
						bgl_system_failure(BGL_IO_PORT_ERROR,
						BGl_string2550z00zz__r4_ports_6_10_1z00,
						BGl_string2551z00zz__r4_ports_6_10_1z00, BgL_portz00_20);
				}
		}

	}



/* &input-port-reopen! */
	obj_t BGl_z62inputzd2portzd2reopenz12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3466, obj_t BgL_portz00_3467)
	{
		{	/* Ieee/port.scm 689 */
			{	/* Ieee/port.scm 690 */
				obj_t BgL_auxz00_4626;

				if (INPUT_PORTP(BgL_portz00_3467))
					{	/* Ieee/port.scm 690 */
						BgL_auxz00_4626 = BgL_portz00_3467;
					}
				else
					{
						obj_t BgL_auxz00_4629;

						BgL_auxz00_4629 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(31434L),
							BGl_string2552z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3467);
						FAILURE(BgL_auxz00_4629, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00
					(BgL_auxz00_4626);
			}
		}

	}



/* input-port-clone! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2clonez12z12zz__r4_ports_6_10_1z00(obj_t BgL_dstz00_21,
		obj_t BgL_srcz00_22)
	{
		{	/* Ieee/port.scm 697 */
			BGL_TAIL return bgl_input_port_clone(BgL_dstz00_21, BgL_srcz00_22);
		}

	}



/* &input-port-clone! */
	obj_t BGl_z62inputzd2portzd2clonez12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3468, obj_t BgL_dstz00_3469, obj_t BgL_srcz00_3470)
	{
		{	/* Ieee/port.scm 697 */
			{	/* Ieee/port.scm 698 */
				obj_t BgL_auxz00_4642;
				obj_t BgL_auxz00_4635;

				if (INPUT_PORTP(BgL_srcz00_3470))
					{	/* Ieee/port.scm 698 */
						BgL_auxz00_4642 = BgL_srcz00_3470;
					}
				else
					{
						obj_t BgL_auxz00_4645;

						BgL_auxz00_4645 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(31854L),
							BGl_string2554z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_srcz00_3470);
						FAILURE(BgL_auxz00_4645, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_dstz00_3469))
					{	/* Ieee/port.scm 698 */
						BgL_auxz00_4635 = BgL_dstz00_3469;
					}
				else
					{
						obj_t BgL_auxz00_4638;

						BgL_auxz00_4638 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(31854L),
							BGl_string2554z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_dstz00_3469);
						FAILURE(BgL_auxz00_4638, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2clonez12z12zz__r4_ports_6_10_1z00(BgL_auxz00_4635,
					BgL_auxz00_4642);
			}
		}

	}



/* with-input-from-file */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_23, obj_t BgL_thunkz00_24)
	{
		{	/* Ieee/port.scm 703 */
			{	/* Ieee/port.scm 704 */
				obj_t BgL_portz00_1483;

				{	/* Ieee/port.scm 466 */

					BgL_portz00_1483 =
						BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_stringz00_23,
						BTRUE, BINT(5000000L));
				}
				if (INPUT_PORTP(BgL_portz00_1483))
					{	/* Ieee/port.scm 706 */
						obj_t BgL_denvz00_1485;

						BgL_denvz00_1485 = BGL_CURRENT_DYNAMIC_ENV();
						{	/* Ieee/port.scm 706 */
							obj_t BgL_oldzd2inputzd2portz00_1486;

							BgL_oldzd2inputzd2portz00_1486 =
								BGL_ENV_CURRENT_INPUT_PORT(BgL_denvz00_1485);
							{	/* Ieee/port.scm 707 */

								{	/* Ieee/port.scm 708 */
									obj_t BgL_exitd1059z00_1487;

									BgL_exitd1059z00_1487 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 713 */
										obj_t BgL_zc3z04anonymousza31447ze3z87_3471;

										BgL_zc3z04anonymousza31447ze3z87_3471 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31447ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (3L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31447ze3z87_3471,
											(int) (0L), BgL_denvz00_1485);
										PROCEDURE_SET(BgL_zc3z04anonymousza31447ze3z87_3471,
											(int) (1L), BgL_oldzd2inputzd2portz00_1486);
										PROCEDURE_SET(BgL_zc3z04anonymousza31447ze3z87_3471,
											(int) (2L), BgL_portz00_1483);
										{	/* Ieee/port.scm 708 */
											obj_t BgL_arg2038z00_2558;

											{	/* Ieee/port.scm 708 */
												obj_t BgL_arg2039z00_2559;

												BgL_arg2039z00_2559 =
													BGL_EXITD_PROTECT(BgL_exitd1059z00_1487);
												BgL_arg2038z00_2558 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31447ze3z87_3471,
													BgL_arg2039z00_2559);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1059z00_1487,
												BgL_arg2038z00_2558);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 710 */
											obj_t BgL_tmp1061z00_1489;

											BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1485,
												BgL_portz00_1483);
											BUNSPEC;
											BgL_tmp1061z00_1489 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_24);
											{	/* Ieee/port.scm 708 */
												bool_t BgL_test3080z00_4673;

												{	/* Ieee/port.scm 708 */
													obj_t BgL_arg2037z00_2561;

													BgL_arg2037z00_2561 =
														BGL_EXITD_PROTECT(BgL_exitd1059z00_1487);
													BgL_test3080z00_4673 = PAIRP(BgL_arg2037z00_2561);
												}
												if (BgL_test3080z00_4673)
													{	/* Ieee/port.scm 708 */
														obj_t BgL_arg2034z00_2562;

														{	/* Ieee/port.scm 708 */
															obj_t BgL_arg2035z00_2563;

															BgL_arg2035z00_2563 =
																BGL_EXITD_PROTECT(BgL_exitd1059z00_1487);
															BgL_arg2034z00_2562 =
																CDR(((obj_t) BgL_arg2035z00_2563));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1059z00_1487,
															BgL_arg2034z00_2562);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 708 */
														BFALSE;
													}
											}
											BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1485,
												BgL_oldzd2inputzd2portz00_1486);
											BUNSPEC;
											bgl_close_input_port(BgL_portz00_1483);
											return BgL_tmp1061z00_1489;
										}
									}
								}
							}
						}
					}
				else
					{	/* Ieee/port.scm 705 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2555z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_23);
					}
			}
		}

	}



/* &with-input-from-file */
	obj_t BGl_z62withzd2inputzd2fromzd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3472, obj_t BgL_stringz00_3473, obj_t BgL_thunkz00_3474)
	{
		{	/* Ieee/port.scm 703 */
			{	/* Ieee/port.scm 704 */
				obj_t BgL_auxz00_4690;
				obj_t BgL_auxz00_4683;

				if (PROCEDUREP(BgL_thunkz00_3474))
					{	/* Ieee/port.scm 704 */
						BgL_auxz00_4690 = BgL_thunkz00_3474;
					}
				else
					{
						obj_t BgL_auxz00_4693;

						BgL_auxz00_4693 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(32154L),
							BGl_string2556z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3474);
						FAILURE(BgL_auxz00_4693, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3473))
					{	/* Ieee/port.scm 704 */
						BgL_auxz00_4683 = BgL_stringz00_3473;
					}
				else
					{
						obj_t BgL_auxz00_4686;

						BgL_auxz00_4686 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(32154L),
							BGl_string2556z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3473);
						FAILURE(BgL_auxz00_4686, BFALSE, BFALSE);
					}
				return
					BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4683, BgL_auxz00_4690);
			}
		}

	}



/* &<@anonymous:1447> */
	obj_t BGl_z62zc3z04anonymousza31447ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3475)
	{
		{	/* Ieee/port.scm 708 */
			{	/* Ieee/port.scm 713 */
				obj_t BgL_denvz00_3476;
				obj_t BgL_oldzd2inputzd2portz00_3477;
				obj_t BgL_portz00_3478;

				BgL_denvz00_3476 = ((obj_t) PROCEDURE_REF(BgL_envz00_3475, (int) (0L)));
				BgL_oldzd2inputzd2portz00_3477 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3475, (int) (1L)));
				BgL_portz00_3478 = PROCEDURE_REF(BgL_envz00_3475, (int) (2L));
				BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3476,
					BgL_oldzd2inputzd2portz00_3477);
				BUNSPEC;
				return bgl_close_input_port(((obj_t) BgL_portz00_3478));
			}
		}

	}



/* with-input-from-string */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_25, obj_t BgL_thunkz00_26)
	{
		{	/* Ieee/port.scm 721 */
			{	/* Ieee/port.scm 722 */
				obj_t BgL_portz00_1495;

				{	/* Ieee/port.scm 469 */
					long BgL_endz00_1505;

					BgL_endz00_1505 = STRING_LENGTH(BgL_stringz00_25);
					{	/* Ieee/port.scm 469 */

						BgL_portz00_1495 =
							BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
							(BgL_stringz00_25, BINT(0L), BINT(BgL_endz00_1505));
				}}
				{	/* Ieee/port.scm 722 */
					obj_t BgL_denvz00_1496;

					BgL_denvz00_1496 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Ieee/port.scm 723 */
						obj_t BgL_oldzd2inputzd2portz00_1497;

						BgL_oldzd2inputzd2portz00_1497 =
							BGL_ENV_CURRENT_INPUT_PORT(BgL_denvz00_1496);
						{	/* Ieee/port.scm 724 */

							{	/* Ieee/port.scm 725 */
								obj_t BgL_exitd1063z00_1498;

								BgL_exitd1063z00_1498 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Ieee/port.scm 730 */
									obj_t BgL_zc3z04anonymousza31448ze3z87_3479;

									BgL_zc3z04anonymousza31448ze3z87_3479 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31448ze3ze5zz__r4_ports_6_10_1z00,
										(int) (0L), (int) (3L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31448ze3z87_3479,
										(int) (0L), BgL_denvz00_1496);
									PROCEDURE_SET(BgL_zc3z04anonymousza31448ze3z87_3479,
										(int) (1L), BgL_oldzd2inputzd2portz00_1497);
									PROCEDURE_SET(BgL_zc3z04anonymousza31448ze3z87_3479,
										(int) (2L), BgL_portz00_1495);
									{	/* Ieee/port.scm 725 */
										obj_t BgL_arg2038z00_2568;

										{	/* Ieee/port.scm 725 */
											obj_t BgL_arg2039z00_2569;

											BgL_arg2039z00_2569 =
												BGL_EXITD_PROTECT(BgL_exitd1063z00_1498);
											BgL_arg2038z00_2568 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31448ze3z87_3479,
												BgL_arg2039z00_2569);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1063z00_1498,
											BgL_arg2038z00_2568);
										BUNSPEC;
									}
									{	/* Ieee/port.scm 727 */
										obj_t BgL_tmp1065z00_1500;

										BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1496,
											BgL_portz00_1495);
										BUNSPEC;
										BgL_tmp1065z00_1500 = BGL_PROCEDURE_CALL0(BgL_thunkz00_26);
										{	/* Ieee/port.scm 725 */
											bool_t BgL_test3083z00_4732;

											{	/* Ieee/port.scm 725 */
												obj_t BgL_arg2037z00_2571;

												BgL_arg2037z00_2571 =
													BGL_EXITD_PROTECT(BgL_exitd1063z00_1498);
												BgL_test3083z00_4732 = PAIRP(BgL_arg2037z00_2571);
											}
											if (BgL_test3083z00_4732)
												{	/* Ieee/port.scm 725 */
													obj_t BgL_arg2034z00_2572;

													{	/* Ieee/port.scm 725 */
														obj_t BgL_arg2035z00_2573;

														BgL_arg2035z00_2573 =
															BGL_EXITD_PROTECT(BgL_exitd1063z00_1498);
														BgL_arg2034z00_2572 =
															CDR(((obj_t) BgL_arg2035z00_2573));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1063z00_1498,
														BgL_arg2034z00_2572);
													BUNSPEC;
												}
											else
												{	/* Ieee/port.scm 725 */
													BFALSE;
												}
										}
										BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1496,
											BgL_oldzd2inputzd2portz00_1497);
										BUNSPEC;
										bgl_close_input_port(BgL_portz00_1495);
										return BgL_tmp1065z00_1500;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &with-input-from-string */
	obj_t BGl_z62withzd2inputzd2fromzd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3480, obj_t BgL_stringz00_3481, obj_t BgL_thunkz00_3482)
	{
		{	/* Ieee/port.scm 721 */
			{	/* Ieee/port.scm 722 */
				obj_t BgL_auxz00_4748;
				obj_t BgL_auxz00_4741;

				if (PROCEDUREP(BgL_thunkz00_3482))
					{	/* Ieee/port.scm 722 */
						BgL_auxz00_4748 = BgL_thunkz00_3482;
					}
				else
					{
						obj_t BgL_auxz00_4751;

						BgL_auxz00_4751 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(32860L),
							BGl_string2557z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3482);
						FAILURE(BgL_auxz00_4751, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3481))
					{	/* Ieee/port.scm 722 */
						BgL_auxz00_4741 = BgL_stringz00_3481;
					}
				else
					{
						obj_t BgL_auxz00_4744;

						BgL_auxz00_4744 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(32860L),
							BGl_string2557z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3481);
						FAILURE(BgL_auxz00_4744, BFALSE, BFALSE);
					}
				return
					BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4741, BgL_auxz00_4748);
			}
		}

	}



/* &<@anonymous:1448> */
	obj_t BGl_z62zc3z04anonymousza31448ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3483)
	{
		{	/* Ieee/port.scm 725 */
			{	/* Ieee/port.scm 730 */
				obj_t BgL_denvz00_3484;
				obj_t BgL_oldzd2inputzd2portz00_3485;
				obj_t BgL_portz00_3486;

				BgL_denvz00_3484 = ((obj_t) PROCEDURE_REF(BgL_envz00_3483, (int) (0L)));
				BgL_oldzd2inputzd2portz00_3485 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3483, (int) (1L)));
				BgL_portz00_3486 = ((obj_t) PROCEDURE_REF(BgL_envz00_3483, (int) (2L)));
				BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3484,
					BgL_oldzd2inputzd2portz00_3485);
				BUNSPEC;
				return bgl_close_input_port(BgL_portz00_3486);
			}
		}

	}



/* with-input-from-port */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_27, obj_t BgL_thunkz00_28)
	{
		{	/* Ieee/port.scm 736 */
			{	/* Ieee/port.scm 737 */
				obj_t BgL_denvz00_1506;

				BgL_denvz00_1506 = BGL_CURRENT_DYNAMIC_ENV();
				{	/* Ieee/port.scm 737 */
					obj_t BgL_oldzd2inputzd2portz00_1507;

					BgL_oldzd2inputzd2portz00_1507 =
						BGL_ENV_CURRENT_INPUT_PORT(BgL_denvz00_1506);
					{	/* Ieee/port.scm 738 */

						{	/* Ieee/port.scm 739 */
							obj_t BgL_exitd1067z00_1508;

							BgL_exitd1067z00_1508 = BGL_EXITD_TOP_AS_OBJ();
							{
								obj_t BgL_zc3z04anonymousza31449ze3z87_3487;

								BgL_zc3z04anonymousza31449ze3z87_3487 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31449ze3ze5zz__r4_ports_6_10_1z00,
									(int) (0L), (int) (2L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31449ze3z87_3487, (int) (0L),
									BgL_denvz00_1506);
								PROCEDURE_SET(BgL_zc3z04anonymousza31449ze3z87_3487, (int) (1L),
									BgL_oldzd2inputzd2portz00_1507);
								{	/* Ieee/port.scm 739 */
									obj_t BgL_arg2038z00_2576;

									{	/* Ieee/port.scm 739 */
										obj_t BgL_arg2039z00_2577;

										BgL_arg2039z00_2577 =
											BGL_EXITD_PROTECT(BgL_exitd1067z00_1508);
										BgL_arg2038z00_2576 =
											MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31449ze3z87_3487,
											BgL_arg2039z00_2577);
									}
									BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_1508,
										BgL_arg2038z00_2576);
									BUNSPEC;
								}
								{	/* Ieee/port.scm 741 */
									obj_t BgL_tmp1069z00_1510;

									BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1506,
										BgL_portz00_27);
									BUNSPEC;
									BgL_tmp1069z00_1510 = BGL_PROCEDURE_CALL0(BgL_thunkz00_28);
									{	/* Ieee/port.scm 739 */
										bool_t BgL_test3086z00_4784;

										{	/* Ieee/port.scm 739 */
											obj_t BgL_arg2037z00_2579;

											BgL_arg2037z00_2579 =
												BGL_EXITD_PROTECT(BgL_exitd1067z00_1508);
											BgL_test3086z00_4784 = PAIRP(BgL_arg2037z00_2579);
										}
										if (BgL_test3086z00_4784)
											{	/* Ieee/port.scm 739 */
												obj_t BgL_arg2034z00_2580;

												{	/* Ieee/port.scm 739 */
													obj_t BgL_arg2035z00_2581;

													BgL_arg2035z00_2581 =
														BGL_EXITD_PROTECT(BgL_exitd1067z00_1508);
													BgL_arg2034z00_2580 =
														CDR(((obj_t) BgL_arg2035z00_2581));
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_1508,
													BgL_arg2034z00_2580);
												BUNSPEC;
											}
										else
											{	/* Ieee/port.scm 739 */
												BFALSE;
											}
									}
									BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1506,
										BgL_oldzd2inputzd2portz00_1507);
									BUNSPEC;
									return BgL_tmp1069z00_1510;
								}
							}
						}
					}
				}
			}
		}

	}



/* &with-input-from-port */
	obj_t BGl_z62withzd2inputzd2fromzd2portzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3488, obj_t BgL_portz00_3489, obj_t BgL_thunkz00_3490)
	{
		{	/* Ieee/port.scm 736 */
			{	/* Ieee/port.scm 737 */
				obj_t BgL_auxz00_4799;
				obj_t BgL_auxz00_4792;

				if (PROCEDUREP(BgL_thunkz00_3490))
					{	/* Ieee/port.scm 737 */
						BgL_auxz00_4799 = BgL_thunkz00_3490;
					}
				else
					{
						obj_t BgL_auxz00_4802;

						BgL_auxz00_4802 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(33434L),
							BGl_string2558z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3490);
						FAILURE(BgL_auxz00_4802, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_portz00_3489))
					{	/* Ieee/port.scm 737 */
						BgL_auxz00_4792 = BgL_portz00_3489;
					}
				else
					{
						obj_t BgL_auxz00_4795;

						BgL_auxz00_4795 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(33434L),
							BGl_string2558z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3489);
						FAILURE(BgL_auxz00_4795, BFALSE, BFALSE);
					}
				return
					BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4792, BgL_auxz00_4799);
			}
		}

	}



/* &<@anonymous:1449> */
	obj_t BGl_z62zc3z04anonymousza31449ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3491)
	{
		{	/* Ieee/port.scm 739 */
			{
				obj_t BgL_denvz00_3492;
				obj_t BgL_oldzd2inputzd2portz00_3493;

				BgL_denvz00_3492 = ((obj_t) PROCEDURE_REF(BgL_envz00_3491, (int) (0L)));
				BgL_oldzd2inputzd2portz00_3493 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3491, (int) (1L)));
				BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3492,
					BgL_oldzd2inputzd2portz00_3493);
				return BUNSPEC;
			}
		}

	}



/* with-input-from-procedure */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_procz00_29, obj_t BgL_thunkz00_30)
	{
		{	/* Ieee/port.scm 748 */
			{	/* Ieee/port.scm 749 */
				obj_t BgL_portz00_1513;

				{	/* Ieee/port.scm 474 */

					BgL_portz00_1513 =
						bgl_open_input_procedure(BgL_procz00_29,
						BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
						(BGl_string2559z00zz__r4_ports_6_10_1z00, BTRUE, (int) (1024L)));
				}
				{	/* Ieee/port.scm 751 */
					obj_t BgL_denvz00_1515;

					BgL_denvz00_1515 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Ieee/port.scm 751 */
						obj_t BgL_oldzd2inputzd2portz00_1516;

						BgL_oldzd2inputzd2portz00_1516 =
							BGL_ENV_CURRENT_INPUT_PORT(BgL_denvz00_1515);
						{	/* Ieee/port.scm 752 */

							{	/* Ieee/port.scm 753 */
								obj_t BgL_exitd1071z00_1517;

								BgL_exitd1071z00_1517 = BGL_EXITD_TOP_AS_OBJ();
								{	/* Ieee/port.scm 758 */
									obj_t BgL_zc3z04anonymousza31451ze3z87_3494;

									BgL_zc3z04anonymousza31451ze3z87_3494 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31451ze3ze5zz__r4_ports_6_10_1z00,
										(int) (0L), (int) (3L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_3494,
										(int) (0L), BgL_denvz00_1515);
									PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_3494,
										(int) (1L), BgL_oldzd2inputzd2portz00_1516);
									PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_3494,
										(int) (2L), BgL_portz00_1513);
									{	/* Ieee/port.scm 753 */
										obj_t BgL_arg2038z00_2586;

										{	/* Ieee/port.scm 753 */
											obj_t BgL_arg2039z00_2587;

											BgL_arg2039z00_2587 =
												BGL_EXITD_PROTECT(BgL_exitd1071z00_1517);
											BgL_arg2038z00_2586 =
												MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31451ze3z87_3494,
												BgL_arg2039z00_2587);
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1071z00_1517,
											BgL_arg2038z00_2586);
										BUNSPEC;
									}
									{	/* Ieee/port.scm 755 */
										obj_t BgL_tmp1073z00_1519;

										BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1515,
											BgL_portz00_1513);
										BUNSPEC;
										BgL_tmp1073z00_1519 = BGL_PROCEDURE_CALL0(BgL_thunkz00_30);
										{	/* Ieee/port.scm 753 */
											bool_t BgL_test3089z00_4836;

											{	/* Ieee/port.scm 753 */
												obj_t BgL_arg2037z00_2589;

												BgL_arg2037z00_2589 =
													BGL_EXITD_PROTECT(BgL_exitd1071z00_1517);
												BgL_test3089z00_4836 = PAIRP(BgL_arg2037z00_2589);
											}
											if (BgL_test3089z00_4836)
												{	/* Ieee/port.scm 753 */
													obj_t BgL_arg2034z00_2590;

													{	/* Ieee/port.scm 753 */
														obj_t BgL_arg2035z00_2591;

														BgL_arg2035z00_2591 =
															BGL_EXITD_PROTECT(BgL_exitd1071z00_1517);
														BgL_arg2034z00_2590 =
															CDR(((obj_t) BgL_arg2035z00_2591));
													}
													BGL_EXITD_PROTECT_SET(BgL_exitd1071z00_1517,
														BgL_arg2034z00_2590);
													BUNSPEC;
												}
											else
												{	/* Ieee/port.scm 753 */
													BFALSE;
												}
										}
										BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1515,
											BgL_oldzd2inputzd2portz00_1516);
										BUNSPEC;
										bgl_close_input_port(BgL_portz00_1513);
										return BgL_tmp1073z00_1519;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &with-input-from-procedure */
	obj_t BGl_z62withzd2inputzd2fromzd2procedurezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3495, obj_t BgL_procz00_3496, obj_t BgL_thunkz00_3497)
	{
		{	/* Ieee/port.scm 748 */
			{	/* Ieee/port.scm 749 */
				obj_t BgL_auxz00_4852;
				obj_t BgL_auxz00_4845;

				if (PROCEDUREP(BgL_thunkz00_3497))
					{	/* Ieee/port.scm 749 */
						BgL_auxz00_4852 = BgL_thunkz00_3497;
					}
				else
					{
						obj_t BgL_auxz00_4855;

						BgL_auxz00_4855 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(33934L),
							BGl_string2560z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3497);
						FAILURE(BgL_auxz00_4855, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_procz00_3496))
					{	/* Ieee/port.scm 749 */
						BgL_auxz00_4845 = BgL_procz00_3496;
					}
				else
					{
						obj_t BgL_auxz00_4848;

						BgL_auxz00_4848 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(33934L),
							BGl_string2560z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3496);
						FAILURE(BgL_auxz00_4848, BFALSE, BFALSE);
					}
				return
					BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4845, BgL_auxz00_4852);
			}
		}

	}



/* &<@anonymous:1451> */
	obj_t BGl_z62zc3z04anonymousza31451ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3498)
	{
		{	/* Ieee/port.scm 753 */
			{	/* Ieee/port.scm 758 */
				obj_t BgL_denvz00_3499;
				obj_t BgL_oldzd2inputzd2portz00_3500;
				obj_t BgL_portz00_3501;

				BgL_denvz00_3499 = ((obj_t) PROCEDURE_REF(BgL_envz00_3498, (int) (0L)));
				BgL_oldzd2inputzd2portz00_3500 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3498, (int) (1L)));
				BgL_portz00_3501 = ((obj_t) PROCEDURE_REF(BgL_envz00_3498, (int) (2L)));
				BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3499,
					BgL_oldzd2inputzd2portz00_3500);
				BUNSPEC;
				return bgl_close_input_port(BgL_portz00_3501);
			}
		}

	}



/* with-output-to-file */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_31, obj_t BgL_thunkz00_32)
	{
		{	/* Ieee/port.scm 765 */
			{	/* Ieee/port.scm 766 */
				obj_t BgL_portz00_1524;

				{	/* Ieee/port.scm 483 */

					BgL_portz00_1524 =
						bgl_open_output_file(BgL_stringz00_31,
						BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
						(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE,
							(int) (default_io_bufsiz)));
				}
				if (OUTPUT_PORTP(BgL_portz00_1524))
					{	/* Ieee/port.scm 768 */
						obj_t BgL_denvz00_1526;

						BgL_denvz00_1526 = BGL_CURRENT_DYNAMIC_ENV();
						{	/* Ieee/port.scm 768 */
							obj_t BgL_oldzd2outputzd2portz00_1527;

							BgL_oldzd2outputzd2portz00_1527 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_denvz00_1526);
							{	/* Ieee/port.scm 769 */

								{	/* Ieee/port.scm 770 */
									obj_t BgL_exitd1075z00_1528;

									BgL_exitd1075z00_1528 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 775 */
										obj_t BgL_zc3z04anonymousza31453ze3z87_3502;

										BgL_zc3z04anonymousza31453ze3z87_3502 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31453ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (3L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_3502,
											(int) (0L), BgL_denvz00_1526);
										PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_3502,
											(int) (1L), BgL_oldzd2outputzd2portz00_1527);
										PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_3502,
											(int) (2L), BgL_portz00_1524);
										{	/* Ieee/port.scm 770 */
											obj_t BgL_arg2038z00_2597;

											{	/* Ieee/port.scm 770 */
												obj_t BgL_arg2039z00_2598;

												BgL_arg2039z00_2598 =
													BGL_EXITD_PROTECT(BgL_exitd1075z00_1528);
												BgL_arg2038z00_2597 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31453ze3z87_3502,
													BgL_arg2039z00_2598);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1528,
												BgL_arg2038z00_2597);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 772 */
											obj_t BgL_tmp1077z00_1530;

											BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1526,
												BgL_portz00_1524);
											BUNSPEC;
											BgL_tmp1077z00_1530 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_32);
											{	/* Ieee/port.scm 770 */
												bool_t BgL_test3093z00_4895;

												{	/* Ieee/port.scm 770 */
													obj_t BgL_arg2037z00_2600;

													BgL_arg2037z00_2600 =
														BGL_EXITD_PROTECT(BgL_exitd1075z00_1528);
													BgL_test3093z00_4895 = PAIRP(BgL_arg2037z00_2600);
												}
												if (BgL_test3093z00_4895)
													{	/* Ieee/port.scm 770 */
														obj_t BgL_arg2034z00_2601;

														{	/* Ieee/port.scm 770 */
															obj_t BgL_arg2035z00_2602;

															BgL_arg2035z00_2602 =
																BGL_EXITD_PROTECT(BgL_exitd1075z00_1528);
															BgL_arg2034z00_2601 =
																CDR(((obj_t) BgL_arg2035z00_2602));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1528,
															BgL_arg2034z00_2601);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 770 */
														BFALSE;
													}
											}
											BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1526,
												BgL_oldzd2outputzd2portz00_1527);
											BUNSPEC;
											bgl_close_output_port(BgL_portz00_1524);
											return BgL_tmp1077z00_1530;
										}
									}
								}
							}
						}
					}
				else
					{	/* Ieee/port.scm 767 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2561z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_31);
					}
			}
		}

	}



/* &with-output-to-file */
	obj_t BGl_z62withzd2outputzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3503, obj_t BgL_stringz00_3504, obj_t BgL_thunkz00_3505)
	{
		{	/* Ieee/port.scm 765 */
			{	/* Ieee/port.scm 766 */
				obj_t BgL_auxz00_4912;
				obj_t BgL_auxz00_4905;

				if (PROCEDUREP(BgL_thunkz00_3505))
					{	/* Ieee/port.scm 766 */
						BgL_auxz00_4912 = BgL_thunkz00_3505;
					}
				else
					{
						obj_t BgL_auxz00_4915;

						BgL_auxz00_4915 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(34615L),
							BGl_string2562z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3505);
						FAILURE(BgL_auxz00_4915, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3504))
					{	/* Ieee/port.scm 766 */
						BgL_auxz00_4905 = BgL_stringz00_3504;
					}
				else
					{
						obj_t BgL_auxz00_4908;

						BgL_auxz00_4908 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(34615L),
							BGl_string2562z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3504);
						FAILURE(BgL_auxz00_4908, BFALSE, BFALSE);
					}
				return
					BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4905, BgL_auxz00_4912);
			}
		}

	}



/* &<@anonymous:1453> */
	obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3506)
	{
		{	/* Ieee/port.scm 770 */
			{	/* Ieee/port.scm 775 */
				obj_t BgL_denvz00_3507;
				obj_t BgL_oldzd2outputzd2portz00_3508;
				obj_t BgL_portz00_3509;

				BgL_denvz00_3507 = ((obj_t) PROCEDURE_REF(BgL_envz00_3506, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3508 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3506, (int) (1L)));
				BgL_portz00_3509 = PROCEDURE_REF(BgL_envz00_3506, (int) (2L));
				BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3507,
					BgL_oldzd2outputzd2portz00_3508);
				BUNSPEC;
				return bgl_close_output_port(((obj_t) BgL_portz00_3509));
			}
		}

	}



/* with-append-to-file */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2appendzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_33, obj_t BgL_thunkz00_34)
	{
		{	/* Ieee/port.scm 783 */
			{	/* Ieee/port.scm 784 */
				obj_t BgL_portz00_1535;

				{	/* Ieee/port.scm 484 */

					BgL_portz00_1535 =
						bgl_append_output_file(BgL_stringz00_33,
						BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
						(BGl_string2546z00zz__r4_ports_6_10_1z00, BTRUE,
							(int) (default_io_bufsiz)));
				}
				if (OUTPUT_PORTP(BgL_portz00_1535))
					{	/* Ieee/port.scm 786 */
						obj_t BgL_denvz00_1537;

						BgL_denvz00_1537 = BGL_CURRENT_DYNAMIC_ENV();
						{	/* Ieee/port.scm 786 */
							obj_t BgL_oldzd2outputzd2portz00_1538;

							BgL_oldzd2outputzd2portz00_1538 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_denvz00_1537);
							{	/* Ieee/port.scm 787 */

								{	/* Ieee/port.scm 788 */
									obj_t BgL_exitd1079z00_1539;

									BgL_exitd1079z00_1539 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 793 */
										obj_t BgL_zc3z04anonymousza31455ze3z87_3510;

										BgL_zc3z04anonymousza31455ze3z87_3510 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (3L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_3510,
											(int) (0L), BgL_denvz00_1537);
										PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_3510,
											(int) (1L), BgL_oldzd2outputzd2portz00_1538);
										PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_3510,
											(int) (2L), BgL_portz00_1535);
										{	/* Ieee/port.scm 788 */
											obj_t BgL_arg2038z00_2608;

											{	/* Ieee/port.scm 788 */
												obj_t BgL_arg2039z00_2609;

												BgL_arg2039z00_2609 =
													BGL_EXITD_PROTECT(BgL_exitd1079z00_1539);
												BgL_arg2038z00_2608 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31455ze3z87_3510,
													BgL_arg2039z00_2609);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1079z00_1539,
												BgL_arg2038z00_2608);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 790 */
											obj_t BgL_tmp1081z00_1541;

											BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1537,
												BgL_portz00_1535);
											BUNSPEC;
											BgL_tmp1081z00_1541 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_34);
											{	/* Ieee/port.scm 788 */
												bool_t BgL_test3097z00_4955;

												{	/* Ieee/port.scm 788 */
													obj_t BgL_arg2037z00_2611;

													BgL_arg2037z00_2611 =
														BGL_EXITD_PROTECT(BgL_exitd1079z00_1539);
													BgL_test3097z00_4955 = PAIRP(BgL_arg2037z00_2611);
												}
												if (BgL_test3097z00_4955)
													{	/* Ieee/port.scm 788 */
														obj_t BgL_arg2034z00_2612;

														{	/* Ieee/port.scm 788 */
															obj_t BgL_arg2035z00_2613;

															BgL_arg2035z00_2613 =
																BGL_EXITD_PROTECT(BgL_exitd1079z00_1539);
															BgL_arg2034z00_2612 =
																CDR(((obj_t) BgL_arg2035z00_2613));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1079z00_1539,
															BgL_arg2034z00_2612);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 788 */
														BFALSE;
													}
											}
											BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1537,
												BgL_oldzd2outputzd2portz00_1538);
											BUNSPEC;
											bgl_close_output_port(BgL_portz00_1535);
											return BgL_tmp1081z00_1541;
										}
									}
								}
							}
						}
					}
				else
					{	/* Ieee/port.scm 785 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2561z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_33);
					}
			}
		}

	}



/* &with-append-to-file */
	obj_t BGl_z62withzd2appendzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3511, obj_t BgL_stringz00_3512, obj_t BgL_thunkz00_3513)
	{
		{	/* Ieee/port.scm 783 */
			{	/* Ieee/port.scm 784 */
				obj_t BgL_auxz00_4972;
				obj_t BgL_auxz00_4965;

				if (PROCEDUREP(BgL_thunkz00_3513))
					{	/* Ieee/port.scm 784 */
						BgL_auxz00_4972 = BgL_thunkz00_3513;
					}
				else
					{
						obj_t BgL_auxz00_4975;

						BgL_auxz00_4975 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(35325L),
							BGl_string2563z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3513);
						FAILURE(BgL_auxz00_4975, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3512))
					{	/* Ieee/port.scm 784 */
						BgL_auxz00_4965 = BgL_stringz00_3512;
					}
				else
					{
						obj_t BgL_auxz00_4968;

						BgL_auxz00_4968 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(35325L),
							BGl_string2563z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3512);
						FAILURE(BgL_auxz00_4968, BFALSE, BFALSE);
					}
				return
					BGl_withzd2appendzd2tozd2filezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_4965, BgL_auxz00_4972);
			}
		}

	}



/* &<@anonymous:1455> */
	obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3514)
	{
		{	/* Ieee/port.scm 788 */
			{	/* Ieee/port.scm 793 */
				obj_t BgL_denvz00_3515;
				obj_t BgL_oldzd2outputzd2portz00_3516;
				obj_t BgL_portz00_3517;

				BgL_denvz00_3515 = ((obj_t) PROCEDURE_REF(BgL_envz00_3514, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3516 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3514, (int) (1L)));
				BgL_portz00_3517 = PROCEDURE_REF(BgL_envz00_3514, (int) (2L));
				BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3515,
					BgL_oldzd2outputzd2portz00_3516);
				BUNSPEC;
				return bgl_close_output_port(((obj_t) BgL_portz00_3517));
			}
		}

	}



/* with-output-to-port */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_35,
		obj_t BgL_thunkz00_36)
	{
		{	/* Ieee/port.scm 801 */
			{	/* Ieee/port.scm 802 */
				obj_t BgL_denvz00_1546;

				BgL_denvz00_1546 = BGL_CURRENT_DYNAMIC_ENV();
				{	/* Ieee/port.scm 802 */
					obj_t BgL_oldzd2outputzd2portz00_1547;

					BgL_oldzd2outputzd2portz00_1547 =
						BGL_ENV_CURRENT_OUTPUT_PORT(BgL_denvz00_1546);
					{	/* Ieee/port.scm 803 */

						{	/* Ieee/port.scm 804 */
							obj_t BgL_exitd1083z00_1548;

							BgL_exitd1083z00_1548 = BGL_EXITD_TOP_AS_OBJ();
							{
								obj_t BgL_zc3z04anonymousza31456ze3z87_3518;

								BgL_zc3z04anonymousza31456ze3z87_3518 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31456ze3ze5zz__r4_ports_6_10_1z00,
									(int) (0L), (int) (2L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31456ze3z87_3518, (int) (0L),
									BgL_denvz00_1546);
								PROCEDURE_SET(BgL_zc3z04anonymousza31456ze3z87_3518, (int) (1L),
									BgL_oldzd2outputzd2portz00_1547);
								{	/* Ieee/port.scm 804 */
									obj_t BgL_arg2038z00_2616;

									{	/* Ieee/port.scm 804 */
										obj_t BgL_arg2039z00_2617;

										BgL_arg2039z00_2617 =
											BGL_EXITD_PROTECT(BgL_exitd1083z00_1548);
										BgL_arg2038z00_2616 =
											MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31456ze3z87_3518,
											BgL_arg2039z00_2617);
									}
									BGL_EXITD_PROTECT_SET(BgL_exitd1083z00_1548,
										BgL_arg2038z00_2616);
									BUNSPEC;
								}
								{	/* Ieee/port.scm 806 */
									obj_t BgL_tmp1085z00_1550;

									BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1546,
										BgL_portz00_35);
									BUNSPEC;
									BgL_tmp1085z00_1550 = BGL_PROCEDURE_CALL0(BgL_thunkz00_36);
									{	/* Ieee/port.scm 804 */
										bool_t BgL_test3100z00_5008;

										{	/* Ieee/port.scm 804 */
											obj_t BgL_arg2037z00_2619;

											BgL_arg2037z00_2619 =
												BGL_EXITD_PROTECT(BgL_exitd1083z00_1548);
											BgL_test3100z00_5008 = PAIRP(BgL_arg2037z00_2619);
										}
										if (BgL_test3100z00_5008)
											{	/* Ieee/port.scm 804 */
												obj_t BgL_arg2034z00_2620;

												{	/* Ieee/port.scm 804 */
													obj_t BgL_arg2035z00_2621;

													BgL_arg2035z00_2621 =
														BGL_EXITD_PROTECT(BgL_exitd1083z00_1548);
													BgL_arg2034z00_2620 =
														CDR(((obj_t) BgL_arg2035z00_2621));
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1083z00_1548,
													BgL_arg2034z00_2620);
												BUNSPEC;
											}
										else
											{	/* Ieee/port.scm 804 */
												BFALSE;
											}
									}
									BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1546,
										BgL_oldzd2outputzd2portz00_1547);
									BUNSPEC;
									return BgL_tmp1085z00_1550;
								}
							}
						}
					}
				}
			}
		}

	}



/* &with-output-to-port */
	obj_t BGl_z62withzd2outputzd2tozd2portzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3519, obj_t BgL_portz00_3520, obj_t BgL_thunkz00_3521)
	{
		{	/* Ieee/port.scm 801 */
			{	/* Ieee/port.scm 802 */
				obj_t BgL_auxz00_5023;
				obj_t BgL_auxz00_5016;

				if (PROCEDUREP(BgL_thunkz00_3521))
					{	/* Ieee/port.scm 802 */
						BgL_auxz00_5023 = BgL_thunkz00_3521;
					}
				else
					{
						obj_t BgL_auxz00_5026;

						BgL_auxz00_5026 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(36035L),
							BGl_string2564z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3521);
						FAILURE(BgL_auxz00_5026, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3520))
					{	/* Ieee/port.scm 802 */
						BgL_auxz00_5016 = BgL_portz00_3520;
					}
				else
					{
						obj_t BgL_auxz00_5019;

						BgL_auxz00_5019 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(36035L),
							BGl_string2564z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3520);
						FAILURE(BgL_auxz00_5019, BFALSE, BFALSE);
					}
				return
					BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_5016, BgL_auxz00_5023);
			}
		}

	}



/* &<@anonymous:1456> */
	obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3522)
	{
		{	/* Ieee/port.scm 804 */
			{
				obj_t BgL_denvz00_3523;
				obj_t BgL_oldzd2outputzd2portz00_3524;

				BgL_denvz00_3523 = ((obj_t) PROCEDURE_REF(BgL_envz00_3522, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3524 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3522, (int) (1L)));
				BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3523,
					BgL_oldzd2outputzd2portz00_3524);
				return BUNSPEC;
			}
		}

	}



/* with-output-to-string */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_thunkz00_37)
	{
		{	/* Ieee/port.scm 813 */
			{	/* Ieee/port.scm 814 */
				obj_t BgL_portz00_1553;

				{	/* Ieee/port.scm 814 */

					{	/* Ieee/port.scm 485 */

						BgL_portz00_1553 =
							bgl_open_output_string
							(BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
							(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE, (int) (128L)));
				}}
				{	/* Ieee/port.scm 814 */
					obj_t BgL_denvz00_1554;

					BgL_denvz00_1554 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Ieee/port.scm 815 */
						obj_t BgL_oldzd2outputzd2portz00_1555;

						BgL_oldzd2outputzd2portz00_1555 =
							BGL_ENV_CURRENT_OUTPUT_PORT(BgL_denvz00_1554);
						{	/* Ieee/port.scm 816 */
							obj_t BgL_resz00_3534;

							BgL_resz00_3534 = BGL_MAKE_UNSAFE_CELL(BUNSPEC);
							{	/* Ieee/port.scm 817 */

								{	/* Ieee/port.scm 818 */
									obj_t BgL_exitd1087z00_1557;

									BgL_exitd1087z00_1557 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 823 */
										obj_t BgL_zc3z04anonymousza31457ze3z87_3525;

										BgL_zc3z04anonymousza31457ze3z87_3525 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3525,
											(int) (0L), BgL_denvz00_1554);
										PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3525,
											(int) (1L), BgL_oldzd2outputzd2portz00_1555);
										PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3525,
											(int) (2L), BgL_portz00_1553);
										PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3525,
											(int) (3L), ((obj_t) BgL_resz00_3534));
										{	/* Ieee/port.scm 818 */
											obj_t BgL_arg2038z00_2625;

											{	/* Ieee/port.scm 818 */
												obj_t BgL_arg2039z00_2626;

												BgL_arg2039z00_2626 =
													BGL_EXITD_PROTECT(BgL_exitd1087z00_1557);
												BgL_arg2038z00_2625 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31457ze3z87_3525,
													BgL_arg2039z00_2626);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1087z00_1557,
												BgL_arg2038z00_2625);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 820 */
											obj_t BgL_tmp1089z00_1559;

											BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1554,
												BgL_portz00_1553);
											BUNSPEC;
											BgL_tmp1089z00_1559 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_37);
											{	/* Ieee/port.scm 818 */
												bool_t BgL_test3103z00_5063;

												{	/* Ieee/port.scm 818 */
													obj_t BgL_arg2037z00_2628;

													BgL_arg2037z00_2628 =
														BGL_EXITD_PROTECT(BgL_exitd1087z00_1557);
													BgL_test3103z00_5063 = PAIRP(BgL_arg2037z00_2628);
												}
												if (BgL_test3103z00_5063)
													{	/* Ieee/port.scm 818 */
														obj_t BgL_arg2034z00_2629;

														{	/* Ieee/port.scm 818 */
															obj_t BgL_arg2035z00_2630;

															BgL_arg2035z00_2630 =
																BGL_EXITD_PROTECT(BgL_exitd1087z00_1557);
															BgL_arg2034z00_2629 =
																CDR(((obj_t) BgL_arg2035z00_2630));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1087z00_1557,
															BgL_arg2034z00_2629);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 818 */
														BFALSE;
													}
											}
											BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00
												(BgL_zc3z04anonymousza31457ze3z87_3525);
											BgL_tmp1089z00_1559;
										}
									}
								}
								return BGL_UNSAFE_CELL_REF(BgL_resz00_3534);
							}
						}
					}
				}
			}
		}

	}



/* &with-output-to-string */
	obj_t BGl_z62withzd2outputzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3526, obj_t BgL_thunkz00_3527)
	{
		{	/* Ieee/port.scm 813 */
			{	/* Ieee/port.scm 814 */
				obj_t BgL_auxz00_5071;

				if (PROCEDUREP(BgL_thunkz00_3527))
					{	/* Ieee/port.scm 814 */
						BgL_auxz00_5071 = BgL_thunkz00_3527;
					}
				else
					{
						obj_t BgL_auxz00_5074;

						BgL_auxz00_5074 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(36531L),
							BGl_string2566z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3527);
						FAILURE(BgL_auxz00_5074, BFALSE, BFALSE);
					}
				return
					BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_5071);
			}
		}

	}



/* &<@anonymous:1457> */
	obj_t BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3528)
	{
		{	/* Ieee/port.scm 818 */
			{	/* Ieee/port.scm 823 */
				obj_t BgL_denvz00_3529;
				obj_t BgL_oldzd2outputzd2portz00_3530;
				obj_t BgL_portz00_3531;
				obj_t BgL_resz00_3532;

				BgL_denvz00_3529 = ((obj_t) PROCEDURE_REF(BgL_envz00_3528, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3530 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3528, (int) (1L)));
				BgL_portz00_3531 = ((obj_t) PROCEDURE_REF(BgL_envz00_3528, (int) (2L)));
				BgL_resz00_3532 = PROCEDURE_REF(BgL_envz00_3528, (int) (3L));
				BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3529,
					BgL_oldzd2outputzd2portz00_3530);
				BUNSPEC;
				{	/* Ieee/port.scm 824 */
					obj_t BgL_auxz00_4278;

					BgL_auxz00_4278 = bgl_close_output_port(BgL_portz00_3531);
					return BGL_UNSAFE_CELL_SET(BgL_resz00_3532, BgL_auxz00_4278);
				}
			}
		}

	}



/* with-output-to-procedure */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2outputzd2tozd2procedurezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_procz00_38, obj_t BgL_thunkz00_39)
	{
		{	/* Ieee/port.scm 830 */
			{	/* Ieee/port.scm 831 */
				obj_t BgL_portz00_1563;

				{	/* Ieee/port.scm 486 */

					BgL_portz00_1563 =
						BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00
						(BgL_procz00_38, BGl_proc2567z00zz__r4_ports_6_10_1z00, BTRUE,
						BGl_proc2568z00zz__r4_ports_6_10_1z00);
				}
				{	/* Ieee/port.scm 831 */
					obj_t BgL_denvz00_1564;

					BgL_denvz00_1564 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Ieee/port.scm 832 */
						obj_t BgL_oldzd2outputzd2portz00_1565;

						BgL_oldzd2outputzd2portz00_1565 =
							BGL_ENV_CURRENT_OUTPUT_PORT(BgL_denvz00_1564);
						{	/* Ieee/port.scm 833 */
							obj_t BgL_resz00_3550;

							BgL_resz00_3550 = BGL_MAKE_UNSAFE_CELL(BUNSPEC);
							{	/* Ieee/port.scm 834 */

								{	/* Ieee/port.scm 835 */
									obj_t BgL_exitd1091z00_1567;

									BgL_exitd1091z00_1567 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 840 */
										obj_t BgL_zc3z04anonymousza31458ze3z87_3536;

										BgL_zc3z04anonymousza31458ze3z87_3536 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3536,
											(int) (0L), BgL_denvz00_1564);
										PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3536,
											(int) (1L), BgL_oldzd2outputzd2portz00_1565);
										PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3536,
											(int) (2L), BgL_portz00_1563);
										PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3536,
											(int) (3L), ((obj_t) BgL_resz00_3550));
										{	/* Ieee/port.scm 835 */
											obj_t BgL_arg2038z00_2633;

											{	/* Ieee/port.scm 835 */
												obj_t BgL_arg2039z00_2634;

												BgL_arg2039z00_2634 =
													BGL_EXITD_PROTECT(BgL_exitd1091z00_1567);
												BgL_arg2038z00_2633 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31458ze3z87_3536,
													BgL_arg2039z00_2634);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1091z00_1567,
												BgL_arg2038z00_2633);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 837 */
											obj_t BgL_tmp1093z00_1569;

											BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1564,
												BgL_portz00_1563);
											BUNSPEC;
											BgL_tmp1093z00_1569 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_39);
											{	/* Ieee/port.scm 835 */
												bool_t BgL_test3105z00_5115;

												{	/* Ieee/port.scm 835 */
													obj_t BgL_arg2037z00_2636;

													BgL_arg2037z00_2636 =
														BGL_EXITD_PROTECT(BgL_exitd1091z00_1567);
													BgL_test3105z00_5115 = PAIRP(BgL_arg2037z00_2636);
												}
												if (BgL_test3105z00_5115)
													{	/* Ieee/port.scm 835 */
														obj_t BgL_arg2034z00_2637;

														{	/* Ieee/port.scm 835 */
															obj_t BgL_arg2035z00_2638;

															BgL_arg2035z00_2638 =
																BGL_EXITD_PROTECT(BgL_exitd1091z00_1567);
															BgL_arg2034z00_2637 =
																CDR(((obj_t) BgL_arg2035z00_2638));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1091z00_1567,
															BgL_arg2034z00_2637);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 835 */
														BFALSE;
													}
											}
											BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00
												(BgL_zc3z04anonymousza31458ze3z87_3536);
											BgL_tmp1093z00_1569;
										}
									}
								}
								return BGL_UNSAFE_CELL_REF(BgL_resz00_3550);
							}
						}
					}
				}
			}
		}

	}



/* &with-output-to-procedure */
	obj_t BGl_z62withzd2outputzd2tozd2procedurezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3539, obj_t BgL_procz00_3540, obj_t BgL_thunkz00_3541)
	{
		{	/* Ieee/port.scm 830 */
			{	/* Ieee/port.scm 831 */
				obj_t BgL_auxz00_5130;
				obj_t BgL_auxz00_5123;

				if (PROCEDUREP(BgL_thunkz00_3541))
					{	/* Ieee/port.scm 831 */
						BgL_auxz00_5130 = BgL_thunkz00_3541;
					}
				else
					{
						obj_t BgL_auxz00_5133;

						BgL_auxz00_5133 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(37152L),
							BGl_string2569z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3541);
						FAILURE(BgL_auxz00_5133, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_procz00_3540))
					{	/* Ieee/port.scm 831 */
						BgL_auxz00_5123 = BgL_procz00_3540;
					}
				else
					{
						obj_t BgL_auxz00_5126;

						BgL_auxz00_5126 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(37152L),
							BGl_string2569z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3540);
						FAILURE(BgL_auxz00_5126, BFALSE, BFALSE);
					}
				return
					BGl_withzd2outputzd2tozd2procedurezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_5123, BgL_auxz00_5130);
			}
		}

	}



/* &<@anonymous:1458> */
	obj_t BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3542)
	{
		{	/* Ieee/port.scm 835 */
			{	/* Ieee/port.scm 840 */
				obj_t BgL_denvz00_3543;
				obj_t BgL_oldzd2outputzd2portz00_3544;
				obj_t BgL_portz00_3545;
				obj_t BgL_resz00_3546;

				BgL_denvz00_3543 = ((obj_t) PROCEDURE_REF(BgL_envz00_3542, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3544 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3542, (int) (1L)));
				BgL_portz00_3545 = PROCEDURE_REF(BgL_envz00_3542, (int) (2L));
				BgL_resz00_3546 = PROCEDURE_REF(BgL_envz00_3542, (int) (3L));
				BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3543,
					BgL_oldzd2outputzd2portz00_3544);
				BUNSPEC;
				{	/* Ieee/port.scm 841 */
					obj_t BgL_auxz00_4279;

					BgL_auxz00_4279 = bgl_close_output_port(((obj_t) BgL_portz00_3545));
					return BGL_UNSAFE_CELL_SET(BgL_resz00_3546, BgL_auxz00_4279);
				}
			}
		}

	}



/* &close */
	obj_t BGl_z62closez62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3548)
	{
		{	/* Ieee/port.scm 486 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &flush */
	obj_t BGl_z62flushz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3549)
	{
		{	/* Ieee/port.scm 486 */
			return BBOOL(((bool_t) 0));
		}

	}



/* with-error-to-string */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_thunkz00_40)
	{
		{	/* Ieee/port.scm 847 */
			{	/* Ieee/port.scm 848 */
				obj_t BgL_portz00_1580;

				{	/* Ieee/port.scm 848 */

					{	/* Ieee/port.scm 485 */

						BgL_portz00_1580 =
							bgl_open_output_string
							(BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
							(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE, (int) (128L)));
				}}
				{	/* Ieee/port.scm 850 */
					obj_t BgL_denvz00_1582;

					BgL_denvz00_1582 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Ieee/port.scm 850 */
						obj_t BgL_oldzd2errorzd2portz00_1583;

						BgL_oldzd2errorzd2portz00_1583 =
							BGL_ENV_CURRENT_ERROR_PORT(BgL_denvz00_1582);
						{	/* Ieee/port.scm 851 */
							obj_t BgL_resz00_3561;

							BgL_resz00_3561 = BGL_MAKE_UNSAFE_CELL(BUNSPEC);
							{	/* Ieee/port.scm 852 */

								{	/* Ieee/port.scm 853 */
									obj_t BgL_exitd1095z00_1585;

									BgL_exitd1095z00_1585 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 858 */
										obj_t BgL_zc3z04anonymousza31462ze3z87_3552;

										BgL_zc3z04anonymousza31462ze3z87_3552 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3552,
											(int) (0L), BgL_denvz00_1582);
										PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3552,
											(int) (1L), BgL_oldzd2errorzd2portz00_1583);
										PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3552,
											(int) (2L), BgL_portz00_1580);
										PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3552,
											(int) (3L), ((obj_t) BgL_resz00_3561));
										{	/* Ieee/port.scm 853 */
											obj_t BgL_arg2038z00_2642;

											{	/* Ieee/port.scm 853 */
												obj_t BgL_arg2039z00_2643;

												BgL_arg2039z00_2643 =
													BGL_EXITD_PROTECT(BgL_exitd1095z00_1585);
												BgL_arg2038z00_2642 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31462ze3z87_3552,
													BgL_arg2039z00_2643);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1095z00_1585,
												BgL_arg2038z00_2642);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 855 */
											obj_t BgL_tmp1097z00_1587;

											BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1582,
												BgL_portz00_1580);
											BUNSPEC;
											BgL_tmp1097z00_1587 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_40);
											{	/* Ieee/port.scm 853 */
												bool_t BgL_test3108z00_5178;

												{	/* Ieee/port.scm 853 */
													obj_t BgL_arg2037z00_2645;

													BgL_arg2037z00_2645 =
														BGL_EXITD_PROTECT(BgL_exitd1095z00_1585);
													BgL_test3108z00_5178 = PAIRP(BgL_arg2037z00_2645);
												}
												if (BgL_test3108z00_5178)
													{	/* Ieee/port.scm 853 */
														obj_t BgL_arg2034z00_2646;

														{	/* Ieee/port.scm 853 */
															obj_t BgL_arg2035z00_2647;

															BgL_arg2035z00_2647 =
																BGL_EXITD_PROTECT(BgL_exitd1095z00_1585);
															BgL_arg2034z00_2646 =
																CDR(((obj_t) BgL_arg2035z00_2647));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1095z00_1585,
															BgL_arg2034z00_2646);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 853 */
														BFALSE;
													}
											}
											BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00
												(BgL_zc3z04anonymousza31462ze3z87_3552);
											BgL_tmp1097z00_1587;
										}
									}
								}
								return BGL_UNSAFE_CELL_REF(BgL_resz00_3561);
							}
						}
					}
				}
			}
		}

	}



/* &with-error-to-string */
	obj_t BGl_z62withzd2errorzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3553, obj_t BgL_thunkz00_3554)
	{
		{	/* Ieee/port.scm 847 */
			{	/* Ieee/port.scm 848 */
				obj_t BgL_auxz00_5186;

				if (PROCEDUREP(BgL_thunkz00_3554))
					{	/* Ieee/port.scm 848 */
						BgL_auxz00_5186 = BgL_thunkz00_3554;
					}
				else
					{
						obj_t BgL_auxz00_5189;

						BgL_auxz00_5189 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(37772L),
							BGl_string2570z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3554);
						FAILURE(BgL_auxz00_5189, BFALSE, BFALSE);
					}
				return
					BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_5186);
			}
		}

	}



/* &<@anonymous:1462> */
	obj_t BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3555)
	{
		{	/* Ieee/port.scm 853 */
			{	/* Ieee/port.scm 858 */
				obj_t BgL_denvz00_3556;
				obj_t BgL_oldzd2errorzd2portz00_3557;
				obj_t BgL_portz00_3558;
				obj_t BgL_resz00_3559;

				BgL_denvz00_3556 = ((obj_t) PROCEDURE_REF(BgL_envz00_3555, (int) (0L)));
				BgL_oldzd2errorzd2portz00_3557 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3555, (int) (1L)));
				BgL_portz00_3558 = ((obj_t) PROCEDURE_REF(BgL_envz00_3555, (int) (2L)));
				BgL_resz00_3559 = PROCEDURE_REF(BgL_envz00_3555, (int) (3L));
				BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3556,
					BgL_oldzd2errorzd2portz00_3557);
				BUNSPEC;
				{	/* Ieee/port.scm 859 */
					obj_t BgL_auxz00_4280;

					BgL_auxz00_4280 = bgl_close_output_port(BgL_portz00_3558);
					return BGL_UNSAFE_CELL_SET(BgL_resz00_3559, BgL_auxz00_4280);
				}
			}
		}

	}



/* with-error-to-file */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_41, obj_t BgL_thunkz00_42)
	{
		{	/* Ieee/port.scm 869 */
			{	/* Ieee/port.scm 870 */
				obj_t BgL_portz00_1591;

				{	/* Ieee/port.scm 483 */

					BgL_portz00_1591 =
						bgl_open_output_file(BgL_stringz00_41,
						BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
						(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE,
							(int) (default_io_bufsiz)));
				}
				if (OUTPUT_PORTP(BgL_portz00_1591))
					{	/* Ieee/port.scm 872 */
						obj_t BgL_denvz00_1593;

						BgL_denvz00_1593 = BGL_CURRENT_DYNAMIC_ENV();
						{	/* Ieee/port.scm 872 */
							obj_t BgL_oldzd2outputzd2portz00_1594;

							BgL_oldzd2outputzd2portz00_1594 =
								BGL_ENV_CURRENT_ERROR_PORT(BgL_denvz00_1593);
							{	/* Ieee/port.scm 873 */

								{	/* Ieee/port.scm 874 */
									obj_t BgL_exitd1099z00_1595;

									BgL_exitd1099z00_1595 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 879 */
										obj_t BgL_zc3z04anonymousza31464ze3z87_3563;

										BgL_zc3z04anonymousza31464ze3z87_3563 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31464ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (3L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31464ze3z87_3563,
											(int) (0L), BgL_denvz00_1593);
										PROCEDURE_SET(BgL_zc3z04anonymousza31464ze3z87_3563,
											(int) (1L), BgL_oldzd2outputzd2portz00_1594);
										PROCEDURE_SET(BgL_zc3z04anonymousza31464ze3z87_3563,
											(int) (2L), BgL_portz00_1591);
										{	/* Ieee/port.scm 874 */
											obj_t BgL_arg2038z00_2652;

											{	/* Ieee/port.scm 874 */
												obj_t BgL_arg2039z00_2653;

												BgL_arg2039z00_2653 =
													BGL_EXITD_PROTECT(BgL_exitd1099z00_1595);
												BgL_arg2038z00_2652 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31464ze3z87_3563,
													BgL_arg2039z00_2653);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1099z00_1595,
												BgL_arg2038z00_2652);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 876 */
											obj_t BgL_tmp1101z00_1597;

											BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1593,
												BgL_portz00_1591);
											BUNSPEC;
											BgL_tmp1101z00_1597 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_42);
											{	/* Ieee/port.scm 874 */
												bool_t BgL_test3111z00_5231;

												{	/* Ieee/port.scm 874 */
													obj_t BgL_arg2037z00_2655;

													BgL_arg2037z00_2655 =
														BGL_EXITD_PROTECT(BgL_exitd1099z00_1595);
													BgL_test3111z00_5231 = PAIRP(BgL_arg2037z00_2655);
												}
												if (BgL_test3111z00_5231)
													{	/* Ieee/port.scm 874 */
														obj_t BgL_arg2034z00_2656;

														{	/* Ieee/port.scm 874 */
															obj_t BgL_arg2035z00_2657;

															BgL_arg2035z00_2657 =
																BGL_EXITD_PROTECT(BgL_exitd1099z00_1595);
															BgL_arg2034z00_2656 =
																CDR(((obj_t) BgL_arg2035z00_2657));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1099z00_1595,
															BgL_arg2034z00_2656);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 874 */
														BFALSE;
													}
											}
											BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1593,
												BgL_oldzd2outputzd2portz00_1594);
											BUNSPEC;
											bgl_close_output_port(BgL_portz00_1591);
											return BgL_tmp1101z00_1597;
										}
									}
								}
							}
						}
					}
				else
					{	/* Ieee/port.scm 871 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_symbol2571z00zz__r4_ports_6_10_1z00,
							BGl_string2537z00zz__r4_ports_6_10_1z00, BgL_stringz00_41);
					}
			}
		}

	}



/* &with-error-to-file */
	obj_t BGl_z62withzd2errorzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3564, obj_t BgL_stringz00_3565, obj_t BgL_thunkz00_3566)
	{
		{	/* Ieee/port.scm 869 */
			{	/* Ieee/port.scm 870 */
				obj_t BgL_auxz00_5248;
				obj_t BgL_auxz00_5241;

				if (PROCEDUREP(BgL_thunkz00_3566))
					{	/* Ieee/port.scm 870 */
						BgL_auxz00_5248 = BgL_thunkz00_3566;
					}
				else
					{
						obj_t BgL_auxz00_5251;

						BgL_auxz00_5251 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(38543L),
							BGl_string2573z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3566);
						FAILURE(BgL_auxz00_5251, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_stringz00_3565))
					{	/* Ieee/port.scm 870 */
						BgL_auxz00_5241 = BgL_stringz00_3565;
					}
				else
					{
						obj_t BgL_auxz00_5244;

						BgL_auxz00_5244 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(38543L),
							BGl_string2573z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3565);
						FAILURE(BgL_auxz00_5244, BFALSE, BFALSE);
					}
				return
					BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5241,
					BgL_auxz00_5248);
			}
		}

	}



/* &<@anonymous:1464> */
	obj_t BGl_z62zc3z04anonymousza31464ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3567)
	{
		{	/* Ieee/port.scm 874 */
			{	/* Ieee/port.scm 879 */
				obj_t BgL_denvz00_3568;
				obj_t BgL_oldzd2outputzd2portz00_3569;
				obj_t BgL_portz00_3570;

				BgL_denvz00_3568 = ((obj_t) PROCEDURE_REF(BgL_envz00_3567, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3569 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3567, (int) (1L)));
				BgL_portz00_3570 = PROCEDURE_REF(BgL_envz00_3567, (int) (2L));
				BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3568,
					BgL_oldzd2outputzd2portz00_3569);
				BUNSPEC;
				return bgl_close_output_port(((obj_t) BgL_portz00_3570));
			}
		}

	}



/* with-error-to-port */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_43,
		obj_t BgL_thunkz00_44)
	{
		{	/* Ieee/port.scm 889 */
			{	/* Ieee/port.scm 890 */
				obj_t BgL_denvz00_1602;

				BgL_denvz00_1602 = BGL_CURRENT_DYNAMIC_ENV();
				{	/* Ieee/port.scm 890 */
					obj_t BgL_oldzd2outputzd2portz00_1603;

					BgL_oldzd2outputzd2portz00_1603 =
						BGL_ENV_CURRENT_ERROR_PORT(BgL_denvz00_1602);
					{	/* Ieee/port.scm 891 */

						{	/* Ieee/port.scm 892 */
							obj_t BgL_exitd1103z00_1604;

							BgL_exitd1103z00_1604 = BGL_EXITD_TOP_AS_OBJ();
							{
								obj_t BgL_zc3z04anonymousza31465ze3z87_3571;

								BgL_zc3z04anonymousza31465ze3z87_3571 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31465ze3ze5zz__r4_ports_6_10_1z00,
									(int) (0L), (int) (2L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31465ze3z87_3571, (int) (0L),
									BgL_denvz00_1602);
								PROCEDURE_SET(BgL_zc3z04anonymousza31465ze3z87_3571, (int) (1L),
									BgL_oldzd2outputzd2portz00_1603);
								{	/* Ieee/port.scm 892 */
									obj_t BgL_arg2038z00_2660;

									{	/* Ieee/port.scm 892 */
										obj_t BgL_arg2039z00_2661;

										BgL_arg2039z00_2661 =
											BGL_EXITD_PROTECT(BgL_exitd1103z00_1604);
										BgL_arg2038z00_2660 =
											MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31465ze3z87_3571,
											BgL_arg2039z00_2661);
									}
									BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_1604,
										BgL_arg2038z00_2660);
									BUNSPEC;
								}
								{	/* Ieee/port.scm 894 */
									obj_t BgL_tmp1105z00_1606;

									BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1602,
										BgL_portz00_43);
									BUNSPEC;
									BgL_tmp1105z00_1606 = BGL_PROCEDURE_CALL0(BgL_thunkz00_44);
									{	/* Ieee/port.scm 892 */
										bool_t BgL_test3114z00_5284;

										{	/* Ieee/port.scm 892 */
											obj_t BgL_arg2037z00_2663;

											BgL_arg2037z00_2663 =
												BGL_EXITD_PROTECT(BgL_exitd1103z00_1604);
											BgL_test3114z00_5284 = PAIRP(BgL_arg2037z00_2663);
										}
										if (BgL_test3114z00_5284)
											{	/* Ieee/port.scm 892 */
												obj_t BgL_arg2034z00_2664;

												{	/* Ieee/port.scm 892 */
													obj_t BgL_arg2035z00_2665;

													BgL_arg2035z00_2665 =
														BGL_EXITD_PROTECT(BgL_exitd1103z00_1604);
													BgL_arg2034z00_2664 =
														CDR(((obj_t) BgL_arg2035z00_2665));
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_1604,
													BgL_arg2034z00_2664);
												BUNSPEC;
											}
										else
											{	/* Ieee/port.scm 892 */
												BFALSE;
											}
									}
									BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1602,
										BgL_oldzd2outputzd2portz00_1603);
									BUNSPEC;
									return BgL_tmp1105z00_1606;
								}
							}
						}
					}
				}
			}
		}

	}



/* &with-error-to-port */
	obj_t BGl_z62withzd2errorzd2tozd2portzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3572, obj_t BgL_portz00_3573, obj_t BgL_thunkz00_3574)
	{
		{	/* Ieee/port.scm 889 */
			{	/* Ieee/port.scm 890 */
				obj_t BgL_auxz00_5299;
				obj_t BgL_auxz00_5292;

				if (PROCEDUREP(BgL_thunkz00_3574))
					{	/* Ieee/port.scm 890 */
						BgL_auxz00_5299 = BgL_thunkz00_3574;
					}
				else
					{
						obj_t BgL_auxz00_5302;

						BgL_auxz00_5302 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(39266L),
							BGl_string2574z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3574);
						FAILURE(BgL_auxz00_5302, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3573))
					{	/* Ieee/port.scm 890 */
						BgL_auxz00_5292 = BgL_portz00_3573;
					}
				else
					{
						obj_t BgL_auxz00_5295;

						BgL_auxz00_5295 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(39266L),
							BGl_string2574z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3573);
						FAILURE(BgL_auxz00_5295, BFALSE, BFALSE);
					}
				return
					BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5292,
					BgL_auxz00_5299);
			}
		}

	}



/* &<@anonymous:1465> */
	obj_t BGl_z62zc3z04anonymousza31465ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3575)
	{
		{	/* Ieee/port.scm 892 */
			{
				obj_t BgL_denvz00_3576;
				obj_t BgL_oldzd2outputzd2portz00_3577;

				BgL_denvz00_3576 = ((obj_t) PROCEDURE_REF(BgL_envz00_3575, (int) (0L)));
				BgL_oldzd2outputzd2portz00_3577 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3575, (int) (1L)));
				BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3576,
					BgL_oldzd2outputzd2portz00_3577);
				return BUNSPEC;
			}
		}

	}



/* with-error-to-procedure */
	BGL_EXPORTED_DEF obj_t
		BGl_withzd2errorzd2tozd2procedurezd2zz__r4_ports_6_10_1z00(obj_t
		BgL_procz00_45, obj_t BgL_thunkz00_46)
	{
		{	/* Ieee/port.scm 901 */
			{	/* Ieee/port.scm 902 */
				obj_t BgL_portz00_1609;

				{	/* Ieee/port.scm 486 */

					BgL_portz00_1609 =
						BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00
						(BgL_procz00_45, BGl_proc2575z00zz__r4_ports_6_10_1z00, BTRUE,
						BGl_proc2576z00zz__r4_ports_6_10_1z00);
				}
				{	/* Ieee/port.scm 902 */
					obj_t BgL_denvz00_1610;

					BgL_denvz00_1610 = BGL_CURRENT_DYNAMIC_ENV();
					{	/* Ieee/port.scm 903 */
						obj_t BgL_oldzd2errorzd2portz00_1611;

						BgL_oldzd2errorzd2portz00_1611 =
							BGL_ENV_CURRENT_ERROR_PORT(BgL_denvz00_1610);
						{	/* Ieee/port.scm 904 */
							obj_t BgL_resz00_3592;

							BgL_resz00_3592 = BGL_MAKE_UNSAFE_CELL(BUNSPEC);
							{	/* Ieee/port.scm 905 */

								{	/* Ieee/port.scm 906 */
									obj_t BgL_exitd1107z00_1613;

									BgL_exitd1107z00_1613 = BGL_EXITD_TOP_AS_OBJ();
									{	/* Ieee/port.scm 911 */
										obj_t BgL_zc3z04anonymousza31466ze3z87_3578;

										BgL_zc3z04anonymousza31466ze3z87_3578 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00,
											(int) (0L), (int) (4L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3578,
											(int) (0L), BgL_denvz00_1610);
										PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3578,
											(int) (1L), BgL_oldzd2errorzd2portz00_1611);
										PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3578,
											(int) (2L), BgL_portz00_1609);
										PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3578,
											(int) (3L), ((obj_t) BgL_resz00_3592));
										{	/* Ieee/port.scm 906 */
											obj_t BgL_arg2038z00_2668;

											{	/* Ieee/port.scm 906 */
												obj_t BgL_arg2039z00_2669;

												BgL_arg2039z00_2669 =
													BGL_EXITD_PROTECT(BgL_exitd1107z00_1613);
												BgL_arg2038z00_2668 =
													MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31466ze3z87_3578,
													BgL_arg2039z00_2669);
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1107z00_1613,
												BgL_arg2038z00_2668);
											BUNSPEC;
										}
										{	/* Ieee/port.scm 908 */
											obj_t BgL_tmp1109z00_1615;

											BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1610,
												BgL_portz00_1609);
											BUNSPEC;
											BgL_tmp1109z00_1615 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_46);
											{	/* Ieee/port.scm 906 */
												bool_t BgL_test3117z00_5337;

												{	/* Ieee/port.scm 906 */
													obj_t BgL_arg2037z00_2671;

													BgL_arg2037z00_2671 =
														BGL_EXITD_PROTECT(BgL_exitd1107z00_1613);
													BgL_test3117z00_5337 = PAIRP(BgL_arg2037z00_2671);
												}
												if (BgL_test3117z00_5337)
													{	/* Ieee/port.scm 906 */
														obj_t BgL_arg2034z00_2672;

														{	/* Ieee/port.scm 906 */
															obj_t BgL_arg2035z00_2673;

															BgL_arg2035z00_2673 =
																BGL_EXITD_PROTECT(BgL_exitd1107z00_1613);
															BgL_arg2034z00_2672 =
																CDR(((obj_t) BgL_arg2035z00_2673));
														}
														BGL_EXITD_PROTECT_SET(BgL_exitd1107z00_1613,
															BgL_arg2034z00_2672);
														BUNSPEC;
													}
												else
													{	/* Ieee/port.scm 906 */
														BFALSE;
													}
											}
											BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00
												(BgL_zc3z04anonymousza31466ze3z87_3578);
											BgL_tmp1109z00_1615;
										}
									}
								}
								return BGL_UNSAFE_CELL_REF(BgL_resz00_3592);
							}
						}
					}
				}
			}
		}

	}



/* &with-error-to-procedure */
	obj_t BGl_z62withzd2errorzd2tozd2procedurezb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3581, obj_t BgL_procz00_3582, obj_t BgL_thunkz00_3583)
	{
		{	/* Ieee/port.scm 901 */
			{	/* Ieee/port.scm 902 */
				obj_t BgL_auxz00_5352;
				obj_t BgL_auxz00_5345;

				if (PROCEDUREP(BgL_thunkz00_3583))
					{	/* Ieee/port.scm 902 */
						BgL_auxz00_5352 = BgL_thunkz00_3583;
					}
				else
					{
						obj_t BgL_auxz00_5355;

						BgL_auxz00_5355 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(39766L),
							BGl_string2577z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3583);
						FAILURE(BgL_auxz00_5355, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_procz00_3582))
					{	/* Ieee/port.scm 902 */
						BgL_auxz00_5345 = BgL_procz00_3582;
					}
				else
					{
						obj_t BgL_auxz00_5348;

						BgL_auxz00_5348 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(39766L),
							BGl_string2577z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3582);
						FAILURE(BgL_auxz00_5348, BFALSE, BFALSE);
					}
				return
					BGl_withzd2errorzd2tozd2procedurezd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_5345, BgL_auxz00_5352);
			}
		}

	}



/* &<@anonymous:1466> */
	obj_t BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3584)
	{
		{	/* Ieee/port.scm 906 */
			{	/* Ieee/port.scm 911 */
				obj_t BgL_denvz00_3585;
				obj_t BgL_oldzd2errorzd2portz00_3586;
				obj_t BgL_portz00_3587;
				obj_t BgL_resz00_3588;

				BgL_denvz00_3585 = ((obj_t) PROCEDURE_REF(BgL_envz00_3584, (int) (0L)));
				BgL_oldzd2errorzd2portz00_3586 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3584, (int) (1L)));
				BgL_portz00_3587 = PROCEDURE_REF(BgL_envz00_3584, (int) (2L));
				BgL_resz00_3588 = PROCEDURE_REF(BgL_envz00_3584, (int) (3L));
				BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3585,
					BgL_oldzd2errorzd2portz00_3586);
				BUNSPEC;
				{	/* Ieee/port.scm 912 */
					obj_t BgL_auxz00_4281;

					BgL_auxz00_4281 = bgl_close_output_port(((obj_t) BgL_portz00_3587));
					return BGL_UNSAFE_CELL_SET(BgL_resz00_3588, BgL_auxz00_4281);
				}
			}
		}

	}



/* &close2073 */
	obj_t BGl_z62close2073z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3590)
	{
		{	/* Ieee/port.scm 486 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &flush2074 */
	obj_t BGl_z62flush2074z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3591)
	{
		{	/* Ieee/port.scm 486 */
			return BBOOL(((bool_t) 0));
		}

	}



/* input-port-protocol */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2protocolz00zz__r4_ports_6_10_1z00(obj_t
		BgL_prototcolz00_47)
	{
		{	/* Ieee/port.scm 946 */
			{	/* Ieee/port.scm 947 */
				obj_t BgL_cellz00_2675;

				{	/* Ieee/port.scm 947 */
					obj_t BgL_top3121z00_5376;

					BgL_top3121z00_5376 = BGL_EXITD_TOP_AS_OBJ();
					BGL_MUTEX_LOCK
						(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00);
					BGL_EXITD_PUSH_PROTECT(BgL_top3121z00_5376,
						BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00);
					BUNSPEC;
					{	/* Ieee/port.scm 947 */
						obj_t BgL_tmp3120z00_5375;

						BgL_tmp3120z00_5375 =
							BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_prototcolz00_47,
							BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00);
						BGL_EXITD_POP_PROTECT(BgL_top3121z00_5376);
						BUNSPEC;
						BGL_MUTEX_UNLOCK
							(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00);
						BgL_cellz00_2675 = BgL_tmp3120z00_5375;
					}
				}
				if (PAIRP(BgL_cellz00_2675))
					{	/* Ieee/port.scm 949 */
						return CDR(BgL_cellz00_2675);
					}
				else
					{	/* Ieee/port.scm 949 */
						return BFALSE;
					}
			}
		}

	}



/* &input-port-protocol */
	obj_t BGl_z62inputzd2portzd2protocolz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3594, obj_t BgL_prototcolz00_3595)
	{
		{	/* Ieee/port.scm 946 */
			return
				BGl_inputzd2portzd2protocolz00zz__r4_ports_6_10_1z00
				(BgL_prototcolz00_3595);
		}

	}



/* input-port-protocol-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2protocolzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_protocolz00_48, obj_t BgL_openz00_49)
	{
		{	/* Ieee/port.scm 956 */
			{	/* Ieee/port.scm 957 */
				obj_t BgL_top3124z00_5388;

				BgL_top3124z00_5388 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK
					(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top3124z00_5388,
					BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00);
				BUNSPEC;
				{	/* Ieee/port.scm 957 */
					obj_t BgL_tmp3123z00_5387;

					{	/* Ieee/port.scm 958 */
						bool_t BgL_test3125z00_5392;

						if (PROCEDUREP(BgL_openz00_49))
							{	/* Ieee/port.scm 958 */
								BgL_test3125z00_5392 =
									PROCEDURE_CORRECT_ARITYP(BgL_openz00_49, (int) (3L));
							}
						else
							{	/* Ieee/port.scm 958 */
								BgL_test3125z00_5392 = ((bool_t) 0);
							}
						if (BgL_test3125z00_5392)
							{	/* Ieee/port.scm 958 */
								BFALSE;
							}
						else
							{	/* Ieee/port.scm 958 */
								BGl_errorz00zz__errorz00
									(BGl_string2578z00zz__r4_ports_6_10_1z00,
									BGl_string2579z00zz__r4_ports_6_10_1z00, BgL_protocolz00_48);
							}
					}
					{	/* Ieee/port.scm 962 */
						obj_t BgL_cz00_1632;

						BgL_cz00_1632 =
							BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_protocolz00_48,
							BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00);
						if (PAIRP(BgL_cz00_1632))
							{	/* Ieee/port.scm 963 */
								BgL_tmp3123z00_5387 = SET_CDR(BgL_cz00_1632, BgL_openz00_49);
							}
						else
							{	/* Ieee/port.scm 966 */
								obj_t BgL_arg1474z00_1634;

								BgL_arg1474z00_1634 =
									MAKE_YOUNG_PAIR(BgL_protocolz00_48, BgL_openz00_49);
								BgL_tmp3123z00_5387 =
									(BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00 =
									MAKE_YOUNG_PAIR(BgL_arg1474z00_1634,
										BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00),
									BUNSPEC);
							}
					}
					BGL_EXITD_POP_PROTECT(BgL_top3124z00_5388);
					BUNSPEC;
					BGL_MUTEX_UNLOCK
						(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00);
					BgL_tmp3123z00_5387;
				}
			}
			return BgL_openz00_49;
		}

	}



/* &input-port-protocol-set! */
	obj_t BGl_z62inputzd2portzd2protocolzd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3596, obj_t BgL_protocolz00_3597, obj_t BgL_openz00_3598)
	{
		{	/* Ieee/port.scm 956 */
			return
				BGl_inputzd2portzd2protocolzd2setz12zc0zz__r4_ports_6_10_1z00
				(BgL_protocolz00_3597, BgL_openz00_3598);
		}

	}



/* get-port-buffer */
	BGL_EXPORTED_DEF obj_t BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(obj_t
		BgL_whoz00_50, obj_t BgL_bufinfoz00_51, int BgL_defsiza7za7_52)
	{
		{	/* Ieee/port.scm 972 */
			if ((BgL_bufinfoz00_51 == BTRUE))
				{	/* Ieee/port.scm 974 */
					return make_string_sans_fill((long) (BgL_defsiza7za7_52));
				}
			else
				{	/* Ieee/port.scm 974 */
					if ((BgL_bufinfoz00_51 == BFALSE))
						{	/* Ieee/port.scm 976 */
							return make_string_sans_fill(2L);
						}
					else
						{	/* Ieee/port.scm 976 */
							if (STRINGP(BgL_bufinfoz00_51))
								{	/* Ieee/port.scm 978 */
									return BgL_bufinfoz00_51;
								}
							else
								{	/* Ieee/port.scm 978 */
									if (INTEGERP(BgL_bufinfoz00_51))
										{	/* Ieee/port.scm 980 */
											if (((long) CINT(BgL_bufinfoz00_51) >= 2L))
												{	/* Ieee/port.scm 981 */
													return
														make_string_sans_fill(
														(long) CINT(BgL_bufinfoz00_51));
												}
											else
												{	/* Ieee/port.scm 981 */
													return make_string_sans_fill(2L);
												}
										}
									else
										{	/* Ieee/port.scm 980 */
											return
												BGl_errorz00zz__errorz00(BgL_whoz00_50,
												BGl_string2580z00zz__r4_ports_6_10_1z00,
												BgL_bufinfoz00_51);
										}
								}
						}
				}
		}

	}



/* &get-port-buffer */
	obj_t BGl_z62getzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3599, obj_t BgL_whoz00_3600, obj_t BgL_bufinfoz00_3601,
		obj_t BgL_defsiza7za7_3602)
	{
		{	/* Ieee/port.scm 972 */
			{	/* Ieee/port.scm 974 */
				int BgL_auxz00_5425;

				{	/* Ieee/port.scm 974 */
					obj_t BgL_tmpz00_5426;

					if (INTEGERP(BgL_defsiza7za7_3602))
						{	/* Ieee/port.scm 974 */
							BgL_tmpz00_5426 = BgL_defsiza7za7_3602;
						}
					else
						{
							obj_t BgL_auxz00_5429;

							BgL_auxz00_5429 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(42843L),
								BGl_string2581z00zz__r4_ports_6_10_1z00,
								BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_defsiza7za7_3602);
							FAILURE(BgL_auxz00_5429, BFALSE, BFALSE);
						}
					BgL_auxz00_5425 = CINT(BgL_tmpz00_5426);
				}
				return
					BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BgL_whoz00_3600,
					BgL_bufinfoz00_3601, BgL_auxz00_5425);
			}
		}

	}



/* &%open-input-file */
	obj_t BGl_z62z52openzd2inputzd2filez30zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3388, obj_t BgL_stringz00_3389, obj_t BgL_bufz00_3390,
		obj_t BgL_tmtz00_3391)
	{
		{	/* Ieee/port.scm 990 */
			return bgl_open_input_file(BgL_stringz00_3389, BgL_bufz00_3390);
		}

	}



/* &%open-input-descriptor */
	obj_t BGl_z62z52openzd2inputzd2descriptorz30zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3420, obj_t BgL_stringz00_3421, obj_t BgL_bufz00_3422,
		obj_t BgL_tmtz00_3423)
	{
		{	/* Ieee/port.scm 996 */
			{	/* Ieee/port.scm 997 */
				long BgL_fdz00_4282;

				{	/* Ieee/port.scm 997 */
					obj_t BgL_arg1479z00_4283;

					{	/* Ieee/port.scm 997 */
						long BgL_endz00_4284;

						BgL_endz00_4284 = STRING_LENGTH(((obj_t) BgL_stringz00_3421));
						{	/* Ieee/port.scm 997 */

							BgL_arg1479z00_4283 =
								BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_3421, 3L,
								BgL_endz00_4284);
					}}
					{	/* Ieee/port.scm 997 */
						char *BgL_tmpz00_5439;

						BgL_tmpz00_5439 = BSTRING_TO_STRING(BgL_arg1479z00_4283);
						BgL_fdz00_4282 = BGL_STRTOL(BgL_tmpz00_5439, 0L, 10L);
				}}
				return
					bgl_open_input_descriptor((int) (BgL_fdz00_4282), BgL_bufz00_3422);
		}}

	}



/* &%open-input-pipe */
	obj_t BGl_z62z52openzd2inputzd2pipez30zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3392, obj_t BgL_stringz00_3393, obj_t BgL_bufinfoz00_3394,
		obj_t BgL_tmtz00_3395)
	{
		{	/* Ieee/port.scm 1003 */
			return
				bgl_open_input_pipe(BgL_stringz00_3393,
				BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
				(BGl_string2583z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_3394,
					(int) (1024L)));
		}

	}



/* &%open-input-resource */
	obj_t BGl_z62z52openzd2inputzd2resourcez30zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3412, obj_t BgL_filez00_3413, obj_t BgL_bufinfoz00_3414,
		obj_t BgL_tmtz00_3415)
	{
		{	/* Ieee/port.scm 1010 */
			{	/* Ieee/port.scm 1011 */
				obj_t BgL_bufz00_4285;

				{	/* Ieee/port.scm 1011 */
					obj_t BgL_res2040z00_4286;

					{	/* Ieee/port.scm 1011 */
						int BgL_defsiza7za7_4287;

						BgL_defsiza7za7_4287 = (int) (default_io_bufsiz);
						if ((BgL_bufinfoz00_3414 == BTRUE))
							{	/* Ieee/port.scm 974 */
								BgL_res2040z00_4286 =
									make_string_sans_fill((long) (BgL_defsiza7za7_4287));
							}
						else
							{	/* Ieee/port.scm 974 */
								if ((BgL_bufinfoz00_3414 == BFALSE))
									{	/* Ieee/port.scm 976 */
										BgL_res2040z00_4286 = make_string_sans_fill(2L);
									}
								else
									{	/* Ieee/port.scm 976 */
										if (STRINGP(BgL_bufinfoz00_3414))
											{	/* Ieee/port.scm 978 */
												BgL_res2040z00_4286 = BgL_bufinfoz00_3414;
											}
										else
											{	/* Ieee/port.scm 978 */
												if (INTEGERP(BgL_bufinfoz00_3414))
													{	/* Ieee/port.scm 980 */
														if (((long) CINT(BgL_bufinfoz00_3414) >= 2L))
															{	/* Ieee/port.scm 981 */
																BgL_res2040z00_4286 =
																	make_string_sans_fill(
																	(long) CINT(BgL_bufinfoz00_3414));
															}
														else
															{	/* Ieee/port.scm 981 */
																BgL_res2040z00_4286 = make_string_sans_fill(2L);
															}
													}
												else
													{	/* Ieee/port.scm 980 */
														BgL_res2040z00_4286 =
															BGl_errorz00zz__errorz00
															(BGl_string2584z00zz__r4_ports_6_10_1z00,
															BGl_string2580z00zz__r4_ports_6_10_1z00,
															BgL_bufinfoz00_3414);
													}
											}
									}
							}
					}
					BgL_bufz00_4285 = BgL_res2040z00_4286;
				}
				return bgl_open_input_resource(BgL_filez00_3413, BgL_bufz00_4285);
			}
		}

	}



/* &%open-input-http-socket */
	obj_t BGl_z62z52openzd2inputzd2httpzd2socketze2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3396, obj_t BgL_stringz00_3397, obj_t BgL_bufinfoz00_3398,
		obj_t BgL_timeoutz00_3399)
	{
		{	/* Ieee/port.scm 1017 */
			{	/* Ieee/port.scm 1031 */
				obj_t BgL_protocolz00_4289;

				BgL_protocolz00_4289 =
					BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(BgL_stringz00_3397,
					BGl_string2586z00zz__r4_ports_6_10_1z00);
				{	/* Ieee/port.scm 1032 */
					obj_t BgL_loginz00_4290;
					obj_t BgL_hostz00_4291;
					obj_t BgL_portz00_4292;
					obj_t BgL_abspathz00_4293;

					{	/* Ieee/port.scm 1033 */
						obj_t BgL_tmpz00_4294;

						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5468;

							BgL_tmpz00_5468 = (int) (1L);
							BgL_tmpz00_4294 = BGL_MVALUES_VAL(BgL_tmpz00_5468);
						}
						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5471;

							BgL_tmpz00_5471 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5471, BUNSPEC);
						}
						BgL_loginz00_4290 = BgL_tmpz00_4294;
					}
					{	/* Ieee/port.scm 1033 */
						obj_t BgL_tmpz00_4295;

						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5474;

							BgL_tmpz00_5474 = (int) (2L);
							BgL_tmpz00_4295 = BGL_MVALUES_VAL(BgL_tmpz00_5474);
						}
						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5477;

							BgL_tmpz00_5477 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5477, BUNSPEC);
						}
						BgL_hostz00_4291 = BgL_tmpz00_4295;
					}
					{	/* Ieee/port.scm 1033 */
						obj_t BgL_tmpz00_4296;

						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5480;

							BgL_tmpz00_5480 = (int) (3L);
							BgL_tmpz00_4296 = BGL_MVALUES_VAL(BgL_tmpz00_5480);
						}
						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5483;

							BgL_tmpz00_5483 = (int) (3L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5483, BUNSPEC);
						}
						BgL_portz00_4292 = BgL_tmpz00_4296;
					}
					{	/* Ieee/port.scm 1033 */
						obj_t BgL_tmpz00_4297;

						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5486;

							BgL_tmpz00_5486 = (int) (4L);
							BgL_tmpz00_4297 = BGL_MVALUES_VAL(BgL_tmpz00_5486);
						}
						{	/* Ieee/port.scm 1033 */
							int BgL_tmpz00_5489;

							BgL_tmpz00_5489 = (int) (4L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5489, BUNSPEC);
						}
						BgL_abspathz00_4293 = BgL_tmpz00_4297;
					}
					return
						BGl_z62loopz62zz__r4_ports_6_10_1z00
						(BGl_proc2585z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_3398,
						BgL_timeoutz00_3399, BgL_portz00_4292, BgL_abspathz00_4293,
						BgL_loginz00_4290, BgL_hostz00_4291, BFALSE,
						BGl_list2587z00zz__r4_ports_6_10_1z00);
				}
			}
		}

	}



/* &loop */
	obj_t BGl_z62loopz62zz__r4_ports_6_10_1z00(obj_t BgL_parserz00_3613,
		obj_t BgL_bufinfoz00_3612, obj_t BgL_timeoutz00_3611,
		obj_t BgL_portz00_3610, obj_t BgL_abspathz00_3609, obj_t BgL_loginz00_3608,
		obj_t BgL_hostz00_3607, obj_t BgL_ipz00_1653, obj_t BgL_headerz00_1654)
	{
		{	/* Ieee/port.scm 1033 */
			{	/* Ieee/port.scm 1035 */
				struct bgl_unsafe_cell BgL_box3139_3813z00;
				obj_t BgL_ipz00_3813;

				BgL_ipz00_3813 =
					BGL_MAKE_UNSAFE_CELL_STACK(BgL_ipz00_1653, BgL_box3139_3813z00);
				{	/* Ieee/port.scm 1035 */
					obj_t BgL_sockz00_1656;

					{	/* Ieee/port.scm 1035 */
						obj_t BgL_methodz00_1713;

						BgL_methodz00_1713 = BGl_symbol2597z00zz__r4_ports_6_10_1z00;
						BgL_sockz00_1656 =
							BGl_httpz00zz__httpz00(BNIL, BFALSE, BFALSE, BUNSPEC, BFALSE,
							BgL_headerz00_1654, BgL_hostz00_3607,
							BGl_string2600z00zz__r4_ports_6_10_1z00, BFALSE,
							BgL_loginz00_3608, BgL_methodz00_1713, BFALSE, BFALSE,
							BgL_abspathz00_3609, BgL_portz00_3610,
							BGl_symbol2599z00zz__r4_ports_6_10_1z00, BFALSE, BFALSE,
							BgL_timeoutz00_3611, BFALSE);
					}
					{	/* Ieee/port.scm 1035 */
						obj_t BgL_opz00_1657;

						{	/* Ieee/port.scm 1041 */
							obj_t BgL_tmpz00_5494;

							BgL_tmpz00_5494 = ((obj_t) BgL_sockz00_1656);
							BgL_opz00_1657 = SOCKET_OUTPUT(BgL_tmpz00_5494);
						}
						{	/* Ieee/port.scm 1041 */

							{	/* Ieee/port.scm 1042 */
								bool_t BgL_test3140z00_5497;

								{	/* Ieee/port.scm 1042 */
									obj_t BgL_objz00_2716;

									BgL_objz00_2716 = BGL_UNSAFE_CELL_REF(BgL_ipz00_3813);
									BgL_test3140z00_5497 = INPUT_PORTP(BgL_objz00_2716);
								}
								if (BgL_test3140z00_5497)
									{	/* Ieee/port.scm 1045 */
										obj_t BgL_arg1483z00_1659;

										{	/* Ieee/port.scm 1045 */
											obj_t BgL_tmpz00_5499;

											BgL_tmpz00_5499 = ((obj_t) BgL_sockz00_1656);
											BgL_arg1483z00_1659 = SOCKET_INPUT(BgL_tmpz00_5499);
										}
										{	/* Ieee/port.scm 1045 */
											obj_t BgL_dstz00_2718;

											BgL_dstz00_2718 = BGL_UNSAFE_CELL_REF(BgL_ipz00_3813);
											bgl_input_port_clone(BgL_dstz00_2718,
												BgL_arg1483z00_1659);
										}
									}
								else
									{	/* Ieee/port.scm 1046 */
										obj_t BgL_auxz00_3814;

										{	/* Ieee/port.scm 1046 */
											obj_t BgL_tmpz00_5503;

											BgL_tmpz00_5503 = ((obj_t) BgL_sockz00_1656);
											BgL_auxz00_3814 = SOCKET_INPUT(BgL_tmpz00_5503);
										}
										BGL_UNSAFE_CELL_SET(BgL_ipz00_3813, BgL_auxz00_3814);
									}
							}
							{	/* Ieee/port.scm 1049 */
								obj_t BgL_zc3z04anonymousza31485ze3z87_3603;

								BgL_zc3z04anonymousza31485ze3z87_3603 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31485ze3ze5zz__r4_ports_6_10_1z00,
									(int) (1L), (int) (2L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31485ze3z87_3603, (int) (0L),
									BgL_opz00_1657);
								PROCEDURE_SET(BgL_zc3z04anonymousza31485ze3z87_3603, (int) (1L),
									BgL_sockz00_1656);
								{	/* Ieee/port.scm 1047 */
									obj_t BgL_portz00_2723;

									BgL_portz00_2723 = BGL_UNSAFE_CELL_REF(BgL_ipz00_3813);
									if (PROCEDURE_CORRECT_ARITYP
										(BgL_zc3z04anonymousza31485ze3z87_3603, (int) (1L)))
										{	/* Ieee/port.scm 1458 */
											PORT_CHOOK_SET(BgL_portz00_2723,
												BgL_zc3z04anonymousza31485ze3z87_3603);
											BUNSPEC;
											BgL_zc3z04anonymousza31485ze3z87_3603;
										}
									else
										{	/* Ieee/port.scm 1458 */
											bgl_system_failure(BGL_IO_PORT_ERROR,
												BGl_string2601z00zz__r4_ports_6_10_1z00,
												BGl_string2602z00zz__r4_ports_6_10_1z00,
												BgL_zc3z04anonymousza31485ze3z87_3603);
										}
								}
							}
							{	/* Ieee/port.scm 1053 */
								obj_t BgL_zc3z04anonymousza31487ze3z87_3604;

								BgL_zc3z04anonymousza31487ze3z87_3604 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31487ze3ze5zz__r4_ports_6_10_1z00,
									(int) (2L), (int) (8L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (0L),
									BgL_hostz00_3607);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (1L),
									BgL_loginz00_3608);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (2L),
									BgL_abspathz00_3609);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (3L),
									BgL_portz00_3610);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (4L),
									BgL_timeoutz00_3611);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (5L),
									BgL_bufinfoz00_3612);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (6L),
									BgL_parserz00_3613);
								PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (7L),
									BgL_sockz00_1656);
								{	/* Ieee/port.scm 1051 */
									obj_t BgL_portz00_2727;

									BgL_portz00_2727 = BGL_UNSAFE_CELL_REF(BgL_ipz00_3813);
									if (PROCEDURE_CORRECT_ARITYP
										(BgL_zc3z04anonymousza31487ze3z87_3604, (int) (2L)))
										{	/* Ieee/port.scm 1475 */
											BGL_INPUT_PORT_USEEK_SET(BgL_portz00_2727,
												BgL_zc3z04anonymousza31487ze3z87_3604);
											BUNSPEC;
											BgL_zc3z04anonymousza31487ze3z87_3604;
										}
									else
										{	/* Ieee/port.scm 1475 */
											bgl_system_failure(BGL_IO_PORT_ERROR,
												BGl_string2603z00zz__r4_ports_6_10_1z00,
												BGl_string2604z00zz__r4_ports_6_10_1z00,
												BgL_zc3z04anonymousza31487ze3z87_3604);
										}
								}
							}
							{	/* Ieee/port.scm 1056 */
								obj_t BgL_env1120z00_1680;

								BgL_env1120z00_1680 = BGL_CURRENT_DYNAMIC_ENV();
								{
									obj_t BgL_ez00_1694;

									{	/* Ieee/port.scm 1056 */
										obj_t BgL_cell1115z00_1681;

										BgL_cell1115z00_1681 = MAKE_STACK_CELL(BUNSPEC);
										{	/* Ieee/port.scm 1056 */
											obj_t BgL_val1119z00_1682;

											BgL_val1119z00_1682 =
												BGl_zc3z04exitza31498ze3ze70z60zz__r4_ports_6_10_1z00
												(BgL_parserz00_3613, BgL_opz00_1657, BgL_ipz00_3813,
												BgL_cell1115z00_1681, BgL_env1120z00_1680);
											if ((BgL_val1119z00_1682 == BgL_cell1115z00_1681))
												{	/* Ieee/port.scm 1056 */
													{	/* Ieee/port.scm 1056 */
														int BgL_tmpz00_5547;

														BgL_tmpz00_5547 = (int) (0L);
														BGL_SIGSETMASK(BgL_tmpz00_5547);
													}
													{	/* Ieee/port.scm 1056 */
														obj_t BgL_arg1497z00_1683;

														BgL_arg1497z00_1683 =
															CELL_REF(((obj_t) BgL_val1119z00_1682));
														BgL_ez00_1694 = BgL_arg1497z00_1683;
														socket_close(((obj_t) BgL_sockz00_1656));
														{	/* Ieee/port.scm 1059 */
															bool_t BgL_test3144z00_5554;

															{	/* Ieee/port.scm 1059 */
																obj_t BgL_classz00_2731;

																BgL_classz00_2731 =
																	BGl_z62httpzd2redirectionzb0zz__httpz00;
																if (BGL_OBJECTP(BgL_ez00_1694))
																	{	/* Ieee/port.scm 1059 */
																		BgL_objectz00_bglt BgL_arg2016z00_2733;

																		BgL_arg2016z00_2733 =
																			(BgL_objectz00_bglt) (BgL_ez00_1694);
																		if (BGL_CONDEXPAND_ISA_ARCH64())
																			{	/* Ieee/port.scm 1059 */
																				long BgL_idxz00_2739;

																				BgL_idxz00_2739 =
																					BGL_OBJECT_INHERITANCE_NUM
																					(BgL_arg2016z00_2733);
																				BgL_test3144z00_5554 =
																					(VECTOR_REF
																					(BGl_za2inheritancesza2z00zz__objectz00,
																						(BgL_idxz00_2739 + 3L)) ==
																					BgL_classz00_2731);
																			}
																		else
																			{	/* Ieee/port.scm 1059 */
																				bool_t BgL_res2041z00_2764;

																				{	/* Ieee/port.scm 1059 */
																					obj_t BgL_oclassz00_2747;

																					{	/* Ieee/port.scm 1059 */
																						obj_t BgL_arg2023z00_2755;
																						long BgL_arg2025z00_2756;

																						BgL_arg2023z00_2755 =
																							(BGl_za2classesza2z00zz__objectz00);
																						{	/* Ieee/port.scm 1059 */
																							long BgL_arg2026z00_2757;

																							BgL_arg2026z00_2757 =
																								BGL_OBJECT_CLASS_NUM
																								(BgL_arg2016z00_2733);
																							BgL_arg2025z00_2756 =
																								(BgL_arg2026z00_2757 -
																								OBJECT_TYPE);
																						}
																						BgL_oclassz00_2747 =
																							VECTOR_REF(BgL_arg2023z00_2755,
																							BgL_arg2025z00_2756);
																					}
																					{	/* Ieee/port.scm 1059 */
																						bool_t BgL__ortest_1211z00_2748;

																						BgL__ortest_1211z00_2748 =
																							(BgL_classz00_2731 ==
																							BgL_oclassz00_2747);
																						if (BgL__ortest_1211z00_2748)
																							{	/* Ieee/port.scm 1059 */
																								BgL_res2041z00_2764 =
																									BgL__ortest_1211z00_2748;
																							}
																						else
																							{	/* Ieee/port.scm 1059 */
																								long BgL_odepthz00_2749;

																								{	/* Ieee/port.scm 1059 */
																									obj_t BgL_arg2012z00_2750;

																									BgL_arg2012z00_2750 =
																										(BgL_oclassz00_2747);
																									BgL_odepthz00_2749 =
																										BGL_CLASS_DEPTH
																										(BgL_arg2012z00_2750);
																								}
																								if ((3L < BgL_odepthz00_2749))
																									{	/* Ieee/port.scm 1059 */
																										obj_t BgL_arg2009z00_2752;

																										{	/* Ieee/port.scm 1059 */
																											obj_t BgL_arg2011z00_2753;

																											BgL_arg2011z00_2753 =
																												(BgL_oclassz00_2747);
																											BgL_arg2009z00_2752 =
																												BGL_CLASS_ANCESTORS_REF
																												(BgL_arg2011z00_2753,
																												3L);
																										}
																										BgL_res2041z00_2764 =
																											(BgL_arg2009z00_2752 ==
																											BgL_classz00_2731);
																									}
																								else
																									{	/* Ieee/port.scm 1059 */
																										BgL_res2041z00_2764 =
																											((bool_t) 0);
																									}
																							}
																					}
																				}
																				BgL_test3144z00_5554 =
																					BgL_res2041z00_2764;
																			}
																	}
																else
																	{	/* Ieee/port.scm 1059 */
																		BgL_test3144z00_5554 = ((bool_t) 0);
																	}
															}
															if (BgL_test3144z00_5554)
																{	/* Ieee/port.scm 1061 */
																	obj_t BgL_arg1502z00_1698;

																	BgL_arg1502z00_1698 =
																		(((BgL_z62httpzd2redirectionzb0_bglt)
																			COBJECT((
																					(BgL_z62httpzd2redirectionzb0_bglt)
																					BgL_ez00_1694)))->BgL_urlz00);
																	{	/* Ieee/port.scm 466 */

																		return
																			BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
																			(BgL_arg1502z00_1698, BgL_bufinfoz00_3612,
																			BINT(5000000L));
																	}
																}
															else
																{	/* Ieee/port.scm 1059 */
																	return BFALSE;
																}
														}
													}
												}
											else
												{	/* Ieee/port.scm 1056 */
													return BgL_val1119z00_1682;
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* <@exit:1498>~0 */
	obj_t BGl_zc3z04exitza31498ze3ze70z60zz__r4_ports_6_10_1z00(obj_t
		BgL_parserz00_3812, obj_t BgL_opz00_3811, obj_t BgL_ipz00_3810,
		obj_t BgL_cell1115z00_3809, obj_t BgL_env1120z00_3808)
	{
		{	/* Ieee/port.scm 1056 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1125z00_1685;

			if (SET_EXIT(BgL_an_exit1125z00_1685))
				{
					return BGL_EXIT_VALUE();
				}
			else
				{
#if (SIGSETJMP_SAVESIGS == 0)
				 // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
				 // bgl_restore_signal_handlers();
#endif

					BgL_an_exit1125z00_1685 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1120z00_3808, BgL_an_exit1125z00_1685, 1L);
					{	/* Ieee/port.scm 1056 */
						obj_t BgL_escape1116z00_1686;

						BgL_escape1116z00_1686 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1120z00_3808);
						{	/* Ieee/port.scm 1056 */
							obj_t BgL_res1128z00_1687;

							{	/* Ieee/port.scm 1056 */
								obj_t BgL_ohs1112z00_1688;

								BgL_ohs1112z00_1688 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1120z00_3808);
								{	/* Ieee/port.scm 1056 */
									obj_t BgL_hds1113z00_1689;

									BgL_hds1113z00_1689 =
										MAKE_STACK_PAIR(BgL_escape1116z00_1686,
										BgL_cell1115z00_3809);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1120z00_3808,
										BgL_hds1113z00_1689);
									BUNSPEC;
									{	/* Ieee/port.scm 1056 */
										obj_t BgL_exitd1122z00_1690;

										BgL_exitd1122z00_1690 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1120z00_3808);
										{	/* Ieee/port.scm 1056 */
											obj_t BgL_tmp1124z00_1691;

											{	/* Ieee/port.scm 1056 */
												obj_t BgL_arg1499z00_1693;

												BgL_arg1499z00_1693 =
													BGL_EXITD_PROTECT(BgL_exitd1122z00_1690);
												BgL_tmp1124z00_1691 =
													MAKE_YOUNG_PAIR(BgL_ohs1112z00_1688,
													BgL_arg1499z00_1693);
											}
											{	/* Ieee/port.scm 1056 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1122z00_1690,
													BgL_tmp1124z00_1691);
												BUNSPEC;
												{	/* Ieee/port.scm 1062 */
													obj_t BgL_tmp1123z00_1692;

													BgL_tmp1123z00_1692 =
														BGl_httpzd2parsezd2responsez00zz__httpz00
														(BGL_UNSAFE_CELL_REF(BgL_ipz00_3810),
														BgL_opz00_3811, BgL_parserz00_3812);
													{	/* Ieee/port.scm 1056 */
														bool_t BgL_test3149z00_5593;

														{	/* Ieee/port.scm 1056 */
															obj_t BgL_arg2037z00_2766;

															BgL_arg2037z00_2766 =
																BGL_EXITD_PROTECT(BgL_exitd1122z00_1690);
															BgL_test3149z00_5593 = PAIRP(BgL_arg2037z00_2766);
														}
														if (BgL_test3149z00_5593)
															{	/* Ieee/port.scm 1056 */
																obj_t BgL_arg2034z00_2767;

																{	/* Ieee/port.scm 1056 */
																	obj_t BgL_arg2035z00_2768;

																	BgL_arg2035z00_2768 =
																		BGL_EXITD_PROTECT(BgL_exitd1122z00_1690);
																	BgL_arg2034z00_2767 =
																		CDR(((obj_t) BgL_arg2035z00_2768));
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1122z00_1690,
																	BgL_arg2034z00_2767);
																BUNSPEC;
															}
														else
															{	/* Ieee/port.scm 1056 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1120z00_3808,
														BgL_ohs1112z00_1688);
													BUNSPEC;
													BgL_res1128z00_1687 = BgL_tmp1123z00_1692;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1120z00_3808);
							return BgL_res1128z00_1687;
						}
					}
				}
		}

	}



/* &parser */
	obj_t BGl_z62parserz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3614,
		obj_t BgL_ipz00_3615, obj_t BgL_statuszd2codezd2_3616,
		obj_t BgL_headerz00_3617, obj_t BgL_clenz00_3618, obj_t BgL_tencz00_3619)
	{
		{	/* Ieee/port.scm 1029 */
			{	/* Ieee/port.scm 1020 */
				bool_t BgL_test3150z00_5602;

				if (((long) CINT(BgL_statuszd2codezd2_3616) >= 200L))
					{	/* Ieee/port.scm 1020 */
						BgL_test3150z00_5602 =
							((long) CINT(BgL_statuszd2codezd2_3616) <= 299L);
					}
				else
					{	/* Ieee/port.scm 1020 */
						BgL_test3150z00_5602 = ((bool_t) 0);
					}
				if (BgL_test3150z00_5602)
					{	/* Ieee/port.scm 1020 */
						if (INPUT_PORTP(BgL_ipz00_3615))
							{	/* Ieee/port.scm 1024 */
								bool_t BgL_test3153z00_5610;

								if (ELONGP(BgL_clenz00_3618))
									{	/* Ieee/port.scm 1024 */
										long BgL_n1z00_4299;

										BgL_n1z00_4299 = BELONG_TO_LONG(BgL_clenz00_3618);
										BgL_test3153z00_5610 = (BgL_n1z00_4299 > (long) (0L));
									}
								else
									{	/* Ieee/port.scm 1024 */
										BgL_test3153z00_5610 = ((bool_t) 0);
									}
								if (BgL_test3153z00_5610)
									{	/* Ieee/port.scm 1024 */
										{	/* Ieee/port.scm 1025 */
											long BgL_arg1509z00_4300;

											{	/* Ieee/port.scm 1025 */
												long BgL_xz00_4301;

												BgL_xz00_4301 = BELONG_TO_LONG(BgL_clenz00_3618);
												BgL_arg1509z00_4300 = (long) (BgL_xz00_4301);
											}
											INPUT_PORT_FILLBARRIER_SET(BgL_ipz00_3615,
												BgL_arg1509z00_4300);
											BUNSPEC;
											BgL_arg1509z00_4300;
										}
										{	/* Ieee/port.scm 1026 */
											long BgL_tmpz00_5619;

											BgL_tmpz00_5619 = BELONG_TO_LONG(BgL_clenz00_3618);
											BGL_INPUT_PORT_LENGTH_SET(BgL_ipz00_3615,
												BgL_tmpz00_5619);
										} BUNSPEC;
										return BgL_ipz00_3615;
									}
								else
									{	/* Ieee/port.scm 1024 */
										return BgL_ipz00_3615;
									}
							}
						else
							{	/* Ieee/port.scm 469 */

								return
									BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
									(BGl_string2605z00zz__r4_ports_6_10_1z00, BINT(0L), BINT(0L));
							}
					}
				else
					{	/* Ieee/port.scm 1020 */
						return BFALSE;
					}
			}
		}

	}



/* &<@anonymous:1487> */
	obj_t BGl_z62zc3z04anonymousza31487ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3620, obj_t BgL_ipz00_3629, obj_t BgL_offsetz00_3630)
	{
		{	/* Ieee/port.scm 1052 */
			{	/* Ieee/port.scm 1053 */
				obj_t BgL_hostz00_3621;
				obj_t BgL_loginz00_3622;
				obj_t BgL_abspathz00_3623;
				obj_t BgL_portz00_3624;
				obj_t BgL_timeoutz00_3625;
				obj_t BgL_bufinfoz00_3626;
				obj_t BgL_parserz00_3627;
				obj_t BgL_sockz00_3628;

				BgL_hostz00_3621 = PROCEDURE_REF(BgL_envz00_3620, (int) (0L));
				BgL_loginz00_3622 = PROCEDURE_REF(BgL_envz00_3620, (int) (1L));
				BgL_abspathz00_3623 = PROCEDURE_REF(BgL_envz00_3620, (int) (2L));
				BgL_portz00_3624 = PROCEDURE_REF(BgL_envz00_3620, (int) (3L));
				BgL_timeoutz00_3625 = PROCEDURE_REF(BgL_envz00_3620, (int) (4L));
				BgL_bufinfoz00_3626 = PROCEDURE_REF(BgL_envz00_3620, (int) (5L));
				BgL_parserz00_3627 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3620, (int) (6L)));
				BgL_sockz00_3628 = PROCEDURE_REF(BgL_envz00_3620, (int) (7L));
				socket_close(((obj_t) BgL_sockz00_3628));
				{	/* Ieee/port.scm 1054 */
					obj_t BgL_rz00_4303;

					{	/* Ieee/port.scm 1054 */
						obj_t BgL_arg1495z00_4304;

						{	/* Ieee/port.scm 1053 */

							BgL_arg1495z00_4304 =
								BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
								(long) CINT(BgL_offsetz00_3630), 10L);
						}
						BgL_rz00_4303 =
							string_append_3(BGl_string2606z00zz__r4_ports_6_10_1z00,
							BgL_arg1495z00_4304, BGl_string2607z00zz__r4_ports_6_10_1z00);
					}
					{	/* Ieee/port.scm 1055 */
						obj_t BgL_arg1488z00_4305;

						{	/* Ieee/port.scm 1055 */
							obj_t BgL_arg1489z00_4306;
							obj_t BgL_arg1490z00_4307;

							{	/* Ieee/port.scm 1055 */
								obj_t BgL_arg1491z00_4308;

								BgL_arg1491z00_4308 = MAKE_YOUNG_PAIR(BgL_rz00_4303, BNIL);
								BgL_arg1489z00_4306 =
									MAKE_YOUNG_PAIR(BGl_keyword2608z00zz__r4_ports_6_10_1z00,
									BgL_arg1491z00_4308);
							}
							{	/* Ieee/port.scm 1055 */
								obj_t BgL_arg1492z00_4309;

								{	/* Ieee/port.scm 1055 */
									obj_t BgL_arg1494z00_4310;

									BgL_arg1494z00_4310 =
										MAKE_YOUNG_PAIR(BGl_string2591z00zz__r4_ports_6_10_1z00,
										BNIL);
									BgL_arg1492z00_4309 =
										MAKE_YOUNG_PAIR(BGl_keyword2589z00zz__r4_ports_6_10_1z00,
										BgL_arg1494z00_4310);
								}
								BgL_arg1490z00_4307 =
									MAKE_YOUNG_PAIR(BgL_arg1492z00_4309, BNIL);
							}
							BgL_arg1488z00_4305 =
								MAKE_YOUNG_PAIR(BgL_arg1489z00_4306, BgL_arg1490z00_4307);
						}
						return
							BGl_z62loopz62zz__r4_ports_6_10_1z00(BgL_parserz00_3627,
							BgL_bufinfoz00_3626, BgL_timeoutz00_3625, BgL_portz00_3624,
							BgL_abspathz00_3623, BgL_loginz00_3622, BgL_hostz00_3621,
							BgL_ipz00_3629, BgL_arg1488z00_4305);
					}
				}
			}
		}

	}



/* &<@anonymous:1485> */
	obj_t BGl_z62zc3z04anonymousza31485ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3631, obj_t BgL_ipz00_3634)
	{
		{	/* Ieee/port.scm 1048 */
			{	/* Ieee/port.scm 1049 */
				obj_t BgL_opz00_3632;
				obj_t BgL_sockz00_3633;

				BgL_opz00_3632 = ((obj_t) PROCEDURE_REF(BgL_envz00_3631, (int) (0L)));
				BgL_sockz00_3633 = PROCEDURE_REF(BgL_envz00_3631, (int) (1L));
				bgl_close_output_port(BgL_opz00_3632);
				return socket_close(((obj_t) BgL_sockz00_3633));
			}
		}

	}



/* _open-input-file */
	obj_t BGl__openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1254z00_72, obj_t BgL_opt1253z00_71)
	{
		{	/* Ieee/port.scm 1084 */
			{	/* Ieee/port.scm 1084 */
				obj_t BgL_g1255z00_1742;

				{
					obj_t BgL_auxz00_5662;

					if (VECTORP(BgL_opt1253z00_71))
						{	/* Ieee/port.scm 1084 */
							BgL_auxz00_5662 = BgL_opt1253z00_71;
						}
					else
						{
							obj_t BgL_auxz00_5665;

							BgL_auxz00_5665 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(47820L),
								BGl_string2610z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1253z00_71);
							FAILURE(BgL_auxz00_5665, BFALSE, BFALSE);
						}
					BgL_g1255z00_1742 = VECTOR_REF(BgL_auxz00_5662, 0L);
				}
				{	/* Ieee/port.scm 1084 */
					long BgL_aux1257z00_1744;

					{
						obj_t BgL_auxz00_5670;

						if (VECTORP(BgL_opt1253z00_71))
							{	/* Ieee/port.scm 1084 */
								BgL_auxz00_5670 = BgL_opt1253z00_71;
							}
						else
							{
								obj_t BgL_auxz00_5673;

								BgL_auxz00_5673 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(47820L),
									BGl_string2610z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1253z00_71);
								FAILURE(BgL_auxz00_5673, BFALSE, BFALSE);
							}
						BgL_aux1257z00_1744 = VECTOR_LENGTH(BgL_auxz00_5670);
					}
					switch (BgL_aux1257z00_1744)
						{
						case 1L:

							{	/* Ieee/port.scm 1084 */

								{	/* Ieee/port.scm 1084 */
									obj_t BgL_auxz00_5678;

									if (STRINGP(BgL_g1255z00_1742))
										{	/* Ieee/port.scm 1084 */
											BgL_auxz00_5678 = BgL_g1255z00_1742;
										}
									else
										{
											obj_t BgL_auxz00_5681;

											BgL_auxz00_5681 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(47820L),
												BGl_string2610z00zz__r4_ports_6_10_1z00,
												BGl_string2540z00zz__r4_ports_6_10_1z00,
												BgL_g1255z00_1742);
											FAILURE(BgL_auxz00_5681, BFALSE, BFALSE);
										}
									return
										BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
										(BgL_auxz00_5678, BTRUE, BINT(5000000L));
								}
							}
							break;
						case 2L:

							{	/* Ieee/port.scm 1084 */
								obj_t BgL_bufinfoz00_1747;

								{
									obj_t BgL_auxz00_5687;

									if (VECTORP(BgL_opt1253z00_71))
										{	/* Ieee/port.scm 1084 */
											BgL_auxz00_5687 = BgL_opt1253z00_71;
										}
									else
										{
											obj_t BgL_auxz00_5690;

											BgL_auxz00_5690 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(47820L),
												BGl_string2610z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1253z00_71);
											FAILURE(BgL_auxz00_5690, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1747 = VECTOR_REF(BgL_auxz00_5687, 1L);
								}
								{	/* Ieee/port.scm 1084 */

									{	/* Ieee/port.scm 1084 */
										obj_t BgL_auxz00_5695;

										if (STRINGP(BgL_g1255z00_1742))
											{	/* Ieee/port.scm 1084 */
												BgL_auxz00_5695 = BgL_g1255z00_1742;
											}
										else
											{
												obj_t BgL_auxz00_5698;

												BgL_auxz00_5698 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(47820L), BGl_string2610z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_g1255z00_1742);
												FAILURE(BgL_auxz00_5698, BFALSE, BFALSE);
											}
										return
											BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
											(BgL_auxz00_5695, BgL_bufinfoz00_1747, BINT(5000000L));
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/port.scm 1084 */
								obj_t BgL_bufinfoz00_1749;

								{
									obj_t BgL_auxz00_5704;

									if (VECTORP(BgL_opt1253z00_71))
										{	/* Ieee/port.scm 1084 */
											BgL_auxz00_5704 = BgL_opt1253z00_71;
										}
									else
										{
											obj_t BgL_auxz00_5707;

											BgL_auxz00_5707 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(47820L),
												BGl_string2610z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1253z00_71);
											FAILURE(BgL_auxz00_5707, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1749 = VECTOR_REF(BgL_auxz00_5704, 1L);
								}
								{	/* Ieee/port.scm 1084 */
									obj_t BgL_timeoutz00_1750;

									{
										obj_t BgL_auxz00_5712;

										if (VECTORP(BgL_opt1253z00_71))
											{	/* Ieee/port.scm 1084 */
												BgL_auxz00_5712 = BgL_opt1253z00_71;
											}
										else
											{
												obj_t BgL_auxz00_5715;

												BgL_auxz00_5715 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(47820L), BGl_string2610z00zz__r4_ports_6_10_1z00,
													BGl_string2611z00zz__r4_ports_6_10_1z00,
													BgL_opt1253z00_71);
												FAILURE(BgL_auxz00_5715, BFALSE, BFALSE);
											}
										BgL_timeoutz00_1750 = VECTOR_REF(BgL_auxz00_5712, 2L);
									}
									{	/* Ieee/port.scm 1084 */

										{	/* Ieee/port.scm 1084 */
											obj_t BgL_auxz00_5720;

											if (STRINGP(BgL_g1255z00_1742))
												{	/* Ieee/port.scm 1084 */
													BgL_auxz00_5720 = BgL_g1255z00_1742;
												}
											else
												{
													obj_t BgL_auxz00_5723;

													BgL_auxz00_5723 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(47820L),
														BGl_string2610z00zz__r4_ports_6_10_1z00,
														BGl_string2540z00zz__r4_ports_6_10_1z00,
														BgL_g1255z00_1742);
													FAILURE(BgL_auxz00_5723, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
												(BgL_auxz00_5720, BgL_bufinfoz00_1749,
												BgL_timeoutz00_1750);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-file */
	BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_68, obj_t BgL_bufinfoz00_69, obj_t BgL_timeoutz00_70)
	{
		{	/* Ieee/port.scm 1084 */
			{	/* Ieee/port.scm 1085 */
				obj_t BgL_bufferz00_1751;

				{	/* Ieee/port.scm 1085 */
					obj_t BgL_res2042z00_2776;

					{	/* Ieee/port.scm 1085 */
						int BgL_defsiza7za7_2771;

						BgL_defsiza7za7_2771 = (int) (default_io_bufsiz);
						if ((BgL_bufinfoz00_69 == BTRUE))
							{	/* Ieee/port.scm 974 */
								BgL_res2042z00_2776 =
									make_string_sans_fill((long) (BgL_defsiza7za7_2771));
							}
						else
							{	/* Ieee/port.scm 974 */
								if ((BgL_bufinfoz00_69 == BFALSE))
									{	/* Ieee/port.scm 976 */
										BgL_res2042z00_2776 = make_string_sans_fill(2L);
									}
								else
									{	/* Ieee/port.scm 976 */
										if (STRINGP(BgL_bufinfoz00_69))
											{	/* Ieee/port.scm 978 */
												BgL_res2042z00_2776 = BgL_bufinfoz00_69;
											}
										else
											{	/* Ieee/port.scm 978 */
												if (INTEGERP(BgL_bufinfoz00_69))
													{	/* Ieee/port.scm 980 */
														if (((long) CINT(BgL_bufinfoz00_69) >= 2L))
															{	/* Ieee/port.scm 981 */
																BgL_res2042z00_2776 =
																	make_string_sans_fill(
																	(long) CINT(BgL_bufinfoz00_69));
															}
														else
															{	/* Ieee/port.scm 981 */
																BgL_res2042z00_2776 = make_string_sans_fill(2L);
															}
													}
												else
													{	/* Ieee/port.scm 980 */
														BgL_res2042z00_2776 =
															BGl_errorz00zz__errorz00
															(BGl_string2584z00zz__r4_ports_6_10_1z00,
															BGl_string2580z00zz__r4_ports_6_10_1z00,
															BgL_bufinfoz00_69);
													}
											}
									}
							}
					}
					BgL_bufferz00_1751 = BgL_res2042z00_2776;
				}
				{
					obj_t BgL_protosz00_1753;

					BgL_protosz00_1753 =
						BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00;
				BgL_zc3z04anonymousza31510ze3z87_1754:
					if (NULLP(BgL_protosz00_1753))
						{	/* Ieee/port.scm 1087 */
							return bgl_open_input_file(BgL_stringz00_68, BgL_bufferz00_1751);
						}
					else
						{	/* Ieee/port.scm 1090 */
							obj_t BgL_cellz00_1756;

							BgL_cellz00_1756 = CAR(((obj_t) BgL_protosz00_1753));
							{	/* Ieee/port.scm 1090 */
								obj_t BgL_identz00_1757;

								BgL_identz00_1757 = CAR(((obj_t) BgL_cellz00_1756));
								{	/* Ieee/port.scm 1091 */
									long BgL_lz00_1758;

									BgL_lz00_1758 = STRING_LENGTH(((obj_t) BgL_identz00_1757));
									{	/* Ieee/port.scm 1092 */
										obj_t BgL_openz00_1759;

										BgL_openz00_1759 = CDR(((obj_t) BgL_cellz00_1756));
										{	/* Ieee/port.scm 1093 */

											if (bigloo_strncmp(BgL_stringz00_68,
													((obj_t) BgL_identz00_1757), BgL_lz00_1758))
												{	/* Ieee/port.scm 1096 */
													obj_t BgL_namez00_1761;

													BgL_namez00_1761 =
														c_substring(BgL_stringz00_68, BgL_lz00_1758,
														STRING_LENGTH(BgL_stringz00_68));
													return
														BGL_PROCEDURE_CALL3(BgL_openz00_1759,
														BgL_namez00_1761, BgL_bufferz00_1751,
														BgL_timeoutz00_70);
												}
											else
												{	/* Ieee/port.scm 1098 */
													obj_t BgL_arg1514z00_1763;

													BgL_arg1514z00_1763 =
														CDR(((obj_t) BgL_protosz00_1753));
													{
														obj_t BgL_protosz00_5772;

														BgL_protosz00_5772 = BgL_arg1514z00_1763;
														BgL_protosz00_1753 = BgL_protosz00_5772;
														goto BgL_zc3z04anonymousza31510ze3z87_1754;
													}
												}
										}
									}
								}
							}
						}
				}
			}
		}

	}



/* _open-input-descriptor */
	obj_t BGl__openzd2inputzd2descriptorz00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1259z00_76, obj_t BgL_opt1258z00_75)
	{
		{	/* Ieee/port.scm 1103 */
			{	/* Ieee/port.scm 1103 */
				obj_t BgL_g1260z00_1765;

				{
					obj_t BgL_auxz00_5773;

					if (VECTORP(BgL_opt1258z00_75))
						{	/* Ieee/port.scm 1103 */
							BgL_auxz00_5773 = BgL_opt1258z00_75;
						}
					else
						{
							obj_t BgL_auxz00_5776;

							BgL_auxz00_5776 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(48665L),
								BGl_string2612z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1258z00_75);
							FAILURE(BgL_auxz00_5776, BFALSE, BFALSE);
						}
					BgL_g1260z00_1765 = VECTOR_REF(BgL_auxz00_5773, 0L);
				}
				{	/* Ieee/port.scm 1103 */
					long BgL_aux1262z00_1767;

					{
						obj_t BgL_auxz00_5781;

						if (VECTORP(BgL_opt1258z00_75))
							{	/* Ieee/port.scm 1103 */
								BgL_auxz00_5781 = BgL_opt1258z00_75;
							}
						else
							{
								obj_t BgL_auxz00_5784;

								BgL_auxz00_5784 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(48665L),
									BGl_string2612z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1258z00_75);
								FAILURE(BgL_auxz00_5784, BFALSE, BFALSE);
							}
						BgL_aux1262z00_1767 = VECTOR_LENGTH(BgL_auxz00_5781);
					}
					switch (BgL_aux1262z00_1767)
						{
						case 1L:

							{	/* Ieee/port.scm 1103 */

								{	/* Ieee/port.scm 1103 */
									int BgL_fdz00_2789;

									{	/* Ieee/port.scm 1103 */
										obj_t BgL_tmpz00_5789;

										if (INTEGERP(BgL_g1260z00_1765))
											{	/* Ieee/port.scm 1103 */
												BgL_tmpz00_5789 = BgL_g1260z00_1765;
											}
										else
											{
												obj_t BgL_auxz00_5792;

												BgL_auxz00_5792 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(48665L), BGl_string2612z00zz__r4_ports_6_10_1z00,
													BGl_string2582z00zz__r4_ports_6_10_1z00,
													BgL_g1260z00_1765);
												FAILURE(BgL_auxz00_5792, BFALSE, BFALSE);
											}
										BgL_fdz00_2789 = CINT(BgL_tmpz00_5789);
									}
									return
										bgl_open_input_descriptor(BgL_fdz00_2789,
										BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
										(BGl_string2584z00zz__r4_ports_6_10_1z00, BTRUE,
											(int) (default_io_bufsiz)));
							}} break;
						case 2L:

							{	/* Ieee/port.scm 1103 */
								obj_t BgL_bufinfoz00_1769;

								{
									obj_t BgL_auxz00_5800;

									if (VECTORP(BgL_opt1258z00_75))
										{	/* Ieee/port.scm 1103 */
											BgL_auxz00_5800 = BgL_opt1258z00_75;
										}
									else
										{
											obj_t BgL_auxz00_5803;

											BgL_auxz00_5803 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(48665L),
												BGl_string2612z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1258z00_75);
											FAILURE(BgL_auxz00_5803, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1769 = VECTOR_REF(BgL_auxz00_5800, 1L);
								}
								{	/* Ieee/port.scm 1103 */

									{	/* Ieee/port.scm 1103 */
										int BgL_fdz00_2791;

										{	/* Ieee/port.scm 1103 */
											obj_t BgL_tmpz00_5808;

											if (INTEGERP(BgL_g1260z00_1765))
												{	/* Ieee/port.scm 1103 */
													BgL_tmpz00_5808 = BgL_g1260z00_1765;
												}
											else
												{
													obj_t BgL_auxz00_5811;

													BgL_auxz00_5811 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(48665L),
														BGl_string2612z00zz__r4_ports_6_10_1z00,
														BGl_string2582z00zz__r4_ports_6_10_1z00,
														BgL_g1260z00_1765);
													FAILURE(BgL_auxz00_5811, BFALSE, BFALSE);
												}
											BgL_fdz00_2791 = CINT(BgL_tmpz00_5808);
										}
										return
											bgl_open_input_descriptor(BgL_fdz00_2791,
											BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
											(BGl_string2584z00zz__r4_ports_6_10_1z00,
												BgL_bufinfoz00_1769, (int) (default_io_bufsiz)));
							}}} break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-descriptor */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2inputzd2descriptorz00zz__r4_ports_6_10_1z00(int BgL_fdz00_73,
		obj_t BgL_bufinfoz00_74)
	{
		{	/* Ieee/port.scm 1103 */
			{	/* Ieee/port.scm 1104 */
				obj_t BgL_bufferz00_2793;

				{	/* Ieee/port.scm 1104 */
					obj_t BgL_res2043z00_2799;

					{	/* Ieee/port.scm 1104 */
						int BgL_defsiza7za7_2794;

						BgL_defsiza7za7_2794 = (int) (default_io_bufsiz);
						if ((BgL_bufinfoz00_74 == BTRUE))
							{	/* Ieee/port.scm 974 */
								BgL_res2043z00_2799 =
									make_string_sans_fill((long) (BgL_defsiza7za7_2794));
							}
						else
							{	/* Ieee/port.scm 974 */
								if ((BgL_bufinfoz00_74 == BFALSE))
									{	/* Ieee/port.scm 976 */
										BgL_res2043z00_2799 = make_string_sans_fill(2L);
									}
								else
									{	/* Ieee/port.scm 976 */
										if (STRINGP(BgL_bufinfoz00_74))
											{	/* Ieee/port.scm 978 */
												BgL_res2043z00_2799 = BgL_bufinfoz00_74;
											}
										else
											{	/* Ieee/port.scm 978 */
												if (INTEGERP(BgL_bufinfoz00_74))
													{	/* Ieee/port.scm 980 */
														if (((long) CINT(BgL_bufinfoz00_74) >= 2L))
															{	/* Ieee/port.scm 981 */
																BgL_res2043z00_2799 =
																	make_string_sans_fill(
																	(long) CINT(BgL_bufinfoz00_74));
															}
														else
															{	/* Ieee/port.scm 981 */
																BgL_res2043z00_2799 = make_string_sans_fill(2L);
															}
													}
												else
													{	/* Ieee/port.scm 980 */
														BgL_res2043z00_2799 =
															BGl_errorz00zz__errorz00
															(BGl_string2584z00zz__r4_ports_6_10_1z00,
															BGl_string2580z00zz__r4_ports_6_10_1z00,
															BgL_bufinfoz00_74);
													}
											}
									}
							}
					}
					BgL_bufferz00_2793 = BgL_res2043z00_2799;
				}
				return bgl_open_input_descriptor(BgL_fdz00_73, BgL_bufferz00_2793);
			}
		}

	}



/* _open-input-string */
	obj_t BGl__openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1264z00_81, obj_t BgL_opt1263z00_80)
	{
		{	/* Ieee/port.scm 1110 */
			{	/* Ieee/port.scm 1110 */
				obj_t BgL_stringz00_1771;

				{
					obj_t BgL_auxz00_5840;

					if (VECTORP(BgL_opt1263z00_80))
						{	/* Ieee/port.scm 1110 */
							BgL_auxz00_5840 = BgL_opt1263z00_80;
						}
					else
						{
							obj_t BgL_auxz00_5843;

							BgL_auxz00_5843 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49076L),
								BGl_string2613z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1263z00_80);
							FAILURE(BgL_auxz00_5843, BFALSE, BFALSE);
						}
					BgL_stringz00_1771 = VECTOR_REF(BgL_auxz00_5840, 0L);
				}
				{	/* Ieee/port.scm 1110 */
					long BgL_aux1266z00_1773;

					{
						obj_t BgL_auxz00_5848;

						if (VECTORP(BgL_opt1263z00_80))
							{	/* Ieee/port.scm 1110 */
								BgL_auxz00_5848 = BgL_opt1263z00_80;
							}
						else
							{
								obj_t BgL_auxz00_5851;

								BgL_auxz00_5851 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49076L),
									BGl_string2613z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1263z00_80);
								FAILURE(BgL_auxz00_5851, BFALSE, BFALSE);
							}
						BgL_aux1266z00_1773 = VECTOR_LENGTH(BgL_auxz00_5848);
					}
					switch (BgL_aux1266z00_1773)
						{
						case 1L:

							{	/* Ieee/port.scm 1111 */
								long BgL_endz00_1775;

								{	/* Ieee/port.scm 1111 */
									obj_t BgL_stringz00_2800;

									if (STRINGP(BgL_stringz00_1771))
										{	/* Ieee/port.scm 1111 */
											BgL_stringz00_2800 = BgL_stringz00_1771;
										}
									else
										{
											obj_t BgL_auxz00_5858;

											BgL_auxz00_5858 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49140L),
												BGl_string2613z00zz__r4_ports_6_10_1z00,
												BGl_string2540z00zz__r4_ports_6_10_1z00,
												BgL_stringz00_1771);
											FAILURE(BgL_auxz00_5858, BFALSE, BFALSE);
										}
									BgL_endz00_1775 = STRING_LENGTH(BgL_stringz00_2800);
								}
								{	/* Ieee/port.scm 1110 */

									{	/* Ieee/port.scm 1110 */
										obj_t BgL_auxz00_5863;

										if (STRINGP(BgL_stringz00_1771))
											{	/* Ieee/port.scm 1110 */
												BgL_auxz00_5863 = BgL_stringz00_1771;
											}
										else
											{
												obj_t BgL_auxz00_5866;

												BgL_auxz00_5866 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(49076L), BGl_string2613z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_stringz00_1771);
												FAILURE(BgL_auxz00_5866, BFALSE, BFALSE);
											}
										return
											BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
											(BgL_auxz00_5863, BINT(0L), BINT(BgL_endz00_1775));
									}
								}
							}
							break;
						case 2L:

							{	/* Ieee/port.scm 1110 */
								obj_t BgL_startz00_1776;

								{
									obj_t BgL_auxz00_5873;

									if (VECTORP(BgL_opt1263z00_80))
										{	/* Ieee/port.scm 1110 */
											BgL_auxz00_5873 = BgL_opt1263z00_80;
										}
									else
										{
											obj_t BgL_auxz00_5876;

											BgL_auxz00_5876 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49076L),
												BGl_string2613z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1263z00_80);
											FAILURE(BgL_auxz00_5876, BFALSE, BFALSE);
										}
									BgL_startz00_1776 = VECTOR_REF(BgL_auxz00_5873, 1L);
								}
								{	/* Ieee/port.scm 1111 */
									long BgL_endz00_1777;

									{	/* Ieee/port.scm 1111 */
										obj_t BgL_stringz00_2801;

										if (STRINGP(BgL_stringz00_1771))
											{	/* Ieee/port.scm 1111 */
												BgL_stringz00_2801 = BgL_stringz00_1771;
											}
										else
											{
												obj_t BgL_auxz00_5883;

												BgL_auxz00_5883 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(49140L), BGl_string2613z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_stringz00_1771);
												FAILURE(BgL_auxz00_5883, BFALSE, BFALSE);
											}
										BgL_endz00_1777 = STRING_LENGTH(BgL_stringz00_2801);
									}
									{	/* Ieee/port.scm 1110 */

										{	/* Ieee/port.scm 1110 */
											obj_t BgL_auxz00_5888;

											if (STRINGP(BgL_stringz00_1771))
												{	/* Ieee/port.scm 1110 */
													BgL_auxz00_5888 = BgL_stringz00_1771;
												}
											else
												{
													obj_t BgL_auxz00_5891;

													BgL_auxz00_5891 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(49076L),
														BGl_string2613z00zz__r4_ports_6_10_1z00,
														BGl_string2540z00zz__r4_ports_6_10_1z00,
														BgL_stringz00_1771);
													FAILURE(BgL_auxz00_5891, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
												(BgL_auxz00_5888, BgL_startz00_1776,
												BINT(BgL_endz00_1777));
										}
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/port.scm 1110 */
								obj_t BgL_startz00_1778;

								{
									obj_t BgL_auxz00_5897;

									if (VECTORP(BgL_opt1263z00_80))
										{	/* Ieee/port.scm 1110 */
											BgL_auxz00_5897 = BgL_opt1263z00_80;
										}
									else
										{
											obj_t BgL_auxz00_5900;

											BgL_auxz00_5900 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49076L),
												BGl_string2613z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1263z00_80);
											FAILURE(BgL_auxz00_5900, BFALSE, BFALSE);
										}
									BgL_startz00_1778 = VECTOR_REF(BgL_auxz00_5897, 1L);
								}
								{	/* Ieee/port.scm 1110 */
									obj_t BgL_endz00_1779;

									{
										obj_t BgL_auxz00_5905;

										if (VECTORP(BgL_opt1263z00_80))
											{	/* Ieee/port.scm 1110 */
												BgL_auxz00_5905 = BgL_opt1263z00_80;
											}
										else
											{
												obj_t BgL_auxz00_5908;

												BgL_auxz00_5908 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(49076L), BGl_string2613z00zz__r4_ports_6_10_1z00,
													BGl_string2611z00zz__r4_ports_6_10_1z00,
													BgL_opt1263z00_80);
												FAILURE(BgL_auxz00_5908, BFALSE, BFALSE);
											}
										BgL_endz00_1779 = VECTOR_REF(BgL_auxz00_5905, 2L);
									}
									{	/* Ieee/port.scm 1110 */

										{	/* Ieee/port.scm 1110 */
											obj_t BgL_auxz00_5913;

											if (STRINGP(BgL_stringz00_1771))
												{	/* Ieee/port.scm 1110 */
													BgL_auxz00_5913 = BgL_stringz00_1771;
												}
											else
												{
													obj_t BgL_auxz00_5916;

													BgL_auxz00_5916 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(49076L),
														BGl_string2613z00zz__r4_ports_6_10_1z00,
														BGl_string2540z00zz__r4_ports_6_10_1z00,
														BgL_stringz00_1771);
													FAILURE(BgL_auxz00_5916, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
												(BgL_auxz00_5913, BgL_startz00_1778, BgL_endz00_1779);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-string */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_77,
		obj_t BgL_startz00_78, obj_t BgL_endz00_79)
	{
		{	/* Ieee/port.scm 1110 */
			if (((long) CINT(BgL_startz00_78) < 0L))
				{	/* Ieee/port.scm 1113 */
					return
						BGl_errorz00zz__errorz00(BGl_string2614z00zz__r4_ports_6_10_1z00,
						BGl_string2615z00zz__r4_ports_6_10_1z00, BgL_startz00_78);
				}
			else
				{	/* Ieee/port.scm 1113 */
					if (((long) CINT(BgL_startz00_78) > STRING_LENGTH(BgL_stringz00_77)))
						{	/* Ieee/port.scm 1115 */
							return
								BGl_errorz00zz__errorz00
								(BGl_string2614z00zz__r4_ports_6_10_1z00,
								BGl_string2616z00zz__r4_ports_6_10_1z00, BgL_startz00_78);
						}
					else
						{	/* Ieee/port.scm 1115 */
							if (((long) CINT(BgL_startz00_78) > (long) CINT(BgL_endz00_79)))
								{	/* Ieee/port.scm 1117 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2614z00zz__r4_ports_6_10_1z00,
										BGl_string2617z00zz__r4_ports_6_10_1z00, BgL_startz00_78);
								}
							else
								{	/* Ieee/port.scm 1117 */
									if (
										((long) CINT(BgL_endz00_79) >
											STRING_LENGTH(BgL_stringz00_77)))
										{	/* Ieee/port.scm 1119 */
											return
												BGl_errorz00zz__errorz00
												(BGl_string2614z00zz__r4_ports_6_10_1z00,
												BGl_string2618z00zz__r4_ports_6_10_1z00, BgL_endz00_79);
										}
									else
										{	/* Ieee/port.scm 1119 */
											return
												bgl_open_input_substring(BgL_stringz00_77,
												(long) CINT(BgL_startz00_78),
												(long) CINT(BgL_endz00_79));
		}}}}}

	}



/* _open-input-string! */
	obj_t BGl__openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_env1268z00_86, obj_t BgL_opt1267z00_85)
	{
		{	/* Ieee/port.scm 1127 */
			{	/* Ieee/port.scm 1127 */
				obj_t BgL_stringz00_1788;

				{
					obj_t BgL_auxz00_5944;

					if (VECTORP(BgL_opt1267z00_85))
						{	/* Ieee/port.scm 1127 */
							BgL_auxz00_5944 = BgL_opt1267z00_85;
						}
					else
						{
							obj_t BgL_auxz00_5947;

							BgL_auxz00_5947 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49863L),
								BGl_string2619z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1267z00_85);
							FAILURE(BgL_auxz00_5947, BFALSE, BFALSE);
						}
					BgL_stringz00_1788 = VECTOR_REF(BgL_auxz00_5944, 0L);
				}
				{	/* Ieee/port.scm 1127 */
					long BgL_aux1270z00_1790;

					{
						obj_t BgL_auxz00_5952;

						if (VECTORP(BgL_opt1267z00_85))
							{	/* Ieee/port.scm 1127 */
								BgL_auxz00_5952 = BgL_opt1267z00_85;
							}
						else
							{
								obj_t BgL_auxz00_5955;

								BgL_auxz00_5955 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49863L),
									BGl_string2619z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1267z00_85);
								FAILURE(BgL_auxz00_5955, BFALSE, BFALSE);
							}
						BgL_aux1270z00_1790 = VECTOR_LENGTH(BgL_auxz00_5952);
					}
					switch (BgL_aux1270z00_1790)
						{
						case 1L:

							{	/* Ieee/port.scm 1128 */
								long BgL_endz00_1792;

								{	/* Ieee/port.scm 1128 */
									obj_t BgL_stringz00_2811;

									if (STRINGP(BgL_stringz00_1788))
										{	/* Ieee/port.scm 1128 */
											BgL_stringz00_2811 = BgL_stringz00_1788;
										}
									else
										{
											obj_t BgL_auxz00_5962;

											BgL_auxz00_5962 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49928L),
												BGl_string2619z00zz__r4_ports_6_10_1z00,
												BGl_string2540z00zz__r4_ports_6_10_1z00,
												BgL_stringz00_1788);
											FAILURE(BgL_auxz00_5962, BFALSE, BFALSE);
										}
									BgL_endz00_1792 = STRING_LENGTH(BgL_stringz00_2811);
								}
								{	/* Ieee/port.scm 1127 */

									{	/* Ieee/port.scm 1127 */
										obj_t BgL_auxz00_5967;

										if (STRINGP(BgL_stringz00_1788))
											{	/* Ieee/port.scm 1127 */
												BgL_auxz00_5967 = BgL_stringz00_1788;
											}
										else
											{
												obj_t BgL_auxz00_5970;

												BgL_auxz00_5970 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(49863L), BGl_string2619z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_stringz00_1788);
												FAILURE(BgL_auxz00_5970, BFALSE, BFALSE);
											}
										return
											BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
											(BgL_auxz00_5967, BINT(0L), BINT(BgL_endz00_1792));
									}
								}
							}
							break;
						case 2L:

							{	/* Ieee/port.scm 1127 */
								obj_t BgL_startz00_1793;

								{
									obj_t BgL_auxz00_5977;

									if (VECTORP(BgL_opt1267z00_85))
										{	/* Ieee/port.scm 1127 */
											BgL_auxz00_5977 = BgL_opt1267z00_85;
										}
									else
										{
											obj_t BgL_auxz00_5980;

											BgL_auxz00_5980 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49863L),
												BGl_string2619z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1267z00_85);
											FAILURE(BgL_auxz00_5980, BFALSE, BFALSE);
										}
									BgL_startz00_1793 = VECTOR_REF(BgL_auxz00_5977, 1L);
								}
								{	/* Ieee/port.scm 1128 */
									long BgL_endz00_1794;

									{	/* Ieee/port.scm 1128 */
										obj_t BgL_stringz00_2812;

										if (STRINGP(BgL_stringz00_1788))
											{	/* Ieee/port.scm 1128 */
												BgL_stringz00_2812 = BgL_stringz00_1788;
											}
										else
											{
												obj_t BgL_auxz00_5987;

												BgL_auxz00_5987 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(49928L), BGl_string2619z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_stringz00_1788);
												FAILURE(BgL_auxz00_5987, BFALSE, BFALSE);
											}
										BgL_endz00_1794 = STRING_LENGTH(BgL_stringz00_2812);
									}
									{	/* Ieee/port.scm 1127 */

										{	/* Ieee/port.scm 1127 */
											obj_t BgL_auxz00_5992;

											if (STRINGP(BgL_stringz00_1788))
												{	/* Ieee/port.scm 1127 */
													BgL_auxz00_5992 = BgL_stringz00_1788;
												}
											else
												{
													obj_t BgL_auxz00_5995;

													BgL_auxz00_5995 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(49863L),
														BGl_string2619z00zz__r4_ports_6_10_1z00,
														BGl_string2540z00zz__r4_ports_6_10_1z00,
														BgL_stringz00_1788);
													FAILURE(BgL_auxz00_5995, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
												(BgL_auxz00_5992, BgL_startz00_1793,
												BINT(BgL_endz00_1794));
										}
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/port.scm 1127 */
								obj_t BgL_startz00_1795;

								{
									obj_t BgL_auxz00_6001;

									if (VECTORP(BgL_opt1267z00_85))
										{	/* Ieee/port.scm 1127 */
											BgL_auxz00_6001 = BgL_opt1267z00_85;
										}
									else
										{
											obj_t BgL_auxz00_6004;

											BgL_auxz00_6004 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(49863L),
												BGl_string2619z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1267z00_85);
											FAILURE(BgL_auxz00_6004, BFALSE, BFALSE);
										}
									BgL_startz00_1795 = VECTOR_REF(BgL_auxz00_6001, 1L);
								}
								{	/* Ieee/port.scm 1127 */
									obj_t BgL_endz00_1796;

									{
										obj_t BgL_auxz00_6009;

										if (VECTORP(BgL_opt1267z00_85))
											{	/* Ieee/port.scm 1127 */
												BgL_auxz00_6009 = BgL_opt1267z00_85;
											}
										else
											{
												obj_t BgL_auxz00_6012;

												BgL_auxz00_6012 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(49863L), BGl_string2619z00zz__r4_ports_6_10_1z00,
													BGl_string2611z00zz__r4_ports_6_10_1z00,
													BgL_opt1267z00_85);
												FAILURE(BgL_auxz00_6012, BFALSE, BFALSE);
											}
										BgL_endz00_1796 = VECTOR_REF(BgL_auxz00_6009, 2L);
									}
									{	/* Ieee/port.scm 1127 */

										{	/* Ieee/port.scm 1127 */
											obj_t BgL_auxz00_6017;

											if (STRINGP(BgL_stringz00_1788))
												{	/* Ieee/port.scm 1127 */
													BgL_auxz00_6017 = BgL_stringz00_1788;
												}
											else
												{
													obj_t BgL_auxz00_6020;

													BgL_auxz00_6020 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(49863L),
														BGl_string2619z00zz__r4_ports_6_10_1z00,
														BGl_string2540z00zz__r4_ports_6_10_1z00,
														BgL_stringz00_1788);
													FAILURE(BgL_auxz00_6020, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
												(BgL_auxz00_6017, BgL_startz00_1795, BgL_endz00_1796);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-string! */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_82, obj_t BgL_startz00_83, obj_t BgL_endz00_84)
	{
		{	/* Ieee/port.scm 1127 */
			if (((long) CINT(BgL_startz00_83) < 0L))
				{	/* Ieee/port.scm 1130 */
					return
						BGl_errorz00zz__errorz00(BGl_string2620z00zz__r4_ports_6_10_1z00,
						BGl_string2615z00zz__r4_ports_6_10_1z00, BgL_startz00_83);
				}
			else
				{	/* Ieee/port.scm 1130 */
					if (((long) CINT(BgL_startz00_83) > STRING_LENGTH(BgL_stringz00_82)))
						{	/* Ieee/port.scm 1132 */
							return
								BGl_errorz00zz__errorz00
								(BGl_string2620z00zz__r4_ports_6_10_1z00,
								BGl_string2616z00zz__r4_ports_6_10_1z00, BgL_startz00_83);
						}
					else
						{	/* Ieee/port.scm 1132 */
							if (((long) CINT(BgL_startz00_83) > (long) CINT(BgL_endz00_84)))
								{	/* Ieee/port.scm 1134 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2620z00zz__r4_ports_6_10_1z00,
										BGl_string2617z00zz__r4_ports_6_10_1z00, BgL_startz00_83);
								}
							else
								{	/* Ieee/port.scm 1134 */
									if (
										((long) CINT(BgL_endz00_84) >
											STRING_LENGTH(BgL_stringz00_82)))
										{	/* Ieee/port.scm 1136 */
											return
												BGl_errorz00zz__errorz00
												(BGl_string2620z00zz__r4_ports_6_10_1z00,
												BGl_string2618z00zz__r4_ports_6_10_1z00, BgL_endz00_84);
										}
									else
										{	/* Ieee/port.scm 1136 */
											return
												bgl_open_input_substring_bang(BgL_stringz00_82,
												(long) CINT(BgL_startz00_83),
												(long) CINT(BgL_endz00_84));
		}}}}}

	}



/* _open-input-mmap */
	obj_t BGl__openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1272z00_91, obj_t BgL_opt1271z00_90)
	{
		{	/* Ieee/port.scm 1144 */
			{	/* Ieee/port.scm 1144 */
				obj_t BgL_mmapz00_1805;

				{
					obj_t BgL_auxz00_6048;

					if (VECTORP(BgL_opt1271z00_90))
						{	/* Ieee/port.scm 1144 */
							BgL_auxz00_6048 = BgL_opt1271z00_90;
						}
					else
						{
							obj_t BgL_auxz00_6051;

							BgL_auxz00_6051 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(50656L),
								BGl_string2621z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1271z00_90);
							FAILURE(BgL_auxz00_6051, BFALSE, BFALSE);
						}
					BgL_mmapz00_1805 = VECTOR_REF(BgL_auxz00_6048, 0L);
				}
				{	/* Ieee/port.scm 1144 */
					long BgL_aux1274z00_1807;

					{
						obj_t BgL_auxz00_6056;

						if (VECTORP(BgL_opt1271z00_90))
							{	/* Ieee/port.scm 1144 */
								BgL_auxz00_6056 = BgL_opt1271z00_90;
							}
						else
							{
								obj_t BgL_auxz00_6059;

								BgL_auxz00_6059 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(50656L),
									BGl_string2621z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1271z00_90);
								FAILURE(BgL_auxz00_6059, BFALSE, BFALSE);
							}
						BgL_aux1274z00_1807 = VECTOR_LENGTH(BgL_auxz00_6056);
					}
					switch (BgL_aux1274z00_1807)
						{
						case 1L:

							{	/* Ieee/port.scm 1145 */
								long BgL_endz00_1809;

								{	/* Ieee/port.scm 1145 */
									long BgL_arg1534z00_1810;

									{	/* Ieee/port.scm 1145 */
										obj_t BgL_objz00_2822;

										if (BGL_MMAPP(BgL_mmapz00_1805))
											{	/* Ieee/port.scm 1145 */
												BgL_objz00_2822 = BgL_mmapz00_1805;
											}
										else
											{
												obj_t BgL_auxz00_6066;

												BgL_auxz00_6066 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(50750L), BGl_string2621z00zz__r4_ports_6_10_1z00,
													BGl_string2622z00zz__r4_ports_6_10_1z00,
													BgL_mmapz00_1805);
												FAILURE(BgL_auxz00_6066, BFALSE, BFALSE);
											}
										BgL_arg1534z00_1810 = BGL_MMAP_LENGTH(BgL_objz00_2822);
									}
									BgL_endz00_1809 = (long) (BgL_arg1534z00_1810);
								}
								{	/* Ieee/port.scm 1144 */

									{	/* Ieee/port.scm 1144 */
										obj_t BgL_auxz00_6072;

										if (BGL_MMAPP(BgL_mmapz00_1805))
											{	/* Ieee/port.scm 1144 */
												BgL_auxz00_6072 = BgL_mmapz00_1805;
											}
										else
											{
												obj_t BgL_auxz00_6075;

												BgL_auxz00_6075 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(50656L), BGl_string2621z00zz__r4_ports_6_10_1z00,
													BGl_string2622z00zz__r4_ports_6_10_1z00,
													BgL_mmapz00_1805);
												FAILURE(BgL_auxz00_6075, BFALSE, BFALSE);
											}
										return
											BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00
											(BgL_auxz00_6072, BINT(0L), BINT(BgL_endz00_1809));
									}
								}
							}
							break;
						case 2L:

							{	/* Ieee/port.scm 1144 */
								obj_t BgL_startz00_1811;

								{
									obj_t BgL_auxz00_6082;

									if (VECTORP(BgL_opt1271z00_90))
										{	/* Ieee/port.scm 1144 */
											BgL_auxz00_6082 = BgL_opt1271z00_90;
										}
									else
										{
											obj_t BgL_auxz00_6085;

											BgL_auxz00_6085 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(50656L),
												BGl_string2621z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1271z00_90);
											FAILURE(BgL_auxz00_6085, BFALSE, BFALSE);
										}
									BgL_startz00_1811 = VECTOR_REF(BgL_auxz00_6082, 1L);
								}
								{	/* Ieee/port.scm 1145 */
									long BgL_endz00_1812;

									{	/* Ieee/port.scm 1145 */
										long BgL_arg1537z00_1813;

										{	/* Ieee/port.scm 1145 */
											obj_t BgL_objz00_2824;

											if (BGL_MMAPP(BgL_mmapz00_1805))
												{	/* Ieee/port.scm 1145 */
													BgL_objz00_2824 = BgL_mmapz00_1805;
												}
											else
												{
													obj_t BgL_auxz00_6092;

													BgL_auxz00_6092 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(50750L),
														BGl_string2621z00zz__r4_ports_6_10_1z00,
														BGl_string2622z00zz__r4_ports_6_10_1z00,
														BgL_mmapz00_1805);
													FAILURE(BgL_auxz00_6092, BFALSE, BFALSE);
												}
											BgL_arg1537z00_1813 = BGL_MMAP_LENGTH(BgL_objz00_2824);
										}
										BgL_endz00_1812 = (long) (BgL_arg1537z00_1813);
									}
									{	/* Ieee/port.scm 1144 */

										{	/* Ieee/port.scm 1144 */
											obj_t BgL_auxz00_6098;

											if (BGL_MMAPP(BgL_mmapz00_1805))
												{	/* Ieee/port.scm 1144 */
													BgL_auxz00_6098 = BgL_mmapz00_1805;
												}
											else
												{
													obj_t BgL_auxz00_6101;

													BgL_auxz00_6101 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(50656L),
														BGl_string2621z00zz__r4_ports_6_10_1z00,
														BGl_string2622z00zz__r4_ports_6_10_1z00,
														BgL_mmapz00_1805);
													FAILURE(BgL_auxz00_6101, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00
												(BgL_auxz00_6098, BgL_startz00_1811,
												BINT(BgL_endz00_1812));
										}
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/port.scm 1144 */
								obj_t BgL_startz00_1814;

								{
									obj_t BgL_auxz00_6107;

									if (VECTORP(BgL_opt1271z00_90))
										{	/* Ieee/port.scm 1144 */
											BgL_auxz00_6107 = BgL_opt1271z00_90;
										}
									else
										{
											obj_t BgL_auxz00_6110;

											BgL_auxz00_6110 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(50656L),
												BGl_string2621z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1271z00_90);
											FAILURE(BgL_auxz00_6110, BFALSE, BFALSE);
										}
									BgL_startz00_1814 = VECTOR_REF(BgL_auxz00_6107, 1L);
								}
								{	/* Ieee/port.scm 1144 */
									obj_t BgL_endz00_1815;

									{
										obj_t BgL_auxz00_6115;

										if (VECTORP(BgL_opt1271z00_90))
											{	/* Ieee/port.scm 1144 */
												BgL_auxz00_6115 = BgL_opt1271z00_90;
											}
										else
											{
												obj_t BgL_auxz00_6118;

												BgL_auxz00_6118 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(50656L), BGl_string2621z00zz__r4_ports_6_10_1z00,
													BGl_string2611z00zz__r4_ports_6_10_1z00,
													BgL_opt1271z00_90);
												FAILURE(BgL_auxz00_6118, BFALSE, BFALSE);
											}
										BgL_endz00_1815 = VECTOR_REF(BgL_auxz00_6115, 2L);
									}
									{	/* Ieee/port.scm 1144 */

										{	/* Ieee/port.scm 1144 */
											obj_t BgL_auxz00_6123;

											if (BGL_MMAPP(BgL_mmapz00_1805))
												{	/* Ieee/port.scm 1144 */
													BgL_auxz00_6123 = BgL_mmapz00_1805;
												}
											else
												{
													obj_t BgL_auxz00_6126;

													BgL_auxz00_6126 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(50656L),
														BGl_string2621z00zz__r4_ports_6_10_1z00,
														BGl_string2622z00zz__r4_ports_6_10_1z00,
														BgL_mmapz00_1805);
													FAILURE(BgL_auxz00_6126, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00
												(BgL_auxz00_6123, BgL_startz00_1814, BgL_endz00_1815);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-mmap */
	BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(obj_t
		BgL_mmapz00_87, obj_t BgL_startz00_88, obj_t BgL_endz00_89)
	{
		{	/* Ieee/port.scm 1144 */
			if (((long) CINT(BgL_startz00_88) < 0L))
				{	/* Ieee/port.scm 1147 */
					return
						BGl_errorz00zz__errorz00(BGl_string2623z00zz__r4_ports_6_10_1z00,
						BGl_string2615z00zz__r4_ports_6_10_1z00, BgL_startz00_88);
				}
			else
				{	/* Ieee/port.scm 1149 */
					bool_t BgL_test3219z00_6136;

					{	/* Ieee/port.scm 1149 */
						long BgL_arg1559z00_1831;

						{	/* Ieee/port.scm 1149 */
							long BgL_arg1561z00_1832;

							BgL_arg1561z00_1832 = BGL_MMAP_LENGTH(BgL_mmapz00_87);
							BgL_arg1559z00_1831 = (long) (BgL_arg1561z00_1832);
						}
						BgL_test3219z00_6136 =
							((long) CINT(BgL_startz00_88) > BgL_arg1559z00_1831);
					}
					if (BgL_test3219z00_6136)
						{	/* Ieee/port.scm 1149 */
							return
								BGl_errorz00zz__errorz00
								(BGl_string2623z00zz__r4_ports_6_10_1z00,
								BGl_string2616z00zz__r4_ports_6_10_1z00, BgL_startz00_88);
						}
					else
						{	/* Ieee/port.scm 1149 */
							if (((long) CINT(BgL_startz00_88) > (long) CINT(BgL_endz00_89)))
								{	/* Ieee/port.scm 1151 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2623z00zz__r4_ports_6_10_1z00,
										BGl_string2617z00zz__r4_ports_6_10_1z00, BgL_startz00_88);
								}
							else
								{	/* Ieee/port.scm 1153 */
									bool_t BgL_test3221z00_6147;

									{	/* Ieee/port.scm 1153 */
										long BgL_arg1555z00_1829;

										{	/* Ieee/port.scm 1153 */
											long BgL_arg1558z00_1830;

											BgL_arg1558z00_1830 = BGL_MMAP_LENGTH(BgL_mmapz00_87);
											BgL_arg1555z00_1829 = (long) (BgL_arg1558z00_1830);
										}
										BgL_test3221z00_6147 =
											((long) CINT(BgL_endz00_89) > BgL_arg1555z00_1829);
									}
									if (BgL_test3221z00_6147)
										{	/* Ieee/port.scm 1153 */
											return
												BGl_errorz00zz__errorz00
												(BGl_string2623z00zz__r4_ports_6_10_1z00,
												BGl_string2618z00zz__r4_ports_6_10_1z00, BgL_endz00_89);
										}
									else
										{	/* Ieee/port.scm 1153 */
											return
												bgl_open_input_mmap(BgL_mmapz00_87,
												make_string_sans_fill(2L),
												(long) CINT(BgL_startz00_88),
												(long) CINT(BgL_endz00_89));
		}}}}}

	}



/* _open-input-procedure */
	obj_t BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1276z00_95, obj_t BgL_opt1275z00_94)
	{
		{	/* Ieee/port.scm 1165 */
			{	/* Ieee/port.scm 1165 */
				obj_t BgL_g1277z00_1833;

				{
					obj_t BgL_auxz00_6157;

					if (VECTORP(BgL_opt1275z00_94))
						{	/* Ieee/port.scm 1165 */
							BgL_auxz00_6157 = BgL_opt1275z00_94;
						}
					else
						{
							obj_t BgL_auxz00_6160;

							BgL_auxz00_6160 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(51639L),
								BGl_string2624z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1275z00_94);
							FAILURE(BgL_auxz00_6160, BFALSE, BFALSE);
						}
					BgL_g1277z00_1833 = VECTOR_REF(BgL_auxz00_6157, 0L);
				}
				{	/* Ieee/port.scm 1165 */
					long BgL_aux1279z00_1835;

					{
						obj_t BgL_auxz00_6165;

						if (VECTORP(BgL_opt1275z00_94))
							{	/* Ieee/port.scm 1165 */
								BgL_auxz00_6165 = BgL_opt1275z00_94;
							}
						else
							{
								obj_t BgL_auxz00_6168;

								BgL_auxz00_6168 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(51639L),
									BGl_string2624z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1275z00_94);
								FAILURE(BgL_auxz00_6168, BFALSE, BFALSE);
							}
						BgL_aux1279z00_1835 = VECTOR_LENGTH(BgL_auxz00_6165);
					}
					switch (BgL_aux1279z00_1835)
						{
						case 1L:

							{	/* Ieee/port.scm 1165 */

								{	/* Ieee/port.scm 1165 */
									obj_t BgL_procz00_2849;

									if (PROCEDUREP(BgL_g1277z00_1833))
										{	/* Ieee/port.scm 1165 */
											BgL_procz00_2849 = BgL_g1277z00_1833;
										}
									else
										{
											obj_t BgL_auxz00_6175;

											BgL_auxz00_6175 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(51639L),
												BGl_string2624z00zz__r4_ports_6_10_1z00,
												BGl_string2541z00zz__r4_ports_6_10_1z00,
												BgL_g1277z00_1833);
											FAILURE(BgL_auxz00_6175, BFALSE, BFALSE);
										}
									return
										bgl_open_input_procedure(BgL_procz00_2849,
										BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
										(BGl_string2559z00zz__r4_ports_6_10_1z00, BTRUE,
											(int) (1024L)));
							}} break;
						case 2L:

							{	/* Ieee/port.scm 1165 */
								obj_t BgL_bufinfoz00_1837;

								{
									obj_t BgL_auxz00_6182;

									if (VECTORP(BgL_opt1275z00_94))
										{	/* Ieee/port.scm 1165 */
											BgL_auxz00_6182 = BgL_opt1275z00_94;
										}
									else
										{
											obj_t BgL_auxz00_6185;

											BgL_auxz00_6185 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(51639L),
												BGl_string2624z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1275z00_94);
											FAILURE(BgL_auxz00_6185, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1837 = VECTOR_REF(BgL_auxz00_6182, 1L);
								}
								{	/* Ieee/port.scm 1165 */

									{	/* Ieee/port.scm 1165 */
										obj_t BgL_procz00_2851;

										if (PROCEDUREP(BgL_g1277z00_1833))
											{	/* Ieee/port.scm 1165 */
												BgL_procz00_2851 = BgL_g1277z00_1833;
											}
										else
											{
												obj_t BgL_auxz00_6192;

												BgL_auxz00_6192 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(51639L), BGl_string2624z00zz__r4_ports_6_10_1z00,
													BGl_string2541z00zz__r4_ports_6_10_1z00,
													BgL_g1277z00_1833);
												FAILURE(BgL_auxz00_6192, BFALSE, BFALSE);
											}
										return
											bgl_open_input_procedure(BgL_procz00_2851,
											BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
											(BGl_string2559z00zz__r4_ports_6_10_1z00,
												BgL_bufinfoz00_1837, (int) (1024L)));
							}}} break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-procedure */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t BgL_procz00_92,
		obj_t BgL_bufinfoz00_93)
	{
		{	/* Ieee/port.scm 1165 */
			{	/* Ieee/port.scm 1166 */
				obj_t BgL_bufz00_2853;

				{	/* Ieee/port.scm 1166 */
					obj_t BgL_res2045z00_2858;

					if ((BgL_bufinfoz00_93 == BTRUE))
						{	/* Ieee/port.scm 974 */
							BgL_res2045z00_2858 = make_string_sans_fill(1024L);
						}
					else
						{	/* Ieee/port.scm 974 */
							if ((BgL_bufinfoz00_93 == BFALSE))
								{	/* Ieee/port.scm 976 */
									BgL_res2045z00_2858 = make_string_sans_fill(2L);
								}
							else
								{	/* Ieee/port.scm 976 */
									if (STRINGP(BgL_bufinfoz00_93))
										{	/* Ieee/port.scm 978 */
											BgL_res2045z00_2858 = BgL_bufinfoz00_93;
										}
									else
										{	/* Ieee/port.scm 978 */
											if (INTEGERP(BgL_bufinfoz00_93))
												{	/* Ieee/port.scm 980 */
													if (((long) CINT(BgL_bufinfoz00_93) >= 2L))
														{	/* Ieee/port.scm 981 */
															BgL_res2045z00_2858 =
																make_string_sans_fill(
																(long) CINT(BgL_bufinfoz00_93));
														}
													else
														{	/* Ieee/port.scm 981 */
															BgL_res2045z00_2858 = make_string_sans_fill(2L);
														}
												}
											else
												{	/* Ieee/port.scm 980 */
													BgL_res2045z00_2858 =
														BGl_errorz00zz__errorz00
														(BGl_string2559z00zz__r4_ports_6_10_1z00,
														BGl_string2580z00zz__r4_ports_6_10_1z00,
														BgL_bufinfoz00_93);
												}
										}
								}
						}
					BgL_bufz00_2853 = BgL_res2045z00_2858;
				}
				return bgl_open_input_procedure(BgL_procz00_92, BgL_bufz00_2853);
			}
		}

	}



/* _open-input-gzip-port */
	obj_t BGl__openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00(obj_t
		BgL_env1281z00_99, obj_t BgL_opt1280z00_98)
	{
		{	/* Ieee/port.scm 1172 */
			{	/* Ieee/port.scm 1172 */
				obj_t BgL_g1282z00_1839;

				{
					obj_t BgL_auxz00_6218;

					if (VECTORP(BgL_opt1280z00_98))
						{	/* Ieee/port.scm 1172 */
							BgL_auxz00_6218 = BgL_opt1280z00_98;
						}
					else
						{
							obj_t BgL_auxz00_6221;

							BgL_auxz00_6221 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52033L),
								BGl_string2625z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1280z00_98);
							FAILURE(BgL_auxz00_6221, BFALSE, BFALSE);
						}
					BgL_g1282z00_1839 = VECTOR_REF(BgL_auxz00_6218, 0L);
				}
				{	/* Ieee/port.scm 1172 */
					long BgL_aux1284z00_1841;

					{
						obj_t BgL_auxz00_6226;

						if (VECTORP(BgL_opt1280z00_98))
							{	/* Ieee/port.scm 1172 */
								BgL_auxz00_6226 = BgL_opt1280z00_98;
							}
						else
							{
								obj_t BgL_auxz00_6229;

								BgL_auxz00_6229 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52033L),
									BGl_string2625z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1280z00_98);
								FAILURE(BgL_auxz00_6229, BFALSE, BFALSE);
							}
						BgL_aux1284z00_1841 = VECTOR_LENGTH(BgL_auxz00_6226);
					}
					switch (BgL_aux1284z00_1841)
						{
						case 1L:

							{	/* Ieee/port.scm 1172 */

								{	/* Ieee/port.scm 1172 */
									obj_t BgL_inz00_2859;

									if (INPUT_PORTP(BgL_g1282z00_1839))
										{	/* Ieee/port.scm 1172 */
											BgL_inz00_2859 = BgL_g1282z00_1839;
										}
									else
										{
											obj_t BgL_auxz00_6236;

											BgL_auxz00_6236 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52033L),
												BGl_string2625z00zz__r4_ports_6_10_1z00,
												BGl_string2553z00zz__r4_ports_6_10_1z00,
												BgL_g1282z00_1839);
											FAILURE(BgL_auxz00_6236, BFALSE, BFALSE);
										}
									return
										BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7
										(BgL_inz00_2859,
										BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
										(BGl_string2626z00zz__r4_ports_6_10_1z00, BTRUE,
											(int) (default_io_bufsiz)));
							}} break;
						case 2L:

							{	/* Ieee/port.scm 1172 */
								obj_t BgL_bufinfoz00_1843;

								{
									obj_t BgL_auxz00_6243;

									if (VECTORP(BgL_opt1280z00_98))
										{	/* Ieee/port.scm 1172 */
											BgL_auxz00_6243 = BgL_opt1280z00_98;
										}
									else
										{
											obj_t BgL_auxz00_6246;

											BgL_auxz00_6246 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52033L),
												BGl_string2625z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1280z00_98);
											FAILURE(BgL_auxz00_6246, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1843 = VECTOR_REF(BgL_auxz00_6243, 1L);
								}
								{	/* Ieee/port.scm 1172 */

									{	/* Ieee/port.scm 1172 */
										obj_t BgL_inz00_2861;

										if (INPUT_PORTP(BgL_g1282z00_1839))
											{	/* Ieee/port.scm 1172 */
												BgL_inz00_2861 = BgL_g1282z00_1839;
											}
										else
											{
												obj_t BgL_auxz00_6253;

												BgL_auxz00_6253 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(52033L), BGl_string2625z00zz__r4_ports_6_10_1z00,
													BGl_string2553z00zz__r4_ports_6_10_1z00,
													BgL_g1282z00_1839);
												FAILURE(BgL_auxz00_6253, BFALSE, BFALSE);
											}
										return
											BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7
											(BgL_inz00_2861,
											BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
											(BGl_string2626z00zz__r4_ports_6_10_1z00,
												BgL_bufinfoz00_1843, (int) (default_io_bufsiz)));
							}}} break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-gzip-port */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00(obj_t
		BgL_inz00_96, obj_t BgL_bufinfoz00_97)
	{
		{	/* Ieee/port.scm 1172 */
			{	/* Ieee/port.scm 1173 */
				obj_t BgL_bufz00_2863;

				{	/* Ieee/port.scm 1173 */
					obj_t BgL_res2046z00_2869;

					{	/* Ieee/port.scm 1173 */
						int BgL_defsiza7za7_2864;

						BgL_defsiza7za7_2864 = (int) (default_io_bufsiz);
						if ((BgL_bufinfoz00_97 == BTRUE))
							{	/* Ieee/port.scm 974 */
								BgL_res2046z00_2869 =
									make_string_sans_fill((long) (BgL_defsiza7za7_2864));
							}
						else
							{	/* Ieee/port.scm 974 */
								if ((BgL_bufinfoz00_97 == BFALSE))
									{	/* Ieee/port.scm 976 */
										BgL_res2046z00_2869 = make_string_sans_fill(2L);
									}
								else
									{	/* Ieee/port.scm 976 */
										if (STRINGP(BgL_bufinfoz00_97))
											{	/* Ieee/port.scm 978 */
												BgL_res2046z00_2869 = BgL_bufinfoz00_97;
											}
										else
											{	/* Ieee/port.scm 978 */
												if (INTEGERP(BgL_bufinfoz00_97))
													{	/* Ieee/port.scm 980 */
														if (((long) CINT(BgL_bufinfoz00_97) >= 2L))
															{	/* Ieee/port.scm 981 */
																BgL_res2046z00_2869 =
																	make_string_sans_fill(
																	(long) CINT(BgL_bufinfoz00_97));
															}
														else
															{	/* Ieee/port.scm 981 */
																BgL_res2046z00_2869 = make_string_sans_fill(2L);
															}
													}
												else
													{	/* Ieee/port.scm 980 */
														BgL_res2046z00_2869 =
															BGl_errorz00zz__errorz00
															(BGl_string2626z00zz__r4_ports_6_10_1z00,
															BGl_string2580z00zz__r4_ports_6_10_1z00,
															BgL_bufinfoz00_97);
													}
											}
									}
							}
					}
					BgL_bufz00_2863 = BgL_res2046z00_2869;
				}
				BGL_TAIL return
					BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7(BgL_inz00_96,
					BgL_bufz00_2863);
			}
		}

	}



/* open-input-c-string */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_100)
	{
		{	/* Ieee/port.scm 1179 */
			BGL_TAIL return bgl_open_input_c_string(BgL_stringz00_100);
		}

	}



/* &open-input-c-string */
	obj_t BGl_z62openzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3635, obj_t BgL_stringz00_3636)
	{
		{	/* Ieee/port.scm 1179 */
			{	/* Ieee/port.scm 1180 */
				char *BgL_auxz00_6282;

				{	/* Ieee/port.scm 1180 */
					obj_t BgL_tmpz00_6283;

					if (STRINGP(BgL_stringz00_3636))
						{	/* Ieee/port.scm 1180 */
							BgL_tmpz00_6283 = BgL_stringz00_3636;
						}
					else
						{
							obj_t BgL_auxz00_6286;

							BgL_auxz00_6286 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52491L),
								BGl_string2627z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3636);
							FAILURE(BgL_auxz00_6286, BFALSE, BFALSE);
						}
					BgL_auxz00_6282 = BSTRING_TO_STRING(BgL_tmpz00_6283);
				}
				return
					BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_6282);
			}
		}

	}



/* reopen-input-c-string */
	BGL_EXPORTED_DEF obj_t
		BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_101, char *BgL_stringz00_102)
	{
		{	/* Ieee/port.scm 1185 */
			BGL_TAIL return
				bgl_reopen_input_c_string(BgL_portz00_101, BgL_stringz00_102);
		}

	}



/* &reopen-input-c-string */
	obj_t BGl_z62reopenzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3637, obj_t BgL_portz00_3638, obj_t BgL_stringz00_3639)
	{
		{	/* Ieee/port.scm 1185 */
			{	/* Ieee/port.scm 1186 */
				char *BgL_auxz00_6300;
				obj_t BgL_auxz00_6293;

				{	/* Ieee/port.scm 1186 */
					obj_t BgL_tmpz00_6301;

					if (STRINGP(BgL_stringz00_3639))
						{	/* Ieee/port.scm 1186 */
							BgL_tmpz00_6301 = BgL_stringz00_3639;
						}
					else
						{
							obj_t BgL_auxz00_6304;

							BgL_auxz00_6304 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52811L),
								BGl_string2628z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3639);
							FAILURE(BgL_auxz00_6304, BFALSE, BFALSE);
						}
					BgL_auxz00_6300 = BSTRING_TO_STRING(BgL_tmpz00_6301);
				}
				if (INPUT_PORTP(BgL_portz00_3638))
					{	/* Ieee/port.scm 1186 */
						BgL_auxz00_6293 = BgL_portz00_3638;
					}
				else
					{
						obj_t BgL_auxz00_6296;

						BgL_auxz00_6296 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(52811L),
							BGl_string2628z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3638);
						FAILURE(BgL_auxz00_6296, BFALSE, BFALSE);
					}
				return
					BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_6293, BgL_auxz00_6300);
			}
		}

	}



/* input-port-timeout */
	BGL_EXPORTED_DEF long
		BGl_inputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_103)
	{
		{	/* Ieee/port.scm 1191 */
			BGL_TAIL return bgl_input_port_timeout(BgL_portz00_103);
		}

	}



/* &input-port-timeout */
	obj_t BGl_z62inputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3640, obj_t BgL_portz00_3641)
	{
		{	/* Ieee/port.scm 1191 */
			{	/* Ieee/port.scm 1192 */
				long BgL_tmpz00_6311;

				{	/* Ieee/port.scm 1192 */
					obj_t BgL_auxz00_6312;

					if (INPUT_PORTP(BgL_portz00_3641))
						{	/* Ieee/port.scm 1192 */
							BgL_auxz00_6312 = BgL_portz00_3641;
						}
					else
						{
							obj_t BgL_auxz00_6315;

							BgL_auxz00_6315 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(53134L),
								BGl_string2629z00zz__r4_ports_6_10_1z00,
								BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3641);
							FAILURE(BgL_auxz00_6315, BFALSE, BFALSE);
						}
					BgL_tmpz00_6311 =
						BGl_inputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00
						(BgL_auxz00_6312);
				}
				return BINT(BgL_tmpz00_6311);
			}
		}

	}



/* input-port-timeout-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_104, long BgL_timeoutz00_105)
	{
		{	/* Ieee/port.scm 1197 */
			return
				BBOOL(bgl_input_port_timeout_set(BgL_portz00_104, BgL_timeoutz00_105));
		}

	}



/* &input-port-timeout-set! */
	obj_t BGl_z62inputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3642, obj_t BgL_portz00_3643, obj_t BgL_timeoutz00_3644)
	{
		{	/* Ieee/port.scm 1197 */
			{	/* Ieee/port.scm 1198 */
				long BgL_auxz00_6330;
				obj_t BgL_auxz00_6323;

				{	/* Ieee/port.scm 1198 */
					obj_t BgL_tmpz00_6331;

					if (INTEGERP(BgL_timeoutz00_3644))
						{	/* Ieee/port.scm 1198 */
							BgL_tmpz00_6331 = BgL_timeoutz00_3644;
						}
					else
						{
							obj_t BgL_auxz00_6334;

							BgL_auxz00_6334 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(53460L),
								BGl_string2630z00zz__r4_ports_6_10_1z00,
								BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_timeoutz00_3644);
							FAILURE(BgL_auxz00_6334, BFALSE, BFALSE);
						}
					BgL_auxz00_6330 = (long) CINT(BgL_tmpz00_6331);
				}
				if (INPUT_PORTP(BgL_portz00_3643))
					{	/* Ieee/port.scm 1198 */
						BgL_auxz00_6323 = BgL_portz00_3643;
					}
				else
					{
						obj_t BgL_auxz00_6326;

						BgL_auxz00_6326 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(53460L),
							BGl_string2630z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3643);
						FAILURE(BgL_auxz00_6326, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_6323, BgL_auxz00_6330);
			}
		}

	}



/* output-port-timeout */
	BGL_EXPORTED_DEF long
		BGl_outputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_106)
	{
		{	/* Ieee/port.scm 1203 */
			BGL_TAIL return bgl_output_port_timeout(BgL_portz00_106);
		}

	}



/* &output-port-timeout */
	obj_t BGl_z62outputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3645, obj_t BgL_portz00_3646)
	{
		{	/* Ieee/port.scm 1203 */
			{	/* Ieee/port.scm 1204 */
				long BgL_tmpz00_6341;

				{	/* Ieee/port.scm 1204 */
					obj_t BgL_auxz00_6342;

					if (OUTPUT_PORTP(BgL_portz00_3646))
						{	/* Ieee/port.scm 1204 */
							BgL_auxz00_6342 = BgL_portz00_3646;
						}
					else
						{
							obj_t BgL_auxz00_6345;

							BgL_auxz00_6345 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(53788L),
								BGl_string2631z00zz__r4_ports_6_10_1z00,
								BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3646);
							FAILURE(BgL_auxz00_6345, BFALSE, BFALSE);
						}
					BgL_tmpz00_6341 =
						BGl_outputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00
						(BgL_auxz00_6342);
				}
				return BINT(BgL_tmpz00_6341);
			}
		}

	}



/* _open-output-file */
	obj_t BGl__openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1286z00_110, obj_t BgL_opt1285z00_109)
	{
		{	/* Ieee/port.scm 1209 */
			{	/* Ieee/port.scm 1209 */
				obj_t BgL_g1287z00_1845;

				{
					obj_t BgL_auxz00_6351;

					if (VECTORP(BgL_opt1285z00_109))
						{	/* Ieee/port.scm 1209 */
							BgL_auxz00_6351 = BgL_opt1285z00_109;
						}
					else
						{
							obj_t BgL_auxz00_6354;

							BgL_auxz00_6354 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54040L),
								BGl_string2632z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1285z00_109);
							FAILURE(BgL_auxz00_6354, BFALSE, BFALSE);
						}
					BgL_g1287z00_1845 = VECTOR_REF(BgL_auxz00_6351, 0L);
				}
				{	/* Ieee/port.scm 1209 */
					long BgL_aux1289z00_1847;

					{
						obj_t BgL_auxz00_6359;

						if (VECTORP(BgL_opt1285z00_109))
							{	/* Ieee/port.scm 1209 */
								BgL_auxz00_6359 = BgL_opt1285z00_109;
							}
						else
							{
								obj_t BgL_auxz00_6362;

								BgL_auxz00_6362 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54040L),
									BGl_string2632z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1285z00_109);
								FAILURE(BgL_auxz00_6362, BFALSE, BFALSE);
							}
						BgL_aux1289z00_1847 = VECTOR_LENGTH(BgL_auxz00_6359);
					}
					switch (BgL_aux1289z00_1847)
						{
						case 1L:

							{	/* Ieee/port.scm 1209 */

								{	/* Ieee/port.scm 1209 */
									obj_t BgL_stringz00_2870;

									if (STRINGP(BgL_g1287z00_1845))
										{	/* Ieee/port.scm 1209 */
											BgL_stringz00_2870 = BgL_g1287z00_1845;
										}
									else
										{
											obj_t BgL_auxz00_6369;

											BgL_auxz00_6369 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54040L),
												BGl_string2632z00zz__r4_ports_6_10_1z00,
												BGl_string2540z00zz__r4_ports_6_10_1z00,
												BgL_g1287z00_1845);
											FAILURE(BgL_auxz00_6369, BFALSE, BFALSE);
										}
									return
										bgl_open_output_file(BgL_stringz00_2870,
										BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
										(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE,
											(int) (default_io_bufsiz)));
							}} break;
						case 2L:

							{	/* Ieee/port.scm 1209 */
								obj_t BgL_bufinfoz00_1849;

								{
									obj_t BgL_auxz00_6376;

									if (VECTORP(BgL_opt1285z00_109))
										{	/* Ieee/port.scm 1209 */
											BgL_auxz00_6376 = BgL_opt1285z00_109;
										}
									else
										{
											obj_t BgL_auxz00_6379;

											BgL_auxz00_6379 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54040L),
												BGl_string2632z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1285z00_109);
											FAILURE(BgL_auxz00_6379, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1849 = VECTOR_REF(BgL_auxz00_6376, 1L);
								}
								{	/* Ieee/port.scm 1209 */

									{	/* Ieee/port.scm 1209 */
										obj_t BgL_stringz00_2872;

										if (STRINGP(BgL_g1287z00_1845))
											{	/* Ieee/port.scm 1209 */
												BgL_stringz00_2872 = BgL_g1287z00_1845;
											}
										else
											{
												obj_t BgL_auxz00_6386;

												BgL_auxz00_6386 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(54040L), BGl_string2632z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_g1287z00_1845);
												FAILURE(BgL_auxz00_6386, BFALSE, BFALSE);
											}
										return
											bgl_open_output_file(BgL_stringz00_2872,
											BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
											(BGl_string2543z00zz__r4_ports_6_10_1z00,
												BgL_bufinfoz00_1849, (int) (default_io_bufsiz)));
							}}} break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-output-file */
	BGL_EXPORTED_DEF obj_t BGl_openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_107, obj_t BgL_bufinfoz00_108)
	{
		{	/* Ieee/port.scm 1209 */
			{	/* Ieee/port.scm 1210 */
				obj_t BgL_bufz00_2874;

				{	/* Ieee/port.scm 1210 */
					obj_t BgL_res2047z00_2880;

					{	/* Ieee/port.scm 1210 */
						int BgL_defsiza7za7_2875;

						BgL_defsiza7za7_2875 = (int) (default_io_bufsiz);
						if ((BgL_bufinfoz00_108 == BTRUE))
							{	/* Ieee/port.scm 974 */
								BgL_res2047z00_2880 =
									make_string_sans_fill((long) (BgL_defsiza7za7_2875));
							}
						else
							{	/* Ieee/port.scm 974 */
								if ((BgL_bufinfoz00_108 == BFALSE))
									{	/* Ieee/port.scm 976 */
										BgL_res2047z00_2880 = make_string_sans_fill(2L);
									}
								else
									{	/* Ieee/port.scm 976 */
										if (STRINGP(BgL_bufinfoz00_108))
											{	/* Ieee/port.scm 978 */
												BgL_res2047z00_2880 = BgL_bufinfoz00_108;
											}
										else
											{	/* Ieee/port.scm 978 */
												if (INTEGERP(BgL_bufinfoz00_108))
													{	/* Ieee/port.scm 980 */
														if (((long) CINT(BgL_bufinfoz00_108) >= 2L))
															{	/* Ieee/port.scm 981 */
																BgL_res2047z00_2880 =
																	make_string_sans_fill(
																	(long) CINT(BgL_bufinfoz00_108));
															}
														else
															{	/* Ieee/port.scm 981 */
																BgL_res2047z00_2880 = make_string_sans_fill(2L);
															}
													}
												else
													{	/* Ieee/port.scm 980 */
														BgL_res2047z00_2880 =
															BGl_errorz00zz__errorz00
															(BGl_string2543z00zz__r4_ports_6_10_1z00,
															BGl_string2580z00zz__r4_ports_6_10_1z00,
															BgL_bufinfoz00_108);
													}
											}
									}
							}
					}
					BgL_bufz00_2874 = BgL_res2047z00_2880;
				}
				return bgl_open_output_file(BgL_stringz00_107, BgL_bufz00_2874);
			}
		}

	}



/* _append-output-file */
	obj_t BGl__appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1291z00_114, obj_t BgL_opt1290z00_113)
	{
		{	/* Ieee/port.scm 1216 */
			{	/* Ieee/port.scm 1216 */
				obj_t BgL_g1292z00_1851;

				{
					obj_t BgL_auxz00_6414;

					if (VECTORP(BgL_opt1290z00_113))
						{	/* Ieee/port.scm 1216 */
							BgL_auxz00_6414 = BgL_opt1290z00_113;
						}
					else
						{
							obj_t BgL_auxz00_6417;

							BgL_auxz00_6417 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54441L),
								BGl_string2633z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1290z00_113);
							FAILURE(BgL_auxz00_6417, BFALSE, BFALSE);
						}
					BgL_g1292z00_1851 = VECTOR_REF(BgL_auxz00_6414, 0L);
				}
				{	/* Ieee/port.scm 1216 */
					long BgL_aux1294z00_1853;

					{
						obj_t BgL_auxz00_6422;

						if (VECTORP(BgL_opt1290z00_113))
							{	/* Ieee/port.scm 1216 */
								BgL_auxz00_6422 = BgL_opt1290z00_113;
							}
						else
							{
								obj_t BgL_auxz00_6425;

								BgL_auxz00_6425 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54441L),
									BGl_string2633z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1290z00_113);
								FAILURE(BgL_auxz00_6425, BFALSE, BFALSE);
							}
						BgL_aux1294z00_1853 = VECTOR_LENGTH(BgL_auxz00_6422);
					}
					switch (BgL_aux1294z00_1853)
						{
						case 1L:

							{	/* Ieee/port.scm 1216 */

								{	/* Ieee/port.scm 1216 */
									obj_t BgL_stringz00_2881;

									if (STRINGP(BgL_g1292z00_1851))
										{	/* Ieee/port.scm 1216 */
											BgL_stringz00_2881 = BgL_g1292z00_1851;
										}
									else
										{
											obj_t BgL_auxz00_6432;

											BgL_auxz00_6432 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54441L),
												BGl_string2633z00zz__r4_ports_6_10_1z00,
												BGl_string2540z00zz__r4_ports_6_10_1z00,
												BgL_g1292z00_1851);
											FAILURE(BgL_auxz00_6432, BFALSE, BFALSE);
										}
									return
										bgl_append_output_file(BgL_stringz00_2881,
										BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
										(BGl_string2546z00zz__r4_ports_6_10_1z00, BTRUE,
											(int) (default_io_bufsiz)));
							}} break;
						case 2L:

							{	/* Ieee/port.scm 1216 */
								obj_t BgL_bufinfoz00_1855;

								{
									obj_t BgL_auxz00_6439;

									if (VECTORP(BgL_opt1290z00_113))
										{	/* Ieee/port.scm 1216 */
											BgL_auxz00_6439 = BgL_opt1290z00_113;
										}
									else
										{
											obj_t BgL_auxz00_6442;

											BgL_auxz00_6442 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54441L),
												BGl_string2633z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1290z00_113);
											FAILURE(BgL_auxz00_6442, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1855 = VECTOR_REF(BgL_auxz00_6439, 1L);
								}
								{	/* Ieee/port.scm 1216 */

									{	/* Ieee/port.scm 1216 */
										obj_t BgL_stringz00_2883;

										if (STRINGP(BgL_g1292z00_1851))
											{	/* Ieee/port.scm 1216 */
												BgL_stringz00_2883 = BgL_g1292z00_1851;
											}
										else
											{
												obj_t BgL_auxz00_6449;

												BgL_auxz00_6449 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(54441L), BGl_string2633z00zz__r4_ports_6_10_1z00,
													BGl_string2540z00zz__r4_ports_6_10_1z00,
													BgL_g1292z00_1851);
												FAILURE(BgL_auxz00_6449, BFALSE, BFALSE);
											}
										return
											bgl_append_output_file(BgL_stringz00_2883,
											BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
											(BGl_string2546z00zz__r4_ports_6_10_1z00,
												BgL_bufinfoz00_1855, (int) (default_io_bufsiz)));
							}}} break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* append-output-file */
	BGL_EXPORTED_DEF obj_t
		BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_111,
		obj_t BgL_bufinfoz00_112)
	{
		{	/* Ieee/port.scm 1216 */
			{	/* Ieee/port.scm 1217 */
				obj_t BgL_bufz00_2885;

				{	/* Ieee/port.scm 1217 */
					obj_t BgL_res2048z00_2891;

					{	/* Ieee/port.scm 1217 */
						int BgL_defsiza7za7_2886;

						BgL_defsiza7za7_2886 = (int) (default_io_bufsiz);
						if ((BgL_bufinfoz00_112 == BTRUE))
							{	/* Ieee/port.scm 974 */
								BgL_res2048z00_2891 =
									make_string_sans_fill((long) (BgL_defsiza7za7_2886));
							}
						else
							{	/* Ieee/port.scm 974 */
								if ((BgL_bufinfoz00_112 == BFALSE))
									{	/* Ieee/port.scm 976 */
										BgL_res2048z00_2891 = make_string_sans_fill(2L);
									}
								else
									{	/* Ieee/port.scm 976 */
										if (STRINGP(BgL_bufinfoz00_112))
											{	/* Ieee/port.scm 978 */
												BgL_res2048z00_2891 = BgL_bufinfoz00_112;
											}
										else
											{	/* Ieee/port.scm 978 */
												if (INTEGERP(BgL_bufinfoz00_112))
													{	/* Ieee/port.scm 980 */
														if (((long) CINT(BgL_bufinfoz00_112) >= 2L))
															{	/* Ieee/port.scm 981 */
																BgL_res2048z00_2891 =
																	make_string_sans_fill(
																	(long) CINT(BgL_bufinfoz00_112));
															}
														else
															{	/* Ieee/port.scm 981 */
																BgL_res2048z00_2891 = make_string_sans_fill(2L);
															}
													}
												else
													{	/* Ieee/port.scm 980 */
														BgL_res2048z00_2891 =
															BGl_errorz00zz__errorz00
															(BGl_string2546z00zz__r4_ports_6_10_1z00,
															BGl_string2580z00zz__r4_ports_6_10_1z00,
															BgL_bufinfoz00_112);
													}
											}
									}
							}
					}
					BgL_bufz00_2885 = BgL_res2048z00_2891;
				}
				return bgl_append_output_file(BgL_stringz00_111, BgL_bufz00_2885);
			}
		}

	}



/* _open-output-string */
	obj_t BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1296z00_117, obj_t BgL_opt1295z00_116)
	{
		{	/* Ieee/port.scm 1223 */
			{	/* Ieee/port.scm 1223 */

				{	/* Ieee/port.scm 1223 */
					long BgL_aux1298z00_1858;

					{
						obj_t BgL_auxz00_6477;

						if (VECTORP(BgL_opt1295z00_116))
							{	/* Ieee/port.scm 1223 */
								BgL_auxz00_6477 = BgL_opt1295z00_116;
							}
						else
							{
								obj_t BgL_auxz00_6480;

								BgL_auxz00_6480 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54848L),
									BGl_string2634z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1295z00_116);
								FAILURE(BgL_auxz00_6480, BFALSE, BFALSE);
							}
						BgL_aux1298z00_1858 = VECTOR_LENGTH(BgL_auxz00_6477);
					}
					switch (BgL_aux1298z00_1858)
						{
						case 0L:

							{	/* Ieee/port.scm 1223 */

								return
									bgl_open_output_string
									(BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
									(BGl_string2543z00zz__r4_ports_6_10_1z00, BTRUE,
										(int) (128L)));
							} break;
						case 1L:

							{	/* Ieee/port.scm 1223 */
								obj_t BgL_bufinfoz00_1860;

								{
									obj_t BgL_auxz00_6488;

									if (VECTORP(BgL_opt1295z00_116))
										{	/* Ieee/port.scm 1223 */
											BgL_auxz00_6488 = BgL_opt1295z00_116;
										}
									else
										{
											obj_t BgL_auxz00_6491;

											BgL_auxz00_6491 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(54848L),
												BGl_string2634z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1295z00_116);
											FAILURE(BgL_auxz00_6491, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_1860 = VECTOR_REF(BgL_auxz00_6488, 0L);
								}
								{	/* Ieee/port.scm 1223 */

									return
										bgl_open_output_string
										(BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00
										(BGl_string2543z00zz__r4_ports_6_10_1z00,
											BgL_bufinfoz00_1860, (int) (128L)));
							}} break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-output-string */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t
		BgL_bufinfoz00_115)
	{
		{	/* Ieee/port.scm 1223 */
			{	/* Ieee/port.scm 1224 */
				obj_t BgL_bufz00_2894;

				{	/* Ieee/port.scm 1224 */
					obj_t BgL_res2049z00_2899;

					if ((BgL_bufinfoz00_115 == BTRUE))
						{	/* Ieee/port.scm 974 */
							BgL_res2049z00_2899 = make_string_sans_fill(128L);
						}
					else
						{	/* Ieee/port.scm 974 */
							if ((BgL_bufinfoz00_115 == BFALSE))
								{	/* Ieee/port.scm 976 */
									BgL_res2049z00_2899 = make_string_sans_fill(2L);
								}
							else
								{	/* Ieee/port.scm 976 */
									if (STRINGP(BgL_bufinfoz00_115))
										{	/* Ieee/port.scm 978 */
											BgL_res2049z00_2899 = BgL_bufinfoz00_115;
										}
									else
										{	/* Ieee/port.scm 978 */
											if (INTEGERP(BgL_bufinfoz00_115))
												{	/* Ieee/port.scm 980 */
													if (((long) CINT(BgL_bufinfoz00_115) >= 2L))
														{	/* Ieee/port.scm 981 */
															BgL_res2049z00_2899 =
																make_string_sans_fill(
																(long) CINT(BgL_bufinfoz00_115));
														}
													else
														{	/* Ieee/port.scm 981 */
															BgL_res2049z00_2899 = make_string_sans_fill(2L);
														}
												}
											else
												{	/* Ieee/port.scm 980 */
													BgL_res2049z00_2899 =
														BGl_errorz00zz__errorz00
														(BGl_string2543z00zz__r4_ports_6_10_1z00,
														BGl_string2580z00zz__r4_ports_6_10_1z00,
														BgL_bufinfoz00_115);
												}
										}
								}
						}
					BgL_bufz00_2894 = BgL_res2049z00_2899;
				}
				return bgl_open_output_string(BgL_bufz00_2894);
			}
		}

	}



/* _open-output-procedure */
	obj_t BGl__openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t
		BgL_env1300z00_123, obj_t BgL_opt1299z00_122)
	{
		{	/* Ieee/port.scm 1230 */
			{	/* Ieee/port.scm 1230 */
				obj_t BgL_g1301z00_1862;

				{
					obj_t BgL_auxz00_6518;

					if (VECTORP(BgL_opt1299z00_122))
						{	/* Ieee/port.scm 1230 */
							BgL_auxz00_6518 = BgL_opt1299z00_122;
						}
					else
						{
							obj_t BgL_auxz00_6521;

							BgL_auxz00_6521 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(55223L),
								BGl_string2635z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1299z00_122);
							FAILURE(BgL_auxz00_6521, BFALSE, BFALSE);
						}
					BgL_g1301z00_1862 = VECTOR_REF(BgL_auxz00_6518, 0L);
				}
				{	/* Ieee/port.scm 1230 */
					long BgL_aux1303z00_1864;

					{
						obj_t BgL_auxz00_6526;

						if (VECTORP(BgL_opt1299z00_122))
							{	/* Ieee/port.scm 1230 */
								BgL_auxz00_6526 = BgL_opt1299z00_122;
							}
						else
							{
								obj_t BgL_auxz00_6529;

								BgL_auxz00_6529 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(55223L),
									BGl_string2635z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1299z00_122);
								FAILURE(BgL_auxz00_6529, BFALSE, BFALSE);
							}
						BgL_aux1303z00_1864 = VECTOR_LENGTH(BgL_auxz00_6526);
					}
					switch (BgL_aux1303z00_1864)
						{
						case 1L:

							{	/* Ieee/port.scm 1230 */

								{	/* Ieee/port.scm 1230 */
									obj_t BgL_auxz00_6534;

									if (PROCEDUREP(BgL_g1301z00_1862))
										{	/* Ieee/port.scm 1230 */
											BgL_auxz00_6534 = BgL_g1301z00_1862;
										}
									else
										{
											obj_t BgL_auxz00_6537;

											BgL_auxz00_6537 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(55223L),
												BGl_string2635z00zz__r4_ports_6_10_1z00,
												BGl_string2541z00zz__r4_ports_6_10_1z00,
												BgL_g1301z00_1862);
											FAILURE(BgL_auxz00_6537, BFALSE, BFALSE);
										}
									return
										BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00
										(BgL_auxz00_6534, BGl_proc2636z00zz__r4_ports_6_10_1z00,
										BTRUE, BGl_proc2637z00zz__r4_ports_6_10_1z00);
								}
							}
							break;
						case 2L:

							{	/* Ieee/port.scm 1230 */
								obj_t BgL_flushz00_1872;

								{
									obj_t BgL_auxz00_6542;

									if (VECTORP(BgL_opt1299z00_122))
										{	/* Ieee/port.scm 1230 */
											BgL_auxz00_6542 = BgL_opt1299z00_122;
										}
									else
										{
											obj_t BgL_auxz00_6545;

											BgL_auxz00_6545 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(55223L),
												BGl_string2635z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1299z00_122);
											FAILURE(BgL_auxz00_6545, BFALSE, BFALSE);
										}
									BgL_flushz00_1872 = VECTOR_REF(BgL_auxz00_6542, 1L);
								}
								{	/* Ieee/port.scm 1230 */

									{	/* Ieee/port.scm 1230 */
										obj_t BgL_auxz00_6557;
										obj_t BgL_auxz00_6550;

										if (PROCEDUREP(BgL_flushz00_1872))
											{	/* Ieee/port.scm 1230 */
												BgL_auxz00_6557 = BgL_flushz00_1872;
											}
										else
											{
												obj_t BgL_auxz00_6560;

												BgL_auxz00_6560 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(55223L), BGl_string2635z00zz__r4_ports_6_10_1z00,
													BGl_string2541z00zz__r4_ports_6_10_1z00,
													BgL_flushz00_1872);
												FAILURE(BgL_auxz00_6560, BFALSE, BFALSE);
											}
										if (PROCEDUREP(BgL_g1301z00_1862))
											{	/* Ieee/port.scm 1230 */
												BgL_auxz00_6550 = BgL_g1301z00_1862;
											}
										else
											{
												obj_t BgL_auxz00_6553;

												BgL_auxz00_6553 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(55223L), BGl_string2635z00zz__r4_ports_6_10_1z00,
													BGl_string2541z00zz__r4_ports_6_10_1z00,
													BgL_g1301z00_1862);
												FAILURE(BgL_auxz00_6553, BFALSE, BFALSE);
											}
										return
											BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00
											(BgL_auxz00_6550, BgL_auxz00_6557, BTRUE,
											BGl_proc2638z00zz__r4_ports_6_10_1z00);
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/port.scm 1230 */
								obj_t BgL_flushz00_1877;

								{
									obj_t BgL_auxz00_6565;

									if (VECTORP(BgL_opt1299z00_122))
										{	/* Ieee/port.scm 1230 */
											BgL_auxz00_6565 = BgL_opt1299z00_122;
										}
									else
										{
											obj_t BgL_auxz00_6568;

											BgL_auxz00_6568 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(55223L),
												BGl_string2635z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1299z00_122);
											FAILURE(BgL_auxz00_6568, BFALSE, BFALSE);
										}
									BgL_flushz00_1877 = VECTOR_REF(BgL_auxz00_6565, 1L);
								}
								{	/* Ieee/port.scm 1230 */
									obj_t BgL_bufinfoz00_1878;

									{
										obj_t BgL_auxz00_6573;

										if (VECTORP(BgL_opt1299z00_122))
											{	/* Ieee/port.scm 1230 */
												BgL_auxz00_6573 = BgL_opt1299z00_122;
											}
										else
											{
												obj_t BgL_auxz00_6576;

												BgL_auxz00_6576 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(55223L), BGl_string2635z00zz__r4_ports_6_10_1z00,
													BGl_string2611z00zz__r4_ports_6_10_1z00,
													BgL_opt1299z00_122);
												FAILURE(BgL_auxz00_6576, BFALSE, BFALSE);
											}
										BgL_bufinfoz00_1878 = VECTOR_REF(BgL_auxz00_6573, 2L);
									}
									{	/* Ieee/port.scm 1230 */

										{	/* Ieee/port.scm 1230 */
											obj_t BgL_auxz00_6588;
											obj_t BgL_auxz00_6581;

											if (PROCEDUREP(BgL_flushz00_1877))
												{	/* Ieee/port.scm 1230 */
													BgL_auxz00_6588 = BgL_flushz00_1877;
												}
											else
												{
													obj_t BgL_auxz00_6591;

													BgL_auxz00_6591 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(55223L),
														BGl_string2635z00zz__r4_ports_6_10_1z00,
														BGl_string2541z00zz__r4_ports_6_10_1z00,
														BgL_flushz00_1877);
													FAILURE(BgL_auxz00_6591, BFALSE, BFALSE);
												}
											if (PROCEDUREP(BgL_g1301z00_1862))
												{	/* Ieee/port.scm 1230 */
													BgL_auxz00_6581 = BgL_g1301z00_1862;
												}
											else
												{
													obj_t BgL_auxz00_6584;

													BgL_auxz00_6584 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(55223L),
														BGl_string2635z00zz__r4_ports_6_10_1z00,
														BGl_string2541z00zz__r4_ports_6_10_1z00,
														BgL_g1301z00_1862);
													FAILURE(BgL_auxz00_6584, BFALSE, BFALSE);
												}
											return
												BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00
												(BgL_auxz00_6581, BgL_auxz00_6588, BgL_bufinfoz00_1878,
												BGl_proc2639z00zz__r4_ports_6_10_1z00);
										}
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/port.scm 1230 */
								obj_t BgL_flushz00_1882;

								{
									obj_t BgL_auxz00_6596;

									if (VECTORP(BgL_opt1299z00_122))
										{	/* Ieee/port.scm 1230 */
											BgL_auxz00_6596 = BgL_opt1299z00_122;
										}
									else
										{
											obj_t BgL_auxz00_6599;

											BgL_auxz00_6599 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(55223L),
												BGl_string2635z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1299z00_122);
											FAILURE(BgL_auxz00_6599, BFALSE, BFALSE);
										}
									BgL_flushz00_1882 = VECTOR_REF(BgL_auxz00_6596, 1L);
								}
								{	/* Ieee/port.scm 1230 */
									obj_t BgL_bufinfoz00_1883;

									{
										obj_t BgL_auxz00_6604;

										if (VECTORP(BgL_opt1299z00_122))
											{	/* Ieee/port.scm 1230 */
												BgL_auxz00_6604 = BgL_opt1299z00_122;
											}
										else
											{
												obj_t BgL_auxz00_6607;

												BgL_auxz00_6607 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(55223L), BGl_string2635z00zz__r4_ports_6_10_1z00,
													BGl_string2611z00zz__r4_ports_6_10_1z00,
													BgL_opt1299z00_122);
												FAILURE(BgL_auxz00_6607, BFALSE, BFALSE);
											}
										BgL_bufinfoz00_1883 = VECTOR_REF(BgL_auxz00_6604, 2L);
									}
									{	/* Ieee/port.scm 1230 */
										obj_t BgL_closez00_1884;

										{
											obj_t BgL_auxz00_6612;

											if (VECTORP(BgL_opt1299z00_122))
												{	/* Ieee/port.scm 1230 */
													BgL_auxz00_6612 = BgL_opt1299z00_122;
												}
											else
												{
													obj_t BgL_auxz00_6615;

													BgL_auxz00_6615 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(55223L),
														BGl_string2635z00zz__r4_ports_6_10_1z00,
														BGl_string2611z00zz__r4_ports_6_10_1z00,
														BgL_opt1299z00_122);
													FAILURE(BgL_auxz00_6615, BFALSE, BFALSE);
												}
											BgL_closez00_1884 = VECTOR_REF(BgL_auxz00_6612, 3L);
										}
										{	/* Ieee/port.scm 1230 */

											{	/* Ieee/port.scm 1230 */
												obj_t BgL_auxz00_6634;
												obj_t BgL_auxz00_6627;
												obj_t BgL_auxz00_6620;

												if (PROCEDUREP(BgL_closez00_1884))
													{	/* Ieee/port.scm 1230 */
														BgL_auxz00_6634 = BgL_closez00_1884;
													}
												else
													{
														obj_t BgL_auxz00_6637;

														BgL_auxz00_6637 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2538z00zz__r4_ports_6_10_1z00,
															BINT(55223L),
															BGl_string2635z00zz__r4_ports_6_10_1z00,
															BGl_string2541z00zz__r4_ports_6_10_1z00,
															BgL_closez00_1884);
														FAILURE(BgL_auxz00_6637, BFALSE, BFALSE);
													}
												if (PROCEDUREP(BgL_flushz00_1882))
													{	/* Ieee/port.scm 1230 */
														BgL_auxz00_6627 = BgL_flushz00_1882;
													}
												else
													{
														obj_t BgL_auxz00_6630;

														BgL_auxz00_6630 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2538z00zz__r4_ports_6_10_1z00,
															BINT(55223L),
															BGl_string2635z00zz__r4_ports_6_10_1z00,
															BGl_string2541z00zz__r4_ports_6_10_1z00,
															BgL_flushz00_1882);
														FAILURE(BgL_auxz00_6630, BFALSE, BFALSE);
													}
												if (PROCEDUREP(BgL_g1301z00_1862))
													{	/* Ieee/port.scm 1230 */
														BgL_auxz00_6620 = BgL_g1301z00_1862;
													}
												else
													{
														obj_t BgL_auxz00_6623;

														BgL_auxz00_6623 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2538z00zz__r4_ports_6_10_1z00,
															BINT(55223L),
															BGl_string2635z00zz__r4_ports_6_10_1z00,
															BGl_string2541z00zz__r4_ports_6_10_1z00,
															BgL_g1301z00_1862);
														FAILURE(BgL_auxz00_6623, BFALSE, BFALSE);
													}
												return
													BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00
													(BgL_auxz00_6620, BgL_auxz00_6627,
													BgL_bufinfoz00_1883, BgL_auxz00_6634);
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* &close2075 */
	obj_t BGl_z62close2075z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3651)
	{
		{	/* Ieee/port.scm 1234 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &close2076 */
	obj_t BGl_z62close2076z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3652)
	{
		{	/* Ieee/port.scm 1234 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &close2077 */
	obj_t BGl_z62close2077z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3653)
	{
		{	/* Ieee/port.scm 1234 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &flush2078 */
	obj_t BGl_z62flush2078z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3654)
	{
		{	/* Ieee/port.scm 1232 */
			return BBOOL(((bool_t) 0));
		}

	}



/* open-output-procedure */
	BGL_EXPORTED_DEF obj_t
		BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t
		BgL_procz00_118, obj_t BgL_flushz00_119, obj_t BgL_bufinfoz00_120,
		obj_t BgL_closez00_121)
	{
		{	/* Ieee/port.scm 1230 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_118, (int) (1L)))
				{	/* Ieee/port.scm 1241 */
					bool_t BgL_test3293z00_6650;

					if (PROCEDURE_CORRECT_ARITYP(BgL_flushz00_119, (int) (0L)))
						{	/* Ieee/port.scm 1242 */
							BgL_test3293z00_6650 = ((bool_t) 0);
						}
					else
						{	/* Ieee/port.scm 1242 */
							BgL_test3293z00_6650 = ((bool_t) 1);
						}
					if (BgL_test3293z00_6650)
						{	/* Ieee/port.scm 1241 */
							return
								bgl_system_failure(BGL_IO_PORT_ERROR,
								BGl_string2640z00zz__r4_ports_6_10_1z00,
								BGl_string2641z00zz__r4_ports_6_10_1z00, BgL_flushz00_119);
						}
					else
						{	/* Ieee/port.scm 1247 */
							bool_t BgL_test3295z00_6655;

							if (PROCEDURE_CORRECT_ARITYP(BgL_closez00_121, (int) (0L)))
								{	/* Ieee/port.scm 1248 */
									BgL_test3295z00_6655 = ((bool_t) 0);
								}
							else
								{	/* Ieee/port.scm 1248 */
									BgL_test3295z00_6655 = ((bool_t) 1);
								}
							if (BgL_test3295z00_6655)
								{	/* Ieee/port.scm 1247 */
									return
										bgl_system_failure(BGL_IO_PORT_ERROR,
										BGl_string2640z00zz__r4_ports_6_10_1z00,
										BGl_string2642z00zz__r4_ports_6_10_1z00, BgL_flushz00_119);
								}
							else
								{	/* Ieee/port.scm 1254 */
									obj_t BgL_bufz00_1889;

									{	/* Ieee/port.scm 1254 */
										obj_t BgL_res2050z00_2904;

										if ((BgL_bufinfoz00_120 == BTRUE))
											{	/* Ieee/port.scm 974 */
												BgL_res2050z00_2904 = make_string_sans_fill(128L);
											}
										else
											{	/* Ieee/port.scm 974 */
												if ((BgL_bufinfoz00_120 == BFALSE))
													{	/* Ieee/port.scm 976 */
														BgL_res2050z00_2904 = make_string_sans_fill(2L);
													}
												else
													{	/* Ieee/port.scm 976 */
														if (STRINGP(BgL_bufinfoz00_120))
															{	/* Ieee/port.scm 978 */
																BgL_res2050z00_2904 = BgL_bufinfoz00_120;
															}
														else
															{	/* Ieee/port.scm 978 */
																if (INTEGERP(BgL_bufinfoz00_120))
																	{	/* Ieee/port.scm 980 */
																		if (((long) CINT(BgL_bufinfoz00_120) >= 2L))
																			{	/* Ieee/port.scm 981 */
																				BgL_res2050z00_2904 =
																					make_string_sans_fill(
																					(long) CINT(BgL_bufinfoz00_120));
																			}
																		else
																			{	/* Ieee/port.scm 981 */
																				BgL_res2050z00_2904 =
																					make_string_sans_fill(2L);
																			}
																	}
																else
																	{	/* Ieee/port.scm 980 */
																		BgL_res2050z00_2904 =
																			BGl_errorz00zz__errorz00
																			(BGl_string2640z00zz__r4_ports_6_10_1z00,
																			BGl_string2580z00zz__r4_ports_6_10_1z00,
																			BgL_bufinfoz00_120);
																	}
															}
													}
											}
										BgL_bufz00_1889 = BgL_res2050z00_2904;
									}
									return
										bgl_open_output_procedure(BgL_procz00_118, BgL_flushz00_119,
										BgL_closez00_121, BgL_bufz00_1889);
								}
						}
				}
			else
				{	/* Ieee/port.scm 1236 */
					return
						bgl_system_failure(BGL_IO_PORT_ERROR,
						BGl_string2640z00zz__r4_ports_6_10_1z00,
						BGl_string2643z00zz__r4_ports_6_10_1z00, BgL_procz00_118);
				}
		}

	}



/* output-port-timeout-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_124, long BgL_timeoutz00_125)
	{
		{	/* Ieee/port.scm 1260 */
			return
				BBOOL(bgl_output_port_timeout_set(BgL_portz00_124, BgL_timeoutz00_125));
		}

	}



/* &output-port-timeout-set! */
	obj_t BGl_z62outputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3655, obj_t BgL_portz00_3656, obj_t BgL_timeoutz00_3657)
	{
		{	/* Ieee/port.scm 1260 */
			{	/* Ieee/port.scm 1261 */
				long BgL_auxz00_6688;
				obj_t BgL_auxz00_6681;

				{	/* Ieee/port.scm 1261 */
					obj_t BgL_tmpz00_6689;

					if (INTEGERP(BgL_timeoutz00_3657))
						{	/* Ieee/port.scm 1261 */
							BgL_tmpz00_6689 = BgL_timeoutz00_3657;
						}
					else
						{
							obj_t BgL_auxz00_6692;

							BgL_auxz00_6692 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(56320L),
								BGl_string2644z00zz__r4_ports_6_10_1z00,
								BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_timeoutz00_3657);
							FAILURE(BgL_auxz00_6692, BFALSE, BFALSE);
						}
					BgL_auxz00_6688 = (long) CINT(BgL_tmpz00_6689);
				}
				if (OUTPUT_PORTP(BgL_portz00_3656))
					{	/* Ieee/port.scm 1261 */
						BgL_auxz00_6681 = BgL_portz00_3656;
					}
				else
					{
						obj_t BgL_auxz00_6684;

						BgL_auxz00_6684 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(56320L),
							BGl_string2644z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3656);
						FAILURE(BgL_auxz00_6684, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_6681, BgL_auxz00_6688);
			}
		}

	}



/* closed-input-port? */
	BGL_EXPORTED_DEF bool_t
		BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_portz00_126)
	{
		{	/* Ieee/port.scm 1266 */
			return INPUT_PORT_CLOSEP(BgL_portz00_126);
		}

	}



/* &closed-input-port? */
	obj_t BGl_z62closedzd2inputzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3658, obj_t BgL_portz00_3659)
	{
		{	/* Ieee/port.scm 1266 */
			{	/* Ieee/port.scm 1267 */
				bool_t BgL_tmpz00_6699;

				{	/* Ieee/port.scm 1267 */
					obj_t BgL_auxz00_6700;

					if (INPUT_PORTP(BgL_portz00_3659))
						{	/* Ieee/port.scm 1267 */
							BgL_auxz00_6700 = BgL_portz00_3659;
						}
					else
						{
							obj_t BgL_auxz00_6703;

							BgL_auxz00_6703 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(56629L),
								BGl_string2645z00zz__r4_ports_6_10_1z00,
								BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3659);
							FAILURE(BgL_auxz00_6703, BFALSE, BFALSE);
						}
					BgL_tmpz00_6699 =
						BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00
						(BgL_auxz00_6700);
				}
				return BBOOL(BgL_tmpz00_6699);
			}
		}

	}



/* close-input-port */
	BGL_EXPORTED_DEF obj_t BGl_closezd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_127)
	{
		{	/* Ieee/port.scm 1272 */
			return bgl_close_input_port(BgL_portz00_127);
		}

	}



/* &close-input-port */
	obj_t BGl_z62closezd2inputzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3660, obj_t BgL_portz00_3661)
	{
		{	/* Ieee/port.scm 1272 */
			{	/* Ieee/port.scm 1273 */
				obj_t BgL_auxz00_6710;

				if (INPUT_PORTP(BgL_portz00_3661))
					{	/* Ieee/port.scm 1273 */
						BgL_auxz00_6710 = BgL_portz00_3661;
					}
				else
					{
						obj_t BgL_auxz00_6713;

						BgL_auxz00_6713 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(56923L),
							BGl_string2646z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3661);
						FAILURE(BgL_auxz00_6713, BFALSE, BFALSE);
					}
				return
					BGl_closezd2inputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_6710);
			}
		}

	}



/* get-output-string */
	BGL_EXPORTED_DEF obj_t
		BGl_getzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_128)
	{
		{	/* Ieee/port.scm 1278 */
			BGL_TAIL return get_output_string(BgL_portz00_128);
		}

	}



/* &get-output-string */
	obj_t BGl_z62getzd2outputzd2stringz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3662, obj_t BgL_portz00_3663)
	{
		{	/* Ieee/port.scm 1278 */
			{	/* Ieee/port.scm 1279 */
				obj_t BgL_auxz00_6719;

				if (OUTPUT_PORTP(BgL_portz00_3663))
					{	/* Ieee/port.scm 1279 */
						BgL_auxz00_6719 = BgL_portz00_3663;
					}
				else
					{
						obj_t BgL_auxz00_6722;

						BgL_auxz00_6722 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(57215L),
							BGl_string2647z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3663);
						FAILURE(BgL_auxz00_6722, BFALSE, BFALSE);
					}
				return
					BGl_getzd2outputzd2stringz00zz__r4_ports_6_10_1z00(BgL_auxz00_6719);
			}
		}

	}



/* close-output-port */
	BGL_EXPORTED_DEF obj_t
		BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_129)
	{
		{	/* Ieee/port.scm 1284 */
			BGL_TAIL return bgl_close_output_port(BgL_portz00_129);
		}

	}



/* &close-output-port */
	obj_t BGl_z62closezd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3664, obj_t BgL_portz00_3665)
	{
		{	/* Ieee/port.scm 1284 */
			{	/* Ieee/port.scm 1285 */
				obj_t BgL_auxz00_6728;

				if (OUTPUT_PORTP(BgL_portz00_3665))
					{	/* Ieee/port.scm 1285 */
						BgL_auxz00_6728 = BgL_portz00_3665;
					}
				else
					{
						obj_t BgL_auxz00_6731;

						BgL_auxz00_6731 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(57509L),
							BGl_string2648z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3665);
						FAILURE(BgL_auxz00_6731, BFALSE, BFALSE);
					}
				return
					BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_6728);
			}
		}

	}



/* flush-output-port */
	BGL_EXPORTED_DEF obj_t
		BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_130)
	{
		{	/* Ieee/port.scm 1290 */
			return bgl_flush_output_port(BgL_portz00_130);
		}

	}



/* &flush-output-port */
	obj_t BGl_z62flushzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3666, obj_t BgL_portz00_3667)
	{
		{	/* Ieee/port.scm 1290 */
			{	/* Ieee/port.scm 1291 */
				obj_t BgL_auxz00_6737;

				if (OUTPUT_PORTP(BgL_portz00_3667))
					{	/* Ieee/port.scm 1291 */
						BgL_auxz00_6737 = BgL_portz00_3667;
					}
				else
					{
						obj_t BgL_auxz00_6740;

						BgL_auxz00_6740 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(57802L),
							BGl_string2649z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3667);
						FAILURE(BgL_auxz00_6740, BFALSE, BFALSE);
					}
				return
					BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_6737);
			}
		}

	}



/* reset-output-port */
	BGL_EXPORTED_DEF obj_t
		BGl_resetzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_131)
	{
		{	/* Ieee/port.scm 1296 */
			bgl_reset_output_port_error(BgL_portz00_131);
			if (BGL_OUTPUT_STRING_PORTP(BgL_portz00_131))
				{	/* Ieee/port.scm 1298 */
					return bgl_reset_output_string_port(BgL_portz00_131);
				}
			else
				{	/* Ieee/port.scm 1298 */
					return bgl_flush_output_port(BgL_portz00_131);
				}
		}

	}



/* &reset-output-port */
	obj_t BGl_z62resetzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3668, obj_t BgL_portz00_3669)
	{
		{	/* Ieee/port.scm 1296 */
			{	/* Ieee/port.scm 1297 */
				obj_t BgL_auxz00_6750;

				if (OUTPUT_PORTP(BgL_portz00_3669))
					{	/* Ieee/port.scm 1297 */
						BgL_auxz00_6750 = BgL_portz00_3669;
					}
				else
					{
						obj_t BgL_auxz00_6753;

						BgL_auxz00_6753 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(58126L),
							BGl_string2650z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3669);
						FAILURE(BgL_auxz00_6753, BFALSE, BFALSE);
					}
				return
					BGl_resetzd2outputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_6750);
			}
		}

	}



/* reset-eof */
	BGL_EXPORTED_DEF bool_t BGl_resetzd2eofzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_132)
	{
		{	/* Ieee/port.scm 1305 */
			return reset_eof(BgL_portz00_132);
		}

	}



/* &reset-eof */
	obj_t BGl_z62resetzd2eofzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3670,
		obj_t BgL_portz00_3671)
	{
		{	/* Ieee/port.scm 1305 */
			{	/* Ieee/port.scm 1306 */
				bool_t BgL_tmpz00_6759;

				{	/* Ieee/port.scm 1306 */
					obj_t BgL_auxz00_6760;

					if (INPUT_PORTP(BgL_portz00_3671))
						{	/* Ieee/port.scm 1306 */
							BgL_auxz00_6760 = BgL_portz00_3671;
						}
					else
						{
							obj_t BgL_auxz00_6763;

							BgL_auxz00_6763 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(58496L),
								BGl_string2651z00zz__r4_ports_6_10_1z00,
								BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3671);
							FAILURE(BgL_auxz00_6763, BFALSE, BFALSE);
						}
					BgL_tmpz00_6759 =
						BGl_resetzd2eofzd2zz__r4_ports_6_10_1z00(BgL_auxz00_6760);
				}
				return BBOOL(BgL_tmpz00_6759);
			}
		}

	}



/* set-input-port-position! */
	BGL_EXPORTED_DEF obj_t
		BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_133, long BgL_posz00_134)
	{
		{	/* Ieee/port.scm 1311 */
			{	/* Ieee/port.scm 1312 */
				obj_t BgL_useekz00_2907;

				BgL_useekz00_2907 = BGL_INPUT_PORT_USEEK(BgL_portz00_133);
				if (PROCEDUREP(BgL_useekz00_2907))
					{	/* Ieee/port.scm 1313 */
						BGL_PROCEDURE_CALL2(BgL_useekz00_2907, BgL_portz00_133,
							BINT(BgL_posz00_134));
					}
				else
					{	/* Ieee/port.scm 1313 */
						bgl_input_port_seek(BgL_portz00_133, BgL_posz00_134);
						BUNSPEC;
					}
			}
			return BUNSPEC;
		}

	}



/* &set-input-port-position! */
	obj_t BGl_z62setzd2inputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3672, obj_t BgL_portz00_3673, obj_t BgL_posz00_3674)
	{
		{	/* Ieee/port.scm 1311 */
			{	/* Ieee/port.scm 1315 */
				long BgL_auxz00_6786;
				obj_t BgL_auxz00_6779;

				{	/* Ieee/port.scm 1315 */
					obj_t BgL_tmpz00_6787;

					if (INTEGERP(BgL_posz00_3674))
						{	/* Ieee/port.scm 1315 */
							BgL_tmpz00_6787 = BgL_posz00_3674;
						}
					else
						{
							obj_t BgL_auxz00_6790;

							BgL_auxz00_6790 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(58933L),
								BGl_string2652z00zz__r4_ports_6_10_1z00,
								BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_posz00_3674);
							FAILURE(BgL_auxz00_6790, BFALSE, BFALSE);
						}
					BgL_auxz00_6786 = (long) CINT(BgL_tmpz00_6787);
				}
				if (INPUT_PORTP(BgL_portz00_3673))
					{	/* Ieee/port.scm 1315 */
						BgL_auxz00_6779 = BgL_portz00_3673;
					}
				else
					{
						obj_t BgL_auxz00_6782;

						BgL_auxz00_6782 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(58933L),
							BGl_string2652z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3673);
						FAILURE(BgL_auxz00_6782, BFALSE, BFALSE);
					}
				return
					BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_6779, BgL_auxz00_6786);
			}
		}

	}



/* input-port-position */
	BGL_EXPORTED_DEF long
		BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_135)
	{
		{	/* Ieee/port.scm 1321 */
			return INPUT_PORT_FILEPOS(BgL_portz00_135);
		}

	}



/* &input-port-position */
	obj_t BGl_z62inputzd2portzd2positionz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3675, obj_t BgL_portz00_3676)
	{
		{	/* Ieee/port.scm 1321 */
			{	/* Ieee/port.scm 1322 */
				long BgL_tmpz00_6797;

				{	/* Ieee/port.scm 1322 */
					obj_t BgL_auxz00_6798;

					if (INPUT_PORTP(BgL_portz00_3676))
						{	/* Ieee/port.scm 1322 */
							BgL_auxz00_6798 = BgL_portz00_3676;
						}
					else
						{
							obj_t BgL_auxz00_6801;

							BgL_auxz00_6801 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(59223L),
								BGl_string2653z00zz__r4_ports_6_10_1z00,
								BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3676);
							FAILURE(BgL_auxz00_6801, BFALSE, BFALSE);
						}
					BgL_tmpz00_6797 =
						BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00
						(BgL_auxz00_6798);
				}
				return BINT(BgL_tmpz00_6797);
			}
		}

	}



/* input-port-fill-barrier */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2fillzd2barrierzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_136)
	{
		{	/* Ieee/port.scm 1327 */
			return BINT(INPUT_PORT_FILLBARRIER(BgL_portz00_136));
		}

	}



/* &input-port-fill-barrier */
	obj_t BGl_z62inputzd2portzd2fillzd2barrierzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3677, obj_t BgL_portz00_3678)
	{
		{	/* Ieee/port.scm 1327 */
			{	/* Ieee/port.scm 1328 */
				obj_t BgL_auxz00_6809;

				if (INPUT_PORTP(BgL_portz00_3678))
					{	/* Ieee/port.scm 1328 */
						BgL_auxz00_6809 = BgL_portz00_3678;
					}
				else
					{
						obj_t BgL_auxz00_6812;

						BgL_auxz00_6812 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(59537L),
							BGl_string2654z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3678);
						FAILURE(BgL_auxz00_6812, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2fillzd2barrierzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_6809);
			}
		}

	}



/* input-port-fill-barrier-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2fillzd2barrierzd2setz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_137, long BgL_posz00_138)
	{
		{	/* Ieee/port.scm 1333 */
			INPUT_PORT_FILLBARRIER_SET(BgL_portz00_137, BgL_posz00_138);
			BUNSPEC;
			return BINT(BgL_posz00_138);
		}

	}



/* &input-port-fill-barrier-set! */
	obj_t
		BGl_z62inputzd2portzd2fillzd2barrierzd2setz12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3679, obj_t BgL_portz00_3680, obj_t BgL_posz00_3681)
	{
		{	/* Ieee/port.scm 1333 */
			{	/* Ieee/port.scm 1334 */
				long BgL_auxz00_6826;
				obj_t BgL_auxz00_6819;

				{	/* Ieee/port.scm 1334 */
					obj_t BgL_tmpz00_6827;

					if (INTEGERP(BgL_posz00_3681))
						{	/* Ieee/port.scm 1334 */
							BgL_tmpz00_6827 = BgL_posz00_3681;
						}
					else
						{
							obj_t BgL_auxz00_6830;

							BgL_auxz00_6830 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(59911L),
								BGl_string2655z00zz__r4_ports_6_10_1z00,
								BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_posz00_3681);
							FAILURE(BgL_auxz00_6830, BFALSE, BFALSE);
						}
					BgL_auxz00_6826 = (long) CINT(BgL_tmpz00_6827);
				}
				if (INPUT_PORTP(BgL_portz00_3680))
					{	/* Ieee/port.scm 1334 */
						BgL_auxz00_6819 = BgL_portz00_3680;
					}
				else
					{
						obj_t BgL_auxz00_6822;

						BgL_auxz00_6822 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(59911L),
							BGl_string2655z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3680);
						FAILURE(BgL_auxz00_6822, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2fillzd2barrierzd2setz12z12zz__r4_ports_6_10_1z00
					(BgL_auxz00_6819, BgL_auxz00_6826);
			}
		}

	}



/* input-port-last-token-position */
	BGL_EXPORTED_DEF long
		BGl_inputzd2portzd2lastzd2tokenzd2positionz00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_139)
	{
		{	/* Ieee/port.scm 1340 */
			{	/* Ieee/port.scm 1341 */
				long BgL_tmpz00_6836;

				BgL_tmpz00_6836 = INPUT_PORT_TOKENPOS(BgL_portz00_139);
				return (long) (BgL_tmpz00_6836);
		}}

	}



/* &input-port-last-token-position */
	obj_t
		BGl_z62inputzd2portzd2lastzd2tokenzd2positionz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3682, obj_t BgL_portz00_3683)
	{
		{	/* Ieee/port.scm 1340 */
			{	/* Ieee/port.scm 1341 */
				long BgL_tmpz00_6839;

				{	/* Ieee/port.scm 1341 */
					obj_t BgL_auxz00_6840;

					if (INPUT_PORTP(BgL_portz00_3683))
						{	/* Ieee/port.scm 1341 */
							BgL_auxz00_6840 = BgL_portz00_3683;
						}
					else
						{
							obj_t BgL_auxz00_6843;

							BgL_auxz00_6843 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(60203L),
								BGl_string2656z00zz__r4_ports_6_10_1z00,
								BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3683);
							FAILURE(BgL_auxz00_6843, BFALSE, BFALSE);
						}
					BgL_tmpz00_6839 =
						BGl_inputzd2portzd2lastzd2tokenzd2positionz00zz__r4_ports_6_10_1z00
						(BgL_auxz00_6840);
				}
				return BINT(BgL_tmpz00_6839);
			}
		}

	}



/* output-port-name */
	BGL_EXPORTED_DEF obj_t BGl_outputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_140)
	{
		{	/* Ieee/port.scm 1346 */
			return OUTPUT_PORT_NAME(BgL_portz00_140);
		}

	}



/* &output-port-name */
	obj_t BGl_z62outputzd2portzd2namez62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3684, obj_t BgL_portz00_3685)
	{
		{	/* Ieee/port.scm 1346 */
			{	/* Ieee/port.scm 1347 */
				obj_t BgL_auxz00_6850;

				if (OUTPUT_PORTP(BgL_portz00_3685))
					{	/* Ieee/port.scm 1347 */
						BgL_auxz00_6850 = BgL_portz00_3685;
					}
				else
					{
						obj_t BgL_auxz00_6853;

						BgL_auxz00_6853 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(60509L),
							BGl_string2657z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3685);
						FAILURE(BgL_auxz00_6853, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2namez00zz__r4_ports_6_10_1z00(BgL_auxz00_6850);
			}
		}

	}



/* output-port-name-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_141, obj_t BgL_namez00_142)
	{
		{	/* Ieee/port.scm 1352 */
			OUTPUT_PORT_NAME_SET(BgL_portz00_141, BgL_namez00_142);
			return BUNSPEC;
		}

	}



/* &output-port-name-set! */
	obj_t BGl_z62outputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3686, obj_t BgL_portz00_3687, obj_t BgL_namez00_3688)
	{
		{	/* Ieee/port.scm 1352 */
			{	/* Ieee/port.scm 1352 */
				obj_t BgL_auxz00_6866;
				obj_t BgL_auxz00_6859;

				if (STRINGP(BgL_namez00_3688))
					{	/* Ieee/port.scm 1352 */
						BgL_auxz00_6866 = BgL_namez00_3688;
					}
				else
					{
						obj_t BgL_auxz00_6869;

						BgL_auxz00_6869 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(60758L),
							BGl_string2658z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_namez00_3688);
						FAILURE(BgL_auxz00_6869, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3687))
					{	/* Ieee/port.scm 1352 */
						BgL_auxz00_6859 = BgL_portz00_3687;
					}
				else
					{
						obj_t BgL_auxz00_6862;

						BgL_auxz00_6862 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(60758L),
							BGl_string2658z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3687);
						FAILURE(BgL_auxz00_6862, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_6859, BgL_auxz00_6866);
			}
		}

	}



/* set-output-port-position! */
	BGL_EXPORTED_DEF obj_t
		BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_143, long BgL_posz00_144)
	{
		{	/* Ieee/port.scm 1358 */
			if (CBOOL(bgl_output_port_seek(BgL_portz00_143, BgL_posz00_144)))
				{	/* Ieee/port.scm 1359 */
					return BFALSE;
				}
			else
				{	/* Ieee/port.scm 1359 */
					return
						bgl_system_failure(BGL_IO_PORT_ERROR,
						BGl_string2659z00zz__r4_ports_6_10_1z00,
						BGl_string2660z00zz__r4_ports_6_10_1z00, BgL_portz00_143);
				}
		}

	}



/* &set-output-port-position! */
	obj_t BGl_z62setzd2outputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3689, obj_t BgL_portz00_3690, obj_t BgL_posz00_3691)
	{
		{	/* Ieee/port.scm 1358 */
			{	/* Ieee/port.scm 1359 */
				long BgL_auxz00_6885;
				obj_t BgL_auxz00_6878;

				{	/* Ieee/port.scm 1359 */
					obj_t BgL_tmpz00_6886;

					if (INTEGERP(BgL_posz00_3691))
						{	/* Ieee/port.scm 1359 */
							BgL_tmpz00_6886 = BgL_posz00_3691;
						}
					else
						{
							obj_t BgL_auxz00_6889;

							BgL_auxz00_6889 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(61143L),
								BGl_string2661z00zz__r4_ports_6_10_1z00,
								BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_posz00_3691);
							FAILURE(BgL_auxz00_6889, BFALSE, BFALSE);
						}
					BgL_auxz00_6885 = (long) CINT(BgL_tmpz00_6886);
				}
				if (OUTPUT_PORTP(BgL_portz00_3690))
					{	/* Ieee/port.scm 1359 */
						BgL_auxz00_6878 = BgL_portz00_3690;
					}
				else
					{
						obj_t BgL_auxz00_6881;

						BgL_auxz00_6881 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(61143L),
							BGl_string2661z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3690);
						FAILURE(BgL_auxz00_6881, BFALSE, BFALSE);
					}
				return
					BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_6878, BgL_auxz00_6885);
			}
		}

	}



/* output-port-position */
	BGL_EXPORTED_DEF long
		BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_145)
	{
		{	/* Ieee/port.scm 1366 */
			return BGL_OUTPUT_PORT_FILEPOS(BgL_portz00_145);
		}

	}



/* &output-port-position */
	obj_t BGl_z62outputzd2portzd2positionz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3692, obj_t BgL_portz00_3693)
	{
		{	/* Ieee/port.scm 1366 */
			{	/* Ieee/port.scm 1367 */
				long BgL_tmpz00_6896;

				{	/* Ieee/port.scm 1367 */
					obj_t BgL_auxz00_6897;

					if (OUTPUT_PORTP(BgL_portz00_3693))
						{	/* Ieee/port.scm 1367 */
							BgL_auxz00_6897 = BgL_portz00_3693;
						}
					else
						{
							obj_t BgL_auxz00_6900;

							BgL_auxz00_6900 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(61559L),
								BGl_string2662z00zz__r4_ports_6_10_1z00,
								BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3693);
							FAILURE(BgL_auxz00_6900, BFALSE, BFALSE);
						}
					BgL_tmpz00_6896 =
						BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00
						(BgL_auxz00_6897);
				}
				return BINT(BgL_tmpz00_6896);
			}
		}

	}



/* output-port-isatty? */
	BGL_EXPORTED_DEF bool_t
		BGl_outputzd2portzd2isattyzf3zf3zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_146)
	{
		{	/* Ieee/port.scm 1372 */
			return bgl_port_isatty(BgL_portz00_146);
		}

	}



/* &output-port-isatty? */
	obj_t BGl_z62outputzd2portzd2isattyzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3694, obj_t BgL_portz00_3695)
	{
		{	/* Ieee/port.scm 1372 */
			{	/* Ieee/port.scm 1374 */
				bool_t BgL_tmpz00_6907;

				{	/* Ieee/port.scm 1374 */
					obj_t BgL_auxz00_6908;

					if (OUTPUT_PORTP(BgL_portz00_3695))
						{	/* Ieee/port.scm 1374 */
							BgL_auxz00_6908 = BgL_portz00_3695;
						}
					else
						{
							obj_t BgL_auxz00_6911;

							BgL_auxz00_6911 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(61887L),
								BGl_string2663z00zz__r4_ports_6_10_1z00,
								BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3695);
							FAILURE(BgL_auxz00_6911, BFALSE, BFALSE);
						}
					BgL_tmpz00_6907 =
						BGl_outputzd2portzd2isattyzf3zf3zz__r4_ports_6_10_1z00
						(BgL_auxz00_6908);
				}
				return BBOOL(BgL_tmpz00_6907);
			}
		}

	}



/* input-port-name */
	BGL_EXPORTED_DEF obj_t BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_147)
	{
		{	/* Ieee/port.scm 1380 */
			return INPUT_PORT_NAME(BgL_portz00_147);
		}

	}



/* &input-port-name */
	obj_t BGl_z62inputzd2portzd2namez62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3696, obj_t BgL_portz00_3697)
	{
		{	/* Ieee/port.scm 1380 */
			{	/* Ieee/port.scm 1381 */
				obj_t BgL_auxz00_6918;

				if (INPUT_PORTP(BgL_portz00_3697))
					{	/* Ieee/port.scm 1381 */
						BgL_auxz00_6918 = BgL_portz00_3697;
					}
				else
					{
						obj_t BgL_auxz00_6921;

						BgL_auxz00_6921 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(62194L),
							BGl_string2664z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3697);
						FAILURE(BgL_auxz00_6921, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(BgL_auxz00_6918);
			}
		}

	}



/* input-port-name-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_148, obj_t BgL_namez00_149)
	{
		{	/* Ieee/port.scm 1386 */
			INPUT_PORT_NAME_SET(BgL_portz00_148, BgL_namez00_149);
			return BUNSPEC;
		}

	}



/* &input-port-name-set! */
	obj_t BGl_z62inputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3698, obj_t BgL_portz00_3699, obj_t BgL_namez00_3700)
	{
		{	/* Ieee/port.scm 1386 */
			{	/* Ieee/port.scm 1386 */
				obj_t BgL_auxz00_6934;
				obj_t BgL_auxz00_6927;

				if (STRINGP(BgL_namez00_3700))
					{	/* Ieee/port.scm 1386 */
						BgL_auxz00_6934 = BgL_namez00_3700;
					}
				else
					{
						obj_t BgL_auxz00_6937;

						BgL_auxz00_6937 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(62442L),
							BGl_string2665z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_namez00_3700);
						FAILURE(BgL_auxz00_6937, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_portz00_3699))
					{	/* Ieee/port.scm 1386 */
						BgL_auxz00_6927 = BgL_portz00_3699;
					}
				else
					{
						obj_t BgL_auxz00_6930;

						BgL_auxz00_6930 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(62442L),
							BGl_string2665z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3699);
						FAILURE(BgL_auxz00_6930, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_6927, BgL_auxz00_6934);
			}
		}

	}



/* input-port-length */
	BGL_EXPORTED_DEF long BGl_inputzd2portzd2lengthz00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_150)
	{
		{	/* Ieee/port.scm 1392 */
			return BGL_INPUT_PORT_LENGTH(BgL_portz00_150);
		}

	}



/* &input-port-length */
	obj_t BGl_z62inputzd2portzd2lengthz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3701, obj_t BgL_portz00_3702)
	{
		{	/* Ieee/port.scm 1392 */
			{	/* Ieee/port.scm 1393 */
				long BgL_tmpz00_6943;

				{	/* Ieee/port.scm 1393 */
					obj_t BgL_auxz00_6944;

					if (INPUT_PORTP(BgL_portz00_3702))
						{	/* Ieee/port.scm 1393 */
							BgL_auxz00_6944 = BgL_portz00_3702;
						}
					else
						{
							obj_t BgL_auxz00_6947;

							BgL_auxz00_6947 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(62794L),
								BGl_string2666z00zz__r4_ports_6_10_1z00,
								BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3702);
							FAILURE(BgL_auxz00_6947, BFALSE, BFALSE);
						}
					BgL_tmpz00_6943 =
						BGl_inputzd2portzd2lengthz00zz__r4_ports_6_10_1z00(BgL_auxz00_6944);
				}
				return make_belong(BgL_tmpz00_6943);
			}
		}

	}



/* output-port-close-hook */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_151)
	{
		{	/* Ieee/port.scm 1398 */
			return PORT_CHOOK(BgL_portz00_151);
		}

	}



/* &output-port-close-hook */
	obj_t BGl_z62outputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3703, obj_t BgL_portz00_3704)
	{
		{	/* Ieee/port.scm 1398 */
			{	/* Ieee/port.scm 1399 */
				obj_t BgL_auxz00_6954;

				if (OUTPUT_PORTP(BgL_portz00_3704))
					{	/* Ieee/port.scm 1399 */
						BgL_auxz00_6954 = BgL_portz00_3704;
					}
				else
					{
						obj_t BgL_auxz00_6957;

						BgL_auxz00_6957 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(63092L),
							BGl_string2667z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3704);
						FAILURE(BgL_auxz00_6957, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_6954);
			}
		}

	}



/* closed-output-port? */
	BGL_EXPORTED_DEF bool_t
		BGl_closedzd2outputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_152)
	{
		{	/* Ieee/port.scm 1404 */
			return OUTPUT_PORT_CLOSEP(BgL_portz00_152);
		}

	}



/* &closed-output-port? */
	obj_t BGl_z62closedzd2outputzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3705, obj_t BgL_portz00_3706)
	{
		{	/* Ieee/port.scm 1404 */
			{	/* Ieee/port.scm 1405 */
				bool_t BgL_tmpz00_6963;

				{	/* Ieee/port.scm 1405 */
					obj_t BgL_auxz00_6964;

					if (OUTPUT_PORTP(BgL_portz00_3706))
						{	/* Ieee/port.scm 1405 */
							BgL_auxz00_6964 = BgL_portz00_3706;
						}
					else
						{
							obj_t BgL_auxz00_6967;

							BgL_auxz00_6967 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(63388L),
								BGl_string2668z00zz__r4_ports_6_10_1z00,
								BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3706);
							FAILURE(BgL_auxz00_6967, BFALSE, BFALSE);
						}
					BgL_tmpz00_6963 =
						BGl_closedzd2outputzd2portzf3zf3zz__r4_ports_6_10_1z00
						(BgL_auxz00_6964);
				}
				return BBOOL(BgL_tmpz00_6963);
			}
		}

	}



/* output-port-close-hook-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_153, obj_t BgL_procz00_154)
	{
		{	/* Ieee/port.scm 1410 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_154, (int) (1L)))
				{	/* Ieee/port.scm 1411 */
					PORT_CHOOK_SET(BgL_portz00_153, BgL_procz00_154);
					BUNSPEC;
					return BgL_procz00_154;
				}
			else
				{	/* Ieee/port.scm 1411 */
					return
						bgl_system_failure(BGL_IO_PORT_ERROR,
						BGl_string2669z00zz__r4_ports_6_10_1z00,
						BGl_string2602z00zz__r4_ports_6_10_1z00, BgL_procz00_154);
				}
		}

	}



/* &output-port-close-hook-set! */
	obj_t
		BGl_z62outputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3707, obj_t BgL_portz00_3708, obj_t BgL_procz00_3709)
	{
		{	/* Ieee/port.scm 1410 */
			{	/* Ieee/port.scm 1411 */
				obj_t BgL_auxz00_6985;
				obj_t BgL_auxz00_6978;

				if (PROCEDUREP(BgL_procz00_3709))
					{	/* Ieee/port.scm 1411 */
						BgL_auxz00_6985 = BgL_procz00_3709;
					}
				else
					{
						obj_t BgL_auxz00_6988;

						BgL_auxz00_6988 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(63691L),
							BGl_string2670z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3709);
						FAILURE(BgL_auxz00_6988, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3708))
					{	/* Ieee/port.scm 1411 */
						BgL_auxz00_6978 = BgL_portz00_3708;
					}
				else
					{
						obj_t BgL_auxz00_6981;

						BgL_auxz00_6981 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(63691L),
							BGl_string2670z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3708);
						FAILURE(BgL_auxz00_6981, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
					(BgL_auxz00_6978, BgL_auxz00_6985);
			}
		}

	}



/* output-port-flush-hook */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2flushzd2hookzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_155)
	{
		{	/* Ieee/port.scm 1421 */
			return BGL_OUTPUT_PORT_FHOOK(BgL_portz00_155);
		}

	}



/* &output-port-flush-hook */
	obj_t BGl_z62outputzd2portzd2flushzd2hookzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3710, obj_t BgL_portz00_3711)
	{
		{	/* Ieee/port.scm 1421 */
			{	/* Ieee/port.scm 1422 */
				obj_t BgL_auxz00_6994;

				if (OUTPUT_PORTP(BgL_portz00_3711))
					{	/* Ieee/port.scm 1422 */
						BgL_auxz00_6994 = BgL_portz00_3711;
					}
				else
					{
						obj_t BgL_auxz00_6997;

						BgL_auxz00_6997 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(64180L),
							BGl_string2671z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3711);
						FAILURE(BgL_auxz00_6997, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2flushzd2hookzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_6994);
			}
		}

	}



/* output-port-flush-hook-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2flushzd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_156, obj_t BgL_procz00_157)
	{
		{	/* Ieee/port.scm 1427 */
			{	/* Ieee/port.scm 1428 */
				bool_t BgL_test3338z00_7002;

				if (PROCEDUREP(BgL_procz00_157))
					{	/* Ieee/port.scm 1428 */
						if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_157, (int) (2L)))
							{	/* Ieee/port.scm 1428 */
								BgL_test3338z00_7002 = ((bool_t) 0);
							}
						else
							{	/* Ieee/port.scm 1428 */
								BgL_test3338z00_7002 = ((bool_t) 1);
							}
					}
				else
					{	/* Ieee/port.scm 1428 */
						BgL_test3338z00_7002 = ((bool_t) 0);
					}
				if (BgL_test3338z00_7002)
					{	/* Ieee/port.scm 1428 */
						return
							bgl_system_failure(BGL_IO_PORT_ERROR,
							BGl_string2672z00zz__r4_ports_6_10_1z00,
							BGl_string2602z00zz__r4_ports_6_10_1z00, BgL_procz00_157);
					}
				else
					{	/* Ieee/port.scm 1428 */
						BGL_OUTPUT_PORT_FHOOK_SET(BgL_portz00_156, BgL_procz00_157);
						BUNSPEC;
						return BgL_procz00_157;
					}
			}
		}

	}



/* &output-port-flush-hook-set! */
	obj_t
		BGl_z62outputzd2portzd2flushzd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3712, obj_t BgL_portz00_3713, obj_t BgL_procz00_3714)
	{
		{	/* Ieee/port.scm 1427 */
			{	/* Ieee/port.scm 1428 */
				obj_t BgL_auxz00_7010;

				if (OUTPUT_PORTP(BgL_portz00_3713))
					{	/* Ieee/port.scm 1428 */
						BgL_auxz00_7010 = BgL_portz00_3713;
					}
				else
					{
						obj_t BgL_auxz00_7013;

						BgL_auxz00_7013 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(64481L),
							BGl_string2673z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3713);
						FAILURE(BgL_auxz00_7013, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2flushzd2hookzd2setz12z12zz__r4_ports_6_10_1z00
					(BgL_auxz00_7010, BgL_procz00_3714);
			}
		}

	}



/* output-port-flush-buffer */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2flushzd2bufferzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_158)
	{
		{	/* Ieee/port.scm 1438 */
			return BGL_OUTPUT_PORT_FLUSHBUF(BgL_portz00_158);
		}

	}



/* &output-port-flush-buffer */
	obj_t BGl_z62outputzd2portzd2flushzd2bufferzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3715, obj_t BgL_portz00_3716)
	{
		{	/* Ieee/port.scm 1438 */
			{	/* Ieee/port.scm 1439 */
				obj_t BgL_auxz00_7019;

				if (OUTPUT_PORTP(BgL_portz00_3716))
					{	/* Ieee/port.scm 1439 */
						BgL_auxz00_7019 = BgL_portz00_3716;
					}
				else
					{
						obj_t BgL_auxz00_7022;

						BgL_auxz00_7022 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(64971L),
							BGl_string2674z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3716);
						FAILURE(BgL_auxz00_7022, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2flushzd2bufferzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_7019);
			}
		}

	}



/* output-port-flush-buffer-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2flushzd2bufferzd2setz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_159, obj_t BgL_bufz00_160)
	{
		{	/* Ieee/port.scm 1444 */
			BGL_OUTPUT_PORT_FLUSHBUF_SET(BgL_portz00_159, BgL_bufz00_160);
			BUNSPEC;
			return BgL_bufz00_160;
		}

	}



/* &output-port-flush-buffer-set! */
	obj_t
		BGl_z62outputzd2portzd2flushzd2bufferzd2setz12z70zz__r4_ports_6_10_1z00
		(obj_t BgL_envz00_3717, obj_t BgL_portz00_3718, obj_t BgL_bufz00_3719)
	{
		{	/* Ieee/port.scm 1444 */
			{	/* Ieee/port.scm 1445 */
				obj_t BgL_auxz00_7028;

				if (OUTPUT_PORTP(BgL_portz00_3718))
					{	/* Ieee/port.scm 1445 */
						BgL_auxz00_7028 = BgL_portz00_3718;
					}
				else
					{
						obj_t BgL_auxz00_7031;

						BgL_auxz00_7031 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(65319L),
							BGl_string2675z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3718);
						FAILURE(BgL_auxz00_7031, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2flushzd2bufferzd2setz12z12zz__r4_ports_6_10_1z00
					(BgL_auxz00_7028, BgL_bufz00_3719);
			}
		}

	}



/* input-port-close-hook */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_161)
	{
		{	/* Ieee/port.scm 1451 */
			return PORT_CHOOK(BgL_portz00_161);
		}

	}



/* &input-port-close-hook */
	obj_t BGl_z62inputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3720, obj_t BgL_portz00_3721)
	{
		{	/* Ieee/port.scm 1451 */
			{	/* Ieee/port.scm 1452 */
				obj_t BgL_auxz00_7037;

				if (INPUT_PORTP(BgL_portz00_3721))
					{	/* Ieee/port.scm 1452 */
						BgL_auxz00_7037 = BgL_portz00_3721;
					}
				else
					{
						obj_t BgL_auxz00_7040;

						BgL_auxz00_7040 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(65599L),
							BGl_string2676z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3721);
						FAILURE(BgL_auxz00_7040, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00
					(BgL_auxz00_7037);
			}
		}

	}



/* input-port-close-hook-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_162, obj_t BgL_procz00_163)
	{
		{	/* Ieee/port.scm 1457 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_163, (int) (1L)))
				{	/* Ieee/port.scm 1458 */
					PORT_CHOOK_SET(BgL_portz00_162, BgL_procz00_163);
					BUNSPEC;
					return BgL_procz00_163;
				}
			else
				{	/* Ieee/port.scm 1458 */
					return
						bgl_system_failure(BGL_IO_PORT_ERROR,
						BGl_string2601z00zz__r4_ports_6_10_1z00,
						BGl_string2602z00zz__r4_ports_6_10_1z00, BgL_procz00_163);
				}
		}

	}



/* &input-port-close-hook-set! */
	obj_t
		BGl_z62inputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3722, obj_t BgL_portz00_3723, obj_t BgL_procz00_3724)
	{
		{	/* Ieee/port.scm 1457 */
			{	/* Ieee/port.scm 1458 */
				obj_t BgL_auxz00_7057;
				obj_t BgL_auxz00_7050;

				if (PROCEDUREP(BgL_procz00_3724))
					{	/* Ieee/port.scm 1458 */
						BgL_auxz00_7057 = BgL_procz00_3724;
					}
				else
					{
						obj_t BgL_auxz00_7060;

						BgL_auxz00_7060 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(65898L),
							BGl_string2677z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3724);
						FAILURE(BgL_auxz00_7060, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_portz00_3723))
					{	/* Ieee/port.scm 1458 */
						BgL_auxz00_7050 = BgL_portz00_3723;
					}
				else
					{
						obj_t BgL_auxz00_7053;

						BgL_auxz00_7053 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(65898L),
							BGl_string2677z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3723);
						FAILURE(BgL_auxz00_7053, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
					(BgL_auxz00_7050, BgL_auxz00_7057);
			}
		}

	}



/* input-port-seek */
	BGL_EXPORTED_DEF obj_t BGl_inputzd2portzd2seekz00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_164)
	{
		{	/* Ieee/port.scm 1468 */
			return BGL_INPUT_PORT_USEEK(BgL_portz00_164);
		}

	}



/* &input-port-seek */
	obj_t BGl_z62inputzd2portzd2seekz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3725, obj_t BgL_portz00_3726)
	{
		{	/* Ieee/port.scm 1468 */
			{	/* Ieee/port.scm 1469 */
				obj_t BgL_auxz00_7066;

				if (INPUT_PORTP(BgL_portz00_3726))
					{	/* Ieee/port.scm 1469 */
						BgL_auxz00_7066 = BgL_portz00_3726;
					}
				else
					{
						obj_t BgL_auxz00_7069;

						BgL_auxz00_7069 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(66377L),
							BGl_string2678z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3726);
						FAILURE(BgL_auxz00_7069, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2seekz00zz__r4_ports_6_10_1z00(BgL_auxz00_7066);
			}
		}

	}



/* input-port-seek-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2seekzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_165, obj_t BgL_procz00_166)
	{
		{	/* Ieee/port.scm 1474 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_procz00_166, (int) (2L)))
				{	/* Ieee/port.scm 1475 */
					BGL_INPUT_PORT_USEEK_SET(BgL_portz00_165, BgL_procz00_166);
					BUNSPEC;
					return BgL_procz00_166;
				}
			else
				{	/* Ieee/port.scm 1475 */
					return
						bgl_system_failure(BGL_IO_PORT_ERROR,
						BGl_string2603z00zz__r4_ports_6_10_1z00,
						BGl_string2604z00zz__r4_ports_6_10_1z00, BgL_procz00_166);
				}
		}

	}



/* &input-port-seek-set! */
	obj_t BGl_z62inputzd2portzd2seekzd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3727, obj_t BgL_portz00_3728, obj_t BgL_procz00_3729)
	{
		{	/* Ieee/port.scm 1474 */
			{	/* Ieee/port.scm 1475 */
				obj_t BgL_auxz00_7086;
				obj_t BgL_auxz00_7079;

				if (PROCEDUREP(BgL_procz00_3729))
					{	/* Ieee/port.scm 1475 */
						BgL_auxz00_7086 = BgL_procz00_3729;
					}
				else
					{
						obj_t BgL_auxz00_7089;

						BgL_auxz00_7089 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(66670L),
							BGl_string2679z00zz__r4_ports_6_10_1z00,
							BGl_string2541z00zz__r4_ports_6_10_1z00, BgL_procz00_3729);
						FAILURE(BgL_auxz00_7089, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_portz00_3728))
					{	/* Ieee/port.scm 1475 */
						BgL_auxz00_7079 = BgL_portz00_3728;
					}
				else
					{
						obj_t BgL_auxz00_7082;

						BgL_auxz00_7082 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(66670L),
							BGl_string2679z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3728);
						FAILURE(BgL_auxz00_7082, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2seekzd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_7079, BgL_auxz00_7086);
			}
		}

	}



/* input-port-buffer */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_167)
	{
		{	/* Ieee/port.scm 1485 */
			return BGL_INPUT_PORT_BUFFER(BgL_portz00_167);
		}

	}



/* &input-port-buffer */
	obj_t BGl_z62inputzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3730, obj_t BgL_portz00_3731)
	{
		{	/* Ieee/port.scm 1485 */
			{	/* Ieee/port.scm 1486 */
				obj_t BgL_auxz00_7095;

				if (INPUT_PORTP(BgL_portz00_3731))
					{	/* Ieee/port.scm 1486 */
						BgL_auxz00_7095 = BgL_portz00_3731;
					}
				else
					{
						obj_t BgL_auxz00_7098;

						BgL_auxz00_7098 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(67155L),
							BGl_string2680z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3731);
						FAILURE(BgL_auxz00_7098, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BgL_auxz00_7095);
			}
		}

	}



/* input-port-buffer-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_inputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_168, obj_t BgL_bufferz00_169)
	{
		{	/* Ieee/port.scm 1491 */
			bgl_input_port_buffer_set(BgL_portz00_168, BgL_bufferz00_169);
			BUNSPEC;
			return BgL_portz00_168;
		}

	}



/* &input-port-buffer-set! */
	obj_t BGl_z62inputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3732, obj_t BgL_portz00_3733, obj_t BgL_bufferz00_3734)
	{
		{	/* Ieee/port.scm 1491 */
			{	/* Ieee/port.scm 1492 */
				obj_t BgL_auxz00_7111;
				obj_t BgL_auxz00_7104;

				if (STRINGP(BgL_bufferz00_3734))
					{	/* Ieee/port.scm 1492 */
						BgL_auxz00_7111 = BgL_bufferz00_3734;
					}
				else
					{
						obj_t BgL_auxz00_7114;

						BgL_auxz00_7114 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(67503L),
							BGl_string2681z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_bufferz00_3734);
						FAILURE(BgL_auxz00_7114, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_portz00_3733))
					{	/* Ieee/port.scm 1492 */
						BgL_auxz00_7104 = BgL_portz00_3733;
					}
				else
					{
						obj_t BgL_auxz00_7107;

						BgL_auxz00_7107 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(67503L),
							BGl_string2681z00zz__r4_ports_6_10_1z00,
							BGl_string2553z00zz__r4_ports_6_10_1z00, BgL_portz00_3733);
						FAILURE(BgL_auxz00_7107, BFALSE, BFALSE);
					}
				return
					BGl_inputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_7104, BgL_auxz00_7111);
			}
		}

	}



/* output-port-buffer */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_170)
	{
		{	/* Ieee/port.scm 1497 */
			return BGL_OUTPUT_PORT_BUFFER(BgL_portz00_170);
		}

	}



/* &output-port-buffer */
	obj_t BGl_z62outputzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3735, obj_t BgL_portz00_3736)
	{
		{	/* Ieee/port.scm 1497 */
			{	/* Ieee/port.scm 1498 */
				obj_t BgL_auxz00_7120;

				if (OUTPUT_PORTP(BgL_portz00_3736))
					{	/* Ieee/port.scm 1498 */
						BgL_auxz00_7120 = BgL_portz00_3736;
					}
				else
					{
						obj_t BgL_auxz00_7123;

						BgL_auxz00_7123 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(67779L),
							BGl_string2682z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3736);
						FAILURE(BgL_auxz00_7123, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BgL_auxz00_7120);
			}
		}

	}



/* output-port-buffer-set! */
	BGL_EXPORTED_DEF obj_t
		BGl_outputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_171, obj_t BgL_bufferz00_172)
	{
		{	/* Ieee/port.scm 1503 */
			bgl_output_port_buffer_set(BgL_portz00_171, BgL_bufferz00_172);
			BUNSPEC;
			return BgL_portz00_171;
		}

	}



/* &output-port-buffer-set! */
	obj_t BGl_z62outputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3737, obj_t BgL_portz00_3738, obj_t BgL_bufferz00_3739)
	{
		{	/* Ieee/port.scm 1503 */
			{	/* Ieee/port.scm 1504 */
				obj_t BgL_auxz00_7136;
				obj_t BgL_auxz00_7129;

				if (STRINGP(BgL_bufferz00_3739))
					{	/* Ieee/port.scm 1504 */
						BgL_auxz00_7136 = BgL_bufferz00_3739;
					}
				else
					{
						obj_t BgL_auxz00_7139;

						BgL_auxz00_7139 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(68130L),
							BGl_string2683z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_bufferz00_3739);
						FAILURE(BgL_auxz00_7139, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3738))
					{	/* Ieee/port.scm 1504 */
						BgL_auxz00_7129 = BgL_portz00_3738;
					}
				else
					{
						obj_t BgL_auxz00_7132;

						BgL_auxz00_7132 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(68130L),
							BGl_string2683z00zz__r4_ports_6_10_1z00,
							BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_portz00_3738);
						FAILURE(BgL_auxz00_7132, BFALSE, BFALSE);
					}
				return
					BGl_outputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00
					(BgL_auxz00_7129, BgL_auxz00_7136);
			}
		}

	}



/* file-exists? */
	BGL_EXPORTED_DEF bool_t BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(char
		*BgL_namez00_173)
	{
		{	/* Ieee/port.scm 1509 */
			BGL_TAIL return fexists(BgL_namez00_173);
		}

	}



/* &file-exists? */
	obj_t BGl_z62filezd2existszf3z43zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3740,
		obj_t BgL_namez00_3741)
	{
		{	/* Ieee/port.scm 1509 */
			{	/* Ieee/port.scm 1510 */
				bool_t BgL_tmpz00_7145;

				{	/* Ieee/port.scm 1510 */
					char *BgL_auxz00_7146;

					{	/* Ieee/port.scm 1510 */
						obj_t BgL_tmpz00_7147;

						if (STRINGP(BgL_namez00_3741))
							{	/* Ieee/port.scm 1510 */
								BgL_tmpz00_7147 = BgL_namez00_3741;
							}
						else
							{
								obj_t BgL_auxz00_7150;

								BgL_auxz00_7150 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(68400L),
									BGl_string2684z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_namez00_3741);
								FAILURE(BgL_auxz00_7150, BFALSE, BFALSE);
							}
						BgL_auxz00_7146 = BSTRING_TO_STRING(BgL_tmpz00_7147);
					}
					BgL_tmpz00_7145 =
						BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(BgL_auxz00_7146);
				}
				return BBOOL(BgL_tmpz00_7145);
			}
		}

	}



/* file-gzip? */
	BGL_EXPORTED_DEF obj_t BGl_filezd2gza7ipzf3z86zz__r4_ports_6_10_1z00(obj_t
		BgL_namez00_174)
	{
		{	/* Ieee/port.scm 1515 */
			if (fexists(BSTRING_TO_STRING(BgL_namez00_174)))
				{	/* Ieee/port.scm 1516 */
					return
						BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00
						(BgL_namez00_174, BGl_proc2685z00zz__r4_ports_6_10_1z00);
				}
			else
				{	/* Ieee/port.scm 1516 */
					return BFALSE;
				}
		}

	}



/* &file-gzip? */
	obj_t BGl_z62filezd2gza7ipzf3ze4zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3743,
		obj_t BgL_namez00_3744)
	{
		{	/* Ieee/port.scm 1515 */
			return BGl_filezd2gza7ipzf3z86zz__r4_ports_6_10_1z00(BgL_namez00_3744);
		}

	}



/* &<@anonymous:1583> */
	obj_t BGl_z62zc3z04anonymousza31583ze3ze5zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3745)
	{
		{	/* Ieee/port.scm 1518 */
			{	/* Ieee/port.scm 1519 */
				obj_t BgL_env1150z00_4311;

				BgL_env1150z00_4311 = BGL_CURRENT_DYNAMIC_ENV();
				{	/* Ieee/port.scm 1519 */
					obj_t BgL_cell1145z00_4312;

					BgL_cell1145z00_4312 = MAKE_STACK_CELL(BUNSPEC);
					{	/* Ieee/port.scm 1519 */
						obj_t BgL_val1149z00_4313;

						BgL_val1149z00_4313 =
							BGl_zc3z04exitza31585ze3ze70z60zz__r4_ports_6_10_1z00
							(BgL_cell1145z00_4312, BgL_env1150z00_4311);
						if ((BgL_val1149z00_4313 == BgL_cell1145z00_4312))
							{	/* Ieee/port.scm 1519 */
								{	/* Ieee/port.scm 1519 */
									int BgL_tmpz00_7167;

									BgL_tmpz00_7167 = (int) (0L);
									BGL_SIGSETMASK(BgL_tmpz00_7167);
								}
								{	/* Ieee/port.scm 1519 */
									obj_t BgL_arg1584z00_4314;

									BgL_arg1584z00_4314 = CELL_REF(((obj_t) BgL_val1149z00_4313));
									return BFALSE;
								}
							}
						else
							{	/* Ieee/port.scm 1519 */
								return BgL_val1149z00_4313;
							}
					}
				}
			}
		}

	}



/* <@exit:1585>~0 */
	obj_t BGl_zc3z04exitza31585ze3ze70z60zz__r4_ports_6_10_1z00(obj_t
		BgL_cell1145z00_3807, obj_t BgL_env1150z00_3806)
	{
		{	/* Ieee/port.scm 1519 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1154z00_1917;

			if (SET_EXIT(BgL_an_exit1154z00_1917))
				{
					return BGL_EXIT_VALUE();
				}
			else
				{
#if (SIGSETJMP_SAVESIGS == 0)
				 // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
				 // bgl_restore_signal_handlers();
#endif

					BgL_an_exit1154z00_1917 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1150z00_3806, BgL_an_exit1154z00_1917, 1L);
					{	/* Ieee/port.scm 1519 */
						obj_t BgL_escape1146z00_1918;

						BgL_escape1146z00_1918 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1150z00_3806);
						{	/* Ieee/port.scm 1519 */
							obj_t BgL_res1157z00_1919;

							{	/* Ieee/port.scm 1519 */
								obj_t BgL_ohs1142z00_1920;

								BgL_ohs1142z00_1920 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1150z00_3806);
								{	/* Ieee/port.scm 1519 */
									obj_t BgL_hds1143z00_1921;

									BgL_hds1143z00_1921 =
										MAKE_STACK_PAIR(BgL_escape1146z00_1918,
										BgL_cell1145z00_3807);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1150z00_3806,
										BgL_hds1143z00_1921);
									BUNSPEC;
									{	/* Ieee/port.scm 1519 */
										obj_t BgL_exitd1151z00_1922;

										BgL_exitd1151z00_1922 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1150z00_3806);
										{	/* Ieee/port.scm 1519 */
											obj_t BgL_tmp1153z00_1923;

											{	/* Ieee/port.scm 1519 */
												obj_t BgL_arg1587z00_1926;

												BgL_arg1587z00_1926 =
													BGL_EXITD_PROTECT(BgL_exitd1151z00_1922);
												BgL_tmp1153z00_1923 =
													MAKE_YOUNG_PAIR(BgL_ohs1142z00_1920,
													BgL_arg1587z00_1926);
											}
											{	/* Ieee/port.scm 1519 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1151z00_1922,
													BgL_tmp1153z00_1923);
												BUNSPEC;
												{	/* Ieee/port.scm 1522 */
													obj_t BgL_tmp1152z00_1924;

													{	/* Ieee/port.scm 1522 */
														obj_t BgL_arg1586z00_1925;

														{	/* Ieee/port.scm 672 */
															obj_t BgL_tmpz00_7183;

															BgL_tmpz00_7183 = BGL_CURRENT_DYNAMIC_ENV();
															BgL_arg1586z00_1925 =
																BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_7183);
														}
														BgL_tmp1152z00_1924 =
															BGl_gunza7ipzd2parsezd2headerza7zz__gunza7ipza7
															(BgL_arg1586z00_1925);
													}
													{	/* Ieee/port.scm 1519 */
														bool_t BgL_test3361z00_7187;

														{	/* Ieee/port.scm 1519 */
															obj_t BgL_arg2037z00_2921;

															BgL_arg2037z00_2921 =
																BGL_EXITD_PROTECT(BgL_exitd1151z00_1922);
															BgL_test3361z00_7187 = PAIRP(BgL_arg2037z00_2921);
														}
														if (BgL_test3361z00_7187)
															{	/* Ieee/port.scm 1519 */
																obj_t BgL_arg2034z00_2922;

																{	/* Ieee/port.scm 1519 */
																	obj_t BgL_arg2035z00_2923;

																	BgL_arg2035z00_2923 =
																		BGL_EXITD_PROTECT(BgL_exitd1151z00_1922);
																	BgL_arg2034z00_2922 =
																		CDR(((obj_t) BgL_arg2035z00_2923));
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1151z00_1922,
																	BgL_arg2034z00_2922);
																BUNSPEC;
															}
														else
															{	/* Ieee/port.scm 1519 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1150z00_3806,
														BgL_ohs1142z00_1920);
													BUNSPEC;
													BgL_res1157z00_1919 = BgL_tmp1152z00_1924;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1150z00_3806);
							return BgL_res1157z00_1919;
						}
					}
				}
		}

	}



/* delete-file */
	BGL_EXPORTED_DEF obj_t BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_175)
	{
		{	/* Ieee/port.scm 1527 */
			if (unlink(BgL_stringz00_175))
				{	/* Ieee/port.scm 1528 */
					return BFALSE;
				}
			else
				{	/* Ieee/port.scm 1528 */
					return BTRUE;
				}
		}

	}



/* &delete-file */
	obj_t BGl_z62deletezd2filezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3746,
		obj_t BgL_stringz00_3747)
	{
		{	/* Ieee/port.scm 1527 */
			{	/* Ieee/port.scm 1528 */
				char *BgL_auxz00_7198;

				{	/* Ieee/port.scm 1528 */
					obj_t BgL_tmpz00_7199;

					if (STRINGP(BgL_stringz00_3747))
						{	/* Ieee/port.scm 1528 */
							BgL_tmpz00_7199 = BgL_stringz00_3747;
						}
					else
						{
							obj_t BgL_auxz00_7202;

							BgL_auxz00_7202 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(69104L),
								BGl_string2686z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3747);
							FAILURE(BgL_auxz00_7202, BFALSE, BFALSE);
						}
					BgL_auxz00_7198 = BSTRING_TO_STRING(BgL_tmpz00_7199);
				}
				return BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_7198);
			}
		}

	}



/* make-directory */
	BGL_EXPORTED_DEF bool_t BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_176)
	{
		{	/* Ieee/port.scm 1533 */
			return !BGL_MKDIR(BgL_stringz00_176, 511L);
		}

	}



/* &make-directory */
	obj_t BGl_z62makezd2directoryzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3748,
		obj_t BgL_stringz00_3749)
	{
		{	/* Ieee/port.scm 1533 */
			{	/* Ieee/port.scm 1534 */
				bool_t BgL_tmpz00_7209;

				{	/* Ieee/port.scm 1534 */
					char *BgL_auxz00_7210;

					{	/* Ieee/port.scm 1534 */
						obj_t BgL_tmpz00_7211;

						if (STRINGP(BgL_stringz00_3749))
							{	/* Ieee/port.scm 1534 */
								BgL_tmpz00_7211 = BgL_stringz00_3749;
							}
						else
							{
								obj_t BgL_auxz00_7214;

								BgL_auxz00_7214 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(69399L),
									BGl_string2687z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3749);
								FAILURE(BgL_auxz00_7214, BFALSE, BFALSE);
							}
						BgL_auxz00_7210 = BSTRING_TO_STRING(BgL_tmpz00_7211);
					}
					BgL_tmpz00_7209 =
						BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7210);
				}
				return BBOOL(BgL_tmpz00_7209);
			}
		}

	}



/* make-directories */
	BGL_EXPORTED_DEF bool_t BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(obj_t
		BgL_stringz00_177)
	{
		{	/* Ieee/port.scm 1539 */
			{	/* Ieee/port.scm 1540 */
				bool_t BgL__ortest_1159z00_1932;

				BgL__ortest_1159z00_1932 =
					bgl_directoryp(BSTRING_TO_STRING(BgL_stringz00_177));
				if (BgL__ortest_1159z00_1932)
					{	/* Ieee/port.scm 1540 */
						return BgL__ortest_1159z00_1932;
					}
				else
					{	/* Ieee/port.scm 1541 */
						bool_t BgL__ortest_1160z00_1933;

						{	/* Ieee/port.scm 1534 */
							char *BgL_tmpz00_7224;

							BgL_tmpz00_7224 = BSTRING_TO_STRING(BgL_stringz00_177);
							BgL__ortest_1160z00_1933 = !BGL_MKDIR(BgL_tmpz00_7224, 511L);
						}
						if (BgL__ortest_1160z00_1933)
							{	/* Ieee/port.scm 1541 */
								return BgL__ortest_1160z00_1933;
							}
						else
							{	/* Ieee/port.scm 1542 */
								obj_t BgL_dnamez00_1934;

								BgL_dnamez00_1934 = BGl_dirnamez00zz__osz00(BgL_stringz00_177);
								{	/* Ieee/port.scm 1543 */
									bool_t BgL_test3367z00_7229;

									if ((STRING_LENGTH(BgL_dnamez00_1934) == 0L))
										{	/* Ieee/port.scm 1543 */
											BgL_test3367z00_7229 = ((bool_t) 1);
										}
									else
										{	/* Ieee/port.scm 1543 */
											BgL_test3367z00_7229 =
												fexists(BSTRING_TO_STRING(BgL_dnamez00_1934));
										}
									if (BgL_test3367z00_7229)
										{	/* Ieee/port.scm 1543 */
											return ((bool_t) 0);
										}
									else
										{	/* Ieee/port.scm 1545 */
											bool_t BgL_auxz00_1939;

											BgL_auxz00_1939 =
												BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00
												(BgL_dnamez00_1934);
											if ((STRING_REF(BgL_stringz00_177,
														(STRING_LENGTH(BgL_stringz00_177) - 1L)) ==
													(unsigned char) (FILE_SEPARATOR)))
												{	/* Ieee/port.scm 1546 */
													return BgL_auxz00_1939;
												}
											else
												{	/* Ieee/port.scm 1534 */
													char *BgL_tmpz00_7242;

													BgL_tmpz00_7242 =
														BSTRING_TO_STRING(BgL_stringz00_177);
													return !BGL_MKDIR(BgL_tmpz00_7242, 511L);
												}
										}
								}
							}
					}
			}
		}

	}



/* &make-directories */
	obj_t BGl_z62makezd2directorieszb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3750, obj_t BgL_stringz00_3751)
	{
		{	/* Ieee/port.scm 1539 */
			{	/* Ieee/port.scm 1540 */
				bool_t BgL_tmpz00_7245;

				{	/* Ieee/port.scm 1540 */
					obj_t BgL_auxz00_7246;

					if (STRINGP(BgL_stringz00_3751))
						{	/* Ieee/port.scm 1540 */
							BgL_auxz00_7246 = BgL_stringz00_3751;
						}
					else
						{
							obj_t BgL_auxz00_7249;

							BgL_auxz00_7249 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(69687L),
								BGl_string2688z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3751);
							FAILURE(BgL_auxz00_7249, BFALSE, BFALSE);
						}
					BgL_tmpz00_7245 =
						BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_auxz00_7246);
				}
				return BBOOL(BgL_tmpz00_7245);
			}
		}

	}



/* delete-directory */
	BGL_EXPORTED_DEF obj_t BGl_deletezd2directoryzd2zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_178)
	{
		{	/* Ieee/port.scm 1554 */
			if (rmdir(BgL_stringz00_178))
				{	/* Ieee/port.scm 1555 */
					return BFALSE;
				}
			else
				{	/* Ieee/port.scm 1555 */
					return BTRUE;
				}
		}

	}



/* &delete-directory */
	obj_t BGl_z62deletezd2directoryzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3752, obj_t BgL_stringz00_3753)
	{
		{	/* Ieee/port.scm 1554 */
			{	/* Ieee/port.scm 1555 */
				char *BgL_auxz00_7257;

				{	/* Ieee/port.scm 1555 */
					obj_t BgL_tmpz00_7258;

					if (STRINGP(BgL_stringz00_3753))
						{	/* Ieee/port.scm 1555 */
							BgL_tmpz00_7258 = BgL_stringz00_3753;
						}
					else
						{
							obj_t BgL_auxz00_7261;

							BgL_auxz00_7261 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(70308L),
								BGl_string2689z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3753);
							FAILURE(BgL_auxz00_7261, BFALSE, BFALSE);
						}
					BgL_auxz00_7257 = BSTRING_TO_STRING(BgL_tmpz00_7258);
				}
				return BGl_deletezd2directoryzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7257);
			}
		}

	}



/* rename-file */
	BGL_EXPORTED_DEF bool_t BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(char
		*BgL_string1z00_179, char *BgL_string2z00_180)
	{
		{	/* Ieee/port.scm 1560 */
			{	/* Ieee/port.scm 1561 */
				int BgL_arg1612z00_4315;

				BgL_arg1612z00_4315 = rename(BgL_string1z00_179, BgL_string2z00_180);
				return (BINT(BgL_arg1612z00_4315) == BINT(0L));
			}
		}

	}



/* &rename-file */
	obj_t BGl_z62renamezd2filezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3754,
		obj_t BgL_string1z00_3755, obj_t BgL_string2z00_3756)
	{
		{	/* Ieee/port.scm 1560 */
			{	/* Ieee/port.scm 1561 */
				bool_t BgL_tmpz00_7271;

				{	/* Ieee/port.scm 1561 */
					char *BgL_auxz00_7281;
					char *BgL_auxz00_7272;

					{	/* Ieee/port.scm 1561 */
						obj_t BgL_tmpz00_7282;

						if (STRINGP(BgL_string2z00_3756))
							{	/* Ieee/port.scm 1561 */
								BgL_tmpz00_7282 = BgL_string2z00_3756;
							}
						else
							{
								obj_t BgL_auxz00_7285;

								BgL_auxz00_7285 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(70623L),
									BGl_string2690z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_string2z00_3756);
								FAILURE(BgL_auxz00_7285, BFALSE, BFALSE);
							}
						BgL_auxz00_7281 = BSTRING_TO_STRING(BgL_tmpz00_7282);
					}
					{	/* Ieee/port.scm 1561 */
						obj_t BgL_tmpz00_7273;

						if (STRINGP(BgL_string1z00_3755))
							{	/* Ieee/port.scm 1561 */
								BgL_tmpz00_7273 = BgL_string1z00_3755;
							}
						else
							{
								obj_t BgL_auxz00_7276;

								BgL_auxz00_7276 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(70623L),
									BGl_string2690z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_string1z00_3755);
								FAILURE(BgL_auxz00_7276, BFALSE, BFALSE);
							}
						BgL_auxz00_7272 = BSTRING_TO_STRING(BgL_tmpz00_7273);
					}
					BgL_tmpz00_7271 =
						BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_7272,
						BgL_auxz00_7281);
				}
				return BBOOL(BgL_tmpz00_7271);
			}
		}

	}



/* truncate-file */
	BGL_EXPORTED_DEF bool_t BGl_truncatezd2filezd2zz__r4_ports_6_10_1z00(char
		*BgL_pathz00_181, long BgL_siza7eza7_182)
	{
		{	/* Ieee/port.scm 1566 */
			{	/* Ieee/port.scm 1567 */
				int BgL_xz00_4316;

				BgL_xz00_4316 = truncate(BgL_pathz00_181, BgL_siza7eza7_182);
				return ((bool_t) 1);
			}
		}

	}



/* &truncate-file */
	obj_t BGl_z62truncatezd2filezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3757,
		obj_t BgL_pathz00_3758, obj_t BgL_siza7eza7_3759)
	{
		{	/* Ieee/port.scm 1566 */
			{	/* Ieee/port.scm 1567 */
				bool_t BgL_tmpz00_7293;

				{	/* Ieee/port.scm 1567 */
					long BgL_auxz00_7303;
					char *BgL_auxz00_7294;

					{	/* Ieee/port.scm 1567 */
						obj_t BgL_tmpz00_7304;

						if (INTEGERP(BgL_siza7eza7_3759))
							{	/* Ieee/port.scm 1567 */
								BgL_tmpz00_7304 = BgL_siza7eza7_3759;
							}
						else
							{
								obj_t BgL_auxz00_7307;

								BgL_auxz00_7307 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(70933L),
									BGl_string2691z00zz__r4_ports_6_10_1z00,
									BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_siza7eza7_3759);
								FAILURE(BgL_auxz00_7307, BFALSE, BFALSE);
							}
						BgL_auxz00_7303 = (long) CINT(BgL_tmpz00_7304);
					}
					{	/* Ieee/port.scm 1567 */
						obj_t BgL_tmpz00_7295;

						if (STRINGP(BgL_pathz00_3758))
							{	/* Ieee/port.scm 1567 */
								BgL_tmpz00_7295 = BgL_pathz00_3758;
							}
						else
							{
								obj_t BgL_auxz00_7298;

								BgL_auxz00_7298 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(70933L),
									BGl_string2691z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_pathz00_3758);
								FAILURE(BgL_auxz00_7298, BFALSE, BFALSE);
							}
						BgL_auxz00_7294 = BSTRING_TO_STRING(BgL_tmpz00_7295);
					}
					BgL_tmpz00_7293 =
						BGl_truncatezd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_7294,
						BgL_auxz00_7303);
				}
				return BBOOL(BgL_tmpz00_7293);
			}
		}

	}



/* output-port-truncate */
	BGL_EXPORTED_DEF bool_t
		BGl_outputzd2portzd2truncatez00zz__r4_ports_6_10_1z00(obj_t
		BgL_oportz00_183, long BgL_siza7eza7_184)
	{
		{	/* Ieee/port.scm 1572 */
			{	/* Ieee/port.scm 1573 */
				int BgL_xz00_4317;

				BgL_xz00_4317 =
					bgl_output_port_truncate(BgL_oportz00_183, BgL_siza7eza7_184);
				return ((bool_t) 1);
			}
		}

	}



/* &output-port-truncate */
	obj_t BGl_z62outputzd2portzd2truncatez62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3760, obj_t BgL_oportz00_3761, obj_t BgL_siza7eza7_3762)
	{
		{	/* Ieee/port.scm 1572 */
			{	/* Ieee/port.scm 1573 */
				bool_t BgL_tmpz00_7315;

				{	/* Ieee/port.scm 1573 */
					long BgL_auxz00_7323;
					obj_t BgL_auxz00_7316;

					{	/* Ieee/port.scm 1573 */
						obj_t BgL_tmpz00_7324;

						if (INTEGERP(BgL_siza7eza7_3762))
							{	/* Ieee/port.scm 1573 */
								BgL_tmpz00_7324 = BgL_siza7eza7_3762;
							}
						else
							{
								obj_t BgL_auxz00_7327;

								BgL_auxz00_7327 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(71236L),
									BGl_string2692z00zz__r4_ports_6_10_1z00,
									BGl_string2582z00zz__r4_ports_6_10_1z00, BgL_siza7eza7_3762);
								FAILURE(BgL_auxz00_7327, BFALSE, BFALSE);
							}
						BgL_auxz00_7323 = (long) CINT(BgL_tmpz00_7324);
					}
					if (OUTPUT_PORTP(BgL_oportz00_3761))
						{	/* Ieee/port.scm 1573 */
							BgL_auxz00_7316 = BgL_oportz00_3761;
						}
					else
						{
							obj_t BgL_auxz00_7319;

							BgL_auxz00_7319 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(71236L),
								BGl_string2692z00zz__r4_ports_6_10_1z00,
								BGl_string2565z00zz__r4_ports_6_10_1z00, BgL_oportz00_3761);
							FAILURE(BgL_auxz00_7319, BFALSE, BFALSE);
						}
					BgL_tmpz00_7315 =
						BGl_outputzd2portzd2truncatez00zz__r4_ports_6_10_1z00
						(BgL_auxz00_7316, BgL_auxz00_7323);
				}
				return BBOOL(BgL_tmpz00_7315);
			}
		}

	}



/* copy-file */
	BGL_EXPORTED_DEF obj_t BGl_copyzd2filezd2zz__r4_ports_6_10_1z00(char
		*BgL_string1z00_185, char *BgL_string2z00_186)
	{
		{	/* Ieee/port.scm 1578 */
			{	/* Ieee/port.scm 1579 */
				obj_t BgL_piz00_1955;

				BgL_piz00_1955 =
					BGl_openzd2inputzd2binaryzd2filezd2zz__binaryz00(string_to_bstring
					(BgL_string1z00_185));
				if (BINARY_PORTP(BgL_piz00_1955))
					{	/* Ieee/port.scm 1581 */
						obj_t BgL_poz00_1957;

						BgL_poz00_1957 =
							BGl_openzd2outputzd2binaryzd2filezd2zz__binaryz00
							(string_to_bstring(BgL_string2z00_186));
						if (BINARY_PORTP(BgL_poz00_1957))
							{	/* Ieee/port.scm 1586 */
								obj_t BgL_sz00_1959;

								{	/* Ieee/string.scm 172 */

									BgL_sz00_1959 = make_string(1024L, ((unsigned char) ' '));
								}
								{	/* Ieee/port.scm 1587 */
									int BgL_g1161z00_1960;

									BgL_g1161z00_1960 =
										bgl_input_fill_string(BgL_piz00_1955, BgL_sz00_1959);
									{
										int BgL_lz00_1962;

										{	/* Ieee/port.scm 1587 */
											bool_t BgL_tmpz00_7344;

											BgL_lz00_1962 = BgL_g1161z00_1960;
										BgL_zc3z04anonymousza31615ze3z87_1963:
											if (((long) (BgL_lz00_1962) == 1024L))
												{	/* Ieee/port.scm 1588 */
													bgl_output_string(
														((obj_t) BgL_poz00_1957), BgL_sz00_1959);
													{	/* Ieee/port.scm 1591 */
														int BgL_arg1617z00_1965;

														BgL_arg1617z00_1965 =
															bgl_input_fill_string(
															((obj_t) BgL_piz00_1955), BgL_sz00_1959);
														{
															int BgL_lz00_7352;

															BgL_lz00_7352 = BgL_arg1617z00_1965;
															BgL_lz00_1962 = BgL_lz00_7352;
															goto BgL_zc3z04anonymousza31615ze3z87_1963;
														}
													}
												}
											else
												{	/* Ieee/port.scm 1588 */
													{	/* Ieee/port.scm 1593 */
														obj_t BgL_arg1619z00_1966;

														{	/* Ieee/port.scm 1593 */
															long BgL_tmpz00_7353;

															BgL_tmpz00_7353 = (long) (BgL_lz00_1962);
															BgL_arg1619z00_1966 =
																bgl_string_shrink(BgL_sz00_1959,
																BgL_tmpz00_7353);
														}
														bgl_output_string(
															((obj_t) BgL_poz00_1957), BgL_arg1619z00_1966);
													}
													close_binary_port(((obj_t) BgL_piz00_1955));
													close_binary_port(((obj_t) BgL_poz00_1957));
													BgL_tmpz00_7344 = ((bool_t) 1);
												}
											return BBOOL(BgL_tmpz00_7344);
										}
									}
								}
							}
						else
							{	/* Ieee/port.scm 1582 */
								close_binary_port(BgL_piz00_1955);
								return BFALSE;
							}
					}
				else
					{	/* Ieee/port.scm 1580 */
						return BFALSE;
					}
			}
		}

	}



/* &copy-file */
	obj_t BGl_z62copyzd2filezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3763,
		obj_t BgL_string1z00_3764, obj_t BgL_string2z00_3765)
	{
		{	/* Ieee/port.scm 1578 */
			{	/* Ieee/port.scm 1579 */
				char *BgL_auxz00_7373;
				char *BgL_auxz00_7364;

				{	/* Ieee/port.scm 1579 */
					obj_t BgL_tmpz00_7374;

					if (STRINGP(BgL_string2z00_3765))
						{	/* Ieee/port.scm 1579 */
							BgL_tmpz00_7374 = BgL_string2z00_3765;
						}
					else
						{
							obj_t BgL_auxz00_7377;

							BgL_auxz00_7377 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(71523L),
								BGl_string2693z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_string2z00_3765);
							FAILURE(BgL_auxz00_7377, BFALSE, BFALSE);
						}
					BgL_auxz00_7373 = BSTRING_TO_STRING(BgL_tmpz00_7374);
				}
				{	/* Ieee/port.scm 1579 */
					obj_t BgL_tmpz00_7365;

					if (STRINGP(BgL_string1z00_3764))
						{	/* Ieee/port.scm 1579 */
							BgL_tmpz00_7365 = BgL_string1z00_3764;
						}
					else
						{
							obj_t BgL_auxz00_7368;

							BgL_auxz00_7368 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(71523L),
								BGl_string2693z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_string1z00_3764);
							FAILURE(BgL_auxz00_7368, BFALSE, BFALSE);
						}
					BgL_auxz00_7364 = BSTRING_TO_STRING(BgL_tmpz00_7365);
				}
				return
					BGl_copyzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_7364,
					BgL_auxz00_7373);
			}
		}

	}



/* port? */
	BGL_EXPORTED_DEF bool_t BGl_portzf3zf3zz__r4_ports_6_10_1z00(obj_t
		BgL_objz00_187)
	{
		{	/* Ieee/port.scm 1601 */
			{	/* Ieee/port.scm 1602 */
				bool_t BgL__ortest_1162z00_4318;

				BgL__ortest_1162z00_4318 = OUTPUT_PORTP(BgL_objz00_187);
				if (BgL__ortest_1162z00_4318)
					{	/* Ieee/port.scm 1602 */
						return BgL__ortest_1162z00_4318;
					}
				else
					{	/* Ieee/port.scm 1602 */
						return INPUT_PORTP(BgL_objz00_187);
					}
			}
		}

	}



/* &port? */
	obj_t BGl_z62portzf3z91zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3766,
		obj_t BgL_objz00_3767)
	{
		{	/* Ieee/port.scm 1601 */
			return BBOOL(BGl_portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3767));
		}

	}



/* directory? */
	BGL_EXPORTED_DEF bool_t BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_188)
	{
		{	/* Ieee/port.scm 1607 */
			BGL_TAIL return bgl_directoryp(BgL_stringz00_188);
		}

	}



/* &directory? */
	obj_t BGl_z62directoryzf3z91zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3768,
		obj_t BgL_stringz00_3769)
	{
		{	/* Ieee/port.scm 1607 */
			{	/* Ieee/port.scm 1608 */
				bool_t BgL_tmpz00_7389;

				{	/* Ieee/port.scm 1608 */
					char *BgL_auxz00_7390;

					{	/* Ieee/port.scm 1608 */
						obj_t BgL_tmpz00_7391;

						if (STRINGP(BgL_stringz00_3769))
							{	/* Ieee/port.scm 1608 */
								BgL_tmpz00_7391 = BgL_stringz00_3769;
							}
						else
							{
								obj_t BgL_auxz00_7394;

								BgL_auxz00_7394 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(72611L),
									BGl_string2694z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3769);
								FAILURE(BgL_auxz00_7394, BFALSE, BFALSE);
							}
						BgL_auxz00_7390 = BSTRING_TO_STRING(BgL_tmpz00_7391);
					}
					BgL_tmpz00_7389 =
						BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(BgL_auxz00_7390);
				}
				return BBOOL(BgL_tmpz00_7389);
			}
		}

	}



/* directory-length */
	BGL_EXPORTED_DEF obj_t BGl_directoryzd2lengthzd2zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_189)
	{
		{	/* Ieee/port.scm 1613 */
			return BINT(bgl_directory_length(BgL_stringz00_189));
		}

	}



/* &directory-length */
	obj_t BGl_z62directoryzd2lengthzb0zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3770, obj_t BgL_stringz00_3771)
	{
		{	/* Ieee/port.scm 1613 */
			{	/* Ieee/port.scm 1614 */
				char *BgL_auxz00_7403;

				{	/* Ieee/port.scm 1614 */
					obj_t BgL_tmpz00_7404;

					if (STRINGP(BgL_stringz00_3771))
						{	/* Ieee/port.scm 1614 */
							BgL_tmpz00_7404 = BgL_stringz00_3771;
						}
					else
						{
							obj_t BgL_auxz00_7407;

							BgL_auxz00_7407 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(72900L),
								BGl_string2695z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3771);
							FAILURE(BgL_auxz00_7407, BFALSE, BFALSE);
						}
					BgL_auxz00_7403 = BSTRING_TO_STRING(BgL_tmpz00_7404);
				}
				return BGl_directoryzd2lengthzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7403);
			}
		}

	}



/* directory->list */
	BGL_EXPORTED_DEF obj_t BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_190)
	{
		{	/* Ieee/port.scm 1619 */
			BGL_TAIL return bgl_directory_to_list(BgL_stringz00_190);
		}

	}



/* &directory->list */
	obj_t BGl_z62directoryzd2ze3listz53zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3772, obj_t BgL_stringz00_3773)
	{
		{	/* Ieee/port.scm 1619 */
			{	/* Ieee/port.scm 1620 */
				char *BgL_auxz00_7414;

				{	/* Ieee/port.scm 1620 */
					obj_t BgL_tmpz00_7415;

					if (STRINGP(BgL_stringz00_3773))
						{	/* Ieee/port.scm 1620 */
							BgL_tmpz00_7415 = BgL_stringz00_3773;
						}
					else
						{
							obj_t BgL_auxz00_7418;

							BgL_auxz00_7418 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(73194L),
								BGl_string2696z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3773);
							FAILURE(BgL_auxz00_7418, BFALSE, BFALSE);
						}
					BgL_auxz00_7414 = BSTRING_TO_STRING(BgL_tmpz00_7415);
				}
				return
					BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(BgL_auxz00_7414);
			}
		}

	}



/* directory->path-list */
	BGL_EXPORTED_DEF obj_t
		BGl_directoryzd2ze3pathzd2listze3zz__r4_ports_6_10_1z00(obj_t
		BgL_dirz00_191)
	{
		{	/* Ieee/port.scm 1625 */
			{	/* Ieee/port.scm 1626 */
				long BgL_lz00_1971;

				BgL_lz00_1971 = STRING_LENGTH(BgL_dirz00_191);
				if ((BgL_lz00_1971 == 0L))
					{	/* Ieee/port.scm 1628 */
						return BNIL;
					}
				else
					{	/* Ieee/port.scm 1628 */
						if (
							(STRING_REF(BgL_dirz00_191,
									(BgL_lz00_1971 - 1L)) == (unsigned char) (FILE_SEPARATOR)))
							{	/* Ieee/port.scm 1633 */
								long BgL_arg1625z00_1977;

								BgL_arg1625z00_1977 = (BgL_lz00_1971 - 1L);
								return
									bgl_directory_to_path_list(BSTRING_TO_STRING(BgL_dirz00_191),
									(int) (BgL_arg1625z00_1977), FILE_SEPARATOR);
							}
						else
							{	/* Ieee/port.scm 1630 */
								return
									bgl_directory_to_path_list(BSTRING_TO_STRING(BgL_dirz00_191),
									(int) (BgL_lz00_1971), FILE_SEPARATOR);
		}}}}

	}



/* &directory->path-list */
	obj_t BGl_z62directoryzd2ze3pathzd2listz81zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3774, obj_t BgL_dirz00_3775)
	{
		{	/* Ieee/port.scm 1625 */
			{	/* Ieee/port.scm 1626 */
				obj_t BgL_auxz00_7439;

				if (STRINGP(BgL_dirz00_3775))
					{	/* Ieee/port.scm 1626 */
						BgL_auxz00_7439 = BgL_dirz00_3775;
					}
				else
					{
						obj_t BgL_auxz00_7442;

						BgL_auxz00_7442 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(73482L),
							BGl_string2697z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_dirz00_3775);
						FAILURE(BgL_auxz00_7442, BFALSE, BFALSE);
					}
				return
					BGl_directoryzd2ze3pathzd2listze3zz__r4_ports_6_10_1z00
					(BgL_auxz00_7439);
			}
		}

	}



/* directory->vector */
	BGL_EXPORTED_DEF obj_t BGl_directoryzd2ze3vectorz31zz__r4_ports_6_10_1z00(char
		*BgL_stringz00_192)
	{
		{	/* Ieee/port.scm 1648 */
			BGL_TAIL return bgl_directory_to_vector(BgL_stringz00_192);
		}

	}



/* &directory->vector */
	obj_t BGl_z62directoryzd2ze3vectorz53zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3776, obj_t BgL_stringz00_3777)
	{
		{	/* Ieee/port.scm 1648 */
			{	/* Ieee/port.scm 1649 */
				char *BgL_auxz00_7448;

				{	/* Ieee/port.scm 1649 */
					obj_t BgL_tmpz00_7449;

					if (STRINGP(BgL_stringz00_3777))
						{	/* Ieee/port.scm 1649 */
							BgL_tmpz00_7449 = BgL_stringz00_3777;
						}
					else
						{
							obj_t BgL_auxz00_7452;

							BgL_auxz00_7452 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(74246L),
								BGl_string2698z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_stringz00_3777);
							FAILURE(BgL_auxz00_7452, BFALSE, BFALSE);
						}
					BgL_auxz00_7448 = BSTRING_TO_STRING(BgL_tmpz00_7449);
				}
				return
					BGl_directoryzd2ze3vectorz31zz__r4_ports_6_10_1z00(BgL_auxz00_7448);
			}
		}

	}



/* directory->path-vector */
	BGL_EXPORTED_DEF obj_t
		BGl_directoryzd2ze3pathzd2vectorze3zz__r4_ports_6_10_1z00(obj_t
		BgL_dirz00_193)
	{
		{	/* Ieee/port.scm 1654 */
			{	/* Ieee/port.scm 1655 */
				long BgL_lz00_1983;

				BgL_lz00_1983 = STRING_LENGTH(BgL_dirz00_193);
				if ((BgL_lz00_1983 == 0L))
					{	/* Ieee/port.scm 1657 */
						return BGl_vector2699z00zz__r4_ports_6_10_1z00;
					}
				else
					{	/* Ieee/port.scm 1657 */
						if (
							(STRING_REF(BgL_dirz00_193,
									(BgL_lz00_1983 - 1L)) == (unsigned char) (FILE_SEPARATOR)))
							{	/* Ieee/port.scm 1662 */
								long BgL_arg1636z00_1989;

								BgL_arg1636z00_1989 = (BgL_lz00_1983 - 1L);
								return
									bgl_directory_to_path_vector(BSTRING_TO_STRING
									(BgL_dirz00_193), (int) (BgL_arg1636z00_1989),
									FILE_SEPARATOR);
							}
						else
							{	/* Ieee/port.scm 1659 */
								return
									bgl_directory_to_path_vector(BSTRING_TO_STRING
									(BgL_dirz00_193), (int) (BgL_lz00_1983), FILE_SEPARATOR);
		}}}}

	}



/* &directory->path-vector */
	obj_t BGl_z62directoryzd2ze3pathzd2vectorz81zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3778, obj_t BgL_dirz00_3779)
	{
		{	/* Ieee/port.scm 1654 */
			{	/* Ieee/port.scm 1655 */
				obj_t BgL_auxz00_7473;

				if (STRINGP(BgL_dirz00_3779))
					{	/* Ieee/port.scm 1655 */
						BgL_auxz00_7473 = BgL_dirz00_3779;
					}
				else
					{
						obj_t BgL_auxz00_7476;

						BgL_auxz00_7476 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(74538L),
							BGl_string2700z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_dirz00_3779);
						FAILURE(BgL_auxz00_7476, BFALSE, BFALSE);
					}
				return
					BGl_directoryzd2ze3pathzd2vectorze3zz__r4_ports_6_10_1z00
					(BgL_auxz00_7473);
			}
		}

	}



/* file-modification-time */
	BGL_EXPORTED_DEF long
		BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(char
		*BgL_filez00_194)
	{
		{	/* Ieee/port.scm 1677 */
			BGL_TAIL return bgl_last_modification_time(BgL_filez00_194);
		}

	}



/* &file-modification-time */
	obj_t BGl_z62filezd2modificationzd2timez62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3780, obj_t BgL_filez00_3781)
	{
		{	/* Ieee/port.scm 1677 */
			{	/* Ieee/port.scm 1678 */
				long BgL_tmpz00_7482;

				{	/* Ieee/port.scm 1678 */
					char *BgL_auxz00_7483;

					{	/* Ieee/port.scm 1678 */
						obj_t BgL_tmpz00_7484;

						if (STRINGP(BgL_filez00_3781))
							{	/* Ieee/port.scm 1678 */
								BgL_tmpz00_7484 = BgL_filez00_3781;
							}
						else
							{
								obj_t BgL_auxz00_7487;

								BgL_auxz00_7487 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(75310L),
									BGl_string2701z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3781);
								FAILURE(BgL_auxz00_7487, BFALSE, BFALSE);
							}
						BgL_auxz00_7483 = BSTRING_TO_STRING(BgL_tmpz00_7484);
					}
					BgL_tmpz00_7482 =
						BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00
						(BgL_auxz00_7483);
				}
				return make_belong(BgL_tmpz00_7482);
			}
		}

	}



/* file-change-time */
	BGL_EXPORTED_DEF long BGl_filezd2changezd2timez00zz__r4_ports_6_10_1z00(char
		*BgL_filez00_195)
	{
		{	/* Ieee/port.scm 1683 */
			BGL_TAIL return bgl_last_change_time(BgL_filez00_195);
		}

	}



/* &file-change-time */
	obj_t BGl_z62filezd2changezd2timez62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3782, obj_t BgL_filez00_3783)
	{
		{	/* Ieee/port.scm 1683 */
			{	/* Ieee/port.scm 1684 */
				long BgL_tmpz00_7495;

				{	/* Ieee/port.scm 1684 */
					char *BgL_auxz00_7496;

					{	/* Ieee/port.scm 1684 */
						obj_t BgL_tmpz00_7497;

						if (STRINGP(BgL_filez00_3783))
							{	/* Ieee/port.scm 1684 */
								BgL_tmpz00_7497 = BgL_filez00_3783;
							}
						else
							{
								obj_t BgL_auxz00_7500;

								BgL_auxz00_7500 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(75602L),
									BGl_string2702z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3783);
								FAILURE(BgL_auxz00_7500, BFALSE, BFALSE);
							}
						BgL_auxz00_7496 = BSTRING_TO_STRING(BgL_tmpz00_7497);
					}
					BgL_tmpz00_7495 =
						BGl_filezd2changezd2timez00zz__r4_ports_6_10_1z00(BgL_auxz00_7496);
				}
				return make_belong(BgL_tmpz00_7495);
			}
		}

	}



/* file-access-time */
	BGL_EXPORTED_DEF long BGl_filezd2accesszd2timez00zz__r4_ports_6_10_1z00(char
		*BgL_filez00_196)
	{
		{	/* Ieee/port.scm 1689 */
			BGL_TAIL return bgl_last_access_time(BgL_filez00_196);
		}

	}



/* &file-access-time */
	obj_t BGl_z62filezd2accesszd2timez62zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3784, obj_t BgL_filez00_3785)
	{
		{	/* Ieee/port.scm 1689 */
			{	/* Ieee/port.scm 1690 */
				long BgL_tmpz00_7508;

				{	/* Ieee/port.scm 1690 */
					char *BgL_auxz00_7509;

					{	/* Ieee/port.scm 1690 */
						obj_t BgL_tmpz00_7510;

						if (STRINGP(BgL_filez00_3785))
							{	/* Ieee/port.scm 1690 */
								BgL_tmpz00_7510 = BgL_filez00_3785;
							}
						else
							{
								obj_t BgL_auxz00_7513;

								BgL_auxz00_7513 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(75888L),
									BGl_string2703z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3785);
								FAILURE(BgL_auxz00_7513, BFALSE, BFALSE);
							}
						BgL_auxz00_7509 = BSTRING_TO_STRING(BgL_tmpz00_7510);
					}
					BgL_tmpz00_7508 =
						BGl_filezd2accesszd2timez00zz__r4_ports_6_10_1z00(BgL_auxz00_7509);
				}
				return make_belong(BgL_tmpz00_7508);
			}
		}

	}



/* file-times-set! */
	BGL_EXPORTED_DEF int BGl_filezd2timeszd2setz12z12zz__r4_ports_6_10_1z00(char
		*BgL_filez00_197, long BgL_atimez00_198, long BgL_mtimez00_199)
	{
		{	/* Ieee/port.scm 1695 */
			BGL_TAIL return
				bgl_utime(BgL_filez00_197, BgL_atimez00_198, BgL_mtimez00_199);
		}

	}



/* &file-times-set! */
	obj_t BGl_z62filezd2timeszd2setz12z70zz__r4_ports_6_10_1z00(obj_t
		BgL_envz00_3786, obj_t BgL_filez00_3787, obj_t BgL_atimez00_3788,
		obj_t BgL_mtimez00_3789)
	{
		{	/* Ieee/port.scm 1695 */
			{	/* Ieee/port.scm 1696 */
				int BgL_tmpz00_7521;

				{	/* Ieee/port.scm 1696 */
					long BgL_auxz00_7540;
					long BgL_auxz00_7531;
					char *BgL_auxz00_7522;

					{	/* Ieee/port.scm 1696 */
						obj_t BgL_tmpz00_7541;

						if (ELONGP(BgL_mtimez00_3789))
							{	/* Ieee/port.scm 1696 */
								BgL_tmpz00_7541 = BgL_mtimez00_3789;
							}
						else
							{
								obj_t BgL_auxz00_7544;

								BgL_auxz00_7544 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(76185L),
									BGl_string2704z00zz__r4_ports_6_10_1z00,
									BGl_string2705z00zz__r4_ports_6_10_1z00, BgL_mtimez00_3789);
								FAILURE(BgL_auxz00_7544, BFALSE, BFALSE);
							}
						BgL_auxz00_7540 = BELONG_TO_LONG(BgL_tmpz00_7541);
					}
					{	/* Ieee/port.scm 1696 */
						obj_t BgL_tmpz00_7532;

						if (ELONGP(BgL_atimez00_3788))
							{	/* Ieee/port.scm 1696 */
								BgL_tmpz00_7532 = BgL_atimez00_3788;
							}
						else
							{
								obj_t BgL_auxz00_7535;

								BgL_auxz00_7535 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(76185L),
									BGl_string2704z00zz__r4_ports_6_10_1z00,
									BGl_string2705z00zz__r4_ports_6_10_1z00, BgL_atimez00_3788);
								FAILURE(BgL_auxz00_7535, BFALSE, BFALSE);
							}
						BgL_auxz00_7531 = BELONG_TO_LONG(BgL_tmpz00_7532);
					}
					{	/* Ieee/port.scm 1696 */
						obj_t BgL_tmpz00_7523;

						if (STRINGP(BgL_filez00_3787))
							{	/* Ieee/port.scm 1696 */
								BgL_tmpz00_7523 = BgL_filez00_3787;
							}
						else
							{
								obj_t BgL_auxz00_7526;

								BgL_auxz00_7526 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(76185L),
									BGl_string2704z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3787);
								FAILURE(BgL_auxz00_7526, BFALSE, BFALSE);
							}
						BgL_auxz00_7522 = BSTRING_TO_STRING(BgL_tmpz00_7523);
					}
					BgL_tmpz00_7521 =
						BGl_filezd2timeszd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_7522,
						BgL_auxz00_7531, BgL_auxz00_7540);
				}
				return BINT(BgL_tmpz00_7521);
			}
		}

	}



/* file-size */
	BGL_EXPORTED_DEF long BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(char
		*BgL_filez00_200)
	{
		{	/* Ieee/port.scm 1701 */
			BGL_TAIL return bgl_file_size(BgL_filez00_200);
		}

	}



/* &file-size */
	obj_t BGl_z62filezd2siza7ez17zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3790,
		obj_t BgL_filez00_3791)
	{
		{	/* Ieee/port.scm 1701 */
			{	/* Ieee/port.scm 1702 */
				long BgL_tmpz00_7552;

				{	/* Ieee/port.scm 1702 */
					char *BgL_auxz00_7553;

					{	/* Ieee/port.scm 1702 */
						obj_t BgL_tmpz00_7554;

						if (STRINGP(BgL_filez00_3791))
							{	/* Ieee/port.scm 1702 */
								BgL_tmpz00_7554 = BgL_filez00_3791;
							}
						else
							{
								obj_t BgL_auxz00_7557;

								BgL_auxz00_7557 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(76470L),
									BGl_string2706z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3791);
								FAILURE(BgL_auxz00_7557, BFALSE, BFALSE);
							}
						BgL_auxz00_7553 = BSTRING_TO_STRING(BgL_tmpz00_7554);
					}
					BgL_tmpz00_7552 =
						BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(BgL_auxz00_7553);
				}
				return make_belong(BgL_tmpz00_7552);
			}
		}

	}



/* file-uid */
	BGL_EXPORTED_DEF int BGl_filezd2uidzd2zz__r4_ports_6_10_1z00(char
		*BgL_filez00_201)
	{
		{	/* Ieee/port.scm 1707 */
			return (int) (bgl_file_uid(BgL_filez00_201));
		}

	}



/* &file-uid */
	obj_t BGl_z62filezd2uidzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3792,
		obj_t BgL_filez00_3793)
	{
		{	/* Ieee/port.scm 1707 */
			{	/* Ieee/port.scm 1708 */
				int BgL_tmpz00_7566;

				{	/* Ieee/port.scm 1708 */
					char *BgL_auxz00_7567;

					{	/* Ieee/port.scm 1708 */
						obj_t BgL_tmpz00_7568;

						if (STRINGP(BgL_filez00_3793))
							{	/* Ieee/port.scm 1708 */
								BgL_tmpz00_7568 = BgL_filez00_3793;
							}
						else
							{
								obj_t BgL_auxz00_7571;

								BgL_auxz00_7571 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(76746L),
									BGl_string2707z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3793);
								FAILURE(BgL_auxz00_7571, BFALSE, BFALSE);
							}
						BgL_auxz00_7567 = BSTRING_TO_STRING(BgL_tmpz00_7568);
					}
					BgL_tmpz00_7566 =
						BGl_filezd2uidzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7567);
				}
				return BINT(BgL_tmpz00_7566);
			}
		}

	}



/* file-gid */
	BGL_EXPORTED_DEF int BGl_filezd2gidzd2zz__r4_ports_6_10_1z00(char
		*BgL_filez00_202)
	{
		{	/* Ieee/port.scm 1713 */
			return (int) (bgl_file_gid(BgL_filez00_202));
		}

	}



/* &file-gid */
	obj_t BGl_z62filezd2gidzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3794,
		obj_t BgL_filez00_3795)
	{
		{	/* Ieee/port.scm 1713 */
			{	/* Ieee/port.scm 1714 */
				int BgL_tmpz00_7580;

				{	/* Ieee/port.scm 1714 */
					char *BgL_auxz00_7581;

					{	/* Ieee/port.scm 1714 */
						obj_t BgL_tmpz00_7582;

						if (STRINGP(BgL_filez00_3795))
							{	/* Ieee/port.scm 1714 */
								BgL_tmpz00_7582 = BgL_filez00_3795;
							}
						else
							{
								obj_t BgL_auxz00_7585;

								BgL_auxz00_7585 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(77021L),
									BGl_string2708z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3795);
								FAILURE(BgL_auxz00_7585, BFALSE, BFALSE);
							}
						BgL_auxz00_7581 = BSTRING_TO_STRING(BgL_tmpz00_7582);
					}
					BgL_tmpz00_7580 =
						BGl_filezd2gidzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7581);
				}
				return BINT(BgL_tmpz00_7580);
			}
		}

	}



/* file-mode */
	BGL_EXPORTED_DEF int BGl_filezd2modezd2zz__r4_ports_6_10_1z00(char
		*BgL_filez00_203)
	{
		{	/* Ieee/port.scm 1719 */
			return (int) (bgl_file_mode(BgL_filez00_203));
		}

	}



/* &file-mode */
	obj_t BGl_z62filezd2modezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3796,
		obj_t BgL_filez00_3797)
	{
		{	/* Ieee/port.scm 1719 */
			{	/* Ieee/port.scm 1720 */
				int BgL_tmpz00_7594;

				{	/* Ieee/port.scm 1720 */
					char *BgL_auxz00_7595;

					{	/* Ieee/port.scm 1720 */
						obj_t BgL_tmpz00_7596;

						if (STRINGP(BgL_filez00_3797))
							{	/* Ieee/port.scm 1720 */
								BgL_tmpz00_7596 = BgL_filez00_3797;
							}
						else
							{
								obj_t BgL_auxz00_7599;

								BgL_auxz00_7599 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(77297L),
									BGl_string2709z00zz__r4_ports_6_10_1z00,
									BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3797);
								FAILURE(BgL_auxz00_7599, BFALSE, BFALSE);
							}
						BgL_auxz00_7595 = BSTRING_TO_STRING(BgL_tmpz00_7596);
					}
					BgL_tmpz00_7594 =
						BGl_filezd2modezd2zz__r4_ports_6_10_1z00(BgL_auxz00_7595);
				}
				return BINT(BgL_tmpz00_7594);
			}
		}

	}



/* file-type */
	BGL_EXPORTED_DEF obj_t BGl_filezd2typezd2zz__r4_ports_6_10_1z00(char
		*BgL_filez00_204)
	{
		{	/* Ieee/port.scm 1725 */
			BGL_TAIL return bgl_file_type(BgL_filez00_204);
		}

	}



/* &file-type */
	obj_t BGl_z62filezd2typezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3798,
		obj_t BgL_filez00_3799)
	{
		{	/* Ieee/port.scm 1725 */
			{	/* Ieee/port.scm 1726 */
				char *BgL_auxz00_7607;

				{	/* Ieee/port.scm 1726 */
					obj_t BgL_tmpz00_7608;

					if (STRINGP(BgL_filez00_3799))
						{	/* Ieee/port.scm 1726 */
							BgL_tmpz00_7608 = BgL_filez00_3799;
						}
					else
						{
							obj_t BgL_auxz00_7611;

							BgL_auxz00_7611 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(77574L),
								BGl_string2710z00zz__r4_ports_6_10_1z00,
								BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_filez00_3799);
							FAILURE(BgL_auxz00_7611, BFALSE, BFALSE);
						}
					BgL_auxz00_7607 = BSTRING_TO_STRING(BgL_tmpz00_7608);
				}
				return BGl_filezd2typezd2zz__r4_ports_6_10_1z00(BgL_auxz00_7607);
			}
		}

	}



/* make-symlink */
	BGL_EXPORTED_DEF obj_t BGl_makezd2symlinkzd2zz__r4_ports_6_10_1z00(obj_t
		BgL_path1z00_205, obj_t BgL_path2z00_206)
	{
		{	/* Ieee/port.scm 1731 */
			return
				BINT(bgl_symlink(BSTRING_TO_STRING(BgL_path1z00_205),
					BSTRING_TO_STRING(BgL_path2z00_206)));
		}

	}



/* &make-symlink */
	obj_t BGl_z62makezd2symlinkzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3800,
		obj_t BgL_path1z00_3801, obj_t BgL_path2z00_3802)
	{
		{	/* Ieee/port.scm 1731 */
			{	/* Ieee/port.scm 1732 */
				obj_t BgL_auxz00_7628;
				obj_t BgL_auxz00_7621;

				if (STRINGP(BgL_path2z00_3802))
					{	/* Ieee/port.scm 1732 */
						BgL_auxz00_7628 = BgL_path2z00_3802;
					}
				else
					{
						obj_t BgL_auxz00_7631;

						BgL_auxz00_7631 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(77861L),
							BGl_string2711z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_path2z00_3802);
						FAILURE(BgL_auxz00_7631, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_path1z00_3801))
					{	/* Ieee/port.scm 1732 */
						BgL_auxz00_7621 = BgL_path1z00_3801;
					}
				else
					{
						obj_t BgL_auxz00_7624;

						BgL_auxz00_7624 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(77861L),
							BGl_string2711z00zz__r4_ports_6_10_1z00,
							BGl_string2540z00zz__r4_ports_6_10_1z00, BgL_path1z00_3801);
						FAILURE(BgL_auxz00_7624, BFALSE, BFALSE);
					}
				return
					BGl_makezd2symlinkzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7621,
					BgL_auxz00_7628);
			}
		}

	}



/* _select */
	obj_t BGl__selectz00zz__r4_ports_6_10_1z00(obj_t BgL_env1305z00_212,
		obj_t BgL_opt1304z00_211)
	{
		{	/* Ieee/port.scm 1737 */
			{	/* Ieee/port.scm 1737 */
				long BgL_l1306z00_4319;

				{	/* Ieee/port.scm 1737 */
					obj_t BgL_vectorz00_4320;

					if (VECTORP(BgL_opt1304z00_211))
						{	/* Ieee/port.scm 1737 */
							BgL_vectorz00_4320 = BgL_opt1304z00_211;
						}
					else
						{
							obj_t BgL_auxz00_7638;

							BgL_auxz00_7638 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78115L),
								BGl_string2712z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1304z00_211);
							FAILURE(BgL_auxz00_7638, BFALSE, BFALSE);
						}
					BgL_l1306z00_4319 = VECTOR_LENGTH(BgL_vectorz00_4320);
				}
				{	/* Ieee/port.scm 1737 */

					{	/* Ieee/port.scm 1737 */
						obj_t BgL_exceptz00_4321;

						BgL_exceptz00_4321 = BNIL;
						{	/* Ieee/port.scm 1737 */
							obj_t BgL_readz00_4322;

							BgL_readz00_4322 = BNIL;
							{	/* Ieee/port.scm 1737 */
								obj_t BgL_timeoutz00_4323;

								BgL_timeoutz00_4323 = BINT(0L);
								{	/* Ieee/port.scm 1737 */
									obj_t BgL_writez00_4324;

									BgL_writez00_4324 = BNIL;
									{	/* Ieee/port.scm 1737 */

										{
											long BgL_iz00_4326;

											BgL_iz00_4326 = 0L;
										BgL_check1308z00_4325:
											if ((BgL_iz00_4326 == BgL_l1306z00_4319))
												{	/* Ieee/port.scm 1737 */
													BNIL;
												}
											else
												{	/* Ieee/port.scm 1737 */
													bool_t BgL_test3410z00_7646;

													{	/* Ieee/port.scm 1737 */
														obj_t BgL_arg1651z00_4327;

														BgL_arg1651z00_4327 =
															VECTOR_REF(
															((obj_t) BgL_opt1304z00_211), BgL_iz00_4326);
														BgL_test3410z00_7646 =
															CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
															(BgL_arg1651z00_4327,
																BGl_list2713z00zz__r4_ports_6_10_1z00));
													}
													if (BgL_test3410z00_7646)
														{
															long BgL_iz00_7651;

															BgL_iz00_7651 = (BgL_iz00_4326 + 2L);
															BgL_iz00_4326 = BgL_iz00_7651;
															goto BgL_check1308z00_4325;
														}
													else
														{	/* Ieee/port.scm 1737 */
															obj_t BgL_arg1649z00_4328;

															BgL_arg1649z00_4328 =
																VECTOR_REF(
																((obj_t) BgL_opt1304z00_211), BgL_iz00_4326);
															BGl_errorz00zz__errorz00
																(BGl_symbol2722z00zz__r4_ports_6_10_1z00,
																BGl_string2724z00zz__r4_ports_6_10_1z00,
																BgL_arg1649z00_4328);
														}
												}
										}
										{	/* Ieee/port.scm 1737 */
											obj_t BgL_index1310z00_4329;

											BgL_index1310z00_4329 =
												BGl_search1307ze70ze7zz__r4_ports_6_10_1z00
												(BgL_l1306z00_4319, BgL_opt1304z00_211,
												BGl_keyword2714z00zz__r4_ports_6_10_1z00, 0L);
											{	/* Ieee/port.scm 1737 */
												bool_t BgL_test3411z00_7657;

												{	/* Ieee/port.scm 1737 */
													long BgL_n1z00_4330;

													{	/* Ieee/port.scm 1737 */
														obj_t BgL_tmpz00_7658;

														if (INTEGERP(BgL_index1310z00_4329))
															{	/* Ieee/port.scm 1737 */
																BgL_tmpz00_7658 = BgL_index1310z00_4329;
															}
														else
															{
																obj_t BgL_auxz00_7661;

																BgL_auxz00_7661 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2582z00zz__r4_ports_6_10_1z00,
																	BgL_index1310z00_4329);
																FAILURE(BgL_auxz00_7661, BFALSE, BFALSE);
															}
														BgL_n1z00_4330 = (long) CINT(BgL_tmpz00_7658);
													}
													BgL_test3411z00_7657 = (BgL_n1z00_4330 >= 0L);
												}
												if (BgL_test3411z00_7657)
													{
														long BgL_auxz00_7674;
														obj_t BgL_auxz00_7667;

														{	/* Ieee/port.scm 1737 */
															obj_t BgL_tmpz00_7675;

															if (INTEGERP(BgL_index1310z00_4329))
																{	/* Ieee/port.scm 1737 */
																	BgL_tmpz00_7675 = BgL_index1310z00_4329;
																}
															else
																{
																	obj_t BgL_auxz00_7678;

																	BgL_auxz00_7678 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78115L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2582z00zz__r4_ports_6_10_1z00,
																		BgL_index1310z00_4329);
																	FAILURE(BgL_auxz00_7678, BFALSE, BFALSE);
																}
															BgL_auxz00_7674 = (long) CINT(BgL_tmpz00_7675);
														}
														if (VECTORP(BgL_opt1304z00_211))
															{	/* Ieee/port.scm 1737 */
																BgL_auxz00_7667 = BgL_opt1304z00_211;
															}
														else
															{
																obj_t BgL_auxz00_7670;

																BgL_auxz00_7670 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2611z00zz__r4_ports_6_10_1z00,
																	BgL_opt1304z00_211);
																FAILURE(BgL_auxz00_7670, BFALSE, BFALSE);
															}
														BgL_exceptz00_4321 =
															VECTOR_REF(BgL_auxz00_7667, BgL_auxz00_7674);
													}
												else
													{	/* Ieee/port.scm 1737 */
														BFALSE;
													}
											}
										}
										{	/* Ieee/port.scm 1737 */
											obj_t BgL_index1311z00_4331;

											BgL_index1311z00_4331 =
												BGl_search1307ze70ze7zz__r4_ports_6_10_1z00
												(BgL_l1306z00_4319, BgL_opt1304z00_211,
												BGl_keyword2716z00zz__r4_ports_6_10_1z00, 0L);
											{	/* Ieee/port.scm 1737 */
												bool_t BgL_test3415z00_7685;

												{	/* Ieee/port.scm 1737 */
													long BgL_n1z00_4332;

													{	/* Ieee/port.scm 1737 */
														obj_t BgL_tmpz00_7686;

														if (INTEGERP(BgL_index1311z00_4331))
															{	/* Ieee/port.scm 1737 */
																BgL_tmpz00_7686 = BgL_index1311z00_4331;
															}
														else
															{
																obj_t BgL_auxz00_7689;

																BgL_auxz00_7689 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2582z00zz__r4_ports_6_10_1z00,
																	BgL_index1311z00_4331);
																FAILURE(BgL_auxz00_7689, BFALSE, BFALSE);
															}
														BgL_n1z00_4332 = (long) CINT(BgL_tmpz00_7686);
													}
													BgL_test3415z00_7685 = (BgL_n1z00_4332 >= 0L);
												}
												if (BgL_test3415z00_7685)
													{
														long BgL_auxz00_7702;
														obj_t BgL_auxz00_7695;

														{	/* Ieee/port.scm 1737 */
															obj_t BgL_tmpz00_7703;

															if (INTEGERP(BgL_index1311z00_4331))
																{	/* Ieee/port.scm 1737 */
																	BgL_tmpz00_7703 = BgL_index1311z00_4331;
																}
															else
																{
																	obj_t BgL_auxz00_7706;

																	BgL_auxz00_7706 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78115L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2582z00zz__r4_ports_6_10_1z00,
																		BgL_index1311z00_4331);
																	FAILURE(BgL_auxz00_7706, BFALSE, BFALSE);
																}
															BgL_auxz00_7702 = (long) CINT(BgL_tmpz00_7703);
														}
														if (VECTORP(BgL_opt1304z00_211))
															{	/* Ieee/port.scm 1737 */
																BgL_auxz00_7695 = BgL_opt1304z00_211;
															}
														else
															{
																obj_t BgL_auxz00_7698;

																BgL_auxz00_7698 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2611z00zz__r4_ports_6_10_1z00,
																	BgL_opt1304z00_211);
																FAILURE(BgL_auxz00_7698, BFALSE, BFALSE);
															}
														BgL_readz00_4322 =
															VECTOR_REF(BgL_auxz00_7695, BgL_auxz00_7702);
													}
												else
													{	/* Ieee/port.scm 1737 */
														BFALSE;
													}
											}
										}
										{	/* Ieee/port.scm 1737 */
											obj_t BgL_index1312z00_4333;

											BgL_index1312z00_4333 =
												BGl_search1307ze70ze7zz__r4_ports_6_10_1z00
												(BgL_l1306z00_4319, BgL_opt1304z00_211,
												BGl_keyword2718z00zz__r4_ports_6_10_1z00, 0L);
											{	/* Ieee/port.scm 1737 */
												bool_t BgL_test3419z00_7713;

												{	/* Ieee/port.scm 1737 */
													long BgL_n1z00_4334;

													{	/* Ieee/port.scm 1737 */
														obj_t BgL_tmpz00_7714;

														if (INTEGERP(BgL_index1312z00_4333))
															{	/* Ieee/port.scm 1737 */
																BgL_tmpz00_7714 = BgL_index1312z00_4333;
															}
														else
															{
																obj_t BgL_auxz00_7717;

																BgL_auxz00_7717 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2582z00zz__r4_ports_6_10_1z00,
																	BgL_index1312z00_4333);
																FAILURE(BgL_auxz00_7717, BFALSE, BFALSE);
															}
														BgL_n1z00_4334 = (long) CINT(BgL_tmpz00_7714);
													}
													BgL_test3419z00_7713 = (BgL_n1z00_4334 >= 0L);
												}
												if (BgL_test3419z00_7713)
													{
														long BgL_auxz00_7730;
														obj_t BgL_auxz00_7723;

														{	/* Ieee/port.scm 1737 */
															obj_t BgL_tmpz00_7731;

															if (INTEGERP(BgL_index1312z00_4333))
																{	/* Ieee/port.scm 1737 */
																	BgL_tmpz00_7731 = BgL_index1312z00_4333;
																}
															else
																{
																	obj_t BgL_auxz00_7734;

																	BgL_auxz00_7734 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78115L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2582z00zz__r4_ports_6_10_1z00,
																		BgL_index1312z00_4333);
																	FAILURE(BgL_auxz00_7734, BFALSE, BFALSE);
																}
															BgL_auxz00_7730 = (long) CINT(BgL_tmpz00_7731);
														}
														if (VECTORP(BgL_opt1304z00_211))
															{	/* Ieee/port.scm 1737 */
																BgL_auxz00_7723 = BgL_opt1304z00_211;
															}
														else
															{
																obj_t BgL_auxz00_7726;

																BgL_auxz00_7726 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2611z00zz__r4_ports_6_10_1z00,
																	BgL_opt1304z00_211);
																FAILURE(BgL_auxz00_7726, BFALSE, BFALSE);
															}
														BgL_timeoutz00_4323 =
															VECTOR_REF(BgL_auxz00_7723, BgL_auxz00_7730);
													}
												else
													{	/* Ieee/port.scm 1737 */
														BFALSE;
													}
											}
										}
										{	/* Ieee/port.scm 1737 */
											obj_t BgL_index1313z00_4335;

											BgL_index1313z00_4335 =
												BGl_search1307ze70ze7zz__r4_ports_6_10_1z00
												(BgL_l1306z00_4319, BgL_opt1304z00_211,
												BGl_keyword2720z00zz__r4_ports_6_10_1z00, 0L);
											{	/* Ieee/port.scm 1737 */
												bool_t BgL_test3423z00_7741;

												{	/* Ieee/port.scm 1737 */
													long BgL_n1z00_4336;

													{	/* Ieee/port.scm 1737 */
														obj_t BgL_tmpz00_7742;

														if (INTEGERP(BgL_index1313z00_4335))
															{	/* Ieee/port.scm 1737 */
																BgL_tmpz00_7742 = BgL_index1313z00_4335;
															}
														else
															{
																obj_t BgL_auxz00_7745;

																BgL_auxz00_7745 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2582z00zz__r4_ports_6_10_1z00,
																	BgL_index1313z00_4335);
																FAILURE(BgL_auxz00_7745, BFALSE, BFALSE);
															}
														BgL_n1z00_4336 = (long) CINT(BgL_tmpz00_7742);
													}
													BgL_test3423z00_7741 = (BgL_n1z00_4336 >= 0L);
												}
												if (BgL_test3423z00_7741)
													{
														long BgL_auxz00_7758;
														obj_t BgL_auxz00_7751;

														{	/* Ieee/port.scm 1737 */
															obj_t BgL_tmpz00_7759;

															if (INTEGERP(BgL_index1313z00_4335))
																{	/* Ieee/port.scm 1737 */
																	BgL_tmpz00_7759 = BgL_index1313z00_4335;
																}
															else
																{
																	obj_t BgL_auxz00_7762;

																	BgL_auxz00_7762 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78115L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2582z00zz__r4_ports_6_10_1z00,
																		BgL_index1313z00_4335);
																	FAILURE(BgL_auxz00_7762, BFALSE, BFALSE);
																}
															BgL_auxz00_7758 = (long) CINT(BgL_tmpz00_7759);
														}
														if (VECTORP(BgL_opt1304z00_211))
															{	/* Ieee/port.scm 1737 */
																BgL_auxz00_7751 = BgL_opt1304z00_211;
															}
														else
															{
																obj_t BgL_auxz00_7754;

																BgL_auxz00_7754 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2538z00zz__r4_ports_6_10_1z00,
																	BINT(78115L),
																	BGl_string2712z00zz__r4_ports_6_10_1z00,
																	BGl_string2611z00zz__r4_ports_6_10_1z00,
																	BgL_opt1304z00_211);
																FAILURE(BgL_auxz00_7754, BFALSE, BFALSE);
															}
														BgL_writez00_4324 =
															VECTOR_REF(BgL_auxz00_7751, BgL_auxz00_7758);
													}
												else
													{	/* Ieee/port.scm 1737 */
														BFALSE;
													}
											}
										}
										{	/* Ieee/port.scm 1737 */
											obj_t BgL_exceptz00_4337;

											BgL_exceptz00_4337 = BgL_exceptz00_4321;
											{	/* Ieee/port.scm 1737 */
												obj_t BgL_readz00_4338;

												BgL_readz00_4338 = BgL_readz00_4322;
												{	/* Ieee/port.scm 1737 */
													obj_t BgL_timeoutz00_4339;

													BgL_timeoutz00_4339 = BgL_timeoutz00_4323;
													{	/* Ieee/port.scm 1737 */
														obj_t BgL_writez00_4340;

														BgL_writez00_4340 = BgL_writez00_4324;
														{	/* Ieee/port.scm 1738 */
															obj_t BgL_auxz00_7791;
															obj_t BgL_auxz00_7784;
															obj_t BgL_auxz00_7777;
															long BgL_tmpz00_7768;

															if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_exceptz00_4337))
																{	/* Ieee/port.scm 1738 */
																	BgL_auxz00_7791 = BgL_exceptz00_4337;
																}
															else
																{
																	obj_t BgL_auxz00_7794;

																	BgL_auxz00_7794 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78224L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2725z00zz__r4_ports_6_10_1z00,
																		BgL_exceptz00_4337);
																	FAILURE(BgL_auxz00_7794, BFALSE, BFALSE);
																}
															if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_writez00_4340))
																{	/* Ieee/port.scm 1738 */
																	BgL_auxz00_7784 = BgL_writez00_4340;
																}
															else
																{
																	obj_t BgL_auxz00_7787;

																	BgL_auxz00_7787 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78218L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2725z00zz__r4_ports_6_10_1z00,
																		BgL_writez00_4340);
																	FAILURE(BgL_auxz00_7787, BFALSE, BFALSE);
																}
															if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_readz00_4338))
																{	/* Ieee/port.scm 1738 */
																	BgL_auxz00_7777 = BgL_readz00_4338;
																}
															else
																{
																	obj_t BgL_auxz00_7780;

																	BgL_auxz00_7780 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string2538z00zz__r4_ports_6_10_1z00,
																		BINT(78213L),
																		BGl_string2712z00zz__r4_ports_6_10_1z00,
																		BGl_string2725z00zz__r4_ports_6_10_1z00,
																		BgL_readz00_4338);
																	FAILURE(BgL_auxz00_7780, BFALSE, BFALSE);
																}
															{	/* Ieee/port.scm 1738 */
																obj_t BgL_tmpz00_7769;

																if (INTEGERP(BgL_timeoutz00_4339))
																	{	/* Ieee/port.scm 1738 */
																		BgL_tmpz00_7769 = BgL_timeoutz00_4339;
																	}
																else
																	{
																		obj_t BgL_auxz00_7772;

																		BgL_auxz00_7772 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string2538z00zz__r4_ports_6_10_1z00,
																			BINT(78205L),
																			BGl_string2712z00zz__r4_ports_6_10_1z00,
																			BGl_string2582z00zz__r4_ports_6_10_1z00,
																			BgL_timeoutz00_4339);
																		FAILURE(BgL_auxz00_7772, BFALSE, BFALSE);
																	}
																BgL_tmpz00_7768 = (long) CINT(BgL_tmpz00_7769);
															}
															return
																bgl_select(BgL_tmpz00_7768, BgL_auxz00_7777,
																BgL_auxz00_7784, BgL_auxz00_7791);
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* search1307~0 */
	obj_t BGl_search1307ze70ze7zz__r4_ports_6_10_1z00(long BgL_l1306z00_3805,
		obj_t BgL_opt1304z00_3804, obj_t BgL_k1z00_2976, long BgL_iz00_2977)
	{
		{	/* Ieee/port.scm 1737 */
		BGl_search1307ze70ze7zz__r4_ports_6_10_1z00:
			if ((BgL_iz00_2977 == BgL_l1306z00_3805))
				{	/* Ieee/port.scm 1737 */
					return BINT((-1L));
				}
			else
				{	/* Ieee/port.scm 1737 */
					if ((BgL_iz00_2977 == (BgL_l1306z00_3805 - 1L)))
						{	/* Ieee/port.scm 1737 */
							return
								BGl_errorz00zz__errorz00
								(BGl_symbol2722z00zz__r4_ports_6_10_1z00,
								BGl_string2726z00zz__r4_ports_6_10_1z00,
								BINT(VECTOR_LENGTH(BgL_opt1304z00_3804)));
						}
					else
						{	/* Ieee/port.scm 1737 */
							obj_t BgL_vz00_2982;

							BgL_vz00_2982 = VECTOR_REF(BgL_opt1304z00_3804, BgL_iz00_2977);
							if ((BgL_vz00_2982 == BgL_k1z00_2976))
								{	/* Ieee/port.scm 1737 */
									return BINT((BgL_iz00_2977 + 1L));
								}
							else
								{
									long BgL_iz00_7813;

									BgL_iz00_7813 = (BgL_iz00_2977 + 2L);
									BgL_iz00_2977 = BgL_iz00_7813;
									goto BGl_search1307ze70ze7zz__r4_ports_6_10_1z00;
								}
						}
				}
		}

	}



/* select */
	BGL_EXPORTED_DEF obj_t BGl_selectz00zz__r4_ports_6_10_1z00(obj_t
		BgL_exceptz00_207, obj_t BgL_readz00_208, obj_t BgL_timeoutz00_209,
		obj_t BgL_writez00_210)
	{
		{	/* Ieee/port.scm 1737 */
			return
				bgl_select(
				(long) CINT(BgL_timeoutz00_209), BgL_readz00_208, BgL_writez00_210,
				BgL_exceptz00_207);
		}

	}



/* _open-pipes */
	obj_t BGl__openzd2pipeszd2zz__r4_ports_6_10_1z00(obj_t BgL_env1315z00_215,
		obj_t BgL_opt1314z00_214)
	{
		{	/* Ieee/port.scm 1743 */
			{	/* Ieee/port.scm 1743 */

				{	/* Ieee/port.scm 1743 */
					long BgL_aux1317z00_4341;

					{
						obj_t BgL_auxz00_7817;

						if (VECTORP(BgL_opt1314z00_214))
							{	/* Ieee/port.scm 1743 */
								BgL_auxz00_7817 = BgL_opt1314z00_214;
							}
						else
							{
								obj_t BgL_auxz00_7820;

								BgL_auxz00_7820 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78456L),
									BGl_string2727z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1314z00_214);
								FAILURE(BgL_auxz00_7820, BFALSE, BFALSE);
							}
						BgL_aux1317z00_4341 = VECTOR_LENGTH(BgL_auxz00_7817);
					}
					switch (BgL_aux1317z00_4341)
						{
						case 0L:

							{	/* Ieee/port.scm 1743 */

								return bgl_open_pipes(BFALSE);
							}
							break;
						case 1L:

							{	/* Ieee/port.scm 1743 */
								obj_t BgL_namez00_4342;

								{
									obj_t BgL_auxz00_7826;

									if (VECTORP(BgL_opt1314z00_214))
										{	/* Ieee/port.scm 1743 */
											BgL_auxz00_7826 = BgL_opt1314z00_214;
										}
									else
										{
											obj_t BgL_auxz00_7829;

											BgL_auxz00_7829 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78456L),
												BGl_string2727z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1314z00_214);
											FAILURE(BgL_auxz00_7829, BFALSE, BFALSE);
										}
									BgL_namez00_4342 = VECTOR_REF(BgL_auxz00_7826, 0L);
								}
								{	/* Ieee/port.scm 1743 */

									return bgl_open_pipes(BgL_namez00_4342);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-pipes */
	BGL_EXPORTED_DEF obj_t BGl_openzd2pipeszd2zz__r4_ports_6_10_1z00(obj_t
		BgL_namez00_213)
	{
		{	/* Ieee/port.scm 1743 */
			BGL_TAIL return bgl_open_pipes(BgL_namez00_213);
		}

	}



/* _lockf */
	obj_t BGl__lockfz00zz__r4_ports_6_10_1z00(obj_t BgL_env1319z00_220,
		obj_t BgL_opt1318z00_219)
	{
		{	/* Ieee/port.scm 1749 */
			{	/* Ieee/port.scm 1749 */
				obj_t BgL_g1320z00_2034;
				obj_t BgL_g1321z00_2035;

				{
					obj_t BgL_auxz00_7837;

					if (VECTORP(BgL_opt1318z00_219))
						{	/* Ieee/port.scm 1749 */
							BgL_auxz00_7837 = BgL_opt1318z00_219;
						}
					else
						{
							obj_t BgL_auxz00_7840;

							BgL_auxz00_7840 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78746L),
								BGl_string2728z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1318z00_219);
							FAILURE(BgL_auxz00_7840, BFALSE, BFALSE);
						}
					BgL_g1320z00_2034 = VECTOR_REF(BgL_auxz00_7837, 0L);
				}
				{
					obj_t BgL_auxz00_7845;

					if (VECTORP(BgL_opt1318z00_219))
						{	/* Ieee/port.scm 1749 */
							BgL_auxz00_7845 = BgL_opt1318z00_219;
						}
					else
						{
							obj_t BgL_auxz00_7848;

							BgL_auxz00_7848 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78746L),
								BGl_string2728z00zz__r4_ports_6_10_1z00,
								BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1318z00_219);
							FAILURE(BgL_auxz00_7848, BFALSE, BFALSE);
						}
					BgL_g1321z00_2035 = VECTOR_REF(BgL_auxz00_7845, 1L);
				}
				{	/* Ieee/port.scm 1749 */
					long BgL_aux1323z00_2037;

					{
						obj_t BgL_auxz00_7853;

						if (VECTORP(BgL_opt1318z00_219))
							{	/* Ieee/port.scm 1749 */
								BgL_auxz00_7853 = BgL_opt1318z00_219;
							}
						else
							{
								obj_t BgL_auxz00_7856;

								BgL_auxz00_7856 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78746L),
									BGl_string2728z00zz__r4_ports_6_10_1z00,
									BGl_string2611z00zz__r4_ports_6_10_1z00, BgL_opt1318z00_219);
								FAILURE(BgL_auxz00_7856, BFALSE, BFALSE);
							}
						BgL_aux1323z00_2037 = VECTOR_LENGTH(BgL_auxz00_7853);
					}
					switch (BgL_aux1323z00_2037)
						{
						case 2L:

							{	/* Ieee/port.scm 1749 */

								{	/* Ieee/port.scm 1749 */
									bool_t BgL_tmpz00_7861;

									{	/* Ieee/port.scm 1749 */
										obj_t BgL_auxz00_7869;
										obj_t BgL_auxz00_7862;

										if (SYMBOLP(BgL_g1321z00_2035))
											{	/* Ieee/port.scm 1749 */
												BgL_auxz00_7869 = BgL_g1321z00_2035;
											}
										else
											{
												obj_t BgL_auxz00_7872;

												BgL_auxz00_7872 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(78746L), BGl_string2728z00zz__r4_ports_6_10_1z00,
													BGl_string2729z00zz__r4_ports_6_10_1z00,
													BgL_g1321z00_2035);
												FAILURE(BgL_auxz00_7872, BFALSE, BFALSE);
											}
										if (OUTPUT_PORTP(BgL_g1320z00_2034))
											{	/* Ieee/port.scm 1749 */
												BgL_auxz00_7862 = BgL_g1320z00_2034;
											}
										else
											{
												obj_t BgL_auxz00_7865;

												BgL_auxz00_7865 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2538z00zz__r4_ports_6_10_1z00,
													BINT(78746L), BGl_string2728z00zz__r4_ports_6_10_1z00,
													BGl_string2565z00zz__r4_ports_6_10_1z00,
													BgL_g1320z00_2034);
												FAILURE(BgL_auxz00_7865, BFALSE, BFALSE);
											}
										BgL_tmpz00_7861 =
											BGl_lockfz00zz__r4_ports_6_10_1z00(BgL_auxz00_7862,
											BgL_auxz00_7869, BINT(0L));
									}
									return BBOOL(BgL_tmpz00_7861);
								}
							}
							break;
						case 3L:

							{	/* Ieee/port.scm 1749 */
								obj_t BgL_lenz00_2039;

								{
									obj_t BgL_auxz00_7879;

									if (VECTORP(BgL_opt1318z00_219))
										{	/* Ieee/port.scm 1749 */
											BgL_auxz00_7879 = BgL_opt1318z00_219;
										}
									else
										{
											obj_t BgL_auxz00_7882;

											BgL_auxz00_7882 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2538z00zz__r4_ports_6_10_1z00, BINT(78746L),
												BGl_string2728z00zz__r4_ports_6_10_1z00,
												BGl_string2611z00zz__r4_ports_6_10_1z00,
												BgL_opt1318z00_219);
											FAILURE(BgL_auxz00_7882, BFALSE, BFALSE);
										}
									BgL_lenz00_2039 = VECTOR_REF(BgL_auxz00_7879, 2L);
								}
								{	/* Ieee/port.scm 1749 */

									{	/* Ieee/port.scm 1749 */
										bool_t BgL_tmpz00_7887;

										{	/* Ieee/port.scm 1749 */
											obj_t BgL_auxz00_7895;
											obj_t BgL_auxz00_7888;

											if (SYMBOLP(BgL_g1321z00_2035))
												{	/* Ieee/port.scm 1749 */
													BgL_auxz00_7895 = BgL_g1321z00_2035;
												}
											else
												{
													obj_t BgL_auxz00_7898;

													BgL_auxz00_7898 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(78746L),
														BGl_string2728z00zz__r4_ports_6_10_1z00,
														BGl_string2729z00zz__r4_ports_6_10_1z00,
														BgL_g1321z00_2035);
													FAILURE(BgL_auxz00_7898, BFALSE, BFALSE);
												}
											if (OUTPUT_PORTP(BgL_g1320z00_2034))
												{	/* Ieee/port.scm 1749 */
													BgL_auxz00_7888 = BgL_g1320z00_2034;
												}
											else
												{
													obj_t BgL_auxz00_7891;

													BgL_auxz00_7891 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2538z00zz__r4_ports_6_10_1z00,
														BINT(78746L),
														BGl_string2728z00zz__r4_ports_6_10_1z00,
														BGl_string2565z00zz__r4_ports_6_10_1z00,
														BgL_g1320z00_2034);
													FAILURE(BgL_auxz00_7891, BFALSE, BFALSE);
												}
											BgL_tmpz00_7887 =
												BGl_lockfz00zz__r4_ports_6_10_1z00(BgL_auxz00_7888,
												BgL_auxz00_7895, BgL_lenz00_2039);
										}
										return BBOOL(BgL_tmpz00_7887);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* lockf */
	BGL_EXPORTED_DEF bool_t BGl_lockfz00zz__r4_ports_6_10_1z00(obj_t
		BgL_portz00_216, obj_t BgL_cmdz00_217, obj_t BgL_lenz00_218)
	{
		{	/* Ieee/port.scm 1749 */
			if ((BgL_cmdz00_217 == BGl_symbol2730z00zz__r4_ports_6_10_1z00))
				{	/* Ieee/port.scm 1752 */
					return
						bgl_lockf(BgL_portz00_216, F_LOCK, (long) CINT(BgL_lenz00_218));
				}
			else
				{	/* Ieee/port.scm 1752 */
					if ((BgL_cmdz00_217 == BGl_symbol2732z00zz__r4_ports_6_10_1z00))
						{	/* Ieee/port.scm 1752 */
							return
								bgl_lockf(BgL_portz00_216, F_TLOCK,
								(long) CINT(BgL_lenz00_218));
						}
					else
						{	/* Ieee/port.scm 1752 */
							if ((BgL_cmdz00_217 == BGl_symbol2734z00zz__r4_ports_6_10_1z00))
								{	/* Ieee/port.scm 1752 */
									return
										bgl_lockf(BgL_portz00_216, F_ULOCK,
										(long) CINT(BgL_lenz00_218));
								}
							else
								{	/* Ieee/port.scm 1752 */
									if (
										(BgL_cmdz00_217 == BGl_symbol2736z00zz__r4_ports_6_10_1z00))
										{	/* Ieee/port.scm 1752 */
											return
												bgl_lockf(BgL_portz00_216, F_TEST,
												(long) CINT(BgL_lenz00_218));
										}
									else
										{	/* Ieee/port.scm 1752 */
											return
												CBOOL(BGl_errorz00zz__errorz00
												(BGl_string2738z00zz__r4_ports_6_10_1z00,
													BGl_string2739z00zz__r4_ports_6_10_1z00,
													BgL_cmdz00_217));
										}
								}
						}
				}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00(void)
	{
		{	/* Ieee/port.scm 18 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(323064722L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__gunza7ipza7(224363699L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__urlz00(337061926L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			BGl_modulezd2initializa7ationz75zz__httpz00(354980671L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
			return
				BGl_modulezd2initializa7ationz75zz__ftpz00(102328204L,
				BSTRING_TO_STRING(BGl_string2740z00zz__r4_ports_6_10_1z00));
		}

	}

#ifdef __cplusplus
}
#endif
