/*===========================================================================*/
/*   (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 -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/port.scm -indent -o objs/obj_s/Ieee/port.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_symbol4113z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t bgl_output_port_seek(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4111z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4110z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4108z00zz__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__errorz00(long, char *);
static obj_t BGl_symbol4097z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_zc3exitza31270za3Ieeezf2portze2scmza3494ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4096z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4105z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__openzd2inputzd2file2359z00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4104z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4103z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4093z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4092z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__inputzd2portzd2position2385z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4091z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4100z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4090z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4089z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__deletezd2file2396zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__filezd2existszf32392z21zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__closezd2inputzd2port2373z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4088z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__reopenzd2inputzd2czd2string2366zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4087z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__withzd2outputzd2tozd2port2349zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4086z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4085z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4084z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t open_input_c_string(char *);
static obj_t BGl_symbol4080z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__appendzd2outputzd2file2394z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00();
static obj_t BGl_symbol4077z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__inputzd2portzd2reopenz122338z12zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t close_output_port(obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, int);
static obj_t BGl_symbol4073z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4071z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern bool_t reset_eof(obj_t);
BGL_EXPORTED_DECL bool_t BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(char *);
static obj_t BGl_symbol4070z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4069z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL char * BGl_inputzd2portzd2namez00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_zc3exitza31225za3Ieeezf2portze2scmza3464ze3z93zz__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_symbol4066z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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);
static obj_t BGl_zc3exitza31141za3Ieeezf2portze2scmza3402ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__directoryzd2ze3list2409z31zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(char *);
static obj_t BGl_zc3exitza31080za3Ieeezf2portze2scmza3359ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_list4068z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t bgl_input_port_seek(obj_t, int);
BGL_EXPORTED_DECL bool_t BGl_makezd2directoryzd2zz__r4_ports_6_10_1z00(char *);
extern obj_t open_output_file(obj_t);
extern obj_t open_input_string(obj_t);
extern obj_t open_input_procedure(obj_t);
BGL_EXPORTED_DECL obj_t BGl_openzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__closezd2outputzd2port2377z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31123za3Ieeezf2portze2scmza3388ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern bool_t directoryp(char *);
static obj_t BGl__callzd2withzd2outputzd2file2328zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_ports_6_10_1z00();
static obj_t BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_list4102z00zz__r4_ports_6_10_1z00 = BUNSPEC;
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_inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
static obj_t BGl__withzd2outputzd2tozd2file2347zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(char *);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t open_input_file(obj_t, obj_t);
static obj_t BGl__inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31185za3Ieeezf2portze2scmza3431ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern obj_t BGl_dirnamez00zz__osz00(obj_t);
extern obj_t close_input_port(obj_t);
extern bool_t fexists(char *);
static obj_t BGl__currentzd2errorzd2portz00zz__r4_ports_6_10_1z00(obj_t);
extern obj_t c_substring(obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_deletezd2filezd2zz__r4_ports_6_10_1z00(char *);
BGL_EXPORTED_DECL obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00();
BGL_EXPORTED_DECL int BGl_inputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__resetzd2eof2381zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_renamezd2filezd2zz__r4_ports_6_10_1z00(char *, char *);
extern obj_t reopen_input_c_string(obj_t, char *);
extern obj_t directory_to_list(char *);
BGL_EXPORTED_DECL obj_t BGl_inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__openzd2inputzd2czd2string2364zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl__withzd2inputzd2fromzd2port2344zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
extern obj_t make_client_socket(obj_t, int, bool_t);
static obj_t BGl__directoryzf32407zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2inputzd2fromzd2string2342zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
extern obj_t open_output_string();
extern obj_t get_output_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_reopenzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(obj_t, char *);
BGL_EXPORTED_DECL obj_t BGl_flushzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_zc3exitza31103za3Ieeezf2portze2scmza3375ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2errorzd2tozd2string2353zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00();
static obj_t BGl__callzd2withzd2inputzd2file2326zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
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_withzd2inputzd2fromzd2procedurezd2zz__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__makezd2directory2398zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_appendzd2outputzd2filez00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__makezd2directories2400zd2zz__r4_ports_6_10_1z00(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__outputzd2portzd2position2388z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__withzd2errorzd2tozd2port2357zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_zc3exitza31203za3Ieeezf2portze2scmza3446ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__inputzd2portzd2name2390z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__setzd2inputzd2portzd2positionz122383zc0zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl__flushzd2outputzd2port2379z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4229z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
static obj_t BGl_symbol4228z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4225z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__portzf3zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4224z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4223z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4222z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4221z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__withzd2inputzd2fromzd2file2340zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4220z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4219z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__withzd2outputzd2tozd2string2351zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4218z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4217z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__deletezd2directory2402zd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern long bgl_last_modification_time(char *);
static obj_t BGl_symbol4216z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2czd2stringzd2zz__r4_ports_6_10_1z00(char *);
static obj_t BGl_symbol4215z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl_symbol4214z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4213z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4211z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4210z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4209z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4199z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4208z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4198z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__getzd2outputzd2string2375z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4207z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t append_output_file(obj_t);
extern obj_t string_to_bstring(char *);
static obj_t BGl_symbol4206z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4196z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl_symbol4205z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4195z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4204z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4194z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4203z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4193z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4202z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4201z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4200z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4190z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4189z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4188z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4187z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__currentzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4186z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4185z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_closedzd2inputzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4184z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4183z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4182z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4181z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4180z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4179z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00();
static obj_t BGl_symbol4178z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__openzd2inputzd2procedurez00zz__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_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4177z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4176z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4175z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4174z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4173z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__filezd2siza7e2413z75zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern int default_io_bufsiz;
static obj_t BGl_symbol4171z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4170z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4169z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4168z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4167z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__withzd2errorzd2tozd2file2355zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4166z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__openzd2outputzd2file2368z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_closezd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2inputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_inputzd2portzd2reopenz12z12zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__closedzd2inputzd2portzf32371zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4158z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4157z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__filezd2modificationzd2time2411z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__renamezd2file2404zd2zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4146z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4145z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4143z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4142z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4140z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4138z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4137z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t open_input_pipe(obj_t, obj_t);
static obj_t BGl_symbol4135z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_portzf3zf3zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_symbol4133z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4132z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4130z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4128z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4127z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t display_string(obj_t, obj_t);
static obj_t BGl_zc3exitza31248za3Ieeezf2portze2scmza3481ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4125z00zz__r4_ports_6_10_1z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(char *);
static obj_t BGl_symbol4124z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_zc3exitza31165za3Ieeezf2portze2scmza3418ze3z93zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_outputzd2portzd2positionz00zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl__openzd2inputzd2string2361z00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol4122z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4120z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4119z00zz__r4_ports_6_10_1z00 = BUNSPEC;
extern obj_t bgl_input_port_reopen(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);
static obj_t BGl_symbol4117z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t BGl_symbol4114z00zz__r4_ports_6_10_1z00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string4147z00zz__r4_ports_6_10_1z00, BgL_bgl_string4147za700za7za7__r4_ports_6_10_1za7004248z00, "file:", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2siza7ezd2envza7zz__r4_ports_6_10_1z00, BgL_bgl__fileza7d2siza7a7e2413za775za7za7__r4_ports_6_10_1za7004249z00, BGl__filezd2siza7e2413z75zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4144z00zz__r4_ports_6_10_1z00, BgL_bgl_string4144za700za7za7__r4_ports_6_10_1za7004250z00, "<exit:1270:Ieee/port.scm:494>:Wrong number of arguments", 55 );
DEFINE_EXPORT_PROCEDURE( BGl_outputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__outputza7d2stringza7d2portza7f3za7f3za7za7__r4_ports_6_10_1za7004251za7, BGl__outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4141z00zz__r4_ports_6_10_1z00, BgL_bgl_string4141za700za7za7__r4_ports_6_10_1za7004252z00, "<exit:1248:Ieee/port.scm:481>:Wrong number of arguments", 55 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2cza7d2string2364za7d2za7za7__r4_ports_6_10_1za7004253za7, BGl__openzd2inputzd2czd2string2364zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4139z00zz__r4_ports_6_10_1z00, BgL_bgl_string4139za700za7za7__r4_ports_6_10_1za7004254z00, "with-error-to-file", 18 );
DEFINE_STRING( BGl_string4136z00zz__r4_ports_6_10_1z00, BgL_bgl_string4136za700za7za7__r4_ports_6_10_1za7004255z00, "<exit:1225:Ieee/port.scm:464>:Wrong number of arguments", 55 );
DEFINE_EXPORT_PROCEDURE( BGl_directoryzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__directoryza7f32407za7f3za7za7__r4_ports_6_10_1za7004256za7, BGl__directoryzf32407zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4134z00zz__r4_ports_6_10_1z00, BgL_bgl_string4134za700za7za7__r4_ports_6_10_1za7004257z00, "with-error-to-string", 20 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2procedurezd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2procedureza7d2portza7f3za7f3za7za7__r4_ports_6_10_1za7004258za7, BGl__inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4131z00zz__r4_ports_6_10_1z00, BgL_bgl_string4131za700za7za7__r4_ports_6_10_1za7004259z00, "<exit:1203:Ieee/port.scm:446>:Wrong number of arguments", 55 );
DEFINE_STRING( BGl_string4129z00zz__r4_ports_6_10_1z00, BgL_bgl_string4129za700za7za7__r4_ports_6_10_1za7004260z00, "with-output-to-string", 21 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2file2340za7d2za7za7__r4_ports_6_10_1za7004261za7, BGl__withzd2inputzd2fromzd2file2340zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string4126z00zz__r4_ports_6_10_1z00, BgL_bgl_string4126za700za7za7__r4_ports_6_10_1za7004262z00, "<exit:1185:Ieee/port.scm:431>:Wrong number of arguments", 55 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2outputzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2outputza7d2toza7d2string2351za7d2za7za7__r4_ports_6_10_1za7004263za7, BGl__withzd2outputzd2tozd2string2351zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4123z00zz__r4_ports_6_10_1z00, BgL_bgl_string4123za700za7za7__r4_ports_6_10_1za7004264z00, "<exit:1165:Ieee/port.scm:418>:Wrong number of arguments", 55 );
DEFINE_STRING( BGl_string4121z00zz__r4_ports_6_10_1z00, BgL_bgl_string4121za700za7za7__r4_ports_6_10_1za7004265z00, "with-output-to-file", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2procedurezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2procedureza7d2za7za7__r4_ports_6_10_1za7004266za7, BGl__withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string4118z00zz__r4_ports_6_10_1z00, BgL_bgl_string4118za700za7za7__r4_ports_6_10_1za7004267z00, "<exit:1141:Ieee/port.scm:402>:Wrong number of arguments", 55 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2outputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl__setza7d2outputza7d2portza7d2positionza712za7c0za7za7__r4_ports_6_10_1za7004268z00, BGl__setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string4116z00zz__r4_ports_6_10_1z00, BgL_bgl_string4116za700za7za7__r4_ports_6_10_1za7004269z00, "can't open procedure", 20 );
DEFINE_STRING( BGl_string4115z00zz__r4_ports_6_10_1z00, BgL_bgl_string4115za700za7za7__r4_ports_6_10_1za7004270z00, "with-input-from-procedure", 25 );
DEFINE_STRING( BGl_string4112z00zz__r4_ports_6_10_1z00, BgL_bgl_string4112za700za7za7__r4_ports_6_10_1za7004271z00, "<exit:1123:Ieee/port.scm:388>:Wrong number of arguments", 55 );
DEFINE_STRING( BGl_string4109z00zz__r4_ports_6_10_1z00, BgL_bgl_string4109za700za7za7__r4_ports_6_10_1za7004272z00, "<exit:1103:Ieee/port.scm:375>:Wrong number of arguments", 55 );
DEFINE_STRING( BGl_string4099z00zz__r4_ports_6_10_1z00, BgL_bgl_string4099za700za7za7__r4_ports_6_10_1za7004273z00, "with-input-from-file", 20 );
DEFINE_STRING( BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_bgl_string4098za700za7za7__r4_ports_6_10_1za7004274z00, "pair", 4 );
DEFINE_STRING( BGl_string4107z00zz__r4_ports_6_10_1z00, BgL_bgl_string4107za700za7za7__r4_ports_6_10_1za7004275z00, "can't open string", 17 );
DEFINE_STRING( BGl_string4106z00zz__r4_ports_6_10_1z00, BgL_bgl_string4106za700za7za7__r4_ports_6_10_1za7004276z00, "with-input-from-string", 22 );
DEFINE_STRING( BGl_string4095z00zz__r4_ports_6_10_1z00, BgL_bgl_string4095za700za7za7__r4_ports_6_10_1za7004277z00, "Can't reopen port", 17 );
DEFINE_STRING( BGl_string4094z00zz__r4_ports_6_10_1z00, BgL_bgl_string4094za700za7za7__r4_ports_6_10_1za7004278z00, "input-port-reopen!", 18 );
DEFINE_EXPORT_PROCEDURE( BGl_reopenzd2inputzd2czd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__reopenza7d2inputza7d2cza7d2string2366za7d2za7za7__r4_ports_6_10_1za7004279za7, BGl__reopenzd2inputzd2czd2string2366zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string4101z00zz__r4_ports_6_10_1z00, BgL_bgl_string4101za700za7za7__r4_ports_6_10_1za7004280z00, "<exit:1080:Ieee/port.scm:359>:Wrong number of arguments", 55 );
DEFINE_EXPORT_PROCEDURE( BGl_renamezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__renameza7d2file2404za7d2za7za7__r4_ports_6_10_1za7004281za7, BGl__renamezd2file2404zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string4083z00zz__r4_ports_6_10_1z00, BgL_bgl_string4083za700za7za7__r4_ports_6_10_1za7004282z00, "call-with-output-file", 21 );
DEFINE_STRING( BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_bgl_string4082za700za7za7__r4_ports_6_10_1za7004283z00, "output-port", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2withzd2inputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__callza7d2withza7d2inputza7d2file2326za7d2za7za7__r4_ports_6_10_1za7004284za7, BGl__callzd2withzd2inputzd2file2326zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_STRING( BGl_string4081z00zz__r4_ports_6_10_1z00, BgL_bgl_string4081za700za7za7__r4_ports_6_10_1za7004285z00, "call-with-output-file:Wrong number of arguments", 47 );
DEFINE_STRING( BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_bgl_string4079za700za7za7__r4_ports_6_10_1za7004286z00, "procedure", 9 );
DEFINE_STRING( BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_bgl_string4078za700za7za7__r4_ports_6_10_1za7004287z00, "bstring", 7 );
DEFINE_STRING( BGl_string4076z00zz__r4_ports_6_10_1z00, BgL_bgl_string4076za700za7za7__r4_ports_6_10_1za7004288z00, "can't open file", 15 );
DEFINE_STRING( BGl_string4075z00zz__r4_ports_6_10_1z00, BgL_bgl_string4075za700za7za7__r4_ports_6_10_1za7004289z00, "call-with-input-file", 20 );
DEFINE_STRING( BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_bgl_string4074za700za7za7__r4_ports_6_10_1za7004290z00, "input-port", 10 );
DEFINE_STRING( BGl_string4072z00zz__r4_ports_6_10_1z00, BgL_bgl_string4072za700za7za7__r4_ports_6_10_1za7004291z00, "/tmp/bigloo/runtime/./Ieee/port.scm", 35 );
DEFINE_STRING( BGl_string4067z00zz__r4_ports_6_10_1z00, BgL_bgl_string4067za700za7za7__r4_ports_6_10_1za7004292z00, "call-with-input-file:Wrong number of arguments", 46 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2outputzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2outputza7d2toza7d2file2347za7d2za7za7__r4_ports_6_10_1za7004293za7, BGl__withzd2outputzd2tozd2file2347zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2port2344za7d2za7za7__r4_ports_6_10_1za7004294za7, BGl__withzd2inputzd2fromzd2port2344zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2errorzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__currentza7d2errorza7d2portza700za7za7__r4_ports_6_10_1za7004295z00, BGl__currentzd2errorzd2portz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzd2namezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7d2name2390za700za7za7__r4_ports_6_10_1za7004296z00, BGl__inputzd2portzd2name2390z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2stringzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2stringza7d2portza7f3za7f3za7za7__r4_ports_6_10_1za7004297za7, BGl__inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_closezd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__closeza7d2outputza7d2port2377za700za7za7__r4_ports_6_10_1za7004298z00, BGl__closezd2outputzd2port2377z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2string2361za700za7za7__r4_ports_6_10_1za7004299z00, BGl__openzd2inputzd2string2361z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2withzd2outputzd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__callza7d2withza7d2outputza7d2file2328za7d2za7za7__r4_ports_6_10_1za7004300za7, BGl__callzd2withzd2outputzd2file2328zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__currentza7d2outputza7d2portza700za7za7__r4_ports_6_10_1za7004301z00, BGl__currentzd2outputzd2portz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2modificationzd2timezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__fileza7d2modificationza7d2time2411za700za7za7__r4_ports_6_10_1za7004302z00, BGl__filezd2modificationzd2time2411z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_outputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__outputza7d2portza7d2position2388za700za7za7__r4_ports_6_10_1za7004303z00, BGl__outputzd2portzd2position2388z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2errorzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2errorza7d2toza7d2port2357za7d2za7za7__r4_ports_6_10_1za7004304za7, BGl__withzd2errorzd2tozd2port2357zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2outputzd2tozd2portzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2outputza7d2toza7d2port2349za7d2za7za7__r4_ports_6_10_1za7004305za7, BGl__withzd2outputzd2tozd2port2349zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7f3za721za7za7__r4_ports_6_10_1za7004306z00, 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_1za7004307z00, BGl__outputzd2portzf3z21zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_closezd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__closeza7d2inputza7d2port2373za700za7za7__r4_ports_6_10_1za7004308z00, BGl__closezd2inputzd2port2373z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__makeza7d2directory2398za7d2za7za7__r4_ports_6_10_1za7004309za7, BGl__makezd2directory2398zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2inputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__currentza7d2inputza7d2portza700za7za7__r4_ports_6_10_1za7004310z00, BGl__currentzd2inputzd2portz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2inputzd2portzd2positionz12zd2envz12zz__r4_ports_6_10_1z00, BgL_bgl__setza7d2inputza7d2portza7d2positionza7122383za7c0za7za7__r4_ports_6_10_1za7004311z00, BGl__setzd2inputzd2portzd2positionz122383zc0zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_resetzd2eofzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__resetza7d2eof2381za7d2za7za7__r4_ports_6_10_1za7004312za7, BGl__resetzd2eof2381zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_closedzd2inputzd2portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__closedza7d2inputza7d2portza7f32371za7f3za7za7__r4_ports_6_10_1za7004313za7, BGl__closedzd2inputzd2portzf32371zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzd2positionzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7d2position2385za700za7za7__r4_ports_6_10_1za7004314z00, BGl__inputzd2portzd2position2385z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d2stringza700za7za7__r4_ports_6_10_1za7004315z00, BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2errorzd2tozd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2errorza7d2toza7d2string2353za7d2za7za7__r4_ports_6_10_1za7004316za7, BGl__withzd2errorzd2tozd2string2353zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2errorzd2tozd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2errorza7d2toza7d2file2355za7d2za7za7__r4_ports_6_10_1za7004317za7, BGl__withzd2errorzd2tozd2file2355zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2outputza7d2file2368za700za7za7__r4_ports_6_10_1za7004318z00, BGl__openzd2outputzd2file2368z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2outputzd2stringzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__getza7d2outputza7d2string2375za700za7za7__r4_ports_6_10_1za7004319z00, BGl__getzd2outputzd2string2375z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4227z00zz__r4_ports_6_10_1z00, BgL_bgl_string4227za700za7za7__r4_ports_6_10_1za7004320z00, "Can't find file info", 20 );
DEFINE_STRING( BGl_string4226z00zz__r4_ports_6_10_1z00, BgL_bgl_string4226za700za7za7__r4_ports_6_10_1za7004321z00, "file-size", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_directoryzd2ze3listzd2envze3zz__r4_ports_6_10_1z00, BgL_bgl__directoryza7d2za7e3list2409za731za7za7__r4_ports_6_10_1za7004322z00, BGl__directoryzd2ze3list2409z31zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_deletezd2directoryzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__deleteza7d2directory2402za7d2za7za7__r4_ports_6_10_1za7004323za7, BGl__deletezd2directory2402zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4212z00zz__r4_ports_6_10_1z00, BgL_bgl_string4212za700za7za7__r4_ports_6_10_1za7004324z00, "", 0 );
DEFINE_STRING( BGl_string4197z00zz__r4_ports_6_10_1z00, BgL_bgl_string4197za700za7za7__r4_ports_6_10_1za7004325z00, "set-output-port-position!", 25 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2file2359za700za7za7__r4_ports_6_10_1za7004326z00, va_generic_entry, BGl__openzd2inputzd2file2359z00zz__r4_ports_6_10_1z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_flushzd2outputzd2portzd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__flushza7d2outputza7d2port2379za700za7za7__r4_ports_6_10_1za7004327z00, BGl__flushzd2outputzd2port2379z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4192z00zz__r4_ports_6_10_1z00, BgL_bgl_string4192za700za7za7__r4_ports_6_10_1za7004328z00, "Can't seek port", 15 );
DEFINE_STRING( BGl_string4191z00zz__r4_ports_6_10_1z00, BgL_bgl_string4191za700za7za7__r4_ports_6_10_1za7004329z00, "set-input-port-position!", 24 );
DEFINE_EXPORT_PROCEDURE( BGl_appendzd2outputzd2filezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__appendza7d2outputza7d2file2394za700za7za7__r4_ports_6_10_1za7004330z00, BGl__appendzd2outputzd2file2394z00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_portzf3zd2envz21zz__r4_ports_6_10_1z00, BgL_bgl__portza7f3za7f3za7za7__r4_ports_6_10_1za7004331za7, BGl__portzf3zf3zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inputzd2portzd2reopenz12zd2envzc0zz__r4_ports_6_10_1z00, BgL_bgl__inputza7d2portza7d2reopenza7122338za712za7za7__r4_ports_6_10_1za7004332za7, BGl__inputzd2portzd2reopenz122338z12zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2existszf3zd2envzf3zz__r4_ports_6_10_1z00, BgL_bgl__fileza7d2existsza7f32392za721za7za7__r4_ports_6_10_1za7004333z00, BGl__filezd2existszf32392z21zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_withzd2inputzd2fromzd2stringzd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__withza7d2inputza7d2fromza7d2string2342za7d2za7za7__r4_ports_6_10_1za7004334za7, BGl__withzd2inputzd2fromzd2string2342zd2zz__r4_ports_6_10_1z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_deletezd2filezd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__deleteza7d2file2396za7d2za7za7__r4_ports_6_10_1za7004335za7, BGl__deletezd2file2396zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_bgl_string4172za700za7za7__r4_ports_6_10_1za7004336z00, "string", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_openzd2inputzd2procedurezd2envzd2zz__r4_ports_6_10_1z00, BgL_bgl__openza7d2inputza7d2procedureza700za7za7__r4_ports_6_10_1za7004337z00, BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4165z00zz__r4_ports_6_10_1z00, BgL_bgl_string4165za700za7za7__r4_ports_6_10_1za7004338z00, "GET ", 4 );
DEFINE_STRING( BGl_string4164z00zz__r4_ports_6_10_1z00, BgL_bgl_string4164za700za7za7__r4_ports_6_10_1za7004339z00, "long", 4 );
DEFINE_STRING( BGl_string4163z00zz__r4_ports_6_10_1z00, BgL_bgl_string4163za700za7za7__r4_ports_6_10_1za7004340z00, "int", 3 );
DEFINE_STRING( BGl_string4162z00zz__r4_ports_6_10_1z00, BgL_bgl_string4162za700za7za7__r4_ports_6_10_1za7004341z00, "uchar", 5 );
DEFINE_STRING( BGl_string4161z00zz__r4_ports_6_10_1z00, BgL_bgl_string4161za700za7za7__r4_ports_6_10_1za7004342z00, "index out of range", 18 );
DEFINE_STRING( BGl_string4160z00zz__r4_ports_6_10_1z00, BgL_bgl_string4160za700za7za7__r4_ports_6_10_1za7004343z00, "string-ref", 10 );
DEFINE_STRING( BGl_string4159z00zz__r4_ports_6_10_1z00, BgL_bgl_string4159za700za7za7__r4_ports_6_10_1za7004344z00, "//", 2 );
DEFINE_STRING( BGl_string4156z00zz__r4_ports_6_10_1z00, BgL_bgl_string4156za700za7za7__r4_ports_6_10_1za7004345z00, "not a number", 12 );
DEFINE_STRING( BGl_string4155z00zz__r4_ports_6_10_1z00, BgL_bgl_string4155za700za7za7__r4_ports_6_10_1za7004346z00, "open-input-file", 15 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2directorieszd2envz00zz__r4_ports_6_10_1z00, BgL_bgl__makeza7d2directories2400za7d2za7za7__r4_ports_6_10_1za7004347za7, BGl__makezd2directories2400zd2zz__r4_ports_6_10_1z00, 0L, 1 );
DEFINE_STRING( BGl_string4154z00zz__r4_ports_6_10_1z00, BgL_bgl_string4154za700za7za7__r4_ports_6_10_1za7004348z00, "string:", 7 );
DEFINE_STRING( BGl_string4153z00zz__r4_ports_6_10_1z00, BgL_bgl_string4153za700za7za7__r4_ports_6_10_1za7004349z00, "ftp:", 4 );
DEFINE_STRING( BGl_string4152z00zz__r4_ports_6_10_1z00, BgL_bgl_string4152za700za7za7__r4_ports_6_10_1za7004350z00, "http:", 5 );
DEFINE_STRING( BGl_string4151z00zz__r4_ports_6_10_1z00, BgL_bgl_string4151za700za7za7__r4_ports_6_10_1za7004351z00, "pipe:", 5 );
DEFINE_STRING( BGl_string4150z00zz__r4_ports_6_10_1z00, BgL_bgl_string4150za700za7za7__r4_ports_6_10_1za7004352z00, "| ", 2 );
DEFINE_STRING( BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_bgl_string4149za700za7za7__r4_ports_6_10_1za7004353z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string4148z00zz__r4_ports_6_10_1z00, BgL_bgl_string4148za700za7za7__r4_ports_6_10_1za7004354z00, "substring", 9 );



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 18 */
BGl_symbol4066z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("call-with-input-file"); 
BGl_symbol4069z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("funcall"); 
BGl_symbol4070z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("proc"); 
BGl_symbol4071z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("port"); 
{ /* ./Ieee/port.scm 276 */
obj_t BgL_auxz00_2003;
{ /* ./Ieee/port.scm 276 */
obj_t BgL_auxz00_2004;
{ /* ./Ieee/port.scm 276 */
obj_t BgL_auxz00_2005;
BgL_auxz00_2005 = 
MAKE_PAIR(BGl_symbol4071z00zz__r4_ports_6_10_1z00, BNIL); 
BgL_auxz00_2004 = 
MAKE_PAIR(BGl_symbol4070z00zz__r4_ports_6_10_1z00, BgL_auxz00_2005); } 
BgL_auxz00_2003 = 
MAKE_PAIR(BGl_symbol4070z00zz__r4_ports_6_10_1z00, BgL_auxz00_2004); } 
BGl_list4068z00zz__r4_ports_6_10_1z00 = 
MAKE_PAIR(BGl_symbol4069z00zz__r4_ports_6_10_1z00, BgL_auxz00_2003); } 
BGl_symbol4073z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_"); 
BGl_symbol4077z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_call-with-input-file2326"); 
BGl_symbol4080z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("call-with-output-file"); 
BGl_symbol4084z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_call-with-output-file2328"); 
BGl_symbol4085z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("input-port?"); 
BGl_symbol4086z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("input-string-port?"); 
BGl_symbol4087z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("input-procedure-port?"); 
BGl_symbol4088z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("output-port?"); 
BGl_symbol4089z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("output-string-port?"); 
BGl_symbol4090z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("current-input-port"); 
BGl_symbol4091z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("current-output-port"); 
BGl_symbol4092z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("current-error-port"); 
BGl_symbol4093z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("input-port-reopen!"); 
BGl_symbol4096z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_input-port-reopen!2338"); 
BGl_symbol4097z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-input-from-file"); 
BGl_symbol4100z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1080:Ieee/port.scm:359>"); 
BGl_symbol4103z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("thunk"); 
{ /* ./Ieee/port.scm 357 */
obj_t BgL_auxz00_2027;
{ /* ./Ieee/port.scm 357 */
obj_t BgL_auxz00_2028;
BgL_auxz00_2028 = 
MAKE_PAIR(BGl_symbol4103z00zz__r4_ports_6_10_1z00, BNIL); 
BgL_auxz00_2027 = 
MAKE_PAIR(BGl_symbol4103z00zz__r4_ports_6_10_1z00, BgL_auxz00_2028); } 
BGl_list4102z00zz__r4_ports_6_10_1z00 = 
MAKE_PAIR(BGl_symbol4069z00zz__r4_ports_6_10_1z00, BgL_auxz00_2027); } 
BGl_symbol4104z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-input-from-file2340"); 
BGl_symbol4105z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-input-from-string"); 
BGl_symbol4108z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1103:Ieee/port.scm:375>"); 
BGl_symbol4110z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-input-from-string2342"); 
BGl_symbol4111z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-input-from-port"); 
BGl_symbol4113z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-input-from-port2344"); 
BGl_symbol4114z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-input-from-procedure"); 
BGl_symbol4117z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1141:Ieee/port.scm:402>"); 
BGl_symbol4119z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-input-from-procedure"); 
BGl_symbol4120z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-output-to-file"); 
BGl_symbol4122z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1165:Ieee/port.scm:418>"); 
BGl_symbol4124z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-output-to-file2347"); 
BGl_symbol4125z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-output-to-port"); 
BGl_symbol4127z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-output-to-port2349"); 
BGl_symbol4128z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-output-to-string"); 
BGl_symbol4130z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1203:Ieee/port.scm:446>"); 
BGl_symbol4132z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-output-to-string2351"); 
BGl_symbol4133z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-error-to-string"); 
BGl_symbol4135z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1225:Ieee/port.scm:464>"); 
BGl_symbol4137z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-error-to-string2353"); 
BGl_symbol4138z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-error-to-file"); 
BGl_symbol4140z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("<exit:1248:Ieee/port.scm:481>"); 
BGl_symbol4142z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-error-to-file2355"); 
BGl_symbol4143z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("with-error-to-port"); 
BGl_symbol4145z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_with-error-to-port2357"); 
BGl_symbol4146z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-input-file"); 
BGl_symbol4157z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_open-input-file2359"); 
BGl_symbol4158z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-input-socket"); 
BGl_symbol4166z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-input-string"); 
BGl_symbol4167z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_open-input-string2361"); 
BGl_symbol4168z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-input-procedure"); 
BGl_symbol4169z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_open-input-procedure"); 
BGl_symbol4170z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-input-c-string"); 
BGl_symbol4171z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_open-input-c-string2364"); 
BGl_symbol4173z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("reopen-input-c-string"); 
BGl_symbol4174z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_reopen-input-c-string2366"); 
BGl_symbol4175z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-output-file"); 
BGl_symbol4176z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_open-output-file2368"); 
BGl_symbol4177z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("open-output-string"); 
BGl_symbol4178z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("closed-input-port?"); 
BGl_symbol4179z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_closed-input-port?2371"); 
BGl_symbol4180z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("close-input-port"); 
BGl_symbol4181z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_close-input-port2373"); 
BGl_symbol4182z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("get-output-string"); 
BGl_symbol4183z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_get-output-string2375"); 
BGl_symbol4184z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("close-output-port"); 
BGl_symbol4185z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_close-output-port2377"); 
BGl_symbol4186z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("flush-output-port"); 
BGl_symbol4187z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_flush-output-port2379"); 
BGl_symbol4188z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("reset-eof"); 
BGl_symbol4189z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_reset-eof2381"); 
BGl_symbol4190z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("set-input-port-position!"); 
BGl_symbol4193z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_set-input-port-position!2383"); 
BGl_symbol4194z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("input-port-position"); 
BGl_symbol4195z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_input-port-position2385"); 
BGl_symbol4196z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("set-output-port-position!"); 
BGl_symbol4198z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_set-output-port-position!"); 
BGl_symbol4199z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("output-port-position"); 
BGl_symbol4200z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_output-port-position2388"); 
BGl_symbol4201z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("input-port-name"); 
BGl_symbol4202z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_input-port-name2390"); 
BGl_symbol4203z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("file-exists?"); 
BGl_symbol4204z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_file-exists?2392"); 
BGl_symbol4205z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("append-output-file"); 
BGl_symbol4206z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_append-output-file2394"); 
BGl_symbol4207z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("delete-file"); 
BGl_symbol4208z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_delete-file2396"); 
BGl_symbol4209z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("make-directory"); 
BGl_symbol4210z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_make-directory2398"); 
BGl_symbol4211z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("make-directories"); 
BGl_symbol4213z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_make-directories2400"); 
BGl_symbol4214z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("delete-directory"); 
BGl_symbol4215z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_delete-directory2402"); 
BGl_symbol4216z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("rename-file"); 
BGl_symbol4217z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_rename-file2404"); 
BGl_symbol4218z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("port?"); 
BGl_symbol4219z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("directory?"); 
BGl_symbol4220z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_directory?2407"); 
BGl_symbol4221z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("directory->list"); 
BGl_symbol4222z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_directory->list2409"); 
BGl_symbol4223z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("file-modification-time"); 
BGl_symbol4224z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_file-modification-time2411"); 
BGl_symbol4225z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("file-size"); 
BGl_symbol4228z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("_file-size2413"); 
return ( 
BGl_symbol4229z00zz__r4_ports_6_10_1z00 = 
string_to_symbol("%import@__r4_ports_6_10_1"), 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_symbol2088z00_1287;
BgL_symbol2088z00_1287 = BGl_symbol4066z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 274 */

PUSH_TRACE(BgL_symbol2088z00_1287); BUNSPEC; 
{ /* ./Ieee/port.scm 274 */
obj_t BgL_aux2087z00_1288;
{ /* ./Ieee/port.scm 274 */
obj_t BgL_portz00_372;
BgL_portz00_372 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_stringz00_1, BNIL); 
if(
INPUT_PORTP(BgL_portz00_372))
{ /* ./Ieee/port.scm 276 */
obj_t BgL_resz00_374;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_2, ((long)1)))
{ /* ./Ieee/port.scm 276 */
BgL_resz00_374 = 
PROCEDURE_ENTRY(BgL_procz00_2)(BgL_procz00_2, BgL_portz00_372, BEOA); }  else 
{ /* ./Ieee/port.scm 276 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4067z00zz__r4_ports_6_10_1z00, BGl_list4068z00zz__r4_ports_6_10_1z00, BgL_procz00_2, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11607))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
{ /* ./Ieee/port.scm 277 */
obj_t BgL_portz00_702;
if(
INPUT_PORTP(BgL_portz00_372))
{ /* ./Ieee/port.scm 277 */
BgL_portz00_702 = BgL_portz00_372; }  else 
{ /* ./Ieee/port.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4066z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_372, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11648))); 
exit( -1 );} 
close_input_port(BgL_portz00_702); } 
BgL_aux2087z00_1288 = BgL_resz00_374; }  else 
{ /* ./Ieee/port.scm 275 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4075z00zz__r4_ports_6_10_1z00, BGl_string4076z00zz__r4_ports_6_10_1z00, BgL_stringz00_1, "./Ieee/port.scm", ((long)11665)); 
BgL_aux2087z00_1288 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11711))); } } 
POP_TRACE(); 
return BgL_aux2087z00_1288;} } } } 
}



/* _call-with-input-file2326 */
obj_t BGl__callzd2withzd2inputzd2file2326zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1393, obj_t BgL_stringz00_1394, obj_t BgL_procz00_1395)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 273 */
{ /* ./Ieee/port.scm 274 */
obj_t BgL_auxz00_2144;obj_t BgL_auxz00_2138;
if(
PROCEDUREP(BgL_procz00_1395))
{ /* ./Ieee/port.scm 274 */
BgL_auxz00_2144 = BgL_procz00_1395
; }  else 
{ /* ./Ieee/port.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4077z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_procz00_1395, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11525))); 
exit( -1 );} 
if(
STRINGP(BgL_stringz00_1394))
{ /* ./Ieee/port.scm 274 */
BgL_auxz00_2138 = BgL_stringz00_1394
; }  else 
{ /* ./Ieee/port.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4077z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1394, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11525))); 
exit( -1 );} 
return 
BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_2138, BgL_auxz00_2144);} } 
}



/* 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_symbol2092z00_1289;
BgL_symbol2092z00_1289 = BGl_symbol4080z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 285 */

PUSH_TRACE(BgL_symbol2092z00_1289); BUNSPEC; 
{ /* ./Ieee/port.scm 285 */
obj_t BgL_aux2091z00_1290;
{ /* ./Ieee/port.scm 285 */
obj_t BgL_portz00_376;
BgL_portz00_376 = 
open_output_file(BgL_stringz00_3); 
if(
OUTPUT_PORTP(BgL_portz00_376))
{ /* ./Ieee/port.scm 287 */
obj_t BgL_resz00_378;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_4, ((long)1)))
{ /* ./Ieee/port.scm 287 */
BgL_resz00_378 = 
PROCEDURE_ENTRY(BgL_procz00_4)(BgL_procz00_4, BgL_portz00_376, BEOA); }  else 
{ /* ./Ieee/port.scm 287 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4081z00zz__r4_ports_6_10_1z00, BGl_list4068z00zz__r4_ports_6_10_1z00, BgL_procz00_4, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)12079))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
{ /* ./Ieee/port.scm 288 */
obj_t BgL_portz00_708;
if(
OUTPUT_PORTP(BgL_portz00_376))
{ /* ./Ieee/port.scm 288 */
BgL_portz00_708 = BgL_portz00_376; }  else 
{ /* ./Ieee/port.scm 288 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4080z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_376, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)12121))); 
exit( -1 );} 
close_output_port(BgL_portz00_708); } 
BgL_aux2091z00_1290 = BgL_resz00_378; }  else 
{ /* ./Ieee/port.scm 286 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4083z00zz__r4_ports_6_10_1z00, BGl_string4076z00zz__r4_ports_6_10_1z00, BgL_stringz00_3, "./Ieee/port.scm", ((long)12138)); 
BgL_aux2091z00_1290 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)12185))); } } 
POP_TRACE(); 
return BgL_aux2091z00_1290;} } } } 
}



/* _call-with-output-file2328 */
obj_t BGl__callzd2withzd2outputzd2file2328zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1396, obj_t BgL_stringz00_1397, obj_t BgL_procz00_1398)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 284 */
{ /* ./Ieee/port.scm 285 */
obj_t BgL_auxz00_2178;obj_t BgL_auxz00_2172;
if(
PROCEDUREP(BgL_procz00_1398))
{ /* ./Ieee/port.scm 285 */
BgL_auxz00_2178 = BgL_procz00_1398
; }  else 
{ /* ./Ieee/port.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4084z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_procz00_1398, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11995))); 
exit( -1 );} 
if(
STRINGP(BgL_stringz00_1397))
{ /* ./Ieee/port.scm 285 */
BgL_auxz00_2172 = BgL_stringz00_1397
; }  else 
{ /* ./Ieee/port.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4084z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1397, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)11995))); 
exit( -1 );} 
return 
BGl_callzd2withzd2outputzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_2172, BgL_auxz00_2178);} } 
}



/* 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 */
obj_t BgL_symbol2096z00_1798;
BgL_symbol2096z00_1798 = BGl_symbol4085z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 296 */

PUSH_TRACE(BgL_symbol2096z00_1798); BUNSPEC; 
{ /* ./Ieee/port.scm 296 */
obj_t BgL_aux2095z00_1799;
{ /* ./Ieee/port.scm 296 */
bool_t BgL_auxz00_2186;
BgL_auxz00_2186 = 
INPUT_PORTP(BgL_objz00_5); 
BgL_aux2095z00_1799 = 
BBOOL(BgL_auxz00_2186); } 
POP_TRACE(); 
return BgL_aux2095z00_1799;} } } } 
}



/* _input-port? */
obj_t BGl__inputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1399, obj_t BgL_objz00_1400)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 295 */
{ /* ./Ieee/port.scm 296 */
obj_t BgL_symbol2096z00_1801;
BgL_symbol2096z00_1801 = BGl_symbol4085z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 296 */

PUSH_TRACE(BgL_symbol2096z00_1801); BUNSPEC; 
{ /* ./Ieee/port.scm 296 */
obj_t BgL_aux2095z00_1802;
{ /* ./Ieee/port.scm 296 */
bool_t BgL_auxz00_2191;
BgL_auxz00_2191 = 
INPUT_PORTP(BgL_objz00_1400); 
BgL_aux2095z00_1802 = 
BBOOL(BgL_auxz00_2191); } 
POP_TRACE(); 
return BgL_aux2095z00_1802;} } } } 
}



