/*===========================================================================*/
/*   (Llib/os.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 Llib/os.scm -indent -o objs/obj_s/Llib/os.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_symbol3686z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_pwdz00zz__osz00();
static obj_t BGl_symbol3683z00zz__osz00 = BUNSPEC;
static obj_t BGl__defaultzd2executablezd2namez00zz__osz00(obj_t);
static obj_t BGl_symbol3681z00zz__osz00 = BUNSPEC;
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3680z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3679z00zz__osz00 = BUNSPEC;
extern obj_t command_line;
static obj_t BGl_symbol3677z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3674z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3673z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3672z00zz__osz00 = BUNSPEC;
extern obj_t c_signal(int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_systemzd2ze3stringz31zz__osz00(obj_t);
static obj_t BGl_symbol3669z00zz__osz00 = BUNSPEC;
static obj_t BGl__unixzd2pathzd2ze3list2369ze3zz__osz00(obj_t, obj_t);
extern obj_t make_string(int, unsigned char);
static obj_t BGl_symbol3664z00zz__osz00 = BUNSPEC;
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol3663z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_filezd2separatorzd2zz__osz00();
static obj_t BGl_symbol3662z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3661z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3660z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3659z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3658z00zz__osz00 = BUNSPEC;
static obj_t BGl__makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t, obj_t);
static obj_t BGl_symbol3657z00zz__osz00 = BUNSPEC;
extern bool_t bgl_chmod(char *, bool_t, bool_t, bool_t);
static obj_t BGl_symbol3656z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t, obj_t);
static obj_t BGl_symbol3655z00zz__osz00 = BUNSPEC;
static obj_t BGl__prefixz00zz__osz00(obj_t, obj_t);
static obj_t BGl_symbol3654z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3653z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_getenvz00zz__osz00(char *);
static obj_t BGl_list3649z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_putenvz00zz__osz00(char *, char *);
static obj_t BGl_symbol3648z00zz__osz00 = BUNSPEC;
static obj_t BGl__oszd2tmpzd2zz__osz00(obj_t);
static obj_t BGl__pathzd2separatorzd2zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_systemz00zz__osz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_chdirz00zz__osz00(char *);
BGL_EXPORTED_DECL bool_t BGl_chmodz00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dynamiczd2loadzd2zz__osz00(obj_t, obj_t);
extern int bgl_setenv(char *, char *);
static obj_t BGl__dirnamez00zz__osz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__osz00();
static obj_t BGl__putenv2348z00zz__osz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_basenamez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2filezd2pathz00zz__osz00(obj_t, obj_t, obj_t);
static obj_t BGl__getzd2signalzd2handlerz00zz__osz00(obj_t, obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dirnamez00zz__osz00(obj_t);
extern bool_t fexists(char *);
extern obj_t close_input_port(obj_t);
static obj_t BGl__signalz00zz__osz00(obj_t, obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
extern obj_t get_signal_handler(int);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2scriptzd2namez00zz__osz00();
static obj_t BGl__basenamez00zz__osz00(obj_t, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31080za3Llibzf2osze2scmza3260ze3z93zz__osz00(obj_t);
extern obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
static obj_t BGl__makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_suffixz00zz__osz00(obj_t);
static obj_t BGl__oszd2versionzd2zz__osz00(obj_t);
extern obj_t string_append(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_oszd2classzd2zz__osz00();
static obj_t BGl__commandzd2linezd2zz__osz00(obj_t);
static obj_t BGl__makezd2filezd2namez00zz__osz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__osz00();
BGL_EXPORTED_DECL obj_t BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t);
extern char * bgl_dload_error();
static obj_t BGl__makezd2filezd2path2361z00zz__osz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__pwdz00zz__osz00(obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__oszd2classzd2zz__osz00(obj_t);
extern obj_t blit_string(obj_t, int, obj_t, int, int);
static obj_t BGl__getenvz00zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2executablezd2namez00zz__osz00();
static obj_t BGl_requirezd2initializa7ationz75zz__osz00 = BUNSPEC;
extern char * c_date();
static obj_t BGl__systemz00zz__osz00(obj_t, obj_t);
extern char * executable_name;
BGL_EXPORTED_DECL obj_t BGl_oszd2versionzd2zz__osz00();
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_pathzd2separatorzd2zz__osz00();
BGL_EXPORTED_DEF obj_t BGl_za2dynamiczd2loadzd2pathza2z00zz__osz00 = BUNSPEC;
static obj_t BGl__defaultzd2scriptzd2namez00zz__osz00(obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl__datez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_prefixz00zz__osz00(obj_t);
BGL_EXPORTED_DECL char * BGl_hostnamez00zz__osz00();
extern obj_t string_to_bstring(char *);
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl__dynamiczd2loadzd2zz__osz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_oszd2tmpzd2zz__osz00();
static obj_t BGl__filezd2separatorzd2zz__osz00(obj_t);
extern void bgl_sleep(long);
BGL_EXPORTED_DECL obj_t BGl_unixzd2pathzd2ze3listze3zz__osz00(obj_t);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl__executablezd2namezd2zz__osz00(obj_t);
static obj_t BGl__systemzd2ze3stringz31zz__osz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t);
static obj_t BGl__oszd2namezd2zz__osz00(obj_t);
extern int bgl_dload(char *, char *);
static obj_t BGl__oszd2archzd2zz__osz00(obj_t);
static obj_t BGl__hostnamez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2signalzd2handlerz00zz__osz00(int);
BGL_EXPORTED_DECL obj_t BGl_sleepz00zz__osz00(long);
static obj_t BGl__suffixz00zz__osz00(obj_t, obj_t);
static obj_t BGl__sleep2366z00zz__osz00(obj_t, obj_t);
static obj_t BGl_symbol3735z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3734z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3733z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_oszd2namezd2zz__osz00();
static obj_t BGl_symbol3731z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3730z00zz__osz00 = BUNSPEC;
extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern char * bgl_gethostname();
BGL_EXPORTED_DECL obj_t BGl_oszd2archzd2zz__osz00();
BGL_EXPORTED_DECL obj_t BGl_signalz00zz__osz00(int, obj_t);
BGL_EXPORTED_DECL char * BGl_executablezd2namezd2zz__osz00();
static obj_t BGl_symbol3724z00zz__osz00 = BUNSPEC;
static obj_t BGl__chdirz00zz__osz00(obj_t, obj_t);
static obj_t BGl_symbol3722z00zz__osz00 = BUNSPEC;
static obj_t BGl__chmodz00zz__osz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__osz00();
static obj_t BGl_symbol3721z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3720z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3719z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3718z00zz__osz00 = BUNSPEC;
static obj_t BGl__findzd2filezf2pathz20zz__osz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2defaultzd2javazd2packageza2z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3717z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL char * BGl_datez00zz__osz00();
static obj_t BGl_symbol3716z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3715z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3714z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3713z00zz__osz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_commandzd2linezd2zz__osz00();
static obj_t BGl_symbol3712z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3711z00zz__osz00 = BUNSPEC;
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3710z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3699z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3698z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3707z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3697z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3706z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3696z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3705z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3695z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3704z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3694z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3703z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3693z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3702z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3701z00zz__osz00 = BUNSPEC;
static obj_t BGl_symbol3700z00zz__osz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string3732z00zz__osz00, BgL_bgl_string3732za700za7za7__osza7003745z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string3729z00zz__osz00, BgL_bgl_string3729za700za7za7__osza7003746z00, "Can't find library", 18 );
DEFINE_STRING( BGl_string3728z00zz__osz00, BgL_bgl_string3728za700za7za7__osza7003747z00, "Not supported on this architecture", 34 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2classzd2envz00zz__osz00, BgL_bgl__osza7d2classza7d2za7za7__osza7003748za7, BGl__oszd2classzd2zz__osz00, 0L, 0 );
DEFINE_STRING( BGl_string3727z00zz__osz00, BgL_bgl_string3727za700za7za7__osza7003749z00, "Can't find init symbol", 22 );
DEFINE_STRING( BGl_string3726z00zz__osz00, BgL_bgl_string3726za700za7za7__osza7003750z00, "dynamic-load", 12 );
DEFINE_STRING( BGl_string3725z00zz__osz00, BgL_bgl_string3725za700za7za7__osza7003751z00, "dynamic-load:", 13 );
DEFINE_STRING( BGl_string3723z00zz__osz00, BgL_bgl_string3723za700za7za7__osza7003752z00, "long", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_suffixzd2envzd2zz__osz00, BgL_bgl__suffixza700za7za7__osza7003753z00, BGl__suffixz00zz__osz00, 0L, 1 );
DEFINE_STRING( BGl_string3709z00zz__osz00, BgL_bgl_string3709za700za7za7__osza7003754z00, "Unknown mode", 12 );
DEFINE_STRING( BGl_string3708z00zz__osz00, BgL_bgl_string3708za700za7za7__osza7003755z00, "chmod", 5 );
DEFINE_STRING( BGl_string3692z00zz__osz00, BgL_bgl_string3692za700za7za7__osza7003756z00, "bstring", 7 );
DEFINE_STRING( BGl_string3691z00zz__osz00, BgL_bgl_string3691za700za7za7__osza7003757z00, "Illegal index", 13 );
DEFINE_EXPORT_PROCEDURE( BGl_datezd2envzd2zz__osz00, BgL_bgl__dateza700za7za7__osza7003758z00, BGl__datez00zz__osz00, 0L, 0 );
DEFINE_STRING( BGl_string3690z00zz__osz00, BgL_bgl_string3690za700za7za7__osza7003759z00, "substring", 9 );
DEFINE_STRING( BGl_string3689z00zz__osz00, BgL_bgl_string3689za700za7za7__osza7003760z00, "uchar", 5 );
DEFINE_STRING( BGl_string3688z00zz__osz00, BgL_bgl_string3688za700za7za7__osza7003761z00, "index out of range", 18 );
DEFINE_STRING( BGl_string3687z00zz__osz00, BgL_bgl_string3687za700za7za7__osza7003762z00, "string-ref", 10 );
DEFINE_STRING( BGl_string3685z00zz__osz00, BgL_bgl_string3685za700za7za7__osza7003763z00, "input-port", 10 );
DEFINE_STRING( BGl_string3684z00zz__osz00, BgL_bgl_string3684za700za7za7__osza7003764z00, "| ", 2 );
DEFINE_STRING( BGl_string3682z00zz__osz00, BgL_bgl_string3682za700za7za7__osza7003765z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2tmpzd2envz00zz__osz00, BgL_bgl__osza7d2tmpza7d2za7za7__osza7003766za7, BGl__oszd2tmpzd2zz__osz00, 0L, 0 );
DEFINE_STRING( BGl_string3678z00zz__osz00, BgL_bgl_string3678za700za7za7__osza7003767z00, "string", 6 );
DEFINE_STRING( BGl_string3676z00zz__osz00, BgL_bgl_string3676za700za7za7__osza7003768z00, "HOME", 4 );
DEFINE_STRING( BGl_string3675z00zz__osz00, BgL_bgl_string3675za700za7za7__osza7003769z00, "win32", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_basenamezd2envzd2zz__osz00, BgL_bgl__basenameza700za7za7__osza7003770z00, BGl__basenamez00zz__osz00, 0L, 1 );
DEFINE_STRING( BGl_string3671z00zz__osz00, BgL_bgl_string3671za700za7za7__osza7003771z00, "procedure", 9 );
DEFINE_STRING( BGl_string3670z00zz__osz00, BgL_bgl_string3670za700za7za7__osza7003772z00, "int", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_getenvzd2envzd2zz__osz00, BgL_bgl__getenvza700za7za7__osza7003773z00, BGl__getenvz00zz__osz00, 0L, 1 );
DEFINE_STRING( BGl_string3668z00zz__osz00, BgL_bgl_string3668za700za7za7__osza7003774z00, "Wrong number of arguments", 25 );
DEFINE_STRING( BGl_string3667z00zz__osz00, BgL_bgl_string3667za700za7za7__osza7003775z00, "/tmp/bigloo/runtime/./Llib/os.scm", 33 );
DEFINE_STRING( BGl_string3666z00zz__osz00, BgL_bgl_string3666za700za7za7__osza7003776z00, "Illegal signal", 14 );
DEFINE_STRING( BGl_string3665z00zz__osz00, BgL_bgl_string3665za700za7za7__osza7003777z00, "signal", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_defaultzd2scriptzd2namezd2envzd2zz__osz00, BgL_bgl__defaultza7d2scriptza7d2nameza700za7za7__osza7003778z00, BGl__defaultzd2scriptzd2namez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2staticzd2libraryzd2namezd2envz00zz__osz00, BgL_bgl__makeza7d2staticza7d2libraryza7d2nameza7d2za7za7__osza7003779za7, BGl__makezd2staticzd2libraryzd2namezd2zz__osz00, 0L, 1 );
DEFINE_STRING( BGl_string3652z00zz__osz00, BgL_bgl_string3652za700za7za7__osza7003780z00, "bigloo.foreign", 14 );
DEFINE_STRING( BGl_string3651z00zz__osz00, BgL_bgl_string3651za700za7za7__osza7003781z00, ".", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dirnamezd2envzd2zz__osz00, BgL_bgl__dirnameza700za7za7__osza7003782z00, BGl__dirnamez00zz__osz00, 0L, 1 );
DEFINE_STRING( BGl_string3650z00zz__osz00, BgL_bgl_string3650za700za7za7__osza7003783z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_systemzd2envzd2zz__osz00, BgL_bgl__systemza700za7za7__osza7003784z00, va_generic_entry, BGl__systemz00zz__osz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2namezd2envz00zz__osz00, BgL_bgl__osza7d2nameza7d2za7za7__osza7003785za7, BGl__oszd2namezd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_pwdzd2envzd2zz__osz00, BgL_bgl__pwdza700za7za7__osza7003786z00, BGl__pwdz00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2filezd2namezd2envzd2zz__osz00, BgL_bgl__makeza7d2fileza7d2nameza700za7za7__osza7003787z00, BGl__makezd2filezd2namez00zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2filezf2pathzd2envzf2zz__osz00, BgL_bgl__findza7d2fileza7f2pathza720za7za7__osza7003788z00, BGl__findzd2filezf2pathz20zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2sharedzd2libraryzd2namezd2envz00zz__osz00, BgL_bgl__makeza7d2sharedza7d2libraryza7d2nameza7d2za7za7__osza7003789za7, BGl__makezd2sharedzd2libraryzd2namezd2zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2archzd2envz00zz__osz00, BgL_bgl__osza7d2archza7d2za7za7__osza7003790za7, BGl__oszd2archzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_dynamiczd2loadzd2envz00zz__osz00, BgL_bgl__dynamicza7d2loadza7d2za7za7__osza7003791za7, va_generic_entry, BGl__dynamiczd2loadzd2zz__osz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_hostnamezd2envzd2zz__osz00, BgL_bgl__hostnameza700za7za7__osza7003792z00, BGl__hostnamez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_chmodzd2envzd2zz__osz00, BgL_bgl__chmodza700za7za7__osza7003793z00, va_generic_entry, BGl__chmodz00zz__osz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_executablezd2namezd2envz00zz__osz00, BgL_bgl__executableza7d2nameza7d2za7za7__osza7003794za7, BGl__executablezd2namezd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2signalzd2handlerzd2envzd2zz__osz00, BgL_bgl__getza7d2signalza7d2handlerza700za7za7__osza7003795z00, BGl__getzd2signalzd2handlerz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_filezd2separatorzd2envz00zz__osz00, BgL_bgl__fileza7d2separatorza7d2za7za7__osza7003796za7, BGl__filezd2separatorzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_defaultzd2executablezd2namezd2envzd2zz__osz00, BgL_bgl__defaultza7d2executableza7d2nameza700za7za7__osza7003797z00, BGl__defaultzd2executablezd2namez00zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2filezd2pathzd2envzd2zz__osz00, BgL_bgl__makeza7d2fileza7d2path2361za700za7za7__osza7003798z00, va_generic_entry, BGl__makezd2filezd2path2361z00zz__osz00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_putenvzd2envzd2zz__osz00, BgL_bgl__putenv2348za700za7za7__osza7003799z00, BGl__putenv2348z00zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_unixzd2pathzd2ze3listzd2envz31zz__osz00, BgL_bgl__unixza7d2pathza7d2za7e3list2369za7e3za7za7__osza7003800za7, BGl__unixzd2pathzd2ze3list2369ze3zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_oszd2versionzd2envz00zz__osz00, BgL_bgl__osza7d2versionza7d2za7za7__osza7003801za7, BGl__oszd2versionzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prefixzd2envzd2zz__osz00, BgL_bgl__prefixza700za7za7__osza7003802z00, BGl__prefixz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_systemzd2ze3stringzd2envze3zz__osz00, BgL_bgl__systemza7d2za7e3stringza731za7za7__osza7003803z00, va_generic_entry, BGl__systemzd2ze3stringz31zz__osz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_sleepzd2envzd2zz__osz00, BgL_bgl__sleep2366za700za7za7__osza7003804z00, BGl__sleep2366z00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_chdirzd2envzd2zz__osz00, BgL_bgl__chdirza700za7za7__osza7003805z00, BGl__chdirz00zz__osz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_signalzd2envzd2zz__osz00, BgL_bgl__signalza700za7za7__osza7003806z00, BGl__signalz00zz__osz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_pathzd2separatorzd2envz00zz__osz00, BgL_bgl__pathza7d2separatorza7d2za7za7__osza7003807za7, BGl__pathzd2separatorzd2zz__osz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_commandzd2linezd2envz00zz__osz00, BgL_bgl__commandza7d2lineza7d2za7za7__osza7003808za7, BGl__commandzd2linezd2zz__osz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__osz00(long BgL_checksumz00_1707, char * BgL_fromz00_1708)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__osz00))
{ 
BGl_requirezd2initializa7ationz75zz__osz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__osz00(); 
BGl_importedzd2moduleszd2initz00zz__osz00(); 
BGl_toplevelzd2initzd2zz__osz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 18 */
BGl_symbol3648z00zz__osz00 = 
string_to_symbol("%toplevel@__os"); 
{ /* ./Llib/os.scm 488 */
obj_t BgL_auxz00_1716;
BgL_auxz00_1716 = 
MAKE_PAIR(BGl_string3651z00zz__osz00, BNIL); 
BGl_list3649z00zz__osz00 = 
MAKE_PAIR(BGl_string3650z00zz__osz00, BgL_auxz00_1716); } 
BGl_symbol3653z00zz__osz00 = 
string_to_symbol("default-executable-name"); 
BGl_symbol3654z00zz__osz00 = 
string_to_symbol("default-script-name"); 
BGl_symbol3655z00zz__osz00 = 
string_to_symbol("os-class"); 
BGl_symbol3656z00zz__osz00 = 
string_to_symbol("os-name"); 
BGl_symbol3657z00zz__osz00 = 
string_to_symbol("os-arch"); 
BGl_symbol3658z00zz__osz00 = 
string_to_symbol("os-version"); 
BGl_symbol3659z00zz__osz00 = 
string_to_symbol("os-tmp"); 
BGl_symbol3660z00zz__osz00 = 
string_to_symbol("file-separator"); 
BGl_symbol3661z00zz__osz00 = 
string_to_symbol("path-separator"); 
BGl_symbol3662z00zz__osz00 = 
string_to_symbol("command-line"); 
BGl_symbol3663z00zz__osz00 = 
string_to_symbol("executable-name"); 
BGl_symbol3664z00zz__osz00 = 
string_to_symbol("signal"); 
BGl_symbol3669z00zz__osz00 = 
string_to_symbol("_signal"); 
BGl_symbol3672z00zz__osz00 = 
string_to_symbol("get-signal-handler"); 
BGl_symbol3673z00zz__osz00 = 
string_to_symbol("_get-signal-handler"); 
BGl_symbol3674z00zz__osz00 = 
string_to_symbol("getenv"); 
BGl_symbol3677z00zz__osz00 = 
string_to_symbol("_getenv"); 
BGl_symbol3679z00zz__osz00 = 
string_to_symbol("putenv"); 
BGl_symbol3680z00zz__osz00 = 
string_to_symbol("_putenv2348"); 
BGl_symbol3681z00zz__osz00 = 
string_to_symbol("system"); 
BGl_symbol3683z00zz__osz00 = 
string_to_symbol("system->string"); 
BGl_symbol3686z00zz__osz00 = 
string_to_symbol("date"); 
BGl_symbol3693z00zz__osz00 = 
string_to_symbol("chdir"); 
BGl_symbol3694z00zz__osz00 = 
string_to_symbol("_chdir"); 
BGl_symbol3695z00zz__osz00 = 
string_to_symbol("pwd"); 
BGl_symbol3696z00zz__osz00 = 
string_to_symbol("basename"); 
BGl_symbol3697z00zz__osz00 = 
string_to_symbol("_basename"); 
BGl_symbol3698z00zz__osz00 = 
string_to_symbol("prefix"); 
BGl_symbol3699z00zz__osz00 = 
string_to_symbol("_prefix"); 
BGl_symbol3700z00zz__osz00 = 
string_to_symbol("dirname"); 
BGl_symbol3701z00zz__osz00 = 
string_to_symbol("_dirname"); 
BGl_symbol3702z00zz__osz00 = 
string_to_symbol("suffix"); 
BGl_symbol3703z00zz__osz00 = 
string_to_symbol("_suffix"); 
BGl_symbol3704z00zz__osz00 = 
string_to_symbol("chmod"); 
BGl_symbol3705z00zz__osz00 = 
string_to_symbol("read"); 
BGl_symbol3706z00zz__osz00 = 
string_to_symbol("write"); 
BGl_symbol3707z00zz__osz00 = 
string_to_symbol("execute"); 
BGl_symbol3710z00zz__osz00 = 
string_to_symbol("_chmod"); 
BGl_symbol3711z00zz__osz00 = 
string_to_symbol("make-file-name"); 
BGl_symbol3712z00zz__osz00 = 
string_to_symbol("_make-file-name"); 
BGl_symbol3713z00zz__osz00 = 
string_to_symbol("make-file-path"); 
BGl_symbol3714z00zz__osz00 = 
string_to_symbol("_make-file-path2361"); 
BGl_symbol3715z00zz__osz00 = 
string_to_symbol("find-file/path"); 
BGl_symbol3716z00zz__osz00 = 
string_to_symbol("_find-file/path"); 
BGl_symbol3717z00zz__osz00 = 
string_to_symbol("make-static-library-name"); 
BGl_symbol3718z00zz__osz00 = 
string_to_symbol("_make-static-library-name"); 
BGl_symbol3719z00zz__osz00 = 
string_to_symbol("make-shared-library-name"); 
BGl_symbol3720z00zz__osz00 = 
string_to_symbol("_make-shared-library-name"); 
BGl_symbol3721z00zz__osz00 = 
string_to_symbol("sleep"); 
BGl_symbol3722z00zz__osz00 = 
string_to_symbol("_sleep2366"); 
BGl_symbol3724z00zz__osz00 = 
string_to_symbol("dynamic-load"); 
BGl_symbol3730z00zz__osz00 = 
string_to_symbol("_dynamic-load"); 
BGl_symbol3731z00zz__osz00 = 
string_to_symbol("unix-path->list"); 
BGl_symbol3733z00zz__osz00 = 
string_to_symbol("_unix-path->list2369"); 
BGl_symbol3734z00zz__osz00 = 
string_to_symbol("hostname"); 
return ( 
BGl_symbol3735z00zz__osz00 = 
string_to_symbol("%import@__os"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 18 */
{ /* ./Llib/os.scm 18 */
obj_t BgL_symbol2167z00_1375;
BgL_symbol2167z00_1375 = BGl_symbol3648z00zz__osz00; 
{ /* ./Llib/os.scm 18 */

PUSH_TRACE(BgL_symbol2167z00_1375); BUNSPEC; 
{ /* ./Llib/os.scm 18 */
obj_t BgL_aux2166z00_1376;
BGl_za2dynamiczd2loadzd2pathza2z00zz__osz00 = BGl_list3649z00zz__osz00; 
BgL_aux2166z00_1376 = ( 
BGl_za2defaultzd2javazd2packageza2z00zz__osz00 = BGl_string3652z00zz__osz00, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux2166z00_1376;} } } } 
}



/* default-executable-name */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2executablezd2namez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 178 */
{ /* ./Llib/os.scm 178 */
obj_t BgL_symbol2171z00_1377;
BgL_symbol2171z00_1377 = BGl_symbol3653z00zz__osz00; 
{ /* ./Llib/os.scm 178 */

PUSH_TRACE(BgL_symbol2171z00_1377); BUNSPEC; 
{ /* ./Llib/os.scm 178 */
obj_t BgL_aux2170z00_1378;
BgL_aux2170z00_1378 = 
string_to_bstring(BGL_DEFAULT_A_OUT); 
POP_TRACE(); 
return BgL_aux2170z00_1378;} } } } 
}



