/*===========================================================================*/
/*   (Llib/module.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c 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_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_z62zc3z04z52bigloozd2modulezd2res1192ze3z14zz__modulez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2afileszd2tableza2zd2zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1859z00zz__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 *);
static obj_t BGl_symbol1865z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1867z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1869z00zz__modulez00 = BUNSPEC;
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_symbol1871z00zz__modulez00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__modulez00(void);
static obj_t BGl_z62modulezd2abasezd2setz12z70zz__modulez00(obj_t, obj_t);
extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
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_symbol1894z00zz__modulez00 = BUNSPEC;
static obj_t BGl_symbol1896z00zz__modulez00 = BUNSPEC;
static obj_t BGl_list1864z00zz__modulez00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__modulez00(void);
static obj_t BGl_symbol1898z00zz__modulez00 = BUNSPEC;
static obj_t BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BUNSPEC;
static obj_t BGl_objectzd2initzd2zz__modulez00(void);
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);
static obj_t BGl_list1893z00zz__modulez00 = BUNSPEC;
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);
extern obj_t bstring_to_symbol(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_resolvezd2abasezd2zz__modulez00(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;


BGL_DEFINE_STRING(BGl_string1870z00zz__modulez00, BgL_bgl_string1870za700za7za7_1920za7, "module", 6 );
BGL_DEFINE_STRING(BGl_string1872z00zz__modulez00, BgL_bgl_string1872za700za7za7_1921za7, "abase", 5 );
BGL_DEFINE_STRING(BGl_string1873z00zz__modulez00, BgL_bgl_string1873za700za7za7_1922za7, ".", 1 );
BGL_DEFINE_STRING(BGl_string1874z00zz__modulez00, BgL_bgl_string1874za700za7za7_1923za7, "module-default-resolver", 23 );
BGL_DEFINE_STRING(BGl_string1875z00zz__modulez00, BgL_bgl_string1875za700za7za7_1924za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string1876z00zz__modulez00, BgL_bgl_string1876za700za7za7_1925za7, "&module-default-resolver", 24 );
BGL_DEFINE_STRING(BGl_string1877z00zz__modulez00, BgL_bgl_string1877za700za7za7_1926za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string1878z00zz__modulez00, BgL_bgl_string1878za700za7za7_1927za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string1879z00zz__modulez00, BgL_bgl_string1879za700za7za7_1928za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string1880z00zz__modulez00, BgL_bgl_string1880za700za7za7_1929za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string1881z00zz__modulez00, BgL_bgl_string1881za700za7za7_1930za7, "~a/~a.scm", 9 );
BGL_DEFINE_STRING(BGl_string1882z00zz__modulez00, BgL_bgl_string1882za700za7za7_1931za7, "resolve-abase", 13 );
BGL_DEFINE_STRING(BGl_string1883z00zz__modulez00, BgL_bgl_string1883za700za7za7_1932za7, "resolve-abase/bucket", 20 );
BGL_DEFINE_STRING(BGl_string1884z00zz__modulez00, BgL_bgl_string1884za700za7za7_1933za7, "<@anonymous:1215>", 17 );
BGL_DEFINE_STRING(BGl_string1885z00zz__modulez00, BgL_bgl_string1885za700za7za7_1934za7, ".scm", 4 );
BGL_DEFINE_STRING(BGl_string1886z00zz__modulez00, BgL_bgl_string1886za700za7za7_1935za7, "module-add-access-inner!", 24 );
BGL_DEFINE_STRING(BGl_string1887z00zz__modulez00, BgL_bgl_string1887za700za7za7_1936za7, "\"", 1 );
BGL_DEFINE_STRING(BGl_string1888z00zz__modulez00, BgL_bgl_string1888za700za7za7_1937za7, "] in directory \"", 16 );
BGL_DEFINE_STRING(BGl_string1889z00zz__modulez00, BgL_bgl_string1889za700za7za7_1938za7, " ", 1 );
BGL_DEFINE_STRING(BGl_string1890z00zz__modulez00, BgL_bgl_string1890za700za7za7_1939za7, " [", 2 );
BGL_DEFINE_STRING(BGl_string1891z00zz__modulez00, BgL_bgl_string1891za700za7za7_1940za7, "access redefinition -- ", 23 );
BGL_DEFINE_STRING(BGl_string1892z00zz__modulez00, BgL_bgl_string1892za700za7za7_1941za7, "add-access!", 11 );
BGL_DEFINE_STRING(BGl_string1895z00zz__modulez00, BgL_bgl_string1895za700za7za7_1942za7, "set-cdr!", 8 );
BGL_DEFINE_STRING(BGl_string1897z00zz__modulez00, BgL_bgl_string1897za700za7za7_1943za7, "cell", 4 );
BGL_DEFINE_STRING(BGl_string1899z00zz__modulez00, BgL_bgl_string1899za700za7za7_1944za7, "files", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2abasezd2envz00zz__modulez00, BgL_bgl_za762moduleza7d2abas1945z00, BGl_z62modulezd2abasezb0zz__modulez00, 0L, BUNSPEC, 0);
DEFINE_STATIC_BGL_PROCEDURE(BGl_modulezd2defaultzd2resolverzd2envzd2zz__modulez00, BgL_bgl_za762moduleza7d2defa1946z00, BGl_z62modulezd2defaultzd2resolverz62zz__modulez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2loadzd2accesszd2filezd2envz00zz__modulez00, BgL_bgl_za762moduleza7d2load1947z00, BGl_z62modulezd2loadzd2accesszd2filezb0zz__modulez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2modulezd2resolverzd2setz12zd2envz12zz__modulez00, BgL_bgl_za762biglooza7d2modu1948z00, BGl_z62bigloozd2modulezd2resolverzd2setz12za2zz__modulez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2modulezd2resolverzd2envzd2zz__modulez00, BgL_bgl_za762biglooza7d2modu1949z00, BGl_z62bigloozd2modulezd2resolverz62zz__modulez00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2abasezd2setz12zd2envzc0zz__modulez00, BgL_bgl_za762moduleza7d2abas1950z00, BGl_z62modulezd2abasezd2setz12z70zz__modulez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1900z00zz__modulez00, BgL_bgl_string1900za700za7za7_1951za7, "relative", 8 );
BGL_DEFINE_STRING(BGl_string1901z00zz__modulez00, BgL_bgl_string1901za700za7za7_1952za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string1902z00zz__modulez00, BgL_bgl_string1902za700za7za7_1953za7, "map", 3 );
BGL_DEFINE_STRING(BGl_string1903z00zz__modulez00, BgL_bgl_string1903za700za7za7_1954za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string1904z00zz__modulez00, BgL_bgl_string1904za700za7za7_1955za7, "&module-add-access!", 19 );
BGL_DEFINE_STRING(BGl_string1905z00zz__modulez00, BgL_bgl_string1905za700za7za7_1956za7, "module-read-access-file", 23 );
BGL_DEFINE_STRING(BGl_string1906z00zz__modulez00, BgL_bgl_string1906za700za7za7_1957za7, "input-port", 10 );
BGL_DEFINE_STRING(BGl_string1907z00zz__modulez00, BgL_bgl_string1907za700za7za7_1958za7, "<@anonymous:1292>", 17 );
BGL_DEFINE_STRING(BGl_string1908z00zz__modulez00, BgL_bgl_string1908za700za7za7_1959za7, "Illegal entry -- ", 17 );
BGL_DEFINE_STRING(BGl_string1909z00zz__modulez00, BgL_bgl_string1909za700za7za7_1960za7, "module-load-access-file", 23 );
BGL_DEFINE_STRING(BGl_string1910z00zz__modulez00, BgL_bgl_string1910za700za7za7_1961za7, "struct", 6 );
BGL_DEFINE_STRING(BGl_string1911z00zz__modulez00, BgL_bgl_string1911za700za7za7_1962za7, ".afile", 6 );
BGL_DEFINE_STRING(BGl_string1912z00zz__modulez00, BgL_bgl_string1912za700za7za7_1963za7, "&module-load-access-file", 24 );
BGL_DEFINE_STRING(BGl_string1913z00zz__modulez00, BgL_bgl_string1913za700za7za7_1964za7, "", 0 );
BGL_DEFINE_STRING(BGl_string1914z00zz__modulez00, BgL_bgl_string1914za700za7za7_1965za7, "relative-path", 13 );
BGL_DEFINE_STRING(BGl_string1915z00zz__modulez00, BgL_bgl_string1915za700za7za7_1966za7, "<@anonymous:1360>", 17 );
BGL_DEFINE_STRING(BGl_string1916z00zz__modulez00, BgL_bgl_string1916za700za7za7_1967za7, "<@anonymous:1361>", 17 );
BGL_DEFINE_STRING(BGl_string1917z00zz__modulez00, BgL_bgl_string1917za700za7za7_1968za7, "<@anonymous:1365>", 17 );
BGL_DEFINE_STRING(BGl_string1918z00zz__modulez00, BgL_bgl_string1918za700za7za7_1969za7, "for-each", 8 );
BGL_DEFINE_STRING(BGl_string1919z00zz__modulez00, BgL_bgl_string1919za700za7za7_1970za7, "__module", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2addzd2accessz12zd2envzc0zz__modulez00, BgL_bgl_za762moduleza7d2addza71971za7, BGl_z62modulezd2addzd2accessz12z70zz__modulez00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string1855z00zz__modulez00, BgL_bgl_string1855za700za7za7_1972za7, "modules", 7 );
BGL_DEFINE_STRING(BGl_string1856z00zz__modulez00, BgL_bgl_string1856za700za7za7_1973za7, "/tmp/bigloo/runtime/Llib/module.scm", 35 );
BGL_DEFINE_STRING(BGl_string1857z00zz__modulez00, BgL_bgl_string1857za700za7za7_1974za7, "bigloo-module-resolver", 22 );
BGL_DEFINE_STRING(BGl_string1858z00zz__modulez00, BgL_bgl_string1858za700za7za7_1975za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string1860z00zz__modulez00, BgL_bgl_string1860za700za7za7_1976za7, "bigloo-module-resolver-set!", 27 );
BGL_DEFINE_STRING(BGl_string1861z00zz__modulez00, BgL_bgl_string1861za700za7za7_1977za7, "Illegal resolver", 16 );
BGL_DEFINE_STRING(BGl_string1862z00zz__modulez00, BgL_bgl_string1862za700za7za7_1978za7, "&bigloo-module-resolver-set!", 28 );
BGL_DEFINE_STRING(BGl_string1863z00zz__modulez00, BgL_bgl_string1863za700za7za7_1979za7, "<@%bigloo-module-res1192>:Wrong number of arguments", 51 );
BGL_DEFINE_STRING(BGl_string1866z00zz__modulez00, BgL_bgl_string1866za700za7za7_1980za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string1868z00zz__modulez00, BgL_bgl_string1868za700za7za7_1981za7, "resolve", 7 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string1868z00zz__modulez00, BgL_bgl_string1868za700za7za7_1981za7);
BGL_BIND_STRING(BGl_string1866z00zz__modulez00, BgL_bgl_string1866za700za7za7_1980za7);
BGL_BIND_STRING(BGl_string1863z00zz__modulez00, BgL_bgl_string1863za700za7za7_1979za7);
BGL_BIND_STRING(BGl_string1862z00zz__modulez00, BgL_bgl_string1862za700za7za7_1978za7);
BGL_BIND_STRING(BGl_string1861z00zz__modulez00, BgL_bgl_string1861za700za7za7_1977za7);
BGL_BIND_STRING(BGl_string1860z00zz__modulez00, BgL_bgl_string1860za700za7za7_1976za7);
BGL_BIND_STRING(BGl_string1858z00zz__modulez00, BgL_bgl_string1858za700za7za7_1975za7);
BGL_BIND_STRING(BGl_string1857z00zz__modulez00, BgL_bgl_string1857za700za7za7_1974za7);
BGL_BIND_STRING(BGl_string1856z00zz__modulez00, BgL_bgl_string1856za700za7za7_1973za7);
BGL_BIND_STRING(BGl_string1855z00zz__modulez00, BgL_bgl_string1855za700za7za7_1972za7);
BGL_BIND_PROCEDURE(BGl_modulezd2addzd2accessz12zd2envzc0zz__modulez00, BgL_bgl_za762moduleza7d2addza71971za7);
BGL_BIND_STRING(BGl_string1919z00zz__modulez00, BgL_bgl_string1919za700za7za7_1970za7);
BGL_BIND_STRING(BGl_string1918z00zz__modulez00, BgL_bgl_string1918za700za7za7_1969za7);
BGL_BIND_STRING(BGl_string1917z00zz__modulez00, BgL_bgl_string1917za700za7za7_1968za7);
BGL_BIND_STRING(BGl_string1916z00zz__modulez00, BgL_bgl_string1916za700za7za7_1967za7);
BGL_BIND_STRING(BGl_string1915z00zz__modulez00, BgL_bgl_string1915za700za7za7_1966za7);
BGL_BIND_STRING(BGl_string1914z00zz__modulez00, BgL_bgl_string1914za700za7za7_1965za7);
BGL_BIND_STRING(BGl_string1913z00zz__modulez00, BgL_bgl_string1913za700za7za7_1964za7);
BGL_BIND_STRING(BGl_string1912z00zz__modulez00, BgL_bgl_string1912za700za7za7_1963za7);
BGL_BIND_STRING(BGl_string1911z00zz__modulez00, BgL_bgl_string1911za700za7za7_1962za7);
BGL_BIND_STRING(BGl_string1910z00zz__modulez00, BgL_bgl_string1910za700za7za7_1961za7);
BGL_BIND_STRING(BGl_string1909z00zz__modulez00, BgL_bgl_string1909za700za7za7_1960za7);
BGL_BIND_STRING(BGl_string1908z00zz__modulez00, BgL_bgl_string1908za700za7za7_1959za7);
BGL_BIND_STRING(BGl_string1907z00zz__modulez00, BgL_bgl_string1907za700za7za7_1958za7);
BGL_BIND_STRING(BGl_string1906z00zz__modulez00, BgL_bgl_string1906za700za7za7_1957za7);
BGL_BIND_STRING(BGl_string1905z00zz__modulez00, BgL_bgl_string1905za700za7za7_1956za7);
BGL_BIND_STRING(BGl_string1904z00zz__modulez00, BgL_bgl_string1904za700za7za7_1955za7);
BGL_BIND_STRING(BGl_string1903z00zz__modulez00, BgL_bgl_string1903za700za7za7_1954za7);
BGL_BIND_STRING(BGl_string1902z00zz__modulez00, BgL_bgl_string1902za700za7za7_1953za7);
BGL_BIND_STRING(BGl_string1901z00zz__modulez00, BgL_bgl_string1901za700za7za7_1952za7);
BGL_BIND_STRING(BGl_string1900z00zz__modulez00, BgL_bgl_string1900za700za7za7_1951za7);
BGL_BIND_PROCEDURE(BGl_modulezd2abasezd2setz12zd2envzc0zz__modulez00, BgL_bgl_za762moduleza7d2abas1950z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2modulezd2resolverzd2envzd2zz__modulez00, BgL_bgl_za762biglooza7d2modu1949z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2modulezd2resolverzd2setz12zd2envz12zz__modulez00, BgL_bgl_za762biglooza7d2modu1948z00);
BGL_BIND_PROCEDURE(BGl_modulezd2loadzd2accesszd2filezd2envz00zz__modulez00, BgL_bgl_za762moduleza7d2load1947z00);
BGL_BIND_PROCEDURE(BGl_modulezd2defaultzd2resolverzd2envzd2zz__modulez00, BgL_bgl_za762moduleza7d2defa1946z00);
BGL_BIND_PROCEDURE(BGl_modulezd2abasezd2envz00zz__modulez00, BgL_bgl_za762moduleza7d2abas1945z00);
BGL_BIND_STRING(BGl_string1899z00zz__modulez00, BgL_bgl_string1899za700za7za7_1944za7);
BGL_BIND_STRING(BGl_string1897z00zz__modulez00, BgL_bgl_string1897za700za7za7_1943za7);
BGL_BIND_STRING(BGl_string1895z00zz__modulez00, BgL_bgl_string1895za700za7za7_1942za7);
BGL_BIND_STRING(BGl_string1892z00zz__modulez00, BgL_bgl_string1892za700za7za7_1941za7);
BGL_BIND_STRING(BGl_string1891z00zz__modulez00, BgL_bgl_string1891za700za7za7_1940za7);
BGL_BIND_STRING(BGl_string1890z00zz__modulez00, BgL_bgl_string1890za700za7za7_1939za7);
BGL_BIND_STRING(BGl_string1889z00zz__modulez00, BgL_bgl_string1889za700za7za7_1938za7);
BGL_BIND_STRING(BGl_string1888z00zz__modulez00, BgL_bgl_string1888za700za7za7_1937za7);
BGL_BIND_STRING(BGl_string1887z00zz__modulez00, BgL_bgl_string1887za700za7za7_1936za7);
BGL_BIND_STRING(BGl_string1886z00zz__modulez00, BgL_bgl_string1886za700za7za7_1935za7);
BGL_BIND_STRING(BGl_string1885z00zz__modulez00, BgL_bgl_string1885za700za7za7_1934za7);
BGL_BIND_STRING(BGl_string1884z00zz__modulez00, BgL_bgl_string1884za700za7za7_1933za7);
BGL_BIND_STRING(BGl_string1883z00zz__modulez00, BgL_bgl_string1883za700za7za7_1932za7);
BGL_BIND_STRING(BGl_string1882z00zz__modulez00, BgL_bgl_string1882za700za7za7_1931za7);
BGL_BIND_STRING(BGl_string1881z00zz__modulez00, BgL_bgl_string1881za700za7za7_1930za7);
BGL_BIND_STRING(BGl_string1880z00zz__modulez00, BgL_bgl_string1880za700za7za7_1929za7);
BGL_BIND_STRING(BGl_string1879z00zz__modulez00, BgL_bgl_string1879za700za7za7_1928za7);
BGL_BIND_STRING(BGl_string1878z00zz__modulez00, BgL_bgl_string1878za700za7za7_1927za7);
BGL_BIND_STRING(BGl_string1877z00zz__modulez00, BgL_bgl_string1877za700za7za7_1926za7);
BGL_BIND_STRING(BGl_string1876z00zz__modulez00, BgL_bgl_string1876za700za7za7_1925za7);
BGL_BIND_STRING(BGl_string1875z00zz__modulez00, BgL_bgl_string1875za700za7za7_1924za7);
BGL_BIND_STRING(BGl_string1874z00zz__modulez00, BgL_bgl_string1874za700za7za7_1923za7);
BGL_BIND_STRING(BGl_string1873z00zz__modulez00, BgL_bgl_string1873za700za7za7_1922za7);
BGL_BIND_STRING(BGl_string1872z00zz__modulez00, BgL_bgl_string1872za700za7za7_1921za7);
BGL_BIND_STRING(BGl_string1870z00zz__modulez00, BgL_bgl_string1870za700za7za7_1920za7);
}

/* 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_requirezd2initializa7ationz75zz__modulez00) );
ADD_ROOT( (void *)(&BGl_za2afileszd2tableza2zd2zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1859z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1865z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1867z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1869z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1871z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1894z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1896z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_list1864z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_symbol1898z00zz__modulez00) );
ADD_ROOT( (void *)(&BGl_z52bigloozd2modulezd2resolverz52zz__modulez00) );
ADD_ROOT( (void *)(&BGl_list1893z00zz__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_2218, char * BgL_fromz00_2219)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__modulez00))
{ 
BGl_requirezd2initializa7ationz75zz__modulez00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
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_symbol1859z00zz__modulez00 = 
bstring_to_symbol(BGl_string1860z00zz__modulez00); 
BGl_symbol1865z00zz__modulez00 = 
bstring_to_symbol(BGl_string1866z00zz__modulez00); 
BGl_symbol1867z00zz__modulez00 = 
bstring_to_symbol(BGl_string1868z00zz__modulez00); 
BGl_symbol1869z00zz__modulez00 = 
bstring_to_symbol(BGl_string1870z00zz__modulez00); 
BGl_symbol1871z00zz__modulez00 = 
bstring_to_symbol(BGl_string1872z00zz__modulez00); 
BGl_list1864z00zz__modulez00 = 
MAKE_YOUNG_PAIR(BGl_symbol1865z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1867z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1869z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1871z00zz__modulez00, BNIL))))); 
BGl_symbol1894z00zz__modulez00 = 
bstring_to_symbol(BGl_string1895z00zz__modulez00); 
BGl_symbol1896z00zz__modulez00 = 
bstring_to_symbol(BGl_string1897z00zz__modulez00); 
BGl_symbol1898z00zz__modulez00 = 
bstring_to_symbol(BGl_string1899z00zz__modulez00); 
return ( 
BGl_list1893z00zz__modulez00 = 
MAKE_YOUNG_PAIR(BGl_symbol1894z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1896z00zz__modulez00, 
MAKE_YOUNG_PAIR(BGl_symbol1898z00zz__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_string1855z00zz__modulez00); 
BGl_afilezd2tablezd2zz__modulez00 = BNIL; 
BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BGl_modulezd2defaultzd2resolverzd2envzd2zz__modulez00; 
{ /* Llib/module.scm 223 */
 obj_t BgL_list1175z00_1123;
