/*===========================================================================*/
/*   (Ieee/port.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Ieee/port.scm -indent -o objs/obj_u/Ieee/port.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

extern obj_t bgl_output_port_seek(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__closezd2outputzd2port2097z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__openzd2inputzd2string2081z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t close_output_port(obj_t);
extern bool_t reset_eof(obj_t);
static obj_t BGl_zc3exitza31140ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL char * BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(char *);
extern obj_t open_input_string(obj_t);
static obj_t BGl__withzd2outputzd2tozd2port2069zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern obj_t open_input_procedure(obj_t);
BGL_EXPORTED_DECL obj_t BGl_outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletezd2directoryzd2zz__r4_ports_6_10_1z00(char *);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL long BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(char *);
BGL_EXPORTED_DECL obj_t BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__currentzd2errorzd2portz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_zc3exitza31219ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(char *);
static obj_t BGl__withzd2inputzd2fromzd2string2062zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl__directoryzf32127zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00();
extern obj_t directory_to_list(char *);
extern obj_t reopen_input_c_string(obj_t, char *);
static obj_t BGl__callzd2withzd2inputzd2file2046zd2zz__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__makezd2directory2118zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__resetzd2eof2101zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__currentzd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(obj_t, char *);
extern obj_t get_output_string(obj_t);
static obj_t BGl__outputzd2portzd2position2108z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31080ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__deletezd2directory2122zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern long bgl_last_modification_time(char *);
extern obj_t string_to_bstring(char *);
static obj_t BGl__setzd2inputzd2portzd2positionz122103zc0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl__filezd2modificationzd2time2131z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__flushzd2outputzd2port2099z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2errorzd2portz00zz__r4_ports_6_10_1z00();
BGL_EXPORTED_DECL obj_t BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__withzd2inputzd2fromzd2file2060zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3exitza31161ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern int default_io_bufsiz;
BGL_EXPORTED_DECL obj_t BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__getzd2outputzd2string2095z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__outputzd2stringzd2portzf3zf3zz__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);
static obj_t BGl__filezd2siza7e2133z75zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31102ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_portzf3zf3zz__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__withzd2errorzd2tozd2file2075zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern obj_t display_string(obj_t, obj_t);
static obj_t BGl__inputzd2portzd2position2105z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(char *);
BGL_EXPORTED_DECL int BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_zc3exitza31240ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__inputzd2portzd2reopenz122058z12zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_closezd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_resetzd2eofzd2zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t open_input_c_string(char *);
BGL_EXPORTED_DECL obj_t BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00();
BGL_EXPORTED_DECL obj_t BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, int);
BGL_EXPORTED_DECL bool_t BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(char *);
static obj_t BGl__filezd2existszf32112z21zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__deletezd2file2116zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__openzd2inputzd2file2079z00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(char *);
extern obj_t bgl_input_port_seek(obj_t, int);
extern obj_t open_output_file(obj_t);
static obj_t BGl__closezd2inputzd2port2093z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__appendzd2outputzd2file2114z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t);
extern bool_t directoryp(char *);
static obj_t BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__directoryzd2ze3list2129z31zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t open_input_file(obj_t, obj_t);
static obj_t BGl__openzd2inputzd2czd2string2084zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_dirnamez00zz__osz00(obj_t);
static obj_t BGl__setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern bool_t fexists(char *);
extern obj_t close_input_port(obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl__callzd2withzd2outputzd2file2048zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3exitza31180ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(char *, char *);
static obj_t BGl__withzd2outputzd2tozd2file2067zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t make_client_socket(obj_t, int, bool_t);
extern obj_t open_output_string();
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00();
BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t);
extern int bgl_file_size(char *);
BGL_EXPORTED_DECL obj_t BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_zc3exitza31122ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2inputzd2fromzd2port2064zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(char *);
BGL_EXPORTED_DECL obj_t BGl_getzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_zc3exitza31260ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2errorzd2tozd2string2073zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__portzf3zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(char *);
static obj_t BGl__makezd2directories2120zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__openzd2outputzd2file2088z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t append_output_file(obj_t);
static obj_t BGl__inputzd2portzd2name2110z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl__withzd2errorzd2tozd2port2077zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__renamezd2file2124zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00();
static obj_t BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2outputzd2tozd2string2071zd2zz__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_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
extern obj_t open_input_pipe(obj_t, obj_t);
static obj_t BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__reopenzd2inputzd2czd2string2086zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl__closedzd2inputzd2portzf32091zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t bgl_input_port_reopen(obj_t);
static obj_t BGl_zc3exitza31198ze3z83zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_filezd2siza7ezd2envza7zz__r4_ports_6_10_1z00, BgL_bgl__fileza7d2siza7a7e2133za775za7za7__r4_ports_6_10_1za7002303z00, BGl__filezd2siza7e2133z75zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2cza7d2string2084za7d2za7za7__r4_ports_6_10_1za7002304za7, BGl__openzd2inputzd2czd2string2084zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2procedureza7d2portza7f3za7f3za7za7__r4_ports_6_10_1za7002305za7, BGl__inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_renamezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__renameza7d2file2124za7d2za7za7__r4_ports_6_10_1za7002306za7, BGl__renamezd2file2124zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2withzd2inputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__callza7d2withza7d2inputza7d2file2046za7d2za7za7__r4_ports_6_10_1za7002307za7, BGl__callzd2withzd2inputzd2file2046zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string2297z00zz__r4_ports_6_10_1z00, BgL_bgl_string2297za700za7za7__r4_ports_6_10_1za7002308z00, "Can't find file info", 20 );
DEFINE_STRING( BGl_string2296z00zz__r4_ports_6_10_1z00, BgL_bgl_string2296za700za7za7__r4_ports_6_10_1za7002309z00, "file-size", 9 );
DEFINE_STRING( BGl_string2295z00zz__r4_ports_6_10_1z00, BgL_bgl_string2295za700za7za7__r4_ports_6_10_1za7002310z00, "", 0 );
DEFINE_STRING( BGl_string2294z00zz__r4_ports_6_10_1z00, BgL_bgl_string2294za700za7za7__r4_ports_6_10_1za7002311z00, "set-output-port-position!", 25 );
DEFINE_STRING( BGl_string2293z00zz__r4_ports_6_10_1z00, BgL_bgl_string2293za700za7za7__r4_ports_6_10_1za7002312z00, "Can't seek port", 15 );
DEFINE_STRING( BGl_string2292z00zz__r4_ports_6_10_1z00, BgL_bgl_string2292za700za7za7__r4_ports_6_10_1za7002313z00, "set-input-port-position!", 24 );
DEFINE_STRING( BGl_string2291z00zz__r4_ports_6_10_1z00, BgL_bgl_string2291za700za7za7__r4_ports_6_10_1za7002314z00, "GET ", 4 );
DEFINE_STRING( BGl_string2290z00zz__r4_ports_6_10_1z00, BgL_bgl_string2290za700za7za7__r4_ports_6_10_1za7002315z00, "//", 2 );
DEFINE_STRING( BGl_string2289z00zz__r4_ports_6_10_1z00, BgL_bgl_string2289za700za7za7__r4_ports_6_10_1za7002316z00, "not a number", 12 );
DEFINE_STRING( BGl_string2288z00zz__r4_ports_6_10_1z00, BgL_bgl_string2288za700za7za7__r4_ports_6_10_1za7002317z00, "open-input-file", 15 );
DEFINE_STRING( BGl_string2287z00zz__r4_ports_6_10_1z00, BgL_bgl_string2287za700za7za7__r4_ports_6_10_1za7002318z00, "string:", 7 );
DEFINE_STRING( BGl_string2286z00zz__r4_ports_6_10_1z00, BgL_bgl_string2286za700za7za7__r4_ports_6_10_1za7002319z00, "ftp:", 4 );
DEFINE_STRING( BGl_string2285z00zz__r4_ports_6_10_1z00, BgL_bgl_string2285za700za7za7__r4_ports_6_10_1za7002320z00, "http:", 5 );
DEFINE_STRING( BGl_string2284z00zz__r4_ports_6_10_1z00, BgL_bgl_string2284za700za7za7__r4_ports_6_10_1za7002321z00, "pipe:", 5 );
DEFINE_STRING( BGl_string2283z00zz__r4_ports_6_10_1z00, BgL_bgl_string2283za700za7za7__r4_ports_6_10_1za7002322z00, "| ", 2 );
DEFINE_STRING( BGl_string2282z00zz__r4_ports_6_10_1z00, BgL_bgl_string2282za700za7za7__r4_ports_6_10_1za7002323z00, "file:", 5 );
DEFINE_STRING( BGl_string2281z00zz__r4_ports_6_10_1z00, BgL_bgl_string2281za700za7za7__r4_ports_6_10_1za7002324z00, "with-error-to-file", 18 );
DEFINE_STRING( BGl_string2280z00zz__r4_ports_6_10_1z00, BgL_bgl_string2280za700za7za7__r4_ports_6_10_1za7002325z00, "with-error-to-string", 20 );
DEFINE_STRING( BGl_string2279z00zz__r4_ports_6_10_1z00, BgL_bgl_string2279za700za7za7__r4_ports_6_10_1za7002326z00, "with-output-to-string", 21 );
DEFINE_STRING( BGl_string2278z00zz__r4_ports_6_10_1z00, BgL_bgl_string2278za700za7za7__r4_ports_6_10_1za7002327z00, "with-output-to-file", 19 );
DEFINE_STRING( BGl_string2277z00zz__r4_ports_6_10_1z00, BgL_bgl_string2277za700za7za7__r4_ports_6_10_1za7002328z00, "can't open procedure", 20 );
DEFINE_STRING( BGl_string2276z00zz__r4_ports_6_10_1z00, BgL_bgl_string2276za700za7za7__r4_ports_6_10_1za7002329z00, "with-input-from-procedure", 25 );
DEFINE_STRING( BGl_string2275z00zz__r4_ports_6_10_1z00, BgL_bgl_string2275za700za7za7__r4_ports_6_10_1za7002330z00, "can't open string", 17 );
DEFINE_STRING( BGl_string2274z00zz__r4_ports_6_10_1z00, BgL_bgl_string2274za700za7za7__r4_ports_6_10_1za7002331z00, "with-input-from-string", 22 );
DEFINE_STRING( BGl_string2273z00zz__r4_ports_6_10_1z00, BgL_bgl_string2273za700za7za7__r4_ports_6_10_1za7002332z00, "with-input-from-file", 20 );
DEFINE_STRING( BGl_string2272z00zz__r4_ports_6_10_1z00, BgL_bgl_string2272za700za7za7__r4_ports_6_10_1za7002333z00, "Can't reopen port", 17 );
DEFINE_STRING( BGl_string2271z00zz__r4_ports_6_10_1z00, BgL_bgl_string2271za700za7za7__r4_ports_6_10_1za7002334z00, "input-port-reopen!", 18 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2errorzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__currentza7d2errorza7d2portza700za7za7__r4_ports_6_10_1za7002335z00, BGl__currentzd2errorzd2portz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2port2064za7d2za7za7__r4_ports_6_10_1za7002336za7, BGl__withzd2inputzd2fromzd2port2064zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string2269z00zz__r4_ports_6_10_1z00, BgL_bgl_string2269za700za7za7__r4_ports_6_10_1za7002337z00, "can't open file", 15 );
DEFINE_STRING( BGl_string2270z00zz__r4_ports_6_10_1z00, BgL_bgl_string2270za700za7za7__r4_ports_6_10_1za7002338z00, "call-with-output-file", 21 );
DEFINE_STRING( BGl_string2268z00zz__r4_ports_6_10_1z00, BgL_bgl_string2268za700za7za7__r4_ports_6_10_1za7002339z00, "call-with-input-file", 20 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7d2name2110za700za7za7__r4_ports_6_10_1za7002340z00, BGl__inputzd2portzd2name2110z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_closezd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__closeza7d2outputza7d2port2097za700za7za7__r4_ports_6_10_1za7002341z00, BGl__closezd2outputzd2port2097z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2modificationzd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__fileza7d2modificationza7d2time2131za700za7za7__r4_ports_6_10_1za7002342z00, BGl__filezd2modificationzd2time2131z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2errorzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2errorza7d2toza7d2port2077za7d2za7za7__r4_ports_6_10_1za7002343za7, BGl__withzd2errorzd2tozd2port2077zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_outputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__outputza7d2portza7d2position2108za700za7za7__r4_ports_6_10_1za7002344z00, BGl__outputzd2portzd2position2108z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2outputzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2outputza7d2toza7d2port2069za7d2za7za7__r4_ports_6_10_1za7002345za7, BGl__withzd2outputzd2tozd2port2069zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7f3za721za7za7__r4_ports_6_10_1za7002346z00, BGl__inputzd2portzf3z21zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_outputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl__outputza7d2portza7f3za721za7za7__r4_ports_6_10_1za7002347z00, BGl__outputzd2portzf3z21zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__makeza7d2directory2118za7d2za7za7__r4_ports_6_10_1za7002348za7, BGl__makezd2directory2118zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_closedzd2inputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__closedza7d2inputza7d2portza7f32091za7f3za7za7__r4_ports_6_10_1za7002349za7, BGl__closedzd2inputzd2portzf32091zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d2file2088za700za7za7__r4_ports_6_10_1za7002350z00, BGl__openzd2outputzd2file2088z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__getza7d2outputza7d2string2095za700za7za7__r4_ports_6_10_1za7002351z00, BGl__getzd2outputzd2string2095z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_flushzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__flushza7d2outputza7d2port2099za700za7za7__r4_ports_6_10_1za7002352z00, BGl__flushzd2outputzd2port2099z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__portza7f3za7f3za7za7__r4_ports_6_10_1za7002353za7, BGl__portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_deletezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__deleteza7d2file2116za7d2za7za7__r4_ports_6_10_1za7002354za7, BGl__deletezd2file2116zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_outputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__outputza7d2stringza7d2portza7f3za7f3za7za7__r4_ports_6_10_1za7002355za7, BGl__outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_directoryzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__directoryza7f32127za7f3za7za7__r4_ports_6_10_1za7002356za7, BGl__directoryzf32127zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2file2060za7d2za7za7__r4_ports_6_10_1za7002357za7, BGl__withzd2inputzd2fromzd2file2060zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2outputzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2outputza7d2toza7d2string2071za7d2za7za7__r4_ports_6_10_1za7002358za7, BGl__withzd2outputzd2tozd2string2071zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2procedureza7d2za7za7__r4_ports_6_10_1za7002359za7, BGl__withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2outputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl__setza7d2outputza7d2portza7d2positionza712za7c0za7za7__r4_ports_6_10_1za7002360z00, BGl__setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_reopenzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__reopenza7d2inputza7d2cza7d2string2086za7d2za7za7__r4_ports_6_10_1za7002361za7, BGl__reopenzd2inputzd2czd2string2086zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2outputzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2outputza7d2toza7d2file2067za7d2za7za7__r4_ports_6_10_1za7002362za7, BGl__withzd2outputzd2tozd2file2067zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2stringza7d2portza7f3za7f3za7za7__r4_ports_6_10_1za7002363za7, BGl__inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2string2081za700za7za7__r4_ports_6_10_1za7002364z00, BGl__openzd2inputzd2string2081z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2withzd2outputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__callza7d2withza7d2outputza7d2file2048za7d2za7za7__r4_ports_6_10_1za7002365za7, BGl__callzd2withzd2outputzd2file2048zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__currentza7d2outputza7d2portza700za7za7__r4_ports_6_10_1za7002366z00, BGl__currentzd2outputzd2portz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_closezd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__closeza7d2inputza7d2port2093za700za7za7__r4_ports_6_10_1za7002367z00, BGl__closezd2inputzd2port2093z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__currentza7d2inputza7d2portza700za7za7__r4_ports_6_10_1za7002368z00, BGl__currentzd2inputzd2portz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2inputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl__setza7d2inputza7d2portza7d2positionza7122103za7c0za7za7__r4_ports_6_10_1za7002369z00, BGl__setzd2inputzd2portzd2positionz122103zc0zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_resetzd2eofzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__resetza7d2eof2101za7d2za7za7__r4_ports_6_10_1za7002370za7, BGl__resetzd2eof2101zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d2stringza700za7za7__r4_ports_6_10_1za7002371z00, BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7d2position2105za700za7za7__r4_ports_6_10_1za7002372z00, BGl__inputzd2portzd2position2105z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2errorzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2errorza7d2toza7d2string2073za7d2za7za7__r4_ports_6_10_1za7002373za7, BGl__withzd2errorzd2tozd2string2073zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2errorzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2errorza7d2toza7d2file2075za7d2za7za7__r4_ports_6_10_1za7002374za7, BGl__withzd2errorzd2tozd2file2075zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_directoryzd2ze3listzd2envze3zz__r4_ports_6_10_1z00, BgL_bgl__directoryza7d2za7e3list2129za731za7za7__r4_ports_6_10_1za7002375z00, BGl__directoryzd2ze3list2129z31zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_deletezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__deleteza7d2directory2122za7d2za7za7__r4_ports_6_10_1za7002376za7, BGl__deletezd2directory2122zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2file2079za700za7za7__r4_ports_6_10_1za7002377z00, va_generic_entry, BGl__openzd2inputzd2file2079z00zz__r4_ports_6_10_1z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_appendzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__appendza7d2outputza7d2file2114za700za7za7__r4_ports_6_10_1za7002378z00, BGl__appendzd2outputzd2file2114z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzd2reopenz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7d2reopenza7122058za712za7za7__r4_ports_6_10_1za7002379za7, BGl__inputzd2portzd2reopenz122058z12zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2string2062za7d2za7za7__r4_ports_6_10_1za7002380za7, BGl__withzd2inputzd2fromzd2string2062zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2existszf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl__fileza7d2existsza7f32112za721za7za7__r4_ports_6_10_1za7002381z00, BGl__filezd2existszf32112z21zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2procedureza700za7za7__r4_ports_6_10_1za7002382z00, BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2directorieszd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__makeza7d2directories2120za7d2za7za7__r4_ports_6_10_1za7002383za7, BGl__makezd2directories2120zd2zz__r4_ports_6_10_1z00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long BgL_checksumz00_1151, char * BgL_fromz00_1152)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_ports_6_10_1z00 = 
BBOOL(((bool_t)0)); 
BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* call-with-input-file */
BGL_EXPORTED_DEF obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_1, obj_t BgL_procz00_2)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 273 */
{ /* ./Ieee/port.scm 274 */
obj_t BgL_portz00_699;
BgL_portz00_699 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_stringz00_1, BNIL); 
if(
INPUT_PORTP(BgL_portz00_699))
{ /* ./Ieee/port.scm 274 */
obj_t BgL_resz00_702;
BgL_resz00_702 = 
PROCEDURE_ENTRY(BgL_procz00_2)(BgL_procz00_2, BgL_portz00_699, BEOA); 
close_input_port(BgL_portz00_699); 
return BgL_resz00_702;}  else 
{ /* ./Ieee/port.scm 274 */
FAILURE(BGl_string2268z00zz__r4_ports_6_10_1z00,BGl_string2269z00zz__r4_ports_6_10_1z00,BgL_stringz00_1);} } } 
}



