/*===========================================================================*/
/*   (Engine/link.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Engine/link.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;


static obj_t BGl_makezd2tmpzd2mainz00zzengine_linkz00(obj_t, obj_t, obj_t);
extern obj_t BGl_loadzd2libraryzd2initz00zzinit_setrcz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzengine_linkz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcc_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzread_readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_compilerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbdb_settingz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinit_setrcz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_alibraryz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzread_jvmz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_addzd2qualifiedzd2typez12z12zzread_jvmz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzengine_linkz00();
BGL_IMPORT obj_t close_output_port(obj_t);
BGL_IMPORT obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t, obj_t);
static obj_t BGl_linkzd2withzd2zzengine_linkz00(obj_t);
extern obj_t BGl_za2srczd2suffixza2zd2zzengine_paramz00;
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__findzd2srczd2filez00zzengine_linkz00(obj_t, obj_t, obj_t);
extern obj_t BGl_ldz00zzcc_ldz00(obj_t, bool_t);
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
static obj_t BGl_findzd2librarieszd2zzengine_linkz00(obj_t);
extern obj_t BGl_za2mcozd2suffixza2zd2zzengine_paramz00;
extern obj_t BGl_usezd2libraryz12zc0zzmodule_alibraryz00(obj_t, obj_t);
BGL_IMPORT obj_t string_to_symbol(char *);
BGL_IMPORT obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
BGL_IMPORT obj_t bgl_reverse(obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2srczd2filez00zzengine_linkz00(obj_t, obj_t);
extern obj_t BGl_readzd2jfilezd2zzread_jvmz00();
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_makezd2libraryzd2namez00zzmodule_alibraryz00(obj_t);
extern obj_t BGl_za2ozd2filesza2zd2zzengine_paramz00;
BGL_IMPORT obj_t string_append(obj_t, obj_t);
extern obj_t BGl_jvmzd2classzd2sanszd2directoryzd2zzread_jvmz00(obj_t);
static obj_t BGl_za2linkzd2moduleza2zd2zzengine_linkz00 = BUNSPEC;
static obj_t BGl__unprofzd2srczd2namez00zzengine_linkz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_compilerz00zzengine_compilerz00();
extern obj_t BGl_bdbzd2settingz12zc0zzbdb_settingz00();
BGL_IMPORT obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_zc3exitza31375ze3z83zzengine_linkz00();
BGL_IMPORT obj_t display_string(obj_t, obj_t);
extern obj_t BGl_za2bigloozd2nameza2zd2zzengine_paramz00;
extern obj_t BGl_jvmzd2ldzd2zzjvm_ldz00();
BGL_EXPORTED_DECL obj_t BGl_linkz00zzengine_linkz00();
static obj_t BGl_za2linkzd2packageza2zd2zzengine_linkz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_IMPORT obj_t BGl_filezd2separatorzd2zz__osz00();
BGL_IMPORT obj_t BGl_getenvz00zz__osz00(char *);
BGL_IMPORT obj_t open_output_file(obj_t);
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzengine_linkz00();
static obj_t BGl_setupzd2tmpzd2mainzd2filezd2namez12z12zzengine_linkz00();
BGL_IMPORT obj_t BGl_basenamez00zz__osz00(obj_t);
static obj_t BGl_findzd2filezd2forzd2linkzd2zzengine_linkz00(obj_t);
BGL_IMPORT bool_t fexists(char *);
BGL_IMPORT obj_t close_input_port(obj_t);
BGL_IMPORT obj_t c_substring(obj_t, int, int);
extern obj_t BGl_za2restzd2argsza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_suffixz00zz__osz00(obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_stringzd2replacezd2zztools_miscz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzengine_linkz00();
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
static obj_t BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zzengine_linkz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_za2loadzd2pathza2zd2zz__evalz00;
BGL_EXPORTED_DEF obj_t BGl_za2linkzd2mainzd2moduleza2z00zzengine_linkz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_prefixz00zz__osz00(obj_t);
BGL_IMPORT obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
extern obj_t BGl_compilerzd2readzd2zzread_readerz00(obj_t);
BGL_IMPORT obj_t BGl_za2warningza2z00zz__errorz00;
extern obj_t BGl_za2bigloozd2tmpza2zd2zzengine_paramz00;
extern obj_t BGl_za2profilezd2modeza2zd2zzengine_paramz00;
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzengine_linkz00();
static obj_t BGl__linkz00zzengine_linkz00(obj_t);
extern obj_t BGl_za2czd2objectzd2filezd2extensionza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzengine_linkz00();
extern obj_t BGl_dotnetzd2ldzd2zzdotnet_ldz00();
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_unprofzd2srczd2namez00zzengine_linkz00(obj_t);
static obj_t __cnst[ 11 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_linkzd2envzd2zzengine_linkz00, BgL_bgl__linkza700za7za7engine_linkza7001920z00, BGl__linkz00zzengine_linkz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_unprofzd2srczd2namezd2envzd2zzengine_linkz00, BgL_bgl__unprofza7d2srcza7d2nameza700za7za7engine_linkza7001921z00, BGl__unprofzd2srczd2namez00zzengine_linkz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2srczd2filezd2envzd2zzengine_linkz00, BgL_bgl__findza7d2srcza7d2fileza700za7za7engine_linkza7001922z00, BGl__findzd2srczd2filez00zzengine_linkz00, 0L, 2 );
DEFINE_STRING( BGl_string1885z00zzengine_linkz00, BgL_bgl_string1885za700za7za7engine_linkza7001923z00, "(define (main argv) #unspecified) ((main main)) import library main (jvm .net) now c .net jvm module ", 101 );
DEFINE_STRING( BGl_string1884z00zzengine_linkz00, BgL_bgl_string1884za700za7za7engine_linkza7001924z00, "Can't open output file", 22 );
DEFINE_STRING( BGl_string1883z00zzengine_linkz00, BgL_bgl_string1883za700za7za7engine_linkza7001925z00, "(main *the-command-line*)", 25 );
DEFINE_STRING( BGl_string1882z00zzengine_linkz00, BgL_bgl_string1882za700za7za7engine_linkza7001926z00, ";; ==================================", 37 );
DEFINE_STRING( BGl_string1881z00zzengine_linkz00, BgL_bgl_string1881za700za7za7engine_linkza7001927z00, ";; !!! generated file, don't edit !!!", 37 );
DEFINE_STRING( BGl_string1880z00zzengine_linkz00, BgL_bgl_string1880za700za7za7engine_linkza7001928z00, ";; ", 3 );
DEFINE_STRING( BGl_string1879z00zzengine_linkz00, BgL_bgl_string1879za700za7za7engine_linkza7001929z00, "Illegal file", 12 );
DEFINE_STRING( BGl_string1878z00zzengine_linkz00, BgL_bgl_string1878za700za7za7engine_linkza7001930z00, "Redeclaration of the main (files ", 33 );
DEFINE_STRING( BGl_string1877z00zzengine_linkz00, BgL_bgl_string1877za700za7za7engine_linkza7001931z00, " and ", 5 );
DEFINE_STRING( BGl_string1876z00zzengine_linkz00, BgL_bgl_string1876za700za7za7engine_linkza7001932z00, ")", 1 );
DEFINE_STRING( BGl_string1875z00zzengine_linkz00, BgL_bgl_string1875za700za7za7engine_linkza7001933z00, "\"", 1 );
DEFINE_STRING( BGl_string1874z00zzengine_linkz00, BgL_bgl_string1874za700za7za7engine_linkza7001934z00, ".obj", 4 );
DEFINE_STRING( BGl_string1873z00zzengine_linkz00, BgL_bgl_string1873za700za7za7engine_linkza7001935z00, ".class", 6 );
DEFINE_STRING( BGl_string1872z00zzengine_linkz00, BgL_bgl_string1872za700za7za7engine_linkza7001936z00, ".c", 2 );
DEFINE_STRING( BGl_string1871z00zzengine_linkz00, BgL_bgl_string1871za700za7za7engine_linkza7001937z00, "No source file found", 20 );
DEFINE_STRING( BGl_string1870z00zzengine_linkz00, BgL_bgl_string1870za700za7za7engine_linkza7001938z00, " -- ", 4 );
DEFINE_STRING( BGl_string1869z00zzengine_linkz00, BgL_bgl_string1869za700za7za7engine_linkza7001939z00, "Unimplemented target language", 29 );
DEFINE_STRING( BGl_string1868z00zzengine_linkz00, BgL_bgl_string1868za700za7za7engine_linkza7001940z00, "linker", 6 );
DEFINE_STRING( BGl_string1867z00zzengine_linkz00, BgL_bgl_string1867za700za7za7engine_linkza7001941z00, "Several source files found for object `", 39 );
DEFINE_STRING( BGl_string1866z00zzengine_linkz00, BgL_bgl_string1866za700za7za7engine_linkza7001942z00, "'. Using file -- ", 17 );
DEFINE_STRING( BGl_string1865z00zzengine_linkz00, BgL_bgl_string1865za700za7za7engine_linkza7001943z00, "No Bigloo module found for -- ", 30 );
DEFINE_STRING( BGl_string1864z00zzengine_linkz00, BgL_bgl_string1864za700za7za7engine_linkza7001944z00, "JVMMAIN", 7 );
DEFINE_STRING( BGl_string1863z00zzengine_linkz00, BgL_bgl_string1863za700za7za7engine_linkza7001945z00, "Can't write tmp file (because it already exists)", 48 );
DEFINE_STRING( BGl_string1862z00zzengine_linkz00, BgL_bgl_string1862za700za7za7engine_linkza7001946z00, "link", 4 );
DEFINE_STRING( BGl_string1861z00zzengine_linkz00, BgL_bgl_string1861za700za7za7engine_linkza7001947z00, ".bgl", 4 );
DEFINE_STRING( BGl_string1860z00zzengine_linkz00, BgL_bgl_string1860za700za7za7engine_linkza7001948z00, "dotnetmain", 10 );
DEFINE_STRING( BGl_string1859z00zzengine_linkz00, BgL_bgl_string1859za700za7za7engine_linkza7001949z00, "main-tmp", 8 );
DEFINE_STRING( BGl_string1858z00zzengine_linkz00, BgL_bgl_string1858za700za7za7engine_linkza7001950z00, "@", 1 );
DEFINE_STRING( BGl_string1857z00zzengine_linkz00, BgL_bgl_string1857za700za7za7engine_linkza7001951z00, ".", 1 );
DEFINE_STRING( BGl_string1856z00zzengine_linkz00, BgL_bgl_string1856za700za7za7engine_linkza7001952z00, "", 0 );
DEFINE_STRING( BGl_string1855z00zzengine_linkz00, BgL_bgl_string1855za700za7za7engine_linkza7001953z00, "<unknown-yet>", 13 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzengine_linkz00(long BgL_checksumz00_547, char * BgL_fromz00_548)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzengine_linkz00))
{ 
BGl_requirezd2initializa7ationz75zzengine_linkz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzengine_linkz00(); 
BGl_cnstzd2initzd2zzengine_linkz00(); 
BGl_importedzd2moduleszd2initz00zzengine_linkz00(); 
BGl_toplevelzd2initzd2zzengine_linkz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 20 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__evalz00(((long)0), "engine_link"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "engine_link"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 20 */
{ /* ./Engine/link.scm 20 */
obj_t BgL_cportz00_540;
BgL_cportz00_540 = 
open_input_string(BGl_string1885z00zzengine_linkz00); 
{ 
long BgL_iz00_541;
BgL_iz00_541 = ((long)10); 
BgL_loopz00_542:
{ /* ./Engine/link.scm 20 */
bool_t BgL_test1887z00_543;
BgL_test1887z00_543 = 
(BgL_iz00_541==((long)-1)); 
if(BgL_test1887z00_543)
{ /* ./Engine/link.scm 20 */
return BUNSPEC;}  else 
{ /* ./Engine/link.scm 20 */
{ /* ./Engine/link.scm 20 */
obj_t BgL_arg1889z00_544;
{ /* ./Engine/link.scm 20 */
obj_t BgL_list1892z00_545;
BgL_list1892z00_545 = 
MAKE_PAIR(BgL_cportz00_540, BNIL); 
BgL_arg1889z00_544 = 
BGl_readz00zz__readerz00(BgL_list1892z00_545); } 
{ /* ./Engine/link.scm 20 */
int BgL_auxz00_572;
BgL_auxz00_572 = 
(int)(BgL_iz00_541); 
CNST_TABLE_SET(BgL_auxz00_572, BgL_arg1889z00_544); } } 
{ /* ./Engine/link.scm 20 */
int BgL_auxz00_546;
{ /* ./Engine/link.scm 20 */
long BgL_auxz00_575;
BgL_auxz00_575 = 
(BgL_iz00_541-((long)1)); 
BgL_auxz00_546 = 
(int)(BgL_auxz00_575); } 
{ 
long BgL_iz00_578;
BgL_iz00_578 = 
(long)(BgL_auxz00_546); 
BgL_iz00_541 = BgL_iz00_578; 
goto BgL_loopz00_542;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 20 */
BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00 = BGl_string1855z00zzengine_linkz00; 
BGl_za2linkzd2moduleza2zd2zzengine_linkz00 = BUNSPEC; 
BGl_za2linkzd2packageza2zd2zzengine_linkz00 = BUNSPEC; 
return ( 
BGl_za2linkzd2mainzd2moduleza2z00zzengine_linkz00 = BUNSPEC, BUNSPEC) ;} 
}



/* setup-tmp-main-file-name! */
obj_t BGl_setupzd2tmpzd2mainzd2filezd2namez12z12zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 50 */
{ 

{ /* ./Engine/link.scm 82 */
obj_t BgL_casezd2valuezd2_23;
BgL_casezd2valuezd2_23 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
{ /* ./Engine/link.scm 82 */
bool_t BgL_test1037z00_24;
BgL_test1037z00_24 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_23, 
CNST_TABLE_REF(((long)1))); 
if(BgL_test1037z00_24)
{ /* ./Engine/link.scm 82 */
BGl_za2linkzd2packageza2zd2zzengine_linkz00 = BGl_string1864z00zzengine_linkz00; 
{ /* ./Engine/link.scm 54 */
obj_t BgL_stringz00_345;
BgL_stringz00_345 = BGl_za2linkzd2packageza2zd2zzengine_linkz00; 
{ /* ./Engine/link.scm 54 */
char * BgL_auxz00_583;
BgL_auxz00_583 = 
BSTRING_TO_STRING(BgL_stringz00_345); 
BGl_za2linkzd2moduleza2zd2zzengine_linkz00 = 
string_to_symbol(BgL_auxz00_583); } } 
BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00 = 
string_append(BGl_string1864z00zzengine_linkz00, BGl_string1861z00zzengine_linkz00); 
{ /* ./Engine/link.scm 56 */
bool_t BgL_test1085z00_45;
{ /* ./Engine/link.scm 56 */
char * BgL_namez00_346;
BgL_namez00_346 = 
BSTRING_TO_STRING(BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00); 
BgL_test1085z00_45 = 
fexists(BgL_namez00_346); } 
if(BgL_test1085z00_45)
{ /* ./Engine/link.scm 57 */
obj_t BgL_objectz00_349;
BgL_objectz00_349 = BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00; 
FAILURE(BGl_string1862z00zzengine_linkz00,BGl_string1863z00zzengine_linkz00,BgL_objectz00_349);}  else 
{ /* ./Engine/link.scm 56 */
return BFALSE;} } }  else 
{ /* ./Engine/link.scm 82 */
bool_t BgL_test1039z00_25;
BgL_test1039z00_25 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_23, 
CNST_TABLE_REF(((long)2))); 
if(BgL_test1039z00_25)
{ /* ./Engine/link.scm 82 */
BGl_za2linkzd2packageza2zd2zzengine_linkz00 = BGl_string1860z00zzengine_linkz00; 
{ /* ./Engine/link.scm 63 */
obj_t BgL_stringz00_340;
BgL_stringz00_340 = BGl_za2linkzd2packageza2zd2zzengine_linkz00; 
{ /* ./Engine/link.scm 63 */
char * BgL_auxz00_594;
BgL_auxz00_594 = 
BSTRING_TO_STRING(BgL_stringz00_340); 
BGl_za2linkzd2moduleza2zd2zzengine_linkz00 = 
string_to_symbol(BgL_auxz00_594); } } 
BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00 = 
string_append(BGl_string1860z00zzengine_linkz00, BGl_string1861z00zzengine_linkz00); 
{ /* ./Engine/link.scm 65 */
bool_t BgL_test1079z00_42;
{ /* ./Engine/link.scm 65 */
char * BgL_namez00_341;
BgL_namez00_341 = 
BSTRING_TO_STRING(BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00); 
BgL_test1079z00_42 = 
fexists(BgL_namez00_341); } 
if(BgL_test1079z00_42)
{ /* ./Engine/link.scm 66 */
obj_t BgL_objectz00_344;
BgL_objectz00_344 = BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00; 
FAILURE(BGl_string1862z00zzengine_linkz00,BGl_string1863z00zzengine_linkz00,BgL_objectz00_344);}  else 
{ /* ./Engine/link.scm 65 */
return BFALSE;} } }  else 
{ /* ./Engine/link.scm 82 */
{ /* ./Engine/link.scm 72 */
obj_t BgL_arg1046z00_27;
{ /* ./Engine/link.scm 72 */
obj_t BgL_arg1051z00_30;obj_t BgL_arg1053z00_32;
{ /* ./Engine/link.scm 74 */
obj_t BgL_userz00_38;
BgL_userz00_38 = 
BGl_getenvz00zz__osz00("USER"); 
if(
STRINGP(BgL_userz00_38))
{ /* ./Engine/link.scm 75 */
BgL_arg1051z00_30 = BgL_userz00_38; }  else 
{ /* ./Engine/link.scm 75 */
BgL_arg1051z00_30 = BGl_string1856z00zzengine_linkz00; } } 
{ /* ./Engine/link.scm 79 */
obj_t BgL_pairz00_338;
BgL_pairz00_338 = BGl_za2srczd2suffixza2zd2zzengine_paramz00; 
BgL_arg1053z00_32 = 
CAR(BgL_pairz00_338); } 
{ /* ./Engine/link.scm 72 */
obj_t BgL_list1055z00_33;
{ /* ./Engine/link.scm 72 */
obj_t BgL_arg1058z00_34;
{ /* ./Engine/link.scm 72 */
obj_t BgL_arg1061z00_35;
{ /* ./Engine/link.scm 72 */
obj_t BgL_arg1064z00_36;
{ /* ./Engine/link.scm 72 */
obj_t BgL_arg1067z00_37;
BgL_arg1067z00_37 = 
MAKE_PAIR(BgL_arg1053z00_32, BNIL); 
BgL_arg1064z00_36 = 
MAKE_PAIR(BGl_string1857z00zzengine_linkz00, BgL_arg1067z00_37); } 
BgL_arg1061z00_35 = 
MAKE_PAIR(BgL_arg1051z00_30, BgL_arg1064z00_36); } 
BgL_arg1058z00_34 = 
MAKE_PAIR(BGl_string1858z00zzengine_linkz00, BgL_arg1061z00_35); } 
BgL_list1055z00_33 = 
MAKE_PAIR(BGl_string1859z00zzengine_linkz00, BgL_arg1058z00_34); } 
BgL_arg1046z00_27 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1055z00_33); } } 
BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00 = 
BGl_makezd2filezd2namez00zz__osz00(BGl_za2bigloozd2tmpza2zd2zzengine_paramz00, BgL_arg1046z00_27); } 
BGl_za2linkzd2moduleza2zd2zzengine_linkz00 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)0)), BEOA); 
{ /* ./Engine/link.scm 81 */
obj_t BgL_symbolz00_339;
BgL_symbolz00_339 = BGl_za2linkzd2moduleza2zd2zzengine_linkz00; 
return ( 
BGl_za2linkzd2packageza2zd2zzengine_linkz00 = 
SYMBOL_TO_STRING(BgL_symbolz00_339), BUNSPEC) ;} } } } } } } 
}



