/*===========================================================================*/
/*   (Llib/module.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/module.scm -indent -o objs/obj_s/Llib/module.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

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

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___MODULE_TYPE_DEFINITIONS
#define BGL___MODULE_TYPE_DEFINITIONS
#endif // BGL___MODULE_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_z62modulezd2addzd2accessz12z70zz__modulez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol1843z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1849z00zz__modulez00 = BUNSPEC;
static obj_t BGl_z62bigloozd2modulezd2resolverzd2setz12za2zz__modulez00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__modulez00 = BUNSPEC;
static obj_t BGl_resolvezd2abasezf2bucketz20zz__modulez00(obj_t, obj_t);
static obj_t BGl_za2afileszd2tableza2zd2zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1851z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1853z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1855z00zz__modulez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_bigloozd2modulezd2resolverz00zz__modulez00(void);
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__configurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern bool_t fexists(char *);
extern obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62zc3z04z52bigloozd2modulezd2res1194ze3z14zz__modulez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol1876z00zz__modulez00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__modulez00(void);
static obj_t BGl_symbol1878z00zz__modulez00 = BUNSPEC;
static obj_t BGl_z62modulezd2abasezd2setz12z70zz__modulez00(obj_t, obj_t);
static obj_t BGl_list1848z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1880z00zz__modulez00 = BUNSPEC;
extern obj_t BGl_filezd2namezd2canonicaliza7eza7zz__osz00(obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__modulez00(void);
extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_genericzd2initzd2zz__modulez00(void);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__modulez00(void);
static obj_t BGl_gczd2rootszd2initz00zz__modulez00(void);
static obj_t BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BUNSPEC;
static obj_t BGl_objectzd2initzd2zz__modulez00(void);
static obj_t BGl_list1875z00zz__modulez00 = BUNSPEC;
extern obj_t BGl_dirnamez00zz__osz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2abasezd2setz12z12zz__modulez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2modulezd2resolverzd2setz12zc0zz__modulez00(obj_t);
extern obj_t bstring_to_symbol(obj_t);
extern bool_t bgl_directoryp(char *);
extern obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
extern obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
static obj_t BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(obj_t, obj_t, obj_t);
extern obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62modulezd2abasezb0zz__modulez00(obj_t);
static obj_t BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(obj_t);
static obj_t BGl_methodzd2initzd2zz__modulez00(void);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
extern obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2abasezd2zz__modulez00(void);
static obj_t BGl_z62bigloozd2modulezd2resolverz62zz__modulez00(obj_t);
static obj_t BGl_z62modulezd2defaultzd2resolverz62zz__modulez00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(obj_t);
static obj_t BGl_z62modulezd2loadzd2accesszd2filezb0zz__modulez00(obj_t, obj_t);
static obj_t BGl_resolvezd2abaseza2z70zz__modulez00(obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_afilezd2tablezd2zz__modulez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2addzd2accessz12z12zz__modulez00(obj_t, obj_t, obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31360ze3ze5zz__modulez00(obj_t, obj_t);
static obj_t BGl_moduleszd2mutexzd2zz__modulez00 = BUNSPEC;
extern obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string1870z00zz__modulez00, BgL_bgl_string1870za700za7za7_1902za7, "] in directory \"", 16 );
DEFINE_STRING( BGl_string1871z00zz__modulez00, BgL_bgl_string1871za700za7za7_1903za7, " ", 1 );
DEFINE_STRING( BGl_string1872z00zz__modulez00, BgL_bgl_string1872za700za7za7_1904za7, " [", 2 );
DEFINE_STRING( BGl_string1873z00zz__modulez00, BgL_bgl_string1873za700za7za7_1905za7, "access redefinition -- ", 23 );
DEFINE_STRING( BGl_string1874z00zz__modulez00, BgL_bgl_string1874za700za7za7_1906za7, "add-access!", 11 );
DEFINE_STRING( BGl_string1877z00zz__modulez00, BgL_bgl_string1877za700za7za7_1907za7, "set-cdr!", 8 );
DEFINE_STRING( BGl_string1879z00zz__modulez00, BgL_bgl_string1879za700za7za7_1908za7, "cell", 4 );
DEFINE_STRING( BGl_string1881z00zz__modulez00, BgL_bgl_string1881za700za7za7_1909za7, "files", 5 );
DEFINE_STRING( BGl_string1882z00zz__modulez00, BgL_bgl_string1882za700za7za7_1910za7, "relative", 8 );
DEFINE_STRING( BGl_string1883z00zz__modulez00, BgL_bgl_string1883za700za7za7_1911za7, "string-ref", 10 );
DEFINE_STRING( BGl_string1884z00zz__modulez00, BgL_bgl_string1884za700za7za7_1912za7, "map", 3 );
DEFINE_STRING( BGl_string1885z00zz__modulez00, BgL_bgl_string1885za700za7za7_1913za7, "list", 4 );
DEFINE_STRING( BGl_string1886z00zz__modulez00, BgL_bgl_string1886za700za7za7_1914za7, "&module-add-access!", 19 );
DEFINE_STRING( BGl_string1887z00zz__modulez00, BgL_bgl_string1887za700za7za7_1915za7, "module-read-access-file", 23 );
DEFINE_STRING( BGl_string1888z00zz__modulez00, BgL_bgl_string1888za700za7za7_1916za7, "input-port", 10 );
DEFINE_STRING( BGl_string1889z00zz__modulez00, BgL_bgl_string1889za700za7za7_1917za7, "<@anonymous:1288>", 17 );
DEFINE_STRING( BGl_string1890z00zz__modulez00, BgL_bgl_string1890za700za7za7_1918za7, "Illegal entry -- ", 17 );
DEFINE_STRING( BGl_string1891z00zz__modulez00, BgL_bgl_string1891za700za7za7_1919za7, "module-load-access-file", 23 );
DEFINE_STRING( BGl_string1892z00zz__modulez00, BgL_bgl_string1892za700za7za7_1920za7, "struct", 6 );
DEFINE_STRING( BGl_string1893z00zz__modulez00, BgL_bgl_string1893za700za7za7_1921za7, ".afile", 6 );
DEFINE_STRING( BGl_string1894z00zz__modulez00, BgL_bgl_string1894za700za7za7_1922za7, "&module-load-access-file", 24 );
DEFINE_STRING( BGl_string1895z00zz__modulez00, BgL_bgl_string1895za700za7za7_1923za7, "", 0 );
DEFINE_STRING( BGl_string1896z00zz__modulez00, BgL_bgl_string1896za700za7za7_1924za7, "relative-path", 13 );
DEFINE_STRING( BGl_string1897z00zz__modulez00, BgL_bgl_string1897za700za7za7_1925za7, "<@anonymous:1360>", 17 );
DEFINE_STRING( BGl_string1898z00zz__modulez00, BgL_bgl_string1898za700za7za7_1926za7, "<@anonymous:1361>", 17 );
DEFINE_STRING( BGl_string1899z00zz__modulez00, BgL_bgl_string1899za700za7za7_1927za7, "<@anonymous:1365>", 17 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulezd2abasezd2envz00zz__modulez00, BgL_bgl_za762moduleza7d2abas1928z00, BGl_z62modulezd2abasezb0zz__modulez00, 0L, BUNSPEC, 0 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_modulezd2defaultzd2resolverzd2envzd2zz__modulez00, BgL_bgl_za762moduleza7d2defa1929z00, BGl_z62modulezd2defaultzd2resolverz62zz__modulez00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulezd2loadzd2accesszd2filezd2envz00zz__modulez00, BgL_bgl_za762moduleza7d2load1930z00, BGl_z62modulezd2loadzd2accesszd2filezb0zz__modulez00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bigloozd2modulezd2resolverzd2setz12zd2envz12zz__modulez00, BgL_bgl_za762biglooza7d2modu1931z00, BGl_z62bigloozd2modulezd2resolverzd2setz12za2zz__modulez00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bigloozd2modulezd2resolverzd2envzd2zz__modulez00, BgL_bgl_za762biglooza7d2modu1932z00, BGl_z62bigloozd2modulezd2resolverz62zz__modulez00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulezd2abasezd2setz12zd2envzc0zz__modulez00, BgL_bgl_za762moduleza7d2abas1933z00, BGl_z62modulezd2abasezd2setz12z70zz__modulez00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string1900z00zz__modulez00, BgL_bgl_string1900za700za7za7_1934za7, "for-each", 8 );
DEFINE_STRING( BGl_string1901z00zz__modulez00, BgL_bgl_string1901za700za7za7_1935za7, "__module", 8 );
DEFINE_STRING( BGl_string1839z00zz__modulez00, BgL_bgl_string1839za700za7za7_1936za7, "modules", 7 );
DEFINE_STRING( BGl_string1840z00zz__modulez00, BgL_bgl_string1840za700za7za7_1937za7, "/tmp/bigloo/runtime/Llib/module.scm", 35 );
DEFINE_STRING( BGl_string1841z00zz__modulez00, BgL_bgl_string1841za700za7za7_1938za7, "bigloo-module-resolver", 22 );
DEFINE_STRING( BGl_string1842z00zz__modulez00, BgL_bgl_string1842za700za7za7_1939za7, "procedure", 9 );
DEFINE_STRING( BGl_string1844z00zz__modulez00, BgL_bgl_string1844za700za7za7_1940za7, "bigloo-module-resolver-set!", 27 );
DEFINE_STRING( BGl_string1845z00zz__modulez00, BgL_bgl_string1845za700za7za7_1941za7, "Illegal resolver", 16 );
DEFINE_STRING( BGl_string1846z00zz__modulez00, BgL_bgl_string1846za700za7za7_1942za7, "&bigloo-module-resolver-set!", 28 );
DEFINE_STRING( BGl_string1847z00zz__modulez00, BgL_bgl_string1847za700za7za7_1943za7, "<@%bigloo-module-res1194>:Wrong number of arguments", 51 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulezd2addzd2accessz12zd2envzc0zz__modulez00, BgL_bgl_za762moduleza7d2addza71944za7, BGl_z62modulezd2addzd2accessz12z70zz__modulez00, 0L, BUNSPEC, 3 );
DEFINE_STRING( BGl_string1850z00zz__modulez00, BgL_bgl_string1850za700za7za7_1945za7, "funcall", 7 );
DEFINE_STRING( BGl_string1852z00zz__modulez00, BgL_bgl_string1852za700za7za7_1946za7, "resolve", 7 );
DEFINE_STRING( BGl_string1854z00zz__modulez00, BgL_bgl_string1854za700za7za7_1947za7, "module", 6 );
DEFINE_STRING( BGl_string1856z00zz__modulez00, BgL_bgl_string1856za700za7za7_1948za7, "abase", 5 );
DEFINE_STRING( BGl_string1857z00zz__modulez00, BgL_bgl_string1857za700za7za7_1949za7, ".", 1 );
DEFINE_STRING( BGl_string1858z00zz__modulez00, BgL_bgl_string1858za700za7za7_1950za7, "module-default-resolver", 23 );
DEFINE_STRING( BGl_string1859z00zz__modulez00, BgL_bgl_string1859za700za7za7_1951za7, "bstring", 7 );
DEFINE_STRING( BGl_string1860z00zz__modulez00, BgL_bgl_string1860za700za7za7_1952za7, "&module-default-resolver", 24 );
DEFINE_STRING( BGl_string1861z00zz__modulez00, BgL_bgl_string1861za700za7za7_1953za7, "symbol", 6 );
DEFINE_STRING( BGl_string1862z00zz__modulez00, BgL_bgl_string1862za700za7za7_1954za7, "pair-nil", 8 );
DEFINE_STRING( BGl_string1863z00zz__modulez00, BgL_bgl_string1863za700za7za7_1955za7, "loop", 4 );
DEFINE_STRING( BGl_string1864z00zz__modulez00, BgL_bgl_string1864za700za7za7_1956za7, "pair", 4 );
DEFINE_STRING( BGl_string1865z00zz__modulez00, BgL_bgl_string1865za700za7za7_1957za7, "resolve-abase/bucket", 20 );
DEFINE_STRING( BGl_string1866z00zz__modulez00, BgL_bgl_string1866za700za7za7_1958za7, "<@anonymous:1214>", 17 );
DEFINE_STRING( BGl_string1867z00zz__modulez00, BgL_bgl_string1867za700za7za7_1959za7, ".scm", 4 );
DEFINE_STRING( BGl_string1868z00zz__modulez00, BgL_bgl_string1868za700za7za7_1960za7, "module-add-access-inner!", 24 );
DEFINE_STRING( BGl_string1869z00zz__modulez00, BgL_bgl_string1869za700za7za7_1961za7, "\"", 1 );

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol1843z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1849z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__modulez00) );
ADD_ROOT( (void *)(&BGl_za2afileszd2tableza2zd2zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1851z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1853z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1855z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1876z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1878z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_list1848z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1880z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_z52bigloozd2modulezd2resolverz52zz__modulez00) );
ADD_ROOT( (void *)(&BGl_list1875z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_afilezd2tablezd2zz__modulez00) );
ADD_ROOT( (void *)(&BGl_moduleszd2mutexzd2zz__modulez00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__modulez00(long BgL_checksumz00_2198, char * BgL_fromz00_2199)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__modulez00))
{ 
BGl_requirezd2initializa7ationz75zz__modulez00 = 
BBOOL(((bool_t)0)); 
BGl_gczd2rootszd2initz00zz__modulez00(); 
BGl_cnstzd2initzd2zz__modulez00(); 
BGl_importedzd2moduleszd2initz00zz__modulez00(); 
return 
BGl_toplevelzd2initzd2zz__modulez00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
BGl_symbol1843z00zz__modulez00 = 
bstring_to_symbol(BGl_string1844z00zz__modulez00); 
BGl_symbol1849z00zz__modulez00 = 
bstring_to_symbol(BGl_string1850z00zz__modulez00); 
BGl_symbol1851z00zz__modulez00 = 
bstring_to_symbol(BGl_string1852z00zz__modulez00); 
BGl_symbol1853z00zz__modulez00 = 
bstring_to_symbol(BGl_string1854z00zz__modulez00); 
BGl_symbol1855z00zz__modulez00 = 
bstring_to_symbol(BGl_string1856z00zz__modulez00); 
BGl_list1848z00zz__modulez00 = 
MAKE_YOUNG_PAIR(BGl_symbol1849z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1851z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1851z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1853z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1855z00zz__modulez00, BNIL))))); 
BGl_symbol1876z00zz__modulez00 = 
bstring_to_symbol(BGl_string1877z00zz__modulez00); 
BGl_symbol1878z00zz__modulez00 = 
bstring_to_symbol(BGl_string1879z00zz__modulez00); 
BGl_symbol1880z00zz__modulez00 = 
bstring_to_symbol(BGl_string1881z00zz__modulez00); 
return ( 
BGl_list1875z00zz__modulez00 = 
MAKE_YOUNG_PAIR(BGl_symbol1876z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1878z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1880z00zz__modulez00, BNIL))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
BGl_moduleszd2mutexzd2zz__modulez00 = 
bgl_make_mutex(BGl_string1839z00zz__modulez00); 
BGl_afilezd2tablezd2zz__modulez00 = BNIL; 
BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BGl_modulezd2defaultzd2resolverzd2envzd2zz__modulez00; 
{ /* Llib/module.scm 218 */
 obj_t BgL_list1175z00_1118;