/* _default-executable-name */
obj_t BGl__defaultzd2executablezd2namez00zz__osz00(obj_t BgL_envz00_1447)
{ AN_OBJECT;
{ /* ./Llib/os.scm 178 */
return 
BGl_defaultzd2executablezd2namez00zz__osz00();} 
}



/* default-script-name */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2scriptzd2namez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 179 */
{ /* ./Llib/os.scm 179 */
obj_t BgL_symbol2175z00_1379;
BgL_symbol2175z00_1379 = BGl_symbol3654z00zz__osz00; 
{ /* ./Llib/os.scm 179 */

PUSH_TRACE(BgL_symbol2175z00_1379); BUNSPEC; 
{ /* ./Llib/os.scm 179 */
obj_t BgL_aux2174z00_1380;
BgL_aux2174z00_1380 = 
string_to_bstring(BGL_DEFAULT_A_BAT); 
POP_TRACE(); 
return BgL_aux2174z00_1380;} } } } 
}



/* _default-script-name */
obj_t BGl__defaultzd2scriptzd2namez00zz__osz00(obj_t BgL_envz00_1448)
{ AN_OBJECT;
{ /* ./Llib/os.scm 179 */
return 
BGl_defaultzd2scriptzd2namez00zz__osz00();} 
}



/* os-class */
BGL_EXPORTED_DEF obj_t BGl_oszd2classzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 180 */
{ /* ./Llib/os.scm 180 */
obj_t BgL_symbol2179z00_1381;
BgL_symbol2179z00_1381 = BGl_symbol3655z00zz__osz00; 
{ /* ./Llib/os.scm 180 */

PUSH_TRACE(BgL_symbol2179z00_1381); BUNSPEC; 
{ /* ./Llib/os.scm 180 */
obj_t BgL_aux2178z00_1382;
BgL_aux2178z00_1382 = 
string_to_bstring(OS_CLASS); 
POP_TRACE(); 
return BgL_aux2178z00_1382;} } } } 
}



/* _os-class */
obj_t BGl__oszd2classzd2zz__osz00(obj_t BgL_envz00_1449)
{ AN_OBJECT;
{ /* ./Llib/os.scm 180 */
return 
BGl_oszd2classzd2zz__osz00();} 
}



/* os-name */
BGL_EXPORTED_DEF obj_t BGl_oszd2namezd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 181 */
{ /* ./Llib/os.scm 181 */
obj_t BgL_symbol2183z00_1383;
BgL_symbol2183z00_1383 = BGl_symbol3656z00zz__osz00; 
{ /* ./Llib/os.scm 181 */

PUSH_TRACE(BgL_symbol2183z00_1383); BUNSPEC; 
{ /* ./Llib/os.scm 181 */
obj_t BgL_aux2182z00_1384;
BgL_aux2182z00_1384 = 
string_to_bstring(OS_NAME); 
POP_TRACE(); 
return BgL_aux2182z00_1384;} } } } 
}



/* _os-name */
obj_t BGl__oszd2namezd2zz__osz00(obj_t BgL_envz00_1450)
{ AN_OBJECT;
{ /* ./Llib/os.scm 181 */
return 
BGl_oszd2namezd2zz__osz00();} 
}



/* os-arch */
BGL_EXPORTED_DEF obj_t BGl_oszd2archzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 182 */
{ /* ./Llib/os.scm 182 */
obj_t BgL_symbol2187z00_1385;
BgL_symbol2187z00_1385 = BGl_symbol3657z00zz__osz00; 
{ /* ./Llib/os.scm 182 */

PUSH_TRACE(BgL_symbol2187z00_1385); BUNSPEC; 
{ /* ./Llib/os.scm 182 */
obj_t BgL_aux2186z00_1386;
BgL_aux2186z00_1386 = 
string_to_bstring(OS_ARCH); 
POP_TRACE(); 
return BgL_aux2186z00_1386;} } } } 
}



/* _os-arch */
obj_t BGl__oszd2archzd2zz__osz00(obj_t BgL_envz00_1451)
{ AN_OBJECT;
{ /* ./Llib/os.scm 182 */
return 
BGl_oszd2archzd2zz__osz00();} 
}



/* os-version */
BGL_EXPORTED_DEF obj_t BGl_oszd2versionzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 183 */
{ /* ./Llib/os.scm 183 */
obj_t BgL_symbol2191z00_1387;
BgL_symbol2191z00_1387 = BGl_symbol3658z00zz__osz00; 
{ /* ./Llib/os.scm 183 */

PUSH_TRACE(BgL_symbol2191z00_1387); BUNSPEC; 
{ /* ./Llib/os.scm 183 */
obj_t BgL_aux2190z00_1388;
BgL_aux2190z00_1388 = 
string_to_bstring(OS_VERSION); 
POP_TRACE(); 
return BgL_aux2190z00_1388;} } } } 
}



/* _os-version */
obj_t BGl__oszd2versionzd2zz__osz00(obj_t BgL_envz00_1452)
{ AN_OBJECT;
{ /* ./Llib/os.scm 183 */
return 
BGl_oszd2versionzd2zz__osz00();} 
}



/* os-tmp */
BGL_EXPORTED_DEF obj_t BGl_oszd2tmpzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 184 */
{ /* ./Llib/os.scm 184 */
obj_t BgL_symbol2195z00_1389;
BgL_symbol2195z00_1389 = BGl_symbol3659z00zz__osz00; 
{ /* ./Llib/os.scm 184 */

PUSH_TRACE(BgL_symbol2195z00_1389); BUNSPEC; 
{ /* ./Llib/os.scm 184 */
obj_t BgL_aux2194z00_1390;
BgL_aux2194z00_1390 = 
string_to_bstring(OS_TMP); 
POP_TRACE(); 
return BgL_aux2194z00_1390;} } } } 
}



/* _os-tmp */
obj_t BGl__oszd2tmpzd2zz__osz00(obj_t BgL_envz00_1453)
{ AN_OBJECT;
{ /* ./Llib/os.scm 184 */
return 
BGl_oszd2tmpzd2zz__osz00();} 
}



/* file-separator */
BGL_EXPORTED_DEF obj_t BGl_filezd2separatorzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 185 */
{ /* ./Llib/os.scm 185 */
obj_t BgL_symbol2199z00_1391;
BgL_symbol2199z00_1391 = BGl_symbol3660z00zz__osz00; 
{ /* ./Llib/os.scm 185 */

PUSH_TRACE(BgL_symbol2199z00_1391); BUNSPEC; 
{ /* ./Llib/os.scm 185 */
obj_t BgL_aux2198z00_1392;
BgL_aux2198z00_1392 = 
BCHAR(FILE_SEPARATOR); 
POP_TRACE(); 
return BgL_aux2198z00_1392;} } } } 
}



/* _file-separator */
obj_t BGl__filezd2separatorzd2zz__osz00(obj_t BgL_envz00_1454)
{ AN_OBJECT;
{ /* ./Llib/os.scm 185 */
return 
BGl_filezd2separatorzd2zz__osz00();} 
}



/* path-separator */
BGL_EXPORTED_DEF obj_t BGl_pathzd2separatorzd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 186 */
{ /* ./Llib/os.scm 186 */
obj_t BgL_symbol2203z00_1393;
BgL_symbol2203z00_1393 = BGl_symbol3661z00zz__osz00; 
{ /* ./Llib/os.scm 186 */

PUSH_TRACE(BgL_symbol2203z00_1393); BUNSPEC; 
{ /* ./Llib/os.scm 186 */
obj_t BgL_aux2202z00_1394;
BgL_aux2202z00_1394 = 
BCHAR(PATH_SEPARATOR); 
POP_TRACE(); 
return BgL_aux2202z00_1394;} } } } 
}



/* _path-separator */
obj_t BGl__pathzd2separatorzd2zz__osz00(obj_t BgL_envz00_1455)
{ AN_OBJECT;
{ /* ./Llib/os.scm 186 */
return 
BGl_pathzd2separatorzd2zz__osz00();} 
}



/* command-line */
BGL_EXPORTED_DEF obj_t BGl_commandzd2linezd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 191 */
{ /* ./Llib/os.scm 192 */
obj_t BgL_symbol2207z00_1395;
BgL_symbol2207z00_1395 = BGl_symbol3662z00zz__osz00; 
{ /* ./Llib/os.scm 192 */

PUSH_TRACE(BgL_symbol2207z00_1395); BUNSPEC; 
{ /* ./Llib/os.scm 192 */
obj_t BgL_aux2206z00_1396;
BgL_aux2206z00_1396 = command_line; 
POP_TRACE(); 
return BgL_aux2206z00_1396;} } } } 
}



/* _command-line */
obj_t BGl__commandzd2linezd2zz__osz00(obj_t BgL_envz00_1456)
{ AN_OBJECT;
{ /* ./Llib/os.scm 191 */
return 
BGl_commandzd2linezd2zz__osz00();} 
}



/* executable-name */
BGL_EXPORTED_DEF char * BGl_executablezd2namezd2zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 197 */
{ /* ./Llib/os.scm 198 */
obj_t BgL_symbol2211z00_1397;
BgL_symbol2211z00_1397 = BGl_symbol3663z00zz__osz00; 
{ /* ./Llib/os.scm 198 */

PUSH_TRACE(BgL_symbol2211z00_1397); BUNSPEC; 
{ /* ./Llib/os.scm 198 */
char * BgL_aux2210z00_1398;
BgL_aux2210z00_1398 = executable_name; 
POP_TRACE(); 
return BgL_aux2210z00_1398;} } } } 
}



/* _executable-name */
obj_t BGl__executablezd2namezd2zz__osz00(obj_t BgL_envz00_1457)
{ AN_OBJECT;
{ /* ./Llib/os.scm 197 */
{ /* ./Llib/os.scm 198 */
char * BgL_auxz00_1818;
BgL_auxz00_1818 = 
BGl_executablezd2namezd2zz__osz00(); 
return 
string_to_bstring(BgL_auxz00_1818);} } 
}