/* link */
BGL_EXPORTED_DEF obj_t BGl_linkz00zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 93 */
BGl_setupzd2tmpzd2mainzd2filezd2namez12z12zzengine_linkz00(); 
{ /* ./Engine/link.scm 97 */
bool_t BgL_test1089z00_49;
{ /* ./Engine/link.scm 97 */
long BgL_n1z00_350;
BgL_n1z00_350 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test1089z00_49 = 
(BgL_n1z00_350>((long)0)); } 
if(BgL_test1089z00_49)
{ /* ./Engine/link.scm 97 */
BGl_bdbzd2settingz12zc0zzbdb_settingz00(); }  else 
{ /* ./Engine/link.scm 97 */BFALSE; } } 
{ 
obj_t BgL_objectsz00_50;obj_t BgL_sourcesz00_51;
BgL_objectsz00_50 = BGl_za2ozd2filesza2zd2zzengine_paramz00; 
BgL_sourcesz00_51 = BNIL; 
BgL_loopz00_52:
{ /* ./Engine/link.scm 102 */
bool_t BgL_test1093z00_53;
BgL_test1093z00_53 = 
NULLP(BgL_objectsz00_50); 
if(BgL_test1093z00_53)
{ /* ./Engine/link.scm 102 */
return 
BGl_linkzd2withzd2zzengine_linkz00(BgL_sourcesz00_51);}  else 
{ /* ./Engine/link.scm 105 */
obj_t BgL_objectz00_54;
BgL_objectz00_54 = 
CAR(BgL_objectsz00_50); 
{ /* ./Engine/link.scm 105 */
obj_t BgL_prefz00_55;
{ /* ./Engine/link.scm 106 */
obj_t BgL_arg1132z00_71;
BgL_arg1132z00_71 = 
BGl_prefixz00zz__osz00(BgL_objectz00_54); 
BgL_prefz00_55 = 
BGl_unprofzd2srczd2namez00zzengine_linkz00(BgL_arg1132z00_71); } 
{ /* ./Engine/link.scm 106 */
obj_t BgL_bprefz00_56;
BgL_bprefz00_56 = 
BGl_basenamez00zz__osz00(BgL_prefz00_55); 
{ /* ./Engine/link.scm 107 */
obj_t BgL_scmzd2filezd2_57;
BgL_scmzd2filezd2_57 = 
BGl_findzd2srczd2filez00zzengine_linkz00(BgL_prefz00_55, BgL_bprefz00_56); 
{ /* ./Engine/link.scm 108 */

{ /* ./Engine/link.scm 109 */
bool_t BgL_test1095z00_58;
BgL_test1095z00_58 = 
STRINGP(BgL_scmzd2filezd2_57); 
if(BgL_test1095z00_58)
{ /* ./Engine/link.scm 110 */
obj_t BgL_arg1097z00_59;obj_t BgL_arg1098z00_60;
BgL_arg1097z00_59 = 
CDR(BgL_objectsz00_50); 
{ /* ./Engine/link.scm 110 */
obj_t BgL_arg1102z00_61;
BgL_arg1102z00_61 = 
MAKE_PAIR(BgL_scmzd2filezd2_57, BgL_objectz00_54); 
BgL_arg1098z00_60 = 
MAKE_PAIR(BgL_arg1102z00_61, BgL_sourcesz00_51); } 
{ 
obj_t BgL_sourcesz00_636;obj_t BgL_objectsz00_635;
BgL_objectsz00_635 = BgL_arg1097z00_59; 
BgL_sourcesz00_636 = BgL_arg1098z00_60; 
BgL_sourcesz00_51 = BgL_sourcesz00_636; 
BgL_objectsz00_50 = BgL_objectsz00_635; 
goto BgL_loopz00_52;} }  else 
{ /* ./Engine/link.scm 109 */
{ /* ./Engine/link.scm 112 */
bool_t BgL_test1106z00_62;
{ /* ./Engine/link.scm 112 */
bool_t BgL_test1121z00_69;
{ /* ./Engine/link.scm 112 */
bool_t BgL_res1759z00_360;
{ /* ./Engine/link.scm 112 */
obj_t BgL_objz00_356;
BgL_objz00_356 = BGl_za2warningza2z00zz__errorz00; 
if(
INTEGERP(BgL_objz00_356))
{ /* ./Engine/link.scm 112 */
BgL_res1759z00_360 = ((bool_t)1); }  else 
{ /* ./Engine/link.scm 112 */
BgL_res1759z00_360 = 
REALP(BgL_objz00_356); } } 
BgL_test1121z00_69 = BgL_res1759z00_360; } 
if(BgL_test1121z00_69)
{ /* ./Engine/link.scm 112 */
long BgL_n1z00_361;
BgL_n1z00_361 = 
(long)CINT(BGl_za2warningza2z00zz__errorz00); 
BgL_test1106z00_62 = 
(BgL_n1z00_361>=((long)2)); }  else 
{ /* ./Engine/link.scm 112 */
BgL_test1106z00_62 = ((bool_t)0); } } 
if(BgL_test1106z00_62)
{ /* ./Engine/link.scm 113 */
obj_t BgL_arg1110z00_65;
BgL_arg1110z00_65 = 
CAR(BgL_objectsz00_50); 
{ /* ./Engine/link.scm 113 */
obj_t BgL_list1112z00_66;
{ /* ./Engine/link.scm 113 */
obj_t BgL_arg1114z00_67;
{ /* ./Engine/link.scm 113 */
obj_t BgL_arg1117z00_68;
BgL_arg1117z00_68 = 
MAKE_PAIR(BgL_arg1110z00_65, BNIL); 
BgL_arg1114z00_67 = 
MAKE_PAIR(BGl_string1865z00zzengine_linkz00, BgL_arg1117z00_68); } 
BgL_list1112z00_66 = 
MAKE_PAIR(BGl_string1862z00zzengine_linkz00, BgL_arg1114z00_67); } 
BGl_warningz00zz__errorz00(BgL_list1112z00_66); } }  else 
{ /* ./Engine/link.scm 112 */BFALSE; } } 
{ /* ./Engine/link.scm 116 */
obj_t BgL_arg1125z00_70;
BgL_arg1125z00_70 = 
CDR(BgL_objectsz00_50); 
{ 
obj_t BgL_objectsz00_650;
BgL_objectsz00_650 = BgL_arg1125z00_70; 
BgL_objectsz00_50 = BgL_objectsz00_650; 
goto BgL_loopz00_52;} } } } } } } } } } } } 
}



