/*===========================================================================*/
/*   (Cc/ld.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 Cc/ld.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

extern obj_t BGl_za2doublezd2ldzd2libszf3za2zf3zzengine_paramz00;
static obj_t BGl_zc3exitza32361ze3z83zzcc_ldz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_za2bigloozd2librarieszd2translationzd2tableza2zd2zzengine_paramz00;
BGL_EXPORTED_DECL obj_t BGl_ldz00zzcc_ldz00(obj_t, bool_t);
extern obj_t BGl_za2ldzd2relativeza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_za2bigloozd2userzd2libza2z00zzengine_paramz00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_za2unsafezd2libraryza2zd2zzengine_paramz00;
BGL_EXPORTED_DECL obj_t BGl_libzd2ze3stringz31zzcc_ldz00(obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
BGL_IMPORT bool_t rgc_fill_buffer(obj_t);
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
extern obj_t BGl_za2gczd2libza2zd2zzengine_paramz00;
static obj_t BGl_unixzd2ldzd2zzcc_ldz00(obj_t, bool_t);
static obj_t BGl_case_else1037z00zzcc_ldz00(long);
extern obj_t BGl_za2ldzd2postzd2optionsza2z00zzengine_paramz00;
static obj_t BGl_case_else1064z00zzcc_ldz00(long);
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzcc_ldz00();
extern obj_t BGl_za2multizd2threadedzd2gczf3za2zf3zzengine_paramz00;
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcc_ldz00();
extern obj_t BGl_za2withzd2filesza2zd2zzengine_paramz00;
extern obj_t BGl_execz00zzcc_execz00(obj_t, bool_t, obj_t);
static obj_t BGl_zc3anonymousza31762ze3z83zzcc_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00;
static obj_t BGl__libraryzd2suffixzd2zzcc_ldz00(obj_t);
static obj_t BGl_zc3exitza31754ze3z83zzcc_ldz00(obj_t);
BGL_IMPORT obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl__userzd2libzd2namez00zzcc_ldz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_userzd2libzd2namez00zzcc_ldz00(obj_t);
extern obj_t BGl_za2ldzd2optionsza2zd2zzengine_paramz00;
static obj_t BGl_makezd2libzd2namez00zzcc_ldz00(obj_t, obj_t, obj_t, bool_t, bool_t);
extern obj_t BGl_za2czd2objectzd2filezd2extensionza2zd2zzengine_paramz00;
static obj_t BGl__libzd2ze3stringz31zzcc_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2ldzd2ozd2optionza2z00zzengine_paramz00;
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcc_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcc_execz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_configurez00(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__processz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(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_strings_6_7z00(long, char *);
extern obj_t BGl_stringza2zd2ze3stringz93zztools_miscz00(obj_t);
static char * BGl_profilezd2gczd2debugzd2libraryzd2suffixz00zzcc_ldz00();
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2ldzd2debugzd2optionza2z00zzengine_paramz00;
BGL_IMPORT obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t, obj_t);
extern obj_t BGl_za2gczd2customzf3za2z21zzengine_paramz00;
BGL_IMPORT obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static char * BGl_secondaryzd2libraryzd2suffixz00zzcc_ldz00();
static obj_t BGl__ldz00zzcc_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2libzd2dirza2zd2zzengine_paramz00;
BGL_IMPORT obj_t bgl_reverse(obj_t);
static obj_t BGl_libzb2suffixzb2zzcc_ldz00(obj_t, obj_t, bool_t);
extern obj_t BGl_za2stripza2z00zzengine_paramz00;
extern obj_t BGl_za2ozd2filesza2zd2zzengine_paramz00;
BGL_IMPORT obj_t string_append(obj_t, obj_t);
BGL_IMPORT obj_t BGl_oszd2classzd2zz__osz00();
extern obj_t BGl_za2ccza2z00zzengine_paramz00;
static obj_t BGl_normaliza7ezd2win32zd2libzd2namez75zzcc_ldz00(obj_t);
BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern obj_t BGl_stringzd2splitzd2zztools_miscz00(obj_t, obj_t);
extern obj_t BGl_za2staticzd2bigloozf3za2z21zzengine_paramz00;
extern obj_t BGl_za2profilezd2libraryza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(obj_t);
extern obj_t BGl_za2ldzd2optimzd2flagsza2z00zzengine_paramz00;
extern obj_t BGl_za2destza2z00zzengine_paramz00;
BGL_IMPORT obj_t BGl_runzd2processzd2zz__processz00(obj_t, obj_t);
static obj_t BGl_loopz00zzcc_ldz00(obj_t);
static obj_t BGl_STATEzd20zd21022z00zzcc_ldz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_loopz72z72zzcc_ldz00(obj_t);
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_libraryzd2suffixzd2zzcc_ldz00();
static obj_t BGl_STATEzd20zd21049z00zzcc_ldz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t close_input_port(obj_t);
static obj_t BGl_ignore_2707z00zzcc_ldz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_suffixz00zz__osz00(obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
BGL_IMPORT obj_t BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(obj_t);
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_za2cczd2optionsza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_defaultzd2executablezd2namez00zz__osz00();
static obj_t BGl_requirezd2initializa7ationz75zzcc_ldz00 = BUNSPEC;
static obj_t BGl_win32zd2ldzd2zzcc_ldz00(obj_t);
BGL_IMPORT obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_za2czd2debugza2zd2zzengine_paramz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzcc_ldz00();
static obj_t BGl_decodezd2libzd2namez00zzcc_ldz00(obj_t);
static obj_t BGl_ignorez00zzcc_ldz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32368ze3z83zzcc_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2bigloozd2vlibza2zd2zzengine_paramz00;
static obj_t __cnst[ 3 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_userzd2libzd2namezd2envzd2zzcc_ldz00, BgL_bgl__userza7d2libza7d2nameza700za7za7cc_ldza7003099z00, BGl__userzd2libzd2namez00zzcc_ldz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_libraryzd2suffixzd2envz00zzcc_ldz00, BgL_bgl__libraryza7d2suffixza7d2za7za7cc_ldza7003100za7, BGl__libraryzd2suffixzd2zzcc_ldz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc3061z00zzcc_ldz00, BgL_bgl_stateza7d20za7d21022za700za7za7cc_ldza7003101z00, BGl_STATEzd20zd21022z00zzcc_ldz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_libzd2ze3stringzd2envze3zzcc_ldz00, BgL_bgl__libza7d2za7e3stringza731za7za7cc_ldza7003102z00, va_generic_entry, BGl__libzd2ze3stringz31zzcc_ldz00, -2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3067z00zzcc_ldz00, BgL_bgl_stateza7d20za7d21049za700za7za7cc_ldza7003103z00, BGl_STATEzd20zd21049z00zzcc_ldz00, 0L, 3 );
DEFINE_STRING( BGl_string3069z00zzcc_ldz00, BgL_bgl_string3069za700za7za7cc_ldza7003104z00, "(wait: #t) .net c ", 18 );
DEFINE_STRING( BGl_string3068z00zzcc_ldz00, BgL_bgl_string3068za700za7za7cc_ldza7003105z00, ".lib", 4 );
DEFINE_STRING( BGl_string3066z00zzcc_ldz00, BgL_bgl_string3066za700za7za7cc_ldza7003106z00, "/LIBPATH:", 9 );
DEFINE_STRING( BGl_string3065z00zzcc_ldz00, BgL_bgl_string3065za700za7za7cc_ldza7003107z00, "      ", 6 );
DEFINE_STRING( BGl_string3064z00zzcc_ldz00, BgL_bgl_string3064za700za7za7cc_ldza7003108z00, "]", 1 );
DEFINE_STRING( BGl_string3063z00zzcc_ldz00, BgL_bgl_string3063za700za7za7cc_ldza7003109z00, "[", 1 );
DEFINE_STRING( BGl_string3062z00zzcc_ldz00, BgL_bgl_string3062za700za7za7cc_ldza7003110z00, "/link", 5 );
DEFINE_STRING( BGl_string3060z00zzcc_ldz00, BgL_bgl_string3060za700za7za7cc_ldza7003111z00, "Illegal match", 13 );
DEFINE_STRING( BGl_string3059z00zzcc_ldz00, BgL_bgl_string3059za700za7za7cc_ldza7003112z00, "regular-grammar", 15 );
DEFINE_STRING( BGl_string3058z00zzcc_ldz00, BgL_bgl_string3058za700za7za7cc_ldza7003113z00, "-L", 2 );
DEFINE_STRING( BGl_string3057z00zzcc_ldz00, BgL_bgl_string3057za700za7za7cc_ldza7003114z00, "      [", 7 );
DEFINE_STRING( BGl_string3056z00zzcc_ldz00, BgL_bgl_string3056za700za7za7cc_ldza7003115z00, ".", 1 );
DEFINE_STRING( BGl_string3055z00zzcc_ldz00, BgL_bgl_string3055za700za7za7cc_ldza7003116z00, " ", 1 );
DEFINE_STRING( BGl_string3054z00zzcc_ldz00, BgL_bgl_string3054za700za7za7cc_ldza7003117z00, "   . ld (", 9 );
DEFINE_STRING( BGl_string3053z00zzcc_ldz00, BgL_bgl_string3053za700za7za7cc_ldza7003118z00, ")", 1 );
DEFINE_STRING( BGl_string3052z00zzcc_ldz00, BgL_bgl_string3052za700za7za7cc_ldza7003119z00, "_s", 2 );
DEFINE_STRING( BGl_string3051z00zzcc_ldz00, BgL_bgl_string3051za700za7za7cc_ldza7003120z00, "_u", 2 );
DEFINE_STRING( BGl_string3050z00zzcc_ldz00, BgL_bgl_string3050za700za7za7cc_ldza7003121z00, "_d", 2 );
DEFINE_STRING( BGl_string3049z00zzcc_ldz00, BgL_bgl_string3049za700za7za7cc_ldza7003122z00, "_p", 2 );
DEFINE_STRING( BGl_string3048z00zzcc_ldz00, BgL_bgl_string3048za700za7za7cc_ldza7003123z00, "make-library-name", 17 );
DEFINE_STRING( BGl_string3047z00zzcc_ldz00, BgL_bgl_string3047za700za7za7cc_ldza7003124z00, "Illegal table library name entry -- ", 36 );
DEFINE_STRING( BGl_string3046z00zzcc_ldz00, BgL_bgl_string3046za700za7za7cc_ldza7003125z00, " in path \"", 10 );
DEFINE_STRING( BGl_string3045z00zzcc_ldz00, BgL_bgl_string3045za700za7za7cc_ldza7003126z00, "\".", 2 );
DEFINE_STRING( BGl_string3044z00zzcc_ldz00, BgL_bgl_string3044za700za7za7cc_ldza7003127z00, ".\nTrying replacement library \"", 30 );
DEFINE_STRING( BGl_string3043z00zzcc_ldz00, BgL_bgl_string3043za700za7za7cc_ldza7003128z00, "bigloo", 6 );
DEFINE_STRING( BGl_string3042z00zzcc_ldz00, BgL_bgl_string3042za700za7za7cc_ldza7003129z00, "\"", 1 );
DEFINE_STRING( BGl_string3041z00zzcc_ldz00, BgL_bgl_string3041za700za7za7cc_ldza7003130z00, "Can't find library \"", 20 );
DEFINE_STRING( BGl_string3039z00zzcc_ldz00, BgL_bgl_string3039za700za7za7cc_ldza7003131z00, "lib", 3 );
DEFINE_STRING( BGl_string3040z00zzcc_ldz00, BgL_bgl_string3040za700za7za7cc_ldza7003132z00, "-l", 2 );
DEFINE_STRING( BGl_string3038z00zzcc_ldz00, BgL_bgl_string3038za700za7za7cc_ldza7003133z00, "Unimplemented target language", 29 );
DEFINE_STRING( BGl_string3037z00zzcc_ldz00, BgL_bgl_string3037za700za7za7cc_ldza7003134z00, "linker", 6 );
DEFINE_STRING( BGl_string3036z00zzcc_ldz00, BgL_bgl_string3036za700za7za7cc_ldza7003135z00, "-", 1 );
DEFINE_STRING( BGl_string3035z00zzcc_ldz00, BgL_bgl_string3035za700za7za7cc_ldza7003136z00, "", 0 );
DEFINE_STRING( BGl_string3034z00zzcc_ldz00, BgL_bgl_string3034za700za7za7cc_ldza7003137z00, "Illegal library name", 20 );
DEFINE_STRING( BGl_string3033z00zzcc_ldz00, BgL_bgl_string3033za700za7za7cc_ldza7003138z00, "Unknown os", 10 );
DEFINE_STRING( BGl_string3032z00zzcc_ldz00, BgL_bgl_string3032za700za7za7cc_ldza7003139z00, "ld", 2 );
DEFINE_STRING( BGl_string3031z00zzcc_ldz00, BgL_bgl_string3031za700za7za7cc_ldza7003140z00, "win32", 5 );
DEFINE_STRING( BGl_string3030z00zzcc_ldz00, BgL_bgl_string3030za700za7za7cc_ldza7003141z00, "unix", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_ldzd2envzd2zzcc_ldz00, BgL_bgl__ldza700za7za7cc_ldza7003142z00, BGl__ldz00zzcc_ldz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcc_ldz00(long BgL_checksumz00_1532, char * BgL_fromz00_1533)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcc_ldz00))
{ 
BGl_requirezd2initializa7ationz75zzcc_ldz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcc_ldz00(); 
BGl_cnstzd2initzd2zzcc_ldz00(); 
BGl_importedzd2moduleszd2initz00zzcc_ldz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcc_ldz00()
{ AN_OBJECT;
{ /* ./Cc/ld.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__processz00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "cc_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "cc_ld"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcc_ldz00()
{ AN_OBJECT;
{ /* ./Cc/ld.scm 15 */
{ /* ./Cc/ld.scm 15 */
obj_t BgL_cportz00_1525;
BgL_cportz00_1525 = 
open_input_string(BGl_string3069z00zzcc_ldz00); 
{ 
long BgL_iz00_1526;
BgL_iz00_1526 = ((long)2); 
BgL_loopz00_1527:
{ /* ./Cc/ld.scm 15 */
bool_t BgL_test3071z00_1528;
BgL_test3071z00_1528 = 
(BgL_iz00_1526==((long)-1)); 
if(BgL_test3071z00_1528)
{ /* ./Cc/ld.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cc/ld.scm 15 */
{ /* ./Cc/ld.scm 15 */
obj_t BgL_arg3073z00_1529;
{ /* ./Cc/ld.scm 15 */
obj_t BgL_list3076z00_1530;
BgL_list3076z00_1530 = 
MAKE_PAIR(BgL_cportz00_1525, BNIL); 
BgL_arg3073z00_1529 = 
BGl_readz00zz__readerz00(BgL_list3076z00_1530); } 
{ /* ./Cc/ld.scm 15 */
int BgL_auxz00_1553;
BgL_auxz00_1553 = 
(int)(BgL_iz00_1526); 
CNST_TABLE_SET(BgL_auxz00_1553, BgL_arg3073z00_1529); } } 
{ /* ./Cc/ld.scm 15 */
int BgL_auxz00_1531;
{ /* ./Cc/ld.scm 15 */
long BgL_auxz00_1556;
BgL_auxz00_1556 = 
(BgL_iz00_1526-((long)1)); 
BgL_auxz00_1531 = 
(int)(BgL_auxz00_1556); } 
{ 
long BgL_iz00_1559;
BgL_iz00_1559 = 
(long)(BgL_auxz00_1531); 
BgL_iz00_1526 = BgL_iz00_1559; 
goto BgL_loopz00_1527;} } } } } } } 
}



/* ld */
BGL_EXPORTED_DEF obj_t BGl_ldz00zzcc_ldz00(obj_t BgL_namez00_1, bool_t BgL_needzd2tozd2returnz00_2)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 30 */
{ /* ./Cc/ld.scm 32 */
bool_t BgL_test1076z00_19;
{ /* ./Cc/ld.scm 32 */
obj_t BgL_arg1096z00_27;
BgL_arg1096z00_27 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1076z00_19 = 
bigloo_strcmp(BgL_arg1096z00_27, BGl_string3030z00zzcc_ldz00); } 
if(BgL_test1076z00_19)
{ /* ./Cc/ld.scm 32 */
return 
BGl_unixzd2ldzd2zzcc_ldz00(BgL_namez00_1, BgL_needzd2tozd2returnz00_2);}  else 
{ /* ./Cc/ld.scm 34 */
bool_t BgL_test1078z00_20;
{ /* ./Cc/ld.scm 34 */
obj_t BgL_arg1090z00_25;
BgL_arg1090z00_25 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1078z00_20 = 
bigloo_strcmp(BgL_arg1090z00_25, BGl_string3031z00zzcc_ldz00); } 
if(BgL_test1078z00_20)
{ /* ./Cc/ld.scm 34 */
return 
BGl_win32zd2ldzd2zzcc_ldz00(BgL_namez00_1);}  else 
{ /* ./Cc/ld.scm 34 */
{ /* ./Cc/ld.scm 37 */
obj_t BgL_arg1085z00_23;
BgL_arg1085z00_23 = 
BGl_oszd2classzd2zz__osz00(); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3032z00zzcc_ldz00, BGl_string3033z00zzcc_ldz00, BgL_arg1085z00_23, BNIL);} } } } } 
}



/* _ld */
obj_t BGl__ldz00zzcc_ldz00(obj_t BgL_envz00_1480, obj_t BgL_namez00_1481, obj_t BgL_needzd2tozd2returnz00_1482)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 30 */
return 
BGl_ldz00zzcc_ldz00(BgL_namez00_1481, 
CBOOL(BgL_needzd2tozd2returnz00_1482));} 
}



/* decode-lib-name */
obj_t BGl_decodezd2libzd2namez00zzcc_ldz00(obj_t BgL_libz00_3)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 42 */
{ 

{ /* ./Cc/ld.scm 43 */
bool_t BgL_test1100z00_35;
BgL_test1100z00_35 = 
STRINGP(BgL_libz00_3); 
if(BgL_test1100z00_35)
{ /* ./Cc/ld.scm 43 */
{ /* ./Cc/ld.scm 45 */
int BgL_nz00_985;
BgL_nz00_985 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_985); } 
{ /* ./Cc/ld.scm 45 */
int BgL_nz00_986;
BgL_nz00_986 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_nz00_986, BFALSE); } 
return BgL_libz00_3;}  else 
{ /* ./Cc/ld.scm 43 */
bool_t BgL_test1102z00_36;
BgL_test1102z00_36 = 
PAIRP(BgL_libz00_3); 
if(BgL_test1102z00_36)
{ /* ./Cc/ld.scm 43 */
obj_t BgL_carzd2111zd2_37;obj_t BgL_cdrzd2112zd2_38;
BgL_carzd2111zd2_37 = 
CAR(BgL_libz00_3); 
BgL_cdrzd2112zd2_38 = 
CDR(BgL_libz00_3); 
{ /* ./Cc/ld.scm 43 */
bool_t BgL_test1103z00_39;
BgL_test1103z00_39 = 
STRINGP(BgL_carzd2111zd2_37); 
if(BgL_test1103z00_39)
{ /* ./Cc/ld.scm 43 */
bool_t BgL_test1104z00_40;
BgL_test1104z00_40 = 
STRINGP(BgL_cdrzd2112zd2_38); 
if(BgL_test1104z00_40)
{ /* ./Cc/ld.scm 43 */
{ /* ./Cc/ld.scm 43 */
int BgL_nz00_982;
BgL_nz00_982 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_982); } 
{ /* ./Cc/ld.scm 43 */
int BgL_nz00_983;
BgL_nz00_983 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_nz00_983, BgL_cdrzd2112zd2_38); } 
return BgL_carzd2111zd2_37;}  else 
{ /* ./Cc/ld.scm 43 */
BgL_tagzd2103zd2_33:
FAILURE(BGl_string3032z00zzcc_ldz00,BGl_string3034z00zzcc_ldz00,BgL_libz00_3);} }  else 
{ /* ./Cc/ld.scm 43 */
goto BgL_tagzd2103zd2_33;} } }  else 
{ /* ./Cc/ld.scm 43 */
goto BgL_tagzd2103zd2_33;} } } } } 
}



/* lib->string */
BGL_EXPORTED_DEF obj_t BGl_libzd2ze3stringz31zzcc_ldz00(obj_t BgL_libz00_4, obj_t BgL_suz00_5)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 54 */
{ /* ./Cc/ld.scm 55 */
obj_t BgL_basez00_45;
BgL_basez00_45 = 
BGl_decodezd2libzd2namez00zzcc_ldz00(BgL_libz00_4); 
{ /* ./Cc/ld.scm 58 */
obj_t BgL_verz00_46;
{ /* ./Cc/ld.scm 58 */
int BgL_nz00_996;
BgL_nz00_996 = 
(int)(((long)1)); 
BgL_verz00_46 = 
BGL_MVALUES_VAL(BgL_nz00_996); } 
{ /* ./Cc/ld.scm 58 */
bool_t BgL_test1120z00_47;
{ /* ./Cc/ld.scm 58 */
obj_t BgL_arg1200z00_78;
BgL_arg1200z00_78 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1120z00_47 = 
bigloo_strcmp(BgL_arg1200z00_78, BGl_string3030z00zzcc_ldz00); } 
if(BgL_test1120z00_47)
{ /* ./Cc/ld.scm 58 */
if(
CBOOL(BgL_verz00_46))
{ /* ./Cc/ld.scm 60 */
obj_t BgL_arg1122z00_48;
if(
PAIRP(BgL_suz00_5))
{ /* ./Cc/ld.scm 60 */
BgL_arg1122z00_48 = 
CAR(BgL_suz00_5); }  else 
{ /* ./Cc/ld.scm 60 */
BgL_arg1122z00_48 = BGl_string3035z00zzcc_ldz00; } 
{ /* ./Cc/ld.scm 60 */
obj_t BgL_list1125z00_50;
{ /* ./Cc/ld.scm 60 */
obj_t BgL_arg1127z00_51;
{ /* ./Cc/ld.scm 60 */
obj_t BgL_arg1130z00_52;
{ /* ./Cc/ld.scm 60 */
obj_t BgL_arg1133z00_53;
BgL_arg1133z00_53 = 
MAKE_PAIR(BgL_verz00_46, BNIL); 
BgL_arg1130z00_52 = 
MAKE_PAIR(BGl_string3036z00zzcc_ldz00, BgL_arg1133z00_53); } 
BgL_arg1127z00_51 = 
MAKE_PAIR(BgL_arg1122z00_48, BgL_arg1130z00_52); } 
BgL_list1125z00_50 = 
MAKE_PAIR(BgL_basez00_45, BgL_arg1127z00_51); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1125z00_50);} }  else 
{ /* ./Cc/ld.scm 61 */
obj_t BgL_arg1140z00_55;
if(
PAIRP(BgL_suz00_5))
{ /* ./Cc/ld.scm 61 */
BgL_arg1140z00_55 = 
CAR(BgL_suz00_5); }  else 
{ /* ./Cc/ld.scm 61 */
BgL_arg1140z00_55 = BGl_string3035z00zzcc_ldz00; } 
return 
string_append(BgL_basez00_45, BgL_arg1140z00_55);} }  else 
{ /* ./Cc/ld.scm 62 */
bool_t BgL_test1146z00_57;
{ /* ./Cc/ld.scm 62 */
obj_t BgL_arg1195z00_76;
BgL_arg1195z00_76 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1146z00_57 = 
bigloo_strcmp(BgL_arg1195z00_76, BGl_string3031z00zzcc_ldz00); } 
if(BgL_test1146z00_57)
{ /* ./Cc/ld.scm 62 */
{ /* ./Cc/ld.scm 63 */
obj_t BgL_casezd2valuezd2_58;
BgL_casezd2valuezd2_58 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
{ /* ./Cc/ld.scm 63 */
bool_t BgL_test1147z00_59;
BgL_test1147z00_59 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_58, 
CNST_TABLE_REF(((long)0))); 
if(BgL_test1147z00_59)
{ /* ./Cc/ld.scm 65 */
obj_t BgL_arg1149z00_60;
if(
PAIRP(BgL_suz00_5))
{ /* ./Cc/ld.scm 65 */
BgL_arg1149z00_60 = 
CAR(BgL_suz00_5); }  else 
{ /* ./Cc/ld.scm 65 */
BgL_arg1149z00_60 = BGl_string3035z00zzcc_ldz00; } 
return 
string_append(BgL_basez00_45, BgL_arg1149z00_60);}  else 
{ /* ./Cc/ld.scm 63 */
bool_t BgL_test1154z00_62;
BgL_test1154z00_62 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_58, 
CNST_TABLE_REF(((long)1))); 
if(BgL_test1154z00_62)
{ /* ./Cc/ld.scm 63 */
if(
CBOOL(BgL_verz00_46))
{ /* ./Cc/ld.scm 68 */
obj_t BgL_arg1156z00_63;
if(
PAIRP(BgL_suz00_5))
{ /* ./Cc/ld.scm 68 */
BgL_arg1156z00_63 = 
CAR(BgL_suz00_5); }  else 
{ /* ./Cc/ld.scm 68 */
BgL_arg1156z00_63 = BGl_string3035z00zzcc_ldz00; } 
{ /* ./Cc/ld.scm 68 */
obj_t BgL_list1160z00_65;
{ /* ./Cc/ld.scm 68 */
obj_t BgL_arg1162z00_66;
{ /* ./Cc/ld.scm 68 */
obj_t BgL_arg1165z00_67;
{ /* ./Cc/ld.scm 68 */
obj_t BgL_arg1169z00_68;
BgL_arg1169z00_68 = 
MAKE_PAIR(BgL_verz00_46, BNIL); 
BgL_arg1165z00_67 = 
MAKE_PAIR(BGl_string3036z00zzcc_ldz00, BgL_arg1169z00_68); } 
BgL_arg1162z00_66 = 
MAKE_PAIR(BgL_arg1156z00_63, BgL_arg1165z00_67); } 
BgL_list1160z00_65 = 
MAKE_PAIR(BgL_basez00_45, BgL_arg1162z00_66); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1160z00_65);} }  else 
{ /* ./Cc/ld.scm 69 */
obj_t BgL_arg1177z00_70;
if(
PAIRP(BgL_suz00_5))
{ /* ./Cc/ld.scm 69 */
BgL_arg1177z00_70 = 
CAR(BgL_suz00_5); }  else 
{ /* ./Cc/ld.scm 69 */
BgL_arg1177z00_70 = BGl_string3035z00zzcc_ldz00; } 
return 
string_append(BgL_basez00_45, BgL_arg1177z00_70);} }  else 
{ /* ./Cc/ld.scm 71 */
obj_t BgL_objectz00_1013;
BgL_objectz00_1013 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
FAILURE(BGl_string3037z00zzcc_ldz00,BGl_string3038z00zzcc_ldz00,BgL_objectz00_1013);} } } } }  else 
{ /* ./Cc/ld.scm 62 */
{ /* ./Cc/ld.scm 75 */
obj_t BgL_arg1189z00_74;
BgL_arg1189z00_74 = 
BGl_oszd2classzd2zz__osz00(); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3032z00zzcc_ldz00, BGl_string3033z00zzcc_ldz00, BgL_arg1189z00_74, BNIL);} } } } } } } 
}