BgL_list1175z00_1123 = 
MAKE_YOUNG_PAIR(
BINT(256L), BNIL); 
return ( 
BGl_za2afileszd2tableza2zd2zz__modulez00 = 
BGl_makezd2hashtablezd2zz__hashz00(BgL_list1175z00_1123), 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_2054)
{
{ /* 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_2055, obj_t BgL_valz00_2056)
{
{ /* Llib/module.scm 78 */
return 
BGl_modulezd2abasezd2setz12z12zz__modulez00(BgL_valz00_2056);} 

}



/* bigloo-module-resolver */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2modulezd2resolverz00zz__modulez00(void)
{
{ /* Llib/module.scm 91 */
{ /* Llib/module.scm 91 */
 obj_t BgL_aux1770z00_2087;
BgL_aux1770z00_2087 = BGl_z52bigloozd2modulezd2resolverz52zz__modulez00; 
if(
PROCEDUREP(BgL_aux1770z00_2087))
{ /* Llib/module.scm 91 */
return BgL_aux1770z00_2087;}  else 
{ 
 obj_t BgL_auxz00_2255;
BgL_auxz00_2255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(3416L), BGl_string1857z00zz__modulez00, BGl_string1858z00zz__modulez00, BgL_aux1770z00_2087); 
FAILURE(BgL_auxz00_2255,BFALSE,BFALSE);} } } 

}



