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

#include <bigloo.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_letz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_epsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_dssslz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_normaliza7ezd2prognz75zztools_prognz00(obj_t);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31433ze3z83zzexpand_letz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2letza2z70zzexpand_letz00(obj_t, obj_t);
static obj_t BGl_TAGzd2470zd2zzexpand_letz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_TAGzd2471zd2zzexpand_letz00(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl__expandzd2let1999zd2zzexpand_letz00(obj_t, obj_t, obj_t);
extern obj_t BGl_internalzd2definitionzf3z21zzexpand_lambdaz00;
static obj_t BGl_zc3anonymousza31670ze3z83zzexpand_letz00(obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
static obj_t BGl_loopz00zzexpand_letz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31609ze3z83zzexpand_letz00(obj_t);
static obj_t BGl__expandzd2labels2009zd2zzexpand_letz00(obj_t, obj_t, obj_t);
extern obj_t BGl_replacez12z12zztools_miscz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__expandzd2letrec2003zd2zzexpand_letz00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_letz00();
static obj_t BGl__expandzd2letza21997z70zzexpand_letz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2letreczd2zzexpand_letz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2letzd2zzexpand_letz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_letz00();
static obj_t BGl_requirezd2initializa7ationz75zzexpand_letz00 = BUNSPEC;
extern obj_t BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2labelszd2zzexpand_letz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_letz00();
extern obj_t BGl_withzd2lexicalzd2zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31500ze3z83zzexpand_letz00(obj_t);
extern obj_t BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(obj_t);
extern obj_t BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(obj_t);
static obj_t __cnst[ 6 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2letzd2envz00zzexpand_letz00, BgL_bgl__expandza7d2let1999za7d2za7za7expand_letza7002121za7, BGl__expandzd2let1999zd2zzexpand_letz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2letza2zd2envza2zzexpand_letz00, BgL_bgl__expandza7d2letza7a21997za770za7za7expand_letza7002122z00, BGl__expandzd2letza21997z70zzexpand_letz00, 0L, 2 );
DEFINE_STRING( BGl_string2097z00zzexpand_letz00, BgL_bgl_string2097za700za7za7expand_letza7002123z00, "letrec _ (unspecified) labels let* let ", 39 );
DEFINE_STRING( BGl_string2096z00zzexpand_letz00, BgL_bgl_string2096za700za7za7expand_letza7002124z00, "Illegal `labels' form", 21 );
DEFINE_STRING( BGl_string2095z00zzexpand_letz00, BgL_bgl_string2095za700za7za7expand_letza7002125z00, "Illegal `letrec' form", 21 );
DEFINE_STRING( BGl_string2094z00zzexpand_letz00, BgL_bgl_string2094za700za7za7expand_letza7002126z00, "Illegal `let' form", 18 );
DEFINE_STRING( BGl_string2093z00zzexpand_letz00, BgL_bgl_string2093za700za7za7expand_letza7002127z00, "Illegal `let*' form", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2labelszd2envz00zzexpand_letz00, BgL_bgl__expandza7d2labels2009za7d2za7za7expand_letza7002128za7, BGl__expandzd2labels2009zd2zzexpand_letz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2letreczd2envz00zzexpand_letz00, BgL_bgl__expandza7d2letrec2003za7d2za7za7expand_letza7002129za7, BGl__expandzd2letrec2003zd2zzexpand_letz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_letz00(long BgL_checksumz00_920, char * BgL_fromz00_921)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_letz00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_letz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_letz00(); 
BGl_cnstzd2initzd2zzexpand_letz00(); 
BGl_importedzd2moduleszd2initz00zzexpand_letz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_letz00()
{ AN_OBJECT;
{ /* ./Expand/let.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_let"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_let"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_letz00()
{ AN_OBJECT;
{ /* ./Expand/let.scm 15 */
{ /* ./Expand/let.scm 15 */
obj_t BgL_cportz00_913;
BgL_cportz00_913 = 
open_input_string(BGl_string2097z00zzexpand_letz00); 
{ 
long BgL_iz00_914;
BgL_iz00_914 = ((long)5); 
BgL_loopz00_915:
{ /* ./Expand/let.scm 15 */
bool_t BgL_test2099z00_916;
BgL_test2099z00_916 = 
(BgL_iz00_914==((long)-1)); 
if(BgL_test2099z00_916)
{ /* ./Expand/let.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/let.scm 15 */
{ /* ./Expand/let.scm 15 */
obj_t BgL_arg2101z00_917;
{ /* ./Expand/let.scm 15 */
obj_t BgL_list2104z00_918;
BgL_list2104z00_918 = 
MAKE_PAIR(BgL_cportz00_913, BNIL); 
BgL_arg2101z00_917 = 
BGl_readz00zz__readerz00(BgL_list2104z00_918); } 
{ /* ./Expand/let.scm 15 */
int BgL_auxz00_935;
BgL_auxz00_935 = 
(int)(BgL_iz00_914); 
CNST_TABLE_SET(BgL_auxz00_935, BgL_arg2101z00_917); } } 
{ /* ./Expand/let.scm 15 */
int BgL_auxz00_919;
{ /* ./Expand/let.scm 15 */
long BgL_auxz00_938;
BgL_auxz00_938 = 
(BgL_iz00_914-((long)1)); 
BgL_auxz00_919 = 
(int)(BgL_auxz00_938); } 
{ 
long BgL_iz00_941;
BgL_iz00_941 = 
(long)(BgL_auxz00_919); 
BgL_iz00_914 = BgL_iz00_941; 
goto BgL_loopz00_915;} } } } } } } 
}



/* expand-let* */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letza2z70zzexpand_letz00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Expand/let.scm 31 */
{ /* ./Expand/let.scm 32 */
obj_t BgL_oldzd2internalzd2_9;
BgL_oldzd2internalzd2_9 = BGl_internalzd2definitionzf3z21zzexpand_lambdaz00; 
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
{ /* ./Expand/let.scm 34 */
obj_t BgL_ez00_10;
BgL_ez00_10 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_2); 
{ /* ./Expand/let.scm 34 */
obj_t BgL_resz00_11;
{ 
obj_t BgL_bindingsz00_14;obj_t BgL_bodyz00_15;obj_t BgL_bodyz00_12;
{ /* ./Expand/let.scm 35 */
bool_t BgL_test1029z00_19;
BgL_test1029z00_19 = 
PAIRP(BgL_xz00_1); 
if(BgL_test1029z00_19)
{ /* ./Expand/let.scm 35 */
obj_t BgL_cdrzd2109zd2_20;
BgL_cdrzd2109zd2_20 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/let.scm 35 */
bool_t BgL_test1030z00_21;
BgL_test1030z00_21 = 
PAIRP(BgL_cdrzd2109zd2_20); 
if(BgL_test1030z00_21)
{ /* ./Expand/let.scm 35 */
obj_t BgL_cdrzd2112zd2_22;
BgL_cdrzd2112zd2_22 = 
CDR(BgL_cdrzd2109zd2_20); 
{ /* ./Expand/let.scm 35 */
bool_t BgL_test1031z00_23;
{ /* ./Expand/let.scm 35 */
obj_t BgL_auxz00_950;
BgL_auxz00_950 = 
CAR(BgL_cdrzd2109zd2_20); 
BgL_test1031z00_23 = 
NULLP(BgL_auxz00_950); } 
if(BgL_test1031z00_23)
{ /* ./Expand/let.scm 35 */
bool_t BgL_test1032z00_24;
BgL_test1032z00_24 = 
NULLP(BgL_cdrzd2112zd2_22); 
if(BgL_test1032z00_24)
{ /* ./Expand/let.scm 35 */
BgL_tagzd2103zd2_17:
FAILURE(BFALSE,BGl_string2093z00zzexpand_letz00,BgL_xz00_1);}  else 
{ /* ./Expand/let.scm 35 */
BgL_bodyz00_12 = BgL_cdrzd2112zd2_22; 
{ /* ./Expand/let.scm 38 */
obj_t BgL_arg1058z00_31;
{ /* ./Expand/let.scm 38 */
obj_t BgL_arg1061z00_32;obj_t BgL_arg1064z00_33;
BgL_arg1061z00_32 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/let.scm 39 */
obj_t BgL_arg1068z00_35;
{ /* ./Expand/let.scm 40 */
obj_t BgL_arg1075z00_36;
{ /* ./Expand/let.scm 40 */
obj_t BgL_arg1079z00_38;
BgL_arg1079z00_38 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_12); 
BgL_arg1075z00_36 = 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_arg1079z00_38, BgL_ez00_10, BEOA); } 
BgL_arg1068z00_35 = 
MAKE_PAIR(BgL_arg1075z00_36, BNIL); } 
BgL_arg1064z00_33 = 
MAKE_PAIR(BNIL, BgL_arg1068z00_35); } 
BgL_arg1058z00_31 = 
MAKE_PAIR(BgL_arg1061z00_32, BgL_arg1064z00_33); } 
BgL_resz00_11 = 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1, BgL_arg1058z00_31); } } }  else 
{ /* ./Expand/let.scm 35 */
obj_t BgL_carzd2127zd2_26;obj_t BgL_cdrzd2128zd2_27;
BgL_carzd2127zd2_26 = 
CAR(BgL_cdrzd2109zd2_20); 
BgL_cdrzd2128zd2_27 = 
CDR(BgL_cdrzd2109zd2_20); 
{ /* ./Expand/let.scm 35 */
bool_t BgL_test1036z00_28;
BgL_test1036z00_28 = 
PAIRP(BgL_carzd2127zd2_26); 
if(BgL_test1036z00_28)
{ /* ./Expand/let.scm 35 */
bool_t BgL_test1037z00_29;
BgL_test1037z00_29 = 
NULLP(BgL_cdrzd2128zd2_27); 
if(BgL_test1037z00_29)
{ /* ./Expand/let.scm 35 */
goto BgL_tagzd2103zd2_17;}  else 
{ /* ./Expand/let.scm 35 */
BgL_bindingsz00_14 = BgL_carzd2127zd2_26; 
BgL_bodyz00_15 = BgL_cdrzd2128zd2_27; 
{ /* ./Expand/let.scm 43 */
obj_t BgL_slz00_39;
{ /* ./Expand/let.scm 43 */
obj_t BgL_arg1110z00_51;obj_t BgL_arg1111z00_52;obj_t BgL_arg1112z00_53;
BgL_arg1110z00_51 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Expand/let.scm 44 */
obj_t BgL_arg1115z00_54;
BgL_arg1115z00_54 = 
CDR(BgL_bindingsz00_14); 
BgL_arg1111z00_52 = 
MAKE_PAIR(BgL_arg1115z00_54, BgL_bodyz00_15); } 
{ /* ./Expand/let.scm 45 */
obj_t BgL_arg1119z00_55;
BgL_arg1119z00_55 = 
CAR(BgL_bindingsz00_14); 
BgL_arg1112z00_53 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_arg1119z00_55); } 
{ /* ./Expand/let.scm 43 */
obj_t BgL_res1991z00_525;
BgL_res1991z00_525 = 
MAKE_EXTENDED_PAIR(BgL_arg1110z00_51, BgL_arg1111z00_52, BgL_arg1112z00_53); 
BgL_slz00_39 = BgL_res1991z00_525; } } 
{ /* ./Expand/let.scm 46 */
obj_t BgL_arg1084z00_40;
{ /* ./Expand/let.scm 46 */
obj_t BgL_arg1087z00_41;obj_t BgL_arg1088z00_42;
BgL_arg1087z00_41 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/let.scm 47 */
obj_t BgL_arg1091z00_43;obj_t BgL_arg1092z00_44;
{ /* ./Expand/let.scm 47 */
bool_t BgL_test1094z00_45;
BgL_test1094z00_45 = 
EXTENDED_PAIRP(BgL_bindingsz00_14); 
if(BgL_test1094z00_45)
{ /* ./Expand/let.scm 48 */
obj_t BgL_arg1096z00_46;obj_t BgL_arg1098z00_48;
BgL_arg1096z00_46 = 
CAR(BgL_bindingsz00_14); 
BgL_arg1098z00_48 = 
CER(BgL_bindingsz00_14); 
{ /* ./Expand/let.scm 48 */
obj_t BgL_res1992z00_532;
BgL_res1992z00_532 = 
MAKE_EXTENDED_PAIR(BgL_arg1096z00_46, BNIL, BgL_arg1098z00_48); 
BgL_arg1091z00_43 = BgL_res1992z00_532; } }  else 
{ /* ./Expand/let.scm 51 */
obj_t BgL_arg1103z00_49;
BgL_arg1103z00_49 = 
CAR(BgL_bindingsz00_14); 
BgL_arg1091z00_43 = 
MAKE_PAIR(BgL_arg1103z00_49, BNIL); } } 
BgL_arg1092z00_44 = 
MAKE_PAIR(BgL_slz00_39, BNIL); 
BgL_arg1088z00_42 = 
MAKE_PAIR(BgL_arg1091z00_43, BgL_arg1092z00_44); } 
BgL_arg1084z00_40 = 
MAKE_PAIR(BgL_arg1087z00_41, BgL_arg1088z00_42); } 
BgL_resz00_11 = 
PROCEDURE_ENTRY(BgL_ez00_10)(BgL_ez00_10, BgL_arg1084z00_40, BgL_ez00_10, BEOA); } } } }  else 
{ /* ./Expand/let.scm 35 */
goto BgL_tagzd2103zd2_17;} } } } }  else 
{ /* ./Expand/let.scm 35 */
goto BgL_tagzd2103zd2_17;} } }  else 
{ /* ./Expand/let.scm 35 */
goto BgL_tagzd2103zd2_17;} } } 
{ /* ./Expand/let.scm 35 */

BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BgL_oldzd2internalzd2_9; 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1, BgL_resz00_11);} } } } } 
}