/* _link */
obj_t BGl__linkz00zzengine_linkz00(obj_t BgL_envz00_534)
{ AN_OBJECT;
{ /* ./Engine/link.scm 93 */
return 
BGl_linkz00zzengine_linkz00();} 
}



/* unprof-src-name */
BGL_EXPORTED_DEF obj_t BGl_unprofzd2srczd2namez00zzengine_linkz00(obj_t BgL_namez00_1)
{ AN_OBJECT;
{ /* ./Engine/link.scm 121 */
if(
CBOOL(BGl_za2profilezd2modeza2zd2zzengine_paramz00))
{ /* ./Engine/link.scm 124 */
int BgL_lenz00_72;
BgL_lenz00_72 = 
STRING_LENGTH(BgL_namez00_1); 
{ /* ./Engine/link.scm 125 */
bool_t BgL_test1137z00_73;
{ /* ./Engine/link.scm 125 */
bool_t BgL_testz00_655;
{ /* ./Engine/link.scm 125 */
long BgL_auxz00_656;
BgL_auxz00_656 = 
(long)(BgL_lenz00_72); 
BgL_testz00_655 = 
(BgL_auxz00_656>((long)2)); } 
if(BgL_testz00_655)
{ /* ./Engine/link.scm 126 */
bool_t BgL_testz00_659;
{ /* ./Engine/link.scm 126 */
unsigned char BgL_auxz00_660;
{ /* ./Engine/link.scm 126 */
int BgL_auxz00_661;
{ /* ./Engine/link.scm 126 */
long BgL_auxz00_662;
{ /* ./Engine/link.scm 126 */
long BgL_auxz00_663;
BgL_auxz00_663 = 
(long)(BgL_lenz00_72); 
BgL_auxz00_662 = 
(BgL_auxz00_663-((long)1)); } 
BgL_auxz00_661 = 
(int)(BgL_auxz00_662); } 
BgL_auxz00_660 = 
STRING_REF(BgL_namez00_1, BgL_auxz00_661); } 
BgL_testz00_659 = 
(BgL_auxz00_660==((unsigned char)'p')); } 
if(BgL_testz00_659)
{ /* ./Engine/link.scm 127 */
unsigned char BgL_auxz00_669;
{ /* ./Engine/link.scm 127 */
int BgL_auxz00_670;
{ /* ./Engine/link.scm 127 */
long BgL_auxz00_671;
{ /* ./Engine/link.scm 127 */
long BgL_auxz00_672;
BgL_auxz00_672 = 
(long)(BgL_lenz00_72); 
BgL_auxz00_671 = 
(BgL_auxz00_672-((long)2)); } 
BgL_auxz00_670 = 
(int)(BgL_auxz00_671); } 
BgL_auxz00_669 = 
STRING_REF(BgL_namez00_1, BgL_auxz00_670); } 
BgL_test1137z00_73 = 
(BgL_auxz00_669==((unsigned char)'_')); }  else 
{ /* ./Engine/link.scm 126 */
BgL_test1137z00_73 = ((bool_t)0); } }  else 
{ /* ./Engine/link.scm 125 */
BgL_test1137z00_73 = ((bool_t)0); } } 
if(BgL_test1137z00_73)
{ /* ./Engine/link.scm 128 */
long BgL_arg1141z00_75;
{ /* ./Engine/link.scm 128 */
long BgL_auxz00_679;
BgL_auxz00_679 = 
(long)(BgL_lenz00_72); 
BgL_arg1141z00_75 = 
(BgL_auxz00_679-((long)2)); } 
{ /* ./Engine/link.scm 128 */
int BgL_startz00_383;int BgL_endz00_384;
BgL_startz00_383 = 
(int)(((long)0)); 
BgL_endz00_384 = 
(int)(BgL_arg1141z00_75); 
return 
c_substring(BgL_namez00_1, BgL_startz00_383, BgL_endz00_384);} }  else 
{ /* ./Engine/link.scm 125 */
return BgL_namez00_1;} } }  else 
{ /* ./Engine/link.scm 122 */
return BgL_namez00_1;} } 
}



/* _unprof-src-name */
obj_t BGl__unprofzd2srczd2namez00zzengine_linkz00(obj_t BgL_envz00_535, obj_t BgL_namez00_536)
{ AN_OBJECT;
{ /* ./Engine/link.scm 121 */
return 
BGl_unprofzd2srczd2namez00zzengine_linkz00(BgL_namez00_536);} 
}



/* find-file-for-link */
obj_t BGl_findzd2filezd2forzd2linkzd2zzengine_linkz00(obj_t BgL_filez00_2)
{ AN_OBJECT;
{ /* ./Engine/link.scm 134 */
{ /* ./Engine/link.scm 135 */
bool_t BgL_test1163z00_82;
{ /* ./Engine/link.scm 135 */
char * BgL_namez00_385;
BgL_namez00_385 = 
BSTRING_TO_STRING(BgL_filez00_2); 
BgL_test1163z00_82 = 
fexists(BgL_namez00_385); } 
if(BgL_test1163z00_82)
{ /* ./Engine/link.scm 135 */
return BgL_filez00_2;}  else 
{ /* ./Engine/link.scm 135 */
return 
BGl_findzd2filezf2pathz20zz__osz00(BgL_filez00_2, BGl_za2loadzd2pathza2zd2zz__evalz00);} } } 
}



