/*===========================================================================*/
/*   (R5rs/hygiene.scm)                                                      */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c R5rs/hygiene.scm -indent -o objs/obj_u/R5rs/hygiene.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

static obj_t BGl_loopz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t, long);
static obj_t BGl_list2876z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(obj_t);
static obj_t BGl_list2879z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(obj_t);
static obj_t BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_hygienezd2untagzd2letrecz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_hygienezd2untagzd2namedzd2letzd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2890z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2889z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2888z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2887z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2886z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_hygienez00();
static obj_t BGl_symbol2885z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_loopz72z72zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2884z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2883z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2882z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2881z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2880z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl__r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2878z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2877z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2875z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol2874z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl__r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_hygienezd2untagzd2letz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl__r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_hygienezd2untagzd2doz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t, long);
static obj_t BGl_intersectzf3zf3zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31306ze3z83zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
extern obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl__r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_hygienez00();
static obj_t BGl_zc3anonymousza31101ze3z83zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_hygienezd2untagzd2letza2za2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
extern obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_somez00zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31322ze3z83zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_subz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl__r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2macrozd2getzd2bindingszd2envz00zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2macroza7d2getza7d2bindingsza7d2za7za7__r5_macro_4_3_hygieneza7002896za7, BGl__r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2macrozd2expandzd2patternzd2envz00zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2macroza7d2expandza7d2patternza7d2za7za7__r5_macro_4_3_hygieneza7002897za7, BGl__r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2hygienezd2tagzd2envzd2zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2hygieneza7d2tagza700za7za7__r5_macro_4_3_hygieneza7002898z00, BGl__r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_STRING( BGl_string2873z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string2873za700za7za7__r5_macro_4_3_hygieneza7002899z00, "Illegal ellipsis", 16 );
DEFINE_STRING( BGl_string2872z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string2872za700za7za7__r5_macro_4_3_hygieneza7002900z00, "syntax-rules", 12 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2hygienezd2flattenzd2envzd2zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2hygieneza7d2flattenza700za7za7__r5_macro_4_3_hygieneza7002901z00, BGl__r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2hygienezd2untagzd2envzd2zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2hygieneza7d2untagza700za7za7__r5_macro_4_3_hygieneza7002902z00, BGl__r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2macrozd2matcheszd2patternzf3zd2envzf3zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2macroza7d2matchesza7d2patternza7f3za721za7za7__r5_macro_4_3_hygieneza7002903z00, BGl__r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00, 0L, 3 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(long BgL_checksumz00_1874, char * BgL_fromz00_1875)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_hygienez00))
{ 
BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_hygienez00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r5_macro_4_3_hygienez00(); 
BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_hygienez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_hygienez00()
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 18 */
BGl_symbol2874z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("..."); 
BGl_symbol2875z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("quote"); 
BGl_symbol2877z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("if"); 
BGl_symbol2878z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("begin"); 
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_1885;
BgL_auxz00_1885 = 
MAKE_PAIR(BGl_symbol2878z00zz__r5_macro_4_3_hygienez00, BNIL); 
BGl_list2876z00zz__r5_macro_4_3_hygienez00 = 
MAKE_PAIR(BGl_symbol2877z00zz__r5_macro_4_3_hygienez00, BgL_auxz00_1885); } 
BGl_symbol2880z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("set!"); 
BGl_symbol2881z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("define"); 
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_1890;
BgL_auxz00_1890 = 
MAKE_PAIR(BGl_symbol2881z00zz__r5_macro_4_3_hygienez00, BNIL); 
BGl_list2879z00zz__r5_macro_4_3_hygienez00 = 
MAKE_PAIR(BGl_symbol2880z00zz__r5_macro_4_3_hygienez00, BgL_auxz00_1890); } 
BGl_symbol2882z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("lambda"); 
BGl_symbol2883z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("bind-exit"); 
BGl_symbol2884z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("letrec"); 
BGl_symbol2885z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("let"); 
BGl_symbol2886z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("let*"); 
BGl_symbol2887z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("do"); 
BGl_symbol2888z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("case"); 
BGl_symbol2889z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("cond"); 
return ( 
BGl_symbol2890z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("_"), BUNSPEC) ;} 
}



/* r5rs-macro-matches-pattern? */
BGL_EXPORTED_DEF obj_t BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t BgL_pz00_1, obj_t BgL_ez00_2, obj_t BgL_kz00_3)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 49 */
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00:
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 51 */
{ /* ./R5rs/hygiene.scm 52 */
bool_t BgL_testz00_1904;
{ /* ./R5rs/hygiene.scm 52 */
long BgL_auxz00_1905;
BgL_auxz00_1905 = 
bgl_list_length(BgL_pz00_1); 
BgL_testz00_1904 = 
(BgL_auxz00_1905==((long)2)); } 
if(BgL_testz00_1904)
{ /* ./R5rs/hygiene.scm 52 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_ez00_2))
{ /* ./R5rs/hygiene.scm 55 */
obj_t BgL_p0z00_329;
BgL_p0z00_329 = 
CAR(BgL_pz00_1); 
{ /* ./R5rs/hygiene.scm 57 */
obj_t BgL_zc3anonymousza31101ze3z83_1829;
{ 
int BgL_auxz00_1913;int BgL_auxz00_1911;
BgL_auxz00_1913 = 
(int)(((long)2)); 
BgL_auxz00_1911 = 
(int)(((long)1)); 
BgL_zc3anonymousza31101ze3z83_1829 = 
make_fx_procedure(BGl_zc3anonymousza31101ze3z83zz__r5_macro_4_3_hygienez00, BgL_auxz00_1911, BgL_auxz00_1913); } 
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_1916;
BgL_auxz00_1916 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31101ze3z83_1829, BgL_auxz00_1916, BgL_p0z00_329); } 
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_1919;
BgL_auxz00_1919 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31101ze3z83_1829, BgL_auxz00_1919, BgL_kz00_3); } 
{ /* ./R5rs/hygiene.scm 56 */
obj_t BgL_list1099z00_331;
BgL_list1099z00_331 = 
MAKE_PAIR(BgL_ez00_2, BNIL); 
return 
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3anonymousza31101ze3z83_1829, BgL_list1099z00_331);} } }  else 
{ /* ./R5rs/hygiene.scm 55 */
return BFALSE;} }  else 
{ /* ./R5rs/hygiene.scm 52 */
FAILURE(BGl_string2872z00zz__r5_macro_4_3_hygienez00,BGl_string2873z00zz__r5_macro_4_3_hygienez00,BgL_pz00_1);} } }  else 
{ /* ./R5rs/hygiene.scm 51 */
if(
PAIRP(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 59 */
if(
PAIRP(BgL_ez00_2))
{ /* ./R5rs/hygiene.scm 61 */
obj_t BgL__andtest_1005z00_339;
BgL__andtest_1005z00_339 = 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(
CAR(BgL_pz00_1), 
CAR(BgL_ez00_2), BgL_kz00_3); 
if(
CBOOL(BgL__andtest_1005z00_339))
{ 
obj_t BgL_ez00_1936;obj_t BgL_pz00_1934;
BgL_pz00_1934 = 
CDR(BgL_pz00_1); 
BgL_ez00_1936 = 
CDR(BgL_ez00_2); 
BgL_ez00_2 = BgL_ez00_1936; 
BgL_pz00_1 = BgL_pz00_1934; 
goto BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00;}  else 
{ /* ./R5rs/hygiene.scm 61 */
return BFALSE;} }  else 
{ /* ./R5rs/hygiene.scm 60 */
return BFALSE;} }  else 
{ /* ./R5rs/hygiene.scm 59 */
if(
SYMBOLP(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 63 */
{ /* ./R5rs/hygiene.scm 64 */
bool_t BgL_testz00_1940;
{ /* ./R5rs/hygiene.scm 64 */
obj_t BgL_auxz00_1941;
BgL_auxz00_1941 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_1, BgL_kz00_3); 
BgL_testz00_1940 = 
CBOOL(BgL_auxz00_1941); } 
if(BgL_testz00_1940)
{ /* ./R5rs/hygiene.scm 64 */
bool_t BgL_auxz00_1944;
BgL_auxz00_1944 = 
(BgL_pz00_1==BgL_ez00_2); 
return 
BBOOL(BgL_auxz00_1944);}  else 
{ /* ./R5rs/hygiene.scm 64 */
return BTRUE;} } }  else 
{ /* ./R5rs/hygiene.scm 63 */
{ /* ./R5rs/hygiene.scm 66 */
bool_t BgL_auxz00_1947;
BgL_auxz00_1947 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_pz00_1, BgL_ez00_2); 
return 
BBOOL(BgL_auxz00_1947);} } } } } 
}



/* _r5rs-macro-matches-pattern? */
obj_t BGl__r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1830, obj_t BgL_pz00_1831, obj_t BgL_ez00_1832, obj_t BgL_kz00_1833)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 49 */
return 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_pz00_1831, BgL_ez00_1832, BgL_kz00_1833);} 
}



/* <anonymous:1101> */
obj_t BGl_zc3anonymousza31101ze3z83zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1834, obj_t BgL_eiz00_1837)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 56 */
{ /* ./R5rs/hygiene.scm 57 */
obj_t BgL_p0z00_1835;obj_t BgL_kz00_1836;
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_1951;
BgL_auxz00_1951 = 
(int)(((long)0)); 
BgL_p0z00_1835 = 
PROCEDURE_REF(BgL_envz00_1834, BgL_auxz00_1951); } 
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_1954;
BgL_auxz00_1954 = 
(int)(((long)1)); 
BgL_kz00_1836 = 
PROCEDURE_REF(BgL_envz00_1834, BgL_auxz00_1954); } 
{ 
obj_t BgL_eiz00_332;
BgL_eiz00_332 = BgL_eiz00_1837; 
return 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_p0z00_1835, BgL_eiz00_332, BgL_kz00_1836);} } } 
}



/* r5rs-macro-get-bindings */
BGL_EXPORTED_DEF obj_t BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(obj_t BgL_pz00_4, obj_t BgL_ez00_5, obj_t BgL_kz00_6)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 71 */
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_4))
{ /* ./R5rs/hygiene.scm 73 */
{ /* ./R5rs/hygiene.scm 74 */
obj_t BgL_p0z00_347;
BgL_p0z00_347 = 
CAR(BgL_pz00_4); 
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_arg1135z00_348;
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_arg1140z00_350;obj_t BgL_arg1141z00_351;
BgL_arg1140z00_350 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_6, BgL_p0z00_347); 
if(
NULLP(BgL_ez00_5))
{ /* ./R5rs/hygiene.scm 76 */
BgL_arg1141z00_351 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 76 */
obj_t BgL_head1008z00_354;
BgL_head1008z00_354 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1006z00_355;obj_t BgL_tail1009z00_356;
BgL_l1006z00_355 = BgL_ez00_5; 
BgL_tail1009z00_356 = BgL_head1008z00_354; 
BgL_map1007z00_357:
if(
NULLP(BgL_l1006z00_355))
{ /* ./R5rs/hygiene.scm 76 */
BgL_arg1141z00_351 = 
CDR(BgL_head1008z00_354); }  else 
{ /* ./R5rs/hygiene.scm 77 */
obj_t BgL_newtail1010z00_359;
{ /* ./R5rs/hygiene.scm 76 */
obj_t BgL_auxz00_1968;
BgL_auxz00_1968 = 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_p0z00_347, 
CAR(BgL_l1006z00_355), BgL_kz00_6); 
BgL_newtail1010z00_359 = 
MAKE_PAIR(BgL_auxz00_1968, BNIL); } 
SET_CDR(BgL_tail1009z00_356, BgL_newtail1010z00_359); 
{ 
obj_t BgL_tail1009z00_1975;obj_t BgL_l1006z00_1973;
BgL_l1006z00_1973 = 
CDR(BgL_l1006z00_355); 
BgL_tail1009z00_1975 = BgL_newtail1010z00_359; 
BgL_tail1009z00_356 = BgL_tail1009z00_1975; 
BgL_l1006z00_355 = BgL_l1006z00_1973; 
goto BgL_map1007z00_357;} } } } 
BgL_arg1135z00_348 = 
MAKE_PAIR(BgL_arg1140z00_350, BgL_arg1141z00_351); } 
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_list1137z00_349;
BgL_list1137z00_349 = 
MAKE_PAIR(BgL_arg1135z00_348, BNIL); 
return BgL_list1137z00_349;} } } }  else 
{ /* ./R5rs/hygiene.scm 73 */
if(
PAIRP(BgL_pz00_4))
{ /* ./R5rs/hygiene.scm 79 */
return 
bgl_append2(
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(
CAR(BgL_pz00_4), 
CAR(BgL_ez00_5), BgL_kz00_6), 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(
CDR(BgL_pz00_4), 
CDR(BgL_ez00_5), BgL_kz00_6));}  else 
{ /* ./R5rs/hygiene.scm 79 */
if(
SYMBOLP(BgL_pz00_4))
{ /* ./R5rs/hygiene.scm 82 */
{ /* ./R5rs/hygiene.scm 83 */
bool_t BgL_testz00_1989;
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_auxz00_1990;
BgL_auxz00_1990 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_4, BgL_kz00_6); 
BgL_testz00_1989 = 
CBOOL(BgL_auxz00_1990); } 
if(BgL_testz00_1989)
{ /* ./R5rs/hygiene.scm 83 */
return BNIL;}  else 
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_arg1187z00_373;
BgL_arg1187z00_373 = 
MAKE_PAIR(BgL_pz00_4, BgL_ez00_5); 
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_list1189z00_374;
BgL_list1189z00_374 = 
MAKE_PAIR(BgL_arg1187z00_373, BNIL); 
return BgL_list1189z00_374;} } } }  else 
{ /* ./R5rs/hygiene.scm 82 */
return BNIL;} } } } 
}