/* _expand-let*1997 */
obj_t BGl__expandzd2letza21997z70zzexpand_letz00(obj_t BgL_envz00_868, obj_t BgL_xz00_869, obj_t BgL_ez00_870)
{ AN_OBJECT;
{ /* ./Expand/let.scm 31 */
return 
BGl_expandzd2letza2z70zzexpand_letz00(BgL_xz00_869, BgL_ez00_870);} 
}



/* expand-let */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letzd2zzexpand_letz00(obj_t BgL_xz00_3, obj_t BgL_ez00_4)
{ AN_OBJECT;
{ /* ./Expand/let.scm 64 */
{ /* ./Expand/let.scm 65 */
obj_t BgL_oldzd2internalzd2_56;
BgL_oldzd2internalzd2_56 = BGl_internalzd2definitionzf3z21zzexpand_lambdaz00; 
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
{ /* ./Expand/let.scm 67 */
obj_t BgL_ez00_57;
BgL_ez00_57 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_4); 
{ /* ./Expand/let.scm 67 */
obj_t BgL_resz00_58;
{ 
obj_t BgL_bindingsz00_65;obj_t BgL_bodyz00_66;obj_t BgL_loopz00_61;obj_t BgL_bindingsz00_62;obj_t BgL_bodyz00_63;obj_t BgL_bodyz00_59;
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1125z00_70;
BgL_test1125z00_70 = 
PAIRP(BgL_xz00_3); 
if(BgL_test1125z00_70)
{ /* ./Expand/let.scm 68 */
obj_t BgL_cdrzd2152zd2_71;
BgL_cdrzd2152zd2_71 = 
CDR(BgL_xz00_3); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1126z00_72;
BgL_test1126z00_72 = 
PAIRP(BgL_cdrzd2152zd2_71); 
if(BgL_test1126z00_72)
{ /* ./Expand/let.scm 68 */
obj_t BgL_cdrzd2155zd2_73;
BgL_cdrzd2155zd2_73 = 
CDR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1127z00_74;
{ /* ./Expand/let.scm 68 */
obj_t BgL_auxz00_999;
BgL_auxz00_999 = 
CAR(BgL_cdrzd2152zd2_71); 
BgL_test1127z00_74 = 
NULLP(BgL_auxz00_999); } 
if(BgL_test1127z00_74)
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1128z00_75;
BgL_test1128z00_75 = 
NULLP(BgL_cdrzd2155zd2_73); 
if(BgL_test1128z00_75)
{ /* ./Expand/let.scm 68 */
obj_t BgL_carzd2169zd2_77;obj_t BgL_cdrzd2170zd2_78;
BgL_carzd2169zd2_77 = 
CAR(BgL_cdrzd2152zd2_71); 
BgL_cdrzd2170zd2_78 = 
CDR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1129z00_79;
BgL_test1129z00_79 = 
SYMBOLP(BgL_carzd2169zd2_77); 
if(BgL_test1129z00_79)
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1130z00_80;
BgL_test1130z00_80 = 
PAIRP(BgL_cdrzd2170zd2_78); 
if(BgL_test1130z00_80)
{ /* ./Expand/let.scm 68 */
obj_t BgL_cdrzd2177zd2_81;
BgL_cdrzd2177zd2_81 = 
CDR(BgL_cdrzd2170zd2_78); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1131z00_82;
BgL_test1131z00_82 = 
NULLP(BgL_cdrzd2177zd2_81); 
if(BgL_test1131z00_82)
{ /* ./Expand/let.scm 68 */
obj_t BgL_carzd2189zd2_84;
BgL_carzd2189zd2_84 = 
CAR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1132z00_85;
BgL_test1132z00_85 = 
PAIRP(BgL_carzd2189zd2_84); 
if(BgL_test1132z00_85)
{ /* ./Expand/let.scm 68 */
obj_t BgL_arg1134z00_86;
BgL_arg1134z00_86 = 
CDR(BgL_cdrzd2152zd2_71); 
BgL_bindingsz00_65 = BgL_carzd2189zd2_84; 
BgL_bodyz00_66 = BgL_arg1134z00_86; 
BgL_tagzd2144zd2_67:
{ /* ./Expand/let.scm 102 */
obj_t BgL_arg1331z00_166;obj_t BgL_arg1332z00_167;
BgL_arg1331z00_166 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/let.scm 102 */
obj_t BgL_arg1335z00_168;obj_t BgL_arg1336z00_169;
{ 
obj_t BgL_bindingsz00_170;obj_t BgL_accz00_171;
BgL_bindingsz00_170 = BgL_bindingsz00_65; 
BgL_accz00_171 = BNIL; 
BgL_loopz00_172:
{ /* ./Expand/let.scm 104 */
bool_t BgL_test1339z00_173;
BgL_test1339z00_173 = 
NULLP(BgL_bindingsz00_170); 
if(BgL_test1339z00_173)
{ /* ./Expand/let.scm 104 */
BgL_arg1335z00_168 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_accz00_171); }  else 
{ /* ./Expand/let.scm 106 */
obj_t BgL_prz00_174;
BgL_prz00_174 = 
CAR(BgL_bindingsz00_170); 
{ /* ./Expand/let.scm 108 */
bool_t BgL_test1341z00_175;
BgL_test1341z00_175 = 
PAIRP(BgL_prz00_174); 
if(BgL_test1341z00_175)
{ /* ./Expand/let.scm 114 */
bool_t BgL_test1342z00_176;
{ /* ./Expand/let.scm 114 */
bool_t BgL_testz00_1025;
{ /* ./Expand/let.scm 114 */
obj_t BgL_auxz00_1026;
BgL_auxz00_1026 = 
CDR(BgL_prz00_174); 
BgL_testz00_1025 = 
PAIRP(BgL_auxz00_1026); } 
if(BgL_testz00_1025)
{ /* ./Expand/let.scm 115 */
obj_t BgL_auxz00_1029;
{ /* ./Expand/let.scm 115 */
obj_t BgL_auxz00_1030;
BgL_auxz00_1030 = 
CDR(BgL_prz00_174); 
BgL_auxz00_1029 = 
CDR(BgL_auxz00_1030); } 
BgL_test1342z00_176 = 
NULLP(BgL_auxz00_1029); }  else 
{ /* ./Expand/let.scm 114 */
BgL_test1342z00_176 = ((bool_t)0); } } 
if(BgL_test1342z00_176)
{ /* ./Expand/let.scm 114 */
{ /* ./Expand/let.scm 118 */
obj_t BgL_bdz00_177;
{ /* ./Expand/let.scm 119 */
obj_t BgL_arg1352z00_180;obj_t BgL_arg1354z00_181;
BgL_arg1352z00_180 = 
CAR(BgL_prz00_174); 
{ /* ./Expand/let.scm 121 */
obj_t BgL_arg1363z00_184;
{ /* ./Expand/let.scm 121 */
obj_t BgL_arg1366z00_185;
BgL_arg1366z00_185 = 
CDR(BgL_prz00_174); 
BgL_arg1363z00_184 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_arg1366z00_185); } 
BgL_arg1354z00_181 = 
PROCEDURE_ENTRY(BgL_ez00_57)(BgL_ez00_57, BgL_arg1363z00_184, BgL_ez00_57, BEOA); } 
{ /* ./Expand/let.scm 118 */
obj_t BgL_list1356z00_182;
{ /* ./Expand/let.scm 118 */
obj_t BgL_arg1358z00_183;
BgL_arg1358z00_183 = 
MAKE_PAIR(BgL_arg1354z00_181, BNIL); 
BgL_list1356z00_182 = 
MAKE_PAIR(BgL_arg1352z00_180, BgL_arg1358z00_183); } 
BgL_bdz00_177 = BgL_list1356z00_182; } } 
BGl_replacez12z12zztools_miscz00(BgL_prz00_174, BgL_bdz00_177); 
{ /* ./Expand/let.scm 124 */
obj_t BgL_arg1345z00_178;obj_t BgL_arg1346z00_179;
BgL_arg1345z00_178 = 
CDR(BgL_bindingsz00_170); 
BgL_arg1346z00_179 = 
MAKE_PAIR(BgL_prz00_174, BgL_accz00_171); 
{ 
obj_t BgL_accz00_1046;obj_t BgL_bindingsz00_1045;
BgL_bindingsz00_1045 = BgL_arg1345z00_178; 
BgL_accz00_1046 = BgL_arg1346z00_179; 
BgL_accz00_171 = BgL_accz00_1046; 
BgL_bindingsz00_170 = BgL_bindingsz00_1045; 
goto BgL_loopz00_172;} } } }  else 
{ /* ./Expand/let.scm 114 */
FAILURE(BFALSE,BGl_string2094z00zzexpand_letz00,BgL_xz00_3);} }  else 
{ /* ./Expand/let.scm 108 */
{ /* ./Expand/let.scm 109 */
obj_t BgL_arg1382z00_189;obj_t BgL_arg1383z00_190;
BgL_arg1382z00_189 = 
CDR(BgL_bindingsz00_170); 
{ /* ./Expand/let.scm 110 */
obj_t BgL_arg1388z00_191;
{ /* ./Expand/let.scm 110 */
obj_t BgL_list1391z00_192;
{ /* ./Expand/let.scm 110 */
obj_t BgL_arg1393z00_193;
{ /* ./Expand/let.scm 110 */
obj_t BgL_auxz00_1049;
BgL_auxz00_1049 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1393z00_193 = 
MAKE_PAIR(BgL_auxz00_1049, BNIL); } 
BgL_list1391z00_192 = 
MAKE_PAIR(BgL_prz00_174, BgL_arg1393z00_193); } 
BgL_arg1388z00_191 = BgL_list1391z00_192; } 
BgL_arg1383z00_190 = 
MAKE_PAIR(BgL_arg1388z00_191, BgL_accz00_171); } 
{ 
obj_t BgL_accz00_1055;obj_t BgL_bindingsz00_1054;
BgL_bindingsz00_1054 = BgL_arg1382z00_189; 
BgL_accz00_1055 = BgL_arg1383z00_190; 
BgL_accz00_171 = BgL_accz00_1055; 
BgL_bindingsz00_170 = BgL_bindingsz00_1054; 
goto BgL_loopz00_172;} } } } } } } 
{ /* ./Expand/let.scm 127 */
obj_t BgL_arg1400z00_194;
{ /* ./Expand/let.scm 127 */
obj_t BgL_arg1406z00_196;obj_t BgL_arg1407z00_197;obj_t BgL_arg1408z00_198;
{ /* ./Expand/let.scm 127 */
bool_t BgL_test1411z00_201;
BgL_test1411z00_201 = 
NULLP(BgL_bindingsz00_65); 
if(BgL_test1411z00_201)
{ /* ./Expand/let.scm 127 */
BgL_arg1406z00_196 = BNIL; }  else 
{ /* ./Expand/let.scm 127 */
obj_t BgL_head1015z00_202;
BgL_head1015z00_202 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1013z00_203;obj_t BgL_tail1016z00_204;
BgL_l1013z00_203 = BgL_bindingsz00_65; 
BgL_tail1016z00_204 = BgL_head1015z00_202; 
BgL_map1014z00_205:
{ /* ./Expand/let.scm 127 */
bool_t BgL_test1413z00_206;
BgL_test1413z00_206 = 
NULLP(BgL_l1013z00_203); 
if(BgL_test1413z00_206)
{ /* ./Expand/let.scm 127 */
BgL_arg1406z00_196 = 
CDR(BgL_head1015z00_202); }  else 
{ /* ./Expand/let.scm 127 */
obj_t BgL_newtail1017z00_207;
{ /* ./Expand/let.scm 127 */
obj_t BgL_arg1421z00_209;
{ /* ./Expand/let.scm 127 */
obj_t BgL_vz00_211;
BgL_vz00_211 = 
CAR(BgL_l1013z00_203); 
if(
PAIRP(BgL_vz00_211))
{ /* ./Expand/let.scm 127 */
BgL_arg1421z00_209 = 
CAR(BgL_vz00_211); }  else 
{ /* ./Expand/let.scm 127 */
BgL_arg1421z00_209 = BgL_vz00_211; } } 
BgL_newtail1017z00_207 = 
MAKE_PAIR(BgL_arg1421z00_209, BNIL); } 
SET_CDR(BgL_tail1016z00_204, BgL_newtail1017z00_207); 
{ /* ./Expand/let.scm 127 */
obj_t BgL_arg1417z00_208;
BgL_arg1417z00_208 = 
CDR(BgL_l1013z00_203); 
{ 
obj_t BgL_tail1016z00_1070;obj_t BgL_l1013z00_1069;
BgL_l1013z00_1069 = BgL_arg1417z00_208; 
BgL_tail1016z00_1070 = BgL_newtail1017z00_207; 
BgL_tail1016z00_204 = BgL_tail1016z00_1070; 
BgL_l1013z00_203 = BgL_l1013z00_1069; 
goto BgL_map1014z00_205;} } } } } } } 
BgL_arg1407z00_197 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1408z00_198 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_3); 
{ /* ./Expand/let.scm 134 */
obj_t BgL_zc3anonymousza31433ze3z83_871;
{ 
int BgL_auxz00_1075;int BgL_auxz00_1073;
BgL_auxz00_1075 = 
(int)(((long)2)); 
BgL_auxz00_1073 = 
(int)(((long)0)); 
BgL_zc3anonymousza31433ze3z83_871 = 
make_fx_procedure(BGl_zc3anonymousza31433ze3z83zzexpand_letz00, BgL_auxz00_1073, BgL_auxz00_1075); } 
{ /* ./Expand/let.scm 134 */
int BgL_auxz00_1078;
BgL_auxz00_1078 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31433ze3z83_871, BgL_auxz00_1078, BgL_bodyz00_66); } 
{ /* ./Expand/let.scm 134 */
int BgL_auxz00_1081;
BgL_auxz00_1081 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31433ze3z83_871, BgL_auxz00_1081, BgL_ez00_57); } 
BgL_arg1400z00_194 = 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg1406z00_196, BgL_arg1407z00_197, BgL_arg1408z00_198, BgL_zc3anonymousza31433ze3z83_871); } } 
BgL_arg1336z00_169 = 
MAKE_PAIR(BgL_arg1400z00_194, BNIL); } 
BgL_arg1332z00_167 = 
MAKE_PAIR(BgL_arg1335z00_168, BgL_arg1336z00_169); } 
BgL_resz00_58 = 
MAKE_PAIR(BgL_arg1331z00_166, BgL_arg1332z00_167); } }  else 
{ /* ./Expand/let.scm 68 */
BgL_tagzd2145zd2_68:
FAILURE(BFALSE,BGl_string2094z00zzexpand_letz00,BgL_xz00_3);} } }  else 
{ /* ./Expand/let.scm 68 */
obj_t BgL_arg1142z00_87;
BgL_arg1142z00_87 = 
CAR(BgL_cdrzd2170zd2_78); 
BgL_loopz00_61 = BgL_carzd2169zd2_77; 
BgL_bindingsz00_62 = BgL_arg1142z00_87; 
BgL_bodyz00_63 = BgL_cdrzd2177zd2_81; 
BgL_tagzd2143zd2_64:
{ /* ./Expand/let.scm 78 */
bool_t BgL_test1230z00_119;
if(
NULLP(BgL_bindingsz00_62))
{ /* ./Expand/let.scm 78 */
BgL_test1230z00_119 = ((bool_t)1); }  else 
{ /* ./Expand/let.scm 78 */
BgL_test1230z00_119 = 
PAIRP(BgL_bindingsz00_62); } 
if(BgL_test1230z00_119)
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1233z00_120;
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1237z00_121;obj_t BgL_arg1238z00_122;
BgL_arg1237z00_121 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1241z00_123;obj_t BgL_arg1243z00_124;
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1246z00_125;
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1252z00_127;
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1256z00_128;obj_t BgL_arg1258z00_129;
{ /* ./Expand/let.scm 80 */
bool_t BgL_test1260z00_131;
BgL_test1260z00_131 = 
NULLP(BgL_bindingsz00_62); 
if(BgL_test1260z00_131)
{ /* ./Expand/let.scm 80 */
BgL_arg1256z00_128 = BNIL; }  else 
{ /* ./Expand/let.scm 80 */
obj_t BgL_head1005z00_132;
BgL_head1005z00_132 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1003z00_133;obj_t BgL_tail1006z00_134;
BgL_l1003z00_133 = BgL_bindingsz00_62; 
BgL_tail1006z00_134 = BgL_head1005z00_132; 
BgL_map1004z00_135:
{ /* ./Expand/let.scm 80 */
bool_t BgL_test1262z00_136;
BgL_test1262z00_136 = 
NULLP(BgL_l1003z00_133); 
if(BgL_test1262z00_136)
{ /* ./Expand/let.scm 80 */
BgL_arg1256z00_128 = 
CDR(BgL_head1005z00_132); }  else 
{ /* ./Expand/let.scm 82 */
obj_t BgL_newtail1007z00_137;
{ /* ./Expand/let.scm 82 */
obj_t BgL_arg1270z00_139;
{ /* ./Expand/let.scm 82 */
obj_t BgL_bz00_141;
BgL_bz00_141 = 
CAR(BgL_l1003z00_133); 
{ /* ./Expand/let.scm 82 */
bool_t BgL_test1275z00_142;
BgL_test1275z00_142 = 
PAIRP(BgL_bz00_141); 
if(BgL_test1275z00_142)
{ /* ./Expand/let.scm 82 */
BgL_arg1270z00_139 = 
CAR(BgL_bz00_141); }  else 
{ /* ./Expand/let.scm 82 */
FAILURE(BFALSE,BGl_string2094z00zzexpand_letz00,BgL_xz00_3);} } } 
BgL_newtail1007z00_137 = 
MAKE_PAIR(BgL_arg1270z00_139, BNIL); } 
SET_CDR(BgL_tail1006z00_134, BgL_newtail1007z00_137); 
{ /* ./Expand/let.scm 80 */
obj_t BgL_arg1266z00_138;
BgL_arg1266z00_138 = 
CDR(BgL_l1003z00_133); 
{ 
obj_t BgL_tail1006z00_1110;obj_t BgL_l1003z00_1109;
BgL_l1003z00_1109 = BgL_arg1266z00_138; 
BgL_tail1006z00_1110 = BgL_newtail1007z00_137; 
BgL_tail1006z00_134 = BgL_tail1006z00_1110; 
BgL_l1003z00_133 = BgL_l1003z00_1109; 
goto BgL_map1004z00_135;} } } } } } } 
BgL_arg1258z00_129 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_63, BNIL); 
BgL_arg1252z00_127 = 
MAKE_PAIR(BgL_arg1256z00_128, BgL_arg1258z00_129); } 
BgL_arg1246z00_125 = 
MAKE_PAIR(BgL_loopz00_61, BgL_arg1252z00_127); } 
BgL_arg1241z00_123 = 
MAKE_PAIR(BgL_arg1246z00_125, BNIL); } 
{ /* ./Expand/let.scm 90 */
obj_t BgL_arg1285z00_143;
{ /* ./Expand/let.scm 90 */
obj_t BgL_arg1289z00_145;
{ /* ./Expand/let.scm 90 */
obj_t BgL_arg1292z00_146;
{ /* ./Expand/let.scm 90 */
bool_t BgL_test1295z00_149;
BgL_test1295z00_149 = 
NULLP(BgL_bindingsz00_62); 
if(BgL_test1295z00_149)
{ /* ./Expand/let.scm 90 */
BgL_arg1292z00_146 = BNIL; }  else 
{ /* ./Expand/let.scm 90 */
obj_t BgL_head1010z00_150;
BgL_head1010z00_150 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1008z00_151;obj_t BgL_tail1011z00_152;
BgL_l1008z00_151 = BgL_bindingsz00_62; 
BgL_tail1011z00_152 = BgL_head1010z00_150; 
BgL_map1009z00_153:
{ /* ./Expand/let.scm 90 */
bool_t BgL_test1297z00_154;
BgL_test1297z00_154 = 
NULLP(BgL_l1008z00_151); 
if(BgL_test1297z00_154)
{ /* ./Expand/let.scm 90 */
BgL_arg1292z00_146 = 
CDR(BgL_head1010z00_150); }  else 
{ /* ./Expand/let.scm 91 */
obj_t BgL_newtail1012z00_155;
{ /* ./Expand/let.scm 91 */
obj_t BgL_arg1305z00_157;
{ /* ./Expand/let.scm 91 */
obj_t BgL_bz00_159;
BgL_bz00_159 = 
CAR(BgL_l1008z00_151); 
{ /* ./Expand/let.scm 91 */
bool_t BgL_test1308z00_160;
if(
PAIRP(BgL_bz00_159))
{ /* ./Expand/let.scm 92 */
bool_t BgL_testz00_1124;
{ /* ./Expand/let.scm 92 */
obj_t BgL_auxz00_1125;
BgL_auxz00_1125 = 
CDR(BgL_bz00_159); 
BgL_testz00_1124 = 
PAIRP(BgL_auxz00_1125); } 
if(BgL_testz00_1124)
{ /* ./Expand/let.scm 93 */
obj_t BgL_auxz00_1128;
{ /* ./Expand/let.scm 93 */
obj_t BgL_auxz00_1129;
BgL_auxz00_1129 = 
CDR(BgL_bz00_159); 
BgL_auxz00_1128 = 
CDR(BgL_auxz00_1129); } 
BgL_test1308z00_160 = 
NULLP(BgL_auxz00_1128); }  else 
{ /* ./Expand/let.scm 92 */
BgL_test1308z00_160 = ((bool_t)0); } }  else 
{ /* ./Expand/let.scm 91 */
BgL_test1308z00_160 = ((bool_t)0); } 
if(BgL_test1308z00_160)
{ /* ./Expand/let.scm 94 */
obj_t BgL_auxz00_1134;
BgL_auxz00_1134 = 
CDR(BgL_bz00_159); 
BgL_arg1305z00_157 = 
CAR(BgL_auxz00_1134); }  else 
{ /* ./Expand/let.scm 91 */
FAILURE(BFALSE,BGl_string2094z00zzexpand_letz00,BgL_xz00_3);} } } 
BgL_newtail1012z00_155 = 
MAKE_PAIR(BgL_arg1305z00_157, BNIL); } 
SET_CDR(BgL_tail1011z00_152, BgL_newtail1012z00_155); 
{ /* ./Expand/let.scm 90 */
obj_t BgL_arg1301z00_156;
BgL_arg1301z00_156 = 
CDR(BgL_l1008z00_151); 
{ 
obj_t BgL_tail1011z00_1142;obj_t BgL_l1008z00_1141;
BgL_l1008z00_1141 = BgL_arg1301z00_156; 
BgL_tail1011z00_1142 = BgL_newtail1012z00_155; 
BgL_tail1011z00_152 = BgL_tail1011z00_1142; 
BgL_l1008z00_151 = BgL_l1008z00_1141; 
goto BgL_map1009z00_153;} } } } } } } 
BgL_arg1289z00_145 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1292z00_146, BNIL); } 
BgL_arg1285z00_143 = 
MAKE_PAIR(BgL_loopz00_61, BgL_arg1289z00_145); } 
BgL_arg1243z00_124 = 
MAKE_PAIR(BgL_arg1285z00_143, BNIL); } 
BgL_arg1238z00_122 = 
MAKE_PAIR(BgL_arg1241z00_123, BgL_arg1243z00_124); } 
BgL_arg1233z00_120 = 
MAKE_PAIR(BgL_arg1237z00_121, BgL_arg1238z00_122); } 
BgL_resz00_58 = 
PROCEDURE_ENTRY(BgL_ez00_57)(BgL_ez00_57, BgL_arg1233z00_120, BgL_ez00_57, BEOA); }  else 
{ /* ./Expand/let.scm 78 */
FAILURE(BFALSE,BGl_string2094z00zzexpand_letz00,BgL_xz00_3);} } } } }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} } }  else 
{ /* ./Expand/let.scm 68 */
BgL_bodyz00_59 = BgL_cdrzd2155zd2_73; 
{ /* ./Expand/let.scm 72 */
obj_t BgL_arg1212z00_111;
{ /* ./Expand/let.scm 72 */
obj_t BgL_arg1215z00_112;obj_t BgL_arg1216z00_113;
BgL_arg1215z00_112 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/let.scm 73 */
obj_t BgL_arg1220z00_115;
{ /* ./Expand/let.scm 74 */
obj_t BgL_arg1223z00_116;
{ /* ./Expand/let.scm 74 */
obj_t BgL_arg1227z00_118;
BgL_arg1227z00_118 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_59); 
BgL_arg1223z00_116 = 
PROCEDURE_ENTRY(BgL_ez00_57)(BgL_ez00_57, BgL_arg1227z00_118, BgL_ez00_57, BEOA); } 
BgL_arg1220z00_115 = 
MAKE_PAIR(BgL_arg1223z00_116, BNIL); } 
BgL_arg1216z00_113 = 
MAKE_PAIR(BNIL, BgL_arg1220z00_115); } 
BgL_arg1212z00_111 = 
MAKE_PAIR(BgL_arg1215z00_112, BgL_arg1216z00_113); } 
BgL_resz00_58 = 
BGl_replacez12z12zztools_miscz00(BgL_xz00_3, BgL_arg1212z00_111); } } }  else 
{ /* ./Expand/let.scm 68 */
obj_t BgL_carzd2215zd2_89;obj_t BgL_cdrzd2216zd2_90;
BgL_carzd2215zd2_89 = 
CAR(BgL_cdrzd2152zd2_71); 
BgL_cdrzd2216zd2_90 = 
CDR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1156z00_91;
BgL_test1156z00_91 = 
SYMBOLP(BgL_carzd2215zd2_89); 
if(BgL_test1156z00_91)
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1157z00_92;
BgL_test1157z00_92 = 
PAIRP(BgL_cdrzd2216zd2_90); 
if(BgL_test1157z00_92)
{ /* ./Expand/let.scm 68 */
obj_t BgL_cdrzd2223zd2_93;
BgL_cdrzd2223zd2_93 = 
CDR(BgL_cdrzd2216zd2_90); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1159z00_94;
BgL_test1159z00_94 = 
NULLP(BgL_cdrzd2223zd2_93); 
if(BgL_test1159z00_94)
{ /* ./Expand/let.scm 68 */
obj_t BgL_carzd2237zd2_96;
BgL_carzd2237zd2_96 = 
CAR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1160z00_97;
BgL_test1160z00_97 = 
PAIRP(BgL_carzd2237zd2_96); 
if(BgL_test1160z00_97)
{ /* ./Expand/let.scm 68 */
obj_t BgL_arg1162z00_98;
BgL_arg1162z00_98 = 
CDR(BgL_cdrzd2152zd2_71); 
{ 
obj_t BgL_bodyz00_1173;obj_t BgL_bindingsz00_1172;
BgL_bindingsz00_1172 = BgL_carzd2237zd2_96; 
BgL_bodyz00_1173 = BgL_arg1162z00_98; 
BgL_bodyz00_66 = BgL_bodyz00_1173; 
BgL_bindingsz00_65 = BgL_bindingsz00_1172; 
goto BgL_tagzd2144zd2_67;} }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} } }  else 
{ /* ./Expand/let.scm 68 */
obj_t BgL_arg1171z00_99;
BgL_arg1171z00_99 = 
CAR(BgL_cdrzd2216zd2_90); 
{ 
obj_t BgL_bodyz00_1177;obj_t BgL_bindingsz00_1176;obj_t BgL_loopz00_1175;
BgL_loopz00_1175 = BgL_carzd2215zd2_89; 
BgL_bindingsz00_1176 = BgL_arg1171z00_99; 
BgL_bodyz00_1177 = BgL_cdrzd2223zd2_93; 
BgL_bodyz00_63 = BgL_bodyz00_1177; 
BgL_bindingsz00_62 = BgL_bindingsz00_1176; 
BgL_loopz00_61 = BgL_loopz00_1175; 
goto BgL_tagzd2143zd2_64;} } } }  else 
{ /* ./Expand/let.scm 68 */
obj_t BgL_carzd2256zd2_101;obj_t BgL_cdrzd2257zd2_102;
BgL_carzd2256zd2_101 = 
CAR(BgL_cdrzd2152zd2_71); 
BgL_cdrzd2257zd2_102 = 
CDR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1176z00_103;
BgL_test1176z00_103 = 
PAIRP(BgL_carzd2256zd2_101); 
if(BgL_test1176z00_103)
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1177z00_104;
BgL_test1177z00_104 = 
NULLP(BgL_cdrzd2257zd2_102); 
if(BgL_test1177z00_104)
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;}  else 
{ 
obj_t BgL_bodyz00_1185;obj_t BgL_bindingsz00_1184;
BgL_bindingsz00_1184 = BgL_carzd2256zd2_101; 
BgL_bodyz00_1185 = BgL_cdrzd2257zd2_102; 
BgL_bodyz00_66 = BgL_bodyz00_1185; 
BgL_bindingsz00_65 = BgL_bindingsz00_1184; 
goto BgL_tagzd2144zd2_67;} }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} } } }  else 
{ /* ./Expand/let.scm 68 */
obj_t BgL_carzd2273zd2_106;obj_t BgL_cdrzd2274zd2_107;
BgL_carzd2273zd2_106 = 
CAR(BgL_cdrzd2152zd2_71); 
BgL_cdrzd2274zd2_107 = 
CDR(BgL_cdrzd2152zd2_71); 
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1187z00_108;
BgL_test1187z00_108 = 
PAIRP(BgL_carzd2273zd2_106); 
if(BgL_test1187z00_108)
{ /* ./Expand/let.scm 68 */
bool_t BgL_test1188z00_109;
BgL_test1188z00_109 = 
NULLP(BgL_cdrzd2274zd2_107); 
if(BgL_test1188z00_109)
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;}  else 
{ 
obj_t BgL_bodyz00_1193;obj_t BgL_bindingsz00_1192;
BgL_bindingsz00_1192 = BgL_carzd2273zd2_106; 
BgL_bodyz00_1193 = BgL_cdrzd2274zd2_107; 
BgL_bodyz00_66 = BgL_bodyz00_1193; 
BgL_bindingsz00_65 = BgL_bindingsz00_1192; 
goto BgL_tagzd2144zd2_67;} }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} } } } } } }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} } }  else 
{ /* ./Expand/let.scm 68 */
goto BgL_tagzd2145zd2_68;} } } 
{ /* ./Expand/let.scm 68 */

BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BgL_oldzd2internalzd2_56; 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_3, BgL_resz00_58);} } } } } 
}