/* find-src-file */
BGL_EXPORTED_DEF obj_t BGl_findzd2srczd2filez00zzengine_linkz00(obj_t BgL_prefixz00_3, obj_t BgL_bnamez00_4)
{ AN_OBJECT;
{ /* ./Engine/link.scm 142 */
{ 
obj_t BgL_suffixz00_83;obj_t BgL_filesz00_84;
BgL_suffixz00_83 = BGl_za2srczd2suffixza2zd2zzengine_paramz00; 
BgL_filesz00_84 = BNIL; 
BgL_loopz00_85:
{ /* ./Engine/link.scm 145 */
bool_t BgL_test1167z00_86;
BgL_test1167z00_86 = 
NULLP(BgL_suffixz00_83); 
if(BgL_test1167z00_86)
{ /* ./Engine/link.scm 146 */
bool_t BgL_test1168z00_87;
BgL_test1168z00_87 = 
NULLP(BgL_filesz00_84); 
if(BgL_test1168z00_87)
{ /* ./Engine/link.scm 146 */
return BFALSE;}  else 
{ /* ./Engine/link.scm 151 */
bool_t BgL_test1169z00_88;
{ /* ./Engine/link.scm 152 */
obj_t BgL_auxz00_694;
BgL_auxz00_694 = 
CDR(BgL_filesz00_84); 
BgL_test1169z00_88 = 
NULLP(BgL_auxz00_694); } 
if(BgL_test1169z00_88)
{ /* ./Engine/link.scm 151 */
return 
CAR(BgL_filesz00_84);}  else 
{ /* ./Engine/link.scm 151 */
{ /* ./Engine/link.scm 152 */
obj_t BgL_arg1179z00_92;
BgL_arg1179z00_92 = 
CAR(BgL_filesz00_84); 
{ /* ./Engine/link.scm 152 */
obj_t BgL_list1181z00_93;
{ /* ./Engine/link.scm 152 */
obj_t BgL_arg1183z00_94;
{ /* ./Engine/link.scm 152 */
obj_t BgL_arg1187z00_95;
{ /* ./Engine/link.scm 152 */
obj_t BgL_arg1191z00_96;
{ /* ./Engine/link.scm 152 */
obj_t BgL_arg1195z00_97;
BgL_arg1195z00_97 = 
MAKE_PAIR(BgL_arg1179z00_92, BNIL); 
BgL_arg1191z00_96 = 
MAKE_PAIR(BGl_string1866z00zzengine_linkz00, BgL_arg1195z00_97); } 
BgL_arg1187z00_95 = 
MAKE_PAIR(BgL_bnamez00_4, BgL_arg1191z00_96); } 
BgL_arg1183z00_94 = 
MAKE_PAIR(BGl_string1867z00zzengine_linkz00, BgL_arg1187z00_95); } 
BgL_list1181z00_93 = 
MAKE_PAIR(BGl_string1862z00zzengine_linkz00, BgL_arg1183z00_94); } 
BGl_warningz00zz__errorz00(BgL_list1181z00_93); } } 
return 
CAR(BgL_filesz00_84);} } }  else 
{ /* ./Engine/link.scm 155 */
obj_t BgL_sufz00_99;
BgL_sufz00_99 = 
CAR(BgL_suffixz00_83); 
{ /* ./Engine/link.scm 155 */
obj_t BgL_fz00_100;
{ /* ./Engine/link.scm 156 */
obj_t BgL_arg1233z00_110;
BgL_arg1233z00_110 = 
string_append_3(BgL_prefixz00_3, BGl_string1857z00zzengine_linkz00, BgL_sufz00_99); 
BgL_fz00_100 = 
BGl_findzd2filezd2forzd2linkzd2zzengine_linkz00(BgL_arg1233z00_110); } 
{ /* ./Engine/link.scm 156 */

{ /* ./Engine/link.scm 157 */
bool_t BgL_test1205z00_101;
BgL_test1205z00_101 = 
STRINGP(BgL_fz00_100); 
if(BgL_test1205z00_101)
{ /* ./Engine/link.scm 158 */
obj_t BgL_arg1207z00_102;obj_t BgL_arg1210z00_103;
BgL_arg1207z00_102 = 
CDR(BgL_suffixz00_83); 
BgL_arg1210z00_103 = 
MAKE_PAIR(BgL_fz00_100, BgL_filesz00_84); 
{ 
obj_t BgL_filesz00_715;obj_t BgL_suffixz00_714;
BgL_suffixz00_714 = BgL_arg1207z00_102; 
BgL_filesz00_715 = BgL_arg1210z00_103; 
BgL_filesz00_84 = BgL_filesz00_715; 
BgL_suffixz00_83 = BgL_suffixz00_714; 
goto BgL_loopz00_85;} }  else 
{ /* ./Engine/link.scm 159 */
obj_t BgL_fz00_104;
{ /* ./Engine/link.scm 159 */
obj_t BgL_arg1227z00_109;
BgL_arg1227z00_109 = 
string_append_3(BgL_bnamez00_4, BGl_string1857z00zzengine_linkz00, BgL_sufz00_99); 
BgL_fz00_104 = 
BGl_findzd2filezd2forzd2linkzd2zzengine_linkz00(BgL_arg1227z00_109); } 
{ /* ./Engine/link.scm 160 */
bool_t BgL_test1214z00_105;
BgL_test1214z00_105 = 
STRINGP(BgL_fz00_104); 
if(BgL_test1214z00_105)
{ /* ./Engine/link.scm 161 */
obj_t BgL_arg1216z00_106;obj_t BgL_arg1217z00_107;
BgL_arg1216z00_106 = 
CDR(BgL_suffixz00_83); 
BgL_arg1217z00_107 = 
MAKE_PAIR(BgL_fz00_104, BgL_filesz00_84); 
{ 
obj_t BgL_filesz00_723;obj_t BgL_suffixz00_722;
BgL_suffixz00_722 = BgL_arg1216z00_106; 
BgL_filesz00_723 = BgL_arg1217z00_107; 
BgL_filesz00_84 = BgL_filesz00_723; 
BgL_suffixz00_83 = BgL_suffixz00_722; 
goto BgL_loopz00_85;} }  else 
{ /* ./Engine/link.scm 162 */
obj_t BgL_arg1222z00_108;
BgL_arg1222z00_108 = 
CDR(BgL_suffixz00_83); 
{ 
obj_t BgL_suffixz00_725;
BgL_suffixz00_725 = BgL_arg1222z00_108; 
BgL_suffixz00_83 = BgL_suffixz00_725; 
goto BgL_loopz00_85;} } } } } } } } } } } 
}



/* _find-src-file */
obj_t BGl__findzd2srczd2filez00zzengine_linkz00(obj_t BgL_envz00_537, obj_t BgL_prefixz00_538, obj_t BgL_bnamez00_539)
{ AN_OBJECT;
{ /* ./Engine/link.scm 142 */
return 
BGl_findzd2srczd2filez00zzengine_linkz00(BgL_prefixz00_538, BgL_bnamez00_539);} 
}