BgL_list1175z00_1118 = 
MAKE_YOUNG_PAIR(
BINT(256L), BNIL); 
return ( 
BGl_za2afileszd2tableza2zd2zz__modulez00 = 
BGl_makezd2hashtablezd2zz__hashz00(BgL_list1175z00_1118), BUNSPEC) ;} } 

}



/* module-abase */
BGL_EXPORTED_DEF obj_t BGl_modulezd2abasezd2zz__modulez00(void)
{
{ /* Llib/module.scm 75 */
return 
BGL_ABASE();} 

}



/* &module-abase */
obj_t BGl_z62modulezd2abasezb0zz__modulez00(obj_t BgL_envz00_2042)
{
{ /* Llib/module.scm 75 */
return 
BGl_modulezd2abasezd2zz__modulez00();} 

}



/* module-abase-set! */
BGL_EXPORTED_DEF obj_t BGl_modulezd2abasezd2setz12z12zz__modulez00(obj_t BgL_valz00_3)
{
{ /* Llib/module.scm 78 */
return 
BGL_ABASE_SET(BgL_valz00_3);} 

}



/* &module-abase-set! */
obj_t BGl_z62modulezd2abasezd2setz12z70zz__modulez00(obj_t BgL_envz00_2043, obj_t BgL_valz00_2044)
{
{ /* Llib/module.scm 78 */
return 
BGl_modulezd2abasezd2setz12z12zz__modulez00(BgL_valz00_2044);} 

}



/* bigloo-module-resolver */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2modulezd2resolverz00zz__modulez00(void)
{
{ /* Llib/module.scm 91 */
{ /* Llib/module.scm 91 */
 obj_t BgL_aux1758z00_2075;
BgL_aux1758z00_2075 = BGl_z52bigloozd2modulezd2resolverz52zz__modulez00; 
if(
PROCEDUREP(BgL_aux1758z00_2075))
{ /* Llib/module.scm 91 */
return BgL_aux1758z00_2075;}  else 
{ 
 obj_t BgL_auxz00_2234;
BgL_auxz00_2234 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(3416L), BGl_string1841z00zz__modulez00, BGl_string1842z00zz__modulez00, BgL_aux1758z00_2075); 
FAILURE(BgL_auxz00_2234,BFALSE,BFALSE);} } } 

}



/* &bigloo-module-resolver */
obj_t BGl_z62bigloozd2modulezd2resolverz62zz__modulez00(obj_t BgL_envz00_2045)
{
{ /* Llib/module.scm 91 */
return 
BGl_bigloozd2modulezd2resolverz00zz__modulez00();} 

}



/* bigloo-module-resolver-set! */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2modulezd2resolverzd2setz12zc0zz__modulez00(obj_t BgL_resolvez00_4)
{
{ /* Llib/module.scm 94 */
{ /* Llib/module.scm 95 */
 obj_t BgL_top1965z00_2240;
BgL_top1965z00_2240 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top1965z00_2240, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 95 */
 obj_t BgL_tmp1964z00_2239;
if(
PROCEDURE_CORRECT_ARITYP(BgL_resolvez00_4, 
(int)(2L)))
{ /* Llib/module.scm 100 */
 obj_t BgL_zc3z04z52bigloozd2modulezd2res1194ze3z76_2046;
BgL_zc3z04z52bigloozd2modulezd2res1194ze3z76_2046 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04z52bigloozd2modulezd2res1194ze3z14zz__modulez00, 
(int)(3L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04z52bigloozd2modulezd2res1194ze3z76_2046, 
(int)(0L), BgL_resolvez00_4); 
BgL_tmp1964z00_2239 = ( 
BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BgL_zc3z04z52bigloozd2modulezd2res1194ze3z76_2046, BUNSPEC) ; }  else 
{ /* Llib/module.scm 97 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_resolvez00_4, 
(int)(3L)))
{ /* Llib/module.scm 101 */
BgL_tmp1964z00_2239 = ( 
BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BgL_resolvez00_4, BUNSPEC) ; }  else 
{ /* Llib/module.scm 101 */
BgL_tmp1964z00_2239 = 
BGl_errorz00zz__errorz00(BGl_symbol1843z00zz__modulez00, BGl_string1845z00zz__modulez00, BgL_resolvez00_4); } } 
BGL_EXITD_POP_PROTECT(BgL_top1965z00_2240); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp1964z00_2239;} } } 

}



/* &bigloo-module-resolver-set! */
obj_t BGl_z62bigloozd2modulezd2resolverzd2setz12za2zz__modulez00(obj_t BgL_envz00_2047, obj_t BgL_resolvez00_2048)
{
{ /* Llib/module.scm 94 */
{ /* Llib/module.scm 95 */
 obj_t BgL_auxz00_2258;
if(
PROCEDUREP(BgL_resolvez00_2048))
{ /* Llib/module.scm 95 */
BgL_auxz00_2258 = BgL_resolvez00_2048
; }  else 
{ 
 obj_t BgL_auxz00_2261;
BgL_auxz00_2261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(3527L), BGl_string1846z00zz__modulez00, BGl_string1842z00zz__modulez00, BgL_resolvez00_2048); 
FAILURE(BgL_auxz00_2261,BFALSE,BFALSE);} 
return 
BGl_bigloozd2modulezd2resolverzd2setz12zc0zz__modulez00(BgL_auxz00_2258);} } 

}