/* _call-with-input-file2046 */
obj_t BGl__callzd2withzd2inputzd2file2046zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_963, obj_t BgL_stringz00_964, obj_t BgL_procz00_965)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 273 */
return 
BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(BgL_stringz00_964, BgL_procz00_965);} 
}



/* call-with-output-file */
BGL_EXPORTED_DEF obj_t BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_3, obj_t BgL_procz00_4)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 284 */
{ /* ./Ieee/port.scm 285 */
obj_t BgL_portz00_708;
BgL_portz00_708 = 
open_output_file(BgL_stringz00_3); 
if(
OUTPUT_PORTP(BgL_portz00_708))
{ /* ./Ieee/port.scm 285 */
obj_t BgL_resz00_710;
BgL_resz00_710 = 
PROCEDURE_ENTRY(BgL_procz00_4)(BgL_procz00_4, BgL_portz00_708, BEOA); 
close_output_port(BgL_portz00_708); 
return BgL_resz00_710;}  else 
{ /* ./Ieee/port.scm 285 */
FAILURE(BGl_string2270z00zz__r4_ports_6_10_1z00,BGl_string2269z00zz__r4_ports_6_10_1z00,BgL_stringz00_3);} } } 
}



/* _call-with-output-file2048 */
obj_t BGl__callzd2withzd2outputzd2file2048zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_966, obj_t BgL_stringz00_967, obj_t BgL_procz00_968)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 284 */
return 
BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(BgL_stringz00_967, BgL_procz00_968);} 
}



/* input-port? */
BGL_EXPORTED_DEF obj_t BGl_inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t BgL_objz00_5)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 295 */
{ /* ./Ieee/port.scm 296 */
bool_t BgL_auxz00_1173;
BgL_auxz00_1173 = 
INPUT_PORTP(BgL_objz00_5); 
return 
BBOOL(BgL_auxz00_1173);} } 
}



/* _input-port? */
obj_t BGl__inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t BgL_envz00_969, obj_t BgL_objz00_970)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 295 */
{ /* ./Ieee/port.scm 296 */
bool_t BgL_auxz00_1176;
BgL_auxz00_1176 = 
INPUT_PORTP(BgL_objz00_970); 
return 
BBOOL(BgL_auxz00_1176);} } 
}



/* input-string-port? */
BGL_EXPORTED_DEF obj_t BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_6)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 301 */
{ /* ./Ieee/port.scm 302 */
bool_t BgL_auxz00_1179;
BgL_auxz00_1179 = 
INPUT_STRING_PORTP(BgL_objz00_6); 
return 
BBOOL(BgL_auxz00_1179);} } 
}



/* _input-string-port? */
obj_t BGl__inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_971, obj_t BgL_objz00_972)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 301 */
{ /* ./Ieee/port.scm 302 */
bool_t BgL_auxz00_1182;
BgL_auxz00_1182 = 
INPUT_STRING_PORTP(BgL_objz00_972); 
return 
BBOOL(BgL_auxz00_1182);} } 
}



/* input-procedure-port? */
BGL_EXPORTED_DEF obj_t BGl_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_7)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 307 */
{ /* ./Ieee/port.scm 308 */
bool_t BgL_auxz00_1185;
BgL_auxz00_1185 = 
INPUT_PROCEDURE_PORTP(BgL_objz00_7); 
return 
BBOOL(BgL_auxz00_1185);} } 
}



/* _input-procedure-port? */
obj_t BGl__inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_973, obj_t BgL_objz00_974)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 307 */
{ /* ./Ieee/port.scm 308 */
bool_t BgL_auxz00_1188;
BgL_auxz00_1188 = 
INPUT_PROCEDURE_PORTP(BgL_objz00_974); 
return 
BBOOL(BgL_auxz00_1188);} } 
}