/* _expand-let1999 */
obj_t BGl__expandzd2let1999zd2zzexpand_letz00(obj_t BgL_envz00_872, obj_t BgL_xz00_873, obj_t BgL_ez00_874)
{ AN_OBJECT;
{ /* ./Expand/let.scm 64 */
return 
BGl_expandzd2letzd2zzexpand_letz00(BgL_xz00_873, BgL_ez00_874);} 
}



/* <anonymous:1433> */
obj_t BGl_zc3anonymousza31433ze3z83zzexpand_letz00(obj_t BgL_envz00_875)
{ AN_OBJECT;
{ /* ./Expand/let.scm 131 */
{ /* ./Expand/let.scm 134 */
obj_t BgL_bodyz00_876;obj_t BgL_ez00_877;
{ /* ./Expand/let.scm 134 */
int BgL_auxz00_1196;
BgL_auxz00_1196 = 
(int)(((long)0)); 
BgL_bodyz00_876 = 
PROCEDURE_REF(BgL_envz00_875, BgL_auxz00_1196); } 
{ /* ./Expand/let.scm 134 */
int BgL_auxz00_1199;
BgL_auxz00_1199 = 
(int)(((long)1)); 
BgL_ez00_877 = 
PROCEDURE_REF(BgL_envz00_875, BgL_auxz00_1199); } 
{ 

{ /* ./Expand/let.scm 134 */
obj_t BgL_nbodyz00_214;
BgL_nbodyz00_214 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_876); 
{ /* ./Expand/let.scm 137 */
obj_t BgL_bodyz00_215;
BgL_bodyz00_215 = 
PROCEDURE_ENTRY(BgL_ez00_877)(BgL_ez00_877, BgL_nbodyz00_214, BgL_ez00_877, BEOA); 
return BgL_bodyz00_215;} } } } } 
}