/* &<@%bigloo-module-res1194> */
obj_t BGl_z62zc3z04z52bigloozd2modulezd2res1194ze3z14zz__modulez00(obj_t BgL_envz00_2049, obj_t BgL_modulez00_2051, obj_t BgL_filesz00_2052, obj_t BgL_abasez00_2053)
{
{ /* Llib/module.scm 100 */
{ /* Llib/module.scm 100 */
 obj_t BgL_resolvez00_2050;
BgL_resolvez00_2050 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2049, 
(int)(0L))); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_resolvez00_2050, 2L))
{ /* Llib/module.scm 100 */
return 
(VA_PROCEDUREP( BgL_resolvez00_2050 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_resolvez00_2050))(BgL_resolvez00_2050, BgL_modulez00_2051, BgL_abasez00_2053, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_resolvez00_2050))(BgL_resolvez00_2050, BgL_modulez00_2051, BgL_abasez00_2053) );}  else 
{ /* Llib/module.scm 100 */
FAILURE(BGl_string1847z00zz__modulez00,BGl_list1848z00zz__modulez00,BgL_resolvez00_2050);} } } 

}



/* &module-default-resolver */
obj_t BGl_z62modulezd2defaultzd2resolverz62zz__modulez00(obj_t BgL_envz00_2038, obj_t BgL_modz00_2039, obj_t BgL_filesz00_2040, obj_t BgL_abasez00_2041)
{
{ /* Llib/module.scm 113 */
{ /* Llib/module.scm 114 */
 obj_t BgL_modz00_2158; obj_t BgL_filesz00_2159;
if(
SYMBOLP(BgL_modz00_2039))
{ /* Llib/module.scm 114 */
BgL_modz00_2158 = BgL_modz00_2039; }  else 
{ 
 obj_t BgL_auxz00_2279;
BgL_auxz00_2279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(4515L), BGl_string1860z00zz__modulez00, BGl_string1861z00zz__modulez00, BgL_modz00_2039); 
FAILURE(BgL_auxz00_2279,BFALSE,BFALSE);} 
{ /* Llib/module.scm 114 */
 bool_t BgL_test1971z00_2283;
if(
PAIRP(BgL_filesz00_2040))
{ /* Llib/module.scm 114 */
BgL_test1971z00_2283 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 114 */
BgL_test1971z00_2283 = 
NULLP(BgL_filesz00_2040)
; } 
if(BgL_test1971z00_2283)
{ /* Llib/module.scm 114 */
BgL_filesz00_2159 = BgL_filesz00_2040; }  else 
{ 
 obj_t BgL_auxz00_2287;
BgL_auxz00_2287 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(4515L), BGl_string1860z00zz__modulez00, BGl_string1862z00zz__modulez00, BgL_filesz00_2040); 
FAILURE(BgL_auxz00_2287,BFALSE,BFALSE);} } 
{ /* Llib/module.scm 114 */
 obj_t BgL_top1974z00_2292;
BgL_top1974z00_2292 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top1974z00_2292, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 114 */
 obj_t BgL_tmp1973z00_2291;
if(
NULLP(BgL_filesz00_2159))
{ /* Llib/module.scm 116 */
if(
NULLP(BgL_abasez00_2041))
{ /* Llib/module.scm 150 */
 obj_t BgL_basez00_2160;
BgL_basez00_2160 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BGl_string1857z00zz__modulez00, BGl_afilezd2tablezd2zz__modulez00); 
if(
PAIRP(BgL_basez00_2160))
{ /* Llib/module.scm 151 */
BgL_tmp1973z00_2291 = 
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_2158, BgL_basez00_2160); }  else 
{ /* Llib/module.scm 151 */
BgL_tmp1973z00_2291 = BNIL; } }  else 
{ /* Llib/module.scm 119 */
if(
STRINGP(BgL_abasez00_2041))
{ /* Llib/module.scm 150 */
 obj_t BgL_basez00_2161;
BgL_basez00_2161 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_abasez00_2041, BGl_afilezd2tablezd2zz__modulez00); 
if(
PAIRP(BgL_basez00_2161))
{ /* Llib/module.scm 151 */
BgL_tmp1973z00_2291 = 
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_2158, BgL_basez00_2161); }  else 
{ /* Llib/module.scm 151 */
BgL_tmp1973z00_2291 = BNIL; } }  else 
{ /* Llib/module.scm 121 */
if(
PAIRP(BgL_abasez00_2041))
{ 
 obj_t BgL_abasez00_2163;
BgL_abasez00_2163 = BgL_abasez00_2041; 
BgL_loopz00_2162:
if(
PAIRP(BgL_abasez00_2163))
{ /* Llib/module.scm 126 */
 obj_t BgL_resolvez00_2164;
{ /* Llib/module.scm 126 */
 obj_t BgL_arg1205z00_2165;
BgL_arg1205z00_2165 = 
CAR(BgL_abasez00_2163); 
{ /* Llib/module.scm 150 */
 obj_t BgL_basez00_2166;
BgL_basez00_2166 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1205z00_2165, BGl_afilezd2tablezd2zz__modulez00); 
if(
PAIRP(BgL_basez00_2166))
{ /* Llib/module.scm 151 */
BgL_resolvez00_2164 = 
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_2158, BgL_basez00_2166); }  else 
{ /* Llib/module.scm 151 */
BgL_resolvez00_2164 = BNIL; } } } 
if(
PAIRP(BgL_resolvez00_2164))
{ /* Llib/module.scm 127 */
BgL_tmp1973z00_2291 = BgL_resolvez00_2164; }  else 
{ 
 obj_t BgL_abasez00_2321;
BgL_abasez00_2321 = 
CDR(BgL_abasez00_2163); 
BgL_abasez00_2163 = BgL_abasez00_2321; 
goto BgL_loopz00_2162;} }  else 
{ /* Llib/module.scm 125 */
BgL_tmp1973z00_2291 = BNIL; } }  else 
{ /* Llib/module.scm 123 */
BgL_tmp1973z00_2291 = 
BGl_resolvezd2abaseza2z70zz__modulez00(BgL_modz00_2158); } } } }  else 
{ /* Llib/module.scm 116 */
{ /* Llib/module.scm 117 */
 obj_t BgL_auxz00_2324;
if(
STRINGP(BgL_abasez00_2041))
{ /* Llib/module.scm 117 */
BgL_auxz00_2324 = BgL_abasez00_2041
; }  else 
{ 
 obj_t BgL_auxz00_2327;
BgL_auxz00_2327 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(4604L), BGl_string1858z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_abasez00_2041); 
FAILURE(BgL_auxz00_2327,BFALSE,BFALSE);} 
BGl_modulezd2addzd2accessz12z12zz__modulez00(BgL_modz00_2158, BgL_filesz00_2159, BgL_auxz00_2324); } 
BgL_tmp1973z00_2291 = BgL_filesz00_2159; } 
BGL_EXITD_POP_PROTECT(BgL_top1974z00_2292); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp1973z00_2291;} } } } 

}



/* resolve-abase* */
obj_t BGl_resolvezd2abaseza2z70zz__modulez00(obj_t BgL_modz00_8)
{
{ /* Llib/module.scm 137 */
{ 
 obj_t BgL_afilez00_1151;
BgL_afilez00_1151 = BGl_afilezd2tablezd2zz__modulez00; 
BgL_zc3z04anonymousza31206ze3z87_1152:
if(
NULLP(BgL_afilez00_1151))
{ /* Llib/module.scm 139 */
return BNIL;}  else 
{ /* Llib/module.scm 141 */
 obj_t BgL_fz00_1154;
{ /* Llib/module.scm 141 */
 obj_t BgL_arg1211z00_1157;
{ /* Llib/module.scm 141 */
 obj_t BgL_pairz00_1755;
if(
PAIRP(BgL_afilez00_1151))
{ /* Llib/module.scm 141 */
BgL_pairz00_1755 = BgL_afilez00_1151; }  else 
{ 
 obj_t BgL_auxz00_2338;
BgL_auxz00_2338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(5305L), BGl_string1863z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_afilez00_1151); 
FAILURE(BgL_auxz00_2338,BFALSE,BFALSE);} 
BgL_arg1211z00_1157 = 
CAR(BgL_pairz00_1755); } 
BgL_fz00_1154 = 
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_8, BgL_arg1211z00_1157); } 
if(
PAIRP(BgL_fz00_1154))
{ /* Llib/module.scm 142 */
return BgL_fz00_1154;}  else 
{ /* Llib/module.scm 144 */
 obj_t BgL_arg1209z00_1156;
{ /* Llib/module.scm 144 */
 obj_t BgL_pairz00_1756;
if(
PAIRP(BgL_afilez00_1151))
{ /* Llib/module.scm 144 */
BgL_pairz00_1756 = BgL_afilez00_1151; }  else 
{ 
 obj_t BgL_auxz00_2348;
BgL_auxz00_2348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(5354L), BGl_string1863z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_afilez00_1151); 
FAILURE(BgL_auxz00_2348,BFALSE,BFALSE);} 
BgL_arg1209z00_1156 = 
CDR(BgL_pairz00_1756); } 
{ 
 obj_t BgL_afilez00_2353;
BgL_afilez00_2353 = BgL_arg1209z00_1156; 
BgL_afilez00_1151 = BgL_afilez00_2353; 
goto BgL_zc3z04anonymousza31206ze3z87_1152;} } } } } 

}