/* output-port? */
BGL_EXPORTED_DEF obj_t BGl_outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t BgL_objz00_8)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 313 */
{ /* ./Ieee/port.scm 314 */
bool_t BgL_auxz00_1191;
BgL_auxz00_1191 = 
OUTPUT_PORTP(BgL_objz00_8); 
return 
BBOOL(BgL_auxz00_1191);} } 
}



/* _output-port? */
obj_t BGl__outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t BgL_envz00_975, obj_t BgL_objz00_976)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 313 */
{ /* ./Ieee/port.scm 314 */
bool_t BgL_auxz00_1194;
BgL_auxz00_1194 = 
OUTPUT_PORTP(BgL_objz00_976); 
return 
BBOOL(BgL_auxz00_1194);} } 
}



/* output-string-port? */
BGL_EXPORTED_DEF obj_t BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_9)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 319 */
{ /* ./Ieee/port.scm 320 */
bool_t BgL_auxz00_1197;
BgL_auxz00_1197 = 
OUTPUT_STRING_PORTP(BgL_objz00_9); 
return 
BBOOL(BgL_auxz00_1197);} } 
}



/* _output-string-port? */
obj_t BGl__outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_977, obj_t BgL_objz00_978)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 319 */
{ /* ./Ieee/port.scm 320 */
bool_t BgL_auxz00_1200;
BgL_auxz00_1200 = 
OUTPUT_STRING_PORTP(BgL_objz00_978); 
return 
BBOOL(BgL_auxz00_1200);} } 
}



/* current-input-port */
BGL_EXPORTED_DEF obj_t BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 325 */
return 
BGL_CURRENT_INPUT_PORT();} 
}



/* _current-input-port */
obj_t BGl__currentzd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_979)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 325 */
return 
BGL_CURRENT_INPUT_PORT();} 
}



/* current-output-port */
BGL_EXPORTED_DEF obj_t BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 331 */
return 
BGL_CURRENT_OUTPUT_PORT();} 
}



/* _current-output-port */
obj_t BGl__currentzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_980)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 331 */
return 
BGL_CURRENT_OUTPUT_PORT();} 
}



/* current-error-port */
BGL_EXPORTED_DEF obj_t BGl_currentzd2errorzd2portz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 337 */
return 
BGL_CURRENT_ERROR_PORT();} 
}



/* _current-error-port */
obj_t BGl__currentzd2errorzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_981)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 337 */
return 
BGL_CURRENT_ERROR_PORT();} 
}



/* input-port-reopen! */
BGL_EXPORTED_DEF obj_t BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00(obj_t BgL_portz00_10)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 343 */
{ /* ./Ieee/port.scm 344 */
bool_t BgL_testz00_1209;
{ /* ./Ieee/port.scm 344 */
obj_t BgL_auxz00_1210;
BgL_auxz00_1210 = 
bgl_input_port_reopen(BgL_portz00_10); 
BgL_testz00_1209 = 
CBOOL(BgL_auxz00_1210); } 
if(BgL_testz00_1209)
{ /* ./Ieee/port.scm 344 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 344 */
FAILURE(BGl_string2271z00zz__r4_ports_6_10_1z00,BGl_string2272z00zz__r4_ports_6_10_1z00,BgL_portz00_10);} } } 
}



/* _input-port-reopen!2058 */
obj_t BGl__inputzd2portzd2reopenz122058z12zz__r4_ports_6_10_1z00(obj_t BgL_envz00_982, obj_t BgL_portz00_983)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 343 */
{ /* ./Ieee/port.scm 344 */
bool_t BgL_testz00_1214;
{ /* ./Ieee/port.scm 344 */
obj_t BgL_auxz00_1215;
BgL_auxz00_1215 = 
bgl_input_port_reopen(BgL_portz00_983); 
BgL_testz00_1214 = 
CBOOL(BgL_auxz00_1215); } 
if(BgL_testz00_1214)
{ /* ./Ieee/port.scm 344 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 344 */
FAILURE(BGl_string2271z00zz__r4_ports_6_10_1z00,BGl_string2272z00zz__r4_ports_6_10_1z00,BgL_portz00_983);} } } 
}



/* with-input-from-file */
BGL_EXPORTED_DEF obj_t BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_11, obj_t BgL_thunkz00_12)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 350 */
{ /* ./Ieee/port.scm 351 */
obj_t BgL_portz00_380;
BgL_portz00_380 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_stringz00_11, BNIL); 
if(
INPUT_PORTP(BgL_portz00_380))
{ /* ./Ieee/port.scm 353 */
obj_t BgL_oldzd2inputzd2portz00_382;
BgL_oldzd2inputzd2portz00_382 = 
BGL_CURRENT_INPUT_PORT(); 
{ /* ./Ieee/port.scm 354 */
obj_t BgL_val1003z00_383;
BgL_val1003z00_383 = 
BGl_zc3exitza31080ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_12, BgL_portz00_380); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_382); 
close_input_port(BgL_portz00_380); 
{ /* ./Ieee/port.scm 360 */
bool_t BgL_testz00_1226;
{ /* ./Ieee/port.scm 360 */
obj_t BgL_auxz00_1227;
BgL_auxz00_1227 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1003z00_383); 
BgL_testz00_1226 = 
CBOOL(BgL_auxz00_1227); } 
if(BgL_testz00_1226)
{ /* ./Ieee/port.scm 360 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1003z00_383), 
CDR(BgL_val1003z00_383));}  else 
{ /* ./Ieee/port.scm 360 */
return BgL_val1003z00_383;} } } }  else 
{ /* ./Ieee/port.scm 352 */
FAILURE(BGl_string2273z00zz__r4_ports_6_10_1z00,BGl_string2269z00zz__r4_ports_6_10_1z00,BgL_stringz00_11);} } } 
}



/* <exit:1080> */
obj_t BGl_zc3exitza31080ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1095, obj_t BgL_portz00_1094)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 359 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1004z00_388;
if( SET_EXIT(BgL_an_exit1004z00_388) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1004z00_388 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 359 */

PUSH_EXIT(BgL_an_exit1004z00_388, ((bool_t)0)); 
{ /* ./Ieee/port.scm 356 */
obj_t BgL_val1005z00_389;
BGL_CURRENT_INPUT_PORT_SET(BgL_portz00_1094); 
BgL_val1005z00_389 = 
PROCEDURE_ENTRY(BgL_thunkz00_1095)(BgL_thunkz00_1095, BEOA); 
POP_EXIT(); 
return BgL_val1005z00_389;} } 
} } 
}



/* _with-input-from-file2060 */
obj_t BGl__withzd2inputzd2fromzd2file2060zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_984, obj_t BgL_stringz00_985, obj_t BgL_thunkz00_986)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 350 */
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_stringz00_985, BgL_thunkz00_986);} 
}



/* with-input-from-string */
BGL_EXPORTED_DEF obj_t BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_13, obj_t BgL_thunkz00_14)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 366 */
{ /* ./Ieee/port.scm 367 */
obj_t BgL_portz00_391;
BgL_portz00_391 = 
open_input_string(BgL_stringz00_13); 
if(
INPUT_PORTP(BgL_portz00_391))
{ /* ./Ieee/port.scm 369 */
obj_t BgL_oldzd2inputzd2portz00_393;
BgL_oldzd2inputzd2portz00_393 = 
BGL_CURRENT_INPUT_PORT(); 
{ /* ./Ieee/port.scm 370 */
obj_t BgL_val1006z00_394;
BgL_val1006z00_394 = 
BGl_zc3exitza31102ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_14, BgL_portz00_391); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_393); 
close_input_port(BgL_portz00_391); 
{ /* ./Ieee/port.scm 376 */
bool_t BgL_testz00_1249;
{ /* ./Ieee/port.scm 376 */
obj_t BgL_auxz00_1250;
BgL_auxz00_1250 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1006z00_394); 
BgL_testz00_1249 = 
CBOOL(BgL_auxz00_1250); } 
if(BgL_testz00_1249)
{ /* ./Ieee/port.scm 376 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1006z00_394), 
CDR(BgL_val1006z00_394));}  else 
{ /* ./Ieee/port.scm 376 */
return BgL_val1006z00_394;} } } }  else 
{ /* ./Ieee/port.scm 368 */
FAILURE(BGl_string2274z00zz__r4_ports_6_10_1z00,BGl_string2275z00zz__r4_ports_6_10_1z00,BgL_stringz00_13);} } } 
}



/* <exit:1102> */
obj_t BGl_zc3exitza31102ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1093, obj_t BgL_portz00_1092)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 375 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1007z00_399;
if( SET_EXIT(BgL_an_exit1007z00_399) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1007z00_399 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 375 */

PUSH_EXIT(BgL_an_exit1007z00_399, ((bool_t)0)); 
{ /* ./Ieee/port.scm 372 */
obj_t BgL_val1008z00_400;
BGL_CURRENT_INPUT_PORT_SET(BgL_portz00_1092); 
BgL_val1008z00_400 = 
PROCEDURE_ENTRY(BgL_thunkz00_1093)(BgL_thunkz00_1093, BEOA); 
POP_EXIT(); 
return BgL_val1008z00_400;} } 
} } 
}



/* _with-input-from-string2062 */
obj_t BGl__withzd2inputzd2fromzd2string2062zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_987, obj_t BgL_stringz00_988, obj_t BgL_thunkz00_989)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 366 */
return 
BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(BgL_stringz00_988, BgL_thunkz00_989);} 
}



/* with-input-from-port */
BGL_EXPORTED_DEF obj_t BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_15, obj_t BgL_thunkz00_16)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 382 */
{ /* ./Ieee/port.scm 383 */
obj_t BgL_oldzd2inputzd2portz00_401;
BgL_oldzd2inputzd2portz00_401 = 
BGL_CURRENT_INPUT_PORT(); 
{ /* ./Ieee/port.scm 384 */
obj_t BgL_val1009z00_402;
BgL_val1009z00_402 = 
BGl_zc3exitza31122ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_16, BgL_portz00_15); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_401); 
{ /* ./Ieee/port.scm 388 */
bool_t BgL_testz00_1268;
{ /* ./Ieee/port.scm 388 */
obj_t BgL_auxz00_1269;
BgL_auxz00_1269 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1009z00_402); 
BgL_testz00_1268 = 
CBOOL(BgL_auxz00_1269); } 
if(BgL_testz00_1268)
{ /* ./Ieee/port.scm 388 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1009z00_402), 
CDR(BgL_val1009z00_402));}  else 
{ /* ./Ieee/port.scm 388 */
return BgL_val1009z00_402;} } } } } 
}



/* <exit:1122> */
obj_t BGl_zc3exitza31122ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1091, obj_t BgL_portz00_1090)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 388 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1010z00_407;
if( SET_EXIT(BgL_an_exit1010z00_407) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1010z00_407 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 388 */

PUSH_EXIT(BgL_an_exit1010z00_407, ((bool_t)0)); 
{ /* ./Ieee/port.scm 386 */
obj_t BgL_val1011z00_408;
BGL_CURRENT_INPUT_PORT_SET(BgL_portz00_1090); 
BgL_val1011z00_408 = 
PROCEDURE_ENTRY(BgL_thunkz00_1091)(BgL_thunkz00_1091, BEOA); 
POP_EXIT(); 
return BgL_val1011z00_408;} } 
} } 
}



/* _with-input-from-port2064 */
obj_t BGl__withzd2inputzd2fromzd2port2064zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_990, obj_t BgL_portz00_991, obj_t BgL_thunkz00_992)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 382 */
return 
BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(BgL_portz00_991, BgL_thunkz00_992);} 
}