/* 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 */
obj_t BgL_symbol2100z00_1803;
BgL_symbol2100z00_1803 = BGl_symbol4086z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 302 */

PUSH_TRACE(BgL_symbol2100z00_1803); BUNSPEC; 
{ /* ./Ieee/port.scm 302 */
obj_t BgL_aux2099z00_1804;
{ /* ./Ieee/port.scm 302 */
bool_t BgL_auxz00_2196;
BgL_auxz00_2196 = 
INPUT_STRING_PORTP(BgL_objz00_6); 
BgL_aux2099z00_1804 = 
BBOOL(BgL_auxz00_2196); } 
POP_TRACE(); 
return BgL_aux2099z00_1804;} } } } 
}



/* _input-string-port? */
obj_t BGl__inputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1401, obj_t BgL_objz00_1402)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 301 */
{ /* ./Ieee/port.scm 302 */
obj_t BgL_symbol2100z00_1806;
BgL_symbol2100z00_1806 = BGl_symbol4086z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 302 */

PUSH_TRACE(BgL_symbol2100z00_1806); BUNSPEC; 
{ /* ./Ieee/port.scm 302 */
obj_t BgL_aux2099z00_1807;
{ /* ./Ieee/port.scm 302 */
bool_t BgL_auxz00_2201;
BgL_auxz00_2201 = 
INPUT_STRING_PORTP(BgL_objz00_1402); 
BgL_aux2099z00_1807 = 
BBOOL(BgL_auxz00_2201); } 
POP_TRACE(); 
return BgL_aux2099z00_1807;} } } } 
}



/* 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 */
obj_t BgL_symbol2104z00_1808;
BgL_symbol2104z00_1808 = BGl_symbol4087z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 308 */

PUSH_TRACE(BgL_symbol2104z00_1808); BUNSPEC; 
{ /* ./Ieee/port.scm 308 */
obj_t BgL_aux2103z00_1809;
{ /* ./Ieee/port.scm 308 */
bool_t BgL_auxz00_2206;
BgL_auxz00_2206 = 
INPUT_PROCEDURE_PORTP(BgL_objz00_7); 
BgL_aux2103z00_1809 = 
BBOOL(BgL_auxz00_2206); } 
POP_TRACE(); 
return BgL_aux2103z00_1809;} } } } 
}



/* _input-procedure-port? */
obj_t BGl__inputzd2procedurezd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1403, obj_t BgL_objz00_1404)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 307 */
{ /* ./Ieee/port.scm 308 */
obj_t BgL_symbol2104z00_1811;
BgL_symbol2104z00_1811 = BGl_symbol4087z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 308 */

PUSH_TRACE(BgL_symbol2104z00_1811); BUNSPEC; 
{ /* ./Ieee/port.scm 308 */
obj_t BgL_aux2103z00_1812;
{ /* ./Ieee/port.scm 308 */
bool_t BgL_auxz00_2211;
BgL_auxz00_2211 = 
INPUT_PROCEDURE_PORTP(BgL_objz00_1404); 
BgL_aux2103z00_1812 = 
BBOOL(BgL_auxz00_2211); } 
POP_TRACE(); 
return BgL_aux2103z00_1812;} } } } 
}



/* 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 */
obj_t BgL_symbol2108z00_1813;
BgL_symbol2108z00_1813 = BGl_symbol4088z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 314 */

PUSH_TRACE(BgL_symbol2108z00_1813); BUNSPEC; 
{ /* ./Ieee/port.scm 314 */
obj_t BgL_aux2107z00_1814;
{ /* ./Ieee/port.scm 314 */
bool_t BgL_auxz00_2216;
BgL_auxz00_2216 = 
OUTPUT_PORTP(BgL_objz00_8); 
BgL_aux2107z00_1814 = 
BBOOL(BgL_auxz00_2216); } 
POP_TRACE(); 
return BgL_aux2107z00_1814;} } } } 
}



/* _output-port? */
obj_t BGl__outputzd2portzf3z21zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1405, obj_t BgL_objz00_1406)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 313 */
{ /* ./Ieee/port.scm 314 */
obj_t BgL_symbol2108z00_1816;
BgL_symbol2108z00_1816 = BGl_symbol4088z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 314 */

PUSH_TRACE(BgL_symbol2108z00_1816); BUNSPEC; 
{ /* ./Ieee/port.scm 314 */
obj_t BgL_aux2107z00_1817;
{ /* ./Ieee/port.scm 314 */
bool_t BgL_auxz00_2221;
BgL_auxz00_2221 = 
OUTPUT_PORTP(BgL_objz00_1406); 
BgL_aux2107z00_1817 = 
BBOOL(BgL_auxz00_2221); } 
POP_TRACE(); 
return BgL_aux2107z00_1817;} } } } 
}



/* 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 */
obj_t BgL_symbol2112z00_1818;
BgL_symbol2112z00_1818 = BGl_symbol4089z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 320 */

PUSH_TRACE(BgL_symbol2112z00_1818); BUNSPEC; 
{ /* ./Ieee/port.scm 320 */
obj_t BgL_aux2111z00_1819;
{ /* ./Ieee/port.scm 320 */
bool_t BgL_auxz00_2226;
BgL_auxz00_2226 = 
OUTPUT_STRING_PORTP(BgL_objz00_9); 
BgL_aux2111z00_1819 = 
BBOOL(BgL_auxz00_2226); } 
POP_TRACE(); 
return BgL_aux2111z00_1819;} } } } 
}



/* _output-string-port? */
obj_t BGl__outputzd2stringzd2portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1407, obj_t BgL_objz00_1408)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 319 */
{ /* ./Ieee/port.scm 320 */
obj_t BgL_symbol2112z00_1821;
BgL_symbol2112z00_1821 = BGl_symbol4089z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 320 */

PUSH_TRACE(BgL_symbol2112z00_1821); BUNSPEC; 
{ /* ./Ieee/port.scm 320 */
obj_t BgL_aux2111z00_1822;
{ /* ./Ieee/port.scm 320 */
bool_t BgL_auxz00_2231;
BgL_auxz00_2231 = 
OUTPUT_STRING_PORTP(BgL_objz00_1408); 
BgL_aux2111z00_1822 = 
BBOOL(BgL_auxz00_2231); } 
POP_TRACE(); 
return BgL_aux2111z00_1822;} } } } 
}



/* current-input-port */
BGL_EXPORTED_DEF obj_t BGl_currentzd2inputzd2portz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 325 */
{ /* ./Ieee/port.scm 326 */
obj_t BgL_symbol2116z00_1823;
BgL_symbol2116z00_1823 = BGl_symbol4090z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 326 */

PUSH_TRACE(BgL_symbol2116z00_1823); BUNSPEC; 
{ /* ./Ieee/port.scm 326 */
obj_t BgL_aux2115z00_1824;
BgL_aux2115z00_1824 = 
BGL_CURRENT_INPUT_PORT(); 
POP_TRACE(); 
return BgL_aux2115z00_1824;} } } } 
}



/* _current-input-port */
obj_t BGl__currentzd2inputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1409)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 325 */
{ /* ./Ieee/port.scm 326 */
obj_t BgL_res4230z00_1827;
{ /* ./Ieee/port.scm 326 */
obj_t BgL_symbol2116z00_1825;
BgL_symbol2116z00_1825 = BGl_symbol4090z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 326 */

PUSH_TRACE(BgL_symbol2116z00_1825); BUNSPEC; 
{ /* ./Ieee/port.scm 326 */
obj_t BgL_aux2115z00_1826;
BgL_aux2115z00_1826 = 
BGL_CURRENT_INPUT_PORT(); 
POP_TRACE(); 
BgL_res4230z00_1827 = BgL_aux2115z00_1826; } } } 
return BgL_res4230z00_1827;} } 
}



/* current-output-port */
BGL_EXPORTED_DEF obj_t BGl_currentzd2outputzd2portz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 331 */
{ /* ./Ieee/port.scm 332 */
obj_t BgL_symbol2120z00_1828;
BgL_symbol2120z00_1828 = BGl_symbol4091z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 332 */

PUSH_TRACE(BgL_symbol2120z00_1828); BUNSPEC; 
{ /* ./Ieee/port.scm 332 */
obj_t BgL_aux2119z00_1829;
BgL_aux2119z00_1829 = 
BGL_CURRENT_OUTPUT_PORT(); 
POP_TRACE(); 
return BgL_aux2119z00_1829;} } } } 
}



/* _current-output-port */
obj_t BGl__currentzd2outputzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1410)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 331 */
{ /* ./Ieee/port.scm 332 */
obj_t BgL_res4231z00_1832;
{ /* ./Ieee/port.scm 332 */
obj_t BgL_symbol2120z00_1830;
BgL_symbol2120z00_1830 = BGl_symbol4091z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 332 */

PUSH_TRACE(BgL_symbol2120z00_1830); BUNSPEC; 
{ /* ./Ieee/port.scm 332 */
obj_t BgL_aux2119z00_1831;
BgL_aux2119z00_1831 = 
BGL_CURRENT_OUTPUT_PORT(); 
POP_TRACE(); 
BgL_res4231z00_1832 = BgL_aux2119z00_1831; } } } 
return BgL_res4231z00_1832;} } 
}



/* current-error-port */
BGL_EXPORTED_DEF obj_t BGl_currentzd2errorzd2portz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 337 */
{ /* ./Ieee/port.scm 338 */
obj_t BgL_symbol2124z00_1833;
BgL_symbol2124z00_1833 = BGl_symbol4092z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 338 */

PUSH_TRACE(BgL_symbol2124z00_1833); BUNSPEC; 
{ /* ./Ieee/port.scm 338 */
obj_t BgL_aux2123z00_1834;
BgL_aux2123z00_1834 = 
BGL_CURRENT_ERROR_PORT(); 
POP_TRACE(); 
return BgL_aux2123z00_1834;} } } } 
}



/* _current-error-port */
obj_t BGl__currentzd2errorzd2portz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1411)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 337 */
{ /* ./Ieee/port.scm 338 */
obj_t BgL_res4232z00_1837;
{ /* ./Ieee/port.scm 338 */
obj_t BgL_symbol2124z00_1835;
BgL_symbol2124z00_1835 = BGl_symbol4092z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 338 */

PUSH_TRACE(BgL_symbol2124z00_1835); BUNSPEC; 
{ /* ./Ieee/port.scm 338 */
obj_t BgL_aux2123z00_1836;
BgL_aux2123z00_1836 = 
BGL_CURRENT_ERROR_PORT(); 
POP_TRACE(); 
BgL_res4232z00_1837 = BgL_aux2123z00_1836; } } } 
return BgL_res4232z00_1837;} } 
}



/* 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 */
obj_t BgL_symbol2128z00_1838;
BgL_symbol2128z00_1838 = BGl_symbol4093z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 344 */