/* resolve-abase/bucket */
obj_t BGl_resolvezd2abasezf2bucketz20zz__modulez00(obj_t BgL_modz00_11, obj_t BgL_basez00_12)
{
{ /* Llib/module.scm 158 */
{ /* Llib/module.scm 159 */
 obj_t BgL_cellz00_1161;
{ /* Llib/module.scm 159 */
 obj_t BgL_auxz00_2354;
{ /* Llib/module.scm 159 */
 obj_t BgL_pairz00_1759;
if(
PAIRP(BgL_basez00_12))
{ /* Llib/module.scm 159 */
BgL_pairz00_1759 = BgL_basez00_12; }  else 
{ 
 obj_t BgL_auxz00_2357;
BgL_auxz00_2357 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6028L), BGl_string1865z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_basez00_12); 
FAILURE(BgL_auxz00_2357,BFALSE,BFALSE);} 
{ /* Llib/module.scm 159 */
 obj_t BgL_aux1775z00_2093;
BgL_aux1775z00_2093 = 
CDR(BgL_pairz00_1759); 
{ /* Llib/module.scm 159 */
 bool_t BgL_test1990z00_2362;
if(
PAIRP(BgL_aux1775z00_2093))
{ /* Llib/module.scm 159 */
BgL_test1990z00_2362 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 159 */
BgL_test1990z00_2362 = 
NULLP(BgL_aux1775z00_2093)
; } 
if(BgL_test1990z00_2362)
{ /* Llib/module.scm 159 */
BgL_auxz00_2354 = BgL_aux1775z00_2093
; }  else 
{ 
 obj_t BgL_auxz00_2366;
BgL_auxz00_2366 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6023L), BGl_string1865z00zz__modulez00, BGl_string1862z00zz__modulez00, BgL_aux1775z00_2093); 
FAILURE(BgL_auxz00_2366,BFALSE,BFALSE);} } } } 
BgL_cellz00_1161 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modz00_11, BgL_auxz00_2354); } 
if(
PAIRP(BgL_cellz00_1161))
{ /* Llib/module.scm 161 */
 obj_t BgL_hook1075z00_1163;
BgL_hook1075z00_1163 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ /* Llib/module.scm 161 */
 obj_t BgL_g1077z00_1164;
BgL_g1077z00_1164 = 
CDR(BgL_cellz00_1161); 
{ 
 obj_t BgL_l1072z00_1166; obj_t BgL_h1073z00_1167;
BgL_l1072z00_1166 = BgL_g1077z00_1164; 
BgL_h1073z00_1167 = BgL_hook1075z00_1163; 
BgL_zc3z04anonymousza31214ze3z87_1168:
if(
NULLP(BgL_l1072z00_1166))
{ /* Llib/module.scm 161 */
return 
CDR(BgL_hook1075z00_1163);}  else 
{ /* Llib/module.scm 161 */
 bool_t BgL_test1994z00_2378;
{ /* Llib/module.scm 161 */
 obj_t BgL_tmpz00_2379;
{ /* Llib/module.scm 161 */
 obj_t BgL_pairz00_1762;
if(
PAIRP(BgL_l1072z00_1166))
{ /* Llib/module.scm 161 */
BgL_pairz00_1762 = BgL_l1072z00_1166; }  else 
{ 
 obj_t BgL_auxz00_2382;
BgL_auxz00_2382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6079L), BGl_string1866z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1072z00_1166); 
FAILURE(BgL_auxz00_2382,BFALSE,BFALSE);} 
BgL_tmpz00_2379 = 
CAR(BgL_pairz00_1762); } 
BgL_test1994z00_2378 = 
STRINGP(BgL_tmpz00_2379); } 
if(BgL_test1994z00_2378)
{ /* Llib/module.scm 161 */
 obj_t BgL_nh1074z00_1172;
{ /* Llib/module.scm 161 */
 obj_t BgL_arg1220z00_1174;
{ /* Llib/module.scm 161 */
 obj_t BgL_pairz00_1763;
if(
PAIRP(BgL_l1072z00_1166))
{ /* Llib/module.scm 161 */
BgL_pairz00_1763 = BgL_l1072z00_1166; }  else 
{ 
 obj_t BgL_auxz00_2390;
BgL_auxz00_2390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6079L), BGl_string1866z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1072z00_1166); 
FAILURE(BgL_auxz00_2390,BFALSE,BFALSE);} 
BgL_arg1220z00_1174 = 
CAR(BgL_pairz00_1763); } 
BgL_nh1074z00_1172 = 
MAKE_YOUNG_PAIR(BgL_arg1220z00_1174, BNIL); } 
SET_CDR(BgL_h1073z00_1167, BgL_nh1074z00_1172); 
{ /* Llib/module.scm 161 */
 obj_t BgL_arg1219z00_1173;
{ /* Llib/module.scm 161 */
 obj_t BgL_pairz00_1765;
if(
PAIRP(BgL_l1072z00_1166))
{ /* Llib/module.scm 161 */
BgL_pairz00_1765 = BgL_l1072z00_1166; }  else 
{ 
 obj_t BgL_auxz00_2399;
BgL_auxz00_2399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6079L), BGl_string1866z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1072z00_1166); 
FAILURE(BgL_auxz00_2399,BFALSE,BFALSE);} 
BgL_arg1219z00_1173 = 
CDR(BgL_pairz00_1765); } 
{ 
 obj_t BgL_h1073z00_2405; obj_t BgL_l1072z00_2404;
BgL_l1072z00_2404 = BgL_arg1219z00_1173; 
BgL_h1073z00_2405 = BgL_nh1074z00_1172; 
BgL_h1073z00_1167 = BgL_h1073z00_2405; 
BgL_l1072z00_1166 = BgL_l1072z00_2404; 
goto BgL_zc3z04anonymousza31214ze3z87_1168;} } }  else 
{ /* Llib/module.scm 161 */
 obj_t BgL_arg1221z00_1175;
{ /* Llib/module.scm 161 */
 obj_t BgL_pairz00_1766;
if(
PAIRP(BgL_l1072z00_1166))
{ /* Llib/module.scm 161 */
BgL_pairz00_1766 = BgL_l1072z00_1166; }  else 
{ 
 obj_t BgL_auxz00_2408;
BgL_auxz00_2408 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6079L), BGl_string1866z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1072z00_1166); 
FAILURE(BgL_auxz00_2408,BFALSE,BFALSE);} 
BgL_arg1221z00_1175 = 
CDR(BgL_pairz00_1766); } 
{ 
 obj_t BgL_l1072z00_2413;
BgL_l1072z00_2413 = BgL_arg1221z00_1175; 
BgL_l1072z00_1166 = BgL_l1072z00_2413; 
goto BgL_zc3z04anonymousza31214ze3z87_1168;} } } } } }  else 
{ /* Llib/module.scm 162 */
 obj_t BgL_fz00_1178;
{ /* Llib/module.scm 162 */
 obj_t BgL_arg1225z00_1181;
{ /* Llib/module.scm 162 */
 obj_t BgL_arg1437z00_1768;
BgL_arg1437z00_1768 = 
SYMBOL_TO_STRING(BgL_modz00_11); 
BgL_arg1225z00_1181 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg1437z00_1768); } 
BgL_fz00_1178 = 
string_append(BgL_arg1225z00_1181, BGl_string1867z00zz__modulez00); } 
if(
fexists(
BSTRING_TO_STRING(BgL_fz00_1178)))
{ /* Llib/module.scm 164 */
 obj_t BgL_list1224z00_1180;
BgL_list1224z00_1180 = 
MAKE_YOUNG_PAIR(BgL_fz00_1178, BNIL); 
return BgL_list1224z00_1180;}  else 
{ /* Llib/module.scm 163 */
return BNIL;} } } } 

}