/* _lib->string */
obj_t BGl__libzd2ze3stringz31zzcc_ldz00(obj_t BgL_envz00_1483, obj_t BgL_libz00_1484, obj_t BgL_suz00_1485)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 54 */
return 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_libz00_1484, BgL_suz00_1485);} 
}



/* lib+suffix */
obj_t BGl_libzb2suffixzb2zzcc_ldz00(obj_t BgL_libz00_6, obj_t BgL_staticzf3zf3_7, bool_t BgL_forcezf3zf3_8)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 80 */
{ /* ./Cc/ld.scm 81 */
obj_t BgL_nz00_80;
BgL_nz00_80 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_libz00_6, BNIL); 
{ /* ./Cc/ld.scm 81 */
obj_t BgL_bz00_81;
{ /* ./Cc/ld.scm 82 */
bool_t BgL_test1226z00_92;
{ /* ./Cc/ld.scm 82 */
bool_t BgL_test1229z00_93;
if(BgL_forcezf3zf3_8)
{ /* ./Cc/ld.scm 82 */
BgL_test1229z00_93 = 
CBOOL(BgL_staticzf3zf3_7); }  else 
{ /* ./Cc/ld.scm 82 */
BgL_test1229z00_93 = ((bool_t)0); } 
if(BgL_test1229z00_93)
{ /* ./Cc/ld.scm 82 */
BgL_test1226z00_92 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 83 */
bool_t BgL__andtest_1007z00_94;
if(BgL_forcezf3zf3_8)
{ /* ./Cc/ld.scm 83 */
BgL__andtest_1007z00_94 = ((bool_t)0); }  else 
{ /* ./Cc/ld.scm 83 */
BgL__andtest_1007z00_94 = ((bool_t)1); } 
if(BgL__andtest_1007z00_94)
{ /* ./Cc/ld.scm 83 */
if(
CBOOL(BgL_staticzf3zf3_7))
{ /* ./Cc/ld.scm 84 */
BgL_test1226z00_92 = 
CBOOL(BgL_staticzf3zf3_7); }  else 
{ /* ./Cc/ld.scm 84 */
obj_t BgL__ortest_1015z00_96;
BgL__ortest_1015z00_96 = BGl_za2staticzd2bigloozf3za2z21zzengine_paramz00; 
if(
CBOOL(BgL__ortest_1015z00_96))
{ /* ./Cc/ld.scm 84 */
BgL_test1226z00_92 = 
CBOOL(BgL__ortest_1015z00_96); }  else 
{ /* ./Cc/ld.scm 84 */
if(HAVE_SHARED_LIBRARY)
{ /* ./Cc/ld.scm 86 */
BgL_test1226z00_92 = ((bool_t)0); }  else 
{ /* ./Cc/ld.scm 86 */
BgL_test1226z00_92 = ((bool_t)1); } } } }  else 
{ /* ./Cc/ld.scm 83 */
BgL_test1226z00_92 = ((bool_t)0); } } } 
if(BgL_test1226z00_92)
{ /* ./Cc/ld.scm 82 */
BgL_bz00_81 = 
BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(BgL_nz00_80); }  else 
{ /* ./Cc/ld.scm 82 */
BgL_bz00_81 = 
BGl_makezd2sharedzd2libraryzd2namezd2zz__osz00(BgL_nz00_80); } } 
{ /* ./Cc/ld.scm 82 */

{ /* ./Cc/ld.scm 90 */
bool_t BgL_test1206z00_82;
{ /* ./Cc/ld.scm 90 */
obj_t BgL_arg1222z00_90;
BgL_arg1222z00_90 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1206z00_82 = 
bigloo_strcmp(BgL_arg1222z00_90, BGl_string3030z00zzcc_ldz00); } 
if(BgL_test1206z00_82)
{ /* ./Cc/ld.scm 90 */
return 
string_append(BGl_string3039z00zzcc_ldz00, BgL_bz00_81);}  else 
{ /* ./Cc/ld.scm 92 */
bool_t BgL_test1208z00_83;
{ /* ./Cc/ld.scm 92 */
obj_t BgL_arg1217z00_88;
BgL_arg1217z00_88 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1208z00_83 = 
bigloo_strcmp(BgL_arg1217z00_88, BGl_string3031z00zzcc_ldz00); } 
if(BgL_test1208z00_83)
{ /* ./Cc/ld.scm 92 */
return BgL_bz00_81;}  else 
{ /* ./Cc/ld.scm 92 */
{ /* ./Cc/ld.scm 95 */
obj_t BgL_arg1212z00_86;
BgL_arg1212z00_86 = 
BGl_oszd2classzd2zz__osz00(); 
return 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3032z00zzcc_ldz00, BGl_string3033z00zzcc_ldz00, BgL_arg1212z00_86, BNIL);} } } } } } } } 
}



/* make-lib-name */
obj_t BGl_makezd2libzd2namez00zzcc_ldz00(obj_t BgL_lnamez00_9, obj_t BgL_ssz00_10, obj_t BgL_staticzf3zf3_11, bool_t BgL_forcezf3zf3_12, bool_t BgL_forcezd2relativezf3z21_13)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 100 */
{ /* ./Cc/ld.scm 101 */
bool_t BgL_test1232z00_98;
if(BgL_forcezd2relativezf3z21_13)
{ /* ./Cc/ld.scm 101 */
BgL_test1232z00_98 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 102 */
obj_t BgL__andtest_1016z00_148;
BgL__andtest_1016z00_148 = BGl_za2ldzd2relativeza2zd2zzengine_paramz00; 
if(
CBOOL(BgL__andtest_1016z00_148))
{ /* ./Cc/ld.scm 103 */
bool_t BgL__andtest_1017z00_149;
if(
CBOOL(BGl_za2profilezd2libraryza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 103 */
BgL__andtest_1017z00_149 = ((bool_t)0); }  else 
{ /* ./Cc/ld.scm 103 */
BgL__andtest_1017z00_149 = ((bool_t)1); } 
if(BgL__andtest_1017z00_149)
{ /* ./Cc/ld.scm 104 */
bool_t BgL_test1349z00_150;
if(
CBOOL(BgL_staticzf3zf3_11))
{ /* ./Cc/ld.scm 104 */
BgL_test1349z00_150 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 104 */
BgL_test1349z00_150 = 
CBOOL(BGl_za2staticzd2bigloozf3za2z21zzengine_paramz00); } 
if(BgL_test1349z00_150)
{ /* ./Cc/ld.scm 104 */
BgL_test1232z00_98 = ((bool_t)0); }  else 
{ /* ./Cc/ld.scm 104 */
BgL_test1232z00_98 = ((bool_t)1); } }  else 
{ /* ./Cc/ld.scm 103 */
BgL_test1232z00_98 = ((bool_t)0); } }  else 
{ /* ./Cc/ld.scm 102 */
BgL_test1232z00_98 = ((bool_t)0); } } 
if(BgL_test1232z00_98)
{ /* ./Cc/ld.scm 105 */
obj_t BgL_arg1234z00_99;obj_t BgL_arg1235z00_100;
{ /* ./Cc/ld.scm 105 */
bool_t BgL_test1237z00_101;
{ /* ./Cc/ld.scm 106 */
obj_t BgL_arg1256z00_109;
BgL_arg1256z00_109 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1237z00_101 = 
bigloo_strcmp(BgL_arg1256z00_109, BGl_string3030z00zzcc_ldz00); } 
if(BgL_test1237z00_101)
{ /* ./Cc/ld.scm 105 */
BgL_arg1234z00_99 = BGl_string3040z00zzcc_ldz00; }  else 
{ /* ./Cc/ld.scm 110 */
bool_t BgL_test1238z00_102;
{ /* ./Cc/ld.scm 108 */
obj_t BgL_arg1249z00_107;
BgL_arg1249z00_107 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_test1238z00_102 = 
bigloo_strcmp(BgL_arg1249z00_107, BGl_string3031z00zzcc_ldz00); } 
if(BgL_test1238z00_102)
{ /* ./Cc/ld.scm 110 */
BgL_arg1234z00_99 = BGl_string3035z00zzcc_ldz00; }  else 
{ /* ./Cc/ld.scm 110 */
{ /* ./Cc/ld.scm 111 */
obj_t BgL_arg1243z00_105;
BgL_arg1243z00_105 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_arg1234z00_99 = 
BGl_userzd2errorzd2zztools_errorz00(BGl_string3032z00zzcc_ldz00, BGl_string3033z00zzcc_ldz00, BgL_arg1243z00_105, BNIL); } } } } 
{ /* ./Cc/ld.scm 112 */
obj_t BgL_arg1265z00_111;
BgL_arg1265z00_111 = 
CAR(BgL_ssz00_10); 
{ /* ./Cc/ld.scm 112 */
obj_t BgL_list1267z00_112;
BgL_list1267z00_112 = 
MAKE_PAIR(BgL_arg1265z00_111, BNIL); 
BgL_arg1235z00_100 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_lnamez00_9, BgL_list1267z00_112); } } 
return 
string_append(BgL_arg1234z00_99, BgL_arg1235z00_100);}  else 
{ 
obj_t BgL_ssz00_113;
BgL_ssz00_113 = BgL_ssz00_10; 
BgL_loopz00_114:
{ /* ./Cc/ld.scm 114 */
bool_t BgL_test1271z00_115;
BgL_test1271z00_115 = 
NULLP(BgL_ssz00_113); 
if(BgL_test1271z00_115)
{ /* ./Cc/ld.scm 115 */
obj_t BgL_arg1276z00_117;
{ /* ./Cc/ld.scm 116 */
obj_t BgL_arg1282z00_119;
BgL_arg1282z00_119 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_lnamez00_9, BNIL); 
BgL_arg1276z00_117 = 
string_append_3(BGl_string3041z00zzcc_ldz00, BgL_arg1282z00_119, BGl_string3042z00zzcc_ldz00); } 
{ /* ./Cc/ld.scm 115 */
obj_t BgL_objectz00_1026;
BgL_objectz00_1026 = BGl_za2libzd2dirza2zd2zzengine_paramz00; 
FAILURE(BGl_string3043z00zzcc_ldz00,BgL_arg1276z00_117,BgL_objectz00_1026);} }  else 
{ /* ./Cc/ld.scm 120 */
obj_t BgL_fnamez00_122;
{ /* ./Cc/ld.scm 120 */
obj_t BgL_arg1340z00_145;
{ /* ./Cc/ld.scm 120 */
obj_t BgL_arg1343z00_146;
BgL_arg1343z00_146 = 
CAR(BgL_ssz00_113); 
{ /* ./Cc/ld.scm 120 */
obj_t BgL_list1345z00_147;
BgL_list1345z00_147 = 
MAKE_PAIR(BgL_arg1343z00_146, BNIL); 
BgL_arg1340z00_145 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_lnamez00_9, BgL_list1345z00_147); } } 
BgL_fnamez00_122 = 
BGl_libzb2suffixzb2zzcc_ldz00(BgL_arg1340z00_145, BgL_staticzf3zf3_11, BgL_forcezf3zf3_12); } 
{ /* ./Cc/ld.scm 120 */
obj_t BgL_namez00_123;
BgL_namez00_123 = 
BGl_findzd2filezf2pathz20zz__osz00(BgL_fnamez00_122, BGl_za2libzd2dirza2zd2zzengine_paramz00); 
{ /* ./Cc/ld.scm 123 */

{ /* ./Cc/ld.scm 124 */
bool_t BgL_test1287z00_124;
BgL_test1287z00_124 = 
STRINGP(BgL_namez00_123); 
if(BgL_test1287z00_124)
{ /* ./Cc/ld.scm 124 */
return BgL_namez00_123;}  else 
{ /* ./Cc/ld.scm 124 */
{ /* ./Cc/ld.scm 127 */
obj_t BgL_arg1290z00_126;obj_t BgL_arg1293z00_129;
BgL_arg1290z00_126 = 
string_append_3(BGl_string3041z00zzcc_ldz00, BgL_fnamez00_122, BGl_string3042z00zzcc_ldz00); 
{ /* ./Cc/ld.scm 132 */
bool_t BgL_test1313z00_136;
{ /* ./Cc/ld.scm 132 */
obj_t BgL_auxz00_1704;
BgL_auxz00_1704 = 
CDR(BgL_ssz00_113); 
BgL_test1313z00_136 = 
PAIRP(BgL_auxz00_1704); } 
if(BgL_test1313z00_136)
{ /* ./Cc/ld.scm 133 */
obj_t BgL_arg1316z00_138;
{ /* ./Cc/ld.scm 136 */
obj_t BgL_arg1320z00_140;
{ /* ./Cc/ld.scm 136 */
obj_t BgL_arg1323z00_141;
{ /* ./Cc/ld.scm 136 */
obj_t BgL_auxz00_1708;
BgL_auxz00_1708 = 
CDR(BgL_ssz00_113); 
BgL_arg1323z00_141 = 
CAR(BgL_auxz00_1708); } 
{ /* ./Cc/ld.scm 136 */
obj_t BgL_list1325z00_142;
BgL_list1325z00_142 = 
MAKE_PAIR(BgL_arg1323z00_141, BNIL); 
BgL_arg1320z00_140 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_lnamez00_9, BgL_list1325z00_142); } } 
BgL_arg1316z00_138 = 
BGl_libzb2suffixzb2zzcc_ldz00(BgL_arg1320z00_140, BgL_staticzf3zf3_11, BgL_forcezf3zf3_12); } 
BgL_arg1293z00_129 = 
string_append_3(BGl_string3044z00zzcc_ldz00, BgL_arg1316z00_138, BGl_string3045z00zzcc_ldz00); }  else 
{ /* ./Cc/ld.scm 132 */
BgL_arg1293z00_129 = BGl_string3035z00zzcc_ldz00; } } 
{ /* ./Cc/ld.scm 127 */
obj_t BgL_list1295z00_130;
{ /* ./Cc/ld.scm 127 */
obj_t BgL_arg1297z00_131;
{ /* ./Cc/ld.scm 127 */
obj_t BgL_arg1300z00_132;
{ /* ./Cc/ld.scm 127 */
obj_t BgL_arg1303z00_133;
{ /* ./Cc/ld.scm 127 */
obj_t BgL_arg1306z00_134;
{ /* ./Cc/ld.scm 127 */
obj_t BgL_arg1309z00_135;
BgL_arg1309z00_135 = 
MAKE_PAIR(BgL_arg1293z00_129, BNIL); 
BgL_arg1306z00_134 = 
MAKE_PAIR(BGl_string3042z00zzcc_ldz00, BgL_arg1309z00_135); } 
BgL_arg1303z00_133 = 
MAKE_PAIR(BGl_za2libzd2dirza2zd2zzengine_paramz00, BgL_arg1306z00_134); } 
BgL_arg1300z00_132 = 
MAKE_PAIR(BGl_string3046z00zzcc_ldz00, BgL_arg1303z00_133); } 
BgL_arg1297z00_131 = 
MAKE_PAIR(BgL_arg1290z00_126, BgL_arg1300z00_132); } 
BgL_list1295z00_130 = 
MAKE_PAIR(BGl_string3043z00zzcc_ldz00, BgL_arg1297z00_131); } 
BGl_warningz00zz__errorz00(BgL_list1295z00_130); } } 
{ /* ./Cc/ld.scm 141 */
obj_t BgL_arg1333z00_144;
BgL_arg1333z00_144 = 
CDR(BgL_ssz00_113); 
{ 
obj_t BgL_ssz00_1723;
BgL_ssz00_1723 = BgL_arg1333z00_144; 
BgL_ssz00_113 = BgL_ssz00_1723; 
goto BgL_loopz00_114;} } } } } } } } } } } 
}



/* user-lib-name */
BGL_EXPORTED_DEF obj_t BGl_userzd2libzd2namez00zzcc_ldz00(obj_t BgL_libnamez00_14)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 146 */
{ /* ./Cc/ld.scm 147 */
obj_t BgL_cz00_151;
BgL_cz00_151 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_libnamez00_14, BGl_za2bigloozd2librarieszd2translationzd2tableza2zd2zzengine_paramz00); 
{ 

{ /* ./Cc/ld.scm 148 */
bool_t BgL_test1350z00_157;
BgL_test1350z00_157 = 
(BgL_cz00_151==BFALSE); 
if(BgL_test1350z00_157)
{ /* ./Cc/ld.scm 148 */
return BgL_libnamez00_14;}  else 
{ /* ./Cc/ld.scm 148 */
bool_t BgL_test1352z00_158;
BgL_test1352z00_158 = 
PAIRP(BgL_cz00_151); 
if(BgL_test1352z00_158)
{ /* ./Cc/ld.scm 148 */
bool_t BgL_test1354z00_159;
{ /* ./Cc/ld.scm 148 */
obj_t BgL_auxz00_1729;
BgL_auxz00_1729 = 
CDR(BgL_cz00_151); 
BgL_test1354z00_159 = 
STRINGP(BgL_auxz00_1729); } 
if(BgL_test1354z00_159)
{ /* ./Cc/ld.scm 148 */
return 
CDR(BgL_cz00_151);}  else 
{ /* ./Cc/ld.scm 148 */
obj_t BgL_cdrzd2125zd2_160;
BgL_cdrzd2125zd2_160 = 
CDR(BgL_cz00_151); 
{ /* ./Cc/ld.scm 148 */
bool_t BgL_test1356z00_161;
BgL_test1356z00_161 = 
PAIRP(BgL_cdrzd2125zd2_160); 
if(BgL_test1356z00_161)
{ /* ./Cc/ld.scm 148 */
bool_t BgL_test1357z00_162;
{ /* ./Cc/ld.scm 148 */
obj_t BgL_auxz00_1737;
BgL_auxz00_1737 = 
CAR(BgL_cdrzd2125zd2_160); 
BgL_test1357z00_162 = 
STRINGP(BgL_auxz00_1737); } 
if(BgL_test1357z00_162)
{ /* ./Cc/ld.scm 148 */
bool_t BgL_test1358z00_163;
{ /* ./Cc/ld.scm 148 */
obj_t BgL_auxz00_1741;
BgL_auxz00_1741 = 
CDR(BgL_cdrzd2125zd2_160); 
BgL_test1358z00_163 = 
STRINGP(BgL_auxz00_1741); } 
if(BgL_test1358z00_163)
{ /* ./Cc/ld.scm 148 */
return BgL_cdrzd2125zd2_160;}  else 
{ /* ./Cc/ld.scm 148 */
BgL_tagzd2120zd2_155:
{ /* ./Cc/ld.scm 153 */
obj_t BgL_list1384z00_167;
{ /* ./Cc/ld.scm 153 */
obj_t BgL_arg1390z00_169;
{ /* ./Cc/ld.scm 153 */
obj_t BgL_arg1394z00_171;
BgL_arg1394z00_171 = 
MAKE_PAIR(BgL_cz00_151, BNIL); 
BgL_arg1390z00_169 = 
MAKE_PAIR(BGl_string3047z00zzcc_ldz00, BgL_arg1394z00_171); } 
BgL_list1384z00_167 = 
MAKE_PAIR(BGl_string3048z00zzcc_ldz00, BgL_arg1390z00_169); } 
BGl_warningz00zz__errorz00(BgL_list1384z00_167); } 
return BgL_libnamez00_14;} }  else 
{ /* ./Cc/ld.scm 148 */
goto BgL_tagzd2120zd2_155;} }  else 
{ /* ./Cc/ld.scm 148 */
goto BgL_tagzd2120zd2_155;} } } }  else 
{ /* ./Cc/ld.scm 148 */
goto BgL_tagzd2120zd2_155;} } } } } } 
}



/* _user-lib-name */
obj_t BGl__userzd2libzd2namez00zzcc_ldz00(obj_t BgL_envz00_1486, obj_t BgL_libnamez00_1487)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 146 */
return 
BGl_userzd2libzd2namez00zzcc_ldz00(BgL_libnamez00_1487);} 
}