PUSH_TRACE(BgL_symbol2128z00_1838); BUNSPEC; 
{ /* ./Ieee/port.scm 344 */
obj_t BgL_aux2127z00_1839;
{ /* ./Ieee/port.scm 344 */
bool_t BgL_testz00_2254;
{ /* ./Ieee/port.scm 344 */
obj_t BgL_auxz00_2255;
BgL_auxz00_2255 = 
bgl_input_port_reopen(BgL_portz00_10); 
BgL_testz00_2254 = 
CBOOL(BgL_auxz00_2255); } 
if(BgL_testz00_2254)
{ /* ./Ieee/port.scm 344 */
BgL_aux2127z00_1839 = BFALSE; }  else 
{ /* ./Ieee/port.scm 344 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4094z00zz__r4_ports_6_10_1z00, BGl_string4095z00zz__r4_ports_6_10_1z00, BgL_portz00_10, "./Ieee/port.scm", ((long)14834)); 
BgL_aux2127z00_1839 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)14789))); } } 
POP_TRACE(); 
return BgL_aux2127z00_1839;} } } } 
}



/* _input-port-reopen!2338 */
obj_t BGl__inputzd2portzd2reopenz122338z12zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1412, obj_t BgL_portz00_1413)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 343 */
{ /* ./Ieee/port.scm 344 */
obj_t BgL_portz00_1840;
if(
INPUT_PORTP(BgL_portz00_1413))
{ /* ./Ieee/port.scm 344 */
BgL_portz00_1840 = BgL_portz00_1413; }  else 
{ /* ./Ieee/port.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4096z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1413, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)14789))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 344 */
obj_t BgL_symbol2128z00_1841;
BgL_symbol2128z00_1841 = BGl_symbol4093z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 344 */

PUSH_TRACE(BgL_symbol2128z00_1841); BUNSPEC; 
{ /* ./Ieee/port.scm 344 */
obj_t BgL_aux2127z00_1842;
{ /* ./Ieee/port.scm 344 */
bool_t BgL_testz00_2268;
{ /* ./Ieee/port.scm 344 */
obj_t BgL_auxz00_2269;
BgL_auxz00_2269 = 
bgl_input_port_reopen(BgL_portz00_1840); 
BgL_testz00_2268 = 
CBOOL(BgL_auxz00_2269); } 
if(BgL_testz00_2268)
{ /* ./Ieee/port.scm 344 */
BgL_aux2127z00_1842 = BFALSE; }  else 
{ /* ./Ieee/port.scm 344 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4094z00zz__r4_ports_6_10_1z00, BGl_string4095z00zz__r4_ports_6_10_1z00, BgL_portz00_1840, "./Ieee/port.scm", ((long)14834)); 
BgL_aux2127z00_1842 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)14789))); } } 
POP_TRACE(); 
return BgL_aux2127z00_1842;} } } } } 
}



/* 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_symbol2132z00_1309;
BgL_symbol2132z00_1309 = BGl_symbol4097z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 351 */

PUSH_TRACE(BgL_symbol2132z00_1309); BUNSPEC; 
{ /* ./Ieee/port.scm 351 */
obj_t BgL_aux2131z00_1310;
{ /* ./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_zc3exitza31080za3Ieeezf2portze2scmza3359ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_12, BgL_portz00_380); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_382); 
{ /* ./Ieee/port.scm 360 */
obj_t BgL_portz00_717;
if(
INPUT_PORTP(BgL_portz00_380))
{ /* ./Ieee/port.scm 360 */
BgL_portz00_717 = BgL_portz00_380; }  else 
{ /* ./Ieee/port.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4097z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_380, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15442))); 
exit( -1 );} 
close_input_port(BgL_portz00_717); } 
{ /* ./Ieee/port.scm 360 */
bool_t BgL_testz00_2289;
{ /* ./Ieee/port.scm 360 */
obj_t BgL_auxz00_2290;
BgL_auxz00_2290 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1003z00_383); 
BgL_testz00_2289 = 
CBOOL(BgL_auxz00_2290); } 
if(BgL_testz00_2289)
{ /* ./Ieee/port.scm 360 */
obj_t BgL_arg1073z00_385;obj_t BgL_arg1075z00_386;
{ /* ./Ieee/port.scm 360 */
obj_t BgL_pairz00_718;
if(
PAIRP(BgL_val1003z00_383))
{ /* ./Ieee/port.scm 360 */
BgL_pairz00_718 = BgL_val1003z00_383; }  else 
{ /* ./Ieee/port.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4097z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1003z00_383, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15421))); 
exit( -1 );} 
BgL_arg1073z00_385 = 
CAR(BgL_pairz00_718); } 
{ /* ./Ieee/port.scm 360 */
obj_t BgL_pairz00_719;
if(
PAIRP(BgL_val1003z00_383))
{ /* ./Ieee/port.scm 360 */
BgL_pairz00_719 = BgL_val1003z00_383; }  else 
{ /* ./Ieee/port.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4097z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1003z00_383, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15421))); 
exit( -1 );} 
BgL_arg1075z00_386 = 
CDR(BgL_pairz00_719); } 
BgL_aux2131z00_1310 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1073z00_385, BgL_arg1075z00_386); }  else 
{ /* ./Ieee/port.scm 360 */
BgL_aux2131z00_1310 = BgL_val1003z00_383; } } } }  else 
{ /* ./Ieee/port.scm 352 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4099z00zz__r4_ports_6_10_1z00, BGl_string4076z00zz__r4_ports_6_10_1z00, BgL_stringz00_11, "./Ieee/port.scm", ((long)15451)); 
BgL_aux2131z00_1310 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15497))); } } 
POP_TRACE(); 
return BgL_aux2131z00_1310;} } } } 
}



/* <exit:1080:Ieee/port.scm:359> */
obj_t BGl_zc3exitza31080za3Ieeezf2portze2scmza3359ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1525, obj_t BgL_portz00_1524)
{ 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;
{ /* ./Ieee/port.scm 356 */
obj_t BgL_auxz00_2313;
if(
INPUT_PORTP(BgL_portz00_1524))
{ /* ./Ieee/port.scm 356 */
BgL_auxz00_2313 = BgL_portz00_1524
; }  else 
{ /* ./Ieee/port.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4100z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1524, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15342))); 
exit( -1 );} 
BGL_CURRENT_INPUT_PORT_SET(BgL_auxz00_2313); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1525, ((long)0)))
{ /* ./Ieee/port.scm 357 */
BgL_val1005z00_389 = 
PROCEDURE_ENTRY(BgL_thunkz00_1525)(BgL_thunkz00_1525, BEOA); }  else 
{ /* ./Ieee/port.scm 357 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4101z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1525, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15350))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1005z00_389;} } 
} } 
}



/* _with-input-from-file2340 */
obj_t BGl__withzd2inputzd2fromzd2file2340zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1414, obj_t BgL_stringz00_1415, obj_t BgL_thunkz00_1416)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 350 */
{ /* ./Ieee/port.scm 351 */
obj_t BgL_auxz00_2334;obj_t BgL_auxz00_2328;
if(
PROCEDUREP(BgL_thunkz00_1416))
{ /* ./Ieee/port.scm 351 */
BgL_auxz00_2334 = BgL_thunkz00_1416
; }  else 
{ /* ./Ieee/port.scm 351 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4104z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1416, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15160))); 
exit( -1 );} 
if(
STRINGP(BgL_stringz00_1415))
{ /* ./Ieee/port.scm 351 */
BgL_auxz00_2328 = BgL_stringz00_1415
; }  else 
{ /* ./Ieee/port.scm 351 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4104z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1415, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15160))); 
exit( -1 );} 
return 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_2328, BgL_auxz00_2334);} } 
}



/* 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_symbol2136z00_1311;
BgL_symbol2136z00_1311 = BGl_symbol4105z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 367 */

PUSH_TRACE(BgL_symbol2136z00_1311); BUNSPEC; 
{ /* ./Ieee/port.scm 367 */
obj_t BgL_aux2135z00_1312;
{ /* ./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_zc3exitza31103za3Ieeezf2portze2scmza3375ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_14, BgL_portz00_391); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_393); 
{ /* ./Ieee/port.scm 376 */
obj_t BgL_portz00_725;
if(
INPUT_PORTP(BgL_portz00_391))
{ /* ./Ieee/port.scm 376 */
BgL_portz00_725 = BgL_portz00_391; }  else 
{ /* ./Ieee/port.scm 376 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4105z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_391, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16066))); 
exit( -1 );} 
close_input_port(BgL_portz00_725); } 
{ /* ./Ieee/port.scm 376 */
bool_t BgL_testz00_2354;
{ /* ./Ieee/port.scm 376 */
obj_t BgL_auxz00_2355;
BgL_auxz00_2355 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1006z00_394); 
BgL_testz00_2354 = 
CBOOL(BgL_auxz00_2355); } 
if(BgL_testz00_2354)
{ /* ./Ieee/port.scm 376 */
obj_t BgL_arg1097z00_396;obj_t BgL_arg1098z00_397;
{ /* ./Ieee/port.scm 376 */
obj_t BgL_pairz00_726;
if(
PAIRP(BgL_val1006z00_394))
{ /* ./Ieee/port.scm 376 */
BgL_pairz00_726 = BgL_val1006z00_394; }  else 
{ /* ./Ieee/port.scm 376 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4105z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1006z00_394, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16045))); 
exit( -1 );} 
BgL_arg1097z00_396 = 
CAR(BgL_pairz00_726); } 
{ /* ./Ieee/port.scm 376 */
obj_t BgL_pairz00_727;
if(
PAIRP(BgL_val1006z00_394))
{ /* ./Ieee/port.scm 376 */
BgL_pairz00_727 = BgL_val1006z00_394; }  else 
{ /* ./Ieee/port.scm 376 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4105z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1006z00_394, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16045))); 
exit( -1 );} 
BgL_arg1098z00_397 = 
CDR(BgL_pairz00_727); } 
BgL_aux2135z00_1312 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1097z00_396, BgL_arg1098z00_397); }  else 
{ /* ./Ieee/port.scm 376 */
BgL_aux2135z00_1312 = BgL_val1006z00_394; } } } }  else 
{ /* ./Ieee/port.scm 368 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4106z00zz__r4_ports_6_10_1z00, BGl_string4107z00zz__r4_ports_6_10_1z00, BgL_stringz00_13, "./Ieee/port.scm", ((long)16075)); 
BgL_aux2135z00_1312 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16125))); } } 
POP_TRACE(); 
return BgL_aux2135z00_1312;} } } } 
}



/* <exit:1103:Ieee/port.scm:375> */
obj_t BGl_zc3exitza31103za3Ieeezf2portze2scmza3375ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1523, obj_t BgL_portz00_1522)
{ 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;
{ /* ./Ieee/port.scm 372 */
obj_t BgL_auxz00_2378;
if(
INPUT_PORTP(BgL_portz00_1522))
{ /* ./Ieee/port.scm 372 */
BgL_auxz00_2378 = BgL_portz00_1522
; }  else 
{ /* ./Ieee/port.scm 372 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4108z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1522, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15966))); 
exit( -1 );} 
BGL_CURRENT_INPUT_PORT_SET(BgL_auxz00_2378); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1523, ((long)0)))
{ /* ./Ieee/port.scm 373 */
BgL_val1008z00_400 = 
PROCEDURE_ENTRY(BgL_thunkz00_1523)(BgL_thunkz00_1523, BEOA); }  else 
{ /* ./Ieee/port.scm 373 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4109z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1523, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15974))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1008z00_400;} } 
} } 
}



/* _with-input-from-string2342 */
obj_t BGl__withzd2inputzd2fromzd2string2342zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1417, obj_t BgL_stringz00_1418, obj_t BgL_thunkz00_1419)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 366 */
{ /* ./Ieee/port.scm 367 */
obj_t BgL_auxz00_2399;obj_t BgL_auxz00_2393;
if(
PROCEDUREP(BgL_thunkz00_1419))
{ /* ./Ieee/port.scm 367 */
BgL_auxz00_2399 = BgL_thunkz00_1419
; }  else 
{ /* ./Ieee/port.scm 367 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4110z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1419, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15782))); 
exit( -1 );} 
if(
STRINGP(BgL_stringz00_1418))
{ /* ./Ieee/port.scm 367 */
BgL_auxz00_2393 = BgL_stringz00_1418
; }  else 
{ /* ./Ieee/port.scm 367 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4110z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1418, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)15782))); 
exit( -1 );} 
return 
BGl_withzd2inputzd2fromzd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2393, BgL_auxz00_2399);} } 
}



/* 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_symbol2140z00_1313;
BgL_symbol2140z00_1313 = BGl_symbol4111z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 383 */

PUSH_TRACE(BgL_symbol2140z00_1313); BUNSPEC; 
{ /* ./Ieee/port.scm 383 */
obj_t BgL_aux2139z00_1314;
{ /* ./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_zc3exitza31123za3Ieeezf2portze2scmza3388ze3z93zz__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_2410;
{ /* ./Ieee/port.scm 388 */
obj_t BgL_auxz00_2411;
BgL_auxz00_2411 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1009z00_402); 
BgL_testz00_2410 = 
CBOOL(BgL_auxz00_2411); } 
if(BgL_testz00_2410)
{ /* ./Ieee/port.scm 388 */
obj_t BgL_arg1117z00_404;obj_t BgL_arg1118z00_405;
{ /* ./Ieee/port.scm 388 */
obj_t BgL_pairz00_731;
if(
PAIRP(BgL_val1009z00_402))
{ /* ./Ieee/port.scm 388 */
BgL_pairz00_731 = BgL_val1009z00_402; }  else 
{ /* ./Ieee/port.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4111z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1009z00_402, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16536))); 
exit( -1 );} 
BgL_arg1117z00_404 = 
CAR(BgL_pairz00_731); } 
{ /* ./Ieee/port.scm 388 */
obj_t BgL_pairz00_732;
if(
PAIRP(BgL_val1009z00_402))
{ /* ./Ieee/port.scm 388 */
BgL_pairz00_732 = BgL_val1009z00_402; }  else 
{ /* ./Ieee/port.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4111z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1009z00_402, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16536))); 
exit( -1 );} 
BgL_arg1118z00_405 = 
CDR(BgL_pairz00_732); } 
BgL_aux2139z00_1314 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1117z00_404, BgL_arg1118z00_405); }  else 
{ /* ./Ieee/port.scm 388 */
BgL_aux2139z00_1314 = BgL_val1009z00_402; } } } } 
POP_TRACE(); 
return BgL_aux2139z00_1314;} } } } 
}



/* <exit:1123:Ieee/port.scm:388> */
obj_t BGl_zc3exitza31123za3Ieeezf2portze2scmza3388ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1521, obj_t BgL_portz00_1520)
{ 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_1520); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1521, ((long)0)))
{ /* ./Ieee/port.scm 387 */
BgL_val1011z00_408 = 
PROCEDURE_ENTRY(BgL_thunkz00_1521)(BgL_thunkz00_1521, BEOA); }  else 
{ /* ./Ieee/port.scm 387 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4112z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1521, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16525))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1011z00_408;} } 
} } 
}



/* _with-input-from-port2344 */
obj_t BGl__withzd2inputzd2fromzd2port2344zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1420, obj_t BgL_portz00_1421, obj_t BgL_thunkz00_1422)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 382 */
{ /* ./Ieee/port.scm 383 */
obj_t BgL_auxz00_2446;obj_t BgL_auxz00_2440;
if(
PROCEDUREP(BgL_thunkz00_1422))
{ /* ./Ieee/port.scm 383 */
BgL_auxz00_2446 = BgL_thunkz00_1422
; }  else 
{ /* ./Ieee/port.scm 383 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4113z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1422, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16406))); 
exit( -1 );} 
if(
INPUT_PORTP(BgL_portz00_1421))
{ /* ./Ieee/port.scm 383 */
BgL_auxz00_2440 = BgL_portz00_1421
; }  else 
{ /* ./Ieee/port.scm 383 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4113z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1421, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16406))); 
exit( -1 );} 
return 
BGl_withzd2inputzd2fromzd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2440, BgL_auxz00_2446);} } 
}



/* 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_symbol2144z00_1315;
BgL_symbol2144z00_1315 = BGl_symbol4114z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 394 */

PUSH_TRACE(BgL_symbol2144z00_1315); BUNSPEC; 
{ /* ./Ieee/port.scm 394 */
obj_t BgL_aux2143z00_1316;
{ /* ./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_zc3exitza31141za3Ieeezf2portze2scmza3402ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_18, BgL_portz00_409); 
BGL_CURRENT_INPUT_PORT_SET(BgL_oldzd2inputzd2portz00_411); 
{ /* ./Ieee/port.scm 403 */
obj_t BgL_portz00_735;
if(
INPUT_PORTP(BgL_portz00_409))
{ /* ./Ieee/port.scm 403 */
BgL_portz00_735 = BgL_portz00_409; }  else 
{ /* ./Ieee/port.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4114z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_409, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17140))); 
exit( -1 );} 
close_input_port(BgL_portz00_735); } 
{ /* ./Ieee/port.scm 403 */
bool_t BgL_testz00_2466;
{ /* ./Ieee/port.scm 403 */
obj_t BgL_auxz00_2467;
BgL_auxz00_2467 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1012z00_412); 
BgL_testz00_2466 = 
CBOOL(BgL_auxz00_2467); } 
if(BgL_testz00_2466)
{ /* ./Ieee/port.scm 403 */
obj_t BgL_arg1135z00_414;obj_t BgL_arg1136z00_415;
{ /* ./Ieee/port.scm 403 */
obj_t BgL_pairz00_736;
if(
PAIRP(BgL_val1012z00_412))
{ /* ./Ieee/port.scm 403 */
BgL_pairz00_736 = BgL_val1012z00_412; }  else 
{ /* ./Ieee/port.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4114z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1012z00_412, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17119))); 
exit( -1 );} 
BgL_arg1135z00_414 = 
CAR(BgL_pairz00_736); } 
{ /* ./Ieee/port.scm 403 */
obj_t BgL_pairz00_737;
if(
PAIRP(BgL_val1012z00_412))
{ /* ./Ieee/port.scm 403 */
BgL_pairz00_737 = BgL_val1012z00_412; }  else 
{ /* ./Ieee/port.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4114z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1012z00_412, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17119))); 
exit( -1 );} 
BgL_arg1136z00_415 = 
CDR(BgL_pairz00_737); } 
BgL_aux2143z00_1316 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1135z00_414, BgL_arg1136z00_415); }  else 
{ /* ./Ieee/port.scm 403 */
BgL_aux2143z00_1316 = BgL_val1012z00_412; } } } }  else 
{ /* ./Ieee/port.scm 395 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4115z00zz__r4_ports_6_10_1z00, BGl_string4116z00zz__r4_ports_6_10_1z00, BgL_procz00_17, "./Ieee/port.scm", ((long)17149)); 
BgL_aux2143z00_1316 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17205))); } } 
POP_TRACE(); 
return BgL_aux2143z00_1316;} } } } 
}



/* <exit:1141:Ieee/port.scm:402> */
obj_t BGl_zc3exitza31141za3Ieeezf2portze2scmza3402ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1519, obj_t BgL_portz00_1518)
{ 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;
{ /* ./Ieee/port.scm 399 */
obj_t BgL_auxz00_2490;
if(
INPUT_PORTP(BgL_portz00_1518))
{ /* ./Ieee/port.scm 399 */
BgL_auxz00_2490 = BgL_portz00_1518
; }  else 
{ /* ./Ieee/port.scm 399 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4117z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1518, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17040))); 
exit( -1 );} 
BGL_CURRENT_INPUT_PORT_SET(BgL_auxz00_2490); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1519, ((long)0)))
{ /* ./Ieee/port.scm 400 */
BgL_val1014z00_418 = 
PROCEDURE_ENTRY(BgL_thunkz00_1519)(BgL_thunkz00_1519, BEOA); }  else 
{ /* ./Ieee/port.scm 400 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4118z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1519, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17048))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1014z00_418;} } 
} } 
}



/* _with-input-from-procedure */
obj_t BGl__withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1423, obj_t BgL_procz00_1424, obj_t BgL_thunkz00_1425)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 393 */
{ /* ./Ieee/port.scm 394 */
obj_t BgL_auxz00_2511;obj_t BgL_auxz00_2505;
if(
PROCEDUREP(BgL_thunkz00_1425))
{ /* ./Ieee/port.scm 394 */
BgL_auxz00_2511 = BgL_thunkz00_1425
; }  else 
{ /* ./Ieee/port.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4119z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1425, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16855))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_procz00_1424))
{ /* ./Ieee/port.scm 394 */
BgL_auxz00_2505 = BgL_procz00_1424
; }  else 
{ /* ./Ieee/port.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4119z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_procz00_1424, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)16855))); 
exit( -1 );} 
return 
BGl_withzd2inputzd2fromzd2procedurezd2zz__r4_ports_6_10_1z00(BgL_auxz00_2505, BgL_auxz00_2511);} } 
}



/* 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_symbol2148z00_1317;
BgL_symbol2148z00_1317 = BGl_symbol4120z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 410 */

PUSH_TRACE(BgL_symbol2148z00_1317); BUNSPEC; 
{ /* ./Ieee/port.scm 410 */
obj_t BgL_aux2147z00_1318;
{ /* ./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_zc3exitza31165za3Ieeezf2portze2scmza3418ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_20, BgL_portz00_419); 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_oldzd2outputzd2portz00_421); 
{ /* ./Ieee/port.scm 419 */
obj_t BgL_portz00_743;
if(
OUTPUT_PORTP(BgL_portz00_419))
{ /* ./Ieee/port.scm 419 */
BgL_portz00_743 = BgL_portz00_419; }  else 
{ /* ./Ieee/port.scm 419 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4120z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_419, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17775))); 
exit( -1 );} 
close_output_port(BgL_portz00_743); } 
{ /* ./Ieee/port.scm 419 */
bool_t BgL_testz00_2531;
{ /* ./Ieee/port.scm 419 */
obj_t BgL_auxz00_2532;
BgL_auxz00_2532 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1015z00_422); 
BgL_testz00_2531 = 
CBOOL(BgL_auxz00_2532); } 
if(BgL_testz00_2531)
{ /* ./Ieee/port.scm 419 */
obj_t BgL_arg1158z00_424;obj_t BgL_arg1160z00_425;
{ /* ./Ieee/port.scm 419 */
obj_t BgL_pairz00_744;
if(
PAIRP(BgL_val1015z00_422))
{ /* ./Ieee/port.scm 419 */
BgL_pairz00_744 = BgL_val1015z00_422; }  else 
{ /* ./Ieee/port.scm 419 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4120z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1015z00_422, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17753))); 
exit( -1 );} 
BgL_arg1158z00_424 = 
CAR(BgL_pairz00_744); } 
{ /* ./Ieee/port.scm 419 */
obj_t BgL_pairz00_745;
if(
PAIRP(BgL_val1015z00_422))
{ /* ./Ieee/port.scm 419 */
BgL_pairz00_745 = BgL_val1015z00_422; }  else 
{ /* ./Ieee/port.scm 419 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4120z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1015z00_422, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17753))); 
exit( -1 );} 
BgL_arg1160z00_425 = 
CDR(BgL_pairz00_745); } 
BgL_aux2147z00_1318 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1158z00_424, BgL_arg1160z00_425); }  else 
{ /* ./Ieee/port.scm 419 */
BgL_aux2147z00_1318 = BgL_val1015z00_422; } } } }  else 
{ /* ./Ieee/port.scm 411 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4121z00zz__r4_ports_6_10_1z00, BGl_string4076z00zz__r4_ports_6_10_1z00, BgL_stringz00_19, "./Ieee/port.scm", ((long)17784)); 
BgL_aux2147z00_1318 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17829))); } } 
POP_TRACE(); 
return BgL_aux2147z00_1318;} } } } 
}



/* <exit:1165:Ieee/port.scm:418> */
obj_t BGl_zc3exitza31165za3Ieeezf2portze2scmza3418ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1517, obj_t BgL_portz00_1516)
{ 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;
{ /* ./Ieee/port.scm 415 */
obj_t BgL_auxz00_2555;
if(
OUTPUT_PORTP(BgL_portz00_1516))
{ /* ./Ieee/port.scm 415 */
BgL_auxz00_2555 = BgL_portz00_1516
; }  else 
{ /* ./Ieee/port.scm 415 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4122z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1516, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17672))); 
exit( -1 );} 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_auxz00_2555); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1517, ((long)0)))
{ /* ./Ieee/port.scm 416 */
BgL_val1017z00_428 = 
PROCEDURE_ENTRY(BgL_thunkz00_1517)(BgL_thunkz00_1517, BEOA); }  else 
{ /* ./Ieee/port.scm 416 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4123z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1517, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17680))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1017z00_428;} } 
} } 
}



/* _with-output-to-file2347 */
obj_t BGl__withzd2outputzd2tozd2file2347zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1426, obj_t BgL_stringz00_1427, obj_t BgL_thunkz00_1428)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 409 */
{ /* ./Ieee/port.scm 410 */
obj_t BgL_auxz00_2576;obj_t BgL_auxz00_2570;
if(
PROCEDUREP(BgL_thunkz00_1428))
{ /* ./Ieee/port.scm 410 */
BgL_auxz00_2576 = BgL_thunkz00_1428
; }  else 
{ /* ./Ieee/port.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4124z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1428, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17485))); 
exit( -1 );} 
if(
STRINGP(BgL_stringz00_1427))
{ /* ./Ieee/port.scm 410 */
BgL_auxz00_2570 = BgL_stringz00_1427
; }  else 
{ /* ./Ieee/port.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4124z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1427, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)17485))); 
exit( -1 );} 
return 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_2570, BgL_auxz00_2576);} } 
}



/* 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_symbol2152z00_1319;
BgL_symbol2152z00_1319 = BGl_symbol4125z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 426 */

PUSH_TRACE(BgL_symbol2152z00_1319); BUNSPEC; 
{ /* ./Ieee/port.scm 426 */
obj_t BgL_aux2151z00_1320;
{ /* ./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_zc3exitza31185za3Ieeezf2portze2scmza3431ze3z93zz__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_2587;
{ /* ./Ieee/port.scm 431 */
obj_t BgL_auxz00_2588;
BgL_auxz00_2588 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1018z00_430); 
BgL_testz00_2587 = 
CBOOL(BgL_auxz00_2588); } 
if(BgL_testz00_2587)
{ /* ./Ieee/port.scm 431 */
obj_t BgL_arg1179z00_432;obj_t BgL_arg1180z00_433;
{ /* ./Ieee/port.scm 431 */
obj_t BgL_pairz00_749;
if(
PAIRP(BgL_val1018z00_430))
{ /* ./Ieee/port.scm 431 */
BgL_pairz00_749 = BgL_val1018z00_430; }  else 
{ /* ./Ieee/port.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4125z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1018z00_430, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18242))); 
exit( -1 );} 
BgL_arg1179z00_432 = 
CAR(BgL_pairz00_749); } 
{ /* ./Ieee/port.scm 431 */
obj_t BgL_pairz00_750;
if(
PAIRP(BgL_val1018z00_430))
{ /* ./Ieee/port.scm 431 */
BgL_pairz00_750 = BgL_val1018z00_430; }  else 
{ /* ./Ieee/port.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4125z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1018z00_430, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18242))); 
exit( -1 );} 
BgL_arg1180z00_433 = 
CDR(BgL_pairz00_750); } 
BgL_aux2151z00_1320 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1179z00_432, BgL_arg1180z00_433); }  else 
{ /* ./Ieee/port.scm 431 */
BgL_aux2151z00_1320 = BgL_val1018z00_430; } } } } 
POP_TRACE(); 
return BgL_aux2151z00_1320;} } } } 
}



/* <exit:1185:Ieee/port.scm:431> */
obj_t BGl_zc3exitza31185za3Ieeezf2portze2scmza3431ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1515, obj_t BgL_portz00_1514)
{ 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_1514); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1515, ((long)0)))
{ /* ./Ieee/port.scm 430 */
BgL_val1020z00_436 = 
PROCEDURE_ENTRY(BgL_thunkz00_1515)(BgL_thunkz00_1515, BEOA); }  else 
{ /* ./Ieee/port.scm 430 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4126z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1515, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18231))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1020z00_436;} } 
} } 
}



/* _with-output-to-port2349 */
obj_t BGl__withzd2outputzd2tozd2port2349zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1429, obj_t BgL_portz00_1430, obj_t BgL_thunkz00_1431)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 425 */
{ /* ./Ieee/port.scm 426 */
obj_t BgL_auxz00_2623;obj_t BgL_auxz00_2617;
if(
PROCEDUREP(BgL_thunkz00_1431))
{ /* ./Ieee/port.scm 426 */
BgL_auxz00_2623 = BgL_thunkz00_1431
; }  else 
{ /* ./Ieee/port.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4127z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1431, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18109))); 
exit( -1 );} 
if(
OUTPUT_PORTP(BgL_portz00_1430))
{ /* ./Ieee/port.scm 426 */
BgL_auxz00_2617 = BgL_portz00_1430
; }  else 
{ /* ./Ieee/port.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4127z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1430, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18109))); 
exit( -1 );} 
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2617, BgL_auxz00_2623);} } 
}



/* 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_symbol2156z00_1321;
BgL_symbol2156z00_1321 = BGl_symbol4128z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 437 */

PUSH_TRACE(BgL_symbol2156z00_1321); BUNSPEC; 
{ /* ./Ieee/port.scm 437 */
obj_t BgL_aux2155z00_1322;
{ /* ./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_zc3exitza31203za3Ieeezf2portze2scmza3446ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_23, BgL_portz00_437); 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_oldzd2outputzd2portz00_439); 
{ /* ./Ieee/port.scm 447 */
obj_t BgL_portz00_752;
if(
OUTPUT_PORTP(BgL_portz00_437))
{ /* ./Ieee/port.scm 447 */
BgL_portz00_752 = BgL_portz00_437; }  else 
{ /* ./Ieee/port.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4128z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_437, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18870))); 
exit( -1 );} 
BgL_resz00_440 = 
close_output_port(BgL_portz00_752); } 
{ /* ./Ieee/port.scm 447 */
bool_t BgL_testz00_2643;
{ /* ./Ieee/port.scm 447 */
obj_t BgL_auxz00_2644;
BgL_auxz00_2644 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1021z00_441); 
BgL_testz00_2643 = 
CBOOL(BgL_auxz00_2644); } 
if(BgL_testz00_2643)
{ /* ./Ieee/port.scm 447 */
obj_t BgL_arg1197z00_443;obj_t BgL_arg1198z00_444;
{ /* ./Ieee/port.scm 447 */
obj_t BgL_pairz00_753;
if(
PAIRP(BgL_val1021z00_441))
{ /* ./Ieee/port.scm 447 */
BgL_pairz00_753 = BgL_val1021z00_441; }  else 
{ /* ./Ieee/port.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4128z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1021z00_441, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18838))); 
exit( -1 );} 
BgL_arg1197z00_443 = 
CAR(BgL_pairz00_753); } 
{ /* ./Ieee/port.scm 447 */
obj_t BgL_pairz00_754;
if(
PAIRP(BgL_val1021z00_441))
{ /* ./Ieee/port.scm 447 */
BgL_pairz00_754 = BgL_val1021z00_441; }  else 
{ /* ./Ieee/port.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4128z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1021z00_441, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18838))); 
exit( -1 );} 
BgL_arg1198z00_444 = 
CDR(BgL_pairz00_754); } 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1197z00_443, BgL_arg1198z00_444); }  else 
{ /* ./Ieee/port.scm 447 */BgL_val1021z00_441; } } } 
BgL_aux2155z00_1322 = BgL_resz00_440; }  else 
{ /* ./Ieee/port.scm 438 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4129z00zz__r4_ports_6_10_1z00, BGl_string4107z00zz__r4_ports_6_10_1z00, BUNSPEC, "./Ieee/port.scm", ((long)18890)); 
BgL_aux2155z00_1322 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18939))); } } 
POP_TRACE(); 
return BgL_aux2155z00_1322;} } } } 
}



/* <exit:1203:Ieee/port.scm:446> */
obj_t BGl_zc3exitza31203za3Ieeezf2portze2scmza3446ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1513, obj_t BgL_portz00_1512)
{ 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;
{ /* ./Ieee/port.scm 443 */
obj_t BgL_auxz00_2667;
if(
OUTPUT_PORTP(BgL_portz00_1512))
{ /* ./Ieee/port.scm 443 */
BgL_auxz00_2667 = BgL_portz00_1512
; }  else 
{ /* ./Ieee/port.scm 443 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4130z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1512, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18757))); 
exit( -1 );} 
BGL_CURRENT_OUTPUT_PORT_SET(BgL_auxz00_2667); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1513, ((long)0)))
{ /* ./Ieee/port.scm 444 */
BgL_val1023z00_447 = 
PROCEDURE_ENTRY(BgL_thunkz00_1513)(BgL_thunkz00_1513, BEOA); }  else 
{ /* ./Ieee/port.scm 444 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4131z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1513, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18765))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1023z00_447;} } 
} } 
}



/* _with-output-to-string2351 */
obj_t BGl__withzd2outputzd2tozd2string2351zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1432, obj_t BgL_thunkz00_1433)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 436 */
{ /* ./Ieee/port.scm 437 */
obj_t BgL_auxz00_2682;
if(
PROCEDUREP(BgL_thunkz00_1433))
{ /* ./Ieee/port.scm 437 */
BgL_auxz00_2682 = BgL_thunkz00_1433
; }  else 
{ /* ./Ieee/port.scm 437 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4132z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1433, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)18554))); 
exit( -1 );} 
return 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2682);} } 
}



/* 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_symbol2160z00_1323;
BgL_symbol2160z00_1323 = BGl_symbol4133z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 455 */

PUSH_TRACE(BgL_symbol2160z00_1323); BUNSPEC; 
{ /* ./Ieee/port.scm 455 */
obj_t BgL_aux2159z00_1324;
{ /* ./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_zc3exitza31225za3Ieeezf2portze2scmza3464ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_24, BgL_portz00_448); 
BGL_CURRENT_ERROR_PORT_SET(BgL_oldzd2errorzd2portz00_450); 
{ /* ./Ieee/port.scm 465 */
obj_t BgL_portz00_759;
if(
OUTPUT_PORTP(BgL_portz00_448))
{ /* ./Ieee/port.scm 465 */
BgL_portz00_759 = BgL_portz00_448; }  else 
{ /* ./Ieee/port.scm 465 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4133z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_448, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19532))); 
exit( -1 );} 
BgL_resz00_451 = 
close_output_port(BgL_portz00_759); } 
{ /* ./Ieee/port.scm 465 */
bool_t BgL_testz00_2702;
{ /* ./Ieee/port.scm 465 */
obj_t BgL_auxz00_2703;
BgL_auxz00_2703 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1024z00_452); 
BgL_testz00_2702 = 
CBOOL(BgL_auxz00_2703); } 
if(BgL_testz00_2702)
{ /* ./Ieee/port.scm 465 */
obj_t BgL_arg1219z00_454;obj_t BgL_arg1220z00_455;
{ /* ./Ieee/port.scm 465 */
obj_t BgL_pairz00_760;
if(
PAIRP(BgL_val1024z00_452))
{ /* ./Ieee/port.scm 465 */
BgL_pairz00_760 = BgL_val1024z00_452; }  else 
{ /* ./Ieee/port.scm 465 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4133z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1024z00_452, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19500))); 
exit( -1 );} 
BgL_arg1219z00_454 = 
CAR(BgL_pairz00_760); } 
{ /* ./Ieee/port.scm 465 */
obj_t BgL_pairz00_761;
if(
PAIRP(BgL_val1024z00_452))
{ /* ./Ieee/port.scm 465 */
BgL_pairz00_761 = BgL_val1024z00_452; }  else 
{ /* ./Ieee/port.scm 465 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4133z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1024z00_452, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19500))); 
exit( -1 );} 
BgL_arg1220z00_455 = 
CDR(BgL_pairz00_761); } 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1219z00_454, BgL_arg1220z00_455); }  else 
{ /* ./Ieee/port.scm 465 */BgL_val1024z00_452; } } } 
BgL_aux2159z00_1324 = BgL_resz00_451; }  else 
{ /* ./Ieee/port.scm 456 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4134z00zz__r4_ports_6_10_1z00, BGl_string4107z00zz__r4_ports_6_10_1z00, BUNSPEC, "./Ieee/port.scm", ((long)19552)); 
BgL_aux2159z00_1324 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19600))); } } 
POP_TRACE(); 
return BgL_aux2159z00_1324;} } } } 
}



/* <exit:1225:Ieee/port.scm:464> */
obj_t BGl_zc3exitza31225za3Ieeezf2portze2scmza3464ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1511, obj_t BgL_portz00_1510)
{ 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;
{ /* ./Ieee/port.scm 461 */
obj_t BgL_auxz00_2726;
if(
OUTPUT_PORTP(BgL_portz00_1510))
{ /* ./Ieee/port.scm 461 */
BgL_auxz00_2726 = BgL_portz00_1510
; }  else 
{ /* ./Ieee/port.scm 461 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4135z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1510, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19421))); 
exit( -1 );} 
BGL_CURRENT_ERROR_PORT_SET(BgL_auxz00_2726); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1511, ((long)0)))
{ /* ./Ieee/port.scm 462 */
BgL_val1026z00_458 = 
PROCEDURE_ENTRY(BgL_thunkz00_1511)(BgL_thunkz00_1511, BEOA); }  else 
{ /* ./Ieee/port.scm 462 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4136z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1511, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19429))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1026z00_458;} } 
} } 
}



/* _with-error-to-string2353 */
obj_t BGl__withzd2errorzd2tozd2string2353zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1434, obj_t BgL_thunkz00_1435)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 454 */
{ /* ./Ieee/port.scm 455 */
obj_t BgL_auxz00_2741;
if(
PROCEDUREP(BgL_thunkz00_1435))
{ /* ./Ieee/port.scm 455 */
BgL_auxz00_2741 = BgL_thunkz00_1435
; }  else 
{ /* ./Ieee/port.scm 455 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4137z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1435, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19221))); 
exit( -1 );} 
return 
BGl_withzd2errorzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2741);} } 
}



/* 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_symbol2164z00_1325;
BgL_symbol2164z00_1325 = BGl_symbol4138z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 473 */

PUSH_TRACE(BgL_symbol2164z00_1325); BUNSPEC; 
{ /* ./Ieee/port.scm 473 */
obj_t BgL_aux2163z00_1326;
{ /* ./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_zc3exitza31248za3Ieeezf2portze2scmza3481ze3z93zz__r4_ports_6_10_1z00(BgL_thunkz00_26, BgL_portz00_459); 
BGL_CURRENT_ERROR_PORT_SET(BgL_oldzd2outputzd2portz00_461); 
{ /* ./Ieee/port.scm 482 */
obj_t BgL_portz00_767;
if(
OUTPUT_PORTP(BgL_portz00_459))
{ /* ./Ieee/port.scm 482 */
BgL_portz00_767 = BgL_portz00_459; }  else 
{ /* ./Ieee/port.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4138z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_459, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20174))); 
exit( -1 );} 
close_output_port(BgL_portz00_767); } 
{ /* ./Ieee/port.scm 482 */
bool_t BgL_testz00_2761;
{ /* ./Ieee/port.scm 482 */
obj_t BgL_auxz00_2762;
BgL_auxz00_2762 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1027z00_462); 
BgL_testz00_2761 = 
CBOOL(BgL_auxz00_2762); } 
if(BgL_testz00_2761)
{ /* ./Ieee/port.scm 482 */
obj_t BgL_arg1241z00_464;obj_t BgL_arg1243z00_465;
{ /* ./Ieee/port.scm 482 */
obj_t BgL_pairz00_768;
if(
PAIRP(BgL_val1027z00_462))
{ /* ./Ieee/port.scm 482 */
BgL_pairz00_768 = BgL_val1027z00_462; }  else 
{ /* ./Ieee/port.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4138z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1027z00_462, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20152))); 
exit( -1 );} 
BgL_arg1241z00_464 = 
CAR(BgL_pairz00_768); } 
{ /* ./Ieee/port.scm 482 */
obj_t BgL_pairz00_769;
if(
PAIRP(BgL_val1027z00_462))
{ /* ./Ieee/port.scm 482 */
BgL_pairz00_769 = BgL_val1027z00_462; }  else 
{ /* ./Ieee/port.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4138z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1027z00_462, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20152))); 
exit( -1 );} 
BgL_arg1243z00_465 = 
CDR(BgL_pairz00_769); } 
BgL_aux2163z00_1326 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1241z00_464, BgL_arg1243z00_465); }  else 
{ /* ./Ieee/port.scm 482 */
BgL_aux2163z00_1326 = BgL_val1027z00_462; } } } }  else 
{ /* ./Ieee/port.scm 474 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4139z00zz__r4_ports_6_10_1z00, BGl_string4076z00zz__r4_ports_6_10_1z00, BgL_stringz00_25, "./Ieee/port.scm", ((long)20183)); 
BgL_aux2163z00_1326 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20227))); } } 
POP_TRACE(); 
return BgL_aux2163z00_1326;} } } } 
}



/* <exit:1248:Ieee/port.scm:481> */
obj_t BGl_zc3exitza31248za3Ieeezf2portze2scmza3481ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1509, obj_t BgL_portz00_1508)
{ 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;
{ /* ./Ieee/port.scm 478 */
obj_t BgL_auxz00_2785;
if(
OUTPUT_PORTP(BgL_portz00_1508))
{ /* ./Ieee/port.scm 478 */
BgL_auxz00_2785 = BgL_portz00_1508
; }  else 
{ /* ./Ieee/port.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4140z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1508, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20072))); 
exit( -1 );} 
BGL_CURRENT_ERROR_PORT_SET(BgL_auxz00_2785); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1509, ((long)0)))
{ /* ./Ieee/port.scm 479 */
BgL_val1029z00_468 = 
PROCEDURE_ENTRY(BgL_thunkz00_1509)(BgL_thunkz00_1509, BEOA); }  else 
{ /* ./Ieee/port.scm 479 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4141z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1509, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20080))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1029z00_468;} } 
} } 
}



/* _with-error-to-file2355 */
obj_t BGl__withzd2errorzd2tozd2file2355zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1436, obj_t BgL_stringz00_1437, obj_t BgL_thunkz00_1438)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 472 */
{ /* ./Ieee/port.scm 473 */
obj_t BgL_auxz00_2806;obj_t BgL_auxz00_2800;
if(
PROCEDUREP(BgL_thunkz00_1438))
{ /* ./Ieee/port.scm 473 */
BgL_auxz00_2806 = BgL_thunkz00_1438
; }  else 
{ /* ./Ieee/port.scm 473 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4142z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1438, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19887))); 
exit( -1 );} 
if(
STRINGP(BgL_stringz00_1437))
{ /* ./Ieee/port.scm 473 */
BgL_auxz00_2800 = BgL_stringz00_1437
; }  else 
{ /* ./Ieee/port.scm 473 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4142z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1437, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)19887))); 
exit( -1 );} 
return 
BGl_withzd2errorzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_auxz00_2800, BgL_auxz00_2806);} } 
}



/* 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_symbol2168z00_1327;
BgL_symbol2168z00_1327 = BGl_symbol4143z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 489 */

PUSH_TRACE(BgL_symbol2168z00_1327); BUNSPEC; 
{ /* ./Ieee/port.scm 489 */
obj_t BgL_aux2167z00_1328;
{ /* ./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_zc3exitza31270za3Ieeezf2portze2scmza3494ze3z93zz__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_2817;
{ /* ./Ieee/port.scm 494 */
obj_t BgL_auxz00_2818;
BgL_auxz00_2818 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1030z00_470); 
BgL_testz00_2817 = 
CBOOL(BgL_auxz00_2818); } 
if(BgL_testz00_2817)
{ /* ./Ieee/port.scm 494 */
obj_t BgL_arg1262z00_472;obj_t BgL_arg1265z00_473;
{ /* ./Ieee/port.scm 494 */
obj_t BgL_pairz00_773;
if(
PAIRP(BgL_val1030z00_470))
{ /* ./Ieee/port.scm 494 */
BgL_pairz00_773 = BgL_val1030z00_470; }  else 
{ /* ./Ieee/port.scm 494 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4143z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1030z00_470, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20637))); 
exit( -1 );} 
BgL_arg1262z00_472 = 
CAR(BgL_pairz00_773); } 
{ /* ./Ieee/port.scm 494 */
obj_t BgL_pairz00_774;
if(
PAIRP(BgL_val1030z00_470))
{ /* ./Ieee/port.scm 494 */
BgL_pairz00_774 = BgL_val1030z00_470; }  else 
{ /* ./Ieee/port.scm 494 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4143z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_val1030z00_470, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20637))); 
exit( -1 );} 
BgL_arg1265z00_473 = 
CDR(BgL_pairz00_774); } 
BgL_aux2167z00_1328 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1262z00_472, BgL_arg1265z00_473); }  else 
{ /* ./Ieee/port.scm 494 */
BgL_aux2167z00_1328 = BgL_val1030z00_470; } } } } 
POP_TRACE(); 
return BgL_aux2167z00_1328;} } } } 
}



/* <exit:1270:Ieee/port.scm:494> */
obj_t BGl_zc3exitza31270za3Ieeezf2portze2scmza3494ze3z93zz__r4_ports_6_10_1z00(obj_t BgL_thunkz00_1507, obj_t BgL_portz00_1506)
{ 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_1506); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_1507, ((long)0)))
{ /* ./Ieee/port.scm 493 */
BgL_val1032z00_476 = 
PROCEDURE_ENTRY(BgL_thunkz00_1507)(BgL_thunkz00_1507, BEOA); }  else 
{ /* ./Ieee/port.scm 493 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4144z00zz__r4_ports_6_10_1z00, BGl_list4102z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1507, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20626))); 
FAILURE(BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00,BGl_symbol4073z00zz__r4_ports_6_10_1z00);} 
POP_EXIT(); 
return BgL_val1032z00_476;} } 
} } 
}



/* _with-error-to-port2357 */
obj_t BGl__withzd2errorzd2tozd2port2357zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1439, obj_t BgL_portz00_1440, obj_t BgL_thunkz00_1441)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 488 */
{ /* ./Ieee/port.scm 489 */
obj_t BgL_auxz00_2853;obj_t BgL_auxz00_2847;
if(
PROCEDUREP(BgL_thunkz00_1441))
{ /* ./Ieee/port.scm 489 */
BgL_auxz00_2853 = BgL_thunkz00_1441
; }  else 
{ /* ./Ieee/port.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4145z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_thunkz00_1441, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20506))); 
exit( -1 );} 
if(
OUTPUT_PORTP(BgL_portz00_1440))
{ /* ./Ieee/port.scm 489 */
BgL_auxz00_2847 = BgL_portz00_1440
; }  else 
{ /* ./Ieee/port.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4145z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1440, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)20506))); 
exit( -1 );} 
return 
BGl_withzd2errorzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2847, BgL_auxz00_2853);} } 
}



/* 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_symbol2172z00_1329;
BgL_symbol2172z00_1329 = BGl_symbol4146z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 517 */

PUSH_TRACE(BgL_symbol2172z00_1329); BUNSPEC; 
{ /* ./Ieee/port.scm 517 */
obj_t BgL_aux2171z00_1330;
{ /* ./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 519 */
obj_t BgL_pairz00_776;
if(
PAIRP(BgL_bufsiza7za7_30))
{ /* ./Ieee/port.scm 519 */
BgL_pairz00_776 = BgL_bufsiza7za7_30; }  else 
{ /* ./Ieee/port.scm 519 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4098z00zz__r4_ports_6_10_1z00, BgL_bufsiza7za7_30, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22281))); 
exit( -1 );} 
BgL_siza7eza7_477 = 
CAR(BgL_pairz00_776); } 
if(
INTEGERP(BgL_siza7eza7_477))
{ /* ./Ieee/port.scm 522 */
bool_t BgL_testz00_2872;
{ /* ./Ieee/port.scm 523 */
int BgL_auxz00_2873;
BgL_auxz00_2873 = 
(int)(((long)5)); 
BgL_testz00_2872 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string4147z00zz__r4_ports_6_10_1z00, BgL_auxz00_2873); } 
if(BgL_testz00_2872)
{ /* ./Ieee/port.scm 522 */
{ /* ./Ieee/port.scm 531 */
obj_t BgL_arg1280z00_480;
{ /* ./Ieee/port.scm 531 */
int BgL_arg1284z00_482;
BgL_arg1284z00_482 = 
STRING_LENGTH(BgL_stringz00_29); 
{ /* ./Ieee/port.scm 531 */
obj_t BgL_res2071z00_810;
{ /* ./Ieee/port.scm 531 */
int BgL_startz00_783;
BgL_startz00_783 = 
(int)(((long)5)); 
{ /* ./Ieee/port.scm 531 */
bool_t BgL_test1900z00_785;
{ /* ./Ieee/port.scm 531 */
bool_t BgL_testz00_2878;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2881;long BgL_auxz00_2879;
BgL_auxz00_2881 = 
(long)(BgL_startz00_783); 
BgL_auxz00_2879 = 
(long)(BgL_arg1284z00_482); 
BgL_testz00_2878 = 
(BgL_auxz00_2879>=BgL_auxz00_2881); } 
if(BgL_testz00_2878)
{ /* ./Ieee/port.scm 531 */
bool_t BgL_testz00_2884;
{ /* ./Ieee/port.scm 531 */
int BgL_auxz00_2885;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2886;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2887;
BgL_auxz00_2887 = 
(long)(BgL_arg1284z00_482); 
BgL_auxz00_2886 = 
(BgL_auxz00_2887+((long)1)); } 
BgL_auxz00_2885 = 
(int)(BgL_auxz00_2886); } 
BgL_testz00_2884 = 
BOUND_CHECK(BgL_startz00_783, BgL_auxz00_2885); } 
if(BgL_testz00_2884)
{ /* ./Ieee/port.scm 531 */
int BgL_auxz00_2892;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2893;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2894;
BgL_auxz00_2894 = 
(long)(BgL_arg1284z00_482); 
BgL_auxz00_2893 = 
(BgL_auxz00_2894+((long)1)); } 
BgL_auxz00_2892 = 
(int)(BgL_auxz00_2893); } 
BgL_test1900z00_785 = 
BOUND_CHECK(BgL_arg1284z00_482, BgL_auxz00_2892); }  else 
{ /* ./Ieee/port.scm 531 */
BgL_test1900z00_785 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 531 */
BgL_test1900z00_785 = ((bool_t)0); } } 
if(BgL_test1900z00_785)
{ /* ./Ieee/port.scm 531 */
BgL_res2071z00_810 = 
c_substring(BgL_stringz00_29, BgL_startz00_783, BgL_arg1284z00_482); }  else 
{ /* ./Ieee/port.scm 531 */
{ /* ./Ieee/port.scm 531 */
obj_t BgL_arg1906z00_796;
{ /* ./Ieee/port.scm 531 */
obj_t BgL_auxz00_2903;obj_t BgL_auxz00_2901;
BgL_auxz00_2903 = 
BINT(BgL_arg1284z00_482); 
BgL_auxz00_2901 = 
BINT(BgL_startz00_783); 
BgL_arg1906z00_796 = 
MAKE_PAIR(BgL_auxz00_2901, BgL_auxz00_2903); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_796, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 531 */
obj_t BgL_aux3205z00_1682;
BgL_aux3205z00_1682 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22667))); 
if(
STRINGP(BgL_aux3205z00_1682))
{ /* ./Ieee/port.scm 531 */
BgL_res2071z00_810 = BgL_aux3205z00_1682; }  else 
{ /* ./Ieee/port.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3205z00_1682, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22667))); 
exit( -1 );} } } } } 
BgL_arg1280z00_480 = BgL_res2071z00_810; } } 
BgL_aux2171z00_1330 = 
open_input_file(BgL_arg1280z00_480, BgL_siza7eza7_477); } }  else 
{ /* ./Ieee/port.scm 535 */
bool_t BgL_testz00_2915;
{ /* ./Ieee/port.scm 537 */
int BgL_auxz00_2916;
BgL_auxz00_2916 = 
(int)(((long)2)); 
BgL_testz00_2915 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string4150z00zz__r4_ports_6_10_1z00, BgL_auxz00_2916); } 
if(BgL_testz00_2915)
{ /* ./Ieee/port.scm 535 */
{ /* ./Ieee/port.scm 531 */
obj_t BgL_arg1289z00_484;
{ /* ./Ieee/port.scm 531 */
int BgL_arg1293z00_486;
BgL_arg1293z00_486 = 
STRING_LENGTH(BgL_stringz00_29); 
{ /* ./Ieee/port.scm 531 */
obj_t BgL_res2072z00_843;
{ /* ./Ieee/port.scm 531 */
int BgL_startz00_816;
BgL_startz00_816 = 
(int)(((long)2)); 
{ /* ./Ieee/port.scm 531 */
bool_t BgL_test1900z00_818;
{ /* ./Ieee/port.scm 531 */
bool_t BgL_testz00_2921;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2924;long BgL_auxz00_2922;
BgL_auxz00_2924 = 
(long)(BgL_startz00_816); 
BgL_auxz00_2922 = 
(long)(BgL_arg1293z00_486); 
BgL_testz00_2921 = 
(BgL_auxz00_2922>=BgL_auxz00_2924); } 
if(BgL_testz00_2921)
{ /* ./Ieee/port.scm 531 */
bool_t BgL_testz00_2927;
{ /* ./Ieee/port.scm 531 */
int BgL_auxz00_2928;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2929;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2930;
BgL_auxz00_2930 = 
(long)(BgL_arg1293z00_486); 
BgL_auxz00_2929 = 
(BgL_auxz00_2930+((long)1)); } 
BgL_auxz00_2928 = 
(int)(BgL_auxz00_2929); } 
BgL_testz00_2927 = 
BOUND_CHECK(BgL_startz00_816, BgL_auxz00_2928); } 
if(BgL_testz00_2927)
{ /* ./Ieee/port.scm 531 */
int BgL_auxz00_2935;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2936;
{ /* ./Ieee/port.scm 531 */
long BgL_auxz00_2937;
BgL_auxz00_2937 = 
(long)(BgL_arg1293z00_486); 
BgL_auxz00_2936 = 
(BgL_auxz00_2937+((long)1)); } 
BgL_auxz00_2935 = 
(int)(BgL_auxz00_2936); } 
BgL_test1900z00_818 = 
BOUND_CHECK(BgL_arg1293z00_486, BgL_auxz00_2935); }  else 
{ /* ./Ieee/port.scm 531 */
BgL_test1900z00_818 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 531 */
BgL_test1900z00_818 = ((bool_t)0); } } 
if(BgL_test1900z00_818)
{ /* ./Ieee/port.scm 531 */
BgL_res2072z00_843 = 
c_substring(BgL_stringz00_29, BgL_startz00_816, BgL_arg1293z00_486); }  else 
{ /* ./Ieee/port.scm 531 */
{ /* ./Ieee/port.scm 531 */
obj_t BgL_arg1906z00_829;
{ /* ./Ieee/port.scm 531 */
obj_t BgL_auxz00_2946;obj_t BgL_auxz00_2944;
BgL_auxz00_2946 = 
BINT(BgL_arg1293z00_486); 
BgL_auxz00_2944 = 
BINT(BgL_startz00_816); 
BgL_arg1906z00_829 = 
MAKE_PAIR(BgL_auxz00_2944, BgL_auxz00_2946); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_829, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 531 */
obj_t BgL_aux3233z00_1684;
BgL_aux3233z00_1684 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22667))); 
if(
STRINGP(BgL_aux3233z00_1684))
{ /* ./Ieee/port.scm 531 */
BgL_res2072z00_843 = BgL_aux3233z00_1684; }  else 
{ /* ./Ieee/port.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3233z00_1684, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22667))); 
exit( -1 );} } } } } 
BgL_arg1289z00_484 = BgL_res2072z00_843; } } 
BgL_aux2171z00_1330 = 
open_input_pipe(BgL_arg1289z00_484, BgL_siza7eza7_477); } }  else 
{ /* ./Ieee/port.scm 535 */
bool_t BgL_testz00_2958;
{ /* ./Ieee/port.scm 535 */
int BgL_auxz00_2959;
BgL_auxz00_2959 = 
(int)(((long)5)); 
BgL_testz00_2958 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string4151z00zz__r4_ports_6_10_1z00, BgL_auxz00_2959); } 
if(BgL_testz00_2958)
{ /* ./Ieee/port.scm 535 */
{ /* ./Ieee/port.scm 537 */
obj_t BgL_arg1298z00_488;
{ /* ./Ieee/port.scm 537 */
int BgL_arg1302z00_490;
BgL_arg1302z00_490 = 
STRING_LENGTH(BgL_stringz00_29); 
{ /* ./Ieee/port.scm 537 */
obj_t BgL_res2073z00_876;
{ /* ./Ieee/port.scm 537 */
int BgL_startz00_849;
BgL_startz00_849 = 
(int)(((long)5)); 
{ /* ./Ieee/port.scm 537 */
bool_t BgL_test1900z00_851;
{ /* ./Ieee/port.scm 537 */
bool_t BgL_testz00_2964;
{ /* ./Ieee/port.scm 537 */
long BgL_auxz00_2967;long BgL_auxz00_2965;
BgL_auxz00_2967 = 
(long)(BgL_startz00_849); 
BgL_auxz00_2965 = 
(long)(BgL_arg1302z00_490); 
BgL_testz00_2964 = 
(BgL_auxz00_2965>=BgL_auxz00_2967); } 
if(BgL_testz00_2964)
{ /* ./Ieee/port.scm 537 */
bool_t BgL_testz00_2970;
{ /* ./Ieee/port.scm 537 */
int BgL_auxz00_2971;
{ /* ./Ieee/port.scm 537 */
long BgL_auxz00_2972;
{ /* ./Ieee/port.scm 537 */
long BgL_auxz00_2973;
BgL_auxz00_2973 = 
(long)(BgL_arg1302z00_490); 
BgL_auxz00_2972 = 
(BgL_auxz00_2973+((long)1)); } 
BgL_auxz00_2971 = 
(int)(BgL_auxz00_2972); } 
BgL_testz00_2970 = 
BOUND_CHECK(BgL_startz00_849, BgL_auxz00_2971); } 
if(BgL_testz00_2970)
{ /* ./Ieee/port.scm 537 */
int BgL_auxz00_2978;
{ /* ./Ieee/port.scm 537 */
long BgL_auxz00_2979;
{ /* ./Ieee/port.scm 537 */
long BgL_auxz00_2980;
BgL_auxz00_2980 = 
(long)(BgL_arg1302z00_490); 
BgL_auxz00_2979 = 
(BgL_auxz00_2980+((long)1)); } 
BgL_auxz00_2978 = 
(int)(BgL_auxz00_2979); } 
BgL_test1900z00_851 = 
BOUND_CHECK(BgL_arg1302z00_490, BgL_auxz00_2978); }  else 
{ /* ./Ieee/port.scm 537 */
BgL_test1900z00_851 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 537 */
BgL_test1900z00_851 = ((bool_t)0); } } 
if(BgL_test1900z00_851)
{ /* ./Ieee/port.scm 537 */
BgL_res2073z00_876 = 
c_substring(BgL_stringz00_29, BgL_startz00_849, BgL_arg1302z00_490); }  else 
{ /* ./Ieee/port.scm 537 */
{ /* ./Ieee/port.scm 537 */
obj_t BgL_arg1906z00_862;
{ /* ./Ieee/port.scm 537 */
obj_t BgL_auxz00_2989;obj_t BgL_auxz00_2987;
BgL_auxz00_2989 = 
BINT(BgL_arg1302z00_490); 
BgL_auxz00_2987 = 
BINT(BgL_startz00_849); 
BgL_arg1906z00_862 = 
MAKE_PAIR(BgL_auxz00_2987, BgL_auxz00_2989); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_862, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 537 */
obj_t BgL_aux3261z00_1686;
BgL_aux3261z00_1686 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22857))); 
if(
STRINGP(BgL_aux3261z00_1686))
{ /* ./Ieee/port.scm 537 */
BgL_res2073z00_876 = BgL_aux3261z00_1686; }  else 
{ /* ./Ieee/port.scm 537 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3261z00_1686, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22857))); 
exit( -1 );} } } } } 
BgL_arg1298z00_488 = BgL_res2073z00_876; } } 
BgL_aux2171z00_1330 = 
open_input_pipe(BgL_arg1298z00_488, BgL_siza7eza7_477); } }  else 
{ /* ./Ieee/port.scm 541 */
bool_t BgL_testz00_3001;
{ /* ./Ieee/port.scm 541 */
int BgL_auxz00_3002;
BgL_auxz00_3002 = 
(int)(((long)5)); 
BgL_testz00_3001 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string4152z00zz__r4_ports_6_10_1z00, BgL_auxz00_3002); } 
if(BgL_testz00_3001)
{ /* ./Ieee/port.scm 541 */
{ /* ./Ieee/port.scm 542 */
obj_t BgL_arg1307z00_492;
{ /* ./Ieee/port.scm 542 */
int BgL_arg1311z00_494;
BgL_arg1311z00_494 = 
STRING_LENGTH(BgL_stringz00_29); 
{ /* ./Ieee/port.scm 542 */
obj_t BgL_res2074z00_909;
{ /* ./Ieee/port.scm 542 */
int BgL_startz00_882;
BgL_startz00_882 = 
(int)(((long)5)); 
{ /* ./Ieee/port.scm 542 */
bool_t BgL_test1900z00_884;
{ /* ./Ieee/port.scm 542 */
bool_t BgL_testz00_3007;
{ /* ./Ieee/port.scm 542 */
long BgL_auxz00_3010;long BgL_auxz00_3008;
BgL_auxz00_3010 = 
(long)(BgL_startz00_882); 
BgL_auxz00_3008 = 
(long)(BgL_arg1311z00_494); 
BgL_testz00_3007 = 
(BgL_auxz00_3008>=BgL_auxz00_3010); } 
if(BgL_testz00_3007)
{ /* ./Ieee/port.scm 542 */
bool_t BgL_testz00_3013;
{ /* ./Ieee/port.scm 542 */
int BgL_auxz00_3014;
{ /* ./Ieee/port.scm 542 */
long BgL_auxz00_3015;
{ /* ./Ieee/port.scm 542 */
long BgL_auxz00_3016;
BgL_auxz00_3016 = 
(long)(BgL_arg1311z00_494); 
BgL_auxz00_3015 = 
(BgL_auxz00_3016+((long)1)); } 
BgL_auxz00_3014 = 
(int)(BgL_auxz00_3015); } 
BgL_testz00_3013 = 
BOUND_CHECK(BgL_startz00_882, BgL_auxz00_3014); } 
if(BgL_testz00_3013)
{ /* ./Ieee/port.scm 542 */
int BgL_auxz00_3021;
{ /* ./Ieee/port.scm 542 */
long BgL_auxz00_3022;
{ /* ./Ieee/port.scm 542 */
long BgL_auxz00_3023;
BgL_auxz00_3023 = 
(long)(BgL_arg1311z00_494); 
BgL_auxz00_3022 = 
(BgL_auxz00_3023+((long)1)); } 
BgL_auxz00_3021 = 
(int)(BgL_auxz00_3022); } 
BgL_test1900z00_884 = 
BOUND_CHECK(BgL_arg1311z00_494, BgL_auxz00_3021); }  else 
{ /* ./Ieee/port.scm 542 */
BgL_test1900z00_884 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 542 */
BgL_test1900z00_884 = ((bool_t)0); } } 
if(BgL_test1900z00_884)
{ /* ./Ieee/port.scm 542 */
BgL_res2074z00_909 = 
c_substring(BgL_stringz00_29, BgL_startz00_882, BgL_arg1311z00_494); }  else 
{ /* ./Ieee/port.scm 542 */
{ /* ./Ieee/port.scm 542 */
obj_t BgL_arg1906z00_895;
{ /* ./Ieee/port.scm 542 */
obj_t BgL_auxz00_3032;obj_t BgL_auxz00_3030;
BgL_auxz00_3032 = 
BINT(BgL_arg1311z00_494); 
BgL_auxz00_3030 = 
BINT(BgL_startz00_882); 
BgL_arg1906z00_895 = 
MAKE_PAIR(BgL_auxz00_3030, BgL_auxz00_3032); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_895, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 542 */
obj_t BgL_aux3289z00_1688;
BgL_aux3289z00_1688 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)23039))); 
if(
STRINGP(BgL_aux3289z00_1688))
{ /* ./Ieee/port.scm 542 */
BgL_res2074z00_909 = BgL_aux3289z00_1688; }  else 
{ /* ./Ieee/port.scm 542 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3289z00_1688, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)23039))); 
exit( -1 );} } } } } 
BgL_arg1307z00_492 = BgL_res2074z00_909; } } 
BgL_aux2171z00_1330 = 
BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(BgL_arg1307z00_492); } }  else 
{ /* ./Ieee/port.scm 546 */
bool_t BgL_testz00_3044;
{ /* ./Ieee/port.scm 546 */
int BgL_auxz00_3045;
BgL_auxz00_3045 = 
(int)(((long)4)); 
BgL_testz00_3044 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string4153z00zz__r4_ports_6_10_1z00, BgL_auxz00_3045); } 
if(BgL_testz00_3044)
{ /* ./Ieee/port.scm 546 */
{ /* ./Ieee/port.scm 548 */
obj_t BgL_arg1316z00_496;
{ /* ./Ieee/port.scm 548 */
int BgL_arg1320z00_498;
BgL_arg1320z00_498 = 
STRING_LENGTH(BgL_stringz00_29); 
{ /* ./Ieee/port.scm 548 */
obj_t BgL_res2075z00_942;
{ /* ./Ieee/port.scm 548 */
int BgL_startz00_915;
BgL_startz00_915 = 
(int)(((long)4)); 
{ /* ./Ieee/port.scm 548 */
bool_t BgL_test1900z00_917;
{ /* ./Ieee/port.scm 548 */
bool_t BgL_testz00_3050;
{ /* ./Ieee/port.scm 548 */
long BgL_auxz00_3053;long BgL_auxz00_3051;
BgL_auxz00_3053 = 
(long)(BgL_startz00_915); 
BgL_auxz00_3051 = 
(long)(BgL_arg1320z00_498); 
BgL_testz00_3050 = 
(BgL_auxz00_3051>=BgL_auxz00_3053); } 
if(BgL_testz00_3050)
{ /* ./Ieee/port.scm 548 */
bool_t BgL_testz00_3056;
{ /* ./Ieee/port.scm 548 */
int BgL_auxz00_3057;
{ /* ./Ieee/port.scm 548 */
long BgL_auxz00_3058;
{ /* ./Ieee/port.scm 548 */
long BgL_auxz00_3059;
BgL_auxz00_3059 = 
(long)(BgL_arg1320z00_498); 
BgL_auxz00_3058 = 
(BgL_auxz00_3059+((long)1)); } 
BgL_auxz00_3057 = 
(int)(BgL_auxz00_3058); } 
BgL_testz00_3056 = 
BOUND_CHECK(BgL_startz00_915, BgL_auxz00_3057); } 
if(BgL_testz00_3056)
{ /* ./Ieee/port.scm 548 */
int BgL_auxz00_3064;
{ /* ./Ieee/port.scm 548 */
long BgL_auxz00_3065;
{ /* ./Ieee/port.scm 548 */
long BgL_auxz00_3066;
BgL_auxz00_3066 = 
(long)(BgL_arg1320z00_498); 
BgL_auxz00_3065 = 
(BgL_auxz00_3066+((long)1)); } 
BgL_auxz00_3064 = 
(int)(BgL_auxz00_3065); } 
BgL_test1900z00_917 = 
BOUND_CHECK(BgL_arg1320z00_498, BgL_auxz00_3064); }  else 
{ /* ./Ieee/port.scm 548 */
BgL_test1900z00_917 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 548 */
BgL_test1900z00_917 = ((bool_t)0); } } 
if(BgL_test1900z00_917)
{ /* ./Ieee/port.scm 548 */
BgL_res2075z00_942 = 
c_substring(BgL_stringz00_29, BgL_startz00_915, BgL_arg1320z00_498); }  else 
{ /* ./Ieee/port.scm 548 */
{ /* ./Ieee/port.scm 548 */
obj_t BgL_arg1906z00_928;
{ /* ./Ieee/port.scm 548 */
obj_t BgL_auxz00_3075;obj_t BgL_auxz00_3073;
BgL_auxz00_3075 = 
BINT(BgL_arg1320z00_498); 
BgL_auxz00_3073 = 
BINT(BgL_startz00_915); 
BgL_arg1906z00_928 = 
MAKE_PAIR(BgL_auxz00_3073, BgL_auxz00_3075); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_928, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 548 */
obj_t BgL_aux3317z00_1690;
BgL_aux3317z00_1690 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)23253))); 
if(
STRINGP(BgL_aux3317z00_1690))
{ /* ./Ieee/port.scm 548 */
BgL_res2075z00_942 = BgL_aux3317z00_1690; }  else 
{ /* ./Ieee/port.scm 548 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3317z00_1690, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)23253))); 
exit( -1 );} } } } } 
BgL_arg1316z00_496 = BgL_res2075z00_942; } } 
BgL_aux2171z00_1330 = 
BGl_openzd2inputzd2socketz00zz__r4_ports_6_10_1z00(BgL_arg1316z00_496); } }  else 
{ /* ./Ieee/port.scm 551 */
bool_t BgL_testz00_3087;
{ /* ./Ieee/port.scm 551 */
int BgL_auxz00_3088;
BgL_auxz00_3088 = 
(int)(((long)7)); 
BgL_testz00_3087 = 
bigloo_strncmp(BgL_stringz00_29, BGl_string4154z00zz__r4_ports_6_10_1z00, BgL_auxz00_3088); } 
if(BgL_testz00_3087)
{ /* ./Ieee/port.scm 551 */
{ /* ./Ieee/port.scm 553 */
obj_t BgL_arg1326z00_500;
{ /* ./Ieee/port.scm 553 */
int BgL_arg1330z00_502;
BgL_arg1330z00_502 = 
STRING_LENGTH(BgL_stringz00_29); 
{ /* ./Ieee/port.scm 553 */
obj_t BgL_res2076z00_975;
{ /* ./Ieee/port.scm 553 */
int BgL_startz00_948;
BgL_startz00_948 = 
(int)(((long)7)); 
{ /* ./Ieee/port.scm 553 */
bool_t BgL_test1900z00_950;
{ /* ./Ieee/port.scm 553 */
bool_t BgL_testz00_3093;
{ /* ./Ieee/port.scm 553 */
long BgL_auxz00_3096;long BgL_auxz00_3094;
BgL_auxz00_3096 = 
(long)(BgL_startz00_948); 
BgL_auxz00_3094 = 
(long)(BgL_arg1330z00_502); 
BgL_testz00_3093 = 
(BgL_auxz00_3094>=BgL_auxz00_3096); } 
if(BgL_testz00_3093)
{ /* ./Ieee/port.scm 553 */
bool_t BgL_testz00_3099;
{ /* ./Ieee/port.scm 553 */
int BgL_auxz00_3100;
{ /* ./Ieee/port.scm 553 */
long BgL_auxz00_3101;
{ /* ./Ieee/port.scm 553 */
long BgL_auxz00_3102;
BgL_auxz00_3102 = 
(long)(BgL_arg1330z00_502); 
BgL_auxz00_3101 = 
(BgL_auxz00_3102+((long)1)); } 
BgL_auxz00_3100 = 
(int)(BgL_auxz00_3101); } 
BgL_testz00_3099 = 
BOUND_CHECK(BgL_startz00_948, BgL_auxz00_3100); } 
if(BgL_testz00_3099)
{ /* ./Ieee/port.scm 553 */
int BgL_auxz00_3107;
{ /* ./Ieee/port.scm 553 */
long BgL_auxz00_3108;
{ /* ./Ieee/port.scm 553 */
long BgL_auxz00_3109;
BgL_auxz00_3109 = 
(long)(BgL_arg1330z00_502); 
BgL_auxz00_3108 = 
(BgL_auxz00_3109+((long)1)); } 
BgL_auxz00_3107 = 
(int)(BgL_auxz00_3108); } 
BgL_test1900z00_950 = 
BOUND_CHECK(BgL_arg1330z00_502, BgL_auxz00_3107); }  else 
{ /* ./Ieee/port.scm 553 */
BgL_test1900z00_950 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 553 */
BgL_test1900z00_950 = ((bool_t)0); } } 
if(BgL_test1900z00_950)
{ /* ./Ieee/port.scm 553 */
BgL_res2076z00_975 = 
c_substring(BgL_stringz00_29, BgL_startz00_948, BgL_arg1330z00_502); }  else 
{ /* ./Ieee/port.scm 553 */
{ /* ./Ieee/port.scm 553 */
obj_t BgL_arg1906z00_961;
{ /* ./Ieee/port.scm 553 */
obj_t BgL_auxz00_3118;obj_t BgL_auxz00_3116;
BgL_auxz00_3118 = 
BINT(BgL_arg1330z00_502); 
BgL_auxz00_3116 = 
BINT(BgL_startz00_948); 
BgL_arg1906z00_961 = 
MAKE_PAIR(BgL_auxz00_3116, BgL_auxz00_3118); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_961, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 553 */
obj_t BgL_aux3345z00_1692;
BgL_aux3345z00_1692 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)23454))); 
if(
STRINGP(BgL_aux3345z00_1692))
{ /* ./Ieee/port.scm 553 */
BgL_res2076z00_975 = BgL_aux3345z00_1692; }  else 
{ /* ./Ieee/port.scm 553 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4146z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3345z00_1692, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)23454))); 
exit( -1 );} } } } } 
BgL_arg1326z00_500 = BgL_res2076z00_975; } } 
BgL_aux2171z00_1330 = 
open_input_string(BgL_arg1326z00_500); } }  else 
{ /* ./Ieee/port.scm 551 */
BgL_aux2171z00_1330 = 
open_input_file(BgL_stringz00_29, BgL_siza7eza7_477); } } } } } } }  else 
{ /* ./Ieee/port.scm 520 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4155z00zz__r4_ports_6_10_1z00, BGl_string4156z00zz__r4_ports_6_10_1z00, BgL_siza7eza7_477, "./Ieee/port.scm", ((long)22321)); 
BgL_aux2171z00_1330 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22359))); } } 
POP_TRACE(); 
return BgL_aux2171z00_1330;} } } } 
}



/* _open-input-file2359 */
obj_t BGl__openzd2inputzd2file2359z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1442, obj_t BgL_stringz00_1443, obj_t BgL_bufsiza7za7_1444)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 516 */
{ /* ./Ieee/port.scm 517 */
obj_t BgL_auxz00_3135;
if(
STRINGP(BgL_stringz00_1443))
{ /* ./Ieee/port.scm 517 */
BgL_auxz00_3135 = BgL_stringz00_1443
; }  else 
{ /* ./Ieee/port.scm 517 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4157z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1443, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)22210))); 
exit( -1 );} 
return 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_auxz00_3135, BgL_bufsiza7za7_1444);} } 
}



/* 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 570 */
obj_t BgL_symbol2176z00_1331;
BgL_symbol2176z00_1331 = BGl_symbol4158z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 570 */

PUSH_TRACE(BgL_symbol2176z00_1331); BUNSPEC; 
{ /* ./Ieee/port.scm 570 */
obj_t BgL_aux2175z00_1332;
{ /* ./Ieee/port.scm 572 */
bool_t BgL_testz00_3143;
{ /* ./Ieee/port.scm 572 */
int BgL_auxz00_3144;
BgL_auxz00_3144 = 
(int)(((long)2)); 
BgL_testz00_3143 = 
bigloo_strncmp(BgL_stringz00_31, BGl_string4159z00zz__r4_ports_6_10_1z00, BgL_auxz00_3144); } 
if(BgL_testz00_3143)
{ /* ./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_3148;
{ /* ./Ieee/port.scm 578 */
long BgL_auxz00_3149;
BgL_auxz00_3149 = 
(long)(BgL_lenz00_506); 
BgL_testz00_3148 = 
(BgL_rz00_507>=BgL_auxz00_3149); } 
if(BgL_testz00_3148)
{ /* ./Ieee/port.scm 578 */
BgL_aux2175z00_1332 = BFALSE; }  else 
{ /* ./Ieee/port.scm 580 */
bool_t BgL_test1349z00_511;
{ /* ./Ieee/port.scm 580 */
unsigned char BgL_arg1380z00_526;
{ /* ./Ieee/port.scm 580 */
unsigned char BgL_res2077z00_993;
{ /* ./Ieee/port.scm 580 */
int BgL_kz00_986;
BgL_kz00_986 = 
(int)(BgL_rz00_507); 
{ /* ./Ieee/port.scm 580 */
bool_t BgL_testz00_3153;
{ /* ./Ieee/port.scm 580 */
int BgL_auxz00_3154;
BgL_auxz00_3154 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_testz00_3153 = 
BOUND_CHECK(BgL_kz00_986, BgL_auxz00_3154); } 
if(BgL_testz00_3153)
{ /* ./Ieee/port.scm 580 */
BgL_res2077z00_993 = 
STRING_REF(BgL_stringz00_31, BgL_kz00_986); }  else 
{ /* ./Ieee/port.scm 580 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4160z00zz__r4_ports_6_10_1z00, BGl_string4161z00zz__r4_ports_6_10_1z00, 
BINT(BgL_kz00_986), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/port.scm 580 */
obj_t BgL_auxz00_3160;
{ /* ./Ieee/port.scm 580 */
obj_t BgL_aux3385z00_1696;
BgL_aux3385z00_1696 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24465))); 
if(
CHARP(BgL_aux3385z00_1696))
{ /* ./Ieee/port.scm 580 */
BgL_auxz00_3160 = BgL_aux3385z00_1696
; }  else 
{ /* ./Ieee/port.scm 580 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4162z00zz__r4_ports_6_10_1z00, BgL_aux3385z00_1696, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24465))); 
exit( -1 );} } 
BgL_res2077z00_993 = 
(unsigned char)CCHAR(BgL_auxz00_3160); } } } } 
BgL_arg1380z00_526 = BgL_res2077z00_993; } 
BgL_test1349z00_511 = 
(BgL_arg1380z00_526==((unsigned char)'/')); } 
if(BgL_test1349z00_511)
{ /* ./Ieee/port.scm 580 */
{ /* ./Ieee/port.scm 582 */
bool_t BgL_test1350z00_512;
BgL_test1350z00_512 = 
INTEGERP(BgL_pstartz00_508); 
if(BgL_test1350z00_512)
{ /* ./Ieee/port.scm 583 */
obj_t BgL_serverz00_513;long BgL_portz00_514;obj_t BgL_filez00_515;
{ /* ./Ieee/port.scm 583 */
obj_t BgL_res2078z00_1025;
{ /* ./Ieee/port.scm 583 */
int BgL_startz00_998;int BgL_endz00_999;
BgL_startz00_998 = 
(int)(((long)2)); 
{ /* ./Ieee/port.scm 583 */
obj_t BgL_auxz00_3174;
if(BgL_test1350z00_512)
{ /* ./Ieee/port.scm 583 */
BgL_auxz00_3174 = BgL_pstartz00_508
; }  else 
{ /* ./Ieee/port.scm 583 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4163z00zz__r4_ports_6_10_1z00, BgL_pstartz00_508, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24575))); 
exit( -1 );} 
BgL_endz00_999 = 
CINT(BgL_auxz00_3174); } 
{ /* ./Ieee/port.scm 583 */
bool_t BgL_test1900z00_1000;
{ /* ./Ieee/port.scm 583 */
bool_t BgL_testz00_3180;
{ /* ./Ieee/port.scm 583 */
long BgL_auxz00_3183;long BgL_auxz00_3181;
BgL_auxz00_3183 = 
(long)(BgL_startz00_998); 
BgL_auxz00_3181 = 
(long)(BgL_endz00_999); 
BgL_testz00_3180 = 
(BgL_auxz00_3181>=BgL_auxz00_3183); } 
if(BgL_testz00_3180)
{ /* ./Ieee/port.scm 583 */
bool_t BgL_testz00_3186;
{ /* ./Ieee/port.scm 583 */
int BgL_auxz00_3187;
{ /* ./Ieee/port.scm 583 */
long BgL_auxz00_3188;
{ /* ./Ieee/port.scm 583 */
long BgL_auxz00_3189;
{ /* ./Ieee/port.scm 583 */
int BgL_auxz00_3190;
BgL_auxz00_3190 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3189 = 
(long)(BgL_auxz00_3190); } 
BgL_auxz00_3188 = 
(BgL_auxz00_3189+((long)1)); } 
BgL_auxz00_3187 = 
(int)(BgL_auxz00_3188); } 
BgL_testz00_3186 = 
BOUND_CHECK(BgL_startz00_998, BgL_auxz00_3187); } 
if(BgL_testz00_3186)
{ /* ./Ieee/port.scm 583 */
int BgL_auxz00_3196;
{ /* ./Ieee/port.scm 583 */
long BgL_auxz00_3197;
{ /* ./Ieee/port.scm 583 */
long BgL_auxz00_3198;
{ /* ./Ieee/port.scm 583 */
int BgL_auxz00_3199;
BgL_auxz00_3199 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3198 = 
(long)(BgL_auxz00_3199); } 
BgL_auxz00_3197 = 
(BgL_auxz00_3198+((long)1)); } 
BgL_auxz00_3196 = 
(int)(BgL_auxz00_3197); } 
BgL_test1900z00_1000 = 
BOUND_CHECK(BgL_endz00_999, BgL_auxz00_3196); }  else 
{ /* ./Ieee/port.scm 583 */
BgL_test1900z00_1000 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 583 */
BgL_test1900z00_1000 = ((bool_t)0); } } 
if(BgL_test1900z00_1000)
{ /* ./Ieee/port.scm 583 */
BgL_res2078z00_1025 = 
c_substring(BgL_stringz00_31, BgL_startz00_998, BgL_endz00_999); }  else 
{ /* ./Ieee/port.scm 583 */
{ /* ./Ieee/port.scm 583 */
obj_t BgL_arg1906z00_1011;
{ /* ./Ieee/port.scm 583 */
obj_t BgL_auxz00_3209;obj_t BgL_auxz00_3207;
BgL_auxz00_3209 = 
BINT(BgL_endz00_999); 
BgL_auxz00_3207 = 
BINT(BgL_startz00_998); 
BgL_arg1906z00_1011 = 
MAKE_PAIR(BgL_auxz00_3207, BgL_auxz00_3209); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_1011, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 583 */
obj_t BgL_aux3423z00_1700;
BgL_aux3423z00_1700 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24575))); 
if(
STRINGP(BgL_aux3423z00_1700))
{ /* ./Ieee/port.scm 583 */
BgL_res2078z00_1025 = BgL_aux3423z00_1700; }  else 
{ /* ./Ieee/port.scm 583 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3423z00_1700, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24575))); 
exit( -1 );} } } } } 
BgL_serverz00_513 = BgL_res2078z00_1025; } 
{ /* ./Ieee/port.scm 585 */
obj_t BgL_arg1354z00_516;
{ /* ./Ieee/port.scm 585 */
long BgL_arg1358z00_518;
{ /* ./Ieee/port.scm 585 */
long BgL_za72za7_1027;
{ /* ./Ieee/port.scm 585 */
obj_t BgL_auxz00_3220;
if(BgL_test1350z00_512)
{ /* ./Ieee/port.scm 585 */
BgL_auxz00_3220 = BgL_pstartz00_508
; }  else 
{ /* ./Ieee/port.scm 585 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4164z00zz__r4_ports_6_10_1z00, BgL_pstartz00_508, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24663))); 
exit( -1 );} 
BgL_za72za7_1027 = 
(long)CINT(BgL_auxz00_3220); } 
BgL_arg1358z00_518 = 
(((long)1)+BgL_za72za7_1027); } 
{ /* ./Ieee/port.scm 584 */
obj_t BgL_res2079z00_1056;
{ /* ./Ieee/port.scm 584 */
int BgL_startz00_1029;int BgL_endz00_1030;
BgL_startz00_1029 = 
(int)(BgL_arg1358z00_518); 
BgL_endz00_1030 = 
(int)(BgL_rz00_507); 
{ /* ./Ieee/port.scm 584 */
bool_t BgL_test1900z00_1031;
{ /* ./Ieee/port.scm 584 */
bool_t BgL_testz00_3229;
{ /* ./Ieee/port.scm 584 */
long BgL_auxz00_3232;long BgL_auxz00_3230;
BgL_auxz00_3232 = 
(long)(BgL_startz00_1029); 
BgL_auxz00_3230 = 
(long)(BgL_endz00_1030); 
BgL_testz00_3229 = 
(BgL_auxz00_3230>=BgL_auxz00_3232); } 
if(BgL_testz00_3229)
{ /* ./Ieee/port.scm 584 */
bool_t BgL_testz00_3235;
{ /* ./Ieee/port.scm 584 */
int BgL_auxz00_3236;
{ /* ./Ieee/port.scm 584 */
long BgL_auxz00_3237;
{ /* ./Ieee/port.scm 584 */
long BgL_auxz00_3238;
{ /* ./Ieee/port.scm 584 */
int BgL_auxz00_3239;
BgL_auxz00_3239 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3238 = 
(long)(BgL_auxz00_3239); } 
BgL_auxz00_3237 = 
(BgL_auxz00_3238+((long)1)); } 
BgL_auxz00_3236 = 
(int)(BgL_auxz00_3237); } 
BgL_testz00_3235 = 
BOUND_CHECK(BgL_startz00_1029, BgL_auxz00_3236); } 
if(BgL_testz00_3235)
{ /* ./Ieee/port.scm 584 */
int BgL_auxz00_3245;
{ /* ./Ieee/port.scm 584 */
long BgL_auxz00_3246;
{ /* ./Ieee/port.scm 584 */
long BgL_auxz00_3247;
{ /* ./Ieee/port.scm 584 */
int BgL_auxz00_3248;
BgL_auxz00_3248 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3247 = 
(long)(BgL_auxz00_3248); } 
BgL_auxz00_3246 = 
(BgL_auxz00_3247+((long)1)); } 
BgL_auxz00_3245 = 
(int)(BgL_auxz00_3246); } 
BgL_test1900z00_1031 = 
BOUND_CHECK(BgL_endz00_1030, BgL_auxz00_3245); }  else 
{ /* ./Ieee/port.scm 584 */
BgL_test1900z00_1031 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 584 */
BgL_test1900z00_1031 = ((bool_t)0); } } 
if(BgL_test1900z00_1031)
{ /* ./Ieee/port.scm 584 */
BgL_res2079z00_1056 = 
c_substring(BgL_stringz00_31, BgL_startz00_1029, BgL_endz00_1030); }  else 
{ /* ./Ieee/port.scm 584 */
{ /* ./Ieee/port.scm 584 */
obj_t BgL_arg1906z00_1042;
{ /* ./Ieee/port.scm 584 */
obj_t BgL_auxz00_3258;obj_t BgL_auxz00_3256;
BgL_auxz00_3258 = 
BINT(BgL_endz00_1030); 
BgL_auxz00_3256 = 
BINT(BgL_startz00_1029); 
BgL_arg1906z00_1042 = 
MAKE_PAIR(BgL_auxz00_3256, BgL_auxz00_3258); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_1042, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 584 */
obj_t BgL_aux3461z00_1704;
BgL_aux3461z00_1704 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24633))); 
if(
STRINGP(BgL_aux3461z00_1704))
{ /* ./Ieee/port.scm 584 */
BgL_res2079z00_1056 = BgL_aux3461z00_1704; }  else 
{ /* ./Ieee/port.scm 584 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3461z00_1704, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24633))); 
exit( -1 );} } } } } 
BgL_arg1354z00_516 = BgL_res2079z00_1056; } } 
BgL_portz00_514 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1354z00_516, BNIL); } 
{ /* ./Ieee/port.scm 587 */
obj_t BgL_res2080z00_1085;
{ /* ./Ieee/port.scm 587 */
int BgL_startz00_1058;
BgL_startz00_1058 = 
(int)(BgL_rz00_507); 
{ /* ./Ieee/port.scm 587 */
bool_t BgL_test1900z00_1060;
{ /* ./Ieee/port.scm 587 */
bool_t BgL_testz00_3271;
{ /* ./Ieee/port.scm 587 */
long BgL_auxz00_3274;long BgL_auxz00_3272;
BgL_auxz00_3274 = 
(long)(BgL_startz00_1058); 
BgL_auxz00_3272 = 
(long)(BgL_lenz00_506); 
BgL_testz00_3271 = 
(BgL_auxz00_3272>=BgL_auxz00_3274); } 
if(BgL_testz00_3271)
{ /* ./Ieee/port.scm 587 */
bool_t BgL_testz00_3277;
{ /* ./Ieee/port.scm 587 */
int BgL_auxz00_3278;
{ /* ./Ieee/port.scm 587 */
long BgL_auxz00_3279;
{ /* ./Ieee/port.scm 587 */
long BgL_auxz00_3280;
{ /* ./Ieee/port.scm 587 */
int BgL_auxz00_3281;
BgL_auxz00_3281 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3280 = 
(long)(BgL_auxz00_3281); } 
BgL_auxz00_3279 = 
(BgL_auxz00_3280+((long)1)); } 
BgL_auxz00_3278 = 
(int)(BgL_auxz00_3279); } 
BgL_testz00_3277 = 
BOUND_CHECK(BgL_startz00_1058, BgL_auxz00_3278); } 
if(BgL_testz00_3277)
{ /* ./Ieee/port.scm 587 */
int BgL_auxz00_3287;
{ /* ./Ieee/port.scm 587 */
long BgL_auxz00_3288;
{ /* ./Ieee/port.scm 587 */
long BgL_auxz00_3289;
{ /* ./Ieee/port.scm 587 */
int BgL_auxz00_3290;
BgL_auxz00_3290 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3289 = 
(long)(BgL_auxz00_3290); } 
BgL_auxz00_3288 = 
(BgL_auxz00_3289+((long)1)); } 
BgL_auxz00_3287 = 
(int)(BgL_auxz00_3288); } 
BgL_test1900z00_1060 = 
BOUND_CHECK(BgL_lenz00_506, BgL_auxz00_3287); }  else 
{ /* ./Ieee/port.scm 587 */
BgL_test1900z00_1060 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 587 */
BgL_test1900z00_1060 = ((bool_t)0); } } 
if(BgL_test1900z00_1060)
{ /* ./Ieee/port.scm 587 */
BgL_res2080z00_1085 = 
c_substring(BgL_stringz00_31, BgL_startz00_1058, BgL_lenz00_506); }  else 
{ /* ./Ieee/port.scm 587 */
{ /* ./Ieee/port.scm 587 */
obj_t BgL_arg1906z00_1071;
{ /* ./Ieee/port.scm 587 */
obj_t BgL_auxz00_3300;obj_t BgL_auxz00_3298;
BgL_auxz00_3300 = 
BINT(BgL_lenz00_506); 
BgL_auxz00_3298 = 
BINT(BgL_startz00_1058); 
BgL_arg1906z00_1071 = 
MAKE_PAIR(BgL_auxz00_3298, BgL_auxz00_3300); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_1071, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 587 */
obj_t BgL_aux3487z00_1706;
BgL_aux3487z00_1706 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24707))); 
if(
STRINGP(BgL_aux3487z00_1706))
{ /* ./Ieee/port.scm 587 */
BgL_res2080z00_1085 = BgL_aux3487z00_1706; }  else 
{ /* ./Ieee/port.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3487z00_1706, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24707))); 
exit( -1 );} } } } } 
BgL_filez00_515 = BgL_res2080z00_1085; } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_sz00_1089;
{ /* ./Ieee/port.scm 588 */
int BgL_auxz00_3311;
BgL_auxz00_3311 = 
(int)(BgL_portz00_514); 
BgL_sz00_1089 = 
make_client_socket(BgL_serverz00_513, BgL_auxz00_3311, ((bool_t)1)); } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_port1033z00_1091;
BgL_port1033z00_1091 = 
SOCKET_OUTPUT(BgL_sz00_1089); 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_auxz00_3315;
if(
OUTPUT_PORTP(BgL_port1033z00_1091))
{ /* ./Ieee/port.scm 588 */
BgL_auxz00_3315 = BgL_port1033z00_1091
; }  else 
{ /* ./Ieee/port.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_port1033z00_1091, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24737))); 
exit( -1 );} 
display_string(BGl_string4165z00zz__r4_ports_6_10_1z00, BgL_auxz00_3315); } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_auxz00_3322;
if(
OUTPUT_PORTP(BgL_port1033z00_1091))
{ /* ./Ieee/port.scm 588 */
BgL_auxz00_3322 = BgL_port1033z00_1091
; }  else 
{ /* ./Ieee/port.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_port1033z00_1091, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24737))); 
exit( -1 );} 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_filez00_515, BgL_auxz00_3322); } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_portz00_1103;
if(
OUTPUT_PORTP(BgL_port1033z00_1091))
{ /* ./Ieee/port.scm 588 */
BgL_portz00_1103 = BgL_port1033z00_1091; }  else 
{ /* ./Ieee/port.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_port1033z00_1091, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24737))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1103); } } 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_arg1392z00_1092;
BgL_arg1392z00_1092 = 
SOCKET_OUTPUT(BgL_sz00_1089); 
{ /* ./Ieee/port.scm 588 */
obj_t BgL_portz00_1105;
if(
OUTPUT_PORTP(BgL_arg1392z00_1092))
{ /* ./Ieee/port.scm 588 */
BgL_portz00_1105 = BgL_arg1392z00_1092; }  else 
{ /* ./Ieee/port.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_arg1392z00_1092, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24737))); 
exit( -1 );} 
FLUSH_OUTPUT_PORT(BgL_portz00_1105); } } 
BgL_aux2175z00_1332 = 
SOCKET_INPUT(BgL_sz00_1089); } }  else 
{ /* ./Ieee/port.scm 589 */
obj_t BgL_serverz00_519;obj_t BgL_filez00_521;
{ /* ./Ieee/port.scm 589 */
obj_t BgL_res2082z00_1135;
{ /* ./Ieee/port.scm 589 */
int BgL_startz00_1108;int BgL_endz00_1109;
BgL_startz00_1108 = 
(int)(((long)2)); 
BgL_endz00_1109 = 
(int)(BgL_rz00_507); 
{ /* ./Ieee/port.scm 589 */
bool_t BgL_test1900z00_1110;
{ /* ./Ieee/port.scm 589 */
bool_t BgL_testz00_3345;
{ /* ./Ieee/port.scm 589 */
long BgL_auxz00_3348;long BgL_auxz00_3346;
BgL_auxz00_3348 = 
(long)(BgL_startz00_1108); 
BgL_auxz00_3346 = 
(long)(BgL_endz00_1109); 
BgL_testz00_3345 = 
(BgL_auxz00_3346>=BgL_auxz00_3348); } 
if(BgL_testz00_3345)
{ /* ./Ieee/port.scm 589 */
bool_t BgL_testz00_3351;
{ /* ./Ieee/port.scm 589 */
int BgL_auxz00_3352;
{ /* ./Ieee/port.scm 589 */
long BgL_auxz00_3353;
{ /* ./Ieee/port.scm 589 */
long BgL_auxz00_3354;
{ /* ./Ieee/port.scm 589 */
int BgL_auxz00_3355;
BgL_auxz00_3355 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3354 = 
(long)(BgL_auxz00_3355); } 
BgL_auxz00_3353 = 
(BgL_auxz00_3354+((long)1)); } 
BgL_auxz00_3352 = 
(int)(BgL_auxz00_3353); } 
BgL_testz00_3351 = 
BOUND_CHECK(BgL_startz00_1108, BgL_auxz00_3352); } 
if(BgL_testz00_3351)
{ /* ./Ieee/port.scm 589 */
int BgL_auxz00_3361;
{ /* ./Ieee/port.scm 589 */
long BgL_auxz00_3362;
{ /* ./Ieee/port.scm 589 */
long BgL_auxz00_3363;
{ /* ./Ieee/port.scm 589 */
int BgL_auxz00_3364;
BgL_auxz00_3364 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3363 = 
(long)(BgL_auxz00_3364); } 
BgL_auxz00_3362 = 
(BgL_auxz00_3363+((long)1)); } 
BgL_auxz00_3361 = 
(int)(BgL_auxz00_3362); } 
BgL_test1900z00_1110 = 
BOUND_CHECK(BgL_endz00_1109, BgL_auxz00_3361); }  else 
{ /* ./Ieee/port.scm 589 */
BgL_test1900z00_1110 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 589 */
BgL_test1900z00_1110 = ((bool_t)0); } } 
if(BgL_test1900z00_1110)
{ /* ./Ieee/port.scm 589 */
BgL_res2082z00_1135 = 
c_substring(BgL_stringz00_31, BgL_startz00_1108, BgL_endz00_1109); }  else 
{ /* ./Ieee/port.scm 589 */
{ /* ./Ieee/port.scm 589 */
obj_t BgL_arg1906z00_1121;
{ /* ./Ieee/port.scm 589 */
obj_t BgL_auxz00_3374;obj_t BgL_auxz00_3372;
BgL_auxz00_3374 = 
BINT(BgL_endz00_1109); 
BgL_auxz00_3372 = 
BINT(BgL_startz00_1108); 
BgL_arg1906z00_1121 = 
MAKE_PAIR(BgL_auxz00_3372, BgL_auxz00_3374); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_1121, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 589 */
obj_t BgL_aux3567z00_1718;
BgL_aux3567z00_1718 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24791))); 
if(
STRINGP(BgL_aux3567z00_1718))
{ /* ./Ieee/port.scm 589 */
BgL_res2082z00_1135 = BgL_aux3567z00_1718; }  else 
{ /* ./Ieee/port.scm 589 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3567z00_1718, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24791))); 
exit( -1 );} } } } } 
BgL_serverz00_519 = BgL_res2082z00_1135; } 
{ /* ./Ieee/port.scm 591 */
obj_t BgL_res2083z00_1164;
{ /* ./Ieee/port.scm 591 */
int BgL_startz00_1137;
BgL_startz00_1137 = 
(int)(BgL_rz00_507); 
{ /* ./Ieee/port.scm 591 */
bool_t BgL_test1900z00_1139;
{ /* ./Ieee/port.scm 591 */
bool_t BgL_testz00_3386;
{ /* ./Ieee/port.scm 591 */
long BgL_auxz00_3389;long BgL_auxz00_3387;
BgL_auxz00_3389 = 
(long)(BgL_startz00_1137); 
BgL_auxz00_3387 = 
(long)(BgL_lenz00_506); 
BgL_testz00_3386 = 
(BgL_auxz00_3387>=BgL_auxz00_3389); } 
if(BgL_testz00_3386)
{ /* ./Ieee/port.scm 591 */
bool_t BgL_testz00_3392;
{ /* ./Ieee/port.scm 591 */
int BgL_auxz00_3393;
{ /* ./Ieee/port.scm 591 */
long BgL_auxz00_3394;
{ /* ./Ieee/port.scm 591 */
long BgL_auxz00_3395;
{ /* ./Ieee/port.scm 591 */
int BgL_auxz00_3396;
BgL_auxz00_3396 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3395 = 
(long)(BgL_auxz00_3396); } 
BgL_auxz00_3394 = 
(BgL_auxz00_3395+((long)1)); } 
BgL_auxz00_3393 = 
(int)(BgL_auxz00_3394); } 
BgL_testz00_3392 = 
BOUND_CHECK(BgL_startz00_1137, BgL_auxz00_3393); } 
if(BgL_testz00_3392)
{ /* ./Ieee/port.scm 591 */
int BgL_auxz00_3402;
{ /* ./Ieee/port.scm 591 */
long BgL_auxz00_3403;
{ /* ./Ieee/port.scm 591 */
long BgL_auxz00_3404;
{ /* ./Ieee/port.scm 591 */
int BgL_auxz00_3405;
BgL_auxz00_3405 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_auxz00_3404 = 
(long)(BgL_auxz00_3405); } 
BgL_auxz00_3403 = 
(BgL_auxz00_3404+((long)1)); } 
BgL_auxz00_3402 = 
(int)(BgL_auxz00_3403); } 
BgL_test1900z00_1139 = 
BOUND_CHECK(BgL_lenz00_506, BgL_auxz00_3402); }  else 
{ /* ./Ieee/port.scm 591 */
BgL_test1900z00_1139 = ((bool_t)0); } }  else 
{ /* ./Ieee/port.scm 591 */
BgL_test1900z00_1139 = ((bool_t)0); } } 
if(BgL_test1900z00_1139)
{ /* ./Ieee/port.scm 591 */
BgL_res2083z00_1164 = 
c_substring(BgL_stringz00_31, BgL_startz00_1137, BgL_lenz00_506); }  else 
{ /* ./Ieee/port.scm 591 */
{ /* ./Ieee/port.scm 591 */
obj_t BgL_arg1906z00_1150;
{ /* ./Ieee/port.scm 591 */
obj_t BgL_auxz00_3415;obj_t BgL_auxz00_3413;
BgL_auxz00_3415 = 
BINT(BgL_lenz00_506); 
BgL_auxz00_3413 = 
BINT(BgL_startz00_1137); 
BgL_arg1906z00_1150 = 
MAKE_PAIR(BgL_auxz00_3413, BgL_auxz00_3415); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4148z00zz__r4_ports_6_10_1z00, BGl_string4149z00zz__r4_ports_6_10_1z00, BgL_arg1906z00_1150, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/port.scm 591 */
obj_t BgL_aux3593z00_1720;
BgL_aux3593z00_1720 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24843))); 
if(
STRINGP(BgL_aux3593z00_1720))
{ /* ./Ieee/port.scm 591 */
BgL_res2083z00_1164 = BgL_aux3593z00_1720; }  else 
{ /* ./Ieee/port.scm 591 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_aux3593z00_1720, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24843))); 
exit( -1 );} } } } } 
BgL_filez00_521 = BgL_res2083z00_1164; } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_sz00_1168;
{ /* ./Ieee/port.scm 592 */
int BgL_auxz00_3426;
BgL_auxz00_3426 = 
(int)(((long)80)); 
BgL_sz00_1168 = 
make_client_socket(BgL_serverz00_519, BgL_auxz00_3426, ((bool_t)1)); } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_port1033z00_1170;
BgL_port1033z00_1170 = 
SOCKET_OUTPUT(BgL_sz00_1168); 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_auxz00_3430;
if(
OUTPUT_PORTP(BgL_port1033z00_1170))
{ /* ./Ieee/port.scm 592 */
BgL_auxz00_3430 = BgL_port1033z00_1170
; }  else 
{ /* ./Ieee/port.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_port1033z00_1170, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24873))); 
exit( -1 );} 
display_string(BGl_string4165z00zz__r4_ports_6_10_1z00, BgL_auxz00_3430); } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_auxz00_3437;
if(
OUTPUT_PORTP(BgL_port1033z00_1170))
{ /* ./Ieee/port.scm 592 */
BgL_auxz00_3437 = BgL_port1033z00_1170
; }  else 
{ /* ./Ieee/port.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_port1033z00_1170, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24873))); 
exit( -1 );} 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_filez00_521, BgL_auxz00_3437); } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_portz00_1182;
if(
OUTPUT_PORTP(BgL_port1033z00_1170))
{ /* ./Ieee/port.scm 592 */
BgL_portz00_1182 = BgL_port1033z00_1170; }  else 
{ /* ./Ieee/port.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_port1033z00_1170, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24873))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1182); } } 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_arg1392z00_1171;
BgL_arg1392z00_1171 = 
SOCKET_OUTPUT(BgL_sz00_1168); 
{ /* ./Ieee/port.scm 592 */
obj_t BgL_portz00_1184;
if(
OUTPUT_PORTP(BgL_arg1392z00_1171))
{ /* ./Ieee/port.scm 592 */
BgL_portz00_1184 = BgL_arg1392z00_1171; }  else 
{ /* ./Ieee/port.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_arg1392z00_1171, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24873))); 
exit( -1 );} 
FLUSH_OUTPUT_PORT(BgL_portz00_1184); } } 
BgL_aux2175z00_1332 = 
SOCKET_INPUT(BgL_sz00_1168); } } } }  else 
{ /* ./Ieee/port.scm 593 */
bool_t BgL_test1366z00_522;
{ /* ./Ieee/port.scm 593 */
unsigned char BgL_arg1376z00_525;
{ /* ./Ieee/port.scm 593 */
unsigned char BgL_res2085z00_1194;
{ /* ./Ieee/port.scm 593 */
int BgL_kz00_1187;
BgL_kz00_1187 = 
(int)(BgL_rz00_507); 
{ /* ./Ieee/port.scm 593 */
bool_t BgL_testz00_3459;
{ /* ./Ieee/port.scm 593 */
int BgL_auxz00_3460;
BgL_auxz00_3460 = 
STRING_LENGTH(BgL_stringz00_31); 
BgL_testz00_3459 = 
BOUND_CHECK(BgL_kz00_1187, BgL_auxz00_3460); } 
if(BgL_testz00_3459)
{ /* ./Ieee/port.scm 593 */
BgL_res2085z00_1194 = 
STRING_REF(BgL_stringz00_31, BgL_kz00_1187); }  else 
{ /* ./Ieee/port.scm 593 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4160z00zz__r4_ports_6_10_1z00, BGl_string4161z00zz__r4_ports_6_10_1z00, 
BINT(BgL_kz00_1187), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/port.scm 593 */
obj_t BgL_auxz00_3466;
{ /* ./Ieee/port.scm 593 */
obj_t BgL_aux3665z00_1732;
BgL_aux3665z00_1732 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24919))); 
if(
CHARP(BgL_aux3665z00_1732))
{ /* ./Ieee/port.scm 593 */
BgL_auxz00_3466 = BgL_aux3665z00_1732
; }  else 
{ /* ./Ieee/port.scm 593 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4158z00zz__r4_ports_6_10_1z00, BGl_string4162z00zz__r4_ports_6_10_1z00, BgL_aux3665z00_1732, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)24919))); 
exit( -1 );} } 
BgL_res2085z00_1194 = 
(unsigned char)CCHAR(BgL_auxz00_3466); } } } } 
BgL_arg1376z00_525 = BgL_res2085z00_1194; } 
BgL_test1366z00_522 = 
(BgL_arg1376z00_525==((unsigned char)':')); } 
if(BgL_test1366z00_522)
{ /* ./Ieee/port.scm 593 */
{ 
obj_t BgL_pstartz00_3479;long BgL_rz00_3477;
BgL_rz00_3477 = 
(BgL_rz00_507+((long)1)); 
BgL_pstartz00_3479 = 
BINT(BgL_rz00_507); 
BgL_pstartz00_508 = BgL_pstartz00_3479; 
BgL_rz00_507 = BgL_rz00_3477; 
goto BgL_loopz00_509;} }  else 
{ /* ./Ieee/port.scm 593 */
{ 
long BgL_rz00_3481;
BgL_rz00_3481 = 
(BgL_rz00_507+((long)1)); 
BgL_rz00_507 = BgL_rz00_3481; 
goto BgL_loopz00_509;} } } } } } }  else 
{ /* ./Ieee/port.scm 572 */
BgL_aux2175z00_1332 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux2175z00_1332;} } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 604 */
obj_t BgL_symbol2180z00_1843;
BgL_symbol2180z00_1843 = BGl_symbol4166z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 604 */

PUSH_TRACE(BgL_symbol2180z00_1843); BUNSPEC; 
{ /* ./Ieee/port.scm 604 */
obj_t BgL_aux2179z00_1844;
BgL_aux2179z00_1844 = 
open_input_string(BgL_stringz00_32); 
POP_TRACE(); 
return BgL_aux2179z00_1844;} } } } 
}



/* _open-input-string2361 */
obj_t BGl__openzd2inputzd2string2361z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1445, obj_t BgL_stringz00_1446)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 603 */
{ /* ./Ieee/port.scm 604 */
obj_t BgL_stringz00_1845;
if(
STRINGP(BgL_stringz00_1446))
{ /* ./Ieee/port.scm 604 */
BgL_stringz00_1845 = BgL_stringz00_1446; }  else 
{ /* ./Ieee/port.scm 604 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4167z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1446, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)25356))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 604 */
obj_t BgL_symbol2180z00_1846;
BgL_symbol2180z00_1846 = BGl_symbol4166z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 604 */

PUSH_TRACE(BgL_symbol2180z00_1846); BUNSPEC; 
{ /* ./Ieee/port.scm 604 */
obj_t BgL_aux2179z00_1847;
BgL_aux2179z00_1847 = 
open_input_string(BgL_stringz00_1845); 
POP_TRACE(); 
return BgL_aux2179z00_1847;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 610 */
obj_t BgL_symbol2184z00_1848;
BgL_symbol2184z00_1848 = BGl_symbol4168z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 610 */

PUSH_TRACE(BgL_symbol2184z00_1848); BUNSPEC; 
{ /* ./Ieee/port.scm 610 */
obj_t BgL_aux2183z00_1849;
BgL_aux2183z00_1849 = 
open_input_procedure(BgL_procz00_33); 
POP_TRACE(); 
return BgL_aux2183z00_1849;} } } } 
}



/* _open-input-procedure */
obj_t BGl__openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1447, obj_t BgL_procz00_1448)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 609 */
{ /* ./Ieee/port.scm 610 */
obj_t BgL_procz00_1850;
if(
PROCEDUREP(BgL_procz00_1448))
{ /* ./Ieee/port.scm 610 */
BgL_procz00_1850 = BgL_procz00_1448; }  else 
{ /* ./Ieee/port.scm 610 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4169z00zz__r4_ports_6_10_1z00, BGl_string4079z00zz__r4_ports_6_10_1z00, BgL_procz00_1448, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)25655))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 610 */
obj_t BgL_symbol2184z00_1851;
BgL_symbol2184z00_1851 = BGl_symbol4168z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 610 */

PUSH_TRACE(BgL_symbol2184z00_1851); BUNSPEC; 
{ /* ./Ieee/port.scm 610 */
obj_t BgL_aux2183z00_1852;
BgL_aux2183z00_1852 = 
open_input_procedure(BgL_procz00_1850); 
POP_TRACE(); 
return BgL_aux2183z00_1852;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 616 */
obj_t BgL_symbol2188z00_1853;
BgL_symbol2188z00_1853 = BGl_symbol4170z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 616 */

PUSH_TRACE(BgL_symbol2188z00_1853); BUNSPEC; 
{ /* ./Ieee/port.scm 616 */
obj_t BgL_aux2187z00_1854;
BgL_aux2187z00_1854 = 
open_input_c_string(BgL_stringz00_34); 
POP_TRACE(); 
return BgL_aux2187z00_1854;} } } } 
}



/* _open-input-c-string2364 */
obj_t BGl__openzd2inputzd2czd2string2364zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1449, obj_t BgL_stringz00_1450)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 615 */
{ /* ./Ieee/port.scm 616 */
char * BgL_stringz00_1855;
{ /* ./Ieee/port.scm 616 */
obj_t BgL_auxz00_3509;
if(
STRINGP(BgL_stringz00_1450))
{ /* ./Ieee/port.scm 616 */
BgL_auxz00_3509 = BgL_stringz00_1450
; }  else 
{ /* ./Ieee/port.scm 616 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4171z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1450, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)25956))); 
exit( -1 );} 
BgL_stringz00_1855 = 
BSTRING_TO_STRING(BgL_auxz00_3509); } 
{ /* ./Ieee/port.scm 616 */
obj_t BgL_symbol2188z00_1856;
BgL_symbol2188z00_1856 = BGl_symbol4170z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 616 */

PUSH_TRACE(BgL_symbol2188z00_1856); BUNSPEC; 
{ /* ./Ieee/port.scm 616 */
obj_t BgL_aux2187z00_1857;
BgL_aux2187z00_1857 = 
open_input_c_string(BgL_stringz00_1855); 
POP_TRACE(); 
return BgL_aux2187z00_1857;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 622 */
obj_t BgL_symbol2192z00_1858;
BgL_symbol2192z00_1858 = BGl_symbol4173z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 622 */

PUSH_TRACE(BgL_symbol2192z00_1858); BUNSPEC; 
{ /* ./Ieee/port.scm 622 */
obj_t BgL_aux2191z00_1859;
BgL_aux2191z00_1859 = 
reopen_input_c_string(BgL_portz00_35, BgL_stringz00_36); 
POP_TRACE(); 
return BgL_aux2191z00_1859;} } } } 
}



/* _reopen-input-c-string2366 */
obj_t BGl__reopenzd2inputzd2czd2string2366zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1451, obj_t BgL_portz00_1452, obj_t BgL_stringz00_1453)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 621 */
{ /* ./Ieee/port.scm 622 */
obj_t BgL_portz00_1860;char * BgL_stringz00_1861;
if(
INPUT_PORTP(BgL_portz00_1452))
{ /* ./Ieee/port.scm 622 */
BgL_portz00_1860 = BgL_portz00_1452; }  else 
{ /* ./Ieee/port.scm 622 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4174z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1452, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)26277))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 622 */
obj_t BgL_auxz00_3527;
if(
STRINGP(BgL_stringz00_1453))
{ /* ./Ieee/port.scm 622 */
BgL_auxz00_3527 = BgL_stringz00_1453
; }  else 
{ /* ./Ieee/port.scm 622 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4174z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1453, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)26277))); 
exit( -1 );} 
BgL_stringz00_1861 = 
BSTRING_TO_STRING(BgL_auxz00_3527); } 
{ /* ./Ieee/port.scm 622 */
obj_t BgL_symbol2192z00_1862;
BgL_symbol2192z00_1862 = BGl_symbol4173z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 622 */

PUSH_TRACE(BgL_symbol2192z00_1862); BUNSPEC; 
{ /* ./Ieee/port.scm 622 */
obj_t BgL_aux2191z00_1863;
BgL_aux2191z00_1863 = 
reopen_input_c_string(BgL_portz00_1860, BgL_stringz00_1861); 
POP_TRACE(); 
return BgL_aux2191z00_1863;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 628 */
obj_t BgL_symbol2196z00_1864;
BgL_symbol2196z00_1864 = BGl_symbol4175z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 628 */

PUSH_TRACE(BgL_symbol2196z00_1864); BUNSPEC; 
{ /* ./Ieee/port.scm 628 */
obj_t BgL_aux2195z00_1865;
BgL_aux2195z00_1865 = 
open_output_file(BgL_stringz00_37); 
POP_TRACE(); 
return BgL_aux2195z00_1865;} } } } 
}



/* _open-output-file2368 */
obj_t BGl__openzd2outputzd2file2368z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1454, obj_t BgL_stringz00_1455)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 627 */
{ /* ./Ieee/port.scm 628 */
obj_t BgL_stringz00_1866;
if(
STRINGP(BgL_stringz00_1455))
{ /* ./Ieee/port.scm 628 */
BgL_stringz00_1866 = BgL_stringz00_1455; }  else 
{ /* ./Ieee/port.scm 628 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4176z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1455, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)26583))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 628 */
obj_t BgL_symbol2196z00_1867;
BgL_symbol2196z00_1867 = BGl_symbol4175z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 628 */

PUSH_TRACE(BgL_symbol2196z00_1867); BUNSPEC; 
{ /* ./Ieee/port.scm 628 */
obj_t BgL_aux2195z00_1868;
BgL_aux2195z00_1868 = 
open_output_file(BgL_stringz00_1866); 
POP_TRACE(); 
return BgL_aux2195z00_1868;} } } } } 
}



/* open-output-string */
BGL_EXPORTED_DEF obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 633 */
{ /* ./Ieee/port.scm 634 */
obj_t BgL_symbol2200z00_1869;
BgL_symbol2200z00_1869 = BGl_symbol4177z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 634 */

PUSH_TRACE(BgL_symbol2200z00_1869); BUNSPEC; 
{ /* ./Ieee/port.scm 634 */
obj_t BgL_aux2199z00_1870;
BgL_aux2199z00_1870 = 
open_output_string(); 
POP_TRACE(); 
return BgL_aux2199z00_1870;} } } } 
}



/* _open-output-string */
obj_t BGl__openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1456)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 633 */
{ /* ./Ieee/port.scm 634 */
obj_t BgL_symbol2200z00_1871;
BgL_symbol2200z00_1871 = BGl_symbol4177z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 634 */

PUSH_TRACE(BgL_symbol2200z00_1871); BUNSPEC; 
{ /* ./Ieee/port.scm 634 */
obj_t BgL_aux2199z00_1872;
BgL_aux2199z00_1872 = 
open_output_string(); 
POP_TRACE(); 
return BgL_aux2199z00_1872;} } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 640 */
obj_t BgL_symbol2204z00_1873;
BgL_symbol2204z00_1873 = BGl_symbol4178z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 640 */

PUSH_TRACE(BgL_symbol2204z00_1873); BUNSPEC; 
{ /* ./Ieee/port.scm 640 */
bool_t BgL_aux2203z00_1874;
BgL_aux2203z00_1874 = 
!RGC_BUFFER(BgL_portz00_38); 
POP_TRACE(); 
return BgL_aux2203z00_1874;} } } } 
}



/* _closed-input-port?2371 */
obj_t BGl__closedzd2inputzd2portzf32371zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1457, obj_t BgL_portz00_1458)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 639 */
{ /* ./Ieee/port.scm 640 */
bool_t BgL_auxz00_3557;
{ /* ./Ieee/port.scm 640 */
bool_t BgL_res4233z00_1878;
{ /* ./Ieee/port.scm 640 */
obj_t BgL_portz00_1875;
if(
INPUT_PORTP(BgL_portz00_1458))
{ /* ./Ieee/port.scm 640 */
BgL_portz00_1875 = BgL_portz00_1458; }  else 
{ /* ./Ieee/port.scm 640 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4179z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1458, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)27165))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 640 */
obj_t BgL_symbol2204z00_1876;
BgL_symbol2204z00_1876 = BGl_symbol4178z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 640 */

PUSH_TRACE(BgL_symbol2204z00_1876); BUNSPEC; 
{ /* ./Ieee/port.scm 640 */
bool_t BgL_aux2203z00_1877;
BgL_aux2203z00_1877 = 
!RGC_BUFFER(BgL_portz00_1875); 
POP_TRACE(); 
BgL_res4233z00_1878 = BgL_aux2203z00_1877; } } } } 
BgL_auxz00_3557 = BgL_res4233z00_1878; } 
return 
BBOOL(BgL_auxz00_3557);} } 
}



/* 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 */
{ /* ./Ieee/port.scm 646 */
obj_t BgL_symbol2208z00_1879;
BgL_symbol2208z00_1879 = BGl_symbol4180z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 646 */

PUSH_TRACE(BgL_symbol2208z00_1879); BUNSPEC; 
{ /* ./Ieee/port.scm 646 */
obj_t BgL_aux2207z00_1880;
BgL_aux2207z00_1880 = 
close_input_port(BgL_portz00_39); 
POP_TRACE(); 
return BgL_aux2207z00_1880;} } } } 
}



/* _close-input-port2373 */
obj_t BGl__closezd2inputzd2port2373z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1459, obj_t BgL_portz00_1460)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 645 */
{ /* ./Ieee/port.scm 646 */
obj_t BgL_portz00_1881;
if(
INPUT_PORTP(BgL_portz00_1460))
{ /* ./Ieee/port.scm 646 */
BgL_portz00_1881 = BgL_portz00_1460; }  else 
{ /* ./Ieee/port.scm 646 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4181z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1460, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)27459))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 646 */
obj_t BgL_symbol2208z00_1882;
BgL_symbol2208z00_1882 = BGl_symbol4180z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 646 */

PUSH_TRACE(BgL_symbol2208z00_1882); BUNSPEC; 
{ /* ./Ieee/port.scm 646 */
obj_t BgL_aux2207z00_1883;
BgL_aux2207z00_1883 = 
close_input_port(BgL_portz00_1881); 
POP_TRACE(); 
return BgL_aux2207z00_1883;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 652 */
obj_t BgL_symbol2212z00_1884;
BgL_symbol2212z00_1884 = BGl_symbol4182z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 652 */

PUSH_TRACE(BgL_symbol2212z00_1884); BUNSPEC; 
{ /* ./Ieee/port.scm 652 */
obj_t BgL_aux2211z00_1885;
BgL_aux2211z00_1885 = 
get_output_string(BgL_portz00_40); 
POP_TRACE(); 
return BgL_aux2211z00_1885;} } } } 
}



/* _get-output-string2375 */
obj_t BGl__getzd2outputzd2string2375z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1461, obj_t BgL_portz00_1462)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 651 */
{ /* ./Ieee/port.scm 652 */
obj_t BgL_res4234z00_1889;
{ /* ./Ieee/port.scm 652 */
obj_t BgL_portz00_1886;
if(
OUTPUT_PORTP(BgL_portz00_1462))
{ /* ./Ieee/port.scm 652 */
BgL_portz00_1886 = BgL_portz00_1462; }  else 
{ /* ./Ieee/port.scm 652 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4183z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1462, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)27752))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 652 */
obj_t BgL_symbol2212z00_1887;
BgL_symbol2212z00_1887 = BGl_symbol4182z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 652 */

PUSH_TRACE(BgL_symbol2212z00_1887); BUNSPEC; 
{ /* ./Ieee/port.scm 652 */
obj_t BgL_aux2211z00_1888;
BgL_aux2211z00_1888 = 
get_output_string(BgL_portz00_1886); 
POP_TRACE(); 
BgL_res4234z00_1889 = BgL_aux2211z00_1888; } } } } 
return BgL_res4234z00_1889;} } 
}



/* 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 */
{ /* ./Ieee/port.scm 658 */
obj_t BgL_symbol2216z00_1890;
BgL_symbol2216z00_1890 = BGl_symbol4184z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 658 */

PUSH_TRACE(BgL_symbol2216z00_1890); BUNSPEC; 
{ /* ./Ieee/port.scm 658 */
obj_t BgL_aux2215z00_1891;
BgL_aux2215z00_1891 = 
close_output_port(BgL_portz00_41); 
POP_TRACE(); 
return BgL_aux2215z00_1891;} } } } 
}



/* _close-output-port2377 */
obj_t BGl__closezd2outputzd2port2377z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1463, obj_t BgL_portz00_1464)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 657 */
{ /* ./Ieee/port.scm 658 */
obj_t BgL_portz00_1892;
if(
OUTPUT_PORTP(BgL_portz00_1464))
{ /* ./Ieee/port.scm 658 */
BgL_portz00_1892 = BgL_portz00_1464; }  else 
{ /* ./Ieee/port.scm 658 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4185z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1464, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)28046))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 658 */
obj_t BgL_symbol2216z00_1893;
BgL_symbol2216z00_1893 = BGl_symbol4184z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 658 */

PUSH_TRACE(BgL_symbol2216z00_1893); BUNSPEC; 
{ /* ./Ieee/port.scm 658 */
obj_t BgL_aux2215z00_1894;
BgL_aux2215z00_1894 = 
close_output_port(BgL_portz00_1892); 
POP_TRACE(); 
return BgL_aux2215z00_1894;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 667 */
obj_t BgL_symbol2220z00_1895;
BgL_symbol2220z00_1895 = BGl_symbol4186z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 667 */

PUSH_TRACE(BgL_symbol2220z00_1895); BUNSPEC; 
{ /* ./Ieee/port.scm 667 */
obj_t BgL_aux2219z00_1896;
BgL_aux2219z00_1896 = 
FLUSH_OUTPUT_PORT(BgL_portz00_42); 
POP_TRACE(); 
return BgL_aux2219z00_1896;} } } } 
}



/* _flush-output-port2379 */
obj_t BGl__flushzd2outputzd2port2379z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1465, obj_t BgL_portz00_1466)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 666 */
{ /* ./Ieee/port.scm 667 */
obj_t BgL_portz00_1897;
if(
OUTPUT_PORTP(BgL_portz00_1466))
{ /* ./Ieee/port.scm 667 */
BgL_portz00_1897 = BgL_portz00_1466; }  else 
{ /* ./Ieee/port.scm 667 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4187z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1466, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)28562))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 667 */
obj_t BgL_symbol2220z00_1898;
BgL_symbol2220z00_1898 = BGl_symbol4186z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 667 */

PUSH_TRACE(BgL_symbol2220z00_1898); BUNSPEC; 
{ /* ./Ieee/port.scm 667 */
obj_t BgL_aux2219z00_1899;
BgL_aux2219z00_1899 = 
FLUSH_OUTPUT_PORT(BgL_portz00_1897); 
POP_TRACE(); 
return BgL_aux2219z00_1899;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 673 */
obj_t BgL_symbol2224z00_1900;
BgL_symbol2224z00_1900 = BGl_symbol4188z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 673 */

PUSH_TRACE(BgL_symbol2224z00_1900); BUNSPEC; 
{ /* ./Ieee/port.scm 673 */
bool_t BgL_aux2223z00_1901;
BgL_aux2223z00_1901 = 
reset_eof(BgL_portz00_43); 
POP_TRACE(); 
return BgL_aux2223z00_1901;} } } } 
}



/* _reset-eof2381 */
obj_t BGl__resetzd2eof2381zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1467, obj_t BgL_portz00_1468)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 672 */
{ /* ./Ieee/port.scm 673 */
bool_t BgL_auxz00_3614;
{ /* ./Ieee/port.scm 673 */
bool_t BgL_res4235z00_1905;
{ /* ./Ieee/port.scm 673 */
obj_t BgL_portz00_1902;
if(
INPUT_PORTP(BgL_portz00_1468))
{ /* ./Ieee/port.scm 673 */
BgL_portz00_1902 = BgL_portz00_1468; }  else 
{ /* ./Ieee/port.scm 673 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4189z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1468, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)28848))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 673 */
obj_t BgL_symbol2224z00_1903;
BgL_symbol2224z00_1903 = BGl_symbol4188z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 673 */

PUSH_TRACE(BgL_symbol2224z00_1903); BUNSPEC; 
{ /* ./Ieee/port.scm 673 */
bool_t BgL_aux2223z00_1904;
BgL_aux2223z00_1904 = 
reset_eof(BgL_portz00_1902); 
POP_TRACE(); 
BgL_res4235z00_1905 = BgL_aux2223z00_1904; } } } } 
BgL_auxz00_3614 = BgL_res4235z00_1905; } 
return 
BBOOL(BgL_auxz00_3614);} } 
}



/* 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 */
obj_t BgL_symbol2228z00_1906;
BgL_symbol2228z00_1906 = BGl_symbol4190z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 679 */

PUSH_TRACE(BgL_symbol2228z00_1906); BUNSPEC; 
{ /* ./Ieee/port.scm 679 */
obj_t BgL_aux2227z00_1907;
{ /* ./Ieee/port.scm 679 */
bool_t BgL_testz00_3625;
{ /* ./Ieee/port.scm 679 */
obj_t BgL_auxz00_3626;
BgL_auxz00_3626 = 
bgl_input_port_seek(BgL_portz00_44, BgL_posz00_45); 
BgL_testz00_3625 = 
CBOOL(BgL_auxz00_3626); } 
if(BgL_testz00_3625)
{ /* ./Ieee/port.scm 679 */
BgL_aux2227z00_1907 = BFALSE; }  else 
{ /* ./Ieee/port.scm 679 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4191z00zz__r4_ports_6_10_1z00, BGl_string4192z00zz__r4_ports_6_10_1z00, BgL_portz00_44, "./Ieee/port.scm", ((long)29217)); 
BgL_aux2227z00_1907 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29162))); } } 
POP_TRACE(); 
return BgL_aux2227z00_1907;} } } } 
}



/* _set-input-port-position!2383 */
obj_t BGl__setzd2inputzd2portzd2positionz122383zc0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1469, obj_t BgL_portz00_1470, obj_t BgL_posz00_1471)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 678 */
{ /* ./Ieee/port.scm 679 */
obj_t BgL_portz00_1908;int BgL_posz00_1909;
if(
INPUT_PORTP(BgL_portz00_1470))
{ /* ./Ieee/port.scm 679 */
BgL_portz00_1908 = BgL_portz00_1470; }  else 
{ /* ./Ieee/port.scm 679 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4193z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1470, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29162))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 679 */
obj_t BgL_auxz00_3638;
if(
INTEGERP(BgL_posz00_1471))
{ /* ./Ieee/port.scm 679 */
BgL_auxz00_3638 = BgL_posz00_1471
; }  else 
{ /* ./Ieee/port.scm 679 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4193z00zz__r4_ports_6_10_1z00, BGl_string4163z00zz__r4_ports_6_10_1z00, BgL_posz00_1471, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29162))); 
exit( -1 );} 
BgL_posz00_1909 = 
CINT(BgL_auxz00_3638); } 
{ /* ./Ieee/port.scm 679 */
obj_t BgL_symbol2228z00_1910;
BgL_symbol2228z00_1910 = BGl_symbol4190z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 679 */

PUSH_TRACE(BgL_symbol2228z00_1910); BUNSPEC; 
{ /* ./Ieee/port.scm 679 */
obj_t BgL_aux2227z00_1911;
{ /* ./Ieee/port.scm 679 */
bool_t BgL_testz00_3646;
{ /* ./Ieee/port.scm 679 */
obj_t BgL_auxz00_3647;
BgL_auxz00_3647 = 
bgl_input_port_seek(BgL_portz00_1908, BgL_posz00_1909); 
BgL_testz00_3646 = 
CBOOL(BgL_auxz00_3647); } 
if(BgL_testz00_3646)
{ /* ./Ieee/port.scm 679 */
BgL_aux2227z00_1911 = BFALSE; }  else 
{ /* ./Ieee/port.scm 679 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4191z00zz__r4_ports_6_10_1z00, BGl_string4192z00zz__r4_ports_6_10_1z00, BgL_portz00_1908, "./Ieee/port.scm", ((long)29217)); 
BgL_aux2227z00_1911 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29162))); } } 
POP_TRACE(); 
return BgL_aux2227z00_1911;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 686 */
obj_t BgL_symbol2232z00_1912;
BgL_symbol2232z00_1912 = BGl_symbol4194z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 686 */

PUSH_TRACE(BgL_symbol2232z00_1912); BUNSPEC; 
{ /* ./Ieee/port.scm 686 */
int BgL_aux2231z00_1913;
BgL_aux2231z00_1913 = 
INPUT_PORT_FILEPOS(BgL_portz00_46); 
POP_TRACE(); 
return BgL_aux2231z00_1913;} } } } 
}



/* _input-port-position2385 */
obj_t BGl__inputzd2portzd2position2385z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1472, obj_t BgL_portz00_1473)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 685 */
{ /* ./Ieee/port.scm 686 */
int BgL_auxz00_3657;
{ /* ./Ieee/port.scm 686 */
int BgL_res4236z00_1917;
{ /* ./Ieee/port.scm 686 */
obj_t BgL_portz00_1914;
if(
INPUT_PORTP(BgL_portz00_1473))
{ /* ./Ieee/port.scm 686 */
BgL_portz00_1914 = BgL_portz00_1473; }  else 
{ /* ./Ieee/port.scm 686 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4195z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1473, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29548))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 686 */
obj_t BgL_symbol2232z00_1915;
BgL_symbol2232z00_1915 = BGl_symbol4194z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 686 */

PUSH_TRACE(BgL_symbol2232z00_1915); BUNSPEC; 
{ /* ./Ieee/port.scm 686 */
int BgL_aux2231z00_1916;
BgL_aux2231z00_1916 = 
INPUT_PORT_FILEPOS(BgL_portz00_1914); 
POP_TRACE(); 
BgL_res4236z00_1917 = BgL_aux2231z00_1916; } } } } 
BgL_auxz00_3657 = BgL_res4236z00_1917; } 
return 
BINT(BgL_auxz00_3657);} } 
}



/* 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 */
obj_t BgL_symbol2236z00_1918;
BgL_symbol2236z00_1918 = BGl_symbol4196z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 692 */

PUSH_TRACE(BgL_symbol2236z00_1918); BUNSPEC; 
{ /* ./Ieee/port.scm 692 */
obj_t BgL_aux2235z00_1919;
{ /* ./Ieee/port.scm 692 */
bool_t BgL_testz00_3668;
{ /* ./Ieee/port.scm 692 */
obj_t BgL_auxz00_3669;
BgL_auxz00_3669 = 
bgl_output_port_seek(BgL_portz00_47, BgL_posz00_48); 
BgL_testz00_3668 = 
CBOOL(BgL_auxz00_3669); } 
if(BgL_testz00_3668)
{ /* ./Ieee/port.scm 692 */
BgL_aux2235z00_1919 = BFALSE; }  else 
{ /* ./Ieee/port.scm 692 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4197z00zz__r4_ports_6_10_1z00, BGl_string4192z00zz__r4_ports_6_10_1z00, BgL_portz00_47, "./Ieee/port.scm", ((long)29930)); 
BgL_aux2235z00_1919 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29874))); } } 
POP_TRACE(); 
return BgL_aux2235z00_1919;} } } } 
}



/* _set-output-port-position! */
obj_t BGl__setzd2outputzd2portzd2positionz12zc0zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1474, obj_t BgL_portz00_1475, obj_t BgL_posz00_1476)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 691 */
{ /* ./Ieee/port.scm 692 */
obj_t BgL_portz00_1920;int BgL_posz00_1921;
if(
OUTPUT_PORTP(BgL_portz00_1475))
{ /* ./Ieee/port.scm 692 */
BgL_portz00_1920 = BgL_portz00_1475; }  else 
{ /* ./Ieee/port.scm 692 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4198z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1475, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29874))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 692 */
obj_t BgL_auxz00_3681;
if(
INTEGERP(BgL_posz00_1476))
{ /* ./Ieee/port.scm 692 */
BgL_auxz00_3681 = BgL_posz00_1476
; }  else 
{ /* ./Ieee/port.scm 692 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4198z00zz__r4_ports_6_10_1z00, BGl_string4163z00zz__r4_ports_6_10_1z00, BgL_posz00_1476, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29874))); 
exit( -1 );} 
BgL_posz00_1921 = 
CINT(BgL_auxz00_3681); } 
{ /* ./Ieee/port.scm 692 */
obj_t BgL_symbol2236z00_1922;
BgL_symbol2236z00_1922 = BGl_symbol4196z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 692 */

PUSH_TRACE(BgL_symbol2236z00_1922); BUNSPEC; 
{ /* ./Ieee/port.scm 692 */
obj_t BgL_aux2235z00_1923;
{ /* ./Ieee/port.scm 692 */
bool_t BgL_testz00_3689;
{ /* ./Ieee/port.scm 692 */
obj_t BgL_auxz00_3690;
BgL_auxz00_3690 = 
bgl_output_port_seek(BgL_portz00_1920, BgL_posz00_1921); 
BgL_testz00_3689 = 
CBOOL(BgL_auxz00_3690); } 
if(BgL_testz00_3689)
{ /* ./Ieee/port.scm 692 */
BgL_aux2235z00_1923 = BFALSE; }  else 
{ /* ./Ieee/port.scm 692 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4197z00zz__r4_ports_6_10_1z00, BGl_string4192z00zz__r4_ports_6_10_1z00, BgL_portz00_1920, "./Ieee/port.scm", ((long)29930)); 
BgL_aux2235z00_1923 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)29874))); } } 
POP_TRACE(); 
return BgL_aux2235z00_1923;} } } } } 
}



/* 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 */
{ /* ./Ieee/port.scm 699 */
obj_t BgL_symbol2240z00_1924;
BgL_symbol2240z00_1924 = BGl_symbol4199z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 699 */

PUSH_TRACE(BgL_symbol2240z00_1924); BUNSPEC; 
{ /* ./Ieee/port.scm 699 */
int BgL_aux2239z00_1925;
BgL_aux2239z00_1925 = 
BGL_OUTPUT_PORT_FILEPOS(BgL_portz00_49); 
POP_TRACE(); 
return BgL_aux2239z00_1925;} } } } 
}



/* _output-port-position2388 */
obj_t BGl__outputzd2portzd2position2388z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1477, obj_t BgL_portz00_1478)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 698 */
{ /* ./Ieee/port.scm 699 */
int BgL_auxz00_3700;
{ /* ./Ieee/port.scm 699 */
int BgL_res4237z00_1929;
{ /* ./Ieee/port.scm 699 */
obj_t BgL_portz00_1926;
if(
OUTPUT_PORTP(BgL_portz00_1478))
{ /* ./Ieee/port.scm 699 */
BgL_portz00_1926 = BgL_portz00_1478; }  else 
{ /* ./Ieee/port.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4200z00zz__r4_ports_6_10_1z00, BGl_string4082z00zz__r4_ports_6_10_1z00, BgL_portz00_1478, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)30263))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 699 */
obj_t BgL_symbol2240z00_1927;
BgL_symbol2240z00_1927 = BGl_symbol4199z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 699 */

PUSH_TRACE(BgL_symbol2240z00_1927); BUNSPEC; 
{ /* ./Ieee/port.scm 699 */
int BgL_aux2239z00_1928;
BgL_aux2239z00_1928 = 
BGL_OUTPUT_PORT_FILEPOS(BgL_portz00_1926); 
POP_TRACE(); 
BgL_res4237z00_1929 = BgL_aux2239z00_1928; } } } } 
BgL_auxz00_3700 = BgL_res4237z00_1929; } 
return 
BINT(BgL_auxz00_3700);} } 
}



/* 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 */
{ /* ./Ieee/port.scm 705 */
obj_t BgL_symbol2244z00_1930;
BgL_symbol2244z00_1930 = BGl_symbol4201z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 705 */

PUSH_TRACE(BgL_symbol2244z00_1930); BUNSPEC; 
{ /* ./Ieee/port.scm 705 */
char * BgL_aux2243z00_1931;
BgL_aux2243z00_1931 = 
INPUT_PORT_NAME(BgL_portz00_50); 
POP_TRACE(); 
return BgL_aux2243z00_1931;} } } } 
}



/* _input-port-name2390 */
obj_t BGl__inputzd2portzd2name2390z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1479, obj_t BgL_portz00_1480)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 704 */
{ /* ./Ieee/port.scm 705 */
char * BgL_auxz00_3713;
{ /* ./Ieee/port.scm 705 */
char * BgL_res4238z00_1935;
{ /* ./Ieee/port.scm 705 */
obj_t BgL_portz00_1932;
if(
INPUT_PORTP(BgL_portz00_1480))
{ /* ./Ieee/port.scm 705 */
BgL_portz00_1932 = BgL_portz00_1480; }  else 
{ /* ./Ieee/port.scm 705 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4202z00zz__r4_ports_6_10_1z00, BGl_string4074z00zz__r4_ports_6_10_1z00, BgL_portz00_1480, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)30558))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 705 */
obj_t BgL_symbol2244z00_1933;
BgL_symbol2244z00_1933 = BGl_symbol4201z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 705 */

PUSH_TRACE(BgL_symbol2244z00_1933); BUNSPEC; 
{ /* ./Ieee/port.scm 705 */
char * BgL_aux2243z00_1934;
BgL_aux2243z00_1934 = 
INPUT_PORT_NAME(BgL_portz00_1932); 
POP_TRACE(); 
BgL_res4238z00_1935 = BgL_aux2243z00_1934; } } } } 
BgL_auxz00_3713 = BgL_res4238z00_1935; } 
return 
string_to_bstring(BgL_auxz00_3713);} } 
}



/* file-exists? */
BGL_EXPORTED_DEF bool_t BGl_filezd2existszf3z21zz__r4_ports_6_10_1z00(char * BgL_namez00_51)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 710 */
{ /* ./Ieee/port.scm 711 */
obj_t BgL_symbol2248z00_1936;
BgL_symbol2248z00_1936 = BGl_symbol4203z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 711 */

PUSH_TRACE(BgL_symbol2248z00_1936); BUNSPEC; 
{ /* ./Ieee/port.scm 711 */
bool_t BgL_aux2247z00_1937;
BgL_aux2247z00_1937 = 
fexists(BgL_namez00_51); 
POP_TRACE(); 
return BgL_aux2247z00_1937;} } } } 
}



/* _file-exists?2392 */
obj_t BGl__filezd2existszf32392z21zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1481, obj_t BgL_namez00_1482)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 710 */
{ /* ./Ieee/port.scm 711 */
bool_t BgL_auxz00_3726;
{ /* ./Ieee/port.scm 711 */
bool_t BgL_res4239z00_1941;
{ /* ./Ieee/port.scm 711 */
char * BgL_namez00_1938;
{ /* ./Ieee/port.scm 711 */
obj_t BgL_auxz00_3727;
if(
STRINGP(BgL_namez00_1482))
{ /* ./Ieee/port.scm 711 */
BgL_auxz00_3727 = BgL_namez00_1482
; }  else 
{ /* ./Ieee/port.scm 711 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4204z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_namez00_1482, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)30845))); 
exit( -1 );} 
BgL_namez00_1938 = 
BSTRING_TO_STRING(BgL_auxz00_3727); } 
{ /* ./Ieee/port.scm 711 */
obj_t BgL_symbol2248z00_1939;
BgL_symbol2248z00_1939 = BGl_symbol4203z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 711 */

PUSH_TRACE(BgL_symbol2248z00_1939); BUNSPEC; 
{ /* ./Ieee/port.scm 711 */
bool_t BgL_aux2247z00_1940;
BgL_aux2247z00_1940 = 
fexists(BgL_namez00_1938); 
POP_TRACE(); 
BgL_res4239z00_1941 = BgL_aux2247z00_1940; } } } } 
BgL_auxz00_3726 = BgL_res4239z00_1941; } 
return 
BBOOL(BgL_auxz00_3726);} } 
}



/* 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 */
{ /* ./Ieee/port.scm 717 */
obj_t BgL_symbol2252z00_1942;
BgL_symbol2252z00_1942 = BGl_symbol4205z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 717 */

PUSH_TRACE(BgL_symbol2252z00_1942); BUNSPEC; 
{ /* ./Ieee/port.scm 717 */
obj_t BgL_aux2251z00_1943;
BgL_aux2251z00_1943 = 
append_output_file(BgL_stringz00_52); 
POP_TRACE(); 
return BgL_aux2251z00_1943;} } } } 
}



/* _append-output-file2394 */
obj_t BGl__appendzd2outputzd2file2394z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1483, obj_t BgL_stringz00_1484)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 716 */
{ /* ./Ieee/port.scm 717 */
obj_t BgL_stringz00_1944;
if(
STRINGP(BgL_stringz00_1484))
{ /* ./Ieee/port.scm 717 */
BgL_stringz00_1944 = BgL_stringz00_1484; }  else 
{ /* ./Ieee/port.scm 717 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4206z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1484, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)31136))); 
exit( -1 );} 
{ /* ./Ieee/port.scm 717 */
obj_t BgL_symbol2252z00_1945;
BgL_symbol2252z00_1945 = BGl_symbol4205z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 717 */

PUSH_TRACE(BgL_symbol2252z00_1945); BUNSPEC; 
{ /* ./Ieee/port.scm 717 */
obj_t BgL_aux2251z00_1946;
BgL_aux2251z00_1946 = 
append_output_file(BgL_stringz00_1944); 
POP_TRACE(); 
return BgL_aux2251z00_1946;} } } } } 
}



/* 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 */
obj_t BgL_symbol2256z00_1947;
BgL_symbol2256z00_1947 = BGl_symbol4207z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 723 */

PUSH_TRACE(BgL_symbol2256z00_1947); BUNSPEC; 
{ /* ./Ieee/port.scm 723 */
obj_t BgL_aux2255z00_1948;
{ /* ./Ieee/port.scm 723 */
bool_t BgL_auxz00_3750;
BgL_auxz00_3750 = 
unlink(BgL_stringz00_53); 
BgL_aux2255z00_1948 = 
BBOOL(BgL_auxz00_3750); } 
POP_TRACE(); 
return BgL_aux2255z00_1948;} } } } 
}



/* _delete-file2396 */
obj_t BGl__deletezd2file2396zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1485, obj_t BgL_stringz00_1486)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 722 */
{ /* ./Ieee/port.scm 723 */
char * BgL_stringz00_1949;
{ /* ./Ieee/port.scm 723 */
obj_t BgL_auxz00_3754;
if(
STRINGP(BgL_stringz00_1486))
{ /* ./Ieee/port.scm 723 */
BgL_auxz00_3754 = BgL_stringz00_1486
; }  else 
{ /* ./Ieee/port.scm 723 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4208z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1486, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)31429))); 
exit( -1 );} 
BgL_stringz00_1949 = 
BSTRING_TO_STRING(BgL_auxz00_3754); } 
{ /* ./Ieee/port.scm 723 */
obj_t BgL_symbol2256z00_1950;
BgL_symbol2256z00_1950 = BGl_symbol4207z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 723 */

PUSH_TRACE(BgL_symbol2256z00_1950); BUNSPEC; 
{ /* ./Ieee/port.scm 723 */
obj_t BgL_aux2255z00_1951;
{ /* ./Ieee/port.scm 723 */
bool_t BgL_auxz00_3762;
BgL_auxz00_3762 = 
unlink(BgL_stringz00_1949); 
BgL_aux2255z00_1951 = 
BBOOL(BgL_auxz00_3762); } 
POP_TRACE(); 
return BgL_aux2255z00_1951;} } } } } 
}



/* 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 */
obj_t BgL_symbol2260z00_1952;
BgL_symbol2260z00_1952 = BGl_symbol4209z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 729 */

PUSH_TRACE(BgL_symbol2260z00_1952); BUNSPEC; 
{ /* ./Ieee/port.scm 729 */
bool_t BgL_aux2259z00_1953;
{ /* ./Ieee/port.scm 729 */
int BgL_auxz00_3767;
BgL_auxz00_3767 = 
(int)(((long)511)); 
BgL_aux2259z00_1953 = 
!mkdir(BgL_stringz00_54, BgL_auxz00_3767); } 
POP_TRACE(); 
return BgL_aux2259z00_1953;} } } } 
}



/* _make-directory2398 */
obj_t BGl__makezd2directory2398zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1487, obj_t BgL_stringz00_1488)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 728 */
{ /* ./Ieee/port.scm 729 */
bool_t BgL_auxz00_3771;
{ /* ./Ieee/port.scm 729 */
bool_t BgL_res4240z00_1957;
{ /* ./Ieee/port.scm 729 */
char * BgL_stringz00_1954;
{ /* ./Ieee/port.scm 729 */
obj_t BgL_auxz00_3772;
if(
STRINGP(BgL_stringz00_1488))
{ /* ./Ieee/port.scm 729 */
BgL_auxz00_3772 = BgL_stringz00_1488
; }  else 
{ /* ./Ieee/port.scm 729 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4210z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1488, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)31718))); 
exit( -1 );} 
BgL_stringz00_1954 = 
BSTRING_TO_STRING(BgL_auxz00_3772); } 
{ /* ./Ieee/port.scm 729 */
obj_t BgL_symbol2260z00_1955;
BgL_symbol2260z00_1955 = BGl_symbol4209z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 729 */

PUSH_TRACE(BgL_symbol2260z00_1955); BUNSPEC; 
{ /* ./Ieee/port.scm 729 */
bool_t BgL_aux2259z00_1956;
{ /* ./Ieee/port.scm 729 */
int BgL_auxz00_3780;
BgL_auxz00_3780 = 
(int)(((long)511)); 
BgL_aux2259z00_1956 = 
!mkdir(BgL_stringz00_1954, BgL_auxz00_3780); } 
POP_TRACE(); 
BgL_res4240z00_1957 = BgL_aux2259z00_1956; } } } } 
BgL_auxz00_3771 = BgL_res4240z00_1957; } 
return 
BBOOL(BgL_auxz00_3771);} } 
}



/* 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 */
obj_t BgL_symbol2264z00_1375;
BgL_symbol2264z00_1375 = BGl_symbol4211z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 735 */

PUSH_TRACE(BgL_symbol2264z00_1375); BUNSPEC; 
{ /* ./Ieee/port.scm 735 */
bool_t BgL_aux2263z00_1376;
{ /* ./Ieee/port.scm 735 */
bool_t BgL__ortest_1034z00_538;
{ /* ./Ieee/port.scm 735 */
int BgL_auxz00_3788;char * BgL_auxz00_3786;
BgL_auxz00_3788 = 
(int)(((long)511)); 
BgL_auxz00_3786 = 
BSTRING_TO_STRING(BgL_stringz00_55); 
BgL__ortest_1034z00_538 = 
!mkdir(BgL_auxz00_3786, BgL_auxz00_3788); } 
if(BgL__ortest_1034z00_538)
{ /* ./Ieee/port.scm 735 */
BgL_aux2263z00_1376 = 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_test1425z00_540;
if(
bigloo_strcmp(BgL_dnamez00_539, BGl_string4212z00zz__r4_ports_6_10_1z00))
{ /* ./Ieee/port.scm 737 */
BgL_test1425z00_540 = ((bool_t)1); }  else 
{ /* ./Ieee/port.scm 737 */
char * BgL_auxz00_3795;
BgL_auxz00_3795 = 
BSTRING_TO_STRING(BgL_dnamez00_539); 
BgL_test1425z00_540 = 
fexists(BgL_auxz00_3795); } 
if(BgL_test1425z00_540)
{ /* ./Ieee/port.scm 737 */
BgL_aux2263z00_1376 = ((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_3802;char * BgL_auxz00_3800;
BgL_auxz00_3802 = 
(int)(((long)511)); 
BgL_auxz00_3800 = 
BSTRING_TO_STRING(BgL_stringz00_55); 
BgL_aux2263z00_1376 = 
!mkdir(BgL_auxz00_3800, BgL_auxz00_3802); } } } } } 
POP_TRACE(); 
return BgL_aux2263z00_1376;} } } } 
}



/* _make-directories2400 */
obj_t BGl__makezd2directories2400zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1489, obj_t BgL_stringz00_1490)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 734 */
{ /* ./Ieee/port.scm 735 */
bool_t BgL_auxz00_3806;
{ /* ./Ieee/port.scm 735 */
obj_t BgL_auxz00_3807;
if(
STRINGP(BgL_stringz00_1490))
{ /* ./Ieee/port.scm 735 */
BgL_auxz00_3807 = BgL_stringz00_1490
; }  else 
{ /* ./Ieee/port.scm 735 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4213z00zz__r4_ports_6_10_1z00, BGl_string4078z00zz__r4_ports_6_10_1z00, BgL_stringz00_1490, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)32006))); 
exit( -1 );} 
BgL_auxz00_3806 = 
BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_auxz00_3807); } 
return 
BBOOL(BgL_auxz00_3806);} } 
}



/* 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 */
obj_t BgL_symbol2268z00_1958;
BgL_symbol2268z00_1958 = BGl_symbol4214z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 747 */

PUSH_TRACE(BgL_symbol2268z00_1958); BUNSPEC; 
{ /* ./Ieee/port.scm 747 */
obj_t BgL_aux2267z00_1959;
{ /* ./Ieee/port.scm 747 */
bool_t BgL_auxz00_3816;
BgL_auxz00_3816 = 
rmdir(BgL_stringz00_56); 
BgL_aux2267z00_1959 = 
BBOOL(BgL_auxz00_3816); } 
POP_TRACE(); 
return BgL_aux2267z00_1959;} } } } 
}



/* _delete-directory2402 */
obj_t BGl__deletezd2directory2402zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1491, obj_t BgL_stringz00_1492)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 746 */
{ /* ./Ieee/port.scm 747 */
char * BgL_stringz00_1960;
{ /* ./Ieee/port.scm 747 */
obj_t BgL_auxz00_3820;
if(
STRINGP(BgL_stringz00_1492))
{ /* ./Ieee/port.scm 747 */
BgL_auxz00_3820 = BgL_stringz00_1492
; }  else 
{ /* ./Ieee/port.scm 747 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4215z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1492, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)32479))); 
exit( -1 );} 
BgL_stringz00_1960 = 
BSTRING_TO_STRING(BgL_auxz00_3820); } 
{ /* ./Ieee/port.scm 747 */
obj_t BgL_symbol2268z00_1961;
BgL_symbol2268z00_1961 = BGl_symbol4214z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 747 */

PUSH_TRACE(BgL_symbol2268z00_1961); BUNSPEC; 
{ /* ./Ieee/port.scm 747 */
obj_t BgL_aux2267z00_1962;
{ /* ./Ieee/port.scm 747 */
bool_t BgL_auxz00_3828;
BgL_auxz00_3828 = 
rmdir(BgL_stringz00_1960); 
BgL_aux2267z00_1962 = 
BBOOL(BgL_auxz00_3828); } 
POP_TRACE(); 
return BgL_aux2267z00_1962;} } } } } 
}



/* 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 */
obj_t BgL_symbol2272z00_1963;
BgL_symbol2272z00_1963 = BGl_symbol4216z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 753 */

PUSH_TRACE(BgL_symbol2272z00_1963); BUNSPEC; 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_aux2271z00_1964;
{ /* ./Ieee/port.scm 753 */
bool_t BgL_test1434z00_1965;
{ /* ./Ieee/port.scm 753 */
int BgL_arg1436z00_1966;
BgL_arg1436z00_1966 = 
rename(BgL_string1z00_57, BgL_string2z00_58); 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_auxz00_3836;obj_t BgL_auxz00_3834;
BgL_auxz00_3836 = 
BINT(((long)0)); 
BgL_auxz00_3834 = 
BINT(BgL_arg1436z00_1966); 
BgL_test1434z00_1965 = 
(BgL_auxz00_3834==BgL_auxz00_3836); } } 
if(BgL_test1434z00_1965)
{ /* ./Ieee/port.scm 753 */
BgL_aux2271z00_1964 = BTRUE; }  else 
{ /* ./Ieee/port.scm 753 */
BgL_aux2271z00_1964 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux2271z00_1964;} } } } 
}



/* _rename-file2404 */
obj_t BGl__renamezd2file2404zd2zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1493, obj_t BgL_string1z00_1494, obj_t BgL_string2z00_1495)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 752 */
{ /* ./Ieee/port.scm 753 */
char * BgL_string1z00_1967;char * BgL_string2z00_1968;
{ /* ./Ieee/port.scm 753 */
obj_t BgL_auxz00_3841;
if(
STRINGP(BgL_string1z00_1494))
{ /* ./Ieee/port.scm 753 */
BgL_auxz00_3841 = BgL_string1z00_1494
; }  else 
{ /* ./Ieee/port.scm 753 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4217z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_string1z00_1494, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)32788))); 
exit( -1 );} 
BgL_string1z00_1967 = 
BSTRING_TO_STRING(BgL_auxz00_3841); } 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_auxz00_3848;
if(
STRINGP(BgL_string2z00_1495))
{ /* ./Ieee/port.scm 753 */
BgL_auxz00_3848 = BgL_string2z00_1495
; }  else 
{ /* ./Ieee/port.scm 753 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4217z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_string2z00_1495, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)32788))); 
exit( -1 );} 
BgL_string2z00_1968 = 
BSTRING_TO_STRING(BgL_auxz00_3848); } 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_symbol2272z00_1969;
BgL_symbol2272z00_1969 = BGl_symbol4216z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 753 */

PUSH_TRACE(BgL_symbol2272z00_1969); BUNSPEC; 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_aux2271z00_1970;
{ /* ./Ieee/port.scm 753 */
bool_t BgL_test1434z00_1971;
{ /* ./Ieee/port.scm 753 */
int BgL_arg1436z00_1972;
BgL_arg1436z00_1972 = 
rename(BgL_string1z00_1967, BgL_string2z00_1968); 
{ /* ./Ieee/port.scm 753 */
obj_t BgL_auxz00_3859;obj_t BgL_auxz00_3857;
BgL_auxz00_3859 = 
BINT(((long)0)); 
BgL_auxz00_3857 = 
BINT(BgL_arg1436z00_1972); 
BgL_test1434z00_1971 = 
(BgL_auxz00_3857==BgL_auxz00_3859); } } 
if(BgL_test1434z00_1971)
{ /* ./Ieee/port.scm 753 */
BgL_aux2271z00_1970 = BTRUE; }  else 
{ /* ./Ieee/port.scm 753 */
BgL_aux2271z00_1970 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux2271z00_1970;} } } } } 
}



/* 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 */
obj_t BgL_symbol2276z00_1973;
BgL_symbol2276z00_1973 = BGl_symbol4218z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 761 */

PUSH_TRACE(BgL_symbol2276z00_1973); BUNSPEC; 
{ /* ./Ieee/port.scm 761 */
bool_t BgL_aux2275z00_1974;
{ /* ./Ieee/port.scm 761 */
bool_t BgL__ortest_1035z00_1975;
BgL__ortest_1035z00_1975 = 
OUTPUT_PORTP(BgL_objz00_59); 
if(BgL__ortest_1035z00_1975)
{ /* ./Ieee/port.scm 761 */
BgL_aux2275z00_1974 = BgL__ortest_1035z00_1975; }  else 
{ /* ./Ieee/port.scm 761 */
BgL_aux2275z00_1974 = 
INPUT_PORTP(BgL_objz00_59); } } 
POP_TRACE(); 
return BgL_aux2275z00_1974;} } } } 
}