/* module-add-access-inner! */
obj_t BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(obj_t BgL_modulez00_13, obj_t BgL_filesz00_14, obj_t BgL_abasez00_15)
{
{ /* Llib/module.scm 170 */
{ /* Llib/module.scm 171 */
 obj_t BgL_basez00_1183;
BgL_basez00_1183 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_abasez00_15, BGl_afilezd2tablezd2zz__modulez00); 
if(
CBOOL(BgL_basez00_1183))
{ /* Llib/module.scm 175 */
 obj_t BgL_cellz00_1184;
{ /* Llib/module.scm 175 */
 obj_t BgL_auxz00_2424;
{ /* Llib/module.scm 175 */
 obj_t BgL_pairz00_1771;
if(
PAIRP(BgL_basez00_1183))
{ /* Llib/module.scm 175 */
BgL_pairz00_1771 = BgL_basez00_1183; }  else 
{ 
 obj_t BgL_auxz00_2427;
BgL_auxz00_2427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6657L), BGl_string1868z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_basez00_1183); 
FAILURE(BgL_auxz00_2427,BFALSE,BFALSE);} 
{ /* Llib/module.scm 175 */
 obj_t BgL_aux1787z00_2105;
BgL_aux1787z00_2105 = 
CDR(BgL_pairz00_1771); 
{ /* Llib/module.scm 175 */
 bool_t BgL_test2002z00_2432;
if(
PAIRP(BgL_aux1787z00_2105))
{ /* Llib/module.scm 175 */
BgL_test2002z00_2432 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 175 */
BgL_test2002z00_2432 = 
NULLP(BgL_aux1787z00_2105)
; } 
if(BgL_test2002z00_2432)
{ /* Llib/module.scm 175 */
BgL_auxz00_2424 = BgL_aux1787z00_2105
; }  else 
{ 
 obj_t BgL_auxz00_2436;
BgL_auxz00_2436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6652L), BGl_string1868z00zz__modulez00, BGl_string1862z00zz__modulez00, BgL_aux1787z00_2105); 
FAILURE(BgL_auxz00_2436,BFALSE,BFALSE);} } } } 
BgL_cellz00_1184 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modulez00_13, BgL_auxz00_2424); } 
if(
CBOOL(BgL_cellz00_1184))
{ /* Llib/module.scm 178 */
 bool_t BgL_test2005z00_2443;
{ /* Llib/module.scm 178 */
 obj_t BgL_auxz00_2444;
{ /* Llib/module.scm 178 */
 obj_t BgL_pairz00_1772;
if(
PAIRP(BgL_cellz00_1184))
{ /* Llib/module.scm 178 */
BgL_pairz00_1772 = BgL_cellz00_1184; }  else 
{ 
 obj_t BgL_auxz00_2447;
BgL_auxz00_2447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6768L), BGl_string1868z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_cellz00_1184); 
FAILURE(BgL_auxz00_2447,BFALSE,BFALSE);} 
BgL_auxz00_2444 = 
CDR(BgL_pairz00_1772); } 
BgL_test2005z00_2443 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2444, BgL_filesz00_14); } 
if(BgL_test2005z00_2443)
{ /* Llib/module.scm 178 */
return BFALSE;}  else 
{ /* Llib/module.scm 178 */
{ /* Llib/module.scm 181 */
 obj_t BgL_arg1232z00_1187;
{ /* Llib/module.scm 181 */
 obj_t BgL_pairz00_1773;
if(
PAIRP(BgL_cellz00_1184))
{ /* Llib/module.scm 181 */
BgL_pairz00_1773 = BgL_cellz00_1184; }  else 
{ 
 obj_t BgL_auxz00_2455;
BgL_auxz00_2455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6869L), BGl_string1868z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_cellz00_1184); 
FAILURE(BgL_auxz00_2455,BFALSE,BFALSE);} 
BgL_arg1232z00_1187 = 
CDR(BgL_pairz00_1773); } 
{ /* Llib/module.scm 179 */
 obj_t BgL_list1233z00_1188;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1234z00_1189;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1237z00_1190;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1240z00_1191;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1241z00_1192;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1242z00_1193;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1244z00_1194;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1246z00_1195;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1247z00_1196;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1248z00_1197;
BgL_arg1248z00_1197 = 
MAKE_YOUNG_PAIR(BGl_string1869z00zz__modulez00, BNIL); 
BgL_arg1247z00_1196 = 
MAKE_YOUNG_PAIR(BgL_abasez00_15, BgL_arg1248z00_1197); } 
BgL_arg1246z00_1195 = 
MAKE_YOUNG_PAIR(BGl_string1870z00zz__modulez00, BgL_arg1247z00_1196); } 
BgL_arg1244z00_1194 = 
MAKE_YOUNG_PAIR(BgL_filesz00_14, BgL_arg1246z00_1195); } 
BgL_arg1242z00_1193 = 
MAKE_YOUNG_PAIR(BGl_string1871z00zz__modulez00, BgL_arg1244z00_1194); } 
BgL_arg1241z00_1192 = 
MAKE_YOUNG_PAIR(BgL_arg1232z00_1187, BgL_arg1242z00_1193); } 
BgL_arg1240z00_1191 = 
MAKE_YOUNG_PAIR(BGl_string1872z00zz__modulez00, BgL_arg1241z00_1192); } 
BgL_arg1237z00_1190 = 
MAKE_YOUNG_PAIR(BgL_modulez00_13, BgL_arg1240z00_1191); } 
BgL_arg1234z00_1189 = 
MAKE_YOUNG_PAIR(BGl_string1873z00zz__modulez00, BgL_arg1237z00_1190); } 
BgL_list1233z00_1188 = 
MAKE_YOUNG_PAIR(BGl_string1874z00zz__modulez00, BgL_arg1234z00_1189); } 
BGl_warningz00zz__errorz00(BgL_list1233z00_1188); } } 
return BGl_list1875z00zz__modulez00;} }  else 
{ /* Llib/module.scm 177 */
 obj_t BgL_arg1250z00_1199;
{ /* Llib/module.scm 177 */
 obj_t BgL_arg1252z00_1200; obj_t BgL_arg1253z00_1201;
BgL_arg1252z00_1200 = 
MAKE_YOUNG_PAIR(BgL_modulez00_13, BgL_filesz00_14); 
{ /* Llib/module.scm 177 */
 obj_t BgL_pairz00_1774;
if(
PAIRP(BgL_basez00_1183))
{ /* Llib/module.scm 177 */
BgL_pairz00_1774 = BgL_basez00_1183; }  else 
{ 
 obj_t BgL_auxz00_2474;
BgL_auxz00_2474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6736L), BGl_string1868z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_basez00_1183); 
FAILURE(BgL_auxz00_2474,BFALSE,BFALSE);} 
BgL_arg1253z00_1201 = 
CDR(BgL_pairz00_1774); } 
BgL_arg1250z00_1199 = 
MAKE_YOUNG_PAIR(BgL_arg1252z00_1200, BgL_arg1253z00_1201); } 
{ /* Llib/module.scm 177 */
 obj_t BgL_pairz00_1775;
if(
PAIRP(BgL_basez00_1183))
{ /* Llib/module.scm 177 */
BgL_pairz00_1775 = BgL_basez00_1183; }  else 
{ 
 obj_t BgL_auxz00_2482;
BgL_auxz00_2482 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(6700L), BGl_string1868z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_basez00_1183); 
FAILURE(BgL_auxz00_2482,BFALSE,BFALSE);} 
return 
SET_CDR(BgL_pairz00_1775, BgL_arg1250z00_1199);} } }  else 
{ /* Llib/module.scm 174 */
 obj_t BgL_arg1256z00_1203;
{ /* Llib/module.scm 174 */
 obj_t BgL_arg1257z00_1204;
{ /* Llib/module.scm 174 */
 obj_t BgL_arg1259z00_1205;
BgL_arg1259z00_1205 = 
MAKE_YOUNG_PAIR(BgL_modulez00_13, BgL_filesz00_14); 
{ /* Llib/module.scm 174 */
 obj_t BgL_list1260z00_1206;
BgL_list1260z00_1206 = 
MAKE_YOUNG_PAIR(BgL_arg1259z00_1205, BNIL); 
BgL_arg1257z00_1204 = BgL_list1260z00_1206; } } 
BgL_arg1256z00_1203 = 
MAKE_YOUNG_PAIR(BgL_abasez00_15, BgL_arg1257z00_1204); } 
return ( 
BGl_afilezd2tablezd2zz__modulez00 = 
MAKE_YOUNG_PAIR(BgL_arg1256z00_1203, BGl_afilezd2tablezd2zz__modulez00), BUNSPEC) ;} } } 

}



/* module-add-access! */
BGL_EXPORTED_DEF obj_t BGl_modulezd2addzd2accessz12z12zz__modulez00(obj_t BgL_modulez00_16, obj_t BgL_filesz00_17, obj_t BgL_abasez00_18)
{
{ /* Llib/module.scm 189 */
{ 
 obj_t BgL_fz00_1223; obj_t BgL_basez00_1224;
{ /* Llib/module.scm 197 */
 obj_t BgL_top2011z00_2492;
BgL_top2011z00_2492 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top2011z00_2492, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 197 */
 obj_t BgL_tmp2010z00_2491;
{ /* Llib/module.scm 199 */
 obj_t BgL_arg1265z00_1208;
{ /* Llib/module.scm 199 */
 obj_t BgL_head1080z00_1211;
BgL_head1080z00_1211 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1078z00_1213; obj_t BgL_tail1081z00_1214;
BgL_l1078z00_1213 = BgL_filesz00_17; 
BgL_tail1081z00_1214 = BgL_head1080z00_1211; 
BgL_zc3z04anonymousza31267ze3z87_1215:
if(
PAIRP(BgL_l1078z00_1213))
{ /* Llib/module.scm 199 */
 obj_t BgL_newtail1082z00_1217;
{ /* Llib/module.scm 199 */
 obj_t BgL_tmpz00_2499;
BgL_fz00_1223 = 
CAR(BgL_l1078z00_1213); 
BgL_basez00_1224 = BgL_abasez00_18; 
{ /* Llib/module.scm 192 */
 bool_t BgL_test2013z00_2500;
{ /* Llib/module.scm 192 */
 bool_t BgL_test2014z00_2501;
{ /* Llib/module.scm 192 */
 long BgL_tmpz00_2502;
{ /* Llib/module.scm 192 */
 obj_t BgL_stringz00_1777;
if(
STRINGP(BgL_fz00_1223))
{ /* Llib/module.scm 192 */
BgL_stringz00_1777 = BgL_fz00_1223; }  else 
{ 
 obj_t BgL_auxz00_2505;
BgL_auxz00_2505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7334L), BGl_string1882z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_fz00_1223); 
FAILURE(BgL_auxz00_2505,BFALSE,BFALSE);} 
BgL_tmpz00_2502 = 
STRING_LENGTH(BgL_stringz00_1777); } 
BgL_test2014z00_2501 = 
(BgL_tmpz00_2502>0L); } 
if(BgL_test2014z00_2501)
{ /* Llib/module.scm 193 */
 unsigned char BgL_char2z00_1781;
BgL_char2z00_1781 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Llib/module.scm 193 */
 unsigned char BgL_tmpz00_2512;
{ /* Llib/module.scm 193 */
 obj_t BgL_stringz00_1779;
if(
STRINGP(BgL_fz00_1223))
{ /* Llib/module.scm 193 */
BgL_stringz00_1779 = BgL_fz00_1223; }  else 
{ 
 obj_t BgL_auxz00_2515;
BgL_auxz00_2515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7383L), BGl_string1882z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_fz00_1223); 
FAILURE(BgL_auxz00_2515,BFALSE,BFALSE);} 
{ /* Llib/module.scm 193 */
 long BgL_l1752z00_2069;
BgL_l1752z00_2069 = 
STRING_LENGTH(BgL_stringz00_1779); 
if(
BOUND_CHECK(0L, BgL_l1752z00_2069))
{ /* Llib/module.scm 193 */
BgL_tmpz00_2512 = 
STRING_REF(BgL_stringz00_1779, 0L)
; }  else 
{ 
 obj_t BgL_auxz00_2523;
BgL_auxz00_2523 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7371L), BGl_string1883z00zz__modulez00, BgL_stringz00_1779, 
(int)(BgL_l1752z00_2069), 
(int)(0L)); 
FAILURE(BgL_auxz00_2523,BFALSE,BFALSE);} } } 
BgL_test2013z00_2500 = 
(BgL_tmpz00_2512==BgL_char2z00_1781); } }  else 
{ /* Llib/module.scm 192 */
BgL_test2013z00_2500 = ((bool_t)0)
; } } 
if(BgL_test2013z00_2500)
{ /* Llib/module.scm 192 */
BgL_tmpz00_2499 = BgL_fz00_1223
; }  else 
{ /* Llib/module.scm 195 */
 obj_t BgL_arg1284z00_1231;
{ /* Llib/module.scm 195 */
 obj_t BgL_auxz00_2530;
if(
STRINGP(BgL_fz00_1223))
{ /* Llib/module.scm 195 */
BgL_auxz00_2530 = BgL_fz00_1223
; }  else 
{ 
 obj_t BgL_auxz00_2533;
BgL_auxz00_2533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7466L), BGl_string1882z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_fz00_1223); 
FAILURE(BgL_auxz00_2533,BFALSE,BFALSE);} 
BgL_arg1284z00_1231 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_1224, BgL_auxz00_2530); } 
BgL_tmpz00_2499 = 
BGl_filezd2namezd2canonicaliza7eza7zz__osz00(BgL_arg1284z00_1231); } } 
BgL_newtail1082z00_1217 = 
MAKE_YOUNG_PAIR(BgL_tmpz00_2499, BNIL); } 
SET_CDR(BgL_tail1081z00_1214, BgL_newtail1082z00_1217); 
{ 
 obj_t BgL_tail1081z00_2544; obj_t BgL_l1078z00_2542;
BgL_l1078z00_2542 = 
CDR(BgL_l1078z00_1213); 
BgL_tail1081z00_2544 = BgL_newtail1082z00_1217; 
BgL_tail1081z00_1214 = BgL_tail1081z00_2544; 
BgL_l1078z00_1213 = BgL_l1078z00_2542; 
goto BgL_zc3z04anonymousza31267ze3z87_1215;} }  else 
{ /* Llib/module.scm 199 */
if(
NULLP(BgL_l1078z00_1213))
{ /* Llib/module.scm 199 */
BgL_arg1265z00_1208 = 
CDR(BgL_head1080z00_1211); }  else 
{ /* Llib/module.scm 199 */
BgL_arg1265z00_1208 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1884z00zz__modulez00, BGl_string1885z00zz__modulez00, BgL_l1078z00_1213, BGl_string1840z00zz__modulez00, 
BINT(7547L)); } } } } 
BgL_tmp2010z00_2491 = 
BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(BgL_modulez00_16, BgL_arg1265z00_1208, BgL_abasez00_18); } 
BGL_EXITD_POP_PROTECT(BgL_top2011z00_2492); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp2010z00_2491;} } } } 

}