/* library-suffix */
BGL_EXPORTED_DEF obj_t BGl_libraryzd2suffixzd2zzcc_ldz00()
{ AN_OBJECT;
{ /* ./Cc/ld.scm 161 */
if(
CBOOL(BGl_za2profilezd2libraryza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 163 */
return BGl_string3049z00zzcc_ldz00;}  else 
{ /* ./Cc/ld.scm 164 */
bool_t BgL_test1398z00_172;
{ /* ./Cc/ld.scm 164 */
long BgL_n1z00_1049;
BgL_n1z00_1049 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test1398z00_172 = 
(BgL_n1z00_1049>((long)1)); } 
if(BgL_test1398z00_172)
{ /* ./Cc/ld.scm 164 */
return BGl_string3050z00zzcc_ldz00;}  else 
{ /* ./Cc/ld.scm 164 */
if(
CBOOL(BGl_za2unsafezd2libraryza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 165 */
return BGl_string3051z00zzcc_ldz00;}  else 
{ /* ./Cc/ld.scm 165 */
return BGl_string3052z00zzcc_ldz00;} } } } 
}



/* _library-suffix */
obj_t BGl__libraryzd2suffixzd2zzcc_ldz00(obj_t BgL_envz00_1488)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 161 */
return 
BGl_libraryzd2suffixzd2zzcc_ldz00();} 
}



/* secondary-library-suffix */
char * BGl_secondaryzd2libraryzd2suffixz00zzcc_ldz00()
{ AN_OBJECT;
{ /* ./Cc/ld.scm 171 */
{ /* ./Cc/ld.scm 172 */
bool_t BgL_test1400z00_173;
{ /* ./Cc/ld.scm 172 */
long BgL_n1z00_1051;
BgL_n1z00_1051 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test1400z00_173 = 
(BgL_n1z00_1051>((long)1)); } 
if(BgL_test1400z00_173)
{ /* ./Cc/ld.scm 172 */
return "_d";}  else 
{ /* ./Cc/ld.scm 172 */
return "_s";} } } 
}



/* profile-gc-debug-library-suffix */
char * BGl_profilezd2gczd2debugzd2libraryzd2suffixz00zzcc_ldz00()
{ AN_OBJECT;
{ /* ./Cc/ld.scm 177 */
if(
CBOOL(BGl_za2profilezd2libraryza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 179 */
return "_p";}  else 
{ /* ./Cc/ld.scm 180 */
bool_t BgL_test1402z00_174;
{ /* ./Cc/ld.scm 180 */
long BgL_n1z00_1053;
BgL_n1z00_1053 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test1402z00_174 = 
(BgL_n1z00_1053>((long)1)); } 
if(BgL_test1402z00_174)
{ /* ./Cc/ld.scm 180 */
return "_d";}  else 
{ /* ./Cc/ld.scm 180 */
return "";} } } 
}



/* unix-ld */
obj_t BGl_unixzd2ldzd2zzcc_ldz00(obj_t BgL_namez00_15, bool_t BgL_needzd2tozd2returnz00_16)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 192 */
{ /* ./Cc/ld.scm 193 */
obj_t BgL_list1405z00_175;
{ /* ./Cc/ld.scm 193 */
obj_t BgL_arg1408z00_177;
{ /* ./Cc/ld.scm 193 */
obj_t BgL_arg1412z00_178;
{ /* ./Cc/ld.scm 193 */
obj_t BgL_arg1416z00_180;
{ /* ./Cc/ld.scm 193 */
obj_t BgL_auxz00_1766;
BgL_auxz00_1766 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1416z00_180 = 
MAKE_PAIR(BgL_auxz00_1766, BNIL); } 
BgL_arg1412z00_178 = 
MAKE_PAIR(BGl_string3053z00zzcc_ldz00, BgL_arg1416z00_180); } 
BgL_arg1408z00_177 = 
MAKE_PAIR(BGl_za2ccza2z00zzengine_paramz00, BgL_arg1412z00_178); } 
BgL_list1405z00_175 = 
MAKE_PAIR(BGl_string3054z00zzcc_ldz00, BgL_arg1408z00_177); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1405z00_175); } 
{ /* ./Cc/ld.scm 195 */
obj_t BgL_staticzf3zf3_181;
{ /* ./Cc/ld.scm 195 */
obj_t BgL_port1018z00_317;
{ /* ./Cc/ld.scm 195 */
obj_t BgL_stringz00_1055;
BgL_stringz00_1055 = BGl_za2ldzd2optionsza2zd2zzengine_paramz00; 
BgL_port1018z00_317 = 
open_input_string(BgL_stringz00_1055); } 
{ /* ./Cc/ld.scm 195 */
obj_t BgL_val1019z00_318;
BgL_val1019z00_318 = 
BGl_zc3exitza31754ze3z83zzcc_ldz00(BgL_port1018z00_317); 
close_input_port(BgL_port1018z00_317); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1745z00_319;
{ /* ./Cc/ld.scm 195 */
obj_t BgL_auxz00_1777;
BgL_auxz00_1777 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1019z00_318); 
BgL_test1745z00_319 = 
CBOOL(BgL_auxz00_1777); } 
if(BgL_test1745z00_319)
{ /* ./Cc/ld.scm 195 */
obj_t BgL_arg1748z00_320;obj_t BgL_arg1749z00_321;
BgL_arg1748z00_320 = 
CAR(BgL_val1019z00_318); 
BgL_arg1749z00_321 = 
CDR(BgL_val1019z00_318); 
BgL_staticzf3zf3_181 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1748z00_320, BgL_arg1749z00_321); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_staticzf3zf3_181 = BgL_val1019z00_318; } } } } 
if(
CBOOL(BgL_staticzf3zf3_181))
{ /* ./Cc/ld.scm 201 */
obj_t BgL_auxz00_1786;
BgL_auxz00_1786 = 
string_to_bstring(ADDITIONAL_STATIC_LINK_OPTION); 
BGl_za2ldzd2optionsza2zd2zzengine_paramz00 = 
string_append_3(BgL_auxz00_1786, BGl_string3055z00zzcc_ldz00, BGl_za2ldzd2optionsza2zd2zzengine_paramz00); }  else 
{ /* ./Cc/ld.scm 203 */
obj_t BgL_auxz00_1789;
BgL_auxz00_1789 = 
string_to_bstring(ADDITIONAL_SHARED_LINK_OPTION); 
BGl_za2ldzd2optionsza2zd2zzengine_paramz00 = 
string_append_3(BgL_auxz00_1789, BGl_string3055z00zzcc_ldz00, BGl_za2ldzd2optionsza2zd2zzengine_paramz00); } 
{ /* ./Cc/ld.scm 205 */
obj_t BgL_destz00_182;
{ /* ./Cc/ld.scm 205 */
bool_t BgL_test1741z00_316;
{ /* ./Cc/ld.scm 205 */
obj_t BgL_objz00_1224;
BgL_objz00_1224 = BGl_za2destza2z00zzengine_paramz00; 
BgL_test1741z00_316 = 
STRINGP(BgL_objz00_1224); } 
if(BgL_test1741z00_316)
{ /* ./Cc/ld.scm 205 */
BgL_destz00_182 = BGl_za2destza2z00zzengine_paramz00; }  else 
{ /* ./Cc/ld.scm 205 */
BgL_destz00_182 = 
BGl_defaultzd2executablezd2namez00zz__osz00(); } } 
{ /* ./Cc/ld.scm 205 */
obj_t BgL_bigloozd2libzd2_183;
{ /* ./Cc/ld.scm 209 */
obj_t BgL_arg1725z00_310;obj_t BgL_arg1726z00_311;
BgL_arg1725z00_310 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BGl_za2bigloozd2vlibza2zd2zzengine_paramz00); 
{ /* ./Cc/ld.scm 210 */
obj_t BgL_arg1731z00_312;char * BgL_arg1732z00_313;
BgL_arg1731z00_312 = 
BGl_libraryzd2suffixzd2zzcc_ldz00(); 
BgL_arg1732z00_313 = 
BGl_secondaryzd2libraryzd2suffixz00zzcc_ldz00(); 
{ /* ./Cc/ld.scm 210 */
obj_t BgL_list1734z00_314;
{ /* ./Cc/ld.scm 210 */
obj_t BgL_arg1736z00_315;
{ /* ./Cc/ld.scm 210 */
obj_t BgL_auxz00_1798;
BgL_auxz00_1798 = 
string_to_bstring(BgL_arg1732z00_313); 
BgL_arg1736z00_315 = 
MAKE_PAIR(BgL_auxz00_1798, BNIL); } 
BgL_list1734z00_314 = 
MAKE_PAIR(BgL_arg1731z00_312, BgL_arg1736z00_315); } 
BgL_arg1726z00_311 = BgL_list1734z00_314; } } 
BgL_bigloozd2libzd2_183 = 
BGl_makezd2libzd2namez00zzcc_ldz00(BgL_arg1725z00_310, BgL_arg1726z00_311, BgL_staticzf3zf3_181, ((bool_t)0), ((bool_t)0)); } 
{ /* ./Cc/ld.scm 209 */
obj_t BgL_gczd2libzd2_184;
{ /* ./Cc/ld.scm 214 */
obj_t BgL_arg1707z00_301;obj_t BgL_arg1709z00_302;obj_t BgL_arg1710z00_303;bool_t BgL_arg1711z00_304;
BgL_arg1707z00_301 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BGl_za2gczd2libza2zd2zzengine_paramz00); 
{ /* ./Cc/ld.scm 215 */
char * BgL_arg1715z00_305;
BgL_arg1715z00_305 = 
BGl_profilezd2gczd2debugzd2libraryzd2suffixz00zzcc_ldz00(); 
{ /* ./Cc/ld.scm 215 */
obj_t BgL_list1718z00_307;
{ /* ./Cc/ld.scm 215 */
obj_t BgL_arg1720z00_308;
BgL_arg1720z00_308 = 
MAKE_PAIR(BGl_string3035z00zzcc_ldz00, BNIL); 
{ /* ./Cc/ld.scm 215 */
obj_t BgL_auxz00_1806;
BgL_auxz00_1806 = 
string_to_bstring(BgL_arg1715z00_305); 
BgL_list1718z00_307 = 
MAKE_PAIR(BgL_auxz00_1806, BgL_arg1720z00_308); } } 
BgL_arg1709z00_302 = BgL_list1718z00_307; } } 
{ /* ./Cc/ld.scm 216 */
obj_t BgL__ortest_1039z00_309;
BgL__ortest_1039z00_309 = BGl_za2profilezd2libraryza2zd2zzengine_paramz00; 
if(
CBOOL(BgL__ortest_1039z00_309))
{ /* ./Cc/ld.scm 216 */
BgL_arg1710z00_303 = BgL__ortest_1039z00_309; }  else 
{ /* ./Cc/ld.scm 216 */
BgL_arg1710z00_303 = BgL_staticzf3zf3_181; } } 
if(
CBOOL(BGl_za2gczd2customzf3za2z21zzengine_paramz00))
{ /* ./Cc/ld.scm 218 */
BgL_arg1711z00_304 = ((bool_t)0); }  else 
{ /* ./Cc/ld.scm 218 */
BgL_arg1711z00_304 = ((bool_t)1); } 
BgL_gczd2libzd2_184 = 
BGl_makezd2libzd2namez00zzcc_ldz00(BgL_arg1707z00_301, BgL_arg1709z00_302, BgL_arg1710z00_303, ((bool_t)0), BgL_arg1711z00_304); } 
{ /* ./Cc/ld.scm 214 */
obj_t BgL_addzd2libszd2_185;
{ 
obj_t BgL_libz00_269;obj_t BgL_resz00_270;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1638z00_272;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_l1040z00_274;
BgL_l1040z00_274 = BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00; 
{ /* ./Cc/ld.scm 220 */
bool_t BgL_test1643z00_275;
BgL_test1643z00_275 = 
NULLP(BgL_l1040z00_274); 
if(BgL_test1643z00_275)
{ /* ./Cc/ld.scm 220 */
BgL_arg1638z00_272 = BNIL; }  else 
{ /* ./Cc/ld.scm 220 */
obj_t BgL_head1042z00_276;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1667z00_287;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1673z00_289;
BgL_arg1673z00_289 = 
CAR(BgL_l1040z00_274); 
BgL_arg1667z00_287 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BgL_arg1673z00_289); } 
BgL_head1042z00_276 = 
MAKE_PAIR(BgL_arg1667z00_287, BNIL); } 
{ 
obj_t BgL_l1040z00_277;obj_t BgL_tail1043z00_278;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1648z00_280;
BgL_arg1648z00_280 = 
CDR(BgL_l1040z00_274); 
BgL_l1040z00_277 = BgL_arg1648z00_280; 
BgL_tail1043z00_278 = BgL_head1042z00_276; 
BgL_map1041z00_279:
{ /* ./Cc/ld.scm 220 */
bool_t BgL_test1651z00_281;
BgL_test1651z00_281 = 
NULLP(BgL_l1040z00_277); 
if(BgL_test1651z00_281)
{ /* ./Cc/ld.scm 220 */
BgL_arg1638z00_272 = BgL_head1042z00_276; }  else 
{ /* ./Cc/ld.scm 220 */
obj_t BgL_newtail1044z00_282;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1658z00_284;
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1662z00_286;
BgL_arg1662z00_286 = 
CAR(BgL_l1040z00_277); 
BgL_arg1658z00_284 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BgL_arg1662z00_286); } 
BgL_newtail1044z00_282 = 
MAKE_PAIR(BgL_arg1658z00_284, BNIL); } 
SET_CDR(BgL_tail1043z00_278, BgL_newtail1044z00_282); 
{ /* ./Cc/ld.scm 220 */
obj_t BgL_arg1654z00_283;
BgL_arg1654z00_283 = 
CDR(BgL_l1040z00_277); 
{ 
obj_t BgL_tail1043z00_1828;obj_t BgL_l1040z00_1827;
BgL_l1040z00_1827 = BgL_arg1654z00_283; 
BgL_tail1043z00_1828 = BgL_newtail1044z00_282; 
BgL_tail1043z00_278 = BgL_tail1043z00_1828; 
BgL_l1040z00_277 = BgL_l1040z00_1827; 
goto BgL_map1041z00_279;} } } } } } } } } 
BgL_libz00_269 = BgL_arg1638z00_272; 
BgL_resz00_270 = BGl_string3035z00zzcc_ldz00; 
BgL_loopz00_271:
{ /* ./Cc/ld.scm 223 */
bool_t BgL_test1677z00_290;
BgL_test1677z00_290 = 
NULLP(BgL_libz00_269); 
if(BgL_test1677z00_290)
{ /* ./Cc/ld.scm 223 */
BgL_addzd2libszd2_185 = BgL_resz00_270; }  else 
{ /* ./Cc/ld.scm 225 */
obj_t BgL_arg1679z00_291;obj_t BgL_arg1680z00_292;
BgL_arg1679z00_291 = 
CDR(BgL_libz00_269); 
{ /* ./Cc/ld.scm 228 */
obj_t BgL_arg1684z00_293;
{ /* ./Cc/ld.scm 228 */
obj_t BgL_arg1688z00_295;obj_t BgL_arg1689z00_296;
BgL_arg1688z00_295 = 
CAR(BgL_libz00_269); 
{ /* ./Cc/ld.scm 229 */
obj_t BgL_arg1695z00_297;char * BgL_arg1696z00_298;
BgL_arg1695z00_297 = 
BGl_libraryzd2suffixzd2zzcc_ldz00(); 
BgL_arg1696z00_298 = 
BGl_secondaryzd2libraryzd2suffixz00zzcc_ldz00(); 
{ /* ./Cc/ld.scm 229 */
obj_t BgL_list1698z00_299;
{ /* ./Cc/ld.scm 229 */
obj_t BgL_arg1700z00_300;
{ /* ./Cc/ld.scm 229 */
obj_t BgL_auxz00_1835;
BgL_auxz00_1835 = 
string_to_bstring(BgL_arg1696z00_298); 
BgL_arg1700z00_300 = 
MAKE_PAIR(BgL_auxz00_1835, BNIL); } 
BgL_list1698z00_299 = 
MAKE_PAIR(BgL_arg1695z00_297, BgL_arg1700z00_300); } 
BgL_arg1689z00_296 = BgL_list1698z00_299; } } 
BgL_arg1684z00_293 = 
BGl_makezd2libzd2namez00zzcc_ldz00(BgL_arg1688z00_295, BgL_arg1689z00_296, BgL_staticzf3zf3_181, ((bool_t)0), ((bool_t)0)); } 
BgL_arg1680z00_292 = 
string_append_3(BgL_arg1684z00_293, BGl_string3055z00zzcc_ldz00, BgL_resz00_270); } 
{ 
obj_t BgL_resz00_1842;obj_t BgL_libz00_1841;
BgL_libz00_1841 = BgL_arg1679z00_291; 
BgL_resz00_1842 = BgL_arg1680z00_292; 
BgL_resz00_270 = BgL_resz00_1842; 
BgL_libz00_269 = BgL_libz00_1841; 
goto BgL_loopz00_271;} } } } } 
{ /* ./Cc/ld.scm 220 */
obj_t BgL_otherzd2libszd2_186;
{ 
obj_t BgL_libz00_257;obj_t BgL_resz00_258;
{ /* ./Cc/ld.scm 237 */
obj_t BgL_arg1613z00_260;
BgL_arg1613z00_260 = 
bgl_reverse(BGl_za2bigloozd2userzd2libza2z00zzengine_paramz00); 
BgL_libz00_257 = BgL_arg1613z00_260; 
BgL_resz00_258 = BGl_string3035z00zzcc_ldz00; 
BgL_loopz00_259:
{ /* ./Cc/ld.scm 239 */
bool_t BgL_test1617z00_262;
BgL_test1617z00_262 = 
NULLP(BgL_libz00_257); 
if(BgL_test1617z00_262)
{ /* ./Cc/ld.scm 239 */
BgL_otherzd2libszd2_186 = BgL_resz00_258; }  else 
{ /* ./Cc/ld.scm 241 */
obj_t BgL_arg1620z00_263;obj_t BgL_arg1621z00_264;
BgL_arg1620z00_263 = 
CDR(BgL_libz00_257); 
{ /* ./Cc/ld.scm 242 */
obj_t BgL_arg1625z00_265;
{ /* ./Cc/ld.scm 242 */
obj_t BgL_arg1631z00_267;
BgL_arg1631z00_267 = 
CAR(BgL_libz00_257); 
BgL_arg1625z00_265 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_arg1631z00_267, BNIL); } 
BgL_arg1621z00_264 = 
string_append_3(BgL_arg1625z00_265, BGl_string3055z00zzcc_ldz00, BgL_resz00_258); } 
{ 
obj_t BgL_resz00_1851;obj_t BgL_libz00_1850;
BgL_libz00_1850 = BgL_arg1620z00_263; 
BgL_resz00_1851 = BgL_arg1621z00_264; 
BgL_resz00_258 = BgL_resz00_1851; 
BgL_libz00_257 = BgL_libz00_1850; 
goto BgL_loopz00_259;} } } } } 
{ /* ./Cc/ld.scm 237 */
obj_t BgL_ldzd2argszd2_187;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1440z00_196;obj_t BgL_arg1441z00_197;obj_t BgL_arg1448z00_200;obj_t BgL_arg1450z00_201;obj_t BgL_arg1453z00_203;obj_t BgL_arg1454z00_204;obj_t BgL_arg1466z00_211;
BgL_arg1440z00_196 = 
BGl_stringza2zd2ze3stringz93zztools_miscz00(BGl_za2withzd2filesza2zd2zzengine_paramz00); 
BgL_arg1441z00_197 = 
BGl_stringza2zd2ze3stringz93zztools_miscz00(BGl_za2ozd2filesza2zd2zzengine_paramz00); 
{ /* ./Cc/ld.scm 256 */
bool_t BgL_test1577z00_244;
if(
CBOOL(BGl_za2czd2debugza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 256 */
BgL_test1577z00_244 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 256 */
long BgL_n1z00_1249;
BgL_n1z00_1249 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test1577z00_244 = 
(BgL_n1z00_1249>((long)0)); } 
if(BgL_test1577z00_244)
{ /* ./Cc/ld.scm 256 */
BgL_arg1448z00_200 = 
string_append(BGl_string3055z00zzcc_ldz00, BGl_za2ldzd2debugzd2optionza2z00zzengine_paramz00); }  else 
{ /* ./Cc/ld.scm 256 */
BgL_arg1448z00_200 = BGl_string3035z00zzcc_ldz00; } } 
if(
CBOOL(BGl_za2stripza2z00zzengine_paramz00))
{ /* ./Cc/ld.scm 261 */
obj_t BgL_auxz00_1862;
BgL_auxz00_1862 = 
string_to_bstring(C_STRIP_FLAGS); 
BgL_arg1450z00_201 = 
string_append(BGl_string3055z00zzcc_ldz00, BgL_auxz00_1862); }  else 
{ /* ./Cc/ld.scm 260 */
BgL_arg1450z00_201 = BGl_string3035z00zzcc_ldz00; } 
BgL_arg1453z00_203 = 
BGl_loopz72z72zzcc_ldz00(BGl_za2libzd2dirza2zd2zzengine_paramz00); 
if(
CBOOL(BGl_za2czd2debugza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 274 */
BgL_arg1454z00_204 = BGl_string3035z00zzcc_ldz00; }  else 
{ /* ./Cc/ld.scm 274 */
BgL_arg1454z00_204 = 
string_append(BGl_string3055z00zzcc_ldz00, BGl_za2ldzd2optimzd2flagsza2z00zzengine_paramz00); } 
if(
CBOOL(BGl_za2doublezd2ldzd2libszf3za2zf3zzengine_paramz00))
{ /* ./Cc/ld.scm 288 */
BgL_arg1466z00_211 = BgL_addzd2libszd2_185; }  else 
{ /* ./Cc/ld.scm 288 */
BgL_arg1466z00_211 = BGl_string3035z00zzcc_ldz00; } 
{ /* ./Cc/ld.scm 244 */
obj_t BgL_list1470z00_213;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1474z00_214;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1477z00_215;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1480z00_216;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1483z00_217;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1486z00_218;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1490z00_219;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1493z00_220;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1496z00_221;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1500z00_222;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1503z00_223;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1506z00_224;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1511z00_225;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1514z00_226;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1518z00_227;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1521z00_228;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1524z00_229;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1527z00_230;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1530z00_231;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1533z00_232;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1537z00_233;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1540z00_234;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1543z00_235;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1547z00_236;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1551z00_237;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1554z00_238;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1557z00_239;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1562z00_240;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1565z00_241;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1568z00_242;
{ /* ./Cc/ld.scm 244 */
obj_t BgL_arg1572z00_243;
BgL_arg1572z00_243 = 
MAKE_PAIR(BGl_za2ldzd2postzd2optionsza2z00zzengine_paramz00, BNIL); 
BgL_arg1568z00_242 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1572z00_243); } 
BgL_arg1565z00_241 = 
MAKE_PAIR(BgL_arg1466z00_211, BgL_arg1568z00_242); } 
BgL_arg1562z00_240 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1565z00_241); } 
BgL_arg1557z00_239 = 
MAKE_PAIR(BgL_otherzd2libszd2_186, BgL_arg1562z00_240); } 
BgL_arg1554z00_238 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1557z00_239); } 
{ /* ./Cc/ld.scm 244 */
obj_t BgL_auxz00_1877;
BgL_auxz00_1877 = 
string_to_bstring(DLOPEN_LD_OPT); 
BgL_arg1551z00_237 = 
MAKE_PAIR(BgL_auxz00_1877, BgL_arg1554z00_238); } } 
BgL_arg1547z00_236 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1551z00_237); } 
BgL_arg1543z00_235 = 
MAKE_PAIR(BgL_gczd2libzd2_184, BgL_arg1547z00_236); } 
BgL_arg1540z00_234 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1543z00_235); } 
BgL_arg1537z00_233 = 
MAKE_PAIR(BgL_bigloozd2libzd2_183, BgL_arg1540z00_234); } 
BgL_arg1533z00_232 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1537z00_233); } 
BgL_arg1530z00_231 = 
MAKE_PAIR(BgL_addzd2libszd2_185, BgL_arg1533z00_232); } 
BgL_arg1527z00_230 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1530z00_231); } 
BgL_arg1524z00_229 = 
MAKE_PAIR(BgL_arg1454z00_204, BgL_arg1527z00_230); } 
BgL_arg1521z00_228 = 
MAKE_PAIR(BgL_arg1453z00_203, BgL_arg1524z00_229); } 
BgL_arg1518z00_227 = 
MAKE_PAIR(BGl_za2ldzd2optionsza2zd2zzengine_paramz00, BgL_arg1521z00_228); } 
BgL_arg1514z00_226 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1518z00_227); } 
BgL_arg1511z00_225 = 
MAKE_PAIR(BgL_arg1450z00_201, BgL_arg1514z00_226); } 
BgL_arg1506z00_224 = 
MAKE_PAIR(BgL_arg1448z00_200, BgL_arg1511z00_225); } 
BgL_arg1503z00_223 = 
MAKE_PAIR(BGl_za2cczd2optionsza2zd2zzengine_paramz00, BgL_arg1506z00_224); } 
BgL_arg1500z00_222 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1503z00_223); } 
BgL_arg1496z00_221 = 
MAKE_PAIR(BgL_destz00_182, BgL_arg1500z00_222); } 
BgL_arg1493z00_220 = 
MAKE_PAIR(BGl_za2ldzd2ozd2optionza2z00zzengine_paramz00, BgL_arg1496z00_221); } 
BgL_arg1490z00_219 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1493z00_220); } 
BgL_arg1486z00_218 = 
MAKE_PAIR(BgL_arg1441z00_197, BgL_arg1490z00_219); } 
BgL_arg1483z00_217 = 
MAKE_PAIR(BgL_arg1440z00_196, BgL_arg1486z00_218); } 
BgL_arg1480z00_216 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1483z00_217); } 
BgL_arg1477z00_215 = 
MAKE_PAIR(BGl_za2czd2objectzd2filezd2extensionza2zd2zzengine_paramz00, BgL_arg1480z00_216); } 
BgL_arg1474z00_214 = 
MAKE_PAIR(BGl_string3056z00zzcc_ldz00, BgL_arg1477z00_215); } 
BgL_list1470z00_213 = 
MAKE_PAIR(BgL_namez00_15, BgL_arg1474z00_214); } 
BgL_ldzd2argszd2_187 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1470z00_213); } } 
{ /* ./Cc/ld.scm 244 */
obj_t BgL_cmdz00_188;
BgL_cmdz00_188 = 
string_append_3(BGl_za2ccza2z00zzengine_paramz00, BGl_string3055z00zzcc_ldz00, BgL_ldzd2argszd2_187); 
{ /* ./Cc/ld.scm 291 */

{ /* ./Cc/ld.scm 292 */
obj_t BgL_list1422z00_189;
{ /* ./Cc/ld.scm 292 */
obj_t BgL_arg1425z00_191;
{ /* ./Cc/ld.scm 292 */
obj_t BgL_arg1428z00_192;
{ /* ./Cc/ld.scm 292 */
obj_t BgL_arg1431z00_193;
{ /* ./Cc/ld.scm 292 */
obj_t BgL_auxz00_1906;
BgL_auxz00_1906 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1431z00_193 = 
MAKE_PAIR(BgL_auxz00_1906, BNIL); } 
{ /* ./Cc/ld.scm 292 */
obj_t BgL_auxz00_1909;
BgL_auxz00_1909 = 
BCHAR(((unsigned char)']')); 
BgL_arg1428z00_192 = 
MAKE_PAIR(BgL_auxz00_1909, BgL_arg1431z00_193); } } 
BgL_arg1425z00_191 = 
MAKE_PAIR(BgL_cmdz00_188, BgL_arg1428z00_192); } 
BgL_list1422z00_189 = 
MAKE_PAIR(BGl_string3057z00zzcc_ldz00, BgL_arg1425z00_191); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list1422z00_189); } 
return 
BGl_execz00zzcc_execz00(BgL_cmdz00_188, BgL_needzd2tozd2returnz00_16, BGl_string3032z00zzcc_ldz00);} } } } } } } } } } 
}