/* _port? */
obj_t BGl__portzf3zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1496, obj_t BgL_objz00_1497)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 760 */
{ /* ./Ieee/port.scm 761 */
bool_t BgL_auxz00_3869;
{ /* ./Ieee/port.scm 761 */
bool_t BgL_res4241z00_1980;
{ /* ./Ieee/port.scm 761 */
obj_t BgL_symbol2276z00_1977;
BgL_symbol2276z00_1977 = BGl_symbol4218z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 761 */

PUSH_TRACE(BgL_symbol2276z00_1977); BUNSPEC; 
{ /* ./Ieee/port.scm 761 */
bool_t BgL_aux2275z00_1978;
{ /* ./Ieee/port.scm 761 */
bool_t BgL__ortest_1035z00_1979;
BgL__ortest_1035z00_1979 = 
OUTPUT_PORTP(BgL_objz00_1497); 
if(BgL__ortest_1035z00_1979)
{ /* ./Ieee/port.scm 761 */
BgL_aux2275z00_1978 = BgL__ortest_1035z00_1979; }  else 
{ /* ./Ieee/port.scm 761 */
BgL_aux2275z00_1978 = 
INPUT_PORTP(BgL_objz00_1497); } } 
POP_TRACE(); 
BgL_res4241z00_1980 = BgL_aux2275z00_1978; } } } 
BgL_auxz00_3869 = BgL_res4241z00_1980; } 
return 
BBOOL(BgL_auxz00_3869);} } 
}