/* &bigloo-module-resolver */
obj_t BGl_z62bigloozd2modulezd2resolverz62zz__modulez00(obj_t BgL_envz00_2057)
{
{ /* 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_top1985z00_2261;
BgL_top1985z00_2261 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top1985z00_2261, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 95 */
 obj_t BgL_tmp1984z00_2260;
if(
PROCEDURE_CORRECT_ARITYP(BgL_resolvez00_4, 
(int)(2L)))
{ /* Llib/module.scm 100 */
 obj_t BgL_zc3z04z52bigloozd2modulezd2res1192ze3z76_2058;
BgL_zc3z04z52bigloozd2modulezd2res1192ze3z76_2058 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04z52bigloozd2modulezd2res1192ze3z14zz__modulez00, 
(int)(3L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04z52bigloozd2modulezd2res1192ze3z76_2058, 
(int)(0L), BgL_resolvez00_4); 
BgL_tmp1984z00_2260 = ( 
BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BgL_zc3z04z52bigloozd2modulezd2res1192ze3z76_2058, BUNSPEC) ; }  else 
{ /* Llib/module.scm 97 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_resolvez00_4, 
(int)(3L)))
{ /* Llib/module.scm 101 */
BgL_tmp1984z00_2260 = ( 
BGl_z52bigloozd2modulezd2resolverz52zz__modulez00 = BgL_resolvez00_4, BUNSPEC) ; }  else 
{ /* Llib/module.scm 101 */
BgL_tmp1984z00_2260 = 
BGl_errorz00zz__errorz00(BGl_symbol1859z00zz__modulez00, BGl_string1861z00zz__modulez00, BgL_resolvez00_4); } } 
BGL_EXITD_POP_PROTECT(BgL_top1985z00_2261); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp1984z00_2260;} } } 

}



/* &bigloo-module-resolver-set! */
obj_t BGl_z62bigloozd2modulezd2resolverzd2setz12za2zz__modulez00(obj_t BgL_envz00_2059, obj_t BgL_resolvez00_2060)
{
{ /* Llib/module.scm 94 */
{ /* Llib/module.scm 95 */
 obj_t BgL_auxz00_2279;
if(
PROCEDUREP(BgL_resolvez00_2060))
{ /* Llib/module.scm 95 */
BgL_auxz00_2279 = BgL_resolvez00_2060
; }  else 
{ 
 obj_t BgL_auxz00_2282;
BgL_auxz00_2282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(3527L), BGl_string1862z00zz__modulez00, BGl_string1858z00zz__modulez00, BgL_resolvez00_2060); 
FAILURE(BgL_auxz00_2282,BFALSE,BFALSE);} 
return 
BGl_bigloozd2modulezd2resolverzd2setz12zc0zz__modulez00(BgL_auxz00_2279);} } 

}



/* &<@%bigloo-module-res1192> */
obj_t BGl_z62zc3z04z52bigloozd2modulezd2res1192ze3z14zz__modulez00(obj_t BgL_envz00_2061, obj_t BgL_modulez00_2063, obj_t BgL_filesz00_2064, obj_t BgL_abasez00_2065)
{
{ /* Llib/module.scm 100 */
{ /* Llib/module.scm 100 */
 obj_t BgL_resolvez00_2062;
BgL_resolvez00_2062 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2061, 
(int)(0L))); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_resolvez00_2062, 2))
{ /* Llib/module.scm 100 */
return 
BGL_PROCEDURE_CALL2(BgL_resolvez00_2062, BgL_modulez00_2063, BgL_abasez00_2065);}  else 
{ /* Llib/module.scm 100 */
FAILURE(BGl_string1863z00zz__modulez00,BGl_list1864z00zz__modulez00,BgL_resolvez00_2062);} } } 

}



/* &module-default-resolver */
obj_t BGl_z62modulezd2defaultzd2resolverz62zz__modulez00(obj_t BgL_envz00_2050, obj_t BgL_modz00_2051, obj_t BgL_filesz00_2052, obj_t BgL_abasez00_2053)
{
{ /* Llib/module.scm 113 */
{ /* Llib/module.scm 114 */
 obj_t BgL_modz00_2182; obj_t BgL_filesz00_2183;
if(
SYMBOLP(BgL_modz00_2051))
{ /* Llib/module.scm 114 */
BgL_modz00_2182 = BgL_modz00_2051; }  else 
{ 
 obj_t BgL_auxz00_2300;
BgL_auxz00_2300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(4515L), BGl_string1876z00zz__modulez00, BGl_string1877z00zz__modulez00, BgL_modz00_2051); 
FAILURE(BgL_auxz00_2300,BFALSE,BFALSE);} 
{ /* Llib/module.scm 114 */
 bool_t BgL_test1991z00_2304;
if(
PAIRP(BgL_filesz00_2052))
{ /* Llib/module.scm 114 */
BgL_test1991z00_2304 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 114 */
BgL_test1991z00_2304 = 
NULLP(BgL_filesz00_2052)
; } 
if(BgL_test1991z00_2304)
{ /* Llib/module.scm 114 */
BgL_filesz00_2183 = BgL_filesz00_2052; }  else 
{ 
 obj_t BgL_auxz00_2308;
BgL_auxz00_2308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(4515L), BGl_string1876z00zz__modulez00, BGl_string1878z00zz__modulez00, BgL_filesz00_2052); 
FAILURE(BgL_auxz00_2308,BFALSE,BFALSE);} } 
{ /* Llib/module.scm 114 */
 obj_t BgL_top1994z00_2313;
BgL_top1994z00_2313 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top1994z00_2313, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 114 */
 obj_t BgL_tmp1993z00_2312;
if(
NULLP(BgL_filesz00_2183))
{ /* Llib/module.scm 116 */
if(
NULLP(BgL_abasez00_2053))
{ /* Llib/module.scm 119 */
BgL_tmp1993z00_2312 = 
BGl_resolvezd2abasezd2zz__modulez00(BgL_modz00_2182, BGl_string1873z00zz__modulez00); }  else 
{ /* Llib/module.scm 119 */
if(
STRINGP(BgL_abasez00_2053))
{ /* Llib/module.scm 121 */
BgL_tmp1993z00_2312 = 
BGl_resolvezd2abasezd2zz__modulez00(BgL_modz00_2182, BgL_abasez00_2053); }  else 
{ /* Llib/module.scm 121 */
if(
PAIRP(BgL_abasez00_2053))
{ 
 obj_t BgL_abasez00_2185;
BgL_abasez00_2185 = BgL_abasez00_2053; 
BgL_loopz00_2184:
if(
PAIRP(BgL_abasez00_2185))
{ /* Llib/module.scm 126 */
 obj_t BgL_resolvez00_2186;
BgL_resolvez00_2186 = 
BGl_resolvezd2abasezd2zz__modulez00(BgL_modz00_2182, 
CAR(BgL_abasez00_2185)); 
if(
PAIRP(BgL_resolvez00_2186))
{ /* Llib/module.scm 127 */
BgL_tmp1993z00_2312 = BgL_resolvez00_2186; }  else 
{ 
 obj_t BgL_abasez00_2333;
BgL_abasez00_2333 = 
CDR(BgL_abasez00_2185); 
BgL_abasez00_2185 = BgL_abasez00_2333; 
goto BgL_loopz00_2184;} }  else 
{ /* Llib/module.scm 125 */
BgL_tmp1993z00_2312 = BNIL; } }  else 
{ /* Llib/module.scm 123 */
BgL_tmp1993z00_2312 = 
BGl_resolvezd2abaseza2z70zz__modulez00(BgL_modz00_2182); } } } }  else 
{ /* Llib/module.scm 116 */
{ /* Llib/module.scm 117 */
 obj_t BgL_auxz00_2336;
if(
STRINGP(BgL_abasez00_2053))
{ /* Llib/module.scm 117 */
BgL_auxz00_2336 = BgL_abasez00_2053
; }  else 
{ 
 obj_t BgL_auxz00_2339;
BgL_auxz00_2339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(4604L), BGl_string1874z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_abasez00_2053); 
FAILURE(BgL_auxz00_2339,BFALSE,BFALSE);} 
BGl_modulezd2addzd2accessz12z12zz__modulez00(BgL_modz00_2182, BgL_filesz00_2183, BgL_auxz00_2336); } 
BgL_tmp1993z00_2312 = BgL_filesz00_2183; } 
BGL_EXITD_POP_PROTECT(BgL_top1994z00_2313); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp1993z00_2312;} } } } 

}



/* resolve-abase* */
obj_t BGl_resolvezd2abaseza2z70zz__modulez00(obj_t BgL_modz00_8)
{
{ /* Llib/module.scm 137 */
{ 
 obj_t BgL_afilez00_1157;
BgL_afilez00_1157 = BGl_afilezd2tablezd2zz__modulez00; 
BgL_zc3z04anonymousza31204ze3z87_1158:
if(
NULLP(BgL_afilez00_1157))
{ /* Llib/module.scm 139 */
return BNIL;}  else 
{ /* Llib/module.scm 141 */
 obj_t BgL_fz00_1160;
{ /* Llib/module.scm 141 */
 obj_t BgL_arg1208z00_1163;
{ /* Llib/module.scm 141 */
 obj_t BgL_pairz00_1767;
if(
PAIRP(BgL_afilez00_1157))
{ /* Llib/module.scm 141 */
BgL_pairz00_1767 = BgL_afilez00_1157; }  else 
{ 
 obj_t BgL_auxz00_2350;
BgL_auxz00_2350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(5305L), BGl_string1879z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_afilez00_1157); 
FAILURE(BgL_auxz00_2350,BFALSE,BFALSE);} 
BgL_arg1208z00_1163 = 
CAR(BgL_pairz00_1767); } 
BgL_fz00_1160 = 
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_8, BgL_arg1208z00_1163); } 
if(
PAIRP(BgL_fz00_1160))
{ /* Llib/module.scm 142 */
return BgL_fz00_1160;}  else 
{ /* Llib/module.scm 144 */
 obj_t BgL_arg1207z00_1162;
{ /* Llib/module.scm 144 */
 obj_t BgL_pairz00_1768;
if(
PAIRP(BgL_afilez00_1157))
{ /* Llib/module.scm 144 */
BgL_pairz00_1768 = BgL_afilez00_1157; }  else 
{ 
 obj_t BgL_auxz00_2360;
BgL_auxz00_2360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(5354L), BGl_string1879z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_afilez00_1157); 
FAILURE(BgL_auxz00_2360,BFALSE,BFALSE);} 
BgL_arg1207z00_1162 = 
CDR(BgL_pairz00_1768); } 
{ 
 obj_t BgL_afilez00_2365;
BgL_afilez00_2365 = BgL_arg1207z00_1162; 
BgL_afilez00_1157 = BgL_afilez00_2365; 
goto BgL_zc3z04anonymousza31204ze3z87_1158;} } } } } 

}