/* <exit:1754> */
obj_t BGl_zc3exitza31754ze3z83zzcc_ldz00(obj_t BgL_port1018z00_1524)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 195 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1020z00_323;
if( SET_EXIT(BgL_an_exit1020z00_323) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1020z00_323 = 
(obj_t)jmpbuf; 
{ /* ./Cc/ld.scm 195 */

PUSH_EXIT(BgL_an_exit1020z00_323, ((bool_t)0)); 
{ /* ./Cc/ld.scm 195 */
obj_t BgL_val1021z00_324;
{ /* ./Cc/ld.scm 195 */
obj_t BgL_arg1760z00_325;
{ /* ./Cc/ld.scm 195 */
obj_t BgL_thezd2rgczd2contextz00_326;
BgL_thezd2rgczd2contextz00_326 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Cc/ld.scm 195 */
obj_t BgL_zc3anonymousza31762ze3z83_1492;
{ 
int BgL_auxz00_1920;
BgL_auxz00_1920 = 
(int)(((long)1)); 
BgL_zc3anonymousza31762ze3z83_1492 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_1920); } 
{ /* ./Cc/ld.scm 195 */
int BgL_auxz00_1923;
BgL_auxz00_1923 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza31762ze3z83_1492, BgL_auxz00_1923, BgL_thezd2rgczd2contextz00_326); } 
BgL_arg1760z00_325 = BgL_zc3anonymousza31762ze3z83_1492; } } 
BgL_val1021z00_324 = 
BGl_zc3anonymousza31762ze3z83zzcc_ldz00(BgL_arg1760z00_325, BgL_port1018z00_1524, BFALSE); } 
POP_EXIT(); 
return BgL_val1021z00_324;} } 
} } 
}



/* loop' */
obj_t BGl_loopz72z72zzcc_ldz00(obj_t BgL_pathz00_245)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 266 */
{ /* ./Cc/ld.scm 267 */
bool_t BgL_test1582z00_247;
BgL_test1582z00_247 = 
NULLP(BgL_pathz00_245); 
if(BgL_test1582z00_247)
{ /* ./Cc/ld.scm 267 */
return BGl_string3035z00zzcc_ldz00;}  else 
{ /* ./Cc/ld.scm 269 */
obj_t BgL_arg1587z00_249;obj_t BgL_arg1590z00_251;
BgL_arg1587z00_249 = 
CAR(BgL_pathz00_245); 
{ /* ./Cc/ld.scm 272 */
obj_t BgL_arg1606z00_256;
BgL_arg1606z00_256 = 
CDR(BgL_pathz00_245); 
BgL_arg1590z00_251 = 
BGl_loopz72z72zzcc_ldz00(BgL_arg1606z00_256); } 
{ /* ./Cc/ld.scm 269 */
obj_t BgL_list1592z00_252;
{ /* ./Cc/ld.scm 269 */
obj_t BgL_arg1594z00_253;
{ /* ./Cc/ld.scm 269 */
obj_t BgL_arg1597z00_254;
{ /* ./Cc/ld.scm 269 */
obj_t BgL_arg1600z00_255;
BgL_arg1600z00_255 = 
MAKE_PAIR(BgL_arg1590z00_251, BNIL); 
BgL_arg1597z00_254 = 
MAKE_PAIR(BGl_string3055z00zzcc_ldz00, BgL_arg1600z00_255); } 
BgL_arg1594z00_253 = 
MAKE_PAIR(BgL_arg1587z00_249, BgL_arg1597z00_254); } 
BgL_list1592z00_252 = 
MAKE_PAIR(BGl_string3058z00zzcc_ldz00, BgL_arg1594z00_253); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1592z00_252);} } } } 
}



/* ignore */
obj_t BGl_ignorez00zzcc_ldz00(obj_t BgL_statezd20zd21022z00_1496, obj_t BgL_thezd2rgczd2contextz00_1495, obj_t BgL_procz00_1494, obj_t BgL_inputzd2portzd2_1493)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 195 */
RGC_START_MATCH(BgL_inputzd2portzd2_1493); 
{ /* ./Cc/ld.scm 195 */
long BgL_matchz00_360;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1772z00_364;
BgL_test1772z00_364 = 
PROCEDUREP(BgL_procz00_1494); 
if(BgL_test1772z00_364)
{ /* ./Cc/ld.scm 195 */
obj_t BgL_auxz00_1942;
BgL_auxz00_1942 = 
PROCEDURE_ENTRY(BgL_procz00_1494)(BgL_procz00_1494, BgL_statezd20zd21022z00_1496, BgL_inputzd2portzd2_1493, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_1495), BEOA); 
BgL_matchz00_360 = 
(long)CINT(BgL_auxz00_1942); }  else 
{ /* ./Cc/ld.scm 195 */
obj_t BgL_auxz00_1947;
BgL_auxz00_1947 = 
BGl_STATEzd20zd21022z00zzcc_ldz00(BgL_statezd20zd21022z00_1496, BgL_inputzd2portzd2_1493, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_1495)); 
BgL_matchz00_360 = 
(long)CINT(BgL_auxz00_1947); } } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1493); 
switch( BgL_matchz00_360) { case ((long)1) : 

return BFALSE;break;case ((long)0) : 

return BTRUE;break;
default: 
return 
BGl_case_else1037z00zzcc_ldz00(BgL_matchz00_360);} } } 
}



/* case_else1037 */
obj_t BGl_case_else1037z00zzcc_ldz00(long BgL_matchz00_1497)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
obj_t BgL_objectz00_1061;
BgL_objectz00_1061 = 
BINT(BgL_matchz00_1497); 
FAILURE(BGl_string3059z00zzcc_ldz00,BGl_string3060z00zzcc_ldz00,BgL_objectz00_1061);} } 
}



/* <anonymous:1762> */
obj_t BGl_zc3anonymousza31762ze3z83zzcc_ldz00(obj_t BgL_envz00_1498, obj_t BgL_inputzd2portzd2_1500, obj_t BgL_procz00_1501)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
obj_t BgL_thezd2rgczd2contextz00_1499;
{ /* ./Cc/ld.scm 195 */
int BgL_auxz00_1956;
BgL_auxz00_1956 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_1499 = 
PROCEDURE_1_EL_REF(BgL_envz00_1498, BgL_auxz00_1956); } 
{ 
obj_t BgL_inputzd2portzd2_327;obj_t BgL_procz00_328;
BgL_inputzd2portzd2_327 = BgL_inputzd2portzd2_1500; 
BgL_procz00_328 = BgL_procz00_1501; 
return 
BGl_ignorez00zzcc_ldz00(BGl_proc3061z00zzcc_ldz00, BgL_thezd2rgczd2contextz00_1499, BgL_procz00_328, BgL_inputzd2portzd2_327);} } } 
}