/* with-input-from-procedure */
BGL_EXPORTED_DEF obj_t BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t BgL_procz00_17, obj_t BgL_thunkz00_18)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 393 */
{ /* ./Ieee/port.scm 394 */
obj_t BgL_portz00_409;
BgL_portz00_409 = 
open_input_procedure(BgL_procz00_17); 
if(
INPUT_PORTP(BgL_portz00_409))
{ /* ./Ieee/port.scm 396 */
obj_t BgL_oldzd2inputzd2portz00_411;
BgL_oldzd2inputzd2portz00_411 = 
BGL_CURRENT_INPUT_PORT(); 
{ /* ./Ieee/port.scm 397 */
obj_t BgL_val1012z00_412;
BgL_val1012z00_412 = 
BGl_zc3exitza31140ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_18, BgL_portz00_409); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_411); 
close_input_port(BgL_portz00_409); 
{ /* ./Ieee/port.scm 403 */
bool_t BgL_testz00_1290;
{ /* ./Ieee/port.scm 403 */
obj_t BgL_auxz00_1291;
BgL_auxz00_1291 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1012z00_412); 
BgL_testz00_1290 = 
CBOOL(BgL_auxz00_1291); } 
if(BgL_testz00_1290)
{ /* ./Ieee/port.scm 403 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1012z00_412), 
CDR(BgL_val1012z00_412));}  else 
{ /* ./Ieee/port.scm 403 */
return BgL_val1012z00_412;} } } }  else 
{ /* ./Ieee/port.scm 395 */
FAILURE(BGl_string2276z00zz__r4_ports_6_10_1z00,BGl_string2277z00zz__r4_ports_6_10_1z00,BgL_procz00_17);} } } 
}



/* <exit:1140> */
obj_t BGl_zc3exitza31140ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1089, obj_t BgL_portz00_1088)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 402 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1013z00_417;
if( SET_EXIT(BgL_an_exit1013z00_417) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1013z00_417 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 402 */

PUSH_EXIT(BgL_an_exit1013z00_417, ((bool_t)0)); 
{ /* ./Ieee/port.scm 399 */
obj_t BgL_val1014z00_418;
BGL_CURRENT_INPUT_PORT_SET(BgL_portz00_1088); 
BgL_val1014z00_418 = 
PROCEDURE_ENTRY(BgL_thunkz00_1089)(BgL_thunkz00_1089, BEOA); 
POP_EXIT(); 
return BgL_val1014z00_418;} } 
} } 
}



/* _with-input-from-procedure */
obj_t BGl__withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_993, obj_t BgL_procz00_994, obj_t BgL_thunkz00_995)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 393 */
return 
BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(BgL_procz00_994, BgL_thunkz00_995);} 
}



/* with-output-to-file */
BGL_EXPORTED_DEF obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_19, obj_t BgL_thunkz00_20)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 409 */
{ /* ./Ieee/port.scm 410 */
obj_t BgL_portz00_419;
BgL_portz00_419 = 
open_output_file(BgL_stringz00_19); 
if(
OUTPUT_PORTP(BgL_portz00_419))
{ /* ./Ieee/port.scm 412 */
obj_t BgL_oldzd2outputzd2portz00_421;
BgL_oldzd2outputzd2portz00_421 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Ieee/port.scm 413 */
obj_t BgL_val1015z00_422;
BgL_val1015z00_422 = 
BGl_zc3exitza31161ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_20, BgL_portz00_419); 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_oldzd2outputzd2portz00_421); 
close_output_port(BgL_portz00_419); 
{ /* ./Ieee/port.scm 419 */
bool_t BgL_testz00_1313;
{ /* ./Ieee/port.scm 419 */
obj_t BgL_auxz00_1314;
BgL_auxz00_1314 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1015z00_422); 
BgL_testz00_1313 = 
CBOOL(BgL_auxz00_1314); } 
if(BgL_testz00_1313)
{ /* ./Ieee/port.scm 419 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1015z00_422), 
CDR(BgL_val1015z00_422));}  else 
{ /* ./Ieee/port.scm 419 */
return BgL_val1015z00_422;} } } }  else 
{ /* ./Ieee/port.scm 411 */
FAILURE(BGl_string2278z00zz__r4_ports_6_10_1z00,BGl_string2269z00zz__r4_ports_6_10_1z00,BgL_stringz00_19);} } } 
}



/* <exit:1161> */
obj_t BGl_zc3exitza31161ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1087, obj_t BgL_portz00_1086)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 418 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1016z00_427;
if( SET_EXIT(BgL_an_exit1016z00_427) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1016z00_427 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 418 */

PUSH_EXIT(BgL_an_exit1016z00_427, ((bool_t)0)); 
{ /* ./Ieee/port.scm 415 */
obj_t BgL_val1017z00_428;
BGL_CURRENT_OUTPUT_PORT_SET(BgL_portz00_1086); 
BgL_val1017z00_428 = 
PROCEDURE_ENTRY(BgL_thunkz00_1087)(BgL_thunkz00_1087, BEOA); 
POP_EXIT(); 
return BgL_val1017z00_428;} } 
} } 
}



/* _with-output-to-file2067 */
obj_t BGl__withzd2outputzd2tozd2file2067zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_996, obj_t BgL_stringz00_997, obj_t BgL_thunkz00_998)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 409 */
return 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_stringz00_997, BgL_thunkz00_998);} 
}



/* with-output-to-port */
BGL_EXPORTED_DEF obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_21, obj_t BgL_thunkz00_22)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 425 */
{ /* ./Ieee/port.scm 426 */
obj_t BgL_oldzd2outputzd2portz00_429;
BgL_oldzd2outputzd2portz00_429 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Ieee/port.scm 427 */
obj_t BgL_val1018z00_430;
BgL_val1018z00_430 = 
BGl_zc3exitza31180ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_22, BgL_portz00_21); 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_oldzd2outputzd2portz00_429); 
{ /* ./Ieee/port.scm 431 */
bool_t BgL_testz00_1332;
{ /* ./Ieee/port.scm 431 */
obj_t BgL_auxz00_1333;
BgL_auxz00_1333 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1018z00_430); 
BgL_testz00_1332 = 
CBOOL(BgL_auxz00_1333); } 
if(BgL_testz00_1332)
{ /* ./Ieee/port.scm 431 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1018z00_430), 
CDR(BgL_val1018z00_430));}  else 
{ /* ./Ieee/port.scm 431 */
return BgL_val1018z00_430;} } } } } 
}



/* <exit:1180> */
obj_t BGl_zc3exitza31180ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1085, obj_t BgL_portz00_1084)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 431 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1019z00_435;
if( SET_EXIT(BgL_an_exit1019z00_435) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1019z00_435 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 431 */

PUSH_EXIT(BgL_an_exit1019z00_435, ((bool_t)0)); 
{ /* ./Ieee/port.scm 429 */
obj_t BgL_val1020z00_436;
BGL_CURRENT_OUTPUT_PORT_SET(BgL_portz00_1084); 
BgL_val1020z00_436 = 
PROCEDURE_ENTRY(BgL_thunkz00_1085)(BgL_thunkz00_1085, BEOA); 
POP_EXIT(); 
return BgL_val1020z00_436;} } 
} } 
}



/* _with-output-to-port2069 */
obj_t BGl__withzd2outputzd2tozd2port2069zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_999, obj_t BgL_portz00_1000, obj_t BgL_thunkz00_1001)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 425 */
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_portz00_1000, BgL_thunkz00_1001);} 
}



/* with-output-to-string */
BGL_EXPORTED_DEF obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_23)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 436 */
{ /* ./Ieee/port.scm 437 */
obj_t BgL_portz00_437;
BgL_portz00_437 = 
open_output_string(); 
if(
OUTPUT_PORTP(BgL_portz00_437))
{ /* ./Ieee/port.scm 439 */
obj_t BgL_oldzd2outputzd2portz00_439;obj_t BgL_resz00_440;
BgL_oldzd2outputzd2portz00_439 = 
BGL_CURRENT_OUTPUT_PORT(); 
BgL_resz00_440 = BUNSPEC; 
{ /* ./Ieee/port.scm 441 */
obj_t BgL_val1021z00_441;
BgL_val1021z00_441 = 
BGl_zc3exitza31198ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_23, BgL_portz00_437); 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_oldzd2outputzd2portz00_439); 
BgL_resz00_440 = 
close_output_port(BgL_portz00_437); 
{ /* ./Ieee/port.scm 447 */
bool_t BgL_testz00_1354;
{ /* ./Ieee/port.scm 447 */
obj_t BgL_auxz00_1355;
BgL_auxz00_1355 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1021z00_441); 
BgL_testz00_1354 = 
CBOOL(BgL_auxz00_1355); } 
if(BgL_testz00_1354)
{ /* ./Ieee/port.scm 447 */
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1021z00_441), 
CDR(BgL_val1021z00_441)); }  else 
{ /* ./Ieee/port.scm 447 */BgL_val1021z00_441; } } } 
return BgL_resz00_440;}  else 
{ /* ./Ieee/port.scm 438 */
FAILURE(BGl_string2279z00zz__r4_ports_6_10_1z00,BGl_string2275z00zz__r4_ports_6_10_1z00,BUNSPEC);} } } 
}



/* <exit:1198> */
obj_t BGl_zc3exitza31198ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1083, obj_t BgL_portz00_1082)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 446 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1022z00_446;
if( SET_EXIT(BgL_an_exit1022z00_446) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1022z00_446 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 446 */

PUSH_EXIT(BgL_an_exit1022z00_446, ((bool_t)0)); 
{ /* ./Ieee/port.scm 443 */
obj_t BgL_val1023z00_447;
BGL_CURRENT_OUTPUT_PORT_SET(BgL_portz00_1082); 
BgL_val1023z00_447 = 
PROCEDURE_ENTRY(BgL_thunkz00_1083)(BgL_thunkz00_1083, BEOA); 
POP_EXIT(); 
return BgL_val1023z00_447;} } 
} } 
}



/* _with-output-to-string2071 */
obj_t BGl__withzd2outputzd2tozd2string2071zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1002, obj_t BgL_thunkz00_1003)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 436 */
return 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_thunkz00_1003);} 
}



/* with-error-to-string */
BGL_EXPORTED_DEF obj_t BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_24)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 454 */
{ /* ./Ieee/port.scm 455 */
obj_t BgL_portz00_448;
BgL_portz00_448 = 
open_output_string(); 
if(
OUTPUT_PORTP(BgL_portz00_448))
{ /* ./Ieee/port.scm 457 */
obj_t BgL_oldzd2errorzd2portz00_450;obj_t BgL_resz00_451;
BgL_oldzd2errorzd2portz00_450 = 
BGL_CURRENT_ERROR_PORT(); 
BgL_resz00_451 = BUNSPEC; 
{ /* ./Ieee/port.scm 459 */
obj_t BgL_val1024z00_452;
BgL_val1024z00_452 = 
BGl_zc3exitza31219ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_24, BgL_portz00_448); 
BGL_CURRENT_ERROR_PORT_SET(BgL_oldzd2errorzd2portz00_450); 
BgL_resz00_451 = 
close_output_port(BgL_portz00_448); 
{ /* ./Ieee/port.scm 465 */
bool_t BgL_testz00_1377;
{ /* ./Ieee/port.scm 465 */
obj_t BgL_auxz00_1378;
BgL_auxz00_1378 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1024z00_452); 
BgL_testz00_1377 = 
CBOOL(BgL_auxz00_1378); } 
if(BgL_testz00_1377)
{ /* ./Ieee/port.scm 465 */
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1024z00_452), 
CDR(BgL_val1024z00_452)); }  else 
{ /* ./Ieee/port.scm 465 */BgL_val1024z00_452; } } } 
return BgL_resz00_451;}  else 
{ /* ./Ieee/port.scm 456 */
FAILURE(BGl_string2280z00zz__r4_ports_6_10_1z00,BGl_string2275z00zz__r4_ports_6_10_1z00,BUNSPEC);} } } 
}