/* resolve-abase */
obj_t BGl_resolvezd2abasezd2zz__modulez00(obj_t BgL_modz00_9, obj_t BgL_abasez00_10)
{
{ /* Llib/module.scm 149 */
{ /* Llib/module.scm 150 */
 obj_t BgL_basez00_1165;
BgL_basez00_1165 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_abasez00_10, BGl_afilezd2tablezd2zz__modulez00); 
if(
PAIRP(BgL_basez00_1165))
{ /* Llib/module.scm 151 */
BGL_TAIL return 
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_9, BgL_basez00_1165);}  else 
{ /* Llib/module.scm 153 */
 obj_t BgL_fnamez00_1167;
{ /* Llib/module.scm 153 */
 obj_t BgL_list1212z00_1171;
{ /* Llib/module.scm 153 */
 obj_t BgL_arg1213z00_1172;
BgL_arg1213z00_1172 = 
MAKE_YOUNG_PAIR(BgL_modz00_9, BNIL); 
BgL_list1212z00_1171 = 
MAKE_YOUNG_PAIR(BgL_abasez00_10, BgL_arg1213z00_1172); } 
BgL_fnamez00_1167 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string1881z00zz__modulez00, BgL_list1212z00_1171); } 
if(
fexists(
BSTRING_TO_STRING(BgL_fnamez00_1167)))
{ /* Llib/module.scm 155 */
 obj_t BgL_filesz00_1169;
{ /* Llib/module.scm 155 */
 obj_t BgL_list1211z00_1170;
BgL_list1211z00_1170 = 
MAKE_YOUNG_PAIR(BgL_fnamez00_1167, BNIL); 
BgL_filesz00_1169 = BgL_list1211z00_1170; } 
{ /* Llib/module.scm 156 */
 obj_t BgL_auxz00_2384; obj_t BgL_auxz00_2377;
if(
STRINGP(BgL_abasez00_10))
{ /* Llib/module.scm 156 */
BgL_auxz00_2384 = BgL_abasez00_10
; }  else 
{ 
 obj_t BgL_auxz00_2387;
BgL_auxz00_2387 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(5872L), BGl_string1882z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_abasez00_10); 
FAILURE(BgL_auxz00_2387,BFALSE,BFALSE);} 
if(
NULLP(BgL_filesz00_1169))
{ 
 obj_t BgL_auxz00_2380;
BgL_auxz00_2380 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(5866L), BGl_string1882z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_filesz00_1169); 
FAILURE(BgL_auxz00_2380,BFALSE,BFALSE);}  else 
{ /* Llib/module.scm 156 */
BgL_auxz00_2377 = BgL_filesz00_1169
; } 
BGl_modulezd2addzd2accessz12z12zz__modulez00(BgL_modz00_9, BgL_auxz00_2377, BgL_auxz00_2384); } 
return BgL_filesz00_1169;}  else 
{ /* Llib/module.scm 154 */
return BNIL;} } } } 

}