/* _r5rs-macro-get-bindings */
obj_t BGl__r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1838, obj_t BgL_pz00_1839, obj_t BgL_ez00_1840, obj_t BgL_kz00_1841)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 71 */
return 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_pz00_1839, BgL_ez00_1840, BgL_kz00_1841);} 
}



/* r5rs-macro-expand-pattern */
BGL_EXPORTED_DEF obj_t BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(obj_t BgL_pz00_7, obj_t BgL_rz00_8, obj_t BgL_kz00_9)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 90 */
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 92 */
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_arg1198z00_376;obj_t BgL_arg1199z00_377;
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_p0z00_378;
BgL_p0z00_378 = 
CAR(BgL_pz00_7); 
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_nestingsz00_379;
BgL_nestingsz00_379 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_9, BgL_p0z00_378); 
{ /* ./R5rs/hygiene.scm 94 */
obj_t BgL_rrz00_380;
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_zc3anonymousza31306ze3z83_1842;
{ 
int BgL_auxz00_2000;
BgL_auxz00_2000 = 
(int)(((long)1)); 
BgL_zc3anonymousza31306ze3z83_1842 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza31306ze3z83zz__r5_macro_4_3_hygienez00, BgL_auxz00_2000); } 
{ /* ./R5rs/hygiene.scm 95 */
int BgL_auxz00_2003;
BgL_auxz00_2003 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza31306ze3z83_1842, BgL_auxz00_2003, BgL_nestingsz00_379); } 
BgL_rrz00_380 = 
BGl_somez00zz__r5_macro_4_3_hygienez00(BgL_zc3anonymousza31306ze3z83_1842, BgL_rz00_8); } 
{ /* ./R5rs/hygiene.scm 95 */

if(
NULLP(BgL_rrz00_380))
{ /* ./R5rs/hygiene.scm 96 */
BgL_arg1198z00_376 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 96 */
obj_t BgL_head1013z00_383;
BgL_head1013z00_383 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1011z00_384;obj_t BgL_tail1014z00_385;
BgL_l1011z00_384 = BgL_rrz00_380; 
BgL_tail1014z00_385 = BgL_head1013z00_383; 
BgL_map1012z00_386:
if(
NULLP(BgL_l1011z00_384))
{ /* ./R5rs/hygiene.scm 96 */
BgL_arg1198z00_376 = 
CDR(BgL_head1013z00_383); }  else 
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_newtail1015z00_388;
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_arg1211z00_390;
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_riz00_392;
BgL_riz00_392 = 
CAR(BgL_l1011z00_384); 
BgL_arg1211z00_390 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_p0z00_378, 
bgl_append2(BgL_riz00_392, BgL_rz00_8), BgL_kz00_9); } 
BgL_newtail1015z00_388 = 
MAKE_PAIR(BgL_arg1211z00_390, BNIL); } 
SET_CDR(BgL_tail1014z00_385, BgL_newtail1015z00_388); 
{ 
obj_t BgL_tail1014z00_2020;obj_t BgL_l1011z00_2018;
BgL_l1011z00_2018 = 
CDR(BgL_l1011z00_384); 
BgL_tail1014z00_2020 = BgL_newtail1015z00_388; 
BgL_tail1014z00_385 = BgL_tail1014z00_2020; 
BgL_l1011z00_384 = BgL_l1011z00_2018; 
goto BgL_map1012z00_386;} } } } } } } } 
{ /* ./R5rs/hygiene.scm 99 */
obj_t BgL_auxz00_2021;
{ /* ./R5rs/hygiene.scm 99 */
obj_t BgL_auxz00_2022;
BgL_auxz00_2022 = 
CDR(BgL_pz00_7); 
BgL_auxz00_2021 = 
CDR(BgL_auxz00_2022); } 
BgL_arg1199z00_377 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_auxz00_2021, BgL_rz00_8, BgL_kz00_9); } 
return 
bgl_append2(BgL_arg1198z00_376, BgL_arg1199z00_377);} }  else 
{ /* ./R5rs/hygiene.scm 92 */
if(
PAIRP(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 100 */
{ /* ./R5rs/hygiene.scm 101 */
obj_t BgL_auxz00_2032;obj_t BgL_auxz00_2029;
BgL_auxz00_2032 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(
CDR(BgL_pz00_7), BgL_rz00_8, BgL_kz00_9); 
BgL_auxz00_2029 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(
CAR(BgL_pz00_7), BgL_rz00_8, BgL_kz00_9); 
return 
MAKE_PAIR(BgL_auxz00_2029, BgL_auxz00_2032);} }  else 
{ /* ./R5rs/hygiene.scm 100 */
if(
SYMBOLP(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 103 */
{ /* ./R5rs/hygiene.scm 104 */
bool_t BgL_testz00_2038;
{ /* ./R5rs/hygiene.scm 104 */
obj_t BgL_auxz00_2039;
BgL_auxz00_2039 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_7, BgL_kz00_9); 
BgL_testz00_2038 = 
CBOOL(BgL_auxz00_2039); } 
if(BgL_testz00_2038)
{ /* ./R5rs/hygiene.scm 104 */
return BgL_pz00_7;}  else 
{ /* ./R5rs/hygiene.scm 106 */
obj_t BgL_xz00_402;
BgL_xz00_402 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_7, BgL_rz00_8); 
if(
PAIRP(BgL_xz00_402))
{ /* ./R5rs/hygiene.scm 107 */
return 
CDR(BgL_xz00_402);}  else 
{ /* ./R5rs/hygiene.scm 107 */
return BgL_pz00_7;} } } }  else 
{ /* ./R5rs/hygiene.scm 103 */
return BgL_pz00_7;} } } } 
}



/* _r5rs-macro-expand-pattern */
obj_t BGl__r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1843, obj_t BgL_pz00_1844, obj_t BgL_rz00_1845, obj_t BgL_kz00_1846)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 90 */
return 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_pz00_1844, BgL_rz00_1845, BgL_kz00_1846);} 
}



/* <anonymous:1306> */
obj_t BGl_zc3anonymousza31306ze3z83zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1847, obj_t BgL_cz00_1849)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 140 */
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_nestingsz00_1848;
{ /* ./R5rs/hygiene.scm 95 */
int BgL_auxz00_2047;
BgL_auxz00_2047 = 
(int)(((long)0)); 
BgL_nestingsz00_1848 = 
PROCEDURE_L_REF(BgL_envz00_1847, BgL_auxz00_2047); } 
{ 
obj_t BgL_cz00_1115;
BgL_cz00_1115 = BgL_cz00_1849; 
{ /* ./R5rs/hygiene.scm 95 */
bool_t BgL_test1307z00_1118;
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_arg1310z00_1119;
BgL_arg1310z00_1119 = 
CAR(BgL_cz00_1115); 
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_auxz00_2051;
BgL_auxz00_2051 = 
BGl_intersectzf3zf3zz__r5_macro_4_3_hygienez00(BgL_nestingsz00_1848, BgL_arg1310z00_1119); 
BgL_test1307z00_1118 = 
CBOOL(BgL_auxz00_2051); } } 
if(BgL_test1307z00_1118)
{ /* ./R5rs/hygiene.scm 95 */
return 
CDR(BgL_cz00_1115);}  else 
{ /* ./R5rs/hygiene.scm 95 */
return BFALSE;} } } } } 
}



/* sub */
obj_t BGl_subz00zz__r5_macro_4_3_hygienez00(obj_t BgL_kz00_1869, obj_t BgL_pz00_404)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 117 */
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_404))
{ /* ./R5rs/hygiene.scm 119 */
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_auxz00_2061;obj_t BgL_auxz00_2058;
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_auxz00_2062;
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_auxz00_2063;
BgL_auxz00_2063 = 
CDR(BgL_pz00_404); 
BgL_auxz00_2062 = 
CDR(BgL_auxz00_2063); } 
BgL_auxz00_2061 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1869, BgL_auxz00_2062); } 
BgL_auxz00_2058 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1869, 
CAR(BgL_pz00_404)); 
return 
MAKE_PAIR(BgL_auxz00_2058, BgL_auxz00_2061);} }  else 
{ /* ./R5rs/hygiene.scm 119 */
if(
PAIRP(BgL_pz00_404))
{ /* ./R5rs/hygiene.scm 121 */
return 
bgl_append2(
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1869, 
CAR(BgL_pz00_404)), 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1869, 
CDR(BgL_pz00_404)));}  else 
{ /* ./R5rs/hygiene.scm 121 */
if(
SYMBOLP(BgL_pz00_404))
{ /* ./R5rs/hygiene.scm 123 */
{ /* ./R5rs/hygiene.scm 124 */
bool_t BgL_testz00_2077;
{ /* ./R5rs/hygiene.scm 124 */
obj_t BgL_auxz00_2078;
BgL_auxz00_2078 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_404, BgL_kz00_1869); 
BgL_testz00_2077 = 
CBOOL(BgL_auxz00_2078); } 
if(BgL_testz00_2077)
{ /* ./R5rs/hygiene.scm 124 */
return BNIL;}  else 
{ /* ./R5rs/hygiene.scm 124 */
obj_t BgL_list1287z00_418;
BgL_list1287z00_418 = 
MAKE_PAIR(BgL_pz00_404, BNIL); 
return BgL_list1287z00_418;} } }  else 
{ /* ./R5rs/hygiene.scm 123 */
return BNIL;} } } } 
}



/* ellipsis? */
bool_t BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(obj_t BgL_xz00_12)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 131 */
if(
PAIRP(BgL_xz00_12))
{ /* ./R5rs/hygiene.scm 133 */
bool_t BgL_testz00_2084;
{ /* ./R5rs/hygiene.scm 133 */
obj_t BgL_auxz00_2085;
BgL_auxz00_2085 = 
CDR(BgL_xz00_12); 
BgL_testz00_2084 = 
PAIRP(BgL_auxz00_2085); } 
if(BgL_testz00_2084)
{ /* ./R5rs/hygiene.scm 134 */
obj_t BgL_auxz00_2088;
{ /* ./R5rs/hygiene.scm 134 */
obj_t BgL_auxz00_2089;
BgL_auxz00_2089 = 
CDR(BgL_xz00_12); 
BgL_auxz00_2088 = 
CAR(BgL_auxz00_2089); } 
return 
(BgL_auxz00_2088==BGl_symbol2874z00zz__r5_macro_4_3_hygienez00);}  else 
{ /* ./R5rs/hygiene.scm 133 */
return ((bool_t)0);} }  else 
{ /* ./R5rs/hygiene.scm 132 */
return ((bool_t)0);} } 
}