/* <exit:1219> */
obj_t BGl_zc3exitza31219ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1081, obj_t BgL_portz00_1080)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 464 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1025z00_457;
if( SET_EXIT(BgL_an_exit1025z00_457) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1025z00_457 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 464 */

PUSH_EXIT(BgL_an_exit1025z00_457, ((bool_t)0)); 
{ /* ./Ieee/port.scm 461 */
obj_t BgL_val1026z00_458;
BGL_CURRENT_ERROR_PORT_SET(BgL_portz00_1080); 
BgL_val1026z00_458 = 
PROCEDURE_ENTRY(BgL_thunkz00_1081)(BgL_thunkz00_1081, BEOA); 
POP_EXIT(); 
return BgL_val1026z00_458;} } 
} } 
}



/* _with-error-to-string2073 */
obj_t BGl__withzd2errorzd2tozd2string2073zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1004, obj_t BgL_thunkz00_1005)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 454 */
return 
BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_thunkz00_1005);} 
}



/* with-error-to-file */
BGL_EXPORTED_DEF obj_t BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_25, obj_t BgL_thunkz00_26)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 472 */
{ /* ./Ieee/port.scm 473 */
obj_t BgL_portz00_459;
BgL_portz00_459 = 
open_output_file(BgL_stringz00_25); 
if(
OUTPUT_PORTP(BgL_portz00_459))
{ /* ./Ieee/port.scm 475 */
obj_t BgL_oldzd2outputzd2portz00_461;
BgL_oldzd2outputzd2portz00_461 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Ieee/port.scm 476 */
obj_t BgL_val1027z00_462;
BgL_val1027z00_462 = 
BGl_zc3exitza31240ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_26, BgL_portz00_459); 
BGL_CURRENT_ERROR_PORT_SET(BgL_oldzd2outputzd2portz00_461); 
close_output_port(BgL_portz00_459); 
{ /* ./Ieee/port.scm 482 */
bool_t BgL_testz00_1400;
{ /* ./Ieee/port.scm 482 */
obj_t BgL_auxz00_1401;
BgL_auxz00_1401 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1027z00_462); 
BgL_testz00_1400 = 
CBOOL(BgL_auxz00_1401); } 
if(BgL_testz00_1400)
{ /* ./Ieee/port.scm 482 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1027z00_462), 
CDR(BgL_val1027z00_462));}  else 
{ /* ./Ieee/port.scm 482 */
return BgL_val1027z00_462;} } } }  else 
{ /* ./Ieee/port.scm 474 */
FAILURE(BGl_string2281z00zz__r4_ports_6_10_1z00,BGl_string2269z00zz__r4_ports_6_10_1z00,BgL_stringz00_25);} } } 
}



/* <exit:1240> */
obj_t BGl_zc3exitza31240ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1079, obj_t BgL_portz00_1078)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 481 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1028z00_467;
if( SET_EXIT(BgL_an_exit1028z00_467) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1028z00_467 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 481 */

PUSH_EXIT(BgL_an_exit1028z00_467, ((bool_t)0)); 
{ /* ./Ieee/port.scm 478 */
obj_t BgL_val1029z00_468;
BGL_CURRENT_ERROR_PORT_SET(BgL_portz00_1078); 
BgL_val1029z00_468 = 
PROCEDURE_ENTRY(BgL_thunkz00_1079)(BgL_thunkz00_1079, BEOA); 
POP_EXIT(); 
return BgL_val1029z00_468;} } 
} } 
}



/* _with-error-to-file2075 */
obj_t BGl__withzd2errorzd2tozd2file2075zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1006, obj_t BgL_stringz00_1007, obj_t BgL_thunkz00_1008)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 472 */
return 
BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_stringz00_1007, BgL_thunkz00_1008);} 
}



/* with-error-to-port */
BGL_EXPORTED_DEF obj_t BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_27, obj_t BgL_thunkz00_28)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 488 */
{ /* ./Ieee/port.scm 489 */
obj_t BgL_oldzd2outputzd2portz00_469;
BgL_oldzd2outputzd2portz00_469 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Ieee/port.scm 490 */
obj_t BgL_val1030z00_470;
BgL_val1030z00_470 = 
BGl_zc3exitza31260ze3z83zz__r4_ports_6_10_1z00(BgL_thunkz00_28, BgL_portz00_27); 
BGL_CURRENT_ERROR_PORT_SET(BgL_oldzd2outputzd2portz00_469); 
{ /* ./Ieee/port.scm 494 */
bool_t BgL_testz00_1419;
{ /* ./Ieee/port.scm 494 */
obj_t BgL_auxz00_1420;
BgL_auxz00_1420 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1030z00_470); 
BgL_testz00_1419 = 
CBOOL(BgL_auxz00_1420); } 
if(BgL_testz00_1419)
{ /* ./Ieee/port.scm 494 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1030z00_470), 
CDR(BgL_val1030z00_470));}  else 
{ /* ./Ieee/port.scm 494 */
return BgL_val1030z00_470;} } } } } 
}



/* <exit:1260> */
obj_t BGl_zc3exitza31260ze3z83zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1077, obj_t BgL_portz00_1076)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 494 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1031z00_475;
if( SET_EXIT(BgL_an_exit1031z00_475) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1031z00_475 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/port.scm 494 */

PUSH_EXIT(BgL_an_exit1031z00_475, ((bool_t)0)); 
{ /* ./Ieee/port.scm 492 */
obj_t BgL_val1032z00_476;
BGL_CURRENT_ERROR_PORT_SET(BgL_portz00_1076); 
BgL_val1032z00_476 = 
PROCEDURE_ENTRY(BgL_thunkz00_1077)(BgL_thunkz00_1077, BEOA); 
POP_EXIT(); 
return BgL_val1032z00_476;} } 
} } 
}



/* _with-error-to-port2077 */
obj_t BGl__withzd2errorzd2tozd2port2077zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1009, obj_t BgL_portz00_1010, obj_t BgL_thunkz00_1011)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 488 */
return 
BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_portz00_1010, BgL_thunkz00_1011);} 
}



/* open-input-file */
BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_29, obj_t BgL_bufsiza7za7_30)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 516 */
{ /* ./Ieee/port.scm 517 */
obj_t BgL_siza7eza7_477;
if(
NULLP(BgL_bufsiza7za7_30))
{ /* ./Ieee/port.scm 517 */
BgL_siza7eza7_477 = 
BINT(default_io_bufsiz); }  else 
{ /* ./Ieee/port.scm 517 */
BgL_siza7eza7_477 = 
CAR(BgL_bufsiza7za7_30); } 
if(
INTEGERP(BgL_siza7eza7_477))
{ /* ./Ieee/port.scm 522 */
bool_t BgL_testz00_1440;
{ /* ./Ieee/port.scm 523 */
int BgL_auxz00_1441;
BgL_auxz00_1441 = 
(int)(((long)5)); 
BgL_testz00_1440 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string2282z00zz__r4_ports_6_10_1z00, BgL_auxz00_1441); } 
if(BgL_testz00_1440)
{ /* ./Ieee/port.scm 522 */
{ /* ./Ieee/port.scm 531 */
obj_t BgL_auxz00_1444;
{ /* ./Ieee/port.scm 531 */
int BgL_auxz00_1447;int BgL_auxz00_1445;
BgL_auxz00_1447 = 
STRING_LENGTH(BgL_stringz00_29); 
BgL_auxz00_1445 = 
(int)(((long)5)); 
BgL_auxz00_1444 = 
c_substring(BgL_stringz00_29, BgL_auxz00_1445, BgL_auxz00_1447); } 
return 
open_input_file(BgL_auxz00_1444, BgL_siza7eza7_477);} }  else 
{ /* ./Ieee/port.scm 535 */
bool_t BgL_testz00_1451;
{ /* ./Ieee/port.scm 537 */
int BgL_auxz00_1452;
BgL_auxz00_1452 = 
(int)(((long)2)); 
BgL_testz00_1451 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string2283z00zz__r4_ports_6_10_1z00, BgL_auxz00_1452); } 
if(BgL_testz00_1451)
{ /* ./Ieee/port.scm 535 */
{ /* ./Ieee/port.scm 531 */
obj_t BgL_auxz00_1455;
{ /* ./Ieee/port.scm 531 */
int BgL_auxz00_1458;int BgL_auxz00_1456;
BgL_auxz00_1458 = 
STRING_LENGTH(BgL_stringz00_29); 
BgL_auxz00_1456 = 
(int)(((long)2)); 
BgL_auxz00_1455 = 
c_substring(BgL_stringz00_29, BgL_auxz00_1456, BgL_auxz00_1458); } 
return 
open_input_pipe(BgL_auxz00_1455, BgL_siza7eza7_477);} }  else 
{ /* ./Ieee/port.scm 535 */
bool_t BgL_testz00_1462;
{ /* ./Ieee/port.scm 535 */
int BgL_auxz00_1463;
BgL_auxz00_1463 = 
(int)(((long)5)); 
BgL_testz00_1462 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string2284z00zz__r4_ports_6_10_1z00, BgL_auxz00_1463); } 
if(BgL_testz00_1462)
{ /* ./Ieee/port.scm 535 */
{ /* ./Ieee/port.scm 537 */
obj_t BgL_auxz00_1466;
{ /* ./Ieee/port.scm 537 */
int BgL_auxz00_1469;int BgL_auxz00_1467;
BgL_auxz00_1469 = 
STRING_LENGTH(BgL_stringz00_29); 
BgL_auxz00_1467 = 
(int)(((long)5)); 
BgL_auxz00_1466 = 
c_substring(BgL_stringz00_29, BgL_auxz00_1467, BgL_auxz00_1469); } 
return 
open_input_pipe(BgL_auxz00_1466, BgL_siza7eza7_477);} }  else 
{ /* ./Ieee/port.scm 541 */
bool_t BgL_testz00_1473;
{ /* ./Ieee/port.scm 541 */
int BgL_auxz00_1474;
BgL_auxz00_1474 = 
(int)(((long)5)); 
BgL_testz00_1473 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string2285z00zz__r4_ports_6_10_1z00, BgL_auxz00_1474); } 
if(BgL_testz00_1473)
{ /* ./Ieee/port.scm 541 */
{ /* ./Ieee/port.scm 542 */
obj_t BgL_auxz00_1477;
{ /* ./Ieee/port.scm 542 */
int BgL_auxz00_1480;int BgL_auxz00_1478;
BgL_auxz00_1480 = 
STRING_LENGTH(BgL_stringz00_29); 
BgL_auxz00_1478 = 
(int)(((long)5)); 
BgL_auxz00_1477 = 
c_substring(BgL_stringz00_29, BgL_auxz00_1478, BgL_auxz00_1480); } 
return 
BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(BgL_auxz00_1477);} }  else 
{ /* ./Ieee/port.scm 546 */
bool_t BgL_testz00_1484;
{ /* ./Ieee/port.scm 546 */
int BgL_auxz00_1485;
BgL_auxz00_1485 = 
(int)(((long)4)); 
BgL_testz00_1484 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string2286z00zz__r4_ports_6_10_1z00, BgL_auxz00_1485); } 
if(BgL_testz00_1484)
{ /* ./Ieee/port.scm 546 */
{ /* ./Ieee/port.scm 548 */
obj_t BgL_auxz00_1488;
{ /* ./Ieee/port.scm 548 */
int BgL_auxz00_1491;int BgL_auxz00_1489;
BgL_auxz00_1491 = 
STRING_LENGTH(BgL_stringz00_29); 
BgL_auxz00_1489 = 
(int)(((long)4)); 
BgL_auxz00_1488 = 
c_substring(BgL_stringz00_29, BgL_auxz00_1489, BgL_auxz00_1491); } 
return 
BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(BgL_auxz00_1488);} }  else 
{ /* ./Ieee/port.scm 551 */
bool_t BgL_testz00_1495;
{ /* ./Ieee/port.scm 551 */
int BgL_auxz00_1496;
BgL_auxz00_1496 = 
(int)(((long)7)); 
BgL_testz00_1495 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string2287z00zz__r4_ports_6_10_1z00, BgL_auxz00_1496); } 
if(BgL_testz00_1495)
{ /* ./Ieee/port.scm 551 */
{ /* ./Ieee/port.scm 553 */
obj_t BgL_auxz00_1499;
{ /* ./Ieee/port.scm 553 */
int BgL_auxz00_1502;int BgL_auxz00_1500;
BgL_auxz00_1502 = 
STRING_LENGTH(BgL_stringz00_29); 
BgL_auxz00_1500 = 
(int)(((long)7)); 
BgL_auxz00_1499 = 
c_substring(BgL_stringz00_29, BgL_auxz00_1500, BgL_auxz00_1502); } 
return 
open_input_string(BgL_auxz00_1499);} }  else 
{ /* ./Ieee/port.scm 551 */
return 
open_input_file(BgL_stringz00_29, BgL_siza7eza7_477);} } } } } } }  else 
{ /* ./Ieee/port.scm 520 */
FAILURE(BGl_string2288z00zz__r4_ports_6_10_1z00,BGl_string2289z00zz__r4_ports_6_10_1z00,BgL_siza7eza7_477);} } } 
}