/* expand-letrec */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letreczd2zzexpand_letz00(obj_t BgL_xz00_5, obj_t BgL_ez00_6)
{ AN_OBJECT;
{ /* ./Expand/let.scm 147 */
{ /* ./Expand/let.scm 148 */
obj_t BgL_oldzd2internalzd2_217;
BgL_oldzd2internalzd2_217 = BGl_internalzd2definitionzf3z21zzexpand_lambdaz00; 
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
{ /* ./Expand/let.scm 150 */
obj_t BgL_ez00_218;
BgL_ez00_218 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_6); 
{ /* ./Expand/let.scm 150 */
obj_t BgL_resz00_219;
{ 
obj_t BgL_bindingsz00_222;obj_t BgL_bodyz00_223;
{ /* ./Expand/let.scm 151 */
bool_t BgL_test1439z00_227;
BgL_test1439z00_227 = 
PAIRP(BgL_xz00_5); 
if(BgL_test1439z00_227)
{ /* ./Expand/let.scm 151 */
obj_t BgL_cdrzd2308zd2_228;
BgL_cdrzd2308zd2_228 = 
CDR(BgL_xz00_5); 
{ /* ./Expand/let.scm 151 */
bool_t BgL_test1440z00_229;
BgL_test1440z00_229 = 
PAIRP(BgL_cdrzd2308zd2_228); 
if(BgL_test1440z00_229)
{ /* ./Expand/let.scm 151 */
obj_t BgL_cdrzd2311zd2_230;
BgL_cdrzd2311zd2_230 = 
CDR(BgL_cdrzd2308zd2_228); 
{ /* ./Expand/let.scm 151 */
bool_t BgL_test1441z00_231;
{ /* ./Expand/let.scm 151 */
obj_t BgL_auxz00_1212;
BgL_auxz00_1212 = 
CAR(BgL_cdrzd2308zd2_228); 
BgL_test1441z00_231 = 
NULLP(BgL_auxz00_1212); } 
if(BgL_test1441z00_231)
{ /* ./Expand/let.scm 151 */
bool_t BgL_test1442z00_232;
BgL_test1442z00_232 = 
NULLP(BgL_cdrzd2311zd2_230); 
if(BgL_test1442z00_232)
{ /* ./Expand/let.scm 151 */
BgL_tagzd2302zd2_225:
FAILURE(BFALSE,BGl_string2095z00zzexpand_letz00,BgL_xz00_5);}  else 
{ /* ./Expand/let.scm 151 */
{ /* ./Expand/let.scm 151 */
obj_t BgL_objz00_671;
BgL_objz00_671 = 
CNST_TABLE_REF(((long)0)); 
SET_CAR(BgL_xz00_5, BgL_objz00_671); } 
BgL_resz00_219 = 
PROCEDURE_ENTRY(BgL_ez00_218)(BgL_ez00_218, BgL_xz00_5, BgL_ez00_218, BEOA); } }  else 
{ /* ./Expand/let.scm 151 */
obj_t BgL_carzd2326zd2_234;obj_t BgL_cdrzd2327zd2_235;
BgL_carzd2326zd2_234 = 
CAR(BgL_cdrzd2308zd2_228); 
BgL_cdrzd2327zd2_235 = 
CDR(BgL_cdrzd2308zd2_228); 
{ /* ./Expand/let.scm 151 */
bool_t BgL_test1446z00_236;
BgL_test1446z00_236 = 
PAIRP(BgL_carzd2326zd2_234); 
if(BgL_test1446z00_236)
{ /* ./Expand/let.scm 151 */
bool_t BgL_test1447z00_237;
BgL_test1447z00_237 = 
NULLP(BgL_cdrzd2327zd2_235); 
if(BgL_test1447z00_237)
{ /* ./Expand/let.scm 151 */
goto BgL_tagzd2302zd2_225;}  else 
{ /* ./Expand/let.scm 151 */
BgL_bindingsz00_222 = BgL_carzd2326zd2_234; 
BgL_bodyz00_223 = BgL_cdrzd2327zd2_235; 
{ /* ./Expand/let.scm 157 */
obj_t BgL_arg1470z00_239;obj_t BgL_arg1471z00_240;obj_t BgL_arg1474z00_241;
{ /* ./Expand/let.scm 157 */
bool_t BgL_test1478z00_244;
BgL_test1478z00_244 = 
NULLP(BgL_bindingsz00_222); 
if(BgL_test1478z00_244)
{ /* ./Expand/let.scm 157 */
BgL_arg1470z00_239 = BNIL; }  else 
{ /* ./Expand/let.scm 157 */
obj_t BgL_head1020z00_245;
BgL_head1020z00_245 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1018z00_246;obj_t BgL_tail1021z00_247;
BgL_l1018z00_246 = BgL_bindingsz00_222; 
BgL_tail1021z00_247 = BgL_head1020z00_245; 
BgL_map1019z00_248:
{ /* ./Expand/let.scm 157 */
bool_t BgL_test1480z00_249;
BgL_test1480z00_249 = 
NULLP(BgL_l1018z00_246); 
if(BgL_test1480z00_249)
{ /* ./Expand/let.scm 157 */
BgL_arg1470z00_239 = 
CDR(BgL_head1020z00_245); }  else 
{ /* ./Expand/let.scm 157 */
obj_t BgL_newtail1022z00_250;
{ /* ./Expand/let.scm 157 */
obj_t BgL_arg1488z00_252;
{ /* ./Expand/let.scm 157 */
obj_t BgL_vz00_254;
BgL_vz00_254 = 
CAR(BgL_l1018z00_246); 
if(
PAIRP(BgL_vz00_254))
{ /* ./Expand/let.scm 157 */
BgL_arg1488z00_252 = 
CAR(BgL_vz00_254); }  else 
{ /* ./Expand/let.scm 157 */
BgL_arg1488z00_252 = BgL_vz00_254; } } 
BgL_newtail1022z00_250 = 
MAKE_PAIR(BgL_arg1488z00_252, BNIL); } 
SET_CDR(BgL_tail1021z00_247, BgL_newtail1022z00_250); 
{ /* ./Expand/let.scm 157 */
obj_t BgL_arg1484z00_251;
BgL_arg1484z00_251 = 
CDR(BgL_l1018z00_246); 
{ 
obj_t BgL_tail1021z00_1243;obj_t BgL_l1018z00_1242;
BgL_l1018z00_1242 = BgL_arg1484z00_251; 
BgL_tail1021z00_1243 = BgL_newtail1022z00_250; 
BgL_tail1021z00_247 = BgL_tail1021z00_1243; 
BgL_l1018z00_246 = BgL_l1018z00_1242; 
goto BgL_map1019z00_248;} } } } } } } 
BgL_arg1471z00_240 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1474z00_241 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_5); 
{ /* ./Expand/let.scm 161 */
obj_t BgL_zc3anonymousza31500ze3z83_878;
{ 
int BgL_auxz00_1248;int BgL_auxz00_1246;
BgL_auxz00_1248 = 
(int)(((long)4)); 
BgL_auxz00_1246 = 
(int)(((long)0)); 
BgL_zc3anonymousza31500ze3z83_878 = 
make_fx_procedure(BGl_zc3anonymousza31500ze3z83zzexpand_letz00, BgL_auxz00_1246, BgL_auxz00_1248); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1251;
BgL_auxz00_1251 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_878, BgL_auxz00_1251, BgL_ez00_218); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1254;
BgL_auxz00_1254 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_878, BgL_auxz00_1254, BgL_xz00_5); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1257;
BgL_auxz00_1257 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_878, BgL_auxz00_1257, BgL_bindingsz00_222); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1260;
BgL_auxz00_1260 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_878, BgL_auxz00_1260, BgL_bodyz00_223); } 
BgL_resz00_219 = 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg1470z00_239, BgL_arg1471z00_240, BgL_arg1474z00_241, BgL_zc3anonymousza31500ze3z83_878); } } } }  else 
{ /* ./Expand/let.scm 151 */
goto BgL_tagzd2302zd2_225;} } } } }  else 
{ /* ./Expand/let.scm 151 */
goto BgL_tagzd2302zd2_225;} } }  else 
{ /* ./Expand/let.scm 151 */
goto BgL_tagzd2302zd2_225;} } } 
{ /* ./Expand/let.scm 151 */

BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BgL_oldzd2internalzd2_217; 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_5, BgL_resz00_219);} } } } } 
}