/* resolve-abase/bucket */
obj_t BGl_resolvezd2abasezf2bucketz20zz__modulez00(obj_t BgL_modz00_11, obj_t BgL_basez00_12)
{
{ /* Llib/module.scm 163 */
{ /* Llib/module.scm 164 */
 obj_t BgL_cellz00_1173;
{ /* Llib/module.scm 164 */
 obj_t BgL_auxz00_2392;
{ /* Llib/module.scm 164 */
 obj_t BgL_pairz00_1771;
if(
PAIRP(BgL_basez00_12))
{ /* Llib/module.scm 164 */
BgL_pairz00_1771 = BgL_basez00_12; }  else 
{ 
 obj_t BgL_auxz00_2395;
BgL_auxz00_2395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6197L), BGl_string1883z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_basez00_12); 
FAILURE(BgL_auxz00_2395,BFALSE,BFALSE);} 
{ /* Llib/module.scm 164 */
 obj_t BgL_aux1791z00_2109;
BgL_aux1791z00_2109 = 
CDR(BgL_pairz00_1771); 
{ /* Llib/module.scm 164 */
 bool_t BgL_test2011z00_2400;
if(
PAIRP(BgL_aux1791z00_2109))
{ /* Llib/module.scm 164 */
BgL_test2011z00_2400 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 164 */
BgL_test2011z00_2400 = 
NULLP(BgL_aux1791z00_2109)
; } 
if(BgL_test2011z00_2400)
{ /* Llib/module.scm 164 */
BgL_auxz00_2392 = BgL_aux1791z00_2109
; }  else 
{ 
 obj_t BgL_auxz00_2404;
BgL_auxz00_2404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6192L), BGl_string1883z00zz__modulez00, BGl_string1878z00zz__modulez00, BgL_aux1791z00_2109); 
FAILURE(BgL_auxz00_2404,BFALSE,BFALSE);} } } } 
BgL_cellz00_1173 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modz00_11, BgL_auxz00_2392); } 
if(
PAIRP(BgL_cellz00_1173))
{ /* Llib/module.scm 166 */
 obj_t BgL_hook1075z00_1175;
BgL_hook1075z00_1175 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ /* Llib/module.scm 166 */
 obj_t BgL_g1077z00_1176;
BgL_g1077z00_1176 = 
CDR(BgL_cellz00_1173); 
{ 
 obj_t BgL_l1072z00_1178; obj_t BgL_h1073z00_1179;
BgL_l1072z00_1178 = BgL_g1077z00_1176; 
BgL_h1073z00_1179 = BgL_hook1075z00_1175; 
BgL_zc3z04anonymousza31215ze3z87_1180:
if(
NULLP(BgL_l1072z00_1178))
{ /* Llib/module.scm 166 */
return 
CDR(BgL_hook1075z00_1175);}  else 
{ /* Llib/module.scm 166 */
 bool_t BgL_test2015z00_2416;
{ /* Llib/module.scm 166 */
 obj_t BgL_tmpz00_2417;
{ /* Llib/module.scm 166 */
 obj_t BgL_pairz00_1774;
if(
PAIRP(BgL_l1072z00_1178))
{ /* Llib/module.scm 166 */
BgL_pairz00_1774 = BgL_l1072z00_1178; }  else 
{ 
 obj_t BgL_auxz00_2420;
BgL_auxz00_2420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6248L), BGl_string1884z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1072z00_1178); 
FAILURE(BgL_auxz00_2420,BFALSE,BFALSE);} 
BgL_tmpz00_2417 = 
CAR(BgL_pairz00_1774); } 
BgL_test2015z00_2416 = 
STRINGP(BgL_tmpz00_2417); } 
if(BgL_test2015z00_2416)
{ /* Llib/module.scm 166 */
 obj_t BgL_nh1074z00_1184;
{ /* Llib/module.scm 166 */
 obj_t BgL_arg1224z00_1186;
{ /* Llib/module.scm 166 */
 obj_t BgL_pairz00_1775;
if(
PAIRP(BgL_l1072z00_1178))
{ /* Llib/module.scm 166 */
BgL_pairz00_1775 = BgL_l1072z00_1178; }  else 
{ 
 obj_t BgL_auxz00_2428;
BgL_auxz00_2428 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6248L), BGl_string1884z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1072z00_1178); 
FAILURE(BgL_auxz00_2428,BFALSE,BFALSE);} 
BgL_arg1224z00_1186 = 
CAR(BgL_pairz00_1775); } 
BgL_nh1074z00_1184 = 
MAKE_YOUNG_PAIR(BgL_arg1224z00_1186, BNIL); } 
SET_CDR(BgL_h1073z00_1179, BgL_nh1074z00_1184); 
{ /* Llib/module.scm 166 */
 obj_t BgL_arg1219z00_1185;
{ /* Llib/module.scm 166 */
 obj_t BgL_pairz00_1777;
if(
PAIRP(BgL_l1072z00_1178))
{ /* Llib/module.scm 166 */
BgL_pairz00_1777 = BgL_l1072z00_1178; }  else 
{ 
 obj_t BgL_auxz00_2437;
BgL_auxz00_2437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6248L), BGl_string1884z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1072z00_1178); 
FAILURE(BgL_auxz00_2437,BFALSE,BFALSE);} 
BgL_arg1219z00_1185 = 
CDR(BgL_pairz00_1777); } 
{ 
 obj_t BgL_h1073z00_2443; obj_t BgL_l1072z00_2442;
BgL_l1072z00_2442 = BgL_arg1219z00_1185; 
BgL_h1073z00_2443 = BgL_nh1074z00_1184; 
BgL_h1073z00_1179 = BgL_h1073z00_2443; 
BgL_l1072z00_1178 = BgL_l1072z00_2442; 
goto BgL_zc3z04anonymousza31215ze3z87_1180;} } }  else 
{ /* Llib/module.scm 166 */
 obj_t BgL_arg1225z00_1187;
{ /* Llib/module.scm 166 */
 obj_t BgL_pairz00_1778;
if(
PAIRP(BgL_l1072z00_1178))
{ /* Llib/module.scm 166 */
BgL_pairz00_1778 = BgL_l1072z00_1178; }  else 
{ 
 obj_t BgL_auxz00_2446;
BgL_auxz00_2446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6248L), BGl_string1884z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1072z00_1178); 
FAILURE(BgL_auxz00_2446,BFALSE,BFALSE);} 
BgL_arg1225z00_1187 = 
CDR(BgL_pairz00_1778); } 
{ 
 obj_t BgL_l1072z00_2451;
BgL_l1072z00_2451 = BgL_arg1225z00_1187; 
BgL_l1072z00_1178 = BgL_l1072z00_2451; 
goto BgL_zc3z04anonymousza31215ze3z87_1180;} } } } } }  else 
{ /* Llib/module.scm 167 */
 obj_t BgL_fz00_1190;
{ /* Llib/module.scm 167 */
 obj_t BgL_arg1230z00_1193;
{ /* Llib/module.scm 167 */
 obj_t BgL_arg1436z00_1780;
BgL_arg1436z00_1780 = 
SYMBOL_TO_STRING(BgL_modz00_11); 
BgL_arg1230z00_1193 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg1436z00_1780); } 
BgL_fz00_1190 = 
string_append(BgL_arg1230z00_1193, BGl_string1885z00zz__modulez00); } 
if(
fexists(
BSTRING_TO_STRING(BgL_fz00_1190)))
{ /* Llib/module.scm 169 */
 obj_t BgL_list1228z00_1192;
BgL_list1228z00_1192 = 
MAKE_YOUNG_PAIR(BgL_fz00_1190, BNIL); 
return BgL_list1228z00_1192;}  else 
{ /* Llib/module.scm 168 */
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 175 */
{ /* Llib/module.scm 176 */
 obj_t BgL_basez00_1195;
BgL_basez00_1195 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_abasez00_15, BGl_afilezd2tablezd2zz__modulez00); 
if(
CBOOL(BgL_basez00_1195))
{ /* Llib/module.scm 180 */
 obj_t BgL_cellz00_1196;
{ /* Llib/module.scm 180 */
 obj_t BgL_auxz00_2462;
{ /* Llib/module.scm 180 */
 obj_t BgL_pairz00_1783;
if(
PAIRP(BgL_basez00_1195))
{ /* Llib/module.scm 180 */
BgL_pairz00_1783 = BgL_basez00_1195; }  else 
{ 
 obj_t BgL_auxz00_2465;
BgL_auxz00_2465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6826L), BGl_string1886z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_basez00_1195); 
FAILURE(BgL_auxz00_2465,BFALSE,BFALSE);} 
{ /* Llib/module.scm 180 */
 obj_t BgL_aux1803z00_2121;
BgL_aux1803z00_2121 = 
CDR(BgL_pairz00_1783); 
{ /* Llib/module.scm 180 */
 bool_t BgL_test2023z00_2470;
if(
PAIRP(BgL_aux1803z00_2121))
{ /* Llib/module.scm 180 */
BgL_test2023z00_2470 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 180 */
BgL_test2023z00_2470 = 
NULLP(BgL_aux1803z00_2121)
; } 
if(BgL_test2023z00_2470)
{ /* Llib/module.scm 180 */
BgL_auxz00_2462 = BgL_aux1803z00_2121
; }  else 
{ 
 obj_t BgL_auxz00_2474;
BgL_auxz00_2474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6821L), BGl_string1886z00zz__modulez00, BGl_string1878z00zz__modulez00, BgL_aux1803z00_2121); 
FAILURE(BgL_auxz00_2474,BFALSE,BFALSE);} } } } 
BgL_cellz00_1196 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modulez00_13, BgL_auxz00_2462); } 
if(
CBOOL(BgL_cellz00_1196))
{ /* Llib/module.scm 183 */
 bool_t BgL_test2026z00_2481;
{ /* Llib/module.scm 183 */
 obj_t BgL_auxz00_2482;
{ /* Llib/module.scm 183 */
 obj_t BgL_pairz00_1784;
if(
PAIRP(BgL_cellz00_1196))
{ /* Llib/module.scm 183 */
BgL_pairz00_1784 = BgL_cellz00_1196; }  else 
{ 
 obj_t BgL_auxz00_2485;
BgL_auxz00_2485 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6937L), BGl_string1886z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_cellz00_1196); 
FAILURE(BgL_auxz00_2485,BFALSE,BFALSE);} 
BgL_auxz00_2482 = 
CDR(BgL_pairz00_1784); } 
BgL_test2026z00_2481 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2482, BgL_filesz00_14); } 
if(BgL_test2026z00_2481)
{ /* Llib/module.scm 183 */
return BFALSE;}  else 
{ /* Llib/module.scm 183 */
{ /* Llib/module.scm 186 */
 obj_t BgL_arg1234z00_1199;
{ /* Llib/module.scm 186 */
 obj_t BgL_pairz00_1785;
if(
PAIRP(BgL_cellz00_1196))
{ /* Llib/module.scm 186 */
BgL_pairz00_1785 = BgL_cellz00_1196; }  else 
{ 
 obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7038L), BGl_string1886z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_cellz00_1196); 
FAILURE(BgL_auxz00_2493,BFALSE,BFALSE);} 
BgL_arg1234z00_1199 = 
CDR(BgL_pairz00_1785); } 
{ /* Llib/module.scm 184 */
 obj_t BgL_list1235z00_1200;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1236z00_1201;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1239z00_1202;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1241z00_1203;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1242z00_1204;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1248z00_1205;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1249z00_1206;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1252z00_1207;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1253z00_1208;
{ /* Llib/module.scm 184 */
 obj_t BgL_arg1254z00_1209;
BgL_arg1254z00_1209 = 
MAKE_YOUNG_PAIR(BGl_string1887z00zz__modulez00, BNIL); 
BgL_arg1253z00_1208 = 
MAKE_YOUNG_PAIR(BgL_abasez00_15, BgL_arg1254z00_1209); } 
BgL_arg1252z00_1207 = 
MAKE_YOUNG_PAIR(BGl_string1888z00zz__modulez00, BgL_arg1253z00_1208); } 
BgL_arg1249z00_1206 = 
MAKE_YOUNG_PAIR(BgL_filesz00_14, BgL_arg1252z00_1207); } 
BgL_arg1248z00_1205 = 
MAKE_YOUNG_PAIR(BGl_string1889z00zz__modulez00, BgL_arg1249z00_1206); } 
BgL_arg1242z00_1204 = 
MAKE_YOUNG_PAIR(BgL_arg1234z00_1199, BgL_arg1248z00_1205); } 
BgL_arg1241z00_1203 = 
MAKE_YOUNG_PAIR(BGl_string1890z00zz__modulez00, BgL_arg1242z00_1204); } 
BgL_arg1239z00_1202 = 
MAKE_YOUNG_PAIR(BgL_modulez00_13, BgL_arg1241z00_1203); } 
BgL_arg1236z00_1201 = 
MAKE_YOUNG_PAIR(BGl_string1891z00zz__modulez00, BgL_arg1239z00_1202); } 
BgL_list1235z00_1200 = 
MAKE_YOUNG_PAIR(BGl_string1892z00zz__modulez00, BgL_arg1236z00_1201); } 
BGl_warningz00zz__errorz00(BgL_list1235z00_1200); } } 
return BGl_list1893z00zz__modulez00;} }  else 
{ /* Llib/module.scm 182 */
 obj_t BgL_arg1259z00_1211;
{ /* Llib/module.scm 182 */
 obj_t BgL_arg1261z00_1212; obj_t BgL_arg1262z00_1213;
BgL_arg1261z00_1212 = 
MAKE_YOUNG_PAIR(BgL_modulez00_13, BgL_filesz00_14); 
{ /* Llib/module.scm 182 */
 obj_t BgL_pairz00_1786;
if(
PAIRP(BgL_basez00_1195))
{ /* Llib/module.scm 182 */
BgL_pairz00_1786 = BgL_basez00_1195; }  else 
{ 
 obj_t BgL_auxz00_2512;
BgL_auxz00_2512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6905L), BGl_string1886z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_basez00_1195); 
FAILURE(BgL_auxz00_2512,BFALSE,BFALSE);} 
BgL_arg1262z00_1213 = 
CDR(BgL_pairz00_1786); } 
BgL_arg1259z00_1211 = 
MAKE_YOUNG_PAIR(BgL_arg1261z00_1212, BgL_arg1262z00_1213); } 
{ /* Llib/module.scm 182 */
 obj_t BgL_pairz00_1787;
if(
PAIRP(BgL_basez00_1195))
{ /* Llib/module.scm 182 */
BgL_pairz00_1787 = BgL_basez00_1195; }  else 
{ 
 obj_t BgL_auxz00_2520;
BgL_auxz00_2520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(6869L), BGl_string1886z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_basez00_1195); 
FAILURE(BgL_auxz00_2520,BFALSE,BFALSE);} 
return 
SET_CDR(BgL_pairz00_1787, BgL_arg1259z00_1211);} } }  else 
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1265z00_1215;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1266z00_1216;
{ /* Llib/module.scm 179 */
 obj_t BgL_arg1267z00_1217;
BgL_arg1267z00_1217 = 
MAKE_YOUNG_PAIR(BgL_modulez00_13, BgL_filesz00_14); 
{ /* Llib/module.scm 179 */
 obj_t BgL_list1268z00_1218;
BgL_list1268z00_1218 = 
MAKE_YOUNG_PAIR(BgL_arg1267z00_1217, BNIL); 
BgL_arg1266z00_1216 = BgL_list1268z00_1218; } } 
BgL_arg1265z00_1215 = 
MAKE_YOUNG_PAIR(BgL_abasez00_15, BgL_arg1266z00_1216); } 
return ( 
BGl_afilezd2tablezd2zz__modulez00 = 
MAKE_YOUNG_PAIR(BgL_arg1265z00_1215, 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 194 */
{ 
 obj_t BgL_fz00_1235; obj_t BgL_basez00_1236;
{ /* Llib/module.scm 202 */
 obj_t BgL_top2032z00_2530;
BgL_top2032z00_2530 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top2032z00_2530, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 202 */
 obj_t BgL_tmp2031z00_2529;
{ /* Llib/module.scm 204 */
 obj_t BgL_arg1269z00_1220;
{ /* Llib/module.scm 204 */
 obj_t BgL_head1080z00_1223;
BgL_head1080z00_1223 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1078z00_1225; obj_t BgL_tail1081z00_1226;
BgL_l1078z00_1225 = BgL_filesz00_17; 
BgL_tail1081z00_1226 = BgL_head1080z00_1223; 
BgL_zc3z04anonymousza31271ze3z87_1227:
if(
PAIRP(BgL_l1078z00_1225))
{ /* Llib/module.scm 204 */
 obj_t BgL_newtail1082z00_1229;
{ /* Llib/module.scm 204 */
 obj_t BgL_tmpz00_2537;
BgL_fz00_1235 = 
CAR(BgL_l1078z00_1225); 
BgL_basez00_1236 = BgL_abasez00_18; 
{ /* Llib/module.scm 197 */
 bool_t BgL_test2034z00_2538;
{ /* Llib/module.scm 197 */
 bool_t BgL_test2035z00_2539;
{ /* Llib/module.scm 197 */
 long BgL_tmpz00_2540;
{ /* Llib/module.scm 197 */
 obj_t BgL_stringz00_1789;
if(
STRINGP(BgL_fz00_1235))
{ /* Llib/module.scm 197 */
BgL_stringz00_1789 = BgL_fz00_1235; }  else 
{ 
 obj_t BgL_auxz00_2543;
BgL_auxz00_2543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7503L), BGl_string1900z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_fz00_1235); 
FAILURE(BgL_auxz00_2543,BFALSE,BFALSE);} 
BgL_tmpz00_2540 = 
STRING_LENGTH(BgL_stringz00_1789); } 
BgL_test2035z00_2539 = 
(BgL_tmpz00_2540>0L); } 
if(BgL_test2035z00_2539)
{ /* Llib/module.scm 198 */
 unsigned char BgL_char2z00_1793;
BgL_char2z00_1793 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Llib/module.scm 198 */
 unsigned char BgL_tmpz00_2550;
{ /* Llib/module.scm 198 */
 obj_t BgL_stringz00_1791;
if(
STRINGP(BgL_fz00_1235))
{ /* Llib/module.scm 198 */
BgL_stringz00_1791 = BgL_fz00_1235; }  else 
{ 
 obj_t BgL_auxz00_2553;
BgL_auxz00_2553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7552L), BGl_string1900z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_fz00_1235); 
FAILURE(BgL_auxz00_2553,BFALSE,BFALSE);} 
{ /* Llib/module.scm 198 */
 long BgL_l1764z00_2081;
BgL_l1764z00_2081 = 
STRING_LENGTH(BgL_stringz00_1791); 
if(
BOUND_CHECK(0L, BgL_l1764z00_2081))
{ /* Llib/module.scm 198 */
BgL_tmpz00_2550 = 
STRING_REF(BgL_stringz00_1791, 0L)
; }  else 
{ 
 obj_t BgL_auxz00_2561;
BgL_auxz00_2561 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7540L), BGl_string1901z00zz__modulez00, BgL_stringz00_1791, 
(int)(BgL_l1764z00_2081), 
(int)(0L)); 
FAILURE(BgL_auxz00_2561,BFALSE,BFALSE);} } } 
BgL_test2034z00_2538 = 
(BgL_tmpz00_2550==BgL_char2z00_1793); } }  else 
{ /* Llib/module.scm 197 */
BgL_test2034z00_2538 = ((bool_t)0)
; } } 
if(BgL_test2034z00_2538)
{ /* Llib/module.scm 197 */
BgL_tmpz00_2537 = BgL_fz00_1235
; }  else 
{ /* Llib/module.scm 200 */
 obj_t BgL_arg1285z00_1243;
{ /* Llib/module.scm 200 */
 obj_t BgL_auxz00_2568;
if(
STRINGP(BgL_fz00_1235))
{ /* Llib/module.scm 200 */
BgL_auxz00_2568 = BgL_fz00_1235
; }  else 
{ 
 obj_t BgL_auxz00_2571;
BgL_auxz00_2571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7635L), BGl_string1900z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_fz00_1235); 
FAILURE(BgL_auxz00_2571,BFALSE,BFALSE);} 
BgL_arg1285z00_1243 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_1236, BgL_auxz00_2568); } 
BgL_tmpz00_2537 = 
BGl_filezd2namezd2canonicaliza7eza7zz__osz00(BgL_arg1285z00_1243); } } 
BgL_newtail1082z00_1229 = 
MAKE_YOUNG_PAIR(BgL_tmpz00_2537, BNIL); } 
SET_CDR(BgL_tail1081z00_1226, BgL_newtail1082z00_1229); 
{ 
 obj_t BgL_tail1081z00_2582; obj_t BgL_l1078z00_2580;
BgL_l1078z00_2580 = 
CDR(BgL_l1078z00_1225); 
BgL_tail1081z00_2582 = BgL_newtail1082z00_1229; 
BgL_tail1081z00_1226 = BgL_tail1081z00_2582; 
BgL_l1078z00_1225 = BgL_l1078z00_2580; 
goto BgL_zc3z04anonymousza31271ze3z87_1227;} }  else 
{ /* Llib/module.scm 204 */
if(
NULLP(BgL_l1078z00_1225))
{ /* Llib/module.scm 204 */
BgL_arg1269z00_1220 = 
CDR(BgL_head1080z00_1223); }  else 
{ /* Llib/module.scm 204 */
BgL_arg1269z00_1220 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1902z00zz__modulez00, BGl_string1903z00zz__modulez00, BgL_l1078z00_1225, BGl_string1856z00zz__modulez00, 
BINT(7716L)); } } } } 
BgL_tmp2031z00_2529 = 
BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(BgL_modulez00_16, BgL_arg1269z00_1220, BgL_abasez00_18); } 
BGL_EXITD_POP_PROTECT(BgL_top2032z00_2530); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp2031z00_2529;} } } } 

}