/* _open-input-file2079 */
obj_t BGl__openzd2inputzd2file2079z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1012, obj_t BgL_stringz00_1013, obj_t BgL_bufsiza7za7_1014)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 516 */
return 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_stringz00_1013, BgL_bufsiza7za7_1014);} 
}



/* open-input-socket */
obj_t BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_31)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 562 */
{ /* ./Ieee/port.scm 572 */
bool_t BgL_testz00_1509;
{ /* ./Ieee/port.scm 572 */
int BgL_auxz00_1510;
BgL_auxz00_1510 = 
(int)(((long)2)); 
BgL_testz00_1509 = 
bigloo_strncmp(BgL_stringz00_31, BGl_string2290z00zz__r4_ports_6_10_1z00, BgL_auxz00_1510); } 
if(BgL_testz00_1509)
{ /* ./Ieee/port.scm 574 */
int BgL_lenz00_506;
BgL_lenz00_506 = 
STRING_LENGTH(BgL_stringz00_31); 
{ 
long BgL_rz00_507;obj_t BgL_pstartz00_508;
BgL_rz00_507 = ((long)2); 
BgL_pstartz00_508 = BFALSE; 
BgL_loopz00_509:
{ /* ./Ieee/port.scm 578 */
bool_t BgL_testz00_1514;
{ /* ./Ieee/port.scm 578 */
long BgL_auxz00_1515;
BgL_auxz00_1515 = 
(long)(BgL_lenz00_506); 
BgL_testz00_1514 = 
(BgL_rz00_507>=BgL_auxz00_1515); } 
if(BgL_testz00_1514)
{ /* ./Ieee/port.scm 578 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 580 */
bool_t BgL_testz00_1518;
{ /* ./Ieee/port.scm 580 */
unsigned char BgL_auxz00_1519;
{ /* ./Ieee/port.scm 580 */
int BgL_auxz00_1520;
BgL_auxz00_1520 = 
(int)(BgL_rz00_507); 
BgL_auxz00_1519 = 
STRING_REF(BgL_stringz00_31, BgL_auxz00_1520); } 
BgL_testz00_1518 = 
(BgL_auxz00_1519==((unsigned char)'/')); } 
if(BgL_testz00_1518)
{ /* ./Ieee/port.scm 580 */
if(
INTEGERP(BgL_pstartz00_508))
{ /* ./Ieee/port.scm 583 */
obj_t BgL_serverz00_513;long BgL_portz00_514;obj_t BgL_filez00_515;
{ /* ./Ieee/port.scm 583 */
int BgL_auxz00_1528;int BgL_auxz00_1526;
BgL_auxz00_1528 = 
CINT(BgL_pstartz00_508); 
BgL_auxz00_1526 = 
(int)(((long)2)); 
BgL_serverz00_513 = 
c_substring(BgL_stringz00_31, BgL_auxz00_1526, BgL_auxz00_1528); } 
{ /* ./Ieee/port.scm 585 */
obj_t BgL_arg1342z00_516;
{ /* ./Ieee/port.scm 585 */
long BgL_arg1346z00_518;
{ /* ./Ieee/port.scm 585 */
long BgL_auxz00_1531;
BgL_auxz00_1531 = 
(long)CINT(BgL_pstartz00_508); 
BgL_arg1346z00_518 = 
(((long)1)+BgL_auxz00_1531); } 
{ /* ./Ieee/port.scm 584 */
int BgL_auxz00_1536;int BgL_auxz00_1534;
BgL_auxz00_1536 = 
(int)(BgL_rz00_507); 
BgL_auxz00_1534 = 
(int)(BgL_arg1346z00_518); 
BgL_arg1342z00_516 = 
c_substring(BgL_stringz00_31, BgL_auxz00_1534, BgL_auxz00_1536); } } 
BgL_portz00_514 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1342z00_516, BNIL); } 
{ /* ./Ieee/port.scm 587 */
int BgL_auxz00_1540;
BgL_auxz00_1540 = 
(int)(BgL_rz00_507); 
BgL_filez00_515 = 
c_substring(BgL_stringz00_31, BgL_auxz00_1540, BgL_lenz00_506); } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_sz00_853;
{ /* ./Ieee/port.scm 588 */
int BgL_auxz00_1543;
BgL_auxz00_1543 = 
(int)(BgL_portz00_514); 
BgL_sz00_853 = 
make_client_socket(BgL_serverz00_513, BgL_auxz00_1543, ((bool_t)1)); } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_port1033z00_855;
BgL_port1033z00_855 = 
SOCKET_OUTPUT(BgL_sz00_853); 
display_string(BGl_string2291z00zz__r4_ports_6_10_1z00, BgL_port1033z00_855); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_filez00_515, BgL_port1033z00_855); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1033z00_855); } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_auxz00_1550;
BgL_auxz00_1550 = 
SOCKET_OUTPUT(BgL_sz00_853); 
FLUSH_OUTPUT_PORT(BgL_auxz00_1550); } 
return 
SOCKET_INPUT(BgL_sz00_853);} }  else 
{ /* ./Ieee/port.scm 589 */
obj_t BgL_serverz00_519;obj_t BgL_filez00_521;
{ /* ./Ieee/port.scm 589 */
int BgL_auxz00_1556;int BgL_auxz00_1554;
BgL_auxz00_1556 = 
(int)(BgL_rz00_507); 
BgL_auxz00_1554 = 
(int)(((long)2)); 
BgL_serverz00_519 = 
c_substring(BgL_stringz00_31, BgL_auxz00_1554, BgL_auxz00_1556); } 
{ /* ./Ieee/port.scm 591 */
int BgL_auxz00_1559;
BgL_auxz00_1559 = 
(int)(BgL_rz00_507); 
BgL_filez00_521 = 
c_substring(BgL_stringz00_31, BgL_auxz00_1559, BgL_lenz00_506); } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_sz00_880;
{ /* ./Ieee/port.scm 592 */
int BgL_auxz00_1562;
BgL_auxz00_1562 = 
(int)(((long)80)); 
BgL_sz00_880 = 
make_client_socket(BgL_serverz00_519, BgL_auxz00_1562, ((bool_t)1)); } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_port1033z00_882;
BgL_port1033z00_882 = 
SOCKET_OUTPUT(BgL_sz00_880); 
display_string(BGl_string2291z00zz__r4_ports_6_10_1z00, BgL_port1033z00_882); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_filez00_521, BgL_port1033z00_882); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1033z00_882); } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_auxz00_1569;
BgL_auxz00_1569 = 
SOCKET_OUTPUT(BgL_sz00_880); 
FLUSH_OUTPUT_PORT(BgL_auxz00_1569); } 
return 
SOCKET_INPUT(BgL_sz00_880);} } }  else 
{ /* ./Ieee/port.scm 593 */
bool_t BgL_testz00_1573;
{ /* ./Ieee/port.scm 593 */
unsigned char BgL_auxz00_1574;
{ /* ./Ieee/port.scm 593 */
int BgL_auxz00_1575;
BgL_auxz00_1575 = 
(int)(BgL_rz00_507); 
BgL_auxz00_1574 = 
STRING_REF(BgL_stringz00_31, BgL_auxz00_1575); } 
BgL_testz00_1573 = 
(BgL_auxz00_1574==((unsigned char)':')); } 
if(BgL_testz00_1573)
{ /* ./Ieee/port.scm 593 */
{ 
obj_t BgL_pstartz00_1581;long BgL_rz00_1579;
BgL_rz00_1579 = 
(BgL_rz00_507+((long)1)); 
BgL_pstartz00_1581 = 
BINT(BgL_rz00_507); 
BgL_pstartz00_508 = BgL_pstartz00_1581; 
BgL_rz00_507 = BgL_rz00_1579; 
goto BgL_loopz00_509;} }  else 
{ /* ./Ieee/port.scm 593 */
{ 
long BgL_rz00_1583;
BgL_rz00_1583 = 
(BgL_rz00_507+((long)1)); 
BgL_rz00_507 = BgL_rz00_1583; 
goto BgL_loopz00_509;} } } } } } }  else 
{ /* ./Ieee/port.scm 572 */
return BFALSE;} } } 
}



/* open-input-string */
BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_32)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 603 */
return 
open_input_string(BgL_stringz00_32);} 
}



/* _open-input-string2081 */
obj_t BGl__openzd2inputzd2string2081z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1015, obj_t BgL_stringz00_1016)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 603 */
return 
open_input_string(BgL_stringz00_1016);} 
}



/* open-input-procedure */
BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t BgL_procz00_33)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 609 */
return 
open_input_procedure(BgL_procz00_33);} 
}



/* _open-input-procedure */
obj_t BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1017, obj_t BgL_procz00_1018)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 609 */
return 
open_input_procedure(BgL_procz00_1018);} 
}



/* open-input-c-string */
BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(char * BgL_stringz00_34)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 615 */
return 
open_input_c_string(BgL_stringz00_34);} 
}



/* _open-input-c-string2084 */
obj_t BGl__openzd2inputzd2czd2string2084zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1019, obj_t BgL_stringz00_1020)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 615 */
{ /* ./Ieee/port.scm 616 */
char * BgL_auxz00_1590;
BgL_auxz00_1590 = 
BSTRING_TO_STRING(BgL_stringz00_1020); 
return 
open_input_c_string(BgL_auxz00_1590);} } 
}



/* reopen-input-c-string */
BGL_EXPORTED_DEF obj_t BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_35, char * BgL_stringz00_36)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 621 */
return 
reopen_input_c_string(BgL_portz00_35, BgL_stringz00_36);} 
}