/* link-with */
obj_t BGl_linkzd2withzd2zzengine_linkz00(obj_t BgL_sourcesz00_5)
{ AN_OBJECT;
{ /* ./Engine/link.scm 167 */
{ 
obj_t BgL_firstz00_273;
{ /* ./Engine/link.scm 183 */
bool_t BgL_test1238z00_112;
BgL_test1238z00_112 = 
NULLP(BgL_sourcesz00_5); 
if(BgL_test1238z00_112)
{ /* ./Engine/link.scm 184 */
obj_t BgL_firstz00_113;
{ /* ./Engine/link.scm 184 */
obj_t BgL_arg1265z00_121;
{ /* ./Engine/link.scm 184 */
obj_t BgL_pairz00_400;
BgL_pairz00_400 = BGl_za2ozd2filesza2zd2zzengine_paramz00; 
BgL_arg1265z00_121 = 
CAR(BgL_pairz00_400); } 
BgL_firstz00_113 = 
BGl_prefixz00zz__osz00(BgL_arg1265z00_121); } 
{ /* ./Engine/link.scm 185 */
obj_t BgL_list1240z00_114;
{ /* ./Engine/link.scm 185 */
obj_t BgL_arg1244z00_116;
{ /* ./Engine/link.scm 185 */
obj_t BgL_arg1250z00_118;
{ /* ./Engine/link.scm 185 */
obj_t BgL_arg1258z00_120;
BgL_arg1258z00_120 = 
MAKE_PAIR(BGl_za2ozd2filesza2zd2zzengine_paramz00, BNIL); 
BgL_arg1250z00_118 = 
MAKE_PAIR(BGl_string1870z00zzengine_linkz00, BgL_arg1258z00_120); } 
BgL_arg1244z00_116 = 
MAKE_PAIR(BGl_string1871z00zzengine_linkz00, BgL_arg1250z00_118); } 
BgL_list1240z00_114 = 
MAKE_PAIR(BGl_string1862z00zzengine_linkz00, BgL_arg1244z00_116); } 
BGl_warningz00zz__errorz00(BgL_list1240z00_114); } 
BGl_loadzd2libraryzd2initz00zzinit_setrcz00(); 
BgL_firstz00_273 = BgL_firstz00_113; 
BgL_zc3anonymousza31619ze3z83_274:
{ /* ./Engine/link.scm 169 */
obj_t BgL_casezd2valuezd2_275;
BgL_casezd2valuezd2_275 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
{ /* ./Engine/link.scm 169 */
bool_t BgL_test1620z00_276;
BgL_test1620z00_276 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_275, 
CNST_TABLE_REF(((long)3))); 
if(BgL_test1620z00_276)
{ /* ./Engine/link.scm 169 */
{ /* ./Engine/link.scm 171 */
obj_t BgL_pairz00_502;
BgL_pairz00_502 = BGl_za2ozd2filesza2zd2zzengine_paramz00; 
BGl_za2ozd2filesza2zd2zzengine_paramz00 = 
CDR(BgL_pairz00_502); } 
return 
BGl_ldz00zzcc_ldz00(BgL_firstz00_273, ((bool_t)0));}  else 
{ /* ./Engine/link.scm 169 */
bool_t BgL_test1623z00_277;
BgL_test1623z00_277 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_275, 
CNST_TABLE_REF(((long)1))); 
if(BgL_test1623z00_277)
{ /* ./Engine/link.scm 169 */
BGl_readzd2jfilezd2zzread_jvmz00(); 
return 
BGl_jvmzd2ldzd2zzjvm_ldz00();}  else 
{ /* ./Engine/link.scm 169 */
bool_t BgL_test1626z00_278;
BgL_test1626z00_278 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_275, 
CNST_TABLE_REF(((long)2))); 
if(BgL_test1626z00_278)
{ /* ./Engine/link.scm 169 */
BGl_za2srczd2filesza2zd2zzengine_paramz00 = BNIL; 
return 
BGl_dotnetzd2ldzd2zzdotnet_ldz00();}  else 
{ /* ./Engine/link.scm 180 */
obj_t BgL_objectz00_505;
BgL_objectz00_505 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
FAILURE(BGl_string1868z00zzengine_linkz00,BGl_string1869z00zzengine_linkz00,BgL_objectz00_505);} } } } } }  else 
{ 
obj_t BgL_sourcesz00_122;obj_t BgL_clsz00_123;obj_t BgL_mainz00_124;obj_t BgL_fmainz00_125;obj_t BgL_librariesz00_126;
BgL_sourcesz00_122 = BgL_sourcesz00_5; 
BgL_clsz00_123 = BNIL; 
BgL_mainz00_124 = BFALSE; 
BgL_fmainz00_125 = BGl_string1856z00zzengine_linkz00; 
BgL_librariesz00_126 = BNIL; 
BgL_loopz00_127:
{ /* ./Engine/link.scm 195 */
bool_t BgL_test1269z00_128;
BgL_test1269z00_128 = 
NULLP(BgL_sourcesz00_122); 
if(BgL_test1269z00_128)
{ /* ./Engine/link.scm 195 */
if(
CBOOL(BgL_mainz00_124))
{ /* ./Engine/link.scm 199 */
obj_t BgL_firstz00_129;
{ /* ./Engine/link.scm 199 */
obj_t BgL_arg1292z00_138;
{ /* ./Engine/link.scm 199 */
obj_t BgL_pairz00_402;
BgL_pairz00_402 = BGl_za2ozd2filesza2zd2zzengine_paramz00; 
BgL_arg1292z00_138 = 
CAR(BgL_pairz00_402); } 
BgL_firstz00_129 = 
BGl_prefixz00zz__osz00(BgL_arg1292z00_138); } 
{ 
obj_t BgL_l1023z00_130;
BgL_l1023z00_130 = BgL_librariesz00_126; 
BgL_forzd2each1024zd2_131:
{ /* ./Engine/link.scm 202 */
bool_t BgL_test1271z00_132;
BgL_test1271z00_132 = 
PAIRP(BgL_l1023z00_130); 
if(BgL_test1271z00_132)
{ /* ./Engine/link.scm 202 */
{ /* ./Engine/link.scm 203 */
obj_t BgL_libz00_133;
BgL_libz00_133 = 
CAR(BgL_l1023z00_130); 
{ /* ./Engine/link.scm 203 */
obj_t BgL_arg1273z00_134;obj_t BgL_arg1276z00_135;
BgL_arg1273z00_134 = 
BGl_makezd2libraryzd2namez00zzmodule_alibraryz00(BgL_libz00_133); 
BgL_arg1276z00_135 = 
CNST_TABLE_REF(((long)4)); 
BGl_usezd2libraryz12zc0zzmodule_alibraryz00(BgL_arg1273z00_134, BgL_arg1276z00_135); } } 
{ /* ./Engine/link.scm 202 */
obj_t BgL_arg1282z00_136;
BgL_arg1282z00_136 = 
CDR(BgL_l1023z00_130); 
{ 
obj_t BgL_l1023z00_765;
BgL_l1023z00_765 = BgL_arg1282z00_136; 
BgL_l1023z00_130 = BgL_l1023z00_765; 
goto BgL_forzd2each1024zd2_131;} } }  else 
{ /* ./Engine/link.scm 202 */((bool_t)1); } } } 
BGl_loadzd2libraryzd2initz00zzinit_setrcz00(); 
{ /* ./Engine/link.scm 207 */
obj_t BgL_list1288z00_137;
BgL_list1288z00_137 = 
MAKE_PAIR(BgL_fmainz00_125, BNIL); 
BGl_za2srczd2filesza2zd2zzengine_paramz00 = BgL_list1288z00_137; } 
{ 
obj_t BgL_firstz00_768;
BgL_firstz00_768 = BgL_firstz00_129; 
BgL_firstz00_273 = BgL_firstz00_768; 
goto BgL_zc3anonymousza31619ze3z83_274;} }  else 
{ /* ./Engine/link.scm 196 */
BGl_makezd2tmpzd2mainz00zzengine_linkz00(BgL_clsz00_123, BgL_mainz00_124, BgL_librariesz00_126); 
{ /* ./Engine/link.scm 212 */
obj_t BgL_list1297z00_139;
BgL_list1297z00_139 = 
MAKE_PAIR(BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00, BNIL); 
BGl_za2srczd2filesza2zd2zzengine_paramz00 = BgL_list1297z00_139; } 
{ 
obj_t BgL_raz00_140;obj_t BgL_resz00_141;
BgL_raz00_140 = BGl_za2restzd2argsza2zd2zzengine_paramz00; 
BgL_resz00_141 = BNIL; 
BgL_loopz00_142:
{ /* ./Engine/link.scm 218 */
bool_t BgL_test1300z00_143;
BgL_test1300z00_143 = 
NULLP(BgL_raz00_140); 
if(BgL_test1300z00_143)
{ /* ./Engine/link.scm 218 */
BGl_za2restzd2argsza2zd2zzengine_paramz00 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_141); }  else 
{ /* ./Engine/link.scm 220 */
bool_t BgL_test1302z00_144;
{ /* ./Engine/link.scm 220 */
obj_t BgL_arg1317z00_149;
{ /* ./Engine/link.scm 220 */
obj_t BgL_arg1320z00_150;
BgL_arg1320z00_150 = 
CAR(BgL_raz00_140); 
BgL_arg1317z00_149 = 
BGl_suffixz00zz__osz00(BgL_arg1320z00_150); } 
{ /* ./Engine/link.scm 220 */
obj_t BgL_auxz00_776;
BgL_auxz00_776 = 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1317z00_149, BGl_za2mcozd2suffixza2zd2zzengine_paramz00); 
BgL_test1302z00_144 = 
CBOOL(BgL_auxz00_776); } } 
if(BgL_test1302z00_144)
{ /* ./Engine/link.scm 220 */
{ /* ./Engine/link.scm 221 */
obj_t BgL_arg1304z00_145;
BgL_arg1304z00_145 = 
CDR(BgL_raz00_140); 
{ 
obj_t BgL_raz00_781;
BgL_raz00_781 = BgL_arg1304z00_145; 
BgL_raz00_140 = BgL_raz00_781; 
goto BgL_loopz00_142;} } }  else 
{ /* ./Engine/link.scm 220 */
{ /* ./Engine/link.scm 223 */
obj_t BgL_arg1308z00_146;obj_t BgL_arg1309z00_147;
BgL_arg1308z00_146 = 
CDR(BgL_raz00_140); 
{ /* ./Engine/link.scm 223 */
obj_t BgL_arg1313z00_148;
BgL_arg1313z00_148 = 
CAR(BgL_raz00_140); 
BgL_arg1309z00_147 = 
MAKE_PAIR(BgL_arg1313z00_148, BgL_resz00_141); } 
{ 
obj_t BgL_resz00_786;obj_t BgL_raz00_785;
BgL_raz00_785 = BgL_arg1308z00_146; 
BgL_resz00_786 = BgL_arg1309z00_147; 
BgL_resz00_141 = BgL_resz00_786; 
BgL_raz00_140 = BgL_raz00_785; 
goto BgL_loopz00_142;} } } } } } 
{ /* ./Engine/link.scm 224 */
obj_t BgL_val1025z00_151;
BgL_val1025z00_151 = 
BGl_zc3exitza31375ze3z83zzengine_linkz00(); 
BGl_loadzd2libraryzd2initz00zzinit_setrcz00(); 
{ /* ./Engine/link.scm 228 */
obj_t BgL_scmzd2filezd2_152;
BgL_scmzd2filezd2_152 = BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00; 
{ /* ./Engine/link.scm 228 */
obj_t BgL_prez00_153;
BgL_prez00_153 = 
BGl_prefixz00zz__osz00(BgL_scmzd2filezd2_152); 
{ /* ./Engine/link.scm 229 */
obj_t BgL_czd2filezd2_154;
BgL_czd2filezd2_154 = 
string_append(BgL_prez00_153, BGl_string1872z00zzengine_linkz00); 
{ /* ./Engine/link.scm 230 */
obj_t BgL_ozd2filezd2_155;
BgL_ozd2filezd2_155 = 
string_append_3(BgL_prez00_153, BGl_string1857z00zzengine_linkz00, BGl_za2czd2objectzd2filezd2extensionza2zd2zzengine_paramz00); 
{ /* ./Engine/link.scm 231 */
obj_t BgL_classzd2filezd2_156;
BgL_classzd2filezd2_156 = 
string_append(BgL_prez00_153, BGl_string1873z00zzengine_linkz00); 
{ /* ./Engine/link.scm 232 */
obj_t BgL_objzd2filezd2_157;
BgL_objzd2filezd2_157 = 
string_append(BgL_prez00_153, BGl_string1874z00zzengine_linkz00); 
{ /* ./Engine/link.scm 233 */

{ /* ./Engine/link.scm 234 */
bool_t BgL_test1325z00_158;
{ /* ./Engine/link.scm 234 */
obj_t BgL_auxz00_794;
BgL_auxz00_794 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)5))); 
BgL_test1325z00_158 = 
CBOOL(BgL_auxz00_794); } 
if(BgL_test1325z00_158)
{ /* ./Engine/link.scm 235 */
bool_t BgL_test1327z00_159;
{ /* ./Engine/link.scm 235 */
char * BgL_namez00_415;
BgL_namez00_415 = 
BSTRING_TO_STRING(BgL_scmzd2filezd2_152); 
BgL_test1327z00_159 = 
fexists(BgL_namez00_415); } 
if(BgL_test1327z00_159)
{ /* ./Engine/link.scm 236 */
char * BgL_stringz00_416;
BgL_stringz00_416 = 
BSTRING_TO_STRING(BgL_scmzd2filezd2_152); 
unlink(BgL_stringz00_416); }  else 
{ /* ./Engine/link.scm 235 */((bool_t)0); } }  else 
{ 
obj_t BgL_l1028z00_160;
{ /* ./Engine/link.scm 240 */
obj_t BgL_arg1331z00_162;
{ /* ./Engine/link.scm 240 */
obj_t BgL_list1334z00_163;
{ /* ./Engine/link.scm 240 */
obj_t BgL_arg1336z00_164;
{ /* ./Engine/link.scm 240 */
obj_t BgL_arg1340z00_165;
{ /* ./Engine/link.scm 240 */
obj_t BgL_arg1343z00_166;
{ /* ./Engine/link.scm 240 */
obj_t BgL_arg1346z00_167;
BgL_arg1346z00_167 = 
MAKE_PAIR(BgL_objzd2filezd2_157, BNIL); 
BgL_arg1343z00_166 = 
MAKE_PAIR(BgL_classzd2filezd2_156, BgL_arg1346z00_167); } 
BgL_arg1340z00_165 = 
MAKE_PAIR(BgL_ozd2filezd2_155, BgL_arg1343z00_166); } 
BgL_arg1336z00_164 = 
MAKE_PAIR(BgL_czd2filezd2_154, BgL_arg1340z00_165); } 
BgL_list1334z00_163 = 
MAKE_PAIR(BgL_scmzd2filezd2_152, BgL_arg1336z00_164); } 
BgL_arg1331z00_162 = BgL_list1334z00_163; } 
BgL_l1028z00_160 = BgL_arg1331z00_162; 
BgL_forzd2each1029zd2_161:
{ /* ./Engine/link.scm 237 */
bool_t BgL_test1349z00_168;
BgL_test1349z00_168 = 
PAIRP(BgL_l1028z00_160); 
if(BgL_test1349z00_168)
{ /* ./Engine/link.scm 237 */
{ /* ./Engine/link.scm 238 */
obj_t BgL_fz00_169;
BgL_fz00_169 = 
CAR(BgL_l1028z00_160); 
{ /* ./Engine/link.scm 238 */
bool_t BgL_test1350z00_170;
{ /* ./Engine/link.scm 238 */
char * BgL_namez00_421;
BgL_namez00_421 = 
BSTRING_TO_STRING(BgL_fz00_169); 
BgL_test1350z00_170 = 
fexists(BgL_namez00_421); } 
if(BgL_test1350z00_170)
{ /* ./Engine/link.scm 239 */
char * BgL_stringz00_422;
BgL_stringz00_422 = 
BSTRING_TO_STRING(BgL_fz00_169); 
unlink(BgL_stringz00_422); }  else 
{ /* ./Engine/link.scm 238 */((bool_t)0); } } } 
{ /* ./Engine/link.scm 237 */
obj_t BgL_arg1355z00_171;
BgL_arg1355z00_171 = 
CDR(BgL_l1028z00_160); 
{ 
obj_t BgL_l1028z00_818;
BgL_l1028z00_818 = BgL_arg1355z00_171; 
BgL_l1028z00_160 = BgL_l1028z00_818; 
goto BgL_forzd2each1029zd2_161;} } }  else 
{ /* ./Engine/link.scm 237 */((bool_t)1); } } } } } } } } } } } } 
{ /* ./Engine/link.scm 228 */
bool_t BgL_test1365z00_172;
{ /* ./Engine/link.scm 228 */
obj_t BgL_auxz00_819;
BgL_auxz00_819 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1025z00_151); 
BgL_test1365z00_172 = 
CBOOL(BgL_auxz00_819); } 
if(BgL_test1365z00_172)
{ /* ./Engine/link.scm 228 */
obj_t BgL_arg1368z00_173;obj_t BgL_arg1370z00_174;
BgL_arg1368z00_173 = 
CAR(BgL_val1025z00_151); 
BgL_arg1370z00_174 = 
CDR(BgL_val1025z00_151); 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1368z00_173, BgL_arg1370z00_174); }  else 
{ /* ./Engine/link.scm 228 */BgL_val1025z00_151; } } } 
return 
BINT(((long)0));} }  else 
{ /* ./Engine/link.scm 246 */
obj_t BgL_portz00_178;
{ /* ./Engine/link.scm 246 */
obj_t BgL_arg1613z00_271;
{ /* ./Engine/link.scm 246 */
obj_t BgL_auxz00_827;
BgL_auxz00_827 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1613z00_271 = 
CAR(BgL_auxz00_827); } 
BgL_portz00_178 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_arg1613z00_271, BNIL); } 
{ /* ./Engine/link.scm 247 */
bool_t BgL_test1380z00_179;
BgL_test1380z00_179 = 
INPUT_PORTP(BgL_portz00_178); 
if(BgL_test1380z00_179)
{ /* ./Engine/link.scm 249 */
obj_t BgL_expz00_180;
{ /* ./Engine/link.scm 249 */
obj_t BgL_list1603z00_267;
BgL_list1603z00_267 = 
MAKE_PAIR(BgL_portz00_178, BNIL); 
BgL_expz00_180 = 
BGl_compilerzd2readzd2zzread_readerz00(BgL_list1603z00_267); } 
close_input_port(BgL_portz00_178); 
{ 
obj_t BgL_namez00_181;obj_t BgL_newzd2mainzd2_182;obj_t BgL_namez00_184;
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1382z00_188;
BgL_test1382z00_188 = 
PAIRP(BgL_expz00_180); 
if(BgL_test1382z00_188)
{ /* ./Engine/link.scm 251 */
obj_t BgL_cdrzd2112zd2_189;
BgL_cdrzd2112zd2_189 = 
CDR(BgL_expz00_180); 
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1383z00_190;
{ /* ./Engine/link.scm 251 */
obj_t BgL_auxz00_841;obj_t BgL_auxz00_839;
BgL_auxz00_841 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_839 = 
CAR(BgL_expz00_180); 
BgL_test1383z00_190 = 
(BgL_auxz00_839==BgL_auxz00_841); } 
if(BgL_test1383z00_190)
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1384z00_191;
BgL_test1384z00_191 = 
PAIRP(BgL_cdrzd2112zd2_189); 
if(BgL_test1384z00_191)
{ 
obj_t BgL_gzd2119zd2_194;
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1388z00_193;
BgL_arg1388z00_193 = 
CDR(BgL_cdrzd2112zd2_189); 
BgL_gzd2119zd2_194 = BgL_arg1388z00_193; 
BgL_zc3anonymousza31391ze3z83_195:
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1392z00_196;
BgL_test1392z00_196 = 
PAIRP(BgL_gzd2119zd2_194); 
if(BgL_test1392z00_196)
{ /* ./Engine/link.scm 251 */
obj_t BgL_carzd2122zd2_197;
BgL_carzd2122zd2_197 = 
CAR(BgL_gzd2119zd2_194); 
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1393z00_198;
BgL_test1393z00_198 = 
PAIRP(BgL_carzd2122zd2_197); 
if(BgL_test1393z00_198)
{ /* ./Engine/link.scm 251 */
obj_t BgL_cdrzd2126zd2_199;
BgL_cdrzd2126zd2_199 = 
CDR(BgL_carzd2122zd2_197); 
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1394z00_200;
{ /* ./Engine/link.scm 251 */
obj_t BgL_auxz00_856;obj_t BgL_auxz00_854;
BgL_auxz00_856 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_854 = 
CAR(BgL_carzd2122zd2_197); 
BgL_test1394z00_200 = 
(BgL_auxz00_854==BgL_auxz00_856); } 
if(BgL_test1394z00_200)
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1395z00_201;
BgL_test1395z00_201 = 
PAIRP(BgL_cdrzd2126zd2_199); 
if(BgL_test1395z00_201)
{ /* ./Engine/link.scm 251 */
bool_t BgL_test1398z00_202;
{ /* ./Engine/link.scm 251 */
obj_t BgL_auxz00_862;
BgL_auxz00_862 = 
CDR(BgL_cdrzd2126zd2_199); 
BgL_test1398z00_202 = 
NULLP(BgL_auxz00_862); } 
if(BgL_test1398z00_202)
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1400z00_203;obj_t BgL_arg1401z00_204;
BgL_arg1400z00_203 = 
CAR(BgL_cdrzd2112zd2_189); 
BgL_arg1401z00_204 = 
CAR(BgL_cdrzd2126zd2_199); 
BgL_namez00_181 = BgL_arg1400z00_203; 
BgL_newzd2mainzd2_182 = BgL_arg1401z00_204; 
{ /* ./Engine/link.scm 256 */
obj_t BgL_arg1456z00_217;
{ /* ./Engine/link.scm 256 */
obj_t BgL_arg1461z00_219;obj_t BgL_arg1463z00_220;
{ /* ./Engine/link.scm 256 */
obj_t BgL_arg1466z00_221;
{ /* ./Engine/link.scm 256 */
obj_t BgL_arg1470z00_222;
{ /* ./Engine/link.scm 256 */
obj_t BgL_auxz00_868;
BgL_auxz00_868 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1470z00_222 = 
CDR(BgL_auxz00_868); } 
BgL_arg1466z00_221 = 
BGl_prefixz00zz__osz00(BgL_arg1470z00_222); } 
BgL_arg1461z00_219 = 
BGl_jvmzd2classzd2sanszd2directoryzd2zzread_jvmz00(BgL_arg1466z00_221); } 
BgL_arg1463z00_220 = 
BGl_filezd2separatorzd2zz__osz00(); 
BgL_arg1456z00_217 = 
BGl_stringzd2replacezd2zztools_miscz00(BgL_arg1461z00_219, BgL_arg1463z00_220, 
BCHAR(((unsigned char)'.'))); } 
BGl_addzd2qualifiedzd2typez12z12zzread_jvmz00(BgL_namez00_181, BgL_arg1456z00_217, BNIL); } 
if(
CBOOL(BgL_mainz00_124))
{ /* ./Engine/link.scm 260 */
obj_t BgL_arg1477z00_224;obj_t BgL_arg1478z00_225;
{ /* ./Engine/link.scm 261 */
obj_t BgL_arg1484z00_228;
{ /* ./Engine/link.scm 265 */
obj_t BgL_auxz00_879;
BgL_auxz00_879 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1484z00_228 = 
CAR(BgL_auxz00_879); } 
{ /* ./Engine/link.scm 261 */
obj_t BgL_list1488z00_230;
{ /* ./Engine/link.scm 261 */
obj_t BgL_arg1490z00_231;
{ /* ./Engine/link.scm 261 */
obj_t BgL_arg1493z00_232;
{ /* ./Engine/link.scm 261 */
obj_t BgL_arg1496z00_233;
{ /* ./Engine/link.scm 261 */
obj_t BgL_arg1500z00_234;
BgL_arg1500z00_234 = 
MAKE_PAIR(BGl_string1876z00zzengine_linkz00, BNIL); 
BgL_arg1496z00_233 = 
MAKE_PAIR(BgL_arg1484z00_228, BgL_arg1500z00_234); } 
BgL_arg1493z00_232 = 
MAKE_PAIR(BGl_string1877z00zzengine_linkz00, BgL_arg1496z00_233); } 
BgL_arg1490z00_231 = 
MAKE_PAIR(BgL_fmainz00_125, BgL_arg1493z00_232); } 
BgL_list1488z00_230 = 
MAKE_PAIR(BGl_string1878z00zzengine_linkz00, BgL_arg1490z00_231); } 
BgL_arg1477z00_224 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1488z00_230); } } 
BgL_arg1478z00_225 = 
MAKE_PAIR(BgL_mainz00_124, BgL_newzd2mainzd2_182); 
FAILURE(BGl_string1856z00zzengine_linkz00,BgL_arg1477z00_224,BgL_arg1478z00_225);}  else 
{ /* ./Engine/link.scm 259 */((bool_t)0); } 
BGl_za2linkzd2mainzd2moduleza2z00zzengine_linkz00 = BgL_namez00_181; 
{ /* ./Engine/link.scm 268 */
obj_t BgL_arg1506z00_235;obj_t BgL_arg1507z00_236;obj_t BgL_arg1508z00_237;obj_t BgL_arg1511z00_238;
BgL_arg1506z00_235 = 
CDR(BgL_sourcesz00_122); 
{ /* ./Engine/link.scm 270 */
obj_t BgL_arg1516z00_239;
{ /* ./Engine/link.scm 270 */
obj_t BgL_arg1520z00_240;
{ /* ./Engine/link.scm 270 */
obj_t BgL_arg1530z00_244;
{ /* ./Engine/link.scm 271 */
obj_t BgL_auxz00_891;
BgL_auxz00_891 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1530z00_244 = 
CAR(BgL_auxz00_891); } 
BgL_arg1520z00_240 = 
string_append_3(BGl_string1875z00zzengine_linkz00, BgL_arg1530z00_244, BGl_string1875z00zzengine_linkz00); } 
{ /* ./Engine/link.scm 269 */
obj_t BgL_list1522z00_241;
{ /* ./Engine/link.scm 269 */
obj_t BgL_arg1524z00_242;
BgL_arg1524z00_242 = 
MAKE_PAIR(BgL_arg1520z00_240, BNIL); 
BgL_list1522z00_241 = 
MAKE_PAIR(BgL_namez00_181, BgL_arg1524z00_242); } 
BgL_arg1516z00_239 = BgL_list1522z00_241; } } 
BgL_arg1507z00_236 = 
MAKE_PAIR(BgL_arg1516z00_239, BgL_clsz00_123); } 
{ /* ./Engine/link.scm 274 */
obj_t BgL_auxz00_898;
BgL_auxz00_898 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1508z00_237 = 
CAR(BgL_auxz00_898); } 
{ /* ./Engine/link.scm 275 */
obj_t BgL_arg1537z00_246;
{ /* ./Engine/link.scm 275 */
obj_t BgL_arg1540z00_247;
{ /* ./Engine/link.scm 275 */
obj_t BgL_auxz00_901;
BgL_auxz00_901 = 
CDR(BgL_expz00_180); 
BgL_arg1540z00_247 = 
CDR(BgL_auxz00_901); } 
BgL_arg1537z00_246 = 
BGl_findzd2librarieszd2zzengine_linkz00(BgL_arg1540z00_247); } 
BgL_arg1511z00_238 = 
bgl_append2(BgL_arg1537z00_246, BgL_librariesz00_126); } 
{ 
obj_t BgL_librariesz00_910;obj_t BgL_fmainz00_909;obj_t BgL_mainz00_908;obj_t BgL_clsz00_907;obj_t BgL_sourcesz00_906;
BgL_sourcesz00_906 = BgL_arg1506z00_235; 
BgL_clsz00_907 = BgL_arg1507z00_236; 
BgL_mainz00_908 = BgL_newzd2mainzd2_182; 
BgL_fmainz00_909 = BgL_arg1508z00_237; 
BgL_librariesz00_910 = BgL_arg1511z00_238; 
BgL_librariesz00_126 = BgL_librariesz00_910; 
BgL_fmainz00_125 = BgL_fmainz00_909; 
BgL_mainz00_124 = BgL_mainz00_908; 
BgL_clsz00_123 = BgL_clsz00_907; 
BgL_sourcesz00_122 = BgL_sourcesz00_906; 
goto BgL_loopz00_127;} } }  else 
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1406z00_205;
BgL_arg1406z00_205 = 
CDR(BgL_gzd2119zd2_194); 
{ 
obj_t BgL_gzd2119zd2_912;
BgL_gzd2119zd2_912 = BgL_arg1406z00_205; 
BgL_gzd2119zd2_194 = BgL_gzd2119zd2_912; 
goto BgL_zc3anonymousza31391ze3z83_195;} } }  else 
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1414z00_207;
BgL_arg1414z00_207 = 
CDR(BgL_gzd2119zd2_194); 
{ 
obj_t BgL_gzd2119zd2_914;
BgL_gzd2119zd2_914 = BgL_arg1414z00_207; 
BgL_gzd2119zd2_194 = BgL_gzd2119zd2_914; 
goto BgL_zc3anonymousza31391ze3z83_195;} } }  else 
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1419z00_208;
BgL_arg1419z00_208 = 
CDR(BgL_gzd2119zd2_194); 
{ 
obj_t BgL_gzd2119zd2_916;
BgL_gzd2119zd2_916 = BgL_arg1419z00_208; 
BgL_gzd2119zd2_194 = BgL_gzd2119zd2_916; 
goto BgL_zc3anonymousza31391ze3z83_195;} } } }  else 
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1429z00_211;
BgL_arg1429z00_211 = 
CDR(BgL_gzd2119zd2_194); 
{ 
obj_t BgL_gzd2119zd2_918;
BgL_gzd2119zd2_918 = BgL_arg1429z00_211; 
BgL_gzd2119zd2_194 = BgL_gzd2119zd2_918; 
goto BgL_zc3anonymousza31391ze3z83_195;} } } }  else 
{ /* ./Engine/link.scm 251 */
obj_t BgL_arg1435z00_212;
{ /* ./Engine/link.scm 251 */
obj_t BgL_auxz00_919;
BgL_auxz00_919 = 
CDR(BgL_expz00_180); 
BgL_arg1435z00_212 = 
CAR(BgL_auxz00_919); } 
BgL_namez00_184 = BgL_arg1435z00_212; 
{ /* ./Engine/link.scm 281 */
obj_t BgL_arg1545z00_248;
{ /* ./Engine/link.scm 281 */
obj_t BgL_arg1549z00_250;obj_t BgL_arg1551z00_251;
{ /* ./Engine/link.scm 281 */
obj_t BgL_arg1554z00_252;
{ /* ./Engine/link.scm 281 */
obj_t BgL_arg1557z00_253;
{ /* ./Engine/link.scm 281 */
obj_t BgL_auxz00_922;
BgL_auxz00_922 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1557z00_253 = 
CDR(BgL_auxz00_922); } 
BgL_arg1554z00_252 = 
BGl_prefixz00zz__osz00(BgL_arg1557z00_253); } 
BgL_arg1549z00_250 = 
BGl_jvmzd2classzd2sanszd2directoryzd2zzread_jvmz00(BgL_arg1554z00_252); } 
BgL_arg1551z00_251 = 
BGl_filezd2separatorzd2zz__osz00(); 
BgL_arg1545z00_248 = 
BGl_stringzd2replacezd2zztools_miscz00(BgL_arg1549z00_250, BgL_arg1551z00_251, 
BCHAR(((unsigned char)'.'))); } 
BGl_addzd2qualifiedzd2typez12z12zzread_jvmz00(BgL_namez00_184, BgL_arg1545z00_248, BNIL); } 
{ /* ./Engine/link.scm 284 */
obj_t BgL_arg1562z00_254;obj_t BgL_arg1564z00_255;obj_t BgL_arg1565z00_256;
BgL_arg1562z00_254 = 
CDR(BgL_sourcesz00_122); 
{ /* ./Engine/link.scm 286 */
obj_t BgL_arg1569z00_257;
{ /* ./Engine/link.scm 286 */
obj_t BgL_arg1572z00_258;
{ /* ./Engine/link.scm 286 */
obj_t BgL_arg1586z00_262;
{ /* ./Engine/link.scm 287 */
obj_t BgL_auxz00_932;
BgL_auxz00_932 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1586z00_262 = 
CAR(BgL_auxz00_932); } 
BgL_arg1572z00_258 = 
string_append_3(BGl_string1875z00zzengine_linkz00, BgL_arg1586z00_262, BGl_string1875z00zzengine_linkz00); } 
{ /* ./Engine/link.scm 285 */
obj_t BgL_list1574z00_259;
{ /* ./Engine/link.scm 285 */
obj_t BgL_arg1576z00_260;
BgL_arg1576z00_260 = 
MAKE_PAIR(BgL_arg1572z00_258, BNIL); 
BgL_list1574z00_259 = 
MAKE_PAIR(BgL_namez00_184, BgL_arg1576z00_260); } 
BgL_arg1569z00_257 = BgL_list1574z00_259; } } 
BgL_arg1564z00_255 = 
MAKE_PAIR(BgL_arg1569z00_257, BgL_clsz00_123); } 
{ /* ./Engine/link.scm 291 */
obj_t BgL_arg1591z00_264;
{ /* ./Engine/link.scm 291 */
obj_t BgL_arg1594z00_265;
{ /* ./Engine/link.scm 291 */
obj_t BgL_auxz00_939;
BgL_auxz00_939 = 
CDR(BgL_expz00_180); 
BgL_arg1594z00_265 = 
CDR(BgL_auxz00_939); } 
BgL_arg1591z00_264 = 
BGl_findzd2librarieszd2zzengine_linkz00(BgL_arg1594z00_265); } 
BgL_arg1565z00_256 = 
bgl_append2(BgL_arg1591z00_264, BgL_librariesz00_126); } 
{ 
obj_t BgL_librariesz00_946;obj_t BgL_clsz00_945;obj_t BgL_sourcesz00_944;
BgL_sourcesz00_944 = BgL_arg1562z00_254; 
BgL_clsz00_945 = BgL_arg1564z00_255; 
BgL_librariesz00_946 = BgL_arg1565z00_256; 
BgL_librariesz00_126 = BgL_librariesz00_946; 
BgL_clsz00_123 = BgL_clsz00_945; 
BgL_sourcesz00_122 = BgL_sourcesz00_944; 
goto BgL_loopz00_127;} } } } } }  else 
{ /* ./Engine/link.scm 251 */
BgL_tagzd2103zd2_186:
{ /* ./Engine/link.scm 296 */
obj_t BgL_arg1599z00_266;
BgL_arg1599z00_266 = 
CDR(BgL_sourcesz00_122); 
{ 
obj_t BgL_sourcesz00_948;
BgL_sourcesz00_948 = BgL_arg1599z00_266; 
BgL_sourcesz00_122 = BgL_sourcesz00_948; 
goto BgL_loopz00_127;} } } }  else 
{ /* ./Engine/link.scm 251 */
goto BgL_tagzd2103zd2_186;} } }  else 
{ /* ./Engine/link.scm 251 */
goto BgL_tagzd2103zd2_186;} } } }  else 
{ /* ./Engine/link.scm 248 */
obj_t BgL_arg1608z00_270;
{ /* ./Engine/link.scm 248 */
obj_t BgL_auxz00_949;
BgL_auxz00_949 = 
CAR(BgL_sourcesz00_122); 
BgL_arg1608z00_270 = 
CAR(BgL_auxz00_949); } 
FAILURE(BGl_string1856z00zzengine_linkz00,BGl_string1879z00zzengine_linkz00,BgL_arg1608z00_270);} } } } } } } } 
}