/* _expand-letrec2003 */
obj_t BGl__expandzd2letrec2003zd2zzexpand_letz00(obj_t BgL_envz00_879, obj_t BgL_xz00_880, obj_t BgL_ez00_881)
{ AN_OBJECT;
{ /* ./Expand/let.scm 147 */
return 
BGl_expandzd2letreczd2zzexpand_letz00(BgL_xz00_880, BgL_ez00_881);} 
}



/* <anonymous:1500> */
obj_t BGl_zc3anonymousza31500ze3z83zzexpand_letz00(obj_t BgL_envz00_882)
{ AN_OBJECT;
{ /* ./Expand/let.scm 160 */
{ /* ./Expand/let.scm 161 */
obj_t BgL_ez00_883;obj_t BgL_xz00_884;obj_t BgL_bindingsz00_885;obj_t BgL_bodyz00_886;
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1266;
BgL_auxz00_1266 = 
(int)(((long)0)); 
BgL_ez00_883 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1266); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1269;
BgL_auxz00_1269 = 
(int)(((long)1)); 
BgL_xz00_884 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1269); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1272;
BgL_auxz00_1272 = 
(int)(((long)2)); 
BgL_bindingsz00_885 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1272); } 
{ /* ./Expand/let.scm 161 */
int BgL_auxz00_1275;
BgL_auxz00_1275 = 
(int)(((long)3)); 
BgL_bodyz00_886 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1275); } 
{ 

{ /* ./Expand/let.scm 161 */
obj_t BgL_arg1503z00_257;obj_t BgL_arg1504z00_258;
BgL_arg1503z00_257 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/let.scm 161 */
obj_t BgL_arg1507z00_259;obj_t BgL_arg1508z00_260;
{ 
obj_t BgL_bindingsz00_261;obj_t BgL_accz00_262;
BgL_bindingsz00_261 = BgL_bindingsz00_885; 
BgL_accz00_262 = BNIL; 
BgL_loopz00_263:
{ /* ./Expand/let.scm 163 */
bool_t BgL_test1511z00_264;
BgL_test1511z00_264 = 
NULLP(BgL_bindingsz00_261); 
if(BgL_test1511z00_264)
{ /* ./Expand/let.scm 163 */
BgL_arg1507z00_259 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_accz00_262); }  else 
{ /* ./Expand/let.scm 165 */
obj_t BgL_prz00_265;
BgL_prz00_265 = 
CAR(BgL_bindingsz00_261); 
{ /* ./Expand/let.scm 166 */
bool_t BgL_test1513z00_266;
if(
PAIRP(BgL_prz00_265))
{ /* ./Expand/let.scm 167 */
bool_t BgL_testz00_1285;
{ /* ./Expand/let.scm 167 */
obj_t BgL_auxz00_1286;
BgL_auxz00_1286 = 
CDR(BgL_prz00_265); 
BgL_testz00_1285 = 
PAIRP(BgL_auxz00_1286); } 
if(BgL_testz00_1285)
{ /* ./Expand/let.scm 167 */
BgL_test1513z00_266 = ((bool_t)0); }  else 
{ /* ./Expand/let.scm 167 */
BgL_test1513z00_266 = ((bool_t)1); } }  else 
{ /* ./Expand/let.scm 166 */
BgL_test1513z00_266 = ((bool_t)1); } 
if(BgL_test1513z00_266)
{ /* ./Expand/let.scm 166 */
FAILURE(BFALSE,BGl_string2095z00zzexpand_letz00,BgL_xz00_884);}  else 
{ /* ./Expand/let.scm 172 */
obj_t BgL_nbz00_267;
{ /* ./Expand/let.scm 173 */
obj_t BgL_arg1526z00_270;obj_t BgL_arg1527z00_271;
BgL_arg1526z00_270 = 
CAR(BgL_prz00_265); 
{ /* ./Expand/let.scm 175 */
obj_t BgL_arg1537z00_274;
{ /* ./Expand/let.scm 175 */
obj_t BgL_arg1540z00_275;
BgL_arg1540z00_275 = 
CDR(BgL_prz00_265); 
BgL_arg1537z00_274 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_arg1540z00_275); } 
BgL_arg1527z00_271 = 
PROCEDURE_ENTRY(BgL_ez00_883)(BgL_ez00_883, BgL_arg1537z00_274, BgL_ez00_883, BEOA); } 
{ /* ./Expand/let.scm 172 */
obj_t BgL_list1529z00_272;
{ /* ./Expand/let.scm 172 */
obj_t BgL_arg1531z00_273;
BgL_arg1531z00_273 = 
MAKE_PAIR(BgL_arg1527z00_271, BNIL); 
BgL_list1529z00_272 = 
MAKE_PAIR(BgL_arg1526z00_270, BgL_arg1531z00_273); } 
BgL_nbz00_267 = BgL_list1529z00_272; } } 
BGl_replacez12z12zztools_miscz00(BgL_prz00_265, BgL_nbz00_267); 
{ /* ./Expand/let.scm 179 */
obj_t BgL_arg1518z00_268;obj_t BgL_arg1520z00_269;
BgL_arg1518z00_268 = 
CDR(BgL_bindingsz00_261); 
BgL_arg1520z00_269 = 
MAKE_PAIR(BgL_prz00_265, BgL_accz00_262); 
{ 
obj_t BgL_accz00_1302;obj_t BgL_bindingsz00_1301;
BgL_bindingsz00_1301 = BgL_arg1518z00_268; 
BgL_accz00_1302 = BgL_arg1520z00_269; 
BgL_accz00_262 = BgL_accz00_1302; 
BgL_bindingsz00_261 = BgL_bindingsz00_1301; 
goto BgL_loopz00_263;} } } } } } } 
{ /* ./Expand/let.scm 181 */
obj_t BgL_arg1554z00_279;
{ /* ./Expand/let.scm 181 */
obj_t BgL_arg1558z00_281;
BgL_arg1558z00_281 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_886); 
BgL_arg1554z00_279 = 
PROCEDURE_ENTRY(BgL_ez00_883)(BgL_ez00_883, BgL_arg1558z00_281, BgL_ez00_883, BEOA); } 
BgL_arg1508z00_260 = 
MAKE_PAIR(BgL_arg1554z00_279, BNIL); } 
BgL_arg1504z00_258 = 
MAKE_PAIR(BgL_arg1507z00_259, BgL_arg1508z00_260); } 
return 
MAKE_PAIR(BgL_arg1503z00_257, BgL_arg1504z00_258);} } } } 
}