/* _reopen-input-c-string2086 */
obj_t BGl__reopenzd2inputzd2czd2string2086zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1021, obj_t BgL_portz00_1022, obj_t BgL_stringz00_1023)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 621 */
{ /* ./Ieee/port.scm 622 */
char * BgL_auxz00_1594;
BgL_auxz00_1594 = 
BSTRING_TO_STRING(BgL_stringz00_1023); 
return 
reopen_input_c_string(BgL_portz00_1022, BgL_auxz00_1594);} } 
}



/* open-output-file */
BGL_EXPORTED_DEF obj_t BGl_openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_37)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 627 */
return 
open_output_file(BgL_stringz00_37);} 
}



/* _open-output-file2088 */
obj_t BGl__openzd2outputzd2file2088z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1024, obj_t BgL_stringz00_1025)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 627 */
return 
open_output_file(BgL_stringz00_1025);} 
}



/* open-output-string */
BGL_EXPORTED_DEF obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 633 */
return 
open_output_string();} 
}



/* _open-output-string */
obj_t BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1026)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 633 */
return 
open_output_string();} 
}



/* closed-input-port? */
BGL_EXPORTED_DEF bool_t BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_portz00_38)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 639 */
return 
!RGC_BUFFER(BgL_portz00_38);} 
}



/* _closed-input-port?2091 */
obj_t BGl__closedzd2inputzd2portzf32091zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1027, obj_t BgL_portz00_1028)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 639 */
{ /* ./Ieee/port.scm 640 */
bool_t BgL_auxz00_1602;
BgL_auxz00_1602 = 
!RGC_BUFFER(BgL_portz00_1028); 
return 
BBOOL(BgL_auxz00_1602);} } 
}



/* close-input-port */
BGL_EXPORTED_DEF obj_t BGl_closezd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_39)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 645 */
return 
close_input_port(BgL_portz00_39);} 
}



/* _close-input-port2093 */
obj_t BGl__closezd2inputzd2port2093z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1029, obj_t BgL_portz00_1030)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 645 */
return 
close_input_port(BgL_portz00_1030);} 
}



/* get-output-string */
BGL_EXPORTED_DEF obj_t BGl_getzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_40)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 651 */
return 
get_output_string(BgL_portz00_40);} 
}



/* _get-output-string2095 */
obj_t BGl__getzd2outputzd2string2095z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1031, obj_t BgL_portz00_1032)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 651 */
return 
get_output_string(BgL_portz00_1032);} 
}



/* close-output-port */
BGL_EXPORTED_DEF obj_t BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_41)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 657 */
return 
close_output_port(BgL_portz00_41);} 
}



/* _close-output-port2097 */
obj_t BGl__closezd2outputzd2port2097z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1033, obj_t BgL_portz00_1034)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 657 */
return 
close_output_port(BgL_portz00_1034);} 
}



/* flush-output-port */
BGL_EXPORTED_DEF obj_t BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_42)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 666 */
return 
FLUSH_OUTPUT_PORT(BgL_portz00_42);} 
}



/* _flush-output-port2099 */
obj_t BGl__flushzd2outputzd2port2099z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1035, obj_t BgL_portz00_1036)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 666 */
return 
FLUSH_OUTPUT_PORT(BgL_portz00_1036);} 
}



/* reset-eof */
BGL_EXPORTED_DEF bool_t BGl_resetzd2eofzd2zz__r4_ports_6_10_1z00(obj_t BgL_portz00_43)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 672 */
return 
reset_eof(BgL_portz00_43);} 
}



/* _reset-eof2101 */
obj_t BGl__resetzd2eof2101zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1037, obj_t BgL_portz00_1038)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 672 */
{ /* ./Ieee/port.scm 673 */
bool_t BgL_auxz00_1614;
BgL_auxz00_1614 = 
reset_eof(BgL_portz00_1038); 
return 
BBOOL(BgL_auxz00_1614);} } 
}



/* set-input-port-position! */
BGL_EXPORTED_DEF obj_t BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t BgL_portz00_44, int BgL_posz00_45)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 678 */
{ /* ./Ieee/port.scm 679 */
bool_t BgL_testz00_1617;
{ /* ./Ieee/port.scm 679 */
obj_t BgL_auxz00_1618;
BgL_auxz00_1618 = 
bgl_input_port_seek(BgL_portz00_44, BgL_posz00_45); 
BgL_testz00_1617 = 
CBOOL(BgL_auxz00_1618); } 
if(BgL_testz00_1617)
{ /* ./Ieee/port.scm 679 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 679 */
FAILURE(BGl_string2292z00zz__r4_ports_6_10_1z00,BGl_string2293z00zz__r4_ports_6_10_1z00,BgL_portz00_44);} } } 
}



/* _set-input-port-position!2103 */
obj_t BGl__setzd2inputzd2portzd2positionz122103zc0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1039, obj_t BgL_portz00_1040, obj_t BgL_posz00_1041)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 678 */
{ /* ./Ieee/port.scm 679 */
int BgL_posz00_1121;
BgL_posz00_1121 = 
CINT(BgL_posz00_1041); 
{ /* ./Ieee/port.scm 679 */
bool_t BgL_testz00_1623;
{ /* ./Ieee/port.scm 679 */
obj_t BgL_auxz00_1624;
BgL_auxz00_1624 = 
bgl_input_port_seek(BgL_portz00_1040, BgL_posz00_1121); 
BgL_testz00_1623 = 
CBOOL(BgL_auxz00_1624); } 
if(BgL_testz00_1623)
{ /* ./Ieee/port.scm 679 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 679 */
FAILURE(BGl_string2292z00zz__r4_ports_6_10_1z00,BGl_string2293z00zz__r4_ports_6_10_1z00,BgL_portz00_1040);} } } } 
}



/* input-port-position */
BGL_EXPORTED_DEF int BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_46)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 685 */
return 
INPUT_PORT_FILEPOS(BgL_portz00_46);} 
}



/* _input-port-position2105 */
obj_t BGl__inputzd2portzd2position2105z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1042, obj_t BgL_portz00_1043)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 685 */
{ /* ./Ieee/port.scm 686 */
int BgL_auxz00_1629;
BgL_auxz00_1629 = 
INPUT_PORT_FILEPOS(BgL_portz00_1043); 
return 
BINT(BgL_auxz00_1629);} } 
}



/* set-output-port-position! */
BGL_EXPORTED_DEF obj_t BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t BgL_portz00_47, int BgL_posz00_48)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 691 */
{ /* ./Ieee/port.scm 692 */
bool_t BgL_testz00_1632;
{ /* ./Ieee/port.scm 692 */
obj_t BgL_auxz00_1633;
BgL_auxz00_1633 = 
bgl_output_port_seek(BgL_portz00_47, BgL_posz00_48); 
BgL_testz00_1632 = 
CBOOL(BgL_auxz00_1633); } 
if(BgL_testz00_1632)
{ /* ./Ieee/port.scm 692 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 692 */
FAILURE(BGl_string2294z00zz__r4_ports_6_10_1z00,BGl_string2293z00zz__r4_ports_6_10_1z00,BgL_portz00_47);} } } 
}



/* _set-output-port-position! */
obj_t BGl__setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1044, obj_t BgL_portz00_1045, obj_t BgL_posz00_1046)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 691 */
{ /* ./Ieee/port.scm 692 */
int BgL_posz00_1128;
BgL_posz00_1128 = 
CINT(BgL_posz00_1046); 
{ /* ./Ieee/port.scm 692 */
bool_t BgL_testz00_1638;
{ /* ./Ieee/port.scm 692 */
obj_t BgL_auxz00_1639;
BgL_auxz00_1639 = 
bgl_output_port_seek(BgL_portz00_1045, BgL_posz00_1128); 
BgL_testz00_1638 = 
CBOOL(BgL_auxz00_1639); } 
if(BgL_testz00_1638)
{ /* ./Ieee/port.scm 692 */
return BFALSE;}  else 
{ /* ./Ieee/port.scm 692 */
FAILURE(BGl_string2294z00zz__r4_ports_6_10_1z00,BGl_string2293z00zz__r4_ports_6_10_1z00,BgL_portz00_1045);} } } } 
}



/* output-port-position */
BGL_EXPORTED_DEF int BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_49)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 698 */
return 
BGL_OUTPUT_PORT_FILEPOS(BgL_portz00_49);} 
}



/* _output-port-position2108 */
obj_t BGl__outputzd2portzd2position2108z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1047, obj_t BgL_portz00_1048)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 698 */
{ /* ./Ieee/port.scm 699 */
int BgL_auxz00_1644;
BgL_auxz00_1644 = 
BGL_OUTPUT_PORT_FILEPOS(BgL_portz00_1048); 
return 
BINT(BgL_auxz00_1644);} } 
}



/* input-port-name */
BGL_EXPORTED_DEF char * BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t BgL_portz00_50)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 704 */
return 
INPUT_PORT_NAME(BgL_portz00_50);} 
}



/* _input-port-name2110 */
obj_t BGl__inputzd2portzd2name2110z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1049, obj_t BgL_portz00_1050)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 704 */
{ /* ./Ieee/port.scm 705 */
char * BgL_auxz00_1648;
BgL_auxz00_1648 = 
INPUT_PORT_NAME(BgL_portz00_1050); 
return 
string_to_bstring(BgL_auxz00_1648);} } 
}



/* file-exists? */
BGL_EXPORTED_DEF bool_t BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(char * BgL_namez00_51)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 710 */
return 
fexists(BgL_namez00_51);} 
}



/* _file-exists?2112 */
obj_t BGl__filezd2existszf32112z21zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1051, obj_t BgL_namez00_1052)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 710 */
{ /* ./Ieee/port.scm 711 */
bool_t BgL_auxz00_1652;
{ /* ./Ieee/port.scm 711 */
char * BgL_auxz00_1653;
BgL_auxz00_1653 = 
BSTRING_TO_STRING(BgL_namez00_1052); 
BgL_auxz00_1652 = 
fexists(BgL_auxz00_1653); } 
return 
BBOOL(BgL_auxz00_1652);} } 
}



/* append-output-file */
BGL_EXPORTED_DEF obj_t BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_52)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 716 */
return 
append_output_file(BgL_stringz00_52);} 
}



/* _append-output-file2114 */
obj_t BGl__appendzd2outputzd2file2114z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1053, obj_t BgL_stringz00_1054)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 716 */
return 
append_output_file(BgL_stringz00_1054);} 
}



/* delete-file */
BGL_EXPORTED_DEF obj_t BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(char * BgL_stringz00_53)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 722 */
{ /* ./Ieee/port.scm 723 */
bool_t BgL_auxz00_1659;
BgL_auxz00_1659 = 
unlink(BgL_stringz00_53); 
return 
BBOOL(BgL_auxz00_1659);} } 
}



/* _delete-file2116 */
obj_t BGl__deletezd2file2116zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1055, obj_t BgL_stringz00_1056)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 722 */
{ /* ./Ieee/port.scm 723 */
char * BgL_stringz00_1135;
BgL_stringz00_1135 = 
BSTRING_TO_STRING(BgL_stringz00_1056); 
{ /* ./Ieee/port.scm 723 */
bool_t BgL_auxz00_1663;
BgL_auxz00_1663 = 
unlink(BgL_stringz00_1135); 
return 
BBOOL(BgL_auxz00_1663);} } } 
}



/* make-directory */
BGL_EXPORTED_DEF bool_t BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(char * BgL_stringz00_54)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 728 */
{ /* ./Ieee/port.scm 729 */
int BgL_auxz00_1666;
BgL_auxz00_1666 = 
(int)(((long)511)); 
return 
!mkdir(BgL_stringz00_54, BgL_auxz00_1666);} } 
}



