/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_integrationza7()
{
AN_OBJECT;
{ /* Globalize/integration.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long) 12445515),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zztools_shapez00(((long) 399603825),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zzast_nodez00(((long) 498112980),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long) 0),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zzglobaliza7e_globaliza7ez00(((long)
426556099),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
BGl_modulezd2initializa7ationz75zzglobaliza7e_kaptureza7(((long)
482601228),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
return BGl_modulezd2initializa7ationz75zztools_errorz00(((long)
139755433),
BSTRING_TO_STRING(BGl_string3769z00zzglobaliza7e_integrationza7));
}
}
void bgl_odbc_free_statement(SQLHANDLE stmt,
obj_t option)
{
SQLRETURN v;
SQLSMALLINT opt;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(option)), "close"))
{
opt = SQL_CLOSE;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(option)), "unbind"))
{
opt = SQL_UNBIND;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(option)), "reset-params"))
{
opt = SQL_RESET_PARAMS;
}
else
{
odbc_error("bgl_odbc_free_statement", "invalid option", option);
}
v = SQLFreeStmt(stmt,opt);
if(!SQL_SUCCEEDED(v))
{
report_odbc_error("bgl_odbc_free_statement",
SQL_HANDLE_STMT,
stmt);
}
}
/*---------------------------------------------------------------------*/
obj_t
bgl_write_socket( obj_t o, obj_t op ) {
if( BGL_SOCKET_UNIXP( o ) ) {
PRINTF1( op,
40 + (STRINGP( SOCKET( o ).hostname ) ?
STRING_LENGTH( SOCKET( o ).hostname ) :
sizeof( "localhost" )),
"#<unix-socket:%s>",
STRINGP( SOCKET( o ).hostname ) ?
BSTRING_TO_STRING( SOCKET( o ).hostname ) :
"localhost" );
} else {
PRINTF2( op,
40 + (STRINGP( SOCKET( o ).hostname ) ?
STRING_LENGTH( SOCKET( o ).hostname ) :
sizeof( "localhost" )),
"#<socket:%s.%d>",
STRINGP( SOCKET( o ).hostname ) ?
BSTRING_TO_STRING( SOCKET( o ).hostname ) :
"localhost",
SOCKET( o ).portnum );
}
return op;
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzbdb_walkz00()
{
AN_OBJECT;
{ /* Bdb/walk.scm 15 */
BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zzengine_passz00(((long) 216344604),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zztools_shapez00(((long) 399603825),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zzast_nodez00(((long) 498112980),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
BGl_modulezd2initializa7ationz75zzast_removez00(((long) 52292466),
BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
return
BGl_modulezd2initializa7ationz75zzbdb_initializa7eza7(((long)
427318491), BSTRING_TO_STRING(BGl_string3340z00zzbdb_walkz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzmodule_loadz00()
{
AN_OBJECT;
{ /* Module/load.scm 15 */
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long) 358171001),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zzast_envz00(((long) 531182497),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zztype_envz00(((long) 171845042),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
return
BGl_modulezd2initializa7ationz75zzread_loadz00(((long) 255602387),
BSTRING_TO_STRING(BGl_string2263z00zzmodule_loadz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zztools_errorz00()
{
AN_OBJECT;
{ /* Tools/error.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zzast_nodez00(((long) 498112980),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zzengine_passz00(((long) 216344604),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zztools_locationz00(((long) 345457731),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zztools_tracez00(((long) 12445515),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
BGl_modulezd2initializa7ationz75zztools_shapez00(((long) 399603825),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
return
BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835),
BSTRING_TO_STRING(BGl_string3383z00zztools_errorz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zztype_cachez00()
{
AN_OBJECT;
{ /* Type/cache.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072),
BSTRING_TO_STRING(BGl_string1603z00zztype_cachez00));
return
BGl_modulezd2initializa7ationz75zztype_envz00(((long) 171845042),
BSTRING_TO_STRING(BGl_string1603z00zztype_cachez00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzinit_setrcz00()
{
AN_OBJECT;
{ /* Init/setrc.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1528z00zzinit_setrcz00));
return
BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081),
BSTRING_TO_STRING(BGl_string1528z00zzinit_setrcz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzwrite_versionz00()
{
AN_OBJECT;
{ /* Write/version.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1593z00zzwrite_versionz00));
return
BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081),
BSTRING_TO_STRING(BGl_string1593z00zzwrite_versionz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzinit_libzd2dirzd2()
{
AN_OBJECT;
{ /* Init/lib_dir.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1537z00zzinit_libzd2dirzd2));
return
BGl_modulezd2initializa7ationz75zzmodule_evalz00(((long) 168261208),
BSTRING_TO_STRING(BGl_string1537z00zzinit_libzd2dirzd2));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzengine_signalsz00()
{
AN_OBJECT;
{ /* Engine/signals.scm 16 */
BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835),
BSTRING_TO_STRING(BGl_string1514z00zzengine_signalsz00));
return
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1514z00zzengine_signalsz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__lalr_driverz00()
{
AN_OBJECT;
{ /* Lalr/driver.scm 11 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500),
BSTRING_TO_STRING(BGl_string2224z00zz__lalr_driverz00));
return
BGl_modulezd2initializa7ationz75zz__paramz00(((long) 327583589),
BSTRING_TO_STRING(BGl_string2224z00zz__lalr_driverz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzmodule_includez00()
{
AN_OBJECT;
{ /* Module/include.scm 15 */
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long) 358171001),
BSTRING_TO_STRING(BGl_string1581z00zzmodule_includez00));
BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433),
BSTRING_TO_STRING(BGl_string1581z00zzmodule_includez00));
return
BGl_modulezd2initializa7ationz75zzread_includez00(((long) 273692333),
BSTRING_TO_STRING(BGl_string1581z00zzmodule_includez00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcc_execz00()
{
AN_OBJECT;
{ /* Cc/exec.scm 20 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long) 12445515),
BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00));
BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433),
BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00));
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00));
return
BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835),
BSTRING_TO_STRING(BGl_string1533z00zzcc_execz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzinit_extendz00()
{
AN_OBJECT;
{ /* Init/extend.scm 16 */
BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081),
BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00));
BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433),
BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00));
BGl_modulezd2initializa7ationz75zzengine_passz00(((long) 216344604),
BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00));
return
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1551z00zzinit_extendz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_assertz00()
{
AN_OBJECT;
{ /* Expand/assert.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00));
BGl_modulezd2initializa7ationz75zzbackend_backendz00(((long) 466514915),
BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00));
BGl_modulezd2initializa7ationz75zztools_miscz00(((long) 315910987),
BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00));
return
BGl_modulezd2initializa7ationz75zztools_locationz00(((long) 345457731),
BSTRING_TO_STRING(BGl_string1721z00zzexpand_assertz00));
}
}
void bgl_odbc_sql_end_tran(obj_t handletype,
SQLHANDLE handle,
obj_t completiontype)
{
SQLRETURN v;
SQLSMALLINT ht;
SQLSMALLINT ct;
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(handletype)), "environment"))
{
ht = SQL_HANDLE_ENV;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(handletype)), "connection"))
{
ht = SQL_HANDLE_DBC;
}
else
{
odbc_error("bgl_odbc_sql_end_tran",
"Invalid handle type",
handletype);
}
if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(completiontype)), "commit"))
{
ct = SQL_COMMIT;
}
else if(0 == strcmp(BSTRING_TO_STRING(SYMBOL_TO_STRING(handletype)), "rollback"))
{
ct = SQL_ROLLBACK;
}
else
{
odbc_error("bgl_odbc_sql_end_tran",
"Invalid completion type",
completiontype);
}
v = SQLEndTran(ht,
handle,
ct);
if(!SQL_SUCCEEDED(v))
{
report_odbc_error("bgl_odbc_sql_end_tran",
ht,
handle);
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__foreignz00()
{ AN_OBJECT;
{ /* Llib/foreign.scm 18 */
return
BGl_modulezd2initializa7ationz75zz__errorz00(((long)454672500),
BSTRING_TO_STRING(BGl_string1403z00zz__foreignz00));}
}
/*---------------------------------------------------------------------*/
static obj_t
make_symbol( obj_t name ) {
obj_t symbol;
set_alloc_type( SYMBOL_TYPE_NUM, 0 );
symbol = GC_MALLOC( ESYMBOL_SIZE );
#if BMEMDEBUG
if( bmem_debug > 1 ) {
fprintf( stderr, "make_symbol: %s %p\n", BSTRING_TO_STRING( name ), symbol );
}
#endif
#if( !defined( TAG_SYMBOL ) )
symbol->symbol_t.header = MAKE_HEADER( SYMBOL_TYPE, SYMBOL_SIZE );
#endif
symbol->symbol_t.string = name;
symbol->symbol_t.cval = BNIL;
((esymbol_t *)(symbol))->alloc_info = 0;
((esymbol_t *)(symbol))->class_alloc = -1;
((esymbol_t *)(symbol))->class_offset = 0;
((esymbol_t *)(symbol))->stamp = -3;
return BSYMBOL( symbol );
}
/* _string-ptr-null? */
obj_t BGl__stringzd2ptrzd2nullzf3zf3zz__foreignz00(obj_t BgL_envz00_665, obj_t BgL_objz00_666)
{ AN_OBJECT;
{ /* Llib/foreign.scm 109 */
{ /* Llib/foreign.scm 110 */
bool_t BgL_auxz00_742;
{ /* Llib/foreign.scm 110 */
char * BgL_objz00_685;
{ /* Llib/foreign.scm 110 */
obj_t BgL_auxz00_743;
if(
STRINGP(BgL_objz00_666))
{ /* Llib/foreign.scm 110 */
BgL_auxz00_743 = BgL_objz00_666
; } else
{
obj_t BgL_auxz00_746;
BgL_auxz00_746 =
BGl_typezd2errorzd2zz__errorz00(BGl_string1394z00zz__foreignz00,
BINT(((long)4782)), BGl_string1399z00zz__foreignz00, BGl_string1400z00zz__foreignz00, BgL_objz00_666);
FAILURE(BgL_auxz00_746,BFALSE,BFALSE);}
BgL_objz00_685 =
BSTRING_TO_STRING(BgL_auxz00_743); }
BgL_auxz00_742 =
STRING_PTR_NULL(BgL_objz00_685); }
return
BBOOL(BgL_auxz00_742);} }
}
/*---------------------------------------------------------------------*/
obj_t
bgl_write_output_port( obj_t o, obj_t op ) {
PRINTF1( op, 20 + STRING_LENGTH( PORT( o ).name ),
"#<output_port:%s>",
BSTRING_TO_STRING( PORT( o ).name ) );
return op;
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_localz00()
{
AN_OBJECT;
{ /* Ast/local.scm 14 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long) 445289072),
BSTRING_TO_STRING(BGl_string2254z00zzast_localz00));
BGl_modulezd2initializa7ationz75zztype_cachez00(((long) 328872856),
BSTRING_TO_STRING(BGl_string2254z00zzast_localz00));
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string2254z00zzast_localz00));
BGl_modulezd2initializa7ationz75zzast_varz00(((long) 43233168),
BSTRING_TO_STRING(BGl_string2254z00zzast_localz00));
return
BGl_modulezd2initializa7ationz75zzast_identz00(((long) 498714928),
BSTRING_TO_STRING(BGl_string2254z00zzast_localz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzread_accessz00()
{
AN_OBJECT;
{ /* Read/access.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00));
BGl_modulezd2initializa7ationz75zzengine_enginez00(((long) 528201616),
BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00));
BGl_modulezd2initializa7ationz75zztools_errorz00(((long) 139755433),
BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00));
BGl_modulezd2initializa7ationz75zzinit_mainz00(((long) 230845835),
BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00));
return
BGl_modulezd2initializa7ationz75zztools_speekz00(((long) 182148081),
BSTRING_TO_STRING(BGl_string1528z00zzread_accessz00));
}
}
/*---------------------------------------------------------------------*/
obj_t
bgl_write_binary_port( obj_t o, obj_t op ) {
PRINTF2( op, 40 + STRING_LENGTH( BINARY_PORT( o ).name ),
"#<binary_%s_port:%s>",
BINARY_PORT_INP( o ) ? "input" : "output",
BSTRING_TO_STRING( BINARY_PORT( o ).name ) );
return op;
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zztools_argsz00()
{
AN_OBJECT;
{ /* Tools/args.scm 15 */
return
BGl_modulezd2initializa7ationz75zztools_dssslz00(((long) 315398661),
BSTRING_TO_STRING(BGl_string1582z00zztools_argsz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__rgc_configz00()
{
AN_OBJECT;
{ /* Rgc/rgcconfig.scm 14 */
return
BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500),
BSTRING_TO_STRING(BGl_string2251z00zz__rgc_configz00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00()
{
AN_OBJECT;
{ /* Ieee/control5.scm 14 */
return
BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500),
BSTRING_TO_STRING(BGl_string1527z00zz__r5_control_features_6_4z00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzwrite_schemez00()
{
AN_OBJECT;
{ /* Write/scheme.scm 15 */
return
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long) 397025513),
BSTRING_TO_STRING(BGl_string1528z00zzwrite_schemez00));
}
}
/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__processz00()
{
AN_OBJECT;
{ /* Llib/process.scm 15 */
return
BGl_modulezd2initializa7ationz75zz__errorz00(((long) 454672500),
BSTRING_TO_STRING(BGl_string2241z00zz__processz00));
}
}
/* process-lib-dir-parameter */
BGL_EXPORTED_DEF obj_t
BGl_processzd2libzd2dirzd2parameterzd2zzinit_libzd2dirzd2(obj_t
BgL_paramz00_9)
{
AN_OBJECT;
{ /* Init/lib_dir.scm 76 */
{ /* Init/lib_dir.scm 77 */
obj_t BgL_dirz00_134;
BgL_dirz00_134 =
BGl_filezd2namezd2canonicaliza7ez12zb5zz__osz00(BgL_paramz00_9);
if (directoryp(BSTRING_TO_STRING(BgL_dirz00_134)))
{ /* Init/lib_dir.scm 78 */
BFALSE;
}
else
{ /* Init/lib_dir.scm 78 */
BGl_errorz00zz__errorz00(CNST_TABLE_REF(((long) 2)),
BGl_string1535z00zzinit_libzd2dirzd2, BgL_dirz00_134);
}
{ /* Init/lib_dir.scm 80 */
obj_t BgL_config_schz00_136;
BgL_config_schz00_136 =
BGl_makezd2filezd2pathz00zz__osz00(BgL_dirz00_134,
BGl_string1536z00zzinit_libzd2dirzd2, BNIL);
if (fexists(BSTRING_TO_STRING(BgL_config_schz00_136)))
{ /* Init/lib_dir.scm 81 */
BGl_readzd2config_schzd2zzinit_libzd2dirzd2
(BgL_config_schz00_136);
}
else
{ /* Init/lib_dir.scm 81 */
BFALSE;
}
return (BGl_za2libzd2dirza2zd2zzengine_paramz00 =
MAKE_PAIR(BgL_dirz00_134, BGl_za2libzd2dirza2zd2zzengine_paramz00),
BUNSPEC);
}
}
}
}