/* intersect? */
obj_t BGl_intersectzf3zf3zz__r5_macro_4_3_hygienez00(obj_t BgL_vz00_15, obj_t BgL_yz00_16)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 145 */
{ /* ./R5rs/hygiene.scm 146 */
bool_t BgL_test1313z00_1197;
if(
SYMBOLP(BgL_vz00_15))
{ /* ./R5rs/hygiene.scm 146 */
BgL_test1313z00_1197 = ((bool_t)1); }  else 
{ /* ./R5rs/hygiene.scm 146 */
BgL_test1313z00_1197 = 
SYMBOLP(BgL_yz00_16); } 
if(BgL_test1313z00_1197)
{ /* ./R5rs/hygiene.scm 146 */
bool_t BgL_auxz00_2097;
BgL_auxz00_2097 = 
(BgL_vz00_15==BgL_yz00_16); 
return 
BBOOL(BgL_auxz00_2097);}  else 
{ 
obj_t BgL_lz00_1206;
BgL_lz00_1206 = BgL_vz00_15; 
BgL_somez00_1205:
if(
NULLP(BgL_lz00_1206))
{ /* ./R5rs/hygiene.scm 146 */
return BFALSE;}  else 
{ /* ./R5rs/hygiene.scm 146 */
obj_t BgL__ortest_1093z00_1208;
{ /* ./R5rs/hygiene.scm 146 */
obj_t BgL_arg2307z00_1209;
BgL_arg2307z00_1209 = 
CAR(BgL_lz00_1206); 
{ /* ./R5rs/hygiene.scm 146 */
obj_t BgL_zc3anonymousza31322ze3z83_1850;
{ 
int BgL_auxz00_2103;
BgL_auxz00_2103 = 
(int)(((long)1)); 
BgL_zc3anonymousza31322ze3z83_1850 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza31322ze3z83zz__r5_macro_4_3_hygienez00, BgL_auxz00_2103); } 
{ /* ./R5rs/hygiene.scm 146 */
int BgL_auxz00_2106;
BgL_auxz00_2106 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza31322ze3z83_1850, BgL_auxz00_2106, BgL_arg2307z00_1209); } 
BgL__ortest_1093z00_1208 = 
BGl_somez00zz__r5_macro_4_3_hygienez00(BgL_zc3anonymousza31322ze3z83_1850, BgL_yz00_16); } } 
if(
CBOOL(BgL__ortest_1093z00_1208))
{ /* ./R5rs/hygiene.scm 146 */
return BgL__ortest_1093z00_1208;}  else 
{ 
obj_t BgL_lz00_2112;
BgL_lz00_2112 = 
CDR(BgL_lz00_1206); 
BgL_lz00_1206 = BgL_lz00_2112; 
goto BgL_somez00_1205;} } } } } 
}



/* <anonymous:1322> */
obj_t BGl_zc3anonymousza31322ze3z83zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1851, obj_t BgL_yjz00_1853)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 148 */
{ /* ./R5rs/hygiene.scm 146 */
obj_t BgL_viz00_1852;
{ /* ./R5rs/hygiene.scm 146 */
int BgL_auxz00_2114;
BgL_auxz00_2114 = 
(int)(((long)0)); 
BgL_viz00_1852 = 
PROCEDURE_L_REF(BgL_envz00_1851, BgL_auxz00_2114); } 
{ 
obj_t BgL_yjz00_1215;
BgL_yjz00_1215 = BgL_yjz00_1853; 
return 
BGl_intersectzf3zf3zz__r5_macro_4_3_hygienez00(BgL_viz00_1852, BgL_yjz00_1215);} } } 
}



/* r5rs-hygiene-flatten */
BGL_EXPORTED_DEF obj_t BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_17)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 153 */
return 
BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(BgL_ez00_17, BNIL);} 
}



/* loop'' */
obj_t BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_1242, obj_t BgL_rz00_1243)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 154 */
BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00:
if(
PAIRP(BgL_ez00_1242))
{ /* ./R5rs/hygiene.scm 154 */
{ 
obj_t BgL_rz00_2123;obj_t BgL_ez00_2121;
BgL_ez00_2121 = 
CAR(BgL_ez00_1242); 
BgL_rz00_2123 = 
BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(
CDR(BgL_ez00_1242), BgL_rz00_1243); 
BgL_rz00_1243 = BgL_rz00_2123; 
BgL_ez00_1242 = BgL_ez00_2121; 
goto BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00;} }  else 
{ /* ./R5rs/hygiene.scm 154 */
if(
NULLP(BgL_ez00_1242))
{ /* ./R5rs/hygiene.scm 154 */
return BgL_rz00_1243;}  else 
{ /* ./R5rs/hygiene.scm 154 */
return 
MAKE_PAIR(BgL_ez00_1242, BgL_rz00_1243);} } } 
}



/* _r5rs-hygiene-flatten */
obj_t BGl__r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1854, obj_t BgL_ez00_1855)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 153 */
return 
BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(BgL_ez00_1855);} 
}



/* r5rs-hygiene-tag */
BGL_EXPORTED_DEF obj_t BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_18, obj_t BgL_kkz00_19, obj_t BgL_alz00_20)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 162 */
{ /* ./R5rs/hygiene.scm 180 */
obj_t BgL_rz00_449;
BgL_rz00_449 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(BgL_ez00_18, BgL_kkz00_19, BgL_alz00_20); 
{ /* ./R5rs/hygiene.scm 181 */
obj_t BgL_val0_1019z00_450;obj_t BgL_val1_1020z00_451;
BgL_val0_1019z00_450 = 
CAR(BgL_rz00_449); 
BgL_val1_1020z00_451 = 
CDR(BgL_rz00_449); 
{ /* ./R5rs/hygiene.scm 181 */
int BgL_auxz00_2133;
BgL_auxz00_2133 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2133); } 
{ /* ./R5rs/hygiene.scm 181 */
int BgL_auxz00_2136;
BgL_auxz00_2136 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2136, BgL_val1_1020z00_451); } 
return BgL_val0_1019z00_450;} } } 
}



/* hygiene-tag-inner */
obj_t BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_452, obj_t BgL_kkz00_453, obj_t BgL_alz00_454)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 179 */
if(
PAIRP(BgL_ez00_452))
{ /* ./R5rs/hygiene.scm 164 */
{ /* ./R5rs/hygiene.scm 165 */
obj_t BgL_azd2tezd2alz00_457;
BgL_azd2tezd2alz00_457 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_ez00_452), BgL_kkz00_453, BgL_alz00_454); 
{ /* ./R5rs/hygiene.scm 165 */
obj_t BgL_dzd2tezd2alz00_458;
BgL_dzd2tezd2alz00_458 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(
CDR(BgL_ez00_452), BgL_kkz00_453, 
CDR(BgL_azd2tezd2alz00_457)); 
{ /* ./R5rs/hygiene.scm 166 */

{ /* ./R5rs/hygiene.scm 167 */
obj_t BgL_arg1352z00_459;obj_t BgL_arg1354z00_460;
{ /* ./R5rs/hygiene.scm 167 */
obj_t BgL_auxz00_2148;obj_t BgL_auxz00_2146;
BgL_auxz00_2148 = 
CAR(BgL_dzd2tezd2alz00_458); 
BgL_auxz00_2146 = 
CAR(BgL_azd2tezd2alz00_457); 
BgL_arg1352z00_459 = 
MAKE_PAIR(BgL_auxz00_2146, BgL_auxz00_2148); } 
BgL_arg1354z00_460 = 
CDR(BgL_dzd2tezd2alz00_458); 
return 
MAKE_PAIR(BgL_arg1352z00_459, BgL_arg1354z00_460);} } } } }  else 
{ /* ./R5rs/hygiene.scm 164 */
if(
VECTORP(BgL_ez00_452))
{ /* ./R5rs/hygiene.scm 169 */
{ /* ./R5rs/hygiene.scm 170 */
obj_t BgL_rz00_467;
BgL_rz00_467 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_452), BgL_kkz00_453, BgL_alz00_454); 
{ /* ./R5rs/hygiene.scm 171 */
obj_t BgL_auxz00_2160;obj_t BgL_auxz00_2157;
BgL_auxz00_2160 = 
CDR(BgL_rz00_467); 
BgL_auxz00_2157 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(
CAR(BgL_rz00_467)); 
return 
MAKE_PAIR(BgL_auxz00_2157, BgL_auxz00_2160);} } }  else 
{ /* ./R5rs/hygiene.scm 169 */
if(
SYMBOLP(BgL_ez00_452))
{ /* ./R5rs/hygiene.scm 172 */
if(
(BgL_ez00_452==BGl_symbol2874z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 173 */
return 
MAKE_PAIR(BGl_symbol2874z00zz__r5_macro_4_3_hygienez00, BgL_alz00_454);}  else 
{ /* ./R5rs/hygiene.scm 174 */
bool_t BgL_testz00_2168;
{ /* ./R5rs/hygiene.scm 174 */
obj_t BgL_auxz00_2169;
BgL_auxz00_2169 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_452, BgL_kkz00_453); 
BgL_testz00_2168 = 
CBOOL(BgL_auxz00_2169); } 
if(BgL_testz00_2168)
{ /* ./R5rs/hygiene.scm 174 */
return 
MAKE_PAIR(BgL_ez00_452, BgL_alz00_454);}  else 
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_testzd2resultzd2_475;
{ 
obj_t BgL_alz00_1308;
BgL_alz00_1308 = BgL_alz00_454; 
BgL_loopz00_1307:
if(
NULLP(BgL_alz00_1308))
{ /* ./R5rs/hygiene.scm 175 */
BgL_testzd2resultzd2_475 = BFALSE; }  else 
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_cz00_1310;
BgL_cz00_1310 = 
CAR(BgL_alz00_1308); 
{ /* ./R5rs/hygiene.scm 175 */
bool_t BgL_testz00_2176;
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_auxz00_2177;
BgL_auxz00_2177 = 
CDR(BgL_cz00_1310); 
BgL_testz00_2176 = 
(BgL_auxz00_2177==BgL_ez00_452); } 
if(BgL_testz00_2176)
{ /* ./R5rs/hygiene.scm 175 */
BgL_testzd2resultzd2_475 = BgL_cz00_1310; }  else 
{ 
obj_t BgL_alz00_2180;
BgL_alz00_2180 = 
CDR(BgL_alz00_1308); 
BgL_alz00_1308 = BgL_alz00_2180; 
goto BgL_loopz00_1307;} } } } 
{ 

if(
CBOOL(BgL_testzd2resultzd2_475))
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_auxz00_2184;
BgL_auxz00_2184 = 
CAR(BgL_testzd2resultzd2_475); 
return 
MAKE_PAIR(BgL_auxz00_2184, BgL_alz00_454);}  else 
{ /* ./R5rs/hygiene.scm 175 */
{ /* ./R5rs/hygiene.scm 177 */
obj_t BgL_tez00_483;
BgL_tez00_483 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
{ /* ./R5rs/hygiene.scm 178 */
obj_t BgL_arg1403z00_484;
{ /* ./R5rs/hygiene.scm 178 */
obj_t BgL_arg1406z00_485;
BgL_arg1406z00_485 = 
MAKE_PAIR(BgL_tez00_483, BgL_ez00_452); 
BgL_arg1403z00_484 = 
MAKE_PAIR(BgL_arg1406z00_485, BgL_alz00_454); } 
return 
MAKE_PAIR(BgL_tez00_483, BgL_arg1403z00_484);} } } } } } }  else 
{ /* ./R5rs/hygiene.scm 172 */
return 
MAKE_PAIR(BgL_ez00_452, BgL_alz00_454);} } } } 
}