/* &module-add-access! */
obj_t BGl_z62modulezd2addzd2accessz12z70zz__modulez00(obj_t BgL_envz00_2054, obj_t BgL_modulez00_2055, obj_t BgL_filesz00_2056, obj_t BgL_abasez00_2057)
{
{ /* Llib/module.scm 189 */
{ /* Llib/module.scm 192 */
 obj_t BgL_auxz00_2567; obj_t BgL_auxz00_2560; obj_t BgL_auxz00_2553;
if(
STRINGP(BgL_abasez00_2057))
{ /* Llib/module.scm 192 */
BgL_auxz00_2567 = BgL_abasez00_2057
; }  else 
{ 
 obj_t BgL_auxz00_2570;
BgL_auxz00_2570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7320L), BGl_string1886z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_abasez00_2057); 
FAILURE(BgL_auxz00_2570,BFALSE,BFALSE);} 
if(
PAIRP(BgL_filesz00_2056))
{ /* Llib/module.scm 192 */
BgL_auxz00_2560 = BgL_filesz00_2056
; }  else 
{ 
 obj_t BgL_auxz00_2563;
BgL_auxz00_2563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7320L), BGl_string1886z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_filesz00_2056); 
FAILURE(BgL_auxz00_2563,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_modulez00_2055))
{ /* Llib/module.scm 192 */
BgL_auxz00_2553 = BgL_modulez00_2055
; }  else 
{ 
 obj_t BgL_auxz00_2556;
BgL_auxz00_2556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7320L), BGl_string1886z00zz__modulez00, BGl_string1861z00zz__modulez00, BgL_modulez00_2055); 
FAILURE(BgL_auxz00_2556,BFALSE,BFALSE);} 
return 
BGl_modulezd2addzd2accessz12z12zz__modulez00(BgL_auxz00_2553, BgL_auxz00_2560, BgL_auxz00_2567);} } 

}



/* module-read-access-file */
obj_t BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(obj_t BgL_portz00_19)
{
{ /* Llib/module.scm 205 */
{ /* Llib/module.scm 206 */
 obj_t BgL_hook1087z00_1236;
BgL_hook1087z00_1236 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ /* Llib/module.scm 212 */
 obj_t BgL_g1089z00_1237;
{ /* Llib/module.scm 212 */

{ /* Llib/module.scm 212 */
 obj_t BgL_iportz00_1272;
if(
INPUT_PORTP(BgL_portz00_19))
{ /* Llib/module.scm 212 */
BgL_iportz00_1272 = BgL_portz00_19; }  else 
{ 
 obj_t BgL_auxz00_2578;
BgL_auxz00_2578 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8048L), BGl_string1887z00zz__modulez00, BGl_string1888z00zz__modulez00, BgL_portz00_19); 
FAILURE(BgL_auxz00_2578,BFALSE,BFALSE);} 
{ /* Llib/module.scm 212 */

BgL_g1089z00_1237 = 
BGl_readz00zz__readerz00(BgL_iportz00_1272, BFALSE); } } } 
{ 
 obj_t BgL_l1084z00_1239; obj_t BgL_h1085z00_1240;
BgL_l1084z00_1239 = BgL_g1089z00_1237; 
BgL_h1085z00_1240 = BgL_hook1087z00_1236; 
BgL_zc3z04anonymousza31288ze3z87_1241:
if(
NULLP(BgL_l1084z00_1239))
{ /* Llib/module.scm 212 */
return 
CDR(BgL_hook1087z00_1236);}  else 
{ /* Llib/module.scm 212 */
 bool_t BgL_test2025z00_2586;
{ /* Llib/module.scm 207 */
 obj_t BgL_xz00_1262;
{ /* Llib/module.scm 207 */
 obj_t BgL_pairz00_1787;
if(
PAIRP(BgL_l1084z00_1239))
{ /* Llib/module.scm 207 */
BgL_pairz00_1787 = BgL_l1084z00_1239; }  else 
{ 
 obj_t BgL_auxz00_2589;
BgL_auxz00_2589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(7894L), BGl_string1889z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1084z00_1239); 
FAILURE(BgL_auxz00_2589,BFALSE,BFALSE);} 
BgL_xz00_1262 = 
CAR(BgL_pairz00_1787); } 
{ /* Llib/module.scm 207 */
 bool_t BgL_test2027z00_2594;
if(
PAIRP(BgL_xz00_1262))
{ /* Llib/module.scm 207 */
 bool_t BgL_test2029z00_2597;
{ /* Llib/module.scm 207 */
 obj_t BgL_tmpz00_2598;
BgL_tmpz00_2598 = 
CAR(BgL_xz00_1262); 
BgL_test2029z00_2597 = 
SYMBOLP(BgL_tmpz00_2598); } 
if(BgL_test2029z00_2597)
{ /* Llib/module.scm 207 */
BgL_test2027z00_2594 = 
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_xz00_1262))
; }  else 
{ /* Llib/module.scm 207 */
BgL_test2027z00_2594 = ((bool_t)0)
; } }  else 
{ /* Llib/module.scm 207 */
BgL_test2027z00_2594 = ((bool_t)0)
; } 
if(BgL_test2027z00_2594)
{ /* Llib/module.scm 207 */
BgL_test2025z00_2586 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 207 */
{ /* Llib/module.scm 210 */
 obj_t BgL_list1336z00_1264;
{ /* Llib/module.scm 210 */
 obj_t BgL_arg1337z00_1265;
{ /* Llib/module.scm 210 */
 obj_t BgL_arg1338z00_1266;
BgL_arg1338z00_1266 = 
MAKE_YOUNG_PAIR(BgL_xz00_1262, BNIL); 
BgL_arg1337z00_1265 = 
MAKE_YOUNG_PAIR(BGl_string1890z00zz__modulez00, BgL_arg1338z00_1266); } 
BgL_list1336z00_1264 = 
MAKE_YOUNG_PAIR(BGl_string1887z00zz__modulez00, BgL_arg1337z00_1265); } 
BGl_warningz00zz__errorz00(BgL_list1336z00_1264); } 
BgL_test2025z00_2586 = ((bool_t)0); } } } 
if(BgL_test2025z00_2586)
{ /* Llib/module.scm 212 */
 obj_t BgL_nh1086z00_1258;
{ /* Llib/module.scm 212 */
 obj_t BgL_arg1334z00_1260;
{ /* Llib/module.scm 212 */
 obj_t BgL_pairz00_1790;
if(
PAIRP(BgL_l1084z00_1239))
{ /* Llib/module.scm 212 */
BgL_pairz00_1790 = BgL_l1084z00_1239; }  else 
{ 
 obj_t BgL_auxz00_2609;
BgL_auxz00_2609 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8048L), BGl_string1889z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1084z00_1239); 
FAILURE(BgL_auxz00_2609,BFALSE,BFALSE);} 
BgL_arg1334z00_1260 = 
CAR(BgL_pairz00_1790); } 
BgL_nh1086z00_1258 = 
MAKE_YOUNG_PAIR(BgL_arg1334z00_1260, BNIL); } 
SET_CDR(BgL_h1085z00_1240, BgL_nh1086z00_1258); 
{ /* Llib/module.scm 212 */
 obj_t BgL_arg1333z00_1259;
{ /* Llib/module.scm 212 */
 obj_t BgL_pairz00_1792;
if(
PAIRP(BgL_l1084z00_1239))
{ /* Llib/module.scm 212 */
BgL_pairz00_1792 = BgL_l1084z00_1239; }  else 
{ 
 obj_t BgL_auxz00_2618;
BgL_auxz00_2618 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8048L), BGl_string1889z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1084z00_1239); 
FAILURE(BgL_auxz00_2618,BFALSE,BFALSE);} 
BgL_arg1333z00_1259 = 
CDR(BgL_pairz00_1792); } 
{ 
 obj_t BgL_h1085z00_2624; obj_t BgL_l1084z00_2623;
BgL_l1084z00_2623 = BgL_arg1333z00_1259; 
BgL_h1085z00_2624 = BgL_nh1086z00_1258; 
BgL_h1085z00_1240 = BgL_h1085z00_2624; 
BgL_l1084z00_1239 = BgL_l1084z00_2623; 
goto BgL_zc3z04anonymousza31288ze3z87_1241;} } }  else 
{ /* Llib/module.scm 212 */
 obj_t BgL_arg1335z00_1261;
{ /* Llib/module.scm 212 */
 obj_t BgL_pairz00_1793;
if(
PAIRP(BgL_l1084z00_1239))
{ /* Llib/module.scm 212 */
BgL_pairz00_1793 = BgL_l1084z00_1239; }  else 
{ 
 obj_t BgL_auxz00_2627;
BgL_auxz00_2627 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8048L), BGl_string1889z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1084z00_1239); 
FAILURE(BgL_auxz00_2627,BFALSE,BFALSE);} 
BgL_arg1335z00_1261 = 
CDR(BgL_pairz00_1793); } 
{ 
 obj_t BgL_l1084z00_2632;
BgL_l1084z00_2632 = BgL_arg1335z00_1261; 
BgL_l1084z00_1239 = BgL_l1084z00_2632; 
goto BgL_zc3z04anonymousza31288ze3z87_1241;} } } } } } } 

}



