/* get-tvector-descriptor */
BGL_EXPORTED_DEF obj_t get_tvector_descriptor(obj_t BgL_idz00_22)
{
AN_OBJECT;
{ /* Llib/tvector.scm 125 */
if (PAIRP(BGl_za2tvectorzd2tableza2zd2zz__tvectorz00))
{ /* Llib/tvector.scm 126 */
obj_t BgL_cellz00_1323;
BgL_cellz00_1323 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_22,
BGl_za2tvectorzd2tableza2zd2zz__tvectorz00);
if (PAIRP(BgL_cellz00_1323))
{ /* Llib/tvector.scm 126 */
return CDR(BgL_cellz00_1323);
}
else
{ /* Llib/tvector.scm 126 */
return BFALSE;
}
}
else
{ /* Llib/tvector.scm 126 */
return BFALSE;
}
}
}
/* load-producer */
obj_t BGl_loadzd2producerzd2zzmodule_loadz00(obj_t BgL_clausez00_1)
{
AN_OBJECT;
{ /* Module/load.scm 37 */
{
obj_t BgL_protosz00_394;
if (PAIRP(BgL_clausez00_1))
{ /* Module/load.scm 38 */
obj_t BgL_arg2139z00_399;
BgL_arg2139z00_399 = CDR(BgL_clausez00_1);
{ /* Module/load.scm 38 */
bool_t BgL_auxz00_671;
BgL_protosz00_394 = BgL_arg2139z00_399;
{
obj_t BgL_l2114z00_401;
BgL_l2114z00_401 = BgL_protosz00_394;
BgL_zc3anonymousza32140ze3z83_402:
if (PAIRP(BgL_l2114z00_401))
{ /* Module/load.scm 40 */
BGl_loadzd2parserzd2zzmodule_loadz00(CAR(BgL_l2114z00_401),
BgL_clausez00_1);
{
obj_t BgL_l2114z00_676;
BgL_l2114z00_676 = CDR(BgL_l2114z00_401);
BgL_l2114z00_401 = BgL_l2114z00_676;
goto BgL_zc3anonymousza32140ze3z83_402;
}
}
else
{ /* Module/load.scm 40 */
BgL_auxz00_671 = ((bool_t) 1);
}
}
return BBOOL(BgL_auxz00_671);
}
}
else
{ /* Module/load.scm 38 */
{ /* Module/load.scm 42 */
obj_t BgL_list2146z00_407;
BgL_list2146z00_407 = MAKE_PAIR(BNIL, BNIL);
return
BGl_userzd2errorzd2zztools_errorz00
(BGl_string2258z00zzmodule_loadz00,
BGl_string2259z00zzmodule_loadz00, BgL_clausez00_1,
BgL_list2146z00_407);
}
}
}
}
}
/* args*->args-list */
BGL_EXPORTED_DEF obj_t BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(obj_t
BgL_expz00_6)
{
AN_OBJECT;
{ /* Tools/args.scm 106 */
if (NULLP(BgL_expz00_6))
{ /* Tools/args.scm 108 */
return BNIL;
}
else
{ /* Tools/args.scm 108 */
if (PAIRP(BgL_expz00_6))
{ /* Tools/args.scm 110 */
return
MAKE_PAIR(CAR(BgL_expz00_6),
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(CDR
(BgL_expz00_6)));
}
else
{ /* Tools/args.scm 111 */
obj_t BgL_list1538z00_144;
BgL_list1538z00_144 = MAKE_PAIR(BgL_expz00_6, BNIL);
return BgL_list1538z00_144;
}
}
}
}
/* process-lib-config */
obj_t BGl_processzd2libzd2configz00zzinit_libzd2dirzd2(obj_t BgL_pz00_6,
obj_t BgL_fz00_7)
{
AN_OBJECT;
{ /* Init/lib_dir.scm 51 */
{ /* Init/lib_dir.scm 53 */
obj_t BgL_readzd2configzd2_111;
BgL_readzd2configzd2_111 =
BGl_safezd2readzd2zzinit_libzd2dirzd2(BgL_pz00_6,
CNST_TABLE_REF(((long) 1)), BgL_fz00_7);
{ /* Init/lib_dir.scm 53 */
obj_t BgL_libzd2configzd2_112;
{ /* Init/lib_dir.scm 54 */
obj_t BgL_envz00_123;
BgL_envz00_123 = BGl_defaultzd2environmentzd2zz__evalz00();
{ /* Init/lib_dir.scm 54 */
BgL_libzd2configzd2_112 =
BGl_evalz00zz__evalz00(BgL_readzd2configzd2_111,
BgL_envz00_123);
}}
{ /* Init/lib_dir.scm 54 */
{
obj_t BgL_l1511z00_114;
BgL_l1511z00_114 = BgL_libzd2configzd2_112;
BgL_zc3anonymousza31520ze3z83_115:
if (PAIRP(BgL_l1511z00_114))
{ /* Init/lib_dir.scm 56 */
{ /* Init/lib_dir.scm 56 */
obj_t BgL_cz00_117;
BgL_cz00_117 = CAR(BgL_l1511z00_114);
BGl_bigloozd2configurationzd2addzd2entryz12zc0zz__configurez00
(CAR(BgL_cz00_117), CDR(BgL_cz00_117));
}
{
obj_t BgL_l1511z00_237;
BgL_l1511z00_237 = CDR(BgL_l1511z00_114);
BgL_l1511z00_114 = BgL_l1511z00_237;
goto BgL_zc3anonymousza31520ze3z83_115;
}
}
else
{ /* Init/lib_dir.scm 56 */
((bool_t) 1);
}
}
return
BGl_reinitializa7ezd2bigloozd2variablesz12zb5zzengine_paramz00();
}
}
}
}
}
void
VM::backtrace_each(printer_t* prt, int n, scm_obj_t note)
{
assert(PAIRP(note));
if (n < 10) prt->byte(' ');
if (CDR(note) == scm_nil) {
// (expr) : dynamic
prt->format(" %d ~u", n, CAR(note));
} else if (FIXNUMP(CDR(note))) {
// (path . fixnum) : load
assert(STRINGP(CAR(note)));
scm_string_t string = (scm_string_t)CAR(note);
int comment = FIXNUM(CDR(note));
int line = comment / MAX_SOURCE_COLUMN;
int column = comment % MAX_SOURCE_COLUMN;
scm_obj_t expr = backtrace_fetch(string->name, line, column);
if (expr == scm_unspecified) {
prt->format(" %d --- unknown ---", n);
} else {
prt->format(" %d ~u", n, expr);
}
prt->format("~% ...~s line %d", string, line);
} else {
// (expr path . fixnum) : repl
scm_string_t string = (scm_string_t)CADR(note);
int comment = FIXNUM(CDDR(note));
int line = comment / MAX_SOURCE_COLUMN;
prt->format(" %d ~u", n, CAR(note));
prt->format("~% ...~s line %d", string, line);
}
prt->format("~%");
}
/* _list->tvector */
obj_t BGl__listzd2ze3tvectorz31zz__tvectorz00(obj_t BgL_envz00_1647,
obj_t BgL_idz00_1648, obj_t BgL_lz00_1649)
{
AN_OBJECT;
{ /* Llib/tvector.scm 163 */
{ /* Llib/tvector.scm 164 */
obj_t BgL_auxz00_1838;
obj_t BgL_auxz00_1831;
{ /* Llib/tvector.scm 164 */
bool_t BgL_testz00_1839;
if (PAIRP(BgL_lz00_1649))
{ /* Llib/tvector.scm 164 */
BgL_testz00_1839 = ((bool_t) 1);
}
else
{ /* Llib/tvector.scm 164 */
BgL_testz00_1839 = NULLP(BgL_lz00_1649);
}
if (BgL_testz00_1839)
{ /* Llib/tvector.scm 164 */
BgL_auxz00_1838 = BgL_lz00_1649;
}
else
{
obj_t BgL_auxz00_1843;
BgL_auxz00_1843 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 6767)), BGl_string2217z00zz__tvectorz00,
BGl_string2218z00zz__tvectorz00, BgL_lz00_1649);
FAILURE(BgL_auxz00_1843, BFALSE, BFALSE);
}}
if (SYMBOLP(BgL_idz00_1648))
{ /* Llib/tvector.scm 164 */
BgL_auxz00_1831 = BgL_idz00_1648;
}
else
{
obj_t BgL_auxz00_1834;
BgL_auxz00_1834 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2198z00zz__tvectorz00,
BINT(((long) 6767)), BGl_string2217z00zz__tvectorz00,
BGl_string2203z00zz__tvectorz00, BgL_idz00_1648);
FAILURE(BgL_auxz00_1834, BFALSE, BFALSE);
}
return
BGl_listzd2ze3tvectorz31zz__tvectorz00(BgL_auxz00_1831,
BgL_auxz00_1838);
}
}
}
/* <anonymous:1945> */
obj_t BGl_zc3anonymousza31945ze3z83zz__modulez00(obj_t BgL_envz00_1657, obj_t BgL_xz00_1658)
{ AN_OBJECT;
{ /* Llib/module.scm 187 */
{
obj_t BgL_xz00_862;
{ /* Llib/module.scm 188 */
bool_t BgL_auxz00_2079;
BgL_xz00_862 = BgL_xz00_1658;
{ /* Llib/module.scm 188 */
bool_t BgL_testz00_2080;
if(
PAIRP(BgL_xz00_862))
{ /* Llib/module.scm 188 */
bool_t BgL_testz00_2083;
{ /* Llib/module.scm 188 */
obj_t BgL_auxz00_2084;
BgL_auxz00_2084 =
CAR(BgL_xz00_862);
BgL_testz00_2083 =
SYMBOLP(BgL_auxz00_2084); }
if(BgL_testz00_2083)
{ /* Llib/module.scm 188 */
BgL_testz00_2080 =
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_xz00_862))
; } else
{ /* Llib/module.scm 188 */
BgL_testz00_2080 = ((bool_t)0)
; } } else
{ /* Llib/module.scm 188 */
BgL_testz00_2080 = ((bool_t)0)
; }
if(BgL_testz00_2080)
{ /* Llib/module.scm 188 */
BgL_auxz00_2079 = ((bool_t)1)
; } else
{ /* Llib/module.scm 188 */
{ /* Llib/module.scm 191 */
obj_t BgL_list1947z00_865;
{ /* Llib/module.scm 191 */
obj_t BgL_arg1948z00_866;obj_t BgL_arg1949z00_867;
BgL_arg1948z00_866 = BGl_symbol2360z00zz__modulez00;
{ /* Llib/module.scm 191 */
obj_t BgL_arg1951z00_869;
BgL_arg1951z00_869 =
MAKE_PAIR(BgL_xz00_862, BNIL);
BgL_arg1949z00_867 =
MAKE_PAIR(BGl_string2361z00zz__modulez00, BgL_arg1951z00_869); }
BgL_list1947z00_865 =
MAKE_PAIR(BgL_arg1948z00_866, BgL_arg1949z00_867); }
BGl_warningz00zz__errorz00(BgL_list1947z00_865); }
BgL_auxz00_2079 = ((bool_t)0); } }
return
BBOOL(BgL_auxz00_2079);} } }
}
/* resolve-abase* */
obj_t BGl_resolvezd2abaseza2z70zz__modulez00(obj_t BgL_modz00_5)
{ AN_OBJECT;
{ /* Llib/module.scm 127 */
{
obj_t BgL_afilez00_810;
BgL_afilez00_810 = BGl_afilezd2tablezd2zz__modulez00;
BgL_zc3anonymousza31896ze3z83_811:
if(
NULLP(BgL_afilez00_810))
{ /* Llib/module.scm 129 */
return BNIL;} else
{ /* Llib/module.scm 131 */
obj_t BgL_fz00_813;
{ /* Llib/module.scm 131 */
obj_t BgL_arg1900z00_816;
{ /* Llib/module.scm 131 */
obj_t BgL_pairz00_1387;
if(
PAIRP(BgL_afilez00_810))
{ /* Llib/module.scm 131 */
BgL_pairz00_1387 = BgL_afilez00_810; } else
{
obj_t BgL_auxz00_1904;
BgL_auxz00_1904 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)4999)), BGl_string2342z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_afilez00_810);
FAILURE(BgL_auxz00_1904,BFALSE,BFALSE);}
BgL_arg1900z00_816 =
CAR(BgL_pairz00_1387); }
BgL_fz00_813 =
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_5, BgL_arg1900z00_816); }
if(
PAIRP(BgL_fz00_813))
{ /* Llib/module.scm 132 */
return BgL_fz00_813;} else
{
obj_t BgL_afilez00_1912;
BgL_afilez00_1912 =
CDR(BgL_afilez00_810);
BgL_afilez00_810 = BgL_afilez00_1912;
goto BgL_zc3anonymousza31896ze3z83_811;} } } }
}
/*---------------------------------------------------------------------*/
GList *
bglk_glist_strings_new( obj_t l ) {
GList *res = 0L;
while( PAIRP( l ) ) {
res = g_list_append( res, BSTRING_TO_STRING( CAR( l ) ) );
l = CDR( l );
}
return res;
}
void
renounce(void* obj, int size, void* refcon)
{
if (PAIRP(obj)) return;
int tc = HDR_TC(HDR(obj));
assert(tc >= 0);
assert(tc <= TC_MASKBITS);
switch (tc) {
case TC_HASHTABLE: {
scm_hashtable_t ht = (scm_hashtable_t)obj;
ht->lock.destroy();
break;
}
case TC_WEAKHASHTABLE: {
scm_weakhashtable_t ht = (scm_weakhashtable_t)obj;
ht->lock.destroy();
break;
}
case TC_PORT: {
scm_port_t port = (scm_port_t)obj;
{
scoped_lock lock(port->lock);
if (port->type != SCM_PORT_TYPE_CUSTOM) port_close(port);
}
port->lock.destroy();
break;
}
case TC_SOCKET: {
scm_socket_t socket = (scm_socket_t)obj;
socket_close(socket);
break;
}
case TC_SHAREDQUEUE: {
scm_sharedqueue_t queue = (scm_sharedqueue_t)obj;
queue->buf.destroy();
queue->queue.destroy();
break;
}
case TC_SHAREDBAG: {
scm_sharedbag_t bag = (scm_sharedbag_t)obj;
for (int i = 0; i < bag->capacity; i++) {
bag->datum[i]->buf.destroy();
bag->datum[i]->queue.destroy();
free(bag->datum[i]->key);
free(bag->datum[i]);
}
free(bag->datum);
bag->lock.destroy();
break;
}
}
}
/* global-arity */
BGL_EXPORTED_DEF long BGl_globalzd2arityzd2zztools_argsz00(obj_t
BgL_argsz00_1)
{
AN_OBJECT;
{ /* Tools/args.scm 37 */
{
long BgL_iz00_103;
obj_t BgL_az00_104;
{ /* Tools/args.scm 38 */
obj_t BgL_auxz00_352;
BgL_iz00_103 = ((long) 0);
BgL_az00_104 = BgL_argsz00_1;
BgL_zc3anonymousza31509ze3z83_105:
if (NULLP(BgL_az00_104))
{ /* Tools/args.scm 41 */
BgL_auxz00_352 = BINT(BgL_iz00_103);
}
else
{ /* Tools/args.scm 41 */
if (PAIRP(BgL_az00_104))
{ /* Tools/args.scm 43 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_104)))
{ /* Tools/args.scm 44 */
BgL_auxz00_352 =
BGl_dssslzd2arityzd2zztools_dssslz00(BgL_argsz00_1,
((bool_t) 1));
}
else
{
obj_t BgL_az00_364;
long BgL_iz00_362;
BgL_iz00_362 = (BgL_iz00_103 + ((long) 1));
BgL_az00_364 = CDR(BgL_az00_104);
BgL_az00_104 = BgL_az00_364;
BgL_iz00_103 = BgL_iz00_362;
goto BgL_zc3anonymousza31509ze3z83_105;
}
}
else
{ /* Tools/args.scm 43 */
BgL_auxz00_352 = BINT(NEG((BgL_iz00_103 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_352);
}}}
}
/* foreign-arity */
BGL_EXPORTED_DEF long BGl_foreignzd2arityzd2zztools_argsz00(obj_t
BgL_argsz00_3)
{
AN_OBJECT;
{ /* Tools/args.scm 81 */
{
long BgL_iz00_127;
obj_t BgL_az00_128;
{ /* Tools/args.scm 82 */
obj_t BgL_auxz00_392;
BgL_iz00_127 = ((long) 0);
BgL_az00_128 = BgL_argsz00_3;
BgL_zc3anonymousza31525ze3z83_129:
if (NULLP(BgL_az00_128))
{ /* Tools/args.scm 85 */
BgL_auxz00_392 = BINT(BgL_iz00_127);
}
else
{ /* Tools/args.scm 85 */
if (PAIRP(BgL_az00_128))
{ /* Tools/args.scm 87 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_128)))
{ /* Tools/args.scm 88 */
BgL_auxz00_392 =
BGl_errorz00zz__errorz00(CNST_TABLE_REF(((long) 0)),
BGl_string1580z00zztools_argsz00, BgL_argsz00_3);
}
else
{
obj_t BgL_az00_405;
long BgL_iz00_403;
BgL_iz00_403 = (BgL_iz00_127 + ((long) 1));
BgL_az00_405 = CDR(BgL_az00_128);
BgL_az00_128 = BgL_az00_405;
BgL_iz00_127 = BgL_iz00_403;
goto BgL_zc3anonymousza31525ze3z83_129;
}
}
else
{ /* Tools/args.scm 87 */
BgL_auxz00_392 = BINT(NEG((BgL_iz00_127 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_392);
}}}
}
/* local-arity */
BGL_EXPORTED_DEF long BGl_localzd2arityzd2zztools_argsz00(obj_t BgL_argsz00_2)
{
AN_OBJECT;
{ /* Tools/args.scm 59 */
{
long BgL_iz00_115;
obj_t BgL_az00_116;
{ /* Tools/args.scm 60 */
obj_t BgL_auxz00_372;
BgL_iz00_115 = ((long) 0);
BgL_az00_116 = BgL_argsz00_2;
BgL_zc3anonymousza31517ze3z83_117:
if (NULLP(BgL_az00_116))
{ /* Tools/args.scm 63 */
BgL_auxz00_372 = BINT(BgL_iz00_115);
}
else
{ /* Tools/args.scm 63 */
if (PAIRP(BgL_az00_116))
{ /* Tools/args.scm 65 */
if (BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(CAR
(BgL_az00_116)))
{ /* Tools/args.scm 66 */
BgL_auxz00_372 =
BGl_dssslzd2arityzd2zztools_dssslz00(BgL_argsz00_2,
((bool_t) 0));
}
else
{
obj_t BgL_az00_384;
long BgL_iz00_382;
BgL_iz00_382 = (BgL_iz00_115 + ((long) 1));
BgL_az00_384 = CDR(BgL_az00_116);
BgL_az00_116 = BgL_az00_384;
BgL_iz00_115 = BgL_iz00_382;
goto BgL_zc3anonymousza31517ze3z83_117;
}
}
else
{ /* Tools/args.scm 65 */
BgL_auxz00_372 = BINT(NEG((BgL_iz00_115 + ((long) 1))));
}}
return (long) CINT(BgL_auxz00_372);
}}}
}
/* dup */
obj_t BGl_dupz00zzexpand_assertz00(obj_t BgL_predz00_21)
{
AN_OBJECT;
{ /* Expand/assert.scm 77 */
if (PAIRP(BgL_predz00_21))
{ /* Expand/assert.scm 79 */
return
MAKE_PAIR(BGl_dupz00zzexpand_assertz00(CAR(BgL_predz00_21)),
BGl_dupz00zzexpand_assertz00(CDR(BgL_predz00_21)));
}
else
{ /* Expand/assert.scm 79 */
return BgL_predz00_21;
}
}
}
/* <anonymous:1757> */
obj_t BGl_zc3anonymousza31757ze3z83zzengine_linkz00(obj_t BgL_envz00_530,
obj_t BgL_clausesz00_531)
{
AN_OBJECT;
{ /* Engine/link.scm 126 */
{
obj_t BgL_clausesz00_347;
BgL_clausesz00_347 = BgL_clausesz00_531;
{
obj_t BgL_libsz00_349;
if (PAIRP(BgL_clausesz00_347))
{ /* Engine/link.scm 126 */
if ((CAR(BgL_clausesz00_347) == CNST_TABLE_REF(((long) 1))))
{ /* Engine/link.scm 126 */
BgL_libsz00_349 = CDR(BgL_clausesz00_347);
{ /* Engine/link.scm 128 */
obj_t BgL_arg1769z00_358;
obj_t BgL_arg1770z00_359;
BgL_arg1769z00_358 = CNST_TABLE_REF(((long) 2));
{ /* Engine/link.scm 128 */
obj_t BgL_list1771z00_360;
BgL_list1771z00_360 = MAKE_PAIR(BNIL, BNIL);
BgL_arg1770z00_359 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_clausesz00_347, BgL_list1771z00_360);
}
return MAKE_PAIR(BgL_arg1769z00_358, BgL_arg1770z00_359);
}
}
else
{ /* Engine/link.scm 126 */
return BFALSE;
}
}
else
{ /* Engine/link.scm 126 */
return BFALSE;
}
}
}
}
}
/* _module-add-access! */
obj_t BGl__modulezd2addzd2accessz12z12zz__modulez00(obj_t BgL_envz00_1650, obj_t BgL_modulez00_1651, obj_t BgL_filesz00_1652, obj_t BgL_abasez00_1653)
{ AN_OBJECT;
{ /* Llib/module.scm 178 */
{ /* Llib/module.scm 181 */
obj_t BgL_auxz00_2052;obj_t BgL_auxz00_2045;obj_t BgL_auxz00_2038;
if(
STRINGP(BgL_abasez00_1653))
{ /* Llib/module.scm 181 */
BgL_auxz00_2052 = BgL_abasez00_1653
; } else
{
obj_t BgL_auxz00_2055;
BgL_auxz00_2055 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7035)), BGl_string2354z00zz__modulez00, BGl_string2355z00zz__modulez00, BgL_abasez00_1653);
FAILURE(BgL_auxz00_2055,BFALSE,BFALSE);}
if(
PAIRP(BgL_filesz00_1652))
{ /* Llib/module.scm 181 */
BgL_auxz00_2045 = BgL_filesz00_1652
; } else
{
obj_t BgL_auxz00_2048;
BgL_auxz00_2048 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7035)), BGl_string2354z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_filesz00_1652);
FAILURE(BgL_auxz00_2048,BFALSE,BFALSE);}
if(
SYMBOLP(BgL_modulez00_1651))
{ /* Llib/module.scm 181 */
BgL_auxz00_2038 = BgL_modulez00_1651
; } else
{
obj_t BgL_auxz00_2041;
BgL_auxz00_2041 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7035)), BGl_string2354z00zz__modulez00, BGl_string2338z00zz__modulez00, BgL_modulez00_1651);
FAILURE(BgL_auxz00_2041,BFALSE,BFALSE);}
return
BGl_modulezd2addzd2accessz12z12zz__modulez00(BgL_auxz00_2038, BgL_auxz00_2045, BgL_auxz00_2052);} }
}
/*---------------------------------------------------------------------*/
int
bgl_dunload( obj_t filename ) {
#if HAVE_DLOPEN
extern bool_t bigloo_strcmp( obj_t, obj_t );
obj_t p = dload_list;
BGL_MUTEX_LOCK( dload_mutex );
if ( NULLP( dload_list) ) {
BGL_MUTEX_UNLOCK( dload_mutex );
return 0;
}
if( bigloo_strcmp( CAR( CAR( p ) ), filename ) ) {
dload_list = CDR( dload_list );
dlclose( CDR( CAR( p ) ) );
BGL_MUTEX_UNLOCK( dload_mutex );
return 0;
} else {
obj_t r = CDR( p );
while( PAIRP( r ) ) {
if( bigloo_strcmp( CAR( CAR( r ) ), filename ) ) {
SET_CDR( p, CDR( r ) );
dlclose( CDR( CAR( r ) ) );
BGL_MUTEX_UNLOCK( dload_mutex );
return 0;
}
}
}
BGL_MUTEX_UNLOCK( dload_mutex );
#endif
return 1;
}
/* user-error */
BGL_EXPORTED_DEF obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t
BgL_procz00_28, obj_t BgL_mesz00_29, obj_t BgL_objz00_30,
obj_t BgL_continuez00_31)
{
AN_OBJECT;
{ /* Tools/error.scm 105 */
if (PAIRP(BgL_continuez00_31))
{ /* Tools/error.scm 107 */
obj_t BgL_arg3287z00_856;
obj_t BgL_arg3288z00_857;
obj_t BgL_arg3289z00_858;
BgL_arg3287z00_856 =
BGl_findzd2locationzd2zztools_locationz00(BgL_objz00_30);
BgL_arg3288z00_857 = BGl_shapez00zztools_shapez00(BgL_objz00_30);
BgL_arg3289z00_858 = CAR(BgL_continuez00_31);
{ /* Tools/error.scm 107 */
obj_t BgL_list3290z00_859;
BgL_list3290z00_859 = MAKE_PAIR(BgL_arg3289z00_858, BNIL);
return
BGl_userzd2errorzf2locationz20zztools_errorz00(BgL_arg3287z00_856,
BgL_procz00_28, BgL_mesz00_29, BgL_arg3288z00_857,
BgL_list3290z00_859);
}
}
else
{ /* Tools/error.scm 106 */
return
BGl_userzd2errorzf2locationz20zztools_errorz00
(BGl_findzd2locationzd2zztools_locationz00(BgL_objz00_30),
BgL_procz00_28, BgL_mesz00_29,
BGl_shapez00zztools_shapez00(BgL_objz00_30), BNIL);
}
}
}
/* module-read-access-file */
BGL_EXPORTED_DEF obj_t BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(obj_t BgL_portz00_16)
{ AN_OBJECT;
{ /* Llib/module.scm 186 */
{ /* Llib/module.scm 187 */
obj_t BgL_arg1944z00_861;
{ /* Llib/module.scm 193 */
{ /* Llib/module.scm 193 */
BgL_arg1944z00_861 =
BGl_readz00zz__readerz00(BgL_portz00_16, BFALSE); } }
{ /* Llib/module.scm 187 */
obj_t BgL_auxz00_2061;
{ /* Llib/module.scm 193 */
bool_t BgL_testz00_2062;
if(
PAIRP(BgL_arg1944z00_861))
{ /* Llib/module.scm 193 */
BgL_testz00_2062 = ((bool_t)1)
; } else
{ /* Llib/module.scm 193 */
BgL_testz00_2062 =
NULLP(BgL_arg1944z00_861)
; }
if(BgL_testz00_2062)
{ /* Llib/module.scm 193 */
BgL_auxz00_2061 = BgL_arg1944z00_861
; } else
{
obj_t BgL_auxz00_2066;
BgL_auxz00_2066 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)7493)), BGl_string2357z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_arg1944z00_861);
FAILURE(BgL_auxz00_2066,BFALSE,BFALSE);} }
return
BGl_filterz00zz__r4_control_features_6_9z00(BGl_proc2356z00zz__modulez00, BgL_auxz00_2061);} } }
}
/* <anonymous:3298> */
obj_t BGl_zc3anonymousza33298ze3z83zztools_errorz00(obj_t BgL_envz00_1420,
obj_t BgL_ez00_1423)
{
AN_OBJECT;
{ /* Tools/error.scm 138 */
{ /* Tools/error.scm 139 */
obj_t BgL_continuez00_1421;
obj_t BgL_an_exitd3246z00_1422;
BgL_continuez00_1421 =
PROCEDURE_REF(BgL_envz00_1420, (int) (((long) 0)));
BgL_an_exitd3246z00_1422 =
PROCEDURE_REF(BgL_envz00_1420, (int) (((long) 1)));
{
obj_t BgL_ez00_877;
BgL_ez00_877 = BgL_ez00_1423;
BGl_errorzd2notifyzd2zz__errorz00(BgL_ez00_877);
if (PAIRP(BgL_continuez00_1421))
{ /* Tools/error.scm 140 */
return
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd3246z00_1422,
CAR(BgL_continuez00_1421));
}
else
{ /* Tools/error.scm 142 */
obj_t BgL_list3301z00_881;
BgL_list3301z00_881 = MAKE_PAIR(BINT(((long) 1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3301z00_881);
}
}
}
}
}
/* reduce-walk! */
BGL_EXPORTED_DEF obj_t BGl_reducezd2walkz12zc0zzreduce_walkz00(obj_t
BgL_globalsz00_1, obj_t BgL_msgz00_2, obj_t BgL_typezd2unsafezd2_3)
{
AN_OBJECT;
{ /* Reduce/walk.scm 36 */
{ /* Reduce/walk.scm 37 */
obj_t BgL_list3254z00_776;
{ /* Reduce/walk.scm 37 */
obj_t BgL_arg3256z00_778;
{ /* Reduce/walk.scm 37 */
obj_t BgL_arg3257z00_779;
BgL_arg3257z00_779 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3256z00_778 = MAKE_PAIR(BgL_msgz00_2, BgL_arg3257z00_779);
}
BgL_list3254z00_776 =
MAKE_PAIR(BGl_string3354z00zzreduce_walkz00, BgL_arg3256z00_778);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3254z00_776);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 = BgL_msgz00_2;
{
obj_t BgL_hooksz00_783;
obj_t BgL_hnamesz00_784;
BgL_hooksz00_783 = BNIL;
BgL_hnamesz00_784 = BNIL;
BgL_zc3anonymousza33258ze3z83_785:
if (NULLP(BgL_hooksz00_783))
{ /* Reduce/walk.scm 37 */
CNST_TABLE_REF(((long) 0));
}
else
{ /* Reduce/walk.scm 37 */
bool_t BgL_testz00_1307;
{ /* Reduce/walk.scm 37 */
obj_t BgL_fun3265z00_792;
BgL_fun3265z00_792 = CAR(BgL_hooksz00_783);
BgL_testz00_1307 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3265z00_792) (BgL_fun3265z00_792,
BEOA));
}
if (BgL_testz00_1307)
{
obj_t BgL_hnamesz00_1314;
obj_t BgL_hooksz00_1312;
BgL_hooksz00_1312 = CDR(BgL_hooksz00_783);
BgL_hnamesz00_1314 = CDR(BgL_hnamesz00_784);
BgL_hnamesz00_784 = BgL_hnamesz00_1314;
BgL_hooksz00_783 = BgL_hooksz00_1312;
goto BgL_zc3anonymousza33258ze3z83_785;
}
else
{ /* Reduce/walk.scm 37 */
BGl_internalzd2errorzd2zztools_errorz00(BgL_msgz00_2,
BGl_string3355z00zzreduce_walkz00, CAR(BgL_hnamesz00_784));
}
}
}
{ /* Reduce/walk.scm 39 */
bool_t BgL_testz00_1318;
if (PAIRP(BgL_typezd2unsafezd2_3))
{ /* Reduce/walk.scm 39 */
BgL_testz00_1318 = CBOOL(CAR(BgL_typezd2unsafezd2_3));
}
else
{ /* Reduce/walk.scm 39 */
BgL_testz00_1318 = ((bool_t) 0);
}
if (BgL_testz00_1318)
{ /* Reduce/walk.scm 39 */
BGl_reducezd21occz12zc0zzreduce_1occz00(BgL_globalsz00_1);
{ /* Reduce/walk.scm 41 */
obj_t BgL_valuez00_796;
BgL_valuez00_796 =
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long) 1)),
BgL_globalsz00_1);
if (((long)
CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Reduce/walk.scm 41 */
{ /* Reduce/walk.scm 41 */
obj_t BgL_port3252z00_798;
{ /* Reduce/walk.scm 41 */
obj_t BgL_res3350z00_1228;
{ /* Reduce/walk.scm 41 */
obj_t BgL_auxz00_1329;
BgL_auxz00_1329 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3350z00_1228 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1329);
}
BgL_port3252z00_798 = BgL_res3350z00_1228;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3252z00_798);
bgl_display_string(BGl_string3356z00zzreduce_walkz00,
BgL_port3252z00_798);
{ /* Reduce/walk.scm 41 */
obj_t BgL_arg3269z00_799;
{ /* Reduce/walk.scm 41 */
bool_t BgL_testz00_1334;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Reduce/walk.scm 41 */
BgL_testz00_1334 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Reduce/walk.scm 41 */
BgL_testz00_1334 = ((bool_t) 0);
}
if (BgL_testz00_1334)
{ /* Reduce/walk.scm 41 */
BgL_arg3269z00_799 =
BGl_string3357z00zzreduce_walkz00;
}
else
{ /* Reduce/walk.scm 41 */
BgL_arg3269z00_799 =
BGl_string3358z00zzreduce_walkz00;
}
}
bgl_display_obj(BgL_arg3269z00_799, BgL_port3252z00_798);
}
bgl_display_string(BGl_string3359z00zzreduce_walkz00,
BgL_port3252z00_798);
bgl_display_char(((unsigned char) '\n'),
BgL_port3252z00_798);
}
{ /* Reduce/walk.scm 41 */
obj_t BgL_list3272z00_802;
BgL_list3272z00_802 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3272z00_802);
}
}
else
{
obj_t BgL_hooksz00_806;
obj_t BgL_hnamesz00_807;
BgL_hooksz00_806 = BNIL;
BgL_hnamesz00_807 = BNIL;
BgL_zc3anonymousza33273ze3z83_808:
if (NULLP(BgL_hooksz00_806))
{ /* Reduce/walk.scm 41 */
return BgL_valuez00_796;
}
else
{ /* Reduce/walk.scm 41 */
bool_t BgL_testz00_1347;
{ /* Reduce/walk.scm 41 */
obj_t BgL_fun3281z00_815;
BgL_fun3281z00_815 = CAR(BgL_hooksz00_806);
BgL_testz00_1347 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3281z00_815)
(BgL_fun3281z00_815, BEOA));
}
if (BgL_testz00_1347)
{
obj_t BgL_hnamesz00_1354;
obj_t BgL_hooksz00_1352;
BgL_hooksz00_1352 = CDR(BgL_hooksz00_806);
BgL_hnamesz00_1354 = CDR(BgL_hnamesz00_807);
BgL_hnamesz00_807 = BgL_hnamesz00_1354;
BgL_hooksz00_806 = BgL_hooksz00_1352;
goto BgL_zc3anonymousza33273ze3z83_808;
}
else
{ /* Reduce/walk.scm 41 */
obj_t BgL_arg3279z00_814;
BgL_arg3279z00_814 = CAR(BgL_hnamesz00_807);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3360z00zzreduce_walkz00,
BgL_arg3279z00_814);
}
}
}
}
}
else
{ /* Reduce/walk.scm 39 */
if (CBOOL(BGl_za2optimzd2dataflowzf3za2z21zzengine_paramz00))
{ /* Reduce/walk.scm 42 */
BGl_reducezd2copyz12zc0zzreduce_copyz00(BgL_globalsz00_1);
if (
((long) CINT(BGl_za2optimza2z00zzengine_paramz00) >=
((long) 2)))
{ /* Reduce/walk.scm 44 */
BGl_reducezd2csez12zc0zzreduce_csez00(BgL_globalsz00_1);
}
else
{ /* Reduce/walk.scm 44 */
BFALSE;
}
BGl_reducezd2typezd2checkz12z12zzreduce_typecz00
(BgL_globalsz00_1);
BGl_reducezd2copyz12zc0zzreduce_copyz00(BgL_globalsz00_1);
BGl_reducezd2conditionalz12zc0zzreduce_condz00
(BgL_globalsz00_1);
BGl_reducezd21occz12zc0zzreduce_1occz00(BgL_globalsz00_1);
if (CBOOL
(BGl_za2optimzd2reducezd2betazf3za2zf3zzengine_paramz00))
{ /* Reduce/walk.scm 49 */
BGl_reducezd2betaz12zc0zzreduce_betaz00(BgL_globalsz00_1);
}
else
{ /* Reduce/walk.scm 49 */
BFALSE;
}
BGl_reducezd2flowzd2typezd2checkz12zc0zzreduce_flowzd2typeczd2
(BgL_globalsz00_1);
{ /* Reduce/walk.scm 51 */
obj_t BgL_valuez00_819;
BgL_valuez00_819 =
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long)
1)), BgL_globalsz00_1);
if (((long)
CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00)
> ((long) 0)))
{ /* Reduce/walk.scm 51 */
{ /* Reduce/walk.scm 51 */
obj_t BgL_port3253z00_821;
{ /* Reduce/walk.scm 51 */
obj_t BgL_res3352z00_1246;
{ /* Reduce/walk.scm 51 */
obj_t BgL_auxz00_1378;
BgL_auxz00_1378 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3352z00_1246 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1378);
}
BgL_port3253z00_821 = BgL_res3352z00_1246;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3253z00_821);
bgl_display_string(BGl_string3356z00zzreduce_walkz00,
BgL_port3253z00_821);
{ /* Reduce/walk.scm 51 */
obj_t BgL_arg3285z00_822;
{ /* Reduce/walk.scm 51 */
bool_t BgL_testz00_1383;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Reduce/walk.scm 51 */
BgL_testz00_1383 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Reduce/walk.scm 51 */
BgL_testz00_1383 = ((bool_t) 0);
}
if (BgL_testz00_1383)
{ /* Reduce/walk.scm 51 */
BgL_arg3285z00_822 =
BGl_string3357z00zzreduce_walkz00;
}
else
{ /* Reduce/walk.scm 51 */
BgL_arg3285z00_822 =
BGl_string3358z00zzreduce_walkz00;
}
}
bgl_display_obj(BgL_arg3285z00_822,
BgL_port3253z00_821);
}
bgl_display_string(BGl_string3359z00zzreduce_walkz00,
BgL_port3253z00_821);
bgl_display_char(((unsigned char) '\n'),
BgL_port3253z00_821);
}
{ /* Reduce/walk.scm 51 */
obj_t BgL_list3288z00_825;
BgL_list3288z00_825 =
MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3288z00_825);
}
}
else
{
obj_t BgL_hooksz00_829;
obj_t BgL_hnamesz00_830;
BgL_hooksz00_829 = BNIL;
BgL_hnamesz00_830 = BNIL;
BgL_zc3anonymousza33289ze3z83_831:
if (NULLP(BgL_hooksz00_829))
{ /* Reduce/walk.scm 51 */
return BgL_valuez00_819;
}
else
{ /* Reduce/walk.scm 51 */
bool_t BgL_testz00_1396;
{ /* Reduce/walk.scm 51 */
obj_t BgL_fun3297z00_838;
BgL_fun3297z00_838 = CAR(BgL_hooksz00_829);
BgL_testz00_1396 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3297z00_838)
(BgL_fun3297z00_838, BEOA));
}
if (BgL_testz00_1396)
{
obj_t BgL_hnamesz00_1403;
obj_t BgL_hooksz00_1401;
BgL_hooksz00_1401 = CDR(BgL_hooksz00_829);
BgL_hnamesz00_1403 = CDR(BgL_hnamesz00_830);
BgL_hnamesz00_830 = BgL_hnamesz00_1403;
BgL_hooksz00_829 = BgL_hooksz00_1401;
goto BgL_zc3anonymousza33289ze3z83_831;
}
else
{ /* Reduce/walk.scm 51 */
obj_t BgL_arg3295z00_837;
BgL_arg3295z00_837 = CAR(BgL_hnamesz00_830);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3360z00zzreduce_walkz00,
BgL_arg3295z00_837);
}
}
}
}
}
else
{ /* Reduce/walk.scm 42 */
return
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long) 1)),
BgL_globalsz00_1);
}}}}
}
/* expand-do */
BGL_EXPORTED_DEF obj_t BGl_expandzd2dozd2zz__expander_doz00(obj_t
BgL_expz00_1, obj_t BgL_ez00_2)
{
AN_OBJECT;
{ /* Eval/expddo.scm 57 */
{
obj_t BgL_bindingsz00_770;
obj_t BgL_endz00_771;
obj_t BgL_commandz00_772;
if (PAIRP(BgL_expz00_1))
{ /* Eval/expddo.scm 58 */
obj_t BgL_cdrzd21399zd2_777;
BgL_cdrzd21399zd2_777 = CDR(BgL_expz00_1);
if (PAIRP(BgL_cdrzd21399zd2_777))
{ /* Eval/expddo.scm 58 */
obj_t BgL_cdrzd21404zd2_779;
BgL_cdrzd21404zd2_779 = CDR(BgL_cdrzd21399zd2_777);
if (PAIRP(BgL_cdrzd21404zd2_779))
{ /* Eval/expddo.scm 58 */
BgL_bindingsz00_770 = CAR(BgL_cdrzd21399zd2_777);
BgL_endz00_771 = CAR(BgL_cdrzd21404zd2_779);
BgL_commandz00_772 = CDR(BgL_cdrzd21404zd2_779);
{ /* Eval/expddo.scm 60 */
obj_t BgL_varsz00_785;
BgL_varsz00_785 = BNIL;
{ /* Eval/expddo.scm 61 */
obj_t BgL_initsz00_786;
BgL_initsz00_786 = BNIL;
{ /* Eval/expddo.scm 62 */
obj_t BgL_stepsz00_787;
BgL_stepsz00_787 = BNIL;
{ /* Eval/expddo.scm 63 */
obj_t BgL_loopz00_788;
BgL_loopz00_788 =
BGl_gensymz00zz__r4_symbols_6_4z00
(BGl_string2221z00zz__expander_doz00);
{ /* Eval/expddo.scm 64 */
obj_t BgL_testz00_789;
if (PAIRP(BgL_endz00_771))
{ /* Eval/expddo.scm 65 */
BgL_testz00_789 = CAR(BgL_endz00_771);
}
else
{ /* Eval/expddo.scm 65 */
BgL_testz00_789 =
BGl_errorz00zz__errorz00
(BGl_string2222z00zz__expander_doz00,
BGl_string2223z00zz__expander_doz00,
BgL_expz00_1);
}
{ /* Eval/expddo.scm 65 */
obj_t BgL_endingz00_790;
if (NULLP(CDR(BgL_endz00_771)))
{ /* Eval/expddo.scm 69 */
obj_t BgL_list1957z00_850;
BgL_list1957z00_850 =
MAKE_PAIR(BFALSE, BNIL);
BgL_endingz00_790 = BgL_list1957z00_850;
}
else
{ /* Eval/expddo.scm 68 */
BgL_endingz00_790 = CDR(BgL_endz00_771);
}
{ /* Eval/expddo.scm 71 */
{ /* Eval/expddo.scm 72 */
obj_t BgL_g1850z00_792;
BgL_g1850z00_792 =
bgl_reverse(BgL_bindingsz00_770);
{
obj_t BgL_l1848z00_794;
BgL_l1848z00_794 = BgL_g1850z00_792;
BgL_zc3anonymousza31899ze3z83_795:
if (PAIRP(BgL_l1848z00_794))
{ /* Eval/expddo.scm 85 */
{ /* Eval/expddo.scm 74 */
obj_t BgL_varzd2initzd2stepz00_797;
BgL_varzd2initzd2stepz00_797 =
CAR(BgL_l1848z00_794);
{ /* Eval/expddo.scm 74 */
bool_t BgL_testz00_1556;
if (
(bgl_list_length
(BgL_varzd2initzd2stepz00_797)
>= ((long) 2)))
{ /* Eval/expddo.scm 74 */
BgL_testz00_1556 =
(bgl_list_length
(BgL_varzd2initzd2stepz00_797)
<= ((long) 3));
}
else
{ /* Eval/expddo.scm 74 */
BgL_testz00_1556 =
((bool_t) 0);
}
if (BgL_testz00_1556)
{ /* Eval/expddo.scm 76 */
obj_t BgL_varz00_799;
BgL_varz00_799 =
CAR
(BgL_varzd2initzd2stepz00_797);
{ /* Eval/expddo.scm 76 */
obj_t BgL_initz00_800;
{ /* Eval/expddo.scm 77 */
obj_t BgL_pairz00_1319;
BgL_pairz00_1319 =
BgL_varzd2initzd2stepz00_797;
BgL_initz00_800 =
CAR(CDR
(BgL_pairz00_1319));
}
{ /* Eval/expddo.scm 77 */
obj_t BgL_stepz00_801;
{ /* Eval/expddo.scm 78 */
bool_t BgL_testz00_1565;
{ /* Eval/expddo.scm 78 */
obj_t BgL_auxz00_1566;
{ /* Eval/expddo.scm 78 */
obj_t
BgL_pairz00_1323;
BgL_pairz00_1323 =
BgL_varzd2initzd2stepz00_797;
BgL_auxz00_1566 =
CDR(CDR
(BgL_pairz00_1323));
}
BgL_testz00_1565 =
NULLP
(BgL_auxz00_1566);
}
if (BgL_testz00_1565)
{ /* Eval/expddo.scm 78 */
BgL_stepz00_801 =
BgL_varz00_799;
}
else
{ /* Eval/expddo.scm 79 */
obj_t
BgL_pairz00_1332;
{ /* Eval/expddo.scm 79 */
obj_t
BgL_pairz00_1328;
BgL_pairz00_1328 =
BgL_varzd2initzd2stepz00_797;
BgL_pairz00_1332 =
CDR(CDR
(BgL_pairz00_1328));
}
BgL_stepz00_801 =
CAR
(BgL_pairz00_1332);
}
}
{ /* Eval/expddo.scm 78 */
BgL_varsz00_785 =
MAKE_PAIR
(BgL_varz00_799,
BgL_varsz00_785);
BgL_stepsz00_787 =
MAKE_PAIR
(BgL_stepz00_801,
BgL_stepsz00_787);
BgL_initsz00_786 =
MAKE_PAIR
(BgL_initz00_800,
BgL_initsz00_786);
}
}
}
}
else
{ /* Eval/expddo.scm 74 */
BGl_errorz00zz__errorz00
(BGl_symbol2224z00zz__expander_doz00,
BGl_string2225z00zz__expander_doz00,
BgL_varzd2initzd2stepz00_797);
}
}
}
{
obj_t BgL_l1848z00_1577;
BgL_l1848z00_1577 =
CDR(BgL_l1848z00_794);
BgL_l1848z00_794 =
BgL_l1848z00_1577;
goto
BgL_zc3anonymousza31899ze3z83_795;
}
}
else
{ /* Eval/expddo.scm 85 */
((bool_t) 1);
}
}
}
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1911z00_812;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1912z00_813;
obj_t BgL_arg1914z00_814;
BgL_arg1912z00_813 =
BGl_symbol2226z00zz__expander_doz00;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1915z00_815;
obj_t BgL_arg1916z00_816;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1921z00_820;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1923z00_822;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1924z00_823;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1927z00_826;
obj_t BgL_arg1929z00_827;
BgL_arg1927z00_826 =
BGl_symbol2228z00zz__expander_doz00;
{ /* Eval/expddo.scm 87 */
obj_t BgL_arg1930z00_828;
{ /* Eval/expddo.scm 87 */
obj_t BgL_arg1937z00_832;
obj_t BgL_arg1938z00_833;
BgL_arg1937z00_832 =
BGl_symbol2230z00zz__expander_doz00;
{ /* Eval/expddo.scm 88 */
obj_t BgL_arg1940z00_834;
obj_t BgL_arg1941z00_835;
BgL_arg1940z00_834 =
MAKE_PAIR
(BGl_symbol2232z00zz__expander_doz00,
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_endingz00_790,
BNIL));
{ /* Eval/expddo.scm 89 */
obj_t
BgL_arg1949z00_842;
obj_t
BgL_arg1950z00_843;
BgL_arg1949z00_842 =
BGl_symbol2232z00zz__expander_doz00;
{ /* Eval/expddo.scm 90 */
obj_t
BgL_arg1951z00_844;
{ /* Eval/expddo.scm 90 */
obj_t
BgL_arg1952z00_845;
BgL_arg1952z00_845 =
MAKE_PAIR
(BgL_loopz00_788,
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_stepsz00_787,
BNIL));
BgL_arg1951z00_844 =
MAKE_PAIR
(BgL_arg1952z00_845,
BNIL);
}
BgL_arg1950z00_843 =
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_commandz00_772,
BgL_arg1951z00_844);
}
BgL_arg1941z00_835 =
MAKE_PAIR
(BgL_arg1949z00_842,
BgL_arg1950z00_843);
}
{ /* Eval/expddo.scm 87 */
obj_t
BgL_list1943z00_837;
{ /* Eval/expddo.scm 87 */
obj_t
BgL_arg1944z00_838;
{ /* Eval/expddo.scm 87 */
obj_t
BgL_arg1945z00_839;
BgL_arg1945z00_839 =
MAKE_PAIR(BNIL,
BNIL);
BgL_arg1944z00_838 =
MAKE_PAIR
(BgL_arg1941z00_835,
BgL_arg1945z00_839);
}
BgL_list1943z00_837 =
MAKE_PAIR
(BgL_arg1940z00_834,
BgL_arg1944z00_838);
}
BgL_arg1938z00_833 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_testz00_789,
BgL_list1943z00_837);
}
}
BgL_arg1930z00_828 =
MAKE_PAIR
(BgL_arg1937z00_832,
BgL_arg1938z00_833);
}
{ /* Eval/expddo.scm 86 */
obj_t BgL_list1932z00_830;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1935z00_831;
BgL_arg1935z00_831 =
MAKE_PAIR(BNIL, BNIL);
BgL_list1932z00_830 =
MAKE_PAIR
(BgL_arg1930z00_828,
BgL_arg1935z00_831);
}
BgL_arg1929z00_827 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_varsz00_785,
BgL_list1932z00_830);
}
}
BgL_arg1924z00_823 =
MAKE_PAIR(BgL_arg1927z00_826,
BgL_arg1929z00_827);
}
{ /* Eval/expddo.scm 86 */
obj_t BgL_list1926z00_825;
BgL_list1926z00_825 =
MAKE_PAIR(BNIL, BNIL);
BgL_arg1923z00_822 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg1924z00_823,
BgL_list1926z00_825);
}
}
BgL_arg1921z00_820 =
MAKE_PAIR(BgL_loopz00_788,
BgL_arg1923z00_822);
}
BgL_arg1915z00_815 =
MAKE_PAIR(BgL_arg1921z00_820, BNIL);
}
BgL_arg1916z00_816 =
MAKE_PAIR(BgL_loopz00_788,
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
(BgL_initsz00_786, BNIL));
{ /* Eval/expddo.scm 86 */
obj_t BgL_list1919z00_818;
{ /* Eval/expddo.scm 86 */
obj_t BgL_arg1920z00_819;
BgL_arg1920z00_819 =
MAKE_PAIR(BNIL, BNIL);
BgL_list1919z00_818 =
MAKE_PAIR(BgL_arg1916z00_816,
BgL_arg1920z00_819);
}
BgL_arg1914z00_814 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
(BgL_arg1915z00_815,
BgL_list1919z00_818);
}
}
BgL_arg1911z00_812 =
MAKE_PAIR(BgL_arg1912z00_813,
BgL_arg1914z00_814);
}
return
PROCEDURE_ENTRY(BgL_ez00_2) (BgL_ez00_2,
BgL_arg1911z00_812, BgL_ez00_2, BEOA);
}
}
}
}
}
}
}
}
}
else
{ /* Eval/expddo.scm 58 */
return
BGl_errorz00zz__errorz00
(BGl_symbol2224z00zz__expander_doz00,
BGl_string2223z00zz__expander_doz00,
BGl_symbol2234z00zz__expander_doz00);
}
}
else
{ /* Eval/expddo.scm 58 */
return
BGl_errorz00zz__errorz00(BGl_symbol2224z00zz__expander_doz00,
BGl_string2223z00zz__expander_doz00,
BGl_symbol2234z00zz__expander_doz00);
}
}
else
{ /* Eval/expddo.scm 58 */
return
BGl_errorz00zz__errorz00(BGl_symbol2224z00zz__expander_doz00,
BGl_string2223z00zz__expander_doz00,
BGl_symbol2234z00zz__expander_doz00);
}
}
}
}
/* read-access-files */
BGL_EXPORTED_DEF obj_t BGl_readzd2accesszd2filesz00zzread_accessz00()
{
AN_OBJECT;
{ /* Read/access.scm 26 */
if (NULLP(BGl_za2accesszd2filesza2zd2zzengine_paramz00))
{ /* Read/access.scm 30 */
if (fexists(BSTRING_TO_STRING
(BGl_za2accesszd2filezd2defaultza2z00zzengine_paramz00)))
{ /* Read/access.scm 31 */
return
BGl_innerzd2readzd2accesszd2filezd2zzread_accessz00
(BGl_za2accesszd2filezd2defaultza2z00zzengine_paramz00);
}
else
{ /* Read/access.scm 31 */
return BFALSE;
}
}
else
{
obj_t BgL_l1508z00_90;
{ /* Read/access.scm 33 */
bool_t BgL_auxz00_129;
BgL_l1508z00_90 = BGl_za2accesszd2filesza2zd2zzengine_paramz00;
BgL_zc3anonymousza31512ze3z83_91:
if (PAIRP(BgL_l1508z00_90))
{ /* Read/access.scm 33 */
{ /* Read/access.scm 34 */
obj_t BgL_fz00_93;
BgL_fz00_93 = CAR(BgL_l1508z00_90);
if (fexists(BSTRING_TO_STRING(BgL_fz00_93)))
{ /* Read/access.scm 34 */
BGl_innerzd2readzd2accesszd2filezd2zzread_accessz00
(BgL_fz00_93);
}
else
{ /* Read/access.scm 34 */
BGl_userzd2errorzd2zztools_errorz00
(BGl_string1524z00zzread_accessz00,
BGl_string1525z00zzread_accessz00, BgL_fz00_93, BNIL);
}
}
{
obj_t BgL_l1508z00_138;
BgL_l1508z00_138 = CDR(BgL_l1508z00_90);
BgL_l1508z00_90 = BgL_l1508z00_138;
goto BgL_zc3anonymousza31512ze3z83_91;
}
}
else
{ /* Read/access.scm 33 */
BgL_auxz00_129 = ((bool_t) 1);
}
return BBOOL(BgL_auxz00_129);
}
}
}
}
/* inline-walk! */
BGL_EXPORTED_DEF obj_t BGl_inlinezd2walkz12zc0zzinline_walkz00(obj_t
BgL_globalsz00_1, obj_t BgL_whatz00_2)
{
AN_OBJECT;
{ /* Inline/walk.scm 40 */
{ /* Inline/walk.scm 42 */
obj_t BgL_list3278z00_786;
{ /* Inline/walk.scm 42 */
obj_t BgL_arg3280z00_788;
{ /* Inline/walk.scm 42 */
obj_t BgL_arg3282z00_790;
BgL_arg3282z00_790 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3280z00_788 =
MAKE_PAIR(BGl_string3393z00zzinline_walkz00, BgL_arg3282z00_790);
}
BgL_list3278z00_786 =
MAKE_PAIR(BGl_string3394z00zzinline_walkz00, BgL_arg3280z00_788);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3278z00_786);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3393z00zzinline_walkz00;
{ /* Inline/walk.scm 42 */
obj_t BgL_g3270z00_791;
obj_t BgL_g3271z00_792;
{ /* Inline/walk.scm 42 */
obj_t BgL_list3292z00_806;
BgL_list3292z00_806 =
MAKE_PAIR(BGl_resetzd2statz12zd2envz12zzinline_walkz00, BNIL);
BgL_g3270z00_791 = BgL_list3292z00_806;
}
BgL_g3271z00_792 = CNST_TABLE_REF(((long) 1));
{
obj_t BgL_hooksz00_794;
obj_t BgL_hnamesz00_795;
BgL_hooksz00_794 = BgL_g3270z00_791;
BgL_hnamesz00_795 = BgL_g3271z00_792;
BgL_zc3anonymousza33283ze3z83_796:
if (NULLP(BgL_hooksz00_794))
{ /* Inline/walk.scm 42 */
CNST_TABLE_REF(((long) 2));
}
else
{ /* Inline/walk.scm 42 */
bool_t BgL_testz00_1352;
{ /* Inline/walk.scm 42 */
obj_t BgL_fun3291z00_804;
BgL_fun3291z00_804 = CAR(BgL_hooksz00_794);
BgL_testz00_1352 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3291z00_804) (BgL_fun3291z00_804,
BEOA));
}
if (BgL_testz00_1352)
{
obj_t BgL_hnamesz00_1359;
obj_t BgL_hooksz00_1357;
BgL_hooksz00_1357 = CDR(BgL_hooksz00_794);
BgL_hnamesz00_1359 = CDR(BgL_hnamesz00_795);
BgL_hnamesz00_795 = BgL_hnamesz00_1359;
BgL_hooksz00_794 = BgL_hooksz00_1357;
goto BgL_zc3anonymousza33283ze3z83_796;
}
else
{ /* Inline/walk.scm 42 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3393z00zzinline_walkz00,
BGl_string3395z00zzinline_walkz00, CAR(BgL_hnamesz00_795));
}
}
}
}
BGl_inlinezd2setupz12zc0zzinline_walkz00(BgL_whatz00_2);
{
obj_t BgL_l3275z00_808;
BgL_l3275z00_808 = BgL_globalsz00_1;
BgL_zc3anonymousza33293ze3z83_809:
if (PAIRP(BgL_l3275z00_808))
{ /* Inline/walk.scm 46 */
{ /* Inline/walk.scm 47 */
obj_t BgL_gz00_811;
BgL_gz00_811 = CAR(BgL_l3275z00_808);
{ /* Inline/walk.scm 47 */
obj_t BgL_kfactorz00_812;
{ /* Inline/walk.scm 47 */
bool_t BgL_testz00_1367;
{ /* Inline/walk.scm 47 */
obj_t BgL_auxz00_1368;
{ /* Inline/walk.scm 47 */
BgL_sfunz00_bglt BgL_obj1887z00_1262;
{ /* Inline/walk.scm 47 */
BgL_variablez00_bglt BgL_obj1611z00_1261;
BgL_obj1611z00_1261 =
(BgL_variablez00_bglt) (BgL_gz00_811);
BgL_obj1887z00_1262 =
(BgL_sfunz00_bglt) (
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1261))->
BgL_valuez00));
}
BgL_auxz00_1368 =
(((BgL_sfunz00_bglt) CREF(BgL_obj1887z00_1262))->
BgL_classz00);
}
BgL_testz00_1367 =
(BgL_auxz00_1368 == CNST_TABLE_REF(((long) 3)));
}
if (BgL_testz00_1367)
{ /* Inline/walk.scm 47 */
BgL_kfactorz00_812 = BINT(((long) 1));
}
else
{ /* Inline/walk.scm 47 */
BgL_kfactorz00_812 = BGl_za2kfactorza2z00zzinline_walkz00;
}
}
{ /* Inline/walk.scm 53 */
obj_t BgL_arg3295z00_813;
{
BgL_variablez00_bglt BgL_auxz00_1376;
BgL_auxz00_1376 = (BgL_variablez00_bglt) (BgL_gz00_811);
BgL_arg3295z00_813 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1376))->
BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3295z00_813);
}
BGl_inlinezd2sfunz12zc0zzinline_inlinez00(
(BgL_variablez00_bglt) (BgL_gz00_811),
(long) CINT(BgL_kfactorz00_812), BNIL);
BGl_leavezd2functionzd2zztools_errorz00();
}}
{
obj_t BgL_l3275z00_1384;
BgL_l3275z00_1384 = CDR(BgL_l3275z00_808);
BgL_l3275z00_808 = BgL_l3275z00_1384;
goto BgL_zc3anonymousza33293ze3z83_809;
}
}
else
{ /* Inline/walk.scm 46 */
((bool_t) 1);
}
}
{
obj_t BgL_globalsz00_822;
obj_t BgL_newzd2globalszd2_823;
BgL_globalsz00_822 = BgL_globalsz00_1;
BgL_newzd2globalszd2_823 = BNIL;
BgL_zc3anonymousza33301ze3z83_824:
if (NULLP(BgL_globalsz00_822))
{ /* Inline/walk.scm 62 */
obj_t BgL_valuez00_826;
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3319z00_848;
obj_t BgL_arg3320z00_849;
BgL_arg3319z00_848 = CNST_TABLE_REF(((long) 4));
BgL_arg3320z00_849 = bgl_reverse_bang(BgL_newzd2globalszd2_823);
BgL_valuez00_826 =
BGl_removezd2varzd2zzast_removez00(BgL_arg3319z00_848,
BgL_arg3320z00_849);
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00)
> ((long) 0)))
{ /* Inline/walk.scm 62 */
{ /* Inline/walk.scm 62 */
obj_t BgL_port3277z00_828;
{ /* Inline/walk.scm 62 */
obj_t BgL_res3391z00_1269;
{ /* Inline/walk.scm 62 */
obj_t BgL_auxz00_1394;
BgL_auxz00_1394 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3391z00_1269 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1394);
}
BgL_port3277z00_828 = BgL_res3391z00_1269;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3277z00_828);
bgl_display_string(BGl_string3396z00zzinline_walkz00,
BgL_port3277z00_828);
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3304z00_829;
{ /* Inline/walk.scm 62 */
bool_t BgL_testz00_1399;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Inline/walk.scm 62 */
BgL_testz00_1399 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Inline/walk.scm 62 */
BgL_testz00_1399 = ((bool_t) 0);
}
if (BgL_testz00_1399)
{ /* Inline/walk.scm 62 */
BgL_arg3304z00_829 =
BGl_string3397z00zzinline_walkz00;
}
else
{ /* Inline/walk.scm 62 */
BgL_arg3304z00_829 =
BGl_string3398z00zzinline_walkz00;
}
}
bgl_display_obj(BgL_arg3304z00_829, BgL_port3277z00_828);
}
bgl_display_string(BGl_string3399z00zzinline_walkz00,
BgL_port3277z00_828);
bgl_display_char(((unsigned char) '\n'), BgL_port3277z00_828);
}
{ /* Inline/walk.scm 62 */
obj_t BgL_list3307z00_832;
BgL_list3307z00_832 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3307z00_832);
}
}
else
{ /* Inline/walk.scm 62 */
obj_t BgL_g3273z00_833;
obj_t BgL_g3274z00_834;
{ /* Inline/walk.scm 62 */
obj_t BgL_list3318z00_847;
BgL_list3318z00_847 =
MAKE_PAIR(BGl_showzd2statz12zd2envz12zzinline_walkz00,
BNIL);
BgL_g3273z00_833 = BgL_list3318z00_847;
}
BgL_g3274z00_834 = CNST_TABLE_REF(((long) 5));
{
obj_t BgL_hooksz00_836;
obj_t BgL_hnamesz00_837;
BgL_hooksz00_836 = BgL_g3273z00_833;
BgL_hnamesz00_837 = BgL_g3274z00_834;
BgL_zc3anonymousza33308ze3z83_838:
if (NULLP(BgL_hooksz00_836))
{ /* Inline/walk.scm 62 */
return BgL_valuez00_826;
}
else
{ /* Inline/walk.scm 62 */
bool_t BgL_testz00_1414;
{ /* Inline/walk.scm 62 */
obj_t BgL_fun3317z00_845;
BgL_fun3317z00_845 = CAR(BgL_hooksz00_836);
BgL_testz00_1414 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3317z00_845)
(BgL_fun3317z00_845, BEOA));
}
if (BgL_testz00_1414)
{
obj_t BgL_hnamesz00_1421;
obj_t BgL_hooksz00_1419;
BgL_hooksz00_1419 = CDR(BgL_hooksz00_836);
BgL_hnamesz00_1421 = CDR(BgL_hnamesz00_837);
BgL_hnamesz00_837 = BgL_hnamesz00_1421;
BgL_hooksz00_836 = BgL_hooksz00_1419;
goto BgL_zc3anonymousza33308ze3z83_838;
}
else
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3314z00_844;
BgL_arg3314z00_844 = CAR(BgL_hnamesz00_837);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3400z00zzinline_walkz00,
BgL_arg3314z00_844);
}
}
}
}
}
else
{ /* Inline/walk.scm 64 */
bool_t BgL_testz00_1425;
{ /* Inline/walk.scm 64 */
obj_t BgL_arg3328z00_855;
{ /* Inline/walk.scm 64 */
BgL_globalz00_bglt BgL_obj1676z00_1283;
{ /* Inline/walk.scm 64 */
obj_t BgL_pairz00_1282;
BgL_pairz00_1282 = BgL_globalsz00_822;
BgL_obj1676z00_1283 =
(BgL_globalz00_bglt) (CAR(BgL_pairz00_1282));
}
BgL_arg3328z00_855 =
(((BgL_globalz00_bglt) CREF(BgL_obj1676z00_1283))->
BgL_modulez00);
}
BgL_testz00_1425 =
(BgL_arg3328z00_855 == BGl_za2moduleza2z00zzmodule_modulez00);
}
if (BgL_testz00_1425)
{ /* Inline/walk.scm 65 */
obj_t BgL_arg3324z00_851;
obj_t BgL_arg3325z00_852;
BgL_arg3324z00_851 = CDR(BgL_globalsz00_822);
BgL_arg3325z00_852 =
MAKE_PAIR(CAR(BgL_globalsz00_822), BgL_newzd2globalszd2_823);
{
obj_t BgL_newzd2globalszd2_1434;
obj_t BgL_globalsz00_1433;
BgL_globalsz00_1433 = BgL_arg3324z00_851;
BgL_newzd2globalszd2_1434 = BgL_arg3325z00_852;
BgL_newzd2globalszd2_823 = BgL_newzd2globalszd2_1434;
BgL_globalsz00_822 = BgL_globalsz00_1433;
goto BgL_zc3anonymousza33301ze3z83_824;
}
}
else
{
obj_t BgL_globalsz00_1435;
BgL_globalsz00_1435 = CDR(BgL_globalsz00_822);
BgL_globalsz00_822 = BgL_globalsz00_1435;
goto BgL_zc3anonymousza33301ze3z83_824;
}
}
}
}
}
/* <anonymous:1957> */
obj_t BGl_zc3anonymousza31957ze3z83zz__modulez00(obj_t BgL_envz00_1663, obj_t BgL_portz00_1665)
{ AN_OBJECT;
{ /* Llib/module.scm 208 */
{ /* Llib/module.scm 209 */
obj_t BgL_namez00_1664;
BgL_namez00_1664 =
PROCEDURE_REF(BgL_envz00_1663,
(int)(((long)0)));
{
obj_t BgL_portz00_881;
BgL_portz00_881 = BgL_portz00_1665;
{ /* Llib/module.scm 209 */
obj_t BgL_abasez00_883;
{ /* Llib/module.scm 209 */
obj_t BgL_auxz00_2116;
if(
STRINGP(BgL_namez00_1664))
{ /* Llib/module.scm 209 */
BgL_auxz00_2116 = BgL_namez00_1664
; } else
{
obj_t BgL_auxz00_2119;
BgL_auxz00_2119 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)8050)), BGl_string2363z00zz__modulez00, BGl_string2355z00zz__modulez00, BgL_namez00_1664);
FAILURE(BgL_auxz00_2119,BFALSE,BFALSE);}
BgL_abasez00_883 =
BGl_dirnamez00zz__osz00(BgL_auxz00_2116); }
{ /* Llib/module.scm 210 */
obj_t BgL_g1846z00_884;
{ /* Llib/module.scm 217 */
obj_t BgL_auxz00_2124;
if(
INPUT_PORTP(BgL_portz00_881))
{ /* Llib/module.scm 217 */
BgL_auxz00_2124 = BgL_portz00_881
; } else
{
obj_t BgL_auxz00_2127;
BgL_auxz00_2127 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)8329)), BGl_string2363z00zz__modulez00, BGl_string2359z00zz__modulez00, BgL_portz00_881);
FAILURE(BgL_auxz00_2127,BFALSE,BFALSE);}
BgL_g1846z00_884 =
BGl_modulezd2readzd2accesszd2filezd2zz__modulez00(BgL_auxz00_2124); }
{
obj_t BgL_l1844z00_886;
BgL_l1844z00_886 = BgL_g1846z00_884;
BgL_zc3anonymousza31958ze3z83_887:
if(
PAIRP(BgL_l1844z00_886))
{ /* Llib/module.scm 217 */
{ /* Llib/module.scm 211 */
obj_t BgL_accessz00_889;
BgL_accessz00_889 =
CAR(BgL_l1844z00_886);
{ /* Llib/module.scm 211 */
obj_t BgL_infoz00_890;
if(
bigloo_strcmp(BgL_abasez00_883, BGl_string2339z00zz__modulez00))
{ /* Llib/module.scm 212 */
obj_t BgL_pairz00_1433;
if(
PAIRP(BgL_accessz00_889))
{ /* Llib/module.scm 212 */
BgL_pairz00_1433 = BgL_accessz00_889; } else
{
obj_t BgL_auxz00_2139;
BgL_auxz00_2139 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)8142)), BGl_string2364z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_accessz00_889);
FAILURE(BgL_auxz00_2139,BFALSE,BFALSE);}
BgL_infoz00_890 =
CDR(BgL_pairz00_1433); } else
{ /* Llib/module.scm 213 */
obj_t BgL_arg1963z00_894;
{ /* Llib/module.scm 215 */
obj_t BgL_pairz00_1434;
if(
PAIRP(BgL_accessz00_889))
{ /* Llib/module.scm 215 */
BgL_pairz00_1434 = BgL_accessz00_889; } else
{
obj_t BgL_auxz00_2146;
BgL_auxz00_2146 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)8224)), BGl_string2364z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_accessz00_889);
FAILURE(BgL_auxz00_2146,BFALSE,BFALSE);}
BgL_arg1963z00_894 =
CDR(BgL_pairz00_1434); }
{ /* Llib/module.scm 214 */
obj_t BgL_zc3anonymousza31965ze3z83_1659;
BgL_zc3anonymousza31965ze3z83_1659 =
make_fx_procedure(BGl_zc3anonymousza31965ze3z83zz__modulez00,
(int)(((long)1)),
(int)(((long)1)));
PROCEDURE_SET(BgL_zc3anonymousza31965ze3z83_1659,
(int)(((long)0)), BgL_abasez00_883);
{ /* Llib/module.scm 213 */
obj_t BgL_list1964z00_895;
BgL_list1964z00_895 =
MAKE_PAIR(BgL_arg1963z00_894, BNIL);
BgL_infoz00_890 =
BGl_mapz12z12zz__r4_control_features_6_9z00(BgL_zc3anonymousza31965ze3z83_1659, BgL_list1964z00_895); } } }
{ /* Llib/module.scm 216 */
obj_t BgL_arg1960z00_891;
{ /* Llib/module.scm 216 */
obj_t BgL_pairz00_1435;
if(
PAIRP(BgL_accessz00_889))
{ /* Llib/module.scm 216 */
BgL_pairz00_1435 = BgL_accessz00_889; } else
{
obj_t BgL_auxz00_2160;
BgL_auxz00_2160 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)8274)), BGl_string2364z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_accessz00_889);
FAILURE(BgL_auxz00_2160,BFALSE,BFALSE);}
BgL_arg1960z00_891 =
CAR(BgL_pairz00_1435); }
BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(BgL_arg1960z00_891, BgL_infoz00_890, BgL_abasez00_883); } } }
{
obj_t BgL_l1844z00_2166;
BgL_l1844z00_2166 =
CDR(BgL_l1844z00_886);
BgL_l1844z00_886 = BgL_l1844z00_2166;
goto BgL_zc3anonymousza31958ze3z83_887;} } else
{ /* Llib/module.scm 217 */
if(
NULLP(BgL_l1844z00_886))
{ /* Llib/module.scm 217 */
return BTRUE;} else
{ /* Llib/module.scm 217 */
return
BGl_errorz00zz__errorz00(BGl_string2365z00zz__modulez00, BGl_string2366z00zz__modulez00, BgL_l1844z00_886);} } } } } } } }
}
/* <anonymous:1887> */
obj_t BGl_zc3anonymousza31887ze3z83zz__modulez00(obj_t BgL_envz00_1645)
{ AN_OBJECT;
{ /* Llib/module.scm 107 */
{ /* Llib/module.scm 109 */
obj_t BgL_modz00_1646;obj_t BgL_abasez00_1647;
BgL_modz00_1646 =
PROCEDURE_REF(BgL_envz00_1645,
(int)(((long)0)));
BgL_abasez00_1647 =
PROCEDURE_REF(BgL_envz00_1645,
(int)(((long)1)));
{
if(
NULLP(BgL_abasez00_1647))
{ /* Llib/module.scm 110 */
obj_t BgL_basez00_1367;
{ /* Llib/module.scm 110 */
obj_t BgL_auxz00_1849;
{ /* Llib/module.scm 110 */
obj_t BgL_aux2269z00_1681;
BgL_aux2269z00_1681 = BGl_afilezd2tablezd2zz__modulez00;
{ /* Llib/module.scm 110 */
bool_t BgL_testz00_1850;
if(
PAIRP(BgL_aux2269z00_1681))
{ /* Llib/module.scm 110 */
BgL_testz00_1850 = ((bool_t)1)
; } else
{ /* Llib/module.scm 110 */
BgL_testz00_1850 =
NULLP(BgL_aux2269z00_1681)
; }
if(BgL_testz00_1850)
{ /* Llib/module.scm 110 */
BgL_auxz00_1849 = BgL_aux2269z00_1681
; } else
{
obj_t BgL_auxz00_1854;
BgL_auxz00_1854 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)4305)), BGl_string2340z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2269z00_1681);
FAILURE(BgL_auxz00_1854,BFALSE,BFALSE);} } }
BgL_basez00_1367 =
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BGl_string2339z00zz__modulez00, BgL_auxz00_1849); }
if(
PAIRP(BgL_basez00_1367))
{ /* Llib/module.scm 110 */
return
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_1646, BgL_basez00_1367);} else
{ /* Llib/module.scm 110 */
return BNIL;} } else
{ /* Llib/module.scm 109 */
if(
STRINGP(BgL_abasez00_1647))
{ /* Llib/module.scm 112 */
obj_t BgL_basez00_1373;
{ /* Llib/module.scm 112 */
obj_t BgL_auxz00_1864;
{ /* Llib/module.scm 112 */
obj_t BgL_aux2271z00_1683;
BgL_aux2271z00_1683 = BGl_afilezd2tablezd2zz__modulez00;
{ /* Llib/module.scm 112 */
bool_t BgL_testz00_1865;
if(
PAIRP(BgL_aux2271z00_1683))
{ /* Llib/module.scm 112 */
BgL_testz00_1865 = ((bool_t)1)
; } else
{ /* Llib/module.scm 112 */
BgL_testz00_1865 =
NULLP(BgL_aux2271z00_1683)
; }
if(BgL_testz00_1865)
{ /* Llib/module.scm 112 */
BgL_auxz00_1864 = BgL_aux2271z00_1683
; } else
{
obj_t BgL_auxz00_1869;
BgL_auxz00_1869 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)4358)), BGl_string2340z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2271z00_1683);
FAILURE(BgL_auxz00_1869,BFALSE,BFALSE);} } }
BgL_basez00_1373 =
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_abasez00_1647, BgL_auxz00_1864); }
if(
PAIRP(BgL_basez00_1373))
{ /* Llib/module.scm 112 */
return
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_1646, BgL_basez00_1373);} else
{ /* Llib/module.scm 112 */
return BNIL;} } else
{ /* Llib/module.scm 111 */
if(
PAIRP(BgL_abasez00_1647))
{
obj_t BgL_abasez00_800;
BgL_abasez00_800 = BgL_abasez00_1647;
BgL_zc3anonymousza31891ze3z83_801:
if(
PAIRP(BgL_abasez00_800))
{ /* Llib/module.scm 116 */
obj_t BgL_resolvez00_803;
{ /* Llib/module.scm 116 */
obj_t BgL_arg1895z00_806;
BgL_arg1895z00_806 =
CAR(BgL_abasez00_800);
{ /* Llib/module.scm 116 */
obj_t BgL_basez00_1381;
{ /* Llib/module.scm 116 */
obj_t BgL_auxz00_1882;
{ /* Llib/module.scm 116 */
obj_t BgL_aux2273z00_1685;
BgL_aux2273z00_1685 = BGl_afilezd2tablezd2zz__modulez00;
{ /* Llib/module.scm 116 */
bool_t BgL_testz00_1883;
if(
PAIRP(BgL_aux2273z00_1685))
{ /* Llib/module.scm 116 */
BgL_testz00_1883 = ((bool_t)1)
; } else
{ /* Llib/module.scm 116 */
BgL_testz00_1883 =
NULLP(BgL_aux2273z00_1685)
; }
if(BgL_testz00_1883)
{ /* Llib/module.scm 116 */
BgL_auxz00_1882 = BgL_aux2273z00_1685
; } else
{
obj_t BgL_auxz00_1887;
BgL_auxz00_1887 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)4478)), BGl_string2342z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2273z00_1685);
FAILURE(BgL_auxz00_1887,BFALSE,BFALSE);} } }
BgL_basez00_1381 =
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1895z00_806, BgL_auxz00_1882); }
if(
PAIRP(BgL_basez00_1381))
{ /* Llib/module.scm 116 */
BgL_resolvez00_803 =
BGl_resolvezd2abasezf2bucketz20zz__modulez00(BgL_modz00_1646, BgL_basez00_1381); } else
{ /* Llib/module.scm 116 */
BgL_resolvez00_803 = BNIL; } } }
if(
PAIRP(BgL_resolvez00_803))
{ /* Llib/module.scm 117 */
return BgL_resolvez00_803;} else
{
obj_t BgL_abasez00_1897;
BgL_abasez00_1897 =
CDR(BgL_abasez00_800);
BgL_abasez00_800 = BgL_abasez00_1897;
goto BgL_zc3anonymousza31891ze3z83_801;} } else
{ /* Llib/module.scm 115 */
return BNIL;} } else
{ /* Llib/module.scm 113 */
return
BGl_resolvezd2abaseza2z70zz__modulez00(BgL_modz00_1646);} } } } } }
}
/* cnst-walk! */
BGL_EXPORTED_DEF obj_t BGl_cnstzd2walkz12zc0zzcnst_walkz00(obj_t
BgL_globalsz00_1)
{
AN_OBJECT;
{ /* Cnst/walk.scm 33 */
{ /* Cnst/walk.scm 34 */
obj_t BgL_list3253z00_774;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3255z00_776;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3257z00_778;
BgL_arg3257z00_778 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3255z00_776 =
MAKE_PAIR(BGl_string3350z00zzcnst_walkz00, BgL_arg3257z00_778);
}
BgL_list3253z00_774 =
MAKE_PAIR(BGl_string3351z00zzcnst_walkz00, BgL_arg3255z00_776);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3253z00_774);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3350z00zzcnst_walkz00;
{ /* Cnst/walk.scm 34 */
obj_t BgL_g3246z00_779;
obj_t BgL_g3247z00_780;
{ /* Cnst/walk.scm 34 */
obj_t BgL_list3267z00_794;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3268z00_795;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3269z00_796;
BgL_arg3269z00_796 =
MAKE_PAIR(BGl_unsafez12zd2envzc0zzcnst_walkz00, BNIL);
BgL_arg3268z00_795 =
MAKE_PAIR(BGl_startzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
BgL_arg3269z00_796);
}
BgL_list3267z00_794 =
MAKE_PAIR(BGl_startzd2cnstzd2cachez12zd2envzc0zzcnst_cachez00,
BgL_arg3268z00_795);
}
BgL_g3246z00_779 = BgL_list3267z00_794;
}
BgL_g3247z00_780 = CNST_TABLE_REF(((long) 0));
{
obj_t BgL_hooksz00_782;
obj_t BgL_hnamesz00_783;
BgL_hooksz00_782 = BgL_g3246z00_779;
BgL_hnamesz00_783 = BgL_g3247z00_780;
BgL_zc3anonymousza33258ze3z83_784:
if (NULLP(BgL_hooksz00_782))
{ /* Cnst/walk.scm 34 */
CNST_TABLE_REF(((long) 1));
}
else
{ /* Cnst/walk.scm 34 */
bool_t BgL_testz00_1301;
{ /* Cnst/walk.scm 34 */
obj_t BgL_fun3266z00_792;
BgL_fun3266z00_792 = CAR(BgL_hooksz00_782);
BgL_testz00_1301 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3266z00_792) (BgL_fun3266z00_792,
BEOA));
}
if (BgL_testz00_1301)
{
obj_t BgL_hnamesz00_1308;
obj_t BgL_hooksz00_1306;
BgL_hooksz00_1306 = CDR(BgL_hooksz00_782);
BgL_hnamesz00_1308 = CDR(BgL_hnamesz00_783);
BgL_hnamesz00_783 = BgL_hnamesz00_1308;
BgL_hooksz00_782 = BgL_hooksz00_1306;
goto BgL_zc3anonymousza33258ze3z83_784;
}
else
{ /* Cnst/walk.scm 34 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3350z00zzcnst_walkz00,
BGl_string3352z00zzcnst_walkz00, CAR(BgL_hnamesz00_783));
}
}
}
}
{ /* Cnst/walk.scm 35 */
obj_t BgL_list3270z00_797;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3272z00_799;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3273z00_800;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3274z00_801;
BgL_arg3274z00_801 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3273z00_800 =
MAKE_PAIR(BCHAR(((unsigned char) ']')), BgL_arg3274z00_801);
}
BgL_arg3272z00_799 =
MAKE_PAIR(BGl_za2initzd2modeza2zd2zzengine_paramz00,
BgL_arg3273z00_800);
}
BgL_list3270z00_797 =
MAKE_PAIR(BGl_string3353z00zzcnst_walkz00, BgL_arg3272z00_799);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list3270z00_797);
}
{
obj_t BgL_l3250z00_803;
BgL_l3250z00_803 = BgL_globalsz00_1;
BgL_zc3anonymousza33275ze3z83_804:
if (PAIRP(BgL_l3250z00_803))
{ /* Cnst/walk.scm 36 */
{ /* Cnst/walk.scm 41 */
obj_t BgL_globalz00_806;
BgL_globalz00_806 = CAR(BgL_l3250z00_803);
{ /* Cnst/walk.scm 37 */
obj_t BgL_arg3277z00_807;
{
BgL_variablez00_bglt BgL_auxz00_1323;
BgL_auxz00_1323 = (BgL_variablez00_bglt) (BgL_globalz00_806);
BgL_arg3277z00_807 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1323))->BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3277z00_807);
}
{ /* Cnst/walk.scm 38 */
BgL_valuez00_bglt BgL_funz00_808;
{
BgL_variablez00_bglt BgL_auxz00_1327;
BgL_auxz00_1327 = (BgL_variablez00_bglt) (BgL_globalz00_806);
BgL_funz00_808 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1327))->
BgL_valuez00);
}
{ /* Cnst/walk.scm 38 */
BgL_nodez00_bglt BgL_newzd2bodyzd2_809;
{ /* Cnst/walk.scm 39 */
obj_t BgL_arg3278z00_810;
{
BgL_sfunz00_bglt BgL_auxz00_1330;
BgL_auxz00_1330 = (BgL_sfunz00_bglt) (BgL_funz00_808);
BgL_arg3278z00_810 =
(((BgL_sfunz00_bglt) CREF(BgL_auxz00_1330))->
BgL_bodyz00);
}
BgL_newzd2bodyzd2_809 =
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt) (BgL_arg3278z00_810));
}
{ /* Cnst/walk.scm 39 */
{
obj_t BgL_auxz00_1337;
BgL_sfunz00_bglt BgL_auxz00_1335;
BgL_auxz00_1337 = (obj_t) (BgL_newzd2bodyzd2_809);
BgL_auxz00_1335 = (BgL_sfunz00_bglt) (BgL_funz00_808);
((((BgL_sfunz00_bglt) CREF(BgL_auxz00_1335))->
BgL_bodyz00) = ((obj_t) BgL_auxz00_1337), BUNSPEC);
}
}
}
}
BGl_leavezd2functionzd2zztools_errorz00();
}
{
obj_t BgL_l3250z00_1341;
BgL_l3250z00_1341 = CDR(BgL_l3250z00_803);
BgL_l3250z00_803 = BgL_l3250z00_1341;
goto BgL_zc3anonymousza33275ze3z83_804;
}
}
else
{ /* Cnst/walk.scm 36 */
((bool_t) 1);
}
}
{ /* Cnst/walk.scm 43 */
obj_t BgL_valuez00_813;
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3295z00_836;
obj_t BgL_arg3296z00_837;
BgL_arg3295z00_836 = CNST_TABLE_REF(((long) 2));
BgL_arg3296z00_837 =
bgl_append2(BGl_initializa7ezd2astz75zzcnst_initializa7eza7(),
BgL_globalsz00_1);
BgL_valuez00_813 =
BGl_removezd2varzd2zzast_removez00(BgL_arg3295z00_836,
BgL_arg3296z00_837);
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Cnst/walk.scm 43 */
{ /* Cnst/walk.scm 43 */
obj_t BgL_port3252z00_815;
{ /* Cnst/walk.scm 43 */
obj_t BgL_res3348z00_1231;
{ /* Cnst/walk.scm 43 */
obj_t BgL_auxz00_1350;
BgL_auxz00_1350 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3348z00_1231 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1350);
}
BgL_port3252z00_815 = BgL_res3348z00_1231;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3252z00_815);
bgl_display_string(BGl_string3354z00zzcnst_walkz00,
BgL_port3252z00_815);
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3281z00_816;
{ /* Cnst/walk.scm 43 */
bool_t BgL_testz00_1355;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Cnst/walk.scm 43 */
BgL_testz00_1355 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Cnst/walk.scm 43 */
BgL_testz00_1355 = ((bool_t) 0);
}
if (BgL_testz00_1355)
{ /* Cnst/walk.scm 43 */
BgL_arg3281z00_816 = BGl_string3355z00zzcnst_walkz00;
}
else
{ /* Cnst/walk.scm 43 */
BgL_arg3281z00_816 = BGl_string3356z00zzcnst_walkz00;
}
}
bgl_display_obj(BgL_arg3281z00_816, BgL_port3252z00_815);
}
bgl_display_string(BGl_string3357z00zzcnst_walkz00,
BgL_port3252z00_815);
bgl_display_char(((unsigned char) '\n'), BgL_port3252z00_815);
}
{ /* Cnst/walk.scm 43 */
obj_t BgL_list3284z00_819;
BgL_list3284z00_819 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3284z00_819);
}
}
else
{ /* Cnst/walk.scm 43 */
obj_t BgL_g3248z00_820;
obj_t BgL_g3249z00_821;
{ /* Cnst/walk.scm 43 */
obj_t BgL_list3293z00_834;
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3294z00_835;
BgL_arg3294z00_835 =
MAKE_PAIR(BGl_safez12zd2envzc0zzcnst_walkz00, BNIL);
BgL_list3293z00_834 =
MAKE_PAIR(BGl_stopzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
BgL_arg3294z00_835);
}
BgL_g3248z00_820 = BgL_list3293z00_834;
}
BgL_g3249z00_821 = CNST_TABLE_REF(((long) 3));
{
obj_t BgL_hooksz00_823;
obj_t BgL_hnamesz00_824;
BgL_hooksz00_823 = BgL_g3248z00_820;
BgL_hnamesz00_824 = BgL_g3249z00_821;
BgL_zc3anonymousza33285ze3z83_825:
if (NULLP(BgL_hooksz00_823))
{ /* Cnst/walk.scm 43 */
return BgL_valuez00_813;
}
else
{ /* Cnst/walk.scm 43 */
bool_t BgL_testz00_1371;
{ /* Cnst/walk.scm 43 */
obj_t BgL_fun3292z00_832;
BgL_fun3292z00_832 = CAR(BgL_hooksz00_823);
BgL_testz00_1371 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3292z00_832)
(BgL_fun3292z00_832, BEOA));
}
if (BgL_testz00_1371)
{
obj_t BgL_hnamesz00_1378;
obj_t BgL_hooksz00_1376;
BgL_hooksz00_1376 = CDR(BgL_hooksz00_823);
BgL_hnamesz00_1378 = CDR(BgL_hnamesz00_824);
BgL_hnamesz00_824 = BgL_hnamesz00_1378;
BgL_hooksz00_823 = BgL_hooksz00_1376;
goto BgL_zc3anonymousza33285ze3z83_825;
}
else
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3291z00_831;
BgL_arg3291z00_831 = CAR(BgL_hnamesz00_824);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3358z00zzcnst_walkz00, BgL_arg3291z00_831);
}
}
}
}
}
}
}
/* module-add-access-inner! */
obj_t BGl_modulezd2addzd2accesszd2innerz12zc0zz__modulez00(obj_t BgL_modulez00_10, obj_t BgL_filesz00_11, obj_t BgL_abasez00_12)
{ AN_OBJECT;
{ /* Llib/module.scm 160 */
{ /* Llib/module.scm 161 */
obj_t BgL_basez00_829;
{ /* Llib/module.scm 161 */
obj_t BgL_auxz00_1957;
{ /* Llib/module.scm 161 */
obj_t BgL_aux2287z00_1699;
BgL_aux2287z00_1699 = BGl_afilezd2tablezd2zz__modulez00;
{ /* Llib/module.scm 161 */
bool_t BgL_testz00_1958;
if(
PAIRP(BgL_aux2287z00_1699))
{ /* Llib/module.scm 161 */
BgL_testz00_1958 = ((bool_t)1)
; } else
{ /* Llib/module.scm 161 */
BgL_testz00_1958 =
NULLP(BgL_aux2287z00_1699)
; }
if(BgL_testz00_1958)
{ /* Llib/module.scm 161 */
BgL_auxz00_1957 = BgL_aux2287z00_1699
; } else
{
obj_t BgL_auxz00_1962;
BgL_auxz00_1962 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)6199)), BGl_string2346z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2287z00_1699);
FAILURE(BgL_auxz00_1962,BFALSE,BFALSE);} } }
BgL_basez00_829 =
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_abasez00_12, BgL_auxz00_1957); }
if(
CBOOL(BgL_basez00_829))
{ /* Llib/module.scm 165 */
obj_t BgL_cellz00_830;
{ /* Llib/module.scm 165 */
obj_t BgL_auxz00_1969;
{ /* Llib/module.scm 165 */
obj_t BgL_pairz00_1402;
if(
PAIRP(BgL_basez00_829))
{ /* Llib/module.scm 165 */
BgL_pairz00_1402 = BgL_basez00_829; } else
{
obj_t BgL_auxz00_1972;
BgL_auxz00_1972 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)6351)), BGl_string2346z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_basez00_829);
FAILURE(BgL_auxz00_1972,BFALSE,BFALSE);}
{ /* Llib/module.scm 165 */
obj_t BgL_aux2291z00_1703;
BgL_aux2291z00_1703 =
CDR(BgL_pairz00_1402);
{ /* Llib/module.scm 165 */
bool_t BgL_testz00_1977;
if(
PAIRP(BgL_aux2291z00_1703))
{ /* Llib/module.scm 165 */
BgL_testz00_1977 = ((bool_t)1)
; } else
{ /* Llib/module.scm 165 */
BgL_testz00_1977 =
NULLP(BgL_aux2291z00_1703)
; }
if(BgL_testz00_1977)
{ /* Llib/module.scm 165 */
BgL_auxz00_1969 = BgL_aux2291z00_1703
; } else
{
obj_t BgL_auxz00_1981;
BgL_auxz00_1981 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)6346)), BGl_string2346z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2291z00_1703);
FAILURE(BgL_auxz00_1981,BFALSE,BFALSE);} } } }
BgL_cellz00_830 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modulez00_10, BgL_auxz00_1969); }
if(
CBOOL(BgL_cellz00_830))
{ /* Llib/module.scm 168 */
bool_t BgL_testz00_1988;
{ /* Llib/module.scm 168 */
obj_t BgL_auxz00_1989;
{ /* Llib/module.scm 168 */
obj_t BgL_pairz00_1403;
if(
PAIRP(BgL_cellz00_830))
{ /* Llib/module.scm 168 */
BgL_pairz00_1403 = BgL_cellz00_830; } else
{
obj_t BgL_auxz00_1992;
BgL_auxz00_1992 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)6462)), BGl_string2346z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_cellz00_830);
FAILURE(BgL_auxz00_1992,BFALSE,BFALSE);}
BgL_auxz00_1989 =
CDR(BgL_pairz00_1403); }
BgL_testz00_1988 =
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_1989, BgL_filesz00_11); }
if(BgL_testz00_1988)
{ /* Llib/module.scm 168 */
return BFALSE;} else
{ /* Llib/module.scm 168 */
{ /* Llib/module.scm 169 */
obj_t BgL_pairz00_1404;
if(
PAIRP(BgL_cellz00_830))
{ /* Llib/module.scm 169 */
BgL_pairz00_1404 = BgL_cellz00_830; } else
{
obj_t BgL_auxz00_2000;
BgL_auxz00_2000 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)6491)), BGl_string2346z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_cellz00_830);
FAILURE(BgL_auxz00_2000,BFALSE,BFALSE);}
SET_CDR(BgL_pairz00_1404, BgL_filesz00_11); }
{ /* Llib/module.scm 170 */
obj_t BgL_arg1910z00_832;obj_t BgL_arg1914z00_835;
BgL_arg1910z00_832 = BGl_symbol2347z00zz__modulez00;
BgL_arg1914z00_835 =
CDR(BgL_cellz00_830);
{ /* Llib/module.scm 170 */
obj_t BgL_list1919z00_839;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1920z00_840;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1921z00_841;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1922z00_842;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1923z00_843;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1924z00_844;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1925z00_845;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1926z00_846;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1927z00_847;
{ /* Llib/module.scm 170 */
obj_t BgL_arg1929z00_848;
BgL_arg1929z00_848 =
MAKE_PAIR(BGl_string2349z00zz__modulez00, BNIL);
BgL_arg1927z00_847 =
MAKE_PAIR(BgL_abasez00_12, BgL_arg1929z00_848); }
BgL_arg1926z00_846 =
MAKE_PAIR(BGl_string2350z00zz__modulez00, BgL_arg1927z00_847); }
BgL_arg1925z00_845 =
MAKE_PAIR(BgL_filesz00_11, BgL_arg1926z00_846); }
BgL_arg1924z00_844 =
MAKE_PAIR(BGl_string2351z00zz__modulez00, BgL_arg1925z00_845); }
BgL_arg1923z00_843 =
MAKE_PAIR(BgL_arg1914z00_835, BgL_arg1924z00_844); }
BgL_arg1922z00_842 =
MAKE_PAIR(BGl_string2352z00zz__modulez00, BgL_arg1923z00_843); }
BgL_arg1921z00_841 =
MAKE_PAIR(BgL_modulez00_10, BgL_arg1922z00_842); }
BgL_arg1920z00_840 =
MAKE_PAIR(BGl_string2353z00zz__modulez00, BgL_arg1921z00_841); }
BgL_list1919z00_839 =
MAKE_PAIR(BgL_arg1910z00_832, BgL_arg1920z00_840); }
return
BGl_warningz00zz__errorz00(BgL_list1919z00_839);} } } } else
{ /* Llib/module.scm 167 */
obj_t BgL_arg1931z00_850;
{ /* Llib/module.scm 167 */
obj_t BgL_arg1932z00_851;obj_t BgL_arg1935z00_852;
BgL_arg1932z00_851 =
MAKE_PAIR(BgL_modulez00_10, BgL_filesz00_11);
{ /* Llib/module.scm 167 */
obj_t BgL_pairz00_1407;
if(
PAIRP(BgL_basez00_829))
{ /* Llib/module.scm 167 */
BgL_pairz00_1407 = BgL_basez00_829; } else
{
obj_t BgL_auxz00_2020;
BgL_auxz00_2020 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)6430)), BGl_string2346z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_basez00_829);
FAILURE(BgL_auxz00_2020,BFALSE,BFALSE);}
BgL_arg1935z00_852 =
CDR(BgL_pairz00_1407); }
BgL_arg1931z00_850 =
MAKE_PAIR(BgL_arg1932z00_851, BgL_arg1935z00_852); }
return
SET_CDR(BgL_basez00_829, BgL_arg1931z00_850);} } else
{ /* Llib/module.scm 164 */
obj_t BgL_arg1938z00_854;
{ /* Llib/module.scm 164 */
obj_t BgL_arg1940z00_855;
{ /* Llib/module.scm 164 */
obj_t BgL_arg1941z00_856;
BgL_arg1941z00_856 =
MAKE_PAIR(BgL_modulez00_10, BgL_filesz00_11);
{ /* Llib/module.scm 164 */
obj_t BgL_list1942z00_857;
BgL_list1942z00_857 =
MAKE_PAIR(BgL_arg1941z00_856, BNIL);
BgL_arg1940z00_855 = BgL_list1942z00_857; } }
BgL_arg1938z00_854 =
MAKE_PAIR(BgL_abasez00_12, BgL_arg1940z00_855); }
return (
BGl_afilezd2tablezd2zz__modulez00 =
MAKE_PAIR(BgL_arg1938z00_854, BGl_afilezd2tablezd2zz__modulez00), BUNSPEC) ;} } }
}
/* set-integration! */
BGL_EXPORTED_DEF obj_t
BGl_setzd2integrationz12zc0zzglobaliza7e_integrationza7(BgL_globalz00_bglt
BgL_globalz00_1, obj_t BgL_ez00_2, obj_t BgL_g0z00_3, obj_t BgL_g1z00_4)
{
AN_OBJECT;
{ /* Globalize/integration.scm 31 */
{
obj_t BgL_l3651z00_921;
BgL_l3651z00_921 = BgL_ez00_2;
BgL_zc3anonymousza33663ze3z83_922:
if (PAIRP(BgL_l3651z00_921))
{ /* Globalize/integration.scm 34 */
{ /* Globalize/integration.scm 35 */
obj_t BgL_fz00_924;
BgL_fz00_924 = CAR(BgL_l3651z00_921);
{ /* Globalize/integration.scm 36 */
BgL_localzf2ginfozf2_bglt BgL_obj3525z00_1422;
bool_t BgL_val3524z00_1423;
BgL_obj3525z00_1422 =
(BgL_localzf2ginfozf2_bglt) (BgL_fz00_924);
BgL_val3524z00_1423 = ((bool_t) 1);
{
obj_t BgL_auxz00_1528;
{ /* Globalize/integration.scm 36 */
BgL_objectz00_bglt BgL_auxz00_1529;
BgL_auxz00_1529 =
(BgL_objectz00_bglt) (BgL_obj3525z00_1422);
BgL_auxz00_1528 = BGL_OBJECT_WIDENING(BgL_auxz00_1529);
}
((((BgL_localzf2ginfozf2_bglt) CREF(BgL_auxz00_1528))->
BgL_globaliza7edzf3z54) =
((bool_t) BgL_val3524z00_1423), BUNSPEC);
}
}
}
{
obj_t BgL_l3651z00_1533;
BgL_l3651z00_1533 = CDR(BgL_l3651z00_921);
BgL_l3651z00_921 = BgL_l3651z00_1533;
goto BgL_zc3anonymousza33663ze3z83_922;
}
}
else
{ /* Globalize/integration.scm 34 */
((bool_t) 1);
}
}
{ /* Globalize/integration.scm 40 */
obj_t BgL_g3639z00_928;
BgL_g3639z00_928 = MAKE_PAIR((obj_t) (BgL_globalz00_1), BgL_ez00_2);
{
obj_t BgL_fnsz00_930;
BgL_fnsz00_930 = BgL_g3639z00_928;
BgL_zc3anonymousza33666ze3z83_931:
if (PAIRP(BgL_fnsz00_930))
{ /* Globalize/integration.scm 42 */
obj_t BgL_arg3668z00_933;
{ /* Globalize/integration.scm 42 */
obj_t BgL_runner3680z00_952;
{ /* Globalize/integration.scm 42 */
obj_t BgL_l3653z00_934;
BgL_l3653z00_934 = BgL_fnsz00_930;
{ /* Globalize/integration.scm 42 */
obj_t BgL_head3655z00_936;
BgL_head3655z00_936 =
MAKE_PAIR
(BGl_traversezd2callzd2toz12z12zzglobaliza7e_integrationza7
(CAR(BgL_l3653z00_934)), BNIL);
{ /* Globalize/integration.scm 42 */
obj_t BgL_g3658z00_937;
BgL_g3658z00_937 = CDR(BgL_l3653z00_934);
{
obj_t BgL_l3653z00_939;
obj_t BgL_tail3656z00_940;
BgL_l3653z00_939 = BgL_g3658z00_937;
BgL_tail3656z00_940 = BgL_head3655z00_936;
BgL_zc3anonymousza33670ze3z83_941:
if (NULLP(BgL_l3653z00_939))
{ /* Globalize/integration.scm 42 */
BgL_runner3680z00_952 = BgL_head3655z00_936;
}
else
{ /* Globalize/integration.scm 42 */
obj_t BgL_newtail3657z00_943;
BgL_newtail3657z00_943 =
MAKE_PAIR
(BGl_traversezd2callzd2toz12z12zzglobaliza7e_integrationza7
(CAR(BgL_l3653z00_939)), BNIL);
SET_CDR(BgL_tail3656z00_940,
BgL_newtail3657z00_943);
{
obj_t BgL_tail3656z00_1551;
obj_t BgL_l3653z00_1549;
BgL_l3653z00_1549 = CDR(BgL_l3653z00_939);
BgL_tail3656z00_1551 = BgL_newtail3657z00_943;
BgL_tail3656z00_940 = BgL_tail3656z00_1551;
BgL_l3653z00_939 = BgL_l3653z00_1549;
goto BgL_zc3anonymousza33670ze3z83_941;
}
}
}
}
}
}
BgL_arg3668z00_933 =
BGl_appendz00zz__r4_pairs_and_lists_6_3z00
(BgL_runner3680z00_952);
}
{
obj_t BgL_fnsz00_1553;
BgL_fnsz00_1553 = BgL_arg3668z00_933;
BgL_fnsz00_930 = BgL_fnsz00_1553;
goto BgL_zc3anonymousza33666ze3z83_931;
}
}
else
{ /* Globalize/integration.scm 41 */
((bool_t) 0);
}
}
}
{
obj_t BgL_l3659z00_955;
BgL_l3659z00_955 = BgL_g1z00_4;
BgL_zc3anonymousza33681ze3z83_956:
if (PAIRP(BgL_l3659z00_955))
{ /* Globalize/integration.scm 44 */
{ /* Globalize/integration.scm 45 */
obj_t BgL_fz00_958;
BgL_fz00_958 = CAR(BgL_l3659z00_955);
{ /* Globalize/integration.scm 45 */
bool_t BgL_testz00_1557;
{ /* Globalize/integration.scm 45 */
bool_t BgL__ortest_3646z00_1441;
BgL__ortest_3646z00_1441 =
BGl_iszd2azf3z21zz__objectz00(BgL_fz00_958,
BGl_globalz00zzast_varz00);
if (BgL__ortest_3646z00_1441)
{ /* Globalize/integration.scm 45 */
BgL_testz00_1557 = BgL__ortest_3646z00_1441;
}
else
{ /* Globalize/integration.scm 45 */
BgL_localzf2ginfozf2_bglt BgL_obj3523z00_1443;
BgL_obj3523z00_1443 =
(BgL_localzf2ginfozf2_bglt) (BgL_fz00_958);
{
obj_t BgL_auxz00_1561;
{ /* Globalize/integration.scm 45 */
BgL_objectz00_bglt BgL_auxz00_1562;
BgL_auxz00_1562 =
(BgL_objectz00_bglt) (BgL_obj3523z00_1443);
BgL_auxz00_1561 =
BGL_OBJECT_WIDENING(BgL_auxz00_1562);
}
BgL_testz00_1557 =
(((BgL_localzf2ginfozf2_bglt) CREF(BgL_auxz00_1561))->
BgL_globaliza7edzf3z54);
}
}
}
if (BgL_testz00_1557)
{ /* Globalize/integration.scm 45 */
BFALSE;
}
else
{ /* Globalize/integration.scm 48 */
BgL_valuez00_bglt BgL_instance3640z00_960;
{
BgL_variablez00_bglt BgL_auxz00_1566;
BgL_auxz00_1566 = (BgL_variablez00_bglt) (BgL_fz00_958);
BgL_instance3640z00_960 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1566))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 49 */
obj_t BgL_arg3684z00_961;
{ /* Globalize/integration.scm 49 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3345z00_1445;
BgL_obj3345z00_1445 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3640z00_960);
{
obj_t BgL_auxz00_1570;
{ /* Globalize/integration.scm 49 */
BgL_objectz00_bglt BgL_auxz00_1571;
BgL_auxz00_1571 =
(BgL_objectz00_bglt) (BgL_obj3345z00_1445);
BgL_auxz00_1570 =
BGL_OBJECT_WIDENING(BgL_auxz00_1571);
}
BgL_arg3684z00_961 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1570))->BgL_imarkz00);
}
}
{ /* Globalize/integration.scm 49 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3344z00_1446;
obj_t BgL_val3343z00_1447;
BgL_obj3344z00_1446 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_instance3640z00_960);
BgL_val3343z00_1447 = BgL_arg3684z00_961;
{
obj_t BgL_auxz00_1576;
{ /* Globalize/integration.scm 49 */
BgL_objectz00_bglt BgL_auxz00_1577;
BgL_auxz00_1577 =
(BgL_objectz00_bglt) (BgL_obj3344z00_1446);
BgL_auxz00_1576 =
BGL_OBJECT_WIDENING(BgL_auxz00_1577);
}
((((BgL_sfunzf2ginfozf2_bglt) CREF(BgL_auxz00_1576))->
BgL_integratorz00) =
((obj_t) BgL_val3343z00_1447), BUNSPEC);
}
}
}
}
}
}
{
obj_t BgL_l3659z00_1581;
BgL_l3659z00_1581 = CDR(BgL_l3659z00_955);
BgL_l3659z00_955 = BgL_l3659z00_1581;
goto BgL_zc3anonymousza33681ze3z83_956;
}
}
else
{ /* Globalize/integration.scm 44 */
((bool_t) 1);
}
}
{
obj_t BgL_l3661z00_965;
{ /* Globalize/integration.scm 52 */
bool_t BgL_auxz00_1583;
BgL_l3661z00_965 = BgL_g1z00_4;
BgL_zc3anonymousza33686ze3z83_966:
if (PAIRP(BgL_l3661z00_965))
{ /* Globalize/integration.scm 52 */
{ /* Globalize/integration.scm 53 */
obj_t BgL_fz00_968;
BgL_fz00_968 = CAR(BgL_l3661z00_965);
{ /* Globalize/integration.scm 53 */
BgL_valuez00_bglt BgL_instance3642z00_969;
{
BgL_variablez00_bglt BgL_auxz00_1587;
BgL_auxz00_1587 = (BgL_variablez00_bglt) (BgL_fz00_968);
BgL_instance3642z00_969 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1587))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 56 */
bool_t BgL_testz00_1590;
{ /* Globalize/integration.scm 56 */
bool_t BgL__ortest_3646z00_1453;
BgL__ortest_3646z00_1453 =
BGl_iszd2azf3z21zz__objectz00(BgL_fz00_968,
BGl_globalz00zzast_varz00);
if (BgL__ortest_3646z00_1453)
{ /* Globalize/integration.scm 56 */
BgL_testz00_1590 = BgL__ortest_3646z00_1453;
}
else
{ /* Globalize/integration.scm 56 */
BgL_localzf2ginfozf2_bglt BgL_obj3523z00_1455;
BgL_obj3523z00_1455 =
(BgL_localzf2ginfozf2_bglt) (BgL_fz00_968);
{
obj_t BgL_auxz00_1594;
{ /* Globalize/integration.scm 56 */
BgL_objectz00_bglt BgL_auxz00_1595;
BgL_auxz00_1595 =
(BgL_objectz00_bglt) (BgL_obj3523z00_1455);
BgL_auxz00_1594 =
BGL_OBJECT_WIDENING(BgL_auxz00_1595);
}
BgL_testz00_1590 =
(((BgL_localzf2ginfozf2_bglt)
CREF(BgL_auxz00_1594))->BgL_globaliza7edzf3z54);
}
}
}
if (BgL_testz00_1590)
{ /* Globalize/integration.scm 56 */
{ /* Globalize/integration.scm 58 */
BgL_valuez00_bglt BgL_arg3713z00_1457;
{
BgL_variablez00_bglt BgL_auxz00_1599;
BgL_auxz00_1599 =
(BgL_variablez00_bglt) (BgL_fz00_968);
BgL_arg3713z00_1457 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1599))->
BgL_valuez00);
}
{ /* Globalize/integration.scm 58 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3344z00_1459;
obj_t BgL_val3343z00_1460;
BgL_obj3344z00_1459 =
(BgL_sfunzf2ginfozf2_bglt) (BgL_arg3713z00_1457);
BgL_val3343z00_1460 = BFALSE;
{
obj_t BgL_auxz00_1603;
{ /* Globalize/integration.scm 58 */
BgL_objectz00_bglt BgL_auxz00_1604;
BgL_auxz00_1604 =
(BgL_objectz00_bglt) (BgL_obj3344z00_1459);
BgL_auxz00_1603 =
BGL_OBJECT_WIDENING(BgL_auxz00_1604);
}
((((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1603))->BgL_integratorz00) =
((obj_t) BgL_val3343z00_1460), BUNSPEC);
}
}
}
}
else
{ /* Globalize/integration.scm 59 */
bool_t BgL_testz00_1608;
{ /* Globalize/integration.scm 59 */
obj_t BgL_arg3694z00_976;
{ /* Globalize/integration.scm 59 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3342z00_1461;
BgL_obj3342z00_1461 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3642z00_969);
{
obj_t BgL_auxz00_1610;
{ /* Globalize/integration.scm 59 */
BgL_objectz00_bglt BgL_auxz00_1611;
BgL_auxz00_1611 =
(BgL_objectz00_bglt) (BgL_obj3342z00_1461);
BgL_auxz00_1610 =
BGL_OBJECT_WIDENING(BgL_auxz00_1611);
}
BgL_arg3694z00_976 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1610))->BgL_integratorz00);
}
}
BgL_testz00_1608 =
BGl_iszd2azf3z21zz__objectz00(BgL_arg3694z00_976,
BGl_variablez00zzast_varz00);
}
if (BgL_testz00_1608)
{ /* Globalize/integration.scm 59 */
{ /* Globalize/integration.scm 63 */
obj_t BgL_arg3690z00_972;
{ /* Globalize/integration.scm 63 */
BgL_sfunzf2ginfozf2_bglt BgL_obj3342z00_1463;
BgL_obj3342z00_1463 =
(BgL_sfunzf2ginfozf2_bglt)
(BgL_instance3642z00_969);
{
obj_t BgL_auxz00_1617;
{ /* Globalize/integration.scm 63 */
BgL_objectz00_bglt BgL_auxz00_1618;
BgL_auxz00_1618 =
(BgL_objectz00_bglt)
(BgL_obj3342z00_1463);
BgL_auxz00_1617 =
BGL_OBJECT_WIDENING(BgL_auxz00_1618);
}
BgL_arg3690z00_972 =
(((BgL_sfunzf2ginfozf2_bglt)
CREF(BgL_auxz00_1617))->
BgL_integratorz00);
}
}
BGl_integratezd2inz12zc0zzglobaliza7e_integrationza7
(BgL_fz00_968, BgL_arg3690z00_972);
}
}
else
{ /* Globalize/integration.scm 59 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3767z00zzglobaliza7e_integrationza7,
BGl_string3768z00zzglobaliza7e_integrationza7,
BGl_shapez00zztools_shapez00(BgL_fz00_968));
}
}
}
}
}
{
obj_t BgL_l3661z00_1625;
BgL_l3661z00_1625 = CDR(BgL_l3661z00_965);
BgL_l3661z00_965 = BgL_l3661z00_1625;
goto BgL_zc3anonymousza33686ze3z83_966;
}
}
else
{ /* Globalize/integration.scm 52 */
BgL_auxz00_1583 = ((bool_t) 1);
}
return BBOOL(BgL_auxz00_1583);
}
}
}
}
/* resolve-abase/bucket */
obj_t BGl_resolvezd2abasezf2bucketz20zz__modulez00(obj_t BgL_modz00_8, obj_t BgL_basez00_9)
{ AN_OBJECT;
{ /* Llib/module.scm 148 */
{ /* Llib/module.scm 149 */
obj_t BgL_cellz00_820;
{ /* Llib/module.scm 149 */
obj_t BgL_auxz00_1914;
{ /* Llib/module.scm 149 */
obj_t BgL_pairz00_1393;
if(
PAIRP(BgL_basez00_9))
{ /* Llib/module.scm 149 */
BgL_pairz00_1393 = BgL_basez00_9; } else
{
obj_t BgL_auxz00_1917;
BgL_auxz00_1917 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5722)), BGl_string2344z00zz__modulez00, BGl_string2343z00zz__modulez00, BgL_basez00_9);
FAILURE(BgL_auxz00_1917,BFALSE,BFALSE);}
{ /* Llib/module.scm 149 */
obj_t BgL_aux2281z00_1693;
BgL_aux2281z00_1693 =
CDR(BgL_pairz00_1393);
{ /* Llib/module.scm 149 */
bool_t BgL_testz00_1922;
if(
PAIRP(BgL_aux2281z00_1693))
{ /* Llib/module.scm 149 */
BgL_testz00_1922 = ((bool_t)1)
; } else
{ /* Llib/module.scm 149 */
BgL_testz00_1922 =
NULLP(BgL_aux2281z00_1693)
; }
if(BgL_testz00_1922)
{ /* Llib/module.scm 149 */
BgL_auxz00_1914 = BgL_aux2281z00_1693
; } else
{
obj_t BgL_auxz00_1926;
BgL_auxz00_1926 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5717)), BGl_string2344z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_aux2281z00_1693);
FAILURE(BgL_auxz00_1926,BFALSE,BFALSE);} } } }
BgL_cellz00_820 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_modz00_8, BgL_auxz00_1914); }
if(
PAIRP(BgL_cellz00_820))
{ /* Llib/module.scm 151 */
obj_t BgL_arg1903z00_822;
BgL_arg1903z00_822 =
CDR(BgL_cellz00_820);
{ /* Llib/module.scm 151 */
obj_t BgL_auxz00_1934;
{ /* Llib/module.scm 151 */
bool_t BgL_testz00_1935;
if(
PAIRP(BgL_arg1903z00_822))
{ /* Llib/module.scm 151 */
BgL_testz00_1935 = ((bool_t)1)
; } else
{ /* Llib/module.scm 151 */
BgL_testz00_1935 =
NULLP(BgL_arg1903z00_822)
; }
if(BgL_testz00_1935)
{ /* Llib/module.scm 151 */
BgL_auxz00_1934 = BgL_arg1903z00_822
; } else
{
obj_t BgL_auxz00_1939;
BgL_auxz00_1939 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5782)), BGl_string2344z00zz__modulez00, BGl_string2341z00zz__modulez00, BgL_arg1903z00_822);
FAILURE(BgL_auxz00_1939,BFALSE,BFALSE);} }
return
BGl_filterz00zz__r4_control_features_6_9z00(BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_auxz00_1934);} } else
{ /* Llib/module.scm 152 */
obj_t BgL_fz00_823;
{ /* Llib/module.scm 152 */
obj_t BgL_arg1906z00_826;
{ /* Llib/module.scm 152 */
obj_t BgL_res2246z00_1398;
{ /* Llib/module.scm 152 */
obj_t BgL_symbolz00_1396;
if(
SYMBOLP(BgL_modz00_8))
{ /* Llib/module.scm 152 */
BgL_symbolz00_1396 = BgL_modz00_8; } else
{
obj_t BgL_auxz00_1946;
BgL_auxz00_1946 =
BGl_typezd2errorzd2zz__errorz00(BGl_string2330z00zz__modulez00,
BINT(((long)5828)), BGl_string2344z00zz__modulez00, BGl_string2338z00zz__modulez00, BgL_modz00_8);
FAILURE(BgL_auxz00_1946,BFALSE,BFALSE);}
{ /* Llib/module.scm 152 */
obj_t BgL_arg2068z00_1397;
BgL_arg2068z00_1397 =
SYMBOL_TO_STRING(BgL_symbolz00_1396);
BgL_res2246z00_1398 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2068z00_1397); } }
BgL_arg1906z00_826 = BgL_res2246z00_1398; }
BgL_fz00_823 =
string_append(BgL_arg1906z00_826, BGl_string2345z00zz__modulez00); }
if(
fexists(
BSTRING_TO_STRING(BgL_fz00_823)))
{ /* Llib/module.scm 154 */
obj_t BgL_list1905z00_825;
BgL_list1905z00_825 =
MAKE_PAIR(BgL_fz00_823, BNIL);
return BgL_list1905z00_825;} else
{ /* Llib/module.scm 153 */
return BNIL;} } } }
}