/* _r5rs-hygiene-tag */
obj_t BGl__r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1856, obj_t BgL_ez00_1857, obj_t BgL_kkz00_1858, obj_t BgL_alz00_1859)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 162 */
return 
BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(BgL_ez00_1857, BgL_kkz00_1858, BgL_alz00_1859);} 
}



/* r5rs-hygiene-untag */
BGL_EXPORTED_DEF obj_t BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_21, obj_t BgL_alz00_22, obj_t BgL_tmpsz00_23)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 186 */
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 188 */
obj_t BgL_az00_490;
BgL_az00_490 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_ez00_21), BgL_alz00_22, BgL_tmpsz00_23); 
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 189 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2875z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 191 */
return 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(BgL_ez00_21, BgL_alz00_22);}  else 
{ /* ./R5rs/hygiene.scm 191 */
bool_t BgL_testz00_2203;
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_2204;
BgL_auxz00_2204 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_az00_490, BGl_list2876z00zz__r5_macro_4_3_hygienez00); 
BgL_testz00_2203 = 
CBOOL(BgL_auxz00_2204); } 
if(BgL_testz00_2203)
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_arg1422z00_495;
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_arg1425z00_496;
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_l1021z00_498;
BgL_l1021z00_498 = 
CDR(BgL_ez00_21); 
if(
NULLP(BgL_l1021z00_498))
{ /* ./R5rs/hygiene.scm 194 */
BgL_arg1425z00_496 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_head1023z00_500;
BgL_head1023z00_500 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1021z00_501;obj_t BgL_tail1024z00_502;
BgL_l1021z00_501 = BgL_l1021z00_498; 
BgL_tail1024z00_502 = BgL_head1023z00_500; 
BgL_map1022z00_503:
if(
NULLP(BgL_l1021z00_501))
{ /* ./R5rs/hygiene.scm 194 */
BgL_arg1425z00_496 = 
CDR(BgL_head1023z00_500); }  else 
{ /* ./R5rs/hygiene.scm 195 */
obj_t BgL_newtail1025z00_505;
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_auxz00_2214;
BgL_auxz00_2214 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_l1021z00_501), BgL_alz00_22, BgL_tmpsz00_23); 
BgL_newtail1025z00_505 = 
MAKE_PAIR(BgL_auxz00_2214, BNIL); } 
SET_CDR(BgL_tail1024z00_502, BgL_newtail1025z00_505); 
{ 
obj_t BgL_tail1024z00_2221;obj_t BgL_l1021z00_2219;
BgL_l1021z00_2219 = 
CDR(BgL_l1021z00_501); 
BgL_tail1024z00_2221 = BgL_newtail1025z00_505; 
BgL_tail1024z00_502 = BgL_tail1024z00_2221; 
BgL_l1021z00_501 = BgL_l1021z00_2219; 
goto BgL_map1022z00_503;} } } } } 
BgL_arg1422z00_495 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1425z00_496, BNIL); } 
return 
MAKE_PAIR(BgL_az00_490, BgL_arg1422z00_495);}  else 
{ /* ./R5rs/hygiene.scm 191 */
bool_t BgL_testz00_2224;
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_2225;
BgL_auxz00_2225 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_az00_490, BGl_list2879z00zz__r5_macro_4_3_hygienez00); 
BgL_testz00_2224 = 
CBOOL(BgL_auxz00_2225); } 
if(BgL_testz00_2224)
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_arg1449z00_511;
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_arg1452z00_512;obj_t BgL_arg1453z00_513;
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_auxz00_2228;
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_auxz00_2229;
BgL_auxz00_2229 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2228 = 
CAR(BgL_auxz00_2229); } 
BgL_arg1452z00_512 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_2228, BgL_alz00_22, BgL_tmpsz00_23); } 
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_arg1461z00_515;
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_l1026z00_517;
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_auxz00_2233;
BgL_auxz00_2233 = 
CDR(BgL_ez00_21); 
BgL_l1026z00_517 = 
CDR(BgL_auxz00_2233); } 
if(
NULLP(BgL_l1026z00_517))
{ /* ./R5rs/hygiene.scm 198 */
BgL_arg1461z00_515 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_head1028z00_519;
BgL_head1028z00_519 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1026z00_520;obj_t BgL_tail1029z00_521;
BgL_l1026z00_520 = BgL_l1026z00_517; 
BgL_tail1029z00_521 = BgL_head1028z00_519; 
BgL_map1027z00_522:
if(
NULLP(BgL_l1026z00_520))
{ /* ./R5rs/hygiene.scm 198 */
BgL_arg1461z00_515 = 
CDR(BgL_head1028z00_519); }  else 
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_newtail1030z00_524;
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_auxz00_2242;
BgL_auxz00_2242 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_l1026z00_520), BgL_alz00_22, BgL_tmpsz00_23); 
BgL_newtail1030z00_524 = 
MAKE_PAIR(BgL_auxz00_2242, BNIL); } 
SET_CDR(BgL_tail1029z00_521, BgL_newtail1030z00_524); 
{ 
obj_t BgL_tail1029z00_2249;obj_t BgL_l1026z00_2247;
BgL_l1026z00_2247 = 
CDR(BgL_l1026z00_520); 
BgL_tail1029z00_2249 = BgL_newtail1030z00_524; 
BgL_tail1029z00_521 = BgL_tail1029z00_2249; 
BgL_l1026z00_520 = BgL_l1026z00_2247; 
goto BgL_map1027z00_522;} } } } } 
BgL_arg1453z00_513 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1461z00_515, BNIL); } 
BgL_arg1449z00_511 = 
MAKE_PAIR(BgL_arg1452z00_512, BgL_arg1453z00_513); } 
return 
MAKE_PAIR(BgL_az00_490, BgL_arg1449z00_511);}  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2882z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1485z00_530;obj_t BgL_arg1486z00_531;
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_auxz00_2255;
BgL_auxz00_2255 = 
CDR(BgL_ez00_21); 
BgL_arg1485z00_530 = 
CAR(BgL_auxz00_2255); } 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_auxz00_2258;
BgL_auxz00_2258 = 
CDR(BgL_ez00_21); 
BgL_arg1486z00_531 = 
CDR(BgL_auxz00_2258); } 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_tmps2z00_1370;
BgL_tmps2z00_1370 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(
BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(BgL_arg1485z00_530), BgL_tmpsz00_23); 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1746z00_1372;obj_t BgL_arg1748z00_1373;
BgL_arg1746z00_1372 = BGl_symbol2882z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_auxz00_2263;
BgL_auxz00_2263 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1486z00_531, BgL_alz00_22, BgL_tmps2z00_1370), BNIL); 
BgL_arg1748z00_1373 = 
MAKE_PAIR(BgL_arg1485z00_530, BgL_auxz00_2263); } 
return 
MAKE_PAIR(BgL_arg1746z00_1372, BgL_arg1748z00_1373);} } }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2883z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1492z00_533;obj_t BgL_arg1493z00_534;
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_auxz00_2270;
BgL_auxz00_2270 = 
CDR(BgL_ez00_21); 
BgL_arg1492z00_533 = 
CAR(BgL_auxz00_2270); } 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_auxz00_2273;
BgL_auxz00_2273 = 
CDR(BgL_ez00_21); 
BgL_arg1493z00_534 = 
CDR(BgL_auxz00_2273); } 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_tmps2z00_1389;
BgL_tmps2z00_1389 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(
BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(BgL_arg1492z00_533), BgL_tmpsz00_23); 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1766z00_1391;obj_t BgL_arg1767z00_1392;
BgL_arg1766z00_1391 = BGl_symbol2883z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1771z00_1393;obj_t BgL_arg1772z00_1394;
BgL_arg1771z00_1393 = 
MAKE_PAIR(BgL_arg1492z00_533, BNIL); 
BgL_arg1772z00_1394 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1493z00_534, BgL_alz00_22, BgL_tmps2z00_1389), BNIL); 
BgL_arg1767z00_1392 = 
MAKE_PAIR(BgL_arg1771z00_1393, BgL_arg1772z00_1394); } 
return 
MAKE_PAIR(BgL_arg1766z00_1391, BgL_arg1767z00_1392);} } }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2884z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_auxz00_2289;obj_t BgL_auxz00_2285;
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_auxz00_2290;
BgL_auxz00_2290 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2289 = 
CDR(BgL_auxz00_2290); } 
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_auxz00_2286;
BgL_auxz00_2286 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2285 = 
CAR(BgL_auxz00_2286); } 
return 
BGl_hygienezd2untagzd2letrecz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_2285, BgL_auxz00_2289, BgL_alz00_22, BgL_tmpsz00_23);}  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2885z00zz__r5_macro_4_3_hygienez00))
{ 

if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_cdrzd2112zd2_549;
BgL_cdrzd2112zd2_549 = 
CDR(BgL_ez00_21); 
if(
PAIRP(BgL_cdrzd2112zd2_549))
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_carzd2116zd2_551;obj_t BgL_cdrzd2117zd2_552;
BgL_carzd2116zd2_551 = 
CAR(BgL_cdrzd2112zd2_549); 
BgL_cdrzd2117zd2_552 = 
CDR(BgL_cdrzd2112zd2_549); 
if(
SYMBOLP(BgL_carzd2116zd2_551))
{ /* ./R5rs/hygiene.scm 207 */
if(
PAIRP(BgL_cdrzd2117zd2_552))
{ /* ./R5rs/hygiene.scm 207 */
return 
BGl_hygienezd2untagzd2namedzd2letzd2zz__r5_macro_4_3_hygienez00(BgL_carzd2116zd2_551, 
CAR(BgL_cdrzd2117zd2_552), 
CDR(BgL_cdrzd2117zd2_552), BgL_alz00_22, BgL_tmpsz00_23);}  else 
{ /* ./R5rs/hygiene.scm 207 */
return 
BGl_hygienezd2untagzd2letz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_cdrzd2112zd2_549), 
CDR(BgL_cdrzd2112zd2_549), BgL_alz00_22, BgL_tmpsz00_23);} }  else 
{ /* ./R5rs/hygiene.scm 207 */
return 
BGl_hygienezd2untagzd2letz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_cdrzd2112zd2_549), 
CDR(BgL_cdrzd2112zd2_549), BgL_alz00_22, BgL_tmpsz00_23);} }  else 
{ /* ./R5rs/hygiene.scm 207 */
BgL_tagzd2103zd2_546:
{ /* ./R5rs/hygiene.scm 213 */
obj_t BgL_auxz00_2316;
BgL_auxz00_2316 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(
CDR(BgL_ez00_21), BgL_alz00_22, BgL_tmpsz00_23); 
return 
MAKE_PAIR(BgL_az00_490, BgL_auxz00_2316);} } }  else 
{ /* ./R5rs/hygiene.scm 207 */
goto BgL_tagzd2103zd2_546;} }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2886z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_auxz00_2326;obj_t BgL_auxz00_2322;
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_auxz00_2327;
BgL_auxz00_2327 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2326 = 
CDR(BgL_auxz00_2327); } 
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_auxz00_2323;
BgL_auxz00_2323 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2322 = 
CAR(BgL_auxz00_2323); } 
return 
BGl_hygienezd2untagzd2letza2za2zz__r5_macro_4_3_hygienez00(BgL_auxz00_2322, BgL_auxz00_2326, BgL_alz00_22, BgL_tmpsz00_23);}  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2887z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_auxz00_2343;obj_t BgL_auxz00_2337;obj_t BgL_auxz00_2333;
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_auxz00_2344;
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_auxz00_2345;
BgL_auxz00_2345 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2344 = 
CDR(BgL_auxz00_2345); } 
BgL_auxz00_2343 = 
CDR(BgL_auxz00_2344); } 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_auxz00_2338;
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_auxz00_2339;
BgL_auxz00_2339 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2338 = 
CDR(BgL_auxz00_2339); } 
BgL_auxz00_2337 = 
CAR(BgL_auxz00_2338); } 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_auxz00_2334;
BgL_auxz00_2334 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2333 = 
CAR(BgL_auxz00_2334); } 
return 
BGl_hygienezd2untagzd2doz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_2333, BgL_auxz00_2337, BgL_auxz00_2343, BgL_alz00_22, BgL_tmpsz00_23);}  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2888z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_arg1567z00_573;obj_t BgL_arg1568z00_574;
BgL_arg1567z00_573 = BGl_symbol2888z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_arg1572z00_575;obj_t BgL_arg1573z00_576;
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_auxz00_2352;
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_auxz00_2353;
BgL_auxz00_2353 = 
CDR(BgL_ez00_21); 
BgL_auxz00_2352 = 
CAR(BgL_auxz00_2353); } 
BgL_arg1572z00_575 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_2352, BgL_alz00_22, BgL_tmpsz00_23); } 
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_arg1581z00_578;
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_l1031z00_580;
{ /* ./R5rs/hygiene.scm 224 */
obj_t BgL_auxz00_2357;
BgL_auxz00_2357 = 
CDR(BgL_ez00_21); 
BgL_l1031z00_580 = 
CDR(BgL_auxz00_2357); } 
if(
NULLP(BgL_l1031z00_580))
{ /* ./R5rs/hygiene.scm 220 */
BgL_arg1581z00_578 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_head1033z00_582;
BgL_head1033z00_582 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1031z00_583;obj_t BgL_tail1034z00_584;
BgL_l1031z00_583 = BgL_l1031z00_580; 
BgL_tail1034z00_584 = BgL_head1033z00_582; 
BgL_map1032z00_585:
if(
NULLP(BgL_l1031z00_583))
{ /* ./R5rs/hygiene.scm 220 */
BgL_arg1581z00_578 = 
CDR(BgL_head1033z00_582); }  else 
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_newtail1035z00_587;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_arg1594z00_589;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_cz00_591;
BgL_cz00_591 = 
CAR(BgL_l1031z00_583); 
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_auxz00_2370;obj_t BgL_auxz00_2367;
BgL_auxz00_2370 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(
CDR(BgL_cz00_591), BgL_alz00_22, BgL_tmpsz00_23), BNIL); 
BgL_auxz00_2367 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_cz00_591), BgL_alz00_22, BgL_tmpsz00_23); 
BgL_arg1594z00_589 = 
MAKE_PAIR(BgL_auxz00_2367, BgL_auxz00_2370); } } 
BgL_newtail1035z00_587 = 
MAKE_PAIR(BgL_arg1594z00_589, BNIL); } 
SET_CDR(BgL_tail1034z00_584, BgL_newtail1035z00_587); 
{ 
obj_t BgL_tail1034z00_2379;obj_t BgL_l1031z00_2377;
BgL_l1031z00_2377 = 
CDR(BgL_l1031z00_583); 
BgL_tail1034z00_2379 = BgL_newtail1035z00_587; 
BgL_tail1034z00_584 = BgL_tail1034z00_2379; 
BgL_l1031z00_583 = BgL_l1031z00_2377; 
goto BgL_map1032z00_585;} } } } } 
BgL_arg1573z00_576 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1581z00_578, BNIL); } 
BgL_arg1568z00_574 = 
MAKE_PAIR(BgL_arg1572z00_575, BgL_arg1573z00_576); } 
return 
MAKE_PAIR(BgL_arg1567z00_573, BgL_arg1568z00_574);}  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_490, BGl_symbol2889z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_arg1620z00_599;obj_t BgL_arg1621z00_600;
BgL_arg1620z00_599 = BGl_symbol2889z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_arg1624z00_601;
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_l1036z00_603;
BgL_l1036z00_603 = 
CDR(BgL_ez00_21); 
if(
NULLP(BgL_l1036z00_603))
{ /* ./R5rs/hygiene.scm 226 */
BgL_arg1624z00_601 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_head1038z00_605;
BgL_head1038z00_605 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1036z00_606;obj_t BgL_tail1039z00_607;
BgL_l1036z00_606 = BgL_l1036z00_603; 
BgL_tail1039z00_607 = BgL_head1038z00_605; 
BgL_map1037z00_608:
if(
NULLP(BgL_l1036z00_606))
{ /* ./R5rs/hygiene.scm 226 */
BgL_arg1624z00_601 = 
CDR(BgL_head1038z00_605); }  else 
{ /* ./R5rs/hygiene.scm 228 */
obj_t BgL_newtail1040z00_610;
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_auxz00_2392;
BgL_auxz00_2392 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_l1036z00_606), BgL_alz00_22, BgL_tmpsz00_23); 
BgL_newtail1040z00_610 = 
MAKE_PAIR(BgL_auxz00_2392, BNIL); } 
SET_CDR(BgL_tail1039z00_607, BgL_newtail1040z00_610); 
{ 
obj_t BgL_tail1039z00_2399;obj_t BgL_l1036z00_2397;
BgL_l1036z00_2397 = 
CDR(BgL_l1036z00_606); 
BgL_tail1039z00_2399 = BgL_newtail1040z00_610; 
BgL_tail1039z00_607 = BgL_tail1039z00_2399; 
BgL_l1036z00_606 = BgL_l1036z00_2397; 
goto BgL_map1037z00_608;} } } } } 
BgL_arg1621z00_600 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1624z00_601, BNIL); } 
return 
MAKE_PAIR(BgL_arg1620z00_599, BgL_arg1621z00_600);}  else 
{ /* ./R5rs/hygiene.scm 230 */
obj_t BgL_auxz00_2402;
BgL_auxz00_2402 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(
CDR(BgL_ez00_21), BgL_alz00_22, BgL_tmpsz00_23); 
return 
MAKE_PAIR(BgL_az00_490, BgL_auxz00_2402);} } } } } } } } } } } }  else 
{ /* ./R5rs/hygiene.scm 231 */
obj_t BgL_auxz00_2406;
BgL_auxz00_2406 = 
BGl_loopz72z72zz__r5_macro_4_3_hygienez00(BgL_tmpsz00_23, BgL_alz00_22, 
CDR(BgL_ez00_21)); 
return 
MAKE_PAIR(BgL_az00_490, BgL_auxz00_2406);} }  else 
{ /* ./R5rs/hygiene.scm 187 */
return 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_ez00_21, BgL_alz00_22, BgL_tmpsz00_23);} } 
}