/* _make-directory2118 */
obj_t BGl__makezd2directory2118zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1057, obj_t BgL_stringz00_1058)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 728 */
{ /* ./Ieee/port.scm 729 */
bool_t BgL_auxz00_1669;
{ /* ./Ieee/port.scm 729 */
int BgL_auxz00_1672;char * BgL_auxz00_1670;
BgL_auxz00_1672 = 
(int)(((long)511)); 
BgL_auxz00_1670 = 
BSTRING_TO_STRING(BgL_stringz00_1058); 
BgL_auxz00_1669 = 
!mkdir(BgL_auxz00_1670, BgL_auxz00_1672); } 
return 
BBOOL(BgL_auxz00_1669);} } 
}



/* make-directories */
BGL_EXPORTED_DEF bool_t BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(obj_t BgL_stringz00_55)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 734 */
{ /* ./Ieee/port.scm 735 */
bool_t BgL__ortest_1034z00_538;
{ /* ./Ieee/port.scm 735 */
int BgL_auxz00_1678;char * BgL_auxz00_1676;
BgL_auxz00_1678 = 
(int)(((long)511)); 
BgL_auxz00_1676 = 
BSTRING_TO_STRING(BgL_stringz00_55); 
BgL__ortest_1034z00_538 = 
!mkdir(BgL_auxz00_1676, BgL_auxz00_1678); } 
if(BgL__ortest_1034z00_538)
{ /* ./Ieee/port.scm 735 */
return BgL__ortest_1034z00_538;}  else 
{ /* ./Ieee/port.scm 736 */
obj_t BgL_dnamez00_539;
BgL_dnamez00_539 = 
BGl_dirnamez00zz__osz00(BgL_stringz00_55); 
{ /* ./Ieee/port.scm 737 */
bool_t BgL_test1411z00_540;
if(
bigloo_strcmp(BgL_dnamez00_539, BGl_string2295z00zz__r4_ports_6_10_1z00))
{ /* ./Ieee/port.scm 737 */
BgL_test1411z00_540 = ((bool_t)1); }  else 
{ /* ./Ieee/port.scm 737 */
char * BgL_auxz00_1685;
BgL_auxz00_1685 = 
BSTRING_TO_STRING(BgL_dnamez00_539); 
BgL_test1411z00_540 = 
fexists(BgL_auxz00_1685); } 
if(BgL_test1411z00_540)
{ /* ./Ieee/port.scm 737 */
return ((bool_t)0);}  else 
{ /* ./Ieee/port.scm 737 */
BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_dnamez00_539); 
{ /* ./Ieee/port.scm 741 */
int BgL_auxz00_1692;char * BgL_auxz00_1690;
BgL_auxz00_1692 = 
(int)(((long)511)); 
BgL_auxz00_1690 = 
BSTRING_TO_STRING(BgL_stringz00_55); 
return 
!mkdir(BgL_auxz00_1690, BgL_auxz00_1692);} } } } } } 
}



/* _make-directories2120 */
obj_t BGl__makezd2directories2120zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1059, obj_t BgL_stringz00_1060)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 734 */
{ /* ./Ieee/port.scm 735 */
bool_t BgL_auxz00_1695;
BgL_auxz00_1695 = 
BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_stringz00_1060); 
return 
BBOOL(BgL_auxz00_1695);} } 
}



/* delete-directory */
BGL_EXPORTED_DEF obj_t BGl_deletezd2directoryzd2zz__r4_ports_6_10_1z00(char * BgL_stringz00_56)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 746 */
{ /* ./Ieee/port.scm 747 */
bool_t BgL_auxz00_1698;
BgL_auxz00_1698 = 
rmdir(BgL_stringz00_56); 
return 
BBOOL(BgL_auxz00_1698);} } 
}



/* _delete-directory2122 */
obj_t BGl__deletezd2directory2122zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1061, obj_t BgL_stringz00_1062)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 746 */
{ /* ./Ieee/port.scm 747 */
char * BgL_stringz00_1137;
BgL_stringz00_1137 = 
BSTRING_TO_STRING(BgL_stringz00_1062); 
{ /* ./Ieee/port.scm 747 */
bool_t BgL_auxz00_1702;
BgL_auxz00_1702 = 
rmdir(BgL_stringz00_1137); 
return 
BBOOL(BgL_auxz00_1702);} } } 
}



/* rename-file */
BGL_EXPORTED_DEF obj_t BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(char * BgL_string1z00_57, char * BgL_string2z00_58)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 752 */
{ /* ./Ieee/port.scm 753 */
bool_t BgL_test1420z00_1138;
{ /* ./Ieee/port.scm 753 */
int BgL_arg1422z00_1139;
BgL_arg1422z00_1139 = 
rename(BgL_string1z00_57, BgL_string2z00_58); 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_auxz00_1708;obj_t BgL_auxz00_1706;
BgL_auxz00_1708 = 
BINT(((long)0)); 
BgL_auxz00_1706 = 
BINT(BgL_arg1422z00_1139); 
BgL_test1420z00_1138 = 
(BgL_auxz00_1706==BgL_auxz00_1708); } } 
if(BgL_test1420z00_1138)
{ /* ./Ieee/port.scm 753 */
return BTRUE;}  else 
{ /* ./Ieee/port.scm 753 */
return BFALSE;} } } 
}



/* _rename-file2124 */
obj_t BGl__renamezd2file2124zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1063, obj_t BgL_string1z00_1064, obj_t BgL_string2z00_1065)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 752 */
{ /* ./Ieee/port.scm 753 */
char * BgL_string1z00_1140;char * BgL_string2z00_1141;
BgL_string1z00_1140 = 
BSTRING_TO_STRING(BgL_string1z00_1064); 
BgL_string2z00_1141 = 
BSTRING_TO_STRING(BgL_string2z00_1065); 
{ /* ./Ieee/port.scm 753 */
bool_t BgL_test1420z00_1142;
{ /* ./Ieee/port.scm 753 */
int BgL_arg1422z00_1143;
BgL_arg1422z00_1143 = 
rename(BgL_string1z00_1140, BgL_string2z00_1141); 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_auxz00_1717;obj_t BgL_auxz00_1715;
BgL_auxz00_1717 = 
BINT(((long)0)); 
BgL_auxz00_1715 = 
BINT(BgL_arg1422z00_1143); 
BgL_test1420z00_1142 = 
(BgL_auxz00_1715==BgL_auxz00_1717); } } 
if(BgL_test1420z00_1142)
{ /* ./Ieee/port.scm 753 */
return BTRUE;}  else 
{ /* ./Ieee/port.scm 753 */
return BFALSE;} } } } 
}



/* port? */
BGL_EXPORTED_DEF bool_t BGl_portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_objz00_59)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 760 */
{ /* ./Ieee/port.scm 761 */
bool_t BgL__ortest_1035z00_1144;
BgL__ortest_1035z00_1144 = 
OUTPUT_PORTP(BgL_objz00_59); 
if(BgL__ortest_1035z00_1144)
{ /* ./Ieee/port.scm 761 */
return BgL__ortest_1035z00_1144;}  else 
{ /* ./Ieee/port.scm 761 */
return 
INPUT_PORTP(BgL_objz00_59);} } } 
}



/* _port? */
obj_t BGl__portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1066, obj_t BgL_objz00_1067)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 760 */
{ /* ./Ieee/port.scm 761 */
bool_t BgL_auxz00_1724;
{ /* ./Ieee/port.scm 761 */
bool_t BgL__ortest_1035z00_1146;
BgL__ortest_1035z00_1146 = 
OUTPUT_PORTP(BgL_objz00_1067); 
if(BgL__ortest_1035z00_1146)
{ /* ./Ieee/port.scm 761 */
BgL_auxz00_1724 = BgL__ortest_1035z00_1146
; }  else 
{ /* ./Ieee/port.scm 761 */
BgL_auxz00_1724 = 
INPUT_PORTP(BgL_objz00_1067)
; } } 
return 
BBOOL(BgL_auxz00_1724);} } 
}



/* directory? */
BGL_EXPORTED_DEF bool_t BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(char * BgL_stringz00_60)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 766 */
return 
directoryp(BgL_stringz00_60);} 
}



/* _directory?2127 */
obj_t BGl__directoryzf32127zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1068, obj_t BgL_stringz00_1069)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 766 */
{ /* ./Ieee/port.scm 767 */
bool_t BgL_auxz00_1730;
{ /* ./Ieee/port.scm 767 */
char * BgL_auxz00_1731;
BgL_auxz00_1731 = 
BSTRING_TO_STRING(BgL_stringz00_1069); 
BgL_auxz00_1730 = 
directoryp(BgL_auxz00_1731); } 
return 
BBOOL(BgL_auxz00_1730);} } 
}



/* directory->list */
BGL_EXPORTED_DEF obj_t BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(char * BgL_stringz00_61)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 772 */
return 
directory_to_list(BgL_stringz00_61);} 
}



/* _directory->list2129 */
obj_t BGl__directoryzd2ze3list2129z31zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1070, obj_t BgL_stringz00_1071)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 772 */
{ /* ./Ieee/port.scm 773 */
char * BgL_auxz00_1736;
BgL_auxz00_1736 = 
BSTRING_TO_STRING(BgL_stringz00_1071); 
return 
directory_to_list(BgL_auxz00_1736);} } 
}



/* file-modification-time */
BGL_EXPORTED_DEF long BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(char * BgL_filez00_62)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 778 */
return 
bgl_last_modification_time(BgL_filez00_62);} 
}



/* _file-modification-time2131 */
obj_t BGl__filezd2modificationzd2time2131z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1072, obj_t BgL_filez00_1073)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 778 */
{ /* ./Ieee/port.scm 779 */
long BgL_auxz00_1740;
{ /* ./Ieee/port.scm 779 */
char * BgL_auxz00_1741;
BgL_auxz00_1741 = 
BSTRING_TO_STRING(BgL_filez00_1073); 
BgL_auxz00_1740 = 
bgl_last_modification_time(BgL_auxz00_1741); } 
return 
LONG_TO_BELONG(BgL_auxz00_1740);} } 
}



/* file-size */
BGL_EXPORTED_DEF int BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(char * BgL_filez00_63)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 784 */
{ /* ./Ieee/port.scm 785 */
int BgL_siza7eza7_943;
BgL_siza7eza7_943 = 
bgl_file_size(BgL_filez00_63); 
{ /* ./Ieee/port.scm 785 */
bool_t BgL_testz00_1746;
{ /* ./Ieee/port.scm 785 */
long BgL_auxz00_1747;
BgL_auxz00_1747 = 
(long)(BgL_siza7eza7_943); 
BgL_testz00_1746 = 
(BgL_auxz00_1747<((long)0)); } 
if(BgL_testz00_1746)
{ /* ./Ieee/port.scm 785 */
obj_t BgL_objectz00_949;
BgL_objectz00_949 = 
string_to_bstring(BgL_filez00_63); 
FAILURE(BGl_string2296z00zz__r4_ports_6_10_1z00,BGl_string2297z00zz__r4_ports_6_10_1z00,BgL_objectz00_949);}  else 
{ /* ./Ieee/port.scm 785 */
return BgL_siza7eza7_943;} } } } 
}



/* _file-size2133 */
obj_t BGl__filezd2siza7e2133z75zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1074, obj_t BgL_filez00_1075)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 784 */
{ /* ./Ieee/port.scm 785 */
int BgL_auxz00_1752;
BgL_auxz00_1752 = 
BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(
BSTRING_TO_STRING(BgL_filez00_1075)); 
return 
BINT(BgL_auxz00_1752);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_ports_6_10_1");} 
}