/* &module-add-access! */
obj_t BGl_z62modulezd2addzd2accessz12z70zz__modulez00(obj_t BgL_envz00_2066, obj_t BgL_modulez00_2067, obj_t BgL_filesz00_2068, obj_t BgL_abasez00_2069)
{
{ /* Llib/module.scm 194 */
{ /* Llib/module.scm 197 */
 obj_t BgL_auxz00_2605; obj_t BgL_auxz00_2598; obj_t BgL_auxz00_2591;
if(
STRINGP(BgL_abasez00_2069))
{ /* Llib/module.scm 197 */
BgL_auxz00_2605 = BgL_abasez00_2069
; }  else 
{ 
 obj_t BgL_auxz00_2608;
BgL_auxz00_2608 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7489L), BGl_string1904z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_abasez00_2069); 
FAILURE(BgL_auxz00_2608,BFALSE,BFALSE);} 
if(
PAIRP(BgL_filesz00_2068))
{ /* Llib/module.scm 197 */
BgL_auxz00_2598 = BgL_filesz00_2068
; }  else 
{ 
 obj_t BgL_auxz00_2601;
BgL_auxz00_2601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7489L), BGl_string1904z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_filesz00_2068); 
FAILURE(BgL_auxz00_2601,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_modulez00_2067))
{ /* Llib/module.scm 197 */
BgL_auxz00_2591 = BgL_modulez00_2067
; }  else 
{ 
 obj_t BgL_auxz00_2594;
BgL_auxz00_2594 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(7489L), BGl_string1904z00zz__modulez00, BGl_string1877z00zz__modulez00, BgL_modulez00_2067); 
FAILURE(BgL_auxz00_2594,BFALSE,BFALSE);} 
return 
BGl_modulezd2addzd2accessz12z12zz__modulez00(BgL_auxz00_2591, BgL_auxz00_2598, BgL_auxz00_2605);} } 

}



/* module-read-access-file */
obj_t BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(obj_t BgL_portz00_19)
{
{ /* Llib/module.scm 210 */
{ /* Llib/module.scm 211 */
 obj_t BgL_hook1087z00_1248;
BgL_hook1087z00_1248 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ /* Llib/module.scm 217 */
 obj_t BgL_g1089z00_1249;
{ /* Llib/module.scm 217 */

{ /* Llib/module.scm 217 */
 obj_t BgL_iportz00_1284;
if(
INPUT_PORTP(BgL_portz00_19))
{ /* Llib/module.scm 217 */
BgL_iportz00_1284 = BgL_portz00_19; }  else 
{ 
 obj_t BgL_auxz00_2616;
BgL_auxz00_2616 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8217L), BGl_string1905z00zz__modulez00, BGl_string1906z00zz__modulez00, BgL_portz00_19); 
FAILURE(BgL_auxz00_2616,BFALSE,BFALSE);} 
{ /* Llib/module.scm 217 */

BgL_g1089z00_1249 = 
BGl_readz00zz__readerz00(BgL_iportz00_1284, BFALSE); } } } 
{ 
 obj_t BgL_l1084z00_1251; obj_t BgL_h1085z00_1252;
BgL_l1084z00_1251 = BgL_g1089z00_1249; 
BgL_h1085z00_1252 = BgL_hook1087z00_1248; 
BgL_zc3z04anonymousza31292ze3z87_1253:
if(
NULLP(BgL_l1084z00_1251))
{ /* Llib/module.scm 217 */
return 
CDR(BgL_hook1087z00_1248);}  else 
{ /* Llib/module.scm 217 */
 bool_t BgL_test2046z00_2624;
{ /* Llib/module.scm 212 */
 obj_t BgL_xz00_1274;
{ /* Llib/module.scm 212 */
 obj_t BgL_pairz00_1799;
if(
PAIRP(BgL_l1084z00_1251))
{ /* Llib/module.scm 212 */
BgL_pairz00_1799 = BgL_l1084z00_1251; }  else 
{ 
 obj_t BgL_auxz00_2627;
BgL_auxz00_2627 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8063L), BGl_string1907z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1084z00_1251); 
FAILURE(BgL_auxz00_2627,BFALSE,BFALSE);} 
BgL_xz00_1274 = 
CAR(BgL_pairz00_1799); } 
{ /* Llib/module.scm 212 */
 bool_t BgL_test2048z00_2632;
if(
PAIRP(BgL_xz00_1274))
{ /* Llib/module.scm 212 */
 bool_t BgL_test2050z00_2635;
{ /* Llib/module.scm 212 */
 obj_t BgL_tmpz00_2636;
BgL_tmpz00_2636 = 
CAR(BgL_xz00_1274); 
BgL_test2050z00_2635 = 
SYMBOLP(BgL_tmpz00_2636); } 
if(BgL_test2050z00_2635)
{ /* Llib/module.scm 212 */
BgL_test2048z00_2632 = 
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_xz00_1274))
; }  else 
{ /* Llib/module.scm 212 */
BgL_test2048z00_2632 = ((bool_t)0)
; } }  else 
{ /* Llib/module.scm 212 */
BgL_test2048z00_2632 = ((bool_t)0)
; } 
if(BgL_test2048z00_2632)
{ /* Llib/module.scm 212 */
BgL_test2046z00_2624 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 212 */
{ /* Llib/module.scm 215 */
 obj_t BgL_list1336z00_1276;
{ /* Llib/module.scm 215 */
 obj_t BgL_arg1337z00_1277;
{ /* Llib/module.scm 215 */
 obj_t BgL_arg1338z00_1278;
BgL_arg1338z00_1278 = 
MAKE_YOUNG_PAIR(BgL_xz00_1274, BNIL); 
BgL_arg1337z00_1277 = 
MAKE_YOUNG_PAIR(BGl_string1908z00zz__modulez00, BgL_arg1338z00_1278); } 
BgL_list1336z00_1276 = 
MAKE_YOUNG_PAIR(BGl_string1905z00zz__modulez00, BgL_arg1337z00_1277); } 
BGl_warningz00zz__errorz00(BgL_list1336z00_1276); } 
BgL_test2046z00_2624 = ((bool_t)0); } } } 
if(BgL_test2046z00_2624)
{ /* Llib/module.scm 217 */
 obj_t BgL_nh1086z00_1270;
{ /* Llib/module.scm 217 */
 obj_t BgL_arg1334z00_1272;
{ /* Llib/module.scm 217 */
 obj_t BgL_pairz00_1802;
if(
PAIRP(BgL_l1084z00_1251))
{ /* Llib/module.scm 217 */
BgL_pairz00_1802 = BgL_l1084z00_1251; }  else 
{ 
 obj_t BgL_auxz00_2647;
BgL_auxz00_2647 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8217L), BGl_string1907z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1084z00_1251); 
FAILURE(BgL_auxz00_2647,BFALSE,BFALSE);} 
BgL_arg1334z00_1272 = 
CAR(BgL_pairz00_1802); } 
BgL_nh1086z00_1270 = 
MAKE_YOUNG_PAIR(BgL_arg1334z00_1272, BNIL); } 
SET_CDR(BgL_h1085z00_1252, BgL_nh1086z00_1270); 
{ /* Llib/module.scm 217 */
 obj_t BgL_arg1333z00_1271;
{ /* Llib/module.scm 217 */
 obj_t BgL_pairz00_1804;
if(
PAIRP(BgL_l1084z00_1251))
{ /* Llib/module.scm 217 */
BgL_pairz00_1804 = BgL_l1084z00_1251; }  else 
{ 
 obj_t BgL_auxz00_2656;
BgL_auxz00_2656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8217L), BGl_string1907z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1084z00_1251); 
FAILURE(BgL_auxz00_2656,BFALSE,BFALSE);} 
BgL_arg1333z00_1271 = 
CDR(BgL_pairz00_1804); } 
{ 
 obj_t BgL_h1085z00_2662; obj_t BgL_l1084z00_2661;
BgL_l1084z00_2661 = BgL_arg1333z00_1271; 
BgL_h1085z00_2662 = BgL_nh1086z00_1270; 
BgL_h1085z00_1252 = BgL_h1085z00_2662; 
BgL_l1084z00_1251 = BgL_l1084z00_2661; 
goto BgL_zc3z04anonymousza31292ze3z87_1253;} } }  else 
{ /* Llib/module.scm 217 */
 obj_t BgL_arg1335z00_1273;
{ /* Llib/module.scm 217 */
 obj_t BgL_pairz00_1805;
if(
PAIRP(BgL_l1084z00_1251))
{ /* Llib/module.scm 217 */
BgL_pairz00_1805 = BgL_l1084z00_1251; }  else 
{ 
 obj_t BgL_auxz00_2665;
BgL_auxz00_2665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8217L), BGl_string1907z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1084z00_1251); 
FAILURE(BgL_auxz00_2665,BFALSE,BFALSE);} 
BgL_arg1335z00_1273 = 
CDR(BgL_pairz00_1805); } 
{ 
 obj_t BgL_l1084z00_2670;
BgL_l1084z00_2670 = BgL_arg1335z00_1273; 
BgL_l1084z00_1251 = BgL_l1084z00_2670; 
goto BgL_zc3z04anonymousza31292ze3z87_1253;} } } } } } } 

}