/* signal */
BGL_EXPORTED_DEF obj_t BGl_signalz00zz__osz00(int BgL_numz00_1, obj_t BgL_procz00_2)
{ AN_OBJECT;
{ /* ./Llib/os.scm 203 */
{ /* ./Llib/os.scm 205 */
obj_t BgL_symbol2215z00_1399;
BgL_symbol2215z00_1399 = BGl_symbol3664z00zz__osz00; 
{ /* ./Llib/os.scm 205 */

PUSH_TRACE(BgL_symbol2215z00_1399); BUNSPEC; 
{ /* ./Llib/os.scm 205 */
obj_t BgL_aux2214z00_1400;
{ /* ./Llib/os.scm 205 */
bool_t BgL_test1009z00_363;
{ /* ./Llib/os.scm 205 */
int BgL_arg1020z00_366;
BgL_arg1020z00_366 = 
PROCEDURE_ARITY(BgL_procz00_2); 
{ /* ./Llib/os.scm 205 */
long BgL_auxz00_1823;
BgL_auxz00_1823 = 
(long)(BgL_arg1020z00_366); 
BgL_test1009z00_363 = 
(BgL_auxz00_1823==((long)1)); } } 
if(BgL_test1009z00_363)
{ /* ./Llib/os.scm 207 */
bool_t BgL_test1010z00_364;
{ /* ./Llib/os.scm 207 */
bool_t BgL_testz00_1827;
{ /* ./Llib/os.scm 207 */
long BgL_auxz00_1828;
BgL_auxz00_1828 = 
(long)(BgL_numz00_1); 
BgL_testz00_1827 = 
(BgL_auxz00_1828<((long)0)); } 
if(BgL_testz00_1827)
{ /* ./Llib/os.scm 207 */
BgL_test1010z00_364 = ((bool_t)1); }  else 
{ /* ./Llib/os.scm 207 */
long BgL_auxz00_1831;
BgL_auxz00_1831 = 
(long)(BgL_numz00_1); 
BgL_test1010z00_364 = 
(BgL_auxz00_1831>((long)31)); } } 
if(BgL_test1010z00_364)
{ /* ./Llib/os.scm 207 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3665z00zz__osz00, BGl_string3666z00zz__osz00, 
BINT(BgL_numz00_1), "./Llib/os.scm", ((long)8199)); 
BgL_aux2214z00_1400 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)8199))); }  else 
{ /* ./Llib/os.scm 207 */
BgL_aux2214z00_1400 = 
c_signal(BgL_numz00_1, BgL_procz00_2); } }  else 
{ /* ./Llib/os.scm 205 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3665z00zz__osz00, BGl_string3668z00zz__osz00, BgL_procz00_2, "./Llib/os.scm", ((long)8104)); 
BgL_aux2214z00_1400 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)8104))); } } 
POP_TRACE(); 
return BgL_aux2214z00_1400;} } } } 
}



/* _signal */
obj_t BGl__signalz00zz__osz00(obj_t BgL_envz00_1458, obj_t BgL_numz00_1459, obj_t BgL_procz00_1460)
{ AN_OBJECT;
{ /* ./Llib/os.scm 203 */
{ /* ./Llib/os.scm 205 */
obj_t BgL_auxz00_1852;int BgL_auxz00_1844;
if(
PROCEDUREP(BgL_procz00_1460))
{ /* ./Llib/os.scm 205 */
BgL_auxz00_1852 = BgL_procz00_1460
; }  else 
{ /* ./Llib/os.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3669z00zz__osz00, BGl_string3671z00zz__osz00, BgL_procz00_1460, BGl_string3667z00zz__osz00, 
BINT(((long)8060))); 
exit( -1 );} 
{ /* ./Llib/os.scm 205 */
obj_t BgL_auxz00_1845;
if(
INTEGERP(BgL_numz00_1459))
{ /* ./Llib/os.scm 205 */
BgL_auxz00_1845 = BgL_numz00_1459
; }  else 
{ /* ./Llib/os.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3669z00zz__osz00, BGl_string3670z00zz__osz00, BgL_numz00_1459, BGl_string3667z00zz__osz00, 
BINT(((long)8060))); 
exit( -1 );} 
BgL_auxz00_1844 = 
CINT(BgL_auxz00_1845); } 
return 
BGl_signalz00zz__osz00(BgL_auxz00_1844, BgL_auxz00_1852);} } 
}



/* get-signal-handler */
BGL_EXPORTED_DEF obj_t BGl_getzd2signalzd2handlerz00zz__osz00(int BgL_numz00_3)
{ AN_OBJECT;
{ /* ./Llib/os.scm 215 */
{ /* ./Llib/os.scm 216 */
obj_t BgL_symbol2219z00_1401;
BgL_symbol2219z00_1401 = BGl_symbol3672z00zz__osz00; 
{ /* ./Llib/os.scm 216 */

PUSH_TRACE(BgL_symbol2219z00_1401); BUNSPEC; 
{ /* ./Llib/os.scm 216 */
obj_t BgL_aux2218z00_1402;
BgL_aux2218z00_1402 = 
get_signal_handler(BgL_numz00_3); 
POP_TRACE(); 
return BgL_aux2218z00_1402;} } } } 
}



/* _get-signal-handler */
obj_t BGl__getzd2signalzd2handlerz00zz__osz00(obj_t BgL_envz00_1461, obj_t BgL_numz00_1462)
{ AN_OBJECT;
{ /* ./Llib/os.scm 215 */
{ /* ./Llib/os.scm 216 */
int BgL_auxz00_1862;
{ /* ./Llib/os.scm 216 */
obj_t BgL_auxz00_1863;
if(
INTEGERP(BgL_numz00_1462))
{ /* ./Llib/os.scm 216 */
BgL_auxz00_1863 = BgL_numz00_1462
; }  else 
{ /* ./Llib/os.scm 216 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3673z00zz__osz00, BGl_string3670z00zz__osz00, BgL_numz00_1462, BGl_string3667z00zz__osz00, 
BINT(((long)8539))); 
exit( -1 );} 
BgL_auxz00_1862 = 
CINT(BgL_auxz00_1863); } 
return 
BGl_getzd2signalzd2handlerz00zz__osz00(BgL_auxz00_1862);} } 
}



/* getenv */
BGL_EXPORTED_DEF obj_t BGl_getenvz00zz__osz00(char * BgL_stringz00_4)
{ AN_OBJECT;
{ /* ./Llib/os.scm 221 */
{ /* ./Llib/os.scm 222 */
obj_t BgL_symbol2223z00_1403;
BgL_symbol2223z00_1403 = BGl_symbol3674z00zz__osz00; 
{ /* ./Llib/os.scm 222 */

PUSH_TRACE(BgL_symbol2223z00_1403); BUNSPEC; 
{ /* ./Llib/os.scm 222 */
obj_t BgL_aux2222z00_1404;
{ /* ./Llib/os.scm 222 */
bool_t BgL_test1025z00_368;
{ /* ./Llib/os.scm 222 */
bool_t BgL_test1026z00_369;
{ /* ./Llib/os.scm 222 */
char * BgL_arg1029z00_370;
BgL_arg1029z00_370 = OS_CLASS; 
{ /* ./Llib/os.scm 222 */
obj_t BgL_auxz00_1872;
BgL_auxz00_1872 = 
string_to_bstring(BgL_arg1029z00_370); 
BgL_test1026z00_369 = 
bigloo_strcmp(BgL_auxz00_1872, BGl_string3675z00zz__osz00); } } 
if(BgL_test1026z00_369)
{ /* ./Llib/os.scm 223 */
obj_t BgL_auxz00_1876;
BgL_auxz00_1876 = 
string_to_bstring(BgL_stringz00_4); 
BgL_test1025z00_368 = 
bigloo_strcmp(BgL_auxz00_1876, BGl_string3676z00zz__osz00); }  else 
{ /* ./Llib/os.scm 222 */
BgL_test1025z00_368 = ((bool_t)0); } } 
if(BgL_test1025z00_368)
{ /* ./Llib/os.scm 222 */
BgL_stringz00_4 = "USERPROFILE"; }  else 
{ /* ./Llib/os.scm 222 */BFALSE; } } 
{ /* ./Llib/os.scm 225 */
bool_t BgL_test1033z00_372;
BgL_test1033z00_372 = 
(long)getenv(BgL_stringz00_4); 
if(BgL_test1033z00_372)
{ /* ./Llib/os.scm 226 */
char * BgL_resultz00_373;
BgL_resultz00_373 = 
(char *)getenv(BgL_stringz00_4); 
{ /* ./Llib/os.scm 227 */
bool_t BgL_test1034z00_374;
BgL_test1034z00_374 = 
STRING_PTR_NULL(BgL_resultz00_373); 
if(BgL_test1034z00_374)
{ /* ./Llib/os.scm 227 */
BgL_aux2222z00_1404 = BFALSE; }  else 
{ /* ./Llib/os.scm 227 */
BgL_aux2222z00_1404 = 
string_to_bstring(BgL_resultz00_373); } } }  else 
{ /* ./Llib/os.scm 225 */
BgL_aux2222z00_1404 = BFALSE; } } 
POP_TRACE(); 
return BgL_aux2222z00_1404;} } } } 
}



/* _getenv */
obj_t BGl__getenvz00zz__osz00(obj_t BgL_envz00_1463, obj_t BgL_stringz00_1464)
{ AN_OBJECT;
{ /* ./Llib/os.scm 221 */
{ /* ./Llib/os.scm 222 */
char * BgL_auxz00_1887;
{ /* ./Llib/os.scm 222 */
obj_t BgL_auxz00_1888;
if(
STRINGP(BgL_stringz00_1464))
{ /* ./Llib/os.scm 222 */
BgL_auxz00_1888 = BgL_stringz00_1464
; }  else 
{ /* ./Llib/os.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3677z00zz__osz00, BGl_string3678z00zz__osz00, BgL_stringz00_1464, BGl_string3667z00zz__osz00, 
BINT(((long)8817))); 
exit( -1 );} 
BgL_auxz00_1887 = 
BSTRING_TO_STRING(BgL_auxz00_1888); } 
return 
BGl_getenvz00zz__osz00(BgL_auxz00_1887);} } 
}



/* putenv */
BGL_EXPORTED_DEF obj_t BGl_putenvz00zz__osz00(char * BgL_stringz00_5, char * BgL_valz00_6)
{ AN_OBJECT;
{ /* ./Llib/os.scm 235 */
{ /* ./Llib/os.scm 236 */
obj_t BgL_symbol2227z00_1405;
BgL_symbol2227z00_1405 = BGl_symbol3679z00zz__osz00; 
{ /* ./Llib/os.scm 236 */

PUSH_TRACE(BgL_symbol2227z00_1405); BUNSPEC; 
{ /* ./Llib/os.scm 236 */
obj_t BgL_aux2226z00_1406;
{ /* ./Llib/os.scm 236 */
bool_t BgL_test1038z00_375;
{ /* ./Llib/os.scm 236 */
bool_t BgL_test1039z00_376;
{ /* ./Llib/os.scm 236 */
char * BgL_arg1042z00_377;
BgL_arg1042z00_377 = OS_CLASS; 
{ /* ./Llib/os.scm 236 */
obj_t BgL_auxz00_1897;
BgL_auxz00_1897 = 
string_to_bstring(BgL_arg1042z00_377); 
BgL_test1039z00_376 = 
bigloo_strcmp(BgL_auxz00_1897, BGl_string3675z00zz__osz00); } } 
if(BgL_test1039z00_376)
{ /* ./Llib/os.scm 237 */
obj_t BgL_auxz00_1901;
BgL_auxz00_1901 = 
string_to_bstring(BgL_stringz00_5); 
BgL_test1038z00_375 = 
bigloo_strcmp(BgL_auxz00_1901, BGl_string3676z00zz__osz00); }  else 
{ /* ./Llib/os.scm 236 */
BgL_test1038z00_375 = ((bool_t)0); } } 
if(BgL_test1038z00_375)
{ /* ./Llib/os.scm 236 */
BgL_stringz00_5 = "USERPROFILE"; }  else 
{ /* ./Llib/os.scm 236 */BFALSE; } } 
{ /* ./Llib/os.scm 239 */
int BgL_arg1047z00_379;
BgL_arg1047z00_379 = 
bgl_setenv(BgL_stringz00_5, BgL_valz00_6); 
{ /* ./Llib/os.scm 239 */
bool_t BgL_auxz00_1906;
{ /* ./Llib/os.scm 239 */
long BgL_auxz00_1907;
BgL_auxz00_1907 = 
(long)(BgL_arg1047z00_379); 
BgL_auxz00_1906 = 
(BgL_auxz00_1907==((long)0)); } 
BgL_aux2226z00_1406 = 
BBOOL(BgL_auxz00_1906); } } 
POP_TRACE(); 
return BgL_aux2226z00_1406;} } } } 
}



/* _putenv2348 */
obj_t BGl__putenv2348z00zz__osz00(obj_t BgL_envz00_1465, obj_t BgL_stringz00_1466, obj_t BgL_valz00_1467)
{ AN_OBJECT;
{ /* ./Llib/os.scm 235 */
{ /* ./Llib/os.scm 236 */
char * BgL_auxz00_1920;char * BgL_auxz00_1912;
{ /* ./Llib/os.scm 236 */
obj_t BgL_auxz00_1921;
if(
STRINGP(BgL_valz00_1467))
{ /* ./Llib/os.scm 236 */
BgL_auxz00_1921 = BgL_valz00_1467
; }  else 
{ /* ./Llib/os.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3680z00zz__osz00, BGl_string3678z00zz__osz00, BgL_valz00_1467, BGl_string3667z00zz__osz00, 
BINT(((long)9343))); 
exit( -1 );} 
BgL_auxz00_1920 = 
BSTRING_TO_STRING(BgL_auxz00_1921); } 
{ /* ./Llib/os.scm 236 */
obj_t BgL_auxz00_1913;
if(
STRINGP(BgL_stringz00_1466))
{ /* ./Llib/os.scm 236 */
BgL_auxz00_1913 = BgL_stringz00_1466
; }  else 
{ /* ./Llib/os.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3680z00zz__osz00, BGl_string3678z00zz__osz00, BgL_stringz00_1466, BGl_string3667z00zz__osz00, 
BINT(((long)9343))); 
exit( -1 );} 
BgL_auxz00_1912 = 
BSTRING_TO_STRING(BgL_auxz00_1913); } 
return 
BGl_putenvz00zz__osz00(BgL_auxz00_1912, BgL_auxz00_1920);} } 
}



/* system */
BGL_EXPORTED_DEF obj_t BGl_systemz00zz__osz00(obj_t BgL_stringsz00_7)
{ AN_OBJECT;
{ /* ./Llib/os.scm 244 */
{ /* ./Llib/os.scm 246 */
obj_t BgL_symbol2231z00_1407;
BgL_symbol2231z00_1407 = BGl_symbol3681z00zz__osz00; 
{ /* ./Llib/os.scm 246 */

PUSH_TRACE(BgL_symbol2231z00_1407); BUNSPEC; 
{ /* ./Llib/os.scm 246 */
obj_t BgL_aux2230z00_1408;
if(
NULLP(BgL_stringsz00_7))
{ /* ./Llib/os.scm 246 */
BgL_aux2230z00_1408 = BFALSE; }  else 
{ /* ./Llib/os.scm 248 */
bool_t BgL_test1052z00_382;
{ /* ./Llib/os.scm 248 */
obj_t BgL_arg1064z00_386;
{ /* ./Llib/os.scm 248 */
obj_t BgL_pairz00_765;
if(
PAIRP(BgL_stringsz00_7))
{ /* ./Llib/os.scm 248 */
BgL_pairz00_765 = BgL_stringsz00_7; }  else 
{ /* ./Llib/os.scm 248 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3681z00zz__osz00, BGl_string3682z00zz__osz00, BgL_stringsz00_7, BGl_string3667z00zz__osz00, 
BINT(((long)9808))); 
exit( -1 );} 
BgL_arg1064z00_386 = 
CDR(BgL_pairz00_765); } 
BgL_test1052z00_382 = 
NULLP(BgL_arg1064z00_386); } 
if(BgL_test1052z00_382)
{ /* ./Llib/os.scm 248 */
{ /* ./Llib/os.scm 249 */
obj_t BgL_arg1054z00_383;
{ /* ./Llib/os.scm 249 */
obj_t BgL_pairz00_767;
if(
PAIRP(BgL_stringsz00_7))
{ /* ./Llib/os.scm 249 */
BgL_pairz00_767 = BgL_stringsz00_7; }  else 
{ /* ./Llib/os.scm 249 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3681z00zz__osz00, BGl_string3682z00zz__osz00, BgL_stringsz00_7, BGl_string3667z00zz__osz00, 
BINT(((long)9840))); 
exit( -1 );} 
BgL_arg1054z00_383 = 
CAR(BgL_pairz00_767); } 
{ /* ./Llib/os.scm 249 */
int BgL_auxz00_1946;
{ /* ./Llib/os.scm 249 */
char * BgL_auxz00_1947;
{ /* ./Llib/os.scm 249 */
obj_t BgL_auxz00_1948;
if(
STRINGP(BgL_arg1054z00_383))
{ /* ./Llib/os.scm 249 */
BgL_auxz00_1948 = BgL_arg1054z00_383
; }  else 
{ /* ./Llib/os.scm 249 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3681z00zz__osz00, BGl_string3678z00zz__osz00, BgL_arg1054z00_383, BGl_string3667z00zz__osz00, 
BINT(((long)9841))); 
exit( -1 );} 
BgL_auxz00_1947 = 
BSTRING_TO_STRING(BgL_auxz00_1948); } 
BgL_auxz00_1946 = 
system(BgL_auxz00_1947); } 
BgL_aux2230z00_1408 = 
BINT(BgL_auxz00_1946); } } }  else 
{ /* ./Llib/os.scm 248 */
{ /* ./Llib/os.scm 251 */
obj_t BgL_arg1058z00_384;
BgL_arg1058z00_384 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_stringsz00_7); 
{ /* ./Llib/os.scm 251 */
int BgL_auxz00_1958;
{ /* ./Llib/os.scm 251 */
char * BgL_auxz00_1959;
BgL_auxz00_1959 = 
BSTRING_TO_STRING(BgL_arg1058z00_384); 
BgL_auxz00_1958 = 
system(BgL_auxz00_1959); } 
BgL_aux2230z00_1408 = 
BINT(BgL_auxz00_1958); } } } } 
POP_TRACE(); 
return BgL_aux2230z00_1408;} } } } 
}



/* _system */
obj_t BGl__systemz00zz__osz00(obj_t BgL_envz00_1468, obj_t BgL_stringsz00_1469)
{ AN_OBJECT;
{ /* ./Llib/os.scm 244 */
return 
BGl_systemz00zz__osz00(BgL_stringsz00_1469);} 
}



/* system->string */
BGL_EXPORTED_DEF obj_t BGl_systemzd2ze3stringz31zz__osz00(obj_t BgL_stringsz00_8)
{ AN_OBJECT;
{ /* ./Llib/os.scm 256 */
{ /* ./Llib/os.scm 257 */
obj_t BgL_symbol2235z00_1409;
BgL_symbol2235z00_1409 = BGl_symbol3683z00zz__osz00; 
{ /* ./Llib/os.scm 257 */

PUSH_TRACE(BgL_symbol2235z00_1409); BUNSPEC; 
{ /* ./Llib/os.scm 257 */
obj_t BgL_aux2234z00_1410;
{ /* ./Llib/os.scm 257 */
obj_t BgL_cz00_387;
{ /* ./Llib/os.scm 257 */
obj_t BgL_runner1092z00_399;
{ /* ./Llib/os.scm 257 */
obj_t BgL_list1090z00_398;
BgL_list1090z00_398 = 
MAKE_PAIR(BgL_stringsz00_8, BNIL); 
BgL_runner1092z00_399 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_string3684z00zz__osz00, BgL_list1090z00_398); } 
BgL_cz00_387 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1092z00_399); } 
{ /* ./Llib/os.scm 257 */
obj_t BgL_pz00_388;
BgL_pz00_388 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_cz00_387, BNIL); 
{ /* ./Llib/os.scm 258 */

{ /* ./Llib/os.scm 259 */
obj_t BgL_val1003z00_389;
BgL_val1003z00_389 = 
BGl_zc3exitza31080za3Llibzf2osze2scmza3260ze3z93zz__osz00(BgL_pz00_388); 
{ /* ./Llib/os.scm 260 */
obj_t BgL_portz00_768;
if(
INPUT_PORTP(BgL_pz00_388))
{ /* ./Llib/os.scm 260 */
BgL_portz00_768 = BgL_pz00_388; }  else 
{ /* ./Llib/os.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3683z00zz__osz00, BGl_string3685z00zz__osz00, BgL_pz00_388, BGl_string3667z00zz__osz00, 
BINT(((long)10310))); 
exit( -1 );} 
close_input_port(BgL_portz00_768); } 
{ /* ./Llib/os.scm 260 */
bool_t BgL_testz00_1977;
{ /* ./Llib/os.scm 260 */
obj_t BgL_auxz00_1978;
BgL_auxz00_1978 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1003z00_389); 
BgL_testz00_1977 = 
CBOOL(BgL_auxz00_1978); } 
if(BgL_testz00_1977)
{ /* ./Llib/os.scm 260 */
obj_t BgL_arg1073z00_391;obj_t BgL_arg1075z00_392;
{ /* ./Llib/os.scm 260 */
obj_t BgL_pairz00_769;
if(
PAIRP(BgL_val1003z00_389))
{ /* ./Llib/os.scm 260 */
BgL_pairz00_769 = BgL_val1003z00_389; }  else 
{ /* ./Llib/os.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3683z00zz__osz00, BGl_string3682z00zz__osz00, BgL_val1003z00_389, BGl_string3667z00zz__osz00, 
BINT(((long)10292))); 
exit( -1 );} 
BgL_arg1073z00_391 = 
CAR(BgL_pairz00_769); } 
{ /* ./Llib/os.scm 260 */
obj_t BgL_pairz00_770;
if(
PAIRP(BgL_val1003z00_389))
{ /* ./Llib/os.scm 260 */
BgL_pairz00_770 = BgL_val1003z00_389; }  else 
{ /* ./Llib/os.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3683z00zz__osz00, BGl_string3682z00zz__osz00, BgL_val1003z00_389, BGl_string3667z00zz__osz00, 
BINT(((long)10292))); 
exit( -1 );} 
BgL_arg1075z00_392 = 
CDR(BgL_pairz00_770); } 
BgL_aux2234z00_1410 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1073z00_391, BgL_arg1075z00_392); }  else 
{ /* ./Llib/os.scm 260 */
BgL_aux2234z00_1410 = BgL_val1003z00_389; } } } } } } 
POP_TRACE(); 
return BgL_aux2234z00_1410;} } } } 
}



/* <exit:1080:Llib/os.scm:260> */
obj_t BGl_zc3exitza31080za3Llibzf2osze2scmza3260ze3z93zz__osz00(obj_t BgL_pz00_1509)
{ AN_OBJECT;
{ /* ./Llib/os.scm 260 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1004z00_394;
if( SET_EXIT(BgL_an_exit1004z00_394) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1004z00_394 = 
(obj_t)jmpbuf; 
{ /* ./Llib/os.scm 260 */

PUSH_EXIT(BgL_an_exit1004z00_394, ((bool_t)0)); 
{ /* ./Llib/os.scm 259 */
obj_t BgL_val1005z00_395;
{ /* ./Llib/os.scm 259 */
obj_t BgL_list1085z00_396;
BgL_list1085z00_396 = 
MAKE_PAIR(BgL_pz00_1509, BNIL); 
BgL_val1005z00_395 = 
BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_list1085z00_396); } 
POP_EXIT(); 
return BgL_val1005z00_395;} } 
} } 
}



/* _system->string */
obj_t BGl__systemzd2ze3stringz31zz__osz00(obj_t BgL_envz00_1470, obj_t BgL_stringsz00_1471)
{ AN_OBJECT;
{ /* ./Llib/os.scm 256 */
return 
BGl_systemzd2ze3stringz31zz__osz00(BgL_stringsz00_1471);} 
}



/* date */
BGL_EXPORTED_DEF char * BGl_datez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 265 */
{ /* ./Llib/os.scm 266 */
obj_t BgL_symbol2239z00_1411;
BgL_symbol2239z00_1411 = BGl_symbol3686z00zz__osz00; 
{ /* ./Llib/os.scm 266 */

PUSH_TRACE(BgL_symbol2239z00_1411); BUNSPEC; 
{ /* ./Llib/os.scm 266 */
char * BgL_aux2238z00_1412;
{ /* ./Llib/os.scm 266 */
char * BgL_dtz00_400;
BgL_dtz00_400 = 
c_date(); 
{ /* ./Llib/os.scm 266 */
int BgL_lenz00_401;
{ /* ./Llib/os.scm 267 */
obj_t BgL_auxz00_2004;
BgL_auxz00_2004 = 
string_to_bstring(BgL_dtz00_400); 
BgL_lenz00_401 = 
STRING_LENGTH(BgL_auxz00_2004); } 
{ /* ./Llib/os.scm 267 */

{ /* ./Llib/os.scm 268 */
bool_t BgL_test1093z00_402;
{ /* ./Llib/os.scm 268 */
unsigned char BgL_arg1100z00_405;
{ /* ./Llib/os.scm 268 */
long BgL_arg1103z00_406;
{ /* ./Llib/os.scm 268 */
long BgL_auxz00_2007;
BgL_auxz00_2007 = 
(long)(BgL_lenz00_401); 
BgL_arg1103z00_406 = 
(BgL_auxz00_2007-((long)1)); } 
{ /* ./Llib/os.scm 268 */
unsigned char BgL_res2145z00_782;
{ /* ./Llib/os.scm 268 */
obj_t BgL_stringz00_774;int BgL_kz00_775;
BgL_stringz00_774 = 
string_to_bstring(BgL_dtz00_400); 
BgL_kz00_775 = 
(int)(BgL_arg1103z00_406); 
{ /* ./Llib/os.scm 268 */
bool_t BgL_testz00_2012;
{ /* ./Llib/os.scm 268 */
int BgL_auxz00_2013;
BgL_auxz00_2013 = 
STRING_LENGTH(BgL_stringz00_774); 
BgL_testz00_2012 = 
BOUND_CHECK(BgL_kz00_775, BgL_auxz00_2013); } 
if(BgL_testz00_2012)
{ /* ./Llib/os.scm 268 */
BgL_res2145z00_782 = 
STRING_REF(BgL_stringz00_774, BgL_kz00_775); }  else 
{ /* ./Llib/os.scm 268 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_775), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 268 */
obj_t BgL_auxz00_2019;
{ /* ./Llib/os.scm 268 */
obj_t BgL_aux2560z00_1534;
BgL_aux2560z00_1534 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)10631))); 
if(
CHARP(BgL_aux2560z00_1534))
{ /* ./Llib/os.scm 268 */
BgL_auxz00_2019 = BgL_aux2560z00_1534
; }  else 
{ /* ./Llib/os.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3686z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2560z00_1534, BGl_string3667z00zz__osz00, 
BINT(((long)10631))); 
exit( -1 );} } 
BgL_res2145z00_782 = 
(unsigned char)CCHAR(BgL_auxz00_2019); } } } } 
BgL_arg1100z00_405 = BgL_res2145z00_782; } } 
BgL_test1093z00_402 = 
(BgL_arg1100z00_405==((unsigned char)'\n')); } 
if(BgL_test1093z00_402)
{ /* ./Llib/os.scm 269 */
long BgL_arg1096z00_404;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_2030;
BgL_auxz00_2030 = 
(long)(BgL_lenz00_401); 
BgL_arg1096z00_404 = 
(BgL_auxz00_2030-((long)1)); } 
{ /* ./Llib/os.scm 269 */
obj_t BgL_res2146z00_815;
{ /* ./Llib/os.scm 269 */
obj_t BgL_stringz00_787;int BgL_startz00_788;int BgL_endz00_789;
BgL_stringz00_787 = 
string_to_bstring(BgL_dtz00_400); 
BgL_startz00_788 = 
(int)(((long)0)); 
BgL_endz00_789 = 
(int)(BgL_arg1096z00_404); 
{ /* ./Llib/os.scm 269 */
bool_t BgL_test1586z00_790;
{ /* ./Llib/os.scm 269 */
bool_t BgL_testz00_2036;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_2039;long BgL_auxz00_2037;
BgL_auxz00_2039 = 
(long)(BgL_startz00_788); 
BgL_auxz00_2037 = 
(long)(BgL_endz00_789); 
BgL_testz00_2036 = 
(BgL_auxz00_2037>=BgL_auxz00_2039); } 
if(BgL_testz00_2036)
{ /* ./Llib/os.scm 269 */
bool_t BgL_testz00_2042;
{ /* ./Llib/os.scm 269 */
int BgL_auxz00_2043;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_2044;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_2045;
{ /* ./Llib/os.scm 269 */
int BgL_auxz00_2046;
BgL_auxz00_2046 = 
STRING_LENGTH(BgL_stringz00_787); 
BgL_auxz00_2045 = 
(long)(BgL_auxz00_2046); } 
BgL_auxz00_2044 = 
(BgL_auxz00_2045+((long)1)); } 
BgL_auxz00_2043 = 
(int)(BgL_auxz00_2044); } 
BgL_testz00_2042 = 
BOUND_CHECK(BgL_startz00_788, BgL_auxz00_2043); } 
if(BgL_testz00_2042)
{ /* ./Llib/os.scm 269 */
int BgL_auxz00_2052;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_2053;
{ /* ./Llib/os.scm 269 */
long BgL_auxz00_2054;
{ /* ./Llib/os.scm 269 */
int BgL_auxz00_2055;
BgL_auxz00_2055 = 
STRING_LENGTH(BgL_stringz00_787); 
BgL_auxz00_2054 = 
(long)(BgL_auxz00_2055); } 
BgL_auxz00_2053 = 
(BgL_auxz00_2054+((long)1)); } 
BgL_auxz00_2052 = 
(int)(BgL_auxz00_2053); } 
BgL_test1586z00_790 = 
BOUND_CHECK(BgL_endz00_789, BgL_auxz00_2052); }  else 
{ /* ./Llib/os.scm 269 */
BgL_test1586z00_790 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 269 */
BgL_test1586z00_790 = ((bool_t)0); } } 
if(BgL_test1586z00_790)
{ /* ./Llib/os.scm 269 */
BgL_res2146z00_815 = 
c_substring(BgL_stringz00_787, BgL_startz00_788, BgL_endz00_789); }  else 
{ /* ./Llib/os.scm 269 */
{ /* ./Llib/os.scm 269 */
obj_t BgL_arg1591z00_801;
{ /* ./Llib/os.scm 269 */
obj_t BgL_auxz00_2065;obj_t BgL_auxz00_2063;
BgL_auxz00_2065 = 
BINT(BgL_endz00_789); 
BgL_auxz00_2063 = 
BINT(BgL_startz00_788); 
BgL_arg1591z00_801 = 
MAKE_PAIR(BgL_auxz00_2063, BgL_auxz00_2065); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_801, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 269 */
obj_t BgL_aux2590z00_1536;
BgL_aux2590z00_1536 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)10673))); 
if(
STRINGP(BgL_aux2590z00_1536))
{ /* ./Llib/os.scm 269 */
BgL_res2146z00_815 = BgL_aux2590z00_1536; }  else 
{ /* ./Llib/os.scm 269 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3686z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2590z00_1536, BGl_string3667z00zz__osz00, 
BINT(((long)10673))); 
exit( -1 );} } } } } 
BgL_aux2238z00_1412 = 
BSTRING_TO_STRING(BgL_res2146z00_815); } }  else 
{ /* ./Llib/os.scm 268 */
BgL_aux2238z00_1412 = BgL_dtz00_400; } } } } } 
POP_TRACE(); 
return BgL_aux2238z00_1412;} } } } 
}



/* _date */
obj_t BGl__datez00zz__osz00(obj_t BgL_envz00_1472)
{ AN_OBJECT;
{ /* ./Llib/os.scm 265 */
{ /* ./Llib/os.scm 266 */
char * BgL_auxz00_2078;
BgL_auxz00_2078 = 
BGl_datez00zz__osz00(); 
return 
string_to_bstring(BgL_auxz00_2078);} } 
}



/* chdir */
BGL_EXPORTED_DEF bool_t BGl_chdirz00zz__osz00(char * BgL_dirnamez00_9)
{ AN_OBJECT;
{ /* ./Llib/os.scm 275 */
{ /* ./Llib/os.scm 276 */
obj_t BgL_symbol2243z00_1684;
BgL_symbol2243z00_1684 = BGl_symbol3693z00zz__osz00; 
{ /* ./Llib/os.scm 276 */

PUSH_TRACE(BgL_symbol2243z00_1684); BUNSPEC; 
{ /* ./Llib/os.scm 276 */
bool_t BgL_aux2242z00_1685;
{ /* ./Llib/os.scm 276 */
bool_t BgL_test1108z00_1686;
BgL_test1108z00_1686 = 
chdir(BgL_dirnamez00_9); 
if(BgL_test1108z00_1686)
{ /* ./Llib/os.scm 276 */
BgL_aux2242z00_1685 = ((bool_t)0); }  else 
{ /* ./Llib/os.scm 276 */
BgL_aux2242z00_1685 = ((bool_t)1); } } 
POP_TRACE(); 
return BgL_aux2242z00_1685;} } } } 
}



/* _chdir */
obj_t BGl__chdirz00zz__osz00(obj_t BgL_envz00_1473, obj_t BgL_dirnamez00_1474)
{ AN_OBJECT;
{ /* ./Llib/os.scm 275 */
{ /* ./Llib/os.scm 276 */
bool_t BgL_auxz00_2085;
{ /* ./Llib/os.scm 276 */
bool_t BgL_res3736z00_1691;
{ /* ./Llib/os.scm 276 */
char * BgL_dirnamez00_1687;
{ /* ./Llib/os.scm 276 */
obj_t BgL_auxz00_2086;
if(
STRINGP(BgL_dirnamez00_1474))
{ /* ./Llib/os.scm 276 */
BgL_auxz00_2086 = BgL_dirnamez00_1474
; }  else 
{ /* ./Llib/os.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3694z00zz__osz00, BGl_string3678z00zz__osz00, BgL_dirnamez00_1474, BGl_string3667z00zz__osz00, 
BINT(((long)10968))); 
exit( -1 );} 
BgL_dirnamez00_1687 = 
BSTRING_TO_STRING(BgL_auxz00_2086); } 
{ /* ./Llib/os.scm 276 */
obj_t BgL_symbol2243z00_1688;
BgL_symbol2243z00_1688 = BGl_symbol3693z00zz__osz00; 
{ /* ./Llib/os.scm 276 */

PUSH_TRACE(BgL_symbol2243z00_1688); BUNSPEC; 
{ /* ./Llib/os.scm 276 */
bool_t BgL_aux2242z00_1689;
{ /* ./Llib/os.scm 276 */
bool_t BgL_test1108z00_1690;
BgL_test1108z00_1690 = 
chdir(BgL_dirnamez00_1687); 
if(BgL_test1108z00_1690)
{ /* ./Llib/os.scm 276 */
BgL_aux2242z00_1689 = ((bool_t)0); }  else 
{ /* ./Llib/os.scm 276 */
BgL_aux2242z00_1689 = ((bool_t)1); } } 
POP_TRACE(); 
BgL_res3736z00_1691 = BgL_aux2242z00_1689; } } } } 
BgL_auxz00_2085 = BgL_res3736z00_1691; } 
return 
BBOOL(BgL_auxz00_2085);} } 
}



/* pwd */
BGL_EXPORTED_DEF obj_t BGl_pwdz00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 281 */
{ /* ./Llib/os.scm 282 */
obj_t BgL_symbol2247z00_1415;
BgL_symbol2247z00_1415 = BGl_symbol3695z00zz__osz00; 
{ /* ./Llib/os.scm 282 */

PUSH_TRACE(BgL_symbol2247z00_1415); BUNSPEC; 
{ /* ./Llib/os.scm 282 */
obj_t BgL_aux2246z00_1416;
{ /* ./Llib/os.scm 282 */
obj_t BgL_stringz00_408;
{ /* ./Llib/os.scm 282 */
int BgL_auxz00_2099;
BgL_auxz00_2099 = 
(int)(((long)1024)); 
BgL_stringz00_408 = 
make_string(BgL_auxz00_2099, ((unsigned char)' ')); } 
{ /* ./Llib/os.scm 283 */
char * BgL_auxz00_2102;
{ /* ./Llib/os.scm 283 */
int BgL_auxz00_2105;char * BgL_auxz00_2103;
BgL_auxz00_2105 = 
(int)(((long)1024)); 
BgL_auxz00_2103 = 
BSTRING_TO_STRING(BgL_stringz00_408); 
BgL_auxz00_2102 = 
(char *)(long)getcwd(BgL_auxz00_2103, BgL_auxz00_2105); } 
BgL_aux2246z00_1416 = 
string_to_bstring(BgL_auxz00_2102); } } 
POP_TRACE(); 
return BgL_aux2246z00_1416;} } } } 
}



/* _pwd */
obj_t BGl__pwdz00zz__osz00(obj_t BgL_envz00_1475)
{ AN_OBJECT;
{ /* ./Llib/os.scm 281 */
return 
BGl_pwdz00zz__osz00();} 
}



/* basename */
BGL_EXPORTED_DEF obj_t BGl_basenamez00zz__osz00(obj_t BgL_stringz00_10)
{ AN_OBJECT;
{ /* ./Llib/os.scm 288 */
{ /* ./Llib/os.scm 289 */
obj_t BgL_symbol2251z00_1417;
BgL_symbol2251z00_1417 = BGl_symbol3696z00zz__osz00; 
{ /* ./Llib/os.scm 289 */

PUSH_TRACE(BgL_symbol2251z00_1417); BUNSPEC; 
{ /* ./Llib/os.scm 289 */
obj_t BgL_aux2250z00_1418;
{ /* ./Llib/os.scm 289 */
long BgL_lenz00_410;
{ /* ./Llib/os.scm 289 */
long BgL_auxz00_2112;
{ /* ./Llib/os.scm 289 */
int BgL_auxz00_2113;
BgL_auxz00_2113 = 
STRING_LENGTH(BgL_stringz00_10); 
BgL_auxz00_2112 = 
(long)(BgL_auxz00_2113); } 
BgL_lenz00_410 = 
(BgL_auxz00_2112-((long)1)); } 
{ /* ./Llib/os.scm 289 */
long BgL_startz00_411;
{ /* ./Llib/os.scm 290 */
bool_t BgL_test1131z00_420;
if(
(BgL_lenz00_410>((long)0)))
{ /* ./Llib/os.scm 291 */
unsigned char BgL_arg1135z00_422;
{ /* ./Llib/os.scm 291 */
unsigned char BgL_res2148z00_837;
{ /* ./Llib/os.scm 291 */
int BgL_kz00_830;
BgL_kz00_830 = 
(int)(BgL_lenz00_410); 
{ /* ./Llib/os.scm 291 */
bool_t BgL_testz00_2120;
{ /* ./Llib/os.scm 291 */
int BgL_auxz00_2121;
BgL_auxz00_2121 = 
STRING_LENGTH(BgL_stringz00_10); 
BgL_testz00_2120 = 
BOUND_CHECK(BgL_kz00_830, BgL_auxz00_2121); } 
if(BgL_testz00_2120)
{ /* ./Llib/os.scm 291 */
BgL_res2148z00_837 = 
STRING_REF(BgL_stringz00_10, BgL_kz00_830); }  else 
{ /* ./Llib/os.scm 291 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_830), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 291 */
obj_t BgL_auxz00_2127;
{ /* ./Llib/os.scm 291 */
obj_t BgL_aux2649z00_1544;
BgL_aux2649z00_1544 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)11649))); 
if(
CHARP(BgL_aux2649z00_1544))
{ /* ./Llib/os.scm 291 */
BgL_auxz00_2127 = BgL_aux2649z00_1544
; }  else 
{ /* ./Llib/os.scm 291 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3696z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2649z00_1544, BGl_string3667z00zz__osz00, 
BINT(((long)11649))); 
exit( -1 );} } 
BgL_res2148z00_837 = 
(unsigned char)CCHAR(BgL_auxz00_2127); } } } } 
BgL_arg1135z00_422 = BgL_res2148z00_837; } 
{ /* ./Llib/os.scm 291 */
unsigned char BgL_auxz00_2136;
BgL_auxz00_2136 = 
(unsigned char)(FILE_SEPARATOR); 
BgL_test1131z00_420 = 
(BgL_arg1135z00_422==BgL_auxz00_2136); } }  else 
{ /* ./Llib/os.scm 290 */
BgL_test1131z00_420 = ((bool_t)0); } 
if(BgL_test1131z00_420)
{ /* ./Llib/os.scm 290 */
BgL_startz00_411 = 
(BgL_lenz00_410-((long)1)); }  else 
{ /* ./Llib/os.scm 290 */
BgL_startz00_411 = BgL_lenz00_410; } } 
{ /* ./Llib/os.scm 290 */

{ 
long BgL_indexz00_412;
BgL_indexz00_412 = BgL_startz00_411; 
BgL_loopz00_413:
if(
(BgL_indexz00_412==((long)-1)))
{ /* ./Llib/os.scm 297 */
BgL_aux2250z00_1418 = BgL_stringz00_10; }  else 
{ /* ./Llib/os.scm 299 */
bool_t BgL_test1115z00_415;
{ /* ./Llib/os.scm 299 */
unsigned char BgL_arg1127z00_419;
{ /* ./Llib/os.scm 299 */
unsigned char BgL_res2149z00_852;
{ /* ./Llib/os.scm 299 */
int BgL_kz00_845;
BgL_kz00_845 = 
(int)(BgL_indexz00_412); 
{ /* ./Llib/os.scm 299 */
bool_t BgL_testz00_2144;
{ /* ./Llib/os.scm 299 */
int BgL_auxz00_2145;
BgL_auxz00_2145 = 
STRING_LENGTH(BgL_stringz00_10); 
BgL_testz00_2144 = 
BOUND_CHECK(BgL_kz00_845, BgL_auxz00_2145); } 
if(BgL_testz00_2144)
{ /* ./Llib/os.scm 299 */
BgL_res2149z00_852 = 
STRING_REF(BgL_stringz00_10, BgL_kz00_845); }  else 
{ /* ./Llib/os.scm 299 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_845), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 299 */
obj_t BgL_auxz00_2151;
{ /* ./Llib/os.scm 299 */
obj_t BgL_aux2670z00_1546;
BgL_aux2670z00_1546 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)11826))); 
if(
CHARP(BgL_aux2670z00_1546))
{ /* ./Llib/os.scm 299 */
BgL_auxz00_2151 = BgL_aux2670z00_1546
; }  else 
{ /* ./Llib/os.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3696z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2670z00_1546, BGl_string3667z00zz__osz00, 
BINT(((long)11826))); 
exit( -1 );} } 
BgL_res2149z00_852 = 
(unsigned char)CCHAR(BgL_auxz00_2151); } } } } 
BgL_arg1127z00_419 = BgL_res2149z00_852; } 
{ /* ./Llib/os.scm 299 */
unsigned char BgL_auxz00_2160;
BgL_auxz00_2160 = 
(unsigned char)(FILE_SEPARATOR); 
BgL_test1115z00_415 = 
(BgL_arg1127z00_419==BgL_auxz00_2160); } } 
if(BgL_test1115z00_415)
{ /* ./Llib/os.scm 299 */
{ /* ./Llib/os.scm 300 */
long BgL_arg1117z00_416;long BgL_arg1118z00_417;
BgL_arg1117z00_416 = 
(BgL_indexz00_412+((long)1)); 
BgL_arg1118z00_417 = 
(BgL_startz00_411+((long)1)); 
{ /* ./Llib/os.scm 300 */
obj_t BgL_res2150z00_887;
{ /* ./Llib/os.scm 300 */
int BgL_startz00_860;int BgL_endz00_861;
BgL_startz00_860 = 
(int)(BgL_arg1117z00_416); 
BgL_endz00_861 = 
(int)(BgL_arg1118z00_417); 
{ /* ./Llib/os.scm 300 */
bool_t BgL_test1586z00_862;
{ /* ./Llib/os.scm 300 */
bool_t BgL_testz00_2168;
{ /* ./Llib/os.scm 300 */
long BgL_auxz00_2171;long BgL_auxz00_2169;
BgL_auxz00_2171 = 
(long)(BgL_startz00_860); 
BgL_auxz00_2169 = 
(long)(BgL_endz00_861); 
BgL_testz00_2168 = 
(BgL_auxz00_2169>=BgL_auxz00_2171); } 
if(BgL_testz00_2168)
{ /* ./Llib/os.scm 300 */
bool_t BgL_testz00_2174;
{ /* ./Llib/os.scm 300 */
int BgL_auxz00_2175;
{ /* ./Llib/os.scm 300 */
long BgL_auxz00_2176;
{ /* ./Llib/os.scm 300 */
long BgL_auxz00_2177;
{ /* ./Llib/os.scm 300 */
int BgL_auxz00_2178;
BgL_auxz00_2178 = 
STRING_LENGTH(BgL_stringz00_10); 
BgL_auxz00_2177 = 
(long)(BgL_auxz00_2178); } 
BgL_auxz00_2176 = 
(BgL_auxz00_2177+((long)1)); } 
BgL_auxz00_2175 = 
(int)(BgL_auxz00_2176); } 
BgL_testz00_2174 = 
BOUND_CHECK(BgL_startz00_860, BgL_auxz00_2175); } 
if(BgL_testz00_2174)
{ /* ./Llib/os.scm 300 */
int BgL_auxz00_2184;
{ /* ./Llib/os.scm 300 */
long BgL_auxz00_2185;
{ /* ./Llib/os.scm 300 */
long BgL_auxz00_2186;
{ /* ./Llib/os.scm 300 */
int BgL_auxz00_2187;
BgL_auxz00_2187 = 
STRING_LENGTH(BgL_stringz00_10); 
BgL_auxz00_2186 = 
(long)(BgL_auxz00_2187); } 
BgL_auxz00_2185 = 
(BgL_auxz00_2186+((long)1)); } 
BgL_auxz00_2184 = 
(int)(BgL_auxz00_2185); } 
BgL_test1586z00_862 = 
BOUND_CHECK(BgL_endz00_861, BgL_auxz00_2184); }  else 
{ /* ./Llib/os.scm 300 */
BgL_test1586z00_862 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 300 */
BgL_test1586z00_862 = ((bool_t)0); } } 
if(BgL_test1586z00_862)
{ /* ./Llib/os.scm 300 */
BgL_res2150z00_887 = 
c_substring(BgL_stringz00_10, BgL_startz00_860, BgL_endz00_861); }  else 
{ /* ./Llib/os.scm 300 */
{ /* ./Llib/os.scm 300 */
obj_t BgL_arg1591z00_873;
{ /* ./Llib/os.scm 300 */
obj_t BgL_auxz00_2197;obj_t BgL_auxz00_2195;
BgL_auxz00_2197 = 
BINT(BgL_endz00_861); 
BgL_auxz00_2195 = 
BINT(BgL_startz00_860); 
BgL_arg1591z00_873 = 
MAKE_PAIR(BgL_auxz00_2195, BgL_auxz00_2197); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_873, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 300 */
obj_t BgL_aux2699z00_1548;
BgL_aux2699z00_1548 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)11882))); 
if(
STRINGP(BgL_aux2699z00_1548))
{ /* ./Llib/os.scm 300 */
BgL_res2150z00_887 = BgL_aux2699z00_1548; }  else 
{ /* ./Llib/os.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3696z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2699z00_1548, BGl_string3667z00zz__osz00, 
BINT(((long)11882))); 
exit( -1 );} } } } } 
BgL_aux2250z00_1418 = BgL_res2150z00_887; } } }  else 
{ /* ./Llib/os.scm 299 */
{ 
long BgL_indexz00_2208;
BgL_indexz00_2208 = 
(BgL_indexz00_412-((long)1)); 
BgL_indexz00_412 = BgL_indexz00_2208; 
goto BgL_loopz00_413;} } } } } } } 
POP_TRACE(); 
return BgL_aux2250z00_1418;} } } } 
}



/* _basename */
obj_t BGl__basenamez00zz__osz00(obj_t BgL_envz00_1476, obj_t BgL_stringz00_1477)
{ AN_OBJECT;
{ /* ./Llib/os.scm 288 */
{ /* ./Llib/os.scm 289 */
obj_t BgL_auxz00_2211;
if(
STRINGP(BgL_stringz00_1477))
{ /* ./Llib/os.scm 289 */
BgL_auxz00_2211 = BgL_stringz00_1477
; }  else 
{ /* ./Llib/os.scm 289 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3697z00zz__osz00, BGl_string3692z00zz__osz00, BgL_stringz00_1477, BGl_string3667z00zz__osz00, 
BINT(((long)11559))); 
exit( -1 );} 
return 
BGl_basenamez00zz__osz00(BgL_auxz00_2211);} } 
}



/* prefix */
BGL_EXPORTED_DEF obj_t BGl_prefixz00zz__osz00(obj_t BgL_stringz00_11)
{ AN_OBJECT;
{ /* ./Llib/os.scm 307 */
{ /* ./Llib/os.scm 308 */
obj_t BgL_symbol2255z00_1419;
BgL_symbol2255z00_1419 = BGl_symbol3698z00zz__osz00; 
{ /* ./Llib/os.scm 308 */

PUSH_TRACE(BgL_symbol2255z00_1419); BUNSPEC; 
{ /* ./Llib/os.scm 308 */
obj_t BgL_aux2254z00_1420;
{ /* ./Llib/os.scm 308 */
long BgL_lenz00_425;
{ /* ./Llib/os.scm 308 */
long BgL_auxz00_2219;
{ /* ./Llib/os.scm 308 */
int BgL_auxz00_2220;
BgL_auxz00_2220 = 
STRING_LENGTH(BgL_stringz00_11); 
BgL_auxz00_2219 = 
(long)(BgL_auxz00_2220); } 
BgL_lenz00_425 = 
(BgL_auxz00_2219-((long)1)); } 
{ 
long BgL_ez00_426;long BgL_sz00_427;
BgL_ez00_426 = BgL_lenz00_425; 
BgL_sz00_427 = BgL_lenz00_425; 
BgL_loopz00_428:
if(
(BgL_sz00_427<=((long)0)))
{ /* ./Llib/os.scm 312 */
{ /* ./Llib/os.scm 313 */
long BgL_arg1148z00_431;
BgL_arg1148z00_431 = 
(((long)1)+BgL_ez00_426); 
{ /* ./Llib/os.scm 313 */
obj_t BgL_res2151z00_925;
{ /* ./Llib/os.scm 313 */
int BgL_startz00_898;int BgL_endz00_899;
BgL_startz00_898 = 
(int)(((long)0)); 
BgL_endz00_899 = 
(int)(BgL_arg1148z00_431); 
{ /* ./Llib/os.scm 313 */
bool_t BgL_test1586z00_900;
{ /* ./Llib/os.scm 313 */
bool_t BgL_testz00_2229;
{ /* ./Llib/os.scm 313 */
long BgL_auxz00_2232;long BgL_auxz00_2230;
BgL_auxz00_2232 = 
(long)(BgL_startz00_898); 
BgL_auxz00_2230 = 
(long)(BgL_endz00_899); 
BgL_testz00_2229 = 
(BgL_auxz00_2230>=BgL_auxz00_2232); } 
if(BgL_testz00_2229)
{ /* ./Llib/os.scm 313 */
bool_t BgL_testz00_2235;
{ /* ./Llib/os.scm 313 */
int BgL_auxz00_2236;
{ /* ./Llib/os.scm 313 */
long BgL_auxz00_2237;
{ /* ./Llib/os.scm 313 */
long BgL_auxz00_2238;
{ /* ./Llib/os.scm 313 */
int BgL_auxz00_2239;
BgL_auxz00_2239 = 
STRING_LENGTH(BgL_stringz00_11); 
BgL_auxz00_2238 = 
(long)(BgL_auxz00_2239); } 
BgL_auxz00_2237 = 
(BgL_auxz00_2238+((long)1)); } 
BgL_auxz00_2236 = 
(int)(BgL_auxz00_2237); } 
BgL_testz00_2235 = 
BOUND_CHECK(BgL_startz00_898, BgL_auxz00_2236); } 
if(BgL_testz00_2235)
{ /* ./Llib/os.scm 313 */
int BgL_auxz00_2245;
{ /* ./Llib/os.scm 313 */
long BgL_auxz00_2246;
{ /* ./Llib/os.scm 313 */
long BgL_auxz00_2247;
{ /* ./Llib/os.scm 313 */
int BgL_auxz00_2248;
BgL_auxz00_2248 = 
STRING_LENGTH(BgL_stringz00_11); 
BgL_auxz00_2247 = 
(long)(BgL_auxz00_2248); } 
BgL_auxz00_2246 = 
(BgL_auxz00_2247+((long)1)); } 
BgL_auxz00_2245 = 
(int)(BgL_auxz00_2246); } 
BgL_test1586z00_900 = 
BOUND_CHECK(BgL_endz00_899, BgL_auxz00_2245); }  else 
{ /* ./Llib/os.scm 313 */
BgL_test1586z00_900 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 313 */
BgL_test1586z00_900 = ((bool_t)0); } } 
if(BgL_test1586z00_900)
{ /* ./Llib/os.scm 313 */
BgL_res2151z00_925 = 
c_substring(BgL_stringz00_11, BgL_startz00_898, BgL_endz00_899); }  else 
{ /* ./Llib/os.scm 313 */
{ /* ./Llib/os.scm 313 */
obj_t BgL_arg1591z00_911;
{ /* ./Llib/os.scm 313 */
obj_t BgL_auxz00_2258;obj_t BgL_auxz00_2256;
BgL_auxz00_2258 = 
BINT(BgL_endz00_899); 
BgL_auxz00_2256 = 
BINT(BgL_startz00_898); 
BgL_arg1591z00_911 = 
MAKE_PAIR(BgL_auxz00_2256, BgL_auxz00_2258); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_911, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 313 */
obj_t BgL_aux2737z00_1552;
BgL_aux2737z00_1552 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)12370))); 
if(
STRINGP(BgL_aux2737z00_1552))
{ /* ./Llib/os.scm 313 */
BgL_res2151z00_925 = BgL_aux2737z00_1552; }  else 
{ /* ./Llib/os.scm 313 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3698z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2737z00_1552, BGl_string3667z00zz__osz00, 
BINT(((long)12370))); 
exit( -1 );} } } } } 
BgL_aux2254z00_1420 = BgL_res2151z00_925; } } }  else 
{ /* ./Llib/os.scm 312 */
{ /* ./Llib/os.scm 315 */
bool_t BgL_test1151z00_432;
{ /* ./Llib/os.scm 315 */
bool_t BgL_test1163z00_436;
{ /* ./Llib/os.scm 315 */
unsigned char BgL_arg1166z00_437;
{ /* ./Llib/os.scm 315 */
unsigned char BgL_res2152z00_934;
{ /* ./Llib/os.scm 315 */
int BgL_kz00_927;
BgL_kz00_927 = 
(int)(BgL_sz00_427); 
{ /* ./Llib/os.scm 315 */
bool_t BgL_testz00_2270;
{ /* ./Llib/os.scm 315 */
int BgL_auxz00_2271;
BgL_auxz00_2271 = 
STRING_LENGTH(BgL_stringz00_11); 
BgL_testz00_2270 = 
BOUND_CHECK(BgL_kz00_927, BgL_auxz00_2271); } 
if(BgL_testz00_2270)
{ /* ./Llib/os.scm 315 */
BgL_res2152z00_934 = 
STRING_REF(BgL_stringz00_11, BgL_kz00_927); }  else 
{ /* ./Llib/os.scm 315 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_927), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 315 */
obj_t BgL_auxz00_2277;
{ /* ./Llib/os.scm 315 */
obj_t BgL_aux2756z00_1554;
BgL_aux2756z00_1554 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)12447))); 
if(
CHARP(BgL_aux2756z00_1554))
{ /* ./Llib/os.scm 315 */
BgL_auxz00_2277 = BgL_aux2756z00_1554
; }  else 
{ /* ./Llib/os.scm 315 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3698z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2756z00_1554, BGl_string3667z00zz__osz00, 
BINT(((long)12447))); 
exit( -1 );} } 
BgL_res2152z00_934 = 
(unsigned char)CCHAR(BgL_auxz00_2277); } } } } 
BgL_arg1166z00_437 = BgL_res2152z00_934; } 
{ /* ./Llib/os.scm 315 */
obj_t BgL_auxz00_2288;obj_t BgL_auxz00_2286;
BgL_auxz00_2288 = 
BCHAR(((unsigned char)'.')); 
BgL_auxz00_2286 = 
BCHAR(BgL_arg1166z00_437); 
BgL_test1163z00_436 = 
(BgL_auxz00_2286==BgL_auxz00_2288); } } 
if(BgL_test1163z00_436)
{ /* ./Llib/os.scm 315 */
BgL_test1151z00_432 = 
(BgL_ez00_426==BgL_lenz00_425); }  else 
{ /* ./Llib/os.scm 315 */
BgL_test1151z00_432 = ((bool_t)0); } } 
if(BgL_test1151z00_432)
{ 
long BgL_sz00_2296;long BgL_ez00_2294;
BgL_ez00_2294 = 
(BgL_sz00_427-((long)1)); 
BgL_sz00_2296 = 
(BgL_sz00_427-((long)1)); 
BgL_sz00_427 = BgL_sz00_2296; 
BgL_ez00_426 = BgL_ez00_2294; 
goto BgL_loopz00_428;}  else 
{ 
long BgL_sz00_2298;
BgL_sz00_2298 = 
(BgL_sz00_427-((long)1)); 
BgL_sz00_427 = BgL_sz00_2298; 
goto BgL_loopz00_428;} } } } } 
POP_TRACE(); 
return BgL_aux2254z00_1420;} } } } 
}



/* _prefix */
obj_t BGl__prefixz00zz__osz00(obj_t BgL_envz00_1478, obj_t BgL_stringz00_1479)
{ AN_OBJECT;
{ /* ./Llib/os.scm 307 */
{ /* ./Llib/os.scm 308 */
obj_t BgL_auxz00_2301;
if(
STRINGP(BgL_stringz00_1479))
{ /* ./Llib/os.scm 308 */
BgL_auxz00_2301 = BgL_stringz00_1479
; }  else 
{ /* ./Llib/os.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3699z00zz__osz00, BGl_string3692z00zz__osz00, BgL_stringz00_1479, BGl_string3667z00zz__osz00, 
BINT(((long)12223))); 
exit( -1 );} 
return 
BGl_prefixz00zz__osz00(BgL_auxz00_2301);} } 
}



/* dirname */
BGL_EXPORTED_DEF obj_t BGl_dirnamez00zz__osz00(obj_t BgL_stringz00_12)
{ AN_OBJECT;
{ /* ./Llib/os.scm 323 */
{ /* ./Llib/os.scm 324 */
obj_t BgL_symbol2259z00_1421;
BgL_symbol2259z00_1421 = BGl_symbol3700z00zz__osz00; 
{ /* ./Llib/os.scm 324 */

PUSH_TRACE(BgL_symbol2259z00_1421); BUNSPEC; 
{ /* ./Llib/os.scm 324 */
obj_t BgL_aux2258z00_1422;
{ /* ./Llib/os.scm 324 */
long BgL_lenz00_440;
{ /* ./Llib/os.scm 324 */
long BgL_auxz00_2309;
{ /* ./Llib/os.scm 324 */
int BgL_auxz00_2310;
BgL_auxz00_2310 = 
STRING_LENGTH(BgL_stringz00_12); 
BgL_auxz00_2309 = 
(long)(BgL_auxz00_2310); } 
BgL_lenz00_440 = 
(BgL_auxz00_2309-((long)1)); } 
if(
(BgL_lenz00_440==((long)-1)))
{ /* ./Llib/os.scm 325 */
BgL_aux2258z00_1422 = BGl_string3651z00zz__osz00; }  else 
{ 
long BgL_readz00_442;
{ /* ./Llib/os.scm 327 */
obj_t BgL_aux2874z00_1568;
BgL_readz00_442 = BgL_lenz00_440; 
BgL_loopz00_443:
if(
(BgL_readz00_442==((long)0)))
{ /* ./Llib/os.scm 329 */
{ /* ./Llib/os.scm 330 */
bool_t BgL_test1178z00_445;
{ /* ./Llib/os.scm 330 */
unsigned char BgL_arg1183z00_447;
{ /* ./Llib/os.scm 330 */
unsigned char BgL_res2153z00_958;
{ /* ./Llib/os.scm 330 */
int BgL_kz00_951;
BgL_kz00_951 = 
(int)(BgL_readz00_442); 
{ /* ./Llib/os.scm 330 */
bool_t BgL_testz00_2319;
{ /* ./Llib/os.scm 330 */
int BgL_auxz00_2320;
BgL_auxz00_2320 = 
STRING_LENGTH(BgL_stringz00_12); 
BgL_testz00_2319 = 
BOUND_CHECK(BgL_kz00_951, BgL_auxz00_2320); } 
if(BgL_testz00_2319)
{ /* ./Llib/os.scm 330 */
BgL_res2153z00_958 = 
STRING_REF(BgL_stringz00_12, BgL_kz00_951); }  else 
{ /* ./Llib/os.scm 330 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_951), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 330 */
obj_t BgL_auxz00_2326;
{ /* ./Llib/os.scm 330 */
obj_t BgL_aux2790z00_1558;
BgL_aux2790z00_1558 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)12989))); 
if(
CHARP(BgL_aux2790z00_1558))
{ /* ./Llib/os.scm 330 */
BgL_auxz00_2326 = BgL_aux2790z00_1558
; }  else 
{ /* ./Llib/os.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2790z00_1558, BGl_string3667z00zz__osz00, 
BINT(((long)12989))); 
exit( -1 );} } 
BgL_res2153z00_958 = 
(unsigned char)CCHAR(BgL_auxz00_2326); } } } } 
BgL_arg1183z00_447 = BgL_res2153z00_958; } 
{ /* ./Llib/os.scm 330 */
unsigned char BgL_auxz00_2335;
BgL_auxz00_2335 = 
(unsigned char)(FILE_SEPARATOR); 
BgL_test1178z00_445 = 
(BgL_arg1183z00_447==BgL_auxz00_2335); } } 
if(BgL_test1178z00_445)
{ /* ./Llib/os.scm 331 */
obj_t BgL_list1180z00_446;
{ /* ./Llib/os.scm 331 */
obj_t BgL_auxz00_2339;
BgL_auxz00_2339 = 
BCHAR(FILE_SEPARATOR); 
BgL_list1180z00_446 = 
MAKE_PAIR(BgL_auxz00_2339, BNIL); } 
{ /* ./Llib/os.scm 331 */
obj_t BgL_res2154z00_967;
{ /* ./Llib/os.scm 331 */
int BgL_kz00_961;
BgL_kz00_961 = 
(int)(((long)1)); 
{ /* ./Llib/os.scm 331 */
obj_t BgL_arg1657z00_964;
BgL_arg1657z00_964 = 
CAR(BgL_list1180z00_446); 
{ /* ./Llib/os.scm 331 */
unsigned char BgL_auxz00_2344;
{ /* ./Llib/os.scm 331 */
obj_t BgL_auxz00_2345;
if(
CHARP(BgL_arg1657z00_964))
{ /* ./Llib/os.scm 331 */
BgL_auxz00_2345 = BgL_arg1657z00_964
; }  else 
{ /* ./Llib/os.scm 331 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__osz00, BGl_string3689z00zz__osz00, BgL_arg1657z00_964, BGl_string3667z00zz__osz00, 
BINT(((long)13045))); 
exit( -1 );} 
BgL_auxz00_2344 = 
(unsigned char)CCHAR(BgL_auxz00_2345); } 
BgL_res2154z00_967 = 
make_string(BgL_kz00_961, BgL_auxz00_2344); } } } 
BgL_aux2874z00_1568 = BgL_res2154z00_967; } }  else 
{ /* ./Llib/os.scm 330 */
BgL_aux2874z00_1568 = BGl_string3651z00zz__osz00; } } }  else 
{ /* ./Llib/os.scm 333 */
bool_t BgL_test1186z00_448;
{ /* ./Llib/os.scm 333 */
unsigned char BgL_arg1193z00_450;
{ /* ./Llib/os.scm 333 */
unsigned char BgL_res2155z00_976;
{ /* ./Llib/os.scm 333 */
int BgL_kz00_969;
BgL_kz00_969 = 
(int)(BgL_readz00_442); 
{ /* ./Llib/os.scm 333 */
bool_t BgL_testz00_2354;
{ /* ./Llib/os.scm 333 */
int BgL_auxz00_2355;
BgL_auxz00_2355 = 
STRING_LENGTH(BgL_stringz00_12); 
BgL_testz00_2354 = 
BOUND_CHECK(BgL_kz00_969, BgL_auxz00_2355); } 
if(BgL_testz00_2354)
{ /* ./Llib/os.scm 333 */
BgL_res2155z00_976 = 
STRING_REF(BgL_stringz00_12, BgL_kz00_969); }  else 
{ /* ./Llib/os.scm 333 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_969), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 333 */
obj_t BgL_auxz00_2361;
{ /* ./Llib/os.scm 333 */
obj_t BgL_aux2835z00_1564;
BgL_aux2835z00_1564 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)13108))); 
if(
CHARP(BgL_aux2835z00_1564))
{ /* ./Llib/os.scm 333 */
BgL_auxz00_2361 = BgL_aux2835z00_1564
; }  else 
{ /* ./Llib/os.scm 333 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2835z00_1564, BGl_string3667z00zz__osz00, 
BINT(((long)13108))); 
exit( -1 );} } 
BgL_res2155z00_976 = 
(unsigned char)CCHAR(BgL_auxz00_2361); } } } } 
BgL_arg1193z00_450 = BgL_res2155z00_976; } 
{ /* ./Llib/os.scm 333 */
unsigned char BgL_auxz00_2370;
BgL_auxz00_2370 = 
(unsigned char)(FILE_SEPARATOR); 
BgL_test1186z00_448 = 
(BgL_arg1193z00_450==BgL_auxz00_2370); } } 
if(BgL_test1186z00_448)
{ /* ./Llib/os.scm 333 */
{ /* ./Llib/os.scm 334 */
obj_t BgL_res2156z00_1007;
{ /* ./Llib/os.scm 334 */
int BgL_startz00_980;int BgL_endz00_981;
BgL_startz00_980 = 
(int)(((long)0)); 
BgL_endz00_981 = 
(int)(BgL_readz00_442); 
{ /* ./Llib/os.scm 334 */
bool_t BgL_test1586z00_982;
{ /* ./Llib/os.scm 334 */
bool_t BgL_testz00_2376;
{ /* ./Llib/os.scm 334 */
long BgL_auxz00_2379;long BgL_auxz00_2377;
BgL_auxz00_2379 = 
(long)(BgL_startz00_980); 
BgL_auxz00_2377 = 
(long)(BgL_endz00_981); 
BgL_testz00_2376 = 
(BgL_auxz00_2377>=BgL_auxz00_2379); } 
if(BgL_testz00_2376)
{ /* ./Llib/os.scm 334 */
bool_t BgL_testz00_2382;
{ /* ./Llib/os.scm 334 */
int BgL_auxz00_2383;
{ /* ./Llib/os.scm 334 */
long BgL_auxz00_2384;
{ /* ./Llib/os.scm 334 */
long BgL_auxz00_2385;
{ /* ./Llib/os.scm 334 */
int BgL_auxz00_2386;
BgL_auxz00_2386 = 
STRING_LENGTH(BgL_stringz00_12); 
BgL_auxz00_2385 = 
(long)(BgL_auxz00_2386); } 
BgL_auxz00_2384 = 
(BgL_auxz00_2385+((long)1)); } 
BgL_auxz00_2383 = 
(int)(BgL_auxz00_2384); } 
BgL_testz00_2382 = 
BOUND_CHECK(BgL_startz00_980, BgL_auxz00_2383); } 
if(BgL_testz00_2382)
{ /* ./Llib/os.scm 334 */
int BgL_auxz00_2392;
{ /* ./Llib/os.scm 334 */
long BgL_auxz00_2393;
{ /* ./Llib/os.scm 334 */
long BgL_auxz00_2394;
{ /* ./Llib/os.scm 334 */
int BgL_auxz00_2395;
BgL_auxz00_2395 = 
STRING_LENGTH(BgL_stringz00_12); 
BgL_auxz00_2394 = 
(long)(BgL_auxz00_2395); } 
BgL_auxz00_2393 = 
(BgL_auxz00_2394+((long)1)); } 
BgL_auxz00_2392 = 
(int)(BgL_auxz00_2393); } 
BgL_test1586z00_982 = 
BOUND_CHECK(BgL_endz00_981, BgL_auxz00_2392); }  else 
{ /* ./Llib/os.scm 334 */
BgL_test1586z00_982 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 334 */
BgL_test1586z00_982 = ((bool_t)0); } } 
if(BgL_test1586z00_982)
{ /* ./Llib/os.scm 334 */
BgL_res2156z00_1007 = 
c_substring(BgL_stringz00_12, BgL_startz00_980, BgL_endz00_981); }  else 
{ /* ./Llib/os.scm 334 */
{ /* ./Llib/os.scm 334 */
obj_t BgL_arg1591z00_993;
{ /* ./Llib/os.scm 334 */
obj_t BgL_auxz00_2405;obj_t BgL_auxz00_2403;
BgL_auxz00_2405 = 
BINT(BgL_endz00_981); 
BgL_auxz00_2403 = 
BINT(BgL_startz00_980); 
BgL_arg1591z00_993 = 
MAKE_PAIR(BgL_auxz00_2403, BgL_auxz00_2405); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_993, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 334 */
obj_t BgL_aux2864z00_1566;
BgL_aux2864z00_1566 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)13160))); 
if(
STRINGP(BgL_aux2864z00_1566))
{ /* ./Llib/os.scm 334 */
BgL_res2156z00_1007 = BgL_aux2864z00_1566; }  else 
{ /* ./Llib/os.scm 334 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2864z00_1566, BGl_string3667z00zz__osz00, 
BINT(((long)13160))); 
exit( -1 );} } } } } 
BgL_aux2874z00_1568 = BgL_res2156z00_1007; } }  else 
{ /* ./Llib/os.scm 333 */
{ 
long BgL_readz00_2416;
BgL_readz00_2416 = 
(BgL_readz00_442-((long)1)); 
BgL_readz00_442 = BgL_readz00_2416; 
goto BgL_loopz00_443;} } } 
if(
STRINGP(BgL_aux2874z00_1568))
{ /* ./Llib/os.scm 327 */
BgL_aux2258z00_1422 = BgL_aux2874z00_1568; }  else 
{ /* ./Llib/os.scm 327 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2874z00_1568, BGl_string3667z00zz__osz00, 
BINT(((long)12923))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux2258z00_1422;} } } } 
}



/* _dirname */
obj_t BGl__dirnamez00zz__osz00(obj_t BgL_envz00_1480, obj_t BgL_stringz00_1481)
{ AN_OBJECT;
{ /* ./Llib/os.scm 323 */
{ /* ./Llib/os.scm 324 */
obj_t BgL_auxz00_2424;
if(
STRINGP(BgL_stringz00_1481))
{ /* ./Llib/os.scm 324 */
BgL_auxz00_2424 = BgL_stringz00_1481
; }  else 
{ /* ./Llib/os.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3701z00zz__osz00, BGl_string3692z00zz__osz00, BgL_stringz00_1481, BGl_string3667z00zz__osz00, 
BINT(((long)12846))); 
exit( -1 );} 
return 
BGl_dirnamez00zz__osz00(BgL_auxz00_2424);} } 
}



/* suffix */
BGL_EXPORTED_DEF obj_t BGl_suffixz00zz__osz00(obj_t BgL_stringz00_13)
{ AN_OBJECT;
{ /* ./Llib/os.scm 341 */
{ /* ./Llib/os.scm 342 */
obj_t BgL_symbol2263z00_1423;
BgL_symbol2263z00_1423 = BGl_symbol3702z00zz__osz00; 
{ /* ./Llib/os.scm 342 */

PUSH_TRACE(BgL_symbol2263z00_1423); BUNSPEC; 
{ /* ./Llib/os.scm 342 */
obj_t BgL_aux2262z00_1424;
{ /* ./Llib/os.scm 342 */
int BgL_lenz00_453;
BgL_lenz00_453 = 
STRING_LENGTH(BgL_stringz00_13); 
{ /* ./Llib/os.scm 342 */
long BgL_lenzd21zd2_454;
{ /* ./Llib/os.scm 343 */
long BgL_auxz00_2433;
BgL_auxz00_2433 = 
(long)(BgL_lenz00_453); 
BgL_lenzd21zd2_454 = 
(BgL_auxz00_2433-((long)1)); } 
{ /* ./Llib/os.scm 343 */

{ 
long BgL_readz00_455;
{ /* ./Llib/os.scm 344 */
obj_t BgL_aux2965z00_1578;
BgL_readz00_455 = BgL_lenzd21zd2_454; 
BgL_loopz00_456:
if(
(BgL_readz00_455<((long)0)))
{ /* ./Llib/os.scm 346 */
BgL_aux2965z00_1578 = BGl_string3650z00zz__osz00; }  else 
{ /* ./Llib/os.scm 348 */
bool_t BgL_test1205z00_458;
{ /* ./Llib/os.scm 348 */
unsigned char BgL_arg1222z00_464;
{ /* ./Llib/os.scm 348 */
unsigned char BgL_res2157z00_1023;
{ /* ./Llib/os.scm 348 */
int BgL_kz00_1016;
BgL_kz00_1016 = 
(int)(BgL_readz00_455); 
{ /* ./Llib/os.scm 348 */
bool_t BgL_testz00_2439;
{ /* ./Llib/os.scm 348 */
int BgL_auxz00_2440;
BgL_auxz00_2440 = 
STRING_LENGTH(BgL_stringz00_13); 
BgL_testz00_2439 = 
BOUND_CHECK(BgL_kz00_1016, BgL_auxz00_2440); } 
if(BgL_testz00_2439)
{ /* ./Llib/os.scm 348 */
BgL_res2157z00_1023 = 
STRING_REF(BgL_stringz00_13, BgL_kz00_1016); }  else 
{ /* ./Llib/os.scm 348 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_1016), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 348 */
obj_t BgL_auxz00_2446;
{ /* ./Llib/os.scm 348 */
obj_t BgL_aux2905z00_1572;
BgL_aux2905z00_1572 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)13651))); 
if(
CHARP(BgL_aux2905z00_1572))
{ /* ./Llib/os.scm 348 */
BgL_auxz00_2446 = BgL_aux2905z00_1572
; }  else 
{ /* ./Llib/os.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3702z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2905z00_1572, BGl_string3667z00zz__osz00, 
BINT(((long)13651))); 
exit( -1 );} } 
BgL_res2157z00_1023 = 
(unsigned char)CCHAR(BgL_auxz00_2446); } } } } 
BgL_arg1222z00_464 = BgL_res2157z00_1023; } 
{ /* ./Llib/os.scm 348 */
unsigned char BgL_auxz00_2455;
BgL_auxz00_2455 = 
(unsigned char)(FILE_SEPARATOR); 
BgL_test1205z00_458 = 
(BgL_arg1222z00_464==BgL_auxz00_2455); } } 
if(BgL_test1205z00_458)
{ /* ./Llib/os.scm 348 */
BgL_aux2965z00_1578 = BGl_string3650z00zz__osz00; }  else 
{ /* ./Llib/os.scm 350 */
bool_t BgL_test1206z00_459;
{ /* ./Llib/os.scm 350 */
unsigned char BgL_arg1218z00_463;
{ /* ./Llib/os.scm 350 */
unsigned char BgL_res2158z00_1034;
{ /* ./Llib/os.scm 350 */
int BgL_kz00_1027;
BgL_kz00_1027 = 
(int)(BgL_readz00_455); 
{ /* ./Llib/os.scm 350 */
bool_t BgL_testz00_2460;
{ /* ./Llib/os.scm 350 */
int BgL_auxz00_2461;
BgL_auxz00_2461 = 
STRING_LENGTH(BgL_stringz00_13); 
BgL_testz00_2460 = 
BOUND_CHECK(BgL_kz00_1027, BgL_auxz00_2461); } 
if(BgL_testz00_2460)
{ /* ./Llib/os.scm 350 */
BgL_res2158z00_1034 = 
STRING_REF(BgL_stringz00_13, BgL_kz00_1027); }  else 
{ /* ./Llib/os.scm 350 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_1027), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 350 */
obj_t BgL_auxz00_2467;
{ /* ./Llib/os.scm 350 */
obj_t BgL_aux2927z00_1574;
BgL_aux2927z00_1574 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)13731))); 
if(
CHARP(BgL_aux2927z00_1574))
{ /* ./Llib/os.scm 350 */
BgL_auxz00_2467 = BgL_aux2927z00_1574
; }  else 
{ /* ./Llib/os.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3702z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux2927z00_1574, BGl_string3667z00zz__osz00, 
BINT(((long)13731))); 
exit( -1 );} } 
BgL_res2158z00_1034 = 
(unsigned char)CCHAR(BgL_auxz00_2467); } } } } 
BgL_arg1218z00_463 = BgL_res2158z00_1034; } 
BgL_test1206z00_459 = 
(BgL_arg1218z00_463==((unsigned char)'.')); } 
if(BgL_test1206z00_459)
{ /* ./Llib/os.scm 350 */
if(
(BgL_readz00_455==BgL_lenzd21zd2_454))
{ /* ./Llib/os.scm 352 */
BgL_aux2965z00_1578 = BGl_string3650z00zz__osz00; }  else 
{ /* ./Llib/os.scm 352 */
{ /* ./Llib/os.scm 355 */
long BgL_arg1209z00_461;
BgL_arg1209z00_461 = 
(BgL_readz00_455+((long)1)); 
{ /* ./Llib/os.scm 355 */
obj_t BgL_res2159z00_1069;
{ /* ./Llib/os.scm 355 */
int BgL_startz00_1042;
BgL_startz00_1042 = 
(int)(BgL_arg1209z00_461); 
{ /* ./Llib/os.scm 355 */
bool_t BgL_test1586z00_1044;
{ /* ./Llib/os.scm 355 */
bool_t BgL_testz00_2482;
{ /* ./Llib/os.scm 355 */
long BgL_auxz00_2485;long BgL_auxz00_2483;
BgL_auxz00_2485 = 
(long)(BgL_startz00_1042); 
BgL_auxz00_2483 = 
(long)(BgL_lenz00_453); 
BgL_testz00_2482 = 
(BgL_auxz00_2483>=BgL_auxz00_2485); } 
if(BgL_testz00_2482)
{ /* ./Llib/os.scm 355 */
bool_t BgL_testz00_2488;
{ /* ./Llib/os.scm 355 */
int BgL_auxz00_2489;
{ /* ./Llib/os.scm 355 */
long BgL_auxz00_2490;
{ /* ./Llib/os.scm 355 */
long BgL_auxz00_2491;
{ /* ./Llib/os.scm 355 */
int BgL_auxz00_2492;
BgL_auxz00_2492 = 
STRING_LENGTH(BgL_stringz00_13); 
BgL_auxz00_2491 = 
(long)(BgL_auxz00_2492); } 
BgL_auxz00_2490 = 
(BgL_auxz00_2491+((long)1)); } 
BgL_auxz00_2489 = 
(int)(BgL_auxz00_2490); } 
BgL_testz00_2488 = 
BOUND_CHECK(BgL_startz00_1042, BgL_auxz00_2489); } 
if(BgL_testz00_2488)
{ /* ./Llib/os.scm 355 */
int BgL_auxz00_2498;
{ /* ./Llib/os.scm 355 */
long BgL_auxz00_2499;
{ /* ./Llib/os.scm 355 */
long BgL_auxz00_2500;
{ /* ./Llib/os.scm 355 */
int BgL_auxz00_2501;
BgL_auxz00_2501 = 
STRING_LENGTH(BgL_stringz00_13); 
BgL_auxz00_2500 = 
(long)(BgL_auxz00_2501); } 
BgL_auxz00_2499 = 
(BgL_auxz00_2500+((long)1)); } 
BgL_auxz00_2498 = 
(int)(BgL_auxz00_2499); } 
BgL_test1586z00_1044 = 
BOUND_CHECK(BgL_lenz00_453, BgL_auxz00_2498); }  else 
{ /* ./Llib/os.scm 355 */
BgL_test1586z00_1044 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 355 */
BgL_test1586z00_1044 = ((bool_t)0); } } 
if(BgL_test1586z00_1044)
{ /* ./Llib/os.scm 355 */
BgL_res2159z00_1069 = 
c_substring(BgL_stringz00_13, BgL_startz00_1042, BgL_lenz00_453); }  else 
{ /* ./Llib/os.scm 355 */
{ /* ./Llib/os.scm 355 */
obj_t BgL_arg1591z00_1055;
{ /* ./Llib/os.scm 355 */
obj_t BgL_auxz00_2511;obj_t BgL_auxz00_2509;
BgL_auxz00_2511 = 
BINT(BgL_lenz00_453); 
BgL_auxz00_2509 = 
BINT(BgL_startz00_1042); 
BgL_arg1591z00_1055 = 
MAKE_PAIR(BgL_auxz00_2509, BgL_auxz00_2511); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_1055, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 355 */
obj_t BgL_aux2955z00_1576;
BgL_aux2955z00_1576 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)13874))); 
if(
STRINGP(BgL_aux2955z00_1576))
{ /* ./Llib/os.scm 355 */
BgL_res2159z00_1069 = BgL_aux2955z00_1576; }  else 
{ /* ./Llib/os.scm 355 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3702z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2955z00_1576, BGl_string3667z00zz__osz00, 
BINT(((long)13874))); 
exit( -1 );} } } } } 
BgL_aux2965z00_1578 = BgL_res2159z00_1069; } } } }  else 
{ /* ./Llib/os.scm 350 */
{ 
long BgL_readz00_2522;
BgL_readz00_2522 = 
(BgL_readz00_455-((long)1)); 
BgL_readz00_455 = BgL_readz00_2522; 
goto BgL_loopz00_456;} } } } 
if(
STRINGP(BgL_aux2965z00_1578))
{ /* ./Llib/os.scm 344 */
BgL_aux2262z00_1424 = BgL_aux2965z00_1578; }  else 
{ /* ./Llib/os.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3702z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux2965z00_1578, BGl_string3667z00zz__osz00, 
BINT(((long)13547))); 
exit( -1 );} } } } } } 
POP_TRACE(); 
return BgL_aux2262z00_1424;} } } } 
}



/* _suffix */
obj_t BGl__suffixz00zz__osz00(obj_t BgL_envz00_1482, obj_t BgL_stringz00_1483)
{ AN_OBJECT;
{ /* ./Llib/os.scm 341 */
{ /* ./Llib/os.scm 342 */
obj_t BgL_auxz00_2530;
if(
STRINGP(BgL_stringz00_1483))
{ /* ./Llib/os.scm 342 */
BgL_auxz00_2530 = BgL_stringz00_1483
; }  else 
{ /* ./Llib/os.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3703z00zz__osz00, BGl_string3692z00zz__osz00, BgL_stringz00_1483, BGl_string3667z00zz__osz00, 
BINT(((long)13474))); 
exit( -1 );} 
return 
BGl_suffixz00zz__osz00(BgL_auxz00_2530);} } 
}



/* chmod */
BGL_EXPORTED_DEF bool_t BGl_chmodz00zz__osz00(obj_t BgL_filez00_14, obj_t BgL_modez00_15)
{ AN_OBJECT;
{ /* ./Llib/os.scm 362 */
{ /* ./Llib/os.scm 363 */
obj_t BgL_symbol2267z00_1425;
BgL_symbol2267z00_1425 = BGl_symbol3704z00zz__osz00; 
{ /* ./Llib/os.scm 363 */

PUSH_TRACE(BgL_symbol2267z00_1425); BUNSPEC; 
{ /* ./Llib/os.scm 363 */
bool_t BgL_aux2266z00_1426;
{ 
obj_t BgL_modez00_465;bool_t BgL_readzf3zf3_466;bool_t BgL_writezf3zf3_467;bool_t BgL_execzf3zf3_468;
{ /* ./Llib/os.scm 363 */
obj_t BgL_auxz00_2538;
BgL_modez00_465 = BgL_modez00_15; 
BgL_readzf3zf3_466 = ((bool_t)0); 
BgL_writezf3zf3_467 = ((bool_t)0); 
BgL_execzf3zf3_468 = ((bool_t)0); 
BgL_loopz00_469:
if(
NULLP(BgL_modez00_465))
{ /* ./Llib/os.scm 368 */
{ /* ./Llib/os.scm 369 */
bool_t BgL_auxz00_2541;
{ /* ./Llib/os.scm 369 */
char * BgL_auxz00_2542;
BgL_auxz00_2542 = 
BSTRING_TO_STRING(BgL_filez00_14); 
BgL_auxz00_2541 = 
bgl_chmod(BgL_auxz00_2542, BgL_readzf3zf3_466, BgL_writezf3zf3_467, BgL_execzf3zf3_468); } 
BgL_auxz00_2538 = 
BBOOL(BgL_auxz00_2541); } }  else 
{ /* ./Llib/os.scm 370 */
bool_t BgL_test1231z00_471;
{ /* ./Llib/os.scm 370 */
obj_t BgL_arg1270z00_485;
{ /* ./Llib/os.scm 370 */
obj_t BgL_pairz00_1073;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 370 */
BgL_pairz00_1073 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14397))); 
exit( -1 );} 
BgL_arg1270z00_485 = 
CAR(BgL_pairz00_1073); } 
BgL_test1231z00_471 = 
INTEGERP(BgL_arg1270z00_485); } 
if(BgL_test1231z00_471)
{ /* ./Llib/os.scm 370 */
{ /* ./Llib/os.scm 371 */
obj_t BgL_arg1233z00_472;
{ /* ./Llib/os.scm 371 */
obj_t BgL_pairz00_1075;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 371 */
BgL_pairz00_1075 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 371 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14430))); 
exit( -1 );} 
BgL_arg1233z00_472 = 
CAR(BgL_pairz00_1075); } 
{ /* ./Llib/os.scm 371 */
bool_t BgL_auxz00_2560;
{ /* ./Llib/os.scm 371 */
int BgL_auxz00_2563;char * BgL_auxz00_2561;
{ /* ./Llib/os.scm 371 */
obj_t BgL_auxz00_2564;
if(
INTEGERP(BgL_arg1233z00_472))
{ /* ./Llib/os.scm 371 */
BgL_auxz00_2564 = BgL_arg1233z00_472
; }  else 
{ /* ./Llib/os.scm 371 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3670z00zz__osz00, BgL_arg1233z00_472, BGl_string3667z00zz__osz00, 
BINT(((long)14431))); 
exit( -1 );} 
BgL_auxz00_2563 = 
CINT(BgL_auxz00_2564); } 
BgL_auxz00_2561 = 
BSTRING_TO_STRING(BgL_filez00_14); 
BgL_auxz00_2560 = 
chmod(BgL_auxz00_2561, BgL_auxz00_2563); } 
BgL_auxz00_2538 = 
BBOOL(BgL_auxz00_2560); } } }  else 
{ /* ./Llib/os.scm 372 */
bool_t BgL_test1236z00_473;
{ /* ./Llib/os.scm 372 */
obj_t BgL_arg1265z00_483;obj_t BgL_arg1266z00_484;
{ /* ./Llib/os.scm 372 */
obj_t BgL_pairz00_1076;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 372 */
BgL_pairz00_1076 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 372 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14451))); 
exit( -1 );} 
BgL_arg1265z00_483 = 
CAR(BgL_pairz00_1076); } 
BgL_arg1266z00_484 = BGl_symbol3705z00zz__osz00; 
BgL_test1236z00_473 = 
(BgL_arg1265z00_483==BgL_arg1266z00_484); } 
if(BgL_test1236z00_473)
{ /* ./Llib/os.scm 372 */
{ /* ./Llib/os.scm 373 */
obj_t BgL_arg1238z00_474;
{ /* ./Llib/os.scm 373 */
obj_t BgL_pairz00_1077;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 373 */
BgL_pairz00_1077 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 373 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14478))); 
exit( -1 );} 
BgL_arg1238z00_474 = 
CDR(BgL_pairz00_1077); } 
{ 
bool_t BgL_readzf3zf3_2588;obj_t BgL_modez00_2587;
BgL_modez00_2587 = BgL_arg1238z00_474; 
BgL_readzf3zf3_2588 = ((bool_t)1); 
BgL_readzf3zf3_466 = BgL_readzf3zf3_2588; 
BgL_modez00_465 = BgL_modez00_2587; 
goto BgL_loopz00_469;} } }  else 
{ /* ./Llib/os.scm 377 */
bool_t BgL_test1241z00_475;
{ /* ./Llib/os.scm 377 */
obj_t BgL_arg1260z00_481;obj_t BgL_arg1261z00_482;
{ /* ./Llib/os.scm 377 */
obj_t BgL_pairz00_1078;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 377 */
BgL_pairz00_1078 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 377 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14521))); 
exit( -1 );} 
BgL_arg1260z00_481 = 
CAR(BgL_pairz00_1078); } 
BgL_arg1261z00_482 = BGl_symbol3706z00zz__osz00; 
BgL_test1241z00_475 = 
(BgL_arg1260z00_481==BgL_arg1261z00_482); } 
if(BgL_test1241z00_475)
{ /* ./Llib/os.scm 377 */
{ /* ./Llib/os.scm 378 */
obj_t BgL_arg1243z00_476;
{ /* ./Llib/os.scm 378 */
obj_t BgL_pairz00_1079;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 378 */
BgL_pairz00_1079 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 378 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14549))); 
exit( -1 );} 
BgL_arg1243z00_476 = 
CDR(BgL_pairz00_1079); } 
{ 
bool_t BgL_writezf3zf3_2604;obj_t BgL_modez00_2603;
BgL_modez00_2603 = BgL_arg1243z00_476; 
BgL_writezf3zf3_2604 = ((bool_t)1); 
BgL_writezf3zf3_467 = BgL_writezf3zf3_2604; 
BgL_modez00_465 = BgL_modez00_2603; 
goto BgL_loopz00_469;} } }  else 
{ /* ./Llib/os.scm 382 */
bool_t BgL_test1246z00_477;
{ /* ./Llib/os.scm 382 */
obj_t BgL_arg1255z00_479;obj_t BgL_arg1256z00_480;
{ /* ./Llib/os.scm 382 */
obj_t BgL_pairz00_1080;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 382 */
BgL_pairz00_1080 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 382 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14591))); 
exit( -1 );} 
BgL_arg1255z00_479 = 
CAR(BgL_pairz00_1080); } 
BgL_arg1256z00_480 = BGl_symbol3707z00zz__osz00; 
BgL_test1246z00_477 = 
(BgL_arg1255z00_479==BgL_arg1256z00_480); } 
if(BgL_test1246z00_477)
{ /* ./Llib/os.scm 382 */
{ /* ./Llib/os.scm 383 */
obj_t BgL_arg1249z00_478;
{ /* ./Llib/os.scm 383 */
obj_t BgL_pairz00_1081;
if(
PAIRP(BgL_modez00_465))
{ /* ./Llib/os.scm 383 */
BgL_pairz00_1081 = BgL_modez00_465; }  else 
{ /* ./Llib/os.scm 383 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__osz00, BGl_string3682z00zz__osz00, BgL_modez00_465, BGl_string3667z00zz__osz00, 
BINT(((long)14621))); 
exit( -1 );} 
BgL_arg1249z00_478 = 
CDR(BgL_pairz00_1081); } 
{ 
bool_t BgL_execzf3zf3_2620;obj_t BgL_modez00_2619;
BgL_modez00_2619 = BgL_arg1249z00_478; 
BgL_execzf3zf3_2620 = ((bool_t)1); 
BgL_execzf3zf3_468 = BgL_execzf3zf3_2620; 
BgL_modez00_465 = BgL_modez00_2619; 
goto BgL_loopz00_469;} } }  else 
{ /* ./Llib/os.scm 382 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3708z00zz__osz00, BGl_string3709z00zz__osz00, BgL_modez00_465, "./Llib/os.scm", ((long)14659)); 
BgL_auxz00_2538 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)14659))); } } } } } 
BgL_aux2266z00_1426 = 
CBOOL(BgL_auxz00_2538); } } 
POP_TRACE(); 
return BgL_aux2266z00_1426;} } } } 
}



/* _chmod */
obj_t BGl__chmodz00zz__osz00(obj_t BgL_envz00_1484, obj_t BgL_filez00_1485, obj_t BgL_modez00_1486)
{ AN_OBJECT;
{ /* ./Llib/os.scm 362 */
{ /* ./Llib/os.scm 363 */
bool_t BgL_auxz00_2626;
{ /* ./Llib/os.scm 363 */
obj_t BgL_auxz00_2627;
if(
STRINGP(BgL_filez00_1485))
{ /* ./Llib/os.scm 363 */
BgL_auxz00_2627 = BgL_filez00_1485
; }  else 
{ /* ./Llib/os.scm 363 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3710z00zz__osz00, BGl_string3692z00zz__osz00, BgL_filez00_1485, BGl_string3667z00zz__osz00, 
BINT(((long)14232))); 
exit( -1 );} 
BgL_auxz00_2626 = 
BGl_chmodz00zz__osz00(BgL_auxz00_2627, BgL_modez00_1486); } 
return 
BBOOL(BgL_auxz00_2626);} } 
}



/* make-file-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t BgL_directoryz00_16, obj_t BgL_filez00_17)
{ AN_OBJECT;
{ /* ./Llib/os.scm 396 */
{ /* ./Llib/os.scm 397 */
obj_t BgL_symbol2271z00_1427;
BgL_symbol2271z00_1427 = BGl_symbol3711z00zz__osz00; 
{ /* ./Llib/os.scm 397 */

PUSH_TRACE(BgL_symbol2271z00_1427); BUNSPEC; 
{ /* ./Llib/os.scm 397 */
obj_t BgL_aux2270z00_1428;
{ /* ./Llib/os.scm 397 */
bool_t BgL_testz00_2636;
{ /* ./Llib/os.scm 397 */
long BgL_auxz00_2637;
{ /* ./Llib/os.scm 397 */
int BgL_auxz00_2638;
BgL_auxz00_2638 = 
STRING_LENGTH(BgL_directoryz00_16); 
BgL_auxz00_2637 = 
(long)(BgL_auxz00_2638); } 
BgL_testz00_2636 = 
(BgL_auxz00_2637==((long)0)); } 
if(BgL_testz00_2636)
{ /* ./Llib/os.scm 397 */
BgL_aux2270z00_1428 = BgL_filez00_17; }  else 
{ /* ./Llib/os.scm 399 */
int BgL_ldirz00_487;
BgL_ldirz00_487 = 
STRING_LENGTH(BgL_directoryz00_16); 
{ /* ./Llib/os.scm 399 */
int BgL_lfilez00_488;
BgL_lfilez00_488 = 
STRING_LENGTH(BgL_filez00_17); 
{ /* ./Llib/os.scm 400 */
long BgL_lenz00_489;
{ /* ./Llib/os.scm 401 */
long BgL_auxz00_2646;long BgL_auxz00_2644;
{ /* ./Llib/os.scm 401 */
long BgL_auxz00_2647;
BgL_auxz00_2647 = 
(long)(BgL_lfilez00_488); 
BgL_auxz00_2646 = 
(BgL_auxz00_2647+((long)1)); } 
BgL_auxz00_2644 = 
(long)(BgL_ldirz00_487); 
BgL_lenz00_489 = 
(BgL_auxz00_2644+BgL_auxz00_2646); } 
{ /* ./Llib/os.scm 401 */
obj_t BgL_strz00_490;
{ /* ./Llib/os.scm 402 */
obj_t BgL_list1282z00_493;
{ /* ./Llib/os.scm 402 */
obj_t BgL_auxz00_2651;
BgL_auxz00_2651 = 
BCHAR(FILE_SEPARATOR); 
BgL_list1282z00_493 = 
MAKE_PAIR(BgL_auxz00_2651, BNIL); } 
{ /* ./Llib/os.scm 402 */
obj_t BgL_res2160z00_1100;
{ /* ./Llib/os.scm 402 */
int BgL_kz00_1094;
BgL_kz00_1094 = 
(int)(BgL_lenz00_489); 
{ /* ./Llib/os.scm 402 */
obj_t BgL_arg1657z00_1097;
BgL_arg1657z00_1097 = 
CAR(BgL_list1282z00_493); 
{ /* ./Llib/os.scm 402 */
unsigned char BgL_auxz00_2656;
{ /* ./Llib/os.scm 402 */
obj_t BgL_auxz00_2657;
if(
CHARP(BgL_arg1657z00_1097))
{ /* ./Llib/os.scm 402 */
BgL_auxz00_2657 = BgL_arg1657z00_1097
; }  else 
{ /* ./Llib/os.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3711z00zz__osz00, BGl_string3689z00zz__osz00, BgL_arg1657z00_1097, BGl_string3667z00zz__osz00, 
BINT(((long)15399))); 
exit( -1 );} 
BgL_auxz00_2656 = 
(unsigned char)CCHAR(BgL_auxz00_2657); } 
BgL_res2160z00_1100 = 
make_string(BgL_kz00_1094, BgL_auxz00_2656); } } } 
BgL_strz00_490 = BgL_res2160z00_1100; } } 
{ /* ./Llib/os.scm 402 */

{ /* ./Llib/os.scm 403 */
int BgL_auxz00_2667;int BgL_auxz00_2665;
BgL_auxz00_2667 = 
(int)(((long)0)); 
BgL_auxz00_2665 = 
(int)(((long)0)); 
blit_string(BgL_directoryz00_16, BgL_auxz00_2665, BgL_strz00_490, BgL_auxz00_2667, BgL_ldirz00_487); } 
{ /* ./Llib/os.scm 404 */
long BgL_arg1278z00_492;
{ /* ./Llib/os.scm 404 */
long BgL_auxz00_2670;
BgL_auxz00_2670 = 
(long)(BgL_ldirz00_487); 
BgL_arg1278z00_492 = 
(((long)1)+BgL_auxz00_2670); } 
{ /* ./Llib/os.scm 404 */
int BgL_auxz00_2675;int BgL_auxz00_2673;
BgL_auxz00_2675 = 
(int)(BgL_arg1278z00_492); 
BgL_auxz00_2673 = 
(int)(((long)0)); 
blit_string(BgL_filez00_17, BgL_auxz00_2673, BgL_strz00_490, BgL_auxz00_2675, BgL_lfilez00_488); } } 
BgL_aux2270z00_1428 = BgL_strz00_490; } } } } } } 
POP_TRACE(); 
return BgL_aux2270z00_1428;} } } } 
}



/* _make-file-name */
obj_t BGl__makezd2filezd2namez00zz__osz00(obj_t BgL_envz00_1487, obj_t BgL_directoryz00_1488, obj_t BgL_filez00_1489)
{ AN_OBJECT;
{ /* ./Llib/os.scm 396 */
{ /* ./Llib/os.scm 397 */
obj_t BgL_auxz00_2685;obj_t BgL_auxz00_2679;
if(
STRINGP(BgL_filez00_1489))
{ /* ./Llib/os.scm 397 */
BgL_auxz00_2685 = BgL_filez00_1489
; }  else 
{ /* ./Llib/os.scm 397 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3712z00zz__osz00, BGl_string3692z00zz__osz00, BgL_filez00_1489, BGl_string3667z00zz__osz00, 
BINT(((long)15211))); 
exit( -1 );} 
if(
STRINGP(BgL_directoryz00_1488))
{ /* ./Llib/os.scm 397 */
BgL_auxz00_2679 = BgL_directoryz00_1488
; }  else 
{ /* ./Llib/os.scm 397 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3712z00zz__osz00, BGl_string3692z00zz__osz00, BgL_directoryz00_1488, BGl_string3667z00zz__osz00, 
BINT(((long)15211))); 
exit( -1 );} 
return 
BGl_makezd2filezd2namez00zz__osz00(BgL_auxz00_2679, BgL_auxz00_2685);} } 
}



/* make-file-path */
BGL_EXPORTED_DEF obj_t BGl_makezd2filezd2pathz00zz__osz00(obj_t BgL_directoryz00_18, obj_t BgL_filez00_19, obj_t BgL_objz00_20)
{ AN_OBJECT;
{ /* ./Llib/os.scm 413 */
{ /* ./Llib/os.scm 414 */
obj_t BgL_symbol2275z00_1429;
BgL_symbol2275z00_1429 = BGl_symbol3713z00zz__osz00; 
{ /* ./Llib/os.scm 414 */

PUSH_TRACE(BgL_symbol2275z00_1429); BUNSPEC; 
{ /* ./Llib/os.scm 414 */
obj_t BgL_aux2274z00_1430;
{ /* ./Llib/os.scm 414 */
bool_t BgL_test1295z00_497;
{ /* ./Llib/os.scm 414 */
bool_t BgL_testz00_2693;
{ /* ./Llib/os.scm 414 */
long BgL_auxz00_2694;
{ /* ./Llib/os.scm 414 */
int BgL_auxz00_2695;
BgL_auxz00_2695 = 
STRING_LENGTH(BgL_directoryz00_18); 
BgL_auxz00_2694 = 
(long)(BgL_auxz00_2695); } 
BgL_testz00_2693 = 
(BgL_auxz00_2694==((long)0)); } 
if(BgL_testz00_2693)
{ /* ./Llib/os.scm 414 */
BgL_test1295z00_497 = 
NULLP(BgL_objz00_20); }  else 
{ /* ./Llib/os.scm 414 */
BgL_test1295z00_497 = ((bool_t)0); } } 
if(BgL_test1295z00_497)
{ /* ./Llib/os.scm 414 */
BgL_aux2274z00_1430 = BgL_filez00_19; }  else 
{ /* ./Llib/os.scm 416 */
int BgL_ldirz00_498;
BgL_ldirz00_498 = 
STRING_LENGTH(BgL_directoryz00_18); 
{ /* ./Llib/os.scm 416 */
int BgL_lfilez00_499;
BgL_lfilez00_499 = 
STRING_LENGTH(BgL_filez00_19); 
{ /* ./Llib/os.scm 417 */
obj_t BgL_lenz00_500;
{ 
obj_t BgL_objz00_520;long BgL_lz00_521;
BgL_objz00_520 = BgL_objz00_20; 
{ /* ./Llib/os.scm 419 */
long BgL_auxz00_2747;long BgL_auxz00_2745;
{ /* ./Llib/os.scm 419 */
long BgL_auxz00_2748;
BgL_auxz00_2748 = 
(long)(BgL_lfilez00_499); 
BgL_auxz00_2747 = 
(((long)1)+BgL_auxz00_2748); } 
BgL_auxz00_2745 = 
(long)(BgL_ldirz00_498); 
BgL_lz00_521 = 
(BgL_auxz00_2745+BgL_auxz00_2747); } 
BgL_loopz00_522:
if(
NULLP(BgL_objz00_520))
{ /* ./Llib/os.scm 421 */
BgL_lenz00_500 = 
BINT(BgL_lz00_521); }  else 
{ /* ./Llib/os.scm 423 */
bool_t BgL_test1344z00_526;
{ /* ./Llib/os.scm 423 */
obj_t BgL_arg1370z00_536;
{ /* ./Llib/os.scm 423 */
obj_t BgL_pairz00_1124;
if(
PAIRP(BgL_objz00_520))
{ /* ./Llib/os.scm 423 */
BgL_pairz00_1124 = BgL_objz00_520; }  else 
{ /* ./Llib/os.scm 423 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_520, BGl_string3667z00zz__osz00, 
BINT(((long)16348))); 
exit( -1 );} 
BgL_arg1370z00_536 = 
CAR(BgL_pairz00_1124); } 
BgL_test1344z00_526 = 
STRINGP(BgL_arg1370z00_536); } 
if(BgL_test1344z00_526)
{ /* ./Llib/os.scm 423 */
{ /* ./Llib/os.scm 428 */
obj_t BgL_arg1346z00_527;long BgL_arg1347z00_528;
{ /* ./Llib/os.scm 428 */
obj_t BgL_pairz00_1126;
if(
PAIRP(BgL_objz00_520))
{ /* ./Llib/os.scm 428 */
BgL_pairz00_1126 = BgL_objz00_520; }  else 
{ /* ./Llib/os.scm 428 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_520, BGl_string3667z00zz__osz00, 
BINT(((long)16462))); 
exit( -1 );} 
BgL_arg1346z00_527 = 
CDR(BgL_pairz00_1126); } 
{ /* ./Llib/os.scm 428 */
long BgL_arg1354z00_530;
{ /* ./Llib/os.scm 429 */
int BgL_arg1357z00_531;
{ /* ./Llib/os.scm 429 */
obj_t BgL_arg1360z00_532;
{ /* ./Llib/os.scm 429 */
obj_t BgL_pairz00_1127;
if(
PAIRP(BgL_objz00_520))
{ /* ./Llib/os.scm 429 */
BgL_pairz00_1127 = BgL_objz00_520; }  else 
{ /* ./Llib/os.scm 429 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_520, BGl_string3667z00zz__osz00, 
BINT(((long)16511))); 
exit( -1 );} 
BgL_arg1360z00_532 = 
CAR(BgL_pairz00_1127); } 
{ /* ./Llib/os.scm 429 */
obj_t BgL_stringz00_1128;
if(
STRINGP(BgL_arg1360z00_532))
{ /* ./Llib/os.scm 429 */
BgL_stringz00_1128 = BgL_arg1360z00_532; }  else 
{ /* ./Llib/os.scm 429 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3692z00zz__osz00, BgL_arg1360z00_532, BGl_string3667z00zz__osz00, 
BINT(((long)16489))); 
exit( -1 );} 
BgL_arg1357z00_531 = 
STRING_LENGTH(BgL_stringz00_1128); } } 
{ /* ./Llib/os.scm 429 */
long BgL_auxz00_2732;
BgL_auxz00_2732 = 
(long)(BgL_arg1357z00_531); 
BgL_arg1354z00_530 = 
(BgL_auxz00_2732+BgL_lz00_521); } } 
BgL_arg1347z00_528 = 
(((long)1)+BgL_arg1354z00_530); } 
{ 
long BgL_lz00_2737;obj_t BgL_objz00_2736;
BgL_objz00_2736 = BgL_arg1346z00_527; 
BgL_lz00_2737 = BgL_arg1347z00_528; 
BgL_lz00_521 = BgL_lz00_2737; 
BgL_objz00_520 = BgL_objz00_2736; 
goto BgL_loopz00_522;} } }  else 
{ /* ./Llib/os.scm 423 */
{ /* ./Llib/os.scm 424 */
obj_t BgL_arg1364z00_533;obj_t BgL_arg1366z00_535;
BgL_arg1364z00_533 = BGl_symbol3713z00zz__osz00; 
{ /* ./Llib/os.scm 426 */
obj_t BgL_pairz00_1133;
if(
PAIRP(BgL_objz00_520))
{ /* ./Llib/os.scm 426 */
BgL_pairz00_1133 = BgL_objz00_520; }  else 
{ /* ./Llib/os.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_520, BGl_string3667z00zz__osz00, 
BINT(((long)16429))); 
exit( -1 );} 
BgL_arg1366z00_535 = 
CAR(BgL_pairz00_1133); } 
BgL_lenz00_500 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_arg1364z00_533, BGl_string3678z00zz__osz00, BgL_arg1366z00_535); } } } } 
{ /* ./Llib/os.scm 418 */
obj_t BgL_strz00_501;
{ /* ./Llib/os.scm 431 */
obj_t BgL_list1333z00_519;
{ /* ./Llib/os.scm 431 */
obj_t BgL_auxz00_2752;
BgL_auxz00_2752 = 
BCHAR(FILE_SEPARATOR); 
BgL_list1333z00_519 = 
MAKE_PAIR(BgL_auxz00_2752, BNIL); } 
{ /* ./Llib/os.scm 431 */
obj_t BgL_res2161z00_1140;
{ /* ./Llib/os.scm 431 */
int BgL_kz00_1134;
{ /* ./Llib/os.scm 431 */
obj_t BgL_auxz00_2755;
if(
INTEGERP(BgL_lenz00_500))
{ /* ./Llib/os.scm 431 */
BgL_auxz00_2755 = BgL_lenz00_500
; }  else 
{ /* ./Llib/os.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3670z00zz__osz00, BgL_lenz00_500, BGl_string3667z00zz__osz00, 
BINT(((long)16547))); 
exit( -1 );} 
BgL_kz00_1134 = 
CINT(BgL_auxz00_2755); } 
{ /* ./Llib/os.scm 431 */
obj_t BgL_arg1657z00_1137;
BgL_arg1657z00_1137 = 
CAR(BgL_list1333z00_519); 
{ /* ./Llib/os.scm 431 */
unsigned char BgL_auxz00_2763;
{ /* ./Llib/os.scm 431 */
obj_t BgL_auxz00_2764;
if(
CHARP(BgL_arg1657z00_1137))
{ /* ./Llib/os.scm 431 */
BgL_auxz00_2764 = BgL_arg1657z00_1137
; }  else 
{ /* ./Llib/os.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3689z00zz__osz00, BgL_arg1657z00_1137, BGl_string3667z00zz__osz00, 
BINT(((long)16547))); 
exit( -1 );} 
BgL_auxz00_2763 = 
(unsigned char)CCHAR(BgL_auxz00_2764); } 
BgL_res2161z00_1140 = 
make_string(BgL_kz00_1134, BgL_auxz00_2763); } } } 
BgL_strz00_501 = BgL_res2161z00_1140; } } 
{ /* ./Llib/os.scm 431 */

{ /* ./Llib/os.scm 432 */
int BgL_auxz00_2774;int BgL_auxz00_2772;
BgL_auxz00_2774 = 
(int)(((long)0)); 
BgL_auxz00_2772 = 
(int)(((long)0)); 
blit_string(BgL_directoryz00_18, BgL_auxz00_2772, BgL_strz00_501, BgL_auxz00_2774, BgL_ldirz00_498); } 
{ /* ./Llib/os.scm 433 */
long BgL_arg1299z00_503;
{ /* ./Llib/os.scm 433 */
long BgL_auxz00_2777;
BgL_auxz00_2777 = 
(long)(BgL_ldirz00_498); 
BgL_arg1299z00_503 = 
(((long)1)+BgL_auxz00_2777); } 
{ /* ./Llib/os.scm 433 */
int BgL_auxz00_2782;int BgL_auxz00_2780;
BgL_auxz00_2782 = 
(int)(BgL_arg1299z00_503); 
BgL_auxz00_2780 = 
(int)(((long)0)); 
blit_string(BgL_filez00_19, BgL_auxz00_2780, BgL_strz00_501, BgL_auxz00_2782, BgL_lfilez00_499); } } 
{ 
obj_t BgL_objz00_504;long BgL_wz00_505;
BgL_objz00_504 = BgL_objz00_20; 
{ /* ./Llib/os.scm 435 */
long BgL_auxz00_2827;
{ /* ./Llib/os.scm 435 */
long BgL_auxz00_2830;long BgL_auxz00_2828;
BgL_auxz00_2830 = 
(long)(BgL_lfilez00_499); 
BgL_auxz00_2828 = 
(long)(BgL_ldirz00_498); 
BgL_auxz00_2827 = 
(BgL_auxz00_2828+BgL_auxz00_2830); } 
BgL_wz00_505 = 
(((long)1)+BgL_auxz00_2827); } 
BgL_loopz00_506:
if(
NULLP(BgL_objz00_504))
{ /* ./Llib/os.scm 436 */
BgL_aux2274z00_1430 = BgL_strz00_501; }  else 
{ /* ./Llib/os.scm 438 */
int BgL_loz00_511;
{ /* ./Llib/os.scm 438 */
obj_t BgL_arg1328z00_518;
{ /* ./Llib/os.scm 438 */
obj_t BgL_pairz00_1158;
if(
PAIRP(BgL_objz00_504))
{ /* ./Llib/os.scm 438 */
BgL_pairz00_1158 = BgL_objz00_504; }  else 
{ /* ./Llib/os.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_504, BGl_string3667z00zz__osz00, 
BINT(((long)16810))); 
exit( -1 );} 
BgL_arg1328z00_518 = 
CAR(BgL_pairz00_1158); } 
{ /* ./Llib/os.scm 438 */
obj_t BgL_stringz00_1159;
if(
STRINGP(BgL_arg1328z00_518))
{ /* ./Llib/os.scm 438 */
BgL_stringz00_1159 = BgL_arg1328z00_518; }  else 
{ /* ./Llib/os.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3692z00zz__osz00, BgL_arg1328z00_518, BGl_string3667z00zz__osz00, 
BINT(((long)16788))); 
exit( -1 );} 
BgL_loz00_511 = 
STRING_LENGTH(BgL_stringz00_1159); } } 
{ /* ./Llib/os.scm 439 */
obj_t BgL_arg1312z00_512;long BgL_arg1314z00_514;
{ /* ./Llib/os.scm 439 */
obj_t BgL_pairz00_1160;
if(
PAIRP(BgL_objz00_504))
{ /* ./Llib/os.scm 439 */
BgL_pairz00_1160 = BgL_objz00_504; }  else 
{ /* ./Llib/os.scm 439 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_504, BGl_string3667z00zz__osz00, 
BINT(((long)16846))); 
exit( -1 );} 
BgL_arg1312z00_512 = 
CAR(BgL_pairz00_1160); } 
BgL_arg1314z00_514 = 
(((long)1)+BgL_wz00_505); 
{ /* ./Llib/os.scm 439 */
obj_t BgL_s1z00_1163;int BgL_o1z00_1164;int BgL_o2z00_1166;
if(
STRINGP(BgL_arg1312z00_512))
{ /* ./Llib/os.scm 439 */
BgL_s1z00_1163 = BgL_arg1312z00_512; }  else 
{ /* ./Llib/os.scm 439 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3692z00zz__osz00, BgL_arg1312z00_512, BGl_string3667z00zz__osz00, 
BINT(((long)16847))); 
exit( -1 );} 
BgL_o1z00_1164 = 
(int)(((long)0)); 
BgL_o2z00_1166 = 
(int)(BgL_arg1314z00_514); 
blit_string(BgL_s1z00_1163, BgL_o1z00_1164, BgL_strz00_501, BgL_o2z00_1166, BgL_loz00_511); } } 
{ /* ./Llib/os.scm 440 */
obj_t BgL_arg1319z00_515;long BgL_arg1320z00_516;
{ /* ./Llib/os.scm 440 */
obj_t BgL_pairz00_1168;
if(
PAIRP(BgL_objz00_504))
{ /* ./Llib/os.scm 440 */
BgL_pairz00_1168 = BgL_objz00_504; }  else 
{ /* ./Llib/os.scm 440 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__osz00, BGl_string3682z00zz__osz00, BgL_objz00_504, BGl_string3667z00zz__osz00, 
BINT(((long)16888))); 
exit( -1 );} 
BgL_arg1319z00_515 = 
CDR(BgL_pairz00_1168); } 
{ /* ./Llib/os.scm 440 */
long BgL_auxz00_2820;
{ /* ./Llib/os.scm 440 */
long BgL_auxz00_2821;
BgL_auxz00_2821 = 
(long)(BgL_loz00_511); 
BgL_auxz00_2820 = 
(BgL_auxz00_2821+((long)1)); } 
BgL_arg1320z00_516 = 
(BgL_wz00_505+BgL_auxz00_2820); } 
{ 
long BgL_wz00_2826;obj_t BgL_objz00_2825;
BgL_objz00_2825 = BgL_arg1319z00_515; 
BgL_wz00_2826 = BgL_arg1320z00_516; 
BgL_wz00_505 = BgL_wz00_2826; 
BgL_objz00_504 = BgL_objz00_2825; 
goto BgL_loopz00_506;} } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2274z00_1430;} } } } 
}



/* _make-file-path2361 */
obj_t BGl__makezd2filezd2path2361z00zz__osz00(obj_t BgL_envz00_1490, obj_t BgL_directoryz00_1491, obj_t BgL_filez00_1492, obj_t BgL_objz00_1493)
{ AN_OBJECT;
{ /* ./Llib/os.scm 413 */
{ /* ./Llib/os.scm 414 */
obj_t BgL_auxz00_2841;obj_t BgL_auxz00_2835;
if(
STRINGP(BgL_filez00_1492))
{ /* ./Llib/os.scm 414 */
BgL_auxz00_2841 = BgL_filez00_1492
; }  else 
{ /* ./Llib/os.scm 414 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__osz00, BGl_string3692z00zz__osz00, BgL_filez00_1492, BGl_string3667z00zz__osz00, 
BINT(((long)16059))); 
exit( -1 );} 
if(
STRINGP(BgL_directoryz00_1491))
{ /* ./Llib/os.scm 414 */
BgL_auxz00_2835 = BgL_directoryz00_1491
; }  else 
{ /* ./Llib/os.scm 414 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__osz00, BGl_string3692z00zz__osz00, BgL_directoryz00_1491, BGl_string3667z00zz__osz00, 
BINT(((long)16059))); 
exit( -1 );} 
return 
BGl_makezd2filezd2pathz00zz__osz00(BgL_auxz00_2835, BgL_auxz00_2841, BgL_objz00_1493);} } 
}



/* find-file/path */
BGL_EXPORTED_DEF obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t BgL_filezd2namezd2_21, obj_t BgL_pathz00_22)
{ AN_OBJECT;
{ /* ./Llib/os.scm 445 */
{ /* ./Llib/os.scm 447 */
obj_t BgL_symbol2279z00_1431;
BgL_symbol2279z00_1431 = BGl_symbol3715z00zz__osz00; 
{ /* ./Llib/os.scm 447 */

PUSH_TRACE(BgL_symbol2279z00_1431); BUNSPEC; 
{ /* ./Llib/os.scm 447 */
obj_t BgL_aux2278z00_1432;
{ /* ./Llib/os.scm 447 */
bool_t BgL_testz00_2849;
{ /* ./Llib/os.scm 447 */
long BgL_auxz00_2850;
{ /* ./Llib/os.scm 447 */
int BgL_auxz00_2851;
BgL_auxz00_2851 = 
STRING_LENGTH(BgL_filezd2namezd2_21); 
BgL_auxz00_2850 = 
(long)(BgL_auxz00_2851); } 
BgL_testz00_2849 = 
(BgL_auxz00_2850==((long)0)); } 
if(BgL_testz00_2849)
{ /* ./Llib/os.scm 447 */
BgL_aux2278z00_1432 = BFALSE; }  else 
{ /* ./Llib/os.scm 449 */
bool_t BgL_test1385z00_541;
{ /* ./Llib/os.scm 449 */
unsigned char BgL_arg1402z00_550;
{ /* ./Llib/os.scm 449 */
unsigned char BgL_res2162z00_1184;
{ /* ./Llib/os.scm 449 */
int BgL_kz00_1177;
BgL_kz00_1177 = 
(int)(((long)0)); 
{ /* ./Llib/os.scm 449 */
bool_t BgL_testz00_2856;
{ /* ./Llib/os.scm 449 */
int BgL_auxz00_2857;
BgL_auxz00_2857 = 
STRING_LENGTH(BgL_filezd2namezd2_21); 
BgL_testz00_2856 = 
BOUND_CHECK(BgL_kz00_1177, BgL_auxz00_2857); } 
if(BgL_testz00_2856)
{ /* ./Llib/os.scm 449 */
BgL_res2162z00_1184 = 
STRING_REF(BgL_filezd2namezd2_21, BgL_kz00_1177); }  else 
{ /* ./Llib/os.scm 449 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_1177), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 449 */
obj_t BgL_auxz00_2863;
{ /* ./Llib/os.scm 449 */
obj_t BgL_aux3330z00_1640;
BgL_aux3330z00_1640 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)17256))); 
if(
CHARP(BgL_aux3330z00_1640))
{ /* ./Llib/os.scm 449 */
BgL_auxz00_2863 = BgL_aux3330z00_1640
; }  else 
{ /* ./Llib/os.scm 449 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3715z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux3330z00_1640, BGl_string3667z00zz__osz00, 
BINT(((long)17256))); 
exit( -1 );} } 
BgL_res2162z00_1184 = 
(unsigned char)CCHAR(BgL_auxz00_2863); } } } } 
BgL_arg1402z00_550 = BgL_res2162z00_1184; } 
{ /* ./Llib/os.scm 449 */
unsigned char BgL_auxz00_2872;
BgL_auxz00_2872 = 
(unsigned char)(FILE_SEPARATOR); 
BgL_test1385z00_541 = 
(BgL_arg1402z00_550==BgL_auxz00_2872); } } 
if(BgL_test1385z00_541)
{ /* ./Llib/os.scm 449 */
{ /* ./Llib/os.scm 450 */
bool_t BgL_testz00_2876;
{ /* ./Llib/os.scm 450 */
char * BgL_auxz00_2877;
BgL_auxz00_2877 = 
BSTRING_TO_STRING(BgL_filezd2namezd2_21); 
BgL_testz00_2876 = 
fexists(BgL_auxz00_2877); } 
if(BgL_testz00_2876)
{ /* ./Llib/os.scm 450 */
BgL_aux2278z00_1432 = BgL_filezd2namezd2_21; }  else 
{ /* ./Llib/os.scm 450 */
BgL_aux2278z00_1432 = BFALSE; } } }  else 
{ /* ./Llib/os.scm 449 */
{ 
obj_t BgL_pathz00_543;
BgL_pathz00_543 = BgL_pathz00_22; 
BgL_loopz00_544:
if(
NULLP(BgL_pathz00_543))
{ /* ./Llib/os.scm 455 */
BgL_aux2278z00_1432 = BFALSE; }  else 
{ /* ./Llib/os.scm 457 */
obj_t BgL_fnamez00_546;
{ /* ./Llib/os.scm 457 */
obj_t BgL_arg1397z00_549;
{ /* ./Llib/os.scm 457 */
obj_t BgL_pairz00_1189;
if(
PAIRP(BgL_pathz00_543))
{ /* ./Llib/os.scm 457 */
BgL_pairz00_1189 = BgL_pathz00_543; }  else 
{ /* ./Llib/os.scm 457 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3715z00zz__osz00, BGl_string3682z00zz__osz00, BgL_pathz00_543, BGl_string3667z00zz__osz00, 
BINT(((long)17495))); 
exit( -1 );} 
BgL_arg1397z00_549 = 
CAR(BgL_pairz00_1189); } 
{ /* ./Llib/os.scm 457 */
obj_t BgL_auxz00_2888;
if(
STRINGP(BgL_arg1397z00_549))
{ /* ./Llib/os.scm 457 */
BgL_auxz00_2888 = BgL_arg1397z00_549
; }  else 
{ /* ./Llib/os.scm 457 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3715z00zz__osz00, BGl_string3692z00zz__osz00, BgL_arg1397z00_549, BGl_string3667z00zz__osz00, 
BINT(((long)17496))); 
exit( -1 );} 
BgL_fnamez00_546 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_auxz00_2888, BgL_filezd2namezd2_21); } } 
{ /* ./Llib/os.scm 458 */
bool_t BgL_testz00_2895;
{ /* ./Llib/os.scm 458 */
char * BgL_auxz00_2896;
BgL_auxz00_2896 = 
BSTRING_TO_STRING(BgL_fnamez00_546); 
BgL_testz00_2895 = 
fexists(BgL_auxz00_2896); } 
if(BgL_testz00_2895)
{ /* ./Llib/os.scm 458 */
BgL_aux2278z00_1432 = BgL_fnamez00_546; }  else 
{ /* ./Llib/os.scm 460 */
obj_t BgL_arg1392z00_548;
{ /* ./Llib/os.scm 460 */
obj_t BgL_pairz00_1191;
if(
PAIRP(BgL_pathz00_543))
{ /* ./Llib/os.scm 460 */
BgL_pairz00_1191 = BgL_pathz00_543; }  else 
{ /* ./Llib/os.scm 460 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3715z00zz__osz00, BGl_string3682z00zz__osz00, BgL_pathz00_543, BGl_string3667z00zz__osz00, 
BINT(((long)17573))); 
exit( -1 );} 
BgL_arg1392z00_548 = 
CDR(BgL_pairz00_1191); } 
{ 
obj_t BgL_pathz00_2905;
BgL_pathz00_2905 = BgL_arg1392z00_548; 
BgL_pathz00_543 = BgL_pathz00_2905; 
goto BgL_loopz00_544;} } } } } } } } 
POP_TRACE(); 
return BgL_aux2278z00_1432;} } } } 
}



/* _find-file/path */
obj_t BGl__findzd2filezf2pathz20zz__osz00(obj_t BgL_envz00_1494, obj_t BgL_filezd2namezd2_1495, obj_t BgL_pathz00_1496)
{ AN_OBJECT;
{ /* ./Llib/os.scm 445 */
{ /* ./Llib/os.scm 447 */
obj_t BgL_auxz00_2907;
if(
STRINGP(BgL_filezd2namezd2_1495))
{ /* ./Llib/os.scm 447 */
BgL_auxz00_2907 = BgL_filezd2namezd2_1495
; }  else 
{ /* ./Llib/os.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3716z00zz__osz00, BGl_string3692z00zz__osz00, BgL_filezd2namezd2_1495, BGl_string3667z00zz__osz00, 
BINT(((long)17196))); 
exit( -1 );} 
return 
BGl_findzd2filezf2pathz20zz__osz00(BgL_auxz00_2907, BgL_pathz00_1496);} } 
}



/* make-static-library-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t BgL_libnamez00_23)
{ AN_OBJECT;
{ /* ./Llib/os.scm 467 */
{ /* ./Llib/os.scm 468 */
obj_t BgL_symbol2283z00_1433;
BgL_symbol2283z00_1433 = BGl_symbol3717z00zz__osz00; 
{ /* ./Llib/os.scm 468 */

PUSH_TRACE(BgL_symbol2283z00_1433); BUNSPEC; 
{ /* ./Llib/os.scm 468 */
obj_t BgL_aux2282z00_1434;
{ /* ./Llib/os.scm 468 */
obj_t BgL_auxz00_2915;
BgL_auxz00_2915 = 
string_to_bstring(STATIC_LIB_SUFFIX); 
BgL_aux2282z00_1434 = 
string_append_3(BgL_libnamez00_23, BGl_string3651z00zz__osz00, BgL_auxz00_2915); } 
POP_TRACE(); 
return BgL_aux2282z00_1434;} } } } 
}



/* _make-static-library-name */
obj_t BGl__makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t BgL_envz00_1497, obj_t BgL_libnamez00_1498)
{ AN_OBJECT;
{ /* ./Llib/os.scm 467 */
{ /* ./Llib/os.scm 468 */
obj_t BgL_auxz00_2919;
if(
STRINGP(BgL_libnamez00_1498))
{ /* ./Llib/os.scm 468 */
BgL_auxz00_2919 = BgL_libnamez00_1498
; }  else 
{ /* ./Llib/os.scm 468 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3718z00zz__osz00, BGl_string3692z00zz__osz00, BgL_libnamez00_1498, BGl_string3667z00zz__osz00, 
BINT(((long)18010))); 
exit( -1 );} 
return 
BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(BgL_auxz00_2919);} } 
}



/* make-shared-library-name */
BGL_EXPORTED_DEF obj_t BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t BgL_libnamez00_24)
{ AN_OBJECT;
{ /* ./Llib/os.scm 475 */
{ /* ./Llib/os.scm 476 */
obj_t BgL_symbol2287z00_1435;
BgL_symbol2287z00_1435 = BGl_symbol3719z00zz__osz00; 
{ /* ./Llib/os.scm 476 */

PUSH_TRACE(BgL_symbol2287z00_1435); BUNSPEC; 
{ /* ./Llib/os.scm 476 */
obj_t BgL_aux2286z00_1436;
{ /* ./Llib/os.scm 476 */
obj_t BgL_auxz00_2927;
BgL_auxz00_2927 = 
string_to_bstring(SHARED_LIB_SUFFIX); 
BgL_aux2286z00_1436 = 
string_append_3(BgL_libnamez00_24, BGl_string3651z00zz__osz00, BgL_auxz00_2927); } 
POP_TRACE(); 
return BgL_aux2286z00_1436;} } } } 
}



/* _make-shared-library-name */
obj_t BGl__makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t BgL_envz00_1499, obj_t BgL_libnamez00_1500)
{ AN_OBJECT;
{ /* ./Llib/os.scm 475 */
{ /* ./Llib/os.scm 476 */
obj_t BgL_auxz00_2931;
if(
STRINGP(BgL_libnamez00_1500))
{ /* ./Llib/os.scm 476 */
BgL_auxz00_2931 = BgL_libnamez00_1500
; }  else 
{ /* ./Llib/os.scm 476 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3720z00zz__osz00, BGl_string3692z00zz__osz00, BgL_libnamez00_1500, BGl_string3667z00zz__osz00, 
BINT(((long)18495))); 
exit( -1 );} 
return 
BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(BgL_auxz00_2931);} } 
}



/* sleep */
BGL_EXPORTED_DEF obj_t BGl_sleepz00zz__osz00(long BgL_msz00_25)
{ AN_OBJECT;
{ /* ./Llib/os.scm 481 */
{ /* ./Llib/os.scm 482 */
obj_t BgL_symbol2291z00_1692;
BgL_symbol2291z00_1692 = BGl_symbol3721z00zz__osz00; 
{ /* ./Llib/os.scm 482 */

PUSH_TRACE(BgL_symbol2291z00_1692); BUNSPEC; 
{ /* ./Llib/os.scm 482 */
obj_t BgL_aux2290z00_1693;
bgl_sleep(BgL_msz00_25); 
BgL_aux2290z00_1693 = 
BINT(BgL_msz00_25); 
POP_TRACE(); 
return BgL_aux2290z00_1693;} } } } 
}



/* _sleep2366 */
obj_t BGl__sleep2366z00zz__osz00(obj_t BgL_envz00_1501, obj_t BgL_msz00_1502)
{ AN_OBJECT;
{ /* ./Llib/os.scm 481 */
{ /* ./Llib/os.scm 482 */
long BgL_msz00_1694;
{ /* ./Llib/os.scm 482 */
obj_t BgL_auxz00_2942;
if(
INTEGERP(BgL_msz00_1502))
{ /* ./Llib/os.scm 482 */
BgL_auxz00_2942 = BgL_msz00_1502
; }  else 
{ /* ./Llib/os.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3722z00zz__osz00, BGl_string3723z00zz__osz00, BgL_msz00_1502, BGl_string3667z00zz__osz00, 
BINT(((long)18806))); 
exit( -1 );} 
BgL_msz00_1694 = 
(long)CINT(BgL_auxz00_2942); } 
{ /* ./Llib/os.scm 482 */
obj_t BgL_symbol2291z00_1695;
BgL_symbol2291z00_1695 = BGl_symbol3721z00zz__osz00; 
{ /* ./Llib/os.scm 482 */

PUSH_TRACE(BgL_symbol2291z00_1695); BUNSPEC; 
{ /* ./Llib/os.scm 482 */
obj_t BgL_aux2290z00_1696;
bgl_sleep(BgL_msz00_1694); 
BgL_aux2290z00_1696 = 
BINT(BgL_msz00_1694); 
POP_TRACE(); 
return BgL_aux2290z00_1696;} } } } } 
}



/* dynamic-load */
BGL_EXPORTED_DEF obj_t BGl_dynamiczd2loadzd2zz__osz00(obj_t BgL_libz00_26, obj_t BgL_initsz00_27)
{ AN_OBJECT;
{ /* ./Llib/os.scm 502 */
{ /* ./Llib/os.scm 507 */
obj_t BgL_symbol2295z00_1439;
BgL_symbol2295z00_1439 = BGl_symbol3724z00zz__osz00; 
{ /* ./Llib/os.scm 507 */

PUSH_TRACE(BgL_symbol2295z00_1439); BUNSPEC; 
{ /* ./Llib/os.scm 507 */
obj_t BgL_aux2294z00_1440;
{ /* ./Llib/os.scm 508 */
obj_t BgL_initz00_554;obj_t BgL_flibz00_555;
{ /* ./Llib/os.scm 508 */
bool_t BgL_test1430z00_563;
{ /* ./Llib/os.scm 508 */
bool_t BgL_test1432z00_564;
BgL_test1432z00_564 = 
PAIRP(BgL_initsz00_27); 
if(BgL_test1432z00_564)
{ /* ./Llib/os.scm 508 */
obj_t BgL_arg1434z00_565;
{ /* ./Llib/os.scm 508 */
obj_t BgL_pairz00_1193;
if(BgL_test1432z00_564)
{ /* ./Llib/os.scm 508 */
BgL_pairz00_1193 = BgL_initsz00_27; }  else 
{ /* ./Llib/os.scm 508 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3724z00zz__osz00, BGl_string3682z00zz__osz00, BgL_initsz00_27, BGl_string3667z00zz__osz00, 
BINT(((long)20113))); 
exit( -1 );} 
BgL_arg1434z00_565 = 
CAR(BgL_pairz00_1193); } 
BgL_test1430z00_563 = 
STRINGP(BgL_arg1434z00_565); }  else 
{ /* ./Llib/os.scm 508 */
BgL_test1430z00_563 = ((bool_t)0); } } 
if(BgL_test1430z00_563)
{ /* ./Llib/os.scm 509 */
obj_t BgL_pairz00_1195;
if(
PAIRP(BgL_initsz00_27))
{ /* ./Llib/os.scm 509 */
BgL_pairz00_1195 = BgL_initsz00_27; }  else 
{ /* ./Llib/os.scm 509 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3724z00zz__osz00, BGl_string3682z00zz__osz00, BgL_initsz00_27, BGl_string3667z00zz__osz00, 
BINT(((long)20132))); 
exit( -1 );} 
BgL_initz00_554 = 
CAR(BgL_pairz00_1195); }  else 
{ /* ./Llib/os.scm 508 */
BgL_initz00_554 = 
string_to_bstring(BGL_DYNAMIC_LOAD_INIT); } } 
BgL_flibz00_555 = 
BGl_findzd2filezf2pathz20zz__osz00(BgL_libz00_26, BGl_za2dynamiczd2loadzd2pathza2z00zz__osz00); 
{ /* ./Llib/os.scm 518 */
bool_t BgL_test1413z00_556;
BgL_test1413z00_556 = 
STRINGP(BgL_flibz00_555); 
if(BgL_test1413z00_556)
{ /* ./Llib/os.scm 521 */
int BgL_aux1007z00_558;
{ /* ./Llib/os.scm 520 */
char * BgL_auxz00_2980;char * BgL_auxz00_2973;
{ /* ./Llib/os.scm 520 */
obj_t BgL_auxz00_2981;
if(
STRINGP(BgL_initz00_554))
{ /* ./Llib/os.scm 520 */
BgL_auxz00_2981 = BgL_initz00_554
; }  else 
{ /* ./Llib/os.scm 520 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3724z00zz__osz00, BGl_string3678z00zz__osz00, BgL_initz00_554, BGl_string3667z00zz__osz00, 
BINT(((long)20426))); 
exit( -1 );} 
BgL_auxz00_2980 = 
BSTRING_TO_STRING(BgL_auxz00_2981); } 
{ /* ./Llib/os.scm 520 */
obj_t BgL_auxz00_2974;
if(BgL_test1413z00_556)
{ /* ./Llib/os.scm 520 */
BgL_auxz00_2974 = BgL_flibz00_555
; }  else 
{ /* ./Llib/os.scm 520 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3724z00zz__osz00, BGl_string3678z00zz__osz00, BgL_flibz00_555, BGl_string3667z00zz__osz00, 
BINT(((long)20421))); 
exit( -1 );} 
BgL_auxz00_2973 = 
BSTRING_TO_STRING(BgL_auxz00_2974); } 
BgL_aux1007z00_558 = 
bgl_dload(BgL_auxz00_2973, BgL_auxz00_2980); } 
switch( 
(long)(BgL_aux1007z00_558)) { case ((long)0) : 

BgL_aux2294z00_1440 = BgL_flibz00_555; break;case ((long)1) : 

{ /* ./Llib/os.scm 524 */
char * BgL_arg1416z00_560;
BgL_arg1416z00_560 = 
bgl_dload_error(); 
{ /* ./Llib/os.scm 524 */
obj_t BgL_arg1441z00_1200;
{ /* ./Llib/os.scm 524 */
bool_t BgL_test1446z00_1203;
BgL_test1446z00_1203 = 
STRINGP(BgL_flibz00_555); 
if(BgL_test1446z00_1203)
{ /* ./Llib/os.scm 524 */
obj_t BgL_auxz00_2992;
if(BgL_test1446z00_1203)
{ /* ./Llib/os.scm 524 */
BgL_auxz00_2992 = BgL_flibz00_555
; }  else 
{ /* ./Llib/os.scm 524 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3724z00zz__osz00, BGl_string3692z00zz__osz00, BgL_flibz00_555, BGl_string3667z00zz__osz00, 
BINT(((long)20471))); 
exit( -1 );} 
BgL_arg1441z00_1200 = 
string_append(BGl_string3725z00zz__osz00, BgL_auxz00_2992); }  else 
{ /* ./Llib/os.scm 524 */
BgL_arg1441z00_1200 = BGl_string3726z00zz__osz00; } } 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_arg1441z00_1200, 
string_to_bstring(BgL_arg1416z00_560), BgL_flibz00_555, "./Llib/os.scm", ((long)19956)); } 
BgL_aux2294z00_1440 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)20471))); } break;case ((long)2) : 

{ /* ./Llib/os.scm 526 */
char * BgL_arg1421z00_562;
BgL_arg1421z00_562 = 
bgl_dload_error(); 
BGl_errorzf2czd2locationz20zz__errorz00(
string_append(BGl_string3725z00zz__osz00, BGl_string3727z00zz__osz00), BgL_initz00_554, 
string_to_bstring(BgL_arg1421z00_562), "./Llib/os.scm", ((long)19956)); 
BgL_aux2294z00_1440 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)20521))); } break;case ((long)3) : 

BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3726z00zz__osz00, BGl_string3728z00zz__osz00, BgL_flibz00_555, "./Llib/os.scm", ((long)19956)); 
BgL_aux2294z00_1440 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)20591))); break;
default: 
BgL_aux2294z00_1440 = BUNSPEC; } }  else 
{ /* ./Llib/os.scm 518 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3726z00zz__osz00, BGl_string3729z00zz__osz00, BgL_libz00_26, "./Llib/os.scm", ((long)19956)); 
BgL_aux2294z00_1440 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)20367))); } } } 
POP_TRACE(); 
return BgL_aux2294z00_1440;} } } } 
}



/* _dynamic-load */
obj_t BGl__dynamiczd2loadzd2zz__osz00(obj_t BgL_envz00_1503, obj_t BgL_libz00_1504, obj_t BgL_initsz00_1505)
{ AN_OBJECT;
{ /* ./Llib/os.scm 502 */
{ /* ./Llib/os.scm 507 */
obj_t BgL_auxz00_3017;
if(
STRINGP(BgL_libz00_1504))
{ /* ./Llib/os.scm 507 */
BgL_auxz00_3017 = BgL_libz00_1504
; }  else 
{ /* ./Llib/os.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3730z00zz__osz00, BGl_string3692z00zz__osz00, BgL_libz00_1504, BGl_string3667z00zz__osz00, 
BINT(((long)20055))); 
exit( -1 );} 
return 
BGl_dynamiczd2loadzd2zz__osz00(BgL_auxz00_3017, BgL_initsz00_1505);} } 
}



/* unix-path->list */
BGL_EXPORTED_DEF obj_t BGl_unixzd2pathzd2ze3listze3zz__osz00(obj_t BgL_strz00_28)
{ AN_OBJECT;
{ /* ./Llib/os.scm 534 */
{ /* ./Llib/os.scm 535 */
obj_t BgL_symbol2299z00_1441;
BgL_symbol2299z00_1441 = BGl_symbol3731z00zz__osz00; 
{ /* ./Llib/os.scm 535 */

PUSH_TRACE(BgL_symbol2299z00_1441); BUNSPEC; 
{ /* ./Llib/os.scm 535 */
obj_t BgL_aux2298z00_1442;
{ /* ./Llib/os.scm 535 */
int BgL_stopz00_575;
BgL_stopz00_575 = 
STRING_LENGTH(BgL_strz00_28); 
{ 
long BgL_markz00_576;long BgL_rz00_577;obj_t BgL_resz00_578;
BgL_markz00_576 = ((long)0); 
BgL_rz00_577 = ((long)0); 
BgL_resz00_578 = BNIL; 
BgL_loopz00_579:
{ /* ./Llib/os.scm 540 */
bool_t BgL_testz00_3026;
{ /* ./Llib/os.scm 540 */
long BgL_auxz00_3027;
BgL_auxz00_3027 = 
(long)(BgL_stopz00_575); 
BgL_testz00_3026 = 
(BgL_auxz00_3027==BgL_rz00_577); } 
if(BgL_testz00_3026)
{ /* ./Llib/os.scm 540 */
{ /* ./Llib/os.scm 541 */
obj_t BgL_resz00_581;
if(
(BgL_markz00_576<BgL_rz00_577))
{ /* ./Llib/os.scm 542 */
obj_t BgL_arg1455z00_583;
{ /* ./Llib/os.scm 542 */
obj_t BgL_res2163z00_1282;
{ /* ./Llib/os.scm 542 */
int BgL_startz00_1255;int BgL_endz00_1256;
BgL_startz00_1255 = 
(int)(BgL_markz00_576); 
BgL_endz00_1256 = 
(int)(BgL_rz00_577); 
{ /* ./Llib/os.scm 542 */
bool_t BgL_test1586z00_1257;
{ /* ./Llib/os.scm 542 */
bool_t BgL_testz00_3034;
{ /* ./Llib/os.scm 542 */
long BgL_auxz00_3037;long BgL_auxz00_3035;
BgL_auxz00_3037 = 
(long)(BgL_startz00_1255); 
BgL_auxz00_3035 = 
(long)(BgL_endz00_1256); 
BgL_testz00_3034 = 
(BgL_auxz00_3035>=BgL_auxz00_3037); } 
if(BgL_testz00_3034)
{ /* ./Llib/os.scm 542 */
bool_t BgL_testz00_3040;
{ /* ./Llib/os.scm 542 */
int BgL_auxz00_3041;
{ /* ./Llib/os.scm 542 */
long BgL_auxz00_3042;
{ /* ./Llib/os.scm 542 */
long BgL_auxz00_3043;
{ /* ./Llib/os.scm 542 */
int BgL_auxz00_3044;
BgL_auxz00_3044 = 
STRING_LENGTH(BgL_strz00_28); 
BgL_auxz00_3043 = 
(long)(BgL_auxz00_3044); } 
BgL_auxz00_3042 = 
(BgL_auxz00_3043+((long)1)); } 
BgL_auxz00_3041 = 
(int)(BgL_auxz00_3042); } 
BgL_testz00_3040 = 
BOUND_CHECK(BgL_startz00_1255, BgL_auxz00_3041); } 
if(BgL_testz00_3040)
{ /* ./Llib/os.scm 542 */
int BgL_auxz00_3050;
{ /* ./Llib/os.scm 542 */
long BgL_auxz00_3051;
{ /* ./Llib/os.scm 542 */
long BgL_auxz00_3052;
{ /* ./Llib/os.scm 542 */
int BgL_auxz00_3053;
BgL_auxz00_3053 = 
STRING_LENGTH(BgL_strz00_28); 
BgL_auxz00_3052 = 
(long)(BgL_auxz00_3053); } 
BgL_auxz00_3051 = 
(BgL_auxz00_3052+((long)1)); } 
BgL_auxz00_3050 = 
(int)(BgL_auxz00_3051); } 
BgL_test1586z00_1257 = 
BOUND_CHECK(BgL_endz00_1256, BgL_auxz00_3050); }  else 
{ /* ./Llib/os.scm 542 */
BgL_test1586z00_1257 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 542 */
BgL_test1586z00_1257 = ((bool_t)0); } } 
if(BgL_test1586z00_1257)
{ /* ./Llib/os.scm 542 */
BgL_res2163z00_1282 = 
c_substring(BgL_strz00_28, BgL_startz00_1255, BgL_endz00_1256); }  else 
{ /* ./Llib/os.scm 542 */
{ /* ./Llib/os.scm 542 */
obj_t BgL_arg1591z00_1268;
{ /* ./Llib/os.scm 542 */
obj_t BgL_auxz00_3063;obj_t BgL_auxz00_3061;
BgL_auxz00_3063 = 
BINT(BgL_endz00_1256); 
BgL_auxz00_3061 = 
BINT(BgL_startz00_1255); 
BgL_arg1591z00_1268 = 
MAKE_PAIR(BgL_auxz00_3061, BgL_auxz00_3063); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_1268, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 542 */
obj_t BgL_aux3570z00_1674;
BgL_aux3570z00_1674 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)21066))); 
if(
STRINGP(BgL_aux3570z00_1674))
{ /* ./Llib/os.scm 542 */
BgL_res2163z00_1282 = BgL_aux3570z00_1674; }  else 
{ /* ./Llib/os.scm 542 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3731z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux3570z00_1674, BGl_string3667z00zz__osz00, 
BINT(((long)21066))); 
exit( -1 );} } } } } 
BgL_arg1455z00_583 = BgL_res2163z00_1282; } 
BgL_resz00_581 = 
MAKE_PAIR(BgL_arg1455z00_583, BgL_resz00_578); }  else 
{ /* ./Llib/os.scm 541 */
BgL_resz00_581 = BgL_resz00_578; } 
{ /* ./Llib/os.scm 544 */
obj_t BgL_auxz00_3075;
{ /* ./Llib/os.scm 544 */
bool_t BgL_testz00_3076;
if(
PAIRP(BgL_resz00_581))
{ /* ./Llib/os.scm 544 */
BgL_testz00_3076 = ((bool_t)1)
; }  else 
{ /* ./Llib/os.scm 544 */
BgL_testz00_3076 = 
NULLP(BgL_resz00_581)
; } 
if(BgL_testz00_3076)
{ /* ./Llib/os.scm 544 */
BgL_auxz00_3075 = BgL_resz00_581
; }  else 
{ /* ./Llib/os.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3731z00zz__osz00, BGl_string3732z00zz__osz00, BgL_resz00_581, BGl_string3667z00zz__osz00, 
BINT(((long)21122))); 
exit( -1 );} } 
BgL_aux2298z00_1442 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3075); } } }  else 
{ /* ./Llib/os.scm 545 */
bool_t BgL_test1459z00_584;
{ /* ./Llib/os.scm 545 */
unsigned char BgL_arg1485z00_593;
{ /* ./Llib/os.scm 545 */
unsigned char BgL_res2164z00_1291;
{ /* ./Llib/os.scm 545 */
int BgL_kz00_1284;
BgL_kz00_1284 = 
(int)(BgL_rz00_577); 
{ /* ./Llib/os.scm 545 */
bool_t BgL_testz00_3085;
{ /* ./Llib/os.scm 545 */
int BgL_auxz00_3086;
BgL_auxz00_3086 = 
STRING_LENGTH(BgL_strz00_28); 
BgL_testz00_3085 = 
BOUND_CHECK(BgL_kz00_1284, BgL_auxz00_3086); } 
if(BgL_testz00_3085)
{ /* ./Llib/os.scm 545 */
BgL_res2164z00_1291 = 
STRING_REF(BgL_strz00_28, BgL_kz00_1284); }  else 
{ /* ./Llib/os.scm 545 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3687z00zz__osz00, BGl_string3688z00zz__osz00, 
BINT(BgL_kz00_1284), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/os.scm 545 */
obj_t BgL_auxz00_3092;
{ /* ./Llib/os.scm 545 */
obj_t BgL_aux3599z00_1678;
BgL_aux3599z00_1678 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)21141))); 
if(
CHARP(BgL_aux3599z00_1678))
{ /* ./Llib/os.scm 545 */
BgL_auxz00_3092 = BgL_aux3599z00_1678
; }  else 
{ /* ./Llib/os.scm 545 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3731z00zz__osz00, BGl_string3689z00zz__osz00, BgL_aux3599z00_1678, BGl_string3667z00zz__osz00, 
BINT(((long)21141))); 
exit( -1 );} } 
BgL_res2164z00_1291 = 
(unsigned char)CCHAR(BgL_auxz00_3092); } } } } 
BgL_arg1485z00_593 = BgL_res2164z00_1291; } 
BgL_test1459z00_584 = 
(BgL_arg1485z00_593==((unsigned char)':')); } 
if(BgL_test1459z00_584)
{ /* ./Llib/os.scm 545 */
if(
(BgL_markz00_576<BgL_rz00_577))
{ /* ./Llib/os.scm 547 */
long BgL_arg1462z00_586;long BgL_arg1463z00_587;obj_t BgL_arg1464z00_588;
BgL_arg1462z00_586 = 
(((long)1)+BgL_rz00_577); 
BgL_arg1463z00_587 = 
(((long)1)+BgL_rz00_577); 
{ /* ./Llib/os.scm 547 */
obj_t BgL_arg1469z00_589;
{ /* ./Llib/os.scm 547 */
obj_t BgL_res2165z00_1328;
{ /* ./Llib/os.scm 547 */
int BgL_startz00_1301;int BgL_endz00_1302;
BgL_startz00_1301 = 
(int)(BgL_markz00_576); 
BgL_endz00_1302 = 
(int)(BgL_rz00_577); 
{ /* ./Llib/os.scm 547 */
bool_t BgL_test1586z00_1303;
{ /* ./Llib/os.scm 547 */
bool_t BgL_testz00_3109;
{ /* ./Llib/os.scm 547 */
long BgL_auxz00_3112;long BgL_auxz00_3110;
BgL_auxz00_3112 = 
(long)(BgL_startz00_1301); 
BgL_auxz00_3110 = 
(long)(BgL_endz00_1302); 
BgL_testz00_3109 = 
(BgL_auxz00_3110>=BgL_auxz00_3112); } 
if(BgL_testz00_3109)
{ /* ./Llib/os.scm 547 */
bool_t BgL_testz00_3115;
{ /* ./Llib/os.scm 547 */
int BgL_auxz00_3116;
{ /* ./Llib/os.scm 547 */
long BgL_auxz00_3117;
{ /* ./Llib/os.scm 547 */
long BgL_auxz00_3118;
{ /* ./Llib/os.scm 547 */
int BgL_auxz00_3119;
BgL_auxz00_3119 = 
STRING_LENGTH(BgL_strz00_28); 
BgL_auxz00_3118 = 
(long)(BgL_auxz00_3119); } 
BgL_auxz00_3117 = 
(BgL_auxz00_3118+((long)1)); } 
BgL_auxz00_3116 = 
(int)(BgL_auxz00_3117); } 
BgL_testz00_3115 = 
BOUND_CHECK(BgL_startz00_1301, BgL_auxz00_3116); } 
if(BgL_testz00_3115)
{ /* ./Llib/os.scm 547 */
int BgL_auxz00_3125;
{ /* ./Llib/os.scm 547 */
long BgL_auxz00_3126;
{ /* ./Llib/os.scm 547 */
long BgL_auxz00_3127;
{ /* ./Llib/os.scm 547 */
int BgL_auxz00_3128;
BgL_auxz00_3128 = 
STRING_LENGTH(BgL_strz00_28); 
BgL_auxz00_3127 = 
(long)(BgL_auxz00_3128); } 
BgL_auxz00_3126 = 
(BgL_auxz00_3127+((long)1)); } 
BgL_auxz00_3125 = 
(int)(BgL_auxz00_3126); } 
BgL_test1586z00_1303 = 
BOUND_CHECK(BgL_endz00_1302, BgL_auxz00_3125); }  else 
{ /* ./Llib/os.scm 547 */
BgL_test1586z00_1303 = ((bool_t)0); } }  else 
{ /* ./Llib/os.scm 547 */
BgL_test1586z00_1303 = ((bool_t)0); } } 
if(BgL_test1586z00_1303)
{ /* ./Llib/os.scm 547 */
BgL_res2165z00_1328 = 
c_substring(BgL_strz00_28, BgL_startz00_1301, BgL_endz00_1302); }  else 
{ /* ./Llib/os.scm 547 */
{ /* ./Llib/os.scm 547 */
obj_t BgL_arg1591z00_1314;
{ /* ./Llib/os.scm 547 */
obj_t BgL_auxz00_3138;obj_t BgL_auxz00_3136;
BgL_auxz00_3138 = 
BINT(BgL_endz00_1302); 
BgL_auxz00_3136 = 
BINT(BgL_startz00_1301); 
BgL_arg1591z00_1314 = 
MAKE_PAIR(BgL_auxz00_3136, BgL_auxz00_3138); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3690z00zz__osz00, BGl_string3691z00zz__osz00, BgL_arg1591z00_1314, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/os.scm 547 */
obj_t BgL_aux3627z00_1680;
BgL_aux3627z00_1680 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3667z00zz__osz00, 
BINT(((long)21223))); 
if(
STRINGP(BgL_aux3627z00_1680))
{ /* ./Llib/os.scm 547 */
BgL_res2165z00_1328 = BgL_aux3627z00_1680; }  else 
{ /* ./Llib/os.scm 547 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3731z00zz__osz00, BGl_string3692z00zz__osz00, BgL_aux3627z00_1680, BGl_string3667z00zz__osz00, 
BINT(((long)21223))); 
exit( -1 );} } } } } 
BgL_arg1469z00_589 = BgL_res2165z00_1328; } 
BgL_arg1464z00_588 = 
MAKE_PAIR(BgL_arg1469z00_589, BgL_resz00_578); } 
{ 
obj_t BgL_resz00_3152;long BgL_rz00_3151;long BgL_markz00_3150;
BgL_markz00_3150 = BgL_arg1462z00_586; 
BgL_rz00_3151 = BgL_arg1463z00_587; 
BgL_resz00_3152 = BgL_arg1464z00_588; 
BgL_resz00_578 = BgL_resz00_3152; 
BgL_rz00_577 = BgL_rz00_3151; 
BgL_markz00_576 = BgL_markz00_3150; 
goto BgL_loopz00_579;} }  else 
{ 
long BgL_rz00_3155;long BgL_markz00_3153;
BgL_markz00_3153 = 
(((long)1)+BgL_rz00_577); 
BgL_rz00_3155 = 
(((long)1)+BgL_rz00_577); 
BgL_rz00_577 = BgL_rz00_3155; 
BgL_markz00_576 = BgL_markz00_3153; 
goto BgL_loopz00_579;} }  else 
{ /* ./Llib/os.scm 545 */
{ 
long BgL_rz00_3157;
BgL_rz00_3157 = 
(((long)1)+BgL_rz00_577); 
BgL_rz00_577 = BgL_rz00_3157; 
goto BgL_loopz00_579;} } } } } } 
POP_TRACE(); 
return BgL_aux2298z00_1442;} } } } 
}



/* _unix-path->list2369 */
obj_t BGl__unixzd2pathzd2ze3list2369ze3zz__osz00(obj_t BgL_envz00_1506, obj_t BgL_strz00_1507)
{ AN_OBJECT;
{ /* ./Llib/os.scm 534 */
{ /* ./Llib/os.scm 535 */
obj_t BgL_auxz00_3160;
if(
STRINGP(BgL_strz00_1507))
{ /* ./Llib/os.scm 535 */
BgL_auxz00_3160 = BgL_strz00_1507
; }  else 
{ /* ./Llib/os.scm 535 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3733z00zz__osz00, BGl_string3692z00zz__osz00, BgL_strz00_1507, BGl_string3667z00zz__osz00, 
BINT(((long)20909))); 
exit( -1 );} 
return 
BGl_unixzd2pathzd2ze3listze3zz__osz00(BgL_auxz00_3160);} } 
}



/* hostname */
BGL_EXPORTED_DEF char * BGl_hostnamez00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 555 */
{ /* ./Llib/os.scm 556 */
obj_t BgL_symbol2303z00_1702;
BgL_symbol2303z00_1702 = BGl_symbol3734z00zz__osz00; 
{ /* ./Llib/os.scm 556 */

PUSH_TRACE(BgL_symbol2303z00_1702); BUNSPEC; 
{ /* ./Llib/os.scm 556 */
char * BgL_aux2302z00_1703;
BgL_aux2302z00_1703 = 
bgl_gethostname(); 
POP_TRACE(); 
return BgL_aux2302z00_1703;} } } } 
}



/* _hostname */
obj_t BGl__hostnamez00zz__osz00(obj_t BgL_envz00_1508)
{ AN_OBJECT;
{ /* ./Llib/os.scm 555 */
{ /* ./Llib/os.scm 556 */
char * BgL_auxz00_3170;
{ /* ./Llib/os.scm 556 */
char * BgL_res3738z00_1706;
{ /* ./Llib/os.scm 556 */
obj_t BgL_symbol2303z00_1704;
BgL_symbol2303z00_1704 = BGl_symbol3734z00zz__osz00; 
{ /* ./Llib/os.scm 556 */

PUSH_TRACE(BgL_symbol2303z00_1704); BUNSPEC; 
{ /* ./Llib/os.scm 556 */
char * BgL_aux2302z00_1705;
BgL_aux2302z00_1705 = 
bgl_gethostname(); 
POP_TRACE(); 
BgL_res3738z00_1706 = BgL_aux2302z00_1705; } } } 
BgL_auxz00_3170 = BgL_res3738z00_1706; } 
return 
string_to_bstring(BgL_auxz00_3170);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__osz00()
{ AN_OBJECT;
{ /* ./Llib/os.scm 18 */
{ /* ./Llib/os.scm 18 */
obj_t BgL_symbol2307z00_1445;
BgL_symbol2307z00_1445 = BGl_symbol3735z00zz__osz00; 
{ /* ./Llib/os.scm 18 */

PUSH_TRACE(BgL_symbol2307z00_1445); BUNSPEC; 
{ /* ./Llib/os.scm 18 */
obj_t BgL_aux2306z00_1446;
BgL_aux2306z00_1446 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__os"); 
POP_TRACE(); 
return BgL_aux2306z00_1446;} } } } 
}