/* loop' */
obj_t BGl_loopz72z72zz__r5_macro_4_3_hygienez00(obj_t BgL_tmpsz00_1868, obj_t BgL_alz00_1867, obj_t BgL_eez00_1491)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 244 */
if(
PAIRP(BgL_eez00_1491))
{ /* ./R5rs/hygiene.scm 231 */
obj_t BgL_auxz00_2416;obj_t BgL_auxz00_2413;
BgL_auxz00_2416 = 
BGl_loopz72z72zz__r5_macro_4_3_hygienez00(BgL_tmpsz00_1868, BgL_alz00_1867, 
CDR(BgL_eez00_1491)); 
BgL_auxz00_2413 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_eez00_1491), BgL_alz00_1867, BgL_tmpsz00_1868); 
return 
MAKE_PAIR(BgL_auxz00_2413, BgL_auxz00_2416);}  else 
{ /* ./R5rs/hygiene.scm 231 */
return 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_eez00_1491, BgL_alz00_1867, BgL_tmpsz00_1868);} } 
}



/* _r5rs-hygiene-untag */
obj_t BGl__r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1860, obj_t BgL_ez00_1861, obj_t BgL_alz00_1862, obj_t BgL_tmpsz00_1863)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 186 */
return 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_ez00_1861, BgL_alz00_1862, BgL_tmpsz00_1863);} 
}



/* hygiene-untag-list */
obj_t BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(obj_t BgL_eez00_24, obj_t BgL_alz00_25, obj_t BgL_tmpsz00_26)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 237 */
if(
NULLP(BgL_eez00_24))
{ /* ./R5rs/hygiene.scm 238 */
return BNIL;}  else 
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_head1043z00_622;
BgL_head1043z00_622 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1041z00_623;obj_t BgL_tail1044z00_624;
BgL_l1041z00_623 = BgL_eez00_24; 
BgL_tail1044z00_624 = BgL_head1043z00_622; 
BgL_map1042z00_625:
if(
NULLP(BgL_l1041z00_623))
{ /* ./R5rs/hygiene.scm 238 */
return 
CDR(BgL_head1043z00_622);}  else 
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_newtail1045z00_627;
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_auxz00_2428;
BgL_auxz00_2428 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_l1041z00_623), BgL_alz00_25, BgL_tmpsz00_26); 
BgL_newtail1045z00_627 = 
MAKE_PAIR(BgL_auxz00_2428, BNIL); } 
SET_CDR(BgL_tail1044z00_624, BgL_newtail1045z00_627); 
{ 
obj_t BgL_tail1044z00_2435;obj_t BgL_l1041z00_2433;
BgL_l1041z00_2433 = 
CDR(BgL_l1041z00_623); 
BgL_tail1044z00_2435 = BgL_newtail1045z00_627; 
BgL_tail1044z00_624 = BgL_tail1044z00_2435; 
BgL_l1041z00_623 = BgL_l1041z00_2433; 
goto BgL_map1042z00_625;} } } } } 
}



/* hygiene-untag-no-tags */
obj_t BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_30, obj_t BgL_alz00_31)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 253 */
if(
PAIRP(BgL_ez00_30))
{ /* ./R5rs/hygiene.scm 254 */
{ /* ./R5rs/hygiene.scm 255 */
obj_t BgL_auxz00_2441;obj_t BgL_auxz00_2438;
BgL_auxz00_2441 = 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(
CDR(BgL_ez00_30), BgL_alz00_31); 
BgL_auxz00_2438 = 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(
CAR(BgL_ez00_30), BgL_alz00_31); 
return 
MAKE_PAIR(BgL_auxz00_2438, BgL_auxz00_2441);} }  else 
{ /* ./R5rs/hygiene.scm 254 */
if(
VECTORP(BgL_ez00_30))
{ /* ./R5rs/hygiene.scm 257 */
return 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_30), BgL_alz00_31));}  else 
{ /* ./R5rs/hygiene.scm 257 */
if(
SYMBOLP(BgL_ez00_30))
{ /* ./R5rs/hygiene.scm 260 */
obj_t BgL_testzd2resultzd2_648;
BgL_testzd2resultzd2_648 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_30, BgL_alz00_31); 
if(
CBOOL(BgL_testzd2resultzd2_648))
{ /* ./R5rs/hygiene.scm 260 */
return 
CDR(BgL_testzd2resultzd2_648);}  else 
{ /* ./R5rs/hygiene.scm 260 */
return BgL_ez00_30;} }  else 
{ /* ./R5rs/hygiene.scm 259 */
return BgL_ez00_30;} } } } 
}