/* directory? */
BGL_EXPORTED_DEF bool_t BGl_directoryzf3zf3zz__r4_ports_6_10_1z00(char * BgL_stringz00_60)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 766 */
{ /* ./Ieee/port.scm 767 */
obj_t BgL_symbol2280z00_1981;
BgL_symbol2280z00_1981 = BGl_symbol4219z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 767 */

PUSH_TRACE(BgL_symbol2280z00_1981); BUNSPEC; 
{ /* ./Ieee/port.scm 767 */
bool_t BgL_aux2279z00_1982;
BgL_aux2279z00_1982 = 
directoryp(BgL_stringz00_60); 
POP_TRACE(); 
return BgL_aux2279z00_1982;} } } } 
}



/* _directory?2407 */
obj_t BGl__directoryzf32407zf3zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1498, obj_t BgL_stringz00_1499)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 766 */
{ /* ./Ieee/port.scm 767 */
bool_t BgL_auxz00_3879;
{ /* ./Ieee/port.scm 767 */
bool_t BgL_res4242z00_1986;
{ /* ./Ieee/port.scm 767 */
char * BgL_stringz00_1983;
{ /* ./Ieee/port.scm 767 */
obj_t BgL_auxz00_3880;
if(
STRINGP(BgL_stringz00_1499))
{ /* ./Ieee/port.scm 767 */
BgL_auxz00_3880 = BgL_stringz00_1499
; }  else 
{ /* ./Ieee/port.scm 767 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4220z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1499, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)33402))); 
exit( -1 );} 
BgL_stringz00_1983 = 
BSTRING_TO_STRING(BgL_auxz00_3880); } 
{ /* ./Ieee/port.scm 767 */
obj_t BgL_symbol2280z00_1984;
BgL_symbol2280z00_1984 = BGl_symbol4219z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 767 */

PUSH_TRACE(BgL_symbol2280z00_1984); BUNSPEC; 
{ /* ./Ieee/port.scm 767 */
bool_t BgL_aux2279z00_1985;
BgL_aux2279z00_1985 = 
directoryp(BgL_stringz00_1983); 
POP_TRACE(); 
BgL_res4242z00_1986 = BgL_aux2279z00_1985; } } } } 
BgL_auxz00_3879 = BgL_res4242z00_1986; } 
return 
BBOOL(BgL_auxz00_3879);} } 
}



