/*===========================================================================*/
/*   (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-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/port.scm -indent -o objs/obj_s/Ieee/port.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

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

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_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_z62directoryzd2ze3pathzd2listz81zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62outputzd2portzd2truncatez62zz__r4_ports_6_10_1z00(obj_t, 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);
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_z62truncatezd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62outputzd2portzd2flushzd2bufferzd2setz12z70zz__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);
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_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;
extern obj_t BGl_z62httpzd2redirectionzb0zz__httpz00;
extern int bgl_input_fill_string(obj_t, obj_t);
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);
static obj_t BGl_keyword2964z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_keyword2968z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_symbol2934z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol2859z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_keyword2988z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62makezd2directoryzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol2861z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol2863z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_z62outputzd2portzd2namez62zz__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);
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2appendzd2filezd2zz__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);
static obj_t BGl_z62close2106z62zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_z62close2108z62zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol2970z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62close2109z62zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol2972z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_inputzd2portzd2fillzd2barrierzd2zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol2974z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol2894z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_z62close2110z62zz__r4_ports_6_10_1z00(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_z62zc3z04anonymousza31413ze3ze5zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2993z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62outputzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol2998z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_z62zc3z04anonymousza31600ze3ze5zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_z62outputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_list3147z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62renamezd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern int bgl_symlink(char *, char *);
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_z62outputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62withzd2appendzd2tozd2filezb0zz__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);
static obj_t BGl_list3072z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(obj_t, 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_z62zc3z04anonymousza31441ze3ze5zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_z62copyzd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62filezd2typezb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62filezd2changezd2timez62zz__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);
static obj_t BGl_zc3z04exitza31603ze3ze70z60zz__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);
static obj_t BGl_z62filezd2existszf3z43zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2symlinkzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_vector3132z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_z62flush2107z62zz__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);
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);
static obj_t BGl_z62flush2111z62zz__r4_ports_6_10_1z00(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 *);
static obj_t BGl_symbol3000z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(obj_t, char *);
static obj_t BGl_symbol3002z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_symbol3004z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol3008z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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 *);
static obj_t BGl_symbol3013z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_keyword3148z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62directoryzd2ze3vectorz53zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_inputzd2portzd2protocolzd2setz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol3021z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_symbol3025z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_keyword3150z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62z52openzd2inputzd2resourcez30zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_keyword3152z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_keyword3153z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00(obj_t);
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_symbol3030z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol3033z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_search1310ze70ze7zz__r4_ports_6_10_1z00(long, obj_t, obj_t, long);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00(void);
static obj_t BGl_z62filezd2siza7ez17zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(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_z62withzd2errorzd2tozd2filezb0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62closez62zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol3042z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_symbol3045z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol3047z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_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);
static obj_t BGl_symbol3053z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_list2858z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_z62filezd2modezb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62flushzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern bool_t bgl_directoryp(char *);
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);
static obj_t BGl_symbol3073z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_inputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol3155z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t BGl_httpzd2parsezd2responsez00zz__httpz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3075z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(char *);
static obj_t BGl_z62portzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62inputzd2portzd2fillzd2barrierzd2setz12z70zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62outputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62withzd2outputzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62currentzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t);
extern long default_io_bufsiz;
static obj_t BGl_symbol3161z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_symbol3166z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_list2962z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_list2963z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62resetzd2eofzb0zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_list2967z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_symbol3170z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol3172z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_symbol3174z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_symbol3176z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62closedzd2outputzd2portzf3z91zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_list2893z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_z62outputzd2portzd2flushzd2hookzd2setz12z70zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(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);
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);
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_list2997z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_z62inputzd2portzd2lengthz62zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_z62makezd2symlinkzb0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_outputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(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);
static obj_t BGl_z62setzd2outputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(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;


BGL_DEFINE_STRING(BGl_string3010z00zz__r4_ports_6_10_1z00, BgL_bgl_string3010za700za7za7_3180za7, "wrong number of arguments: [1..2] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3011z00zz__r4_ports_6_10_1z00, BgL_bgl_string3011za700za7za7_3181za7, "_open-input-string", 18 );
BGL_DEFINE_STRING(BGl_string3012z00zz__r4_ports_6_10_1z00, BgL_bgl_string3012za700za7za7_3182za7, "case_else1268", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2mmapzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23183z00, opt_generic_entry, BGl__openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2directorieszd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762makeza7d2direct3184z00, BGl_z62makezd2directorieszb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_closedzd2inputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762closedza7d2inpu3185z00, BGl_z62closedzd2inputzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3014z00zz__r4_ports_6_10_1z00, BgL_bgl_string3014za700za7za7_3186za7, "open-input-string", 17 );
BGL_DEFINE_STRING(BGl_string3015z00zz__r4_ports_6_10_1z00, BgL_bgl_string3015za700za7za7_3187za7, "Illegal start offset", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3188z00, BGl_z62outputzd2portzd2bufferz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3016z00zz__r4_ports_6_10_1z00, BgL_bgl_string3016za700za7za7_3189za7, "Start offset out of bounds", 26 );
BGL_DEFINE_STRING(BGl_string3017z00zz__r4_ports_6_10_1z00, BgL_bgl_string3017za700za7za7_3190za7, "Start offset greater than end", 29 );
BGL_DEFINE_STRING(BGl_string3018z00zz__r4_ports_6_10_1z00, BgL_bgl_string3018za700za7za7_3191za7, "End offset out of bounds", 24 );
BGL_DEFINE_STRING(BGl_string3019z00zz__r4_ports_6_10_1z00, BgL_bgl_string3019za700za7za7_3192za7, "_open-input-string!", 19 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73193za7, BGl_z62inputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2modificationzd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2modifi3194z00, BGl_z62filezd2modificationzd2timez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3100z00zz__r4_ports_6_10_1z00, BgL_bgl_string3100za700za7za7_3195za7, "&output-port-flush-buffer", 25 );
BGL_DEFINE_STRING(BGl_string3101z00zz__r4_ports_6_10_1z00, BgL_bgl_string3101za700za7za7_3196za7, "&output-port-flush-buffer-set!", 30 );
BGL_DEFINE_STRING(BGl_string3020z00zz__r4_ports_6_10_1z00, BgL_bgl_string3020za700za7za7_3197za7, "case_else1272", 13 );
BGL_DEFINE_STRING(BGl_string3102z00zz__r4_ports_6_10_1z00, BgL_bgl_string3102za700za7za7_3198za7, "&input-port-close-hook", 22 );
BGL_DEFINE_STRING(BGl_string3103z00zz__r4_ports_6_10_1z00, BgL_bgl_string3103za700za7za7_3199za7, "input-port-close-hook-set!", 26 );
BGL_DEFINE_STRING(BGl_string3022z00zz__r4_ports_6_10_1z00, BgL_bgl_string3022za700za7za7_3200za7, "open-input-string!", 18 );
BGL_DEFINE_STRING(BGl_string3104z00zz__r4_ports_6_10_1z00, BgL_bgl_string3104za700za7za7_3201za7, "&input-port-close-hook-set!", 27 );
BGL_DEFINE_STRING(BGl_string3023z00zz__r4_ports_6_10_1z00, BgL_bgl_string3023za700za7za7_3202za7, "_open-input-mmap", 16 );
BGL_DEFINE_STRING(BGl_string3105z00zz__r4_ports_6_10_1z00, BgL_bgl_string3105za700za7za7_3203za7, "input-port-seek", 15 );
BGL_DEFINE_STRING(BGl_string3024z00zz__r4_ports_6_10_1z00, BgL_bgl_string3024za700za7za7_3204za7, "case_else1276", 13 );
BGL_DEFINE_STRING(BGl_string3106z00zz__r4_ports_6_10_1z00, BgL_bgl_string3106za700za7za7_3205za7, "&input-port-seek", 16 );
BGL_DEFINE_STRING(BGl_string3107z00zz__r4_ports_6_10_1z00, BgL_bgl_string3107za700za7za7_3206za7, "input-port-seek-set!", 20 );
BGL_DEFINE_STRING(BGl_string3026z00zz__r4_ports_6_10_1z00, BgL_bgl_string3026za700za7za7_3207za7, "open-input-mmap", 15 );
BGL_DEFINE_STRING(BGl_string3108z00zz__r4_ports_6_10_1z00, BgL_bgl_string3108za700za7za7_3208za7, "Illegal seek procedure", 22 );
BGL_DEFINE_STRING(BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_bgl_string3027za700za7za7_3209za7, "mmap", 4 );
BGL_DEFINE_STRING(BGl_string3109z00zz__r4_ports_6_10_1z00, BgL_bgl_string3109za700za7za7_3210za7, "&input-port-seek-set!", 21 );
BGL_DEFINE_STRING(BGl_string3028z00zz__r4_ports_6_10_1z00, BgL_bgl_string3028za700za7za7_3211za7, "_open-input-procedure", 21 );
BGL_DEFINE_STRING(BGl_string3029z00zz__r4_ports_6_10_1z00, BgL_bgl_string3029za700za7za7_3212za7, "case_else1281", 13 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3213za7, BGl_z62z52openzd2inputzd2pipez30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2appendzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3214za7, BGl_z62callzd2withzd2appendzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2flushzd2bufferzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3215z00, BGl_z62outputzd2portzd2flushzd2bufferzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2outputzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2output3216z00, BGl_z62withzd2outputzd2tozd2portzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23217z00, 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_za762inputza7d2portza73218za7, BGl_z62inputzd2portzd2protocolz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3110z00zz__r4_ports_6_10_1z00, BgL_bgl_string3110za700za7za7_3219za7, "&input-port-buffer", 18 );
BGL_DEFINE_STRING(BGl_string3111z00zz__r4_ports_6_10_1z00, BgL_bgl_string3111za700za7za7_3220za7, "&input-port-buffer-set!", 23 );
BGL_DEFINE_STRING(BGl_string3112z00zz__r4_ports_6_10_1z00, BgL_bgl_string3112za700za7za7_3221za7, "&output-port-buffer", 19 );
BGL_DEFINE_STRING(BGl_string3031z00zz__r4_ports_6_10_1z00, BgL_bgl_string3031za700za7za7_3222za7, "_open-input-gzip-port", 21 );
BGL_DEFINE_STRING(BGl_string3113z00zz__r4_ports_6_10_1z00, BgL_bgl_string3113za700za7za7_3223za7, "&output-port-buffer-set!", 24 );
BGL_DEFINE_STRING(BGl_string3032z00zz__r4_ports_6_10_1z00, BgL_bgl_string3032za700za7za7_3224za7, "case_else1286", 13 );
BGL_DEFINE_STRING(BGl_string3114z00zz__r4_ports_6_10_1z00, BgL_bgl_string3114za700za7za7_3225za7, "&file-exists?", 13 );
BGL_DEFINE_STRING(BGl_string3115z00zz__r4_ports_6_10_1z00, BgL_bgl_string3115za700za7za7_3226za7, "file-gzip?", 10 );
BGL_DEFINE_STRING(BGl_string3034z00zz__r4_ports_6_10_1z00, BgL_bgl_string3034za700za7za7_3227za7, "open-input-gzip-port", 20 );
BGL_DEFINE_STRING(BGl_string3035z00zz__r4_ports_6_10_1z00, BgL_bgl_string3035za700za7za7_3228za7, "&open-input-c-string", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2errorzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762currentza7d2err3229z00, BGl_z62currentzd2errorzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3117z00zz__r4_ports_6_10_1z00, BgL_bgl_string3117za700za7za7_3230za7, "<@exit:1603>~0", 14 );
BGL_DEFINE_STRING(BGl_string3036z00zz__r4_ports_6_10_1z00, BgL_bgl_string3036za700za7za7_3231za7, "&reopen-input-c-string", 22 );
BGL_DEFINE_STRING(BGl_string3118z00zz__r4_ports_6_10_1z00, BgL_bgl_string3118za700za7za7_3232za7, "&delete-file", 12 );
BGL_DEFINE_STRING(BGl_string3037z00zz__r4_ports_6_10_1z00, BgL_bgl_string3037za700za7za7_3233za7, "&input-port-timeout", 19 );
BGL_DEFINE_STRING(BGl_string3119z00zz__r4_ports_6_10_1z00, BgL_bgl_string3119za700za7za7_3234za7, "&make-directory", 15 );
BGL_DEFINE_STRING(BGl_string3038z00zz__r4_ports_6_10_1z00, BgL_bgl_string3038za700za7za7_3235za7, "&input-port-timeout-set!", 24 );
BGL_DEFINE_STRING(BGl_string3039z00zz__r4_ports_6_10_1z00, BgL_bgl_string3039za700za7za7_3236za7, "&output-port-timeout", 20 );
BGL_DEFINE_STRING(BGl_string3120z00zz__r4_ports_6_10_1z00, BgL_bgl_string3120za700za7za7_3237za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string3121z00zz__r4_ports_6_10_1z00, BgL_bgl_string3121za700za7za7_3238za7, "&make-directories", 17 );
BGL_DEFINE_STRING(BGl_string3040z00zz__r4_ports_6_10_1z00, BgL_bgl_string3040za700za7za7_3239za7, "_open-output-file", 17 );
BGL_DEFINE_STRING(BGl_string3122z00zz__r4_ports_6_10_1z00, BgL_bgl_string3122za700za7za7_3240za7, "&delete-directory", 17 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc3116z00zz__r4_ports_6_10_1z00, BgL_bgl_za762za7c3za704anonymo3241za7, BGl_z62zc3z04anonymousza31600ze3ze5zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3041z00zz__r4_ports_6_10_1z00, BgL_bgl_string3041za700za7za7_3242za7, "case_else1291", 13 );
BGL_DEFINE_STRING(BGl_string3123z00zz__r4_ports_6_10_1z00, BgL_bgl_string3123za700za7za7_3243za7, "&rename-file", 12 );
BGL_DEFINE_STRING(BGl_string3124z00zz__r4_ports_6_10_1z00, BgL_bgl_string3124za700za7za7_3244za7, "&truncate-file", 14 );
BGL_DEFINE_STRING(BGl_string3043z00zz__r4_ports_6_10_1z00, BgL_bgl_string3043za700za7za7_3245za7, "_append-output-file", 19 );
BGL_DEFINE_STRING(BGl_string3125z00zz__r4_ports_6_10_1z00, BgL_bgl_string3125za700za7za7_3246za7, "&output-port-truncate", 21 );
BGL_DEFINE_STRING(BGl_string3044z00zz__r4_ports_6_10_1z00, BgL_bgl_string3044za700za7za7_3247za7, "case_else1296", 13 );
BGL_DEFINE_STRING(BGl_string3126z00zz__r4_ports_6_10_1z00, BgL_bgl_string3126za700za7za7_3248za7, "&copy-file", 10 );
BGL_DEFINE_STRING(BGl_string3127z00zz__r4_ports_6_10_1z00, BgL_bgl_string3127za700za7za7_3249za7, "&directory?", 11 );
BGL_DEFINE_STRING(BGl_string3046z00zz__r4_ports_6_10_1z00, BgL_bgl_string3046za700za7za7_3250za7, "case_else1300", 13 );
BGL_DEFINE_STRING(BGl_string3128z00zz__r4_ports_6_10_1z00, BgL_bgl_string3128za700za7za7_3251za7, "&directory-length", 17 );
BGL_DEFINE_STRING(BGl_string3129z00zz__r4_ports_6_10_1z00, BgL_bgl_string3129za700za7za7_3252za7, "&directory->list", 16 );
BGL_DEFINE_STRING(BGl_string3048z00zz__r4_ports_6_10_1z00, BgL_bgl_string3048za700za7za7_3253za7, "open-output-string", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2errorzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73254za7, BGl_z62withzd2errorzd2tozd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3049z00zz__r4_ports_6_10_1z00, BgL_bgl_string3049za700za7za7_3255za7, "wrong number of arguments: [0..1] expected, provided", 52 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3256z00, BGl_z62outputzd2portzd2namez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2clonez12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73257za7, BGl_z62inputzd2portzd2clonez12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3130z00zz__r4_ports_6_10_1z00, BgL_bgl_string3130za700za7za7_3258za7, "&directory->path-list", 21 );
BGL_DEFINE_STRING(BGl_string3131z00zz__r4_ports_6_10_1z00, BgL_bgl_string3131za700za7za7_3259za7, "&directory->vector", 18 );
BGL_DEFINE_STRING(BGl_string3050z00zz__r4_ports_6_10_1z00, BgL_bgl_string3050za700za7za7_3260za7, "_open-output-string", 19 );
BGL_DEFINE_STRING(BGl_string3051z00zz__r4_ports_6_10_1z00, BgL_bgl_string3051za700za7za7_3261za7, "_open-output-procedure", 22 );
BGL_DEFINE_STRING(BGl_string3133z00zz__r4_ports_6_10_1z00, BgL_bgl_string3133za700za7za7_3262za7, "&directory->path-vector", 23 );
BGL_DEFINE_STRING(BGl_string3052z00zz__r4_ports_6_10_1z00, BgL_bgl_string3052za700za7za7_3263za7, "case_else1305", 13 );
BGL_DEFINE_STRING(BGl_string3134z00zz__r4_ports_6_10_1z00, BgL_bgl_string3134za700za7za7_3264za7, "&file-modification-time", 23 );
BGL_DEFINE_STRING(BGl_string3135z00zz__r4_ports_6_10_1z00, BgL_bgl_string3135za700za7za7_3265za7, "&file-change-time", 17 );
BGL_DEFINE_STRING(BGl_string3054z00zz__r4_ports_6_10_1z00, BgL_bgl_string3054za700za7za7_3266za7, "open-output-procedure", 21 );
BGL_DEFINE_STRING(BGl_string3136z00zz__r4_ports_6_10_1z00, BgL_bgl_string3136za700za7za7_3267za7, "&file-access-time", 17 );
BGL_DEFINE_STRING(BGl_string3055z00zz__r4_ports_6_10_1z00, BgL_bgl_string3055za700za7za7_3268za7, "wrong number of arguments: [1..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3137z00zz__r4_ports_6_10_1z00, BgL_bgl_string3137za700za7za7_3269za7, "&file-times-set!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2changezd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2change3270z00, BGl_z62filezd2changezd2timez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3138z00zz__r4_ports_6_10_1z00, BgL_bgl_string3138za700za7za7_3271za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string3139z00zz__r4_ports_6_10_1z00, BgL_bgl_string3139za700za7za7_3272za7, "&file-size", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2modezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2modeza7b3273za7, BGl_z62filezd2modezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73274za7, BGl_z62inputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762portza7f3za791za7za7_3275za7, BGl_z62portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3140z00zz__r4_ports_6_10_1z00, BgL_bgl_string3140za700za7za7_3276za7, "&file-uid", 9 );
BGL_DEFINE_STRING(BGl_string3141z00zz__r4_ports_6_10_1z00, BgL_bgl_string3141za700za7za7_3277za7, "&file-gid", 9 );
BGL_DEFINE_STRING(BGl_string3060z00zz__r4_ports_6_10_1z00, BgL_bgl_string3060za700za7za7_3278za7, "Illegal flush procedure", 23 );
BGL_DEFINE_STRING(BGl_string3142z00zz__r4_ports_6_10_1z00, BgL_bgl_string3142za700za7za7_3279za7, "&file-mode", 10 );
BGL_DEFINE_STRING(BGl_string3061z00zz__r4_ports_6_10_1z00, BgL_bgl_string3061za700za7za7_3280za7, "Illegal close procedure", 23 );
BGL_DEFINE_STRING(BGl_string3143z00zz__r4_ports_6_10_1z00, BgL_bgl_string3143za700za7za7_3281za7, "&file-type", 10 );
BGL_DEFINE_STRING(BGl_string3062z00zz__r4_ports_6_10_1z00, BgL_bgl_string3062za700za7za7_3282za7, "Illegal write procedure", 23 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc3056z00zz__r4_ports_6_10_1z00, BgL_bgl_za762flush2111za762za73283za7, BGl_z62flush2111z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3144z00zz__r4_ports_6_10_1z00, BgL_bgl_string3144za700za7za7_3284za7, "&make-symlink", 13 );
BGL_DEFINE_STRING(BGl_string3063z00zz__r4_ports_6_10_1z00, BgL_bgl_string3063za700za7za7_3285za7, "&output-port-timeout-set!", 25 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc3057z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2110za762za73286za7, BGl_z62close2110z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3145z00zz__r4_ports_6_10_1z00, BgL_bgl_string3145za700za7za7_3287za7, "_select", 7 );
BGL_DEFINE_STRING(BGl_string3064z00zz__r4_ports_6_10_1z00, BgL_bgl_string3064za700za7za7_3288za7, "&closed-input-port?", 19 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc3058z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2109za762za73289za7, BGl_z62close2109z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3146z00zz__r4_ports_6_10_1z00, BgL_bgl_string3146za700za7za7_3290za7, "check1311", 9 );
BGL_DEFINE_STRING(BGl_string3065z00zz__r4_ports_6_10_1z00, BgL_bgl_string3065za700za7za7_3291za7, "&close-input-port", 17 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc3059z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2108za762za73292za7, BGl_z62close2108z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3066z00zz__r4_ports_6_10_1z00, BgL_bgl_string3066za700za7za7_3293za7, "&get-output-string", 18 );
BGL_DEFINE_STRING(BGl_string3067z00zz__r4_ports_6_10_1z00, BgL_bgl_string3067za700za7za7_3294za7, "&close-output-port", 18 );
BGL_DEFINE_STRING(BGl_string3149z00zz__r4_ports_6_10_1z00, BgL_bgl_string3149za700za7za7_3295za7, "except", 6 );
BGL_DEFINE_STRING(BGl_string3068z00zz__r4_ports_6_10_1z00, BgL_bgl_string3068za700za7za7_3296za7, "&flush-output-port", 18 );
BGL_DEFINE_STRING(BGl_string3069z00zz__r4_ports_6_10_1z00, BgL_bgl_string3069za700za7za7_3297za7, "&reset-output-port", 18 );
extern obj_t BGl_openzd2inputzd2za7libzd2filezd2envza7zz__gunza7ipza7;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762openza7d2inputza73298za7, BGl_z62openzd2inputzd2czd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2errorzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73299za7, BGl_z62withzd2errorzd2tozd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_resetzd2eofzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762resetza7d2eofza7b3300za7, BGl_z62resetzd2eofzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3151z00zz__r4_ports_6_10_1z00, BgL_bgl_string3151za700za7za7_3301za7, "read", 4 );
BGL_DEFINE_STRING(BGl_string3070z00zz__r4_ports_6_10_1z00, BgL_bgl_string3070za700za7za7_3302za7, "&reset-eof", 10 );
BGL_DEFINE_STRING(BGl_string3071z00zz__r4_ports_6_10_1z00, BgL_bgl_string3071za700za7za7_3303za7, "set-input-port-position!:Wrong number of arguments", 50 );
BGL_DEFINE_STRING(BGl_string3154z00zz__r4_ports_6_10_1z00, BgL_bgl_string3154za700za7za7_3304za7, "write", 5 );
BGL_DEFINE_STRING(BGl_string3074z00zz__r4_ports_6_10_1z00, BgL_bgl_string3074za700za7za7_3305za7, "useek", 5 );
BGL_DEFINE_STRING(BGl_string3156z00zz__r4_ports_6_10_1z00, BgL_bgl_string3156za700za7za7_3306za7, "select", 6 );
BGL_DEFINE_STRING(BGl_string3157z00zz__r4_ports_6_10_1z00, BgL_bgl_string3157za700za7za7_3307za7, "Illegal keyword argument", 24 );
BGL_DEFINE_STRING(BGl_string3076z00zz__r4_ports_6_10_1z00, BgL_bgl_string3076za700za7za7_3308za7, "pos", 3 );
BGL_DEFINE_STRING(BGl_string3158z00zz__r4_ports_6_10_1z00, BgL_bgl_string3158za700za7za7_3309za7, "search1310~0", 12 );
BGL_DEFINE_STRING(BGl_string3077z00zz__r4_ports_6_10_1z00, BgL_bgl_string3077za700za7za7_3310za7, "&set-input-port-position!", 25 );
BGL_DEFINE_STRING(BGl_string3159z00zz__r4_ports_6_10_1z00, BgL_bgl_string3159za700za7za7_3311za7, "wrong number of arguments: [0..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3078z00zz__r4_ports_6_10_1z00, BgL_bgl_string3078za700za7za7_3312za7, "&input-port-position", 20 );
BGL_DEFINE_STRING(BGl_string3079z00zz__r4_ports_6_10_1z00, BgL_bgl_string3079za700za7za7_3313za7, "&input-port-fill-barrier", 24 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_z52openzd2inputzd2filezd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3314za7, BGl_z62z52openzd2inputzd2filez30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3315z00, BGl_z62outputzd2portzd2positionz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_closedzd2outputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762closedza7d2outp3316z00, BGl_z62closedzd2outputzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3160z00zz__r4_ports_6_10_1z00, BgL_bgl_string3160za700za7za7_3317za7, "case_else1319", 13 );
BGL_DEFINE_STRING(BGl_string3080z00zz__r4_ports_6_10_1z00, BgL_bgl_string3080za700za7za7_3318za7, "&input-port-fill-barrier-set!", 29 );
BGL_DEFINE_STRING(BGl_string3162z00zz__r4_ports_6_10_1z00, BgL_bgl_string3162za700za7za7_3319za7, "open-pipes", 10 );
BGL_DEFINE_STRING(BGl_string3081z00zz__r4_ports_6_10_1z00, BgL_bgl_string3081za700za7za7_3320za7, "&input-port-last-token-position", 31 );
BGL_DEFINE_STRING(BGl_string3163z00zz__r4_ports_6_10_1z00, BgL_bgl_string3163za700za7za7_3321za7, "_open-pipes", 11 );
BGL_DEFINE_STRING(BGl_string3082z00zz__r4_ports_6_10_1z00, BgL_bgl_string3082za700za7za7_3322za7, "&output-port-name", 17 );
BGL_DEFINE_STRING(BGl_string3164z00zz__r4_ports_6_10_1z00, BgL_bgl_string3164za700za7za7_3323za7, "_lockf", 6 );
BGL_DEFINE_STRING(BGl_string3083z00zz__r4_ports_6_10_1z00, BgL_bgl_string3083za700za7za7_3324za7, "&output-port-name-set!", 22 );
BGL_DEFINE_STRING(BGl_string3165z00zz__r4_ports_6_10_1z00, BgL_bgl_string3165za700za7za7_3325za7, "case_else1325", 13 );
BGL_DEFINE_STRING(BGl_string3084z00zz__r4_ports_6_10_1z00, BgL_bgl_string3084za700za7za7_3326za7, "set-output-port-position!", 25 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2outputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3327za7, BGl_z62callzd2withzd2outputzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73328za7, BGl_z62inputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3085z00zz__r4_ports_6_10_1z00, BgL_bgl_string3085za700za7za7_3329za7, "Cannot seek port", 16 );
BGL_DEFINE_STRING(BGl_string3167z00zz__r4_ports_6_10_1z00, BgL_bgl_string3167za700za7za7_3330za7, "lockf", 5 );
BGL_DEFINE_STRING(BGl_string3086z00zz__r4_ports_6_10_1z00, BgL_bgl_string3086za700za7za7_3331za7, "&set-output-port-position!", 26 );
BGL_DEFINE_STRING(BGl_string3168z00zz__r4_ports_6_10_1z00, BgL_bgl_string3168za700za7za7_3332za7, "wrong number of arguments: [2..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3087z00zz__r4_ports_6_10_1z00, BgL_bgl_string3087za700za7za7_3333za7, "&output-port-position", 21 );
BGL_DEFINE_STRING(BGl_string3169z00zz__r4_ports_6_10_1z00, BgL_bgl_string3169za700za7za7_3334za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string3088z00zz__r4_ports_6_10_1z00, BgL_bgl_string3088za700za7za7_3335za7, "&output-port-isatty?", 20 );
BGL_DEFINE_STRING(BGl_string3089z00zz__r4_ports_6_10_1z00, BgL_bgl_string3089za700za7za7_3336za7, "&input-port-name", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3337z00, BGl_z62outputzd2portzd2timeoutz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73338za7, BGl_z62inputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3171z00zz__r4_ports_6_10_1z00, BgL_bgl_string3171za700za7za7_3339za7, "lock", 4 );
BGL_DEFINE_STRING(BGl_string3090z00zz__r4_ports_6_10_1z00, BgL_bgl_string3090za700za7za7_3340za7, "&input-port-name-set!", 21 );
BGL_DEFINE_STRING(BGl_string3091z00zz__r4_ports_6_10_1z00, BgL_bgl_string3091za700za7za7_3341za7, "&input-port-length", 18 );
BGL_DEFINE_STRING(BGl_string3173z00zz__r4_ports_6_10_1z00, BgL_bgl_string3173za700za7za7_3342za7, "tlock", 5 );
BGL_DEFINE_STRING(BGl_string3092z00zz__r4_ports_6_10_1z00, BgL_bgl_string3092za700za7za7_3343za7, "&output-port-close-hook", 23 );
BGL_DEFINE_STRING(BGl_string3093z00zz__r4_ports_6_10_1z00, BgL_bgl_string3093za700za7za7_3344za7, "&closed-output-port?", 20 );
BGL_DEFINE_STRING(BGl_string3175z00zz__r4_ports_6_10_1z00, BgL_bgl_string3175za700za7za7_3345za7, "ulock", 5 );
BGL_DEFINE_STRING(BGl_string3094z00zz__r4_ports_6_10_1z00, BgL_bgl_string3094za700za7za7_3346za7, "output-port-close-hook-set!", 27 );
BGL_DEFINE_STRING(BGl_string3095z00zz__r4_ports_6_10_1z00, BgL_bgl_string3095za700za7za7_3347za7, "Illegal hook", 12 );
BGL_DEFINE_STRING(BGl_string3177z00zz__r4_ports_6_10_1z00, BgL_bgl_string3177za700za7za7_3348za7, "test", 4 );
BGL_DEFINE_STRING(BGl_string3096z00zz__r4_ports_6_10_1z00, BgL_bgl_string3096za700za7za7_3349za7, "&output-port-close-hook-set!", 28 );
BGL_DEFINE_STRING(BGl_string3178z00zz__r4_ports_6_10_1z00, BgL_bgl_string3178za700za7za7_3350za7, "Bad command", 11 );
BGL_DEFINE_STRING(BGl_string3097z00zz__r4_ports_6_10_1z00, BgL_bgl_string3097za700za7za7_3351za7, "&output-port-flush-hook", 23 );
BGL_DEFINE_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00, BgL_bgl_string3179za700za7za7_3352za7, "__r4_ports_6_10_1", 17 );
BGL_DEFINE_STRING(BGl_string3098z00zz__r4_ports_6_10_1z00, BgL_bgl_string3098za700za7za7_3353za7, "output-port-flush-hook-set!", 27 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2errorzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73354za7, BGl_z62withzd2errorzd2tozd2portzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3099z00zz__r4_ports_6_10_1z00, BgL_bgl_string3099za700za7za7_3355za7, "&output-port-flush-hook-set!", 28 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2inputzd2fromzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2inputza73356za7, BGl_z62withzd2inputzd2fromzd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2outputzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3357za7, BGl_z62callzd2withzd2outputzd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2seekzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73358za7, BGl_z62inputzd2portzd2seekz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762makeza7d2direct3359z00, BGl_z62makezd2directoryzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_appendzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__appendza7d2output3360za7, 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_za762outputza7d2port3361z00, BGl_z62outputzd2portzd2bufferzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2mmapzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2mmapza73362za7, BGl_z62inputzd2mmapzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2appendzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2append3363z00, BGl_z62withzd2appendzd2tozd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2gza7ipzf3zd2envz54zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2gza7a7ip3364za7, BGl_z62filezd2gza7ipzf3ze4zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73365za7, BGl_z62inputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_deletezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762deleteza7d2file3366z00, BGl_z62deletezd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2outputzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2output3367z00, BGl_z62withzd2outputzd2tozd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2uidzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2uidza7b03368za7, BGl_z62filezd2uidzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_resetzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762resetza7d2outpu3369z00, BGl_z62resetzd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762currentza7d2out3370z00, BGl_z62currentzd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_directoryzd2ze3listzd2envze3zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73371za7, BGl_z62directoryzd2ze3listz53zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73372za7, BGl_z62inputzd2portzf3z43zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3373z00, BGl_z62outputzd2portzf3z43zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2900z00zz__r4_ports_6_10_1z00, BgL_bgl_string2900za700za7za7_3374za7, "with-input-from-string", 22 );
BGL_DEFINE_STRING(BGl_string2901z00zz__r4_ports_6_10_1z00, BgL_bgl_string2901za700za7za7_3375za7, "&with-input-from-string", 23 );
BGL_DEFINE_STRING(BGl_string2902z00zz__r4_ports_6_10_1z00, BgL_bgl_string2902za700za7za7_3376za7, "with-input-from-port:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2903z00zz__r4_ports_6_10_1z00, BgL_bgl_string2903za700za7za7_3377za7, "with-input-from-port", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2typezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2typeza7b3378za7, BGl_z62filezd2typezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2904z00zz__r4_ports_6_10_1z00, BgL_bgl_string2904za700za7za7_3379za7, "&with-input-from-port", 21 );
BGL_DEFINE_STRING(BGl_string2905z00zz__r4_ports_6_10_1z00, BgL_bgl_string2905za700za7za7_3380za7, "open-input-procedure", 20 );
BGL_DEFINE_STRING(BGl_string2906z00zz__r4_ports_6_10_1z00, BgL_bgl_string2906za700za7za7_3381za7, "with-input-from-procedure:Wrong number of arguments", 51 );
BGL_DEFINE_STRING(BGl_string2907z00zz__r4_ports_6_10_1z00, BgL_bgl_string2907za700za7za7_3382za7, "with-input-from-procedure", 25 );
BGL_DEFINE_STRING(BGl_string2908z00zz__r4_ports_6_10_1z00, BgL_bgl_string2908za700za7za7_3383za7, "&with-input-from-procedure", 26 );
BGL_DEFINE_STRING(BGl_string2909z00zz__r4_ports_6_10_1z00, BgL_bgl_string2909za700za7za7_3384za7, "with-output-to-file:Wrong number of arguments", 45 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3385z00, BGl_z62outputzd2portzd2closezd2hookzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23386z00, opt_generic_entry, BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2910z00zz__r4_ports_6_10_1z00, BgL_bgl_string2910za700za7za7_3387za7, "with-output-to-file", 19 );
BGL_DEFINE_STRING(BGl_string2911z00zz__r4_ports_6_10_1z00, BgL_bgl_string2911za700za7za7_3388za7, "&with-output-to-file", 20 );
BGL_DEFINE_STRING(BGl_string2912z00zz__r4_ports_6_10_1z00, BgL_bgl_string2912za700za7za7_3389za7, "<@anonymous:1453>", 17 );
BGL_DEFINE_STRING(BGl_string2913z00zz__r4_ports_6_10_1z00, BgL_bgl_string2913za700za7za7_3390za7, "with-append-to-file:Wrong number of arguments", 45 );
BGL_DEFINE_STRING(BGl_string2914z00zz__r4_ports_6_10_1z00, BgL_bgl_string2914za700za7za7_3391za7, "with-append-to-file", 19 );
BGL_DEFINE_STRING(BGl_string2915z00zz__r4_ports_6_10_1z00, BgL_bgl_string2915za700za7za7_3392za7, "&with-append-to-file", 20 );
BGL_DEFINE_STRING(BGl_string2916z00zz__r4_ports_6_10_1z00, BgL_bgl_string2916za700za7za7_3393za7, "<@anonymous:1455>", 17 );
BGL_DEFINE_STRING(BGl_string2917z00zz__r4_ports_6_10_1z00, BgL_bgl_string2917za700za7za7_3394za7, "with-output-to-port:Wrong number of arguments", 45 );
BGL_DEFINE_STRING(BGl_string2918z00zz__r4_ports_6_10_1z00, BgL_bgl_string2918za700za7za7_3395za7, "with-output-to-port", 19 );
BGL_DEFINE_STRING(BGl_string2919z00zz__r4_ports_6_10_1z00, BgL_bgl_string2919za700za7za7_3396za7, "&with-output-to-port", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2fillzd2barrierzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73397za7, BGl_z62inputzd2portzd2fillzd2barrierzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2920z00zz__r4_ports_6_10_1z00, BgL_bgl_string2920za700za7za7_3398za7, "with-output-to-string:Wrong number of arguments", 47 );
BGL_DEFINE_STRING(BGl_string2921z00zz__r4_ports_6_10_1z00, BgL_bgl_string2921za700za7za7_3399za7, "with-output-to-string", 21 );
BGL_DEFINE_STRING(BGl_string2922z00zz__r4_ports_6_10_1z00, BgL_bgl_string2922za700za7za7_3400za7, "&with-output-to-string", 22 );
BGL_DEFINE_STRING(BGl_string2841z00zz__r4_ports_6_10_1z00, BgL_bgl_string2841za700za7za7_3401za7, "input-port-protocols", 20 );
BGL_DEFINE_STRING(BGl_string2842z00zz__r4_ports_6_10_1z00, BgL_bgl_string2842za700za7za7_3402za7, "file:", 5 );
BGL_DEFINE_STRING(BGl_string2843z00zz__r4_ports_6_10_1z00, BgL_bgl_string2843za700za7za7_3403za7, "string:", 7 );
BGL_DEFINE_STRING(BGl_string2925z00zz__r4_ports_6_10_1z00, BgL_bgl_string2925za700za7za7_3404za7, "with-output-to-procedure", 24 );
BGL_DEFINE_STRING(BGl_string2926z00zz__r4_ports_6_10_1z00, BgL_bgl_string2926za700za7za7_3405za7, "with-output-to-procedure:Wrong number of arguments", 50 );
BGL_DEFINE_STRING(BGl_string2845z00zz__r4_ports_6_10_1z00, BgL_bgl_string2845za700za7za7_3406za7, "| ", 2 );
BGL_DEFINE_STRING(BGl_string2927z00zz__r4_ports_6_10_1z00, BgL_bgl_string2927za700za7za7_3407za7, "&with-output-to-procedure", 25 );
BGL_DEFINE_STRING(BGl_string2846z00zz__r4_ports_6_10_1z00, BgL_bgl_string2846za700za7za7_3408za7, "pipe:", 5 );
BGL_DEFINE_STRING(BGl_string2928z00zz__r4_ports_6_10_1z00, BgL_bgl_string2928za700za7za7_3409za7, "<@anonymous:1458>", 17 );
BGL_DEFINE_STRING(BGl_string2847z00zz__r4_ports_6_10_1z00, BgL_bgl_string2847za700za7za7_3410za7, "http://", 7 );
BGL_DEFINE_STRING(BGl_string2929z00zz__r4_ports_6_10_1z00, BgL_bgl_string2929za700za7za7_3411za7, "with-error-to-string:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2848z00zz__r4_ports_6_10_1z00, BgL_bgl_string2848za700za7za7_3412za7, "gzip:", 5 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_z52openzd2inputzd2httpzd2socketzd2envz52zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3413za7, BGl_z62z52openzd2inputzd2httpzd2socketze2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2849z00zz__r4_ports_6_10_1z00, BgL_bgl_string2849za700za7za7_3414za7, "zlib:", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2descriptorzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23415z00, 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_za762withza7d2output3416z00, BGl_z62withzd2outputzd2tozd2procedurezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762getza7d2outputza73417za7, BGl_z62getzd2outputzd2stringz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3418z00, BGl_z62outputzd2portzd2namezd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2existszf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2exists3419z00, BGl_z62filezd2existszf3z43zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2923z00zz__r4_ports_6_10_1z00, BgL_bgl_za762flushza762za7za7__r3420z00, BGl_z62flushz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2930z00zz__r4_ports_6_10_1z00, BgL_bgl_string2930za700za7za7_3421za7, "with-error-to-string", 20 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2924z00zz__r4_ports_6_10_1z00, BgL_bgl_za762closeza762za7za7__r3422z00, BGl_z62closez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2931z00zz__r4_ports_6_10_1z00, BgL_bgl_string2931za700za7za7_3423za7, "&with-error-to-string", 21 );
BGL_DEFINE_STRING(BGl_string2850z00zz__r4_ports_6_10_1z00, BgL_bgl_string2850za700za7za7_3424za7, "inflate:", 8 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2844z00zz__r4_ports_6_10_1z00, BgL_bgl_za762za7c3za704anonymo3425za7, BGl_z62zc3z04anonymousza31413ze3ze5zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2932z00zz__r4_ports_6_10_1z00, BgL_bgl_string2932za700za7za7_3426za7, "with-error-to-file:Wrong number of arguments", 44 );
BGL_DEFINE_STRING(BGl_string2851z00zz__r4_ports_6_10_1z00, BgL_bgl_string2851za700za7za7_3427za7, "/resource/", 10 );
BGL_DEFINE_STRING(BGl_string2933z00zz__r4_ports_6_10_1z00, BgL_bgl_string2933za700za7za7_3428za7, "with-error-to-file", 18 );
BGL_DEFINE_STRING(BGl_string2852z00zz__r4_ports_6_10_1z00, BgL_bgl_string2852za700za7za7_3429za7, "ftp://", 6 );
BGL_DEFINE_STRING(BGl_string2853z00zz__r4_ports_6_10_1z00, BgL_bgl_string2853za700za7za7_3430za7, "fd:", 3 );
BGL_DEFINE_STRING(BGl_string2935z00zz__r4_ports_6_10_1z00, BgL_bgl_string2935za700za7za7_3431za7, "&with-error-to-file", 19 );
BGL_DEFINE_STRING(BGl_string2854z00zz__r4_ports_6_10_1z00, BgL_bgl_string2854za700za7za7_3432za7, "/tmp/bigloo/runtime/Ieee/port.scm", 33 );
BGL_DEFINE_STRING(BGl_string2936z00zz__r4_ports_6_10_1z00, BgL_bgl_string2936za700za7za7_3433za7, "<@anonymous:1464>", 17 );
BGL_DEFINE_STRING(BGl_string2855z00zz__r4_ports_6_10_1z00, BgL_bgl_string2855za700za7za7_3434za7, "<@anonymous:1413>", 17 );
BGL_DEFINE_STRING(BGl_string2937z00zz__r4_ports_6_10_1z00, BgL_bgl_string2937za700za7za7_3435za7, "with-error-to-port:Wrong number of arguments", 44 );
BGL_DEFINE_STRING(BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_bgl_string2856za700za7za7_3436za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string2938z00zz__r4_ports_6_10_1z00, BgL_bgl_string2938za700za7za7_3437za7, "with-error-to-port", 18 );
BGL_DEFINE_STRING(BGl_string2857z00zz__r4_ports_6_10_1z00, BgL_bgl_string2857za700za7za7_3438za7, "call-with-input-file:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2939z00zz__r4_ports_6_10_1z00, BgL_bgl_string2939za700za7za7_3439za7, "&with-error-to-port", 19 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2strin3440z00, BGl_z62inputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2outputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d3441z00, opt_generic_entry, BGl__openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_copyzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762copyza7d2fileza7b3442za7, BGl_z62copyzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2gza7ipzd2portzf3zd2envz86zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2gza7a7i3443za7, BGl_z62inputzd2gza7ipzd2portzf3z36zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_directoryzd2ze3pathzd2vectorzd2envz31zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73444za7, BGl_z62directoryzd2ze3pathzd2vectorz81zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2860z00zz__r4_ports_6_10_1z00, BgL_bgl_string2860za700za7za7_3445za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string2942z00zz__r4_ports_6_10_1z00, BgL_bgl_string2942za700za7za7_3446za7, "with-error-to-procedure", 23 );
BGL_DEFINE_STRING(BGl_string2943z00zz__r4_ports_6_10_1z00, BgL_bgl_string2943za700za7za7_3447za7, "with-error-to-procedure:Wrong number of arguments", 49 );
BGL_DEFINE_STRING(BGl_string2862z00zz__r4_ports_6_10_1z00, BgL_bgl_string2862za700za7za7_3448za7, "proc", 4 );
BGL_DEFINE_STRING(BGl_string2944z00zz__r4_ports_6_10_1z00, BgL_bgl_string2944za700za7za7_3449za7, "&with-error-to-procedure", 24 );
BGL_DEFINE_STRING(BGl_string2945z00zz__r4_ports_6_10_1z00, BgL_bgl_string2945za700za7za7_3450za7, "<@anonymous:1466>", 17 );
BGL_DEFINE_STRING(BGl_string2864z00zz__r4_ports_6_10_1z00, BgL_bgl_string2864za700za7za7_3451za7, "port", 4 );
BGL_DEFINE_STRING(BGl_string2946z00zz__r4_ports_6_10_1z00, BgL_bgl_string2946za700za7za7_3452za7, "input-port-protocol", 19 );
BGL_DEFINE_STRING(BGl_string2865z00zz__r4_ports_6_10_1z00, BgL_bgl_string2865za700za7za7_3453za7, "call-with-input-file", 20 );
BGL_DEFINE_STRING(BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_bgl_string2947za700za7za7_3454za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_bgl_string2866za700za7za7_3455za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2948z00zz__r4_ports_6_10_1z00, BgL_bgl_string2948za700za7za7_3456za7, "input-port-protocol-set!", 24 );
BGL_DEFINE_STRING(BGl_string2867z00zz__r4_ports_6_10_1z00, BgL_bgl_string2867za700za7za7_3457za7, "can't open file", 15 );
BGL_DEFINE_STRING(BGl_string2949z00zz__r4_ports_6_10_1z00, BgL_bgl_string2949za700za7za7_3458za7, "Illegal open procedure for protocol", 35 );
BGL_DEFINE_STRING(BGl_string2868z00zz__r4_ports_6_10_1z00, BgL_bgl_string2868za700za7za7_3459za7, "&call-with-input-file", 21 );
BGL_DEFINE_STRING(BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_bgl_string2869za700za7za7_3460za7, "procedure", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2accesszd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2access3461z00, BGl_z62filezd2accesszd2timez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2timeszd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2timesza73462za7, BGl_z62filezd2timeszd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
extern obj_t BGl_openzd2inputzd2inflatezd2filezd2envz00zz__gunza7ipza7;
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2940z00zz__r4_ports_6_10_1z00, BgL_bgl_za762flush2107za762za73463za7, BGl_z62flush2107z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2941z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2106za762za73464za7, BGl_z62close2106z62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2flushzd2hookzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3465z00, BGl_z62outputzd2portzd2flushzd2hookzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2950z00zz__r4_ports_6_10_1z00, BgL_bgl_string2950za700za7za7_3466za7, "Illegal buffer", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3467z00, BGl_z62outputzd2portzd2timeoutzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2951z00zz__r4_ports_6_10_1z00, BgL_bgl_string2951za700za7za7_3468za7, "get-port-buffer", 15 );
BGL_DEFINE_STRING(BGl_string2870z00zz__r4_ports_6_10_1z00, BgL_bgl_string2870za700za7za7_3469za7, "<@anonymous:1437>", 17 );
BGL_DEFINE_STRING(BGl_string2952z00zz__r4_ports_6_10_1z00, BgL_bgl_string2952za700za7za7_3470za7, "&get-port-buffer", 16 );
BGL_DEFINE_STRING(BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_bgl_string2871za700za7za7_3471za7, "input-port", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_directoryzd2ze3vectorzd2envze3zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73472za7, BGl_z62directoryzd2ze3vectorz53zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
extern obj_t BGl_openzd2inputzd2ftpzd2filezd2envz00zz__ftpz00;
BGL_DEFINE_STRING(BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_bgl_string2953za700za7za7_3473za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string2872z00zz__r4_ports_6_10_1z00, BgL_bgl_string2872za700za7za7_3474za7, "call-with-input-string:Wrong number of arguments", 48 );
BGL_DEFINE_STRING(BGl_string2954z00zz__r4_ports_6_10_1z00, BgL_bgl_string2954za700za7za7_3475za7, "%open-input-file", 16 );
BGL_DEFINE_STRING(BGl_string2873z00zz__r4_ports_6_10_1z00, BgL_bgl_string2873za700za7za7_3476za7, "&call-with-input-string", 23 );
BGL_DEFINE_STRING(BGl_string2955z00zz__r4_ports_6_10_1z00, BgL_bgl_string2955za700za7za7_3477za7, "%open-input-descriptor", 22 );
BGL_DEFINE_STRING(BGl_string2874z00zz__r4_ports_6_10_1z00, BgL_bgl_string2874za700za7za7_3478za7, "open-output-file", 16 );
BGL_DEFINE_STRING(BGl_string2956z00zz__r4_ports_6_10_1z00, BgL_bgl_string2956za700za7za7_3479za7, "open-input-pipe", 15 );
BGL_DEFINE_STRING(BGl_string2875z00zz__r4_ports_6_10_1z00, BgL_bgl_string2875za700za7za7_3480za7, "call-with-output-file:Wrong number of arguments", 47 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2proce3481z00, BGl_z62inputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2957z00zz__r4_ports_6_10_1z00, BgL_bgl_string2957za700za7za7_3482za7, "%open-input-pipe", 16 );
BGL_DEFINE_STRING(BGl_string2876z00zz__r4_ports_6_10_1z00, BgL_bgl_string2876za700za7za7_3483za7, "call-with-output-file", 21 );
BGL_DEFINE_STRING(BGl_string2958z00zz__r4_ports_6_10_1z00, BgL_bgl_string2958za700za7za7_3484za7, "open-input-file", 15 );
BGL_DEFINE_STRING(BGl_string2877z00zz__r4_ports_6_10_1z00, BgL_bgl_string2877za700za7za7_3485za7, "&call-with-output-file", 22 );
BGL_DEFINE_STRING(BGl_string2959z00zz__r4_ports_6_10_1z00, BgL_bgl_string2959za700za7za7_3486za7, "%open-input-resource", 20 );
BGL_DEFINE_STRING(BGl_string2878z00zz__r4_ports_6_10_1z00, BgL_bgl_string2878za700za7za7_3487za7, "<@anonymous:1439>", 17 );
BGL_DEFINE_STRING(BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_bgl_string2879za700za7za7_3488za7, "output-port", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_z52openzd2inputzd2descriptorzd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3489za7, BGl_z62z52openzd2inputzd2descriptorz30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_directoryzd2lengthzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2l3490z00, BGl_z62directoryzd2lengthzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_flushzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762flushza7d2outpu3491z00, BGl_z62flushzd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2961z00zz__r4_ports_6_10_1z00, BgL_bgl_string2961za700za7za7_3492za7, "http", 4 );
BGL_DEFINE_STRING(BGl_string2880z00zz__r4_ports_6_10_1z00, BgL_bgl_string2880za700za7za7_3493za7, "append-output-file", 18 );
BGL_DEFINE_STRING(BGl_string2881z00zz__r4_ports_6_10_1z00, BgL_bgl_string2881za700za7za7_3494za7, "call-with-append-file:Wrong number of arguments", 47 );
BGL_DEFINE_STRING(BGl_string2882z00zz__r4_ports_6_10_1z00, BgL_bgl_string2882za700za7za7_3495za7, "call-with-append-file", 21 );
BGL_DEFINE_STRING(BGl_string2883z00zz__r4_ports_6_10_1z00, BgL_bgl_string2883za700za7za7_3496za7, "&call-with-append-file", 22 );
BGL_DEFINE_STRING(BGl_string2965z00zz__r4_ports_6_10_1z00, BgL_bgl_string2965za700za7za7_3497za7, "user-agent", 10 );
BGL_DEFINE_STRING(BGl_string2884z00zz__r4_ports_6_10_1z00, BgL_bgl_string2884za700za7za7_3498za7, "<@anonymous:1441>", 17 );
BGL_DEFINE_STRING(BGl_string2966z00zz__r4_ports_6_10_1z00, BgL_bgl_string2966za700za7za7_3499za7, "Mozilla/5.0", 11 );
BGL_DEFINE_STRING(BGl_string2885z00zz__r4_ports_6_10_1z00, BgL_bgl_string2885za700za7za7_3500za7, "call-with-output-string:Wrong number of arguments", 49 );
BGL_DEFINE_STRING(BGl_string2886z00zz__r4_ports_6_10_1z00, BgL_bgl_string2886za700za7za7_3501za7, "call-with-output-string", 23 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2errorzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73502za7, BGl_z62withzd2errorzd2tozd2procedurezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2887z00zz__r4_ports_6_10_1z00, BgL_bgl_string2887za700za7za7_3503za7, "&call-with-output-string", 24 );
BGL_DEFINE_STRING(BGl_string2969z00zz__r4_ports_6_10_1z00, BgL_bgl_string2969za700za7za7_3504za7, "Connection", 10 );
BGL_DEFINE_STRING(BGl_string2888z00zz__r4_ports_6_10_1z00, BgL_bgl_string2888za700za7za7_3505za7, "input-port-reopen!", 18 );
BGL_DEFINE_STRING(BGl_string2889z00zz__r4_ports_6_10_1z00, BgL_bgl_string2889za700za7za7_3506za7, "Cannot reopen port", 18 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2960z00zz__r4_ports_6_10_1z00, BgL_bgl_za762parserza762za7za7__3507z00, BGl_z62parserz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 5);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2lengthzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73508za7, BGl_z62inputzd2portzd2lengthz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2971z00zz__r4_ports_6_10_1z00, BgL_bgl_string2971za700za7za7_3509za7, "close", 5 );
BGL_DEFINE_STRING(BGl_string2890z00zz__r4_ports_6_10_1z00, BgL_bgl_string2890za700za7za7_3510za7, "&input-port-reopen!", 19 );
BGL_DEFINE_STRING(BGl_string2891z00zz__r4_ports_6_10_1z00, BgL_bgl_string2891za700za7za7_3511za7, "&input-port-clone!", 18 );
BGL_DEFINE_STRING(BGl_string2973z00zz__r4_ports_6_10_1z00, BgL_bgl_string2973za700za7za7_3512za7, "get", 3 );
BGL_DEFINE_STRING(BGl_string2892z00zz__r4_ports_6_10_1z00, BgL_bgl_string2892za700za7za7_3513za7, "with-input-from-file:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2975z00zz__r4_ports_6_10_1z00, BgL_bgl_string2975za700za7za7_3514za7, "HTTP/1.1", 8 );
BGL_DEFINE_STRING(BGl_string2976z00zz__r4_ports_6_10_1z00, BgL_bgl_string2976za700za7za7_3515za7, "&loop", 5 );
BGL_DEFINE_STRING(BGl_string2895z00zz__r4_ports_6_10_1z00, BgL_bgl_string2895za700za7za7_3516za7, "thunk", 5 );
BGL_DEFINE_STRING(BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_bgl_string2977za700za7za7_3517za7, "socket", 6 );
BGL_DEFINE_STRING(BGl_string2896z00zz__r4_ports_6_10_1z00, BgL_bgl_string2896za700za7za7_3518za7, "with-input-from-file", 20 );
BGL_DEFINE_STRING(BGl_string2978z00zz__r4_ports_6_10_1z00, BgL_bgl_string2978za700za7za7_3519za7, "handler1117", 11 );
BGL_DEFINE_STRING(BGl_string2897z00zz__r4_ports_6_10_1z00, BgL_bgl_string2897za700za7za7_3520za7, "&with-input-from-file", 21 );
BGL_DEFINE_STRING(BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_bgl_string2979za700za7za7_3521za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string2898z00zz__r4_ports_6_10_1z00, BgL_bgl_string2898za700za7za7_3522za7, "<@anonymous:1447>", 17 );
BGL_DEFINE_STRING(BGl_string2899z00zz__r4_ports_6_10_1z00, BgL_bgl_string2899za700za7za7_3523za7, "with-input-from-string:Wrong number of arguments", 48 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2inputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3524za7, BGl_z62callzd2withzd2inputzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2seekzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73525za7, BGl_z62inputzd2portzd2seekzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2980z00zz__r4_ports_6_10_1z00, BgL_bgl_string2980za700za7za7_3526za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string2981z00zz__r4_ports_6_10_1z00, BgL_bgl_string2981za700za7za7_3527za7, "&http-redirection", 17 );
BGL_DEFINE_STRING(BGl_string2982z00zz__r4_ports_6_10_1z00, BgL_bgl_string2982za700za7za7_3528za7, "<@exit:1498>~0", 14 );
BGL_DEFINE_STRING(BGl_string2983z00zz__r4_ports_6_10_1z00, BgL_bgl_string2983za700za7za7_3529za7, "parser", 6 );
BGL_DEFINE_STRING(BGl_string2984z00zz__r4_ports_6_10_1z00, BgL_bgl_string2984za700za7za7_3530za7, "", 0 );
BGL_DEFINE_STRING(BGl_string2985z00zz__r4_ports_6_10_1z00, BgL_bgl_string2985za700za7za7_3531za7, "<@anonymous:1487>", 17 );
BGL_DEFINE_STRING(BGl_string2986z00zz__r4_ports_6_10_1z00, BgL_bgl_string2986za700za7za7_3532za7, "bytes=", 6 );
BGL_DEFINE_STRING(BGl_string2987z00zz__r4_ports_6_10_1z00, BgL_bgl_string2987za700za7za7_3533za7, "-", 1 );
BGL_DEFINE_STRING(BGl_string2989z00zz__r4_ports_6_10_1z00, BgL_bgl_string2989za700za7za7_3534za7, "range", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_renamezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762renameza7d2file3535z00, BGl_z62renamezd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2inputzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3536za7, BGl_z62callzd2withzd2inputzd2stringzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2symlinkzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762makeza7d2symlin3537z00, BGl_z62makezd2symlinkzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_truncatezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762truncateza7d2fi3538z00, BGl_z62truncatezd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2flushzd2bufferzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3539z00, BGl_z62outputzd2portzd2flushzd2bufferzd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2990z00zz__r4_ports_6_10_1z00, BgL_bgl_string2990za700za7za7_3540za7, "<@anonymous:1485>", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_deletezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762deleteza7d2dire3541z00, BGl_z62deletezd2directoryzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2991z00zz__r4_ports_6_10_1z00, BgL_bgl_string2991za700za7za7_3542za7, "_open-input-file", 16 );
BGL_DEFINE_STRING(BGl_string2992z00zz__r4_ports_6_10_1z00, BgL_bgl_string2992za700za7za7_3543za7, "case_else1259", 13 );
BGL_DEFINE_STRING(BGl_string2994z00zz__r4_ports_6_10_1z00, BgL_bgl_string2994za700za7za7_3544za7, "wrong number of arguments: [1..3] expected, provided", 52 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2reopenz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73545za7, BGl_z62inputzd2portzd2reopenz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2995z00zz__r4_ports_6_10_1z00, BgL_bgl_string2995za700za7za7_3546za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2996z00zz__r4_ports_6_10_1z00, BgL_bgl_string2996za700za7za7_3547za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string2999z00zz__r4_ports_6_10_1z00, BgL_bgl_string2999za700za7za7_3548za7, "open", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2pipeszd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2pipesza7d23549z00, 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_za762withza7d2inputza73550za7, BGl_z62withzd2inputzd2fromzd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_directoryzd2ze3pathzd2listzd2envz31zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73551za7, BGl_z62directoryzd2ze3pathzd2listz81zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2truncatezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3552z00, BGl_z62outputzd2portzd2truncatez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762getza7d2portza7d23553za7, BGl_z62getzd2portzd2bufferz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2gidzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2gidza7b03554za7, BGl_z62filezd2gidzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2stri3555z00, BGl_z62outputzd2stringzd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filezd2siza7ezd2envza7zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2siza7a7e3556za7, BGl_z62filezd2siza7ez17zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2isattyzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3557z00, BGl_z62outputzd2portzd2isattyzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2stringz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23558z00, 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_za762reopenza7d2inpu3559z00, 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_za762closeza7d2input3560z00, BGl_z62closezd2inputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73561za7, BGl_z62inputzd2portzd2bufferz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_z52openzd2inputzd2resourcezd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3562za7, BGl_z62z52openzd2inputzd2resourcez30zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_lockfzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__lockfza700za7za7__r4_3563za7, 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_za762directoryza7f3za73564za7, BGl_z62directoryzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2fillzd2barrierzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73565za7, BGl_z62inputzd2portzd2fillzd2barrierzd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3566z00, BGl_z62outputzd2portzd2closezd2hookzd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2inputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762setza7d2inputza7d3567za7, BGl_z62setzd2inputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_closezd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762closeza7d2outpu3568z00, BGl_z62closezd2outputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2portzd2flushzd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3569z00, BGl_z62outputzd2portzd2flushzd2hookzd2setz12z70zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2inputzd2fromzd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2inputza73570za7, BGl_z62withzd2inputzd2fromzd2procedurezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2lastzd2tokenzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73571za7, BGl_z62inputzd2portzd2lastzd2tokenzd2positionz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23572z00, opt_generic_entry, BGl__openzd2inputzd2stringz00zz__r4_ports_6_10_1z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d3573z00, 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_za762withza7d2output3574z00, BGl_z62withzd2outputzd2tozd2filezb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_selectzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__selectza700za7za7__r43575za7, 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_za762withza7d2inputza73576za7, BGl_z62withzd2inputzd2fromzd2portzb0zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_outputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2proc3577z00, BGl_z62outputzd2procedurezd2portzf3z91zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2outputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762setza7d2outputza73578za7, BGl_z62setzd2outputzd2portzd2positionz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762currentza7d2inp3579z00, BGl_z62currentzd2inputzd2portz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73580za7, BGl_z62inputzd2portzd2positionz62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3001z00zz__r4_ports_6_10_1z00, BgL_bgl_string3001za700za7za7_3581za7, "name", 4 );
BGL_DEFINE_STRING(BGl_string3003z00zz__r4_ports_6_10_1z00, BgL_bgl_string3003za700za7za7_3582za7, "buffer", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2inputzd2gza7ipzd2portzd2envza7zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23583z00, opt_generic_entry, BGl__openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3005z00zz__r4_ports_6_10_1z00, BgL_bgl_string3005za700za7za7_3584za7, "timeout", 7 );
BGL_DEFINE_STRING(BGl_string3006z00zz__r4_ports_6_10_1z00, BgL_bgl_string3006za700za7za7_3585za7, "_open-input-descriptor", 22 );
BGL_DEFINE_STRING(BGl_string3007z00zz__r4_ports_6_10_1z00, BgL_bgl_string3007za700za7za7_3586za7, "case_else1264", 13 );
BGL_DEFINE_STRING(BGl_string3009z00zz__r4_ports_6_10_1z00, BgL_bgl_string3009za700za7za7_3587za7, "open-input-descriptor", 21 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73588za7, BGl_z62inputzd2portzd2namez62zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inputzd2portzd2protocolzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73589za7, BGl_z62inputzd2portzd2protocolzd2setz12za2zz__r4_ports_6_10_1z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d3590z00, 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_za762inputza7d2portza73591za7, 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_za762inputza7d2portza73591za7);
BGL_BIND_PROCEDURE(BGl_openzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d3590z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2protocolzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73589za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73588za7);
BGL_BIND_STRING(BGl_string3009z00zz__r4_ports_6_10_1z00, BgL_bgl_string3009za700za7za7_3587za7);
BGL_BIND_STRING(BGl_string3007z00zz__r4_ports_6_10_1z00, BgL_bgl_string3007za700za7za7_3586za7);
BGL_BIND_STRING(BGl_string3006z00zz__r4_ports_6_10_1z00, BgL_bgl_string3006za700za7za7_3585za7);
BGL_BIND_STRING(BGl_string3005z00zz__r4_ports_6_10_1z00, BgL_bgl_string3005za700za7za7_3584za7);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2gza7ipzd2portzd2envza7zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23583z00);
BGL_BIND_STRING(BGl_string3003z00zz__r4_ports_6_10_1z00, BgL_bgl_string3003za700za7za7_3582za7);
BGL_BIND_STRING(BGl_string3001z00zz__r4_ports_6_10_1z00, BgL_bgl_string3001za700za7za7_3581za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73580za7);
BGL_BIND_PROCEDURE(BGl_currentzd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762currentza7d2inp3579z00);
BGL_BIND_PROCEDURE(BGl_setzd2outputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762setza7d2outputza73578za7);
BGL_BIND_PROCEDURE(BGl_outputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2proc3577z00);
BGL_BIND_PROCEDURE(BGl_withzd2inputzd2fromzd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2inputza73576za7);
BGL_BIND_PROCEDURE(BGl_selectzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__selectza700za7za7__r43575za7);
BGL_BIND_PROCEDURE(BGl_withzd2outputzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2output3574z00);
BGL_BIND_PROCEDURE(BGl_openzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d3573z00);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23572z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2lastzd2tokenzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73571za7);
BGL_BIND_PROCEDURE(BGl_withzd2inputzd2fromzd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2inputza73570za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2flushzd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3569z00);
BGL_BIND_PROCEDURE(BGl_closezd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762closeza7d2outpu3568z00);
BGL_BIND_PROCEDURE(BGl_setzd2inputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762setza7d2inputza7d3567za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3566z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2fillzd2barrierzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73565za7);
BGL_BIND_PROCEDURE(BGl_directoryzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7f3za73564za7);
BGL_BIND_PROCEDURE(BGl_lockfzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__lockfza700za7za7__r4_3563za7);
BGL_BIND_PROCEDURE(BGl_z52openzd2inputzd2resourcezd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3562za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73561za7);
BGL_BIND_PROCEDURE(BGl_closezd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762closeza7d2input3560z00);
BGL_BIND_PROCEDURE(BGl_reopenzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762reopenza7d2inpu3559z00);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2stringz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23558z00);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2isattyzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3557z00);
BGL_BIND_PROCEDURE(BGl_filezd2siza7ezd2envza7zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2siza7a7e3556za7);
BGL_BIND_PROCEDURE(BGl_outputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2stri3555z00);
BGL_BIND_PROCEDURE(BGl_filezd2gidzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2gidza7b03554za7);
BGL_BIND_PROCEDURE(BGl_getzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762getza7d2portza7d23553za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2truncatezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3552z00);
BGL_BIND_PROCEDURE(BGl_directoryzd2ze3pathzd2listzd2envz31zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73551za7);
BGL_BIND_PROCEDURE(BGl_withzd2inputzd2fromzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2inputza73550za7);
BGL_BIND_PROCEDURE(BGl_openzd2pipeszd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2pipesza7d23549z00);
BGL_BIND_STRING(BGl_string2999z00zz__r4_ports_6_10_1z00, BgL_bgl_string2999za700za7za7_3548za7);
BGL_BIND_STRING(BGl_string2996z00zz__r4_ports_6_10_1z00, BgL_bgl_string2996za700za7za7_3547za7);
BGL_BIND_STRING(BGl_string2995z00zz__r4_ports_6_10_1z00, BgL_bgl_string2995za700za7za7_3546za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2reopenz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73545za7);
BGL_BIND_STRING(BGl_string2994z00zz__r4_ports_6_10_1z00, BgL_bgl_string2994za700za7za7_3544za7);
BGL_BIND_STRING(BGl_string2992z00zz__r4_ports_6_10_1z00, BgL_bgl_string2992za700za7za7_3543za7);
BGL_BIND_STRING(BGl_string2991z00zz__r4_ports_6_10_1z00, BgL_bgl_string2991za700za7za7_3542za7);
BGL_BIND_PROCEDURE(BGl_deletezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762deleteza7d2dire3541z00);
BGL_BIND_STRING(BGl_string2990z00zz__r4_ports_6_10_1z00, BgL_bgl_string2990za700za7za7_3540za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2flushzd2bufferzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3539z00);
BGL_BIND_PROCEDURE(BGl_truncatezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762truncateza7d2fi3538z00);
BGL_BIND_PROCEDURE(BGl_makezd2symlinkzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762makeza7d2symlin3537z00);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2inputzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3536za7);
BGL_BIND_PROCEDURE(BGl_renamezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762renameza7d2file3535z00);
BGL_BIND_STRING(BGl_string2989z00zz__r4_ports_6_10_1z00, BgL_bgl_string2989za700za7za7_3534za7);
BGL_BIND_STRING(BGl_string2987z00zz__r4_ports_6_10_1z00, BgL_bgl_string2987za700za7za7_3533za7);
BGL_BIND_STRING(BGl_string2986z00zz__r4_ports_6_10_1z00, BgL_bgl_string2986za700za7za7_3532za7);
BGL_BIND_STRING(BGl_string2985z00zz__r4_ports_6_10_1z00, BgL_bgl_string2985za700za7za7_3531za7);
BGL_BIND_STRING(BGl_string2984z00zz__r4_ports_6_10_1z00, BgL_bgl_string2984za700za7za7_3530za7);
BGL_BIND_STRING(BGl_string2983z00zz__r4_ports_6_10_1z00, BgL_bgl_string2983za700za7za7_3529za7);
BGL_BIND_STRING(BGl_string2982z00zz__r4_ports_6_10_1z00, BgL_bgl_string2982za700za7za7_3528za7);
BGL_BIND_STRING(BGl_string2981z00zz__r4_ports_6_10_1z00, BgL_bgl_string2981za700za7za7_3527za7);
BGL_BIND_STRING(BGl_string2980z00zz__r4_ports_6_10_1z00, BgL_bgl_string2980za700za7za7_3526za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2seekzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73525za7);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2inputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3524za7);
BGL_BIND_STRING(BGl_string2899z00zz__r4_ports_6_10_1z00, BgL_bgl_string2899za700za7za7_3523za7);
BGL_BIND_STRING(BGl_string2898z00zz__r4_ports_6_10_1z00, BgL_bgl_string2898za700za7za7_3522za7);
BGL_BIND_STRING(BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_bgl_string2979za700za7za7_3521za7);
BGL_BIND_STRING(BGl_string2897z00zz__r4_ports_6_10_1z00, BgL_bgl_string2897za700za7za7_3520za7);
BGL_BIND_STRING(BGl_string2978z00zz__r4_ports_6_10_1z00, BgL_bgl_string2978za700za7za7_3519za7);
BGL_BIND_STRING(BGl_string2896z00zz__r4_ports_6_10_1z00, BgL_bgl_string2896za700za7za7_3518za7);
BGL_BIND_STRING(BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_bgl_string2977za700za7za7_3517za7);
BGL_BIND_STRING(BGl_string2895z00zz__r4_ports_6_10_1z00, BgL_bgl_string2895za700za7za7_3516za7);
BGL_BIND_STRING(BGl_string2976z00zz__r4_ports_6_10_1z00, BgL_bgl_string2976za700za7za7_3515za7);
BGL_BIND_STRING(BGl_string2975z00zz__r4_ports_6_10_1z00, BgL_bgl_string2975za700za7za7_3514za7);
BGL_BIND_STRING(BGl_string2892z00zz__r4_ports_6_10_1z00, BgL_bgl_string2892za700za7za7_3513za7);
BGL_BIND_STRING(BGl_string2973z00zz__r4_ports_6_10_1z00, BgL_bgl_string2973za700za7za7_3512za7);
BGL_BIND_STRING(BGl_string2891z00zz__r4_ports_6_10_1z00, BgL_bgl_string2891za700za7za7_3511za7);
BGL_BIND_STRING(BGl_string2890z00zz__r4_ports_6_10_1z00, BgL_bgl_string2890za700za7za7_3510za7);
BGL_BIND_STRING(BGl_string2971z00zz__r4_ports_6_10_1z00, BgL_bgl_string2971za700za7za7_3509za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2lengthzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73508za7);
BGL_BIND_PROCEDURE(BGl_proc2960z00zz__r4_ports_6_10_1z00, BgL_bgl_za762parserza762za7za7__3507z00);
BGL_BIND_STRING(BGl_string2889z00zz__r4_ports_6_10_1z00, BgL_bgl_string2889za700za7za7_3506za7);
BGL_BIND_STRING(BGl_string2888z00zz__r4_ports_6_10_1z00, BgL_bgl_string2888za700za7za7_3505za7);
BGL_BIND_STRING(BGl_string2969z00zz__r4_ports_6_10_1z00, BgL_bgl_string2969za700za7za7_3504za7);
BGL_BIND_STRING(BGl_string2887z00zz__r4_ports_6_10_1z00, BgL_bgl_string2887za700za7za7_3503za7);
BGL_BIND_PROCEDURE(BGl_withzd2errorzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73502za7);
BGL_BIND_STRING(BGl_string2886z00zz__r4_ports_6_10_1z00, BgL_bgl_string2886za700za7za7_3501za7);
BGL_BIND_STRING(BGl_string2885z00zz__r4_ports_6_10_1z00, BgL_bgl_string2885za700za7za7_3500za7);
BGL_BIND_STRING(BGl_string2966z00zz__r4_ports_6_10_1z00, BgL_bgl_string2966za700za7za7_3499za7);
BGL_BIND_STRING(BGl_string2884z00zz__r4_ports_6_10_1z00, BgL_bgl_string2884za700za7za7_3498za7);
BGL_BIND_STRING(BGl_string2965z00zz__r4_ports_6_10_1z00, BgL_bgl_string2965za700za7za7_3497za7);
BGL_BIND_STRING(BGl_string2883z00zz__r4_ports_6_10_1z00, BgL_bgl_string2883za700za7za7_3496za7);
BGL_BIND_STRING(BGl_string2882z00zz__r4_ports_6_10_1z00, BgL_bgl_string2882za700za7za7_3495za7);
BGL_BIND_STRING(BGl_string2881z00zz__r4_ports_6_10_1z00, BgL_bgl_string2881za700za7za7_3494za7);
BGL_BIND_STRING(BGl_string2880z00zz__r4_ports_6_10_1z00, BgL_bgl_string2880za700za7za7_3493za7);
BGL_BIND_STRING(BGl_string2961z00zz__r4_ports_6_10_1z00, BgL_bgl_string2961za700za7za7_3492za7);
BGL_BIND_PROCEDURE(BGl_flushzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762flushza7d2outpu3491z00);
BGL_BIND_PROCEDURE(BGl_directoryzd2lengthzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2l3490z00);
BGL_BIND_PROCEDURE(BGl_z52openzd2inputzd2descriptorzd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3489za7);
BGL_BIND_STRING(BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_bgl_string2879za700za7za7_3488za7);
BGL_BIND_STRING(BGl_string2878z00zz__r4_ports_6_10_1z00, BgL_bgl_string2878za700za7za7_3487za7);
BGL_BIND_STRING(BGl_string2959z00zz__r4_ports_6_10_1z00, BgL_bgl_string2959za700za7za7_3486za7);
BGL_BIND_STRING(BGl_string2877z00zz__r4_ports_6_10_1z00, BgL_bgl_string2877za700za7za7_3485za7);
BGL_BIND_STRING(BGl_string2958z00zz__r4_ports_6_10_1z00, BgL_bgl_string2958za700za7za7_3484za7);
BGL_BIND_STRING(BGl_string2876z00zz__r4_ports_6_10_1z00, BgL_bgl_string2876za700za7za7_3483za7);
BGL_BIND_STRING(BGl_string2957z00zz__r4_ports_6_10_1z00, BgL_bgl_string2957za700za7za7_3482za7);
BGL_BIND_PROCEDURE(BGl_inputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2proce3481z00);
BGL_BIND_STRING(BGl_string2875z00zz__r4_ports_6_10_1z00, BgL_bgl_string2875za700za7za7_3480za7);
BGL_BIND_STRING(BGl_string2956z00zz__r4_ports_6_10_1z00, BgL_bgl_string2956za700za7za7_3479za7);
BGL_BIND_STRING(BGl_string2874z00zz__r4_ports_6_10_1z00, BgL_bgl_string2874za700za7za7_3478za7);
BGL_BIND_STRING(BGl_string2955z00zz__r4_ports_6_10_1z00, BgL_bgl_string2955za700za7za7_3477za7);
BGL_BIND_STRING(BGl_string2873z00zz__r4_ports_6_10_1z00, BgL_bgl_string2873za700za7za7_3476za7);
BGL_BIND_STRING(BGl_string2954z00zz__r4_ports_6_10_1z00, BgL_bgl_string2954za700za7za7_3475za7);
BGL_BIND_STRING(BGl_string2872z00zz__r4_ports_6_10_1z00, BgL_bgl_string2872za700za7za7_3474za7);
BGL_BIND_STRING(BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_bgl_string2953za700za7za7_3473za7);
BGL_BIND_PROCEDURE(BGl_directoryzd2ze3vectorzd2envze3zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73472za7);
BGL_BIND_STRING(BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_bgl_string2871za700za7za7_3471za7);
BGL_BIND_STRING(BGl_string2952z00zz__r4_ports_6_10_1z00, BgL_bgl_string2952za700za7za7_3470za7);
BGL_BIND_STRING(BGl_string2870z00zz__r4_ports_6_10_1z00, BgL_bgl_string2870za700za7za7_3469za7);
BGL_BIND_STRING(BGl_string2951z00zz__r4_ports_6_10_1z00, BgL_bgl_string2951za700za7za7_3468za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3467z00);
BGL_BIND_STRING(BGl_string2950z00zz__r4_ports_6_10_1z00, BgL_bgl_string2950za700za7za7_3466za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2flushzd2hookzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3465z00);
BGL_BIND_PROCEDURE(BGl_proc2941z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2106za762za73464za7);
BGL_BIND_PROCEDURE(BGl_proc2940z00zz__r4_ports_6_10_1z00, BgL_bgl_za762flush2107za762za73463za7);
BGL_BIND_PROCEDURE(BGl_filezd2timeszd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2timesza73462za7);
BGL_BIND_PROCEDURE(BGl_filezd2accesszd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2access3461z00);
BGL_BIND_STRING(BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_bgl_string2869za700za7za7_3460za7);
BGL_BIND_STRING(BGl_string2868z00zz__r4_ports_6_10_1z00, BgL_bgl_string2868za700za7za7_3459za7);
BGL_BIND_STRING(BGl_string2949z00zz__r4_ports_6_10_1z00, BgL_bgl_string2949za700za7za7_3458za7);
BGL_BIND_STRING(BGl_string2867z00zz__r4_ports_6_10_1z00, BgL_bgl_string2867za700za7za7_3457za7);
BGL_BIND_STRING(BGl_string2948z00zz__r4_ports_6_10_1z00, BgL_bgl_string2948za700za7za7_3456za7);
BGL_BIND_STRING(BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_bgl_string2866za700za7za7_3455za7);
BGL_BIND_STRING(BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_bgl_string2947za700za7za7_3454za7);
BGL_BIND_STRING(BGl_string2865z00zz__r4_ports_6_10_1z00, BgL_bgl_string2865za700za7za7_3453za7);
BGL_BIND_STRING(BGl_string2946z00zz__r4_ports_6_10_1z00, BgL_bgl_string2946za700za7za7_3452za7);
BGL_BIND_STRING(BGl_string2864z00zz__r4_ports_6_10_1z00, BgL_bgl_string2864za700za7za7_3451za7);
BGL_BIND_STRING(BGl_string2945z00zz__r4_ports_6_10_1z00, BgL_bgl_string2945za700za7za7_3450za7);
BGL_BIND_STRING(BGl_string2944z00zz__r4_ports_6_10_1z00, BgL_bgl_string2944za700za7za7_3449za7);
BGL_BIND_STRING(BGl_string2862z00zz__r4_ports_6_10_1z00, BgL_bgl_string2862za700za7za7_3448za7);
BGL_BIND_STRING(BGl_string2943z00zz__r4_ports_6_10_1z00, BgL_bgl_string2943za700za7za7_3447za7);
BGL_BIND_STRING(BGl_string2942z00zz__r4_ports_6_10_1z00, BgL_bgl_string2942za700za7za7_3446za7);
BGL_BIND_STRING(BGl_string2860z00zz__r4_ports_6_10_1z00, BgL_bgl_string2860za700za7za7_3445za7);
BGL_BIND_PROCEDURE(BGl_directoryzd2ze3pathzd2vectorzd2envz31zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73444za7);
BGL_BIND_PROCEDURE(BGl_inputzd2gza7ipzd2portzf3zd2envz86zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2gza7a7i3443za7);
BGL_BIND_PROCEDURE(BGl_copyzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762copyza7d2fileza7b3442za7);
BGL_BIND_PROCEDURE(BGl_openzd2outputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d3441z00);
BGL_BIND_PROCEDURE(BGl_inputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2strin3440z00);
BGL_BIND_STRING(BGl_string2939z00zz__r4_ports_6_10_1z00, BgL_bgl_string2939za700za7za7_3439za7);
BGL_BIND_STRING(BGl_string2857z00zz__r4_ports_6_10_1z00, BgL_bgl_string2857za700za7za7_3438za7);
BGL_BIND_STRING(BGl_string2938z00zz__r4_ports_6_10_1z00, BgL_bgl_string2938za700za7za7_3437za7);
BGL_BIND_STRING(BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_bgl_string2856za700za7za7_3436za7);
BGL_BIND_STRING(BGl_string2937z00zz__r4_ports_6_10_1z00, BgL_bgl_string2937za700za7za7_3435za7);
BGL_BIND_STRING(BGl_string2855z00zz__r4_ports_6_10_1z00, BgL_bgl_string2855za700za7za7_3434za7);
BGL_BIND_STRING(BGl_string2936z00zz__r4_ports_6_10_1z00, BgL_bgl_string2936za700za7za7_3433za7);
BGL_BIND_STRING(BGl_string2854z00zz__r4_ports_6_10_1z00, BgL_bgl_string2854za700za7za7_3432za7);
BGL_BIND_STRING(BGl_string2935z00zz__r4_ports_6_10_1z00, BgL_bgl_string2935za700za7za7_3431za7);
BGL_BIND_STRING(BGl_string2853z00zz__r4_ports_6_10_1z00, BgL_bgl_string2853za700za7za7_3430za7);
BGL_BIND_STRING(BGl_string2852z00zz__r4_ports_6_10_1z00, BgL_bgl_string2852za700za7za7_3429za7);
BGL_BIND_STRING(BGl_string2933z00zz__r4_ports_6_10_1z00, BgL_bgl_string2933za700za7za7_3428za7);
BGL_BIND_STRING(BGl_string2851z00zz__r4_ports_6_10_1z00, BgL_bgl_string2851za700za7za7_3427za7);
BGL_BIND_STRING(BGl_string2932z00zz__r4_ports_6_10_1z00, BgL_bgl_string2932za700za7za7_3426za7);
BGL_BIND_PROCEDURE(BGl_proc2844z00zz__r4_ports_6_10_1z00, BgL_bgl_za762za7c3za704anonymo3425za7);
BGL_BIND_STRING(BGl_string2850z00zz__r4_ports_6_10_1z00, BgL_bgl_string2850za700za7za7_3424za7);
BGL_BIND_STRING(BGl_string2931z00zz__r4_ports_6_10_1z00, BgL_bgl_string2931za700za7za7_3423za7);
BGL_BIND_PROCEDURE(BGl_proc2924z00zz__r4_ports_6_10_1z00, BgL_bgl_za762closeza762za7za7__r3422z00);
BGL_BIND_STRING(BGl_string2930z00zz__r4_ports_6_10_1z00, BgL_bgl_string2930za700za7za7_3421za7);
BGL_BIND_PROCEDURE(BGl_proc2923z00zz__r4_ports_6_10_1z00, BgL_bgl_za762flushza762za7za7__r3420z00);
BGL_BIND_PROCEDURE(BGl_filezd2existszf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2exists3419z00);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3418z00);
BGL_BIND_PROCEDURE(BGl_getzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762getza7d2outputza73417za7);
BGL_BIND_PROCEDURE(BGl_withzd2outputzd2tozd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2output3416z00);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2descriptorzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23415z00);
BGL_BIND_STRING(BGl_string2849z00zz__r4_ports_6_10_1z00, BgL_bgl_string2849za700za7za7_3414za7);
BGL_BIND_PROCEDURE(BGl_z52openzd2inputzd2httpzd2socketzd2envz52zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3413za7);
BGL_BIND_STRING(BGl_string2848z00zz__r4_ports_6_10_1z00, BgL_bgl_string2848za700za7za7_3412za7);
BGL_BIND_STRING(BGl_string2929z00zz__r4_ports_6_10_1z00, BgL_bgl_string2929za700za7za7_3411za7);
BGL_BIND_STRING(BGl_string2847z00zz__r4_ports_6_10_1z00, BgL_bgl_string2847za700za7za7_3410za7);
BGL_BIND_STRING(BGl_string2928z00zz__r4_ports_6_10_1z00, BgL_bgl_string2928za700za7za7_3409za7);
BGL_BIND_STRING(BGl_string2846z00zz__r4_ports_6_10_1z00, BgL_bgl_string2846za700za7za7_3408za7);
BGL_BIND_STRING(BGl_string2927z00zz__r4_ports_6_10_1z00, BgL_bgl_string2927za700za7za7_3407za7);
BGL_BIND_STRING(BGl_string2845z00zz__r4_ports_6_10_1z00, BgL_bgl_string2845za700za7za7_3406za7);
BGL_BIND_STRING(BGl_string2926z00zz__r4_ports_6_10_1z00, BgL_bgl_string2926za700za7za7_3405za7);
BGL_BIND_STRING(BGl_string2925z00zz__r4_ports_6_10_1z00, BgL_bgl_string2925za700za7za7_3404za7);
BGL_BIND_STRING(BGl_string2843z00zz__r4_ports_6_10_1z00, BgL_bgl_string2843za700za7za7_3403za7);
BGL_BIND_STRING(BGl_string2842z00zz__r4_ports_6_10_1z00, BgL_bgl_string2842za700za7za7_3402za7);
BGL_BIND_STRING(BGl_string2841z00zz__r4_ports_6_10_1z00, BgL_bgl_string2841za700za7za7_3401za7);
BGL_BIND_STRING(BGl_string2922z00zz__r4_ports_6_10_1z00, BgL_bgl_string2922za700za7za7_3400za7);
BGL_BIND_STRING(BGl_string2921z00zz__r4_ports_6_10_1z00, BgL_bgl_string2921za700za7za7_3399za7);
BGL_BIND_STRING(BGl_string2920z00zz__r4_ports_6_10_1z00, BgL_bgl_string2920za700za7za7_3398za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2fillzd2barrierzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73397za7);
BGL_BIND_STRING(BGl_string2919z00zz__r4_ports_6_10_1z00, BgL_bgl_string2919za700za7za7_3396za7);
BGL_BIND_STRING(BGl_string2918z00zz__r4_ports_6_10_1z00, BgL_bgl_string2918za700za7za7_3395za7);
BGL_BIND_STRING(BGl_string2917z00zz__r4_ports_6_10_1z00, BgL_bgl_string2917za700za7za7_3394za7);
BGL_BIND_STRING(BGl_string2916z00zz__r4_ports_6_10_1z00, BgL_bgl_string2916za700za7za7_3393za7);
BGL_BIND_STRING(BGl_string2915z00zz__r4_ports_6_10_1z00, BgL_bgl_string2915za700za7za7_3392za7);
BGL_BIND_STRING(BGl_string2914z00zz__r4_ports_6_10_1z00, BgL_bgl_string2914za700za7za7_3391za7);
BGL_BIND_STRING(BGl_string2913z00zz__r4_ports_6_10_1z00, BgL_bgl_string2913za700za7za7_3390za7);
BGL_BIND_STRING(BGl_string2912z00zz__r4_ports_6_10_1z00, BgL_bgl_string2912za700za7za7_3389za7);
BGL_BIND_STRING(BGl_string2911z00zz__r4_ports_6_10_1z00, BgL_bgl_string2911za700za7za7_3388za7);
BGL_BIND_STRING(BGl_string2910z00zz__r4_ports_6_10_1z00, BgL_bgl_string2910za700za7za7_3387za7);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23386z00);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3385z00);
BGL_BIND_STRING(BGl_string2909z00zz__r4_ports_6_10_1z00, BgL_bgl_string2909za700za7za7_3384za7);
BGL_BIND_STRING(BGl_string2908z00zz__r4_ports_6_10_1z00, BgL_bgl_string2908za700za7za7_3383za7);
BGL_BIND_STRING(BGl_string2907z00zz__r4_ports_6_10_1z00, BgL_bgl_string2907za700za7za7_3382za7);
BGL_BIND_STRING(BGl_string2906z00zz__r4_ports_6_10_1z00, BgL_bgl_string2906za700za7za7_3381za7);
BGL_BIND_STRING(BGl_string2905z00zz__r4_ports_6_10_1z00, BgL_bgl_string2905za700za7za7_3380za7);
BGL_BIND_STRING(BGl_string2904z00zz__r4_ports_6_10_1z00, BgL_bgl_string2904za700za7za7_3379za7);
BGL_BIND_PROCEDURE(BGl_filezd2typezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2typeza7b3378za7);
BGL_BIND_STRING(BGl_string2903z00zz__r4_ports_6_10_1z00, BgL_bgl_string2903za700za7za7_3377za7);
BGL_BIND_STRING(BGl_string2902z00zz__r4_ports_6_10_1z00, BgL_bgl_string2902za700za7za7_3376za7);
BGL_BIND_STRING(BGl_string2901z00zz__r4_ports_6_10_1z00, BgL_bgl_string2901za700za7za7_3375za7);
BGL_BIND_STRING(BGl_string2900z00zz__r4_ports_6_10_1z00, BgL_bgl_string2900za700za7za7_3374za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3373z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73372za7);
BGL_BIND_PROCEDURE(BGl_directoryzd2ze3listzd2envze3zz__r4_ports_6_10_1z00, BgL_bgl_za762directoryza7d2za73371za7);
BGL_BIND_PROCEDURE(BGl_currentzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762currentza7d2out3370z00);
BGL_BIND_PROCEDURE(BGl_resetzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762resetza7d2outpu3369z00);
BGL_BIND_PROCEDURE(BGl_filezd2uidzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2uidza7b03368za7);
BGL_BIND_PROCEDURE(BGl_withzd2outputzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2output3367z00);
BGL_BIND_PROCEDURE(BGl_deletezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762deleteza7d2file3366z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2closezd2hookzd2setz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73365za7);
BGL_BIND_PROCEDURE(BGl_filezd2gza7ipzf3zd2envz54zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2gza7a7ip3364za7);
BGL_BIND_PROCEDURE(BGl_withzd2appendzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2append3363z00);
BGL_BIND_PROCEDURE(BGl_inputzd2mmapzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2mmapza73362za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2bufferzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3361z00);
BGL_BIND_PROCEDURE(BGl_appendzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__appendza7d2output3360za7);
BGL_BIND_PROCEDURE(BGl_makezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762makeza7d2direct3359z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2seekzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73358za7);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2outputzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3357za7);
BGL_BIND_PROCEDURE(BGl_withzd2inputzd2fromzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2inputza73356za7);
BGL_BIND_STRING(BGl_string3099z00zz__r4_ports_6_10_1z00, BgL_bgl_string3099za700za7za7_3355za7);
BGL_BIND_PROCEDURE(BGl_withzd2errorzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73354za7);
BGL_BIND_STRING(BGl_string3098z00zz__r4_ports_6_10_1z00, BgL_bgl_string3098za700za7za7_3353za7);
BGL_BIND_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00, BgL_bgl_string3179za700za7za7_3352za7);
BGL_BIND_STRING(BGl_string3097z00zz__r4_ports_6_10_1z00, BgL_bgl_string3097za700za7za7_3351za7);
BGL_BIND_STRING(BGl_string3178z00zz__r4_ports_6_10_1z00, BgL_bgl_string3178za700za7za7_3350za7);
BGL_BIND_STRING(BGl_string3096z00zz__r4_ports_6_10_1z00, BgL_bgl_string3096za700za7za7_3349za7);
BGL_BIND_STRING(BGl_string3177z00zz__r4_ports_6_10_1z00, BgL_bgl_string3177za700za7za7_3348za7);
BGL_BIND_STRING(BGl_string3095z00zz__r4_ports_6_10_1z00, BgL_bgl_string3095za700za7za7_3347za7);
BGL_BIND_STRING(BGl_string3094z00zz__r4_ports_6_10_1z00, BgL_bgl_string3094za700za7za7_3346za7);
BGL_BIND_STRING(BGl_string3175z00zz__r4_ports_6_10_1z00, BgL_bgl_string3175za700za7za7_3345za7);
BGL_BIND_STRING(BGl_string3093z00zz__r4_ports_6_10_1z00, BgL_bgl_string3093za700za7za7_3344za7);
BGL_BIND_STRING(BGl_string3092z00zz__r4_ports_6_10_1z00, BgL_bgl_string3092za700za7za7_3343za7);
BGL_BIND_STRING(BGl_string3173z00zz__r4_ports_6_10_1z00, BgL_bgl_string3173za700za7za7_3342za7);
BGL_BIND_STRING(BGl_string3091z00zz__r4_ports_6_10_1z00, BgL_bgl_string3091za700za7za7_3341za7);
BGL_BIND_STRING(BGl_string3090z00zz__r4_ports_6_10_1z00, BgL_bgl_string3090za700za7za7_3340za7);
BGL_BIND_STRING(BGl_string3171z00zz__r4_ports_6_10_1z00, BgL_bgl_string3171za700za7za7_3339za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2namezd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73338za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3337z00);
BGL_BIND_STRING(BGl_string3089z00zz__r4_ports_6_10_1z00, BgL_bgl_string3089za700za7za7_3336za7);
BGL_BIND_STRING(BGl_string3088z00zz__r4_ports_6_10_1z00, BgL_bgl_string3088za700za7za7_3335za7);
BGL_BIND_STRING(BGl_string3169z00zz__r4_ports_6_10_1z00, BgL_bgl_string3169za700za7za7_3334za7);
BGL_BIND_STRING(BGl_string3087z00zz__r4_ports_6_10_1z00, BgL_bgl_string3087za700za7za7_3333za7);
BGL_BIND_STRING(BGl_string3168z00zz__r4_ports_6_10_1z00, BgL_bgl_string3168za700za7za7_3332za7);
BGL_BIND_STRING(BGl_string3086z00zz__r4_ports_6_10_1z00, BgL_bgl_string3086za700za7za7_3331za7);
BGL_BIND_STRING(BGl_string3167z00zz__r4_ports_6_10_1z00, BgL_bgl_string3167za700za7za7_3330za7);
BGL_BIND_STRING(BGl_string3085z00zz__r4_ports_6_10_1z00, BgL_bgl_string3085za700za7za7_3329za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2timeoutzd2setz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73328za7);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2outputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3327za7);
BGL_BIND_STRING(BGl_string3084z00zz__r4_ports_6_10_1z00, BgL_bgl_string3084za700za7za7_3326za7);
BGL_BIND_STRING(BGl_string3165z00zz__r4_ports_6_10_1z00, BgL_bgl_string3165za700za7za7_3325za7);
BGL_BIND_STRING(BGl_string3083z00zz__r4_ports_6_10_1z00, BgL_bgl_string3083za700za7za7_3324za7);
BGL_BIND_STRING(BGl_string3164z00zz__r4_ports_6_10_1z00, BgL_bgl_string3164za700za7za7_3323za7);
BGL_BIND_STRING(BGl_string3082z00zz__r4_ports_6_10_1z00, BgL_bgl_string3082za700za7za7_3322za7);
BGL_BIND_STRING(BGl_string3163z00zz__r4_ports_6_10_1z00, BgL_bgl_string3163za700za7za7_3321za7);
BGL_BIND_STRING(BGl_string3081z00zz__r4_ports_6_10_1z00, BgL_bgl_string3081za700za7za7_3320za7);
BGL_BIND_STRING(BGl_string3162z00zz__r4_ports_6_10_1z00, BgL_bgl_string3162za700za7za7_3319za7);
BGL_BIND_STRING(BGl_string3080z00zz__r4_ports_6_10_1z00, BgL_bgl_string3080za700za7za7_3318za7);
BGL_BIND_STRING(BGl_string3160z00zz__r4_ports_6_10_1z00, BgL_bgl_string3160za700za7za7_3317za7);
BGL_BIND_PROCEDURE(BGl_closedzd2outputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762closedza7d2outp3316z00);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3315z00);
BGL_BIND_PROCEDURE(BGl_z52openzd2inputzd2filezd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3314za7);
BGL_BIND_STRING(BGl_string3079z00zz__r4_ports_6_10_1z00, BgL_bgl_string3079za700za7za7_3313za7);
BGL_BIND_STRING(BGl_string3078z00zz__r4_ports_6_10_1z00, BgL_bgl_string3078za700za7za7_3312za7);
BGL_BIND_STRING(BGl_string3159z00zz__r4_ports_6_10_1z00, BgL_bgl_string3159za700za7za7_3311za7);
BGL_BIND_STRING(BGl_string3077z00zz__r4_ports_6_10_1z00, BgL_bgl_string3077za700za7za7_3310za7);
BGL_BIND_STRING(BGl_string3158z00zz__r4_ports_6_10_1z00, BgL_bgl_string3158za700za7za7_3309za7);
BGL_BIND_STRING(BGl_string3076z00zz__r4_ports_6_10_1z00, BgL_bgl_string3076za700za7za7_3308za7);
BGL_BIND_STRING(BGl_string3157z00zz__r4_ports_6_10_1z00, BgL_bgl_string3157za700za7za7_3307za7);
BGL_BIND_STRING(BGl_string3156z00zz__r4_ports_6_10_1z00, BgL_bgl_string3156za700za7za7_3306za7);
BGL_BIND_STRING(BGl_string3074z00zz__r4_ports_6_10_1z00, BgL_bgl_string3074za700za7za7_3305za7);
BGL_BIND_STRING(BGl_string3154z00zz__r4_ports_6_10_1z00, BgL_bgl_string3154za700za7za7_3304za7);
BGL_BIND_STRING(BGl_string3071z00zz__r4_ports_6_10_1z00, BgL_bgl_string3071za700za7za7_3303za7);
BGL_BIND_STRING(BGl_string3070z00zz__r4_ports_6_10_1z00, BgL_bgl_string3070za700za7za7_3302za7);
BGL_BIND_STRING(BGl_string3151z00zz__r4_ports_6_10_1z00, BgL_bgl_string3151za700za7za7_3301za7);
BGL_BIND_PROCEDURE(BGl_resetzd2eofzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762resetza7d2eofza7b3300za7);
BGL_BIND_PROCEDURE(BGl_withzd2errorzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73299za7);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762openza7d2inputza73298za7);
BGL_BIND_STRING(BGl_string3069z00zz__r4_ports_6_10_1z00, BgL_bgl_string3069za700za7za7_3297za7);
BGL_BIND_STRING(BGl_string3068z00zz__r4_ports_6_10_1z00, BgL_bgl_string3068za700za7za7_3296za7);
BGL_BIND_STRING(BGl_string3149z00zz__r4_ports_6_10_1z00, BgL_bgl_string3149za700za7za7_3295za7);
BGL_BIND_STRING(BGl_string3067z00zz__r4_ports_6_10_1z00, BgL_bgl_string3067za700za7za7_3294za7);
BGL_BIND_STRING(BGl_string3066z00zz__r4_ports_6_10_1z00, BgL_bgl_string3066za700za7za7_3293za7);
BGL_BIND_PROCEDURE(BGl_proc3059z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2108za762za73292za7);
BGL_BIND_STRING(BGl_string3065z00zz__r4_ports_6_10_1z00, BgL_bgl_string3065za700za7za7_3291za7);
BGL_BIND_STRING(BGl_string3146z00zz__r4_ports_6_10_1z00, BgL_bgl_string3146za700za7za7_3290za7);
BGL_BIND_PROCEDURE(BGl_proc3058z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2109za762za73289za7);
BGL_BIND_STRING(BGl_string3064z00zz__r4_ports_6_10_1z00, BgL_bgl_string3064za700za7za7_3288za7);
BGL_BIND_STRING(BGl_string3145z00zz__r4_ports_6_10_1z00, BgL_bgl_string3145za700za7za7_3287za7);
BGL_BIND_PROCEDURE(BGl_proc3057z00zz__r4_ports_6_10_1z00, BgL_bgl_za762close2110za762za73286za7);
BGL_BIND_STRING(BGl_string3063z00zz__r4_ports_6_10_1z00, BgL_bgl_string3063za700za7za7_3285za7);
BGL_BIND_STRING(BGl_string3144z00zz__r4_ports_6_10_1z00, BgL_bgl_string3144za700za7za7_3284za7);
BGL_BIND_PROCEDURE(BGl_proc3056z00zz__r4_ports_6_10_1z00, BgL_bgl_za762flush2111za762za73283za7);
BGL_BIND_STRING(BGl_string3062z00zz__r4_ports_6_10_1z00, BgL_bgl_string3062za700za7za7_3282za7);
BGL_BIND_STRING(BGl_string3143z00zz__r4_ports_6_10_1z00, BgL_bgl_string3143za700za7za7_3281za7);
BGL_BIND_STRING(BGl_string3061z00zz__r4_ports_6_10_1z00, BgL_bgl_string3061za700za7za7_3280za7);
BGL_BIND_STRING(BGl_string3142z00zz__r4_ports_6_10_1z00, BgL_bgl_string3142za700za7za7_3279za7);
BGL_BIND_STRING(BGl_string3060z00zz__r4_ports_6_10_1z00, BgL_bgl_string3060za700za7za7_3278za7);
BGL_BIND_STRING(BGl_string3141z00zz__r4_ports_6_10_1z00, BgL_bgl_string3141za700za7za7_3277za7);
BGL_BIND_STRING(BGl_string3140z00zz__r4_ports_6_10_1z00, BgL_bgl_string3140za700za7za7_3276za7);
BGL_BIND_PROCEDURE(BGl_portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762portza7f3za791za7za7_3275za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2closezd2hookzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73274za7);
BGL_BIND_PROCEDURE(BGl_filezd2modezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2modeza7b3273za7);
BGL_BIND_STRING(BGl_string3139z00zz__r4_ports_6_10_1z00, BgL_bgl_string3139za700za7za7_3272za7);
BGL_BIND_STRING(BGl_string3138z00zz__r4_ports_6_10_1z00, BgL_bgl_string3138za700za7za7_3271za7);
BGL_BIND_PROCEDURE(BGl_filezd2changezd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2change3270z00);
BGL_BIND_STRING(BGl_string3137z00zz__r4_ports_6_10_1z00, BgL_bgl_string3137za700za7za7_3269za7);
BGL_BIND_STRING(BGl_string3055z00zz__r4_ports_6_10_1z00, BgL_bgl_string3055za700za7za7_3268za7);
BGL_BIND_STRING(BGl_string3136z00zz__r4_ports_6_10_1z00, BgL_bgl_string3136za700za7za7_3267za7);
BGL_BIND_STRING(BGl_string3054z00zz__r4_ports_6_10_1z00, BgL_bgl_string3054za700za7za7_3266za7);
BGL_BIND_STRING(BGl_string3135z00zz__r4_ports_6_10_1z00, BgL_bgl_string3135za700za7za7_3265za7);
BGL_BIND_STRING(BGl_string3134z00zz__r4_ports_6_10_1z00, BgL_bgl_string3134za700za7za7_3264za7);
BGL_BIND_STRING(BGl_string3052z00zz__r4_ports_6_10_1z00, BgL_bgl_string3052za700za7za7_3263za7);
BGL_BIND_STRING(BGl_string3133z00zz__r4_ports_6_10_1z00, BgL_bgl_string3133za700za7za7_3262za7);
BGL_BIND_STRING(BGl_string3051z00zz__r4_ports_6_10_1z00, BgL_bgl_string3051za700za7za7_3261za7);
BGL_BIND_STRING(BGl_string3050z00zz__r4_ports_6_10_1z00, BgL_bgl_string3050za700za7za7_3260za7);
BGL_BIND_STRING(BGl_string3131z00zz__r4_ports_6_10_1z00, BgL_bgl_string3131za700za7za7_3259za7);
BGL_BIND_STRING(BGl_string3130z00zz__r4_ports_6_10_1z00, BgL_bgl_string3130za700za7za7_3258za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2clonez12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73257za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3256z00);
BGL_BIND_STRING(BGl_string3049z00zz__r4_ports_6_10_1z00, BgL_bgl_string3049za700za7za7_3255za7);
BGL_BIND_PROCEDURE(BGl_withzd2errorzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2errorza73254za7);
BGL_BIND_STRING(BGl_string3048z00zz__r4_ports_6_10_1z00, BgL_bgl_string3048za700za7za7_3253za7);
BGL_BIND_STRING(BGl_string3129z00zz__r4_ports_6_10_1z00, BgL_bgl_string3129za700za7za7_3252za7);
BGL_BIND_STRING(BGl_string3128z00zz__r4_ports_6_10_1z00, BgL_bgl_string3128za700za7za7_3251za7);
BGL_BIND_STRING(BGl_string3046z00zz__r4_ports_6_10_1z00, BgL_bgl_string3046za700za7za7_3250za7);
BGL_BIND_STRING(BGl_string3127z00zz__r4_ports_6_10_1z00, BgL_bgl_string3127za700za7za7_3249za7);
BGL_BIND_STRING(BGl_string3126z00zz__r4_ports_6_10_1z00, BgL_bgl_string3126za700za7za7_3248za7);
BGL_BIND_STRING(BGl_string3044z00zz__r4_ports_6_10_1z00, BgL_bgl_string3044za700za7za7_3247za7);
BGL_BIND_STRING(BGl_string3125z00zz__r4_ports_6_10_1z00, BgL_bgl_string3125za700za7za7_3246za7);
BGL_BIND_STRING(BGl_string3043z00zz__r4_ports_6_10_1z00, BgL_bgl_string3043za700za7za7_3245za7);
BGL_BIND_STRING(BGl_string3124z00zz__r4_ports_6_10_1z00, BgL_bgl_string3124za700za7za7_3244za7);
BGL_BIND_STRING(BGl_string3123z00zz__r4_ports_6_10_1z00, BgL_bgl_string3123za700za7za7_3243za7);
BGL_BIND_STRING(BGl_string3041z00zz__r4_ports_6_10_1z00, BgL_bgl_string3041za700za7za7_3242za7);
BGL_BIND_PROCEDURE(BGl_proc3116z00zz__r4_ports_6_10_1z00, BgL_bgl_za762za7c3za704anonymo3241za7);
BGL_BIND_STRING(BGl_string3122z00zz__r4_ports_6_10_1z00, BgL_bgl_string3122za700za7za7_3240za7);
BGL_BIND_STRING(BGl_string3040z00zz__r4_ports_6_10_1z00, BgL_bgl_string3040za700za7za7_3239za7);
BGL_BIND_STRING(BGl_string3121z00zz__r4_ports_6_10_1z00, BgL_bgl_string3121za700za7za7_3238za7);
BGL_BIND_STRING(BGl_string3120z00zz__r4_ports_6_10_1z00, BgL_bgl_string3120za700za7za7_3237za7);
BGL_BIND_STRING(BGl_string3039z00zz__r4_ports_6_10_1z00, BgL_bgl_string3039za700za7za7_3236za7);
BGL_BIND_STRING(BGl_string3038z00zz__r4_ports_6_10_1z00, BgL_bgl_string3038za700za7za7_3235za7);
BGL_BIND_STRING(BGl_string3119z00zz__r4_ports_6_10_1z00, BgL_bgl_string3119za700za7za7_3234za7);
BGL_BIND_STRING(BGl_string3037z00zz__r4_ports_6_10_1z00, BgL_bgl_string3037za700za7za7_3233za7);
BGL_BIND_STRING(BGl_string3118z00zz__r4_ports_6_10_1z00, BgL_bgl_string3118za700za7za7_3232za7);
BGL_BIND_STRING(BGl_string3036z00zz__r4_ports_6_10_1z00, BgL_bgl_string3036za700za7za7_3231za7);
BGL_BIND_STRING(BGl_string3117z00zz__r4_ports_6_10_1z00, BgL_bgl_string3117za700za7za7_3230za7);
BGL_BIND_PROCEDURE(BGl_currentzd2errorzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762currentza7d2err3229z00);
BGL_BIND_STRING(BGl_string3035z00zz__r4_ports_6_10_1z00, BgL_bgl_string3035za700za7za7_3228za7);
BGL_BIND_STRING(BGl_string3034z00zz__r4_ports_6_10_1z00, BgL_bgl_string3034za700za7za7_3227za7);
BGL_BIND_STRING(BGl_string3115z00zz__r4_ports_6_10_1z00, BgL_bgl_string3115za700za7za7_3226za7);
BGL_BIND_STRING(BGl_string3114z00zz__r4_ports_6_10_1z00, BgL_bgl_string3114za700za7za7_3225za7);
BGL_BIND_STRING(BGl_string3032z00zz__r4_ports_6_10_1z00, BgL_bgl_string3032za700za7za7_3224za7);
BGL_BIND_STRING(BGl_string3113z00zz__r4_ports_6_10_1z00, BgL_bgl_string3113za700za7za7_3223za7);
BGL_BIND_STRING(BGl_string3031z00zz__r4_ports_6_10_1z00, BgL_bgl_string3031za700za7za7_3222za7);
BGL_BIND_STRING(BGl_string3112z00zz__r4_ports_6_10_1z00, BgL_bgl_string3112za700za7za7_3221za7);
BGL_BIND_STRING(BGl_string3111z00zz__r4_ports_6_10_1z00, BgL_bgl_string3111za700za7za7_3220za7);
BGL_BIND_STRING(BGl_string3110z00zz__r4_ports_6_10_1z00, BgL_bgl_string3110za700za7za7_3219za7);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2protocolzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73218za7);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23217z00);
BGL_BIND_PROCEDURE(BGl_withzd2outputzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762withza7d2output3216z00);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2flushzd2bufferzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3215z00);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2appendzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762callza7d2withza7d3214za7);
BGL_BIND_PROCEDURE(BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00, BgL_bgl_za762za752openza7d2inp3213za7);
BGL_BIND_STRING(BGl_string3029z00zz__r4_ports_6_10_1z00, BgL_bgl_string3029za700za7za7_3212za7);
BGL_BIND_STRING(BGl_string3028z00zz__r4_ports_6_10_1z00, BgL_bgl_string3028za700za7za7_3211za7);
BGL_BIND_STRING(BGl_string3109z00zz__r4_ports_6_10_1z00, BgL_bgl_string3109za700za7za7_3210za7);
BGL_BIND_STRING(BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_bgl_string3027za700za7za7_3209za7);
BGL_BIND_STRING(BGl_string3108z00zz__r4_ports_6_10_1z00, BgL_bgl_string3108za700za7za7_3208za7);
BGL_BIND_STRING(BGl_string3026z00zz__r4_ports_6_10_1z00, BgL_bgl_string3026za700za7za7_3207za7);
BGL_BIND_STRING(BGl_string3107z00zz__r4_ports_6_10_1z00, BgL_bgl_string3107za700za7za7_3206za7);
BGL_BIND_STRING(BGl_string3106z00zz__r4_ports_6_10_1z00, BgL_bgl_string3106za700za7za7_3205za7);
BGL_BIND_STRING(BGl_string3024z00zz__r4_ports_6_10_1z00, BgL_bgl_string3024za700za7za7_3204za7);
BGL_BIND_STRING(BGl_string3105z00zz__r4_ports_6_10_1z00, BgL_bgl_string3105za700za7za7_3203za7);
BGL_BIND_STRING(BGl_string3023z00zz__r4_ports_6_10_1z00, BgL_bgl_string3023za700za7za7_3202za7);
BGL_BIND_STRING(BGl_string3104z00zz__r4_ports_6_10_1z00, BgL_bgl_string3104za700za7za7_3201za7);
BGL_BIND_STRING(BGl_string3022z00zz__r4_ports_6_10_1z00, BgL_bgl_string3022za700za7za7_3200za7);
BGL_BIND_STRING(BGl_string3103z00zz__r4_ports_6_10_1z00, BgL_bgl_string3103za700za7za7_3199za7);
BGL_BIND_STRING(BGl_string3102z00zz__r4_ports_6_10_1z00, BgL_bgl_string3102za700za7za7_3198za7);
BGL_BIND_STRING(BGl_string3020z00zz__r4_ports_6_10_1z00, BgL_bgl_string3020za700za7za7_3197za7);
BGL_BIND_STRING(BGl_string3101z00zz__r4_ports_6_10_1z00, BgL_bgl_string3101za700za7za7_3196za7);
BGL_BIND_STRING(BGl_string3100z00zz__r4_ports_6_10_1z00, BgL_bgl_string3100za700za7za7_3195za7);
BGL_BIND_PROCEDURE(BGl_filezd2modificationzd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762fileza7d2modifi3194z00);
BGL_BIND_PROCEDURE(BGl_inputzd2portzd2timeoutzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762inputza7d2portza73193za7);
BGL_BIND_STRING(BGl_string3019z00zz__r4_ports_6_10_1z00, BgL_bgl_string3019za700za7za7_3192za7);
BGL_BIND_STRING(BGl_string3018z00zz__r4_ports_6_10_1z00, BgL_bgl_string3018za700za7za7_3191za7);
BGL_BIND_STRING(BGl_string3017z00zz__r4_ports_6_10_1z00, BgL_bgl_string3017za700za7za7_3190za7);
BGL_BIND_STRING(BGl_string3016z00zz__r4_ports_6_10_1z00, BgL_bgl_string3016za700za7za7_3189za7);
BGL_BIND_PROCEDURE(BGl_outputzd2portzd2bufferzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl_za762outputza7d2port3188z00);
BGL_BIND_STRING(BGl_string3015z00zz__r4_ports_6_10_1z00, BgL_bgl_string3015za700za7za7_3187za7);
BGL_BIND_STRING(BGl_string3014z00zz__r4_ports_6_10_1z00, BgL_bgl_string3014za700za7za7_3186za7);
BGL_BIND_PROCEDURE(BGl_closedzd2inputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl_za762closedza7d2inpu3185z00);
BGL_BIND_PROCEDURE(BGl_makezd2directorieszd2envz00zz__r4_ports_6_10_1z00, BgL_bgl_za762makeza7d2direct3184z00);
BGL_BIND_PROCEDURE(BGl_openzd2inputzd2mmapzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d23183z00);
BGL_BIND_STRING(BGl_string3012z00zz__r4_ports_6_10_1z00, BgL_bgl_string3012za700za7za7_3182za7);
BGL_BIND_STRING(BGl_string3011z00zz__r4_ports_6_10_1z00, BgL_bgl_string3011za700za7za7_3181za7);
BGL_BIND_STRING(BGl_string3010z00zz__r4_ports_6_10_1z00, BgL_bgl_string3010za700za7za7_3180za7);
}

/* 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_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword2964z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword2968z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2934z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2859z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword2988z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2861z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2863z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2970z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2972z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2974z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2894z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2993z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol2998z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list3147z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list3072z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_vector3132z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3000z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3002z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3004z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3008z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3013z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword3148z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3021z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3025z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword3150z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword3152z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_keyword3153z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3030z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3033z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3042z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3045z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3047z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3053z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list2858z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3073z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3155z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3075z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3161z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3166z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list2962z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list2963z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list2967z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3170z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3172z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3174z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_symbol3176z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list2893z00zz__r4_ports_6_10_1z00) );
ADD_ROOT( (void *)(&BGl_list2997z00zz__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_4803, char * BgL_fromz00_4804)
{
{ 
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_symbol2859z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2860z00zz__r4_ports_6_10_1z00); 
BGl_symbol2861z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2862z00zz__r4_ports_6_10_1z00); 
BGl_symbol2863z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2864z00zz__r4_ports_6_10_1z00); 
BGl_list2858z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2859z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2861z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2861z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2863z00zz__r4_ports_6_10_1z00, BNIL)))); 
BGl_symbol2894z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2895z00zz__r4_ports_6_10_1z00); 
BGl_list2893z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2859z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2894z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2894z00zz__r4_ports_6_10_1z00, BNIL))); 
BGl_symbol2934z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2933z00zz__r4_ports_6_10_1z00); 
BGl_keyword2964z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string2965z00zz__r4_ports_6_10_1z00); 
BGl_list2963z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_keyword2964z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_string2966z00zz__r4_ports_6_10_1z00, BNIL)); 
BGl_keyword2968z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string2969z00zz__r4_ports_6_10_1z00); 
BGl_symbol2970z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2971z00zz__r4_ports_6_10_1z00); 
BGl_list2967z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_keyword2968z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2970z00zz__r4_ports_6_10_1z00, BNIL)); 
BGl_list2962z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_list2963z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_list2967z00zz__r4_ports_6_10_1z00, BNIL)); 
BGl_symbol2972z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2973z00zz__r4_ports_6_10_1z00); 
BGl_symbol2974z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2961z00zz__r4_ports_6_10_1z00); 
BGl_keyword2988z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string2989z00zz__r4_ports_6_10_1z00); 
BGl_symbol2993z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2958z00zz__r4_ports_6_10_1z00); 
BGl_symbol2998z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2999z00zz__r4_ports_6_10_1z00); 
BGl_symbol3000z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3001z00zz__r4_ports_6_10_1z00); 
BGl_symbol3002z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3003z00zz__r4_ports_6_10_1z00); 
BGl_symbol3004z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3005z00zz__r4_ports_6_10_1z00); 
BGl_list2997z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2859z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2998z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2998z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol3000z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol3002z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol3004z00zz__r4_ports_6_10_1z00, BNIL)))))); 
BGl_symbol3008z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3009z00zz__r4_ports_6_10_1z00); 
BGl_symbol3013z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3014z00zz__r4_ports_6_10_1z00); 
BGl_symbol3021z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3022z00zz__r4_ports_6_10_1z00); 
BGl_symbol3025z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3026z00zz__r4_ports_6_10_1z00); 
BGl_symbol3030z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2905z00zz__r4_ports_6_10_1z00); 
BGl_symbol3033z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3034z00zz__r4_ports_6_10_1z00); 
BGl_symbol3042z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2874z00zz__r4_ports_6_10_1z00); 
BGl_symbol3045z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string2880z00zz__r4_ports_6_10_1z00); 
BGl_symbol3047z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3048z00zz__r4_ports_6_10_1z00); 
BGl_symbol3053z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3054z00zz__r4_ports_6_10_1z00); 
BGl_symbol3073z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3074z00zz__r4_ports_6_10_1z00); 
BGl_symbol3075z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3076z00zz__r4_ports_6_10_1z00); 
BGl_list3072z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2859z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol3073z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol3073z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol2863z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_symbol3075z00zz__r4_ports_6_10_1z00, BNIL))))); 
BGl_vector3132z00zz__r4_ports_6_10_1z00 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL); 
BGl_keyword3148z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string3149z00zz__r4_ports_6_10_1z00); 
BGl_keyword3150z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string3151z00zz__r4_ports_6_10_1z00); 
BGl_keyword3152z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string3005z00zz__r4_ports_6_10_1z00); 
BGl_keyword3153z00zz__r4_ports_6_10_1z00 = 
bstring_to_keyword(BGl_string3154z00zz__r4_ports_6_10_1z00); 
BGl_list3147z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BGl_keyword3148z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_keyword3150z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_keyword3152z00zz__r4_ports_6_10_1z00, 
MAKE_YOUNG_PAIR(BGl_keyword3153z00zz__r4_ports_6_10_1z00, BNIL)))); 
BGl_symbol3155z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3156z00zz__r4_ports_6_10_1z00); 
BGl_symbol3161z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3162z00zz__r4_ports_6_10_1z00); 
BGl_symbol3166z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3167z00zz__r4_ports_6_10_1z00); 
BGl_symbol3170z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3171z00zz__r4_ports_6_10_1z00); 
BGl_symbol3172z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3173z00zz__r4_ports_6_10_1z00); 
BGl_symbol3174z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3175z00zz__r4_ports_6_10_1z00); 
return ( 
BGl_symbol3176z00zz__r4_ports_6_10_1z00 = 
bstring_to_symbol(BGl_string3177z00zz__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_string2841z00zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 924 */
 obj_t BgL_arg1408z00_1405; obj_t BgL_arg1409z00_1406;
BgL_arg1408z00_1405 = 
MAKE_YOUNG_PAIR(BGl_string2842z00zz__r4_ports_6_10_1z00, BGl_z52openzd2inputzd2filezd2envz80zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 925 */
 obj_t BgL_arg1410z00_1407; obj_t BgL_arg1411z00_1408;
BgL_arg1410z00_1407 = 
MAKE_YOUNG_PAIR(BGl_string2843z00zz__r4_ports_6_10_1z00, BGl_proc2844z00zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 926 */
 obj_t BgL_arg1414z00_1418; obj_t BgL_arg1415z00_1419;
BgL_arg1414z00_1418 = 
MAKE_YOUNG_PAIR(BGl_string2845z00zz__r4_ports_6_10_1z00, BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 927 */
 obj_t BgL_arg1416z00_1420; obj_t BgL_arg1417z00_1421;
BgL_arg1416z00_1420 = 
MAKE_YOUNG_PAIR(BGl_string2846z00zz__r4_ports_6_10_1z00, BGl_z52openzd2inputzd2pipezd2envz80zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 928 */
 obj_t BgL_arg1419z00_1422; obj_t BgL_arg1420z00_1423;
BgL_arg1419z00_1422 = 
MAKE_YOUNG_PAIR(BGl_string2847z00zz__r4_ports_6_10_1z00, BGl_z52openzd2inputzd2httpzd2socketzd2envz52zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 929 */
 obj_t BgL_arg1421z00_1424; obj_t BgL_arg1422z00_1425;
BgL_arg1421z00_1424 = 
MAKE_YOUNG_PAIR(BGl_string2848z00zz__r4_ports_6_10_1z00, BGl_openzd2inputzd2gza7ipzd2filezd2envza7zz__gunza7ipza7); 
{ /* Ieee/port.scm 930 */
 obj_t BgL_arg1423z00_1426; obj_t BgL_arg1424z00_1427;
BgL_arg1423z00_1426 = 
MAKE_YOUNG_PAIR(BGl_string2849z00zz__r4_ports_6_10_1z00, BGl_openzd2inputzd2za7libzd2filezd2envza7zz__gunza7ipza7); 
{ /* Ieee/port.scm 931 */
 obj_t BgL_arg1425z00_1428; obj_t BgL_arg1426z00_1429;
BgL_arg1425z00_1428 = 
MAKE_YOUNG_PAIR(BGl_string2850z00zz__r4_ports_6_10_1z00, BGl_openzd2inputzd2inflatezd2filezd2envz00zz__gunza7ipza7); 
{ /* Ieee/port.scm 932 */
 obj_t BgL_arg1427z00_1430; obj_t BgL_arg1428z00_1431;
BgL_arg1427z00_1430 = 
MAKE_YOUNG_PAIR(BGl_string2851z00zz__r4_ports_6_10_1z00, BGl_z52openzd2inputzd2resourcezd2envz80zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 933 */
 obj_t BgL_arg1429z00_1432; obj_t BgL_arg1430z00_1433;
BgL_arg1429z00_1432 = 
MAKE_YOUNG_PAIR(BGl_string2852z00zz__r4_ports_6_10_1z00, BGl_openzd2inputzd2ftpzd2filezd2envz00zz__ftpz00); 
{ /* Ieee/port.scm 934 */
 obj_t BgL_arg1431z00_1434;
BgL_arg1431z00_1434 = 
MAKE_YOUNG_PAIR(BGl_string2853z00zz__r4_ports_6_10_1z00, BGl_z52openzd2inputzd2descriptorzd2envz80zz__r4_ports_6_10_1z00); 
BgL_arg1430z00_1433 = 
MAKE_YOUNG_PAIR(BgL_arg1431z00_1434, BNIL); } 
BgL_arg1428z00_1431 = 
MAKE_YOUNG_PAIR(BgL_arg1429z00_1432, BgL_arg1430z00_1433); } 
BgL_arg1426z00_1429 = 
MAKE_YOUNG_PAIR(BgL_arg1427z00_1430, BgL_arg1428z00_1431); } 
BgL_arg1424z00_1427 = 
MAKE_YOUNG_PAIR(BgL_arg1425z00_1428, BgL_arg1426z00_1429); } 
BgL_arg1422z00_1425 = 
MAKE_YOUNG_PAIR(BgL_arg1423z00_1426, BgL_arg1424z00_1427); } 
BgL_arg1420z00_1423 = 
MAKE_YOUNG_PAIR(BgL_arg1421z00_1424, BgL_arg1422z00_1425); } 
BgL_arg1417z00_1421 = 
MAKE_YOUNG_PAIR(BgL_arg1419z00_1422, BgL_arg1420z00_1423); } 
BgL_arg1415z00_1419 = 
MAKE_YOUNG_PAIR(BgL_arg1416z00_1420, BgL_arg1417z00_1421); } 
BgL_arg1411z00_1408 = 
MAKE_YOUNG_PAIR(BgL_arg1414z00_1418, BgL_arg1415z00_1419); } 
BgL_arg1409z00_1406 = 
MAKE_YOUNG_PAIR(BgL_arg1410z00_1407, BgL_arg1411z00_1408); } 
return ( 
BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00 = 
MAKE_YOUNG_PAIR(BgL_arg1408z00_1405, BgL_arg1409z00_1406), BUNSPEC) ;} } 

}



/* &<@anonymous:1413> */
obj_t BGl_z62zc3z04anonymousza31413ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3449, obj_t BgL_sz00_3450, obj_t BgL_pz00_3451, obj_t BgL_tmtz00_3452)
{
{ /* Ieee/port.scm 925 */
{ /* Ieee/port.scm 469 */
 long BgL_endz00_4672;
{ /* Ieee/port.scm 469 */
 obj_t BgL_stringz00_4673;
if(
STRINGP(BgL_sz00_3450))
{ /* Ieee/port.scm 469 */
BgL_stringz00_4673 = BgL_sz00_3450; }  else 
{ 
 obj_t BgL_auxz00_4907;
BgL_auxz00_4907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(20820L), BGl_string2855z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_sz00_3450); 
FAILURE(BgL_auxz00_4907,BFALSE,BFALSE);} 
BgL_endz00_4672 = 
STRING_LENGTH(BgL_stringz00_4673); } 
{ /* Ieee/port.scm 469 */

{ /* Ieee/port.scm 469 */
 obj_t BgL_auxz00_4912;
if(
STRINGP(BgL_sz00_3450))
{ /* Ieee/port.scm 925 */
BgL_auxz00_4912 = BgL_sz00_3450
; }  else 
{ 
 obj_t BgL_auxz00_4915;
BgL_auxz00_4915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(40760L), BGl_string2855z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_sz00_3450); 
FAILURE(BgL_auxz00_4915,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_auxz00_4912, 
BINT(0L), 
BINT(BgL_endz00_4672));} } } } 

}



/* 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_zc3z04anonymousza31437ze3z87_3489;
BgL_zc3z04anonymousza31437ze3z87_3489 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31437ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31437ze3z87_3489, 
(int)(0L), BgL_portz00_1444); 
{ /* Ieee/port.scm 572 */
 obj_t BgL_arg2077z00_2555;
{ /* Ieee/port.scm 572 */
 obj_t BgL_arg2078z00_2556;
BgL_arg2078z00_2556 = 
BGL_EXITD_PROTECT(BgL_exitd1047z00_1446); 
BgL_arg2077z00_2555 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31437ze3z87_3489, BgL_arg2078z00_2556); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1047z00_1446, BgL_arg2077z00_2555); BUNSPEC; } 
{ /* Ieee/port.scm 573 */
 obj_t BgL_tmp1049z00_1448;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_4, 1))
{ /* Ieee/port.scm 573 */
BgL_tmp1049z00_1448 = 
BGL_PROCEDURE_CALL1(BgL_procz00_4, BgL_portz00_1444); }  else 
{ /* Ieee/port.scm 573 */
FAILURE(BGl_string2857z00zz__r4_ports_6_10_1z00,BGl_list2858z00zz__r4_ports_6_10_1z00,BgL_procz00_4);} 
{ /* Ieee/port.scm 572 */
 bool_t BgL_test3597z00_4942;
{ /* Ieee/port.scm 572 */
 obj_t BgL_arg2076z00_2558;
BgL_arg2076z00_2558 = 
BGL_EXITD_PROTECT(BgL_exitd1047z00_1446); 
BgL_test3597z00_4942 = 
PAIRP(BgL_arg2076z00_2558); } 
if(BgL_test3597z00_4942)
{ /* Ieee/port.scm 572 */
 obj_t BgL_arg2074z00_2559;
{ /* Ieee/port.scm 572 */
 obj_t BgL_arg2075z00_2560;
BgL_arg2075z00_2560 = 
BGL_EXITD_PROTECT(BgL_exitd1047z00_1446); 
{ /* Ieee/port.scm 572 */
 obj_t BgL_pairz00_2561;
if(
PAIRP(BgL_arg2075z00_2560))
{ /* Ieee/port.scm 572 */
BgL_pairz00_2561 = BgL_arg2075z00_2560; }  else 
{ 
 obj_t BgL_auxz00_4948;
BgL_auxz00_4948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(25917L), BGl_string2865z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2560); 
FAILURE(BgL_auxz00_4948,BFALSE,BFALSE);} 
BgL_arg2074z00_2559 = 
CDR(BgL_pairz00_2561); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1047z00_1446, BgL_arg2074z00_2559); 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_string2865z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3490, obj_t BgL_stringz00_3491, obj_t BgL_procz00_3492)
{
{ /* Ieee/port.scm 569 */
{ /* Ieee/port.scm 570 */
 obj_t BgL_auxz00_4963; obj_t BgL_auxz00_4956;
if(
PROCEDUREP(BgL_procz00_3492))
{ /* Ieee/port.scm 570 */
BgL_auxz00_4963 = BgL_procz00_3492
; }  else 
{ 
 obj_t BgL_auxz00_4966;
BgL_auxz00_4966 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(25846L), BGl_string2868z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3492); 
FAILURE(BgL_auxz00_4966,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3491))
{ /* Ieee/port.scm 570 */
BgL_auxz00_4956 = BgL_stringz00_3491
; }  else 
{ 
 obj_t BgL_auxz00_4959;
BgL_auxz00_4959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(25846L), BGl_string2868z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3491); 
FAILURE(BgL_auxz00_4959,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_4956, BgL_auxz00_4963);} } 

}



/* &<@anonymous:1437> */
obj_t BGl_z62zc3z04anonymousza31437ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3493)
{
{ /* Ieee/port.scm 572 */
{ /* Ieee/port.scm 574 */
 obj_t BgL_portz00_3494;
BgL_portz00_3494 = 
PROCEDURE_REF(BgL_envz00_3493, 
(int)(0L)); 
{ /* Ieee/port.scm 574 */
 obj_t BgL_portz00_4674;
if(
INPUT_PORTP(BgL_portz00_3494))
{ /* Ieee/port.scm 574 */
BgL_portz00_4674 = BgL_portz00_3494; }  else 
{ 
 obj_t BgL_auxz00_4975;
BgL_auxz00_4975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(25975L), BGl_string2870z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3494); 
FAILURE(BgL_auxz00_4975,BFALSE,BFALSE);} 
return 
bgl_close_input_port(BgL_portz00_4674);} } } 

}



/* 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_2563;
{ /* Ieee/port.scm 469 */
 long BgL_endz00_2566;
BgL_endz00_2566 = 
STRING_LENGTH(BgL_stringz00_5); 
{ /* Ieee/port.scm 469 */

BgL_portz00_2563 = 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_stringz00_5, 
BINT(0L), 
BINT(BgL_endz00_2566)); } } 
{ /* Ieee/port.scm 584 */
 obj_t BgL_resz00_2567;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_6, 1))
{ /* Ieee/port.scm 584 */
BgL_resz00_2567 = 
BGL_PROCEDURE_CALL1(BgL_procz00_6, BgL_portz00_2563); }  else 
{ /* Ieee/port.scm 584 */
FAILURE(BGl_string2872z00zz__r4_ports_6_10_1z00,BGl_list2858z00zz__r4_ports_6_10_1z00,BgL_procz00_6);} 
bgl_close_input_port(BgL_portz00_2563); 
return BgL_resz00_2567;} } } 

}



/* &call-with-input-string */
obj_t BGl_z62callzd2withzd2inputzd2stringzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3495, obj_t BgL_stringz00_3496, obj_t BgL_procz00_3497)
{
{ /* Ieee/port.scm 581 */
{ /* Ieee/port.scm 582 */
 obj_t BgL_auxz00_4999; obj_t BgL_auxz00_4992;
if(
PROCEDUREP(BgL_procz00_3497))
{ /* Ieee/port.scm 582 */
BgL_auxz00_4999 = BgL_procz00_3497
; }  else 
{ 
 obj_t BgL_auxz00_5002;
BgL_auxz00_5002 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(26348L), BGl_string2873z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3497); 
FAILURE(BgL_auxz00_5002,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3496))
{ /* Ieee/port.scm 582 */
BgL_auxz00_4992 = BgL_stringz00_3496
; }  else 
{ 
 obj_t BgL_auxz00_4995;
BgL_auxz00_4995 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(26348L), BGl_string2873z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3496); 
FAILURE(BgL_auxz00_4995,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2inputzd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_4992, BgL_auxz00_4999);} } 

}



/* 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_string2874z00zz__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_zc3z04anonymousza31439ze3z87_3498;
BgL_zc3z04anonymousza31439ze3z87_3498 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31439ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31439ze3z87_3498, 
(int)(0L), BgL_portz00_1459); 
{ /* Ieee/port.scm 594 */
 obj_t BgL_arg2077z00_2573;
{ /* Ieee/port.scm 594 */
 obj_t BgL_arg2078z00_2574;
BgL_arg2078z00_2574 = 
BGL_EXITD_PROTECT(BgL_exitd1051z00_1461); 
BgL_arg2077z00_2573 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31439ze3z87_3498, BgL_arg2078z00_2574); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1051z00_1461, BgL_arg2077z00_2573); BUNSPEC; } 
{ /* Ieee/port.scm 595 */
 obj_t BgL_tmp1053z00_1463;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_8, 1))
{ /* Ieee/port.scm 595 */
BgL_tmp1053z00_1463 = 
BGL_PROCEDURE_CALL1(BgL_procz00_8, BgL_portz00_1459); }  else 
{ /* Ieee/port.scm 595 */
FAILURE(BGl_string2875z00zz__r4_ports_6_10_1z00,BGl_list2858z00zz__r4_ports_6_10_1z00,BgL_procz00_8);} 
{ /* Ieee/port.scm 594 */
 bool_t BgL_test3607z00_5028;
{ /* Ieee/port.scm 594 */
 obj_t BgL_arg2076z00_2576;
BgL_arg2076z00_2576 = 
BGL_EXITD_PROTECT(BgL_exitd1051z00_1461); 
BgL_test3607z00_5028 = 
PAIRP(BgL_arg2076z00_2576); } 
if(BgL_test3607z00_5028)
{ /* Ieee/port.scm 594 */
 obj_t BgL_arg2074z00_2577;
{ /* Ieee/port.scm 594 */
 obj_t BgL_arg2075z00_2578;
BgL_arg2075z00_2578 = 
BGL_EXITD_PROTECT(BgL_exitd1051z00_1461); 
{ /* Ieee/port.scm 594 */
 obj_t BgL_pairz00_2579;
if(
PAIRP(BgL_arg2075z00_2578))
{ /* Ieee/port.scm 594 */
BgL_pairz00_2579 = BgL_arg2075z00_2578; }  else 
{ 
 obj_t BgL_auxz00_5034;
BgL_auxz00_5034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(26871L), BGl_string2876z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2578); 
FAILURE(BgL_auxz00_5034,BFALSE,BFALSE);} 
BgL_arg2074z00_2577 = 
CDR(BgL_pairz00_2579); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1051z00_1461, BgL_arg2074z00_2577); 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_string2876z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3499, obj_t BgL_stringz00_3500, obj_t BgL_procz00_3501)
{
{ /* Ieee/port.scm 591 */
{ /* Ieee/port.scm 592 */
 obj_t BgL_auxz00_5049; obj_t BgL_auxz00_5042;
if(
PROCEDUREP(BgL_procz00_3501))
{ /* Ieee/port.scm 592 */
BgL_auxz00_5049 = BgL_procz00_3501
; }  else 
{ 
 obj_t BgL_auxz00_5052;
BgL_auxz00_5052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(26798L), BGl_string2877z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3501); 
FAILURE(BgL_auxz00_5052,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3500))
{ /* Ieee/port.scm 592 */
BgL_auxz00_5042 = BgL_stringz00_3500
; }  else 
{ 
 obj_t BgL_auxz00_5045;
BgL_auxz00_5045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(26798L), BGl_string2877z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3500); 
FAILURE(BgL_auxz00_5045,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5042, BgL_auxz00_5049);} } 

}



/* &<@anonymous:1439> */
obj_t BGl_z62zc3z04anonymousza31439ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3502)
{
{ /* Ieee/port.scm 594 */
{ /* Ieee/port.scm 596 */
 obj_t BgL_portz00_3503;
BgL_portz00_3503 = 
PROCEDURE_REF(BgL_envz00_3502, 
(int)(0L)); 
{ /* Ieee/port.scm 596 */
 obj_t BgL_portz00_4675;
if(
OUTPUT_PORTP(BgL_portz00_3503))
{ /* Ieee/port.scm 596 */
BgL_portz00_4675 = BgL_portz00_3503; }  else 
{ 
 obj_t BgL_auxz00_5061;
BgL_auxz00_5061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(26930L), BGl_string2878z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3503); 
FAILURE(BgL_auxz00_5061,BFALSE,BFALSE);} 
return 
bgl_close_output_port(BgL_portz00_4675);} } } 

}



/* 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_string2880z00zz__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_zc3z04anonymousza31441ze3z87_3504;
BgL_zc3z04anonymousza31441ze3z87_3504 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31441ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31441ze3z87_3504, 
(int)(0L), BgL_portz00_1468); 
{ /* Ieee/port.scm 606 */
 obj_t BgL_arg2077z00_2584;
{ /* Ieee/port.scm 606 */
 obj_t BgL_arg2078z00_2585;
BgL_arg2078z00_2585 = 
BGL_EXITD_PROTECT(BgL_exitd1055z00_1470); 
BgL_arg2077z00_2584 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31441ze3z87_3504, BgL_arg2078z00_2585); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1055z00_1470, BgL_arg2077z00_2584); BUNSPEC; } 
{ /* Ieee/port.scm 607 */
 obj_t BgL_tmp1057z00_1472;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_10, 1))
{ /* Ieee/port.scm 607 */
BgL_tmp1057z00_1472 = 
BGL_PROCEDURE_CALL1(BgL_procz00_10, BgL_portz00_1468); }  else 
{ /* Ieee/port.scm 607 */
FAILURE(BGl_string2881z00zz__r4_ports_6_10_1z00,BGl_list2858z00zz__r4_ports_6_10_1z00,BgL_procz00_10);} 
{ /* Ieee/port.scm 606 */
 bool_t BgL_test3614z00_5087;
{ /* Ieee/port.scm 606 */
 obj_t BgL_arg2076z00_2587;
BgL_arg2076z00_2587 = 
BGL_EXITD_PROTECT(BgL_exitd1055z00_1470); 
BgL_test3614z00_5087 = 
PAIRP(BgL_arg2076z00_2587); } 
if(BgL_test3614z00_5087)
{ /* Ieee/port.scm 606 */
 obj_t BgL_arg2074z00_2588;
{ /* Ieee/port.scm 606 */
 obj_t BgL_arg2075z00_2589;
BgL_arg2075z00_2589 = 
BGL_EXITD_PROTECT(BgL_exitd1055z00_1470); 
{ /* Ieee/port.scm 606 */
 obj_t BgL_pairz00_2590;
if(
PAIRP(BgL_arg2075z00_2589))
{ /* Ieee/port.scm 606 */
BgL_pairz00_2590 = BgL_arg2075z00_2589; }  else 
{ 
 obj_t BgL_auxz00_5093;
BgL_auxz00_5093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(27379L), BGl_string2882z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2589); 
FAILURE(BgL_auxz00_5093,BFALSE,BFALSE);} 
BgL_arg2074z00_2588 = 
CDR(BgL_pairz00_2590); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1055z00_1470, BgL_arg2074z00_2588); 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_string2882z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3505, obj_t BgL_stringz00_3506, obj_t BgL_procz00_3507)
{
{ /* Ieee/port.scm 603 */
{ /* Ieee/port.scm 604 */
 obj_t BgL_auxz00_5108; obj_t BgL_auxz00_5101;
if(
PROCEDUREP(BgL_procz00_3507))
{ /* Ieee/port.scm 604 */
BgL_auxz00_5108 = BgL_procz00_3507
; }  else 
{ 
 obj_t BgL_auxz00_5111;
BgL_auxz00_5111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(27304L), BGl_string2883z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3507); 
FAILURE(BgL_auxz00_5111,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3506))
{ /* Ieee/port.scm 604 */
BgL_auxz00_5101 = BgL_stringz00_3506
; }  else 
{ 
 obj_t BgL_auxz00_5104;
BgL_auxz00_5104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(27304L), BGl_string2883z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3506); 
FAILURE(BgL_auxz00_5104,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2appendzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5101, BgL_auxz00_5108);} } 

}



/* &<@anonymous:1441> */
obj_t BGl_z62zc3z04anonymousza31441ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3508)
{
{ /* Ieee/port.scm 606 */
{ /* Ieee/port.scm 608 */
 obj_t BgL_portz00_3509;
BgL_portz00_3509 = 
PROCEDURE_REF(BgL_envz00_3508, 
(int)(0L)); 
{ /* Ieee/port.scm 608 */
 obj_t BgL_portz00_4676;
if(
OUTPUT_PORTP(BgL_portz00_3509))
{ /* Ieee/port.scm 608 */
BgL_portz00_4676 = BgL_portz00_3509; }  else 
{ 
 obj_t BgL_auxz00_5120;
BgL_auxz00_5120 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(27438L), BGl_string2884z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3509); 
FAILURE(BgL_auxz00_5120,BFALSE,BFALSE);} 
return 
bgl_close_output_port(BgL_portz00_4676);} } } 

}



/* 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_2592;
{ /* Ieee/port.scm 616 */

{ /* Ieee/port.scm 485 */

BgL_portz00_2592 = 
bgl_open_output_string(
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2874z00zz__r4_ports_6_10_1z00, BTRUE, 
(int)(128L))); } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_11, 1))
{ /* Ieee/port.scm 617 */
BGL_PROCEDURE_CALL1(BgL_procz00_11, BgL_portz00_2592); }  else 
{ /* Ieee/port.scm 617 */
FAILURE(BGl_string2885z00zz__r4_ports_6_10_1z00,BGl_list2858z00zz__r4_ports_6_10_1z00,BgL_procz00_11);} 
{ /* Ieee/port.scm 1285 */
 obj_t BgL_aux2174z00_3946;
BgL_aux2174z00_3946 = 
bgl_close_output_port(BgL_portz00_2592); 
if(
STRINGP(BgL_aux2174z00_3946))
{ /* Ieee/port.scm 1285 */
return BgL_aux2174z00_3946;}  else 
{ 
 obj_t BgL_auxz00_5138;
BgL_auxz00_5138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(57509L), BGl_string2886z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2174z00_3946); 
FAILURE(BgL_auxz00_5138,BFALSE,BFALSE);} } } } 

}



/* &call-with-output-string */
obj_t BGl_z62callzd2withzd2outputzd2stringzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3510, obj_t BgL_procz00_3511)
{
{ /* Ieee/port.scm 615 */
{ /* Ieee/port.scm 616 */
 obj_t BgL_auxz00_5142;
if(
PROCEDUREP(BgL_procz00_3511))
{ /* Ieee/port.scm 616 */
BgL_auxz00_5142 = BgL_procz00_3511
; }  else 
{ 
 obj_t BgL_auxz00_5145;
BgL_auxz00_5145 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(27807L), BGl_string2887z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3511); 
FAILURE(BgL_auxz00_5145,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5142);} } 

}



/* 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_3512, obj_t BgL_objz00_3513)
{
{ /* Ieee/port.scm 623 */
return 
BGl_inputzd2portzf3z21zz__r4_ports_6_10_1z00(BgL_objz00_3513);} 

}



/* 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_3514, obj_t BgL_objz00_3515)
{
{ /* Ieee/port.scm 629 */
return 
BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3515);} 

}



/* 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_3516, obj_t BgL_objz00_3517)
{
{ /* Ieee/port.scm 635 */
return 
BGl_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3517);} 

}



/* 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_3518, obj_t BgL_objz00_3519)
{
{ /* Ieee/port.scm 641 */
return 
BGl_inputzd2gza7ipzd2portzf3z54zz__r4_ports_6_10_1z00(BgL_objz00_3519);} 

}



/* 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_3520, obj_t BgL_objz00_3521)
{
{ /* Ieee/port.scm 647 */
return 
BGl_inputzd2mmapzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3521);} 

}



/* 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_3522, obj_t BgL_objz00_3523)
{
{ /* Ieee/port.scm 653 */
return 
BGl_outputzd2portzf3z21zz__r4_ports_6_10_1z00(BgL_objz00_3523);} 

}



/* 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_3524, obj_t BgL_objz00_3525)
{
{ /* Ieee/port.scm 659 */
return 
BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3525);} 

}



/* 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_3526, obj_t BgL_objz00_3527)
{
{ /* Ieee/port.scm 665 */
return 
BGl_outputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3527);} 

}



/* 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_5174;
BgL_tmpz00_5174 = 
BGL_CURRENT_DYNAMIC_ENV(); 
return 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_5174);} } 

}



/* &current-input-port */
obj_t BGl_z62currentzd2inputzd2portz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3528)
{
{ /* 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_5178;
BgL_tmpz00_5178 = 
BGL_CURRENT_DYNAMIC_ENV(); 
return 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5178);} } 

}



/* &current-output-port */
obj_t BGl_z62currentzd2outputzd2portz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3529)
{
{ /* 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_5182;
BgL_tmpz00_5182 = 
BGL_CURRENT_DYNAMIC_ENV(); 
return 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_5182);} } 

}



/* &current-error-port */
obj_t BGl_z62currentzd2errorzd2portz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3530)
{
{ /* 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_string2888z00zz__r4_ports_6_10_1z00, BGl_string2889z00zz__r4_ports_6_10_1z00, BgL_portz00_20);} } 

}



/* &input-port-reopen! */
obj_t BGl_z62inputzd2portzd2reopenz12z70zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3531, obj_t BgL_portz00_3532)
{
{ /* Ieee/port.scm 689 */
{ /* Ieee/port.scm 690 */
 obj_t BgL_auxz00_5190;
if(
INPUT_PORTP(BgL_portz00_3532))
{ /* Ieee/port.scm 690 */
BgL_auxz00_5190 = BgL_portz00_3532
; }  else 
{ 
 obj_t BgL_auxz00_5193;
BgL_auxz00_5193 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(31434L), BGl_string2890z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3532); 
FAILURE(BgL_auxz00_5193,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_5190);} } 

}



/* 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_3533, obj_t BgL_dstz00_3534, obj_t BgL_srcz00_3535)
{
{ /* Ieee/port.scm 697 */
{ /* Ieee/port.scm 698 */
 obj_t BgL_auxz00_5206; obj_t BgL_auxz00_5199;
if(
INPUT_PORTP(BgL_srcz00_3535))
{ /* Ieee/port.scm 698 */
BgL_auxz00_5206 = BgL_srcz00_3535
; }  else 
{ 
 obj_t BgL_auxz00_5209;
BgL_auxz00_5209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(31854L), BGl_string2891z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_srcz00_3535); 
FAILURE(BgL_auxz00_5209,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_dstz00_3534))
{ /* Ieee/port.scm 698 */
BgL_auxz00_5199 = BgL_dstz00_3534
; }  else 
{ 
 obj_t BgL_auxz00_5202;
BgL_auxz00_5202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(31854L), BGl_string2891z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_dstz00_3534); 
FAILURE(BgL_auxz00_5202,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2clonez12z12zz__r4_ports_6_10_1z00(BgL_auxz00_5199, BgL_auxz00_5206);} } 

}



/* 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_3536;
BgL_zc3z04anonymousza31447ze3z87_3536 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31447ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31447ze3z87_3536, 
(int)(0L), BgL_denvz00_1485); 
PROCEDURE_SET(BgL_zc3z04anonymousza31447ze3z87_3536, 
(int)(1L), BgL_oldzd2inputzd2portz00_1486); 
PROCEDURE_SET(BgL_zc3z04anonymousza31447ze3z87_3536, 
(int)(2L), BgL_portz00_1483); 
{ /* Ieee/port.scm 708 */
 obj_t BgL_arg2077z00_2601;
{ /* Ieee/port.scm 708 */
 obj_t BgL_arg2078z00_2602;
BgL_arg2078z00_2602 = 
BGL_EXITD_PROTECT(BgL_exitd1059z00_1487); 
BgL_arg2077z00_2601 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31447ze3z87_3536, BgL_arg2078z00_2602); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1059z00_1487, BgL_arg2077z00_2601); BUNSPEC; } 
{ /* Ieee/port.scm 710 */
 obj_t BgL_tmp1061z00_1489;
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1485, BgL_portz00_1483); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_24, 0))
{ /* Ieee/port.scm 711 */
BgL_tmp1061z00_1489 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_24); }  else 
{ /* Ieee/port.scm 711 */
FAILURE(BGl_string2892z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_24);} 
{ /* Ieee/port.scm 708 */
 bool_t BgL_test3628z00_5240;
{ /* Ieee/port.scm 708 */
 obj_t BgL_arg2076z00_2604;
BgL_arg2076z00_2604 = 
BGL_EXITD_PROTECT(BgL_exitd1059z00_1487); 
BgL_test3628z00_5240 = 
PAIRP(BgL_arg2076z00_2604); } 
if(BgL_test3628z00_5240)
{ /* Ieee/port.scm 708 */
 obj_t BgL_arg2074z00_2605;
{ /* Ieee/port.scm 708 */
 obj_t BgL_arg2075z00_2606;
BgL_arg2075z00_2606 = 
BGL_EXITD_PROTECT(BgL_exitd1059z00_1487); 
{ /* Ieee/port.scm 708 */
 obj_t BgL_pairz00_2607;
if(
PAIRP(BgL_arg2075z00_2606))
{ /* Ieee/port.scm 708 */
BgL_pairz00_2607 = BgL_arg2075z00_2606; }  else 
{ 
 obj_t BgL_auxz00_5246;
BgL_auxz00_5246 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32317L), BGl_string2896z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2606); 
FAILURE(BgL_auxz00_5246,BFALSE,BFALSE);} 
BgL_arg2074z00_2605 = 
CDR(BgL_pairz00_2607); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1059z00_1487, BgL_arg2074z00_2605); BUNSPEC; }  else 
{ /* Ieee/port.scm 708 */BFALSE; } } 
BGl_z62zc3z04anonymousza31447ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31447ze3z87_3536); 
return BgL_tmp1061z00_1489;} } } } } }  else 
{ /* Ieee/port.scm 705 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string2896z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3537, obj_t BgL_stringz00_3538, obj_t BgL_thunkz00_3539)
{
{ /* Ieee/port.scm 703 */
{ /* Ieee/port.scm 704 */
 obj_t BgL_auxz00_5261; obj_t BgL_auxz00_5254;
if(
PROCEDUREP(BgL_thunkz00_3539))
{ /* Ieee/port.scm 704 */
BgL_auxz00_5261 = BgL_thunkz00_3539
; }  else 
{ 
 obj_t BgL_auxz00_5264;
BgL_auxz00_5264 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32154L), BGl_string2897z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3539); 
FAILURE(BgL_auxz00_5264,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3538))
{ /* Ieee/port.scm 704 */
BgL_auxz00_5254 = BgL_stringz00_3538
; }  else 
{ 
 obj_t BgL_auxz00_5257;
BgL_auxz00_5257 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32154L), BGl_string2897z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3538); 
FAILURE(BgL_auxz00_5257,BFALSE,BFALSE);} 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5254, BgL_auxz00_5261);} } 

}



/* &<@anonymous:1447> */
obj_t BGl_z62zc3z04anonymousza31447ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3540)
{
{ /* Ieee/port.scm 708 */
{ /* Ieee/port.scm 713 */
 obj_t BgL_denvz00_3541; obj_t BgL_oldzd2inputzd2portz00_3542; obj_t BgL_portz00_3543;
BgL_denvz00_3541 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3540, 
(int)(0L))); 
BgL_oldzd2inputzd2portz00_3542 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3540, 
(int)(1L))); 
BgL_portz00_3543 = 
PROCEDURE_REF(BgL_envz00_3540, 
(int)(2L)); 
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3541, BgL_oldzd2inputzd2portz00_3542); BUNSPEC; 
{ /* Ieee/port.scm 714 */
 obj_t BgL_portz00_4677;
if(
INPUT_PORTP(BgL_portz00_3543))
{ /* Ieee/port.scm 714 */
BgL_portz00_4677 = BgL_portz00_3543; }  else 
{ 
 obj_t BgL_auxz00_5280;
BgL_auxz00_5280 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32484L), BGl_string2898z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3543); 
FAILURE(BgL_auxz00_5280,BFALSE,BFALSE);} 
return 
bgl_close_input_port(BgL_portz00_4677);} } } 

}



/* 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_3544;
BgL_zc3z04anonymousza31448ze3z87_3544 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31448ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31448ze3z87_3544, 
(int)(0L), BgL_denvz00_1496); 
PROCEDURE_SET(BgL_zc3z04anonymousza31448ze3z87_3544, 
(int)(1L), BgL_oldzd2inputzd2portz00_1497); 
PROCEDURE_SET(BgL_zc3z04anonymousza31448ze3z87_3544, 
(int)(2L), BgL_portz00_1495); 
{ /* Ieee/port.scm 725 */
 obj_t BgL_arg2077z00_2610;
{ /* Ieee/port.scm 725 */
 obj_t BgL_arg2078z00_2611;
BgL_arg2078z00_2611 = 
BGL_EXITD_PROTECT(BgL_exitd1063z00_1498); 
BgL_arg2077z00_2610 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31448ze3z87_3544, BgL_arg2078z00_2611); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1063z00_1498, BgL_arg2077z00_2610); BUNSPEC; } 
{ /* Ieee/port.scm 727 */
 obj_t BgL_tmp1065z00_1500;
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1496, BgL_portz00_1495); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_26, 0))
{ /* Ieee/port.scm 728 */
BgL_tmp1065z00_1500 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_26); }  else 
{ /* Ieee/port.scm 728 */
FAILURE(BGl_string2899z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_26);} 
{ /* Ieee/port.scm 725 */
 bool_t BgL_test3634z00_5311;
{ /* Ieee/port.scm 725 */
 obj_t BgL_arg2076z00_2613;
BgL_arg2076z00_2613 = 
BGL_EXITD_PROTECT(BgL_exitd1063z00_1498); 
BgL_test3634z00_5311 = 
PAIRP(BgL_arg2076z00_2613); } 
if(BgL_test3634z00_5311)
{ /* Ieee/port.scm 725 */
 obj_t BgL_arg2074z00_2614;
{ /* Ieee/port.scm 725 */
 obj_t BgL_arg2075z00_2615;
BgL_arg2075z00_2615 = 
BGL_EXITD_PROTECT(BgL_exitd1063z00_1498); 
{ /* Ieee/port.scm 725 */
 obj_t BgL_pairz00_2616;
if(
PAIRP(BgL_arg2075z00_2615))
{ /* Ieee/port.scm 725 */
BgL_pairz00_2616 = BgL_arg2075z00_2615; }  else 
{ 
 obj_t BgL_auxz00_5317;
BgL_auxz00_5317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32989L), BGl_string2900z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2615); 
FAILURE(BgL_auxz00_5317,BFALSE,BFALSE);} 
BgL_arg2074z00_2614 = 
CDR(BgL_pairz00_2616); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1063z00_1498, BgL_arg2074z00_2614); BUNSPEC; }  else 
{ /* Ieee/port.scm 725 */BFALSE; } } 
BGl_z62zc3z04anonymousza31448ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31448ze3z87_3544); 
return BgL_tmp1065z00_1500;} } } } } } } } 

}



/* &with-input-from-string */
obj_t BGl_z62withzd2inputzd2fromzd2stringzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3545, obj_t BgL_stringz00_3546, obj_t BgL_thunkz00_3547)
{
{ /* Ieee/port.scm 721 */
{ /* Ieee/port.scm 722 */
 obj_t BgL_auxz00_5331; obj_t BgL_auxz00_5324;
if(
PROCEDUREP(BgL_thunkz00_3547))
{ /* Ieee/port.scm 722 */
BgL_auxz00_5331 = BgL_thunkz00_3547
; }  else 
{ 
 obj_t BgL_auxz00_5334;
BgL_auxz00_5334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32860L), BGl_string2901z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3547); 
FAILURE(BgL_auxz00_5334,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3546))
{ /* Ieee/port.scm 722 */
BgL_auxz00_5324 = BgL_stringz00_3546
; }  else 
{ 
 obj_t BgL_auxz00_5327;
BgL_auxz00_5327 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(32860L), BGl_string2901z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3546); 
FAILURE(BgL_auxz00_5327,BFALSE,BFALSE);} 
return 
BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5324, BgL_auxz00_5331);} } 

}



/* &<@anonymous:1448> */
obj_t BGl_z62zc3z04anonymousza31448ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3548)
{
{ /* Ieee/port.scm 725 */
{ /* Ieee/port.scm 730 */
 obj_t BgL_denvz00_3549; obj_t BgL_oldzd2inputzd2portz00_3550; obj_t BgL_portz00_3551;
BgL_denvz00_3549 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3548, 
(int)(0L))); 
BgL_oldzd2inputzd2portz00_3550 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3548, 
(int)(1L))); 
BgL_portz00_3551 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3548, 
(int)(2L))); 
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3549, BgL_oldzd2inputzd2portz00_3550); BUNSPEC; 
return 
bgl_close_input_port(BgL_portz00_3551);} } 

}



/* 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_3552;
BgL_zc3z04anonymousza31449ze3z87_3552 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31449ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31449ze3z87_3552, 
(int)(0L), BgL_denvz00_1506); 
PROCEDURE_SET(BgL_zc3z04anonymousza31449ze3z87_3552, 
(int)(1L), BgL_oldzd2inputzd2portz00_1507); 
{ /* Ieee/port.scm 739 */
 obj_t BgL_arg2077z00_2617;
{ /* Ieee/port.scm 739 */
 obj_t BgL_arg2078z00_2618;
BgL_arg2078z00_2618 = 
BGL_EXITD_PROTECT(BgL_exitd1067z00_1508); 
BgL_arg2077z00_2617 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31449ze3z87_3552, BgL_arg2078z00_2618); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_1508, BgL_arg2077z00_2617); BUNSPEC; } 
{ /* Ieee/port.scm 741 */
 obj_t BgL_tmp1069z00_1510;
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1506, BgL_portz00_27); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_28, 0))
{ /* Ieee/port.scm 742 */
BgL_tmp1069z00_1510 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_28); }  else 
{ /* Ieee/port.scm 742 */
FAILURE(BGl_string2902z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_28);} 
{ /* Ieee/port.scm 739 */
 bool_t BgL_test3639z00_5370;
{ /* Ieee/port.scm 739 */
 obj_t BgL_arg2076z00_2620;
BgL_arg2076z00_2620 = 
BGL_EXITD_PROTECT(BgL_exitd1067z00_1508); 
BgL_test3639z00_5370 = 
PAIRP(BgL_arg2076z00_2620); } 
if(BgL_test3639z00_5370)
{ /* Ieee/port.scm 739 */
 obj_t BgL_arg2074z00_2621;
{ /* Ieee/port.scm 739 */
 obj_t BgL_arg2075z00_2622;
BgL_arg2075z00_2622 = 
BGL_EXITD_PROTECT(BgL_exitd1067z00_1508); 
{ /* Ieee/port.scm 739 */
 obj_t BgL_pairz00_2623;
if(
PAIRP(BgL_arg2075z00_2622))
{ /* Ieee/port.scm 739 */
BgL_pairz00_2623 = BgL_arg2075z00_2622; }  else 
{ 
 obj_t BgL_auxz00_5376;
BgL_auxz00_5376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(33526L), BGl_string2903z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2622); 
FAILURE(BgL_auxz00_5376,BFALSE,BFALSE);} 
BgL_arg2074z00_2621 = 
CDR(BgL_pairz00_2623); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_1508, BgL_arg2074z00_2621); 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_3553, obj_t BgL_portz00_3554, obj_t BgL_thunkz00_3555)
{
{ /* Ieee/port.scm 736 */
{ /* Ieee/port.scm 737 */
 obj_t BgL_auxz00_5390; obj_t BgL_auxz00_5383;
if(
PROCEDUREP(BgL_thunkz00_3555))
{ /* Ieee/port.scm 737 */
BgL_auxz00_5390 = BgL_thunkz00_3555
; }  else 
{ 
 obj_t BgL_auxz00_5393;
BgL_auxz00_5393 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(33434L), BGl_string2904z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3555); 
FAILURE(BgL_auxz00_5393,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_portz00_3554))
{ /* Ieee/port.scm 737 */
BgL_auxz00_5383 = BgL_portz00_3554
; }  else 
{ 
 obj_t BgL_auxz00_5386;
BgL_auxz00_5386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(33434L), BGl_string2904z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3554); 
FAILURE(BgL_auxz00_5386,BFALSE,BFALSE);} 
return 
BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5383, BgL_auxz00_5390);} } 

}



/* &<@anonymous:1449> */
obj_t BGl_z62zc3z04anonymousza31449ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3556)
{
{ /* Ieee/port.scm 739 */
{ 
 obj_t BgL_denvz00_3557; obj_t BgL_oldzd2inputzd2portz00_3558;
BgL_denvz00_3557 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3556, 
(int)(0L))); 
BgL_oldzd2inputzd2portz00_3558 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3556, 
(int)(1L))); 
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3557, BgL_oldzd2inputzd2portz00_3558); 
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_string2905z00zz__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_3559;
BgL_zc3z04anonymousza31451ze3z87_3559 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31451ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_3559, 
(int)(0L), BgL_denvz00_1515); 
PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_3559, 
(int)(1L), BgL_oldzd2inputzd2portz00_1516); 
PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_3559, 
(int)(2L), BgL_portz00_1513); 
{ /* Ieee/port.scm 753 */
 obj_t BgL_arg2077z00_2627;
{ /* Ieee/port.scm 753 */
 obj_t BgL_arg2078z00_2628;
BgL_arg2078z00_2628 = 
BGL_EXITD_PROTECT(BgL_exitd1071z00_1517); 
BgL_arg2077z00_2627 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31451ze3z87_3559, BgL_arg2078z00_2628); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1071z00_1517, BgL_arg2077z00_2627); BUNSPEC; } 
{ /* Ieee/port.scm 755 */
 obj_t BgL_tmp1073z00_1519;
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_1515, BgL_portz00_1513); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_30, 0))
{ /* Ieee/port.scm 756 */
BgL_tmp1073z00_1519 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_30); }  else 
{ /* Ieee/port.scm 756 */
FAILURE(BGl_string2906z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_30);} 
{ /* Ieee/port.scm 753 */
 bool_t BgL_test3644z00_5430;
{ /* Ieee/port.scm 753 */
 obj_t BgL_arg2076z00_2630;
BgL_arg2076z00_2630 = 
BGL_EXITD_PROTECT(BgL_exitd1071z00_1517); 
BgL_test3644z00_5430 = 
PAIRP(BgL_arg2076z00_2630); } 
if(BgL_test3644z00_5430)
{ /* Ieee/port.scm 753 */
 obj_t BgL_arg2074z00_2631;
{ /* Ieee/port.scm 753 */
 obj_t BgL_arg2075z00_2632;
BgL_arg2075z00_2632 = 
BGL_EXITD_PROTECT(BgL_exitd1071z00_1517); 
{ /* Ieee/port.scm 753 */
 obj_t BgL_pairz00_2633;
if(
PAIRP(BgL_arg2075z00_2632))
{ /* Ieee/port.scm 753 */
BgL_pairz00_2633 = BgL_arg2075z00_2632; }  else 
{ 
 obj_t BgL_auxz00_5436;
BgL_auxz00_5436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(34100L), BGl_string2907z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2632); 
FAILURE(BgL_auxz00_5436,BFALSE,BFALSE);} 
BgL_arg2074z00_2631 = 
CDR(BgL_pairz00_2633); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1071z00_1517, BgL_arg2074z00_2631); BUNSPEC; }  else 
{ /* Ieee/port.scm 753 */BFALSE; } } 
BGl_z62zc3z04anonymousza31451ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31451ze3z87_3559); 
return BgL_tmp1073z00_1519;} } } } } } } } 

}



/* &with-input-from-procedure */
obj_t BGl_z62withzd2inputzd2fromzd2procedurezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3560, obj_t BgL_procz00_3561, obj_t BgL_thunkz00_3562)
{
{ /* Ieee/port.scm 748 */
{ /* Ieee/port.scm 749 */
 obj_t BgL_auxz00_5450; obj_t BgL_auxz00_5443;
if(
PROCEDUREP(BgL_thunkz00_3562))
{ /* Ieee/port.scm 749 */
BgL_auxz00_5450 = BgL_thunkz00_3562
; }  else 
{ 
 obj_t BgL_auxz00_5453;
BgL_auxz00_5453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(33934L), BGl_string2908z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3562); 
FAILURE(BgL_auxz00_5453,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_procz00_3561))
{ /* Ieee/port.scm 749 */
BgL_auxz00_5443 = BgL_procz00_3561
; }  else 
{ 
 obj_t BgL_auxz00_5446;
BgL_auxz00_5446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(33934L), BGl_string2908z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3561); 
FAILURE(BgL_auxz00_5446,BFALSE,BFALSE);} 
return 
BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5443, BgL_auxz00_5450);} } 

}



/* &<@anonymous:1451> */
obj_t BGl_z62zc3z04anonymousza31451ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3563)
{
{ /* Ieee/port.scm 753 */
{ /* Ieee/port.scm 758 */
 obj_t BgL_denvz00_3564; obj_t BgL_oldzd2inputzd2portz00_3565; obj_t BgL_portz00_3566;
BgL_denvz00_3564 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3563, 
(int)(0L))); 
BgL_oldzd2inputzd2portz00_3565 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3563, 
(int)(1L))); 
BgL_portz00_3566 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3563, 
(int)(2L))); 
BGL_ENV_CURRENT_INPUT_PORT_SET(BgL_denvz00_3564, BgL_oldzd2inputzd2portz00_3565); BUNSPEC; 
return 
bgl_close_input_port(BgL_portz00_3566);} } 

}



/* 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_string2874z00zz__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_3567;
BgL_zc3z04anonymousza31453ze3z87_3567 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31453ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_3567, 
(int)(0L), BgL_denvz00_1526); 
PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_3567, 
(int)(1L), BgL_oldzd2outputzd2portz00_1527); 
PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_3567, 
(int)(2L), BgL_portz00_1524); 
{ /* Ieee/port.scm 770 */
 obj_t BgL_arg2077z00_2637;
{ /* Ieee/port.scm 770 */
 obj_t BgL_arg2078z00_2638;
BgL_arg2078z00_2638 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1528); 
BgL_arg2077z00_2637 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31453ze3z87_3567, BgL_arg2078z00_2638); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1528, BgL_arg2077z00_2637); BUNSPEC; } 
{ /* Ieee/port.scm 772 */
 obj_t BgL_tmp1077z00_1530;
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1526, BgL_portz00_1524); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_32, 0))
{ /* Ieee/port.scm 773 */
BgL_tmp1077z00_1530 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_32); }  else 
{ /* Ieee/port.scm 773 */
FAILURE(BGl_string2909z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_32);} 
{ /* Ieee/port.scm 770 */
 bool_t BgL_test3650z00_5496;
{ /* Ieee/port.scm 770 */
 obj_t BgL_arg2076z00_2640;
BgL_arg2076z00_2640 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1528); 
BgL_test3650z00_5496 = 
PAIRP(BgL_arg2076z00_2640); } 
if(BgL_test3650z00_5496)
{ /* Ieee/port.scm 770 */
 obj_t BgL_arg2074z00_2641;
{ /* Ieee/port.scm 770 */
 obj_t BgL_arg2075z00_2642;
BgL_arg2075z00_2642 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1528); 
{ /* Ieee/port.scm 770 */
 obj_t BgL_pairz00_2643;
if(
PAIRP(BgL_arg2075z00_2642))
{ /* Ieee/port.scm 770 */
BgL_pairz00_2643 = BgL_arg2075z00_2642; }  else 
{ 
 obj_t BgL_auxz00_5502;
BgL_auxz00_5502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(34782L), BGl_string2910z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2642); 
FAILURE(BgL_auxz00_5502,BFALSE,BFALSE);} 
BgL_arg2074z00_2641 = 
CDR(BgL_pairz00_2643); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1528, BgL_arg2074z00_2641); BUNSPEC; }  else 
{ /* Ieee/port.scm 770 */BFALSE; } } 
BGl_z62zc3z04anonymousza31453ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31453ze3z87_3567); 
return BgL_tmp1077z00_1530;} } } } } }  else 
{ /* Ieee/port.scm 767 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string2910z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3568, obj_t BgL_stringz00_3569, obj_t BgL_thunkz00_3570)
{
{ /* Ieee/port.scm 765 */
{ /* Ieee/port.scm 766 */
 obj_t BgL_auxz00_5517; obj_t BgL_auxz00_5510;
if(
PROCEDUREP(BgL_thunkz00_3570))
{ /* Ieee/port.scm 766 */
BgL_auxz00_5517 = BgL_thunkz00_3570
; }  else 
{ 
 obj_t BgL_auxz00_5520;
BgL_auxz00_5520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(34615L), BGl_string2911z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3570); 
FAILURE(BgL_auxz00_5520,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3569))
{ /* Ieee/port.scm 766 */
BgL_auxz00_5510 = BgL_stringz00_3569
; }  else 
{ 
 obj_t BgL_auxz00_5513;
BgL_auxz00_5513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(34615L), BGl_string2911z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3569); 
FAILURE(BgL_auxz00_5513,BFALSE,BFALSE);} 
return 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5510, BgL_auxz00_5517);} } 

}



/* &<@anonymous:1453> */
obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3571)
{
{ /* Ieee/port.scm 770 */
{ /* Ieee/port.scm 775 */
 obj_t BgL_denvz00_3572; obj_t BgL_oldzd2outputzd2portz00_3573; obj_t BgL_portz00_3574;
BgL_denvz00_3572 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3571, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3573 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3571, 
(int)(1L))); 
BgL_portz00_3574 = 
PROCEDURE_REF(BgL_envz00_3571, 
(int)(2L)); 
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3572, BgL_oldzd2outputzd2portz00_3573); BUNSPEC; 
{ /* Ieee/port.scm 776 */
 obj_t BgL_portz00_4678;
if(
OUTPUT_PORTP(BgL_portz00_3574))
{ /* Ieee/port.scm 776 */
BgL_portz00_4678 = BgL_portz00_3574; }  else 
{ 
 obj_t BgL_auxz00_5536;
BgL_auxz00_5536 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(34953L), BGl_string2912z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3574); 
FAILURE(BgL_auxz00_5536,BFALSE,BFALSE);} 
return 
bgl_close_output_port(BgL_portz00_4678);} } } 

}



/* 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_string2880z00zz__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_3575;
BgL_zc3z04anonymousza31455ze3z87_3575 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_3575, 
(int)(0L), BgL_denvz00_1537); 
PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_3575, 
(int)(1L), BgL_oldzd2outputzd2portz00_1538); 
PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_3575, 
(int)(2L), BgL_portz00_1535); 
{ /* Ieee/port.scm 788 */
 obj_t BgL_arg2077z00_2647;
{ /* Ieee/port.scm 788 */
 obj_t BgL_arg2078z00_2648;
BgL_arg2078z00_2648 = 
BGL_EXITD_PROTECT(BgL_exitd1079z00_1539); 
BgL_arg2077z00_2647 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31455ze3z87_3575, BgL_arg2078z00_2648); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1079z00_1539, BgL_arg2077z00_2647); BUNSPEC; } 
{ /* Ieee/port.scm 790 */
 obj_t BgL_tmp1081z00_1541;
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1537, BgL_portz00_1535); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_34, 0))
{ /* Ieee/port.scm 791 */
BgL_tmp1081z00_1541 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_34); }  else 
{ /* Ieee/port.scm 791 */
FAILURE(BGl_string2913z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_34);} 
{ /* Ieee/port.scm 788 */
 bool_t BgL_test3657z00_5568;
{ /* Ieee/port.scm 788 */
 obj_t BgL_arg2076z00_2650;
BgL_arg2076z00_2650 = 
BGL_EXITD_PROTECT(BgL_exitd1079z00_1539); 
BgL_test3657z00_5568 = 
PAIRP(BgL_arg2076z00_2650); } 
if(BgL_test3657z00_5568)
{ /* Ieee/port.scm 788 */
 obj_t BgL_arg2074z00_2651;
{ /* Ieee/port.scm 788 */
 obj_t BgL_arg2075z00_2652;
BgL_arg2075z00_2652 = 
BGL_EXITD_PROTECT(BgL_exitd1079z00_1539); 
{ /* Ieee/port.scm 788 */
 obj_t BgL_pairz00_2653;
if(
PAIRP(BgL_arg2075z00_2652))
{ /* Ieee/port.scm 788 */
BgL_pairz00_2653 = BgL_arg2075z00_2652; }  else 
{ 
 obj_t BgL_auxz00_5574;
BgL_auxz00_5574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(35494L), BGl_string2914z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2652); 
FAILURE(BgL_auxz00_5574,BFALSE,BFALSE);} 
BgL_arg2074z00_2651 = 
CDR(BgL_pairz00_2653); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1079z00_1539, BgL_arg2074z00_2651); BUNSPEC; }  else 
{ /* Ieee/port.scm 788 */BFALSE; } } 
BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31455ze3z87_3575); 
return BgL_tmp1081z00_1541;} } } } } }  else 
{ /* Ieee/port.scm 785 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string2910z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3576, obj_t BgL_stringz00_3577, obj_t BgL_thunkz00_3578)
{
{ /* Ieee/port.scm 783 */
{ /* Ieee/port.scm 784 */
 obj_t BgL_auxz00_5589; obj_t BgL_auxz00_5582;
if(
PROCEDUREP(BgL_thunkz00_3578))
{ /* Ieee/port.scm 784 */
BgL_auxz00_5589 = BgL_thunkz00_3578
; }  else 
{ 
 obj_t BgL_auxz00_5592;
BgL_auxz00_5592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(35325L), BGl_string2915z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3578); 
FAILURE(BgL_auxz00_5592,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3577))
{ /* Ieee/port.scm 784 */
BgL_auxz00_5582 = BgL_stringz00_3577
; }  else 
{ 
 obj_t BgL_auxz00_5585;
BgL_auxz00_5585 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(35325L), BGl_string2915z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3577); 
FAILURE(BgL_auxz00_5585,BFALSE,BFALSE);} 
return 
BGl_withzd2appendzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5582, BgL_auxz00_5589);} } 

}



/* &<@anonymous:1455> */
obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3579)
{
{ /* Ieee/port.scm 788 */
{ /* Ieee/port.scm 793 */
 obj_t BgL_denvz00_3580; obj_t BgL_oldzd2outputzd2portz00_3581; obj_t BgL_portz00_3582;
BgL_denvz00_3580 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3579, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3581 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3579, 
(int)(1L))); 
BgL_portz00_3582 = 
PROCEDURE_REF(BgL_envz00_3579, 
(int)(2L)); 
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3580, BgL_oldzd2outputzd2portz00_3581); BUNSPEC; 
{ /* Ieee/port.scm 794 */
 obj_t BgL_portz00_4679;
if(
OUTPUT_PORTP(BgL_portz00_3582))
{ /* Ieee/port.scm 794 */
BgL_portz00_4679 = BgL_portz00_3582; }  else 
{ 
 obj_t BgL_auxz00_5608;
BgL_auxz00_5608 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(35665L), BGl_string2916z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3582); 
FAILURE(BgL_auxz00_5608,BFALSE,BFALSE);} 
return 
bgl_close_output_port(BgL_portz00_4679);} } } 

}



/* 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_3583;
BgL_zc3z04anonymousza31456ze3z87_3583 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31456ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31456ze3z87_3583, 
(int)(0L), BgL_denvz00_1546); 
PROCEDURE_SET(BgL_zc3z04anonymousza31456ze3z87_3583, 
(int)(1L), BgL_oldzd2outputzd2portz00_1547); 
{ /* Ieee/port.scm 804 */
 obj_t BgL_arg2077z00_2654;
{ /* Ieee/port.scm 804 */
 obj_t BgL_arg2078z00_2655;
BgL_arg2078z00_2655 = 
BGL_EXITD_PROTECT(BgL_exitd1083z00_1548); 
BgL_arg2077z00_2654 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31456ze3z87_3583, BgL_arg2078z00_2655); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1083z00_1548, BgL_arg2077z00_2654); BUNSPEC; } 
{ /* Ieee/port.scm 806 */
 obj_t BgL_tmp1085z00_1550;
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1546, BgL_portz00_35); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_36, 0))
{ /* Ieee/port.scm 807 */
BgL_tmp1085z00_1550 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_36); }  else 
{ /* Ieee/port.scm 807 */
FAILURE(BGl_string2917z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_36);} 
{ /* Ieee/port.scm 804 */
 bool_t BgL_test3663z00_5633;
{ /* Ieee/port.scm 804 */
 obj_t BgL_arg2076z00_2657;
BgL_arg2076z00_2657 = 
BGL_EXITD_PROTECT(BgL_exitd1083z00_1548); 
BgL_test3663z00_5633 = 
PAIRP(BgL_arg2076z00_2657); } 
if(BgL_test3663z00_5633)
{ /* Ieee/port.scm 804 */
 obj_t BgL_arg2074z00_2658;
{ /* Ieee/port.scm 804 */
 obj_t BgL_arg2075z00_2659;
BgL_arg2075z00_2659 = 
BGL_EXITD_PROTECT(BgL_exitd1083z00_1548); 
{ /* Ieee/port.scm 804 */
 obj_t BgL_pairz00_2660;
if(
PAIRP(BgL_arg2075z00_2659))
{ /* Ieee/port.scm 804 */
BgL_pairz00_2660 = BgL_arg2075z00_2659; }  else 
{ 
 obj_t BgL_auxz00_5639;
BgL_auxz00_5639 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(36129L), BGl_string2918z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2659); 
FAILURE(BgL_auxz00_5639,BFALSE,BFALSE);} 
BgL_arg2074z00_2658 = 
CDR(BgL_pairz00_2660); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1083z00_1548, BgL_arg2074z00_2658); 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_3584, obj_t BgL_portz00_3585, obj_t BgL_thunkz00_3586)
{
{ /* Ieee/port.scm 801 */
{ /* Ieee/port.scm 802 */
 obj_t BgL_auxz00_5653; obj_t BgL_auxz00_5646;
if(
PROCEDUREP(BgL_thunkz00_3586))
{ /* Ieee/port.scm 802 */
BgL_auxz00_5653 = BgL_thunkz00_3586
; }  else 
{ 
 obj_t BgL_auxz00_5656;
BgL_auxz00_5656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(36035L), BGl_string2919z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3586); 
FAILURE(BgL_auxz00_5656,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3585))
{ /* Ieee/port.scm 802 */
BgL_auxz00_5646 = BgL_portz00_3585
; }  else 
{ 
 obj_t BgL_auxz00_5649;
BgL_auxz00_5649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(36035L), BGl_string2919z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3585); 
FAILURE(BgL_auxz00_5649,BFALSE,BFALSE);} 
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5646, BgL_auxz00_5653);} } 

}



/* &<@anonymous:1456> */
obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3587)
{
{ /* Ieee/port.scm 804 */
{ 
 obj_t BgL_denvz00_3588; obj_t BgL_oldzd2outputzd2portz00_3589;
BgL_denvz00_3588 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3587, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3589 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3587, 
(int)(1L))); 
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3588, BgL_oldzd2outputzd2portz00_3589); 
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_string2874z00zz__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_3599;
BgL_resz00_3599 = 
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_3590;
BgL_zc3z04anonymousza31457ze3z87_3590 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3590, 
(int)(0L), BgL_denvz00_1554); 
PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3590, 
(int)(1L), BgL_oldzd2outputzd2portz00_1555); 
PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3590, 
(int)(2L), BgL_portz00_1553); 
PROCEDURE_SET(BgL_zc3z04anonymousza31457ze3z87_3590, 
(int)(3L), 
((obj_t)BgL_resz00_3599)); 
{ /* Ieee/port.scm 818 */
 obj_t BgL_arg2077z00_2663;
{ /* Ieee/port.scm 818 */
 obj_t BgL_arg2078z00_2664;
BgL_arg2078z00_2664 = 
BGL_EXITD_PROTECT(BgL_exitd1087z00_1557); 
BgL_arg2077z00_2663 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31457ze3z87_3590, BgL_arg2078z00_2664); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1087z00_1557, BgL_arg2077z00_2663); BUNSPEC; } 
{ /* Ieee/port.scm 820 */
 obj_t BgL_tmp1089z00_1559;
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1554, BgL_portz00_1553); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_37, 0))
{ /* Ieee/port.scm 821 */
BgL_tmp1089z00_1559 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_37); }  else 
{ /* Ieee/port.scm 821 */
FAILURE(BGl_string2920z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_37);} 
{ /* Ieee/port.scm 818 */
 bool_t BgL_test3668z00_5696;
{ /* Ieee/port.scm 818 */
 obj_t BgL_arg2076z00_2666;
BgL_arg2076z00_2666 = 
BGL_EXITD_PROTECT(BgL_exitd1087z00_1557); 
BgL_test3668z00_5696 = 
PAIRP(BgL_arg2076z00_2666); } 
if(BgL_test3668z00_5696)
{ /* Ieee/port.scm 818 */
 obj_t BgL_arg2074z00_2667;
{ /* Ieee/port.scm 818 */
 obj_t BgL_arg2075z00_2668;
BgL_arg2075z00_2668 = 
BGL_EXITD_PROTECT(BgL_exitd1087z00_1557); 
{ /* Ieee/port.scm 818 */
 obj_t BgL_pairz00_2669;
if(
PAIRP(BgL_arg2075z00_2668))
{ /* Ieee/port.scm 818 */
BgL_pairz00_2669 = BgL_arg2075z00_2668; }  else 
{ 
 obj_t BgL_auxz00_5702;
BgL_auxz00_5702 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(36678L), BGl_string2921z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2668); 
FAILURE(BgL_auxz00_5702,BFALSE,BFALSE);} 
BgL_arg2074z00_2667 = 
CDR(BgL_pairz00_2669); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1087z00_1557, BgL_arg2074z00_2667); BUNSPEC; }  else 
{ /* Ieee/port.scm 818 */BFALSE; } } 
BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31457ze3z87_3590); BgL_tmp1089z00_1559; } } } 
{ /* Ieee/port.scm 825 */
 obj_t BgL_aux2242z00_4022;
BgL_aux2242z00_4022 = 
BGL_UNSAFE_CELL_REF(BgL_resz00_3599); 
if(
STRINGP(BgL_aux2242z00_4022))
{ /* Ieee/port.scm 825 */
return BgL_aux2242z00_4022;}  else 
{ 
 obj_t BgL_auxz00_5711;
BgL_auxz00_5711 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(36874L), BGl_string2921z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2242z00_4022); 
FAILURE(BgL_auxz00_5711,BFALSE,BFALSE);} } } } } } } } 

}



/* &with-output-to-string */
obj_t BGl_z62withzd2outputzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3591, obj_t BgL_thunkz00_3592)
{
{ /* Ieee/port.scm 813 */
{ /* Ieee/port.scm 814 */
 obj_t BgL_auxz00_5715;
if(
PROCEDUREP(BgL_thunkz00_3592))
{ /* Ieee/port.scm 814 */
BgL_auxz00_5715 = BgL_thunkz00_3592
; }  else 
{ 
 obj_t BgL_auxz00_5718;
BgL_auxz00_5718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(36531L), BGl_string2922z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3592); 
FAILURE(BgL_auxz00_5718,BFALSE,BFALSE);} 
return 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5715);} } 

}



/* &<@anonymous:1457> */
obj_t BGl_z62zc3z04anonymousza31457ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3593)
{
{ /* Ieee/port.scm 818 */
{ /* Ieee/port.scm 823 */
 obj_t BgL_denvz00_3594; obj_t BgL_oldzd2outputzd2portz00_3595; obj_t BgL_portz00_3596; obj_t BgL_resz00_3597;
BgL_denvz00_3594 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3593, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3595 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3593, 
(int)(1L))); 
BgL_portz00_3596 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3593, 
(int)(2L))); 
BgL_resz00_3597 = 
PROCEDURE_REF(BgL_envz00_3593, 
(int)(3L)); 
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3594, BgL_oldzd2outputzd2portz00_3595); BUNSPEC; 
{ /* Ieee/port.scm 824 */
 obj_t BgL_auxz00_4680;
BgL_auxz00_4680 = 
bgl_close_output_port(BgL_portz00_3596); 
return 
BGL_UNSAFE_CELL_SET(BgL_resz00_3597, BgL_auxz00_4680);} } } 

}



/* 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_proc2923z00zz__r4_ports_6_10_1z00, BTRUE, BGl_proc2924z00zz__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_3615;
BgL_resz00_3615 = 
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_3601;
BgL_zc3z04anonymousza31458ze3z87_3601 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3601, 
(int)(0L), BgL_denvz00_1564); 
PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3601, 
(int)(1L), BgL_oldzd2outputzd2portz00_1565); 
PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3601, 
(int)(2L), BgL_portz00_1563); 
PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_3601, 
(int)(3L), 
((obj_t)BgL_resz00_3615)); 
{ /* Ieee/port.scm 835 */
 obj_t BgL_arg2077z00_2671;
{ /* Ieee/port.scm 835 */
 obj_t BgL_arg2078z00_2672;
BgL_arg2078z00_2672 = 
BGL_EXITD_PROTECT(BgL_exitd1091z00_1567); 
BgL_arg2077z00_2671 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31458ze3z87_3601, BgL_arg2078z00_2672); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1091z00_1567, BgL_arg2077z00_2671); BUNSPEC; } 
{ /* Ieee/port.scm 837 */
 obj_t BgL_tmp1093z00_1569;
{ /* Ieee/port.scm 837 */
 obj_t BgL_tmpz00_5755;
if(
OUTPUT_PORTP(BgL_portz00_1563))
{ /* Ieee/port.scm 837 */
BgL_tmpz00_5755 = BgL_portz00_1563
; }  else 
{ 
 obj_t BgL_auxz00_5758;
BgL_auxz00_5758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37370L), BGl_string2925z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_1563); 
FAILURE(BgL_auxz00_5758,BFALSE,BFALSE);} 
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_1564, BgL_tmpz00_5755); } BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_39, 0))
{ /* Ieee/port.scm 838 */
BgL_tmp1093z00_1569 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_39); }  else 
{ /* Ieee/port.scm 838 */
FAILURE(BGl_string2926z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_39);} 
{ /* Ieee/port.scm 835 */
 bool_t BgL_test3674z00_5769;
{ /* Ieee/port.scm 835 */
 obj_t BgL_arg2076z00_2674;
BgL_arg2076z00_2674 = 
BGL_EXITD_PROTECT(BgL_exitd1091z00_1567); 
BgL_test3674z00_5769 = 
PAIRP(BgL_arg2076z00_2674); } 
if(BgL_test3674z00_5769)
{ /* Ieee/port.scm 835 */
 obj_t BgL_arg2074z00_2675;
{ /* Ieee/port.scm 835 */
 obj_t BgL_arg2075z00_2676;
BgL_arg2075z00_2676 = 
BGL_EXITD_PROTECT(BgL_exitd1091z00_1567); 
{ /* Ieee/port.scm 835 */
 obj_t BgL_pairz00_2677;
if(
PAIRP(BgL_arg2075z00_2676))
{ /* Ieee/port.scm 835 */
BgL_pairz00_2677 = BgL_arg2075z00_2676; }  else 
{ 
 obj_t BgL_auxz00_5775;
BgL_auxz00_5775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37307L), BGl_string2925z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2676); 
FAILURE(BgL_auxz00_5775,BFALSE,BFALSE);} 
BgL_arg2074z00_2675 = 
CDR(BgL_pairz00_2677); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1091z00_1567, BgL_arg2074z00_2675); BUNSPEC; }  else 
{ /* Ieee/port.scm 835 */BFALSE; } } 
BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31458ze3z87_3601); BgL_tmp1093z00_1569; } } } 
return 
BGL_UNSAFE_CELL_REF(BgL_resz00_3615);} } } } } } 

}



/* &with-output-to-procedure */
obj_t BGl_z62withzd2outputzd2tozd2procedurezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3604, obj_t BgL_procz00_3605, obj_t BgL_thunkz00_3606)
{
{ /* Ieee/port.scm 830 */
{ /* Ieee/port.scm 831 */
 obj_t BgL_auxz00_5789; obj_t BgL_auxz00_5782;
if(
PROCEDUREP(BgL_thunkz00_3606))
{ /* Ieee/port.scm 831 */
BgL_auxz00_5789 = BgL_thunkz00_3606
; }  else 
{ 
 obj_t BgL_auxz00_5792;
BgL_auxz00_5792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37152L), BGl_string2927z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3606); 
FAILURE(BgL_auxz00_5792,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_procz00_3605))
{ /* Ieee/port.scm 831 */
BgL_auxz00_5782 = BgL_procz00_3605
; }  else 
{ 
 obj_t BgL_auxz00_5785;
BgL_auxz00_5785 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37152L), BGl_string2927z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3605); 
FAILURE(BgL_auxz00_5785,BFALSE,BFALSE);} 
return 
BGl_withzd2outputzd2tozd2procedurezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5782, BgL_auxz00_5789);} } 

}



/* &<@anonymous:1458> */
obj_t BGl_z62zc3z04anonymousza31458ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3607)
{
{ /* Ieee/port.scm 835 */
{ /* Ieee/port.scm 840 */
 obj_t BgL_denvz00_3608; obj_t BgL_oldzd2outputzd2portz00_3609; obj_t BgL_portz00_3610; obj_t BgL_resz00_3611;
BgL_denvz00_3608 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3607, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3609 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3607, 
(int)(1L))); 
BgL_portz00_3610 = 
PROCEDURE_REF(BgL_envz00_3607, 
(int)(2L)); 
BgL_resz00_3611 = 
PROCEDURE_REF(BgL_envz00_3607, 
(int)(3L)); 
BGL_ENV_CURRENT_OUTPUT_PORT_SET(BgL_denvz00_3608, BgL_oldzd2outputzd2portz00_3609); BUNSPEC; 
{ /* Ieee/port.scm 841 */
 obj_t BgL_auxz00_4681;
{ /* Ieee/port.scm 841 */
 obj_t BgL_portz00_4682;
if(
OUTPUT_PORTP(BgL_portz00_3610))
{ /* Ieee/port.scm 841 */
BgL_portz00_4682 = BgL_portz00_3610; }  else 
{ 
 obj_t BgL_auxz00_5810;
BgL_auxz00_5810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37488L), BGl_string2928z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3610); 
FAILURE(BgL_auxz00_5810,BFALSE,BFALSE);} 
BgL_auxz00_4681 = 
bgl_close_output_port(BgL_portz00_4682); } 
return 
BGL_UNSAFE_CELL_SET(BgL_resz00_3611, BgL_auxz00_4681);} } } 

}



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

}



/* &flush */
obj_t BGl_z62flushz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3614)
{
{ /* 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_string2874z00zz__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_3626;
BgL_resz00_3626 = 
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_3617;
BgL_zc3z04anonymousza31462ze3z87_3617 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3617, 
(int)(0L), BgL_denvz00_1582); 
PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3617, 
(int)(1L), BgL_oldzd2errorzd2portz00_1583); 
PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3617, 
(int)(2L), BgL_portz00_1580); 
PROCEDURE_SET(BgL_zc3z04anonymousza31462ze3z87_3617, 
(int)(3L), 
((obj_t)BgL_resz00_3626)); 
{ /* Ieee/port.scm 853 */
 obj_t BgL_arg2077z00_2680;
{ /* Ieee/port.scm 853 */
 obj_t BgL_arg2078z00_2681;
BgL_arg2078z00_2681 = 
BGL_EXITD_PROTECT(BgL_exitd1095z00_1585); 
BgL_arg2077z00_2680 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31462ze3z87_3617, BgL_arg2078z00_2681); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1095z00_1585, BgL_arg2077z00_2680); BUNSPEC; } 
{ /* Ieee/port.scm 855 */
 obj_t BgL_tmp1097z00_1587;
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1582, BgL_portz00_1580); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_40, 0))
{ /* Ieee/port.scm 856 */
BgL_tmp1097z00_1587 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_40); }  else 
{ /* Ieee/port.scm 856 */
FAILURE(BGl_string2929z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_40);} 
{ /* Ieee/port.scm 853 */
 bool_t BgL_test3680z00_5845;
{ /* Ieee/port.scm 853 */
 obj_t BgL_arg2076z00_2683;
BgL_arg2076z00_2683 = 
BGL_EXITD_PROTECT(BgL_exitd1095z00_1585); 
BgL_test3680z00_5845 = 
PAIRP(BgL_arg2076z00_2683); } 
if(BgL_test3680z00_5845)
{ /* Ieee/port.scm 853 */
 obj_t BgL_arg2074z00_2684;
{ /* Ieee/port.scm 853 */
 obj_t BgL_arg2075z00_2685;
BgL_arg2075z00_2685 = 
BGL_EXITD_PROTECT(BgL_exitd1095z00_1585); 
{ /* Ieee/port.scm 853 */
 obj_t BgL_pairz00_2686;
if(
PAIRP(BgL_arg2075z00_2685))
{ /* Ieee/port.scm 853 */
BgL_pairz00_2686 = BgL_arg2075z00_2685; }  else 
{ 
 obj_t BgL_auxz00_5851;
BgL_auxz00_5851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37954L), BGl_string2930z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2685); 
FAILURE(BgL_auxz00_5851,BFALSE,BFALSE);} 
BgL_arg2074z00_2684 = 
CDR(BgL_pairz00_2686); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1095z00_1585, BgL_arg2074z00_2684); BUNSPEC; }  else 
{ /* Ieee/port.scm 853 */BFALSE; } } 
BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31462ze3z87_3617); BgL_tmp1097z00_1587; } } } 
{ /* Ieee/port.scm 860 */
 obj_t BgL_aux2260z00_4042;
BgL_aux2260z00_4042 = 
BGL_UNSAFE_CELL_REF(BgL_resz00_3626); 
if(
STRINGP(BgL_aux2260z00_4042))
{ /* Ieee/port.scm 860 */
return BgL_aux2260z00_4042;}  else 
{ 
 obj_t BgL_auxz00_5860;
BgL_auxz00_5860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(38147L), BGl_string2930z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2260z00_4042); 
FAILURE(BgL_auxz00_5860,BFALSE,BFALSE);} } } } } } } } 

}



/* &with-error-to-string */
obj_t BGl_z62withzd2errorzd2tozd2stringzb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3618, obj_t BgL_thunkz00_3619)
{
{ /* Ieee/port.scm 847 */
{ /* Ieee/port.scm 848 */
 obj_t BgL_auxz00_5864;
if(
PROCEDUREP(BgL_thunkz00_3619))
{ /* Ieee/port.scm 848 */
BgL_auxz00_5864 = BgL_thunkz00_3619
; }  else 
{ 
 obj_t BgL_auxz00_5867;
BgL_auxz00_5867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(37772L), BGl_string2931z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3619); 
FAILURE(BgL_auxz00_5867,BFALSE,BFALSE);} 
return 
BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5864);} } 

}



/* &<@anonymous:1462> */
obj_t BGl_z62zc3z04anonymousza31462ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3620)
{
{ /* Ieee/port.scm 853 */
{ /* Ieee/port.scm 858 */
 obj_t BgL_denvz00_3621; obj_t BgL_oldzd2errorzd2portz00_3622; obj_t BgL_portz00_3623; obj_t BgL_resz00_3624;
BgL_denvz00_3621 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3620, 
(int)(0L))); 
BgL_oldzd2errorzd2portz00_3622 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3620, 
(int)(1L))); 
BgL_portz00_3623 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3620, 
(int)(2L))); 
BgL_resz00_3624 = 
PROCEDURE_REF(BgL_envz00_3620, 
(int)(3L)); 
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3621, BgL_oldzd2errorzd2portz00_3622); BUNSPEC; 
{ /* Ieee/port.scm 859 */
 obj_t BgL_auxz00_4683;
BgL_auxz00_4683 = 
bgl_close_output_port(BgL_portz00_3623); 
return 
BGL_UNSAFE_CELL_SET(BgL_resz00_3624, BgL_auxz00_4683);} } } 

}



/* 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_string2874z00zz__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_3628;
BgL_zc3z04anonymousza31464ze3z87_3628 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31464ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31464ze3z87_3628, 
(int)(0L), BgL_denvz00_1593); 
PROCEDURE_SET(BgL_zc3z04anonymousza31464ze3z87_3628, 
(int)(1L), BgL_oldzd2outputzd2portz00_1594); 
PROCEDURE_SET(BgL_zc3z04anonymousza31464ze3z87_3628, 
(int)(2L), BgL_portz00_1591); 
{ /* Ieee/port.scm 874 */
 obj_t BgL_arg2077z00_2690;
{ /* Ieee/port.scm 874 */
 obj_t BgL_arg2078z00_2691;
BgL_arg2078z00_2691 = 
BGL_EXITD_PROTECT(BgL_exitd1099z00_1595); 
BgL_arg2077z00_2690 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31464ze3z87_3628, BgL_arg2078z00_2691); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1099z00_1595, BgL_arg2077z00_2690); BUNSPEC; } 
{ /* Ieee/port.scm 876 */
 obj_t BgL_tmp1101z00_1597;
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1593, BgL_portz00_1591); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_42, 0))
{ /* Ieee/port.scm 877 */
BgL_tmp1101z00_1597 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_42); }  else 
{ /* Ieee/port.scm 877 */
FAILURE(BGl_string2932z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_42);} 
{ /* Ieee/port.scm 874 */
 bool_t BgL_test3686z00_5912;
{ /* Ieee/port.scm 874 */
 obj_t BgL_arg2076z00_2693;
BgL_arg2076z00_2693 = 
BGL_EXITD_PROTECT(BgL_exitd1099z00_1595); 
BgL_test3686z00_5912 = 
PAIRP(BgL_arg2076z00_2693); } 
if(BgL_test3686z00_5912)
{ /* Ieee/port.scm 874 */
 obj_t BgL_arg2074z00_2694;
{ /* Ieee/port.scm 874 */
 obj_t BgL_arg2075z00_2695;
BgL_arg2075z00_2695 = 
BGL_EXITD_PROTECT(BgL_exitd1099z00_1595); 
{ /* Ieee/port.scm 874 */
 obj_t BgL_pairz00_2696;
if(
PAIRP(BgL_arg2075z00_2695))
{ /* Ieee/port.scm 874 */
BgL_pairz00_2696 = BgL_arg2075z00_2695; }  else 
{ 
 obj_t BgL_auxz00_5918;
BgL_auxz00_5918 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(38709L), BGl_string2933z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2695); 
FAILURE(BgL_auxz00_5918,BFALSE,BFALSE);} 
BgL_arg2074z00_2694 = 
CDR(BgL_pairz00_2696); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1099z00_1595, BgL_arg2074z00_2694); BUNSPEC; }  else 
{ /* Ieee/port.scm 874 */BFALSE; } } 
BGl_z62zc3z04anonymousza31464ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31464ze3z87_3628); 
return BgL_tmp1101z00_1597;} } } } } }  else 
{ /* Ieee/port.scm 871 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_symbol2934z00zz__r4_ports_6_10_1z00, BGl_string2867z00zz__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_3629, obj_t BgL_stringz00_3630, obj_t BgL_thunkz00_3631)
{
{ /* Ieee/port.scm 869 */
{ /* Ieee/port.scm 870 */
 obj_t BgL_auxz00_5933; obj_t BgL_auxz00_5926;
if(
PROCEDUREP(BgL_thunkz00_3631))
{ /* Ieee/port.scm 870 */
BgL_auxz00_5933 = BgL_thunkz00_3631
; }  else 
{ 
 obj_t BgL_auxz00_5936;
BgL_auxz00_5936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(38543L), BGl_string2935z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3631); 
FAILURE(BgL_auxz00_5936,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3630))
{ /* Ieee/port.scm 870 */
BgL_auxz00_5926 = BgL_stringz00_3630
; }  else 
{ 
 obj_t BgL_auxz00_5929;
BgL_auxz00_5929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(38543L), BGl_string2935z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3630); 
FAILURE(BgL_auxz00_5929,BFALSE,BFALSE);} 
return 
BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_5926, BgL_auxz00_5933);} } 

}



/* &<@anonymous:1464> */
obj_t BGl_z62zc3z04anonymousza31464ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3632)
{
{ /* Ieee/port.scm 874 */
{ /* Ieee/port.scm 879 */
 obj_t BgL_denvz00_3633; obj_t BgL_oldzd2outputzd2portz00_3634; obj_t BgL_portz00_3635;
BgL_denvz00_3633 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3632, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3634 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3632, 
(int)(1L))); 
BgL_portz00_3635 = 
PROCEDURE_REF(BgL_envz00_3632, 
(int)(2L)); 
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3633, BgL_oldzd2outputzd2portz00_3634); BUNSPEC; 
{ /* Ieee/port.scm 880 */
 obj_t BgL_portz00_4684;
if(
OUTPUT_PORTP(BgL_portz00_3635))
{ /* Ieee/port.scm 880 */
BgL_portz00_4684 = BgL_portz00_3635; }  else 
{ 
 obj_t BgL_auxz00_5952;
BgL_auxz00_5952 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(38878L), BGl_string2936z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3635); 
FAILURE(BgL_auxz00_5952,BFALSE,BFALSE);} 
return 
bgl_close_output_port(BgL_portz00_4684);} } } 

}



/* 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_3636;
BgL_zc3z04anonymousza31465ze3z87_3636 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31465ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31465ze3z87_3636, 
(int)(0L), BgL_denvz00_1602); 
PROCEDURE_SET(BgL_zc3z04anonymousza31465ze3z87_3636, 
(int)(1L), BgL_oldzd2outputzd2portz00_1603); 
{ /* Ieee/port.scm 892 */
 obj_t BgL_arg2077z00_2697;
{ /* Ieee/port.scm 892 */
 obj_t BgL_arg2078z00_2698;
BgL_arg2078z00_2698 = 
BGL_EXITD_PROTECT(BgL_exitd1103z00_1604); 
BgL_arg2077z00_2697 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31465ze3z87_3636, BgL_arg2078z00_2698); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_1604, BgL_arg2077z00_2697); BUNSPEC; } 
{ /* Ieee/port.scm 894 */
 obj_t BgL_tmp1105z00_1606;
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1602, BgL_portz00_43); BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_44, 0))
{ /* Ieee/port.scm 895 */
BgL_tmp1105z00_1606 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_44); }  else 
{ /* Ieee/port.scm 895 */
FAILURE(BGl_string2937z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_44);} 
{ /* Ieee/port.scm 892 */
 bool_t BgL_test3692z00_5977;
{ /* Ieee/port.scm 892 */
 obj_t BgL_arg2076z00_2700;
BgL_arg2076z00_2700 = 
BGL_EXITD_PROTECT(BgL_exitd1103z00_1604); 
BgL_test3692z00_5977 = 
PAIRP(BgL_arg2076z00_2700); } 
if(BgL_test3692z00_5977)
{ /* Ieee/port.scm 892 */
 obj_t BgL_arg2074z00_2701;
{ /* Ieee/port.scm 892 */
 obj_t BgL_arg2075z00_2702;
BgL_arg2075z00_2702 = 
BGL_EXITD_PROTECT(BgL_exitd1103z00_1604); 
{ /* Ieee/port.scm 892 */
 obj_t BgL_pairz00_2703;
if(
PAIRP(BgL_arg2075z00_2702))
{ /* Ieee/port.scm 892 */
BgL_pairz00_2703 = BgL_arg2075z00_2702; }  else 
{ 
 obj_t BgL_auxz00_5983;
BgL_auxz00_5983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39359L), BGl_string2938z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2702); 
FAILURE(BgL_auxz00_5983,BFALSE,BFALSE);} 
BgL_arg2074z00_2701 = 
CDR(BgL_pairz00_2703); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_1604, BgL_arg2074z00_2701); 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_3637, obj_t BgL_portz00_3638, obj_t BgL_thunkz00_3639)
{
{ /* Ieee/port.scm 889 */
{ /* Ieee/port.scm 890 */
 obj_t BgL_auxz00_5997; obj_t BgL_auxz00_5990;
if(
PROCEDUREP(BgL_thunkz00_3639))
{ /* Ieee/port.scm 890 */
BgL_auxz00_5997 = BgL_thunkz00_3639
; }  else 
{ 
 obj_t BgL_auxz00_6000;
BgL_auxz00_6000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39266L), BGl_string2939z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3639); 
FAILURE(BgL_auxz00_6000,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3638))
{ /* Ieee/port.scm 890 */
BgL_auxz00_5990 = BgL_portz00_3638
; }  else 
{ 
 obj_t BgL_auxz00_5993;
BgL_auxz00_5993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39266L), BGl_string2939z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3638); 
FAILURE(BgL_auxz00_5993,BFALSE,BFALSE);} 
return 
BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_5990, BgL_auxz00_5997);} } 

}



/* &<@anonymous:1465> */
obj_t BGl_z62zc3z04anonymousza31465ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3640)
{
{ /* Ieee/port.scm 892 */
{ 
 obj_t BgL_denvz00_3641; obj_t BgL_oldzd2outputzd2portz00_3642;
BgL_denvz00_3641 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3640, 
(int)(0L))); 
BgL_oldzd2outputzd2portz00_3642 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3640, 
(int)(1L))); 
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3641, BgL_oldzd2outputzd2portz00_3642); 
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_proc2940z00zz__r4_ports_6_10_1z00, BTRUE, BGl_proc2941z00zz__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_3657;
BgL_resz00_3657 = 
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_3643;
BgL_zc3z04anonymousza31466ze3z87_3643 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00, 
(int)(0L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3643, 
(int)(0L), BgL_denvz00_1610); 
PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3643, 
(int)(1L), BgL_oldzd2errorzd2portz00_1611); 
PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3643, 
(int)(2L), BgL_portz00_1609); 
PROCEDURE_SET(BgL_zc3z04anonymousza31466ze3z87_3643, 
(int)(3L), 
((obj_t)BgL_resz00_3657)); 
{ /* Ieee/port.scm 906 */
 obj_t BgL_arg2077z00_2705;
{ /* Ieee/port.scm 906 */
 obj_t BgL_arg2078z00_2706;
BgL_arg2078z00_2706 = 
BGL_EXITD_PROTECT(BgL_exitd1107z00_1613); 
BgL_arg2077z00_2705 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31466ze3z87_3643, BgL_arg2078z00_2706); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1107z00_1613, BgL_arg2077z00_2705); BUNSPEC; } 
{ /* Ieee/port.scm 908 */
 obj_t BgL_tmp1109z00_1615;
{ /* Ieee/port.scm 908 */
 obj_t BgL_tmpz00_6031;
if(
OUTPUT_PORTP(BgL_portz00_1609))
{ /* Ieee/port.scm 908 */
BgL_tmpz00_6031 = BgL_portz00_1609
; }  else 
{ 
 obj_t BgL_auxz00_6034;
BgL_auxz00_6034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39981L), BGl_string2942z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_1609); 
FAILURE(BgL_auxz00_6034,BFALSE,BFALSE);} 
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_1610, BgL_tmpz00_6031); } BUNSPEC; 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_46, 0))
{ /* Ieee/port.scm 909 */
BgL_tmp1109z00_1615 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_46); }  else 
{ /* Ieee/port.scm 909 */
FAILURE(BGl_string2943z00zz__r4_ports_6_10_1z00,BGl_list2893z00zz__r4_ports_6_10_1z00,BgL_thunkz00_46);} 
{ /* Ieee/port.scm 906 */
 bool_t BgL_test3698z00_6045;
{ /* Ieee/port.scm 906 */
 obj_t BgL_arg2076z00_2708;
BgL_arg2076z00_2708 = 
BGL_EXITD_PROTECT(BgL_exitd1107z00_1613); 
BgL_test3698z00_6045 = 
PAIRP(BgL_arg2076z00_2708); } 
if(BgL_test3698z00_6045)
{ /* Ieee/port.scm 906 */
 obj_t BgL_arg2074z00_2709;
{ /* Ieee/port.scm 906 */
 obj_t BgL_arg2075z00_2710;
BgL_arg2075z00_2710 = 
BGL_EXITD_PROTECT(BgL_exitd1107z00_1613); 
{ /* Ieee/port.scm 906 */
 obj_t BgL_pairz00_2711;
if(
PAIRP(BgL_arg2075z00_2710))
{ /* Ieee/port.scm 906 */
BgL_pairz00_2711 = BgL_arg2075z00_2710; }  else 
{ 
 obj_t BgL_auxz00_6051;
BgL_auxz00_6051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39919L), BGl_string2942z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2710); 
FAILURE(BgL_auxz00_6051,BFALSE,BFALSE);} 
BgL_arg2074z00_2709 = 
CDR(BgL_pairz00_2711); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1107z00_1613, BgL_arg2074z00_2709); BUNSPEC; }  else 
{ /* Ieee/port.scm 906 */BFALSE; } } 
BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00(BgL_zc3z04anonymousza31466ze3z87_3643); BgL_tmp1109z00_1615; } } } 
return 
BGL_UNSAFE_CELL_REF(BgL_resz00_3657);} } } } } } 

}



/* &with-error-to-procedure */
obj_t BGl_z62withzd2errorzd2tozd2procedurezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3646, obj_t BgL_procz00_3647, obj_t BgL_thunkz00_3648)
{
{ /* Ieee/port.scm 901 */
{ /* Ieee/port.scm 902 */
 obj_t BgL_auxz00_6065; obj_t BgL_auxz00_6058;
if(
PROCEDUREP(BgL_thunkz00_3648))
{ /* Ieee/port.scm 902 */
BgL_auxz00_6065 = BgL_thunkz00_3648
; }  else 
{ 
 obj_t BgL_auxz00_6068;
BgL_auxz00_6068 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39766L), BGl_string2944z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_thunkz00_3648); 
FAILURE(BgL_auxz00_6068,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_procz00_3647))
{ /* Ieee/port.scm 902 */
BgL_auxz00_6058 = BgL_procz00_3647
; }  else 
{ 
 obj_t BgL_auxz00_6061;
BgL_auxz00_6061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(39766L), BGl_string2944z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3647); 
FAILURE(BgL_auxz00_6061,BFALSE,BFALSE);} 
return 
BGl_withzd2errorzd2tozd2procedurezd2zz__r4_ports_6_10_1z00(BgL_auxz00_6058, BgL_auxz00_6065);} } 

}



/* &<@anonymous:1466> */
obj_t BGl_z62zc3z04anonymousza31466ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3649)
{
{ /* Ieee/port.scm 906 */
{ /* Ieee/port.scm 911 */
 obj_t BgL_denvz00_3650; obj_t BgL_oldzd2errorzd2portz00_3651; obj_t BgL_portz00_3652; obj_t BgL_resz00_3653;
BgL_denvz00_3650 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3649, 
(int)(0L))); 
BgL_oldzd2errorzd2portz00_3651 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3649, 
(int)(1L))); 
BgL_portz00_3652 = 
PROCEDURE_REF(BgL_envz00_3649, 
(int)(2L)); 
BgL_resz00_3653 = 
PROCEDURE_REF(BgL_envz00_3649, 
(int)(3L)); 
BGL_ENV_CURRENT_ERROR_PORT_SET(BgL_denvz00_3650, BgL_oldzd2errorzd2portz00_3651); BUNSPEC; 
{ /* Ieee/port.scm 912 */
 obj_t BgL_auxz00_4685;
{ /* Ieee/port.scm 912 */
 obj_t BgL_portz00_4686;
if(
OUTPUT_PORTP(BgL_portz00_3652))
{ /* Ieee/port.scm 912 */
BgL_portz00_4686 = BgL_portz00_3652; }  else 
{ 
 obj_t BgL_auxz00_6086;
BgL_auxz00_6086 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(40097L), BGl_string2945z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3652); 
FAILURE(BgL_auxz00_6086,BFALSE,BFALSE);} 
BgL_auxz00_4685 = 
bgl_close_output_port(BgL_portz00_4686); } 
return 
BGL_UNSAFE_CELL_SET(BgL_resz00_3653, BgL_auxz00_4685);} } } 

}



/* &close2106 */
obj_t BGl_z62close2106z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3655)
{
{ /* Ieee/port.scm 486 */
return 
BBOOL(((bool_t)0));} 

}



/* &flush2107 */
obj_t BGl_z62flush2107z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3656)
{
{ /* 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_1627;
{ /* Ieee/port.scm 947 */
 obj_t BgL_top3704z00_6094;
BgL_top3704z00_6094 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00); 
BGL_EXITD_PUSH_PROTECT(BgL_top3704z00_6094, BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00); BUNSPEC; 
{ /* Ieee/port.scm 947 */
 obj_t BgL_tmp3703z00_6093;
{ /* Ieee/port.scm 948 */
 obj_t BgL_auxz00_6098;
{ /* Ieee/port.scm 948 */
 obj_t BgL_aux2291z00_4076;
BgL_aux2291z00_4076 = BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00; 
{ /* Ieee/port.scm 948 */
 bool_t BgL_test3705z00_6099;
if(
PAIRP(BgL_aux2291z00_4076))
{ /* Ieee/port.scm 948 */
BgL_test3705z00_6099 = ((bool_t)1)
; }  else 
{ /* Ieee/port.scm 948 */
BgL_test3705z00_6099 = 
NULLP(BgL_aux2291z00_4076)
; } 
if(BgL_test3705z00_6099)
{ /* Ieee/port.scm 948 */
BgL_auxz00_6098 = BgL_aux2291z00_4076
; }  else 
{ 
 obj_t BgL_auxz00_6103;
BgL_auxz00_6103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(41815L), BGl_string2946z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_aux2291z00_4076); 
FAILURE(BgL_auxz00_6103,BFALSE,BFALSE);} } } 
BgL_tmp3703z00_6093 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_prototcolz00_47, BgL_auxz00_6098); } 
BGL_EXITD_POP_PROTECT(BgL_top3704z00_6094); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00); 
BgL_cellz00_1627 = BgL_tmp3703z00_6093; } } 
if(
PAIRP(BgL_cellz00_1627))
{ /* Ieee/port.scm 949 */
return 
CDR(BgL_cellz00_1627);}  else 
{ /* Ieee/port.scm 949 */
return BFALSE;} } } 

}



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

}



/* 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_top3709z00_6115;
BgL_top3709z00_6115 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00); 
BGL_EXITD_PUSH_PROTECT(BgL_top3709z00_6115, BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00); BUNSPEC; 
{ /* Ieee/port.scm 957 */
 obj_t BgL_tmp3708z00_6114;
{ /* Ieee/port.scm 958 */
 bool_t BgL_test3710z00_6119;
if(
PROCEDUREP(BgL_openz00_49))
{ /* Ieee/port.scm 958 */
BgL_test3710z00_6119 = 
PROCEDURE_CORRECT_ARITYP(BgL_openz00_49, 
(int)(3L))
; }  else 
{ /* Ieee/port.scm 958 */
BgL_test3710z00_6119 = ((bool_t)0)
; } 
if(BgL_test3710z00_6119)
{ /* Ieee/port.scm 958 */BFALSE; }  else 
{ /* Ieee/port.scm 958 */
BGl_errorz00zz__errorz00(BGl_string2948z00zz__r4_ports_6_10_1z00, BGl_string2949z00zz__r4_ports_6_10_1z00, BgL_protocolz00_48); } } 
{ /* Ieee/port.scm 962 */
 obj_t BgL_cz00_1632;
{ /* Ieee/port.scm 962 */
 obj_t BgL_auxz00_6125;
{ /* Ieee/port.scm 962 */
 obj_t BgL_aux2293z00_4078;
BgL_aux2293z00_4078 = BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00; 
{ /* Ieee/port.scm 962 */
 bool_t BgL_test3712z00_6126;
if(
PAIRP(BgL_aux2293z00_4078))
{ /* Ieee/port.scm 962 */
BgL_test3712z00_6126 = ((bool_t)1)
; }  else 
{ /* Ieee/port.scm 962 */
BgL_test3712z00_6126 = 
NULLP(BgL_aux2293z00_4078)
; } 
if(BgL_test3712z00_6126)
{ /* Ieee/port.scm 962 */
BgL_auxz00_6125 = BgL_aux2293z00_4078
; }  else 
{ 
 obj_t BgL_auxz00_6130;
BgL_auxz00_6130 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(42393L), BGl_string2948z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_aux2293z00_4078); 
FAILURE(BgL_auxz00_6130,BFALSE,BFALSE);} } } 
BgL_cz00_1632 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_protocolz00_48, BgL_auxz00_6125); } 
if(
PAIRP(BgL_cz00_1632))
{ /* Ieee/port.scm 963 */
BgL_tmp3708z00_6114 = 
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_tmp3708z00_6114 = ( 
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_top3709z00_6115); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_za2inputzd2portzd2protocolszd2mutexza2zd2zz__r4_ports_6_10_1z00); BgL_tmp3708z00_6114; } } 
return BgL_openz00_49;} 

}



/* &input-port-protocol-set! */
obj_t BGl_z62inputzd2portzd2protocolzd2setz12za2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3661, obj_t BgL_protocolz00_3662, obj_t BgL_openz00_3663)
{
{ /* Ieee/port.scm 956 */
return 
BGl_inputzd2portzd2protocolzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_protocolz00_3662, BgL_openz00_3663);} 

}



/* 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 985 */
 obj_t BgL_aux2295z00_4080;
BgL_aux2295z00_4080 = 
BGl_errorz00zz__errorz00(BgL_whoz00_50, BGl_string2950z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_51); 
if(
STRINGP(BgL_aux2295z00_4080))
{ /* Ieee/port.scm 985 */
return BgL_aux2295z00_4080;}  else 
{ 
 obj_t BgL_auxz00_6163;
BgL_auxz00_6163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43135L), BGl_string2951z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2295z00_4080); 
FAILURE(BgL_auxz00_6163,BFALSE,BFALSE);} } } } } } 

}



/* &get-port-buffer */
obj_t BGl_z62getzd2portzd2bufferz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3664, obj_t BgL_whoz00_3665, obj_t BgL_bufinfoz00_3666, obj_t BgL_defsiza7za7_3667)
{
{ /* Ieee/port.scm 972 */
{ /* Ieee/port.scm 974 */
 int BgL_auxz00_6167;
{ /* Ieee/port.scm 974 */
 obj_t BgL_tmpz00_6168;
if(
INTEGERP(BgL_defsiza7za7_3667))
{ /* Ieee/port.scm 974 */
BgL_tmpz00_6168 = BgL_defsiza7za7_3667
; }  else 
{ 
 obj_t BgL_auxz00_6171;
BgL_auxz00_6171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(42843L), BGl_string2952z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_defsiza7za7_3667); 
FAILURE(BgL_auxz00_6171,BFALSE,BFALSE);} 
BgL_auxz00_6167 = 
CINT(BgL_tmpz00_6168); } 
return 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BgL_whoz00_3665, BgL_bufinfoz00_3666, BgL_auxz00_6167);} } 

}



/* &%open-input-file */
obj_t BGl_z62z52openzd2inputzd2filez30zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3453, obj_t BgL_stringz00_3454, obj_t BgL_bufz00_3455, obj_t BgL_tmtz00_3456)
{
{ /* Ieee/port.scm 990 */
{ /* Ieee/port.scm 991 */
 obj_t BgL_auxz00_6184; obj_t BgL_tmpz00_6177;
if(
STRINGP(BgL_bufz00_3455))
{ /* Ieee/port.scm 991 */
BgL_auxz00_6184 = BgL_bufz00_3455
; }  else 
{ 
 obj_t BgL_auxz00_6187;
BgL_auxz00_6187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43468L), BGl_string2954z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_bufz00_3455); 
FAILURE(BgL_auxz00_6187,BFALSE,BFALSE);} 
if(
STRINGP(BgL_stringz00_3454))
{ /* Ieee/port.scm 991 */
BgL_tmpz00_6177 = BgL_stringz00_3454
; }  else 
{ 
 obj_t BgL_auxz00_6180;
BgL_auxz00_6180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43461L), BGl_string2954z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3454); 
FAILURE(BgL_auxz00_6180,BFALSE,BFALSE);} 
return 
bgl_open_input_file(BgL_tmpz00_6177, BgL_auxz00_6184);} } 

}



/* &%open-input-descriptor */
obj_t BGl_z62z52openzd2inputzd2descriptorz30zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3485, obj_t BgL_stringz00_3486, obj_t BgL_bufz00_3487, obj_t BgL_tmtz00_3488)
{
{ /* Ieee/port.scm 996 */
{ /* Ieee/port.scm 997 */
 long BgL_fdz00_4689;
{ /* Ieee/port.scm 997 */
 obj_t BgL_arg1479z00_4690;
{ /* Ieee/port.scm 997 */
 long BgL_endz00_4691;
{ /* Ieee/port.scm 997 */
 obj_t BgL_stringz00_4692;
if(
STRINGP(BgL_stringz00_3486))
{ /* Ieee/port.scm 997 */
BgL_stringz00_4692 = BgL_stringz00_3486; }  else 
{ 
 obj_t BgL_auxz00_6194;
BgL_auxz00_6194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43775L), BGl_string2955z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3486); 
FAILURE(BgL_auxz00_6194,BFALSE,BFALSE);} 
BgL_endz00_4691 = 
STRING_LENGTH(BgL_stringz00_4692); } 
{ /* Ieee/port.scm 997 */

{ /* Ieee/port.scm 997 */
 obj_t BgL_auxz00_6199;
if(
STRINGP(BgL_stringz00_3486))
{ /* Ieee/port.scm 997 */
BgL_auxz00_6199 = BgL_stringz00_3486
; }  else 
{ 
 obj_t BgL_auxz00_6202;
BgL_auxz00_6202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43775L), BGl_string2955z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3486); 
FAILURE(BgL_auxz00_6202,BFALSE,BFALSE);} 
BgL_arg1479z00_4690 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6199, 3L, BgL_endz00_4691); } } } 
{ /* Ieee/port.scm 997 */
 char * BgL_tmpz00_6207;
BgL_tmpz00_6207 = 
BSTRING_TO_STRING(BgL_arg1479z00_4690); 
BgL_fdz00_4689 = 
BGL_STRTOL(BgL_tmpz00_6207, 0L, 10L); } } 
{ /* Ieee/port.scm 998 */
 obj_t BgL_tmpz00_6210;
if(
STRINGP(BgL_bufz00_3487))
{ /* Ieee/port.scm 998 */
BgL_tmpz00_6210 = BgL_bufz00_3487
; }  else 
{ 
 obj_t BgL_auxz00_6214;
BgL_auxz00_6214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43832L), BGl_string2955z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_bufz00_3487); 
FAILURE(BgL_auxz00_6214,BFALSE,BFALSE);} 
return 
bgl_open_input_descriptor(
(int)(BgL_fdz00_4689), BgL_tmpz00_6210);} } } 

}



/* &%open-input-pipe */
obj_t BGl_z62z52openzd2inputzd2pipez30zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3457, obj_t BgL_stringz00_3458, obj_t BgL_bufinfoz00_3459, obj_t BgL_tmtz00_3460)
{
{ /* Ieee/port.scm 1003 */
{ /* Ieee/port.scm 1004 */
 obj_t BgL_bufz00_4694;
BgL_bufz00_4694 = 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2956z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_3459, 
(int)(1024L)); 
{ /* Ieee/port.scm 1005 */
 obj_t BgL_tmpz00_6221;
if(
STRINGP(BgL_stringz00_3458))
{ /* Ieee/port.scm 1005 */
BgL_tmpz00_6221 = BgL_stringz00_3458
; }  else 
{ 
 obj_t BgL_auxz00_6224;
BgL_auxz00_6224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(44204L), BGl_string2957z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3458); 
FAILURE(BgL_auxz00_6224,BFALSE,BFALSE);} 
return 
bgl_open_input_pipe(BgL_tmpz00_6221, BgL_bufz00_4694);} } } 

}



/* &%open-input-resource */
obj_t BGl_z62z52openzd2inputzd2resourcez30zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3477, obj_t BgL_filez00_3478, obj_t BgL_bufinfoz00_3479, obj_t BgL_tmtz00_3480)
{
{ /* Ieee/port.scm 1010 */
{ /* Ieee/port.scm 1011 */
 obj_t BgL_bufz00_4695;
BgL_bufz00_4695 = 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2958z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_3479, 
(int)(default_io_bufsiz)); 
{ /* Ieee/port.scm 1012 */
 obj_t BgL_tmpz00_6231;
if(
STRINGP(BgL_filez00_3478))
{ /* Ieee/port.scm 1012 */
BgL_tmpz00_6231 = BgL_filez00_3478
; }  else 
{ 
 obj_t BgL_auxz00_6234;
BgL_auxz00_6234 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(44597L), BGl_string2959z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3478); 
FAILURE(BgL_auxz00_6234,BFALSE,BFALSE);} 
return 
bgl_open_input_resource(BgL_tmpz00_6231, BgL_bufz00_4695);} } } 

}



/* &%open-input-http-socket */
obj_t BGl_z62z52openzd2inputzd2httpzd2socketze2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3461, obj_t BgL_stringz00_3462, obj_t BgL_bufinfoz00_3463, obj_t BgL_timeoutz00_3464)
{
{ /* Ieee/port.scm 1017 */
{ /* Ieee/port.scm 1031 */
 obj_t BgL_protocolz00_4697;
BgL_protocolz00_4697 = 
BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(BgL_stringz00_3462, BGl_string2961z00zz__r4_ports_6_10_1z00); 
{ /* Ieee/port.scm 1032 */
 obj_t BgL_loginz00_4698; obj_t BgL_hostz00_4699; obj_t BgL_portz00_4700; obj_t BgL_abspathz00_4701;
{ /* Ieee/port.scm 1033 */
 obj_t BgL_tmpz00_4702;
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6240;
BgL_tmpz00_6240 = 
(int)(1L); 
BgL_tmpz00_4702 = 
BGL_MVALUES_VAL(BgL_tmpz00_6240); } 
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6243;
BgL_tmpz00_6243 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6243, BUNSPEC); } 
BgL_loginz00_4698 = BgL_tmpz00_4702; } 
{ /* Ieee/port.scm 1033 */
 obj_t BgL_tmpz00_4703;
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6246;
BgL_tmpz00_6246 = 
(int)(2L); 
BgL_tmpz00_4703 = 
BGL_MVALUES_VAL(BgL_tmpz00_6246); } 
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6249;
BgL_tmpz00_6249 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6249, BUNSPEC); } 
BgL_hostz00_4699 = BgL_tmpz00_4703; } 
{ /* Ieee/port.scm 1033 */
 obj_t BgL_tmpz00_4704;
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6252;
BgL_tmpz00_6252 = 
(int)(3L); 
BgL_tmpz00_4704 = 
BGL_MVALUES_VAL(BgL_tmpz00_6252); } 
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6255;
BgL_tmpz00_6255 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6255, BUNSPEC); } 
BgL_portz00_4700 = BgL_tmpz00_4704; } 
{ /* Ieee/port.scm 1033 */
 obj_t BgL_tmpz00_4705;
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6258;
BgL_tmpz00_6258 = 
(int)(4L); 
BgL_tmpz00_4705 = 
BGL_MVALUES_VAL(BgL_tmpz00_6258); } 
{ /* Ieee/port.scm 1033 */
 int BgL_tmpz00_6261;
BgL_tmpz00_6261 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6261, BUNSPEC); } 
BgL_abspathz00_4701 = BgL_tmpz00_4705; } 
return 
BGl_z62loopz62zz__r4_ports_6_10_1z00(BGl_proc2960z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_3463, BgL_timeoutz00_3464, BgL_portz00_4700, BgL_abspathz00_4701, BgL_loginz00_4698, BgL_hostz00_4699, BFALSE, BGl_list2962z00zz__r4_ports_6_10_1z00);} } } 

}



/* &loop */
obj_t BGl_z62loopz62zz__r4_ports_6_10_1z00(obj_t BgL_parserz00_3678, obj_t BgL_bufinfoz00_3677, obj_t BgL_timeoutz00_3676, obj_t BgL_portz00_3675, obj_t BgL_abspathz00_3674, obj_t BgL_loginz00_3673, obj_t BgL_hostz00_3672, obj_t BgL_ipz00_1653, obj_t BgL_headerz00_1654)
{
{ /* Ieee/port.scm 1033 */
{ /* Ieee/port.scm 1035 */
struct bgl_unsafe_cell BgL_box3729_3878z00; 
 obj_t BgL_ipz00_3878;
BgL_ipz00_3878 = 
BGL_MAKE_UNSAFE_CELL_STACK(BgL_ipz00_1653,BgL_box3729_3878z00); 
{ /* Ieee/port.scm 1035 */
 obj_t BgL_sockz00_1656;
{ /* Ieee/port.scm 1035 */
 obj_t BgL_methodz00_1713;
BgL_methodz00_1713 = BGl_symbol2972z00zz__r4_ports_6_10_1z00; 
BgL_sockz00_1656 = 
BGl_httpz00zz__httpz00(BNIL, BFALSE, BFALSE, BUNSPEC, BFALSE, BgL_headerz00_1654, BgL_hostz00_3672, BGl_string2975z00zz__r4_ports_6_10_1z00, BFALSE, BgL_loginz00_3673, BgL_methodz00_1713, BFALSE, BFALSE, BgL_abspathz00_3674, BgL_portz00_3675, BGl_symbol2974z00zz__r4_ports_6_10_1z00, BFALSE, BFALSE, BgL_timeoutz00_3676, BFALSE); } 
{ /* Ieee/port.scm 1035 */
 obj_t BgL_opz00_1657;
{ /* Ieee/port.scm 1041 */
 obj_t BgL_socketz00_2735;
if(
SOCKETP(BgL_sockz00_1656))
{ /* Ieee/port.scm 1041 */
BgL_socketz00_2735 = BgL_sockz00_1656; }  else 
{ 
 obj_t BgL_auxz00_6268;
BgL_auxz00_6268 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45596L), BGl_string2976z00zz__r4_ports_6_10_1z00, BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_sockz00_1656); 
FAILURE(BgL_auxz00_6268,BFALSE,BFALSE);} 
BgL_opz00_1657 = 
SOCKET_OUTPUT(BgL_socketz00_2735); } 
{ /* Ieee/port.scm 1041 */

{ /* Ieee/port.scm 1042 */
 bool_t BgL_test3731z00_6273;
{ /* Ieee/port.scm 1042 */
 obj_t BgL_objz00_2736;
BgL_objz00_2736 = 
BGL_UNSAFE_CELL_REF(BgL_ipz00_3878); 
BgL_test3731z00_6273 = 
INPUT_PORTP(BgL_objz00_2736); } 
if(BgL_test3731z00_6273)
{ /* Ieee/port.scm 1045 */
 obj_t BgL_arg1483z00_1659;
{ /* Ieee/port.scm 1045 */
 obj_t BgL_socketz00_2737;
if(
SOCKETP(BgL_sockz00_1656))
{ /* Ieee/port.scm 1045 */
BgL_socketz00_2737 = BgL_sockz00_1656; }  else 
{ 
 obj_t BgL_auxz00_6277;
BgL_auxz00_6277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45744L), BGl_string2976z00zz__r4_ports_6_10_1z00, BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_sockz00_1656); 
FAILURE(BgL_auxz00_6277,BFALSE,BFALSE);} 
BgL_arg1483z00_1659 = 
SOCKET_INPUT(BgL_socketz00_2737); } 
{ /* Ieee/port.scm 1045 */
 obj_t BgL_dstz00_2738;
{ /* Ieee/port.scm 1045 */
 obj_t BgL_aux2316z00_4101;
BgL_aux2316z00_4101 = 
BGL_UNSAFE_CELL_REF(BgL_ipz00_3878); 
if(
INPUT_PORTP(BgL_aux2316z00_4101))
{ /* Ieee/port.scm 1045 */
BgL_dstz00_2738 = BgL_aux2316z00_4101; }  else 
{ 
 obj_t BgL_auxz00_6284;
BgL_auxz00_6284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45727L), BGl_string2976z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2316z00_4101); 
FAILURE(BgL_auxz00_6284,BFALSE,BFALSE);} } 
bgl_input_port_clone(BgL_dstz00_2738, BgL_arg1483z00_1659); } }  else 
{ /* Ieee/port.scm 1046 */
 obj_t BgL_auxz00_3879;
{ /* Ieee/port.scm 1046 */
 obj_t BgL_socketz00_2740;
if(
SOCKETP(BgL_sockz00_1656))
{ /* Ieee/port.scm 1046 */
BgL_socketz00_2740 = BgL_sockz00_1656; }  else 
{ 
 obj_t BgL_auxz00_6291;
BgL_auxz00_6291 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45776L), BGl_string2976z00zz__r4_ports_6_10_1z00, BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_sockz00_1656); 
FAILURE(BgL_auxz00_6291,BFALSE,BFALSE);} 
BgL_auxz00_3879 = 
SOCKET_INPUT(BgL_socketz00_2740); } 
BGL_UNSAFE_CELL_SET(BgL_ipz00_3878, BgL_auxz00_3879); } } 
{ /* Ieee/port.scm 1049 */
 obj_t BgL_zc3z04anonymousza31485ze3z87_3668;
BgL_zc3z04anonymousza31485ze3z87_3668 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31485ze3ze5zz__r4_ports_6_10_1z00, 
(int)(1L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31485ze3z87_3668, 
(int)(0L), BgL_opz00_1657); 
PROCEDURE_SET(BgL_zc3z04anonymousza31485ze3z87_3668, 
(int)(1L), BgL_sockz00_1656); 
{ /* Ieee/port.scm 1047 */
 obj_t BgL_auxz00_6303;
{ /* Ieee/port.scm 1047 */
 obj_t BgL_aux2320z00_4105;
BgL_aux2320z00_4105 = 
BGL_UNSAFE_CELL_REF(BgL_ipz00_3878); 
if(
INPUT_PORTP(BgL_aux2320z00_4105))
{ /* Ieee/port.scm 1047 */
BgL_auxz00_6303 = BgL_aux2320z00_4105
; }  else 
{ 
 obj_t BgL_auxz00_6306;
BgL_auxz00_6306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45817L), BGl_string2976z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2320z00_4105); 
FAILURE(BgL_auxz00_6306,BFALSE,BFALSE);} } 
BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_6303, BgL_zc3z04anonymousza31485ze3z87_3668); } } 
{ /* Ieee/port.scm 1053 */
 obj_t BgL_zc3z04anonymousza31487ze3z87_3669;
BgL_zc3z04anonymousza31487ze3z87_3669 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31487ze3ze5zz__r4_ports_6_10_1z00, 
(int)(2L), 
(int)(8L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(0L), BgL_hostz00_3672); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(1L), BgL_loginz00_3673); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(2L), BgL_abspathz00_3674); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(3L), BgL_portz00_3675); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(4L), BgL_timeoutz00_3676); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(5L), BgL_bufinfoz00_3677); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(6L), BgL_parserz00_3678); 
PROCEDURE_SET(BgL_zc3z04anonymousza31487ze3z87_3669, 
(int)(7L), BgL_sockz00_1656); 
{ /* Ieee/port.scm 1051 */
 obj_t BgL_auxz00_6330;
{ /* Ieee/port.scm 1051 */
 obj_t BgL_aux2322z00_4107;
BgL_aux2322z00_4107 = 
BGL_UNSAFE_CELL_REF(BgL_ipz00_3878); 
if(
INPUT_PORTP(BgL_aux2322z00_4107))
{ /* Ieee/port.scm 1051 */
BgL_auxz00_6330 = BgL_aux2322z00_4107
; }  else 
{ 
 obj_t BgL_auxz00_6333;
BgL_auxz00_6333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45921L), BGl_string2976z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2322z00_4107); 
FAILURE(BgL_auxz00_6333,BFALSE,BFALSE);} } 
BGl_inputzd2portzd2seekzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_6330, BgL_zc3z04anonymousza31487ze3z87_3669); } } 
{ /* 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_3678, BgL_opz00_1657, BgL_ipz00_3878, BgL_cell1115z00_1681, BgL_env1120z00_1680); 
if(
(BgL_val1119z00_1682==BgL_cell1115z00_1681))
{ /* Ieee/port.scm 1056 */
{ /* Ieee/port.scm 1056 */
 int BgL_tmpz00_6343;
BgL_tmpz00_6343 = 
(int)(0L); 
BGL_SIGSETMASK(BgL_tmpz00_6343); } 
{ /* 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; 
{ /* Ieee/port.scm 1058 */
 obj_t BgL_socketz00_2744;
if(
SOCKETP(BgL_sockz00_1656))
{ /* Ieee/port.scm 1058 */
BgL_socketz00_2744 = BgL_sockz00_1656; }  else 
{ 
 obj_t BgL_auxz00_6350;
BgL_auxz00_6350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46165L), BGl_string2978z00zz__r4_ports_6_10_1z00, BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_sockz00_1656); 
FAILURE(BgL_auxz00_6350,BFALSE,BFALSE);} 
socket_close(BgL_socketz00_2744); } 
{ /* Ieee/port.scm 1059 */
 bool_t BgL_test3739z00_6355;
{ /* Ieee/port.scm 1059 */
 obj_t BgL_classz00_2745;
BgL_classz00_2745 = BGl_z62httpzd2redirectionzb0zz__httpz00; 
if(
BGL_OBJECTP(BgL_ez00_1694))
{ /* Ieee/port.scm 1059 */
 BgL_objectz00_bglt BgL_arg2044z00_2747;
BgL_arg2044z00_2747 = 
(BgL_objectz00_bglt)(BgL_ez00_1694); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Ieee/port.scm 1059 */
 long BgL_idxz00_2753;
BgL_idxz00_2753 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2044z00_2747); 
{ /* Ieee/port.scm 1059 */
 obj_t BgL_arg2035z00_2754;
{ /* Ieee/port.scm 1059 */
 long BgL_arg2037z00_2755;
BgL_arg2037z00_2755 = 
(BgL_idxz00_2753+3L); 
{ /* Ieee/port.scm 1059 */
 obj_t BgL_vectorz00_2757;
{ /* Ieee/port.scm 1059 */
 obj_t BgL_aux2326z00_4111;
BgL_aux2326z00_4111 = BGl_za2inheritancesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux2326z00_4111))
{ /* Ieee/port.scm 1059 */
BgL_vectorz00_2757 = BgL_aux2326z00_4111; }  else 
{ 
 obj_t BgL_auxz00_6365;
BgL_auxz00_6365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46181L), BGl_string2978z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_aux2326z00_4111); 
FAILURE(BgL_auxz00_6365,BFALSE,BFALSE);} } 
{ /* Ieee/port.scm 1059 */
 bool_t BgL_test3743z00_6369;
{ /* Ieee/port.scm 1059 */
 long BgL_tmpz00_6370;
BgL_tmpz00_6370 = 
VECTOR_LENGTH(BgL_vectorz00_2757); 
BgL_test3743z00_6369 = 
BOUND_CHECK(BgL_arg2037z00_2755, BgL_tmpz00_6370); } 
if(BgL_test3743z00_6369)
{ /* Ieee/port.scm 1059 */
BgL_arg2035z00_2754 = 
VECTOR_REF(BgL_vectorz00_2757,BgL_arg2037z00_2755); }  else 
{ 
 obj_t BgL_auxz00_6374;
BgL_auxz00_6374 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46181L), BGl_string2980z00zz__r4_ports_6_10_1z00, BgL_vectorz00_2757, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_2757)), 
(int)(BgL_arg2037z00_2755)); 
FAILURE(BgL_auxz00_6374,BFALSE,BFALSE);} } } } 
BgL_test3739z00_6355 = 
(BgL_arg2035z00_2754==BgL_classz00_2745); } }  else 
{ /* Ieee/port.scm 1059 */
 bool_t BgL_res2079z00_2778;
{ /* Ieee/port.scm 1059 */
 obj_t BgL_oclassz00_2761;
{ /* Ieee/port.scm 1059 */
 obj_t BgL_arg2051z00_2769; long BgL_arg2052z00_2770;
BgL_arg2051z00_2769 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Ieee/port.scm 1059 */
 long BgL_arg2053z00_2771;
BgL_arg2053z00_2771 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2044z00_2747); 
BgL_arg2052z00_2770 = 
(BgL_arg2053z00_2771-OBJECT_TYPE); } 
BgL_oclassz00_2761 = 
VECTOR_REF(BgL_arg2051z00_2769,BgL_arg2052z00_2770); } 
{ /* Ieee/port.scm 1059 */
 bool_t BgL__ortest_1211z00_2762;
BgL__ortest_1211z00_2762 = 
(BgL_classz00_2745==BgL_oclassz00_2761); 
if(BgL__ortest_1211z00_2762)
{ /* Ieee/port.scm 1059 */
BgL_res2079z00_2778 = BgL__ortest_1211z00_2762; }  else 
{ /* Ieee/port.scm 1059 */
 long BgL_odepthz00_2763;
{ /* Ieee/port.scm 1059 */
 obj_t BgL_arg2041z00_2764;
BgL_arg2041z00_2764 = 
(BgL_oclassz00_2761); 
BgL_odepthz00_2763 = 
BGL_CLASS_DEPTH(BgL_arg2041z00_2764); } 
if(
(3L<BgL_odepthz00_2763))
{ /* Ieee/port.scm 1059 */
 obj_t BgL_arg2038z00_2766;
{ /* Ieee/port.scm 1059 */
 obj_t BgL_arg2039z00_2767;
BgL_arg2039z00_2767 = 
(BgL_oclassz00_2761); 
BgL_arg2038z00_2766 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2039z00_2767, 3L); } 
BgL_res2079z00_2778 = 
(BgL_arg2038z00_2766==BgL_classz00_2745); }  else 
{ /* Ieee/port.scm 1059 */
BgL_res2079z00_2778 = ((bool_t)0); } } } } 
BgL_test3739z00_6355 = BgL_res2079z00_2778; } }  else 
{ /* Ieee/port.scm 1059 */
BgL_test3739z00_6355 = ((bool_t)0)
; } } 
if(BgL_test3739z00_6355)
{ /* Ieee/port.scm 1060 */
 BgL_z62httpzd2redirectionzb0_bglt BgL_i1121z00_1697;
{ /* Ieee/port.scm 1061 */
 bool_t BgL_test3746z00_6395;
{ /* Ieee/port.scm 1061 */
 obj_t BgL_classz00_4707;
BgL_classz00_4707 = BGl_z62httpzd2redirectionzb0zz__httpz00; 
if(
BGL_OBJECTP(BgL_ez00_1694))
{ /* Ieee/port.scm 1061 */
 BgL_objectz00_bglt BgL_arg2046z00_4709; long BgL_arg2047z00_4710;
BgL_arg2046z00_4709 = 
(BgL_objectz00_bglt)(BgL_ez00_1694); 
BgL_arg2047z00_4710 = 
BGL_CLASS_DEPTH(BgL_classz00_4707); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Ieee/port.scm 1061 */
 long BgL_idxz00_4718;
BgL_idxz00_4718 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2046z00_4709); 
{ /* Ieee/port.scm 1061 */
 obj_t BgL_arg2035z00_4719;
{ /* Ieee/port.scm 1061 */
 long BgL_arg2037z00_4720;
BgL_arg2037z00_4720 = 
(BgL_idxz00_4718+BgL_arg2047z00_4710); 
BgL_arg2035z00_4719 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg2037z00_4720); } 
BgL_test3746z00_6395 = 
(BgL_arg2035z00_4719==BgL_classz00_4707); } }  else 
{ /* Ieee/port.scm 1061 */
 bool_t BgL_res2093z00_4725;
{ /* Ieee/port.scm 1061 */
 obj_t BgL_oclassz00_4729;
{ /* Ieee/port.scm 1061 */
 obj_t BgL_arg2051z00_4731; long BgL_arg2052z00_4732;
BgL_arg2051z00_4731 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Ieee/port.scm 1061 */
 long BgL_arg2053z00_4733;
BgL_arg2053z00_4733 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2046z00_4709); 
BgL_arg2052z00_4732 = 
(BgL_arg2053z00_4733-OBJECT_TYPE); } 
BgL_oclassz00_4729 = 
VECTOR_REF(BgL_arg2051z00_4731,BgL_arg2052z00_4732); } 
{ /* Ieee/port.scm 1061 */
 bool_t BgL__ortest_1211z00_4739;
BgL__ortest_1211z00_4739 = 
(BgL_classz00_4707==BgL_oclassz00_4729); 
if(BgL__ortest_1211z00_4739)
{ /* Ieee/port.scm 1061 */
BgL_res2093z00_4725 = BgL__ortest_1211z00_4739; }  else 
{ /* Ieee/port.scm 1061 */
 long BgL_odepthz00_4740;
{ /* Ieee/port.scm 1061 */
 obj_t BgL_arg2041z00_4741;
BgL_arg2041z00_4741 = 
(BgL_oclassz00_4729); 
BgL_odepthz00_4740 = 
BGL_CLASS_DEPTH(BgL_arg2041z00_4741); } 
if(
(BgL_arg2047z00_4710<BgL_odepthz00_4740))
{ /* Ieee/port.scm 1061 */
 obj_t BgL_arg2038z00_4745;
{ /* Ieee/port.scm 1061 */
 obj_t BgL_arg2039z00_4746;
BgL_arg2039z00_4746 = 
(BgL_oclassz00_4729); 
BgL_arg2038z00_4745 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2039z00_4746, BgL_arg2047z00_4710); } 
BgL_res2093z00_4725 = 
(BgL_arg2038z00_4745==BgL_classz00_4707); }  else 
{ /* Ieee/port.scm 1061 */
BgL_res2093z00_4725 = ((bool_t)0); } } } } 
BgL_test3746z00_6395 = BgL_res2093z00_4725; } }  else 
{ /* Ieee/port.scm 1061 */
BgL_test3746z00_6395 = ((bool_t)0)
; } } 
if(BgL_test3746z00_6395)
{ /* Ieee/port.scm 1061 */
BgL_i1121z00_1697 = 
((BgL_z62httpzd2redirectionzb0_bglt)BgL_ez00_1694); }  else 
{ 
 obj_t BgL_auxz00_6420;
BgL_auxz00_6420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46258L), BGl_string2978z00zz__r4_ports_6_10_1z00, BGl_string2981z00zz__r4_ports_6_10_1z00, BgL_ez00_1694); 
FAILURE(BgL_auxz00_6420,BFALSE,BFALSE);} } 
{ /* Ieee/port.scm 1061 */
 obj_t BgL_arg1502z00_1698;
BgL_arg1502z00_1698 = 
(((BgL_z62httpzd2redirectionzb0_bglt)COBJECT(BgL_i1121z00_1697))->BgL_urlz00); 
{ /* Ieee/port.scm 466 */

return 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_arg1502z00_1698, BgL_bufinfoz00_3677, 
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_3877, obj_t BgL_opz00_3876, obj_t BgL_ipz00_3875, obj_t BgL_cell1115z00_3874, obj_t BgL_env1120z00_3873)
{
{ /* 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_3873, 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_3873); 
{ /* 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_3873); 
{ /* Ieee/port.scm 1056 */
 obj_t BgL_hds1113z00_1689;
BgL_hds1113z00_1689 = 
MAKE_STACK_PAIR(BgL_escape1116z00_1686, BgL_cell1115z00_3874); 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1120z00_3873, BgL_hds1113z00_1689); BUNSPEC; 
{ /* Ieee/port.scm 1056 */
 obj_t BgL_exitd1122z00_1690;
BgL_exitd1122z00_1690 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1120z00_3873); 
{ /* 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;
{ /* Ieee/port.scm 1062 */
 obj_t BgL_auxz00_6438;
{ /* Ieee/port.scm 1062 */
 obj_t BgL_aux2330z00_4117;
BgL_aux2330z00_4117 = 
BGL_UNSAFE_CELL_REF(BgL_ipz00_3875); 
if(
INPUT_PORTP(BgL_aux2330z00_4117))
{ /* Ieee/port.scm 1062 */
BgL_auxz00_6438 = BgL_aux2330z00_4117
; }  else 
{ 
 obj_t BgL_auxz00_6441;
BgL_auxz00_6441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46320L), BGl_string2982z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2330z00_4117); 
FAILURE(BgL_auxz00_6441,BFALSE,BFALSE);} } 
BgL_tmp1123z00_1692 = 
BGl_httpzd2parsezd2responsez00zz__httpz00(BgL_auxz00_6438, BgL_opz00_3876, BgL_parserz00_3877); } 
{ /* Ieee/port.scm 1056 */
 bool_t BgL_test3752z00_6446;
{ /* Ieee/port.scm 1056 */
 obj_t BgL_arg2076z00_2780;
BgL_arg2076z00_2780 = 
BGL_EXITD_PROTECT(BgL_exitd1122z00_1690); 
BgL_test3752z00_6446 = 
PAIRP(BgL_arg2076z00_2780); } 
if(BgL_test3752z00_6446)
{ /* Ieee/port.scm 1056 */
 obj_t BgL_arg2074z00_2781;
{ /* Ieee/port.scm 1056 */
 obj_t BgL_arg2075z00_2782;
BgL_arg2075z00_2782 = 
BGL_EXITD_PROTECT(BgL_exitd1122z00_1690); 
{ /* Ieee/port.scm 1056 */
 obj_t BgL_pairz00_2783;
if(
PAIRP(BgL_arg2075z00_2782))
{ /* Ieee/port.scm 1056 */
BgL_pairz00_2783 = BgL_arg2075z00_2782; }  else 
{ 
 obj_t BgL_auxz00_6452;
BgL_auxz00_6452 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46113L), BGl_string2982z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2782); 
FAILURE(BgL_auxz00_6452,BFALSE,BFALSE);} 
BgL_arg2074z00_2781 = 
CDR(BgL_pairz00_2783); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1122z00_1690, BgL_arg2074z00_2781); BUNSPEC; }  else 
{ /* Ieee/port.scm 1056 */BFALSE; } } 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1120z00_3873, BgL_ohs1112z00_1688); BUNSPEC; 
BgL_res1128z00_1687 = BgL_tmp1123z00_1692; } } } } } } 
POP_ENV_EXIT(BgL_env1120z00_3873); 
return BgL_res1128z00_1687;} } 
}} 

}



/* &parser */
obj_t BGl_z62parserz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3679, obj_t BgL_ipz00_3680, obj_t BgL_statuszd2codezd2_3681, obj_t BgL_headerz00_3682, obj_t BgL_clenz00_3683, obj_t BgL_tencz00_3684)
{
{ /* Ieee/port.scm 1029 */
{ /* Ieee/port.scm 1020 */
 bool_t BgL_test3754z00_6460;
{ /* Ieee/port.scm 1020 */
 bool_t BgL_test3755z00_6461;
{ /* Ieee/port.scm 1020 */
 long BgL_n1z00_4747;
{ /* Ieee/port.scm 1020 */
 obj_t BgL_tmpz00_6462;
if(
INTEGERP(BgL_statuszd2codezd2_3681))
{ /* Ieee/port.scm 1020 */
BgL_tmpz00_6462 = BgL_statuszd2codezd2_3681
; }  else 
{ 
 obj_t BgL_auxz00_6465;
BgL_auxz00_6465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(44968L), BGl_string2983z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_statuszd2codezd2_3681); 
FAILURE(BgL_auxz00_6465,BFALSE,BFALSE);} 
BgL_n1z00_4747 = 
(long)CINT(BgL_tmpz00_6462); } 
BgL_test3755z00_6461 = 
(BgL_n1z00_4747>=200L); } 
if(BgL_test3755z00_6461)
{ /* Ieee/port.scm 1020 */
 long BgL_n1z00_4748;
{ /* Ieee/port.scm 1020 */
 obj_t BgL_tmpz00_6471;
if(
INTEGERP(BgL_statuszd2codezd2_3681))
{ /* Ieee/port.scm 1020 */
BgL_tmpz00_6471 = BgL_statuszd2codezd2_3681
; }  else 
{ 
 obj_t BgL_auxz00_6474;
BgL_auxz00_6474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(44991L), BGl_string2983z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_statuszd2codezd2_3681); 
FAILURE(BgL_auxz00_6474,BFALSE,BFALSE);} 
BgL_n1z00_4748 = 
(long)CINT(BgL_tmpz00_6471); } 
BgL_test3754z00_6460 = 
(BgL_n1z00_4748<=299L); }  else 
{ /* Ieee/port.scm 1020 */
BgL_test3754z00_6460 = ((bool_t)0)
; } } 
if(BgL_test3754z00_6460)
{ /* Ieee/port.scm 1020 */
if(
INPUT_PORTP(BgL_ipz00_3680))
{ /* Ieee/port.scm 1024 */
 bool_t BgL_test3759z00_6482;
if(
ELONGP(BgL_clenz00_3683))
{ /* Ieee/port.scm 1024 */
 long BgL_n1z00_4749;
BgL_n1z00_4749 = 
BELONG_TO_LONG(BgL_clenz00_3683); 
BgL_test3759z00_6482 = 
(BgL_n1z00_4749>
(long)(0L)); }  else 
{ /* Ieee/port.scm 1024 */
BgL_test3759z00_6482 = ((bool_t)0)
; } 
if(BgL_test3759z00_6482)
{ /* Ieee/port.scm 1024 */
{ /* Ieee/port.scm 1025 */
 long BgL_arg1509z00_4750;
{ /* Ieee/port.scm 1025 */
 long BgL_xz00_4751;
BgL_xz00_4751 = 
BELONG_TO_LONG(BgL_clenz00_3683); 
BgL_arg1509z00_4750 = 
(long)(BgL_xz00_4751); } 
INPUT_PORT_FILLBARRIER_SET(BgL_ipz00_3680, BgL_arg1509z00_4750); BUNSPEC; BgL_arg1509z00_4750; } 
{ /* Ieee/port.scm 1026 */
 long BgL_tmpz00_6491;
BgL_tmpz00_6491 = 
BELONG_TO_LONG(BgL_clenz00_3683); 
BGL_INPUT_PORT_LENGTH_SET(BgL_ipz00_3680, BgL_tmpz00_6491); } BUNSPEC; 
return BgL_ipz00_3680;}  else 
{ /* Ieee/port.scm 1024 */
return BgL_ipz00_3680;} }  else 
{ /* Ieee/port.scm 469 */

return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BGl_string2984z00zz__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_3685, obj_t BgL_ipz00_3694, obj_t BgL_offsetz00_3695)
{
{ /* Ieee/port.scm 1052 */
{ /* Ieee/port.scm 1053 */
 obj_t BgL_hostz00_3686; obj_t BgL_loginz00_3687; obj_t BgL_abspathz00_3688; obj_t BgL_portz00_3689; obj_t BgL_timeoutz00_3690; obj_t BgL_bufinfoz00_3691; obj_t BgL_parserz00_3692; obj_t BgL_sockz00_3693;
BgL_hostz00_3686 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(0L)); 
BgL_loginz00_3687 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(1L)); 
BgL_abspathz00_3688 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(2L)); 
BgL_portz00_3689 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(3L)); 
BgL_timeoutz00_3690 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(4L)); 
BgL_bufinfoz00_3691 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(5L)); 
BgL_parserz00_3692 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3685, 
(int)(6L))); 
BgL_sockz00_3693 = 
PROCEDURE_REF(BgL_envz00_3685, 
(int)(7L)); 
{ /* Ieee/port.scm 1053 */
 obj_t BgL_socketz00_4753;
if(
SOCKETP(BgL_sockz00_3693))
{ /* Ieee/port.scm 1053 */
BgL_socketz00_4753 = BgL_sockz00_3693; }  else 
{ 
 obj_t BgL_auxz00_6516;
BgL_auxz00_6516 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45970L), BGl_string2985z00zz__r4_ports_6_10_1z00, BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_sockz00_3693); 
FAILURE(BgL_auxz00_6516,BFALSE,BFALSE);} 
socket_close(BgL_socketz00_4753); } 
{ /* Ieee/port.scm 1054 */
 obj_t BgL_rz00_4754;
{ /* Ieee/port.scm 1054 */
 obj_t BgL_arg1495z00_4755;
{ /* Ieee/port.scm 1053 */

{ /* Ieee/port.scm 1053 */
 long BgL_auxz00_6521;
{ /* Ieee/port.scm 1054 */
 obj_t BgL_tmpz00_6522;
if(
INTEGERP(BgL_offsetz00_3695))
{ /* Ieee/port.scm 1054 */
BgL_tmpz00_6522 = BgL_offsetz00_3695
; }  else 
{ 
 obj_t BgL_auxz00_6525;
BgL_auxz00_6525 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(46030L), BGl_string2985z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_offsetz00_3695); 
FAILURE(BgL_auxz00_6525,BFALSE,BFALSE);} 
BgL_auxz00_6521 = 
(long)CINT(BgL_tmpz00_6522); } 
BgL_arg1495z00_4755 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_6521, 10L); } } 
BgL_rz00_4754 = 
string_append_3(BGl_string2986z00zz__r4_ports_6_10_1z00, BgL_arg1495z00_4755, BGl_string2987z00zz__r4_ports_6_10_1z00); } 
{ /* Ieee/port.scm 1055 */
 obj_t BgL_arg1488z00_4756;
{ /* Ieee/port.scm 1055 */
 obj_t BgL_arg1489z00_4757; obj_t BgL_arg1490z00_4758;
{ /* Ieee/port.scm 1055 */
 obj_t BgL_arg1491z00_4759;
BgL_arg1491z00_4759 = 
MAKE_YOUNG_PAIR(BgL_rz00_4754, BNIL); 
BgL_arg1489z00_4757 = 
MAKE_YOUNG_PAIR(BGl_keyword2988z00zz__r4_ports_6_10_1z00, BgL_arg1491z00_4759); } 
{ /* Ieee/port.scm 1055 */
 obj_t BgL_arg1492z00_4760;
{ /* Ieee/port.scm 1055 */
 obj_t BgL_arg1494z00_4761;
BgL_arg1494z00_4761 = 
MAKE_YOUNG_PAIR(BGl_string2966z00zz__r4_ports_6_10_1z00, BNIL); 
BgL_arg1492z00_4760 = 
MAKE_YOUNG_PAIR(BGl_keyword2964z00zz__r4_ports_6_10_1z00, BgL_arg1494z00_4761); } 
BgL_arg1490z00_4758 = 
MAKE_YOUNG_PAIR(BgL_arg1492z00_4760, BNIL); } 
BgL_arg1488z00_4756 = 
MAKE_YOUNG_PAIR(BgL_arg1489z00_4757, BgL_arg1490z00_4758); } 
return 
BGl_z62loopz62zz__r4_ports_6_10_1z00(BgL_parserz00_3692, BgL_bufinfoz00_3691, BgL_timeoutz00_3690, BgL_portz00_3689, BgL_abspathz00_3688, BgL_loginz00_3687, BgL_hostz00_3686, BgL_ipz00_3694, BgL_arg1488z00_4756);} } } } 

}



/* &<@anonymous:1485> */
obj_t BGl_z62zc3z04anonymousza31485ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3696, obj_t BgL_ipz00_3699)
{
{ /* Ieee/port.scm 1048 */
{ /* Ieee/port.scm 1049 */
 obj_t BgL_opz00_3697; obj_t BgL_sockz00_3698;
BgL_opz00_3697 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3696, 
(int)(0L))); 
BgL_sockz00_3698 = 
PROCEDURE_REF(BgL_envz00_3696, 
(int)(1L)); 
bgl_close_output_port(BgL_opz00_3697); 
{ /* Ieee/port.scm 1050 */
 obj_t BgL_socketz00_4762;
if(
SOCKETP(BgL_sockz00_3698))
{ /* Ieee/port.scm 1050 */
BgL_socketz00_4762 = BgL_sockz00_3698; }  else 
{ 
 obj_t BgL_auxz00_6547;
BgL_auxz00_6547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(45886L), BGl_string2990z00zz__r4_ports_6_10_1z00, BGl_string2977z00zz__r4_ports_6_10_1z00, BgL_sockz00_3698); 
FAILURE(BgL_auxz00_6547,BFALSE,BFALSE);} 
return 
socket_close(BgL_socketz00_4762);} } } 

}



/* _open-input-file */
obj_t BGl__openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_env1257z00_72, obj_t BgL_opt1256z00_71)
{
{ /* Ieee/port.scm 1084 */
{ /* Ieee/port.scm 1084 */
 obj_t BgL_g1258z00_1742;
{ 
 obj_t BgL_auxz00_6552;
if(
VECTORP(BgL_opt1256z00_71))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6552 = BgL_opt1256z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6555;
BgL_auxz00_6555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1256z00_71); 
FAILURE(BgL_auxz00_6555,BFALSE,BFALSE);} 
BgL_g1258z00_1742 = 
VECTOR_REF(BgL_auxz00_6552,0L); } 
{ 

{ /* Ieee/port.scm 1084 */
 long BgL_aux1260z00_1744;
{ 
 obj_t BgL_auxz00_6560;
if(
VECTORP(BgL_opt1256z00_71))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6560 = BgL_opt1256z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6563;
BgL_auxz00_6563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1256z00_71); 
FAILURE(BgL_auxz00_6563,BFALSE,BFALSE);} 
BgL_aux1260z00_1744 = 
VECTOR_LENGTH(BgL_auxz00_6560); } 
switch( BgL_aux1260z00_1744) { case 1L : 

{ /* Ieee/port.scm 1084 */

{ /* Ieee/port.scm 1084 */
 obj_t BgL_auxz00_6568;
if(
STRINGP(BgL_g1258z00_1742))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6568 = BgL_g1258z00_1742
; }  else 
{ 
 obj_t BgL_auxz00_6571;
BgL_auxz00_6571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1258z00_1742); 
FAILURE(BgL_auxz00_6571,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_auxz00_6568, BTRUE, 
BINT(5000000L));} } break;case 2L : 

{ /* Ieee/port.scm 1084 */
 obj_t BgL_bufinfoz00_1747;
{ 
 obj_t BgL_auxz00_6577;
if(
VECTORP(BgL_opt1256z00_71))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6577 = BgL_opt1256z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6580;
BgL_auxz00_6580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1256z00_71); 
FAILURE(BgL_auxz00_6580,BFALSE,BFALSE);} 
BgL_bufinfoz00_1747 = 
VECTOR_REF(BgL_auxz00_6577,1L); } 
{ /* Ieee/port.scm 1084 */

{ /* Ieee/port.scm 1084 */
 obj_t BgL_auxz00_6585;
if(
STRINGP(BgL_g1258z00_1742))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6585 = BgL_g1258z00_1742
; }  else 
{ 
 obj_t BgL_auxz00_6588;
BgL_auxz00_6588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1258z00_1742); 
FAILURE(BgL_auxz00_6588,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_auxz00_6585, BgL_bufinfoz00_1747, 
BINT(5000000L));} } } break;case 3L : 

{ /* Ieee/port.scm 1084 */
 obj_t BgL_bufinfoz00_1749;
{ 
 obj_t BgL_auxz00_6594;
if(
VECTORP(BgL_opt1256z00_71))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6594 = BgL_opt1256z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6597;
BgL_auxz00_6597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1256z00_71); 
FAILURE(BgL_auxz00_6597,BFALSE,BFALSE);} 
BgL_bufinfoz00_1749 = 
VECTOR_REF(BgL_auxz00_6594,1L); } 
{ /* Ieee/port.scm 1084 */
 obj_t BgL_timeoutz00_1750;
{ 
 obj_t BgL_auxz00_6602;
if(
VECTORP(BgL_opt1256z00_71))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6602 = BgL_opt1256z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6605;
BgL_auxz00_6605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1256z00_71); 
FAILURE(BgL_auxz00_6605,BFALSE,BFALSE);} 
BgL_timeoutz00_1750 = 
VECTOR_REF(BgL_auxz00_6602,2L); } 
{ /* Ieee/port.scm 1084 */

{ /* Ieee/port.scm 1084 */
 obj_t BgL_auxz00_6610;
if(
STRINGP(BgL_g1258z00_1742))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6610 = BgL_g1258z00_1742
; }  else 
{ 
 obj_t BgL_auxz00_6613;
BgL_auxz00_6613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2991z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1258z00_1742); 
FAILURE(BgL_auxz00_6613,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_auxz00_6610, BgL_bufinfoz00_1749, BgL_timeoutz00_1750);} } } } break;
default: 
{ /* Ieee/port.scm 1084 */
 long BgL_arg1510z00_1751;
{ 
 obj_t BgL_auxz00_6618;
if(
VECTORP(BgL_opt1256z00_71))
{ /* Ieee/port.scm 1084 */
BgL_auxz00_6618 = BgL_opt1256z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6621;
BgL_auxz00_6621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(47820L), BGl_string2992z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1256z00_71); 
FAILURE(BgL_auxz00_6621,BFALSE,BFALSE);} 
BgL_arg1510z00_1751 = 
VECTOR_LENGTH(BgL_auxz00_6618); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2993z00zz__r4_ports_6_10_1z00, BGl_string2994z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1510z00_1751));} } } } } } 

}



/* 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_1752;
BgL_bufferz00_1752 = 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2958z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_69, 
(int)(default_io_bufsiz)); 
{ 
 obj_t BgL_protosz00_1754;
BgL_protosz00_1754 = BGl_za2inputzd2portzd2protocolsza2z00zz__r4_ports_6_10_1z00; 
BgL_zc3z04anonymousza31511ze3z87_1755:
if(
NULLP(BgL_protosz00_1754))
{ /* Ieee/port.scm 1087 */
return 
bgl_open_input_file(BgL_stringz00_68, BgL_bufferz00_1752);}  else 
{ /* Ieee/port.scm 1090 */
 obj_t BgL_cellz00_1757;
{ /* Ieee/port.scm 1090 */
 obj_t BgL_pairz00_2785;
if(
PAIRP(BgL_protosz00_1754))
{ /* Ieee/port.scm 1090 */
BgL_pairz00_2785 = BgL_protosz00_1754; }  else 
{ 
 obj_t BgL_auxz00_6636;
BgL_auxz00_6636 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48142L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_protosz00_1754); 
FAILURE(BgL_auxz00_6636,BFALSE,BFALSE);} 
BgL_cellz00_1757 = 
CAR(BgL_pairz00_2785); } 
{ /* Ieee/port.scm 1090 */
 obj_t BgL_identz00_1758;
{ /* Ieee/port.scm 1091 */
 obj_t BgL_pairz00_2786;
if(
PAIRP(BgL_cellz00_1757))
{ /* Ieee/port.scm 1091 */
BgL_pairz00_2786 = BgL_cellz00_1757; }  else 
{ 
 obj_t BgL_auxz00_6643;
BgL_auxz00_6643 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48169L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_cellz00_1757); 
FAILURE(BgL_auxz00_6643,BFALSE,BFALSE);} 
BgL_identz00_1758 = 
CAR(BgL_pairz00_2786); } 
{ /* Ieee/port.scm 1091 */
 long BgL_lz00_1759;
{ /* Ieee/port.scm 1092 */
 obj_t BgL_stringz00_2787;
if(
STRINGP(BgL_identz00_1758))
{ /* Ieee/port.scm 1092 */
BgL_stringz00_2787 = BgL_identz00_1758; }  else 
{ 
 obj_t BgL_auxz00_6650;
BgL_auxz00_6650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48185L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_identz00_1758); 
FAILURE(BgL_auxz00_6650,BFALSE,BFALSE);} 
BgL_lz00_1759 = 
STRING_LENGTH(BgL_stringz00_2787); } 
{ /* Ieee/port.scm 1092 */
 obj_t BgL_openz00_1760;
{ /* Ieee/port.scm 1093 */
 obj_t BgL_pairz00_2788;
if(
PAIRP(BgL_cellz00_1757))
{ /* Ieee/port.scm 1093 */
BgL_pairz00_2788 = BgL_cellz00_1757; }  else 
{ 
 obj_t BgL_auxz00_6657;
BgL_auxz00_6657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48225L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_cellz00_1757); 
FAILURE(BgL_auxz00_6657,BFALSE,BFALSE);} 
BgL_openz00_1760 = 
CDR(BgL_pairz00_2788); } 
{ /* Ieee/port.scm 1093 */

{ /* Ieee/port.scm 1094 */
 bool_t BgL_test3778z00_6662;
{ /* Ieee/port.scm 1094 */
 obj_t BgL_string2z00_2790;
if(
STRINGP(BgL_identz00_1758))
{ /* Ieee/port.scm 1094 */
BgL_string2z00_2790 = BgL_identz00_1758; }  else 
{ 
 obj_t BgL_auxz00_6665;
BgL_auxz00_6665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48259L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_identz00_1758); 
FAILURE(BgL_auxz00_6665,BFALSE,BFALSE);} 
BgL_test3778z00_6662 = 
bigloo_strncmp(BgL_stringz00_68, BgL_string2z00_2790, BgL_lz00_1759); } 
if(BgL_test3778z00_6662)
{ /* Ieee/port.scm 1096 */
 obj_t BgL_namez00_1762;
BgL_namez00_1762 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_68, BgL_lz00_1759, 
STRING_LENGTH(BgL_stringz00_68)); 
{ /* Ieee/port.scm 1097 */
 obj_t BgL_funz00_4158;
if(
PROCEDUREP(BgL_openz00_1760))
{ /* Ieee/port.scm 1097 */
BgL_funz00_4158 = BgL_openz00_1760; }  else 
{ 
 obj_t BgL_auxz00_6674;
BgL_auxz00_6674 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48382L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_openz00_1760); 
FAILURE(BgL_auxz00_6674,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4158, 3))
{ /* Ieee/port.scm 1097 */
return 
(VA_PROCEDUREP( BgL_funz00_4158 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4158))(BgL_openz00_1760, BgL_namez00_1762, BgL_bufferz00_1752, BgL_timeoutz00_70, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4158))(BgL_openz00_1760, BgL_namez00_1762, BgL_bufferz00_1752, BgL_timeoutz00_70) );}  else 
{ /* Ieee/port.scm 1097 */
FAILURE(BGl_string2996z00zz__r4_ports_6_10_1z00,BGl_list2997z00zz__r4_ports_6_10_1z00,BgL_funz00_4158);} } }  else 
{ /* Ieee/port.scm 1098 */
 obj_t BgL_arg1515z00_1764;
{ /* Ieee/port.scm 1098 */
 obj_t BgL_pairz00_2793;
if(
PAIRP(BgL_protosz00_1754))
{ /* Ieee/port.scm 1098 */
BgL_pairz00_2793 = BgL_protosz00_1754; }  else 
{ 
 obj_t BgL_auxz00_6689;
BgL_auxz00_6689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48427L), BGl_string2995z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_protosz00_1754); 
FAILURE(BgL_auxz00_6689,BFALSE,BFALSE);} 
BgL_arg1515z00_1764 = 
CDR(BgL_pairz00_2793); } 
{ 
 obj_t BgL_protosz00_6694;
BgL_protosz00_6694 = BgL_arg1515z00_1764; 
BgL_protosz00_1754 = BgL_protosz00_6694; 
goto BgL_zc3z04anonymousza31511ze3z87_1755;} } } } } } } } } } } 

}



/* _open-input-descriptor */
obj_t BGl__openzd2inputzd2descriptorz00zz__r4_ports_6_10_1z00(obj_t BgL_env1262z00_76, obj_t BgL_opt1261z00_75)
{
{ /* Ieee/port.scm 1103 */
{ /* Ieee/port.scm 1103 */
 obj_t BgL_g1263z00_1766;
{ 
 obj_t BgL_auxz00_6695;
if(
VECTORP(BgL_opt1261z00_75))
{ /* Ieee/port.scm 1103 */
BgL_auxz00_6695 = BgL_opt1261z00_75
; }  else 
{ 
 obj_t BgL_auxz00_6698;
BgL_auxz00_6698 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48665L), BGl_string3006z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1261z00_75); 
FAILURE(BgL_auxz00_6698,BFALSE,BFALSE);} 
BgL_g1263z00_1766 = 
VECTOR_REF(BgL_auxz00_6695,0L); } 
{ 

{ /* Ieee/port.scm 1103 */
 long BgL_aux1265z00_1768;
{ 
 obj_t BgL_auxz00_6703;
if(
VECTORP(BgL_opt1261z00_75))
{ /* Ieee/port.scm 1103 */
BgL_auxz00_6703 = BgL_opt1261z00_75
; }  else 
{ 
 obj_t BgL_auxz00_6706;
BgL_auxz00_6706 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48665L), BGl_string3006z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1261z00_75); 
FAILURE(BgL_auxz00_6706,BFALSE,BFALSE);} 
BgL_aux1265z00_1768 = 
VECTOR_LENGTH(BgL_auxz00_6703); } 
switch( BgL_aux1265z00_1768) { case 1L : 

{ /* Ieee/port.scm 1103 */

{ /* Ieee/port.scm 1103 */
 int BgL_fdz00_2794;
{ /* Ieee/port.scm 1103 */
 obj_t BgL_tmpz00_6711;
if(
INTEGERP(BgL_g1263z00_1766))
{ /* Ieee/port.scm 1103 */
BgL_tmpz00_6711 = BgL_g1263z00_1766
; }  else 
{ 
 obj_t BgL_auxz00_6714;
BgL_auxz00_6714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48665L), BGl_string3006z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_g1263z00_1766); 
FAILURE(BgL_auxz00_6714,BFALSE,BFALSE);} 
BgL_fdz00_2794 = 
CINT(BgL_tmpz00_6711); } 
return 
bgl_open_input_descriptor(BgL_fdz00_2794, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2958z00zz__r4_ports_6_10_1z00, BTRUE, 
(int)(default_io_bufsiz)));} } break;case 2L : 

{ /* Ieee/port.scm 1103 */
 obj_t BgL_bufinfoz00_1770;
{ 
 obj_t BgL_auxz00_6722;
if(
VECTORP(BgL_opt1261z00_75))
{ /* Ieee/port.scm 1103 */
BgL_auxz00_6722 = BgL_opt1261z00_75
; }  else 
{ 
 obj_t BgL_auxz00_6725;
BgL_auxz00_6725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48665L), BGl_string3006z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1261z00_75); 
FAILURE(BgL_auxz00_6725,BFALSE,BFALSE);} 
BgL_bufinfoz00_1770 = 
VECTOR_REF(BgL_auxz00_6722,1L); } 
{ /* Ieee/port.scm 1103 */

{ /* Ieee/port.scm 1103 */
 int BgL_fdz00_2796;
{ /* Ieee/port.scm 1103 */
 obj_t BgL_tmpz00_6730;
if(
INTEGERP(BgL_g1263z00_1766))
{ /* Ieee/port.scm 1103 */
BgL_tmpz00_6730 = BgL_g1263z00_1766
; }  else 
{ 
 obj_t BgL_auxz00_6733;
BgL_auxz00_6733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48665L), BGl_string3006z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_g1263z00_1766); 
FAILURE(BgL_auxz00_6733,BFALSE,BFALSE);} 
BgL_fdz00_2796 = 
CINT(BgL_tmpz00_6730); } 
return 
bgl_open_input_descriptor(BgL_fdz00_2796, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2958z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_1770, 
(int)(default_io_bufsiz)));} } } break;
default: 
{ /* Ieee/port.scm 1103 */
 long BgL_arg1516z00_1771;
{ 
 obj_t BgL_auxz00_6741;
if(
VECTORP(BgL_opt1261z00_75))
{ /* Ieee/port.scm 1103 */
BgL_auxz00_6741 = BgL_opt1261z00_75
; }  else 
{ 
 obj_t BgL_auxz00_6744;
BgL_auxz00_6744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(48665L), BGl_string3007z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1261z00_75); 
FAILURE(BgL_auxz00_6744,BFALSE,BFALSE);} 
BgL_arg1516z00_1771 = 
VECTOR_LENGTH(BgL_auxz00_6741); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3008z00zz__r4_ports_6_10_1z00, BGl_string3010z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1516z00_1771));} } } } } } 

}



/* 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 */
return 
bgl_open_input_descriptor(BgL_fdz00_73, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2958z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_74, 
(int)(default_io_bufsiz)));} 

}



/* _open-input-string */
obj_t BGl__openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_env1267z00_81, obj_t BgL_opt1266z00_80)
{
{ /* Ieee/port.scm 1110 */
{ /* Ieee/port.scm 1110 */
 obj_t BgL_stringz00_1773;
{ 
 obj_t BgL_auxz00_6755;
if(
VECTORP(BgL_opt1266z00_80))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6755 = BgL_opt1266z00_80
; }  else 
{ 
 obj_t BgL_auxz00_6758;
BgL_auxz00_6758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1266z00_80); 
FAILURE(BgL_auxz00_6758,BFALSE,BFALSE);} 
BgL_stringz00_1773 = 
VECTOR_REF(BgL_auxz00_6755,0L); } 
{ 

{ /* Ieee/port.scm 1110 */
 long BgL_aux1269z00_1775;
{ 
 obj_t BgL_auxz00_6763;
if(
VECTORP(BgL_opt1266z00_80))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6763 = BgL_opt1266z00_80
; }  else 
{ 
 obj_t BgL_auxz00_6766;
BgL_auxz00_6766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1266z00_80); 
FAILURE(BgL_auxz00_6766,BFALSE,BFALSE);} 
BgL_aux1269z00_1775 = 
VECTOR_LENGTH(BgL_auxz00_6763); } 
switch( BgL_aux1269z00_1775) { case 1L : 

{ /* Ieee/port.scm 1111 */
 long BgL_endz00_1777;
{ /* Ieee/port.scm 1111 */
 obj_t BgL_stringz00_2799;
if(
STRINGP(BgL_stringz00_1773))
{ /* Ieee/port.scm 1111 */
BgL_stringz00_2799 = BgL_stringz00_1773; }  else 
{ 
 obj_t BgL_auxz00_6773;
BgL_auxz00_6773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49140L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1773); 
FAILURE(BgL_auxz00_6773,BFALSE,BFALSE);} 
BgL_endz00_1777 = 
STRING_LENGTH(BgL_stringz00_2799); } 
{ /* Ieee/port.scm 1110 */

{ /* Ieee/port.scm 1110 */
 obj_t BgL_auxz00_6778;
if(
STRINGP(BgL_stringz00_1773))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6778 = BgL_stringz00_1773
; }  else 
{ 
 obj_t BgL_auxz00_6781;
BgL_auxz00_6781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1773); 
FAILURE(BgL_auxz00_6781,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_auxz00_6778, 
BINT(0L), 
BINT(BgL_endz00_1777));} } } break;case 2L : 

{ /* Ieee/port.scm 1110 */
 obj_t BgL_startz00_1778;
{ 
 obj_t BgL_auxz00_6788;
if(
VECTORP(BgL_opt1266z00_80))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6788 = BgL_opt1266z00_80
; }  else 
{ 
 obj_t BgL_auxz00_6791;
BgL_auxz00_6791 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1266z00_80); 
FAILURE(BgL_auxz00_6791,BFALSE,BFALSE);} 
BgL_startz00_1778 = 
VECTOR_REF(BgL_auxz00_6788,1L); } 
{ /* Ieee/port.scm 1111 */
 long BgL_endz00_1779;
{ /* Ieee/port.scm 1111 */
 obj_t BgL_stringz00_2800;
if(
STRINGP(BgL_stringz00_1773))
{ /* Ieee/port.scm 1111 */
BgL_stringz00_2800 = BgL_stringz00_1773; }  else 
{ 
 obj_t BgL_auxz00_6798;
BgL_auxz00_6798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49140L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1773); 
FAILURE(BgL_auxz00_6798,BFALSE,BFALSE);} 
BgL_endz00_1779 = 
STRING_LENGTH(BgL_stringz00_2800); } 
{ /* Ieee/port.scm 1110 */

{ /* Ieee/port.scm 1110 */
 obj_t BgL_auxz00_6803;
if(
STRINGP(BgL_stringz00_1773))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6803 = BgL_stringz00_1773
; }  else 
{ 
 obj_t BgL_auxz00_6806;
BgL_auxz00_6806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1773); 
FAILURE(BgL_auxz00_6806,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_auxz00_6803, BgL_startz00_1778, 
BINT(BgL_endz00_1779));} } } } break;case 3L : 

{ /* Ieee/port.scm 1110 */
 obj_t BgL_startz00_1780;
{ 
 obj_t BgL_auxz00_6812;
if(
VECTORP(BgL_opt1266z00_80))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6812 = BgL_opt1266z00_80
; }  else 
{ 
 obj_t BgL_auxz00_6815;
BgL_auxz00_6815 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1266z00_80); 
FAILURE(BgL_auxz00_6815,BFALSE,BFALSE);} 
BgL_startz00_1780 = 
VECTOR_REF(BgL_auxz00_6812,1L); } 
{ /* Ieee/port.scm 1110 */
 obj_t BgL_endz00_1781;
{ 
 obj_t BgL_auxz00_6820;
if(
VECTORP(BgL_opt1266z00_80))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6820 = BgL_opt1266z00_80
; }  else 
{ 
 obj_t BgL_auxz00_6823;
BgL_auxz00_6823 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1266z00_80); 
FAILURE(BgL_auxz00_6823,BFALSE,BFALSE);} 
BgL_endz00_1781 = 
VECTOR_REF(BgL_auxz00_6820,2L); } 
{ /* Ieee/port.scm 1110 */

{ /* Ieee/port.scm 1110 */
 obj_t BgL_auxz00_6828;
if(
STRINGP(BgL_stringz00_1773))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6828 = BgL_stringz00_1773
; }  else 
{ 
 obj_t BgL_auxz00_6831;
BgL_auxz00_6831 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3011z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1773); 
FAILURE(BgL_auxz00_6831,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_auxz00_6828, BgL_startz00_1780, BgL_endz00_1781);} } } } break;
default: 
{ /* Ieee/port.scm 1110 */
 long BgL_arg1517z00_1782;
{ 
 obj_t BgL_auxz00_6836;
if(
VECTORP(BgL_opt1266z00_80))
{ /* Ieee/port.scm 1110 */
BgL_auxz00_6836 = BgL_opt1266z00_80
; }  else 
{ 
 obj_t BgL_auxz00_6839;
BgL_auxz00_6839 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49076L), BGl_string3012z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1266z00_80); 
FAILURE(BgL_auxz00_6839,BFALSE,BFALSE);} 
BgL_arg1517z00_1782 = 
VECTOR_LENGTH(BgL_auxz00_6836); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3013z00zz__r4_ports_6_10_1z00, BGl_string2994z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1517z00_1782));} } } } } } 

}



/* 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 */
{ /* Ieee/port.scm 1113 */
 bool_t BgL_test3800z00_6847;
{ /* Ieee/port.scm 1113 */
 long BgL_n1z00_2801;
{ /* Ieee/port.scm 1113 */
 obj_t BgL_tmpz00_6848;
if(
INTEGERP(BgL_startz00_78))
{ /* Ieee/port.scm 1113 */
BgL_tmpz00_6848 = BgL_startz00_78
; }  else 
{ 
 obj_t BgL_auxz00_6851;
BgL_auxz00_6851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49186L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
FAILURE(BgL_auxz00_6851,BFALSE,BFALSE);} 
BgL_n1z00_2801 = 
(long)CINT(BgL_tmpz00_6848); } 
BgL_test3800z00_6847 = 
(BgL_n1z00_2801<0L); } 
if(BgL_test3800z00_6847)
{ /* Ieee/port.scm 1114 */
 obj_t BgL_aux2407z00_4195;
BgL_aux2407z00_4195 = 
BGl_errorz00zz__errorz00(BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string3015z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
if(
INPUT_PORTP(BgL_aux2407z00_4195))
{ /* Ieee/port.scm 1114 */
return BgL_aux2407z00_4195;}  else 
{ 
 obj_t BgL_auxz00_6860;
BgL_auxz00_6860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49202L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2407z00_4195); 
FAILURE(BgL_auxz00_6860,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1115 */
 bool_t BgL_test3803z00_6864;
{ /* Ieee/port.scm 1115 */
 long BgL_n1z00_2803;
{ /* Ieee/port.scm 1115 */
 obj_t BgL_tmpz00_6865;
if(
INTEGERP(BgL_startz00_78))
{ /* Ieee/port.scm 1115 */
BgL_tmpz00_6865 = BgL_startz00_78
; }  else 
{ 
 obj_t BgL_auxz00_6868;
BgL_auxz00_6868 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49272L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
FAILURE(BgL_auxz00_6868,BFALSE,BFALSE);} 
BgL_n1z00_2803 = 
(long)CINT(BgL_tmpz00_6865); } 
BgL_test3803z00_6864 = 
(BgL_n1z00_2803>
STRING_LENGTH(BgL_stringz00_77)); } 
if(BgL_test3803z00_6864)
{ /* Ieee/port.scm 1116 */
 obj_t BgL_aux2410z00_4198;
BgL_aux2410z00_4198 = 
BGl_errorz00zz__errorz00(BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string3016z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
if(
INPUT_PORTP(BgL_aux2410z00_4198))
{ /* Ieee/port.scm 1116 */
return BgL_aux2410z00_4198;}  else 
{ 
 obj_t BgL_auxz00_6878;
BgL_auxz00_6878 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49309L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2410z00_4198); 
FAILURE(BgL_auxz00_6878,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1117 */
 bool_t BgL_test3806z00_6882;
{ /* Ieee/port.scm 1117 */
 long BgL_n1z00_2805; long BgL_n2z00_2806;
{ /* Ieee/port.scm 1117 */
 obj_t BgL_tmpz00_6883;
if(
INTEGERP(BgL_startz00_78))
{ /* Ieee/port.scm 1117 */
BgL_tmpz00_6883 = BgL_startz00_78
; }  else 
{ 
 obj_t BgL_auxz00_6886;
BgL_auxz00_6886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49385L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
FAILURE(BgL_auxz00_6886,BFALSE,BFALSE);} 
BgL_n1z00_2805 = 
(long)CINT(BgL_tmpz00_6883); } 
{ /* Ieee/port.scm 1117 */
 obj_t BgL_tmpz00_6891;
if(
INTEGERP(BgL_endz00_79))
{ /* Ieee/port.scm 1117 */
BgL_tmpz00_6891 = BgL_endz00_79
; }  else 
{ 
 obj_t BgL_auxz00_6894;
BgL_auxz00_6894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49391L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_79); 
FAILURE(BgL_auxz00_6894,BFALSE,BFALSE);} 
BgL_n2z00_2806 = 
(long)CINT(BgL_tmpz00_6891); } 
BgL_test3806z00_6882 = 
(BgL_n1z00_2805>BgL_n2z00_2806); } 
if(BgL_test3806z00_6882)
{ /* Ieee/port.scm 1118 */
 obj_t BgL_aux2414z00_4202;
BgL_aux2414z00_4202 = 
BGl_errorz00zz__errorz00(BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string3017z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
if(
INPUT_PORTP(BgL_aux2414z00_4202))
{ /* Ieee/port.scm 1118 */
return BgL_aux2414z00_4202;}  else 
{ 
 obj_t BgL_auxz00_6903;
BgL_auxz00_6903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49403L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2414z00_4202); 
FAILURE(BgL_auxz00_6903,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1119 */
 bool_t BgL_test3810z00_6907;
{ /* Ieee/port.scm 1119 */
 long BgL_n1z00_2808;
{ /* Ieee/port.scm 1119 */
 obj_t BgL_tmpz00_6908;
if(
INTEGERP(BgL_endz00_79))
{ /* Ieee/port.scm 1119 */
BgL_tmpz00_6908 = BgL_endz00_79
; }  else 
{ 
 obj_t BgL_auxz00_6911;
BgL_auxz00_6911 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49482L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_79); 
FAILURE(BgL_auxz00_6911,BFALSE,BFALSE);} 
BgL_n1z00_2808 = 
(long)CINT(BgL_tmpz00_6908); } 
BgL_test3810z00_6907 = 
(BgL_n1z00_2808>
STRING_LENGTH(BgL_stringz00_77)); } 
if(BgL_test3810z00_6907)
{ /* Ieee/port.scm 1120 */
 obj_t BgL_aux2417z00_4205;
BgL_aux2417z00_4205 = 
BGl_errorz00zz__errorz00(BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string3018z00zz__r4_ports_6_10_1z00, BgL_endz00_79); 
if(
INPUT_PORTP(BgL_aux2417z00_4205))
{ /* Ieee/port.scm 1120 */
return BgL_aux2417z00_4205;}  else 
{ 
 obj_t BgL_auxz00_6921;
BgL_auxz00_6921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49517L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2417z00_4205); 
FAILURE(BgL_auxz00_6921,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1122 */
 long BgL_auxz00_6934; long BgL_tmpz00_6925;
{ /* Ieee/port.scm 1122 */
 obj_t BgL_tmpz00_6935;
if(
INTEGERP(BgL_endz00_79))
{ /* Ieee/port.scm 1122 */
BgL_tmpz00_6935 = BgL_endz00_79
; }  else 
{ 
 obj_t BgL_auxz00_6938;
BgL_auxz00_6938 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49632L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_79); 
FAILURE(BgL_auxz00_6938,BFALSE,BFALSE);} 
BgL_auxz00_6934 = 
(long)CINT(BgL_tmpz00_6935); } 
{ /* Ieee/port.scm 1122 */
 obj_t BgL_tmpz00_6926;
if(
INTEGERP(BgL_startz00_78))
{ /* Ieee/port.scm 1122 */
BgL_tmpz00_6926 = BgL_startz00_78
; }  else 
{ 
 obj_t BgL_auxz00_6929;
BgL_auxz00_6929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49626L), BGl_string3014z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_78); 
FAILURE(BgL_auxz00_6929,BFALSE,BFALSE);} 
BgL_tmpz00_6925 = 
(long)CINT(BgL_tmpz00_6926); } 
return 
bgl_open_input_substring(BgL_stringz00_77, BgL_tmpz00_6925, BgL_auxz00_6934);} } } } } } 

}



/* _open-input-string! */
obj_t BGl__openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t BgL_env1271z00_86, obj_t BgL_opt1270z00_85)
{
{ /* Ieee/port.scm 1127 */
{ /* Ieee/port.scm 1127 */
 obj_t BgL_stringz00_1791;
{ 
 obj_t BgL_auxz00_6944;
if(
VECTORP(BgL_opt1270z00_85))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_6944 = BgL_opt1270z00_85
; }  else 
{ 
 obj_t BgL_auxz00_6947;
BgL_auxz00_6947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1270z00_85); 
FAILURE(BgL_auxz00_6947,BFALSE,BFALSE);} 
BgL_stringz00_1791 = 
VECTOR_REF(BgL_auxz00_6944,0L); } 
{ 

{ /* Ieee/port.scm 1127 */
 long BgL_aux1273z00_1793;
{ 
 obj_t BgL_auxz00_6952;
if(
VECTORP(BgL_opt1270z00_85))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_6952 = BgL_opt1270z00_85
; }  else 
{ 
 obj_t BgL_auxz00_6955;
BgL_auxz00_6955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1270z00_85); 
FAILURE(BgL_auxz00_6955,BFALSE,BFALSE);} 
BgL_aux1273z00_1793 = 
VECTOR_LENGTH(BgL_auxz00_6952); } 
switch( BgL_aux1273z00_1793) { case 1L : 

{ /* Ieee/port.scm 1128 */
 long BgL_endz00_1795;
{ /* Ieee/port.scm 1128 */
 obj_t BgL_stringz00_2810;
if(
STRINGP(BgL_stringz00_1791))
{ /* Ieee/port.scm 1128 */
BgL_stringz00_2810 = BgL_stringz00_1791; }  else 
{ 
 obj_t BgL_auxz00_6962;
BgL_auxz00_6962 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49928L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1791); 
FAILURE(BgL_auxz00_6962,BFALSE,BFALSE);} 
BgL_endz00_1795 = 
STRING_LENGTH(BgL_stringz00_2810); } 
{ /* Ieee/port.scm 1127 */

{ /* Ieee/port.scm 1127 */
 obj_t BgL_auxz00_6967;
if(
STRINGP(BgL_stringz00_1791))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_6967 = BgL_stringz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_6970;
BgL_auxz00_6970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1791); 
FAILURE(BgL_auxz00_6970,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_6967, 
BINT(0L), 
BINT(BgL_endz00_1795));} } } break;case 2L : 

{ /* Ieee/port.scm 1127 */
 obj_t BgL_startz00_1796;
{ 
 obj_t BgL_auxz00_6977;
if(
VECTORP(BgL_opt1270z00_85))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_6977 = BgL_opt1270z00_85
; }  else 
{ 
 obj_t BgL_auxz00_6980;
BgL_auxz00_6980 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1270z00_85); 
FAILURE(BgL_auxz00_6980,BFALSE,BFALSE);} 
BgL_startz00_1796 = 
VECTOR_REF(BgL_auxz00_6977,1L); } 
{ /* Ieee/port.scm 1128 */
 long BgL_endz00_1797;
{ /* Ieee/port.scm 1128 */
 obj_t BgL_stringz00_2811;
if(
STRINGP(BgL_stringz00_1791))
{ /* Ieee/port.scm 1128 */
BgL_stringz00_2811 = BgL_stringz00_1791; }  else 
{ 
 obj_t BgL_auxz00_6987;
BgL_auxz00_6987 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49928L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1791); 
FAILURE(BgL_auxz00_6987,BFALSE,BFALSE);} 
BgL_endz00_1797 = 
STRING_LENGTH(BgL_stringz00_2811); } 
{ /* Ieee/port.scm 1127 */

{ /* Ieee/port.scm 1127 */
 obj_t BgL_auxz00_6992;
if(
STRINGP(BgL_stringz00_1791))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_6992 = BgL_stringz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_6995;
BgL_auxz00_6995 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1791); 
FAILURE(BgL_auxz00_6995,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_6992, BgL_startz00_1796, 
BINT(BgL_endz00_1797));} } } } break;case 3L : 

{ /* Ieee/port.scm 1127 */
 obj_t BgL_startz00_1798;
{ 
 obj_t BgL_auxz00_7001;
if(
VECTORP(BgL_opt1270z00_85))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_7001 = BgL_opt1270z00_85
; }  else 
{ 
 obj_t BgL_auxz00_7004;
BgL_auxz00_7004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1270z00_85); 
FAILURE(BgL_auxz00_7004,BFALSE,BFALSE);} 
BgL_startz00_1798 = 
VECTOR_REF(BgL_auxz00_7001,1L); } 
{ /* Ieee/port.scm 1127 */
 obj_t BgL_endz00_1799;
{ 
 obj_t BgL_auxz00_7009;
if(
VECTORP(BgL_opt1270z00_85))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_7009 = BgL_opt1270z00_85
; }  else 
{ 
 obj_t BgL_auxz00_7012;
BgL_auxz00_7012 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1270z00_85); 
FAILURE(BgL_auxz00_7012,BFALSE,BFALSE);} 
BgL_endz00_1799 = 
VECTOR_REF(BgL_auxz00_7009,2L); } 
{ /* Ieee/port.scm 1127 */

{ /* Ieee/port.scm 1127 */
 obj_t BgL_auxz00_7017;
if(
STRINGP(BgL_stringz00_1791))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_7017 = BgL_stringz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_7020;
BgL_auxz00_7020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3019z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_1791); 
FAILURE(BgL_auxz00_7020,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_7017, BgL_startz00_1798, BgL_endz00_1799);} } } } break;
default: 
{ /* Ieee/port.scm 1127 */
 long BgL_arg1527z00_1800;
{ 
 obj_t BgL_auxz00_7025;
if(
VECTORP(BgL_opt1270z00_85))
{ /* Ieee/port.scm 1127 */
BgL_auxz00_7025 = BgL_opt1270z00_85
; }  else 
{ 
 obj_t BgL_auxz00_7028;
BgL_auxz00_7028 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49863L), BGl_string3020z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1270z00_85); 
FAILURE(BgL_auxz00_7028,BFALSE,BFALSE);} 
BgL_arg1527z00_1800 = 
VECTOR_LENGTH(BgL_auxz00_7025); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3021z00zz__r4_ports_6_10_1z00, BGl_string2994z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1527z00_1800));} } } } } } 

}



/* 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 */
{ /* Ieee/port.scm 1130 */
 bool_t BgL_test3826z00_7036;
{ /* Ieee/port.scm 1130 */
 long BgL_n1z00_2812;
{ /* Ieee/port.scm 1130 */
 obj_t BgL_tmpz00_7037;
if(
INTEGERP(BgL_startz00_83))
{ /* Ieee/port.scm 1130 */
BgL_tmpz00_7037 = BgL_startz00_83
; }  else 
{ 
 obj_t BgL_auxz00_7040;
BgL_auxz00_7040 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49974L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
FAILURE(BgL_auxz00_7040,BFALSE,BFALSE);} 
BgL_n1z00_2812 = 
(long)CINT(BgL_tmpz00_7037); } 
BgL_test3826z00_7036 = 
(BgL_n1z00_2812<0L); } 
if(BgL_test3826z00_7036)
{ /* Ieee/port.scm 1131 */
 obj_t BgL_aux2444z00_4232;
BgL_aux2444z00_4232 = 
BGl_errorz00zz__errorz00(BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string3015z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
if(
INPUT_PORTP(BgL_aux2444z00_4232))
{ /* Ieee/port.scm 1131 */
return BgL_aux2444z00_4232;}  else 
{ 
 obj_t BgL_auxz00_7049;
BgL_auxz00_7049 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(49990L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2444z00_4232); 
FAILURE(BgL_auxz00_7049,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1132 */
 bool_t BgL_test3829z00_7053;
{ /* Ieee/port.scm 1132 */
 long BgL_n1z00_2814;
{ /* Ieee/port.scm 1132 */
 obj_t BgL_tmpz00_7054;
if(
INTEGERP(BgL_startz00_83))
{ /* Ieee/port.scm 1132 */
BgL_tmpz00_7054 = BgL_startz00_83
; }  else 
{ 
 obj_t BgL_auxz00_7057;
BgL_auxz00_7057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50061L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
FAILURE(BgL_auxz00_7057,BFALSE,BFALSE);} 
BgL_n1z00_2814 = 
(long)CINT(BgL_tmpz00_7054); } 
BgL_test3829z00_7053 = 
(BgL_n1z00_2814>
STRING_LENGTH(BgL_stringz00_82)); } 
if(BgL_test3829z00_7053)
{ /* Ieee/port.scm 1133 */
 obj_t BgL_aux2447z00_4235;
BgL_aux2447z00_4235 = 
BGl_errorz00zz__errorz00(BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string3016z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
if(
INPUT_PORTP(BgL_aux2447z00_4235))
{ /* Ieee/port.scm 1133 */
return BgL_aux2447z00_4235;}  else 
{ 
 obj_t BgL_auxz00_7067;
BgL_auxz00_7067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50098L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2447z00_4235); 
FAILURE(BgL_auxz00_7067,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1134 */
 bool_t BgL_test3832z00_7071;
{ /* Ieee/port.scm 1134 */
 long BgL_n1z00_2816; long BgL_n2z00_2817;
{ /* Ieee/port.scm 1134 */
 obj_t BgL_tmpz00_7072;
if(
INTEGERP(BgL_startz00_83))
{ /* Ieee/port.scm 1134 */
BgL_tmpz00_7072 = BgL_startz00_83
; }  else 
{ 
 obj_t BgL_auxz00_7075;
BgL_auxz00_7075 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50175L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
FAILURE(BgL_auxz00_7075,BFALSE,BFALSE);} 
BgL_n1z00_2816 = 
(long)CINT(BgL_tmpz00_7072); } 
{ /* Ieee/port.scm 1134 */
 obj_t BgL_tmpz00_7080;
if(
INTEGERP(BgL_endz00_84))
{ /* Ieee/port.scm 1134 */
BgL_tmpz00_7080 = BgL_endz00_84
; }  else 
{ 
 obj_t BgL_auxz00_7083;
BgL_auxz00_7083 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50181L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_84); 
FAILURE(BgL_auxz00_7083,BFALSE,BFALSE);} 
BgL_n2z00_2817 = 
(long)CINT(BgL_tmpz00_7080); } 
BgL_test3832z00_7071 = 
(BgL_n1z00_2816>BgL_n2z00_2817); } 
if(BgL_test3832z00_7071)
{ /* Ieee/port.scm 1135 */
 obj_t BgL_aux2451z00_4239;
BgL_aux2451z00_4239 = 
BGl_errorz00zz__errorz00(BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string3017z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
if(
INPUT_PORTP(BgL_aux2451z00_4239))
{ /* Ieee/port.scm 1135 */
return BgL_aux2451z00_4239;}  else 
{ 
 obj_t BgL_auxz00_7092;
BgL_auxz00_7092 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50193L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2451z00_4239); 
FAILURE(BgL_auxz00_7092,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1136 */
 bool_t BgL_test3836z00_7096;
{ /* Ieee/port.scm 1136 */
 long BgL_n1z00_2819;
{ /* Ieee/port.scm 1136 */
 obj_t BgL_tmpz00_7097;
if(
INTEGERP(BgL_endz00_84))
{ /* Ieee/port.scm 1136 */
BgL_tmpz00_7097 = BgL_endz00_84
; }  else 
{ 
 obj_t BgL_auxz00_7100;
BgL_auxz00_7100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50273L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_84); 
FAILURE(BgL_auxz00_7100,BFALSE,BFALSE);} 
BgL_n1z00_2819 = 
(long)CINT(BgL_tmpz00_7097); } 
BgL_test3836z00_7096 = 
(BgL_n1z00_2819>
STRING_LENGTH(BgL_stringz00_82)); } 
if(BgL_test3836z00_7096)
{ /* Ieee/port.scm 1137 */
 obj_t BgL_aux2454z00_4242;
BgL_aux2454z00_4242 = 
BGl_errorz00zz__errorz00(BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string3018z00zz__r4_ports_6_10_1z00, BgL_endz00_84); 
if(
INPUT_PORTP(BgL_aux2454z00_4242))
{ /* Ieee/port.scm 1137 */
return BgL_aux2454z00_4242;}  else 
{ 
 obj_t BgL_auxz00_7110;
BgL_auxz00_7110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50308L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2454z00_4242); 
FAILURE(BgL_auxz00_7110,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1139 */
 long BgL_auxz00_7123; long BgL_tmpz00_7114;
{ /* Ieee/port.scm 1139 */
 obj_t BgL_tmpz00_7124;
if(
INTEGERP(BgL_endz00_84))
{ /* Ieee/port.scm 1139 */
BgL_tmpz00_7124 = BgL_endz00_84
; }  else 
{ 
 obj_t BgL_auxz00_7127;
BgL_auxz00_7127 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50425L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_84); 
FAILURE(BgL_auxz00_7127,BFALSE,BFALSE);} 
BgL_auxz00_7123 = 
(long)CINT(BgL_tmpz00_7124); } 
{ /* Ieee/port.scm 1139 */
 obj_t BgL_tmpz00_7115;
if(
INTEGERP(BgL_startz00_83))
{ /* Ieee/port.scm 1139 */
BgL_tmpz00_7115 = BgL_startz00_83
; }  else 
{ 
 obj_t BgL_auxz00_7118;
BgL_auxz00_7118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50419L), BGl_string3022z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_83); 
FAILURE(BgL_auxz00_7118,BFALSE,BFALSE);} 
BgL_tmpz00_7114 = 
(long)CINT(BgL_tmpz00_7115); } 
return 
bgl_open_input_substring_bang(BgL_stringz00_82, BgL_tmpz00_7114, BgL_auxz00_7123);} } } } } } 

}



/* _open-input-mmap */
obj_t BGl__openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(obj_t BgL_env1275z00_91, obj_t BgL_opt1274z00_90)
{
{ /* Ieee/port.scm 1144 */
{ /* Ieee/port.scm 1144 */
 obj_t BgL_mmapz00_1809;
{ 
 obj_t BgL_auxz00_7133;
if(
VECTORP(BgL_opt1274z00_90))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7133 = BgL_opt1274z00_90
; }  else 
{ 
 obj_t BgL_auxz00_7136;
BgL_auxz00_7136 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1274z00_90); 
FAILURE(BgL_auxz00_7136,BFALSE,BFALSE);} 
BgL_mmapz00_1809 = 
VECTOR_REF(BgL_auxz00_7133,0L); } 
{ 

{ /* Ieee/port.scm 1144 */
 long BgL_aux1277z00_1811;
{ 
 obj_t BgL_auxz00_7141;
if(
VECTORP(BgL_opt1274z00_90))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7141 = BgL_opt1274z00_90
; }  else 
{ 
 obj_t BgL_auxz00_7144;
BgL_auxz00_7144 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1274z00_90); 
FAILURE(BgL_auxz00_7144,BFALSE,BFALSE);} 
BgL_aux1277z00_1811 = 
VECTOR_LENGTH(BgL_auxz00_7141); } 
switch( BgL_aux1277z00_1811) { case 1L : 

{ /* Ieee/port.scm 1145 */
 long BgL_endz00_1813;
{ /* Ieee/port.scm 1145 */
 long BgL_arg1542z00_1814;
{ /* Ieee/port.scm 1145 */
 obj_t BgL_objz00_2821;
if(
BGL_MMAPP(BgL_mmapz00_1809))
{ /* Ieee/port.scm 1145 */
BgL_objz00_2821 = BgL_mmapz00_1809; }  else 
{ 
 obj_t BgL_auxz00_7151;
BgL_auxz00_7151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50750L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_mmapz00_1809); 
FAILURE(BgL_auxz00_7151,BFALSE,BFALSE);} 
BgL_arg1542z00_1814 = 
BGL_MMAP_LENGTH(BgL_objz00_2821); } 
BgL_endz00_1813 = 
(long)(BgL_arg1542z00_1814); } 
{ /* Ieee/port.scm 1144 */

{ /* Ieee/port.scm 1144 */
 obj_t BgL_auxz00_7157;
if(
BGL_MMAPP(BgL_mmapz00_1809))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7157 = BgL_mmapz00_1809
; }  else 
{ 
 obj_t BgL_auxz00_7160;
BgL_auxz00_7160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_mmapz00_1809); 
FAILURE(BgL_auxz00_7160,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(BgL_auxz00_7157, 
BINT(0L), 
BINT(BgL_endz00_1813));} } } break;case 2L : 

{ /* Ieee/port.scm 1144 */
 obj_t BgL_startz00_1815;
{ 
 obj_t BgL_auxz00_7167;
if(
VECTORP(BgL_opt1274z00_90))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7167 = BgL_opt1274z00_90
; }  else 
{ 
 obj_t BgL_auxz00_7170;
BgL_auxz00_7170 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1274z00_90); 
FAILURE(BgL_auxz00_7170,BFALSE,BFALSE);} 
BgL_startz00_1815 = 
VECTOR_REF(BgL_auxz00_7167,1L); } 
{ /* Ieee/port.scm 1145 */
 long BgL_endz00_1816;
{ /* Ieee/port.scm 1145 */
 long BgL_arg1543z00_1817;
{ /* Ieee/port.scm 1145 */
 obj_t BgL_objz00_2823;
if(
BGL_MMAPP(BgL_mmapz00_1809))
{ /* Ieee/port.scm 1145 */
BgL_objz00_2823 = BgL_mmapz00_1809; }  else 
{ 
 obj_t BgL_auxz00_7177;
BgL_auxz00_7177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50750L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_mmapz00_1809); 
FAILURE(BgL_auxz00_7177,BFALSE,BFALSE);} 
BgL_arg1543z00_1817 = 
BGL_MMAP_LENGTH(BgL_objz00_2823); } 
BgL_endz00_1816 = 
(long)(BgL_arg1543z00_1817); } 
{ /* Ieee/port.scm 1144 */

{ /* Ieee/port.scm 1144 */
 obj_t BgL_auxz00_7183;
if(
BGL_MMAPP(BgL_mmapz00_1809))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7183 = BgL_mmapz00_1809
; }  else 
{ 
 obj_t BgL_auxz00_7186;
BgL_auxz00_7186 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_mmapz00_1809); 
FAILURE(BgL_auxz00_7186,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(BgL_auxz00_7183, BgL_startz00_1815, 
BINT(BgL_endz00_1816));} } } } break;case 3L : 

{ /* Ieee/port.scm 1144 */
 obj_t BgL_startz00_1818;
{ 
 obj_t BgL_auxz00_7192;
if(
VECTORP(BgL_opt1274z00_90))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7192 = BgL_opt1274z00_90
; }  else 
{ 
 obj_t BgL_auxz00_7195;
BgL_auxz00_7195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1274z00_90); 
FAILURE(BgL_auxz00_7195,BFALSE,BFALSE);} 
BgL_startz00_1818 = 
VECTOR_REF(BgL_auxz00_7192,1L); } 
{ /* Ieee/port.scm 1144 */
 obj_t BgL_endz00_1819;
{ 
 obj_t BgL_auxz00_7200;
if(
VECTORP(BgL_opt1274z00_90))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7200 = BgL_opt1274z00_90
; }  else 
{ 
 obj_t BgL_auxz00_7203;
BgL_auxz00_7203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1274z00_90); 
FAILURE(BgL_auxz00_7203,BFALSE,BFALSE);} 
BgL_endz00_1819 = 
VECTOR_REF(BgL_auxz00_7200,2L); } 
{ /* Ieee/port.scm 1144 */

{ /* Ieee/port.scm 1144 */
 obj_t BgL_auxz00_7208;
if(
BGL_MMAPP(BgL_mmapz00_1809))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7208 = BgL_mmapz00_1809
; }  else 
{ 
 obj_t BgL_auxz00_7211;
BgL_auxz00_7211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3023z00zz__r4_ports_6_10_1z00, BGl_string3027z00zz__r4_ports_6_10_1z00, BgL_mmapz00_1809); 
FAILURE(BgL_auxz00_7211,BFALSE,BFALSE);} 
return 
BGl_openzd2inputzd2mmapz00zz__r4_ports_6_10_1z00(BgL_auxz00_7208, BgL_startz00_1818, BgL_endz00_1819);} } } } break;
default: 
{ /* Ieee/port.scm 1144 */
 long BgL_arg1545z00_1820;
{ 
 obj_t BgL_auxz00_7216;
if(
VECTORP(BgL_opt1274z00_90))
{ /* Ieee/port.scm 1144 */
BgL_auxz00_7216 = BgL_opt1274z00_90
; }  else 
{ 
 obj_t BgL_auxz00_7219;
BgL_auxz00_7219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50656L), BGl_string3024z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1274z00_90); 
FAILURE(BgL_auxz00_7219,BFALSE,BFALSE);} 
BgL_arg1545z00_1820 = 
VECTOR_LENGTH(BgL_auxz00_7216); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3025z00zz__r4_ports_6_10_1z00, BGl_string2994z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1545z00_1820));} } } } } } 

}



/* 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 */
{ /* Ieee/port.scm 1147 */
 bool_t BgL_test3852z00_7227;
{ /* Ieee/port.scm 1147 */
 long BgL_n1z00_2825;
{ /* Ieee/port.scm 1147 */
 obj_t BgL_tmpz00_7228;
if(
INTEGERP(BgL_startz00_88))
{ /* Ieee/port.scm 1147 */
BgL_tmpz00_7228 = BgL_startz00_88
; }  else 
{ 
 obj_t BgL_auxz00_7231;
BgL_auxz00_7231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50780L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
FAILURE(BgL_auxz00_7231,BFALSE,BFALSE);} 
BgL_n1z00_2825 = 
(long)CINT(BgL_tmpz00_7228); } 
BgL_test3852z00_7227 = 
(BgL_n1z00_2825<0L); } 
if(BgL_test3852z00_7227)
{ /* Ieee/port.scm 1148 */
 obj_t BgL_aux2481z00_4269;
BgL_aux2481z00_4269 = 
BGl_errorz00zz__errorz00(BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string3015z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
if(
INPUT_PORTP(BgL_aux2481z00_4269))
{ /* Ieee/port.scm 1148 */
return BgL_aux2481z00_4269;}  else 
{ 
 obj_t BgL_auxz00_7240;
BgL_auxz00_7240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50796L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2481z00_4269); 
FAILURE(BgL_auxz00_7240,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1149 */
 bool_t BgL_test3855z00_7244;
{ /* Ieee/port.scm 1149 */
 long BgL_arg1565z00_1836;
{ /* Ieee/port.scm 1149 */
 long BgL_arg1568z00_1837;
BgL_arg1568z00_1837 = 
BGL_MMAP_LENGTH(BgL_mmapz00_87); 
BgL_arg1565z00_1836 = 
(long)(BgL_arg1568z00_1837); } 
{ /* Ieee/port.scm 1149 */
 long BgL_n1z00_2828;
{ /* Ieee/port.scm 1149 */
 obj_t BgL_tmpz00_7247;
if(
INTEGERP(BgL_startz00_88))
{ /* Ieee/port.scm 1149 */
BgL_tmpz00_7247 = BgL_startz00_88
; }  else 
{ 
 obj_t BgL_auxz00_7250;
BgL_auxz00_7250 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50864L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
FAILURE(BgL_auxz00_7250,BFALSE,BFALSE);} 
BgL_n1z00_2828 = 
(long)CINT(BgL_tmpz00_7247); } 
BgL_test3855z00_7244 = 
(BgL_n1z00_2828>BgL_arg1565z00_1836); } } 
if(BgL_test3855z00_7244)
{ /* Ieee/port.scm 1150 */
 obj_t BgL_aux2484z00_4272;
BgL_aux2484z00_4272 = 
BGl_errorz00zz__errorz00(BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string3016z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
if(
INPUT_PORTP(BgL_aux2484z00_4272))
{ /* Ieee/port.scm 1150 */
return BgL_aux2484z00_4272;}  else 
{ 
 obj_t BgL_auxz00_7259;
BgL_auxz00_7259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50913L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2484z00_4272); 
FAILURE(BgL_auxz00_7259,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1151 */
 bool_t BgL_test3858z00_7263;
{ /* Ieee/port.scm 1151 */
 long BgL_n1z00_2830; long BgL_n2z00_2831;
{ /* Ieee/port.scm 1151 */
 obj_t BgL_tmpz00_7264;
if(
INTEGERP(BgL_startz00_88))
{ /* Ieee/port.scm 1151 */
BgL_tmpz00_7264 = BgL_startz00_88
; }  else 
{ 
 obj_t BgL_auxz00_7267;
BgL_auxz00_7267 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50987L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
FAILURE(BgL_auxz00_7267,BFALSE,BFALSE);} 
BgL_n1z00_2830 = 
(long)CINT(BgL_tmpz00_7264); } 
{ /* Ieee/port.scm 1151 */
 obj_t BgL_tmpz00_7272;
if(
INTEGERP(BgL_endz00_89))
{ /* Ieee/port.scm 1151 */
BgL_tmpz00_7272 = BgL_endz00_89
; }  else 
{ 
 obj_t BgL_auxz00_7275;
BgL_auxz00_7275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(50993L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_89); 
FAILURE(BgL_auxz00_7275,BFALSE,BFALSE);} 
BgL_n2z00_2831 = 
(long)CINT(BgL_tmpz00_7272); } 
BgL_test3858z00_7263 = 
(BgL_n1z00_2830>BgL_n2z00_2831); } 
if(BgL_test3858z00_7263)
{ /* Ieee/port.scm 1152 */
 obj_t BgL_aux2488z00_4276;
BgL_aux2488z00_4276 = 
BGl_errorz00zz__errorz00(BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string3017z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
if(
INPUT_PORTP(BgL_aux2488z00_4276))
{ /* Ieee/port.scm 1152 */
return BgL_aux2488z00_4276;}  else 
{ 
 obj_t BgL_auxz00_7284;
BgL_auxz00_7284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51005L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2488z00_4276); 
FAILURE(BgL_auxz00_7284,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1153 */
 bool_t BgL_test3862z00_7288;
{ /* Ieee/port.scm 1153 */
 long BgL_arg1562z00_1834;
{ /* Ieee/port.scm 1153 */
 long BgL_arg1563z00_1835;
BgL_arg1563z00_1835 = 
BGL_MMAP_LENGTH(BgL_mmapz00_87); 
BgL_arg1562z00_1834 = 
(long)(BgL_arg1563z00_1835); } 
{ /* Ieee/port.scm 1153 */
 long BgL_n1z00_2834;
{ /* Ieee/port.scm 1153 */
 obj_t BgL_tmpz00_7291;
if(
INTEGERP(BgL_endz00_89))
{ /* Ieee/port.scm 1153 */
BgL_tmpz00_7291 = BgL_endz00_89
; }  else 
{ 
 obj_t BgL_auxz00_7294;
BgL_auxz00_7294 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51082L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_89); 
FAILURE(BgL_auxz00_7294,BFALSE,BFALSE);} 
BgL_n1z00_2834 = 
(long)CINT(BgL_tmpz00_7291); } 
BgL_test3862z00_7288 = 
(BgL_n1z00_2834>BgL_arg1562z00_1834); } } 
if(BgL_test3862z00_7288)
{ /* Ieee/port.scm 1154 */
 obj_t BgL_aux2491z00_4279;
BgL_aux2491z00_4279 = 
BGl_errorz00zz__errorz00(BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string3018z00zz__r4_ports_6_10_1z00, BgL_endz00_89); 
if(
INPUT_PORTP(BgL_aux2491z00_4279))
{ /* Ieee/port.scm 1154 */
return BgL_aux2491z00_4279;}  else 
{ 
 obj_t BgL_auxz00_7303;
BgL_auxz00_7303 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51129L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_aux2491z00_4279); 
FAILURE(BgL_auxz00_7303,BFALSE,BFALSE);} }  else 
{ /* Ieee/port.scm 1156 */
 obj_t BgL_bufferz00_1829;
BgL_bufferz00_1829 = 
make_string_sans_fill(2L); 
{ /* Ieee/port.scm 1160 */
 long BgL_auxz00_7317; long BgL_tmpz00_7308;
{ /* Ieee/port.scm 1160 */
 obj_t BgL_tmpz00_7318;
if(
INTEGERP(BgL_endz00_89))
{ /* Ieee/port.scm 1160 */
BgL_tmpz00_7318 = BgL_endz00_89
; }  else 
{ 
 obj_t BgL_auxz00_7321;
BgL_auxz00_7321 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51407L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_endz00_89); 
FAILURE(BgL_auxz00_7321,BFALSE,BFALSE);} 
BgL_auxz00_7317 = 
(long)CINT(BgL_tmpz00_7318); } 
{ /* Ieee/port.scm 1160 */
 obj_t BgL_tmpz00_7309;
if(
INTEGERP(BgL_startz00_88))
{ /* Ieee/port.scm 1160 */
BgL_tmpz00_7309 = BgL_startz00_88
; }  else 
{ 
 obj_t BgL_auxz00_7312;
BgL_auxz00_7312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51401L), BGl_string3026z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_startz00_88); 
FAILURE(BgL_auxz00_7312,BFALSE,BFALSE);} 
BgL_tmpz00_7308 = 
(long)CINT(BgL_tmpz00_7309); } 
return 
bgl_open_input_mmap(BgL_mmapz00_87, BgL_bufferz00_1829, BgL_tmpz00_7308, BgL_auxz00_7317);} } } } } } } 

}



/* _open-input-procedure */
obj_t BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t BgL_env1279z00_95, obj_t BgL_opt1278z00_94)
{
{ /* Ieee/port.scm 1165 */
{ /* Ieee/port.scm 1165 */
 obj_t BgL_g1280z00_1838;
{ 
 obj_t BgL_auxz00_7327;
if(
VECTORP(BgL_opt1278z00_94))
{ /* Ieee/port.scm 1165 */
BgL_auxz00_7327 = BgL_opt1278z00_94
; }  else 
{ 
 obj_t BgL_auxz00_7330;
BgL_auxz00_7330 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51639L), BGl_string3028z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1278z00_94); 
FAILURE(BgL_auxz00_7330,BFALSE,BFALSE);} 
BgL_g1280z00_1838 = 
VECTOR_REF(BgL_auxz00_7327,0L); } 
{ 

{ /* Ieee/port.scm 1165 */
 long BgL_aux1282z00_1840;
{ 
 obj_t BgL_auxz00_7335;
if(
VECTORP(BgL_opt1278z00_94))
{ /* Ieee/port.scm 1165 */
BgL_auxz00_7335 = BgL_opt1278z00_94
; }  else 
{ 
 obj_t BgL_auxz00_7338;
BgL_auxz00_7338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51639L), BGl_string3028z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1278z00_94); 
FAILURE(BgL_auxz00_7338,BFALSE,BFALSE);} 
BgL_aux1282z00_1840 = 
VECTOR_LENGTH(BgL_auxz00_7335); } 
switch( BgL_aux1282z00_1840) { case 1L : 

{ /* Ieee/port.scm 1165 */

{ /* Ieee/port.scm 1165 */
 obj_t BgL_procz00_2848;
if(
PROCEDUREP(BgL_g1280z00_1838))
{ /* Ieee/port.scm 1165 */
BgL_procz00_2848 = BgL_g1280z00_1838; }  else 
{ 
 obj_t BgL_auxz00_7345;
BgL_auxz00_7345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51639L), BGl_string3028z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_g1280z00_1838); 
FAILURE(BgL_auxz00_7345,BFALSE,BFALSE);} 
return 
bgl_open_input_procedure(BgL_procz00_2848, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2905z00zz__r4_ports_6_10_1z00, BTRUE, 
(int)(1024L)));} } break;case 2L : 

{ /* Ieee/port.scm 1165 */
 obj_t BgL_bufinfoz00_1842;
{ 
 obj_t BgL_auxz00_7352;
if(
VECTORP(BgL_opt1278z00_94))
{ /* Ieee/port.scm 1165 */
BgL_auxz00_7352 = BgL_opt1278z00_94
; }  else 
{ 
 obj_t BgL_auxz00_7355;
BgL_auxz00_7355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51639L), BGl_string3028z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1278z00_94); 
FAILURE(BgL_auxz00_7355,BFALSE,BFALSE);} 
BgL_bufinfoz00_1842 = 
VECTOR_REF(BgL_auxz00_7352,1L); } 
{ /* Ieee/port.scm 1165 */

{ /* Ieee/port.scm 1165 */
 obj_t BgL_procz00_2850;
if(
PROCEDUREP(BgL_g1280z00_1838))
{ /* Ieee/port.scm 1165 */
BgL_procz00_2850 = BgL_g1280z00_1838; }  else 
{ 
 obj_t BgL_auxz00_7362;
BgL_auxz00_7362 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51639L), BGl_string3028z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_g1280z00_1838); 
FAILURE(BgL_auxz00_7362,BFALSE,BFALSE);} 
return 
bgl_open_input_procedure(BgL_procz00_2850, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2905z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_1842, 
(int)(1024L)));} } } break;
default: 
{ /* Ieee/port.scm 1165 */
 long BgL_arg1569z00_1843;
{ 
 obj_t BgL_auxz00_7369;
if(
VECTORP(BgL_opt1278z00_94))
{ /* Ieee/port.scm 1165 */
BgL_auxz00_7369 = BgL_opt1278z00_94
; }  else 
{ 
 obj_t BgL_auxz00_7372;
BgL_auxz00_7372 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(51639L), BGl_string3029z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1278z00_94); 
FAILURE(BgL_auxz00_7372,BFALSE,BFALSE);} 
BgL_arg1569z00_1843 = 
VECTOR_LENGTH(BgL_auxz00_7369); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3030z00zz__r4_ports_6_10_1z00, BGl_string3010z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1569z00_1843));} } } } } } 

}



/* 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_2852;
{ /* Ieee/port.scm 1166 */
 obj_t BgL_res2081z00_2857;
if(
(BgL_bufinfoz00_93==BTRUE))
{ /* Ieee/port.scm 974 */
BgL_res2081z00_2857 = 
make_string_sans_fill(1024L); }  else 
{ /* Ieee/port.scm 974 */
if(
(BgL_bufinfoz00_93==BFALSE))
{ /* Ieee/port.scm 976 */
BgL_res2081z00_2857 = 
make_string_sans_fill(2L); }  else 
{ /* Ieee/port.scm 976 */
if(
STRINGP(BgL_bufinfoz00_93))
{ /* Ieee/port.scm 978 */
BgL_res2081z00_2857 = 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_res2081z00_2857 = 
make_string_sans_fill(
(long)CINT(BgL_bufinfoz00_93)); }  else 
{ /* Ieee/port.scm 981 */
BgL_res2081z00_2857 = 
make_string_sans_fill(2L); } }  else 
{ /* Ieee/port.scm 985 */
 obj_t BgL_aux2507z00_4295;
BgL_aux2507z00_4295 = 
BGl_errorz00zz__errorz00(BGl_string2905z00zz__r4_ports_6_10_1z00, BGl_string2950z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_93); 
if(
STRINGP(BgL_aux2507z00_4295))
{ /* Ieee/port.scm 985 */
BgL_res2081z00_2857 = BgL_aux2507z00_4295; }  else 
{ 
 obj_t BgL_auxz00_7399;
BgL_auxz00_7399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43135L), BGl_string2905z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2507z00_4295); 
FAILURE(BgL_auxz00_7399,BFALSE,BFALSE);} } } } } 
BgL_bufz00_2852 = BgL_res2081z00_2857; } 
return 
bgl_open_input_procedure(BgL_procz00_92, BgL_bufz00_2852);} } 

}



/* _open-input-gzip-port */
obj_t BGl__openzd2inputzd2gza7ipzd2portz75zz__r4_ports_6_10_1z00(obj_t BgL_env1284z00_99, obj_t BgL_opt1283z00_98)
{
{ /* Ieee/port.scm 1172 */
{ /* Ieee/port.scm 1172 */
 obj_t BgL_g1285z00_1845;
{ 
 obj_t BgL_auxz00_7404;
if(
VECTORP(BgL_opt1283z00_98))
{ /* Ieee/port.scm 1172 */
BgL_auxz00_7404 = BgL_opt1283z00_98
; }  else 
{ 
 obj_t BgL_auxz00_7407;
BgL_auxz00_7407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52033L), BGl_string3031z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1283z00_98); 
FAILURE(BgL_auxz00_7407,BFALSE,BFALSE);} 
BgL_g1285z00_1845 = 
VECTOR_REF(BgL_auxz00_7404,0L); } 
{ 

{ /* Ieee/port.scm 1172 */
 long BgL_aux1287z00_1847;
{ 
 obj_t BgL_auxz00_7412;
if(
VECTORP(BgL_opt1283z00_98))
{ /* Ieee/port.scm 1172 */
BgL_auxz00_7412 = BgL_opt1283z00_98
; }  else 
{ 
 obj_t BgL_auxz00_7415;
BgL_auxz00_7415 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52033L), BGl_string3031z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1283z00_98); 
FAILURE(BgL_auxz00_7415,BFALSE,BFALSE);} 
BgL_aux1287z00_1847 = 
VECTOR_LENGTH(BgL_auxz00_7412); } 
switch( BgL_aux1287z00_1847) { case 1L : 

{ /* Ieee/port.scm 1172 */

{ /* Ieee/port.scm 1172 */
 obj_t BgL_inz00_2858;
if(
INPUT_PORTP(BgL_g1285z00_1845))
{ /* Ieee/port.scm 1172 */
BgL_inz00_2858 = BgL_g1285z00_1845; }  else 
{ 
 obj_t BgL_auxz00_7422;
BgL_auxz00_7422 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52033L), BGl_string3031z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_g1285z00_1845); 
FAILURE(BgL_auxz00_7422,BFALSE,BFALSE);} 
return 
BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7(BgL_inz00_2858, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string3034z00zz__r4_ports_6_10_1z00, BTRUE, 
(int)(default_io_bufsiz)));} } break;case 2L : 

{ /* Ieee/port.scm 1172 */
 obj_t BgL_bufinfoz00_1849;
{ 
 obj_t BgL_auxz00_7429;
if(
VECTORP(BgL_opt1283z00_98))
{ /* Ieee/port.scm 1172 */
BgL_auxz00_7429 = BgL_opt1283z00_98
; }  else 
{ 
 obj_t BgL_auxz00_7432;
BgL_auxz00_7432 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52033L), BGl_string3031z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1283z00_98); 
FAILURE(BgL_auxz00_7432,BFALSE,BFALSE);} 
BgL_bufinfoz00_1849 = 
VECTOR_REF(BgL_auxz00_7429,1L); } 
{ /* Ieee/port.scm 1172 */

{ /* Ieee/port.scm 1172 */
 obj_t BgL_inz00_2860;
if(
INPUT_PORTP(BgL_g1285z00_1845))
{ /* Ieee/port.scm 1172 */
BgL_inz00_2860 = BgL_g1285z00_1845; }  else 
{ 
 obj_t BgL_auxz00_7439;
BgL_auxz00_7439 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52033L), BGl_string3031z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_g1285z00_1845); 
FAILURE(BgL_auxz00_7439,BFALSE,BFALSE);} 
return 
BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7(BgL_inz00_2860, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string3034z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_1849, 
(int)(default_io_bufsiz)));} } } break;
default: 
{ /* Ieee/port.scm 1172 */
 long BgL_arg1573z00_1850;
{ 
 obj_t BgL_auxz00_7446;
if(
VECTORP(BgL_opt1283z00_98))
{ /* Ieee/port.scm 1172 */
BgL_auxz00_7446 = BgL_opt1283z00_98
; }  else 
{ 
 obj_t BgL_auxz00_7449;
BgL_auxz00_7449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52033L), BGl_string3032z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1283z00_98); 
FAILURE(BgL_auxz00_7449,BFALSE,BFALSE);} 
BgL_arg1573z00_1850 = 
VECTOR_LENGTH(BgL_auxz00_7446); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3033z00zz__r4_ports_6_10_1z00, BGl_string3010z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1573z00_1850));} } } } } } 

}



/* 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 */
BGL_TAIL return 
BGl_portzd2ze3gza7ipzd2portz44zz__gunza7ipza7(BgL_inz00_96, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string3034z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_97, 
(int)(default_io_bufsiz)));} 

}



/* 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_3700, obj_t BgL_stringz00_3701)
{
{ /* Ieee/port.scm 1179 */
{ /* Ieee/port.scm 1180 */
 char * BgL_auxz00_7461;
{ /* Ieee/port.scm 1180 */
 obj_t BgL_tmpz00_7462;
if(
STRINGP(BgL_stringz00_3701))
{ /* Ieee/port.scm 1180 */
BgL_tmpz00_7462 = BgL_stringz00_3701
; }  else 
{ 
 obj_t BgL_auxz00_7465;
BgL_auxz00_7465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52491L), BGl_string3035z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3701); 
FAILURE(BgL_auxz00_7465,BFALSE,BFALSE);} 
BgL_auxz00_7461 = 
BSTRING_TO_STRING(BgL_tmpz00_7462); } 
return 
BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7461);} } 

}



/* 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_3702, obj_t BgL_portz00_3703, obj_t BgL_stringz00_3704)
{
{ /* Ieee/port.scm 1185 */
{ /* Ieee/port.scm 1186 */
 char * BgL_auxz00_7479; obj_t BgL_auxz00_7472;
{ /* Ieee/port.scm 1186 */
 obj_t BgL_tmpz00_7480;
if(
STRINGP(BgL_stringz00_3704))
{ /* Ieee/port.scm 1186 */
BgL_tmpz00_7480 = BgL_stringz00_3704
; }  else 
{ 
 obj_t BgL_auxz00_7483;
BgL_auxz00_7483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52811L), BGl_string3036z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3704); 
FAILURE(BgL_auxz00_7483,BFALSE,BFALSE);} 
BgL_auxz00_7479 = 
BSTRING_TO_STRING(BgL_tmpz00_7480); } 
if(
INPUT_PORTP(BgL_portz00_3703))
{ /* Ieee/port.scm 1186 */
BgL_auxz00_7472 = BgL_portz00_3703
; }  else 
{ 
 obj_t BgL_auxz00_7475;
BgL_auxz00_7475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(52811L), BGl_string3036z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3703); 
FAILURE(BgL_auxz00_7475,BFALSE,BFALSE);} 
return 
BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7472, BgL_auxz00_7479);} } 

}



/* 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_3705, obj_t BgL_portz00_3706)
{
{ /* Ieee/port.scm 1191 */
{ /* Ieee/port.scm 1192 */
 long BgL_tmpz00_7490;
{ /* Ieee/port.scm 1192 */
 obj_t BgL_auxz00_7491;
if(
INPUT_PORTP(BgL_portz00_3706))
{ /* Ieee/port.scm 1192 */
BgL_auxz00_7491 = BgL_portz00_3706
; }  else 
{ 
 obj_t BgL_auxz00_7494;
BgL_auxz00_7494 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(53134L), BGl_string3037z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3706); 
FAILURE(BgL_auxz00_7494,BFALSE,BFALSE);} 
BgL_tmpz00_7490 = 
BGl_inputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00(BgL_auxz00_7491); } 
return 
BINT(BgL_tmpz00_7490);} } 

}



/* 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_3707, obj_t BgL_portz00_3708, obj_t BgL_timeoutz00_3709)
{
{ /* Ieee/port.scm 1197 */
{ /* Ieee/port.scm 1198 */
 long BgL_auxz00_7509; obj_t BgL_auxz00_7502;
{ /* Ieee/port.scm 1198 */
 obj_t BgL_tmpz00_7510;
if(
INTEGERP(BgL_timeoutz00_3709))
{ /* Ieee/port.scm 1198 */
BgL_tmpz00_7510 = BgL_timeoutz00_3709
; }  else 
{ 
 obj_t BgL_auxz00_7513;
BgL_auxz00_7513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(53460L), BGl_string3038z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_timeoutz00_3709); 
FAILURE(BgL_auxz00_7513,BFALSE,BFALSE);} 
BgL_auxz00_7509 = 
(long)CINT(BgL_tmpz00_7510); } 
if(
INPUT_PORTP(BgL_portz00_3708))
{ /* Ieee/port.scm 1198 */
BgL_auxz00_7502 = BgL_portz00_3708
; }  else 
{ 
 obj_t BgL_auxz00_7505;
BgL_auxz00_7505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(53460L), BGl_string3038z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3708); 
FAILURE(BgL_auxz00_7505,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_7502, BgL_auxz00_7509);} } 

}



/* 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_3710, obj_t BgL_portz00_3711)
{
{ /* Ieee/port.scm 1203 */
{ /* Ieee/port.scm 1204 */
 long BgL_tmpz00_7520;
{ /* Ieee/port.scm 1204 */
 obj_t BgL_auxz00_7521;
if(
OUTPUT_PORTP(BgL_portz00_3711))
{ /* Ieee/port.scm 1204 */
BgL_auxz00_7521 = BgL_portz00_3711
; }  else 
{ 
 obj_t BgL_auxz00_7524;
BgL_auxz00_7524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(53788L), BGl_string3039z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3711); 
FAILURE(BgL_auxz00_7524,BFALSE,BFALSE);} 
BgL_tmpz00_7520 = 
BGl_outputzd2portzd2timeoutz00zz__r4_ports_6_10_1z00(BgL_auxz00_7521); } 
return 
BINT(BgL_tmpz00_7520);} } 

}



/* _open-output-file */
obj_t BGl__openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_env1289z00_110, obj_t BgL_opt1288z00_109)
{
{ /* Ieee/port.scm 1209 */
{ /* Ieee/port.scm 1209 */
 obj_t BgL_g1290z00_1852;
{ 
 obj_t BgL_auxz00_7530;
if(
VECTORP(BgL_opt1288z00_109))
{ /* Ieee/port.scm 1209 */
BgL_auxz00_7530 = BgL_opt1288z00_109
; }  else 
{ 
 obj_t BgL_auxz00_7533;
BgL_auxz00_7533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54040L), BGl_string3040z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1288z00_109); 
FAILURE(BgL_auxz00_7533,BFALSE,BFALSE);} 
BgL_g1290z00_1852 = 
VECTOR_REF(BgL_auxz00_7530,0L); } 
{ 

{ /* Ieee/port.scm 1209 */
 long BgL_aux1292z00_1854;
{ 
 obj_t BgL_auxz00_7538;
if(
VECTORP(BgL_opt1288z00_109))
{ /* Ieee/port.scm 1209 */
BgL_auxz00_7538 = BgL_opt1288z00_109
; }  else 
{ 
 obj_t BgL_auxz00_7541;
BgL_auxz00_7541 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54040L), BGl_string3040z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1288z00_109); 
FAILURE(BgL_auxz00_7541,BFALSE,BFALSE);} 
BgL_aux1292z00_1854 = 
VECTOR_LENGTH(BgL_auxz00_7538); } 
switch( BgL_aux1292z00_1854) { case 1L : 

{ /* Ieee/port.scm 1209 */

{ /* Ieee/port.scm 1209 */
 obj_t BgL_stringz00_2863;
if(
STRINGP(BgL_g1290z00_1852))
{ /* Ieee/port.scm 1209 */
BgL_stringz00_2863 = BgL_g1290z00_1852; }  else 
{ 
 obj_t BgL_auxz00_7548;
BgL_auxz00_7548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54040L), BGl_string3040z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1290z00_1852); 
FAILURE(BgL_auxz00_7548,BFALSE,BFALSE);} 
return 
bgl_open_output_file(BgL_stringz00_2863, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2874z00zz__r4_ports_6_10_1z00, BTRUE, 
(int)(default_io_bufsiz)));} } break;case 2L : 

{ /* Ieee/port.scm 1209 */
 obj_t BgL_bufinfoz00_1856;
{ 
 obj_t BgL_auxz00_7555;
if(
VECTORP(BgL_opt1288z00_109))
{ /* Ieee/port.scm 1209 */
BgL_auxz00_7555 = BgL_opt1288z00_109
; }  else 
{ 
 obj_t BgL_auxz00_7558;
BgL_auxz00_7558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54040L), BGl_string3040z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1288z00_109); 
FAILURE(BgL_auxz00_7558,BFALSE,BFALSE);} 
BgL_bufinfoz00_1856 = 
VECTOR_REF(BgL_auxz00_7555,1L); } 
{ /* Ieee/port.scm 1209 */

{ /* Ieee/port.scm 1209 */
 obj_t BgL_stringz00_2865;
if(
STRINGP(BgL_g1290z00_1852))
{ /* Ieee/port.scm 1209 */
BgL_stringz00_2865 = BgL_g1290z00_1852; }  else 
{ 
 obj_t BgL_auxz00_7565;
BgL_auxz00_7565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54040L), BGl_string3040z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1290z00_1852); 
FAILURE(BgL_auxz00_7565,BFALSE,BFALSE);} 
return 
bgl_open_output_file(BgL_stringz00_2865, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2874z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_1856, 
(int)(default_io_bufsiz)));} } } break;
default: 
{ /* Ieee/port.scm 1209 */
 long BgL_arg1574z00_1857;
{ 
 obj_t BgL_auxz00_7572;
if(
VECTORP(BgL_opt1288z00_109))
{ /* Ieee/port.scm 1209 */
BgL_auxz00_7572 = BgL_opt1288z00_109
; }  else 
{ 
 obj_t BgL_auxz00_7575;
BgL_auxz00_7575 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54040L), BGl_string3041z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1288z00_109); 
FAILURE(BgL_auxz00_7575,BFALSE,BFALSE);} 
BgL_arg1574z00_1857 = 
VECTOR_LENGTH(BgL_auxz00_7572); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3042z00zz__r4_ports_6_10_1z00, BGl_string3010z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1574z00_1857));} } } } } } 

}



/* 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 */
return 
bgl_open_output_file(BgL_stringz00_107, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2874z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_108, 
(int)(default_io_bufsiz)));} 

}



/* _append-output-file */
obj_t BGl__appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_env1294z00_114, obj_t BgL_opt1293z00_113)
{
{ /* Ieee/port.scm 1216 */
{ /* Ieee/port.scm 1216 */
 obj_t BgL_g1295z00_1859;
{ 
 obj_t BgL_auxz00_7586;
if(
VECTORP(BgL_opt1293z00_113))
{ /* Ieee/port.scm 1216 */
BgL_auxz00_7586 = BgL_opt1293z00_113
; }  else 
{ 
 obj_t BgL_auxz00_7589;
BgL_auxz00_7589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54441L), BGl_string3043z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1293z00_113); 
FAILURE(BgL_auxz00_7589,BFALSE,BFALSE);} 
BgL_g1295z00_1859 = 
VECTOR_REF(BgL_auxz00_7586,0L); } 
{ 

{ /* Ieee/port.scm 1216 */
 long BgL_aux1297z00_1861;
{ 
 obj_t BgL_auxz00_7594;
if(
VECTORP(BgL_opt1293z00_113))
{ /* Ieee/port.scm 1216 */
BgL_auxz00_7594 = BgL_opt1293z00_113
; }  else 
{ 
 obj_t BgL_auxz00_7597;
BgL_auxz00_7597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54441L), BGl_string3043z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1293z00_113); 
FAILURE(BgL_auxz00_7597,BFALSE,BFALSE);} 
BgL_aux1297z00_1861 = 
VECTOR_LENGTH(BgL_auxz00_7594); } 
switch( BgL_aux1297z00_1861) { case 1L : 

{ /* Ieee/port.scm 1216 */

{ /* Ieee/port.scm 1216 */
 obj_t BgL_stringz00_2868;
if(
STRINGP(BgL_g1295z00_1859))
{ /* Ieee/port.scm 1216 */
BgL_stringz00_2868 = BgL_g1295z00_1859; }  else 
{ 
 obj_t BgL_auxz00_7604;
BgL_auxz00_7604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54441L), BGl_string3043z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1295z00_1859); 
FAILURE(BgL_auxz00_7604,BFALSE,BFALSE);} 
return 
bgl_append_output_file(BgL_stringz00_2868, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2880z00zz__r4_ports_6_10_1z00, BTRUE, 
(int)(default_io_bufsiz)));} } break;case 2L : 

{ /* Ieee/port.scm 1216 */
 obj_t BgL_bufinfoz00_1863;
{ 
 obj_t BgL_auxz00_7611;
if(
VECTORP(BgL_opt1293z00_113))
{ /* Ieee/port.scm 1216 */
BgL_auxz00_7611 = BgL_opt1293z00_113
; }  else 
{ 
 obj_t BgL_auxz00_7614;
BgL_auxz00_7614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54441L), BGl_string3043z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1293z00_113); 
FAILURE(BgL_auxz00_7614,BFALSE,BFALSE);} 
BgL_bufinfoz00_1863 = 
VECTOR_REF(BgL_auxz00_7611,1L); } 
{ /* Ieee/port.scm 1216 */

{ /* Ieee/port.scm 1216 */
 obj_t BgL_stringz00_2870;
if(
STRINGP(BgL_g1295z00_1859))
{ /* Ieee/port.scm 1216 */
BgL_stringz00_2870 = BgL_g1295z00_1859; }  else 
{ 
 obj_t BgL_auxz00_7621;
BgL_auxz00_7621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54441L), BGl_string3043z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_g1295z00_1859); 
FAILURE(BgL_auxz00_7621,BFALSE,BFALSE);} 
return 
bgl_append_output_file(BgL_stringz00_2870, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2880z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_1863, 
(int)(default_io_bufsiz)));} } } break;
default: 
{ /* Ieee/port.scm 1216 */
 long BgL_arg1575z00_1864;
{ 
 obj_t BgL_auxz00_7628;
if(
VECTORP(BgL_opt1293z00_113))
{ /* Ieee/port.scm 1216 */
BgL_auxz00_7628 = BgL_opt1293z00_113
; }  else 
{ 
 obj_t BgL_auxz00_7631;
BgL_auxz00_7631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54441L), BGl_string3044z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1293z00_113); 
FAILURE(BgL_auxz00_7631,BFALSE,BFALSE);} 
BgL_arg1575z00_1864 = 
VECTOR_LENGTH(BgL_auxz00_7628); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3045z00zz__r4_ports_6_10_1z00, BGl_string3010z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1575z00_1864));} } } } } } 

}



/* 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 */
return 
bgl_append_output_file(BgL_stringz00_111, 
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2880z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_112, 
(int)(default_io_bufsiz)));} 

}



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

{ 

{ /* Ieee/port.scm 1223 */
 long BgL_aux1301z00_1867;
{ 
 obj_t BgL_auxz00_7642;
if(
VECTORP(BgL_opt1298z00_116))
{ /* Ieee/port.scm 1223 */
BgL_auxz00_7642 = BgL_opt1298z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7645;
BgL_auxz00_7645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54848L), BGl_string3050z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1298z00_116); 
FAILURE(BgL_auxz00_7645,BFALSE,BFALSE);} 
BgL_aux1301z00_1867 = 
VECTOR_LENGTH(BgL_auxz00_7642); } 
switch( BgL_aux1301z00_1867) { case 0L : 

{ /* Ieee/port.scm 1223 */

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

{ /* Ieee/port.scm 1223 */
 obj_t BgL_bufinfoz00_1869;
{ 
 obj_t BgL_auxz00_7653;
if(
VECTORP(BgL_opt1298z00_116))
{ /* Ieee/port.scm 1223 */
BgL_auxz00_7653 = BgL_opt1298z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7656;
BgL_auxz00_7656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54848L), BGl_string3050z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1298z00_116); 
FAILURE(BgL_auxz00_7656,BFALSE,BFALSE);} 
BgL_bufinfoz00_1869 = 
VECTOR_REF(BgL_auxz00_7653,0L); } 
{ /* Ieee/port.scm 1223 */

return 
bgl_open_output_string(
BGl_getzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BGl_string2874z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_1869, 
(int)(128L)));} } break;
default: 
{ /* Ieee/port.scm 1223 */
 long BgL_arg1577z00_1870;
{ 
 obj_t BgL_auxz00_7664;
if(
VECTORP(BgL_opt1298z00_116))
{ /* Ieee/port.scm 1223 */
BgL_auxz00_7664 = BgL_opt1298z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7667;
BgL_auxz00_7667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(54848L), BGl_string3046z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1298z00_116); 
FAILURE(BgL_auxz00_7667,BFALSE,BFALSE);} 
BgL_arg1577z00_1870 = 
VECTOR_LENGTH(BgL_auxz00_7664); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3047z00zz__r4_ports_6_10_1z00, BGl_string3049z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1577z00_1870));} } } } } } 

}



/* 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_2875;
{ /* Ieee/port.scm 1224 */
 obj_t BgL_res2082z00_2880;
if(
(BgL_bufinfoz00_115==BTRUE))
{ /* Ieee/port.scm 974 */
BgL_res2082z00_2880 = 
make_string_sans_fill(128L); }  else 
{ /* Ieee/port.scm 974 */
if(
(BgL_bufinfoz00_115==BFALSE))
{ /* Ieee/port.scm 976 */
BgL_res2082z00_2880 = 
make_string_sans_fill(2L); }  else 
{ /* Ieee/port.scm 976 */
if(
STRINGP(BgL_bufinfoz00_115))
{ /* Ieee/port.scm 978 */
BgL_res2082z00_2880 = 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_res2082z00_2880 = 
make_string_sans_fill(
(long)CINT(BgL_bufinfoz00_115)); }  else 
{ /* Ieee/port.scm 981 */
BgL_res2082z00_2880 = 
make_string_sans_fill(2L); } }  else 
{ /* Ieee/port.scm 985 */
 obj_t BgL_aux2564z00_4352;
BgL_aux2564z00_4352 = 
BGl_errorz00zz__errorz00(BGl_string2874z00zz__r4_ports_6_10_1z00, BGl_string2950z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_115); 
if(
STRINGP(BgL_aux2564z00_4352))
{ /* Ieee/port.scm 985 */
BgL_res2082z00_2880 = BgL_aux2564z00_4352; }  else 
{ 
 obj_t BgL_auxz00_7694;
BgL_auxz00_7694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43135L), BGl_string3048z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2564z00_4352); 
FAILURE(BgL_auxz00_7694,BFALSE,BFALSE);} } } } } 
BgL_bufz00_2875 = BgL_res2082z00_2880; } 
return 
bgl_open_output_string(BgL_bufz00_2875);} } 

}



/* _open-output-procedure */
obj_t BGl__openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t BgL_env1303z00_123, obj_t BgL_opt1302z00_122)
{
{ /* Ieee/port.scm 1230 */
{ /* Ieee/port.scm 1230 */
 obj_t BgL_g1304z00_1872;
{ 
 obj_t BgL_auxz00_7699;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7699 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7702;
BgL_auxz00_7702 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7702,BFALSE,BFALSE);} 
BgL_g1304z00_1872 = 
VECTOR_REF(BgL_auxz00_7699,0L); } 
{ 

{ /* Ieee/port.scm 1230 */
 long BgL_aux1306z00_1874;
{ 
 obj_t BgL_auxz00_7707;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7707 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7710;
BgL_auxz00_7710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7710,BFALSE,BFALSE);} 
BgL_aux1306z00_1874 = 
VECTOR_LENGTH(BgL_auxz00_7707); } 
switch( BgL_aux1306z00_1874) { case 1L : 

{ /* Ieee/port.scm 1230 */

{ /* Ieee/port.scm 1230 */
 obj_t BgL_auxz00_7715;
if(
PROCEDUREP(BgL_g1304z00_1872))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7715 = BgL_g1304z00_1872
; }  else 
{ 
 obj_t BgL_auxz00_7718;
BgL_auxz00_7718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_g1304z00_1872); 
FAILURE(BgL_auxz00_7718,BFALSE,BFALSE);} 
return 
BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(BgL_auxz00_7715, BGl_proc3056z00zz__r4_ports_6_10_1z00, BTRUE, BGl_proc3057z00zz__r4_ports_6_10_1z00);} } break;case 2L : 

{ /* Ieee/port.scm 1230 */
 obj_t BgL_flushz00_1882;
{ 
 obj_t BgL_auxz00_7723;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7723 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7726;
BgL_auxz00_7726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7726,BFALSE,BFALSE);} 
BgL_flushz00_1882 = 
VECTOR_REF(BgL_auxz00_7723,1L); } 
{ /* Ieee/port.scm 1230 */

{ /* Ieee/port.scm 1230 */
 obj_t BgL_auxz00_7738; obj_t BgL_auxz00_7731;
if(
PROCEDUREP(BgL_flushz00_1882))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7738 = BgL_flushz00_1882
; }  else 
{ 
 obj_t BgL_auxz00_7741;
BgL_auxz00_7741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_flushz00_1882); 
FAILURE(BgL_auxz00_7741,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_g1304z00_1872))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7731 = BgL_g1304z00_1872
; }  else 
{ 
 obj_t BgL_auxz00_7734;
BgL_auxz00_7734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_g1304z00_1872); 
FAILURE(BgL_auxz00_7734,BFALSE,BFALSE);} 
return 
BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(BgL_auxz00_7731, BgL_auxz00_7738, BTRUE, BGl_proc3058z00zz__r4_ports_6_10_1z00);} } } break;case 3L : 

{ /* Ieee/port.scm 1230 */
 obj_t BgL_flushz00_1887;
{ 
 obj_t BgL_auxz00_7746;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7746 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7749;
BgL_auxz00_7749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7749,BFALSE,BFALSE);} 
BgL_flushz00_1887 = 
VECTOR_REF(BgL_auxz00_7746,1L); } 
{ /* Ieee/port.scm 1230 */
 obj_t BgL_bufinfoz00_1888;
{ 
 obj_t BgL_auxz00_7754;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7754 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7757;
BgL_auxz00_7757 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7757,BFALSE,BFALSE);} 
BgL_bufinfoz00_1888 = 
VECTOR_REF(BgL_auxz00_7754,2L); } 
{ /* Ieee/port.scm 1230 */

{ /* Ieee/port.scm 1230 */
 obj_t BgL_auxz00_7769; obj_t BgL_auxz00_7762;
if(
PROCEDUREP(BgL_flushz00_1887))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7769 = BgL_flushz00_1887
; }  else 
{ 
 obj_t BgL_auxz00_7772;
BgL_auxz00_7772 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_flushz00_1887); 
FAILURE(BgL_auxz00_7772,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_g1304z00_1872))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7762 = BgL_g1304z00_1872
; }  else 
{ 
 obj_t BgL_auxz00_7765;
BgL_auxz00_7765 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_g1304z00_1872); 
FAILURE(BgL_auxz00_7765,BFALSE,BFALSE);} 
return 
BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(BgL_auxz00_7762, BgL_auxz00_7769, BgL_bufinfoz00_1888, BGl_proc3059z00zz__r4_ports_6_10_1z00);} } } } break;case 4L : 

{ /* Ieee/port.scm 1230 */
 obj_t BgL_flushz00_1892;
{ 
 obj_t BgL_auxz00_7777;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7777 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7780;
BgL_auxz00_7780 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7780,BFALSE,BFALSE);} 
BgL_flushz00_1892 = 
VECTOR_REF(BgL_auxz00_7777,1L); } 
{ /* Ieee/port.scm 1230 */
 obj_t BgL_bufinfoz00_1893;
{ 
 obj_t BgL_auxz00_7785;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7785 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7788;
BgL_auxz00_7788 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7788,BFALSE,BFALSE);} 
BgL_bufinfoz00_1893 = 
VECTOR_REF(BgL_auxz00_7785,2L); } 
{ /* Ieee/port.scm 1230 */
 obj_t BgL_closez00_1894;
{ 
 obj_t BgL_auxz00_7793;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7793 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7796;
BgL_auxz00_7796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7796,BFALSE,BFALSE);} 
BgL_closez00_1894 = 
VECTOR_REF(BgL_auxz00_7793,3L); } 
{ /* Ieee/port.scm 1230 */

{ /* Ieee/port.scm 1230 */
 obj_t BgL_auxz00_7815; obj_t BgL_auxz00_7808; obj_t BgL_auxz00_7801;
if(
PROCEDUREP(BgL_closez00_1894))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7815 = BgL_closez00_1894
; }  else 
{ 
 obj_t BgL_auxz00_7818;
BgL_auxz00_7818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_closez00_1894); 
FAILURE(BgL_auxz00_7818,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_flushz00_1892))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7808 = BgL_flushz00_1892
; }  else 
{ 
 obj_t BgL_auxz00_7811;
BgL_auxz00_7811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_flushz00_1892); 
FAILURE(BgL_auxz00_7811,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_g1304z00_1872))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7801 = BgL_g1304z00_1872
; }  else 
{ 
 obj_t BgL_auxz00_7804;
BgL_auxz00_7804 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3051z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_g1304z00_1872); 
FAILURE(BgL_auxz00_7804,BFALSE,BFALSE);} 
return 
BGl_openzd2outputzd2procedurez00zz__r4_ports_6_10_1z00(BgL_auxz00_7801, BgL_auxz00_7808, BgL_bufinfoz00_1893, BgL_auxz00_7815);} } } } } break;
default: 
{ /* Ieee/port.scm 1230 */
 long BgL_arg1582z00_1895;
{ 
 obj_t BgL_auxz00_7823;
if(
VECTORP(BgL_opt1302z00_122))
{ /* Ieee/port.scm 1230 */
BgL_auxz00_7823 = BgL_opt1302z00_122
; }  else 
{ 
 obj_t BgL_auxz00_7826;
BgL_auxz00_7826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(55223L), BGl_string3052z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1302z00_122); 
FAILURE(BgL_auxz00_7826,BFALSE,BFALSE);} 
BgL_arg1582z00_1895 = 
VECTOR_LENGTH(BgL_auxz00_7823); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3053z00zz__r4_ports_6_10_1z00, BGl_string3055z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1582z00_1895));} } } } } } 

}



/* &close2108 */
obj_t BGl_z62close2108z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3716)
{
{ /* Ieee/port.scm 1234 */
return 
BBOOL(((bool_t)0));} 

}



/* &close2109 */
obj_t BGl_z62close2109z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3717)
{
{ /* Ieee/port.scm 1234 */
return 
BBOOL(((bool_t)0));} 

}



/* &close2110 */
obj_t BGl_z62close2110z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3718)
{
{ /* Ieee/port.scm 1234 */
return 
BBOOL(((bool_t)0));} 

}



/* &flush2111 */
obj_t BGl_z62flush2111z62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3719)
{
{ /* 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_test3931z00_7841;
if(
PROCEDURE_CORRECT_ARITYP(BgL_flushz00_119, 
(int)(0L)))
{ /* Ieee/port.scm 1242 */
BgL_test3931z00_7841 = ((bool_t)0)
; }  else 
{ /* Ieee/port.scm 1242 */
BgL_test3931z00_7841 = ((bool_t)1)
; } 
if(BgL_test3931z00_7841)
{ /* Ieee/port.scm 1241 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string3054z00zz__r4_ports_6_10_1z00, BGl_string3060z00zz__r4_ports_6_10_1z00, BgL_flushz00_119);}  else 
{ /* Ieee/port.scm 1247 */
 bool_t BgL_test3933z00_7846;
if(
PROCEDURE_CORRECT_ARITYP(BgL_closez00_121, 
(int)(0L)))
{ /* Ieee/port.scm 1248 */
BgL_test3933z00_7846 = ((bool_t)0)
; }  else 
{ /* Ieee/port.scm 1248 */
BgL_test3933z00_7846 = ((bool_t)1)
; } 
if(BgL_test3933z00_7846)
{ /* Ieee/port.scm 1247 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string3054z00zz__r4_ports_6_10_1z00, BGl_string3061z00zz__r4_ports_6_10_1z00, BgL_flushz00_119);}  else 
{ /* Ieee/port.scm 1254 */
 obj_t BgL_bufz00_1900;
{ /* Ieee/port.scm 1254 */
 obj_t BgL_res2083z00_2885;
if(
(BgL_bufinfoz00_120==BTRUE))
{ /* Ieee/port.scm 974 */
BgL_res2083z00_2885 = 
make_string_sans_fill(128L); }  else 
{ /* Ieee/port.scm 974 */
if(
(BgL_bufinfoz00_120==BFALSE))
{ /* Ieee/port.scm 976 */
BgL_res2083z00_2885 = 
make_string_sans_fill(2L); }  else 
{ /* Ieee/port.scm 976 */
if(
STRINGP(BgL_bufinfoz00_120))
{ /* Ieee/port.scm 978 */
BgL_res2083z00_2885 = 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_res2083z00_2885 = 
make_string_sans_fill(
(long)CINT(BgL_bufinfoz00_120)); }  else 
{ /* Ieee/port.scm 981 */
BgL_res2083z00_2885 = 
make_string_sans_fill(2L); } }  else 
{ /* Ieee/port.scm 985 */
 obj_t BgL_aux2600z00_4388;
BgL_aux2600z00_4388 = 
BGl_errorz00zz__errorz00(BGl_string3054z00zz__r4_ports_6_10_1z00, BGl_string2950z00zz__r4_ports_6_10_1z00, BgL_bufinfoz00_120); 
if(
STRINGP(BgL_aux2600z00_4388))
{ /* Ieee/port.scm 985 */
BgL_res2083z00_2885 = BgL_aux2600z00_4388; }  else 
{ 
 obj_t BgL_auxz00_7870;
BgL_auxz00_7870 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(43135L), BGl_string3054z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_aux2600z00_4388); 
FAILURE(BgL_auxz00_7870,BFALSE,BFALSE);} } } } } 
BgL_bufz00_1900 = BgL_res2083z00_2885; } 
return 
bgl_open_output_procedure(BgL_procz00_118, BgL_flushz00_119, BgL_closez00_121, BgL_bufz00_1900);} } }  else 
{ /* Ieee/port.scm 1236 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string3054z00zz__r4_ports_6_10_1z00, BGl_string3062z00zz__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_3720, obj_t BgL_portz00_3721, obj_t BgL_timeoutz00_3722)
{
{ /* Ieee/port.scm 1260 */
{ /* Ieee/port.scm 1261 */
 long BgL_auxz00_7885; obj_t BgL_auxz00_7878;
{ /* Ieee/port.scm 1261 */
 obj_t BgL_tmpz00_7886;
if(
INTEGERP(BgL_timeoutz00_3722))
{ /* Ieee/port.scm 1261 */
BgL_tmpz00_7886 = BgL_timeoutz00_3722
; }  else 
{ 
 obj_t BgL_auxz00_7889;
BgL_auxz00_7889 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(56320L), BGl_string3063z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_timeoutz00_3722); 
FAILURE(BgL_auxz00_7889,BFALSE,BFALSE);} 
BgL_auxz00_7885 = 
(long)CINT(BgL_tmpz00_7886); } 
if(
OUTPUT_PORTP(BgL_portz00_3721))
{ /* Ieee/port.scm 1261 */
BgL_auxz00_7878 = BgL_portz00_3721
; }  else 
{ 
 obj_t BgL_auxz00_7881;
BgL_auxz00_7881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(56320L), BGl_string3063z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3721); 
FAILURE(BgL_auxz00_7881,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2timeoutzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_7878, BgL_auxz00_7885);} } 

}



/* 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_3723, obj_t BgL_portz00_3724)
{
{ /* Ieee/port.scm 1266 */
{ /* Ieee/port.scm 1267 */
 bool_t BgL_tmpz00_7896;
{ /* Ieee/port.scm 1267 */
 obj_t BgL_auxz00_7897;
if(
INPUT_PORTP(BgL_portz00_3724))
{ /* Ieee/port.scm 1267 */
BgL_auxz00_7897 = BgL_portz00_3724
; }  else 
{ 
 obj_t BgL_auxz00_7900;
BgL_auxz00_7900 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(56629L), BGl_string3064z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3724); 
FAILURE(BgL_auxz00_7900,BFALSE,BFALSE);} 
BgL_tmpz00_7896 = 
BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_auxz00_7897); } 
return 
BBOOL(BgL_tmpz00_7896);} } 

}



/* 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_3725, obj_t BgL_portz00_3726)
{
{ /* Ieee/port.scm 1272 */
{ /* Ieee/port.scm 1273 */
 obj_t BgL_auxz00_7907;
if(
INPUT_PORTP(BgL_portz00_3726))
{ /* Ieee/port.scm 1273 */
BgL_auxz00_7907 = BgL_portz00_3726
; }  else 
{ 
 obj_t BgL_auxz00_7910;
BgL_auxz00_7910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(56923L), BGl_string3065z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3726); 
FAILURE(BgL_auxz00_7910,BFALSE,BFALSE);} 
return 
BGl_closezd2inputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_7907);} } 

}



/* 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_3727, obj_t BgL_portz00_3728)
{
{ /* Ieee/port.scm 1278 */
{ /* Ieee/port.scm 1279 */
 obj_t BgL_auxz00_7916;
if(
OUTPUT_PORTP(BgL_portz00_3728))
{ /* Ieee/port.scm 1279 */
BgL_auxz00_7916 = BgL_portz00_3728
; }  else 
{ 
 obj_t BgL_auxz00_7919;
BgL_auxz00_7919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(57215L), BGl_string3066z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3728); 
FAILURE(BgL_auxz00_7919,BFALSE,BFALSE);} 
return 
BGl_getzd2outputzd2stringz00zz__r4_ports_6_10_1z00(BgL_auxz00_7916);} } 

}



/* 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_3729, obj_t BgL_portz00_3730)
{
{ /* Ieee/port.scm 1284 */
{ /* Ieee/port.scm 1285 */
 obj_t BgL_auxz00_7925;
if(
OUTPUT_PORTP(BgL_portz00_3730))
{ /* Ieee/port.scm 1285 */
BgL_auxz00_7925 = BgL_portz00_3730
; }  else 
{ 
 obj_t BgL_auxz00_7928;
BgL_auxz00_7928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(57509L), BGl_string3067z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3730); 
FAILURE(BgL_auxz00_7928,BFALSE,BFALSE);} 
return 
BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_7925);} } 

}



/* 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_3731, obj_t BgL_portz00_3732)
{
{ /* Ieee/port.scm 1290 */
{ /* Ieee/port.scm 1291 */
 obj_t BgL_auxz00_7934;
if(
OUTPUT_PORTP(BgL_portz00_3732))
{ /* Ieee/port.scm 1291 */
BgL_auxz00_7934 = BgL_portz00_3732
; }  else 
{ 
 obj_t BgL_auxz00_7937;
BgL_auxz00_7937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(57802L), BGl_string3068z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3732); 
FAILURE(BgL_auxz00_7937,BFALSE,BFALSE);} 
return 
BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_7934);} } 

}



/* 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_3733, obj_t BgL_portz00_3734)
{
{ /* Ieee/port.scm 1296 */
{ /* Ieee/port.scm 1297 */
 obj_t BgL_auxz00_7947;
if(
OUTPUT_PORTP(BgL_portz00_3734))
{ /* Ieee/port.scm 1297 */
BgL_auxz00_7947 = BgL_portz00_3734
; }  else 
{ 
 obj_t BgL_auxz00_7950;
BgL_auxz00_7950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(58126L), BGl_string3069z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3734); 
FAILURE(BgL_auxz00_7950,BFALSE,BFALSE);} 
return 
BGl_resetzd2outputzd2portz00zz__r4_ports_6_10_1z00(BgL_auxz00_7947);} } 

}



/* 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_3735, obj_t BgL_portz00_3736)
{
{ /* Ieee/port.scm 1305 */
{ /* Ieee/port.scm 1306 */
 bool_t BgL_tmpz00_7956;
{ /* Ieee/port.scm 1306 */
 obj_t BgL_auxz00_7957;
if(
INPUT_PORTP(BgL_portz00_3736))
{ /* Ieee/port.scm 1306 */
BgL_auxz00_7957 = BgL_portz00_3736
; }  else 
{ 
 obj_t BgL_auxz00_7960;
BgL_auxz00_7960 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(58496L), BGl_string3070z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3736); 
FAILURE(BgL_auxz00_7960,BFALSE,BFALSE);} 
BgL_tmpz00_7956 = 
BGl_resetzd2eofzd2zz__r4_ports_6_10_1z00(BgL_auxz00_7957); } 
return 
BBOOL(BgL_tmpz00_7956);} } 

}



/* 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_2888;
BgL_useekz00_2888 = 
BGL_INPUT_PORT_USEEK(BgL_portz00_133); 
if(
PROCEDUREP(BgL_useekz00_2888))
{ /* Ieee/port.scm 1313 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_useekz00_2888, 2))
{ /* Ieee/port.scm 1314 */
BGL_PROCEDURE_CALL2(BgL_useekz00_2888, BgL_portz00_133, 
BINT(BgL_posz00_134)); }  else 
{ /* Ieee/port.scm 1314 */
FAILURE(BGl_string3071z00zz__r4_ports_6_10_1z00,BGl_list3072z00zz__r4_ports_6_10_1z00,BgL_useekz00_2888);} }  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_3737, obj_t BgL_portz00_3738, obj_t BgL_posz00_3739)
{
{ /* Ieee/port.scm 1311 */
{ /* Ieee/port.scm 1315 */
 long BgL_auxz00_7986; obj_t BgL_auxz00_7979;
{ /* Ieee/port.scm 1315 */
 obj_t BgL_tmpz00_7987;
if(
INTEGERP(BgL_posz00_3739))
{ /* Ieee/port.scm 1315 */
BgL_tmpz00_7987 = BgL_posz00_3739
; }  else 
{ 
 obj_t BgL_auxz00_7990;
BgL_auxz00_7990 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(58933L), BGl_string3077z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_posz00_3739); 
FAILURE(BgL_auxz00_7990,BFALSE,BFALSE);} 
BgL_auxz00_7986 = 
(long)CINT(BgL_tmpz00_7987); } 
if(
INPUT_PORTP(BgL_portz00_3738))
{ /* Ieee/port.scm 1315 */
BgL_auxz00_7979 = BgL_portz00_3738
; }  else 
{ 
 obj_t BgL_auxz00_7982;
BgL_auxz00_7982 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(58933L), BGl_string3077z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3738); 
FAILURE(BgL_auxz00_7982,BFALSE,BFALSE);} 
return 
BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_7979, BgL_auxz00_7986);} } 

}



/* 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_3740, obj_t BgL_portz00_3741)
{
{ /* Ieee/port.scm 1321 */
{ /* Ieee/port.scm 1322 */
 long BgL_tmpz00_7997;
{ /* Ieee/port.scm 1322 */
 obj_t BgL_auxz00_7998;
if(
INPUT_PORTP(BgL_portz00_3741))
{ /* Ieee/port.scm 1322 */
BgL_auxz00_7998 = BgL_portz00_3741
; }  else 
{ 
 obj_t BgL_auxz00_8001;
BgL_auxz00_8001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(59223L), BGl_string3078z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3741); 
FAILURE(BgL_auxz00_8001,BFALSE,BFALSE);} 
BgL_tmpz00_7997 = 
BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00(BgL_auxz00_7998); } 
return 
BINT(BgL_tmpz00_7997);} } 

}



/* 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_3742, obj_t BgL_portz00_3743)
{
{ /* Ieee/port.scm 1327 */
{ /* Ieee/port.scm 1328 */
 obj_t BgL_auxz00_8009;
if(
INPUT_PORTP(BgL_portz00_3743))
{ /* Ieee/port.scm 1328 */
BgL_auxz00_8009 = BgL_portz00_3743
; }  else 
{ 
 obj_t BgL_auxz00_8012;
BgL_auxz00_8012 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(59537L), BGl_string3079z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3743); 
FAILURE(BgL_auxz00_8012,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2fillzd2barrierzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8009);} } 

}



/* 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_3744, obj_t BgL_portz00_3745, obj_t BgL_posz00_3746)
{
{ /* Ieee/port.scm 1333 */
{ /* Ieee/port.scm 1334 */
 long BgL_auxz00_8026; obj_t BgL_auxz00_8019;
{ /* Ieee/port.scm 1334 */
 obj_t BgL_tmpz00_8027;
if(
INTEGERP(BgL_posz00_3746))
{ /* Ieee/port.scm 1334 */
BgL_tmpz00_8027 = BgL_posz00_3746
; }  else 
{ 
 obj_t BgL_auxz00_8030;
BgL_auxz00_8030 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(59911L), BGl_string3080z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_posz00_3746); 
FAILURE(BgL_auxz00_8030,BFALSE,BFALSE);} 
BgL_auxz00_8026 = 
(long)CINT(BgL_tmpz00_8027); } 
if(
INPUT_PORTP(BgL_portz00_3745))
{ /* Ieee/port.scm 1334 */
BgL_auxz00_8019 = BgL_portz00_3745
; }  else 
{ 
 obj_t BgL_auxz00_8022;
BgL_auxz00_8022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(59911L), BGl_string3080z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3745); 
FAILURE(BgL_auxz00_8022,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2fillzd2barrierzd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_8019, BgL_auxz00_8026);} } 

}



/* 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_8036;
BgL_tmpz00_8036 = 
INPUT_PORT_TOKENPOS(BgL_portz00_139); 
return 
(long)(BgL_tmpz00_8036);} } 

}



/* &input-port-last-token-position */
obj_t BGl_z62inputzd2portzd2lastzd2tokenzd2positionz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3747, obj_t BgL_portz00_3748)
{
{ /* Ieee/port.scm 1340 */
{ /* Ieee/port.scm 1341 */
 long BgL_tmpz00_8039;
{ /* Ieee/port.scm 1341 */
 obj_t BgL_auxz00_8040;
if(
INPUT_PORTP(BgL_portz00_3748))
{ /* Ieee/port.scm 1341 */
BgL_auxz00_8040 = BgL_portz00_3748
; }  else 
{ 
 obj_t BgL_auxz00_8043;
BgL_auxz00_8043 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(60203L), BGl_string3081z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3748); 
FAILURE(BgL_auxz00_8043,BFALSE,BFALSE);} 
BgL_tmpz00_8039 = 
BGl_inputzd2portzd2lastzd2tokenzd2positionz00zz__r4_ports_6_10_1z00(BgL_auxz00_8040); } 
return 
BINT(BgL_tmpz00_8039);} } 

}



/* 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_3749, obj_t BgL_portz00_3750)
{
{ /* Ieee/port.scm 1346 */
{ /* Ieee/port.scm 1347 */
 obj_t BgL_auxz00_8050;
if(
OUTPUT_PORTP(BgL_portz00_3750))
{ /* Ieee/port.scm 1347 */
BgL_auxz00_8050 = BgL_portz00_3750
; }  else 
{ 
 obj_t BgL_auxz00_8053;
BgL_auxz00_8053 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(60509L), BGl_string3082z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3750); 
FAILURE(BgL_auxz00_8053,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2namez00zz__r4_ports_6_10_1z00(BgL_auxz00_8050);} } 

}



/* 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_3751, obj_t BgL_portz00_3752, obj_t BgL_namez00_3753)
{
{ /* Ieee/port.scm 1352 */
{ /* Ieee/port.scm 1352 */
 obj_t BgL_auxz00_8066; obj_t BgL_auxz00_8059;
if(
STRINGP(BgL_namez00_3753))
{ /* Ieee/port.scm 1352 */
BgL_auxz00_8066 = BgL_namez00_3753
; }  else 
{ 
 obj_t BgL_auxz00_8069;
BgL_auxz00_8069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(60758L), BGl_string3083z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_namez00_3753); 
FAILURE(BgL_auxz00_8069,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3752))
{ /* Ieee/port.scm 1352 */
BgL_auxz00_8059 = BgL_portz00_3752
; }  else 
{ 
 obj_t BgL_auxz00_8062;
BgL_auxz00_8062 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(60758L), BGl_string3083z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3752); 
FAILURE(BgL_auxz00_8062,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_8059, BgL_auxz00_8066);} } 

}



/* 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_string3084z00zz__r4_ports_6_10_1z00, BGl_string3085z00zz__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_3754, obj_t BgL_portz00_3755, obj_t BgL_posz00_3756)
{
{ /* Ieee/port.scm 1358 */
{ /* Ieee/port.scm 1359 */
 long BgL_auxz00_8085; obj_t BgL_auxz00_8078;
{ /* Ieee/port.scm 1359 */
 obj_t BgL_tmpz00_8086;
if(
INTEGERP(BgL_posz00_3756))
{ /* Ieee/port.scm 1359 */
BgL_tmpz00_8086 = BgL_posz00_3756
; }  else 
{ 
 obj_t BgL_auxz00_8089;
BgL_auxz00_8089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(61143L), BGl_string3086z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_posz00_3756); 
FAILURE(BgL_auxz00_8089,BFALSE,BFALSE);} 
BgL_auxz00_8085 = 
(long)CINT(BgL_tmpz00_8086); } 
if(
OUTPUT_PORTP(BgL_portz00_3755))
{ /* Ieee/port.scm 1359 */
BgL_auxz00_8078 = BgL_portz00_3755
; }  else 
{ 
 obj_t BgL_auxz00_8081;
BgL_auxz00_8081 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(61143L), BGl_string3086z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3755); 
FAILURE(BgL_auxz00_8081,BFALSE,BFALSE);} 
return 
BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_8078, BgL_auxz00_8085);} } 

}



/* 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_3757, obj_t BgL_portz00_3758)
{
{ /* Ieee/port.scm 1366 */
{ /* Ieee/port.scm 1367 */
 long BgL_tmpz00_8096;
{ /* Ieee/port.scm 1367 */
 obj_t BgL_auxz00_8097;
if(
OUTPUT_PORTP(BgL_portz00_3758))
{ /* Ieee/port.scm 1367 */
BgL_auxz00_8097 = BgL_portz00_3758
; }  else 
{ 
 obj_t BgL_auxz00_8100;
BgL_auxz00_8100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(61559L), BGl_string3087z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3758); 
FAILURE(BgL_auxz00_8100,BFALSE,BFALSE);} 
BgL_tmpz00_8096 = 
BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00(BgL_auxz00_8097); } 
return 
BINT(BgL_tmpz00_8096);} } 

}



/* 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_3759, obj_t BgL_portz00_3760)
{
{ /* Ieee/port.scm 1372 */
{ /* Ieee/port.scm 1374 */
 bool_t BgL_tmpz00_8107;
{ /* Ieee/port.scm 1374 */
 obj_t BgL_auxz00_8108;
if(
OUTPUT_PORTP(BgL_portz00_3760))
{ /* Ieee/port.scm 1374 */
BgL_auxz00_8108 = BgL_portz00_3760
; }  else 
{ 
 obj_t BgL_auxz00_8111;
BgL_auxz00_8111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(61887L), BGl_string3088z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3760); 
FAILURE(BgL_auxz00_8111,BFALSE,BFALSE);} 
BgL_tmpz00_8107 = 
BGl_outputzd2portzd2isattyzf3zf3zz__r4_ports_6_10_1z00(BgL_auxz00_8108); } 
return 
BBOOL(BgL_tmpz00_8107);} } 

}



/* 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_3761, obj_t BgL_portz00_3762)
{
{ /* Ieee/port.scm 1380 */
{ /* Ieee/port.scm 1381 */
 obj_t BgL_auxz00_8118;
if(
INPUT_PORTP(BgL_portz00_3762))
{ /* Ieee/port.scm 1381 */
BgL_auxz00_8118 = BgL_portz00_3762
; }  else 
{ 
 obj_t BgL_auxz00_8121;
BgL_auxz00_8121 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(62194L), BGl_string3089z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3762); 
FAILURE(BgL_auxz00_8121,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(BgL_auxz00_8118);} } 

}



/* 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_3763, obj_t BgL_portz00_3764, obj_t BgL_namez00_3765)
{
{ /* Ieee/port.scm 1386 */
{ /* Ieee/port.scm 1386 */
 obj_t BgL_auxz00_8134; obj_t BgL_auxz00_8127;
if(
STRINGP(BgL_namez00_3765))
{ /* Ieee/port.scm 1386 */
BgL_auxz00_8134 = BgL_namez00_3765
; }  else 
{ 
 obj_t BgL_auxz00_8137;
BgL_auxz00_8137 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(62442L), BGl_string3090z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_namez00_3765); 
FAILURE(BgL_auxz00_8137,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_portz00_3764))
{ /* Ieee/port.scm 1386 */
BgL_auxz00_8127 = BgL_portz00_3764
; }  else 
{ 
 obj_t BgL_auxz00_8130;
BgL_auxz00_8130 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(62442L), BGl_string3090z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3764); 
FAILURE(BgL_auxz00_8130,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2namezd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_8127, BgL_auxz00_8134);} } 

}



/* 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_3766, obj_t BgL_portz00_3767)
{
{ /* Ieee/port.scm 1392 */
{ /* Ieee/port.scm 1393 */
 long BgL_tmpz00_8143;
{ /* Ieee/port.scm 1393 */
 obj_t BgL_auxz00_8144;
if(
INPUT_PORTP(BgL_portz00_3767))
{ /* Ieee/port.scm 1393 */
BgL_auxz00_8144 = BgL_portz00_3767
; }  else 
{ 
 obj_t BgL_auxz00_8147;
BgL_auxz00_8147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(62794L), BGl_string3091z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3767); 
FAILURE(BgL_auxz00_8147,BFALSE,BFALSE);} 
BgL_tmpz00_8143 = 
BGl_inputzd2portzd2lengthz00zz__r4_ports_6_10_1z00(BgL_auxz00_8144); } 
return 
make_belong(BgL_tmpz00_8143);} } 

}



/* 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_3768, obj_t BgL_portz00_3769)
{
{ /* Ieee/port.scm 1398 */
{ /* Ieee/port.scm 1399 */
 obj_t BgL_auxz00_8154;
if(
OUTPUT_PORTP(BgL_portz00_3769))
{ /* Ieee/port.scm 1399 */
BgL_auxz00_8154 = BgL_portz00_3769
; }  else 
{ 
 obj_t BgL_auxz00_8157;
BgL_auxz00_8157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(63092L), BGl_string3092z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3769); 
FAILURE(BgL_auxz00_8157,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8154);} } 

}



/* 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_3770, obj_t BgL_portz00_3771)
{
{ /* Ieee/port.scm 1404 */
{ /* Ieee/port.scm 1405 */
 bool_t BgL_tmpz00_8163;
{ /* Ieee/port.scm 1405 */
 obj_t BgL_auxz00_8164;
if(
OUTPUT_PORTP(BgL_portz00_3771))
{ /* Ieee/port.scm 1405 */
BgL_auxz00_8164 = BgL_portz00_3771
; }  else 
{ 
 obj_t BgL_auxz00_8167;
BgL_auxz00_8167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(63388L), BGl_string3093z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3771); 
FAILURE(BgL_auxz00_8167,BFALSE,BFALSE);} 
BgL_tmpz00_8163 = 
BGl_closedzd2outputzd2portzf3zf3zz__r4_ports_6_10_1z00(BgL_auxz00_8164); } 
return 
BBOOL(BgL_tmpz00_8163);} } 

}



/* 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_string3094z00zz__r4_ports_6_10_1z00, BGl_string3095z00zz__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_3772, obj_t BgL_portz00_3773, obj_t BgL_procz00_3774)
{
{ /* Ieee/port.scm 1410 */
{ /* Ieee/port.scm 1411 */
 obj_t BgL_auxz00_8185; obj_t BgL_auxz00_8178;
if(
PROCEDUREP(BgL_procz00_3774))
{ /* Ieee/port.scm 1411 */
BgL_auxz00_8185 = BgL_procz00_3774
; }  else 
{ 
 obj_t BgL_auxz00_8188;
BgL_auxz00_8188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(63691L), BGl_string3096z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3774); 
FAILURE(BgL_auxz00_8188,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3773))
{ /* Ieee/port.scm 1411 */
BgL_auxz00_8178 = BgL_portz00_3773
; }  else 
{ 
 obj_t BgL_auxz00_8181;
BgL_auxz00_8181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(63691L), BGl_string3096z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3773); 
FAILURE(BgL_auxz00_8181,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_8178, BgL_auxz00_8185);} } 

}



/* 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_3775, obj_t BgL_portz00_3776)
{
{ /* Ieee/port.scm 1421 */
{ /* Ieee/port.scm 1422 */
 obj_t BgL_auxz00_8194;
if(
OUTPUT_PORTP(BgL_portz00_3776))
{ /* Ieee/port.scm 1422 */
BgL_auxz00_8194 = BgL_portz00_3776
; }  else 
{ 
 obj_t BgL_auxz00_8197;
BgL_auxz00_8197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(64180L), BGl_string3097z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3776); 
FAILURE(BgL_auxz00_8197,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2flushzd2hookzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8194);} } 

}



/* 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_test3978z00_8202;
if(
PROCEDUREP(BgL_procz00_157))
{ /* Ieee/port.scm 1428 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_157, 
(int)(2L)))
{ /* Ieee/port.scm 1428 */
BgL_test3978z00_8202 = ((bool_t)0)
; }  else 
{ /* Ieee/port.scm 1428 */
BgL_test3978z00_8202 = ((bool_t)1)
; } }  else 
{ /* Ieee/port.scm 1428 */
BgL_test3978z00_8202 = ((bool_t)0)
; } 
if(BgL_test3978z00_8202)
{ /* Ieee/port.scm 1428 */
return 
bgl_system_failure(BGL_IO_PORT_ERROR, BGl_string3098z00zz__r4_ports_6_10_1z00, BGl_string3095z00zz__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_3777, obj_t BgL_portz00_3778, obj_t BgL_procz00_3779)
{
{ /* Ieee/port.scm 1427 */
{ /* Ieee/port.scm 1428 */
 obj_t BgL_auxz00_8210;
if(
OUTPUT_PORTP(BgL_portz00_3778))
{ /* Ieee/port.scm 1428 */
BgL_auxz00_8210 = BgL_portz00_3778
; }  else 
{ 
 obj_t BgL_auxz00_8213;
BgL_auxz00_8213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(64481L), BGl_string3099z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3778); 
FAILURE(BgL_auxz00_8213,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2flushzd2hookzd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_8210, BgL_procz00_3779);} } 

}



/* 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_3780, obj_t BgL_portz00_3781)
{
{ /* Ieee/port.scm 1438 */
{ /* Ieee/port.scm 1439 */
 obj_t BgL_auxz00_8219;
if(
OUTPUT_PORTP(BgL_portz00_3781))
{ /* Ieee/port.scm 1439 */
BgL_auxz00_8219 = BgL_portz00_3781
; }  else 
{ 
 obj_t BgL_auxz00_8222;
BgL_auxz00_8222 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(64971L), BGl_string3100z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3781); 
FAILURE(BgL_auxz00_8222,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2flushzd2bufferzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8219);} } 

}



/* 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_3782, obj_t BgL_portz00_3783, obj_t BgL_bufz00_3784)
{
{ /* Ieee/port.scm 1444 */
{ /* Ieee/port.scm 1445 */
 obj_t BgL_auxz00_8228;
if(
OUTPUT_PORTP(BgL_portz00_3783))
{ /* Ieee/port.scm 1445 */
BgL_auxz00_8228 = BgL_portz00_3783
; }  else 
{ 
 obj_t BgL_auxz00_8231;
BgL_auxz00_8231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(65319L), BGl_string3101z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3783); 
FAILURE(BgL_auxz00_8231,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2flushzd2bufferzd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_8228, BgL_bufz00_3784);} } 

}



/* 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_3785, obj_t BgL_portz00_3786)
{
{ /* Ieee/port.scm 1451 */
{ /* Ieee/port.scm 1452 */
 obj_t BgL_auxz00_8237;
if(
INPUT_PORTP(BgL_portz00_3786))
{ /* Ieee/port.scm 1452 */
BgL_auxz00_8237 = BgL_portz00_3786
; }  else 
{ 
 obj_t BgL_auxz00_8240;
BgL_auxz00_8240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(65599L), BGl_string3102z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3786); 
FAILURE(BgL_auxz00_8240,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2closezd2hookzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8237);} } 

}



/* 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_string3103z00zz__r4_ports_6_10_1z00, BGl_string3095z00zz__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_3787, obj_t BgL_portz00_3788, obj_t BgL_procz00_3789)
{
{ /* Ieee/port.scm 1457 */
{ /* Ieee/port.scm 1458 */
 obj_t BgL_auxz00_8257; obj_t BgL_auxz00_8250;
if(
PROCEDUREP(BgL_procz00_3789))
{ /* Ieee/port.scm 1458 */
BgL_auxz00_8257 = BgL_procz00_3789
; }  else 
{ 
 obj_t BgL_auxz00_8260;
BgL_auxz00_8260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(65898L), BGl_string3104z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3789); 
FAILURE(BgL_auxz00_8260,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_portz00_3788))
{ /* Ieee/port.scm 1458 */
BgL_auxz00_8250 = BgL_portz00_3788
; }  else 
{ 
 obj_t BgL_auxz00_8253;
BgL_auxz00_8253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(65898L), BGl_string3104z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3788); 
FAILURE(BgL_auxz00_8253,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_8250, BgL_auxz00_8257);} } 

}



/* input-port-seek */
BGL_EXPORTED_DEF obj_t BGl_inputzd2portzd2seekz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_164)
{
{ /* Ieee/port.scm 1468 */
{ /* Ieee/port.scm 1469 */
 obj_t BgL_aux2675z00_4763;
BgL_aux2675z00_4763 = 
BGL_INPUT_PORT_USEEK(BgL_portz00_164); 
if(
PROCEDUREP(BgL_aux2675z00_4763))
{ /* Ieee/port.scm 1469 */
return BgL_aux2675z00_4763;}  else 
{ 
 obj_t BgL_auxz00_8268;
BgL_auxz00_8268 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(66377L), BGl_string3105z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_aux2675z00_4763); 
FAILURE(BgL_auxz00_8268,BFALSE,BFALSE);} } } 

}



/* &input-port-seek */
obj_t BGl_z62inputzd2portzd2seekz62zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3790, obj_t BgL_portz00_3791)
{
{ /* Ieee/port.scm 1468 */
{ /* Ieee/port.scm 1469 */
 obj_t BgL_auxz00_8272;
if(
INPUT_PORTP(BgL_portz00_3791))
{ /* Ieee/port.scm 1469 */
BgL_auxz00_8272 = BgL_portz00_3791
; }  else 
{ 
 obj_t BgL_auxz00_8275;
BgL_auxz00_8275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(66377L), BGl_string3106z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3791); 
FAILURE(BgL_auxz00_8275,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2seekz00zz__r4_ports_6_10_1z00(BgL_auxz00_8272);} } 

}



/* 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_string3107z00zz__r4_ports_6_10_1z00, BGl_string3108z00zz__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_3792, obj_t BgL_portz00_3793, obj_t BgL_procz00_3794)
{
{ /* Ieee/port.scm 1474 */
{ /* Ieee/port.scm 1475 */
 obj_t BgL_auxz00_8292; obj_t BgL_auxz00_8285;
if(
PROCEDUREP(BgL_procz00_3794))
{ /* Ieee/port.scm 1475 */
BgL_auxz00_8292 = BgL_procz00_3794
; }  else 
{ 
 obj_t BgL_auxz00_8295;
BgL_auxz00_8295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(66670L), BGl_string3109z00zz__r4_ports_6_10_1z00, BGl_string2869z00zz__r4_ports_6_10_1z00, BgL_procz00_3794); 
FAILURE(BgL_auxz00_8295,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_portz00_3793))
{ /* Ieee/port.scm 1475 */
BgL_auxz00_8285 = BgL_portz00_3793
; }  else 
{ 
 obj_t BgL_auxz00_8288;
BgL_auxz00_8288 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(66670L), BGl_string3109z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3793); 
FAILURE(BgL_auxz00_8288,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2seekzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_8285, BgL_auxz00_8292);} } 

}



/* 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_3795, obj_t BgL_portz00_3796)
{
{ /* Ieee/port.scm 1485 */
{ /* Ieee/port.scm 1486 */
 obj_t BgL_auxz00_8301;
if(
INPUT_PORTP(BgL_portz00_3796))
{ /* Ieee/port.scm 1486 */
BgL_auxz00_8301 = BgL_portz00_3796
; }  else 
{ 
 obj_t BgL_auxz00_8304;
BgL_auxz00_8304 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(67155L), BGl_string3110z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3796); 
FAILURE(BgL_auxz00_8304,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BgL_auxz00_8301);} } 

}



/* 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_3797, obj_t BgL_portz00_3798, obj_t BgL_bufferz00_3799)
{
{ /* Ieee/port.scm 1491 */
{ /* Ieee/port.scm 1492 */
 obj_t BgL_auxz00_8317; obj_t BgL_auxz00_8310;
if(
STRINGP(BgL_bufferz00_3799))
{ /* Ieee/port.scm 1492 */
BgL_auxz00_8317 = BgL_bufferz00_3799
; }  else 
{ 
 obj_t BgL_auxz00_8320;
BgL_auxz00_8320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(67503L), BGl_string3111z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_bufferz00_3799); 
FAILURE(BgL_auxz00_8320,BFALSE,BFALSE);} 
if(
INPUT_PORTP(BgL_portz00_3798))
{ /* Ieee/port.scm 1492 */
BgL_auxz00_8310 = BgL_portz00_3798
; }  else 
{ 
 obj_t BgL_auxz00_8313;
BgL_auxz00_8313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(67503L), BGl_string3111z00zz__r4_ports_6_10_1z00, BGl_string2871z00zz__r4_ports_6_10_1z00, BgL_portz00_3798); 
FAILURE(BgL_auxz00_8313,BFALSE,BFALSE);} 
return 
BGl_inputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_8310, BgL_auxz00_8317);} } 

}



/* 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_3800, obj_t BgL_portz00_3801)
{
{ /* Ieee/port.scm 1497 */
{ /* Ieee/port.scm 1498 */
 obj_t BgL_auxz00_8326;
if(
OUTPUT_PORTP(BgL_portz00_3801))
{ /* Ieee/port.scm 1498 */
BgL_auxz00_8326 = BgL_portz00_3801
; }  else 
{ 
 obj_t BgL_auxz00_8329;
BgL_auxz00_8329 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(67779L), BGl_string3112z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3801); 
FAILURE(BgL_auxz00_8329,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2bufferz00zz__r4_ports_6_10_1z00(BgL_auxz00_8326);} } 

}



/* 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_3802, obj_t BgL_portz00_3803, obj_t BgL_bufferz00_3804)
{
{ /* Ieee/port.scm 1503 */
{ /* Ieee/port.scm 1504 */
 obj_t BgL_auxz00_8342; obj_t BgL_auxz00_8335;
if(
STRINGP(BgL_bufferz00_3804))
{ /* Ieee/port.scm 1504 */
BgL_auxz00_8342 = BgL_bufferz00_3804
; }  else 
{ 
 obj_t BgL_auxz00_8345;
BgL_auxz00_8345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(68130L), BGl_string3113z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_bufferz00_3804); 
FAILURE(BgL_auxz00_8345,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3803))
{ /* Ieee/port.scm 1504 */
BgL_auxz00_8335 = BgL_portz00_3803
; }  else 
{ 
 obj_t BgL_auxz00_8338;
BgL_auxz00_8338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(68130L), BGl_string3113z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_portz00_3803); 
FAILURE(BgL_auxz00_8338,BFALSE,BFALSE);} 
return 
BGl_outputzd2portzd2bufferzd2setz12zc0zz__r4_ports_6_10_1z00(BgL_auxz00_8335, BgL_auxz00_8342);} } 

}



/* 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_3805, obj_t BgL_namez00_3806)
{
{ /* Ieee/port.scm 1509 */
{ /* Ieee/port.scm 1510 */
 bool_t BgL_tmpz00_8351;
{ /* Ieee/port.scm 1510 */
 char * BgL_auxz00_8352;
{ /* Ieee/port.scm 1510 */
 obj_t BgL_tmpz00_8353;
if(
STRINGP(BgL_namez00_3806))
{ /* Ieee/port.scm 1510 */
BgL_tmpz00_8353 = BgL_namez00_3806
; }  else 
{ 
 obj_t BgL_auxz00_8356;
BgL_auxz00_8356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(68400L), BGl_string3114z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_namez00_3806); 
FAILURE(BgL_auxz00_8356,BFALSE,BFALSE);} 
BgL_auxz00_8352 = 
BSTRING_TO_STRING(BgL_tmpz00_8353); } 
BgL_tmpz00_8351 = 
BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(BgL_auxz00_8352); } 
return 
BBOOL(BgL_tmpz00_8351);} } 

}



/* file-gzip? */
BGL_EXPORTED_DEF obj_t BGl_filezd2gza7ipzf3z86zz__r4_ports_6_10_1z00(obj_t BgL_namez00_174)
{
{ /* Ieee/port.scm 1515 */
{ /* Ieee/port.scm 1516 */
 bool_t BgL_test4000z00_8363;
{ /* Ieee/port.scm 1516 */
 char * BgL_namez00_2891;
{ /* Ieee/port.scm 1516 */
 obj_t BgL_tmpz00_8364;
if(
STRINGP(BgL_namez00_174))
{ /* Ieee/port.scm 1516 */
BgL_tmpz00_8364 = BgL_namez00_174
; }  else 
{ 
 obj_t BgL_auxz00_8367;
BgL_auxz00_8367 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(68693L), BGl_string3115z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_namez00_174); 
FAILURE(BgL_auxz00_8367,BFALSE,BFALSE);} 
BgL_namez00_2891 = 
BSTRING_TO_STRING(BgL_tmpz00_8364); } 
BgL_test4000z00_8363 = 
fexists(BgL_namez00_2891); } 
if(BgL_test4000z00_8363)
{ /* Ieee/port.scm 1517 */
 obj_t BgL_auxz00_8373;
if(
STRINGP(BgL_namez00_174))
{ /* Ieee/port.scm 1517 */
BgL_auxz00_8373 = BgL_namez00_174
; }  else 
{ 
 obj_t BgL_auxz00_8376;
BgL_auxz00_8376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(68700L), BGl_string3115z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_namez00_174); 
FAILURE(BgL_auxz00_8376,BFALSE,BFALSE);} 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8373, BGl_proc3116z00zz__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_3808, obj_t BgL_namez00_3809)
{
{ /* Ieee/port.scm 1515 */
return 
BGl_filezd2gza7ipzf3z86zz__r4_ports_6_10_1z00(BgL_namez00_3809);} 

}



/* &<@anonymous:1600> */
obj_t BGl_z62zc3z04anonymousza31600ze3ze5zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3810)
{
{ /* Ieee/port.scm 1518 */
{ /* Ieee/port.scm 1519 */
 obj_t BgL_env1150z00_4764;
BgL_env1150z00_4764 = 
BGL_CURRENT_DYNAMIC_ENV(); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_cell1145z00_4765;
BgL_cell1145z00_4765 = 
MAKE_STACK_CELL(BUNSPEC); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_val1149z00_4766;
BgL_val1149z00_4766 = 
BGl_zc3z04exitza31603ze3ze70z60zz__r4_ports_6_10_1z00(BgL_cell1145z00_4765, BgL_env1150z00_4764); 
if(
(BgL_val1149z00_4766==BgL_cell1145z00_4765))
{ /* Ieee/port.scm 1519 */
{ /* Ieee/port.scm 1519 */
 int BgL_tmpz00_8387;
BgL_tmpz00_8387 = 
(int)(0L); 
BGL_SIGSETMASK(BgL_tmpz00_8387); } 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_arg1602z00_4767;
BgL_arg1602z00_4767 = 
CELL_REF(
((obj_t)BgL_val1149z00_4766)); 
return BFALSE;} }  else 
{ /* Ieee/port.scm 1519 */
return BgL_val1149z00_4766;} } } } } 

}



/* <@exit:1603>~0 */
obj_t BGl_zc3z04exitza31603ze3ze70z60zz__r4_ports_6_10_1z00(obj_t BgL_cell1145z00_3872, obj_t BgL_env1150z00_3871)
{
{ /* Ieee/port.scm 1519 */
jmp_buf_t jmpbuf; 
 void * BgL_an_exit1154z00_1928;
if (SET_EXIT(BgL_an_exit1154z00_1928)) { 
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_1928 = 
(void *)jmpbuf; 
PUSH_ENV_EXIT(BgL_env1150z00_3871, BgL_an_exit1154z00_1928, 1L); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_escape1146z00_1929;
BgL_escape1146z00_1929 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1150z00_3871); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_res1157z00_1930;
{ /* Ieee/port.scm 1519 */
 obj_t BgL_ohs1142z00_1931;
BgL_ohs1142z00_1931 = 
BGL_ENV_ERROR_HANDLER_GET(BgL_env1150z00_3871); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_hds1143z00_1932;
BgL_hds1143z00_1932 = 
MAKE_STACK_PAIR(BgL_escape1146z00_1929, BgL_cell1145z00_3872); 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1150z00_3871, BgL_hds1143z00_1932); BUNSPEC; 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_exitd1151z00_1933;
BgL_exitd1151z00_1933 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1150z00_3871); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_tmp1153z00_1934;
{ /* Ieee/port.scm 1519 */
 obj_t BgL_arg1605z00_1937;
BgL_arg1605z00_1937 = 
BGL_EXITD_PROTECT(BgL_exitd1151z00_1933); 
BgL_tmp1153z00_1934 = 
MAKE_YOUNG_PAIR(BgL_ohs1142z00_1931, BgL_arg1605z00_1937); } 
{ /* Ieee/port.scm 1519 */

BGL_EXITD_PROTECT_SET(BgL_exitd1151z00_1933, BgL_tmp1153z00_1934); BUNSPEC; 
{ /* Ieee/port.scm 1522 */
 obj_t BgL_tmp1152z00_1935;
{ /* Ieee/port.scm 1522 */
 obj_t BgL_arg1604z00_1936;
{ /* Ieee/port.scm 672 */
 obj_t BgL_tmpz00_8403;
BgL_tmpz00_8403 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1604z00_1936 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_8403); } 
BgL_tmp1152z00_1935 = 
BGl_gunza7ipzd2parsezd2headerza7zz__gunza7ipza7(BgL_arg1604z00_1936); } 
{ /* Ieee/port.scm 1519 */
 bool_t BgL_test4004z00_8407;
{ /* Ieee/port.scm 1519 */
 obj_t BgL_arg2076z00_2894;
BgL_arg2076z00_2894 = 
BGL_EXITD_PROTECT(BgL_exitd1151z00_1933); 
BgL_test4004z00_8407 = 
PAIRP(BgL_arg2076z00_2894); } 
if(BgL_test4004z00_8407)
{ /* Ieee/port.scm 1519 */
 obj_t BgL_arg2074z00_2895;
{ /* Ieee/port.scm 1519 */
 obj_t BgL_arg2075z00_2896;
BgL_arg2075z00_2896 = 
BGL_EXITD_PROTECT(BgL_exitd1151z00_1933); 
{ /* Ieee/port.scm 1519 */
 obj_t BgL_pairz00_2897;
if(
PAIRP(BgL_arg2075z00_2896))
{ /* Ieee/port.scm 1519 */
BgL_pairz00_2897 = BgL_arg2075z00_2896; }  else 
{ 
 obj_t BgL_auxz00_8413;
BgL_auxz00_8413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(68749L), BGl_string3117z00zz__r4_ports_6_10_1z00, BGl_string2866z00zz__r4_ports_6_10_1z00, BgL_arg2075z00_2896); 
FAILURE(BgL_auxz00_8413,BFALSE,BFALSE);} 
BgL_arg2074z00_2895 = 
CDR(BgL_pairz00_2897); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1151z00_1933, BgL_arg2074z00_2895); BUNSPEC; }  else 
{ /* Ieee/port.scm 1519 */BFALSE; } } 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1150z00_3871, BgL_ohs1142z00_1931); BUNSPEC; 
BgL_res1157z00_1930 = BgL_tmp1152z00_1935; } } } } } } 
POP_ENV_EXIT(BgL_env1150z00_3871); 
return BgL_res1157z00_1930;} } 
}} 

}



/* 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_3811, obj_t BgL_stringz00_3812)
{
{ /* Ieee/port.scm 1527 */
{ /* Ieee/port.scm 1528 */
 char * BgL_auxz00_8423;
{ /* Ieee/port.scm 1528 */
 obj_t BgL_tmpz00_8424;
if(
STRINGP(BgL_stringz00_3812))
{ /* Ieee/port.scm 1528 */
BgL_tmpz00_8424 = BgL_stringz00_3812
; }  else 
{ 
 obj_t BgL_auxz00_8427;
BgL_auxz00_8427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(69104L), BGl_string3118z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3812); 
FAILURE(BgL_auxz00_8427,BFALSE,BFALSE);} 
BgL_auxz00_8423 = 
BSTRING_TO_STRING(BgL_tmpz00_8424); } 
return 
BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8423);} } 

}



/* 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_3813, obj_t BgL_stringz00_3814)
{
{ /* Ieee/port.scm 1533 */
{ /* Ieee/port.scm 1534 */
 bool_t BgL_tmpz00_8434;
{ /* Ieee/port.scm 1534 */
 char * BgL_auxz00_8435;
{ /* Ieee/port.scm 1534 */
 obj_t BgL_tmpz00_8436;
if(
STRINGP(BgL_stringz00_3814))
{ /* Ieee/port.scm 1534 */
BgL_tmpz00_8436 = BgL_stringz00_3814
; }  else 
{ 
 obj_t BgL_auxz00_8439;
BgL_auxz00_8439 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(69399L), BGl_string3119z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3814); 
FAILURE(BgL_auxz00_8439,BFALSE,BFALSE);} 
BgL_auxz00_8435 = 
BSTRING_TO_STRING(BgL_tmpz00_8436); } 
BgL_tmpz00_8434 = 
BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8435); } 
return 
BBOOL(BgL_tmpz00_8434);} } 

}



/* 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_1943;
BgL__ortest_1159z00_1943 = 
bgl_directoryp(
BSTRING_TO_STRING(BgL_stringz00_177)); 
if(BgL__ortest_1159z00_1943)
{ /* Ieee/port.scm 1540 */
return BgL__ortest_1159z00_1943;}  else 
{ /* Ieee/port.scm 1541 */
 bool_t BgL__ortest_1160z00_1944;
{ /* Ieee/port.scm 1534 */
 char * BgL_tmpz00_8449;
BgL_tmpz00_8449 = 
BSTRING_TO_STRING(BgL_stringz00_177); 
BgL__ortest_1160z00_1944 = 
!BGL_MKDIR(BgL_tmpz00_8449, 511L); } 
if(BgL__ortest_1160z00_1944)
{ /* Ieee/port.scm 1541 */
return BgL__ortest_1160z00_1944;}  else 
{ /* Ieee/port.scm 1542 */
 obj_t BgL_dnamez00_1945;
BgL_dnamez00_1945 = 
BGl_dirnamez00zz__osz00(BgL_stringz00_177); 
{ /* Ieee/port.scm 1543 */
 bool_t BgL_test4011z00_8454;
if(
(
STRING_LENGTH(BgL_dnamez00_1945)==0L))
{ /* Ieee/port.scm 1543 */
BgL_test4011z00_8454 = ((bool_t)1)
; }  else 
{ /* Ieee/port.scm 1543 */
BgL_test4011z00_8454 = 
fexists(
BSTRING_TO_STRING(BgL_dnamez00_1945))
; } 
if(BgL_test4011z00_8454)
{ /* Ieee/port.scm 1543 */
return ((bool_t)0);}  else 
{ /* Ieee/port.scm 1545 */
 bool_t BgL_auxz00_1950;
BgL_auxz00_1950 = 
BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_dnamez00_1945); 
{ /* Ieee/port.scm 1546 */
 bool_t BgL_test4013z00_8461;
{ /* Ieee/port.scm 1546 */
 unsigned char BgL_char2z00_2910;
BgL_char2z00_2910 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Ieee/port.scm 1546 */
 unsigned char BgL_tmpz00_8463;
{ /* Ieee/port.scm 1546 */
 long BgL_i2118z00_3885;
BgL_i2118z00_3885 = 
(
STRING_LENGTH(BgL_stringz00_177)-1L); 
{ /* Ieee/port.scm 1546 */
 long BgL_l2119z00_3886;
BgL_l2119z00_3886 = 
STRING_LENGTH(BgL_stringz00_177); 
if(
BOUND_CHECK(BgL_i2118z00_3885, BgL_l2119z00_3886))
{ /* Ieee/port.scm 1546 */
BgL_tmpz00_8463 = 
STRING_REF(BgL_stringz00_177, BgL_i2118z00_3885)
; }  else 
{ 
 obj_t BgL_auxz00_8470;
BgL_auxz00_8470 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(69910L), BGl_string3120z00zz__r4_ports_6_10_1z00, BgL_stringz00_177, 
(int)(BgL_l2119z00_3886), 
(int)(BgL_i2118z00_3885)); 
FAILURE(BgL_auxz00_8470,BFALSE,BFALSE);} } } 
BgL_test4013z00_8461 = 
(BgL_tmpz00_8463==BgL_char2z00_2910); } } 
if(BgL_test4013z00_8461)
{ /* Ieee/port.scm 1546 */
return BgL_auxz00_1950;}  else 
{ /* Ieee/port.scm 1534 */
 char * BgL_tmpz00_8477;
BgL_tmpz00_8477 = 
BSTRING_TO_STRING(BgL_stringz00_177); 
return 
!BGL_MKDIR(BgL_tmpz00_8477, 511L);} } } } } } } } 

}



/* &make-directories */
obj_t BGl_z62makezd2directorieszb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3815, obj_t BgL_stringz00_3816)
{
{ /* Ieee/port.scm 1539 */
{ /* Ieee/port.scm 1540 */
 bool_t BgL_tmpz00_8480;
{ /* Ieee/port.scm 1540 */
 obj_t BgL_auxz00_8481;
if(
STRINGP(BgL_stringz00_3816))
{ /* Ieee/port.scm 1540 */
BgL_auxz00_8481 = BgL_stringz00_3816
; }  else 
{ 
 obj_t BgL_auxz00_8484;
BgL_auxz00_8484 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(69687L), BGl_string3121z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3816); 
FAILURE(BgL_auxz00_8484,BFALSE,BFALSE);} 
BgL_tmpz00_8480 = 
BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_auxz00_8481); } 
return 
BBOOL(BgL_tmpz00_8480);} } 

}



/* 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_3817, obj_t BgL_stringz00_3818)
{
{ /* Ieee/port.scm 1554 */
{ /* Ieee/port.scm 1555 */
 char * BgL_auxz00_8492;
{ /* Ieee/port.scm 1555 */
 obj_t BgL_tmpz00_8493;
if(
STRINGP(BgL_stringz00_3818))
{ /* Ieee/port.scm 1555 */
BgL_tmpz00_8493 = BgL_stringz00_3818
; }  else 
{ 
 obj_t BgL_auxz00_8496;
BgL_auxz00_8496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(70308L), BGl_string3122z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3818); 
FAILURE(BgL_auxz00_8496,BFALSE,BFALSE);} 
BgL_auxz00_8492 = 
BSTRING_TO_STRING(BgL_tmpz00_8493); } 
return 
BGl_deletezd2directoryzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8492);} } 

}



/* 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_arg1626z00_4768;
BgL_arg1626z00_4768 = 
rename(BgL_string1z00_179, BgL_string2z00_180); 
return 
(
BINT(BgL_arg1626z00_4768)==
BINT(0L));} } 

}



/* &rename-file */
obj_t BGl_z62renamezd2filezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3819, obj_t BgL_string1z00_3820, obj_t BgL_string2z00_3821)
{
{ /* Ieee/port.scm 1560 */
{ /* Ieee/port.scm 1561 */
 bool_t BgL_tmpz00_8506;
{ /* Ieee/port.scm 1561 */
 char * BgL_auxz00_8516; char * BgL_auxz00_8507;
{ /* Ieee/port.scm 1561 */
 obj_t BgL_tmpz00_8517;
if(
STRINGP(BgL_string2z00_3821))
{ /* Ieee/port.scm 1561 */
BgL_tmpz00_8517 = BgL_string2z00_3821
; }  else 
{ 
 obj_t BgL_auxz00_8520;
BgL_auxz00_8520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(70623L), BGl_string3123z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_string2z00_3821); 
FAILURE(BgL_auxz00_8520,BFALSE,BFALSE);} 
BgL_auxz00_8516 = 
BSTRING_TO_STRING(BgL_tmpz00_8517); } 
{ /* Ieee/port.scm 1561 */
 obj_t BgL_tmpz00_8508;
if(
STRINGP(BgL_string1z00_3820))
{ /* Ieee/port.scm 1561 */
BgL_tmpz00_8508 = BgL_string1z00_3820
; }  else 
{ 
 obj_t BgL_auxz00_8511;
BgL_auxz00_8511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(70623L), BGl_string3123z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_string1z00_3820); 
FAILURE(BgL_auxz00_8511,BFALSE,BFALSE);} 
BgL_auxz00_8507 = 
BSTRING_TO_STRING(BgL_tmpz00_8508); } 
BgL_tmpz00_8506 = 
BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8507, BgL_auxz00_8516); } 
return 
BBOOL(BgL_tmpz00_8506);} } 

}



/* 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_4769;
BgL_xz00_4769 = 
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_3822, obj_t BgL_pathz00_3823, obj_t BgL_siza7eza7_3824)
{
{ /* Ieee/port.scm 1566 */
{ /* Ieee/port.scm 1567 */
 bool_t BgL_tmpz00_8528;
{ /* Ieee/port.scm 1567 */
 long BgL_auxz00_8538; char * BgL_auxz00_8529;
{ /* Ieee/port.scm 1567 */
 obj_t BgL_tmpz00_8539;
if(
INTEGERP(BgL_siza7eza7_3824))
{ /* Ieee/port.scm 1567 */
BgL_tmpz00_8539 = BgL_siza7eza7_3824
; }  else 
{ 
 obj_t BgL_auxz00_8542;
BgL_auxz00_8542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(70933L), BGl_string3124z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_siza7eza7_3824); 
FAILURE(BgL_auxz00_8542,BFALSE,BFALSE);} 
BgL_auxz00_8538 = 
(long)CINT(BgL_tmpz00_8539); } 
{ /* Ieee/port.scm 1567 */
 obj_t BgL_tmpz00_8530;
if(
STRINGP(BgL_pathz00_3823))
{ /* Ieee/port.scm 1567 */
BgL_tmpz00_8530 = BgL_pathz00_3823
; }  else 
{ 
 obj_t BgL_auxz00_8533;
BgL_auxz00_8533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(70933L), BGl_string3124z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_pathz00_3823); 
FAILURE(BgL_auxz00_8533,BFALSE,BFALSE);} 
BgL_auxz00_8529 = 
BSTRING_TO_STRING(BgL_tmpz00_8530); } 
BgL_tmpz00_8528 = 
BGl_truncatezd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8529, BgL_auxz00_8538); } 
return 
BBOOL(BgL_tmpz00_8528);} } 

}



/* 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_4770;
BgL_xz00_4770 = 
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_3825, obj_t BgL_oportz00_3826, obj_t BgL_siza7eza7_3827)
{
{ /* Ieee/port.scm 1572 */
{ /* Ieee/port.scm 1573 */
 bool_t BgL_tmpz00_8550;
{ /* Ieee/port.scm 1573 */
 long BgL_auxz00_8558; obj_t BgL_auxz00_8551;
{ /* Ieee/port.scm 1573 */
 obj_t BgL_tmpz00_8559;
if(
INTEGERP(BgL_siza7eza7_3827))
{ /* Ieee/port.scm 1573 */
BgL_tmpz00_8559 = BgL_siza7eza7_3827
; }  else 
{ 
 obj_t BgL_auxz00_8562;
BgL_auxz00_8562 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(71236L), BGl_string3125z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_siza7eza7_3827); 
FAILURE(BgL_auxz00_8562,BFALSE,BFALSE);} 
BgL_auxz00_8558 = 
(long)CINT(BgL_tmpz00_8559); } 
if(
OUTPUT_PORTP(BgL_oportz00_3826))
{ /* Ieee/port.scm 1573 */
BgL_auxz00_8551 = BgL_oportz00_3826
; }  else 
{ 
 obj_t BgL_auxz00_8554;
BgL_auxz00_8554 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(71236L), BGl_string3125z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_oportz00_3826); 
FAILURE(BgL_auxz00_8554,BFALSE,BFALSE);} 
BgL_tmpz00_8550 = 
BGl_outputzd2portzd2truncatez00zz__r4_ports_6_10_1z00(BgL_auxz00_8551, BgL_auxz00_8558); } 
return 
BBOOL(BgL_tmpz00_8550);} } 

}



/* 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_1966;
BgL_piz00_1966 = 
BGl_openzd2inputzd2binaryzd2filezd2zz__binaryz00(
string_to_bstring(BgL_string1z00_185)); 
if(
BINARY_PORTP(BgL_piz00_1966))
{ /* Ieee/port.scm 1581 */
 obj_t BgL_poz00_1968;
BgL_poz00_1968 = 
BGl_openzd2outputzd2binaryzd2filezd2zz__binaryz00(
string_to_bstring(BgL_string2z00_186)); 
if(
BINARY_PORTP(BgL_poz00_1968))
{ /* Ieee/port.scm 1586 */
 obj_t BgL_sz00_1970;
{ /* Ieee/string.scm 172 */

BgL_sz00_1970 = 
make_string(1024L, ((unsigned char)' ')); } 
{ /* Ieee/port.scm 1587 */
 int BgL_g1161z00_1971;
BgL_g1161z00_1971 = 
bgl_input_fill_string(BgL_piz00_1966, BgL_sz00_1970); 
{ 
 int BgL_lz00_1973;
{ /* Ieee/port.scm 1587 */
 bool_t BgL_tmpz00_8579;
BgL_lz00_1973 = BgL_g1161z00_1971; 
BgL_zc3z04anonymousza31629ze3z87_1974:
if(
(
(long)(BgL_lz00_1973)==1024L))
{ /* Ieee/port.scm 1588 */
bgl_output_string(
((obj_t)BgL_poz00_1968), BgL_sz00_1970); 
{ /* Ieee/port.scm 1591 */
 int BgL_arg1631z00_1976;
BgL_arg1631z00_1976 = 
bgl_input_fill_string(
((obj_t)BgL_piz00_1966), BgL_sz00_1970); 
{ 
 int BgL_lz00_8587;
BgL_lz00_8587 = BgL_arg1631z00_1976; 
BgL_lz00_1973 = BgL_lz00_8587; 
goto BgL_zc3z04anonymousza31629ze3z87_1974;} } }  else 
{ /* Ieee/port.scm 1588 */
{ /* Ieee/port.scm 1593 */
 obj_t BgL_arg1632z00_1977;
{ /* Ieee/port.scm 1593 */
 long BgL_tmpz00_8588;
BgL_tmpz00_8588 = 
(long)(BgL_lz00_1973); 
BgL_arg1632z00_1977 = 
bgl_string_shrink(BgL_sz00_1970, BgL_tmpz00_8588); } 
bgl_output_string(
((obj_t)BgL_poz00_1968), BgL_arg1632z00_1977); } 
close_binary_port(
((obj_t)BgL_piz00_1966)); 
close_binary_port(
((obj_t)BgL_poz00_1968)); 
BgL_tmpz00_8579 = ((bool_t)1); } 
return 
BBOOL(BgL_tmpz00_8579);} } } }  else 
{ /* Ieee/port.scm 1582 */
close_binary_port(BgL_piz00_1966); 
return BFALSE;} }  else 
{ /* Ieee/port.scm 1580 */
return BFALSE;} } } 

}



/* &copy-file */
obj_t BGl_z62copyzd2filezb0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3828, obj_t BgL_string1z00_3829, obj_t BgL_string2z00_3830)
{
{ /* Ieee/port.scm 1578 */
{ /* Ieee/port.scm 1579 */
 char * BgL_auxz00_8608; char * BgL_auxz00_8599;
{ /* Ieee/port.scm 1579 */
 obj_t BgL_tmpz00_8609;
if(
STRINGP(BgL_string2z00_3830))
{ /* Ieee/port.scm 1579 */
BgL_tmpz00_8609 = BgL_string2z00_3830
; }  else 
{ 
 obj_t BgL_auxz00_8612;
BgL_auxz00_8612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(71523L), BGl_string3126z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_string2z00_3830); 
FAILURE(BgL_auxz00_8612,BFALSE,BFALSE);} 
BgL_auxz00_8608 = 
BSTRING_TO_STRING(BgL_tmpz00_8609); } 
{ /* Ieee/port.scm 1579 */
 obj_t BgL_tmpz00_8600;
if(
STRINGP(BgL_string1z00_3829))
{ /* Ieee/port.scm 1579 */
BgL_tmpz00_8600 = BgL_string1z00_3829
; }  else 
{ 
 obj_t BgL_auxz00_8603;
BgL_auxz00_8603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(71523L), BGl_string3126z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_string1z00_3829); 
FAILURE(BgL_auxz00_8603,BFALSE,BFALSE);} 
BgL_auxz00_8599 = 
BSTRING_TO_STRING(BgL_tmpz00_8600); } 
return 
BGl_copyzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8599, BgL_auxz00_8608);} } 

}



/* 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_4771;
BgL__ortest_1162z00_4771 = 
OUTPUT_PORTP(BgL_objz00_187); 
if(BgL__ortest_1162z00_4771)
{ /* Ieee/port.scm 1602 */
return BgL__ortest_1162z00_4771;}  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_3831, obj_t BgL_objz00_3832)
{
{ /* Ieee/port.scm 1601 */
return 
BBOOL(
BGl_portzf3zf3zz__r4_ports_6_10_1z00(BgL_objz00_3832));} 

}



/* 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_3833, obj_t BgL_stringz00_3834)
{
{ /* Ieee/port.scm 1607 */
{ /* Ieee/port.scm 1608 */
 bool_t BgL_tmpz00_8624;
{ /* Ieee/port.scm 1608 */
 char * BgL_auxz00_8625;
{ /* Ieee/port.scm 1608 */
 obj_t BgL_tmpz00_8626;
if(
STRINGP(BgL_stringz00_3834))
{ /* Ieee/port.scm 1608 */
BgL_tmpz00_8626 = BgL_stringz00_3834
; }  else 
{ 
 obj_t BgL_auxz00_8629;
BgL_auxz00_8629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(72611L), BGl_string3127z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3834); 
FAILURE(BgL_auxz00_8629,BFALSE,BFALSE);} 
BgL_auxz00_8625 = 
BSTRING_TO_STRING(BgL_tmpz00_8626); } 
BgL_tmpz00_8624 = 
BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(BgL_auxz00_8625); } 
return 
BBOOL(BgL_tmpz00_8624);} } 

}



/* 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_3835, obj_t BgL_stringz00_3836)
{
{ /* Ieee/port.scm 1613 */
{ /* Ieee/port.scm 1614 */
 char * BgL_auxz00_8638;
{ /* Ieee/port.scm 1614 */
 obj_t BgL_tmpz00_8639;
if(
STRINGP(BgL_stringz00_3836))
{ /* Ieee/port.scm 1614 */
BgL_tmpz00_8639 = BgL_stringz00_3836
; }  else 
{ 
 obj_t BgL_auxz00_8642;
BgL_auxz00_8642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(72900L), BGl_string3128z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3836); 
FAILURE(BgL_auxz00_8642,BFALSE,BFALSE);} 
BgL_auxz00_8638 = 
BSTRING_TO_STRING(BgL_tmpz00_8639); } 
return 
BGl_directoryzd2lengthzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8638);} } 

}



/* 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_3837, obj_t BgL_stringz00_3838)
{
{ /* Ieee/port.scm 1619 */
{ /* Ieee/port.scm 1620 */
 char * BgL_auxz00_8649;
{ /* Ieee/port.scm 1620 */
 obj_t BgL_tmpz00_8650;
if(
STRINGP(BgL_stringz00_3838))
{ /* Ieee/port.scm 1620 */
BgL_tmpz00_8650 = BgL_stringz00_3838
; }  else 
{ 
 obj_t BgL_auxz00_8653;
BgL_auxz00_8653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(73194L), BGl_string3129z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3838); 
FAILURE(BgL_auxz00_8653,BFALSE,BFALSE);} 
BgL_auxz00_8649 = 
BSTRING_TO_STRING(BgL_tmpz00_8650); } 
return 
BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(BgL_auxz00_8649);} } 

}



/* 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_1982;
BgL_lz00_1982 = 
STRING_LENGTH(BgL_dirz00_191); 
if(
(BgL_lz00_1982==0L))
{ /* Ieee/port.scm 1628 */
return BNIL;}  else 
{ /* Ieee/port.scm 1630 */
 bool_t BgL_test4034z00_8662;
{ /* Ieee/port.scm 1630 */
 unsigned char BgL_char2z00_2937;
BgL_char2z00_2937 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Ieee/port.scm 1630 */
 unsigned char BgL_tmpz00_8664;
{ /* Ieee/port.scm 1630 */
 long BgL_i2122z00_3889;
BgL_i2122z00_3889 = 
(BgL_lz00_1982-1L); 
if(
BOUND_CHECK(BgL_i2122z00_3889, BgL_lz00_1982))
{ /* Ieee/port.scm 1630 */
BgL_tmpz00_8664 = 
STRING_REF(BgL_dirz00_191, BgL_i2122z00_3889)
; }  else 
{ 
 obj_t BgL_auxz00_8669;
BgL_auxz00_8669 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(73557L), BGl_string3120z00zz__r4_ports_6_10_1z00, BgL_dirz00_191, 
(int)(BgL_lz00_1982), 
(int)(BgL_i2122z00_3889)); 
FAILURE(BgL_auxz00_8669,BFALSE,BFALSE);} } 
BgL_test4034z00_8662 = 
(BgL_tmpz00_8664==BgL_char2z00_2937); } } 
if(BgL_test4034z00_8662)
{ /* Ieee/port.scm 1633 */
 long BgL_arg1639z00_1988;
BgL_arg1639z00_1988 = 
(BgL_lz00_1982-1L); 
return 
bgl_directory_to_path_list(
BSTRING_TO_STRING(BgL_dirz00_191), 
(int)(BgL_arg1639z00_1988), FILE_SEPARATOR);}  else 
{ /* Ieee/port.scm 1630 */
return 
bgl_directory_to_path_list(
BSTRING_TO_STRING(BgL_dirz00_191), 
(int)(BgL_lz00_1982), FILE_SEPARATOR);} } } } 

}



/* &directory->path-list */
obj_t BGl_z62directoryzd2ze3pathzd2listz81zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3839, obj_t BgL_dirz00_3840)
{
{ /* Ieee/port.scm 1625 */
{ /* Ieee/port.scm 1626 */
 obj_t BgL_auxz00_8683;
if(
STRINGP(BgL_dirz00_3840))
{ /* Ieee/port.scm 1626 */
BgL_auxz00_8683 = BgL_dirz00_3840
; }  else 
{ 
 obj_t BgL_auxz00_8686;
BgL_auxz00_8686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(73482L), BGl_string3130z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_dirz00_3840); 
FAILURE(BgL_auxz00_8686,BFALSE,BFALSE);} 
return 
BGl_directoryzd2ze3pathzd2listze3zz__r4_ports_6_10_1z00(BgL_auxz00_8683);} } 

}



/* 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_3841, obj_t BgL_stringz00_3842)
{
{ /* Ieee/port.scm 1648 */
{ /* Ieee/port.scm 1649 */
 char * BgL_auxz00_8692;
{ /* Ieee/port.scm 1649 */
 obj_t BgL_tmpz00_8693;
if(
STRINGP(BgL_stringz00_3842))
{ /* Ieee/port.scm 1649 */
BgL_tmpz00_8693 = BgL_stringz00_3842
; }  else 
{ 
 obj_t BgL_auxz00_8696;
BgL_auxz00_8696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(74246L), BGl_string3131z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_stringz00_3842); 
FAILURE(BgL_auxz00_8696,BFALSE,BFALSE);} 
BgL_auxz00_8692 = 
BSTRING_TO_STRING(BgL_tmpz00_8693); } 
return 
BGl_directoryzd2ze3vectorz31zz__r4_ports_6_10_1z00(BgL_auxz00_8692);} } 

}



/* 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_1994;
BgL_lz00_1994 = 
STRING_LENGTH(BgL_dirz00_193); 
if(
(BgL_lz00_1994==0L))
{ /* Ieee/port.scm 1657 */
return BGl_vector3132z00zz__r4_ports_6_10_1z00;}  else 
{ /* Ieee/port.scm 1659 */
 bool_t BgL_test4039z00_8705;
{ /* Ieee/port.scm 1659 */
 unsigned char BgL_char2z00_2945;
BgL_char2z00_2945 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Ieee/port.scm 1659 */
 unsigned char BgL_tmpz00_8707;
{ /* Ieee/port.scm 1659 */
 long BgL_i2126z00_3893;
BgL_i2126z00_3893 = 
(BgL_lz00_1994-1L); 
if(
BOUND_CHECK(BgL_i2126z00_3893, BgL_lz00_1994))
{ /* Ieee/port.scm 1659 */
BgL_tmpz00_8707 = 
STRING_REF(BgL_dirz00_193, BgL_i2126z00_3893)
; }  else 
{ 
 obj_t BgL_auxz00_8712;
BgL_auxz00_8712 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(74614L), BGl_string3120z00zz__r4_ports_6_10_1z00, BgL_dirz00_193, 
(int)(BgL_lz00_1994), 
(int)(BgL_i2126z00_3893)); 
FAILURE(BgL_auxz00_8712,BFALSE,BFALSE);} } 
BgL_test4039z00_8705 = 
(BgL_tmpz00_8707==BgL_char2z00_2945); } } 
if(BgL_test4039z00_8705)
{ /* Ieee/port.scm 1662 */
 long BgL_arg1653z00_2000;
BgL_arg1653z00_2000 = 
(BgL_lz00_1994-1L); 
return 
bgl_directory_to_path_vector(
BSTRING_TO_STRING(BgL_dirz00_193), 
(int)(BgL_arg1653z00_2000), FILE_SEPARATOR);}  else 
{ /* Ieee/port.scm 1659 */
return 
bgl_directory_to_path_vector(
BSTRING_TO_STRING(BgL_dirz00_193), 
(int)(BgL_lz00_1994), FILE_SEPARATOR);} } } } 

}



/* &directory->path-vector */
obj_t BGl_z62directoryzd2ze3pathzd2vectorz81zz__r4_ports_6_10_1z00(obj_t BgL_envz00_3843, obj_t BgL_dirz00_3844)
{
{ /* Ieee/port.scm 1654 */
{ /* Ieee/port.scm 1655 */
 obj_t BgL_auxz00_8726;
if(
STRINGP(BgL_dirz00_3844))
{ /* Ieee/port.scm 1655 */
BgL_auxz00_8726 = BgL_dirz00_3844
; }  else 
{ 
 obj_t BgL_auxz00_8729;
BgL_auxz00_8729 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(74538L), BGl_string3133z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_dirz00_3844); 
FAILURE(BgL_auxz00_8729,BFALSE,BFALSE);} 
return 
BGl_directoryzd2ze3pathzd2vectorze3zz__r4_ports_6_10_1z00(BgL_auxz00_8726);} } 

}



/* 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_3845, obj_t BgL_filez00_3846)
{
{ /* Ieee/port.scm 1677 */
{ /* Ieee/port.scm 1678 */
 long BgL_tmpz00_8735;
{ /* Ieee/port.scm 1678 */
 char * BgL_auxz00_8736;
{ /* Ieee/port.scm 1678 */
 obj_t BgL_tmpz00_8737;
if(
STRINGP(BgL_filez00_3846))
{ /* Ieee/port.scm 1678 */
BgL_tmpz00_8737 = BgL_filez00_3846
; }  else 
{ 
 obj_t BgL_auxz00_8740;
BgL_auxz00_8740 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(75310L), BGl_string3134z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3846); 
FAILURE(BgL_auxz00_8740,BFALSE,BFALSE);} 
BgL_auxz00_8736 = 
BSTRING_TO_STRING(BgL_tmpz00_8737); } 
BgL_tmpz00_8735 = 
BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(BgL_auxz00_8736); } 
return 
make_belong(BgL_tmpz00_8735);} } 

}



/* 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_3847, obj_t BgL_filez00_3848)
{
{ /* Ieee/port.scm 1683 */
{ /* Ieee/port.scm 1684 */
 long BgL_tmpz00_8748;
{ /* Ieee/port.scm 1684 */
 char * BgL_auxz00_8749;
{ /* Ieee/port.scm 1684 */
 obj_t BgL_tmpz00_8750;
if(
STRINGP(BgL_filez00_3848))
{ /* Ieee/port.scm 1684 */
BgL_tmpz00_8750 = BgL_filez00_3848
; }  else 
{ 
 obj_t BgL_auxz00_8753;
BgL_auxz00_8753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(75602L), BGl_string3135z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3848); 
FAILURE(BgL_auxz00_8753,BFALSE,BFALSE);} 
BgL_auxz00_8749 = 
BSTRING_TO_STRING(BgL_tmpz00_8750); } 
BgL_tmpz00_8748 = 
BGl_filezd2changezd2timez00zz__r4_ports_6_10_1z00(BgL_auxz00_8749); } 
return 
make_belong(BgL_tmpz00_8748);} } 

}



/* 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_3849, obj_t BgL_filez00_3850)
{
{ /* Ieee/port.scm 1689 */
{ /* Ieee/port.scm 1690 */
 long BgL_tmpz00_8761;
{ /* Ieee/port.scm 1690 */
 char * BgL_auxz00_8762;
{ /* Ieee/port.scm 1690 */
 obj_t BgL_tmpz00_8763;
if(
STRINGP(BgL_filez00_3850))
{ /* Ieee/port.scm 1690 */
BgL_tmpz00_8763 = BgL_filez00_3850
; }  else 
{ 
 obj_t BgL_auxz00_8766;
BgL_auxz00_8766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(75888L), BGl_string3136z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3850); 
FAILURE(BgL_auxz00_8766,BFALSE,BFALSE);} 
BgL_auxz00_8762 = 
BSTRING_TO_STRING(BgL_tmpz00_8763); } 
BgL_tmpz00_8761 = 
BGl_filezd2accesszd2timez00zz__r4_ports_6_10_1z00(BgL_auxz00_8762); } 
return 
make_belong(BgL_tmpz00_8761);} } 

}



/* 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_3851, obj_t BgL_filez00_3852, obj_t BgL_atimez00_3853, obj_t BgL_mtimez00_3854)
{
{ /* Ieee/port.scm 1695 */
{ /* Ieee/port.scm 1696 */
 int BgL_tmpz00_8774;
{ /* Ieee/port.scm 1696 */
 long BgL_auxz00_8793; long BgL_auxz00_8784; char * BgL_auxz00_8775;
{ /* Ieee/port.scm 1696 */
 obj_t BgL_tmpz00_8794;
if(
ELONGP(BgL_mtimez00_3854))
{ /* Ieee/port.scm 1696 */
BgL_tmpz00_8794 = BgL_mtimez00_3854
; }  else 
{ 
 obj_t BgL_auxz00_8797;
BgL_auxz00_8797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(76185L), BGl_string3137z00zz__r4_ports_6_10_1z00, BGl_string3138z00zz__r4_ports_6_10_1z00, BgL_mtimez00_3854); 
FAILURE(BgL_auxz00_8797,BFALSE,BFALSE);} 
BgL_auxz00_8793 = 
BELONG_TO_LONG(BgL_tmpz00_8794); } 
{ /* Ieee/port.scm 1696 */
 obj_t BgL_tmpz00_8785;
if(
ELONGP(BgL_atimez00_3853))
{ /* Ieee/port.scm 1696 */
BgL_tmpz00_8785 = BgL_atimez00_3853
; }  else 
{ 
 obj_t BgL_auxz00_8788;
BgL_auxz00_8788 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(76185L), BGl_string3137z00zz__r4_ports_6_10_1z00, BGl_string3138z00zz__r4_ports_6_10_1z00, BgL_atimez00_3853); 
FAILURE(BgL_auxz00_8788,BFALSE,BFALSE);} 
BgL_auxz00_8784 = 
BELONG_TO_LONG(BgL_tmpz00_8785); } 
{ /* Ieee/port.scm 1696 */
 obj_t BgL_tmpz00_8776;
if(
STRINGP(BgL_filez00_3852))
{ /* Ieee/port.scm 1696 */
BgL_tmpz00_8776 = BgL_filez00_3852
; }  else 
{ 
 obj_t BgL_auxz00_8779;
BgL_auxz00_8779 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(76185L), BGl_string3137z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3852); 
FAILURE(BgL_auxz00_8779,BFALSE,BFALSE);} 
BgL_auxz00_8775 = 
BSTRING_TO_STRING(BgL_tmpz00_8776); } 
BgL_tmpz00_8774 = 
BGl_filezd2timeszd2setz12z12zz__r4_ports_6_10_1z00(BgL_auxz00_8775, BgL_auxz00_8784, BgL_auxz00_8793); } 
return 
BINT(BgL_tmpz00_8774);} } 

}



/* 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_3855, obj_t BgL_filez00_3856)
{
{ /* Ieee/port.scm 1701 */
{ /* Ieee/port.scm 1702 */
 long BgL_tmpz00_8805;
{ /* Ieee/port.scm 1702 */
 char * BgL_auxz00_8806;
{ /* Ieee/port.scm 1702 */
 obj_t BgL_tmpz00_8807;
if(
STRINGP(BgL_filez00_3856))
{ /* Ieee/port.scm 1702 */
BgL_tmpz00_8807 = BgL_filez00_3856
; }  else 
{ 
 obj_t BgL_auxz00_8810;
BgL_auxz00_8810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(76470L), BGl_string3139z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3856); 
FAILURE(BgL_auxz00_8810,BFALSE,BFALSE);} 
BgL_auxz00_8806 = 
BSTRING_TO_STRING(BgL_tmpz00_8807); } 
BgL_tmpz00_8805 = 
BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(BgL_auxz00_8806); } 
return 
make_belong(BgL_tmpz00_8805);} } 

}



/* 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_3857, obj_t BgL_filez00_3858)
{
{ /* Ieee/port.scm 1707 */
{ /* Ieee/port.scm 1708 */
 int BgL_tmpz00_8819;
{ /* Ieee/port.scm 1708 */
 char * BgL_auxz00_8820;
{ /* Ieee/port.scm 1708 */
 obj_t BgL_tmpz00_8821;
if(
STRINGP(BgL_filez00_3858))
{ /* Ieee/port.scm 1708 */
BgL_tmpz00_8821 = BgL_filez00_3858
; }  else 
{ 
 obj_t BgL_auxz00_8824;
BgL_auxz00_8824 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(76746L), BGl_string3140z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3858); 
FAILURE(BgL_auxz00_8824,BFALSE,BFALSE);} 
BgL_auxz00_8820 = 
BSTRING_TO_STRING(BgL_tmpz00_8821); } 
BgL_tmpz00_8819 = 
BGl_filezd2uidzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8820); } 
return 
BINT(BgL_tmpz00_8819);} } 

}



/* 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_3859, obj_t BgL_filez00_3860)
{
{ /* Ieee/port.scm 1713 */
{ /* Ieee/port.scm 1714 */
 int BgL_tmpz00_8833;
{ /* Ieee/port.scm 1714 */
 char * BgL_auxz00_8834;
{ /* Ieee/port.scm 1714 */
 obj_t BgL_tmpz00_8835;
if(
STRINGP(BgL_filez00_3860))
{ /* Ieee/port.scm 1714 */
BgL_tmpz00_8835 = BgL_filez00_3860
; }  else 
{ 
 obj_t BgL_auxz00_8838;
BgL_auxz00_8838 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(77021L), BGl_string3141z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3860); 
FAILURE(BgL_auxz00_8838,BFALSE,BFALSE);} 
BgL_auxz00_8834 = 
BSTRING_TO_STRING(BgL_tmpz00_8835); } 
BgL_tmpz00_8833 = 
BGl_filezd2gidzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8834); } 
return 
BINT(BgL_tmpz00_8833);} } 

}



/* 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_3861, obj_t BgL_filez00_3862)
{
{ /* Ieee/port.scm 1719 */
{ /* Ieee/port.scm 1720 */
 int BgL_tmpz00_8847;
{ /* Ieee/port.scm 1720 */
 char * BgL_auxz00_8848;
{ /* Ieee/port.scm 1720 */
 obj_t BgL_tmpz00_8849;
if(
STRINGP(BgL_filez00_3862))
{ /* Ieee/port.scm 1720 */
BgL_tmpz00_8849 = BgL_filez00_3862
; }  else 
{ 
 obj_t BgL_auxz00_8852;
BgL_auxz00_8852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(77297L), BGl_string3142z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3862); 
FAILURE(BgL_auxz00_8852,BFALSE,BFALSE);} 
BgL_auxz00_8848 = 
BSTRING_TO_STRING(BgL_tmpz00_8849); } 
BgL_tmpz00_8847 = 
BGl_filezd2modezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8848); } 
return 
BINT(BgL_tmpz00_8847);} } 

}



/* 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_3863, obj_t BgL_filez00_3864)
{
{ /* Ieee/port.scm 1725 */
{ /* Ieee/port.scm 1726 */
 char * BgL_auxz00_8860;
{ /* Ieee/port.scm 1726 */
 obj_t BgL_tmpz00_8861;
if(
STRINGP(BgL_filez00_3864))
{ /* Ieee/port.scm 1726 */
BgL_tmpz00_8861 = BgL_filez00_3864
; }  else 
{ 
 obj_t BgL_auxz00_8864;
BgL_auxz00_8864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(77574L), BGl_string3143z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_filez00_3864); 
FAILURE(BgL_auxz00_8864,BFALSE,BFALSE);} 
BgL_auxz00_8860 = 
BSTRING_TO_STRING(BgL_tmpz00_8861); } 
return 
BGl_filezd2typezd2zz__r4_ports_6_10_1z00(BgL_auxz00_8860);} } 

}



/* 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_3865, obj_t BgL_path1z00_3866, obj_t BgL_path2z00_3867)
{
{ /* Ieee/port.scm 1731 */
{ /* Ieee/port.scm 1732 */
 obj_t BgL_auxz00_8881; obj_t BgL_auxz00_8874;
if(
STRINGP(BgL_path2z00_3867))
{ /* Ieee/port.scm 1732 */
BgL_auxz00_8881 = BgL_path2z00_3867
; }  else 
{ 
 obj_t BgL_auxz00_8884;
BgL_auxz00_8884 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(77861L), BGl_string3144z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_path2z00_3867); 
FAILURE(BgL_auxz00_8884,BFALSE,BFALSE);} 
if(
STRINGP(BgL_path1z00_3866))
{ /* Ieee/port.scm 1732 */
BgL_auxz00_8874 = BgL_path1z00_3866
; }  else 
{ 
 obj_t BgL_auxz00_8877;
BgL_auxz00_8877 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(77861L), BGl_string3144z00zz__r4_ports_6_10_1z00, BGl_string2856z00zz__r4_ports_6_10_1z00, BgL_path1z00_3866); 
FAILURE(BgL_auxz00_8877,BFALSE,BFALSE);} 
return 
BGl_makezd2symlinkzd2zz__r4_ports_6_10_1z00(BgL_auxz00_8874, BgL_auxz00_8881);} } 

}



/* _select */
obj_t BGl__selectz00zz__r4_ports_6_10_1z00(obj_t BgL_env1308z00_212, obj_t BgL_opt1307z00_211)
{
{ /* Ieee/port.scm 1737 */
{ /* Ieee/port.scm 1737 */
 long BgL_l1309z00_4772;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_vectorz00_4773;
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_vectorz00_4773 = BgL_opt1307z00_211; }  else 
{ 
 obj_t BgL_auxz00_8891;
BgL_auxz00_8891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_8891,BFALSE,BFALSE);} 
BgL_l1309z00_4772 = 
VECTOR_LENGTH(BgL_vectorz00_4773); } 
{ /* Ieee/port.scm 1737 */

{ /* Ieee/port.scm 1737 */
 obj_t BgL_exceptz00_4774;
BgL_exceptz00_4774 = BNIL; 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_readz00_4775;
BgL_readz00_4775 = BNIL; 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_timeoutz00_4776;
BgL_timeoutz00_4776 = 
BINT(0L); 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_writez00_4777;
BgL_writez00_4777 = BNIL; 
{ /* Ieee/port.scm 1737 */

{ 
 long BgL_iz00_4779;
BgL_iz00_4779 = 0L; 
BgL_check1311z00_4778:
if(
(BgL_iz00_4779==BgL_l1309z00_4772))
{ /* Ieee/port.scm 1737 */BNIL; }  else 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4057z00_8899;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_arg1671z00_4780;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_vectorz00_4781;
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_vectorz00_4781 = BgL_opt1307z00_211; }  else 
{ 
 obj_t BgL_auxz00_8902;
BgL_auxz00_8902 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3146z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_8902,BFALSE,BFALSE);} 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4059z00_8906;
{ /* Ieee/port.scm 1737 */
 long BgL_tmpz00_8907;
BgL_tmpz00_8907 = 
VECTOR_LENGTH(BgL_vectorz00_4781); 
BgL_test4059z00_8906 = 
BOUND_CHECK(BgL_iz00_4779, BgL_tmpz00_8907); } 
if(BgL_test4059z00_8906)
{ /* Ieee/port.scm 1737 */
BgL_arg1671z00_4780 = 
VECTOR_REF(BgL_vectorz00_4781,BgL_iz00_4779); }  else 
{ 
 obj_t BgL_auxz00_8911;
BgL_auxz00_8911 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string2980z00zz__r4_ports_6_10_1z00, BgL_vectorz00_4781, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_4781)), 
(int)(BgL_iz00_4779)); 
FAILURE(BgL_auxz00_8911,BFALSE,BFALSE);} } } 
BgL_test4057z00_8899 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1671z00_4780, BGl_list3147z00zz__r4_ports_6_10_1z00)); } 
if(BgL_test4057z00_8899)
{ 
 long BgL_iz00_8920;
BgL_iz00_8920 = 
(BgL_iz00_4779+2L); 
BgL_iz00_4779 = BgL_iz00_8920; 
goto BgL_check1311z00_4778;}  else 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_arg1667z00_4782;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_vectorz00_4783;
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_vectorz00_4783 = BgL_opt1307z00_211; }  else 
{ 
 obj_t BgL_auxz00_8924;
BgL_auxz00_8924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3146z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_8924,BFALSE,BFALSE);} 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4061z00_8928;
{ /* Ieee/port.scm 1737 */
 long BgL_tmpz00_8929;
BgL_tmpz00_8929 = 
VECTOR_LENGTH(BgL_vectorz00_4783); 
BgL_test4061z00_8928 = 
BOUND_CHECK(BgL_iz00_4779, BgL_tmpz00_8929); } 
if(BgL_test4061z00_8928)
{ /* Ieee/port.scm 1737 */
BgL_arg1667z00_4782 = 
VECTOR_REF(BgL_vectorz00_4783,BgL_iz00_4779); }  else 
{ 
 obj_t BgL_auxz00_8933;
BgL_auxz00_8933 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string2980z00zz__r4_ports_6_10_1z00, BgL_vectorz00_4783, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_4783)), 
(int)(BgL_iz00_4779)); 
FAILURE(BgL_auxz00_8933,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol3155z00zz__r4_ports_6_10_1z00, BGl_string3157z00zz__r4_ports_6_10_1z00, BgL_arg1667z00_4782); } } } 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_index1313z00_4784;
BgL_index1313z00_4784 = 
BGl_search1310ze70ze7zz__r4_ports_6_10_1z00(BgL_l1309z00_4772, BgL_opt1307z00_211, BGl_keyword3148z00zz__r4_ports_6_10_1z00, 0L); 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4062z00_8942;
{ /* Ieee/port.scm 1737 */
 long BgL_n1z00_4785;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_8943;
if(
INTEGERP(BgL_index1313z00_4784))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_8943 = BgL_index1313z00_4784
; }  else 
{ 
 obj_t BgL_auxz00_8946;
BgL_auxz00_8946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1313z00_4784); 
FAILURE(BgL_auxz00_8946,BFALSE,BFALSE);} 
BgL_n1z00_4785 = 
(long)CINT(BgL_tmpz00_8943); } 
BgL_test4062z00_8942 = 
(BgL_n1z00_4785>=0L); } 
if(BgL_test4062z00_8942)
{ 
 long BgL_auxz00_8959; obj_t BgL_auxz00_8952;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_8960;
if(
INTEGERP(BgL_index1313z00_4784))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_8960 = BgL_index1313z00_4784
; }  else 
{ 
 obj_t BgL_auxz00_8963;
BgL_auxz00_8963 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1313z00_4784); 
FAILURE(BgL_auxz00_8963,BFALSE,BFALSE);} 
BgL_auxz00_8959 = 
(long)CINT(BgL_tmpz00_8960); } 
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_auxz00_8952 = BgL_opt1307z00_211
; }  else 
{ 
 obj_t BgL_auxz00_8955;
BgL_auxz00_8955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_8955,BFALSE,BFALSE);} 
BgL_exceptz00_4774 = 
VECTOR_REF(BgL_auxz00_8952,BgL_auxz00_8959); }  else 
{ /* Ieee/port.scm 1737 */BFALSE; } } } 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_index1314z00_4786;
BgL_index1314z00_4786 = 
BGl_search1310ze70ze7zz__r4_ports_6_10_1z00(BgL_l1309z00_4772, BgL_opt1307z00_211, BGl_keyword3150z00zz__r4_ports_6_10_1z00, 0L); 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4066z00_8970;
{ /* Ieee/port.scm 1737 */
 long BgL_n1z00_4787;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_8971;
if(
INTEGERP(BgL_index1314z00_4786))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_8971 = BgL_index1314z00_4786
; }  else 
{ 
 obj_t BgL_auxz00_8974;
BgL_auxz00_8974 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1314z00_4786); 
FAILURE(BgL_auxz00_8974,BFALSE,BFALSE);} 
BgL_n1z00_4787 = 
(long)CINT(BgL_tmpz00_8971); } 
BgL_test4066z00_8970 = 
(BgL_n1z00_4787>=0L); } 
if(BgL_test4066z00_8970)
{ 
 long BgL_auxz00_8987; obj_t BgL_auxz00_8980;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_8988;
if(
INTEGERP(BgL_index1314z00_4786))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_8988 = BgL_index1314z00_4786
; }  else 
{ 
 obj_t BgL_auxz00_8991;
BgL_auxz00_8991 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1314z00_4786); 
FAILURE(BgL_auxz00_8991,BFALSE,BFALSE);} 
BgL_auxz00_8987 = 
(long)CINT(BgL_tmpz00_8988); } 
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_auxz00_8980 = BgL_opt1307z00_211
; }  else 
{ 
 obj_t BgL_auxz00_8983;
BgL_auxz00_8983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_8983,BFALSE,BFALSE);} 
BgL_readz00_4775 = 
VECTOR_REF(BgL_auxz00_8980,BgL_auxz00_8987); }  else 
{ /* Ieee/port.scm 1737 */BFALSE; } } } 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_index1315z00_4788;
BgL_index1315z00_4788 = 
BGl_search1310ze70ze7zz__r4_ports_6_10_1z00(BgL_l1309z00_4772, BgL_opt1307z00_211, BGl_keyword3152z00zz__r4_ports_6_10_1z00, 0L); 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4070z00_8998;
{ /* Ieee/port.scm 1737 */
 long BgL_n1z00_4789;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_8999;
if(
INTEGERP(BgL_index1315z00_4788))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_8999 = BgL_index1315z00_4788
; }  else 
{ 
 obj_t BgL_auxz00_9002;
BgL_auxz00_9002 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1315z00_4788); 
FAILURE(BgL_auxz00_9002,BFALSE,BFALSE);} 
BgL_n1z00_4789 = 
(long)CINT(BgL_tmpz00_8999); } 
BgL_test4070z00_8998 = 
(BgL_n1z00_4789>=0L); } 
if(BgL_test4070z00_8998)
{ 
 long BgL_auxz00_9015; obj_t BgL_auxz00_9008;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_9016;
if(
INTEGERP(BgL_index1315z00_4788))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_9016 = BgL_index1315z00_4788
; }  else 
{ 
 obj_t BgL_auxz00_9019;
BgL_auxz00_9019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1315z00_4788); 
FAILURE(BgL_auxz00_9019,BFALSE,BFALSE);} 
BgL_auxz00_9015 = 
(long)CINT(BgL_tmpz00_9016); } 
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_auxz00_9008 = BgL_opt1307z00_211
; }  else 
{ 
 obj_t BgL_auxz00_9011;
BgL_auxz00_9011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_9011,BFALSE,BFALSE);} 
BgL_timeoutz00_4776 = 
VECTOR_REF(BgL_auxz00_9008,BgL_auxz00_9015); }  else 
{ /* Ieee/port.scm 1737 */BFALSE; } } } 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_index1316z00_4790;
BgL_index1316z00_4790 = 
BGl_search1310ze70ze7zz__r4_ports_6_10_1z00(BgL_l1309z00_4772, BgL_opt1307z00_211, BGl_keyword3153z00zz__r4_ports_6_10_1z00, 0L); 
{ /* Ieee/port.scm 1737 */
 bool_t BgL_test4074z00_9026;
{ /* Ieee/port.scm 1737 */
 long BgL_n1z00_4791;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_9027;
if(
INTEGERP(BgL_index1316z00_4790))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_9027 = BgL_index1316z00_4790
; }  else 
{ 
 obj_t BgL_auxz00_9030;
BgL_auxz00_9030 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1316z00_4790); 
FAILURE(BgL_auxz00_9030,BFALSE,BFALSE);} 
BgL_n1z00_4791 = 
(long)CINT(BgL_tmpz00_9027); } 
BgL_test4074z00_9026 = 
(BgL_n1z00_4791>=0L); } 
if(BgL_test4074z00_9026)
{ 
 long BgL_auxz00_9043; obj_t BgL_auxz00_9036;
{ /* Ieee/port.scm 1737 */
 obj_t BgL_tmpz00_9044;
if(
INTEGERP(BgL_index1316z00_4790))
{ /* Ieee/port.scm 1737 */
BgL_tmpz00_9044 = BgL_index1316z00_4790
; }  else 
{ 
 obj_t BgL_auxz00_9047;
BgL_auxz00_9047 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_index1316z00_4790); 
FAILURE(BgL_auxz00_9047,BFALSE,BFALSE);} 
BgL_auxz00_9043 = 
(long)CINT(BgL_tmpz00_9044); } 
if(
VECTORP(BgL_opt1307z00_211))
{ /* Ieee/port.scm 1737 */
BgL_auxz00_9036 = BgL_opt1307z00_211
; }  else 
{ 
 obj_t BgL_auxz00_9039;
BgL_auxz00_9039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_211); 
FAILURE(BgL_auxz00_9039,BFALSE,BFALSE);} 
BgL_writez00_4777 = 
VECTOR_REF(BgL_auxz00_9036,BgL_auxz00_9043); }  else 
{ /* Ieee/port.scm 1737 */BFALSE; } } } 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_exceptz00_4792;
BgL_exceptz00_4792 = BgL_exceptz00_4774; 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_readz00_4793;
BgL_readz00_4793 = BgL_readz00_4775; 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_timeoutz00_4794;
BgL_timeoutz00_4794 = BgL_timeoutz00_4776; 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_writez00_4795;
BgL_writez00_4795 = BgL_writez00_4777; 
{ /* Ieee/port.scm 1738 */
 obj_t BgL_auxz00_9076; obj_t BgL_auxz00_9069; obj_t BgL_auxz00_9062; long BgL_tmpz00_9053;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_exceptz00_4792))
{ /* Ieee/port.scm 1738 */
BgL_auxz00_9076 = BgL_exceptz00_4792
; }  else 
{ 
 obj_t BgL_auxz00_9079;
BgL_auxz00_9079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78224L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_exceptz00_4792); 
FAILURE(BgL_auxz00_9079,BFALSE,BFALSE);} 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_writez00_4795))
{ /* Ieee/port.scm 1738 */
BgL_auxz00_9069 = BgL_writez00_4795
; }  else 
{ 
 obj_t BgL_auxz00_9072;
BgL_auxz00_9072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78218L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_writez00_4795); 
FAILURE(BgL_auxz00_9072,BFALSE,BFALSE);} 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_readz00_4793))
{ /* Ieee/port.scm 1738 */
BgL_auxz00_9062 = BgL_readz00_4793
; }  else 
{ 
 obj_t BgL_auxz00_9065;
BgL_auxz00_9065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78213L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_readz00_4793); 
FAILURE(BgL_auxz00_9065,BFALSE,BFALSE);} 
{ /* Ieee/port.scm 1738 */
 obj_t BgL_tmpz00_9054;
if(
INTEGERP(BgL_timeoutz00_4794))
{ /* Ieee/port.scm 1738 */
BgL_tmpz00_9054 = BgL_timeoutz00_4794
; }  else 
{ 
 obj_t BgL_auxz00_9057;
BgL_auxz00_9057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78205L), BGl_string3145z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_timeoutz00_4794); 
FAILURE(BgL_auxz00_9057,BFALSE,BFALSE);} 
BgL_tmpz00_9053 = 
(long)CINT(BgL_tmpz00_9054); } 
return 
bgl_select(BgL_tmpz00_9053, BgL_auxz00_9062, BgL_auxz00_9069, BgL_auxz00_9076);} } } } } } } } } } } } } 

}



/* search1310~0 */
obj_t BGl_search1310ze70ze7zz__r4_ports_6_10_1z00(long BgL_l1309z00_3870, obj_t BgL_opt1307z00_3869, obj_t BgL_k1z00_2949, long BgL_iz00_2950)
{
{ /* Ieee/port.scm 1737 */
BGl_search1310ze70ze7zz__r4_ports_6_10_1z00:
if(
(BgL_iz00_2950==BgL_l1309z00_3870))
{ /* Ieee/port.scm 1737 */
return 
BINT((-1L));}  else 
{ /* Ieee/port.scm 1737 */
if(
(BgL_iz00_2950==
(BgL_l1309z00_3870-1L)))
{ /* Ieee/port.scm 1737 */
 long BgL_arg1683z00_2954;
{ 
 obj_t BgL_auxz00_9090;
if(
VECTORP(BgL_opt1307z00_3869))
{ /* Ieee/port.scm 1737 */
BgL_auxz00_9090 = BgL_opt1307z00_3869
; }  else 
{ 
 obj_t BgL_auxz00_9093;
BgL_auxz00_9093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3158z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_3869); 
FAILURE(BgL_auxz00_9093,BFALSE,BFALSE);} 
BgL_arg1683z00_2954 = 
VECTOR_LENGTH(BgL_auxz00_9090); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3155z00zz__r4_ports_6_10_1z00, BGl_string3159z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1683z00_2954));}  else 
{ /* Ieee/port.scm 1737 */
 obj_t BgL_vz00_2955;
{ 
 obj_t BgL_auxz00_9100;
if(
VECTORP(BgL_opt1307z00_3869))
{ /* Ieee/port.scm 1737 */
BgL_auxz00_9100 = BgL_opt1307z00_3869
; }  else 
{ 
 obj_t BgL_auxz00_9103;
BgL_auxz00_9103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78115L), BGl_string3158z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1307z00_3869); 
FAILURE(BgL_auxz00_9103,BFALSE,BFALSE);} 
BgL_vz00_2955 = 
VECTOR_REF(BgL_auxz00_9100,BgL_iz00_2950); } 
if(
(BgL_vz00_2955==BgL_k1z00_2949))
{ /* Ieee/port.scm 1737 */
return 
BINT(
(BgL_iz00_2950+1L));}  else 
{ 
 long BgL_iz00_9112;
BgL_iz00_9112 = 
(BgL_iz00_2950+2L); 
BgL_iz00_2950 = BgL_iz00_9112; 
goto BGl_search1310ze70ze7zz__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 */
{ /* Ieee/port.scm 1738 */
 obj_t BgL_auxz00_9141; obj_t BgL_auxz00_9132; obj_t BgL_auxz00_9123; long BgL_tmpz00_9114;
{ /* Ieee/port.scm 1738 */
 bool_t BgL_test4092z00_9142;
if(
PAIRP(BgL_exceptz00_207))
{ /* Ieee/port.scm 1738 */
BgL_test4092z00_9142 = ((bool_t)1)
; }  else 
{ /* Ieee/port.scm 1738 */
BgL_test4092z00_9142 = 
NULLP(BgL_exceptz00_207)
; } 
if(BgL_test4092z00_9142)
{ /* Ieee/port.scm 1738 */
BgL_auxz00_9141 = BgL_exceptz00_207
; }  else 
{ 
 obj_t BgL_auxz00_9146;
BgL_auxz00_9146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78224L), BGl_string3156z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_exceptz00_207); 
FAILURE(BgL_auxz00_9146,BFALSE,BFALSE);} } 
{ /* Ieee/port.scm 1738 */
 bool_t BgL_test4090z00_9133;
if(
PAIRP(BgL_writez00_210))
{ /* Ieee/port.scm 1738 */
BgL_test4090z00_9133 = ((bool_t)1)
; }  else 
{ /* Ieee/port.scm 1738 */
BgL_test4090z00_9133 = 
NULLP(BgL_writez00_210)
; } 
if(BgL_test4090z00_9133)
{ /* Ieee/port.scm 1738 */
BgL_auxz00_9132 = BgL_writez00_210
; }  else 
{ 
 obj_t BgL_auxz00_9137;
BgL_auxz00_9137 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78218L), BGl_string3156z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_writez00_210); 
FAILURE(BgL_auxz00_9137,BFALSE,BFALSE);} } 
{ /* Ieee/port.scm 1738 */
 bool_t BgL_test4088z00_9124;
if(
PAIRP(BgL_readz00_208))
{ /* Ieee/port.scm 1738 */
BgL_test4088z00_9124 = ((bool_t)1)
; }  else 
{ /* Ieee/port.scm 1738 */
BgL_test4088z00_9124 = 
NULLP(BgL_readz00_208)
; } 
if(BgL_test4088z00_9124)
{ /* Ieee/port.scm 1738 */
BgL_auxz00_9123 = BgL_readz00_208
; }  else 
{ 
 obj_t BgL_auxz00_9128;
BgL_auxz00_9128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78213L), BGl_string3156z00zz__r4_ports_6_10_1z00, BGl_string2947z00zz__r4_ports_6_10_1z00, BgL_readz00_208); 
FAILURE(BgL_auxz00_9128,BFALSE,BFALSE);} } 
{ /* Ieee/port.scm 1738 */
 obj_t BgL_tmpz00_9115;
if(
INTEGERP(BgL_timeoutz00_209))
{ /* Ieee/port.scm 1738 */
BgL_tmpz00_9115 = BgL_timeoutz00_209
; }  else 
{ 
 obj_t BgL_auxz00_9118;
BgL_auxz00_9118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78205L), BGl_string3156z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_timeoutz00_209); 
FAILURE(BgL_auxz00_9118,BFALSE,BFALSE);} 
BgL_tmpz00_9114 = 
(long)CINT(BgL_tmpz00_9115); } 
return 
bgl_select(BgL_tmpz00_9114, BgL_auxz00_9123, BgL_auxz00_9132, BgL_auxz00_9141);} } 

}



/* _open-pipes */
obj_t BGl__openzd2pipeszd2zz__r4_ports_6_10_1z00(obj_t BgL_env1318z00_215, obj_t BgL_opt1317z00_214)
{
{ /* Ieee/port.scm 1743 */
{ /* Ieee/port.scm 1743 */

{ 

{ /* Ieee/port.scm 1743 */
 long BgL_aux1320z00_4801;
{ 
 obj_t BgL_auxz00_9151;
if(
VECTORP(BgL_opt1317z00_214))
{ /* Ieee/port.scm 1743 */
BgL_auxz00_9151 = BgL_opt1317z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9154;
BgL_auxz00_9154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78456L), BGl_string3163z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1317z00_214); 
FAILURE(BgL_auxz00_9154,BFALSE,BFALSE);} 
BgL_aux1320z00_4801 = 
VECTOR_LENGTH(BgL_auxz00_9151); } 
switch( BgL_aux1320z00_4801) { case 0L : 

{ /* Ieee/port.scm 1743 */

return 
bgl_open_pipes(BFALSE);} break;case 1L : 

{ /* Ieee/port.scm 1743 */
 obj_t BgL_namez00_4802;
{ 
 obj_t BgL_auxz00_9160;
if(
VECTORP(BgL_opt1317z00_214))
{ /* Ieee/port.scm 1743 */
BgL_auxz00_9160 = BgL_opt1317z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9163;
BgL_auxz00_9163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78456L), BGl_string3163z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1317z00_214); 
FAILURE(BgL_auxz00_9163,BFALSE,BFALSE);} 
BgL_namez00_4802 = 
VECTOR_REF(BgL_auxz00_9160,0L); } 
{ /* Ieee/port.scm 1743 */

return 
bgl_open_pipes(BgL_namez00_4802);} } break;
default: 
{ /* Ieee/port.scm 1743 */
 long BgL_arg1690z00_4800;
{ 
 obj_t BgL_auxz00_9169;
if(
VECTORP(BgL_opt1317z00_214))
{ /* Ieee/port.scm 1743 */
BgL_auxz00_9169 = BgL_opt1317z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9172;
BgL_auxz00_9172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78456L), BGl_string3160z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1317z00_214); 
FAILURE(BgL_auxz00_9172,BFALSE,BFALSE);} 
BgL_arg1690z00_4800 = 
VECTOR_LENGTH(BgL_auxz00_9169); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3161z00zz__r4_ports_6_10_1z00, BGl_string3049z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1690z00_4800));} } } } } } 

}



/* 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_env1322z00_220, obj_t BgL_opt1321z00_219)
{
{ /* Ieee/port.scm 1749 */
{ /* Ieee/port.scm 1749 */
 obj_t BgL_g1323z00_2046; obj_t BgL_g1324z00_2047;
{ 
 obj_t BgL_auxz00_9181;
if(
VECTORP(BgL_opt1321z00_219))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9181 = BgL_opt1321z00_219
; }  else 
{ 
 obj_t BgL_auxz00_9184;
BgL_auxz00_9184 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1321z00_219); 
FAILURE(BgL_auxz00_9184,BFALSE,BFALSE);} 
BgL_g1323z00_2046 = 
VECTOR_REF(BgL_auxz00_9181,0L); } 
{ 
 obj_t BgL_auxz00_9189;
if(
VECTORP(BgL_opt1321z00_219))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9189 = BgL_opt1321z00_219
; }  else 
{ 
 obj_t BgL_auxz00_9192;
BgL_auxz00_9192 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1321z00_219); 
FAILURE(BgL_auxz00_9192,BFALSE,BFALSE);} 
BgL_g1324z00_2047 = 
VECTOR_REF(BgL_auxz00_9189,1L); } 
{ 

{ /* Ieee/port.scm 1749 */
 long BgL_aux1326z00_2049;
{ 
 obj_t BgL_auxz00_9197;
if(
VECTORP(BgL_opt1321z00_219))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9197 = BgL_opt1321z00_219
; }  else 
{ 
 obj_t BgL_auxz00_9200;
BgL_auxz00_9200 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1321z00_219); 
FAILURE(BgL_auxz00_9200,BFALSE,BFALSE);} 
BgL_aux1326z00_2049 = 
VECTOR_LENGTH(BgL_auxz00_9197); } 
switch( BgL_aux1326z00_2049) { case 2L : 

{ /* Ieee/port.scm 1749 */

{ /* Ieee/port.scm 1749 */
 bool_t BgL_tmpz00_9205;
{ /* Ieee/port.scm 1749 */
 obj_t BgL_auxz00_9213; obj_t BgL_auxz00_9206;
if(
SYMBOLP(BgL_g1324z00_2047))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9213 = BgL_g1324z00_2047
; }  else 
{ 
 obj_t BgL_auxz00_9216;
BgL_auxz00_9216 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string3169z00zz__r4_ports_6_10_1z00, BgL_g1324z00_2047); 
FAILURE(BgL_auxz00_9216,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_g1323z00_2046))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9206 = BgL_g1323z00_2046
; }  else 
{ 
 obj_t BgL_auxz00_9209;
BgL_auxz00_9209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_g1323z00_2046); 
FAILURE(BgL_auxz00_9209,BFALSE,BFALSE);} 
BgL_tmpz00_9205 = 
BGl_lockfz00zz__r4_ports_6_10_1z00(BgL_auxz00_9206, BgL_auxz00_9213, 
BINT(0L)); } 
return 
BBOOL(BgL_tmpz00_9205);} } break;case 3L : 

{ /* Ieee/port.scm 1749 */
 obj_t BgL_lenz00_2051;
{ 
 obj_t BgL_auxz00_9223;
if(
VECTORP(BgL_opt1321z00_219))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9223 = BgL_opt1321z00_219
; }  else 
{ 
 obj_t BgL_auxz00_9226;
BgL_auxz00_9226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1321z00_219); 
FAILURE(BgL_auxz00_9226,BFALSE,BFALSE);} 
BgL_lenz00_2051 = 
VECTOR_REF(BgL_auxz00_9223,2L); } 
{ /* Ieee/port.scm 1749 */

{ /* Ieee/port.scm 1749 */
 bool_t BgL_tmpz00_9231;
{ /* Ieee/port.scm 1749 */
 obj_t BgL_auxz00_9239; obj_t BgL_auxz00_9232;
if(
SYMBOLP(BgL_g1324z00_2047))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9239 = BgL_g1324z00_2047
; }  else 
{ 
 obj_t BgL_auxz00_9242;
BgL_auxz00_9242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string3169z00zz__r4_ports_6_10_1z00, BgL_g1324z00_2047); 
FAILURE(BgL_auxz00_9242,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_g1323z00_2046))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9232 = BgL_g1323z00_2046
; }  else 
{ 
 obj_t BgL_auxz00_9235;
BgL_auxz00_9235 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3164z00zz__r4_ports_6_10_1z00, BGl_string2879z00zz__r4_ports_6_10_1z00, BgL_g1323z00_2046); 
FAILURE(BgL_auxz00_9235,BFALSE,BFALSE);} 
BgL_tmpz00_9231 = 
BGl_lockfz00zz__r4_ports_6_10_1z00(BgL_auxz00_9232, BgL_auxz00_9239, BgL_lenz00_2051); } 
return 
BBOOL(BgL_tmpz00_9231);} } } break;
default: 
{ /* Ieee/port.scm 1749 */
 long BgL_arg1691z00_2052;
{ 
 obj_t BgL_auxz00_9248;
if(
VECTORP(BgL_opt1321z00_219))
{ /* Ieee/port.scm 1749 */
BgL_auxz00_9248 = BgL_opt1321z00_219
; }  else 
{ 
 obj_t BgL_auxz00_9251;
BgL_auxz00_9251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78746L), BGl_string3165z00zz__r4_ports_6_10_1z00, BGl_string2979z00zz__r4_ports_6_10_1z00, BgL_opt1321z00_219); 
FAILURE(BgL_auxz00_9251,BFALSE,BFALSE);} 
BgL_arg1691z00_2052 = 
VECTOR_LENGTH(BgL_auxz00_9248); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3166z00zz__r4_ports_6_10_1z00, BGl_string3168z00zz__r4_ports_6_10_1z00, 
BINT(BgL_arg1691z00_2052));} } } } } } 

}



/* 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_symbol3170z00zz__r4_ports_6_10_1z00))
{ /* Ieee/port.scm 1753 */
 long BgL_tmpz00_9261;
{ /* Ieee/port.scm 1753 */
 obj_t BgL_tmpz00_9262;
if(
INTEGERP(BgL_lenz00_218))
{ /* Ieee/port.scm 1753 */
BgL_tmpz00_9262 = BgL_lenz00_218
; }  else 
{ 
 obj_t BgL_auxz00_9265;
BgL_auxz00_9265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78871L), BGl_string3167z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_lenz00_218); 
FAILURE(BgL_auxz00_9265,BFALSE,BFALSE);} 
BgL_tmpz00_9261 = 
(long)CINT(BgL_tmpz00_9262); } 
return 
bgl_lockf(BgL_portz00_216, F_LOCK, BgL_tmpz00_9261);}  else 
{ /* Ieee/port.scm 1752 */
if(
(BgL_cmdz00_217==BGl_symbol3172z00zz__r4_ports_6_10_1z00))
{ /* Ieee/port.scm 1754 */
 long BgL_tmpz00_9273;
{ /* Ieee/port.scm 1754 */
 obj_t BgL_tmpz00_9274;
if(
INTEGERP(BgL_lenz00_218))
{ /* Ieee/port.scm 1754 */
BgL_tmpz00_9274 = BgL_lenz00_218
; }  else 
{ 
 obj_t BgL_auxz00_9277;
BgL_auxz00_9277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78911L), BGl_string3167z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_lenz00_218); 
FAILURE(BgL_auxz00_9277,BFALSE,BFALSE);} 
BgL_tmpz00_9273 = 
(long)CINT(BgL_tmpz00_9274); } 
return 
bgl_lockf(BgL_portz00_216, F_TLOCK, BgL_tmpz00_9273);}  else 
{ /* Ieee/port.scm 1752 */
if(
(BgL_cmdz00_217==BGl_symbol3174z00zz__r4_ports_6_10_1z00))
{ /* Ieee/port.scm 1755 */
 long BgL_tmpz00_9285;
{ /* Ieee/port.scm 1755 */
 obj_t BgL_tmpz00_9286;
if(
INTEGERP(BgL_lenz00_218))
{ /* Ieee/port.scm 1755 */
BgL_tmpz00_9286 = BgL_lenz00_218
; }  else 
{ 
 obj_t BgL_auxz00_9289;
BgL_auxz00_9289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78951L), BGl_string3167z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_lenz00_218); 
FAILURE(BgL_auxz00_9289,BFALSE,BFALSE);} 
BgL_tmpz00_9285 = 
(long)CINT(BgL_tmpz00_9286); } 
return 
bgl_lockf(BgL_portz00_216, F_ULOCK, BgL_tmpz00_9285);}  else 
{ /* Ieee/port.scm 1752 */
if(
(BgL_cmdz00_217==BGl_symbol3176z00zz__r4_ports_6_10_1z00))
{ /* Ieee/port.scm 1756 */
 long BgL_tmpz00_9297;
{ /* Ieee/port.scm 1756 */
 obj_t BgL_tmpz00_9298;
if(
INTEGERP(BgL_lenz00_218))
{ /* Ieee/port.scm 1756 */
BgL_tmpz00_9298 = BgL_lenz00_218
; }  else 
{ 
 obj_t BgL_auxz00_9301;
BgL_auxz00_9301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2854z00zz__r4_ports_6_10_1z00, 
BINT(78989L), BGl_string3167z00zz__r4_ports_6_10_1z00, BGl_string2953z00zz__r4_ports_6_10_1z00, BgL_lenz00_218); 
FAILURE(BgL_auxz00_9301,BFALSE,BFALSE);} 
BgL_tmpz00_9297 = 
(long)CINT(BgL_tmpz00_9298); } 
return 
bgl_lockf(BgL_portz00_216, F_TEST, BgL_tmpz00_9297);}  else 
{ /* Ieee/port.scm 1752 */
return 
CBOOL(
BGl_errorz00zz__errorz00(BGl_string3167z00zz__r4_ports_6_10_1z00, BGl_string3178z00zz__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_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(323064722L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__gunza7ipza7(224363699L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__urlz00(337061926L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
BGl_modulezd2initializa7ationz75zz__httpz00(354980671L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00)); 
return 
BGl_modulezd2initializa7ationz75zz__ftpz00(102328204L, 
BSTRING_TO_STRING(BGl_string3179z00zz__r4_ports_6_10_1z00));} 

}

#ifdef __cplusplus
}
#endif