/* hygiene-untag-letrec */
obj_t BGl_hygienezd2untagzd2letrecz00zz__r5_macro_4_3_hygienez00(obj_t BgL_varvalsz00_40, obj_t BgL_bodyz00_41, obj_t BgL_alz00_42, obj_t BgL_tmpsz00_43)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 282 */
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_tmpsz00_671;
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_arg1845z00_705;
if(
NULLP(BgL_varvalsz00_40))
{ /* ./R5rs/hygiene.scm 283 */
BgL_arg1845z00_705 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_head1049z00_708;
BgL_head1049z00_708 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1047z00_709;obj_t BgL_tail1050z00_710;
BgL_l1047z00_709 = BgL_varvalsz00_40; 
BgL_tail1050z00_710 = BgL_head1049z00_708; 
BgL_map1048z00_711:
if(
NULLP(BgL_l1047z00_709))
{ /* ./R5rs/hygiene.scm 283 */
BgL_arg1845z00_705 = 
CDR(BgL_head1049z00_708); }  else 
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_newtail1051z00_713;
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_arg1857z00_715;
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_xz00_717;
BgL_xz00_717 = 
CAR(BgL_l1047z00_709); 
if(
PAIRP(BgL_xz00_717))
{ /* ./R5rs/hygiene.scm 285 */
BgL_arg1857z00_715 = 
CAR(BgL_xz00_717); }  else 
{ /* ./R5rs/hygiene.scm 285 */
if(
SYMBOLP(BgL_xz00_717))
{ /* ./R5rs/hygiene.scm 287 */
BgL_arg1857z00_715 = BgL_xz00_717; }  else 
{ /* ./R5rs/hygiene.scm 287 */
BgL_arg1857z00_715 = BGl_symbol2890z00zz__r5_macro_4_3_hygienez00; } } } 
BgL_newtail1051z00_713 = 
MAKE_PAIR(BgL_arg1857z00_715, BNIL); } 
SET_CDR(BgL_tail1050z00_710, BgL_newtail1051z00_713); 
{ 
obj_t BgL_tail1050z00_2472;obj_t BgL_l1047z00_2470;
BgL_l1047z00_2470 = 
CDR(BgL_l1047z00_709); 
BgL_tail1050z00_2472 = BgL_newtail1051z00_713; 
BgL_tail1050z00_710 = BgL_tail1050z00_2472; 
BgL_l1047z00_709 = BgL_l1047z00_2470; 
goto BgL_map1048z00_711;} } } } 
BgL_tmpsz00_671 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1845z00_705, BgL_tmpsz00_43); } 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_arg1785z00_672;obj_t BgL_arg1786z00_673;
BgL_arg1785z00_672 = BGl_symbol2884z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_arg1789z00_674;obj_t BgL_arg1790z00_675;
if(
NULLP(BgL_varvalsz00_40))
{ /* ./R5rs/hygiene.scm 293 */
BgL_arg1789z00_674 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_head1054z00_678;
BgL_head1054z00_678 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1052z00_679;obj_t BgL_tail1055z00_680;
BgL_l1052z00_679 = BgL_varvalsz00_40; 
BgL_tail1055z00_680 = BgL_head1054z00_678; 
BgL_map1053z00_681:
if(
NULLP(BgL_l1052z00_679))
{ /* ./R5rs/hygiene.scm 293 */
BgL_arg1789z00_674 = 
CDR(BgL_head1054z00_678); }  else 
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_newtail1056z00_683;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1802z00_685;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_varvalz00_687;
BgL_varvalz00_687 = 
CAR(BgL_l1052z00_679); 
if(
PAIRP(BgL_varvalz00_687))
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_cdrzd2172zd2_694;
BgL_cdrzd2172zd2_694 = 
CDR(BgL_varvalz00_687); 
if(
PAIRP(BgL_cdrzd2172zd2_694))
{ /* ./R5rs/hygiene.scm 294 */
bool_t BgL_testz00_2486;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_auxz00_2487;
BgL_auxz00_2487 = 
CDR(BgL_cdrzd2172zd2_694); 
BgL_testz00_2486 = 
NULLP(BgL_auxz00_2487); } 
if(BgL_testz00_2486)
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1810z00_697;obj_t BgL_arg1811z00_698;
BgL_arg1810z00_697 = 
CAR(BgL_varvalz00_687); 
BgL_arg1811z00_698 = 
CAR(BgL_cdrzd2172zd2_694); 
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1826z00_1573;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_auxz00_2492;
BgL_auxz00_2492 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg1811z00_698, BgL_alz00_42, BgL_tmpsz00_671); 
BgL_arg1826z00_1573 = 
MAKE_PAIR(BgL_auxz00_2492, BNIL); } 
BgL_arg1802z00_685 = 
MAKE_PAIR(BgL_arg1810z00_697, BgL_arg1826z00_1573); } }  else 
{ /* ./R5rs/hygiene.scm 294 */
BgL_arg1802z00_685 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_687, BgL_alz00_42, BgL_tmpsz00_671); } }  else 
{ /* ./R5rs/hygiene.scm 294 */
BgL_arg1802z00_685 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_687, BgL_alz00_42, BgL_tmpsz00_671); } }  else 
{ /* ./R5rs/hygiene.scm 294 */
BgL_arg1802z00_685 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_687, BgL_alz00_42, BgL_tmpsz00_671); } } 
BgL_newtail1056z00_683 = 
MAKE_PAIR(BgL_arg1802z00_685, BNIL); } 
SET_CDR(BgL_tail1055z00_680, BgL_newtail1056z00_683); 
{ 
obj_t BgL_tail1055z00_2503;obj_t BgL_l1052z00_2501;
BgL_l1052z00_2501 = 
CDR(BgL_l1052z00_679); 
BgL_tail1055z00_2503 = BgL_newtail1056z00_683; 
BgL_tail1055z00_680 = BgL_tail1055z00_2503; 
BgL_l1052z00_679 = BgL_l1052z00_2501; 
goto BgL_map1053z00_681;} } } } 
BgL_arg1790z00_675 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_41, BgL_alz00_42, BgL_tmpsz00_671), BNIL); 
BgL_arg1786z00_673 = 
MAKE_PAIR(BgL_arg1789z00_674, BgL_arg1790z00_675); } 
return 
MAKE_PAIR(BgL_arg1785z00_672, BgL_arg1786z00_673);} } } 
}



/* hygiene-untag-let */
obj_t BGl_hygienezd2untagzd2letz00zz__r5_macro_4_3_hygienez00(obj_t BgL_varvalsz00_44, obj_t BgL_bodyz00_45, obj_t BgL_alz00_46, obj_t BgL_tmpsz00_47)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 305 */
{ /* ./R5rs/hygiene.scm 307 */
bool_t BgL_test1869z00_720;
BgL_test1869z00_720 = 
NULLP(BgL_varvalsz00_44); 
if(BgL_test1869z00_720)
{ /* ./R5rs/hygiene.scm 307 */
{ /* ./R5rs/hygiene.scm 308 */
obj_t BgL_arg1872z00_721;obj_t BgL_arg1873z00_722;
BgL_arg1872z00_721 = BGl_symbol2885z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 308 */
obj_t BgL_auxz00_2510;
BgL_auxz00_2510 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_45, BgL_alz00_46, BgL_tmpsz00_47), BNIL); 
BgL_arg1873z00_722 = 
MAKE_PAIR(BNIL, BgL_auxz00_2510); } 
return 
MAKE_PAIR(BgL_arg1872z00_721, BgL_arg1873z00_722);} }  else 
{ /* ./R5rs/hygiene.scm 307 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_varvalsz00_44))
{ /* ./R5rs/hygiene.scm 309 */
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_tmps2z00_728;
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_arg1949z00_762;
if(BgL_test1869z00_720)
{ /* ./R5rs/hygiene.scm 310 */
BgL_arg1949z00_762 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_head1059z00_765;
BgL_head1059z00_765 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1057z00_766;obj_t BgL_tail1060z00_767;
BgL_l1057z00_766 = BgL_varvalsz00_44; 
BgL_tail1060z00_767 = BgL_head1059z00_765; 
BgL_map1058z00_768:
if(
NULLP(BgL_l1057z00_766))
{ /* ./R5rs/hygiene.scm 310 */
BgL_arg1949z00_762 = 
CDR(BgL_head1059z00_765); }  else 
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_newtail1061z00_770;
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_arg1961z00_772;
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_xz00_774;
BgL_xz00_774 = 
CAR(BgL_l1057z00_766); 
if(
PAIRP(BgL_xz00_774))
{ /* ./R5rs/hygiene.scm 312 */
BgL_arg1961z00_772 = 
CAR(BgL_xz00_774); }  else 
{ /* ./R5rs/hygiene.scm 312 */
if(
SYMBOLP(BgL_xz00_774))
{ /* ./R5rs/hygiene.scm 314 */
BgL_arg1961z00_772 = BgL_xz00_774; }  else 
{ /* ./R5rs/hygiene.scm 314 */
BgL_arg1961z00_772 = BGl_symbol2890z00zz__r5_macro_4_3_hygienez00; } } } 
BgL_newtail1061z00_770 = 
MAKE_PAIR(BgL_arg1961z00_772, BNIL); } 
SET_CDR(BgL_tail1060z00_767, BgL_newtail1061z00_770); 
{ 
obj_t BgL_tail1060z00_2532;obj_t BgL_l1057z00_2530;
BgL_l1057z00_2530 = 
CDR(BgL_l1057z00_766); 
BgL_tail1060z00_2532 = BgL_newtail1061z00_770; 
BgL_tail1060z00_767 = BgL_tail1060z00_2532; 
BgL_l1057z00_766 = BgL_l1057z00_2530; 
goto BgL_map1058z00_768;} } } } 
BgL_tmps2z00_728 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1949z00_762, BgL_tmpsz00_47); } 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_arg1886z00_729;obj_t BgL_arg1887z00_730;
BgL_arg1886z00_729 = BGl_symbol2885z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_arg1890z00_731;obj_t BgL_arg1891z00_732;
if(
NULLP(BgL_varvalsz00_44))
{ /* ./R5rs/hygiene.scm 320 */
BgL_arg1890z00_731 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_head1064z00_735;
BgL_head1064z00_735 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1062z00_736;obj_t BgL_tail1065z00_737;
BgL_l1062z00_736 = BgL_varvalsz00_44; 
BgL_tail1065z00_737 = BgL_head1064z00_735; 
BgL_map1063z00_738:
if(
NULLP(BgL_l1062z00_736))
{ /* ./R5rs/hygiene.scm 320 */
BgL_arg1890z00_731 = 
CDR(BgL_head1064z00_735); }  else 
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_newtail1066z00_740;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1904z00_742;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_varvalz00_744;
BgL_varvalz00_744 = 
CAR(BgL_l1062z00_736); 
if(
PAIRP(BgL_varvalz00_744))
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_cdrzd2186zd2_751;
BgL_cdrzd2186zd2_751 = 
CDR(BgL_varvalz00_744); 
if(
PAIRP(BgL_cdrzd2186zd2_751))
{ /* ./R5rs/hygiene.scm 321 */
bool_t BgL_testz00_2546;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_auxz00_2547;
BgL_auxz00_2547 = 
CDR(BgL_cdrzd2186zd2_751); 
BgL_testz00_2546 = 
NULLP(BgL_auxz00_2547); } 
if(BgL_testz00_2546)
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1911z00_754;obj_t BgL_arg1912z00_755;
BgL_arg1911z00_754 = 
CAR(BgL_varvalz00_744); 
BgL_arg1912z00_755 = 
CAR(BgL_cdrzd2186zd2_751); 
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1928z00_1614;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_auxz00_2552;
BgL_auxz00_2552 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg1912z00_755, BgL_alz00_46, BgL_tmpsz00_47); 
BgL_arg1928z00_1614 = 
MAKE_PAIR(BgL_auxz00_2552, BNIL); } 
BgL_arg1904z00_742 = 
MAKE_PAIR(BgL_arg1911z00_754, BgL_arg1928z00_1614); } }  else 
{ /* ./R5rs/hygiene.scm 321 */
BgL_arg1904z00_742 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_744, BgL_alz00_46, BgL_tmpsz00_47); } }  else 
{ /* ./R5rs/hygiene.scm 321 */
BgL_arg1904z00_742 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_744, BgL_alz00_46, BgL_tmpsz00_47); } }  else 
{ /* ./R5rs/hygiene.scm 321 */
BgL_arg1904z00_742 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_744, BgL_alz00_46, BgL_tmpsz00_47); } } 
BgL_newtail1066z00_740 = 
MAKE_PAIR(BgL_arg1904z00_742, BNIL); } 
SET_CDR(BgL_tail1065z00_737, BgL_newtail1066z00_740); 
{ 
obj_t BgL_tail1065z00_2563;obj_t BgL_l1062z00_2561;
BgL_l1062z00_2561 = 
CDR(BgL_l1062z00_736); 
BgL_tail1065z00_2563 = BgL_newtail1066z00_740; 
BgL_tail1065z00_737 = BgL_tail1065z00_2563; 
BgL_l1062z00_736 = BgL_l1062z00_2561; 
goto BgL_map1063z00_738;} } } } 
BgL_arg1891z00_732 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_45, BgL_alz00_46, BgL_tmps2z00_728), BNIL); 
BgL_arg1887z00_730 = 
MAKE_PAIR(BgL_arg1890z00_731, BgL_arg1891z00_732); } 
return 
MAKE_PAIR(BgL_arg1886z00_729, BgL_arg1887z00_730);} } }  else 
{ /* ./R5rs/hygiene.scm 309 */
{ /* ./R5rs/hygiene.scm 329 */
obj_t BgL_arg1974z00_777;obj_t BgL_arg1975z00_778;
BgL_arg1974z00_777 = BGl_symbol2885z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 329 */
obj_t BgL_auxz00_2570;obj_t BgL_auxz00_2568;
BgL_auxz00_2570 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_45, BgL_alz00_46, BgL_tmpsz00_47), BNIL); 
BgL_auxz00_2568 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalsz00_44, BgL_alz00_46, BgL_tmpsz00_47); 
BgL_arg1975z00_778 = 
MAKE_PAIR(BgL_auxz00_2568, BgL_auxz00_2570); } 
return 
MAKE_PAIR(BgL_arg1974z00_777, BgL_arg1975z00_778);} } } } } 
}