/* directory->list */
BGL_EXPORTED_DEF obj_t BGl_directoryzd2ze3listz31zz__r4_ports_6_10_1z00(char * BgL_stringz00_61)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 772 */
{ /* ./Ieee/port.scm 773 */
obj_t BgL_symbol2284z00_1987;
BgL_symbol2284z00_1987 = BGl_symbol4221z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 773 */

PUSH_TRACE(BgL_symbol2284z00_1987); BUNSPEC; 
{ /* ./Ieee/port.scm 773 */
obj_t BgL_aux2283z00_1988;
BgL_aux2283z00_1988 = 
directory_to_list(BgL_stringz00_61); 
POP_TRACE(); 
return BgL_aux2283z00_1988;} } } } 
}



/* _directory->list2409 */
obj_t BGl__directoryzd2ze3list2409z31zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1500, obj_t BgL_stringz00_1501)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 772 */
{ /* ./Ieee/port.scm 773 */
char * BgL_stringz00_1989;
{ /* ./Ieee/port.scm 773 */
obj_t BgL_auxz00_3894;
if(
STRINGP(BgL_stringz00_1501))
{ /* ./Ieee/port.scm 773 */
BgL_auxz00_3894 = BgL_stringz00_1501
; }  else 
{ /* ./Ieee/port.scm 773 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4222z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_stringz00_1501, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)33691))); 
exit( -1 );} 
BgL_stringz00_1989 = 
BSTRING_TO_STRING(BgL_auxz00_3894); } 
{ /* ./Ieee/port.scm 773 */
obj_t BgL_symbol2284z00_1990;
BgL_symbol2284z00_1990 = BGl_symbol4221z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 773 */

PUSH_TRACE(BgL_symbol2284z00_1990); BUNSPEC; 
{ /* ./Ieee/port.scm 773 */
obj_t BgL_aux2283z00_1991;
BgL_aux2283z00_1991 = 
directory_to_list(BgL_stringz00_1989); 
POP_TRACE(); 
return BgL_aux2283z00_1991;} } } } } 
}