/* STATE-0-1022 */
obj_t BGl_STATEzd20zd21022z00zzcc_ldz00(obj_t BgL_envz00_1502, obj_t BgL_inputzd2portzd2_1503, obj_t BgL_lastzd2matchzd2_1504, obj_t BgL_thezd2rgczd2contextz00_1505)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_inputzd2portzd2_527;obj_t BgL_lastzd2matchzd2_528;obj_t BgL_thezd2rgczd2contextz00_529;
BgL_inputzd2portzd2_527 = BgL_inputzd2portzd2_1503; 
BgL_lastzd2matchzd2_528 = BgL_lastzd2matchzd2_1504; 
BgL_thezd2rgczd2contextz00_529 = BgL_thezd2rgczd2contextz00_1505; 
BgL_zc3anonymousza32061ze3z83_530:
{ 
obj_t BgL_inputzd2portzd2_474;obj_t BgL_lastzd2matchzd2_475;obj_t BgL_thezd2rgczd2contextz00_476;obj_t BgL_inputzd2portzd2_400;obj_t BgL_lastzd2matchzd2_401;obj_t BgL_thezd2rgczd2contextz00_402;obj_t BgL_inputzd2portzd2_488;long BgL_lastzd2matchzd2_489;obj_t BgL_thezd2rgczd2contextz00_490;obj_t BgL_inputzd2portzd2_412;long BgL_lastzd2matchzd2_413;obj_t BgL_thezd2rgczd2contextz00_414;obj_t BgL_inputzd2portzd2_501;long BgL_lastzd2matchzd2_502;obj_t BgL_thezd2rgczd2contextz00_503;obj_t BgL_inputzd2portzd2_514;long BgL_lastzd2matchzd2_515;obj_t BgL_thezd2rgczd2contextz00_516;obj_t BgL_inputzd2portzd2_423;long BgL_lastzd2matchzd2_424;obj_t BgL_thezd2rgczd2contextz00_425;obj_t BgL_inputzd2portzd2_436;long BgL_lastzd2matchzd2_437;obj_t BgL_thezd2rgczd2contextz00_438;obj_t BgL_inputzd2portzd2_449;long BgL_lastzd2matchzd2_450;obj_t BgL_thezd2rgczd2contextz00_451;obj_t BgL_inputzd2portzd2_462;long BgL_lastzd2matchzd2_463;obj_t BgL_thezd2rgczd2contextz00_464;
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_531;
BgL_currentzd2charzd2_531 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_527); 
{ 

switch( 
(long)(BgL_currentzd2charzd2_531)) { case ((long)0) : 

{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2063z00_535;
BgL_test2063z00_535 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_527); 
if(BgL_test2063z00_535)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2064z00_536;
BgL_test2064z00_536 = 
rgc_fill_buffer(BgL_inputzd2portzd2_527); 
if(BgL_test2064z00_536)
{ 

goto BgL_zc3anonymousza32061ze3z83_530;}  else 
{ /* ./Cc/ld.scm 195 */
return BgL_lastzd2matchzd2_528;} }  else 
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_1965;
BgL_inputzd2portzd2_400 = BgL_inputzd2portzd2_527; 
BgL_lastzd2matchzd2_401 = BgL_lastzd2matchzd2_528; 
BgL_thezd2rgczd2contextz00_402 = BgL_thezd2rgczd2contextz00_529; 
BgL_zc3anonymousza31836ze3z83_403:
{ /* ./Cc/ld.scm 195 */
long BgL_newzd2matchzd2_404;
RGC_STOP_MATCH(BgL_inputzd2portzd2_400); 
BgL_newzd2matchzd2_404 = ((long)1); 
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_405;
BgL_currentzd2charzd2_405 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_400); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1837z00_406;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_1968;
BgL_auxz00_1968 = 
(long)(BgL_currentzd2charzd2_405); 
BgL_test1837z00_406 = 
(BgL_auxz00_1968==((long)0)); } 
if(BgL_test1837z00_406)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1838z00_407;
BgL_test1838z00_407 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_400); 
if(BgL_test1838z00_407)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1839z00_408;
BgL_test1839z00_408 = 
rgc_fill_buffer(BgL_inputzd2portzd2_400); 
if(BgL_test1839z00_408)
{ 

goto BgL_zc3anonymousza31836ze3z83_403;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_newzd2matchzd2_404
; } }  else 
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_400; 
BgL_lastzd2matchzd2_413 = BgL_newzd2matchzd2_404; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_402; 
BgL_zc3anonymousza31855ze3z83_415:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_416;
BgL_currentzd2charzd2_416 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_412); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1856z00_417;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_1977;
BgL_auxz00_1977 = 
(long)(BgL_currentzd2charzd2_416); 
BgL_test1856z00_417 = 
(BgL_auxz00_1977==((long)0)); } 
if(BgL_test1856z00_417)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1857z00_418;
BgL_test1857z00_418 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_412); 
if(BgL_test1857z00_418)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1858z00_419;
BgL_test1858z00_419 = 
rgc_fill_buffer(BgL_inputzd2portzd2_412); 
if(BgL_test1858z00_419)
{ 

goto BgL_zc3anonymousza31855ze3z83_415;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_413
; } }  else 
{ 

goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1863z00_420;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_1985;
BgL_auxz00_1985 = 
(long)(BgL_currentzd2charzd2_416); 
BgL_test1863z00_420 = 
(BgL_auxz00_1985==((long)45)); } 
if(BgL_test1863z00_420)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_412; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_413; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_414; 
BgL_zc3anonymousza31989ze3z83_491:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_492;
BgL_currentzd2charzd2_492 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_488); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1990z00_493;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_1990;
BgL_auxz00_1990 = 
(long)(BgL_currentzd2charzd2_492); 
BgL_test1990z00_493 = 
(BgL_auxz00_1990==((long)0)); } 
if(BgL_test1990z00_493)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1991z00_494;
BgL_test1991z00_494 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_488); 
if(BgL_test1991z00_494)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1992z00_495;
BgL_test1992z00_495 = 
rgc_fill_buffer(BgL_inputzd2portzd2_488); 
if(BgL_test1992z00_495)
{ 

goto BgL_zc3anonymousza31989ze3z83_491;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_489
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2000;long BgL_lastzd2matchzd2_1999;obj_t BgL_inputzd2portzd2_1998;
BgL_inputzd2portzd2_1998 = BgL_inputzd2portzd2_488; 
BgL_lastzd2matchzd2_1999 = BgL_lastzd2matchzd2_489; 
BgL_thezd2rgczd2contextz00_2000 = BgL_thezd2rgczd2contextz00_490; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2000; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_1999; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_1998; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1997z00_496;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2001;
BgL_auxz00_2001 = 
(long)(BgL_currentzd2charzd2_492); 
BgL_test1997z00_496 = 
(BgL_auxz00_2001==((long)115)); } 
if(BgL_test1997z00_496)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_501 = BgL_inputzd2portzd2_488; 
BgL_lastzd2matchzd2_502 = BgL_lastzd2matchzd2_489; 
BgL_thezd2rgczd2contextz00_503 = BgL_thezd2rgczd2contextz00_490; 
BgL_zc3anonymousza32013ze3z83_504:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_505;
BgL_currentzd2charzd2_505 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_501); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2015z00_506;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2006;
BgL_auxz00_2006 = 
(long)(BgL_currentzd2charzd2_505); 
BgL_test2015z00_506 = 
(BgL_auxz00_2006==((long)0)); } 
if(BgL_test2015z00_506)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2016z00_507;
BgL_test2016z00_507 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_501); 
if(BgL_test2016z00_507)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2017z00_508;
BgL_test2017z00_508 = 
rgc_fill_buffer(BgL_inputzd2portzd2_501); 
if(BgL_test2017z00_508)
{ 

goto BgL_zc3anonymousza32013ze3z83_504;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_502
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2016;long BgL_lastzd2matchzd2_2015;obj_t BgL_inputzd2portzd2_2014;
BgL_inputzd2portzd2_2014 = BgL_inputzd2portzd2_501; 
BgL_lastzd2matchzd2_2015 = BgL_lastzd2matchzd2_502; 
BgL_thezd2rgczd2contextz00_2016 = BgL_thezd2rgczd2contextz00_503; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2016; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2015; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2014; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2022z00_509;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2017;
BgL_auxz00_2017 = 
(long)(BgL_currentzd2charzd2_505); 
BgL_test2022z00_509 = 
(BgL_auxz00_2017==((long)116)); } 
if(BgL_test2022z00_509)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_514 = BgL_inputzd2portzd2_501; 
BgL_lastzd2matchzd2_515 = BgL_lastzd2matchzd2_502; 
BgL_thezd2rgczd2contextz00_516 = BgL_thezd2rgczd2contextz00_503; 
BgL_zc3anonymousza32037ze3z83_517:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_518;
BgL_currentzd2charzd2_518 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_514); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2038z00_519;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2022;
BgL_auxz00_2022 = 
(long)(BgL_currentzd2charzd2_518); 
BgL_test2038z00_519 = 
(BgL_auxz00_2022==((long)0)); } 
if(BgL_test2038z00_519)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2039z00_520;
BgL_test2039z00_520 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_514); 
if(BgL_test2039z00_520)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2040z00_521;
BgL_test2040z00_521 = 
rgc_fill_buffer(BgL_inputzd2portzd2_514); 
if(BgL_test2040z00_521)
{ 

goto BgL_zc3anonymousza32037ze3z83_517;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_515
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2032;long BgL_lastzd2matchzd2_2031;obj_t BgL_inputzd2portzd2_2030;
BgL_inputzd2portzd2_2030 = BgL_inputzd2portzd2_514; 
BgL_lastzd2matchzd2_2031 = BgL_lastzd2matchzd2_515; 
BgL_thezd2rgczd2contextz00_2032 = BgL_thezd2rgczd2contextz00_516; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2032; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2031; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2030; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2045z00_522;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2033;
BgL_auxz00_2033 = 
(long)(BgL_currentzd2charzd2_518); 
BgL_test2045z00_522 = 
(BgL_auxz00_2033==((long)97)); } 
if(BgL_test2045z00_522)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_423 = BgL_inputzd2portzd2_514; 
BgL_lastzd2matchzd2_424 = BgL_lastzd2matchzd2_515; 
BgL_thezd2rgczd2contextz00_425 = BgL_thezd2rgczd2contextz00_516; 
BgL_zc3anonymousza31873ze3z83_426:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_427;
BgL_currentzd2charzd2_427 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_423); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1874z00_428;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2038;
BgL_auxz00_2038 = 
(long)(BgL_currentzd2charzd2_427); 
BgL_test1874z00_428 = 
(BgL_auxz00_2038==((long)0)); } 
if(BgL_test1874z00_428)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1875z00_429;
BgL_test1875z00_429 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_423); 
if(BgL_test1875z00_429)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1876z00_430;
BgL_test1876z00_430 = 
rgc_fill_buffer(BgL_inputzd2portzd2_423); 
if(BgL_test1876z00_430)
{ 

goto BgL_zc3anonymousza31873ze3z83_426;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_424
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2048;long BgL_lastzd2matchzd2_2047;obj_t BgL_inputzd2portzd2_2046;
BgL_inputzd2portzd2_2046 = BgL_inputzd2portzd2_423; 
BgL_lastzd2matchzd2_2047 = BgL_lastzd2matchzd2_424; 
BgL_thezd2rgczd2contextz00_2048 = BgL_thezd2rgczd2contextz00_425; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2048; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2047; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2046; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1881z00_431;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2049;
BgL_auxz00_2049 = 
(long)(BgL_currentzd2charzd2_427); 
BgL_test1881z00_431 = 
(BgL_auxz00_2049==((long)116)); } 
if(BgL_test1881z00_431)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_436 = BgL_inputzd2portzd2_423; 
BgL_lastzd2matchzd2_437 = BgL_lastzd2matchzd2_424; 
BgL_thezd2rgczd2contextz00_438 = BgL_thezd2rgczd2contextz00_425; 
BgL_zc3anonymousza31897ze3z83_439:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_440;
BgL_currentzd2charzd2_440 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_436); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1898z00_441;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2054;
BgL_auxz00_2054 = 
(long)(BgL_currentzd2charzd2_440); 
BgL_test1898z00_441 = 
(BgL_auxz00_2054==((long)0)); } 
if(BgL_test1898z00_441)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1899z00_442;
BgL_test1899z00_442 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_436); 
if(BgL_test1899z00_442)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1900z00_443;
BgL_test1900z00_443 = 
rgc_fill_buffer(BgL_inputzd2portzd2_436); 
if(BgL_test1900z00_443)
{ 

goto BgL_zc3anonymousza31897ze3z83_439;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_437
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2064;long BgL_lastzd2matchzd2_2063;obj_t BgL_inputzd2portzd2_2062;
BgL_inputzd2portzd2_2062 = BgL_inputzd2portzd2_436; 
BgL_lastzd2matchzd2_2063 = BgL_lastzd2matchzd2_437; 
BgL_thezd2rgczd2contextz00_2064 = BgL_thezd2rgczd2contextz00_438; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2064; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2063; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2062; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1907z00_444;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2065;
BgL_auxz00_2065 = 
(long)(BgL_currentzd2charzd2_440); 
BgL_test1907z00_444 = 
(BgL_auxz00_2065==((long)105)); } 
if(BgL_test1907z00_444)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_449 = BgL_inputzd2portzd2_436; 
BgL_lastzd2matchzd2_450 = BgL_lastzd2matchzd2_437; 
BgL_thezd2rgczd2contextz00_451 = BgL_thezd2rgczd2contextz00_438; 
BgL_zc3anonymousza31922ze3z83_452:
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_453;
BgL_currentzd2charzd2_453 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_449); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1923z00_454;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2070;
BgL_auxz00_2070 = 
(long)(BgL_currentzd2charzd2_453); 
BgL_test1923z00_454 = 
(BgL_auxz00_2070==((long)0)); } 
if(BgL_test1923z00_454)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1924z00_455;
BgL_test1924z00_455 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_449); 
if(BgL_test1924z00_455)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1925z00_456;
BgL_test1925z00_456 = 
rgc_fill_buffer(BgL_inputzd2portzd2_449); 
if(BgL_test1925z00_456)
{ 

goto BgL_zc3anonymousza31922ze3z83_452;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_450
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2080;long BgL_lastzd2matchzd2_2079;obj_t BgL_inputzd2portzd2_2078;
BgL_inputzd2portzd2_2078 = BgL_inputzd2portzd2_449; 
BgL_lastzd2matchzd2_2079 = BgL_lastzd2matchzd2_450; 
BgL_thezd2rgczd2contextz00_2080 = BgL_thezd2rgczd2contextz00_451; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2080; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2079; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2078; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1930z00_457;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2081;
BgL_auxz00_2081 = 
(long)(BgL_currentzd2charzd2_453); 
BgL_test1930z00_457 = 
(BgL_auxz00_2081==((long)99)); } 
if(BgL_test1930z00_457)
{ /* ./Cc/ld.scm 195 */
BgL_inputzd2portzd2_462 = BgL_inputzd2portzd2_449; 
BgL_lastzd2matchzd2_463 = BgL_lastzd2matchzd2_450; 
BgL_thezd2rgczd2contextz00_464 = BgL_thezd2rgczd2contextz00_451; 
BgL_zc3anonymousza31945ze3z83_465:
{ /* ./Cc/ld.scm 195 */
long BgL_newzd2matchzd2_466;
RGC_STOP_MATCH(BgL_inputzd2portzd2_462); 
BgL_newzd2matchzd2_466 = ((long)0); 
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_467;
BgL_currentzd2charzd2_467 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_462); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1947z00_468;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2087;
BgL_auxz00_2087 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_test1947z00_468 = 
(BgL_auxz00_2087==((long)0)); } 
if(BgL_test1947z00_468)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1948z00_469;
BgL_test1948z00_469 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_462); 
if(BgL_test1948z00_469)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1949z00_470;
BgL_test1949z00_470 = 
rgc_fill_buffer(BgL_inputzd2portzd2_462); 
if(BgL_test1949z00_470)
{ 

goto BgL_zc3anonymousza31945ze3z83_465;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_newzd2matchzd2_466
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2097;long BgL_lastzd2matchzd2_2096;obj_t BgL_inputzd2portzd2_2095;
BgL_inputzd2portzd2_2095 = BgL_inputzd2portzd2_462; 
BgL_lastzd2matchzd2_2096 = BgL_newzd2matchzd2_466; 
BgL_thezd2rgczd2contextz00_2097 = BgL_thezd2rgczd2contextz00_464; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2097; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2096; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2095; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1954z00_471;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2098;
BgL_auxz00_2098 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_test1954z00_471 = 
(BgL_auxz00_2098==((long)45)); } 
if(BgL_test1954z00_471)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2104;long BgL_lastzd2matchzd2_2103;obj_t BgL_inputzd2portzd2_2102;
BgL_inputzd2portzd2_2102 = BgL_inputzd2portzd2_462; 
BgL_lastzd2matchzd2_2103 = BgL_newzd2matchzd2_466; 
BgL_thezd2rgczd2contextz00_2104 = BgL_thezd2rgczd2contextz00_464; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2104; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2103; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2102; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1956z00_472;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2105;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2106;
BgL_auxz00_2106 = 
(long)(BgL_currentzd2charzd2_467); 
BgL_testz00_2105 = 
(BgL_auxz00_2106==((long)10)); } 
if(BgL_testz00_2105)
{ /* ./Cc/ld.scm 195 */
BgL_test1956z00_472 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1956z00_472 = BgL_test1954z00_471; } } 
if(BgL_test1956z00_472)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_newzd2matchzd2_466; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2112;long BgL_lastzd2matchzd2_2111;obj_t BgL_inputzd2portzd2_2110;
BgL_inputzd2portzd2_2110 = BgL_inputzd2portzd2_462; 
BgL_lastzd2matchzd2_2111 = BgL_newzd2matchzd2_466; 
BgL_thezd2rgczd2contextz00_2112 = BgL_thezd2rgczd2contextz00_464; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2112; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2111; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2110; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1932z00_458;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2113;
BgL_auxz00_2113 = 
(long)(BgL_currentzd2charzd2_453); 
BgL_test1932z00_458 = 
(BgL_auxz00_2113==((long)45)); } 
if(BgL_test1932z00_458)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2119;long BgL_lastzd2matchzd2_2118;obj_t BgL_inputzd2portzd2_2117;
BgL_inputzd2portzd2_2117 = BgL_inputzd2portzd2_449; 
BgL_lastzd2matchzd2_2118 = BgL_lastzd2matchzd2_450; 
BgL_thezd2rgczd2contextz00_2119 = BgL_thezd2rgczd2contextz00_451; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2119; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2118; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2117; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1934z00_459;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2120;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2121;
BgL_auxz00_2121 = 
(long)(BgL_currentzd2charzd2_453); 
BgL_testz00_2120 = 
(BgL_auxz00_2121==((long)10)); } 
if(BgL_testz00_2120)
{ /* ./Cc/ld.scm 195 */
BgL_test1934z00_459 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test1932z00_458)
{ /* ./Cc/ld.scm 195 */
BgL_test1934z00_459 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1934z00_459 = BgL_test1930z00_457; } } } 
if(BgL_test1934z00_459)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_450; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2128;long BgL_lastzd2matchzd2_2127;obj_t BgL_inputzd2portzd2_2126;
BgL_inputzd2portzd2_2126 = BgL_inputzd2portzd2_449; 
BgL_lastzd2matchzd2_2127 = BgL_lastzd2matchzd2_450; 
BgL_thezd2rgczd2contextz00_2128 = BgL_thezd2rgczd2contextz00_451; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2128; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2127; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2126; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1909z00_445;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2129;
BgL_auxz00_2129 = 
(long)(BgL_currentzd2charzd2_440); 
BgL_test1909z00_445 = 
(BgL_auxz00_2129==((long)45)); } 
if(BgL_test1909z00_445)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2135;long BgL_lastzd2matchzd2_2134;obj_t BgL_inputzd2portzd2_2133;
BgL_inputzd2portzd2_2133 = BgL_inputzd2portzd2_436; 
BgL_lastzd2matchzd2_2134 = BgL_lastzd2matchzd2_437; 
BgL_thezd2rgczd2contextz00_2135 = BgL_thezd2rgczd2contextz00_438; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2135; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2134; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2133; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1911z00_446;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2136;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2137;
BgL_auxz00_2137 = 
(long)(BgL_currentzd2charzd2_440); 
BgL_testz00_2136 = 
(BgL_auxz00_2137==((long)10)); } 
if(BgL_testz00_2136)
{ /* ./Cc/ld.scm 195 */
BgL_test1911z00_446 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test1909z00_445)
{ /* ./Cc/ld.scm 195 */
BgL_test1911z00_446 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1911z00_446 = BgL_test1907z00_444; } } } 
if(BgL_test1911z00_446)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_437; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2144;long BgL_lastzd2matchzd2_2143;obj_t BgL_inputzd2portzd2_2142;
BgL_inputzd2portzd2_2142 = BgL_inputzd2portzd2_436; 
BgL_lastzd2matchzd2_2143 = BgL_lastzd2matchzd2_437; 
BgL_thezd2rgczd2contextz00_2144 = BgL_thezd2rgczd2contextz00_438; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2144; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2143; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2142; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1884z00_432;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2145;
BgL_auxz00_2145 = 
(long)(BgL_currentzd2charzd2_427); 
BgL_test1884z00_432 = 
(BgL_auxz00_2145==((long)45)); } 
if(BgL_test1884z00_432)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2151;long BgL_lastzd2matchzd2_2150;obj_t BgL_inputzd2portzd2_2149;
BgL_inputzd2portzd2_2149 = BgL_inputzd2portzd2_423; 
BgL_lastzd2matchzd2_2150 = BgL_lastzd2matchzd2_424; 
BgL_thezd2rgczd2contextz00_2151 = BgL_thezd2rgczd2contextz00_425; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2151; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2150; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2149; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1886z00_433;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2152;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2153;
BgL_auxz00_2153 = 
(long)(BgL_currentzd2charzd2_427); 
BgL_testz00_2152 = 
(BgL_auxz00_2153==((long)10)); } 
if(BgL_testz00_2152)
{ /* ./Cc/ld.scm 195 */
BgL_test1886z00_433 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test1884z00_432)
{ /* ./Cc/ld.scm 195 */
BgL_test1886z00_433 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1886z00_433 = BgL_test1881z00_431; } } } 
if(BgL_test1886z00_433)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_424; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2160;long BgL_lastzd2matchzd2_2159;obj_t BgL_inputzd2portzd2_2158;
BgL_inputzd2portzd2_2158 = BgL_inputzd2portzd2_423; 
BgL_lastzd2matchzd2_2159 = BgL_lastzd2matchzd2_424; 
BgL_thezd2rgczd2contextz00_2160 = BgL_thezd2rgczd2contextz00_425; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2160; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2159; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2158; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2047z00_523;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2161;
BgL_auxz00_2161 = 
(long)(BgL_currentzd2charzd2_518); 
BgL_test2047z00_523 = 
(BgL_auxz00_2161==((long)45)); } 
if(BgL_test2047z00_523)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2167;long BgL_lastzd2matchzd2_2166;obj_t BgL_inputzd2portzd2_2165;
BgL_inputzd2portzd2_2165 = BgL_inputzd2portzd2_514; 
BgL_lastzd2matchzd2_2166 = BgL_lastzd2matchzd2_515; 
BgL_thezd2rgczd2contextz00_2167 = BgL_thezd2rgczd2contextz00_516; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2167; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2166; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2165; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2049z00_524;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2168;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2169;
BgL_auxz00_2169 = 
(long)(BgL_currentzd2charzd2_518); 
BgL_testz00_2168 = 
(BgL_auxz00_2169==((long)10)); } 
if(BgL_testz00_2168)
{ /* ./Cc/ld.scm 195 */
BgL_test2049z00_524 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test2047z00_523)
{ /* ./Cc/ld.scm 195 */
BgL_test2049z00_524 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test2049z00_524 = BgL_test2045z00_522; } } } 
if(BgL_test2049z00_524)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_515; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2176;long BgL_lastzd2matchzd2_2175;obj_t BgL_inputzd2portzd2_2174;
BgL_inputzd2portzd2_2174 = BgL_inputzd2portzd2_514; 
BgL_lastzd2matchzd2_2175 = BgL_lastzd2matchzd2_515; 
BgL_thezd2rgczd2contextz00_2176 = BgL_thezd2rgczd2contextz00_516; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2176; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2175; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2174; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2024z00_510;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2177;
BgL_auxz00_2177 = 
(long)(BgL_currentzd2charzd2_505); 
BgL_test2024z00_510 = 
(BgL_auxz00_2177==((long)45)); } 
if(BgL_test2024z00_510)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2183;long BgL_lastzd2matchzd2_2182;obj_t BgL_inputzd2portzd2_2181;
BgL_inputzd2portzd2_2181 = BgL_inputzd2portzd2_501; 
BgL_lastzd2matchzd2_2182 = BgL_lastzd2matchzd2_502; 
BgL_thezd2rgczd2contextz00_2183 = BgL_thezd2rgczd2contextz00_503; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2183; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2182; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2181; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2026z00_511;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2184;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2185;
BgL_auxz00_2185 = 
(long)(BgL_currentzd2charzd2_505); 
BgL_testz00_2184 = 
(BgL_auxz00_2185==((long)10)); } 
if(BgL_testz00_2184)
{ /* ./Cc/ld.scm 195 */
BgL_test2026z00_511 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test2024z00_510)
{ /* ./Cc/ld.scm 195 */
BgL_test2026z00_511 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test2026z00_511 = BgL_test2022z00_509; } } } 
if(BgL_test2026z00_511)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_502; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2192;long BgL_lastzd2matchzd2_2191;obj_t BgL_inputzd2portzd2_2190;
BgL_inputzd2portzd2_2190 = BgL_inputzd2portzd2_501; 
BgL_lastzd2matchzd2_2191 = BgL_lastzd2matchzd2_502; 
BgL_thezd2rgczd2contextz00_2192 = BgL_thezd2rgczd2contextz00_503; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2192; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2191; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2190; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1999z00_497;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2193;
BgL_auxz00_2193 = 
(long)(BgL_currentzd2charzd2_492); 
BgL_test1999z00_497 = 
(BgL_auxz00_2193==((long)45)); } 
if(BgL_test1999z00_497)
{ /* ./Cc/ld.scm 195 */
{ 

goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test2002z00_498;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2197;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2198;
BgL_auxz00_2198 = 
(long)(BgL_currentzd2charzd2_492); 
BgL_testz00_2197 = 
(BgL_auxz00_2198==((long)10)); } 
if(BgL_testz00_2197)
{ /* ./Cc/ld.scm 195 */
BgL_test2002z00_498 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test1999z00_497)
{ /* ./Cc/ld.scm 195 */
BgL_test2002z00_498 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test2002z00_498 = BgL_test1997z00_496; } } } 
if(BgL_test2002z00_498)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_489; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2205;long BgL_lastzd2matchzd2_2204;obj_t BgL_inputzd2portzd2_2203;
BgL_inputzd2portzd2_2203 = BgL_inputzd2portzd2_488; 
BgL_lastzd2matchzd2_2204 = BgL_lastzd2matchzd2_489; 
BgL_thezd2rgczd2contextz00_2205 = BgL_thezd2rgczd2contextz00_490; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2205; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2204; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2203; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1865z00_421;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2206;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2207;
BgL_auxz00_2207 = 
(long)(BgL_currentzd2charzd2_416); 
BgL_testz00_2206 = 
(BgL_auxz00_2207==((long)10)); } 
if(BgL_testz00_2206)
{ /* ./Cc/ld.scm 195 */
BgL_test1865z00_421 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1865z00_421 = BgL_test1863z00_420; } } 
if(BgL_test1865z00_421)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_lastzd2matchzd2_413; }  else 
{ /* ./Cc/ld.scm 195 */
{ 

goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1844z00_409;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2211;
BgL_auxz00_2211 = 
(long)(BgL_currentzd2charzd2_405); 
BgL_test1844z00_409 = 
(BgL_auxz00_2211==((long)45)); } 
if(BgL_test1844z00_409)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2217;long BgL_lastzd2matchzd2_2216;obj_t BgL_inputzd2portzd2_2215;
BgL_inputzd2portzd2_2215 = BgL_inputzd2portzd2_400; 
BgL_lastzd2matchzd2_2216 = BgL_newzd2matchzd2_404; 
BgL_thezd2rgczd2contextz00_2217 = BgL_thezd2rgczd2contextz00_402; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2217; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2216; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2215; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1846z00_410;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2218;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2219;
BgL_auxz00_2219 = 
(long)(BgL_currentzd2charzd2_405); 
BgL_testz00_2218 = 
(BgL_auxz00_2219==((long)10)); } 
if(BgL_testz00_2218)
{ /* ./Cc/ld.scm 195 */
BgL_test1846z00_410 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1846z00_410 = BgL_test1844z00_409; } } 
if(BgL_test1846z00_410)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_1965 = BgL_newzd2matchzd2_404; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2225;long BgL_lastzd2matchzd2_2224;obj_t BgL_inputzd2portzd2_2223;
BgL_inputzd2portzd2_2223 = BgL_inputzd2portzd2_400; 
BgL_lastzd2matchzd2_2224 = BgL_newzd2matchzd2_404; 
BgL_thezd2rgczd2contextz00_2225 = BgL_thezd2rgczd2contextz00_402; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2225; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2224; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2223; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } 
return 
BINT(BgL_auxz00_1965);} } break;case ((long)45) : 

{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2227;
BgL_inputzd2portzd2_474 = BgL_inputzd2portzd2_527; 
BgL_lastzd2matchzd2_475 = BgL_lastzd2matchzd2_528; 
BgL_thezd2rgczd2contextz00_476 = BgL_thezd2rgczd2contextz00_529; 
BgL_zc3anonymousza31965ze3z83_477:
{ /* ./Cc/ld.scm 195 */
long BgL_newzd2matchzd2_478;
RGC_STOP_MATCH(BgL_inputzd2portzd2_474); 
BgL_newzd2matchzd2_478 = ((long)1); 
{ /* ./Cc/ld.scm 195 */
int BgL_currentzd2charzd2_479;
BgL_currentzd2charzd2_479 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_474); 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1966z00_480;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2230;
BgL_auxz00_2230 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_test1966z00_480 = 
(BgL_auxz00_2230==((long)0)); } 
if(BgL_test1966z00_480)
{ /* ./Cc/ld.scm 195 */
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1967z00_481;
BgL_test1967z00_481 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_474); 
if(BgL_test1967z00_481)
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1968z00_482;
BgL_test1968z00_482 = 
rgc_fill_buffer(BgL_inputzd2portzd2_474); 
if(BgL_test1968z00_482)
{ 

goto BgL_zc3anonymousza31965ze3z83_477;}  else 
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_2227 = BgL_newzd2matchzd2_478
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2240;long BgL_lastzd2matchzd2_2239;obj_t BgL_inputzd2portzd2_2238;
BgL_inputzd2portzd2_2238 = BgL_inputzd2portzd2_474; 
BgL_lastzd2matchzd2_2239 = BgL_newzd2matchzd2_478; 
BgL_thezd2rgczd2contextz00_2240 = BgL_thezd2rgczd2contextz00_476; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2240; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2239; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2238; 
goto BgL_zc3anonymousza31855ze3z83_415;} } }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1973z00_483;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2241;
BgL_auxz00_2241 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_test1973z00_483 = 
(BgL_auxz00_2241==((long)115)); } 
if(BgL_test1973z00_483)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2247;long BgL_lastzd2matchzd2_2246;obj_t BgL_inputzd2portzd2_2245;
BgL_inputzd2portzd2_2245 = BgL_inputzd2portzd2_474; 
BgL_lastzd2matchzd2_2246 = BgL_newzd2matchzd2_478; 
BgL_thezd2rgczd2contextz00_2247 = BgL_thezd2rgczd2contextz00_476; 
BgL_thezd2rgczd2contextz00_503 = BgL_thezd2rgczd2contextz00_2247; 
BgL_lastzd2matchzd2_502 = BgL_lastzd2matchzd2_2246; 
BgL_inputzd2portzd2_501 = BgL_inputzd2portzd2_2245; 
goto BgL_zc3anonymousza32013ze3z83_504;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1975z00_484;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2248;
BgL_auxz00_2248 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_test1975z00_484 = 
(BgL_auxz00_2248==((long)45)); } 
if(BgL_test1975z00_484)
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2254;long BgL_lastzd2matchzd2_2253;obj_t BgL_inputzd2portzd2_2252;
BgL_inputzd2portzd2_2252 = BgL_inputzd2portzd2_474; 
BgL_lastzd2matchzd2_2253 = BgL_newzd2matchzd2_478; 
BgL_thezd2rgczd2contextz00_2254 = BgL_thezd2rgczd2contextz00_476; 
BgL_thezd2rgczd2contextz00_490 = BgL_thezd2rgczd2contextz00_2254; 
BgL_lastzd2matchzd2_489 = BgL_lastzd2matchzd2_2253; 
BgL_inputzd2portzd2_488 = BgL_inputzd2portzd2_2252; 
goto BgL_zc3anonymousza31989ze3z83_491;} }  else 
{ /* ./Cc/ld.scm 195 */
bool_t BgL_test1977z00_485;
{ /* ./Cc/ld.scm 195 */
bool_t BgL_testz00_2255;
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2256;
BgL_auxz00_2256 = 
(long)(BgL_currentzd2charzd2_479); 
BgL_testz00_2255 = 
(BgL_auxz00_2256==((long)10)); } 
if(BgL_testz00_2255)
{ /* ./Cc/ld.scm 195 */
BgL_test1977z00_485 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
if(BgL_test1975z00_484)
{ /* ./Cc/ld.scm 195 */
BgL_test1977z00_485 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 195 */
BgL_test1977z00_485 = BgL_test1973z00_483; } } } 
if(BgL_test1977z00_485)
{ /* ./Cc/ld.scm 195 */
BgL_auxz00_2227 = BgL_newzd2matchzd2_478; }  else 
{ /* ./Cc/ld.scm 195 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2263;long BgL_lastzd2matchzd2_2262;obj_t BgL_inputzd2portzd2_2261;
BgL_inputzd2portzd2_2261 = BgL_inputzd2portzd2_474; 
BgL_lastzd2matchzd2_2262 = BgL_newzd2matchzd2_478; 
BgL_thezd2rgczd2contextz00_2263 = BgL_thezd2rgczd2contextz00_476; 
BgL_thezd2rgczd2contextz00_414 = BgL_thezd2rgczd2contextz00_2263; 
BgL_lastzd2matchzd2_413 = BgL_lastzd2matchzd2_2262; 
BgL_inputzd2portzd2_412 = BgL_inputzd2portzd2_2261; 
goto BgL_zc3anonymousza31855ze3z83_415;} } } } } } } } 
return 
BINT(BgL_auxz00_2227);} break;case ((long)10) : 

{ /* ./Cc/ld.scm 195 */
long BgL_newzd2matchzd2_1215;
RGC_STOP_MATCH(BgL_inputzd2portzd2_527); 
BgL_newzd2matchzd2_1215 = ((long)1); 
return 
BINT(BgL_newzd2matchzd2_1215);} break;
default: 
{ /* ./Cc/ld.scm 195 */
long BgL_auxz00_2267;
{ 
obj_t BgL_thezd2rgczd2contextz00_2270;obj_t BgL_lastzd2matchzd2_2269;obj_t BgL_inputzd2portzd2_2268;
BgL_inputzd2portzd2_2268 = BgL_inputzd2portzd2_527; 
BgL_lastzd2matchzd2_2269 = BgL_lastzd2matchzd2_528; 
BgL_thezd2rgczd2contextz00_2270 = BgL_thezd2rgczd2contextz00_529; 
BgL_thezd2rgczd2contextz00_402 = BgL_thezd2rgczd2contextz00_2270; 
BgL_lastzd2matchzd2_401 = BgL_lastzd2matchzd2_2269; 
BgL_inputzd2portzd2_400 = BgL_inputzd2portzd2_2268; 
goto BgL_zc3anonymousza31836ze3z83_403;} 
return 
BINT(BgL_auxz00_2267);} } } } } } } 
}