/* module-load-access-file */
BGL_EXPORTED_DEF obj_t BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(obj_t BgL_pathz00_20)
{
{ /* Llib/module.scm 223 */
{ 
 obj_t BgL_filez00_1301; obj_t BgL_dirz00_1302; obj_t BgL_abasez00_1303;
{ /* Llib/module.scm 246 */
 obj_t BgL_pathz00_1276;
BgL_pathz00_1276 = 
BGl_filezd2namezd2canonicaliza7eza7zz__osz00(BgL_pathz00_20); 
{ /* Llib/module.scm 247 */
 obj_t BgL_top2034z00_2635;
BgL_top2034z00_2635 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top2034z00_2635, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 247 */
 obj_t BgL_tmp2033z00_2634;
{ /* Llib/module.scm 248 */
 obj_t BgL__ortest_1039z00_1277;
{ /* Llib/module.scm 248 */
 obj_t BgL_auxz00_2639;
{ /* Llib/module.scm 248 */
 obj_t BgL_aux1819z00_2137;
BgL_aux1819z00_2137 = BGl_za2afileszd2tableza2zd2zz__modulez00; 
if(
STRUCTP(BgL_aux1819z00_2137))
{ /* Llib/module.scm 248 */
BgL_auxz00_2639 = BgL_aux1819z00_2137
; }  else 
{ 
 obj_t BgL_auxz00_2642;
BgL_auxz00_2642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9338L), BGl_string1891z00zz__modulez00, BGl_string1892z00zz__modulez00, BgL_aux1819z00_2137); 
FAILURE(BgL_auxz00_2642,BFALSE,BFALSE);} } 
BgL__ortest_1039z00_1277 = 
BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_2639, BgL_pathz00_1276); } 
if(
CBOOL(BgL__ortest_1039z00_1277))
{ /* Llib/module.scm 248 */
BgL_tmp2033z00_2634 = BgL__ortest_1039z00_1277; }  else 
{ /* Llib/module.scm 248 */
if(
bgl_directoryp(
BSTRING_TO_STRING(BgL_pathz00_1276)))
{ 
 obj_t BgL_dz00_1280;
BgL_dz00_1280 = BgL_pathz00_1276; 
BgL_zc3z04anonymousza31343ze3z87_1281:
{ /* Llib/module.scm 252 */
 obj_t BgL_filez00_1282;
BgL_filez00_1282 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_dz00_1280, BGl_string1893z00zz__modulez00); 
if(
fexists(
BSTRING_TO_STRING(BgL_filez00_1282)))
{ /* Llib/module.scm 253 */
BgL_filez00_1301 = BgL_filez00_1282; 
BgL_dirz00_1302 = BgL_dz00_1280; 
BgL_abasez00_1303 = BgL_pathz00_1276; 
BgL_zc3z04anonymousza31358ze3z87_1304:
{ /* Llib/module.scm 234 */
 obj_t BgL_zc3z04anonymousza31360ze3z87_2058;
BgL_zc3z04anonymousza31360ze3z87_2058 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31360ze3ze5zz__modulez00, 
(int)(1L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2058, 
(int)(0L), BgL_pathz00_20); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2058, 
(int)(1L), BgL_filez00_1301); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2058, 
(int)(2L), BgL_dirz00_1302); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2058, 
(int)(3L), BgL_abasez00_1303); 
BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(BgL_filez00_1301, BgL_zc3z04anonymousza31360ze3z87_2058); } 
BgL_tmp2033z00_2634 = BgL_filez00_1301; }  else 
{ /* Llib/module.scm 255 */
 obj_t BgL_parentz00_1284;
BgL_parentz00_1284 = 
BGl_dirnamez00zz__osz00(BgL_dz00_1280); 
{ /* Llib/module.scm 256 */
 bool_t BgL_test2039z00_2669;
{ /* Llib/module.scm 256 */
 long BgL_l1z00_1831;
BgL_l1z00_1831 = 
STRING_LENGTH(BgL_parentz00_1284); 
if(
(BgL_l1z00_1831==
STRING_LENGTH(BgL_dz00_1280)))
{ /* Llib/module.scm 256 */
 int BgL_arg1430z00_1834;
{ /* Llib/module.scm 256 */
 char * BgL_auxz00_2676; char * BgL_tmpz00_2674;
BgL_auxz00_2676 = 
BSTRING_TO_STRING(BgL_dz00_1280); 
BgL_tmpz00_2674 = 
BSTRING_TO_STRING(BgL_parentz00_1284); 
BgL_arg1430z00_1834 = 
memcmp(BgL_tmpz00_2674, BgL_auxz00_2676, BgL_l1z00_1831); } 
BgL_test2039z00_2669 = 
(
(long)(BgL_arg1430z00_1834)==0L); }  else 
{ /* Llib/module.scm 256 */
BgL_test2039z00_2669 = ((bool_t)0)
; } } 
if(BgL_test2039z00_2669)
{ /* Llib/module.scm 256 */
BgL_tmp2033z00_2634 = BFALSE; }  else 
{ 
 obj_t BgL_dz00_2681;
BgL_dz00_2681 = BgL_parentz00_1284; 
BgL_dz00_1280 = BgL_dz00_2681; 
goto BgL_zc3z04anonymousza31343ze3z87_1281;} } } } }  else 
{ /* Llib/module.scm 250 */
if(
fexists(
BSTRING_TO_STRING(BgL_pathz00_1276)))
{ /* Llib/module.scm 259 */
 obj_t BgL_dirz00_1288;
BgL_dirz00_1288 = 
BGl_dirnamez00zz__osz00(BgL_pathz00_1276); 
{ 
 obj_t BgL_abasez00_2688; obj_t BgL_dirz00_2687; obj_t BgL_filez00_2686;
BgL_filez00_2686 = BgL_pathz00_1276; 
BgL_dirz00_2687 = BgL_dirz00_1288; 
BgL_abasez00_2688 = BgL_dirz00_1288; 
BgL_abasez00_1303 = BgL_abasez00_2688; 
BgL_dirz00_1302 = BgL_dirz00_2687; 
BgL_filez00_1301 = BgL_filez00_2686; 
goto BgL_zc3z04anonymousza31358ze3z87_1304;} }  else 
{ /* Llib/module.scm 258 */
BgL_tmp2033z00_2634 = BFALSE; } } } } 
BGL_EXITD_POP_PROTECT(BgL_top2034z00_2635); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp2033z00_2634;} } } } } 

}



/* &module-load-access-file */
obj_t BGl_z62modulezd2loadzd2accesszd2filezb0zz__modulez00(obj_t BgL_envz00_2059, obj_t BgL_pathz00_2060)
{
{ /* Llib/module.scm 223 */
{ /* Llib/module.scm 227 */
 obj_t BgL_auxz00_2691;
if(
STRINGP(BgL_pathz00_2060))
{ /* Llib/module.scm 227 */
BgL_auxz00_2691 = BgL_pathz00_2060
; }  else 
{ 
 obj_t BgL_auxz00_2694;
BgL_auxz00_2694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8648L), BGl_string1894z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_pathz00_2060); 
FAILURE(BgL_auxz00_2694,BFALSE,BFALSE);} 
return 
BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(BgL_auxz00_2691);} } 

}