/* file-modification-time */
BGL_EXPORTED_DEF long BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(char * BgL_filez00_62)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 778 */
{ /* ./Ieee/port.scm 779 */
obj_t BgL_symbol2288z00_1387;
BgL_symbol2288z00_1387 = BGl_symbol4223z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 779 */

PUSH_TRACE(BgL_symbol2288z00_1387); BUNSPEC; 
{ /* ./Ieee/port.scm 779 */
long BgL_aux2287z00_1388;
BgL_aux2287z00_1388 = 
bgl_last_modification_time(BgL_filez00_62); 
POP_TRACE(); 
return BgL_aux2287z00_1388;} } } } 
}



/* _file-modification-time2411 */
obj_t BGl__filezd2modificationzd2time2411z00zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1502, obj_t BgL_filez00_1503)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 778 */
{ /* ./Ieee/port.scm 779 */
long BgL_auxz00_3907;
{ /* ./Ieee/port.scm 779 */
char * BgL_auxz00_3908;
{ /* ./Ieee/port.scm 779 */
obj_t BgL_auxz00_3909;
if(
STRINGP(BgL_filez00_1503))
{ /* ./Ieee/port.scm 779 */
BgL_auxz00_3909 = BgL_filez00_1503
; }  else 
{ /* ./Ieee/port.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4224z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_filez00_1503, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)33983))); 
exit( -1 );} 
BgL_auxz00_3908 = 
BSTRING_TO_STRING(BgL_auxz00_3909); } 
BgL_auxz00_3907 = 
BGl_filezd2modificationzd2timez00zz__r4_ports_6_10_1z00(BgL_auxz00_3908); } 
return 
LONG_TO_BELONG(BgL_auxz00_3907);} } 
}



/* 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 */
obj_t BgL_symbol2292z00_1389;
BgL_symbol2292z00_1389 = BGl_symbol4225z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 785 */

PUSH_TRACE(BgL_symbol2292z00_1389); BUNSPEC; 
{ /* ./Ieee/port.scm 785 */
int BgL_aux2291z00_1390;
{ /* ./Ieee/port.scm 785 */
int BgL_siza7eza7_546;
BgL_siza7eza7_546 = 
bgl_file_size(BgL_filez00_63); 
{ /* ./Ieee/port.scm 786 */
bool_t BgL_testz00_3920;
{ /* ./Ieee/port.scm 786 */
long BgL_auxz00_3921;
BgL_auxz00_3921 = 
(long)(BgL_siza7eza7_546); 
BgL_testz00_3920 = 
(BgL_auxz00_3921<((long)0)); } 
if(BgL_testz00_3920)
{ /* ./Ieee/port.scm 786 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4226z00zz__r4_ports_6_10_1z00, BGl_string4227z00zz__r4_ports_6_10_1z00, 
string_to_bstring(BgL_filez00_63), "./Ieee/port.scm", ((long)34328)); 
{ /* ./Ieee/port.scm 787 */
obj_t BgL_auxz00_3926;
{ /* ./Ieee/port.scm 787 */
obj_t BgL_aux4043z00_1794;
BgL_aux4043z00_1794 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)34368))); 
if(
INTEGERP(BgL_aux4043z00_1794))
{ /* ./Ieee/port.scm 787 */
BgL_auxz00_3926 = BgL_aux4043z00_1794
; }  else 
{ /* ./Ieee/port.scm 787 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4225z00zz__r4_ports_6_10_1z00, BGl_string4163z00zz__r4_ports_6_10_1z00, BgL_aux4043z00_1794, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)34368))); 
exit( -1 );} } 
BgL_aux2291z00_1390 = 
CINT(BgL_auxz00_3926); } }  else 
{ /* ./Ieee/port.scm 786 */
BgL_aux2291z00_1390 = BgL_siza7eza7_546; } } } 
POP_TRACE(); 
return BgL_aux2291z00_1390;} } } } 
}