/* expand-labels */
BGL_EXPORTED_DEF obj_t BGl_expandzd2labelszd2zzexpand_letz00(obj_t BgL_xz00_7, obj_t BgL_ez00_8)
{ AN_OBJECT;
{ /* ./Expand/let.scm 190 */
{ /* ./Expand/let.scm 191 */
obj_t BgL_oldzd2internalzd2_283;
BgL_oldzd2internalzd2_283 = BGl_internalzd2definitionzf3z21zzexpand_lambdaz00; 
{ 
obj_t BgL_bindingsz00_306;obj_t BgL_bodyz00_307;
BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BTRUE; 
{ /* ./Expand/let.scm 246 */
obj_t BgL_ez00_285;
BgL_ez00_285 = 
BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(BgL_ez00_8); 
{ /* ./Expand/let.scm 246 */
obj_t BgL_resz00_286;
{ 

{ /* ./Expand/let.scm 247 */
bool_t BgL_test1564z00_294;
BgL_test1564z00_294 = 
PAIRP(BgL_xz00_7); 
if(BgL_test1564z00_294)
{ /* ./Expand/let.scm 247 */
obj_t BgL_cdrzd2526zd2_295;
BgL_cdrzd2526zd2_295 = 
CDR(BgL_xz00_7); 
{ /* ./Expand/let.scm 247 */
bool_t BgL_test1565z00_296;
BgL_test1565z00_296 = 
PAIRP(BgL_cdrzd2526zd2_295); 
if(BgL_test1565z00_296)
{ /* ./Expand/let.scm 247 */
obj_t BgL_cdrzd2529zd2_297;
BgL_cdrzd2529zd2_297 = 
CDR(BgL_cdrzd2526zd2_295); 
{ /* ./Expand/let.scm 247 */
bool_t BgL_test1566z00_298;
{ /* ./Expand/let.scm 247 */
obj_t BgL_auxz00_1316;
BgL_auxz00_1316 = 
CAR(BgL_cdrzd2526zd2_295); 
BgL_test1566z00_298 = 
NULLP(BgL_auxz00_1316); } 
if(BgL_test1566z00_298)
{ /* ./Expand/let.scm 247 */
bool_t BgL_test1567z00_299;
BgL_test1567z00_299 = 
NULLP(BgL_cdrzd2529zd2_297); 
if(BgL_test1567z00_299)
{ /* ./Expand/let.scm 247 */
BgL_tagzd2520zd2_292:
FAILURE(BFALSE,BGl_string2096z00zzexpand_letz00,BgL_xz00_7);}  else 
{ /* ./Expand/let.scm 247 */
{ /* ./Expand/let.scm 247 */
obj_t BgL_objz00_717;
BgL_objz00_717 = 
CNST_TABLE_REF(((long)0)); 
SET_CAR(BgL_xz00_7, BgL_objz00_717); } 
BgL_resz00_286 = 
PROCEDURE_ENTRY(BgL_ez00_285)(BgL_ez00_285, BgL_xz00_7, BgL_ez00_285, BEOA); } }  else 
{ /* ./Expand/let.scm 247 */
obj_t BgL_carzd2544zd2_301;obj_t BgL_cdrzd2545zd2_302;
BgL_carzd2544zd2_301 = 
CAR(BgL_cdrzd2526zd2_295); 
BgL_cdrzd2545zd2_302 = 
CDR(BgL_cdrzd2526zd2_295); 
{ /* ./Expand/let.scm 247 */
bool_t BgL_test1571z00_303;
BgL_test1571z00_303 = 
PAIRP(BgL_carzd2544zd2_301); 
if(BgL_test1571z00_303)
{ /* ./Expand/let.scm 247 */
bool_t BgL_test1572z00_304;
BgL_test1572z00_304 = 
NULLP(BgL_cdrzd2545zd2_302); 
if(BgL_test1572z00_304)
{ /* ./Expand/let.scm 247 */
goto BgL_tagzd2520zd2_292;}  else 
{ /* ./Expand/let.scm 247 */
BgL_bindingsz00_306 = BgL_carzd2544zd2_301; 
BgL_bodyz00_307 = BgL_cdrzd2545zd2_302; 
{ /* ./Expand/let.scm 193 */
obj_t BgL_bdgz00_309;
{ /* ./Expand/let.scm 193 */
bool_t BgL_test1716z00_368;
BgL_test1716z00_368 = 
NULLP(BgL_bindingsz00_306); 
if(BgL_test1716z00_368)
{ /* ./Expand/let.scm 193 */
BgL_bdgz00_309 = BNIL; }  else 
{ /* ./Expand/let.scm 193 */
obj_t BgL_head1025z00_369;
BgL_head1025z00_369 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1023z00_370;obj_t BgL_tail1026z00_371;
BgL_l1023z00_370 = BgL_bindingsz00_306; 
BgL_tail1026z00_371 = BgL_head1025z00_369; 
BgL_map1024z00_372:
{ /* ./Expand/let.scm 193 */
bool_t BgL_test1718z00_373;
BgL_test1718z00_373 = 
NULLP(BgL_l1023z00_370); 
if(BgL_test1718z00_373)
{ /* ./Expand/let.scm 193 */
BgL_bdgz00_309 = 
CDR(BgL_head1025z00_369); }  else 
{ /* ./Expand/let.scm 194 */
obj_t BgL_newtail1027z00_374;
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1726z00_376;
{ /* ./Expand/let.scm 194 */
obj_t BgL_bz00_378;
BgL_bz00_378 = 
CAR(BgL_l1023z00_370); 
{ 

{ /* ./Expand/let.scm 194 */
bool_t BgL_test1729z00_389;
BgL_test1729z00_389 = 
PAIRP(BgL_bz00_378); 
if(BgL_test1729z00_389)
{ /* ./Expand/let.scm 194 */
obj_t BgL_cdrzd2354zd2_390;
BgL_cdrzd2354zd2_390 = 
CDR(BgL_bz00_378); 
{ /* ./Expand/let.scm 194 */
obj_t BgL_idz00_391;
BgL_idz00_391 = 
CAR(BgL_bz00_378); 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1730z00_392;
BgL_test1730z00_392 = 
PAIRP(BgL_cdrzd2354zd2_390); 
if(BgL_test1730z00_392)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1731z00_393;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1346;
BgL_auxz00_1346 = 
CAR(BgL_cdrzd2354zd2_390); 
BgL_test1731z00_393 = 
NULLP(BgL_auxz00_1346); } 
if(BgL_test1731z00_393)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_391; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1733z00_395;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1350;
BgL_auxz00_1350 = 
CAR(BgL_cdrzd2354zd2_390); 
BgL_test1733z00_395 = 
SYMBOLP(BgL_auxz00_1350); } 
if(BgL_test1733z00_395)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_391; }  else 
{ /* ./Expand/let.scm 194 */
obj_t BgL_idz00_396;
BgL_idz00_396 = 
CAR(BgL_bz00_378); 
{ 
obj_t BgL_gzd2381zd2_451;obj_t BgL_gzd2376zd2_401;
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1736z00_399;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1355;
BgL_auxz00_1355 = 
CDR(BgL_bz00_378); 
BgL_arg1736z00_399 = 
CAR(BgL_auxz00_1355); } 
BgL_gzd2376zd2_401 = BgL_arg1736z00_399; 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1745z00_403;
BgL_test1745z00_403 = 
PAIRP(BgL_gzd2376zd2_401); 
if(BgL_test1745z00_403)
{ /* ./Expand/let.scm 194 */
obj_t BgL_carzd2378zd2_404;
BgL_carzd2378zd2_404 = 
CAR(BgL_gzd2376zd2_401); 
{ 

{ /* ./Expand/let.scm 194 */
bool_t BgL_test1746z00_406;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1361;
BgL_auxz00_1361 = 
BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(BgL_carzd2378zd2_404); 
BgL_test1746z00_406 = 
CBOOL(BgL_auxz00_1361); } 
if(BgL_test1746z00_406)
{ /* ./Expand/let.scm 194 */
BgL_kapzd2380zd2_405:
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1798z00_429;
BgL_arg1798z00_429 = 
CDR(BgL_gzd2376zd2_401); 
BgL_gzd2381zd2_451 = BgL_arg1798z00_429; 
BgL_zc3anonymousza31850ze3z83_452:
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1851z00_453;
BgL_test1851z00_453 = 
NULLP(BgL_gzd2381zd2_451); 
if(BgL_test1851z00_453)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_396; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1853z00_454;
BgL_test1853z00_454 = 
PAIRP(BgL_gzd2381zd2_451); 
if(BgL_test1853z00_454)
{ /* ./Expand/let.scm 194 */
obj_t BgL_carzd2383zd2_455;
BgL_carzd2383zd2_455 = 
CAR(BgL_gzd2381zd2_451); 
{ 

{ /* ./Expand/let.scm 194 */
bool_t BgL_test1855z00_457;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1371;
BgL_auxz00_1371 = 
BGl_dssslzd2namedzd2constantzf3zf3zztools_dssslz00(BgL_carzd2383zd2_455); 
BgL_test1855z00_457 = 
CBOOL(BgL_auxz00_1371); } 
if(BgL_test1855z00_457)
{ /* ./Expand/let.scm 194 */
BgL_kapzd2385zd2_456:
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1906z00_480;
BgL_arg1906z00_480 = 
CDR(BgL_gzd2381zd2_451); 
{ 
obj_t BgL_gzd2381zd2_1376;
BgL_gzd2381zd2_1376 = BgL_arg1906z00_480; 
BgL_gzd2381zd2_451 = BgL_gzd2381zd2_1376; 
goto BgL_zc3anonymousza31850ze3z83_452;} } }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1857z00_458;
BgL_test1857z00_458 = 
SYMBOLP(BgL_carzd2383zd2_455); 
if(BgL_test1857z00_458)
{ /* ./Expand/let.scm 194 */
goto BgL_kapzd2385zd2_456;}  else 
{ /* ./Expand/let.scm 194 */
obj_t BgL_idz00_459;
BgL_idz00_459 = 
CAR(BgL_bz00_378); 
{ 
obj_t BgL_gzd2399zd2_471;obj_t BgL_gzd2395zd2_464;
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1862z00_462;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1380;
BgL_auxz00_1380 = 
CDR(BgL_bz00_378); 
BgL_arg1862z00_462 = 
CAR(BgL_auxz00_1380); } 
BgL_gzd2395zd2_464 = BgL_arg1862z00_462; 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1869z00_466;
BgL_test1869z00_466 = 
SYMBOLP(BgL_gzd2395zd2_464); 
if(BgL_test1869z00_466)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_459; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1871z00_467;
BgL_test1871z00_467 = 
PAIRP(BgL_gzd2395zd2_464); 
if(BgL_test1871z00_467)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1872z00_468;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1387;
BgL_auxz00_1387 = 
CAR(BgL_gzd2395zd2_464); 
BgL_test1872z00_468 = 
SYMBOLP(BgL_auxz00_1387); } 
if(BgL_test1872z00_468)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1874z00_469;
BgL_arg1874z00_469 = 
CDR(BgL_gzd2395zd2_464); 
BgL_gzd2399zd2_471 = BgL_arg1874z00_469; 
BgL_zc3anonymousza31885ze3z83_472:
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1886z00_473;
BgL_test1886z00_473 = 
SYMBOLP(BgL_gzd2399zd2_471); 
if(BgL_test1886z00_473)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_459; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1888z00_474;
BgL_test1888z00_474 = 
PAIRP(BgL_gzd2399zd2_471); 
if(BgL_test1888z00_474)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1889z00_475;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1396;
BgL_auxz00_1396 = 
CAR(BgL_gzd2399zd2_471); 
BgL_test1889z00_475 = 
SYMBOLP(BgL_auxz00_1396); } 
if(BgL_test1889z00_475)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1891z00_476;
BgL_arg1891z00_476 = 
CDR(BgL_gzd2399zd2_471); 
{ 
obj_t BgL_gzd2399zd2_1401;
BgL_gzd2399zd2_1401 = BgL_arg1891z00_476; 
BgL_gzd2399zd2_471 = BgL_gzd2399zd2_1401; 
goto BgL_zc3anonymousza31885ze3z83_472;} }  else 
{ /* ./Expand/let.scm 194 */
BgL_tagzd2345zd2_387:
FAILURE(BFALSE,BGl_string2096z00zzexpand_letz00,BgL_xz00_7);} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } } } } } } } }  else 
{ /* ./Expand/let.scm 194 */
obj_t BgL_idz00_481;
BgL_idz00_481 = 
CAR(BgL_bz00_378); 
{ 
obj_t BgL_gzd2416zd2_493;obj_t BgL_gzd2412zd2_486;
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1911z00_484;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1404;
BgL_auxz00_1404 = 
CDR(BgL_bz00_378); 
BgL_arg1911z00_484 = 
CAR(BgL_auxz00_1404); } 
BgL_gzd2412zd2_486 = BgL_arg1911z00_484; 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1919z00_488;
BgL_test1919z00_488 = 
SYMBOLP(BgL_gzd2412zd2_486); 
if(BgL_test1919z00_488)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_481; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1922z00_489;
BgL_test1922z00_489 = 
PAIRP(BgL_gzd2412zd2_486); 
if(BgL_test1922z00_489)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1923z00_490;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1411;
BgL_auxz00_1411 = 
CAR(BgL_gzd2412zd2_486); 
BgL_test1923z00_490 = 
SYMBOLP(BgL_auxz00_1411); } 
if(BgL_test1923z00_490)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1925z00_491;
BgL_arg1925z00_491 = 
CDR(BgL_gzd2412zd2_486); 
BgL_gzd2416zd2_493 = BgL_arg1925z00_491; 
BgL_zc3anonymousza31936ze3z83_494:
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1937z00_495;
BgL_test1937z00_495 = 
SYMBOLP(BgL_gzd2416zd2_493); 
if(BgL_test1937z00_495)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_481; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1940z00_496;
BgL_test1940z00_496 = 
PAIRP(BgL_gzd2416zd2_493); 
if(BgL_test1940z00_496)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1941z00_497;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1420;
BgL_auxz00_1420 = 
CAR(BgL_gzd2416zd2_493); 
BgL_test1941z00_497 = 
SYMBOLP(BgL_auxz00_1420); } 
if(BgL_test1941z00_497)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1945z00_498;
BgL_arg1945z00_498 = 
CDR(BgL_gzd2416zd2_493); 
{ 
obj_t BgL_gzd2416zd2_1425;
BgL_gzd2416zd2_1425 = BgL_arg1945z00_498; 
BgL_gzd2416zd2_493 = BgL_gzd2416zd2_1425; 
goto BgL_zc3anonymousza31936ze3z83_494;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } } } } } } } }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1748z00_407;
BgL_test1748z00_407 = 
SYMBOLP(BgL_carzd2378zd2_404); 
if(BgL_test1748z00_407)
{ /* ./Expand/let.scm 194 */
goto BgL_kapzd2380zd2_405;}  else 
{ /* ./Expand/let.scm 194 */
obj_t BgL_idz00_408;
BgL_idz00_408 = 
CAR(BgL_bz00_378); 
{ 
obj_t BgL_gzd2433zd2_420;obj_t BgL_gzd2429zd2_413;
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1752z00_411;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1429;
BgL_auxz00_1429 = 
CDR(BgL_bz00_378); 
BgL_arg1752z00_411 = 
CAR(BgL_auxz00_1429); } 
BgL_gzd2429zd2_413 = BgL_arg1752z00_411; 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1759z00_415;
BgL_test1759z00_415 = 
SYMBOLP(BgL_gzd2429zd2_413); 
if(BgL_test1759z00_415)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_408; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1761z00_416;
BgL_test1761z00_416 = 
PAIRP(BgL_gzd2429zd2_413); 
if(BgL_test1761z00_416)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1762z00_417;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1436;
BgL_auxz00_1436 = 
CAR(BgL_gzd2429zd2_413); 
BgL_test1762z00_417 = 
SYMBOLP(BgL_auxz00_1436); } 
if(BgL_test1762z00_417)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1766z00_418;
BgL_arg1766z00_418 = 
CDR(BgL_gzd2429zd2_413); 
BgL_gzd2433zd2_420 = BgL_arg1766z00_418; 
BgL_zc3anonymousza31777ze3z83_421:
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1778z00_422;
BgL_test1778z00_422 = 
SYMBOLP(BgL_gzd2433zd2_420); 
if(BgL_test1778z00_422)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_408; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1780z00_423;
BgL_test1780z00_423 = 
PAIRP(BgL_gzd2433zd2_420); 
if(BgL_test1780z00_423)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1781z00_424;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1445;
BgL_auxz00_1445 = 
CAR(BgL_gzd2433zd2_420); 
BgL_test1781z00_424 = 
SYMBOLP(BgL_auxz00_1445); } 
if(BgL_test1781z00_424)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1783z00_425;
BgL_arg1783z00_425 = 
CDR(BgL_gzd2433zd2_420); 
{ 
obj_t BgL_gzd2433zd2_1450;
BgL_gzd2433zd2_1450 = BgL_arg1783z00_425; 
BgL_gzd2433zd2_420 = BgL_gzd2433zd2_1450; 
goto BgL_zc3anonymousza31777ze3z83_421;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } } } } } } } }  else 
{ /* ./Expand/let.scm 194 */
obj_t BgL_idz00_430;
BgL_idz00_430 = 
CAR(BgL_bz00_378); 
{ 
obj_t BgL_gzd2450zd2_442;obj_t BgL_gzd2446zd2_435;
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1804z00_433;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1452;
BgL_auxz00_1452 = 
CDR(BgL_bz00_378); 
BgL_arg1804z00_433 = 
CAR(BgL_auxz00_1452); } 
BgL_gzd2446zd2_435 = BgL_arg1804z00_433; 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1812z00_437;
BgL_test1812z00_437 = 
SYMBOLP(BgL_gzd2446zd2_435); 
if(BgL_test1812z00_437)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_430; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1814z00_438;
BgL_test1814z00_438 = 
PAIRP(BgL_gzd2446zd2_435); 
if(BgL_test1814z00_438)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1815z00_439;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1459;
BgL_auxz00_1459 = 
CAR(BgL_gzd2446zd2_435); 
BgL_test1815z00_439 = 
SYMBOLP(BgL_auxz00_1459); } 
if(BgL_test1815z00_439)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1817z00_440;
BgL_arg1817z00_440 = 
CDR(BgL_gzd2446zd2_435); 
BgL_gzd2450zd2_442 = BgL_arg1817z00_440; 
BgL_zc3anonymousza31828ze3z83_443:
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1830z00_444;
BgL_test1830z00_444 = 
SYMBOLP(BgL_gzd2450zd2_442); 
if(BgL_test1830z00_444)
{ /* ./Expand/let.scm 194 */
BgL_arg1726z00_376 = BgL_idz00_430; }  else 
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1832z00_445;
BgL_test1832z00_445 = 
PAIRP(BgL_gzd2450zd2_442); 
if(BgL_test1832z00_445)
{ /* ./Expand/let.scm 194 */
bool_t BgL_test1833z00_446;
{ /* ./Expand/let.scm 194 */
obj_t BgL_auxz00_1468;
BgL_auxz00_1468 = 
CAR(BgL_gzd2450zd2_442); 
BgL_test1833z00_446 = 
SYMBOLP(BgL_auxz00_1468); } 
if(BgL_test1833z00_446)
{ /* ./Expand/let.scm 194 */
obj_t BgL_arg1836z00_447;
BgL_arg1836z00_447 = 
CDR(BgL_gzd2450zd2_442); 
{ 
obj_t BgL_gzd2450zd2_1473;
BgL_gzd2450zd2_1473 = BgL_arg1836z00_447; 
BgL_gzd2450zd2_442 = BgL_gzd2450zd2_1473; 
goto BgL_zc3anonymousza31828ze3z83_443;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } } } } } } } } } }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } }  else 
{ /* ./Expand/let.scm 194 */
goto BgL_tagzd2345zd2_387;} } } } 
BgL_newtail1027z00_374 = 
MAKE_PAIR(BgL_arg1726z00_376, BNIL); } 
SET_CDR(BgL_tail1026z00_371, BgL_newtail1027z00_374); 
{ /* ./Expand/let.scm 193 */
obj_t BgL_arg1722z00_375;
BgL_arg1722z00_375 = 
CDR(BgL_l1023z00_370); 
{ 
obj_t BgL_tail1026z00_1478;obj_t BgL_l1023z00_1477;
BgL_l1023z00_1477 = BgL_arg1722z00_375; 
BgL_tail1026z00_1478 = BgL_newtail1027z00_374; 
BgL_tail1026z00_371 = BgL_tail1026z00_1478; 
BgL_l1023z00_370 = BgL_l1023z00_1477; 
goto BgL_map1024z00_372;} } } } } } } 
{ /* ./Expand/let.scm 210 */
obj_t BgL_arg1603z00_310;obj_t BgL_arg1604z00_311;
BgL_arg1603z00_310 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1604z00_311 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_7); 
{ /* ./Expand/let.scm 213 */
obj_t BgL_zc3anonymousza31609ze3z83_891;
{ 
int BgL_auxz00_1483;int BgL_auxz00_1481;
BgL_auxz00_1483 = 
(int)(((long)4)); 
BgL_auxz00_1481 = 
(int)(((long)0)); 
BgL_zc3anonymousza31609ze3z83_891 = 
make_fx_procedure(BGl_zc3anonymousza31609ze3z83zzexpand_letz00, BgL_auxz00_1481, BgL_auxz00_1483); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1486;
BgL_auxz00_1486 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31609ze3z83_891, BgL_auxz00_1486, BgL_xz00_7); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1489;
BgL_auxz00_1489 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31609ze3z83_891, BgL_auxz00_1489, BgL_bindingsz00_306); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1492;
BgL_auxz00_1492 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31609ze3z83_891, BgL_auxz00_1492, BgL_bodyz00_307); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1495;
BgL_auxz00_1495 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31609ze3z83_891, BgL_auxz00_1495, BgL_ez00_8); } 
BgL_resz00_286 = 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_bdgz00_309, BgL_arg1603z00_310, BgL_arg1604z00_311, BgL_zc3anonymousza31609ze3z83_891); } } } } }  else 
{ /* ./Expand/let.scm 247 */
goto BgL_tagzd2520zd2_292;} } } } }  else 
{ /* ./Expand/let.scm 247 */
goto BgL_tagzd2520zd2_292;} } }  else 
{ /* ./Expand/let.scm 247 */
goto BgL_tagzd2520zd2_292;} } } 
{ /* ./Expand/let.scm 247 */

BGl_internalzd2definitionzf3z21zzexpand_lambdaz00 = BgL_oldzd2internalzd2_283; 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_7, BgL_resz00_286);} } } } } } 
}