/* &<@anonymous:1360> */
obj_t BGl_z62zc3z04anonymousza31360ze3ze5zz__modulez00(obj_t BgL_envz00_2061, obj_t BgL_portz00_2066)
{
{ /* Llib/module.scm 233 */
{ /* Llib/module.scm 234 */
 obj_t BgL_pathz00_2062; obj_t BgL_filez00_2063; obj_t BgL_dirz00_2064; obj_t BgL_abasez00_2065;
BgL_pathz00_2062 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2061, 
(int)(0L))); 
BgL_filez00_2063 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2061, 
(int)(1L))); 
BgL_dirz00_2064 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2061, 
(int)(2L))); 
BgL_abasez00_2065 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2061, 
(int)(3L))); 
{ 
 obj_t BgL_fz00_2170; obj_t BgL_abasez00_2171;
{ /* Llib/module.scm 234 */
 obj_t BgL_auxz00_2711;
{ /* Llib/module.scm 234 */
 obj_t BgL_aux1825z00_2177;
BgL_aux1825z00_2177 = BGl_za2afileszd2tableza2zd2zz__modulez00; 
if(
STRUCTP(BgL_aux1825z00_2177))
{ /* Llib/module.scm 234 */
BgL_auxz00_2711 = BgL_aux1825z00_2177
; }  else 
{ 
 obj_t BgL_auxz00_2714;
BgL_auxz00_2714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8915L), BGl_string1897z00zz__modulez00, BGl_string1892z00zz__modulez00, BgL_aux1825z00_2177); 
FAILURE(BgL_auxz00_2714,BFALSE,BFALSE);} } 
BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_2711, BgL_pathz00_2062, BgL_filez00_2063); } 
{ /* Llib/module.scm 235 */
 obj_t BgL_g1095z00_2178;
BgL_g1095z00_2178 = 
BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(BgL_portz00_2066); 
{ 
 obj_t BgL_l1093z00_2180;
BgL_l1093z00_2180 = BgL_g1095z00_2178; 
BgL_zc3z04anonymousza31361ze3z87_2179:
if(
PAIRP(BgL_l1093z00_2180))
{ /* Llib/module.scm 243 */
{ /* Llib/module.scm 236 */
 obj_t BgL_accessz00_2181;
BgL_accessz00_2181 = 
CAR(BgL_l1093z00_2180); 
{ /* Llib/module.scm 236 */
 obj_t BgL_infoz00_2182;
{ /* Llib/module.scm 236 */
 bool_t BgL_test2045z00_2723;
{ /* Llib/module.scm 236 */
 long BgL_l1z00_2183;
BgL_l1z00_2183 = 
STRING_LENGTH(BgL_dirz00_2064); 
if(
(BgL_l1z00_2183==1L))
{ /* Llib/module.scm 236 */
 int BgL_arg1430z00_2184;
{ /* Llib/module.scm 236 */
 char * BgL_auxz00_2729; char * BgL_tmpz00_2727;
BgL_auxz00_2729 = 
BSTRING_TO_STRING(BGl_string1857z00zz__modulez00); 
BgL_tmpz00_2727 = 
BSTRING_TO_STRING(BgL_dirz00_2064); 
BgL_arg1430z00_2184 = 
memcmp(BgL_tmpz00_2727, BgL_auxz00_2729, BgL_l1z00_2183); } 
BgL_test2045z00_2723 = 
(
(long)(BgL_arg1430z00_2184)==0L); }  else 
{ /* Llib/module.scm 236 */
BgL_test2045z00_2723 = ((bool_t)0)
; } } 
if(BgL_test2045z00_2723)
{ /* Llib/module.scm 237 */
 obj_t BgL_pairz00_2185;
if(
PAIRP(BgL_accessz00_2181))
{ /* Llib/module.scm 237 */
BgL_pairz00_2185 = BgL_accessz00_2181; }  else 
{ 
 obj_t BgL_auxz00_2736;
BgL_auxz00_2736 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9023L), BGl_string1898z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_accessz00_2181); 
FAILURE(BgL_auxz00_2736,BFALSE,BFALSE);} 
BgL_infoz00_2182 = 
CDR(BgL_pairz00_2185); }  else 
{ /* Llib/module.scm 238 */
 obj_t BgL_l01092z00_2186;
{ /* Llib/module.scm 240 */
 obj_t BgL_pairz00_2187;
if(
PAIRP(BgL_accessz00_2181))
{ /* Llib/module.scm 240 */
BgL_pairz00_2187 = BgL_accessz00_2181; }  else 
{ 
 obj_t BgL_auxz00_2743;
BgL_auxz00_2743 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9100L), BGl_string1898z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_accessz00_2181); 
FAILURE(BgL_auxz00_2743,BFALSE,BFALSE);} 
BgL_l01092z00_2186 = 
CDR(BgL_pairz00_2187); } 
{ 
 obj_t BgL_l1091z00_2189;
BgL_l1091z00_2189 = BgL_l01092z00_2186; 
BgL_zc3z04anonymousza31365ze3z87_2188:
if(
NULLP(BgL_l1091z00_2189))
{ /* Llib/module.scm 240 */
BgL_infoz00_2182 = BgL_l01092z00_2186; }  else 
{ /* Llib/module.scm 240 */
{ /* Llib/module.scm 239 */
 obj_t BgL_arg1367z00_2190;
{ /* Llib/module.scm 239 */
 obj_t BgL_fz00_2191;
{ /* Llib/module.scm 239 */
 obj_t BgL_pairz00_2192;
if(
PAIRP(BgL_l1091z00_2189))
{ /* Llib/module.scm 239 */
BgL_pairz00_2192 = BgL_l1091z00_2189; }  else 
{ 
 obj_t BgL_auxz00_2752;
BgL_auxz00_2752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9063L), BGl_string1899z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1091z00_2189); 
FAILURE(BgL_auxz00_2752,BFALSE,BFALSE);} 
BgL_fz00_2191 = 
CAR(BgL_pairz00_2192); } 
BgL_fz00_2170 = BgL_fz00_2191; 
BgL_abasez00_2171 = BgL_dirz00_2064; 
if(
STRINGP(BgL_fz00_2170))
{ /* Llib/module.scm 228 */
 bool_t BgL_test2052z00_2759;
{ /* Llib/module.scm 228 */
 bool_t BgL_test2053z00_2760;
{ /* Llib/module.scm 228 */
 long BgL_l1z00_2172;
BgL_l1z00_2172 = 
STRING_LENGTH(BgL_fz00_2170); 
if(
(BgL_l1z00_2172==0L))
{ /* Llib/module.scm 228 */
 int BgL_arg1430z00_2173;
{ /* Llib/module.scm 228 */
 char * BgL_auxz00_2766; char * BgL_tmpz00_2764;
BgL_auxz00_2766 = 
BSTRING_TO_STRING(BGl_string1895z00zz__modulez00); 
BgL_tmpz00_2764 = 
BSTRING_TO_STRING(BgL_fz00_2170); 
BgL_arg1430z00_2173 = 
memcmp(BgL_tmpz00_2764, BgL_auxz00_2766, BgL_l1z00_2172); } 
BgL_test2053z00_2760 = 
(
(long)(BgL_arg1430z00_2173)==0L); }  else 
{ /* Llib/module.scm 228 */
BgL_test2053z00_2760 = ((bool_t)0)
; } } 
if(BgL_test2053z00_2760)
{ /* Llib/module.scm 228 */
BgL_test2052z00_2759 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 228 */
 unsigned char BgL_char2z00_2174;
BgL_char2z00_2174 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Llib/module.scm 228 */
 unsigned char BgL_tmpz00_2772;
{ /* Llib/module.scm 228 */
 long BgL_l1756z00_2175;
BgL_l1756z00_2175 = 
STRING_LENGTH(BgL_fz00_2170); 
if(
BOUND_CHECK(0L, BgL_l1756z00_2175))
{ /* Llib/module.scm 228 */
BgL_tmpz00_2772 = 
STRING_REF(BgL_fz00_2170, 0L)
; }  else 
{ 
 obj_t BgL_auxz00_2777;
BgL_auxz00_2777 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8701L), BGl_string1883z00zz__modulez00, BgL_fz00_2170, 
(int)(BgL_l1756z00_2175), 
(int)(0L)); 
FAILURE(BgL_auxz00_2777,BFALSE,BFALSE);} } 
BgL_test2052z00_2759 = 
(BgL_tmpz00_2772==BgL_char2z00_2174); } } } 
if(BgL_test2052z00_2759)
{ /* Llib/module.scm 228 */
BgL_arg1367z00_2190 = BgL_fz00_2170; }  else 
{ /* Llib/module.scm 229 */
 obj_t BgL_arg1355z00_2176;
{ /* Llib/module.scm 229 */
 obj_t BgL_auxz00_2784;
if(
STRINGP(BgL_abasez00_2171))
{ /* Llib/module.scm 229 */
BgL_auxz00_2784 = BgL_abasez00_2171
; }  else 
{ 
 obj_t BgL_auxz00_2787;
BgL_auxz00_2787 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(8788L), BGl_string1896z00zz__modulez00, BGl_string1859z00zz__modulez00, BgL_abasez00_2171); 
FAILURE(BgL_auxz00_2787,BFALSE,BFALSE);} 
BgL_arg1355z00_2176 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_auxz00_2784, BgL_fz00_2170); } 
BgL_arg1367z00_2190 = 
BGl_filezd2namezd2canonicaliza7eza7zz__osz00(BgL_arg1355z00_2176); } }  else 
{ /* Llib/module.scm 227 */
BgL_arg1367z00_2190 = BgL_fz00_2170; } } 
{ /* Llib/module.scm 240 */
 obj_t BgL_pairz00_2193;
if(
PAIRP(BgL_l1091z00_2189))
{ /* Llib/module.scm 240 */
BgL_pairz00_2193 = BgL_l1091z00_2189; }  else 
{ 
 obj_t BgL_auxz00_2795;
BgL_auxz00_2795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9095L), BGl_string1899z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1091z00_2189); 
FAILURE(BgL_auxz00_2795,BFALSE,BFALSE);} 
SET_CAR(BgL_pairz00_2193, BgL_arg1367z00_2190); } } 
{ /* Llib/module.scm 240 */
 obj_t BgL_arg1368z00_2194;
{ /* Llib/module.scm 240 */
 obj_t BgL_pairz00_2195;
if(
PAIRP(BgL_l1091z00_2189))
{ /* Llib/module.scm 240 */
BgL_pairz00_2195 = BgL_l1091z00_2189; }  else 
{ 
 obj_t BgL_auxz00_2802;
BgL_auxz00_2802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9095L), BGl_string1899z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_l1091z00_2189); 
FAILURE(BgL_auxz00_2802,BFALSE,BFALSE);} 
BgL_arg1368z00_2194 = 
CDR(BgL_pairz00_2195); } 
{ 
 obj_t BgL_l1091z00_2807;
BgL_l1091z00_2807 = BgL_arg1368z00_2194; 
BgL_l1091z00_2189 = BgL_l1091z00_2807; 
goto BgL_zc3z04anonymousza31365ze3z87_2188;} } } } } } 
{ /* Llib/module.scm 242 */
 obj_t BgL_arg1363z00_2196;
{ /* Llib/module.scm 242 */
 obj_t BgL_pairz00_2197;
if(
PAIRP(BgL_accessz00_2181))
{ /* Llib/module.scm 242 */
BgL_pairz00_2197 = BgL_accessz00_2181; }  else 
{ 
 obj_t BgL_auxz00_2810;
BgL_auxz00_2810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1840z00zz__modulez00, 
BINT(9160L), BGl_string1898z00zz__modulez00, BGl_string1864z00zz__modulez00, BgL_accessz00_2181); 
FAILURE(BgL_auxz00_2810,BFALSE,BFALSE);} 
BgL_arg1363z00_2196 = 
CAR(BgL_pairz00_2197); } 
BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(BgL_arg1363z00_2196, BgL_infoz00_2182, BgL_abasez00_2065); } } } 
{ 
 obj_t BgL_l1093z00_2816;
BgL_l1093z00_2816 = 
CDR(BgL_l1093z00_2180); 
BgL_l1093z00_2180 = BgL_l1093z00_2816; 
goto BgL_zc3z04anonymousza31361ze3z87_2179;} }  else 
{ /* Llib/module.scm 243 */
if(
NULLP(BgL_l1093z00_2180))
{ /* Llib/module.scm 243 */
return BTRUE;}  else 
{ /* Llib/module.scm 243 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1900z00zz__modulez00, BGl_string1885z00zz__modulez00, BgL_l1093z00_2180, BGl_string1840z00zz__modulez00, 
BINT(8946L));} } } } } } } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__modulez00(void)
{
{ /* Llib/module.scm 17 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__configurez00(35034923L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(43287392L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__readerz00(220648206L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00)); 
return 
BGl_modulezd2initializa7ationz75zz__hashz00(482391669L, 
BSTRING_TO_STRING(BGl_string1901z00zz__modulez00));} 

}

#ifdef __cplusplus
}
#endif