/* module-load-access-file */
BGL_EXPORTED_DEF obj_t BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(obj_t BgL_pathz00_20)
{
{ /* Llib/module.scm 228 */
{ 
 obj_t BgL_filez00_1313; obj_t BgL_dirz00_1314; obj_t BgL_abasez00_1315;
{ /* Llib/module.scm 251 */
 obj_t BgL_pathz00_1288;
BgL_pathz00_1288 = 
BGl_filezd2namezd2canonicaliza7eza7zz__osz00(BgL_pathz00_20); 
{ /* Llib/module.scm 252 */
 obj_t BgL_top2055z00_2673;
BgL_top2055z00_2673 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
BGL_EXITD_PUSH_PROTECT(BgL_top2055z00_2673, BGl_moduleszd2mutexzd2zz__modulez00); BUNSPEC; 
{ /* Llib/module.scm 252 */
 obj_t BgL_tmp2054z00_2672;
{ /* Llib/module.scm 253 */
 obj_t BgL__ortest_1039z00_1289;
{ /* Llib/module.scm 253 */
 obj_t BgL_auxz00_2677;
{ /* Llib/module.scm 253 */
 obj_t BgL_aux1835z00_2153;
BgL_aux1835z00_2153 = BGl_za2afileszd2tableza2zd2zz__modulez00; 
if(
STRUCTP(BgL_aux1835z00_2153))
{ /* Llib/module.scm 253 */
BgL_auxz00_2677 = BgL_aux1835z00_2153
; }  else 
{ 
 obj_t BgL_auxz00_2680;
BgL_auxz00_2680 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9507L), BGl_string1909z00zz__modulez00, BGl_string1910z00zz__modulez00, BgL_aux1835z00_2153); 
FAILURE(BgL_auxz00_2680,BFALSE,BFALSE);} } 
BgL__ortest_1039z00_1289 = 
BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_2677, BgL_pathz00_1288); } 
if(
CBOOL(BgL__ortest_1039z00_1289))
{ /* Llib/module.scm 253 */
BgL_tmp2054z00_2672 = BgL__ortest_1039z00_1289; }  else 
{ /* Llib/module.scm 253 */
if(
bgl_directoryp(
BSTRING_TO_STRING(BgL_pathz00_1288)))
{ 
 obj_t BgL_dz00_1292;
BgL_dz00_1292 = BgL_pathz00_1288; 
BgL_zc3z04anonymousza31343ze3z87_1293:
{ /* Llib/module.scm 257 */
 obj_t BgL_filez00_1294;
BgL_filez00_1294 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_dz00_1292, BGl_string1911z00zz__modulez00); 
if(
fexists(
BSTRING_TO_STRING(BgL_filez00_1294)))
{ /* Llib/module.scm 258 */
BgL_filez00_1313 = BgL_filez00_1294; 
BgL_dirz00_1314 = BgL_dz00_1292; 
BgL_abasez00_1315 = BgL_pathz00_1288; 
BgL_zc3z04anonymousza31358ze3z87_1316:
{ /* Llib/module.scm 239 */
 obj_t BgL_zc3z04anonymousza31360ze3z87_2070;
BgL_zc3z04anonymousza31360ze3z87_2070 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31360ze3ze5zz__modulez00, 
(int)(1L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2070, 
(int)(0L), BgL_pathz00_20); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2070, 
(int)(1L), BgL_filez00_1313); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2070, 
(int)(2L), BgL_dirz00_1314); 
PROCEDURE_SET(BgL_zc3z04anonymousza31360ze3z87_2070, 
(int)(3L), BgL_abasez00_1315); 
BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(BgL_filez00_1313, BgL_zc3z04anonymousza31360ze3z87_2070); } 
BgL_tmp2054z00_2672 = BgL_filez00_1313; }  else 
{ /* Llib/module.scm 260 */
 obj_t BgL_parentz00_1296;
BgL_parentz00_1296 = 
BGl_dirnamez00zz__osz00(BgL_dz00_1292); 
{ /* Llib/module.scm 261 */
 bool_t BgL_test2060z00_2707;
{ /* Llib/module.scm 261 */
 long BgL_l1z00_1843;
BgL_l1z00_1843 = 
STRING_LENGTH(BgL_parentz00_1296); 
if(
(BgL_l1z00_1843==
STRING_LENGTH(BgL_dz00_1292)))
{ /* Llib/module.scm 261 */
 int BgL_arg1429z00_1846;
{ /* Llib/module.scm 261 */
 char * BgL_auxz00_2714; char * BgL_tmpz00_2712;
BgL_auxz00_2714 = 
BSTRING_TO_STRING(BgL_dz00_1292); 
BgL_tmpz00_2712 = 
BSTRING_TO_STRING(BgL_parentz00_1296); 
BgL_arg1429z00_1846 = 
memcmp(BgL_tmpz00_2712, BgL_auxz00_2714, BgL_l1z00_1843); } 
BgL_test2060z00_2707 = 
(
(long)(BgL_arg1429z00_1846)==0L); }  else 
{ /* Llib/module.scm 261 */
BgL_test2060z00_2707 = ((bool_t)0)
; } } 
if(BgL_test2060z00_2707)
{ /* Llib/module.scm 261 */
BgL_tmp2054z00_2672 = BFALSE; }  else 
{ 
 obj_t BgL_dz00_2719;
BgL_dz00_2719 = BgL_parentz00_1296; 
BgL_dz00_1292 = BgL_dz00_2719; 
goto BgL_zc3z04anonymousza31343ze3z87_1293;} } } } }  else 
{ /* Llib/module.scm 255 */
if(
fexists(
BSTRING_TO_STRING(BgL_pathz00_1288)))
{ /* Llib/module.scm 264 */
 obj_t BgL_dirz00_1300;
BgL_dirz00_1300 = 
BGl_dirnamez00zz__osz00(BgL_pathz00_1288); 
{ 
 obj_t BgL_abasez00_2726; obj_t BgL_dirz00_2725; obj_t BgL_filez00_2724;
BgL_filez00_2724 = BgL_pathz00_1288; 
BgL_dirz00_2725 = BgL_dirz00_1300; 
BgL_abasez00_2726 = BgL_dirz00_1300; 
BgL_abasez00_1315 = BgL_abasez00_2726; 
BgL_dirz00_1314 = BgL_dirz00_2725; 
BgL_filez00_1313 = BgL_filez00_2724; 
goto BgL_zc3z04anonymousza31358ze3z87_1316;} }  else 
{ /* Llib/module.scm 263 */
BgL_tmp2054z00_2672 = BFALSE; } } } } 
BGL_EXITD_POP_PROTECT(BgL_top2055z00_2673); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_moduleszd2mutexzd2zz__modulez00); 
return BgL_tmp2054z00_2672;} } } } } 

}



/* &module-load-access-file */
obj_t BGl_z62modulezd2loadzd2accesszd2filezb0zz__modulez00(obj_t BgL_envz00_2071, obj_t BgL_pathz00_2072)
{
{ /* Llib/module.scm 228 */
{ /* Llib/module.scm 232 */
 obj_t BgL_auxz00_2729;
if(
STRINGP(BgL_pathz00_2072))
{ /* Llib/module.scm 232 */
BgL_auxz00_2729 = BgL_pathz00_2072
; }  else 
{ 
 obj_t BgL_auxz00_2732;
BgL_auxz00_2732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8817L), BGl_string1912z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_pathz00_2072); 
FAILURE(BgL_auxz00_2732,BFALSE,BFALSE);} 
return 
BGl_modulezd2loadzd2accesszd2filezd2zz__modulez00(BgL_auxz00_2729);} } 

}