/* _expand-labels2009 */
obj_t BGl__expandzd2labels2009zd2zzexpand_letz00(obj_t BgL_envz00_892, obj_t BgL_xz00_893, obj_t BgL_ez00_894)
{ AN_OBJECT;
{ /* ./Expand/let.scm 190 */
return 
BGl_expandzd2labelszd2zzexpand_letz00(BgL_xz00_893, BgL_ez00_894);} 
}



/* loop */
obj_t BGl_loopz00zzexpand_letz00(obj_t BgL_xz00_896, obj_t BgL_ez00_895, obj_t BgL_bindingsz00_321)
{ AN_OBJECT;
{ /* ./Expand/let.scm 214 */
{ /* ./Expand/let.scm 216 */
bool_t BgL_test1628z00_323;
BgL_test1628z00_323 = 
NULLP(BgL_bindingsz00_321); 
if(BgL_test1628z00_323)
{ /* ./Expand/let.scm 216 */
return BNIL;}  else 
{ /* ./Expand/let.scm 218 */
bool_t BgL_test1629z00_324;
BgL_test1629z00_324 = 
PAIRP(BgL_bindingsz00_321); 
if(BgL_test1629z00_324)
{ /* ./Expand/let.scm 218 */
{ /* ./Expand/let.scm 221 */
obj_t BgL_ezd2472zd2_333;
BgL_ezd2472zd2_333 = 
CAR(BgL_bindingsz00_321); 
{ /* ./Expand/let.scm 221 */
bool_t BgL_test1630z00_334;
BgL_test1630z00_334 = 
PAIRP(BgL_ezd2472zd2_333); 
if(BgL_test1630z00_334)
{ /* ./Expand/let.scm 221 */
obj_t BgL_cdrzd2479zd2_335;
BgL_cdrzd2479zd2_335 = 
CDR(BgL_ezd2472zd2_333); 
{ /* ./Expand/let.scm 221 */
bool_t BgL_test1631z00_336;
BgL_test1631z00_336 = 
PAIRP(BgL_cdrzd2479zd2_335); 
if(BgL_test1631z00_336)
{ /* ./Expand/let.scm 221 */
bool_t BgL_test1632z00_337;
{ /* ./Expand/let.scm 221 */
obj_t BgL_auxz00_1511;
BgL_auxz00_1511 = 
CDR(BgL_cdrzd2479zd2_335); 
BgL_test1632z00_337 = 
NULLP(BgL_auxz00_1511); } 
if(BgL_test1632z00_337)
{ /* ./Expand/let.scm 221 */
FAILURE(BFALSE,BGl_string2096z00zzexpand_letz00,BgL_xz00_896);}  else 
{ /* ./Expand/let.scm 221 */
obj_t BgL_arg1641z00_341;obj_t BgL_arg1642z00_342;obj_t BgL_arg1643z00_343;
BgL_arg1641z00_341 = 
CAR(BgL_ezd2472zd2_333); 
BgL_arg1642z00_342 = 
CAR(BgL_cdrzd2479zd2_335); 
BgL_arg1643z00_343 = 
CDR(BgL_cdrzd2479zd2_335); 
return 
BGl_TAGzd2470zd2zzexpand_letz00(BgL_bindingsz00_321, BgL_ez00_895, BgL_xz00_896, BgL_arg1641z00_341, BgL_arg1642z00_342, BgL_arg1643z00_343);} }  else 
{ /* ./Expand/let.scm 221 */
return 
BGl_TAGzd2471zd2zzexpand_letz00(BgL_xz00_896);} } }  else 
{ /* ./Expand/let.scm 221 */
return 
BGl_TAGzd2471zd2zzexpand_letz00(BgL_xz00_896);} } } }  else 
{ /* ./Expand/let.scm 218 */
FAILURE(BFALSE,BGl_string2096z00zzexpand_letz00,BgL_xz00_896);} } } } 
}