/* <exit:1375> */
obj_t BGl_zc3exitza31375ze3z83zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 227 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1026z00_176;
if( SET_EXIT(BgL_an_exit1026z00_176) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1026z00_176 = 
(obj_t)jmpbuf; 
{ /* ./Engine/link.scm 227 */

PUSH_EXIT(BgL_an_exit1026z00_176, ((bool_t)0)); 
{ /* ./Engine/link.scm 225 */
obj_t BgL_val1027z00_177;
BgL_val1027z00_177 = 
BGl_compilerz00zzengine_compilerz00(); 
POP_EXIT(); 
return BgL_val1027z00_177;} } 
} } 
}



/* find-libraries */
obj_t BGl_findzd2librarieszd2zzengine_linkz00(obj_t BgL_clausesz00_6)
{ AN_OBJECT;
{ /* ./Engine/link.scm 305 */
{ 
obj_t BgL_clausesz00_280;obj_t BgL_librariesz00_281;
BgL_clausesz00_280 = BgL_clausesz00_6; 
BgL_librariesz00_281 = BNIL; 
BgL_loopz00_282:
{ 

{ /* ./Engine/link.scm 306 */
bool_t BgL_test1633z00_289;
BgL_test1633z00_289 = 
NULLP(BgL_clausesz00_280); 
if(BgL_test1633z00_289)
{ /* ./Engine/link.scm 306 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_librariesz00_281);}  else 
{ /* ./Engine/link.scm 306 */
bool_t BgL_test1635z00_290;
BgL_test1635z00_290 = 
PAIRP(BgL_clausesz00_280); 
if(BgL_test1635z00_290)
{ /* ./Engine/link.scm 306 */
obj_t BgL_carzd2166zd2_291;
BgL_carzd2166zd2_291 = 
CAR(BgL_clausesz00_280); 
{ /* ./Engine/link.scm 306 */
bool_t BgL_test1636z00_292;
BgL_test1636z00_292 = 
PAIRP(BgL_carzd2166zd2_291); 
if(BgL_test1636z00_292)
{ /* ./Engine/link.scm 306 */
bool_t BgL_test1637z00_293;
{ /* ./Engine/link.scm 306 */
obj_t BgL_auxz00_968;obj_t BgL_auxz00_966;
BgL_auxz00_968 = 
CNST_TABLE_REF(((long)7)); 
BgL_auxz00_966 = 
CAR(BgL_carzd2166zd2_291); 
BgL_test1637z00_293 = 
(BgL_auxz00_966==BgL_auxz00_968); } 
if(BgL_test1637z00_293)
{ /* ./Engine/link.scm 306 */
obj_t BgL_arg1641z00_294;obj_t BgL_arg1642z00_295;
BgL_arg1641z00_294 = 
CDR(BgL_carzd2166zd2_291); 
BgL_arg1642z00_295 = 
CDR(BgL_clausesz00_280); 
{ /* ./Engine/link.scm 306 */
obj_t BgL_arg1661z00_515;
BgL_arg1661z00_515 = 
bgl_append2(BgL_arg1641z00_294, BgL_librariesz00_281); 
{ 
obj_t BgL_librariesz00_976;obj_t BgL_clausesz00_975;
BgL_clausesz00_975 = BgL_arg1642z00_295; 
BgL_librariesz00_976 = BgL_arg1661z00_515; 
BgL_librariesz00_281 = BgL_librariesz00_976; 
BgL_clausesz00_280 = BgL_clausesz00_975; 
goto BgL_loopz00_282;} } }  else 
{ /* ./Engine/link.scm 306 */
BgL_tagzd2158zd2_287:
{ /* ./Engine/link.scm 314 */
obj_t BgL_arg1666z00_299;
BgL_arg1666z00_299 = 
CDR(BgL_clausesz00_280); 
{ 
obj_t BgL_clausesz00_978;
BgL_clausesz00_978 = BgL_arg1666z00_299; 
BgL_clausesz00_280 = BgL_clausesz00_978; 
goto BgL_loopz00_282;} } } }  else 
{ /* ./Engine/link.scm 306 */
goto BgL_tagzd2158zd2_287;} } }  else 
{ /* ./Engine/link.scm 306 */
goto BgL_tagzd2158zd2_287;} } } } } } 
}