/* _file-size2413 */
obj_t BGl__filezd2siza7e2413z75zz__r4_ports_6_10_1z00(obj_t BgL_envz00_1504, obj_t BgL_filez00_1505)
{ AN_OBJECT;
{ /* ./Ieee/port.scm 784 */
{ /* ./Ieee/port.scm 785 */
int BgL_auxz00_3936;
{ /* ./Ieee/port.scm 785 */
char * BgL_auxz00_3937;
{ /* ./Ieee/port.scm 785 */
obj_t BgL_auxz00_3938;
if(
STRINGP(BgL_filez00_1505))
{ /* ./Ieee/port.scm 785 */
BgL_auxz00_3938 = BgL_filez00_1505
; }  else 
{ /* ./Ieee/port.scm 785 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4228z00zz__r4_ports_6_10_1z00, BGl_string4172z00zz__r4_ports_6_10_1z00, BgL_filez00_1505, BGl_string4072z00zz__r4_ports_6_10_1z00, 
BINT(((long)34262))); 
exit( -1 );} 
BgL_auxz00_3937 = 
BSTRING_TO_STRING(BgL_auxz00_3938); } 
BgL_auxz00_3936 = 
BGl_filezd2siza7ez75zz__r4_ports_6_10_1z00(BgL_auxz00_3937); } 
return 
BINT(BgL_auxz00_3936);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_ports_6_10_1z00()
{ AN_OBJECT;
{ /* ./Ieee/port.scm 18 */
{ /* ./Ieee/port.scm 18 */
obj_t BgL_symbol2296z00_1391;
BgL_symbol2296z00_1391 = BGl_symbol4229z00zz__r4_ports_6_10_1z00; 
{ /* ./Ieee/port.scm 18 */

PUSH_TRACE(BgL_symbol2296z00_1391); BUNSPEC; 
{ /* ./Ieee/port.scm 18 */
obj_t BgL_aux2295z00_1392;
BgL_aux2295z00_1392 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_ports_6_10_1"); 
POP_TRACE(); 
return BgL_aux2295z00_1392;} } } } 
}