/* TAG-470 */
obj_t BGl_TAGzd2470zd2zzexpand_letz00(obj_t BgL_bindingsz00_899, obj_t BgL_ez00_898, obj_t BgL_xz00_897, obj_t BgL_namez00_328, obj_t BgL_argsz00_329, obj_t BgL_lbodyz00_330)
{ AN_OBJECT;
{ /* ./Expand/let.scm 221 */
{ /* ./Expand/let.scm 226 */
obj_t BgL_arg1661z00_345;obj_t BgL_arg1662z00_346;obj_t BgL_arg1663z00_347;
BgL_arg1661z00_345 = 
BGl_argsza2zd2ze3argszd2listz41zztools_argsz00(BgL_argsz00_329); 
BgL_arg1662z00_346 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1663z00_347 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_897); 
{ /* ./Expand/let.scm 230 */
obj_t BgL_zc3anonymousza31670ze3z83_887;
{ 
int BgL_auxz00_1528;int BgL_auxz00_1526;
BgL_auxz00_1528 = 
(int)(((long)6)); 
BgL_auxz00_1526 = 
(int)(((long)0)); 
BgL_zc3anonymousza31670ze3z83_887 = 
make_fx_procedure(BGl_zc3anonymousza31670ze3z83zzexpand_letz00, BgL_auxz00_1526, BgL_auxz00_1528); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1531;
BgL_auxz00_1531 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31670ze3z83_887, BgL_auxz00_1531, BgL_xz00_897); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1534;
BgL_auxz00_1534 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31670ze3z83_887, BgL_auxz00_1534, BgL_lbodyz00_330); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1537;
BgL_auxz00_1537 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31670ze3z83_887, BgL_auxz00_1537, BgL_ez00_898); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1540;
BgL_auxz00_1540 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31670ze3z83_887, BgL_auxz00_1540, BgL_argsz00_329); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1543;
BgL_auxz00_1543 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31670ze3z83_887, BgL_auxz00_1543, BgL_namez00_328); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1546;
BgL_auxz00_1546 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza31670ze3z83_887, BgL_auxz00_1546, BgL_bindingsz00_899); } 
return 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_arg1661z00_345, BgL_arg1662z00_346, BgL_arg1663z00_347, BgL_zc3anonymousza31670ze3z83_887);} } } 
}



/* TAG-471 */
obj_t BGl_TAGzd2471zd2zzexpand_letz00(obj_t BgL_xz00_900)
{ AN_OBJECT;
{ /* ./Expand/let.scm 221 */
FAILURE(BFALSE,BGl_string2096z00zzexpand_letz00,BgL_xz00_900);} 
}



/* <anonymous:1609> */
obj_t BGl_zc3anonymousza31609ze3z83zzexpand_letz00(obj_t BgL_envz00_901)
{ AN_OBJECT;
{ /* ./Expand/let.scm 212 */
{ /* ./Expand/let.scm 213 */
obj_t BgL_xz00_902;obj_t BgL_bindingsz00_903;obj_t BgL_bodyz00_904;obj_t BgL_ez00_905;
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1551;
BgL_auxz00_1551 = 
(int)(((long)0)); 
BgL_xz00_902 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1551); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1554;
BgL_auxz00_1554 = 
(int)(((long)1)); 
BgL_bindingsz00_903 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1554); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1557;
BgL_auxz00_1557 = 
(int)(((long)2)); 
BgL_bodyz00_904 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1557); } 
{ /* ./Expand/let.scm 213 */
int BgL_auxz00_1560;
BgL_auxz00_1560 = 
(int)(((long)3)); 
BgL_ez00_905 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1560); } 
{ 

{ /* ./Expand/let.scm 213 */
obj_t BgL_newz00_314;
BgL_newz00_314 = 
BGl_loopz00zzexpand_letz00(BgL_xz00_902, BgL_ez00_905, BgL_bindingsz00_903); 
{ /* ./Expand/let.scm 244 */
obj_t BgL_arg1611z00_315;obj_t BgL_arg1613z00_316;
BgL_arg1611z00_315 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/let.scm 244 */
obj_t BgL_arg1617z00_317;
{ /* ./Expand/let.scm 244 */
obj_t BgL_arg1620z00_318;
{ /* ./Expand/let.scm 244 */
obj_t BgL_arg1624z00_320;
BgL_arg1624z00_320 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_904); 
BgL_arg1620z00_318 = 
PROCEDURE_ENTRY(BgL_ez00_905)(BgL_ez00_905, BgL_arg1624z00_320, BgL_ez00_905, BEOA); } 
BgL_arg1617z00_317 = 
MAKE_PAIR(BgL_arg1620z00_318, BNIL); } 
BgL_arg1613z00_316 = 
MAKE_PAIR(BgL_newz00_314, BgL_arg1617z00_317); } 
return 
MAKE_PAIR(BgL_arg1611z00_315, BgL_arg1613z00_316);} } } } } 
}



/* <anonymous:1670> */
obj_t BGl_zc3anonymousza31670ze3z83zzexpand_letz00(obj_t BgL_envz00_906)
{ AN_OBJECT;
{ /* ./Expand/let.scm 229 */
{ /* ./Expand/let.scm 230 */
obj_t BgL_xz00_907;obj_t BgL_lbodyz00_908;obj_t BgL_ez00_909;obj_t BgL_argsz00_910;obj_t BgL_namez00_911;obj_t BgL_bindingsz00_912;
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1571;
BgL_auxz00_1571 = 
(int)(((long)0)); 
BgL_xz00_907 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1571); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1574;
BgL_auxz00_1574 = 
(int)(((long)1)); 
BgL_lbodyz00_908 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1574); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1577;
BgL_auxz00_1577 = 
(int)(((long)2)); 
BgL_ez00_909 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1577); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1580;
BgL_auxz00_1580 = 
(int)(((long)3)); 
BgL_argsz00_910 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1580); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1583;
BgL_auxz00_1583 = 
(int)(((long)4)); 
BgL_namez00_911 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1583); } 
{ /* ./Expand/let.scm 230 */
int BgL_auxz00_1586;
BgL_auxz00_1586 = 
(int)(((long)5)); 
BgL_bindingsz00_912 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1586); } 
{ 

{ /* ./Expand/let.scm 230 */
obj_t BgL_bz00_350;
{ /* ./Expand/let.scm 232 */
obj_t BgL_arg1699z00_360;
{ /* ./Expand/let.scm 232 */
obj_t BgL_arg1702z00_361;
{ /* ./Expand/let.scm 232 */
obj_t BgL_arg1705z00_362;
{ /* ./Expand/let.scm 232 */
obj_t BgL_arg1709z00_364;
BgL_arg1709z00_364 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_lbodyz00_908); 
BgL_arg1705z00_362 = 
PROCEDURE_ENTRY(BgL_ez00_909)(BgL_ez00_909, BgL_arg1709z00_364, BgL_ez00_909, BEOA); } 
BgL_arg1702z00_361 = 
MAKE_PAIR(BgL_arg1705z00_362, BNIL); } 
BgL_arg1699z00_360 = 
MAKE_PAIR(BgL_argsz00_910, BgL_arg1702z00_361); } 
BgL_bz00_350 = 
MAKE_PAIR(BgL_namez00_911, BgL_arg1699z00_360); } 
{ /* ./Expand/let.scm 230 */

{ /* ./Expand/let.scm 236 */
obj_t BgL_arg1673z00_351;obj_t BgL_arg1674z00_352;
{ /* ./Expand/let.scm 236 */
bool_t BgL_test1676z00_353;
{ /* ./Expand/let.scm 236 */
obj_t BgL_arg1689z00_358;
BgL_arg1689z00_358 = 
CAR(BgL_bindingsz00_912); 
BgL_test1676z00_353 = 
EXTENDED_PAIRP(BgL_arg1689z00_358); } 
if(BgL_test1676z00_353)
{ /* ./Expand/let.scm 237 */
obj_t BgL_arg1678z00_354;obj_t BgL_arg1679z00_355;obj_t BgL_arg1680z00_356;
BgL_arg1678z00_354 = 
CAR(BgL_bz00_350); 
BgL_arg1679z00_355 = 
CDR(BgL_bz00_350); 
{ /* ./Expand/let.scm 239 */
obj_t BgL_auxz00_1600;
BgL_auxz00_1600 = 
CAR(BgL_bindingsz00_912); 
BgL_arg1680z00_356 = 
CER(BgL_auxz00_1600); } 
{ /* ./Expand/let.scm 237 */
obj_t BgL_res1996z00_860;
BgL_res1996z00_860 = 
MAKE_EXTENDED_PAIR(BgL_arg1678z00_354, BgL_arg1679z00_355, BgL_arg1680z00_356); 
BgL_arg1673z00_351 = BgL_res1996z00_860; } }  else 
{ /* ./Expand/let.scm 236 */
BgL_arg1673z00_351 = BgL_bz00_350; } } 
{ /* ./Expand/let.scm 241 */
obj_t BgL_arg1695z00_359;
BgL_arg1695z00_359 = 
CDR(BgL_bindingsz00_912); 
BgL_arg1674z00_352 = 
BGl_loopz00zzexpand_letz00(BgL_xz00_907, BgL_ez00_909, BgL_arg1695z00_359); } 
return 
MAKE_PAIR(BgL_arg1673z00_351, BgL_arg1674z00_352);} } } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_letz00()
{ AN_OBJECT;
{ /* ./Expand/let.scm 15 */
BGl_modulezd2initializa7ationz75zztools_prognz00(((long)55569), "expand_let"); 
BGl_modulezd2initializa7ationz75zztools_argsz00(((long)42726), "expand_let"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_let"); 
BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(((long)7027), "expand_let"); 
BGl_modulezd2initializa7ationz75zzexpand_epsz00(((long)17978), "expand_let"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "expand_let"); 
return 
BGl_modulezd2initializa7ationz75zztools_dssslz00(((long)55629), "expand_let");} 
}