/* make-tmp-main */
obj_t BGl_makezd2tmpzd2mainz00zzengine_linkz00(obj_t BgL_clausesz00_7, obj_t BgL_mainz00_8, obj_t BgL_librariesz00_9)
{ AN_OBJECT;
{ /* ./Engine/link.scm 319 */
{ /* ./Engine/link.scm 320 */
obj_t BgL_poutz00_300;bool_t BgL_generatezd2mainzf3z21_301;
{ /* ./Engine/link.scm 320 */
obj_t BgL_stringz00_518;
BgL_stringz00_518 = BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00; 
BgL_poutz00_300 = 
open_output_file(BgL_stringz00_518); } 
{ /* ./Engine/link.scm 321 */
obj_t BgL__andtest_1030z00_330;
BgL__andtest_1030z00_330 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)5))); 
if(
CBOOL(BgL__andtest_1030z00_330))
{ /* ./Engine/link.scm 321 */
if(
CBOOL(BgL_mainz00_8))
{ /* ./Engine/link.scm 322 */
BgL_generatezd2mainzf3z21_301 = ((bool_t)0); }  else 
{ /* ./Engine/link.scm 322 */
BgL_generatezd2mainzf3z21_301 = ((bool_t)1); } }  else 
{ /* ./Engine/link.scm 321 */
BgL_generatezd2mainzf3z21_301 = ((bool_t)0); } } 
{ /* ./Engine/link.scm 323 */
bool_t BgL_test1669z00_302;
BgL_test1669z00_302 = 
OUTPUT_PORTP(BgL_poutz00_300); 
if(BgL_test1669z00_302)
{ /* ./Engine/link.scm 323 */
display_string(BGl_string1880z00zzengine_linkz00, BgL_poutz00_300); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2bigloozd2nameza2zd2zzengine_paramz00, BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); 
display_string(BGl_string1881z00zzengine_linkz00, BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); 
display_string(BGl_string1882z00zzengine_linkz00, BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); 
{ /* ./Engine/link.scm 332 */
obj_t BgL_modulez00_307;
{ /* ./Engine/link.scm 335 */
obj_t BgL_arg1682z00_309;obj_t BgL_arg1683z00_310;
BgL_arg1682z00_309 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Engine/link.scm 336 */
obj_t BgL_arg1686z00_311;
{ /* ./Engine/link.scm 336 */
obj_t BgL_arg1689z00_312;obj_t BgL_arg1690z00_313;
{ /* ./Engine/link.scm 336 */
obj_t BgL_arg1695z00_314;obj_t BgL_arg1696z00_315;
BgL_arg1695z00_314 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg1696z00_315 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
bgl_reverse(BgL_clausesz00_7), BNIL); 
BgL_arg1689z00_312 = 
MAKE_PAIR(BgL_arg1695z00_314, BgL_arg1696z00_315); } 
{ /* ./Engine/link.scm 337 */
obj_t BgL_arg1704z00_318;obj_t BgL_arg1705z00_319;
if(BgL_generatezd2mainzf3z21_301)
{ /* ./Engine/link.scm 337 */
BgL_arg1704z00_318 = 
CNST_TABLE_REF(((long)9)); }  else 
{ /* ./Engine/link.scm 337 */
BgL_arg1704z00_318 = BNIL; } 
{ /* ./Engine/link.scm 340 */
obj_t BgL_arg1709z00_320;
{ /* ./Engine/link.scm 340 */
bool_t BgL_test1713z00_322;
BgL_test1713z00_322 = 
PAIRP(BgL_librariesz00_9); 
if(BgL_test1713z00_322)
{ /* ./Engine/link.scm 341 */
obj_t BgL_arg1715z00_323;
{ /* ./Engine/link.scm 341 */
obj_t BgL_arg1719z00_325;obj_t BgL_arg1720z00_326;
BgL_arg1719z00_325 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg1720z00_326 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_librariesz00_9, BNIL); 
BgL_arg1715z00_323 = 
MAKE_PAIR(BgL_arg1719z00_325, BgL_arg1720z00_326); } 
BgL_arg1709z00_320 = 
MAKE_PAIR(BgL_arg1715z00_323, BNIL); }  else 
{ /* ./Engine/link.scm 340 */
BgL_arg1709z00_320 = BNIL; } } 
BgL_arg1705z00_319 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1709z00_320, BNIL); } 
BgL_arg1690z00_313 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1704z00_318, BgL_arg1705z00_319); } 
BgL_arg1686z00_311 = 
MAKE_PAIR(BgL_arg1689z00_312, BgL_arg1690z00_313); } 
BgL_arg1683z00_310 = 
MAKE_PAIR(BGl_za2linkzd2moduleza2zd2zzengine_linkz00, BgL_arg1686z00_311); } 
BgL_modulez00_307 = 
MAKE_PAIR(BgL_arg1682z00_309, BgL_arg1683z00_310); } 
{ /* ./Engine/link.scm 335 */

BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_modulez00_307, BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); } } 
if(BgL_generatezd2mainzf3z21_301)
{ /* ./Engine/link.scm 345 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
CNST_TABLE_REF(((long)10)), BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); }  else 
{ /* ./Engine/link.scm 345 */BFALSE; } 
if(
CBOOL(BgL_mainz00_8))
{ /* ./Engine/link.scm 347 */
display_string(BGl_string1883z00zzengine_linkz00, BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); 
WRITE_CHAR(((unsigned char)'\n'), BgL_poutz00_300); }  else 
{ /* ./Engine/link.scm 347 */BFALSE; } 
BGl_za2moduleza2z00zzmodule_modulez00 = BGl_za2linkzd2moduleza2zd2zzengine_linkz00; 
return 
close_output_port(BgL_poutz00_300);}  else 
{ /* ./Engine/link.scm 324 */
obj_t BgL_objectz00_533;
BgL_objectz00_533 = BGl_za2tmpzd2mainzd2filezd2nameza2zd2zzengine_linkz00; 
FAILURE(BGl_string1856z00zzengine_linkz00,BGl_string1884z00zzengine_linkz00,BgL_objectz00_533);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 20 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzengine_linkz00()
{ AN_OBJECT;
{ /* ./Engine/link.scm 20 */
BGl_modulezd2initializa7ationz75zzcc_ldz00(((long)36014), "engine_link"); 
BGl_modulezd2initializa7ationz75zzread_readerz00(((long)38783), "engine_link"); 
BGl_modulezd2initializa7ationz75zzengine_compilerz00(((long)3533), "engine_link"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "engine_link"); 
BGl_modulezd2initializa7ationz75zzbdb_settingz00(((long)20468), "engine_link"); 
BGl_modulezd2initializa7ationz75zzinit_setrcz00(((long)1658), "engine_link"); 
BGl_modulezd2initializa7ationz75zzmodule_alibraryz00(((long)22575), "engine_link"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "engine_link"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "engine_link"); 
BGl_modulezd2initializa7ationz75zzjvm_ldz00(((long)12620), "engine_link"); 
BGl_modulezd2initializa7ationz75zzdotnet_ldz00(((long)13132), "engine_link"); 
BGl_modulezd2initializa7ationz75zzread_jvmz00(((long)16338), "engine_link"); 
return 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "engine_link");} 
}