/* hygiene-untag-named-let */
obj_t BGl_hygienezd2untagzd2namedzd2letzd2zz__r5_macro_4_3_hygienez00(obj_t BgL_lnamez00_48, obj_t BgL_varvalsz00_49, obj_t BgL_bodyz00_50, obj_t BgL_alz00_51, obj_t BgL_tmpsz00_52)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 335 */
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_tmps2z00_783;
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_arg2053z00_818;
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_arg2056z00_819;
if(
NULLP(BgL_varvalsz00_49))
{ /* ./R5rs/hygiene.scm 336 */
BgL_arg2056z00_819 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_head1069z00_822;
BgL_head1069z00_822 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1067z00_823;obj_t BgL_tail1070z00_824;
BgL_l1067z00_823 = BgL_varvalsz00_49; 
BgL_tail1070z00_824 = BgL_head1069z00_822; 
BgL_map1068z00_825:
if(
NULLP(BgL_l1067z00_823))
{ /* ./R5rs/hygiene.scm 336 */
BgL_arg2056z00_819 = 
CDR(BgL_head1069z00_822); }  else 
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_newtail1071z00_827;
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_arg2068z00_829;
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_xz00_831;
BgL_xz00_831 = 
CAR(BgL_l1067z00_823); 
if(
PAIRP(BgL_xz00_831))
{ /* ./R5rs/hygiene.scm 338 */
BgL_arg2068z00_829 = 
CAR(BgL_xz00_831); }  else 
{ /* ./R5rs/hygiene.scm 338 */
if(
SYMBOLP(BgL_xz00_831))
{ /* ./R5rs/hygiene.scm 340 */
BgL_arg2068z00_829 = BgL_xz00_831; }  else 
{ /* ./R5rs/hygiene.scm 340 */
BgL_arg2068z00_829 = BGl_symbol2890z00zz__r5_macro_4_3_hygienez00; } } } 
BgL_newtail1071z00_827 = 
MAKE_PAIR(BgL_arg2068z00_829, BNIL); } 
SET_CDR(BgL_tail1070z00_824, BgL_newtail1071z00_827); 
{ 
obj_t BgL_tail1070z00_2591;obj_t BgL_l1067z00_2589;
BgL_l1067z00_2589 = 
CDR(BgL_l1067z00_823); 
BgL_tail1070z00_2591 = BgL_newtail1071z00_827; 
BgL_tail1070z00_824 = BgL_tail1070z00_2591; 
BgL_l1067z00_823 = BgL_l1067z00_2589; 
goto BgL_map1068z00_825;} } } } 
BgL_arg2053z00_818 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg2056z00_819, BgL_tmpsz00_52); } 
BgL_tmps2z00_783 = 
MAKE_PAIR(BgL_lnamez00_48, BgL_arg2053z00_818); } 
{ /* ./R5rs/hygiene.scm 346 */
obj_t BgL_arg1990z00_784;obj_t BgL_arg1991z00_785;
BgL_arg1990z00_784 = BGl_symbol2885z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_arg1994z00_786;
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_arg1997z00_787;obj_t BgL_arg1998z00_788;
if(
NULLP(BgL_varvalsz00_49))
{ /* ./R5rs/hygiene.scm 347 */
BgL_arg1997z00_787 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_head1074z00_791;
BgL_head1074z00_791 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1072z00_792;obj_t BgL_tail1075z00_793;
BgL_l1072z00_792 = BgL_varvalsz00_49; 
BgL_tail1075z00_793 = BgL_head1074z00_791; 
BgL_map1073z00_794:
if(
NULLP(BgL_l1072z00_792))
{ /* ./R5rs/hygiene.scm 347 */
BgL_arg1997z00_787 = 
CDR(BgL_head1074z00_791); }  else 
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_newtail1076z00_796;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2010z00_798;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_varvalz00_800;
BgL_varvalz00_800 = 
CAR(BgL_l1072z00_792); 
if(
PAIRP(BgL_varvalz00_800))
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_cdrzd2200zd2_807;
BgL_cdrzd2200zd2_807 = 
CDR(BgL_varvalz00_800); 
if(
PAIRP(BgL_cdrzd2200zd2_807))
{ /* ./R5rs/hygiene.scm 348 */
bool_t BgL_testz00_2606;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_auxz00_2607;
BgL_auxz00_2607 = 
CDR(BgL_cdrzd2200zd2_807); 
BgL_testz00_2606 = 
NULLP(BgL_auxz00_2607); } 
if(BgL_testz00_2606)
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2018z00_810;obj_t BgL_arg2019z00_811;
BgL_arg2018z00_810 = 
CAR(BgL_varvalz00_800); 
BgL_arg2019z00_811 = 
CAR(BgL_cdrzd2200zd2_807); 
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2035z00_1654;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_auxz00_2612;
BgL_auxz00_2612 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg2019z00_811, BgL_alz00_51, BgL_tmpsz00_52); 
BgL_arg2035z00_1654 = 
MAKE_PAIR(BgL_auxz00_2612, BNIL); } 
BgL_arg2010z00_798 = 
MAKE_PAIR(BgL_arg2018z00_810, BgL_arg2035z00_1654); } }  else 
{ /* ./R5rs/hygiene.scm 348 */
BgL_arg2010z00_798 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_800, BgL_alz00_51, BgL_tmpsz00_52); } }  else 
{ /* ./R5rs/hygiene.scm 348 */
BgL_arg2010z00_798 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_800, BgL_alz00_51, BgL_tmpsz00_52); } }  else 
{ /* ./R5rs/hygiene.scm 348 */
BgL_arg2010z00_798 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_800, BgL_alz00_51, BgL_tmpsz00_52); } } 
BgL_newtail1076z00_796 = 
MAKE_PAIR(BgL_arg2010z00_798, BNIL); } 
SET_CDR(BgL_tail1075z00_793, BgL_newtail1076z00_796); 
{ 
obj_t BgL_tail1075z00_2623;obj_t BgL_l1072z00_2621;
BgL_l1072z00_2621 = 
CDR(BgL_l1072z00_792); 
BgL_tail1075z00_2623 = BgL_newtail1076z00_796; 
BgL_tail1075z00_793 = BgL_tail1075z00_2623; 
BgL_l1072z00_792 = BgL_l1072z00_2621; 
goto BgL_map1073z00_794;} } } } 
BgL_arg1998z00_788 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_50, BgL_alz00_51, BgL_tmps2z00_783), BNIL); 
BgL_arg1994z00_786 = 
MAKE_PAIR(BgL_arg1997z00_787, BgL_arg1998z00_788); } 
BgL_arg1991z00_785 = 
MAKE_PAIR(BgL_lnamez00_48, BgL_arg1994z00_786); } 
return 
MAKE_PAIR(BgL_arg1990z00_784, BgL_arg1991z00_785);} } } 
}



/* hygiene-untag-let* */
obj_t BGl_hygienezd2untagzd2letza2za2zz__r5_macro_4_3_hygienez00(obj_t BgL_varvalsz00_53, obj_t BgL_bodyz00_54, obj_t BgL_alz00_55, obj_t BgL_tmpsz00_56)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 359 */
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_tmps2z00_834;
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_arg2146z00_867;
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_arg2149z00_868;
if(
NULLP(BgL_varvalsz00_53))
{ /* ./R5rs/hygiene.scm 360 */
BgL_arg2149z00_868 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_head1079z00_871;
BgL_head1079z00_871 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1077z00_872;obj_t BgL_tail1080z00_873;
BgL_l1077z00_872 = BgL_varvalsz00_53; 
BgL_tail1080z00_873 = BgL_head1079z00_871; 
BgL_map1078z00_874:
if(
NULLP(BgL_l1077z00_872))
{ /* ./R5rs/hygiene.scm 360 */
BgL_arg2149z00_868 = 
CDR(BgL_head1079z00_871); }  else 
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_newtail1081z00_876;
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_arg2161z00_878;
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_xz00_880;
BgL_xz00_880 = 
CAR(BgL_l1077z00_872); 
if(
PAIRP(BgL_xz00_880))
{ /* ./R5rs/hygiene.scm 362 */
BgL_arg2161z00_878 = 
CAR(BgL_xz00_880); }  else 
{ /* ./R5rs/hygiene.scm 362 */
if(
SYMBOLP(BgL_xz00_880))
{ /* ./R5rs/hygiene.scm 364 */
BgL_arg2161z00_878 = BgL_xz00_880; }  else 
{ /* ./R5rs/hygiene.scm 364 */
BgL_arg2161z00_878 = BGl_symbol2890z00zz__r5_macro_4_3_hygienez00; } } } 
BgL_newtail1081z00_876 = 
MAKE_PAIR(BgL_arg2161z00_878, BNIL); } 
SET_CDR(BgL_tail1080z00_873, BgL_newtail1081z00_876); 
{ 
obj_t BgL_tail1080z00_2645;obj_t BgL_l1077z00_2643;
BgL_l1077z00_2643 = 
CDR(BgL_l1077z00_872); 
BgL_tail1080z00_2645 = BgL_newtail1081z00_876; 
BgL_tail1080z00_873 = BgL_tail1080z00_2645; 
BgL_l1077z00_872 = BgL_l1077z00_2643; 
goto BgL_map1078z00_874;} } } } 
BgL_arg2146z00_867 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg2149z00_868); } 
BgL_tmps2z00_834 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg2146z00_867, BgL_tmpsz00_56); } 
{ /* ./R5rs/hygiene.scm 370 */
obj_t BgL_arg2081z00_835;obj_t BgL_arg2082z00_836;
BgL_arg2081z00_835 = BGl_symbol2886z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 370 */
obj_t BgL_auxz00_2651;obj_t BgL_auxz00_2648;
BgL_auxz00_2651 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_54, BgL_alz00_55, BgL_tmps2z00_834), BNIL); 
BgL_auxz00_2648 = 
BGl_loopz00zz__r5_macro_4_3_hygienez00(BgL_tmps2z00_834, BgL_tmpsz00_56, BgL_alz00_55, BgL_varvalsz00_53, 
bgl_list_length(BgL_varvalsz00_53)); 
BgL_arg2082z00_836 = 
MAKE_PAIR(BgL_auxz00_2648, BgL_auxz00_2651); } 
return 
MAKE_PAIR(BgL_arg2081z00_835, BgL_arg2082z00_836);} } } 
}