/* win32-ld */
obj_t BGl_win32zd2ldzd2zzcc_ldz00(obj_t BgL_namez00_17)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 304 */
{ /* ./Cc/ld.scm 305 */
obj_t BgL_list2081z00_575;
{ /* ./Cc/ld.scm 305 */
obj_t BgL_arg2084z00_577;
{ /* ./Cc/ld.scm 305 */
obj_t BgL_arg2087z00_578;
{ /* ./Cc/ld.scm 305 */
obj_t BgL_arg2091z00_580;
{ /* ./Cc/ld.scm 305 */
obj_t BgL_auxz00_2274;
BgL_auxz00_2274 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2091z00_580 = 
MAKE_PAIR(BgL_auxz00_2274, BNIL); } 
BgL_arg2087z00_578 = 
MAKE_PAIR(BGl_string3053z00zzcc_ldz00, BgL_arg2091z00_580); } 
BgL_arg2084z00_577 = 
MAKE_PAIR(BGl_za2ccza2z00zzengine_paramz00, BgL_arg2087z00_578); } 
BgL_list2081z00_575 = 
MAKE_PAIR(BGl_string3054z00zzcc_ldz00, BgL_arg2084z00_577); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list2081z00_575); } 
{ /* ./Cc/ld.scm 307 */
obj_t BgL_staticzf3zf3_581;
{ /* ./Cc/ld.scm 307 */
obj_t BgL_port1045z00_707;
{ /* ./Cc/ld.scm 307 */
obj_t BgL_stringz00_1254;
BgL_stringz00_1254 = BGl_za2ldzd2optionsza2zd2zzengine_paramz00; 
BgL_port1045z00_707 = 
open_input_string(BgL_stringz00_1254); } 
{ /* ./Cc/ld.scm 307 */
obj_t BgL_val1046z00_708;
BgL_val1046z00_708 = 
BGl_zc3exitza32361ze3z83zzcc_ldz00(BgL_port1045z00_707); 
close_input_port(BgL_port1045z00_707); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2353z00_709;
{ /* ./Cc/ld.scm 307 */
obj_t BgL_auxz00_2285;
BgL_auxz00_2285 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1046z00_708); 
BgL_test2353z00_709 = 
CBOOL(BgL_auxz00_2285); } 
if(BgL_test2353z00_709)
{ /* ./Cc/ld.scm 307 */
obj_t BgL_arg2355z00_710;obj_t BgL_arg2356z00_711;
BgL_arg2355z00_710 = 
CAR(BgL_val1046z00_708); 
BgL_arg2356z00_711 = 
CDR(BgL_val1046z00_708); 
BgL_staticzf3zf3_581 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg2355z00_710, BgL_arg2356z00_711); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_staticzf3zf3_581 = BgL_val1046z00_708; } } } } 
if(
CBOOL(BgL_staticzf3zf3_581))
{ /* ./Cc/ld.scm 313 */
obj_t BgL_auxz00_2294;
BgL_auxz00_2294 = 
string_to_bstring(ADDITIONAL_STATIC_LINK_OPTION); 
BGl_za2ldzd2optionsza2zd2zzengine_paramz00 = 
string_append_3(BgL_auxz00_2294, BGl_string3055z00zzcc_ldz00, BGl_za2ldzd2optionsza2zd2zzengine_paramz00); }  else 
{ /* ./Cc/ld.scm 315 */
obj_t BgL_auxz00_2297;
BgL_auxz00_2297 = 
string_to_bstring(ADDITIONAL_SHARED_LINK_OPTION); 
BGl_za2ldzd2optionsza2zd2zzengine_paramz00 = 
string_append_3(BgL_auxz00_2297, BGl_string3055z00zzcc_ldz00, BGl_za2ldzd2optionsza2zd2zzengine_paramz00); } 
{ /* ./Cc/ld.scm 317 */
obj_t BgL_destz00_582;
{ /* ./Cc/ld.scm 317 */
bool_t BgL_test2349z00_706;
{ /* ./Cc/ld.scm 317 */
obj_t BgL_objz00_1423;
BgL_objz00_1423 = BGl_za2destza2z00zzengine_paramz00; 
BgL_test2349z00_706 = 
STRINGP(BgL_objz00_1423); } 
if(BgL_test2349z00_706)
{ /* ./Cc/ld.scm 317 */
BgL_destz00_582 = BGl_za2destza2z00zzengine_paramz00; }  else 
{ /* ./Cc/ld.scm 317 */
BgL_destz00_582 = 
BGl_defaultzd2executablezd2namez00zz__osz00(); } } 
{ /* ./Cc/ld.scm 317 */
obj_t BgL_bigloozd2libzd2_583;
{ /* ./Cc/ld.scm 321 */
obj_t BgL_arg2341z00_702;
{ /* ./Cc/ld.scm 321 */
char * BgL_arg2345z00_704;obj_t BgL_arg2346z00_705;
if(
CBOOL(BGl_za2multizd2threadedzd2gczf3za2zf3zzengine_paramz00))
{ /* ./Cc/ld.scm 322 */
BgL_arg2345z00_704 = "_mt"; }  else 
{ /* ./Cc/ld.scm 322 */
BgL_arg2345z00_704 = ""; } 
BgL_arg2346z00_705 = 
BGl_libraryzd2suffixzd2zzcc_ldz00(); 
{ /* ./Cc/ld.scm 321 */
obj_t BgL_auxz00_2306;
BgL_auxz00_2306 = 
string_to_bstring(BgL_arg2345z00_704); 
BgL_arg2341z00_702 = 
string_append_3(BGl_string3043z00zzcc_ldz00, BgL_auxz00_2306, BgL_arg2346z00_705); } } 
BgL_bigloozd2libzd2_583 = 
BGl_makezd2staticzd2libraryzd2namezd2zz__osz00(BgL_arg2341z00_702); } 
{ /* ./Cc/ld.scm 321 */
obj_t BgL_addzd2libszd2_584;
{ 
obj_t BgL_libz00_670;obj_t BgL_resz00_671;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2279z00_673;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_l1066z00_675;
BgL_l1066z00_675 = BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00; 
{ /* ./Cc/ld.scm 325 */
bool_t BgL_test2282z00_676;
BgL_test2282z00_676 = 
NULLP(BgL_l1066z00_675); 
if(BgL_test2282z00_676)
{ /* ./Cc/ld.scm 325 */
BgL_arg2279z00_673 = BNIL; }  else 
{ /* ./Cc/ld.scm 325 */
obj_t BgL_head1068z00_677;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2303z00_688;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2307z00_690;
BgL_arg2307z00_690 = 
CAR(BgL_l1066z00_675); 
BgL_arg2303z00_688 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BgL_arg2307z00_690); } 
BgL_head1068z00_677 = 
MAKE_PAIR(BgL_arg2303z00_688, BNIL); } 
{ 
obj_t BgL_l1066z00_678;obj_t BgL_tail1069z00_679;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2284z00_681;
BgL_arg2284z00_681 = 
CDR(BgL_l1066z00_675); 
BgL_l1066z00_678 = BgL_arg2284z00_681; 
BgL_tail1069z00_679 = BgL_head1068z00_677; 
BgL_map1067z00_680:
{ /* ./Cc/ld.scm 325 */
bool_t BgL_test2287z00_682;
BgL_test2287z00_682 = 
NULLP(BgL_l1066z00_678); 
if(BgL_test2287z00_682)
{ /* ./Cc/ld.scm 325 */
BgL_arg2279z00_673 = BgL_head1068z00_677; }  else 
{ /* ./Cc/ld.scm 325 */
obj_t BgL_newtail1070z00_683;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2294z00_685;
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2298z00_687;
BgL_arg2298z00_687 = 
CAR(BgL_l1066z00_678); 
BgL_arg2294z00_685 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BgL_arg2298z00_687); } 
BgL_newtail1070z00_683 = 
MAKE_PAIR(BgL_arg2294z00_685, BNIL); } 
SET_CDR(BgL_tail1069z00_679, BgL_newtail1070z00_683); 
{ /* ./Cc/ld.scm 325 */
obj_t BgL_arg2290z00_684;
BgL_arg2290z00_684 = 
CDR(BgL_l1066z00_678); 
{ 
obj_t BgL_tail1069z00_2324;obj_t BgL_l1066z00_2323;
BgL_l1066z00_2323 = BgL_arg2290z00_684; 
BgL_tail1069z00_2324 = BgL_newtail1070z00_683; 
BgL_tail1069z00_679 = BgL_tail1069z00_2324; 
BgL_l1066z00_678 = BgL_l1066z00_2323; 
goto BgL_map1067z00_680;} } } } } } } } } 
BgL_libz00_670 = BgL_arg2279z00_673; 
BgL_resz00_671 = BNIL; 
BgL_loopz00_672:
{ /* ./Cc/ld.scm 328 */
bool_t BgL_test2311z00_691;
BgL_test2311z00_691 = 
NULLP(BgL_libz00_670); 
if(BgL_test2311z00_691)
{ /* ./Cc/ld.scm 328 */
BgL_addzd2libszd2_584 = BgL_resz00_671; }  else 
{ /* ./Cc/ld.scm 330 */
obj_t BgL_arg2313z00_692;obj_t BgL_arg2314z00_693;
BgL_arg2313z00_692 = 
CDR(BgL_libz00_670); 
{ /* ./Cc/ld.scm 333 */
obj_t BgL_arg2318z00_694;
{ /* ./Cc/ld.scm 333 */
obj_t BgL_arg2321z00_695;
{ /* ./Cc/ld.scm 333 */
obj_t BgL_arg2324z00_696;obj_t BgL_arg2325z00_697;
BgL_arg2324z00_696 = 
CAR(BgL_libz00_670); 
{ /* ./Cc/ld.scm 334 */
obj_t BgL_arg2329z00_698;char * BgL_arg2330z00_699;
BgL_arg2329z00_698 = 
BGl_libraryzd2suffixzd2zzcc_ldz00(); 
BgL_arg2330z00_699 = 
BGl_secondaryzd2libraryzd2suffixz00zzcc_ldz00(); 
{ /* ./Cc/ld.scm 334 */
obj_t BgL_list2332z00_700;
{ /* ./Cc/ld.scm 334 */
obj_t BgL_arg2334z00_701;
{ /* ./Cc/ld.scm 334 */
obj_t BgL_auxz00_2331;
BgL_auxz00_2331 = 
string_to_bstring(BgL_arg2330z00_699); 
BgL_arg2334z00_701 = 
MAKE_PAIR(BgL_auxz00_2331, BNIL); } 
BgL_list2332z00_700 = 
MAKE_PAIR(BgL_arg2329z00_698, BgL_arg2334z00_701); } 
BgL_arg2325z00_697 = BgL_list2332z00_700; } } 
BgL_arg2321z00_695 = 
BGl_makezd2libzd2namez00zzcc_ldz00(BgL_arg2324z00_696, BgL_arg2325z00_697, BgL_staticzf3zf3_581, ((bool_t)0), ((bool_t)0)); } 
BgL_arg2318z00_694 = 
BGl_normaliza7ezd2win32zd2libzd2namez75zzcc_ldz00(BgL_arg2321z00_695); } 
BgL_arg2314z00_693 = 
MAKE_PAIR(BgL_arg2318z00_694, BgL_resz00_671); } 
{ 
obj_t BgL_resz00_2339;obj_t BgL_libz00_2338;
BgL_libz00_2338 = BgL_arg2313z00_692; 
BgL_resz00_2339 = BgL_arg2314z00_693; 
BgL_resz00_671 = BgL_resz00_2339; 
BgL_libz00_670 = BgL_libz00_2338; 
goto BgL_loopz00_672;} } } } } 
{ /* ./Cc/ld.scm 325 */
obj_t BgL_otherzd2libszd2_585;
{ 
obj_t BgL_libz00_659;obj_t BgL_resz00_660;
{ /* ./Cc/ld.scm 341 */
obj_t BgL_arg2258z00_662;
BgL_arg2258z00_662 = 
bgl_reverse(BGl_za2bigloozd2userzd2libza2z00zzengine_paramz00); 
BgL_libz00_659 = BgL_arg2258z00_662; 
BgL_resz00_660 = BNIL; 
BgL_loopz00_661:
{ /* ./Cc/ld.scm 343 */
bool_t BgL_test2263z00_664;
BgL_test2263z00_664 = 
NULLP(BgL_libz00_659); 
if(BgL_test2263z00_664)
{ /* ./Cc/ld.scm 343 */
BgL_otherzd2libszd2_585 = BgL_resz00_660; }  else 
{ /* ./Cc/ld.scm 345 */
obj_t BgL_arg2265z00_665;obj_t BgL_arg2266z00_666;
BgL_arg2265z00_665 = 
CDR(BgL_libz00_659); 
{ /* ./Cc/ld.scm 346 */
obj_t BgL_arg2270z00_667;
{ /* ./Cc/ld.scm 346 */
obj_t BgL_arg2273z00_668;
BgL_arg2273z00_668 = 
CAR(BgL_libz00_659); 
BgL_arg2270z00_667 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_arg2273z00_668, BNIL); } 
BgL_arg2266z00_666 = 
MAKE_PAIR(BgL_arg2270z00_667, BgL_resz00_660); } 
{ 
obj_t BgL_resz00_2348;obj_t BgL_libz00_2347;
BgL_libz00_2347 = BgL_arg2265z00_665; 
BgL_resz00_2348 = BgL_arg2266z00_666; 
BgL_resz00_660 = BgL_resz00_2348; 
BgL_libz00_659 = BgL_libz00_2347; 
goto BgL_loopz00_661;} } } } } 
{ /* ./Cc/ld.scm 341 */
obj_t BgL_ldzd2argszd2_586;
{ /* ./Cc/ld.scm 350 */
obj_t BgL_arg2139z00_609;obj_t BgL_arg2141z00_610;obj_t BgL_arg2142z00_611;obj_t BgL_arg2143z00_612;obj_t BgL_arg2144z00_613;obj_t BgL_arg2145z00_614;obj_t BgL_arg2146z00_615;obj_t BgL_arg2147z00_616;obj_t BgL_arg2148z00_617;obj_t BgL_arg2149z00_618;obj_t BgL_arg2150z00_619;obj_t BgL_arg2151z00_620;obj_t BgL_arg2152z00_621;
{ /* ./Cc/ld.scm 350 */
obj_t BgL_arg2206z00_639;
BgL_arg2206z00_639 = 
string_append_3(BgL_namez00_17, BGl_string3056z00zzcc_ldz00, BGl_za2czd2objectzd2filezd2extensionza2zd2zzengine_paramz00); 
{ /* ./Cc/ld.scm 350 */
obj_t BgL_list2208z00_640;
BgL_list2208z00_640 = 
MAKE_PAIR(BgL_arg2206z00_639, BNIL); 
BgL_arg2139z00_609 = BgL_list2208z00_640; } } 
{ /* ./Cc/ld.scm 358 */
obj_t BgL_arg2212z00_641;
BgL_arg2212z00_641 = 
string_append(BGl_za2ldzd2ozd2optionza2z00zzengine_paramz00, BgL_destz00_582); 
{ /* ./Cc/ld.scm 358 */
obj_t BgL_list2214z00_642;
BgL_list2214z00_642 = 
MAKE_PAIR(BgL_arg2212z00_641, BNIL); 
BgL_arg2141z00_610 = BgL_list2214z00_642; } } 
BgL_arg2142z00_611 = 
BGl_stringzd2splitzd2zztools_miscz00(BGl_za2cczd2optionsza2zd2zzengine_paramz00, 
BCHAR(((unsigned char)' '))); 
{ /* ./Cc/ld.scm 362 */
obj_t BgL_list2219z00_643;
BgL_list2219z00_643 = 
MAKE_PAIR(BGl_string3062z00zzcc_ldz00, BNIL); 
BgL_arg2143z00_612 = BgL_list2219z00_643; } 
{ /* ./Cc/ld.scm 364 */
bool_t BgL_test2221z00_644;
if(
CBOOL(BGl_za2czd2debugza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 364 */
BgL_test2221z00_644 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 364 */
long BgL_n1z00_1450;
BgL_n1z00_1450 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test2221z00_644 = 
(BgL_n1z00_1450>((long)0)); } 
if(BgL_test2221z00_644)
{ /* ./Cc/ld.scm 364 */
BgL_arg2144z00_613 = 
BGl_stringzd2splitzd2zztools_miscz00(BGl_za2ldzd2debugzd2optionza2z00zzengine_paramz00, 
BCHAR(((unsigned char)' '))); }  else 
{ /* ./Cc/ld.scm 364 */
BgL_arg2144z00_613 = BNIL; } } 
if(
CBOOL(BGl_za2czd2debugza2zd2zzengine_paramz00))
{ /* ./Cc/ld.scm 368 */
BgL_arg2145z00_614 = BNIL; }  else 
{ /* ./Cc/ld.scm 368 */
BgL_arg2145z00_614 = 
BGl_stringzd2splitzd2zztools_miscz00(BGl_za2ldzd2optimzd2flagsza2z00zzengine_paramz00, 
BCHAR(((unsigned char)' '))); } 
{ /* ./Cc/ld.scm 372 */
bool_t BgL_test2225z00_645;
if(
CBOOL(BGl_za2stripza2z00zzengine_paramz00))
{ /* ./Cc/ld.scm 373 */
bool_t BgL_test2229z00_647;
{ /* ./Cc/ld.scm 373 */
obj_t BgL_string1z00_1452;
BgL_string1z00_1452 = 
string_to_bstring(C_STRIP_FLAGS); 
BgL_test2229z00_647 = 
bigloo_strcmp(BgL_string1z00_1452, BGl_string3035z00zzcc_ldz00); } 
if(BgL_test2229z00_647)
{ /* ./Cc/ld.scm 373 */
BgL_test2225z00_645 = ((bool_t)0); }  else 
{ /* ./Cc/ld.scm 373 */
BgL_test2225z00_645 = ((bool_t)1); } }  else 
{ /* ./Cc/ld.scm 372 */
BgL_test2225z00_645 = ((bool_t)0); } 
if(BgL_test2225z00_645)
{ /* ./Cc/ld.scm 374 */
obj_t BgL_list2227z00_646;
{ /* ./Cc/ld.scm 374 */
obj_t BgL_auxz00_2373;
BgL_auxz00_2373 = 
string_to_bstring(C_STRIP_FLAGS); 
BgL_list2227z00_646 = 
MAKE_PAIR(BgL_auxz00_2373, BNIL); } 
BgL_arg2146z00_615 = BgL_list2227z00_646; }  else 
{ /* ./Cc/ld.scm 372 */
BgL_arg2146z00_615 = BNIL; } } 
BgL_arg2147z00_616 = 
BGl_stringzd2splitzd2zztools_miscz00(BGl_za2ldzd2optionsza2zd2zzengine_paramz00, 
BCHAR(((unsigned char)' '))); 
BgL_arg2148z00_617 = 
BGl_loopz00zzcc_ldz00(BGl_za2libzd2dirza2zd2zzengine_paramz00); 
{ /* ./Cc/ld.scm 387 */
obj_t BgL_list2249z00_656;
BgL_list2249z00_656 = 
MAKE_PAIR(BgL_bigloozd2libzd2_583, BNIL); 
BgL_arg2149z00_618 = BgL_list2249z00_656; } 
{ /* ./Cc/ld.scm 389 */
bool_t BgL_test2251z00_657;
{ /* ./Cc/ld.scm 389 */
obj_t BgL_string1z00_1461;
BgL_string1z00_1461 = 
string_to_bstring(DLOPEN_LD_OPT); 
BgL_test2251z00_657 = 
bigloo_strcmp(BgL_string1z00_1461, BGl_string3035z00zzcc_ldz00); } 
if(BgL_test2251z00_657)
{ /* ./Cc/ld.scm 389 */
BgL_arg2150z00_619 = BNIL; }  else 
{ /* ./Cc/ld.scm 391 */
obj_t BgL_list2253z00_658;
{ /* ./Cc/ld.scm 391 */
obj_t BgL_auxz00_2383;
BgL_auxz00_2383 = 
string_to_bstring(DLOPEN_LD_OPT); 
BgL_list2253z00_658 = 
MAKE_PAIR(BgL_auxz00_2383, BNIL); } 
BgL_arg2150z00_619 = BgL_list2253z00_658; } } 
if(
CBOOL(BGl_za2doublezd2ldzd2libszf3za2zf3zzengine_paramz00))
{ /* ./Cc/ld.scm 395 */
BgL_arg2151z00_620 = BgL_addzd2libszd2_584; }  else 
{ /* ./Cc/ld.scm 395 */
BgL_arg2151z00_620 = BNIL; } 
BgL_arg2152z00_621 = 
BGl_stringzd2splitzd2zztools_miscz00(BGl_za2ldzd2postzd2optionsza2z00zzengine_paramz00, 
BCHAR(((unsigned char)' '))); 
{ /* ./Cc/ld.scm 348 */
obj_t BgL_list2154z00_622;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2156z00_623;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2159z00_624;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2162z00_625;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2165z00_626;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2168z00_627;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2171z00_628;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2174z00_629;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2177z00_630;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2180z00_631;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2183z00_632;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2187z00_633;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2190z00_634;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2193z00_635;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2196z00_636;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2199z00_637;
{ /* ./Cc/ld.scm 348 */
obj_t BgL_arg2202z00_638;
BgL_arg2202z00_638 = 
MAKE_PAIR(BgL_arg2152z00_621, BNIL); 
BgL_arg2199z00_637 = 
MAKE_PAIR(BgL_arg2151z00_620, BgL_arg2202z00_638); } 
BgL_arg2196z00_636 = 
MAKE_PAIR(BgL_otherzd2libszd2_585, BgL_arg2199z00_637); } 
BgL_arg2193z00_635 = 
MAKE_PAIR(BgL_arg2150z00_619, BgL_arg2196z00_636); } 
BgL_arg2190z00_634 = 
MAKE_PAIR(BgL_arg2149z00_618, BgL_arg2193z00_635); } 
BgL_arg2187z00_633 = 
MAKE_PAIR(BgL_addzd2libszd2_584, BgL_arg2190z00_634); } 
BgL_arg2183z00_632 = 
MAKE_PAIR(BgL_arg2148z00_617, BgL_arg2187z00_633); } 
BgL_arg2180z00_631 = 
MAKE_PAIR(BgL_arg2147z00_616, BgL_arg2183z00_632); } 
BgL_arg2177z00_630 = 
MAKE_PAIR(BgL_arg2146z00_615, BgL_arg2180z00_631); } 
BgL_arg2174z00_629 = 
MAKE_PAIR(BgL_arg2145z00_614, BgL_arg2177z00_630); } 
BgL_arg2171z00_628 = 
MAKE_PAIR(BgL_arg2144z00_613, BgL_arg2174z00_629); } 
BgL_arg2168z00_627 = 
MAKE_PAIR(BgL_arg2143z00_612, BgL_arg2171z00_628); } 
BgL_arg2165z00_626 = 
MAKE_PAIR(BgL_arg2142z00_611, BgL_arg2168z00_627); } 
BgL_arg2162z00_625 = 
MAKE_PAIR(BgL_arg2141z00_610, BgL_arg2165z00_626); } 
BgL_arg2159z00_624 = 
MAKE_PAIR(BGl_za2ozd2filesza2zd2zzengine_paramz00, BgL_arg2162z00_625); } 
BgL_arg2156z00_623 = 
MAKE_PAIR(BGl_za2withzd2filesza2zd2zzengine_paramz00, BgL_arg2159z00_624); } 
BgL_list2154z00_622 = 
MAKE_PAIR(BgL_arg2139z00_609, BgL_arg2156z00_623); } 
BgL_ldzd2argszd2_586 = 
BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_list2154z00_622); } } 
{ /* ./Cc/ld.scm 348 */

{ /* ./Cc/ld.scm 398 */
obj_t BgL_arg2099z00_589;
{ /* ./Cc/ld.scm 398 */
obj_t BgL_l1071z00_593;
BgL_l1071z00_593 = 
MAKE_PAIR(BGl_za2ccza2z00zzengine_paramz00, BgL_ldzd2argszd2_586); 
{ /* ./Cc/ld.scm 398 */
obj_t BgL_head1073z00_595;
BgL_head1073z00_595 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1071z00_596;obj_t BgL_tail1074z00_597;
BgL_l1071z00_596 = BgL_l1071z00_593; 
BgL_tail1074z00_597 = BgL_head1073z00_595; 
BgL_map1072z00_598:
{ /* ./Cc/ld.scm 398 */
bool_t BgL_test2111z00_599;
BgL_test2111z00_599 = 
NULLP(BgL_l1071z00_596); 
if(BgL_test2111z00_599)
{ /* ./Cc/ld.scm 398 */
BgL_arg2099z00_589 = 
CDR(BgL_head1073z00_595); }  else 
{ /* ./Cc/ld.scm 399 */
obj_t BgL_newtail1075z00_600;
{ /* ./Cc/ld.scm 399 */
obj_t BgL_arg2119z00_602;
{ /* ./Cc/ld.scm 399 */
obj_t BgL_strz00_604;
BgL_strz00_604 = 
CAR(BgL_l1071z00_596); 
BgL_arg2119z00_602 = 
string_append_3(BGl_string3063z00zzcc_ldz00, BgL_strz00_604, BGl_string3064z00zzcc_ldz00); } 
BgL_newtail1075z00_600 = 
MAKE_PAIR(BgL_arg2119z00_602, BNIL); } 
SET_CDR(BgL_tail1074z00_597, BgL_newtail1075z00_600); 
{ /* ./Cc/ld.scm 398 */
obj_t BgL_arg2115z00_601;
BgL_arg2115z00_601 = 
CDR(BgL_l1071z00_596); 
{ 
obj_t BgL_tail1074z00_2419;obj_t BgL_l1071z00_2418;
BgL_l1071z00_2418 = BgL_arg2115z00_601; 
BgL_tail1074z00_2419 = BgL_newtail1075z00_600; 
BgL_tail1074z00_597 = BgL_tail1074z00_2419; 
BgL_l1071z00_596 = BgL_l1071z00_2418; 
goto BgL_map1072z00_598;} } } } } } } 
{ /* ./Cc/ld.scm 398 */
obj_t BgL_list2101z00_590;
{ /* ./Cc/ld.scm 398 */
obj_t BgL_arg2103z00_591;
{ /* ./Cc/ld.scm 398 */
obj_t BgL_arg2106z00_592;
{ /* ./Cc/ld.scm 398 */
obj_t BgL_auxz00_2420;
BgL_auxz00_2420 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2106z00_592 = 
MAKE_PAIR(BgL_auxz00_2420, BNIL); } 
BgL_arg2103z00_591 = 
MAKE_PAIR(BgL_arg2099z00_589, BgL_arg2106z00_592); } 
BgL_list2101z00_590 = 
MAKE_PAIR(BGl_string3065z00zzcc_ldz00, BgL_arg2103z00_591); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2101z00_590); } } 
{ /* ./Cc/ld.scm 402 */
obj_t BgL_runner2135z00_608;
{ /* ./Cc/ld.scm 402 */
obj_t BgL_arg2129z00_605;
BgL_arg2129z00_605 = 
bgl_append2(BgL_ldzd2argszd2_586, 
CNST_TABLE_REF(((long)2))); 
{ /* ./Cc/ld.scm 402 */
obj_t BgL_list2131z00_606;
BgL_list2131z00_606 = 
MAKE_PAIR(BgL_arg2129z00_605, BNIL); 
BgL_runner2135z00_608 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_za2ccza2z00zzengine_paramz00, BgL_list2131z00_606); } } 
{ /* ./Cc/ld.scm 402 */
obj_t BgL_aux2134z00_607;
{ /* ./Cc/ld.scm 402 */
obj_t BgL_pairz00_1476;
BgL_pairz00_1476 = BgL_runner2135z00_608; 
BgL_aux2134z00_607 = 
CAR(BgL_pairz00_1476); } 
{ /* ./Cc/ld.scm 402 */
obj_t BgL_pairz00_1477;
BgL_pairz00_1477 = BgL_runner2135z00_608; 
BgL_runner2135z00_608 = 
CDR(BgL_pairz00_1477); } 
return 
BGl_runzd2processzd2zz__processz00(BgL_aux2134z00_607, BgL_runner2135z00_608);} } } } } } } } } } 
}