/* &<@anonymous:1360> */
obj_t BGl_z62zc3z04anonymousza31360ze3ze5zz__modulez00(obj_t BgL_envz00_2073, obj_t BgL_portz00_2078)
{
{ /* Llib/module.scm 238 */
{ /* Llib/module.scm 239 */
 obj_t BgL_pathz00_2074; obj_t BgL_filez00_2075; obj_t BgL_dirz00_2076; obj_t BgL_abasez00_2077;
BgL_pathz00_2074 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2073, 
(int)(0L))); 
BgL_filez00_2075 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2073, 
(int)(1L))); 
BgL_dirz00_2076 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2073, 
(int)(2L))); 
BgL_abasez00_2077 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_2073, 
(int)(3L))); 
{ 
 obj_t BgL_fz00_2190; obj_t BgL_abasez00_2191;
{ /* Llib/module.scm 239 */
 obj_t BgL_auxz00_2749;
{ /* Llib/module.scm 239 */
 obj_t BgL_aux1841z00_2197;
BgL_aux1841z00_2197 = BGl_za2afileszd2tableza2zd2zz__modulez00; 
if(
STRUCTP(BgL_aux1841z00_2197))
{ /* Llib/module.scm 239 */
BgL_auxz00_2749 = BgL_aux1841z00_2197
; }  else 
{ 
 obj_t BgL_auxz00_2752;
BgL_auxz00_2752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9084L), BGl_string1915z00zz__modulez00, BGl_string1910z00zz__modulez00, BgL_aux1841z00_2197); 
FAILURE(BgL_auxz00_2752,BFALSE,BFALSE);} } 
BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_2749, BgL_pathz00_2074, BgL_filez00_2075); } 
{ /* Llib/module.scm 240 */
 obj_t BgL_g1095z00_2198;
BgL_g1095z00_2198 = 
BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(BgL_portz00_2078); 
{ 
 obj_t BgL_l1093z00_2200;
BgL_l1093z00_2200 = BgL_g1095z00_2198; 
BgL_zc3z04anonymousza31361ze3z87_2199:
if(
PAIRP(BgL_l1093z00_2200))
{ /* Llib/module.scm 248 */
{ /* Llib/module.scm 241 */
 obj_t BgL_accessz00_2201;
BgL_accessz00_2201 = 
CAR(BgL_l1093z00_2200); 
{ /* Llib/module.scm 241 */
 obj_t BgL_infoz00_2202;
{ /* Llib/module.scm 241 */
 bool_t BgL_test2066z00_2761;
{ /* Llib/module.scm 241 */
 long BgL_l1z00_2203;
BgL_l1z00_2203 = 
STRING_LENGTH(BgL_dirz00_2076); 
if(
(BgL_l1z00_2203==1L))
{ /* Llib/module.scm 241 */
 int BgL_arg1429z00_2204;
{ /* Llib/module.scm 241 */
 char * BgL_auxz00_2767; char * BgL_tmpz00_2765;
BgL_auxz00_2767 = 
BSTRING_TO_STRING(BGl_string1873z00zz__modulez00); 
BgL_tmpz00_2765 = 
BSTRING_TO_STRING(BgL_dirz00_2076); 
BgL_arg1429z00_2204 = 
memcmp(BgL_tmpz00_2765, BgL_auxz00_2767, BgL_l1z00_2203); } 
BgL_test2066z00_2761 = 
(
(long)(BgL_arg1429z00_2204)==0L); }  else 
{ /* Llib/module.scm 241 */
BgL_test2066z00_2761 = ((bool_t)0)
; } } 
if(BgL_test2066z00_2761)
{ /* Llib/module.scm 242 */
 obj_t BgL_pairz00_2205;
if(
PAIRP(BgL_accessz00_2201))
{ /* Llib/module.scm 242 */
BgL_pairz00_2205 = BgL_accessz00_2201; }  else 
{ 
 obj_t BgL_auxz00_2774;
BgL_auxz00_2774 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9192L), BGl_string1916z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_accessz00_2201); 
FAILURE(BgL_auxz00_2774,BFALSE,BFALSE);} 
BgL_infoz00_2202 = 
CDR(BgL_pairz00_2205); }  else 
{ /* Llib/module.scm 243 */
 obj_t BgL_l01092z00_2206;
{ /* Llib/module.scm 245 */
 obj_t BgL_pairz00_2207;
if(
PAIRP(BgL_accessz00_2201))
{ /* Llib/module.scm 245 */
BgL_pairz00_2207 = BgL_accessz00_2201; }  else 
{ 
 obj_t BgL_auxz00_2781;
BgL_auxz00_2781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9269L), BGl_string1916z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_accessz00_2201); 
FAILURE(BgL_auxz00_2781,BFALSE,BFALSE);} 
BgL_l01092z00_2206 = 
CDR(BgL_pairz00_2207); } 
{ 
 obj_t BgL_l1091z00_2209;
BgL_l1091z00_2209 = BgL_l01092z00_2206; 
BgL_zc3z04anonymousza31365ze3z87_2208:
if(
NULLP(BgL_l1091z00_2209))
{ /* Llib/module.scm 245 */
BgL_infoz00_2202 = BgL_l01092z00_2206; }  else 
{ /* Llib/module.scm 245 */
{ /* Llib/module.scm 244 */
 obj_t BgL_arg1367z00_2210;
{ /* Llib/module.scm 244 */
 obj_t BgL_fz00_2211;
{ /* Llib/module.scm 244 */
 obj_t BgL_pairz00_2212;
if(
PAIRP(BgL_l1091z00_2209))
{ /* Llib/module.scm 244 */
BgL_pairz00_2212 = BgL_l1091z00_2209; }  else 
{ 
 obj_t BgL_auxz00_2790;
BgL_auxz00_2790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9232L), BGl_string1917z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1091z00_2209); 
FAILURE(BgL_auxz00_2790,BFALSE,BFALSE);} 
BgL_fz00_2211 = 
CAR(BgL_pairz00_2212); } 
BgL_fz00_2190 = BgL_fz00_2211; 
BgL_abasez00_2191 = BgL_dirz00_2076; 
if(
STRINGP(BgL_fz00_2190))
{ /* Llib/module.scm 233 */
 bool_t BgL_test2073z00_2797;
{ /* Llib/module.scm 233 */
 bool_t BgL_test2074z00_2798;
{ /* Llib/module.scm 233 */
 long BgL_l1z00_2192;
BgL_l1z00_2192 = 
STRING_LENGTH(BgL_fz00_2190); 
if(
(BgL_l1z00_2192==0L))
{ /* Llib/module.scm 233 */
 int BgL_arg1429z00_2193;
{ /* Llib/module.scm 233 */
 char * BgL_auxz00_2804; char * BgL_tmpz00_2802;
BgL_auxz00_2804 = 
BSTRING_TO_STRING(BGl_string1913z00zz__modulez00); 
BgL_tmpz00_2802 = 
BSTRING_TO_STRING(BgL_fz00_2190); 
BgL_arg1429z00_2193 = 
memcmp(BgL_tmpz00_2802, BgL_auxz00_2804, BgL_l1z00_2192); } 
BgL_test2074z00_2798 = 
(
(long)(BgL_arg1429z00_2193)==0L); }  else 
{ /* Llib/module.scm 233 */
BgL_test2074z00_2798 = ((bool_t)0)
; } } 
if(BgL_test2074z00_2798)
{ /* Llib/module.scm 233 */
BgL_test2073z00_2797 = ((bool_t)1)
; }  else 
{ /* Llib/module.scm 233 */
 unsigned char BgL_char2z00_2194;
BgL_char2z00_2194 = 
(unsigned char)(FILE_SEPARATOR); 
{ /* Llib/module.scm 233 */
 unsigned char BgL_tmpz00_2810;
{ /* Llib/module.scm 233 */
 long BgL_l1768z00_2195;
BgL_l1768z00_2195 = 
STRING_LENGTH(BgL_fz00_2190); 
if(
BOUND_CHECK(0L, BgL_l1768z00_2195))
{ /* Llib/module.scm 233 */
BgL_tmpz00_2810 = 
STRING_REF(BgL_fz00_2190, 0L)
; }  else 
{ 
 obj_t BgL_auxz00_2815;
BgL_auxz00_2815 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8870L), BGl_string1901z00zz__modulez00, BgL_fz00_2190, 
(int)(BgL_l1768z00_2195), 
(int)(0L)); 
FAILURE(BgL_auxz00_2815,BFALSE,BFALSE);} } 
BgL_test2073z00_2797 = 
(BgL_tmpz00_2810==BgL_char2z00_2194); } } } 
if(BgL_test2073z00_2797)
{ /* Llib/module.scm 233 */
BgL_arg1367z00_2210 = BgL_fz00_2190; }  else 
{ /* Llib/module.scm 234 */
 obj_t BgL_arg1355z00_2196;
{ /* Llib/module.scm 234 */
 obj_t BgL_auxz00_2822;
if(
STRINGP(BgL_abasez00_2191))
{ /* Llib/module.scm 234 */
BgL_auxz00_2822 = BgL_abasez00_2191
; }  else 
{ 
 obj_t BgL_auxz00_2825;
BgL_auxz00_2825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(8957L), BGl_string1914z00zz__modulez00, BGl_string1875z00zz__modulez00, BgL_abasez00_2191); 
FAILURE(BgL_auxz00_2825,BFALSE,BFALSE);} 
BgL_arg1355z00_2196 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_auxz00_2822, BgL_fz00_2190); } 
BgL_arg1367z00_2210 = 
BGl_filezd2namezd2canonicaliza7eza7zz__osz00(BgL_arg1355z00_2196); } }  else 
{ /* Llib/module.scm 232 */
BgL_arg1367z00_2210 = BgL_fz00_2190; } } 
{ /* Llib/module.scm 245 */
 obj_t BgL_pairz00_2213;
if(
PAIRP(BgL_l1091z00_2209))
{ /* Llib/module.scm 245 */
BgL_pairz00_2213 = BgL_l1091z00_2209; }  else 
{ 
 obj_t BgL_auxz00_2833;
BgL_auxz00_2833 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9264L), BGl_string1917z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1091z00_2209); 
FAILURE(BgL_auxz00_2833,BFALSE,BFALSE);} 
SET_CAR(BgL_pairz00_2213, BgL_arg1367z00_2210); } } 
{ /* Llib/module.scm 245 */
 obj_t BgL_arg1368z00_2214;
{ /* Llib/module.scm 245 */
 obj_t BgL_pairz00_2215;
if(
PAIRP(BgL_l1091z00_2209))
{ /* Llib/module.scm 245 */
BgL_pairz00_2215 = BgL_l1091z00_2209; }  else 
{ 
 obj_t BgL_auxz00_2840;
BgL_auxz00_2840 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9264L), BGl_string1917z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_l1091z00_2209); 
FAILURE(BgL_auxz00_2840,BFALSE,BFALSE);} 
BgL_arg1368z00_2214 = 
CDR(BgL_pairz00_2215); } 
{ 
 obj_t BgL_l1091z00_2845;
BgL_l1091z00_2845 = BgL_arg1368z00_2214; 
BgL_l1091z00_2209 = BgL_l1091z00_2845; 
goto BgL_zc3z04anonymousza31365ze3z87_2208;} } } } } } 
{ /* Llib/module.scm 247 */
 obj_t BgL_arg1363z00_2216;
{ /* Llib/module.scm 247 */
 obj_t BgL_pairz00_2217;
if(
PAIRP(BgL_accessz00_2201))
{ /* Llib/module.scm 247 */
BgL_pairz00_2217 = BgL_accessz00_2201; }  else 
{ 
 obj_t BgL_auxz00_2848;
BgL_auxz00_2848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1856z00zz__modulez00, 
BINT(9329L), BGl_string1916z00zz__modulez00, BGl_string1880z00zz__modulez00, BgL_accessz00_2201); 
FAILURE(BgL_auxz00_2848,BFALSE,BFALSE);} 
BgL_arg1363z00_2216 = 
CAR(BgL_pairz00_2217); } 
BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(BgL_arg1363z00_2216, BgL_infoz00_2202, BgL_abasez00_2077); } } } 
{ 
 obj_t BgL_l1093z00_2854;
BgL_l1093z00_2854 = 
CDR(BgL_l1093z00_2200); 
BgL_l1093z00_2200 = BgL_l1093z00_2854; 
goto BgL_zc3z04anonymousza31361ze3z87_2199;} }  else 
{ /* Llib/module.scm 248 */
if(
NULLP(BgL_l1093z00_2200))
{ /* Llib/module.scm 248 */
return BTRUE;}  else 
{ /* Llib/module.scm 248 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1918z00zz__modulez00, BGl_string1903z00zz__modulez00, BgL_l1093z00_2200, BGl_string1856z00zz__modulez00, 
BINT(9115L));} } } } } } } 

}



/* 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_string1919z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__configurez00(35034923L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00)); 
BGl_modulezd2initializa7ationz75zz__readerz00(220648206L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00)); 
return 
BGl_modulezd2initializa7ationz75zz__hashz00(254893342L, 
BSTRING_TO_STRING(BGl_string1919z00zz__modulez00));} 

}

#ifdef __cplusplus
}
#endif