/* loop */
obj_t BGl_loopz00zz__r5_macro_4_3_hygienez00(obj_t BgL_tmps2z00_1866, obj_t BgL_tmpsz00_1865, obj_t BgL_alz00_1864, obj_t BgL_varvalsz00_839, long BgL_iz00_840)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 370 */
if(
NULLP(BgL_varvalsz00_839))
{ /* ./R5rs/hygiene.scm 372 */
return BNIL;}  else 
{ /* ./R5rs/hygiene.scm 373 */
obj_t BgL_varvalz00_844;
BgL_varvalz00_844 = 
CAR(BgL_varvalsz00_839); 
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2094z00_845;obj_t BgL_arg2095z00_846;
if(
PAIRP(BgL_varvalz00_844))
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_cdrzd2214zd2_853;
BgL_cdrzd2214zd2_853 = 
CDR(BgL_varvalz00_844); 
if(
PAIRP(BgL_cdrzd2214zd2_853))
{ /* ./R5rs/hygiene.scm 374 */
bool_t BgL_testz00_2664;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_auxz00_2665;
BgL_auxz00_2665 = 
CDR(BgL_cdrzd2214zd2_853); 
BgL_testz00_2664 = 
NULLP(BgL_auxz00_2665); } 
if(BgL_testz00_2664)
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2101z00_856;obj_t BgL_arg2102z00_857;
BgL_arg2101z00_856 = 
CAR(BgL_varvalz00_844); 
BgL_arg2102z00_857 = 
CAR(BgL_cdrzd2214zd2_853); 
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2118z00_1690;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_auxz00_2670;
BgL_auxz00_2670 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg2102z00_857, BgL_alz00_1864, 
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_tmps2z00_1866, BgL_iz00_840)); 
BgL_arg2118z00_1690 = 
MAKE_PAIR(BgL_auxz00_2670, BNIL); } 
BgL_arg2094z00_845 = 
MAKE_PAIR(BgL_arg2101z00_856, BgL_arg2118z00_1690); } }  else 
{ /* ./R5rs/hygiene.scm 374 */
BgL_arg2094z00_845 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_844, BgL_alz00_1864, BgL_tmpsz00_1865); } }  else 
{ /* ./R5rs/hygiene.scm 374 */
BgL_arg2094z00_845 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_844, BgL_alz00_1864, BgL_tmpsz00_1865); } }  else 
{ /* ./R5rs/hygiene.scm 374 */
BgL_arg2094z00_845 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_844, BgL_alz00_1864, BgL_tmpsz00_1865); } 
BgL_arg2095z00_846 = 
BGl_loopz00zz__r5_macro_4_3_hygienez00(BgL_tmps2z00_1866, BgL_tmpsz00_1865, BgL_alz00_1864, 
CDR(BgL_varvalsz00_839), 
(BgL_iz00_840-((long)1))); 
return 
MAKE_PAIR(BgL_arg2094z00_845, BgL_arg2095z00_846);} } } 
}



/* hygiene-untag-do */
obj_t BGl_hygienezd2untagzd2doz00zz__r5_macro_4_3_hygienez00(obj_t BgL_varinistpsz00_57, obj_t BgL_exitzd2testzd2_58, obj_t BgL_bodyz00_59, obj_t BgL_alz00_60, obj_t BgL_tmpsz00_61)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 387 */
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_tmps2z00_883;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2223z00_910;
if(
NULLP(BgL_varinistpsz00_57))
{ /* ./R5rs/hygiene.scm 388 */
BgL_arg2223z00_910 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_head1084z00_913;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_auxz00_2684;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_auxz00_2685;
BgL_auxz00_2685 = 
CAR(BgL_varinistpsz00_57); 
BgL_auxz00_2684 = 
CAR(BgL_auxz00_2685); } 
BgL_head1084z00_913 = 
MAKE_PAIR(BgL_auxz00_2684, BNIL); } 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2227z00_917;
BgL_arg2227z00_917 = 
CDR(BgL_varinistpsz00_57); 
{ 
obj_t BgL_l1082z00_1708;obj_t BgL_tail1085z00_1709;
BgL_l1082z00_1708 = BgL_arg2227z00_917; 
BgL_tail1085z00_1709 = BgL_head1084z00_913; 
BgL_map1083z00_1707:
if(
NULLP(BgL_l1082z00_1708))
{ /* ./R5rs/hygiene.scm 388 */
BgL_arg2223z00_910 = BgL_head1084z00_913; }  else 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_newtail1086z00_1717;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_auxz00_2692;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_auxz00_2693;
BgL_auxz00_2693 = 
CAR(BgL_l1082z00_1708); 
BgL_auxz00_2692 = 
CAR(BgL_auxz00_2693); } 
BgL_newtail1086z00_1717 = 
MAKE_PAIR(BgL_auxz00_2692, BNIL); } 
SET_CDR(BgL_tail1085z00_1709, BgL_newtail1086z00_1717); 
{ 
obj_t BgL_tail1085z00_2700;obj_t BgL_l1082z00_2698;
BgL_l1082z00_2698 = 
CDR(BgL_l1082z00_1708); 
BgL_tail1085z00_2700 = BgL_newtail1086z00_1717; 
BgL_tail1085z00_1709 = BgL_tail1085z00_2700; 
BgL_l1082z00_1708 = BgL_l1082z00_2698; 
goto BgL_map1083z00_1707;} } } } } 
BgL_tmps2z00_883 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg2223z00_910, BgL_tmpsz00_61); } 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_arg2174z00_884;obj_t BgL_arg2175z00_885;
BgL_arg2174z00_884 = BGl_symbol2887z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_arg2178z00_886;obj_t BgL_arg2179z00_887;
if(
NULLP(BgL_varinistpsz00_57))
{ /* ./R5rs/hygiene.scm 389 */
BgL_arg2178z00_886 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_head1089z00_890;
BgL_head1089z00_890 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1087z00_891;obj_t BgL_tail1090z00_892;
BgL_l1087z00_891 = BgL_varinistpsz00_57; 
BgL_tail1090z00_892 = BgL_head1089z00_890; 
BgL_map1088z00_893:
if(
NULLP(BgL_l1087z00_891))
{ /* ./R5rs/hygiene.scm 389 */
BgL_arg2178z00_886 = 
CDR(BgL_head1089z00_890); }  else 
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_newtail1091z00_895;
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_arg2191z00_897;
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_varinistpz00_899;
BgL_varinistpz00_899 = 
CAR(BgL_l1087z00_891); 
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_varz00_900;
BgL_varz00_900 = 
CAR(BgL_varinistpz00_899); 
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_arg2195z00_901;
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_arg2198z00_902;
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_arg2202z00_904;obj_t BgL_arg2203z00_905;
BgL_arg2202z00_904 = 
CDR(BgL_varinistpz00_899); 
BgL_arg2203z00_905 = 
MAKE_PAIR(BgL_varz00_900, BgL_tmpsz00_61); 
BgL_arg2198z00_902 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg2202z00_904, BgL_alz00_60, BgL_arg2203z00_905); } 
BgL_arg2195z00_901 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2198z00_902, BNIL); } 
BgL_arg2191z00_897 = 
MAKE_PAIR(BgL_varz00_900, BgL_arg2195z00_901); } } } 
BgL_newtail1091z00_895 = 
MAKE_PAIR(BgL_arg2191z00_897, BNIL); } 
SET_CDR(BgL_tail1090z00_892, BgL_newtail1091z00_895); 
{ 
obj_t BgL_tail1090z00_2719;obj_t BgL_l1087z00_2717;
BgL_l1087z00_2717 = 
CDR(BgL_l1087z00_891); 
BgL_tail1090z00_2719 = BgL_newtail1091z00_895; 
BgL_tail1090z00_892 = BgL_tail1090z00_2719; 
BgL_l1087z00_891 = BgL_l1087z00_2717; 
goto BgL_map1088z00_893;} } } } 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_auxz00_2722;obj_t BgL_auxz00_2720;
BgL_auxz00_2722 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_59, BgL_alz00_60, BgL_tmps2z00_883), BNIL); 
BgL_auxz00_2720 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_exitzd2testzd2_58, BgL_alz00_60, BgL_tmps2z00_883); 
BgL_arg2179z00_887 = 
MAKE_PAIR(BgL_auxz00_2720, BgL_auxz00_2722); } 
BgL_arg2175z00_885 = 
MAKE_PAIR(BgL_arg2178z00_886, BgL_arg2179z00_887); } 
return 
MAKE_PAIR(BgL_arg2174z00_884, BgL_arg2175z00_885);} } } 
}



/* hygiene-untag-vanilla */
obj_t BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_62, obj_t BgL_alz00_63, obj_t BgL_tmpsz00_64)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 401 */
if(
PAIRP(BgL_ez00_62))
{ /* ./R5rs/hygiene.scm 402 */
{ /* ./R5rs/hygiene.scm 403 */
obj_t BgL_auxz00_2733;obj_t BgL_auxz00_2730;
BgL_auxz00_2733 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(
CDR(BgL_ez00_62), BgL_alz00_63, BgL_tmpsz00_64); 
BgL_auxz00_2730 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(
CAR(BgL_ez00_62), BgL_alz00_63, BgL_tmpsz00_64); 
return 
MAKE_PAIR(BgL_auxz00_2730, BgL_auxz00_2733);} }  else 
{ /* ./R5rs/hygiene.scm 402 */
if(
VECTORP(BgL_ez00_62))
{ /* ./R5rs/hygiene.scm 405 */
return 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_62), BgL_alz00_63, BgL_tmpsz00_64));}  else 
{ /* ./R5rs/hygiene.scm 405 */
if(
SYMBOLP(BgL_ez00_62))
{ /* ./R5rs/hygiene.scm 408 */
bool_t BgL_testz00_2744;
{ /* ./R5rs/hygiene.scm 408 */
obj_t BgL_auxz00_2745;
BgL_auxz00_2745 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_62, BgL_tmpsz00_64); 
BgL_testz00_2744 = 
CBOOL(BgL_auxz00_2745); } 
if(BgL_testz00_2744)
{ /* ./R5rs/hygiene.scm 408 */
return BgL_ez00_62;}  else 
{ /* ./R5rs/hygiene.scm 409 */
obj_t BgL_testzd2resultzd2_937;
BgL_testzd2resultzd2_937 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_62, BgL_alz00_63); 
if(
CBOOL(BgL_testzd2resultzd2_937))
{ /* ./R5rs/hygiene.scm 409 */
return 
CDR(BgL_testzd2resultzd2_937);}  else 
{ /* ./R5rs/hygiene.scm 409 */
return BgL_ez00_62;} } }  else 
{ /* ./R5rs/hygiene.scm 407 */
return BgL_ez00_62;} } } } 
}



/* some */
obj_t BGl_somez00zz__r5_macro_4_3_hygienez00(obj_t BgL_predz00_67, obj_t BgL_lz00_68)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 425 */
BGl_somez00zz__r5_macro_4_3_hygienez00:
if(
NULLP(BgL_lz00_68))
{ /* ./R5rs/hygiene.scm 426 */
return BFALSE;}  else 
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL__ortest_1093z00_1793;
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL_arg2307z00_1794;
BgL_arg2307z00_1794 = 
CAR(BgL_lz00_68); 
BgL__ortest_1093z00_1793 = 
PROCEDURE_L_ENTRY(BgL_predz00_67)(BgL_predz00_67, BgL_arg2307z00_1794); } 
if(
CBOOL(BgL__ortest_1093z00_1793))
{ /* ./R5rs/hygiene.scm 426 */
return BgL__ortest_1093z00_1793;}  else 
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL_arg2303z00_1795;
BgL_arg2303z00_1795 = 
CDR(BgL_lz00_68); 
if(
NULLP(BgL_arg2303z00_1795))
{ /* ./R5rs/hygiene.scm 426 */
return BFALSE;}  else 
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL__ortest_1093z00_1802;
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL_arg2307z00_1803;
BgL_arg2307z00_1803 = 
CAR(BgL_arg2303z00_1795); 
BgL__ortest_1093z00_1802 = 
PROCEDURE_L_ENTRY(BgL_predz00_67)(BgL_predz00_67, BgL_arg2307z00_1803); } 
if(
CBOOL(BgL__ortest_1093z00_1802))
{ /* ./R5rs/hygiene.scm 426 */
return BgL__ortest_1093z00_1802;}  else 
{ 
obj_t BgL_lz00_2767;
BgL_lz00_2767 = 
CDR(BgL_arg2303z00_1795); 
BgL_lz00_68 = BgL_lz00_2767; 
goto BGl_somez00zz__r5_macro_4_3_hygienez00;} } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_hygienez00()
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r5_macro_4_3_hygiene");} 
}