/* <exit:2361> */
obj_t BGl_zc3exitza32361ze3z83zzcc_ldz00(obj_t BgL_port1045z00_1523)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 307 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1047z00_713;
if( SET_EXIT(BgL_an_exit1047z00_713) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1047z00_713 = 
(obj_t)jmpbuf; 
{ /* ./Cc/ld.scm 307 */

PUSH_EXIT(BgL_an_exit1047z00_713, ((bool_t)0)); 
{ /* ./Cc/ld.scm 307 */
obj_t BgL_val1048z00_714;
{ /* ./Cc/ld.scm 307 */
obj_t BgL_arg2366z00_715;
{ /* ./Cc/ld.scm 307 */
obj_t BgL_thezd2rgczd2contextz00_716;
BgL_thezd2rgczd2contextz00_716 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Cc/ld.scm 307 */
obj_t BgL_zc3anonymousza32368ze3z83_1509;
{ 
int BgL_auxz00_2437;
BgL_auxz00_2437 = 
(int)(((long)1)); 
BgL_zc3anonymousza32368ze3z83_1509 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_2437); } 
{ /* ./Cc/ld.scm 307 */
int BgL_auxz00_2440;
BgL_auxz00_2440 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza32368ze3z83_1509, BgL_auxz00_2440, BgL_thezd2rgczd2contextz00_716); } 
BgL_arg2366z00_715 = BgL_zc3anonymousza32368ze3z83_1509; } } 
BgL_val1048z00_714 = 
BGl_zc3anonymousza32368ze3z83zzcc_ldz00(BgL_arg2366z00_715, BgL_port1045z00_1523, BFALSE); } 
POP_EXIT(); 
return BgL_val1048z00_714;} } 
} } 
}



/* loop */
obj_t BGl_loopz00zzcc_ldz00(obj_t BgL_pathz00_648)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 379 */
{ /* ./Cc/ld.scm 380 */
bool_t BgL_test2233z00_650;
BgL_test2233z00_650 = 
NULLP(BgL_pathz00_648); 
if(BgL_test2233z00_650)
{ /* ./Cc/ld.scm 380 */
return BNIL;}  else 
{ /* ./Cc/ld.scm 382 */
obj_t BgL_arg2235z00_651;obj_t BgL_arg2236z00_652;
{ /* ./Cc/ld.scm 382 */
obj_t BgL_arg2240z00_654;
BgL_arg2240z00_654 = 
CAR(BgL_pathz00_648); 
BgL_arg2235z00_651 = 
string_append(BGl_string3066z00zzcc_ldz00, BgL_arg2240z00_654); } 
{ /* ./Cc/ld.scm 383 */
obj_t BgL_arg2244z00_655;
BgL_arg2244z00_655 = 
CDR(BgL_pathz00_648); 
BgL_arg2236z00_652 = 
BGl_loopz00zzcc_ldz00(BgL_arg2244z00_655); } 
return 
MAKE_PAIR(BgL_arg2235z00_651, BgL_arg2236z00_652);} } } 
}



/* ignore_2707 */
obj_t BGl_ignore_2707z00zzcc_ldz00(obj_t BgL_statezd20zd21049z00_1513, obj_t BgL_thezd2rgczd2contextz00_1512, obj_t BgL_procz00_1511, obj_t BgL_inputzd2portzd2_1510)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 307 */
RGC_START_MATCH(BgL_inputzd2portzd2_1510); 
{ /* ./Cc/ld.scm 307 */
long BgL_matchz00_750;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2378z00_754;
BgL_test2378z00_754 = 
PROCEDUREP(BgL_procz00_1511); 
if(BgL_test2378z00_754)
{ /* ./Cc/ld.scm 307 */
obj_t BgL_auxz00_2456;
BgL_auxz00_2456 = 
PROCEDURE_ENTRY(BgL_procz00_1511)(BgL_procz00_1511, BgL_statezd20zd21049z00_1513, BgL_inputzd2portzd2_1510, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_1512), BEOA); 
BgL_matchz00_750 = 
(long)CINT(BgL_auxz00_2456); }  else 
{ /* ./Cc/ld.scm 307 */
obj_t BgL_auxz00_2461;
BgL_auxz00_2461 = 
BGl_STATEzd20zd21049z00zzcc_ldz00(BgL_statezd20zd21049z00_1513, BgL_inputzd2portzd2_1510, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_1512)); 
BgL_matchz00_750 = 
(long)CINT(BgL_auxz00_2461); } } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_1510); 
switch( BgL_matchz00_750) { case ((long)1) : 

return BFALSE;break;case ((long)0) : 

return BTRUE;break;
default: 
return 
BGl_case_else1064z00zzcc_ldz00(BgL_matchz00_750);} } } 
}



/* case_else1064 */
obj_t BGl_case_else1064z00zzcc_ldz00(long BgL_matchz00_1514)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
obj_t BgL_objectz00_1260;
BgL_objectz00_1260 = 
BINT(BgL_matchz00_1514); 
FAILURE(BGl_string3059z00zzcc_ldz00,BGl_string3060z00zzcc_ldz00,BgL_objectz00_1260);} } 
}



/* <anonymous:2368> */
obj_t BGl_zc3anonymousza32368ze3z83zzcc_ldz00(obj_t BgL_envz00_1515, obj_t BgL_inputzd2portzd2_1517, obj_t BgL_procz00_1518)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
obj_t BgL_thezd2rgczd2contextz00_1516;
{ /* ./Cc/ld.scm 307 */
int BgL_auxz00_2470;
BgL_auxz00_2470 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_1516 = 
PROCEDURE_1_EL_REF(BgL_envz00_1515, BgL_auxz00_2470); } 
{ 
obj_t BgL_inputzd2portzd2_717;obj_t BgL_procz00_718;
BgL_inputzd2portzd2_717 = BgL_inputzd2portzd2_1517; 
BgL_procz00_718 = BgL_procz00_1518; 
return 
BGl_ignore_2707z00zzcc_ldz00(BGl_proc3067z00zzcc_ldz00, BgL_thezd2rgczd2contextz00_1516, BgL_procz00_718, BgL_inputzd2portzd2_717);} } } 
}



/* STATE-0-1049 */
obj_t BGl_STATEzd20zd21049z00zzcc_ldz00(obj_t BgL_envz00_1519, obj_t BgL_inputzd2portzd2_1520, obj_t BgL_lastzd2matchzd2_1521, obj_t BgL_thezd2rgczd2contextz00_1522)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_inputzd2portzd2_917;obj_t BgL_lastzd2matchzd2_918;obj_t BgL_thezd2rgczd2contextz00_919;
BgL_inputzd2portzd2_917 = BgL_inputzd2portzd2_1520; 
BgL_lastzd2matchzd2_918 = BgL_lastzd2matchzd2_1521; 
BgL_thezd2rgczd2contextz00_919 = BgL_thezd2rgczd2contextz00_1522; 
BgL_zc3anonymousza32658ze3z83_920:
{ 
obj_t BgL_inputzd2portzd2_864;obj_t BgL_lastzd2matchzd2_865;obj_t BgL_thezd2rgczd2contextz00_866;obj_t BgL_inputzd2portzd2_790;obj_t BgL_lastzd2matchzd2_791;obj_t BgL_thezd2rgczd2contextz00_792;obj_t BgL_inputzd2portzd2_878;long BgL_lastzd2matchzd2_879;obj_t BgL_thezd2rgczd2contextz00_880;obj_t BgL_inputzd2portzd2_802;long BgL_lastzd2matchzd2_803;obj_t BgL_thezd2rgczd2contextz00_804;obj_t BgL_inputzd2portzd2_891;long BgL_lastzd2matchzd2_892;obj_t BgL_thezd2rgczd2contextz00_893;obj_t BgL_inputzd2portzd2_904;long BgL_lastzd2matchzd2_905;obj_t BgL_thezd2rgczd2contextz00_906;obj_t BgL_inputzd2portzd2_813;long BgL_lastzd2matchzd2_814;obj_t BgL_thezd2rgczd2contextz00_815;obj_t BgL_inputzd2portzd2_826;long BgL_lastzd2matchzd2_827;obj_t BgL_thezd2rgczd2contextz00_828;obj_t BgL_inputzd2portzd2_839;long BgL_lastzd2matchzd2_840;obj_t BgL_thezd2rgczd2contextz00_841;obj_t BgL_inputzd2portzd2_852;long BgL_lastzd2matchzd2_853;obj_t BgL_thezd2rgczd2contextz00_854;
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_921;
BgL_currentzd2charzd2_921 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_917); 
{ 

switch( 
(long)(BgL_currentzd2charzd2_921)) { case ((long)0) : 

{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2660z00_925;
BgL_test2660z00_925 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_917); 
if(BgL_test2660z00_925)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2661z00_926;
BgL_test2661z00_926 = 
rgc_fill_buffer(BgL_inputzd2portzd2_917); 
if(BgL_test2661z00_926)
{ 

goto BgL_zc3anonymousza32658ze3z83_920;}  else 
{ /* ./Cc/ld.scm 307 */
return BgL_lastzd2matchzd2_918;} }  else 
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2479;
BgL_inputzd2portzd2_790 = BgL_inputzd2portzd2_917; 
BgL_lastzd2matchzd2_791 = BgL_lastzd2matchzd2_918; 
BgL_thezd2rgczd2contextz00_792 = BgL_thezd2rgczd2contextz00_919; 
BgL_zc3anonymousza32440ze3z83_793:
{ /* ./Cc/ld.scm 307 */
long BgL_newzd2matchzd2_794;
RGC_STOP_MATCH(BgL_inputzd2portzd2_790); 
BgL_newzd2matchzd2_794 = ((long)1); 
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_795;
BgL_currentzd2charzd2_795 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_790); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2441z00_796;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2482;
BgL_auxz00_2482 = 
(long)(BgL_currentzd2charzd2_795); 
BgL_test2441z00_796 = 
(BgL_auxz00_2482==((long)0)); } 
if(BgL_test2441z00_796)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2442z00_797;
BgL_test2442z00_797 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_790); 
if(BgL_test2442z00_797)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2443z00_798;
BgL_test2443z00_798 = 
rgc_fill_buffer(BgL_inputzd2portzd2_790); 
if(BgL_test2443z00_798)
{ 

goto BgL_zc3anonymousza32440ze3z83_793;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_newzd2matchzd2_794
; } }  else 
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_790; 
BgL_lastzd2matchzd2_803 = BgL_newzd2matchzd2_794; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_792; 
BgL_zc3anonymousza32459ze3z83_805:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_806;
BgL_currentzd2charzd2_806 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_802); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2460z00_807;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2491;
BgL_auxz00_2491 = 
(long)(BgL_currentzd2charzd2_806); 
BgL_test2460z00_807 = 
(BgL_auxz00_2491==((long)0)); } 
if(BgL_test2460z00_807)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2461z00_808;
BgL_test2461z00_808 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_802); 
if(BgL_test2461z00_808)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2462z00_809;
BgL_test2462z00_809 = 
rgc_fill_buffer(BgL_inputzd2portzd2_802); 
if(BgL_test2462z00_809)
{ 

goto BgL_zc3anonymousza32459ze3z83_805;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_803
; } }  else 
{ 

goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2467z00_810;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2499;
BgL_auxz00_2499 = 
(long)(BgL_currentzd2charzd2_806); 
BgL_test2467z00_810 = 
(BgL_auxz00_2499==((long)45)); } 
if(BgL_test2467z00_810)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_802; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_803; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_804; 
BgL_zc3anonymousza32589ze3z83_881:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_882;
BgL_currentzd2charzd2_882 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_878); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2590z00_883;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2504;
BgL_auxz00_2504 = 
(long)(BgL_currentzd2charzd2_882); 
BgL_test2590z00_883 = 
(BgL_auxz00_2504==((long)0)); } 
if(BgL_test2590z00_883)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2591z00_884;
BgL_test2591z00_884 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_878); 
if(BgL_test2591z00_884)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2592z00_885;
BgL_test2592z00_885 = 
rgc_fill_buffer(BgL_inputzd2portzd2_878); 
if(BgL_test2592z00_885)
{ 

goto BgL_zc3anonymousza32589ze3z83_881;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_879
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2514;long BgL_lastzd2matchzd2_2513;obj_t BgL_inputzd2portzd2_2512;
BgL_inputzd2portzd2_2512 = BgL_inputzd2portzd2_878; 
BgL_lastzd2matchzd2_2513 = BgL_lastzd2matchzd2_879; 
BgL_thezd2rgczd2contextz00_2514 = BgL_thezd2rgczd2contextz00_880; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2514; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2513; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2512; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2597z00_886;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2515;
BgL_auxz00_2515 = 
(long)(BgL_currentzd2charzd2_882); 
BgL_test2597z00_886 = 
(BgL_auxz00_2515==((long)115)); } 
if(BgL_test2597z00_886)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_891 = BgL_inputzd2portzd2_878; 
BgL_lastzd2matchzd2_892 = BgL_lastzd2matchzd2_879; 
BgL_thezd2rgczd2contextz00_893 = BgL_thezd2rgczd2contextz00_880; 
BgL_zc3anonymousza32612ze3z83_894:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_895;
BgL_currentzd2charzd2_895 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_891); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2613z00_896;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2520;
BgL_auxz00_2520 = 
(long)(BgL_currentzd2charzd2_895); 
BgL_test2613z00_896 = 
(BgL_auxz00_2520==((long)0)); } 
if(BgL_test2613z00_896)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2614z00_897;
BgL_test2614z00_897 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_891); 
if(BgL_test2614z00_897)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2615z00_898;
BgL_test2615z00_898 = 
rgc_fill_buffer(BgL_inputzd2portzd2_891); 
if(BgL_test2615z00_898)
{ 

goto BgL_zc3anonymousza32612ze3z83_894;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_892
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2530;long BgL_lastzd2matchzd2_2529;obj_t BgL_inputzd2portzd2_2528;
BgL_inputzd2portzd2_2528 = BgL_inputzd2portzd2_891; 
BgL_lastzd2matchzd2_2529 = BgL_lastzd2matchzd2_892; 
BgL_thezd2rgczd2contextz00_2530 = BgL_thezd2rgczd2contextz00_893; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2530; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2529; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2528; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2620z00_899;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2531;
BgL_auxz00_2531 = 
(long)(BgL_currentzd2charzd2_895); 
BgL_test2620z00_899 = 
(BgL_auxz00_2531==((long)116)); } 
if(BgL_test2620z00_899)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_904 = BgL_inputzd2portzd2_891; 
BgL_lastzd2matchzd2_905 = BgL_lastzd2matchzd2_892; 
BgL_thezd2rgczd2contextz00_906 = BgL_thezd2rgczd2contextz00_893; 
BgL_zc3anonymousza32635ze3z83_907:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_908;
BgL_currentzd2charzd2_908 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_904); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2636z00_909;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2536;
BgL_auxz00_2536 = 
(long)(BgL_currentzd2charzd2_908); 
BgL_test2636z00_909 = 
(BgL_auxz00_2536==((long)0)); } 
if(BgL_test2636z00_909)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2637z00_910;
BgL_test2637z00_910 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_904); 
if(BgL_test2637z00_910)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2638z00_911;
BgL_test2638z00_911 = 
rgc_fill_buffer(BgL_inputzd2portzd2_904); 
if(BgL_test2638z00_911)
{ 

goto BgL_zc3anonymousza32635ze3z83_907;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_905
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2546;long BgL_lastzd2matchzd2_2545;obj_t BgL_inputzd2portzd2_2544;
BgL_inputzd2portzd2_2544 = BgL_inputzd2portzd2_904; 
BgL_lastzd2matchzd2_2545 = BgL_lastzd2matchzd2_905; 
BgL_thezd2rgczd2contextz00_2546 = BgL_thezd2rgczd2contextz00_906; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2546; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2545; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2544; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2643z00_912;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2547;
BgL_auxz00_2547 = 
(long)(BgL_currentzd2charzd2_908); 
BgL_test2643z00_912 = 
(BgL_auxz00_2547==((long)97)); } 
if(BgL_test2643z00_912)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_813 = BgL_inputzd2portzd2_904; 
BgL_lastzd2matchzd2_814 = BgL_lastzd2matchzd2_905; 
BgL_thezd2rgczd2contextz00_815 = BgL_thezd2rgczd2contextz00_906; 
BgL_zc3anonymousza32477ze3z83_816:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_817;
BgL_currentzd2charzd2_817 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_813); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2478z00_818;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2552;
BgL_auxz00_2552 = 
(long)(BgL_currentzd2charzd2_817); 
BgL_test2478z00_818 = 
(BgL_auxz00_2552==((long)0)); } 
if(BgL_test2478z00_818)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2479z00_819;
BgL_test2479z00_819 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_813); 
if(BgL_test2479z00_819)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2480z00_820;
BgL_test2480z00_820 = 
rgc_fill_buffer(BgL_inputzd2portzd2_813); 
if(BgL_test2480z00_820)
{ 

goto BgL_zc3anonymousza32477ze3z83_816;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_814
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2562;long BgL_lastzd2matchzd2_2561;obj_t BgL_inputzd2portzd2_2560;
BgL_inputzd2portzd2_2560 = BgL_inputzd2portzd2_813; 
BgL_lastzd2matchzd2_2561 = BgL_lastzd2matchzd2_814; 
BgL_thezd2rgczd2contextz00_2562 = BgL_thezd2rgczd2contextz00_815; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2562; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2561; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2560; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2485z00_821;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2563;
BgL_auxz00_2563 = 
(long)(BgL_currentzd2charzd2_817); 
BgL_test2485z00_821 = 
(BgL_auxz00_2563==((long)116)); } 
if(BgL_test2485z00_821)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_826 = BgL_inputzd2portzd2_813; 
BgL_lastzd2matchzd2_827 = BgL_lastzd2matchzd2_814; 
BgL_thezd2rgczd2contextz00_828 = BgL_thezd2rgczd2contextz00_815; 
BgL_zc3anonymousza32500ze3z83_829:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_830;
BgL_currentzd2charzd2_830 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_826); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2501z00_831;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2568;
BgL_auxz00_2568 = 
(long)(BgL_currentzd2charzd2_830); 
BgL_test2501z00_831 = 
(BgL_auxz00_2568==((long)0)); } 
if(BgL_test2501z00_831)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2502z00_832;
BgL_test2502z00_832 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_826); 
if(BgL_test2502z00_832)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2503z00_833;
BgL_test2503z00_833 = 
rgc_fill_buffer(BgL_inputzd2portzd2_826); 
if(BgL_test2503z00_833)
{ 

goto BgL_zc3anonymousza32500ze3z83_829;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_827
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2578;long BgL_lastzd2matchzd2_2577;obj_t BgL_inputzd2portzd2_2576;
BgL_inputzd2portzd2_2576 = BgL_inputzd2portzd2_826; 
BgL_lastzd2matchzd2_2577 = BgL_lastzd2matchzd2_827; 
BgL_thezd2rgczd2contextz00_2578 = BgL_thezd2rgczd2contextz00_828; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2578; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2577; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2576; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2508z00_834;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2579;
BgL_auxz00_2579 = 
(long)(BgL_currentzd2charzd2_830); 
BgL_test2508z00_834 = 
(BgL_auxz00_2579==((long)105)); } 
if(BgL_test2508z00_834)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_839 = BgL_inputzd2portzd2_826; 
BgL_lastzd2matchzd2_840 = BgL_lastzd2matchzd2_827; 
BgL_thezd2rgczd2contextz00_841 = BgL_thezd2rgczd2contextz00_828; 
BgL_zc3anonymousza32523ze3z83_842:
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_843;
BgL_currentzd2charzd2_843 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_839); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2524z00_844;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2584;
BgL_auxz00_2584 = 
(long)(BgL_currentzd2charzd2_843); 
BgL_test2524z00_844 = 
(BgL_auxz00_2584==((long)0)); } 
if(BgL_test2524z00_844)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2525z00_845;
BgL_test2525z00_845 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_839); 
if(BgL_test2525z00_845)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2526z00_846;
BgL_test2526z00_846 = 
rgc_fill_buffer(BgL_inputzd2portzd2_839); 
if(BgL_test2526z00_846)
{ 

goto BgL_zc3anonymousza32523ze3z83_842;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_840
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2594;long BgL_lastzd2matchzd2_2593;obj_t BgL_inputzd2portzd2_2592;
BgL_inputzd2portzd2_2592 = BgL_inputzd2portzd2_839; 
BgL_lastzd2matchzd2_2593 = BgL_lastzd2matchzd2_840; 
BgL_thezd2rgczd2contextz00_2594 = BgL_thezd2rgczd2contextz00_841; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2594; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2593; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2592; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2531z00_847;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2595;
BgL_auxz00_2595 = 
(long)(BgL_currentzd2charzd2_843); 
BgL_test2531z00_847 = 
(BgL_auxz00_2595==((long)99)); } 
if(BgL_test2531z00_847)
{ /* ./Cc/ld.scm 307 */
BgL_inputzd2portzd2_852 = BgL_inputzd2portzd2_839; 
BgL_lastzd2matchzd2_853 = BgL_lastzd2matchzd2_840; 
BgL_thezd2rgczd2contextz00_854 = BgL_thezd2rgczd2contextz00_841; 
BgL_zc3anonymousza32546ze3z83_855:
{ /* ./Cc/ld.scm 307 */
long BgL_newzd2matchzd2_856;
RGC_STOP_MATCH(BgL_inputzd2portzd2_852); 
BgL_newzd2matchzd2_856 = ((long)0); 
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_857;
BgL_currentzd2charzd2_857 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_852); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2547z00_858;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2601;
BgL_auxz00_2601 = 
(long)(BgL_currentzd2charzd2_857); 
BgL_test2547z00_858 = 
(BgL_auxz00_2601==((long)0)); } 
if(BgL_test2547z00_858)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2548z00_859;
BgL_test2548z00_859 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_852); 
if(BgL_test2548z00_859)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2549z00_860;
BgL_test2549z00_860 = 
rgc_fill_buffer(BgL_inputzd2portzd2_852); 
if(BgL_test2549z00_860)
{ 

goto BgL_zc3anonymousza32546ze3z83_855;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_newzd2matchzd2_856
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2611;long BgL_lastzd2matchzd2_2610;obj_t BgL_inputzd2portzd2_2609;
BgL_inputzd2portzd2_2609 = BgL_inputzd2portzd2_852; 
BgL_lastzd2matchzd2_2610 = BgL_newzd2matchzd2_856; 
BgL_thezd2rgczd2contextz00_2611 = BgL_thezd2rgczd2contextz00_854; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2611; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2610; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2609; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2554z00_861;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2612;
BgL_auxz00_2612 = 
(long)(BgL_currentzd2charzd2_857); 
BgL_test2554z00_861 = 
(BgL_auxz00_2612==((long)45)); } 
if(BgL_test2554z00_861)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2618;long BgL_lastzd2matchzd2_2617;obj_t BgL_inputzd2portzd2_2616;
BgL_inputzd2portzd2_2616 = BgL_inputzd2portzd2_852; 
BgL_lastzd2matchzd2_2617 = BgL_newzd2matchzd2_856; 
BgL_thezd2rgczd2contextz00_2618 = BgL_thezd2rgczd2contextz00_854; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2618; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2617; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2616; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2556z00_862;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2619;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2620;
BgL_auxz00_2620 = 
(long)(BgL_currentzd2charzd2_857); 
BgL_testz00_2619 = 
(BgL_auxz00_2620==((long)10)); } 
if(BgL_testz00_2619)
{ /* ./Cc/ld.scm 307 */
BgL_test2556z00_862 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2556z00_862 = BgL_test2554z00_861; } } 
if(BgL_test2556z00_862)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_newzd2matchzd2_856; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2626;long BgL_lastzd2matchzd2_2625;obj_t BgL_inputzd2portzd2_2624;
BgL_inputzd2portzd2_2624 = BgL_inputzd2portzd2_852; 
BgL_lastzd2matchzd2_2625 = BgL_newzd2matchzd2_856; 
BgL_thezd2rgczd2contextz00_2626 = BgL_thezd2rgczd2contextz00_854; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2626; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2625; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2624; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2533z00_848;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2627;
BgL_auxz00_2627 = 
(long)(BgL_currentzd2charzd2_843); 
BgL_test2533z00_848 = 
(BgL_auxz00_2627==((long)45)); } 
if(BgL_test2533z00_848)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2633;long BgL_lastzd2matchzd2_2632;obj_t BgL_inputzd2portzd2_2631;
BgL_inputzd2portzd2_2631 = BgL_inputzd2portzd2_839; 
BgL_lastzd2matchzd2_2632 = BgL_lastzd2matchzd2_840; 
BgL_thezd2rgczd2contextz00_2633 = BgL_thezd2rgczd2contextz00_841; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2633; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2632; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2631; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2535z00_849;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2634;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2635;
BgL_auxz00_2635 = 
(long)(BgL_currentzd2charzd2_843); 
BgL_testz00_2634 = 
(BgL_auxz00_2635==((long)10)); } 
if(BgL_testz00_2634)
{ /* ./Cc/ld.scm 307 */
BgL_test2535z00_849 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2533z00_848)
{ /* ./Cc/ld.scm 307 */
BgL_test2535z00_849 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2535z00_849 = BgL_test2531z00_847; } } } 
if(BgL_test2535z00_849)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_840; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2642;long BgL_lastzd2matchzd2_2641;obj_t BgL_inputzd2portzd2_2640;
BgL_inputzd2portzd2_2640 = BgL_inputzd2portzd2_839; 
BgL_lastzd2matchzd2_2641 = BgL_lastzd2matchzd2_840; 
BgL_thezd2rgczd2contextz00_2642 = BgL_thezd2rgczd2contextz00_841; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2642; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2641; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2640; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2510z00_835;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2643;
BgL_auxz00_2643 = 
(long)(BgL_currentzd2charzd2_830); 
BgL_test2510z00_835 = 
(BgL_auxz00_2643==((long)45)); } 
if(BgL_test2510z00_835)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2649;long BgL_lastzd2matchzd2_2648;obj_t BgL_inputzd2portzd2_2647;
BgL_inputzd2portzd2_2647 = BgL_inputzd2portzd2_826; 
BgL_lastzd2matchzd2_2648 = BgL_lastzd2matchzd2_827; 
BgL_thezd2rgczd2contextz00_2649 = BgL_thezd2rgczd2contextz00_828; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2649; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2648; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2647; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2512z00_836;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2650;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2651;
BgL_auxz00_2651 = 
(long)(BgL_currentzd2charzd2_830); 
BgL_testz00_2650 = 
(BgL_auxz00_2651==((long)10)); } 
if(BgL_testz00_2650)
{ /* ./Cc/ld.scm 307 */
BgL_test2512z00_836 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2510z00_835)
{ /* ./Cc/ld.scm 307 */
BgL_test2512z00_836 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2512z00_836 = BgL_test2508z00_834; } } } 
if(BgL_test2512z00_836)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_827; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2658;long BgL_lastzd2matchzd2_2657;obj_t BgL_inputzd2portzd2_2656;
BgL_inputzd2portzd2_2656 = BgL_inputzd2portzd2_826; 
BgL_lastzd2matchzd2_2657 = BgL_lastzd2matchzd2_827; 
BgL_thezd2rgczd2contextz00_2658 = BgL_thezd2rgczd2contextz00_828; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2658; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2657; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2656; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2487z00_822;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2659;
BgL_auxz00_2659 = 
(long)(BgL_currentzd2charzd2_817); 
BgL_test2487z00_822 = 
(BgL_auxz00_2659==((long)45)); } 
if(BgL_test2487z00_822)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2665;long BgL_lastzd2matchzd2_2664;obj_t BgL_inputzd2portzd2_2663;
BgL_inputzd2portzd2_2663 = BgL_inputzd2portzd2_813; 
BgL_lastzd2matchzd2_2664 = BgL_lastzd2matchzd2_814; 
BgL_thezd2rgczd2contextz00_2665 = BgL_thezd2rgczd2contextz00_815; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2665; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2664; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2663; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2489z00_823;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2666;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2667;
BgL_auxz00_2667 = 
(long)(BgL_currentzd2charzd2_817); 
BgL_testz00_2666 = 
(BgL_auxz00_2667==((long)10)); } 
if(BgL_testz00_2666)
{ /* ./Cc/ld.scm 307 */
BgL_test2489z00_823 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2487z00_822)
{ /* ./Cc/ld.scm 307 */
BgL_test2489z00_823 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2489z00_823 = BgL_test2485z00_821; } } } 
if(BgL_test2489z00_823)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_814; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2674;long BgL_lastzd2matchzd2_2673;obj_t BgL_inputzd2portzd2_2672;
BgL_inputzd2portzd2_2672 = BgL_inputzd2portzd2_813; 
BgL_lastzd2matchzd2_2673 = BgL_lastzd2matchzd2_814; 
BgL_thezd2rgczd2contextz00_2674 = BgL_thezd2rgczd2contextz00_815; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2674; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2673; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2672; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2645z00_913;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2675;
BgL_auxz00_2675 = 
(long)(BgL_currentzd2charzd2_908); 
BgL_test2645z00_913 = 
(BgL_auxz00_2675==((long)45)); } 
if(BgL_test2645z00_913)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2681;long BgL_lastzd2matchzd2_2680;obj_t BgL_inputzd2portzd2_2679;
BgL_inputzd2portzd2_2679 = BgL_inputzd2portzd2_904; 
BgL_lastzd2matchzd2_2680 = BgL_lastzd2matchzd2_905; 
BgL_thezd2rgczd2contextz00_2681 = BgL_thezd2rgczd2contextz00_906; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2681; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2680; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2679; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2647z00_914;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2682;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2683;
BgL_auxz00_2683 = 
(long)(BgL_currentzd2charzd2_908); 
BgL_testz00_2682 = 
(BgL_auxz00_2683==((long)10)); } 
if(BgL_testz00_2682)
{ /* ./Cc/ld.scm 307 */
BgL_test2647z00_914 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2645z00_913)
{ /* ./Cc/ld.scm 307 */
BgL_test2647z00_914 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2647z00_914 = BgL_test2643z00_912; } } } 
if(BgL_test2647z00_914)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_905; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2690;long BgL_lastzd2matchzd2_2689;obj_t BgL_inputzd2portzd2_2688;
BgL_inputzd2portzd2_2688 = BgL_inputzd2portzd2_904; 
BgL_lastzd2matchzd2_2689 = BgL_lastzd2matchzd2_905; 
BgL_thezd2rgczd2contextz00_2690 = BgL_thezd2rgczd2contextz00_906; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2690; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2689; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2688; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2622z00_900;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2691;
BgL_auxz00_2691 = 
(long)(BgL_currentzd2charzd2_895); 
BgL_test2622z00_900 = 
(BgL_auxz00_2691==((long)45)); } 
if(BgL_test2622z00_900)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2697;long BgL_lastzd2matchzd2_2696;obj_t BgL_inputzd2portzd2_2695;
BgL_inputzd2portzd2_2695 = BgL_inputzd2portzd2_891; 
BgL_lastzd2matchzd2_2696 = BgL_lastzd2matchzd2_892; 
BgL_thezd2rgczd2contextz00_2697 = BgL_thezd2rgczd2contextz00_893; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2697; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2696; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2695; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2624z00_901;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2698;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2699;
BgL_auxz00_2699 = 
(long)(BgL_currentzd2charzd2_895); 
BgL_testz00_2698 = 
(BgL_auxz00_2699==((long)10)); } 
if(BgL_testz00_2698)
{ /* ./Cc/ld.scm 307 */
BgL_test2624z00_901 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2622z00_900)
{ /* ./Cc/ld.scm 307 */
BgL_test2624z00_901 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2624z00_901 = BgL_test2620z00_899; } } } 
if(BgL_test2624z00_901)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_892; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2706;long BgL_lastzd2matchzd2_2705;obj_t BgL_inputzd2portzd2_2704;
BgL_inputzd2portzd2_2704 = BgL_inputzd2portzd2_891; 
BgL_lastzd2matchzd2_2705 = BgL_lastzd2matchzd2_892; 
BgL_thezd2rgczd2contextz00_2706 = BgL_thezd2rgczd2contextz00_893; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2706; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2705; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2704; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2599z00_887;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2707;
BgL_auxz00_2707 = 
(long)(BgL_currentzd2charzd2_882); 
BgL_test2599z00_887 = 
(BgL_auxz00_2707==((long)45)); } 
if(BgL_test2599z00_887)
{ /* ./Cc/ld.scm 307 */
{ 

goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2601z00_888;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2711;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2712;
BgL_auxz00_2712 = 
(long)(BgL_currentzd2charzd2_882); 
BgL_testz00_2711 = 
(BgL_auxz00_2712==((long)10)); } 
if(BgL_testz00_2711)
{ /* ./Cc/ld.scm 307 */
BgL_test2601z00_888 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2599z00_887)
{ /* ./Cc/ld.scm 307 */
BgL_test2601z00_888 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2601z00_888 = BgL_test2597z00_886; } } } 
if(BgL_test2601z00_888)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_879; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2719;long BgL_lastzd2matchzd2_2718;obj_t BgL_inputzd2portzd2_2717;
BgL_inputzd2portzd2_2717 = BgL_inputzd2portzd2_878; 
BgL_lastzd2matchzd2_2718 = BgL_lastzd2matchzd2_879; 
BgL_thezd2rgczd2contextz00_2719 = BgL_thezd2rgczd2contextz00_880; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2719; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2718; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2717; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2469z00_811;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2720;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2721;
BgL_auxz00_2721 = 
(long)(BgL_currentzd2charzd2_806); 
BgL_testz00_2720 = 
(BgL_auxz00_2721==((long)10)); } 
if(BgL_testz00_2720)
{ /* ./Cc/ld.scm 307 */
BgL_test2469z00_811 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2469z00_811 = BgL_test2467z00_810; } } 
if(BgL_test2469z00_811)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_lastzd2matchzd2_803; }  else 
{ /* ./Cc/ld.scm 307 */
{ 

goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2448z00_799;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2725;
BgL_auxz00_2725 = 
(long)(BgL_currentzd2charzd2_795); 
BgL_test2448z00_799 = 
(BgL_auxz00_2725==((long)45)); } 
if(BgL_test2448z00_799)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2731;long BgL_lastzd2matchzd2_2730;obj_t BgL_inputzd2portzd2_2729;
BgL_inputzd2portzd2_2729 = BgL_inputzd2portzd2_790; 
BgL_lastzd2matchzd2_2730 = BgL_newzd2matchzd2_794; 
BgL_thezd2rgczd2contextz00_2731 = BgL_thezd2rgczd2contextz00_792; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2731; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2730; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2729; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2450z00_800;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2732;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2733;
BgL_auxz00_2733 = 
(long)(BgL_currentzd2charzd2_795); 
BgL_testz00_2732 = 
(BgL_auxz00_2733==((long)10)); } 
if(BgL_testz00_2732)
{ /* ./Cc/ld.scm 307 */
BgL_test2450z00_800 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2450z00_800 = BgL_test2448z00_799; } } 
if(BgL_test2450z00_800)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2479 = BgL_newzd2matchzd2_794; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2739;long BgL_lastzd2matchzd2_2738;obj_t BgL_inputzd2portzd2_2737;
BgL_inputzd2portzd2_2737 = BgL_inputzd2portzd2_790; 
BgL_lastzd2matchzd2_2738 = BgL_newzd2matchzd2_794; 
BgL_thezd2rgczd2contextz00_2739 = BgL_thezd2rgczd2contextz00_792; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2739; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2738; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2737; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } 
return 
BINT(BgL_auxz00_2479);} } break;case ((long)45) : 

{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2741;
BgL_inputzd2portzd2_864 = BgL_inputzd2portzd2_917; 
BgL_lastzd2matchzd2_865 = BgL_lastzd2matchzd2_918; 
BgL_thezd2rgczd2contextz00_866 = BgL_thezd2rgczd2contextz00_919; 
BgL_zc3anonymousza32565ze3z83_867:
{ /* ./Cc/ld.scm 307 */
long BgL_newzd2matchzd2_868;
RGC_STOP_MATCH(BgL_inputzd2portzd2_864); 
BgL_newzd2matchzd2_868 = ((long)1); 
{ /* ./Cc/ld.scm 307 */
int BgL_currentzd2charzd2_869;
BgL_currentzd2charzd2_869 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_864); 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2566z00_870;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2744;
BgL_auxz00_2744 = 
(long)(BgL_currentzd2charzd2_869); 
BgL_test2566z00_870 = 
(BgL_auxz00_2744==((long)0)); } 
if(BgL_test2566z00_870)
{ /* ./Cc/ld.scm 307 */
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2567z00_871;
BgL_test2567z00_871 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_864); 
if(BgL_test2567z00_871)
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2568z00_872;
BgL_test2568z00_872 = 
rgc_fill_buffer(BgL_inputzd2portzd2_864); 
if(BgL_test2568z00_872)
{ 

goto BgL_zc3anonymousza32565ze3z83_867;}  else 
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2741 = BgL_newzd2matchzd2_868
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_2754;long BgL_lastzd2matchzd2_2753;obj_t BgL_inputzd2portzd2_2752;
BgL_inputzd2portzd2_2752 = BgL_inputzd2portzd2_864; 
BgL_lastzd2matchzd2_2753 = BgL_newzd2matchzd2_868; 
BgL_thezd2rgczd2contextz00_2754 = BgL_thezd2rgczd2contextz00_866; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2754; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2753; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2752; 
goto BgL_zc3anonymousza32459ze3z83_805;} } }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2573z00_873;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2755;
BgL_auxz00_2755 = 
(long)(BgL_currentzd2charzd2_869); 
BgL_test2573z00_873 = 
(BgL_auxz00_2755==((long)115)); } 
if(BgL_test2573z00_873)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2761;long BgL_lastzd2matchzd2_2760;obj_t BgL_inputzd2portzd2_2759;
BgL_inputzd2portzd2_2759 = BgL_inputzd2portzd2_864; 
BgL_lastzd2matchzd2_2760 = BgL_newzd2matchzd2_868; 
BgL_thezd2rgczd2contextz00_2761 = BgL_thezd2rgczd2contextz00_866; 
BgL_thezd2rgczd2contextz00_893 = BgL_thezd2rgczd2contextz00_2761; 
BgL_lastzd2matchzd2_892 = BgL_lastzd2matchzd2_2760; 
BgL_inputzd2portzd2_891 = BgL_inputzd2portzd2_2759; 
goto BgL_zc3anonymousza32612ze3z83_894;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2575z00_874;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2762;
BgL_auxz00_2762 = 
(long)(BgL_currentzd2charzd2_869); 
BgL_test2575z00_874 = 
(BgL_auxz00_2762==((long)45)); } 
if(BgL_test2575z00_874)
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2768;long BgL_lastzd2matchzd2_2767;obj_t BgL_inputzd2portzd2_2766;
BgL_inputzd2portzd2_2766 = BgL_inputzd2portzd2_864; 
BgL_lastzd2matchzd2_2767 = BgL_newzd2matchzd2_868; 
BgL_thezd2rgczd2contextz00_2768 = BgL_thezd2rgczd2contextz00_866; 
BgL_thezd2rgczd2contextz00_880 = BgL_thezd2rgczd2contextz00_2768; 
BgL_lastzd2matchzd2_879 = BgL_lastzd2matchzd2_2767; 
BgL_inputzd2portzd2_878 = BgL_inputzd2portzd2_2766; 
goto BgL_zc3anonymousza32589ze3z83_881;} }  else 
{ /* ./Cc/ld.scm 307 */
bool_t BgL_test2577z00_875;
{ /* ./Cc/ld.scm 307 */
bool_t BgL_testz00_2769;
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2770;
BgL_auxz00_2770 = 
(long)(BgL_currentzd2charzd2_869); 
BgL_testz00_2769 = 
(BgL_auxz00_2770==((long)10)); } 
if(BgL_testz00_2769)
{ /* ./Cc/ld.scm 307 */
BgL_test2577z00_875 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
if(BgL_test2575z00_874)
{ /* ./Cc/ld.scm 307 */
BgL_test2577z00_875 = ((bool_t)1); }  else 
{ /* ./Cc/ld.scm 307 */
BgL_test2577z00_875 = BgL_test2573z00_873; } } } 
if(BgL_test2577z00_875)
{ /* ./Cc/ld.scm 307 */
BgL_auxz00_2741 = BgL_newzd2matchzd2_868; }  else 
{ /* ./Cc/ld.scm 307 */
{ 
obj_t BgL_thezd2rgczd2contextz00_2777;long BgL_lastzd2matchzd2_2776;obj_t BgL_inputzd2portzd2_2775;
BgL_inputzd2portzd2_2775 = BgL_inputzd2portzd2_864; 
BgL_lastzd2matchzd2_2776 = BgL_newzd2matchzd2_868; 
BgL_thezd2rgczd2contextz00_2777 = BgL_thezd2rgczd2contextz00_866; 
BgL_thezd2rgczd2contextz00_804 = BgL_thezd2rgczd2contextz00_2777; 
BgL_lastzd2matchzd2_803 = BgL_lastzd2matchzd2_2776; 
BgL_inputzd2portzd2_802 = BgL_inputzd2portzd2_2775; 
goto BgL_zc3anonymousza32459ze3z83_805;} } } } } } } } 
return 
BINT(BgL_auxz00_2741);} break;case ((long)10) : 

{ /* ./Cc/ld.scm 307 */
long BgL_newzd2matchzd2_1414;
RGC_STOP_MATCH(BgL_inputzd2portzd2_917); 
BgL_newzd2matchzd2_1414 = ((long)1); 
return 
BINT(BgL_newzd2matchzd2_1414);} break;
default: 
{ /* ./Cc/ld.scm 307 */
long BgL_auxz00_2781;
{ 
obj_t BgL_thezd2rgczd2contextz00_2784;obj_t BgL_lastzd2matchzd2_2783;obj_t BgL_inputzd2portzd2_2782;
BgL_inputzd2portzd2_2782 = BgL_inputzd2portzd2_917; 
BgL_lastzd2matchzd2_2783 = BgL_lastzd2matchzd2_918; 
BgL_thezd2rgczd2contextz00_2784 = BgL_thezd2rgczd2contextz00_919; 
BgL_thezd2rgczd2contextz00_792 = BgL_thezd2rgczd2contextz00_2784; 
BgL_lastzd2matchzd2_791 = BgL_lastzd2matchzd2_2783; 
BgL_inputzd2portzd2_790 = BgL_inputzd2portzd2_2782; 
goto BgL_zc3anonymousza32440ze3z83_793;} 
return 
BINT(BgL_auxz00_2781);} } } } } } } 
}



/* normalize-win32-lib-name */
obj_t BGl_normaliza7ezd2win32zd2libzd2namez75zzcc_ldz00(obj_t BgL_libzd2namezd2_18)
{ AN_OBJECT;
{ /* ./Cc/ld.scm 409 */
{ /* ./Cc/ld.scm 410 */
bool_t BgL_test2677z00_965;
{ /* ./Cc/ld.scm 410 */
obj_t BgL_arg2680z00_966;
BgL_arg2680z00_966 = 
BGl_suffixz00zz__osz00(BgL_libzd2namezd2_18); 
BgL_test2677z00_965 = 
bigloo_strcmp(BgL_arg2680z00_966, BGl_string3068z00zzcc_ldz00); } 
if(BgL_test2677z00_965)
{ /* ./Cc/ld.scm 410 */
return BgL_libzd2namezd2_18;}  else 
{ /* ./Cc/ld.scm 410 */
return 
string_append(BgL_libzd2namezd2_18, BGl_string3068z00zzcc_ldz00);} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcc_ldz00()
{ AN_OBJECT;
{ /* ./Cc/ld.scm 15 */
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "cc_ld"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cc_ld"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "cc_ld"); 
BGl_modulezd2initializa7ationz75zzcc_execz00(((long)23238), "cc_ld"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cc_ld"); 
return 
BGl_modulezd2initializa7ationz75zzengine_configurez00(((long)37635), "cc_ld");} 
}

