/*===========================================================================*/
/*   (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 -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c R5rs/hygiene.scm -indent -o objs/obj_s/R5rs/hygiene.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#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);
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);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
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_hygienezd2untagzd2listza2za2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_hygienez00();
static obj_t BGl_loopz72z72zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl__r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
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 *);
static obj_t BGl_zc3anonymousza31101za3R5rszf2hygieneze2scmza356ze3z93zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
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);
static obj_t BGl_zc3anonymousza31323za3R5rszf2hygieneze2scmza3148ze3z93zz__r5_macro_4_3_hygienez00(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_list5202z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_list5193z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
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_list5199z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
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();
BGL_EXPORTED_DECL obj_t BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_getzd2ellipsiszd2nestingsz00zz__r5_macro_4_3_hygienez00(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_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31319za3R5rszf2hygieneze2scmza3148ze3z93zz__r5_macro_4_3_hygienez00(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_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_hygienezd2rassqzd2zz__r5_macro_4_3_hygienez00(obj_t, 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);
static obj_t BGl_zc3anonymousza31307za3R5rszf2hygieneze2scmza3140ze3z93zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_symbol5226z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5225z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5224z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5223z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5222z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5221z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5220z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5219z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5218z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5217z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5216z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5215z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_symbol5214z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_somez00zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_symbol5213z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5212z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5211z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5210z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5209z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5208z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5198z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5207z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5197z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5206z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5196z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5205z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5195z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5204z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5194z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5203z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5201z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5200z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5189z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5188z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_subz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t);
static obj_t BGl_symbol5187z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5186z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5185z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl__r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5184z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5183z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5182z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5181z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5180z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5179z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5178z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5175z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
static obj_t BGl_symbol5169z00zz__r5_macro_4_3_hygienez00 = BUNSPEC;
extern obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string5191z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5191za700za7za7__r5_macro_4_3_hygieneza7005281z00, "procedure", 9 );
DEFINE_STRING( BGl_string5190z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5190za700za7za7__r5_macro_4_3_hygieneza7005282z00, "vector", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2macrozd2getzd2bindingszd2envz00zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2macroza7d2getza7d2bindingsza7d2za7za7__r5_macro_4_3_hygieneza7005283za7, BGl__r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_STRING( BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5177za700za7za7__r5_macro_4_3_hygieneza7005284z00, "argument not a list", 19 );
DEFINE_STRING( BGl_string5176z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5176za700za7za7__r5_macro_4_3_hygieneza7005285z00, "map", 3 );
DEFINE_STRING( BGl_string5174z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5174za700za7za7__r5_macro_4_3_hygieneza7005286z00, "Illegal ellipsis", 16 );
DEFINE_STRING( BGl_string5173z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5173za700za7za7__r5_macro_4_3_hygieneza7005287z00, "syntax-rules", 12 );
DEFINE_STRING( BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5172za700za7za7__r5_macro_4_3_hygieneza7005288z00, "pair", 4 );
DEFINE_STRING( BGl_string5171z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5171za700za7za7__r5_macro_4_3_hygieneza7005289z00, "/tmp/bigloo/runtime/./R5rs/hygiene.scm", 38 );
DEFINE_STRING( BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5170za700za7za7__r5_macro_4_3_hygieneza7005290z00, "pair-nil", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2macrozd2expandzd2patternzd2envz00zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2macroza7d2expandza7d2patternza7d2za7za7__r5_macro_4_3_hygieneza7005291za7, 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_hygieneza7005292z00, BGl__r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_r5rszd2hygienezd2flattenzd2envzd2zz__r5_macro_4_3_hygienez00, BgL_bgl__r5rsza7d2hygieneza7d2flattenza700za7za7__r5_macro_4_3_hygieneza7005293z00, 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_hygieneza7005294z00, 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_hygieneza7005295z00, BGl__r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00, 0L, 3 );
DEFINE_STRING( BGl_string5192z00zz__r5_macro_4_3_hygienez00, BgL_bgl_string5192za700za7za7__r5_macro_4_3_hygieneza7005296z00, "hygiene-tag-inner:Wrong number of arguments", 43 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(long BgL_checksumz00_2452, char * BgL_fromz00_2453)
{ 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_symbol5169z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("r5rs-macro-matches-pattern?"); 
BGl_symbol5175z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("r5rs-macro-get-bindings"); 
BGl_symbol5178z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("r5rs-macro-expand-pattern"); 
BGl_symbol5179z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("<anonymous:1307:R5rs/hygiene.scm:140>"); 
BGl_symbol5180z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("get-ellipsis-nestings"); 
BGl_symbol5181z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("sub"); 
BGl_symbol5182z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("ellipsis?"); 
BGl_symbol5183z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("..."); 
BGl_symbol5184z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("intersect?"); 
BGl_symbol5185z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("r5rs-hygiene-flatten"); 
BGl_symbol5186z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("loop''"); 
BGl_symbol5187z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("_r5rs-hygiene-flatten"); 
BGl_symbol5188z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("r5rs-hygiene-tag"); 
BGl_symbol5189z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-tag-inner"); 
BGl_symbol5194z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("funcall"); 
BGl_symbol5195z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("gensym"); 
{ /* ./R5rs/hygiene.scm 177 */
obj_t BgL_auxz00_2475;
{ /* ./R5rs/hygiene.scm 177 */
obj_t BgL_auxz00_2476;
BgL_auxz00_2476 = 
MAKE_PAIR(BGl_symbol5195z00zz__r5_macro_4_3_hygienez00, BNIL); 
BgL_auxz00_2475 = 
MAKE_PAIR(BGl_symbol5195z00zz__r5_macro_4_3_hygienez00, BgL_auxz00_2476); } 
BGl_list5193z00zz__r5_macro_4_3_hygienez00 = 
MAKE_PAIR(BGl_symbol5194z00zz__r5_macro_4_3_hygienez00, BgL_auxz00_2475); } 
BGl_symbol5196z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("_"); 
BGl_symbol5197z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("r5rs-hygiene-untag"); 
BGl_symbol5198z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("quote"); 
BGl_symbol5200z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("if"); 
BGl_symbol5201z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("begin"); 
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_2485;
BgL_auxz00_2485 = 
MAKE_PAIR(BGl_symbol5201z00zz__r5_macro_4_3_hygienez00, BNIL); 
BGl_list5199z00zz__r5_macro_4_3_hygienez00 = 
MAKE_PAIR(BGl_symbol5200z00zz__r5_macro_4_3_hygienez00, BgL_auxz00_2485); } 
BGl_symbol5203z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("set!"); 
BGl_symbol5204z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("define"); 
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_2490;
BgL_auxz00_2490 = 
MAKE_PAIR(BGl_symbol5204z00zz__r5_macro_4_3_hygienez00, BNIL); 
BGl_list5202z00zz__r5_macro_4_3_hygienez00 = 
MAKE_PAIR(BGl_symbol5203z00zz__r5_macro_4_3_hygienez00, BgL_auxz00_2490); } 
BGl_symbol5205z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("lambda"); 
BGl_symbol5206z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("bind-exit"); 
BGl_symbol5207z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("letrec"); 
BGl_symbol5208z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("let"); 
BGl_symbol5209z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("let*"); 
BGl_symbol5210z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("do"); 
BGl_symbol5211z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("case"); 
BGl_symbol5212z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("cond"); 
BGl_symbol5213z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-list"); 
BGl_symbol5214z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-list*"); 
BGl_symbol5215z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("loop'"); 
BGl_symbol5216z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-no-tags"); 
BGl_symbol5217z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-letrec"); 
BGl_symbol5218z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-let"); 
BGl_symbol5219z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-named-let"); 
BGl_symbol5220z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-let*"); 
BGl_symbol5221z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("loop"); 
BGl_symbol5222z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-do"); 
BGl_symbol5223z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-untag-vanilla"); 
BGl_symbol5224z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("hygiene-rassq"); 
BGl_symbol5225z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("some"); 
return ( 
BGl_symbol5226z00zz__r5_macro_4_3_hygienez00 = 
string_to_symbol("%import@__r5_macro_4_3_hygiene"), 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 */
{ /* ./R5rs/hygiene.scm 51 */
obj_t BgL_symbol2859z00_1701;
BgL_symbol2859z00_1701 = BGl_symbol5169z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 51 */

PUSH_TRACE(BgL_symbol2859z00_1701); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 51 */
obj_t BgL_aux2858z00_1702;
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 51 */
{ /* ./R5rs/hygiene.scm 52 */
bool_t BgL_test1095z00_327;
{ /* ./R5rs/hygiene.scm 52 */
long BgL_arg1108z00_335;
{ /* ./R5rs/hygiene.scm 52 */
obj_t BgL_auxz00_2518;
{ /* ./R5rs/hygiene.scm 52 */
bool_t BgL_testz00_2519;
if(
PAIRP(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 52 */
BgL_testz00_2519 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 52 */
BgL_testz00_2519 = 
NULLP(BgL_pz00_1)
; } 
if(BgL_testz00_2519)
{ /* ./R5rs/hygiene.scm 52 */
BgL_auxz00_2518 = BgL_pz00_1
; }  else 
{ /* ./R5rs/hygiene.scm 52 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_pz00_1, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2174))); 
exit( -1 );} } 
BgL_arg1108z00_335 = 
bgl_list_length(BgL_auxz00_2518); } 
BgL_test1095z00_327 = 
(BgL_arg1108z00_335==((long)2)); } 
if(BgL_test1095z00_327)
{ /* ./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;
{ /* ./R5rs/hygiene.scm 55 */
obj_t BgL_pairz00_1096;
if(
PAIRP(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 55 */
BgL_pairz00_1096 = BgL_pz00_1; }  else 
{ /* ./R5rs/hygiene.scm 55 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_1, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2265))); 
exit( -1 );} 
BgL_p0z00_329 = 
CAR(BgL_pairz00_1096); } 
{ /* ./R5rs/hygiene.scm 57 */
obj_t BgL_zc3anonymousza31101za3r5rszf2hygieneze2scmza356ze3z93_1743;
{ 
int BgL_auxz00_2539;int BgL_auxz00_2537;
BgL_auxz00_2539 = 
(int)(((long)2)); 
BgL_auxz00_2537 = 
(int)(((long)1)); 
BgL_zc3anonymousza31101za3r5rszf2hygieneze2scmza356ze3z93_1743 = 
make_fx_procedure(BGl_zc3anonymousza31101za3R5rszf2hygieneze2scmza356ze3z93zz__r5_macro_4_3_hygienez00, BgL_auxz00_2537, BgL_auxz00_2539); } 
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_2542;
BgL_auxz00_2542 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31101za3r5rszf2hygieneze2scmza356ze3z93_1743, BgL_auxz00_2542, BgL_p0z00_329); } 
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_2545;
BgL_auxz00_2545 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31101za3r5rszf2hygieneze2scmza356ze3z93_1743, BgL_auxz00_2545, BgL_kz00_3); } 
{ /* ./R5rs/hygiene.scm 56 */
obj_t BgL_list1099z00_331;
BgL_list1099z00_331 = 
MAKE_PAIR(BgL_ez00_2, BNIL); 
BgL_aux2858z00_1702 = 
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3anonymousza31101za3r5rszf2hygieneze2scmza356ze3z93_1743, BgL_list1099z00_331); } } }  else 
{ /* ./R5rs/hygiene.scm 55 */
BgL_aux2858z00_1702 = BFALSE; } }  else 
{ /* ./R5rs/hygiene.scm 52 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5173z00zz__r5_macro_4_3_hygienez00, BGl_string5174z00zz__r5_macro_4_3_hygienez00, BgL_pz00_1, "./R5rs/hygiene.scm", ((long)2185)); 
BgL_aux2858z00_1702 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2224))); } } }  else 
{ /* ./R5rs/hygiene.scm 59 */
bool_t BgL_test1112z00_337;
BgL_test1112z00_337 = 
PAIRP(BgL_pz00_1); 
if(BgL_test1112z00_337)
{ /* ./R5rs/hygiene.scm 59 */
{ /* ./R5rs/hygiene.scm 60 */
bool_t BgL__andtest_1004z00_338;
BgL__andtest_1004z00_338 = 
PAIRP(BgL_ez00_2); 
if(BgL__andtest_1004z00_338)
{ /* ./R5rs/hygiene.scm 61 */
obj_t BgL__andtest_1005z00_339;
{ /* ./R5rs/hygiene.scm 61 */
obj_t BgL_arg1120z00_342;obj_t BgL_arg1121z00_343;
{ /* ./R5rs/hygiene.scm 61 */
obj_t BgL_pairz00_1102;
if(BgL_test1112z00_337)
{ /* ./R5rs/hygiene.scm 61 */
BgL_pairz00_1102 = BgL_pz00_1; }  else 
{ /* ./R5rs/hygiene.scm 61 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_1, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2432))); 
exit( -1 );} 
BgL_arg1120z00_342 = 
CAR(BgL_pairz00_1102); } 
{ /* ./R5rs/hygiene.scm 61 */
obj_t BgL_pairz00_1103;
if(BgL__andtest_1004z00_338)
{ /* ./R5rs/hygiene.scm 61 */
BgL_pairz00_1103 = BgL_ez00_2; }  else 
{ /* ./R5rs/hygiene.scm 61 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_2, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2440))); 
exit( -1 );} 
BgL_arg1121z00_343 = 
CAR(BgL_pairz00_1103); } 
BgL__andtest_1005z00_339 = 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_arg1120z00_342, BgL_arg1121z00_343, BgL_kz00_3); } 
if(
CBOOL(BgL__andtest_1005z00_339))
{ /* ./R5rs/hygiene.scm 62 */
obj_t BgL_arg1114z00_340;obj_t BgL_arg1115z00_341;
{ /* ./R5rs/hygiene.scm 62 */
obj_t BgL_pairz00_1104;
if(
PAIRP(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 62 */
BgL_pairz00_1104 = BgL_pz00_1; }  else 
{ /* ./R5rs/hygiene.scm 62 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_1, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2485))); 
exit( -1 );} 
BgL_arg1114z00_340 = 
CDR(BgL_pairz00_1104); } 
{ /* ./R5rs/hygiene.scm 62 */
obj_t BgL_pairz00_1105;
if(
PAIRP(BgL_ez00_2))
{ /* ./R5rs/hygiene.scm 62 */
BgL_pairz00_1105 = BgL_ez00_2; }  else 
{ /* ./R5rs/hygiene.scm 62 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_2, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2493))); 
exit( -1 );} 
BgL_arg1115z00_341 = 
CDR(BgL_pairz00_1105); } 
BgL_aux2858z00_1702 = 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_arg1114z00_340, BgL_arg1115z00_341, BgL_kz00_3); }  else 
{ /* ./R5rs/hygiene.scm 61 */
BgL_aux2858z00_1702 = BFALSE; } }  else 
{ /* ./R5rs/hygiene.scm 60 */
BgL_aux2858z00_1702 = BFALSE; } } }  else 
{ /* ./R5rs/hygiene.scm 59 */
if(
SYMBOLP(BgL_pz00_1))
{ /* ./R5rs/hygiene.scm 63 */
{ /* ./R5rs/hygiene.scm 64 */
bool_t BgL_test1127z00_345;
{ /* ./R5rs/hygiene.scm 64 */
obj_t BgL_auxz00_2585;
{ /* ./R5rs/hygiene.scm 64 */
obj_t BgL_auxz00_2586;
{ /* ./R5rs/hygiene.scm 64 */
bool_t BgL_testz00_2587;
if(
PAIRP(BgL_kz00_3))
{ /* ./R5rs/hygiene.scm 64 */
BgL_testz00_2587 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 64 */
BgL_testz00_2587 = 
NULLP(BgL_kz00_3)
; } 
if(BgL_testz00_2587)
{ /* ./R5rs/hygiene.scm 64 */
BgL_auxz00_2586 = BgL_kz00_3
; }  else 
{ /* ./R5rs/hygiene.scm 64 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5169z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_kz00_3, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2539))); 
exit( -1 );} } 
BgL_auxz00_2585 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_1, BgL_auxz00_2586); } 
BgL_test1127z00_345 = 
CBOOL(BgL_auxz00_2585); } 
if(BgL_test1127z00_345)
{ /* ./R5rs/hygiene.scm 64 */
bool_t BgL_auxz00_2597;
BgL_auxz00_2597 = 
(BgL_pz00_1==BgL_ez00_2); 
BgL_aux2858z00_1702 = 
BBOOL(BgL_auxz00_2597); }  else 
{ /* ./R5rs/hygiene.scm 64 */
BgL_aux2858z00_1702 = BTRUE; } } }  else 
{ /* ./R5rs/hygiene.scm 63 */
{ /* ./R5rs/hygiene.scm 66 */
bool_t BgL_auxz00_2600;
BgL_auxz00_2600 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_pz00_1, BgL_ez00_2); 
BgL_aux2858z00_1702 = 
BBOOL(BgL_auxz00_2600); } } } } 
POP_TRACE(); 
return BgL_aux2858z00_1702;} } } } 
}



/* _r5rs-macro-matches-pattern? */
obj_t BGl__r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1744, obj_t BgL_pz00_1745, obj_t BgL_ez00_1746, obj_t BgL_kz00_1747)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 49 */
return 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_pz00_1745, BgL_ez00_1746, BgL_kz00_1747);} 
}



/* <anonymous:1101:R5rs/hygiene.scm:56> */
obj_t BGl_zc3anonymousza31101za3R5rszf2hygieneze2scmza356ze3z93zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1748, obj_t BgL_eiz00_1751)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 56 */
{ /* ./R5rs/hygiene.scm 57 */
obj_t BgL_p0z00_1749;obj_t BgL_kz00_1750;
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_2605;
BgL_auxz00_2605 = 
(int)(((long)0)); 
BgL_p0z00_1749 = 
PROCEDURE_REF(BgL_envz00_1748, BgL_auxz00_2605); } 
{ /* ./R5rs/hygiene.scm 57 */
int BgL_auxz00_2608;
BgL_auxz00_2608 = 
(int)(((long)1)); 
BgL_kz00_1750 = 
PROCEDURE_REF(BgL_envz00_1748, BgL_auxz00_2608); } 
{ 
obj_t BgL_eiz00_332;
BgL_eiz00_332 = BgL_eiz00_1751; 
return 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_p0z00_1749, BgL_eiz00_332, BgL_kz00_1750);} } } 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 73 */
obj_t BgL_symbol2863z00_1703;
BgL_symbol2863z00_1703 = BGl_symbol5175z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 73 */

PUSH_TRACE(BgL_symbol2863z00_1703); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 73 */
obj_t BgL_aux2862z00_1704;
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_4))
{ /* ./R5rs/hygiene.scm 73 */
{ /* ./R5rs/hygiene.scm 74 */
obj_t BgL_p0z00_347;
{ /* ./R5rs/hygiene.scm 74 */
obj_t BgL_pairz00_1107;
if(
PAIRP(BgL_pz00_4))
{ /* ./R5rs/hygiene.scm 74 */
BgL_pairz00_1107 = BgL_pz00_4; }  else 
{ /* ./R5rs/hygiene.scm 74 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_4, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2907))); 
exit( -1 );} 
BgL_p0z00_347 = 
CAR(BgL_pairz00_1107); } 
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_arg1136z00_348;
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_arg1141z00_350;obj_t BgL_arg1142z00_351;
BgL_arg1141z00_350 = 
BGl_getzd2ellipsiszd2nestingsz00zz__r5_macro_4_3_hygienez00(BgL_p0z00_347, BgL_kz00_6); 
if(
NULLP(BgL_ez00_5))
{ /* ./R5rs/hygiene.scm 76 */
BgL_arg1142z00_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:
{ /* ./R5rs/hygiene.scm 76 */
bool_t BgL_test1147z00_358;
BgL_test1147z00_358 = 
PAIRP(BgL_l1006z00_355); 
if(BgL_test1147z00_358)
{ /* ./R5rs/hygiene.scm 76 */
{ /* ./R5rs/hygiene.scm 77 */
obj_t BgL_newtail1010z00_359;
{ /* ./R5rs/hygiene.scm 77 */
obj_t BgL_arg1154z00_361;
{ /* ./R5rs/hygiene.scm 77 */
obj_t BgL_eiz00_363;
{ /* ./R5rs/hygiene.scm 77 */
obj_t BgL_pairz00_1112;
if(BgL_test1147z00_358)
{ /* ./R5rs/hygiene.scm 77 */
BgL_pairz00_1112 = BgL_l1006z00_355; }  else 
{ /* ./R5rs/hygiene.scm 77 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1006z00_355, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2991))); 
exit( -1 );} 
BgL_eiz00_363 = 
CAR(BgL_pairz00_1112); } 
BgL_arg1154z00_361 = 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_p0z00_347, BgL_eiz00_363, BgL_kz00_6); } 
BgL_newtail1010z00_359 = 
MAKE_PAIR(BgL_arg1154z00_361, BNIL); } 
SET_CDR(BgL_tail1009z00_356, BgL_newtail1010z00_359); 
{ /* ./R5rs/hygiene.scm 76 */
obj_t BgL_arg1150z00_360;
{ /* ./R5rs/hygiene.scm 76 */
obj_t BgL_pairz00_1117;
if(
PAIRP(BgL_l1006z00_355))
{ /* ./R5rs/hygiene.scm 76 */
BgL_pairz00_1117 = BgL_l1006z00_355; }  else 
{ /* ./R5rs/hygiene.scm 76 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1006z00_355, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2964))); 
exit( -1 );} 
BgL_arg1150z00_360 = 
CDR(BgL_pairz00_1117); } 
{ 
obj_t BgL_tail1009z00_2642;obj_t BgL_l1006z00_2641;
BgL_l1006z00_2641 = BgL_arg1150z00_360; 
BgL_tail1009z00_2642 = BgL_newtail1010z00_359; 
BgL_tail1009z00_356 = BgL_tail1009z00_2642; 
BgL_l1006z00_355 = BgL_l1006z00_2641; 
goto BgL_map1007z00_357;} } } }  else 
{ /* ./R5rs/hygiene.scm 76 */
if(
NULLP(BgL_l1006z00_355))
{ /* ./R5rs/hygiene.scm 76 */
BgL_arg1142z00_351 = 
CDR(BgL_head1008z00_354); }  else 
{ /* ./R5rs/hygiene.scm 76 */
BgL_arg1142z00_351 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1006z00_355, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2964))); } } } } } 
BgL_arg1136z00_348 = 
MAKE_PAIR(BgL_arg1141z00_350, BgL_arg1142z00_351); } 
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_list1138z00_349;
BgL_list1138z00_349 = 
MAKE_PAIR(BgL_arg1136z00_348, BNIL); 
{ /* ./R5rs/hygiene.scm 75 */
obj_t BgL_res2855z00_1124;
if(((bool_t)1))
{ /* ./R5rs/hygiene.scm 75 */
BgL_res2855z00_1124 = BgL_list1138z00_349; }  else 
{ /* ./R5rs/hygiene.scm 75 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_list1138z00_349, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)2915))); 
exit( -1 );} 
BgL_aux2862z00_1704 = BgL_res2855z00_1124; } } } } }  else 
{ /* ./R5rs/hygiene.scm 79 */
bool_t BgL_test1167z00_365;
BgL_test1167z00_365 = 
PAIRP(BgL_pz00_4); 
if(BgL_test1167z00_365)
{ /* ./R5rs/hygiene.scm 79 */
{ /* ./R5rs/hygiene.scm 80 */
obj_t BgL_arg1169z00_366;obj_t BgL_arg1171z00_367;
{ /* ./R5rs/hygiene.scm 80 */
obj_t BgL_arg1174z00_368;obj_t BgL_arg1175z00_369;
{ /* ./R5rs/hygiene.scm 80 */
obj_t BgL_pairz00_1126;
if(BgL_test1167z00_365)
{ /* ./R5rs/hygiene.scm 80 */
BgL_pairz00_1126 = BgL_pz00_4; }  else 
{ /* ./R5rs/hygiene.scm 80 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_4, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3101))); 
exit( -1 );} 
BgL_arg1174z00_368 = 
CAR(BgL_pairz00_1126); } 
{ /* ./R5rs/hygiene.scm 80 */
obj_t BgL_pairz00_1127;
if(
PAIRP(BgL_ez00_5))
{ /* ./R5rs/hygiene.scm 80 */
BgL_pairz00_1127 = BgL_ez00_5; }  else 
{ /* ./R5rs/hygiene.scm 80 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_5, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3109))); 
exit( -1 );} 
BgL_arg1175z00_369 = 
CAR(BgL_pairz00_1127); } 
BgL_arg1169z00_366 = 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_arg1174z00_368, BgL_arg1175z00_369, BgL_kz00_6); } 
{ /* ./R5rs/hygiene.scm 81 */
obj_t BgL_arg1180z00_370;obj_t BgL_arg1181z00_371;
{ /* ./R5rs/hygiene.scm 81 */
obj_t BgL_pairz00_1128;
if(BgL_test1167z00_365)
{ /* ./R5rs/hygiene.scm 81 */
BgL_pairz00_1128 = BgL_pz00_4; }  else 
{ /* ./R5rs/hygiene.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_4, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3153))); 
exit( -1 );} 
BgL_arg1180z00_370 = 
CDR(BgL_pairz00_1128); } 
{ /* ./R5rs/hygiene.scm 81 */
obj_t BgL_pairz00_1129;
if(
PAIRP(BgL_ez00_5))
{ /* ./R5rs/hygiene.scm 81 */
BgL_pairz00_1129 = BgL_ez00_5; }  else 
{ /* ./R5rs/hygiene.scm 81 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_5, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3161))); 
exit( -1 );} 
BgL_arg1181z00_371 = 
CDR(BgL_pairz00_1129); } 
BgL_arg1171z00_367 = 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_arg1180z00_370, BgL_arg1181z00_371, BgL_kz00_6); } 
{ /* ./R5rs/hygiene.scm 80 */
obj_t BgL_auxz00_2680;
{ /* ./R5rs/hygiene.scm 80 */
bool_t BgL_testz00_2681;
if(
PAIRP(BgL_arg1169z00_366))
{ /* ./R5rs/hygiene.scm 80 */
BgL_testz00_2681 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 80 */
BgL_testz00_2681 = 
NULLP(BgL_arg1169z00_366)
; } 
if(BgL_testz00_2681)
{ /* ./R5rs/hygiene.scm 80 */
BgL_auxz00_2680 = BgL_arg1169z00_366
; }  else 
{ /* ./R5rs/hygiene.scm 80 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1169z00_366, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3063))); 
exit( -1 );} } 
BgL_aux2862z00_1704 = 
bgl_append2(BgL_auxz00_2680, BgL_arg1171z00_367); } } }  else 
{ /* ./R5rs/hygiene.scm 79 */
if(
SYMBOLP(BgL_pz00_4))
{ /* ./R5rs/hygiene.scm 82 */
{ /* ./R5rs/hygiene.scm 83 */
bool_t BgL_test1186z00_373;
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_auxz00_2691;
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_auxz00_2692;
{ /* ./R5rs/hygiene.scm 83 */
bool_t BgL_testz00_2693;
if(
PAIRP(BgL_kz00_6))
{ /* ./R5rs/hygiene.scm 83 */
BgL_testz00_2693 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 83 */
BgL_testz00_2693 = 
NULLP(BgL_kz00_6)
; } 
if(BgL_testz00_2693)
{ /* ./R5rs/hygiene.scm 83 */
BgL_auxz00_2692 = BgL_kz00_6
; }  else 
{ /* ./R5rs/hygiene.scm 83 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_kz00_6, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3207))); 
exit( -1 );} } 
BgL_auxz00_2691 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_4, BgL_auxz00_2692); } 
BgL_test1186z00_373 = 
CBOOL(BgL_auxz00_2691); } 
if(BgL_test1186z00_373)
{ /* ./R5rs/hygiene.scm 83 */
BgL_aux2862z00_1704 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_arg1188z00_374;
BgL_arg1188z00_374 = 
MAKE_PAIR(BgL_pz00_4, BgL_ez00_5); 
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_list1190z00_375;
BgL_list1190z00_375 = 
MAKE_PAIR(BgL_arg1188z00_374, BNIL); 
{ /* ./R5rs/hygiene.scm 83 */
obj_t BgL_res2856z00_1132;
if(((bool_t)1))
{ /* ./R5rs/hygiene.scm 83 */
BgL_res2856z00_1132 = BgL_list1190z00_375; }  else 
{ /* ./R5rs/hygiene.scm 83 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5175z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_list1190z00_375, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3214))); 
exit( -1 );} 
BgL_aux2862z00_1704 = BgL_res2856z00_1132; } } } } }  else 
{ /* ./R5rs/hygiene.scm 82 */
BgL_aux2862z00_1704 = BNIL; } } } 
POP_TRACE(); 
return BgL_aux2862z00_1704;} } } } 
}



/* _r5rs-macro-get-bindings */
obj_t BGl__r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1752, obj_t BgL_pz00_1753, obj_t BgL_ez00_1754, obj_t BgL_kz00_1755)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 71 */
return 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_pz00_1753, BgL_ez00_1754, BgL_kz00_1755);} 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 92 */
obj_t BgL_symbol2867z00_1705;
BgL_symbol2867z00_1705 = BGl_symbol5178z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 92 */

PUSH_TRACE(BgL_symbol2867z00_1705); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 92 */
obj_t BgL_aux2866z00_1706;
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 92 */
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_arg1199z00_377;obj_t BgL_arg1200z00_378;
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_p0z00_379;
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_pairz00_1133;
if(
PAIRP(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 93 */
BgL_pairz00_1133 = BgL_pz00_7; }  else 
{ /* ./R5rs/hygiene.scm 93 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_7, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3586))); 
exit( -1 );} 
BgL_p0z00_379 = 
CAR(BgL_pairz00_1133); } 
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_nestingsz00_380;
BgL_nestingsz00_380 = 
BGl_getzd2ellipsiszd2nestingsz00zz__r5_macro_4_3_hygienez00(BgL_p0z00_379, BgL_kz00_9); 
{ /* ./R5rs/hygiene.scm 94 */
obj_t BgL_rrz00_381;
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_zc3anonymousza31307za3r5rszf2hygieneze2scmza3140ze3z93_1756;
{ 
int BgL_auxz00_2721;
BgL_auxz00_2721 = 
(int)(((long)1)); 
BgL_zc3anonymousza31307za3r5rszf2hygieneze2scmza3140ze3z93_1756 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza31307za3R5rszf2hygieneze2scmza3140ze3z93zz__r5_macro_4_3_hygienez00, BgL_auxz00_2721); } 
{ /* ./R5rs/hygiene.scm 95 */
int BgL_auxz00_2724;
BgL_auxz00_2724 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza31307za3r5rszf2hygieneze2scmza3140ze3z93_1756, BgL_auxz00_2724, BgL_nestingsz00_380); } 
BgL_rrz00_381 = 
BGl_somez00zz__r5_macro_4_3_hygienez00(BgL_zc3anonymousza31307za3r5rszf2hygieneze2scmza3140ze3z93_1756, BgL_rz00_8); } 
{ /* ./R5rs/hygiene.scm 95 */

if(
NULLP(BgL_rrz00_381))
{ /* ./R5rs/hygiene.scm 96 */
BgL_arg1199z00_377 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 96 */
obj_t BgL_head1013z00_384;
BgL_head1013z00_384 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1011z00_385;obj_t BgL_tail1014z00_386;
BgL_l1011z00_385 = BgL_rrz00_381; 
BgL_tail1014z00_386 = BgL_head1013z00_384; 
BgL_map1012z00_387:
{ /* ./R5rs/hygiene.scm 96 */
bool_t BgL_test1204z00_388;
BgL_test1204z00_388 = 
PAIRP(BgL_l1011z00_385); 
if(BgL_test1204z00_388)
{ /* ./R5rs/hygiene.scm 96 */
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_newtail1015z00_389;
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_arg1211z00_391;
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_riz00_393;
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_pairz00_1148;
if(BgL_test1204z00_388)
{ /* ./R5rs/hygiene.scm 97 */
BgL_pairz00_1148 = BgL_l1011z00_385; }  else 
{ /* ./R5rs/hygiene.scm 97 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1011z00_385, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3710))); 
exit( -1 );} 
BgL_riz00_393 = 
CAR(BgL_pairz00_1148); } 
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_arg1215z00_394;
{ /* ./R5rs/hygiene.scm 97 */
obj_t BgL_auxz00_2738;
{ /* ./R5rs/hygiene.scm 97 */
bool_t BgL_testz00_2739;
if(
PAIRP(BgL_riz00_393))
{ /* ./R5rs/hygiene.scm 97 */
BgL_testz00_2739 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 97 */
BgL_testz00_2739 = 
NULLP(BgL_riz00_393)
; } 
if(BgL_testz00_2739)
{ /* ./R5rs/hygiene.scm 97 */
BgL_auxz00_2738 = BgL_riz00_393
; }  else 
{ /* ./R5rs/hygiene.scm 97 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_riz00_393, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3740))); 
exit( -1 );} } 
BgL_arg1215z00_394 = 
bgl_append2(BgL_auxz00_2738, BgL_rz00_8); } 
BgL_arg1211z00_391 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_p0z00_379, BgL_arg1215z00_394, BgL_kz00_9); } } 
BgL_newtail1015z00_389 = 
MAKE_PAIR(BgL_arg1211z00_391, BNIL); } 
SET_CDR(BgL_tail1014z00_386, BgL_newtail1015z00_389); 
{ /* ./R5rs/hygiene.scm 96 */
obj_t BgL_arg1207z00_390;
{ /* ./R5rs/hygiene.scm 96 */
obj_t BgL_pairz00_1153;
if(
PAIRP(BgL_l1011z00_385))
{ /* ./R5rs/hygiene.scm 96 */
BgL_pairz00_1153 = BgL_l1011z00_385; }  else 
{ /* ./R5rs/hygiene.scm 96 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1011z00_385, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3687))); 
exit( -1 );} 
BgL_arg1207z00_390 = 
CDR(BgL_pairz00_1153); } 
{ 
obj_t BgL_tail1014z00_2757;obj_t BgL_l1011z00_2756;
BgL_l1011z00_2756 = BgL_arg1207z00_390; 
BgL_tail1014z00_2757 = BgL_newtail1015z00_389; 
BgL_tail1014z00_386 = BgL_tail1014z00_2757; 
BgL_l1011z00_385 = BgL_l1011z00_2756; 
goto BgL_map1012z00_387;} } } }  else 
{ /* ./R5rs/hygiene.scm 96 */
if(
NULLP(BgL_l1011z00_385))
{ /* ./R5rs/hygiene.scm 96 */
BgL_arg1199z00_377 = 
CDR(BgL_head1013z00_384); }  else 
{ /* ./R5rs/hygiene.scm 96 */
BgL_arg1199z00_377 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1011z00_385, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3687))); } } } } } } } } } 
{ /* ./R5rs/hygiene.scm 99 */
obj_t BgL_arg1230z00_396;
{ /* ./R5rs/hygiene.scm 99 */
obj_t BgL_pairz00_1159;
if(
PAIRP(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 99 */
BgL_pairz00_1159 = BgL_pz00_7; }  else 
{ /* ./R5rs/hygiene.scm 99 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_7, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3813))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 99 */
obj_t BgL_arg2609z00_1160;
BgL_arg2609z00_1160 = 
CDR(BgL_pairz00_1159); 
{ /* ./R5rs/hygiene.scm 99 */
obj_t BgL_pairz00_1162;
if(
PAIRP(BgL_arg2609z00_1160))
{ /* ./R5rs/hygiene.scm 99 */
BgL_pairz00_1162 = BgL_arg2609z00_1160; }  else 
{ /* ./R5rs/hygiene.scm 99 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1160, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3807))); 
exit( -1 );} 
BgL_arg1230z00_396 = 
CDR(BgL_pairz00_1162); } } } 
BgL_arg1200z00_378 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_arg1230z00_396, BgL_rz00_8, BgL_kz00_9); } 
{ /* ./R5rs/hygiene.scm 93 */
obj_t BgL_auxz00_2776;
{ /* ./R5rs/hygiene.scm 93 */
bool_t BgL_testz00_2777;
if(
PAIRP(BgL_arg1199z00_377))
{ /* ./R5rs/hygiene.scm 93 */
BgL_testz00_2777 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 93 */
BgL_testz00_2777 = 
NULLP(BgL_arg1199z00_377)
; } 
if(BgL_testz00_2777)
{ /* ./R5rs/hygiene.scm 93 */
BgL_auxz00_2776 = BgL_arg1199z00_377
; }  else 
{ /* ./R5rs/hygiene.scm 93 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1199z00_377, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3562))); 
exit( -1 );} } 
BgL_aux2866z00_1706 = 
bgl_append2(BgL_auxz00_2776, BgL_arg1200z00_378); } } }  else 
{ /* ./R5rs/hygiene.scm 100 */
bool_t BgL_test1233z00_397;
BgL_test1233z00_397 = 
PAIRP(BgL_pz00_7); 
if(BgL_test1233z00_397)
{ /* ./R5rs/hygiene.scm 100 */
{ /* ./R5rs/hygiene.scm 101 */
obj_t BgL_arg1235z00_398;obj_t BgL_arg1236z00_399;
{ /* ./R5rs/hygiene.scm 101 */
obj_t BgL_arg1240z00_400;
{ /* ./R5rs/hygiene.scm 101 */
obj_t BgL_pairz00_1164;
if(BgL_test1233z00_397)
{ /* ./R5rs/hygiene.scm 101 */
BgL_pairz00_1164 = BgL_pz00_7; }  else 
{ /* ./R5rs/hygiene.scm 101 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_7, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3885))); 
exit( -1 );} 
BgL_arg1240z00_400 = 
CAR(BgL_pairz00_1164); } 
BgL_arg1235z00_398 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_arg1240z00_400, BgL_rz00_8, BgL_kz00_9); } 
{ /* ./R5rs/hygiene.scm 102 */
obj_t BgL_arg1244z00_401;
{ /* ./R5rs/hygiene.scm 102 */
obj_t BgL_pairz00_1165;
if(BgL_test1233z00_397)
{ /* ./R5rs/hygiene.scm 102 */
BgL_pairz00_1165 = BgL_pz00_7; }  else 
{ /* ./R5rs/hygiene.scm 102 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_7, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3931))); 
exit( -1 );} 
BgL_arg1244z00_401 = 
CDR(BgL_pairz00_1165); } 
BgL_arg1236z00_399 = 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_arg1244z00_401, BgL_rz00_8, BgL_kz00_9); } 
BgL_aux2866z00_1706 = 
MAKE_PAIR(BgL_arg1235z00_398, BgL_arg1236z00_399); } }  else 
{ /* ./R5rs/hygiene.scm 100 */
if(
SYMBOLP(BgL_pz00_7))
{ /* ./R5rs/hygiene.scm 103 */
{ /* ./R5rs/hygiene.scm 104 */
bool_t BgL_test1248z00_403;
{ /* ./R5rs/hygiene.scm 104 */
obj_t BgL_auxz00_2802;
{ /* ./R5rs/hygiene.scm 104 */
obj_t BgL_auxz00_2803;
{ /* ./R5rs/hygiene.scm 104 */
bool_t BgL_testz00_2804;
if(
PAIRP(BgL_kz00_9))
{ /* ./R5rs/hygiene.scm 104 */
BgL_testz00_2804 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 104 */
BgL_testz00_2804 = 
NULLP(BgL_kz00_9)
; } 
if(BgL_testz00_2804)
{ /* ./R5rs/hygiene.scm 104 */
BgL_auxz00_2803 = BgL_kz00_9
; }  else 
{ /* ./R5rs/hygiene.scm 104 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_kz00_9, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3979))); 
exit( -1 );} } 
BgL_auxz00_2802 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_7, BgL_auxz00_2803); } 
BgL_test1248z00_403 = 
CBOOL(BgL_auxz00_2802); } 
if(BgL_test1248z00_403)
{ /* ./R5rs/hygiene.scm 104 */
BgL_aux2866z00_1706 = BgL_pz00_7; }  else 
{ /* ./R5rs/hygiene.scm 106 */
obj_t BgL_xz00_404;
{ /* ./R5rs/hygiene.scm 106 */
obj_t BgL_auxz00_2814;
{ /* ./R5rs/hygiene.scm 106 */
bool_t BgL_testz00_2815;
if(
PAIRP(BgL_rz00_8))
{ /* ./R5rs/hygiene.scm 106 */
BgL_testz00_2815 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 106 */
BgL_testz00_2815 = 
NULLP(BgL_rz00_8)
; } 
if(BgL_testz00_2815)
{ /* ./R5rs/hygiene.scm 106 */
BgL_auxz00_2814 = BgL_rz00_8
; }  else 
{ /* ./R5rs/hygiene.scm 106 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_rz00_8, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4009))); 
exit( -1 );} } 
BgL_xz00_404 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_7, BgL_auxz00_2814); } 
{ /* ./R5rs/hygiene.scm 107 */
bool_t BgL_test1249z00_405;
BgL_test1249z00_405 = 
PAIRP(BgL_xz00_404); 
if(BgL_test1249z00_405)
{ /* ./R5rs/hygiene.scm 108 */
obj_t BgL_pairz00_1168;
if(BgL_test1249z00_405)
{ /* ./R5rs/hygiene.scm 108 */
BgL_pairz00_1168 = BgL_xz00_404; }  else 
{ /* ./R5rs/hygiene.scm 108 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5178z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_404, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4044))); 
exit( -1 );} 
BgL_aux2866z00_1706 = 
CDR(BgL_pairz00_1168); }  else 
{ /* ./R5rs/hygiene.scm 107 */
BgL_aux2866z00_1706 = BgL_pz00_7; } } } } }  else 
{ /* ./R5rs/hygiene.scm 103 */
BgL_aux2866z00_1706 = BgL_pz00_7; } } } 
POP_TRACE(); 
return BgL_aux2866z00_1706;} } } } 
}



/* _r5rs-macro-expand-pattern */
obj_t BGl__r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1757, obj_t BgL_pz00_1758, obj_t BgL_rz00_1759, obj_t BgL_kz00_1760)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 90 */
return 
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_pz00_1758, BgL_rz00_1759, BgL_kz00_1760);} 
}



/* <anonymous:1307:R5rs/hygiene.scm:140> */
obj_t BGl_zc3anonymousza31307za3R5rszf2hygieneze2scmza3140ze3z93zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1761, obj_t BgL_cz00_1763)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 140 */
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_nestingsz00_1762;
{ /* ./R5rs/hygiene.scm 95 */
int BgL_auxz00_2832;
BgL_auxz00_2832 = 
(int)(((long)0)); 
BgL_nestingsz00_1762 = 
PROCEDURE_L_REF(BgL_envz00_1761, BgL_auxz00_2832); } 
{ 
obj_t BgL_cz00_1137;
BgL_cz00_1137 = BgL_cz00_1763; 
{ /* ./R5rs/hygiene.scm 95 */
bool_t BgL_test1308z00_1140;
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_arg1311z00_1141;
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_pairz00_1142;
if(
PAIRP(BgL_cz00_1137))
{ /* ./R5rs/hygiene.scm 95 */
BgL_pairz00_1142 = BgL_cz00_1137; }  else 
{ /* ./R5rs/hygiene.scm 95 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5179z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cz00_1137, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3650))); 
exit( -1 );} 
BgL_arg1311z00_1141 = 
CAR(BgL_pairz00_1142); } 
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_auxz00_2841;
BgL_auxz00_2841 = 
BGl_intersectzf3zf3zz__r5_macro_4_3_hygienez00(BgL_nestingsz00_1762, BgL_arg1311z00_1141); 
BgL_test1308z00_1140 = 
CBOOL(BgL_auxz00_2841); } } 
if(BgL_test1308z00_1140)
{ /* ./R5rs/hygiene.scm 95 */
obj_t BgL_pairz00_1143;
if(
PAIRP(BgL_cz00_1137))
{ /* ./R5rs/hygiene.scm 95 */
BgL_pairz00_1143 = BgL_cz00_1137; }  else 
{ /* ./R5rs/hygiene.scm 95 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5179z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cz00_1137, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)3650))); 
exit( -1 );} 
return 
CDR(BgL_pairz00_1143);}  else 
{ /* ./R5rs/hygiene.scm 95 */
return BFALSE;} } } } } 
}



/* get-ellipsis-nestings */
obj_t BGl_getzd2ellipsiszd2nestingsz00zz__r5_macro_4_3_hygienez00(obj_t BgL_pz00_10, obj_t BgL_kz00_11)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 116 */
{ /* ./R5rs/hygiene.scm 117 */
obj_t BgL_symbol2871z00_1707;
BgL_symbol2871z00_1707 = BGl_symbol5180z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 117 */

PUSH_TRACE(BgL_symbol2871z00_1707); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 117 */
obj_t BgL_aux2870z00_1708;
BgL_aux2870z00_1708 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_11, BgL_pz00_10); 
POP_TRACE(); 
return BgL_aux2870z00_1708;} } } } 
}



/* sub */
obj_t BGl_subz00zz__r5_macro_4_3_hygienez00(obj_t BgL_kz00_1787, obj_t BgL_pz00_406)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 117 */
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_hygienez00(BgL_pz00_406))
{ /* ./R5rs/hygiene.scm 119 */
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_arg1260z00_409;obj_t BgL_arg1261z00_410;
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_arg1265z00_411;
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_pairz00_1169;
if(
PAIRP(BgL_pz00_406))
{ /* ./R5rs/hygiene.scm 120 */
BgL_pairz00_1169 = BgL_pz00_406; }  else 
{ /* ./R5rs/hygiene.scm 120 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_406, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4408))); 
exit( -1 );} 
BgL_arg1265z00_411 = 
CAR(BgL_pairz00_1169); } 
BgL_arg1260z00_409 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1787, BgL_arg1265z00_411); } 
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_arg1269z00_412;
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_pairz00_1170;
if(
PAIRP(BgL_pz00_406))
{ /* ./R5rs/hygiene.scm 120 */
BgL_pairz00_1170 = BgL_pz00_406; }  else 
{ /* ./R5rs/hygiene.scm 120 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_406, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4423))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_arg2609z00_1171;
BgL_arg2609z00_1171 = 
CDR(BgL_pairz00_1170); 
{ /* ./R5rs/hygiene.scm 120 */
obj_t BgL_pairz00_1173;
if(
PAIRP(BgL_arg2609z00_1171))
{ /* ./R5rs/hygiene.scm 120 */
BgL_pairz00_1173 = BgL_arg2609z00_1171; }  else 
{ /* ./R5rs/hygiene.scm 120 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1171, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4417))); 
exit( -1 );} 
BgL_arg1269z00_412 = 
CDR(BgL_pairz00_1173); } } } 
BgL_arg1261z00_410 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1787, BgL_arg1269z00_412); } 
return 
MAKE_PAIR(BgL_arg1260z00_409, BgL_arg1261z00_410);} }  else 
{ /* ./R5rs/hygiene.scm 121 */
bool_t BgL_test1272z00_413;
BgL_test1272z00_413 = 
PAIRP(BgL_pz00_406); 
if(BgL_test1272z00_413)
{ /* ./R5rs/hygiene.scm 121 */
{ /* ./R5rs/hygiene.scm 122 */
obj_t BgL_arg1274z00_414;obj_t BgL_arg1275z00_415;
{ /* ./R5rs/hygiene.scm 122 */
obj_t BgL_arg1278z00_416;
{ /* ./R5rs/hygiene.scm 122 */
obj_t BgL_pairz00_1175;
if(BgL_test1272z00_413)
{ /* ./R5rs/hygiene.scm 122 */
BgL_pairz00_1175 = BgL_pz00_406; }  else 
{ /* ./R5rs/hygiene.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_406, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4463))); 
exit( -1 );} 
BgL_arg1278z00_416 = 
CAR(BgL_pairz00_1175); } 
BgL_arg1274z00_414 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1787, BgL_arg1278z00_416); } 
{ /* ./R5rs/hygiene.scm 122 */
obj_t BgL_arg1282z00_417;
{ /* ./R5rs/hygiene.scm 122 */
obj_t BgL_pairz00_1176;
if(BgL_test1272z00_413)
{ /* ./R5rs/hygiene.scm 122 */
BgL_pairz00_1176 = BgL_pz00_406; }  else 
{ /* ./R5rs/hygiene.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_pz00_406, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4477))); 
exit( -1 );} 
BgL_arg1282z00_417 = 
CDR(BgL_pairz00_1176); } 
BgL_arg1275z00_415 = 
BGl_subz00zz__r5_macro_4_3_hygienez00(BgL_kz00_1787, BgL_arg1282z00_417); } 
{ /* ./R5rs/hygiene.scm 122 */
obj_t BgL_auxz00_2891;
{ /* ./R5rs/hygiene.scm 122 */
bool_t BgL_testz00_2892;
if(
PAIRP(BgL_arg1274z00_414))
{ /* ./R5rs/hygiene.scm 122 */
BgL_testz00_2892 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 122 */
BgL_testz00_2892 = 
NULLP(BgL_arg1274z00_414)
; } 
if(BgL_testz00_2892)
{ /* ./R5rs/hygiene.scm 122 */
BgL_auxz00_2891 = BgL_arg1274z00_414
; }  else 
{ /* ./R5rs/hygiene.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1274z00_414, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4445))); 
exit( -1 );} } 
return 
bgl_append2(BgL_auxz00_2891, BgL_arg1275z00_415);} } }  else 
{ /* ./R5rs/hygiene.scm 121 */
if(
SYMBOLP(BgL_pz00_406))
{ /* ./R5rs/hygiene.scm 123 */
{ /* ./R5rs/hygiene.scm 124 */
bool_t BgL_test1286z00_419;
{ /* ./R5rs/hygiene.scm 124 */
obj_t BgL_auxz00_2902;
{ /* ./R5rs/hygiene.scm 124 */
obj_t BgL_auxz00_2903;
{ /* ./R5rs/hygiene.scm 124 */
bool_t BgL_testz00_2904;
if(
PAIRP(BgL_kz00_1787))
{ /* ./R5rs/hygiene.scm 124 */
BgL_testz00_2904 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 124 */
BgL_testz00_2904 = 
NULLP(BgL_kz00_1787)
; } 
if(BgL_testz00_2904)
{ /* ./R5rs/hygiene.scm 124 */
BgL_auxz00_2903 = BgL_kz00_1787
; }  else 
{ /* ./R5rs/hygiene.scm 124 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_kz00_1787, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4513))); 
exit( -1 );} } 
BgL_auxz00_2902 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_406, BgL_auxz00_2903); } 
BgL_test1286z00_419 = 
CBOOL(BgL_auxz00_2902); } 
if(BgL_test1286z00_419)
{ /* ./R5rs/hygiene.scm 124 */
return BNIL;}  else 
{ /* ./R5rs/hygiene.scm 124 */
obj_t BgL_list1288z00_420;
BgL_list1288z00_420 = 
MAKE_PAIR(BgL_pz00_406, BNIL); 
{ /* ./R5rs/hygiene.scm 124 */
obj_t BgL_res2857z00_1179;
if(((bool_t)1))
{ /* ./R5rs/hygiene.scm 124 */
BgL_res2857z00_1179 = BgL_list1288z00_420; }  else 
{ /* ./R5rs/hygiene.scm 124 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5181z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_list1288z00_420, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4520))); 
exit( -1 );} 
return BgL_res2857z00_1179;} } } }  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 */
{ /* ./R5rs/hygiene.scm 132 */
obj_t BgL_symbol2875z00_1709;
BgL_symbol2875z00_1709 = BGl_symbol5182z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 132 */

PUSH_TRACE(BgL_symbol2875z00_1709); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 132 */
bool_t BgL_aux2874z00_1710;
{ /* ./R5rs/hygiene.scm 132 */
bool_t BgL__andtest_1016z00_421;
BgL__andtest_1016z00_421 = 
PAIRP(BgL_xz00_12); 
if(BgL__andtest_1016z00_421)
{ /* ./R5rs/hygiene.scm 133 */
bool_t BgL__andtest_1017z00_422;
{ /* ./R5rs/hygiene.scm 133 */
obj_t BgL_arg1300z00_425;
{ /* ./R5rs/hygiene.scm 133 */
obj_t BgL_pairz00_1181;
if(BgL__andtest_1016z00_421)
{ /* ./R5rs/hygiene.scm 133 */
BgL_pairz00_1181 = BgL_xz00_12; }  else 
{ /* ./R5rs/hygiene.scm 133 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5182z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_12, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4826))); 
exit( -1 );} 
BgL_arg1300z00_425 = 
CDR(BgL_pairz00_1181); } 
BgL__andtest_1017z00_422 = 
PAIRP(BgL_arg1300z00_425); } 
if(BgL__andtest_1017z00_422)
{ /* ./R5rs/hygiene.scm 134 */
obj_t BgL_arg1295z00_423;obj_t BgL_arg1296z00_424;
{ /* ./R5rs/hygiene.scm 134 */
obj_t BgL_pairz00_1183;
if(
PAIRP(BgL_xz00_12))
{ /* ./R5rs/hygiene.scm 134 */
BgL_pairz00_1183 = BgL_xz00_12; }  else 
{ /* ./R5rs/hygiene.scm 134 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5182z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_12, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4842))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 134 */
obj_t BgL_arg2617z00_1184;
BgL_arg2617z00_1184 = 
CDR(BgL_pairz00_1183); 
{ /* ./R5rs/hygiene.scm 134 */
obj_t BgL_pairz00_1186;
if(
PAIRP(BgL_arg2617z00_1184))
{ /* ./R5rs/hygiene.scm 134 */
BgL_pairz00_1186 = BgL_arg2617z00_1184; }  else 
{ /* ./R5rs/hygiene.scm 134 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5182z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1184, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)4836))); 
exit( -1 );} 
BgL_arg1295z00_423 = 
CAR(BgL_pairz00_1186); } } } 
BgL_arg1296z00_424 = BGl_symbol5183z00zz__r5_macro_4_3_hygienez00; 
BgL_aux2874z00_1710 = 
(BgL_arg1295z00_423==BgL_arg1296z00_424); }  else 
{ /* ./R5rs/hygiene.scm 133 */
BgL_aux2874z00_1710 = ((bool_t)0); } }  else 
{ /* ./R5rs/hygiene.scm 132 */
BgL_aux2874z00_1710 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2874z00_1710;} } } } 
}



/* 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 */
obj_t BgL_symbol2879z00_1711;
BgL_symbol2879z00_1711 = BGl_symbol5184z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 146 */

PUSH_TRACE(BgL_symbol2879z00_1711); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 146 */
obj_t BgL_aux2878z00_1712;
{ /* ./R5rs/hygiene.scm 146 */
bool_t BgL_test1314z00_432;
if(
SYMBOLP(BgL_vz00_15))
{ /* ./R5rs/hygiene.scm 146 */
BgL_test1314z00_432 = ((bool_t)1); }  else 
{ /* ./R5rs/hygiene.scm 146 */
BgL_test1314z00_432 = 
SYMBOLP(BgL_yz00_16); } 
if(BgL_test1314z00_432)
{ /* ./R5rs/hygiene.scm 147 */
bool_t BgL_auxz00_2948;
BgL_auxz00_2948 = 
(BgL_vz00_15==BgL_yz00_16); 
BgL_aux2878z00_1712 = 
BBOOL(BgL_auxz00_2948); }  else 
{ /* ./R5rs/hygiene.scm 148 */
obj_t BgL_zc3anonymousza31319za3r5rszf2hygieneze2scmza3148ze3z93_1765;
{ 
int BgL_auxz00_2951;
BgL_auxz00_2951 = 
(int)(((long)1)); 
BgL_zc3anonymousza31319za3r5rszf2hygieneze2scmza3148ze3z93_1765 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza31319za3R5rszf2hygieneze2scmza3148ze3z93zz__r5_macro_4_3_hygienez00, BgL_auxz00_2951); } 
{ /* ./R5rs/hygiene.scm 148 */
int BgL_auxz00_2954;
BgL_auxz00_2954 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza31319za3r5rszf2hygieneze2scmza3148ze3z93_1765, BgL_auxz00_2954, BgL_yz00_16); } 
BgL_aux2878z00_1712 = 
BGl_somez00zz__r5_macro_4_3_hygienez00(BgL_zc3anonymousza31319za3r5rszf2hygieneze2scmza3148ze3z93_1765, BgL_vz00_15); } } 
POP_TRACE(); 
return BgL_aux2878z00_1712;} } } } 
}



/* <anonymous:1319:R5rs/hygiene.scm:148> */
obj_t BGl_zc3anonymousza31319za3R5rszf2hygieneze2scmza3148ze3z93zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1766, obj_t BgL_viz00_1768)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 148 */
{ /* ./R5rs/hygiene.scm 148 */
obj_t BgL_yz00_1767;
{ /* ./R5rs/hygiene.scm 148 */
int BgL_auxz00_2959;
BgL_auxz00_2959 = 
(int)(((long)0)); 
BgL_yz00_1767 = 
PROCEDURE_L_REF(BgL_envz00_1766, BgL_auxz00_2959); } 
{ 
obj_t BgL_viz00_434;
BgL_viz00_434 = BgL_viz00_1768; 
{ /* ./R5rs/hygiene.scm 148 */
obj_t BgL_zc3anonymousza31323za3r5rszf2hygieneze2scmza3148ze3z93_1764;
{ 
int BgL_auxz00_2962;
BgL_auxz00_2962 = 
(int)(((long)1)); 
BgL_zc3anonymousza31323za3r5rszf2hygieneze2scmza3148ze3z93_1764 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza31323za3R5rszf2hygieneze2scmza3148ze3z93zz__r5_macro_4_3_hygienez00, BgL_auxz00_2962); } 
{ /* ./R5rs/hygiene.scm 148 */
int BgL_auxz00_2965;
BgL_auxz00_2965 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza31323za3r5rszf2hygieneze2scmza3148ze3z93_1764, BgL_auxz00_2965, BgL_viz00_434); } 
return 
BGl_somez00zz__r5_macro_4_3_hygienez00(BgL_zc3anonymousza31323za3r5rszf2hygieneze2scmza3148ze3z93_1764, BgL_yz00_1767);} } } } 
}



/* <anonymous:1323:R5rs/hygiene.scm:148> */
obj_t BGl_zc3anonymousza31323za3R5rszf2hygieneze2scmza3148ze3z93zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1769, obj_t BgL_yjz00_1771)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 148 */
{ /* ./R5rs/hygiene.scm 148 */
obj_t BgL_viz00_1770;
{ /* ./R5rs/hygiene.scm 148 */
int BgL_auxz00_2969;
BgL_auxz00_2969 = 
(int)(((long)0)); 
BgL_viz00_1770 = 
PROCEDURE_L_REF(BgL_envz00_1769, BgL_auxz00_2969); } 
{ 
obj_t BgL_yjz00_1198;
BgL_yjz00_1198 = BgL_yjz00_1771; 
return 
BGl_intersectzf3zf3zz__r5_macro_4_3_hygienez00(BgL_viz00_1770, BgL_yjz00_1198);} } } 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 154 */
obj_t BgL_symbol2883z00_1713;
BgL_symbol2883z00_1713 = BGl_symbol5185z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 154 */

PUSH_TRACE(BgL_symbol2883z00_1713); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 154 */
obj_t BgL_aux2882z00_1714;
{ /* ./R5rs/hygiene.scm 154 */
obj_t BgL_aux3444z00_1874;
BgL_aux3444z00_1874 = 
BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(BgL_ez00_17, BNIL); 
{ /* ./R5rs/hygiene.scm 154 */
bool_t BgL_testz00_2975;
if(
PAIRP(BgL_aux3444z00_1874))
{ /* ./R5rs/hygiene.scm 154 */
BgL_testz00_2975 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 154 */
BgL_testz00_2975 = 
NULLP(BgL_aux3444z00_1874)
; } 
if(BgL_testz00_2975)
{ /* ./R5rs/hygiene.scm 154 */
BgL_aux2882z00_1714 = BgL_aux3444z00_1874; }  else 
{ /* ./R5rs/hygiene.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5185z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_aux3444z00_1874, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)5821))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2882z00_1714;} } } } 
}



/* loop'' */
obj_t BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_442, obj_t BgL_rz00_443)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 154 */
BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00:
{ /* ./R5rs/hygiene.scm 155 */
bool_t BgL_test1329z00_445;
BgL_test1329z00_445 = 
PAIRP(BgL_ez00_442); 
if(BgL_test1329z00_445)
{ /* ./R5rs/hygiene.scm 155 */
{ /* ./R5rs/hygiene.scm 155 */
obj_t BgL_arg1331z00_446;obj_t BgL_arg1332z00_447;
{ /* ./R5rs/hygiene.scm 155 */
obj_t BgL_pairz00_1200;
if(BgL_test1329z00_445)
{ /* ./R5rs/hygiene.scm 155 */
BgL_pairz00_1200 = BgL_ez00_442; }  else 
{ /* ./R5rs/hygiene.scm 155 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5186z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_442, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)5881))); 
exit( -1 );} 
BgL_arg1331z00_446 = 
CAR(BgL_pairz00_1200); } 
{ /* ./R5rs/hygiene.scm 155 */
obj_t BgL_arg1336z00_448;
{ /* ./R5rs/hygiene.scm 155 */
obj_t BgL_pairz00_1201;
if(BgL_test1329z00_445)
{ /* ./R5rs/hygiene.scm 155 */
BgL_pairz00_1201 = BgL_ez00_442; }  else 
{ /* ./R5rs/hygiene.scm 155 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5186z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_442, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)5895))); 
exit( -1 );} 
BgL_arg1336z00_448 = 
CDR(BgL_pairz00_1201); } 
BgL_arg1332z00_447 = 
BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00(BgL_arg1336z00_448, BgL_rz00_443); } 
{ 
obj_t BgL_rz00_2997;obj_t BgL_ez00_2996;
BgL_ez00_2996 = BgL_arg1331z00_446; 
BgL_rz00_2997 = BgL_arg1332z00_447; 
BgL_rz00_443 = BgL_rz00_2997; 
BgL_ez00_442 = BgL_ez00_2996; 
goto BGl_loopz72z72z00zz__r5_macro_4_3_hygienez00;} } }  else 
{ /* ./R5rs/hygiene.scm 155 */
if(
NULLP(BgL_ez00_442))
{ /* ./R5rs/hygiene.scm 156 */
return BgL_rz00_443;}  else 
{ /* ./R5rs/hygiene.scm 156 */
return 
MAKE_PAIR(BgL_ez00_442, BgL_rz00_443);} } } } 
}



/* _r5rs-hygiene-flatten */
obj_t BGl__r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1772, obj_t BgL_ez00_1773)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 153 */
{ /* ./R5rs/hygiene.scm 154 */
obj_t BgL_auxz00_3001;
{ /* ./R5rs/hygiene.scm 154 */
bool_t BgL_testz00_3002;
if(
PAIRP(BgL_ez00_1773))
{ /* ./R5rs/hygiene.scm 154 */
BgL_testz00_3002 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 154 */
BgL_testz00_3002 = 
NULLP(BgL_ez00_1773)
; } 
if(BgL_testz00_3002)
{ /* ./R5rs/hygiene.scm 154 */
BgL_auxz00_3001 = BgL_ez00_1773
; }  else 
{ /* ./R5rs/hygiene.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5187z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_ez00_1773, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)5821))); 
exit( -1 );} } 
return 
BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_3001);} } 
}



/* 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 179 */
obj_t BgL_symbol2887z00_1715;
BgL_symbol2887z00_1715 = BGl_symbol5188z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 179 */

PUSH_TRACE(BgL_symbol2887z00_1715); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 179 */
obj_t BgL_aux2886z00_1716;
{ /* ./R5rs/hygiene.scm 180 */
obj_t BgL_rz00_451;
BgL_rz00_451 = 
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_452;obj_t BgL_val1_1020z00_453;
BgL_val0_1019z00_452 = 
CAR(BgL_rz00_451); 
BgL_val1_1020z00_453 = 
CDR(BgL_rz00_451); 
{ /* ./R5rs/hygiene.scm 181 */
int BgL_auxz00_3014;
BgL_auxz00_3014 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_3014); } 
{ /* ./R5rs/hygiene.scm 181 */
int BgL_auxz00_3017;
BgL_auxz00_3017 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_3017, BgL_val1_1020z00_453); } 
BgL_aux2886z00_1716 = BgL_val0_1019z00_452; } } 
POP_TRACE(); 
return BgL_aux2886z00_1716;} } } } 
}



/* hygiene-tag-inner */
obj_t BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(obj_t BgL_ez00_454, obj_t BgL_kkz00_455, obj_t BgL_alz00_456)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 179 */
{ /* ./R5rs/hygiene.scm 164 */
bool_t BgL_test1349z00_458;
BgL_test1349z00_458 = 
PAIRP(BgL_ez00_454); 
if(BgL_test1349z00_458)
{ /* ./R5rs/hygiene.scm 164 */
{ /* ./R5rs/hygiene.scm 165 */
obj_t BgL_azd2tezd2alz00_459;
{ /* ./R5rs/hygiene.scm 165 */
obj_t BgL_arg1370z00_467;
{ /* ./R5rs/hygiene.scm 165 */
obj_t BgL_pairz00_1209;
if(BgL_test1349z00_458)
{ /* ./R5rs/hygiene.scm 165 */
BgL_pairz00_1209 = BgL_ez00_454; }  else 
{ /* ./R5rs/hygiene.scm 165 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5189z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_454, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6314))); 
exit( -1 );} 
BgL_arg1370z00_467 = 
CAR(BgL_pairz00_1209); } 
BgL_azd2tezd2alz00_459 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(BgL_arg1370z00_467, BgL_kkz00_455, BgL_alz00_456); } 
{ /* ./R5rs/hygiene.scm 165 */
obj_t BgL_dzd2tezd2alz00_460;
{ /* ./R5rs/hygiene.scm 166 */
obj_t BgL_arg1364z00_465;obj_t BgL_arg1365z00_466;
{ /* ./R5rs/hygiene.scm 166 */
obj_t BgL_pairz00_1210;
if(
PAIRP(BgL_ez00_454))
{ /* ./R5rs/hygiene.scm 166 */
BgL_pairz00_1210 = BgL_ez00_454; }  else 
{ /* ./R5rs/hygiene.scm 166 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5189z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_454, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6364))); 
exit( -1 );} 
BgL_arg1364z00_465 = 
CDR(BgL_pairz00_1210); } 
BgL_arg1365z00_466 = 
CDR(BgL_azd2tezd2alz00_459); 
BgL_dzd2tezd2alz00_460 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(BgL_arg1364z00_465, BgL_kkz00_455, BgL_arg1365z00_466); } 
{ /* ./R5rs/hygiene.scm 166 */

{ /* ./R5rs/hygiene.scm 167 */
obj_t BgL_arg1352z00_461;obj_t BgL_arg1354z00_462;
{ /* ./R5rs/hygiene.scm 167 */
obj_t BgL_auxz00_3039;obj_t BgL_auxz00_3037;
BgL_auxz00_3039 = 
CAR(BgL_dzd2tezd2alz00_460); 
BgL_auxz00_3037 = 
CAR(BgL_azd2tezd2alz00_459); 
BgL_arg1352z00_461 = 
MAKE_PAIR(BgL_auxz00_3037, BgL_auxz00_3039); } 
BgL_arg1354z00_462 = 
CDR(BgL_dzd2tezd2alz00_460); 
return 
MAKE_PAIR(BgL_arg1352z00_461, BgL_arg1354z00_462);} } } } }  else 
{ /* ./R5rs/hygiene.scm 169 */
bool_t BgL_test1373z00_468;
BgL_test1373z00_468 = 
VECTORP(BgL_ez00_454); 
if(BgL_test1373z00_468)
{ /* ./R5rs/hygiene.scm 169 */
{ /* ./R5rs/hygiene.scm 170 */
obj_t BgL_rz00_469;
{ /* ./R5rs/hygiene.scm 170 */
obj_t BgL_arg1385z00_473;
{ /* ./R5rs/hygiene.scm 170 */
obj_t BgL_auxz00_3046;
if(BgL_test1373z00_468)
{ /* ./R5rs/hygiene.scm 170 */
BgL_auxz00_3046 = BgL_ez00_454
; }  else 
{ /* ./R5rs/hygiene.scm 170 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5189z00zz__r5_macro_4_3_hygienez00, BGl_string5190z00zz__r5_macro_4_3_hygienez00, BgL_ez00_454, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6521))); 
exit( -1 );} 
BgL_arg1385z00_473 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_auxz00_3046); } 
BgL_rz00_469 = 
BGl_hygienezd2tagzd2innerz00zz__r5_macro_4_3_hygienez00(BgL_arg1385z00_473, BgL_kkz00_455, BgL_alz00_456); } 
{ /* ./R5rs/hygiene.scm 171 */
obj_t BgL_auxz00_3056;obj_t BgL_auxz00_3053;
BgL_auxz00_3056 = 
CDR(BgL_rz00_469); 
BgL_auxz00_3053 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(
CAR(BgL_rz00_469)); 
return 
MAKE_PAIR(BgL_auxz00_3053, BgL_auxz00_3056);} } }  else 
{ /* ./R5rs/hygiene.scm 169 */
if(
SYMBOLP(BgL_ez00_454))
{ /* ./R5rs/hygiene.scm 172 */
if(
(BgL_ez00_454==BGl_symbol5183z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 173 */
return 
MAKE_PAIR(BGl_symbol5183z00zz__r5_macro_4_3_hygienez00, BgL_alz00_456);}  else 
{ /* ./R5rs/hygiene.scm 174 */
bool_t BgL_test1391z00_476;
{ /* ./R5rs/hygiene.scm 174 */
obj_t BgL_auxz00_3064;
{ /* ./R5rs/hygiene.scm 174 */
obj_t BgL_auxz00_3065;
{ /* ./R5rs/hygiene.scm 174 */
bool_t BgL_testz00_3066;
if(
PAIRP(BgL_kkz00_455))
{ /* ./R5rs/hygiene.scm 174 */
BgL_testz00_3066 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 174 */
BgL_testz00_3066 = 
NULLP(BgL_kkz00_455)
; } 
if(BgL_testz00_3066)
{ /* ./R5rs/hygiene.scm 174 */
BgL_auxz00_3065 = BgL_kkz00_455
; }  else 
{ /* ./R5rs/hygiene.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5189z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_kkz00_455, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6650))); 
exit( -1 );} } 
BgL_auxz00_3064 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_454, BgL_auxz00_3065); } 
BgL_test1391z00_476 = 
CBOOL(BgL_auxz00_3064); } 
if(BgL_test1391z00_476)
{ /* ./R5rs/hygiene.scm 174 */
return 
MAKE_PAIR(BgL_ez00_454, BgL_alz00_456);}  else 
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_testzd2resultzd2_477;
BgL_testzd2resultzd2_477 = 
BGl_hygienezd2rassqzd2zz__r5_macro_4_3_hygienez00(BgL_ez00_454, BgL_alz00_456); 
{ 

if(
CBOOL(BgL_testzd2resultzd2_477))
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_arg1398z00_1221;
{ /* ./R5rs/hygiene.scm 175 */
obj_t BgL_pairz00_1222;
if(
PAIRP(BgL_testzd2resultzd2_477))
{ /* ./R5rs/hygiene.scm 175 */
BgL_pairz00_1222 = BgL_testzd2resultzd2_477; }  else 
{ /* ./R5rs/hygiene.scm 175 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5189z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_testzd2resultzd2_477, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6672))); 
exit( -1 );} 
BgL_arg1398z00_1221 = 
CAR(BgL_pairz00_1222); } 
return 
MAKE_PAIR(BgL_arg1398z00_1221, BgL_alz00_456);}  else 
{ /* ./R5rs/hygiene.scm 175 */
{ /* ./R5rs/hygiene.scm 177 */
obj_t BgL_tez00_485;
{ /* ./R5rs/hygiene.scm 177 */
obj_t BgL_funz00_1892;
{ /* ./R5rs/hygiene.scm 177 */
obj_t BgL_aux3527z00_1890;
BgL_aux3527z00_1890 = BGl_gensymz00zz__r4_symbols_6_4z00; 
if(
PROCEDUREP(BgL_aux3527z00_1890))
{ /* ./R5rs/hygiene.scm 177 */
BgL_funz00_1892 = BgL_aux3527z00_1890; }  else 
{ /* ./R5rs/hygiene.scm 177 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5189z00zz__r5_macro_4_3_hygienez00, BGl_string5191z00zz__r5_macro_4_3_hygienez00, BgL_aux3527z00_1890, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6755))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1892, ((long)0)))
{ /* ./R5rs/hygiene.scm 177 */
BgL_tez00_485 = 
PROCEDURE_ENTRY(BgL_funz00_1892)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); }  else 
{ /* ./R5rs/hygiene.scm 177 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string5192z00zz__r5_macro_4_3_hygienez00, BGl_list5193z00zz__r5_macro_4_3_hygienez00, BgL_funz00_1892, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)6755))); 
FAILURE(BGl_symbol5196z00zz__r5_macro_4_3_hygienez00,BGl_symbol5196z00zz__r5_macro_4_3_hygienez00,BGl_symbol5196z00zz__r5_macro_4_3_hygienez00);} } 
{ /* ./R5rs/hygiene.scm 178 */
obj_t BgL_arg1403z00_486;
{ /* ./R5rs/hygiene.scm 178 */
obj_t BgL_arg1406z00_487;
BgL_arg1406z00_487 = 
MAKE_PAIR(BgL_tez00_485, BgL_ez00_454); 
BgL_arg1403z00_486 = 
MAKE_PAIR(BgL_arg1406z00_487, BgL_alz00_456); } 
return 
MAKE_PAIR(BgL_tez00_485, BgL_arg1403z00_486);} } } } } } }  else 
{ /* ./R5rs/hygiene.scm 172 */
return 
MAKE_PAIR(BgL_ez00_454, BgL_alz00_456);} } } } } 
}



/* _r5rs-hygiene-tag */
obj_t BGl__r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1774, obj_t BgL_ez00_1775, obj_t BgL_kkz00_1776, obj_t BgL_alz00_1777)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 162 */
return 
BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(BgL_ez00_1775, BgL_kkz00_1776, BgL_alz00_1777);} 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 187 */
obj_t BgL_symbol2891z00_1717;
BgL_symbol2891z00_1717 = BGl_symbol5197z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 187 */

PUSH_TRACE(BgL_symbol2891z00_1717); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 187 */
obj_t BgL_aux2890z00_1718;
{ /* ./R5rs/hygiene.scm 187 */
bool_t BgL_test1416z00_491;
BgL_test1416z00_491 = 
PAIRP(BgL_ez00_21); 
if(BgL_test1416z00_491)
{ /* ./R5rs/hygiene.scm 188 */
obj_t BgL_az00_492;
{ /* ./R5rs/hygiene.scm 188 */
obj_t BgL_arg1684z00_625;
{ /* ./R5rs/hygiene.scm 188 */
obj_t BgL_pairz00_1227;
if(BgL_test1416z00_491)
{ /* ./R5rs/hygiene.scm 188 */
BgL_pairz00_1227 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 188 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7232))); 
exit( -1 );} 
BgL_arg1684z00_625 = 
CAR(BgL_pairz00_1227); } 
BgL_az00_492 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg1684z00_625, 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_492, BGl_symbol5198z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 191 */
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(BgL_ez00_21, BgL_alz00_22); }  else 
{ /* ./R5rs/hygiene.scm 191 */
bool_t BgL_testz00_3118;
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_3119;
BgL_auxz00_3119 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_az00_492, BGl_list5199z00zz__r5_macro_4_3_hygienez00); 
BgL_testz00_3118 = 
CBOOL(BgL_auxz00_3119); } 
if(BgL_testz00_3118)
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_arg1422z00_497;
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_arg1425z00_498;
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_l1021z00_500;
{ /* ./R5rs/hygiene.scm 195 */
obj_t BgL_pairz00_1228;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 195 */
BgL_pairz00_1228 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 195 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7411))); 
exit( -1 );} 
BgL_l1021z00_500 = 
CDR(BgL_pairz00_1228); } 
if(
NULLP(BgL_l1021z00_500))
{ /* ./R5rs/hygiene.scm 194 */
BgL_arg1425z00_498 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_head1023z00_502;
BgL_head1023z00_502 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1021z00_503;obj_t BgL_tail1024z00_504;
BgL_l1021z00_503 = BgL_l1021z00_500; 
BgL_tail1024z00_504 = BgL_head1023z00_502; 
BgL_map1022z00_505:
{ /* ./R5rs/hygiene.scm 194 */
bool_t BgL_test1430z00_506;
BgL_test1430z00_506 = 
PAIRP(BgL_l1021z00_503); 
if(BgL_test1430z00_506)
{ /* ./R5rs/hygiene.scm 194 */
{ /* ./R5rs/hygiene.scm 195 */
obj_t BgL_newtail1025z00_507;
{ /* ./R5rs/hygiene.scm 195 */
obj_t BgL_arg1437z00_509;
{ /* ./R5rs/hygiene.scm 195 */
obj_t BgL_e1z00_511;
{ /* ./R5rs/hygiene.scm 195 */
obj_t BgL_pairz00_1233;
if(BgL_test1430z00_506)
{ /* ./R5rs/hygiene.scm 195 */
BgL_pairz00_1233 = BgL_l1021z00_503; }  else 
{ /* ./R5rs/hygiene.scm 195 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1021z00_503, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7373))); 
exit( -1 );} 
BgL_e1z00_511 = 
CAR(BgL_pairz00_1233); } 
BgL_arg1437z00_509 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_e1z00_511, BgL_alz00_22, BgL_tmpsz00_23); } 
BgL_newtail1025z00_507 = 
MAKE_PAIR(BgL_arg1437z00_509, BNIL); } 
SET_CDR(BgL_tail1024z00_504, BgL_newtail1025z00_507); 
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_arg1433z00_508;
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_pairz00_1238;
if(
PAIRP(BgL_l1021z00_503))
{ /* ./R5rs/hygiene.scm 194 */
BgL_pairz00_1238 = BgL_l1021z00_503; }  else 
{ /* ./R5rs/hygiene.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1021z00_503, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7350))); 
exit( -1 );} 
BgL_arg1433z00_508 = 
CDR(BgL_pairz00_1238); } 
{ 
obj_t BgL_tail1024z00_3148;obj_t BgL_l1021z00_3147;
BgL_l1021z00_3147 = BgL_arg1433z00_508; 
BgL_tail1024z00_3148 = BgL_newtail1025z00_507; 
BgL_tail1024z00_504 = BgL_tail1024z00_3148; 
BgL_l1021z00_503 = BgL_l1021z00_3147; 
goto BgL_map1022z00_505;} } } }  else 
{ /* ./R5rs/hygiene.scm 194 */
if(
NULLP(BgL_l1021z00_503))
{ /* ./R5rs/hygiene.scm 194 */
BgL_arg1425z00_498 = 
CDR(BgL_head1023z00_502); }  else 
{ /* ./R5rs/hygiene.scm 194 */
BgL_arg1425z00_498 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1021z00_503, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7350))); } } } } } } 
{ /* ./R5rs/hygiene.scm 194 */
obj_t BgL_auxz00_3154;
{ /* ./R5rs/hygiene.scm 194 */
bool_t BgL_testz00_3155;
if(
PAIRP(BgL_arg1425z00_498))
{ /* ./R5rs/hygiene.scm 194 */
BgL_testz00_3155 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 194 */
BgL_testz00_3155 = 
NULLP(BgL_arg1425z00_498)
; } 
if(BgL_testz00_3155)
{ /* ./R5rs/hygiene.scm 194 */
BgL_auxz00_3154 = BgL_arg1425z00_498
; }  else 
{ /* ./R5rs/hygiene.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1425z00_498, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7344))); 
exit( -1 );} } 
BgL_arg1422z00_497 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3154, BNIL); } } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_az00_492, BgL_arg1422z00_497); }  else 
{ /* ./R5rs/hygiene.scm 191 */
bool_t BgL_testz00_3164;
{ /* ./R5rs/hygiene.scm 191 */
obj_t BgL_auxz00_3165;
BgL_auxz00_3165 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_az00_492, BGl_list5202z00zz__r5_macro_4_3_hygienez00); 
BgL_testz00_3164 = 
CBOOL(BgL_auxz00_3165); } 
if(BgL_testz00_3164)
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_arg1452z00_514;
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_arg1455z00_515;obj_t BgL_arg1456z00_516;
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_arg1459z00_517;
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_pairz00_1244;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 197 */
BgL_pairz00_1244 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7474))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_arg2617z00_1245;
BgL_arg2617z00_1245 = 
CDR(BgL_pairz00_1244); 
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_pairz00_1247;
if(
PAIRP(BgL_arg2617z00_1245))
{ /* ./R5rs/hygiene.scm 197 */
BgL_pairz00_1247 = BgL_arg2617z00_1245; }  else 
{ /* ./R5rs/hygiene.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1245, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7468))); 
exit( -1 );} 
BgL_arg1459z00_517 = 
CAR(BgL_pairz00_1247); } } } 
BgL_arg1455z00_515 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_arg1459z00_517, BgL_alz00_22, BgL_tmpsz00_23); } 
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_arg1463z00_518;
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_l1026z00_520;
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_pairz00_1248;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 199 */
BgL_pairz00_1248 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7559))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_arg2609z00_1249;
BgL_arg2609z00_1249 = 
CDR(BgL_pairz00_1248); 
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_pairz00_1251;
if(
PAIRP(BgL_arg2609z00_1249))
{ /* ./R5rs/hygiene.scm 199 */
BgL_pairz00_1251 = BgL_arg2609z00_1249; }  else 
{ /* ./R5rs/hygiene.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1249, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7553))); 
exit( -1 );} 
BgL_l1026z00_520 = 
CDR(BgL_pairz00_1251); } } } 
if(
NULLP(BgL_l1026z00_520))
{ /* ./R5rs/hygiene.scm 198 */
BgL_arg1463z00_518 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_head1028z00_522;
BgL_head1028z00_522 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1026z00_523;obj_t BgL_tail1029z00_524;
BgL_l1026z00_523 = BgL_l1026z00_520; 
BgL_tail1029z00_524 = BgL_head1028z00_522; 
BgL_map1027z00_525:
{ /* ./R5rs/hygiene.scm 198 */
bool_t BgL_test1468z00_526;
BgL_test1468z00_526 = 
PAIRP(BgL_l1026z00_523); 
if(BgL_test1468z00_526)
{ /* ./R5rs/hygiene.scm 198 */
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_newtail1030z00_527;
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_arg1475z00_529;
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_e1z00_531;
{ /* ./R5rs/hygiene.scm 199 */
obj_t BgL_pairz00_1256;
if(BgL_test1468z00_526)
{ /* ./R5rs/hygiene.scm 199 */
BgL_pairz00_1256 = BgL_l1026z00_523; }  else 
{ /* ./R5rs/hygiene.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1026z00_523, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7520))); 
exit( -1 );} 
BgL_e1z00_531 = 
CAR(BgL_pairz00_1256); } 
BgL_arg1475z00_529 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_e1z00_531, BgL_alz00_22, BgL_tmpsz00_23); } 
BgL_newtail1030z00_527 = 
MAKE_PAIR(BgL_arg1475z00_529, BNIL); } 
SET_CDR(BgL_tail1029z00_524, BgL_newtail1030z00_527); 
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_arg1471z00_528;
{ /* ./R5rs/hygiene.scm 198 */
obj_t BgL_pairz00_1261;
if(
PAIRP(BgL_l1026z00_523))
{ /* ./R5rs/hygiene.scm 198 */
BgL_pairz00_1261 = BgL_l1026z00_523; }  else 
{ /* ./R5rs/hygiene.scm 198 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1026z00_523, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7497))); 
exit( -1 );} 
BgL_arg1471z00_528 = 
CDR(BgL_pairz00_1261); } 
{ 
obj_t BgL_tail1029z00_3213;obj_t BgL_l1026z00_3212;
BgL_l1026z00_3212 = BgL_arg1471z00_528; 
BgL_tail1029z00_3213 = BgL_newtail1030z00_527; 
BgL_tail1029z00_524 = BgL_tail1029z00_3213; 
BgL_l1026z00_523 = BgL_l1026z00_3212; 
goto BgL_map1027z00_525;} } } }  else 
{ /* ./R5rs/hygiene.scm 198 */
if(
NULLP(BgL_l1026z00_523))
{ /* ./R5rs/hygiene.scm 198 */
BgL_arg1463z00_518 = 
CDR(BgL_head1028z00_522); }  else 
{ /* ./R5rs/hygiene.scm 198 */
BgL_arg1463z00_518 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1026z00_523, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7497))); } } } } } } 
{ /* ./R5rs/hygiene.scm 197 */
obj_t BgL_auxz00_3219;
{ /* ./R5rs/hygiene.scm 197 */
bool_t BgL_testz00_3220;
if(
PAIRP(BgL_arg1463z00_518))
{ /* ./R5rs/hygiene.scm 197 */
BgL_testz00_3220 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 197 */
BgL_testz00_3220 = 
NULLP(BgL_arg1463z00_518)
; } 
if(BgL_testz00_3220)
{ /* ./R5rs/hygiene.scm 197 */
BgL_auxz00_3219 = BgL_arg1463z00_518
; }  else 
{ /* ./R5rs/hygiene.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1463z00_518, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7440))); 
exit( -1 );} } 
BgL_arg1456z00_516 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3219, BNIL); } } 
BgL_arg1452z00_514 = 
MAKE_PAIR(BgL_arg1455z00_515, BgL_arg1456z00_516); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_az00_492, BgL_arg1452z00_514); }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5205z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1490z00_534;obj_t BgL_arg1491z00_535;
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_pairz00_1267;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 201 */
BgL_pairz00_1267 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7610))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg2617z00_1268;
BgL_arg2617z00_1268 = 
CDR(BgL_pairz00_1267); 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_pairz00_1270;
if(
PAIRP(BgL_arg2617z00_1268))
{ /* ./R5rs/hygiene.scm 201 */
BgL_pairz00_1270 = BgL_arg2617z00_1268; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1268, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7604))); 
exit( -1 );} 
BgL_arg1490z00_534 = 
CAR(BgL_pairz00_1270); } } } 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_pairz00_1271;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 201 */
BgL_pairz00_1271 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7619))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg2609z00_1272;
BgL_arg2609z00_1272 = 
CDR(BgL_pairz00_1271); 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_pairz00_1274;
if(
PAIRP(BgL_arg2609z00_1272))
{ /* ./R5rs/hygiene.scm 201 */
BgL_pairz00_1274 = BgL_arg2609z00_1272; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1272, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7613))); 
exit( -1 );} 
BgL_arg1491z00_535 = 
CDR(BgL_pairz00_1274); } } } 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_tmps2z00_1279;
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1771z00_1280;
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_auxz00_3256;
{ /* ./R5rs/hygiene.scm 201 */
bool_t BgL_testz00_3257;
if(
PAIRP(BgL_arg1490z00_534))
{ /* ./R5rs/hygiene.scm 201 */
BgL_testz00_3257 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BgL_testz00_3257 = 
NULLP(BgL_arg1490z00_534)
; } 
if(BgL_testz00_3257)
{ /* ./R5rs/hygiene.scm 201 */
BgL_auxz00_3256 = BgL_arg1490z00_534
; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1490z00_534, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7582))); 
exit( -1 );} } 
BgL_arg1771z00_1280 = 
BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_3256); } 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_auxz00_3265;
{ /* ./R5rs/hygiene.scm 201 */
bool_t BgL_testz00_3266;
if(
PAIRP(BgL_tmpsz00_23))
{ /* ./R5rs/hygiene.scm 201 */
BgL_testz00_3266 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BgL_testz00_3266 = 
NULLP(BgL_tmpsz00_23)
; } 
if(BgL_testz00_3266)
{ /* ./R5rs/hygiene.scm 201 */
BgL_auxz00_3265 = BgL_tmpsz00_23
; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_23, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7582))); 
exit( -1 );} } 
BgL_tmps2z00_1279 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1771z00_1280, BgL_auxz00_3265); } } 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1758z00_1281;obj_t BgL_arg1759z00_1282;
BgL_arg1758z00_1281 = BGl_symbol5205z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1762z00_1283;
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_arg1766z00_1284;
BgL_arg1766z00_1284 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1491z00_535, BgL_alz00_22, BgL_tmps2z00_1279); 
{ /* ./R5rs/hygiene.scm 201 */
obj_t BgL_auxz00_3275;
{ /* ./R5rs/hygiene.scm 201 */
bool_t BgL_testz00_3276;
if(
PAIRP(BgL_arg1766z00_1284))
{ /* ./R5rs/hygiene.scm 201 */
BgL_testz00_3276 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BgL_testz00_3276 = 
NULLP(BgL_arg1766z00_1284)
; } 
if(BgL_testz00_3276)
{ /* ./R5rs/hygiene.scm 201 */
BgL_auxz00_3275 = BgL_arg1766z00_1284
; }  else 
{ /* ./R5rs/hygiene.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1766z00_1284, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7582))); 
exit( -1 );} } 
BgL_arg1762z00_1283 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3275, BNIL); } } 
BgL_arg1759z00_1282 = 
MAKE_PAIR(BgL_arg1490z00_534, BgL_arg1762z00_1283); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_arg1758z00_1281, BgL_arg1759z00_1282); } } }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5206z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1497z00_537;obj_t BgL_arg1498z00_538;
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_pairz00_1286;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 203 */
BgL_pairz00_1286 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7683))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg2617z00_1287;
BgL_arg2617z00_1287 = 
CDR(BgL_pairz00_1286); 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_pairz00_1289;
if(
PAIRP(BgL_arg2617z00_1287))
{ /* ./R5rs/hygiene.scm 203 */
BgL_pairz00_1289 = BgL_arg2617z00_1287; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1287, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7677))); 
exit( -1 );} 
BgL_arg1497z00_537 = 
CAR(BgL_pairz00_1289); } } } 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_pairz00_1290;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 203 */
BgL_pairz00_1290 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7692))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg2609z00_1291;
BgL_arg2609z00_1291 = 
CDR(BgL_pairz00_1290); 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_pairz00_1293;
if(
PAIRP(BgL_arg2609z00_1291))
{ /* ./R5rs/hygiene.scm 203 */
BgL_pairz00_1293 = BgL_arg2609z00_1291; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1291, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7686))); 
exit( -1 );} 
BgL_arg1498z00_538 = 
CDR(BgL_pairz00_1293); } } } 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_tmps2z00_1298;
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1789z00_1299;
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_auxz00_3312;
{ /* ./R5rs/hygiene.scm 203 */
bool_t BgL_testz00_3313;
if(
PAIRP(BgL_arg1497z00_537))
{ /* ./R5rs/hygiene.scm 203 */
BgL_testz00_3313 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BgL_testz00_3313 = 
NULLP(BgL_arg1497z00_537)
; } 
if(BgL_testz00_3313)
{ /* ./R5rs/hygiene.scm 203 */
BgL_auxz00_3312 = BgL_arg1497z00_537
; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1497z00_537, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7652))); 
exit( -1 );} } 
BgL_arg1789z00_1299 = 
BGl_r5rszd2hygienezd2flattenz00zz__r5_macro_4_3_hygienez00(BgL_auxz00_3312); } 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_auxz00_3321;
{ /* ./R5rs/hygiene.scm 203 */
bool_t BgL_testz00_3322;
if(
PAIRP(BgL_tmpsz00_23))
{ /* ./R5rs/hygiene.scm 203 */
BgL_testz00_3322 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BgL_testz00_3322 = 
NULLP(BgL_tmpsz00_23)
; } 
if(BgL_testz00_3322)
{ /* ./R5rs/hygiene.scm 203 */
BgL_auxz00_3321 = BgL_tmpsz00_23
; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_23, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7652))); 
exit( -1 );} } 
BgL_tmps2z00_1298 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1789z00_1299, BgL_auxz00_3321); } } 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1775z00_1300;obj_t BgL_arg1776z00_1301;
BgL_arg1775z00_1300 = BGl_symbol5206z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1779z00_1302;obj_t BgL_arg1780z00_1303;
BgL_arg1779z00_1302 = 
MAKE_PAIR(BgL_arg1497z00_537, BNIL); 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_arg1784z00_1304;
BgL_arg1784z00_1304 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1498z00_538, BgL_alz00_22, BgL_tmps2z00_1298); 
{ /* ./R5rs/hygiene.scm 203 */
obj_t BgL_auxz00_3332;
{ /* ./R5rs/hygiene.scm 203 */
bool_t BgL_testz00_3333;
if(
PAIRP(BgL_arg1784z00_1304))
{ /* ./R5rs/hygiene.scm 203 */
BgL_testz00_3333 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BgL_testz00_3333 = 
NULLP(BgL_arg1784z00_1304)
; } 
if(BgL_testz00_3333)
{ /* ./R5rs/hygiene.scm 203 */
BgL_auxz00_3332 = BgL_arg1784z00_1304
; }  else 
{ /* ./R5rs/hygiene.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1784z00_1304, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7652))); 
exit( -1 );} } 
BgL_arg1780z00_1303 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3332, BNIL); } } 
BgL_arg1776z00_1301 = 
MAKE_PAIR(BgL_arg1779z00_1302, BgL_arg1780z00_1303); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_arg1775z00_1300, BgL_arg1776z00_1301); } } }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5207z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_arg1504z00_540;obj_t BgL_arg1505z00_541;
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_pairz00_1306;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 205 */
BgL_pairz00_1306 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7750))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_arg2617z00_1307;
BgL_arg2617z00_1307 = 
CDR(BgL_pairz00_1306); 
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_pairz00_1309;
if(
PAIRP(BgL_arg2617z00_1307))
{ /* ./R5rs/hygiene.scm 205 */
BgL_pairz00_1309 = BgL_arg2617z00_1307; }  else 
{ /* ./R5rs/hygiene.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1307, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7744))); 
exit( -1 );} 
BgL_arg1504z00_540 = 
CAR(BgL_pairz00_1309); } } } 
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_pairz00_1310;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 205 */
BgL_pairz00_1310 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7759))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_arg2609z00_1311;
BgL_arg2609z00_1311 = 
CDR(BgL_pairz00_1310); 
{ /* ./R5rs/hygiene.scm 205 */
obj_t BgL_pairz00_1313;
if(
PAIRP(BgL_arg2609z00_1311))
{ /* ./R5rs/hygiene.scm 205 */
BgL_pairz00_1313 = BgL_arg2609z00_1311; }  else 
{ /* ./R5rs/hygiene.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1311, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7753))); 
exit( -1 );} 
BgL_arg1505z00_541 = 
CDR(BgL_pairz00_1313); } } } 
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2letrecz00zz__r5_macro_4_3_hygienez00(BgL_arg1504z00_540, BgL_arg1505z00_541, BgL_alz00_22, BgL_tmpsz00_23); }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5208z00zz__r5_macro_4_3_hygienez00))
{ 

{ /* ./R5rs/hygiene.scm 207 */
bool_t BgL_test1510z00_552;
BgL_test1510z00_552 = 
PAIRP(BgL_ez00_21); 
if(BgL_test1510z00_552)
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_cdrzd2112zd2_553;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1315;
if(BgL_test1510z00_552)
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1315 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_cdrzd2112zd2_553 = 
CDR(BgL_pairz00_1315); } 
{ /* ./R5rs/hygiene.scm 207 */
bool_t BgL_test1511z00_554;
BgL_test1511z00_554 = 
PAIRP(BgL_cdrzd2112zd2_553); 
if(BgL_test1511z00_554)
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_carzd2116zd2_555;obj_t BgL_cdrzd2117zd2_556;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1317;
if(BgL_test1511z00_554)
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1317 = BgL_cdrzd2112zd2_553; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2112zd2_553, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_carzd2116zd2_555 = 
CAR(BgL_pairz00_1317); } 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1318;
if(BgL_test1511z00_554)
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1318 = BgL_cdrzd2112zd2_553; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2112zd2_553, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_cdrzd2117zd2_556 = 
CDR(BgL_pairz00_1318); } 
if(
SYMBOLP(BgL_carzd2116zd2_555))
{ /* ./R5rs/hygiene.scm 207 */
bool_t BgL_test1513z00_558;
BgL_test1513z00_558 = 
PAIRP(BgL_cdrzd2117zd2_556); 
if(BgL_test1513z00_558)
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_arg1515z00_559;obj_t BgL_arg1516z00_560;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1321;
if(BgL_test1513z00_558)
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1321 = BgL_cdrzd2117zd2_556; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2117zd2_556, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_arg1515z00_559 = 
CAR(BgL_pairz00_1321); } 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1322;
if(BgL_test1513z00_558)
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1322 = BgL_cdrzd2117zd2_556; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2117zd2_556, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_arg1516z00_560 = 
CDR(BgL_pairz00_1322); } 
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2namedzd2letzd2zz__r5_macro_4_3_hygienez00(BgL_carzd2116zd2_555, BgL_arg1515z00_559, BgL_arg1516z00_560, BgL_alz00_22, BgL_tmpsz00_23); }  else 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_cdrzd2132zd2_561;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1326;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1326 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_cdrzd2132zd2_561 = 
CDR(BgL_pairz00_1326); } 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_arg1521z00_562;obj_t BgL_arg1522z00_563;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1327;
if(
PAIRP(BgL_cdrzd2132zd2_561))
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1327 = BgL_cdrzd2132zd2_561; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2132zd2_561, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_arg1521z00_562 = 
CAR(BgL_pairz00_1327); } 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1328;
if(
PAIRP(BgL_cdrzd2132zd2_561))
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1328 = BgL_cdrzd2132zd2_561; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2132zd2_561, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_arg1522z00_563 = 
CDR(BgL_pairz00_1328); } 
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2letz00zz__r5_macro_4_3_hygienez00(BgL_arg1521z00_562, BgL_arg1522z00_563, BgL_alz00_22, BgL_tmpsz00_23); } } }  else 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_cdrzd2147zd2_564;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1331;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1331 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_cdrzd2147zd2_564 = 
CDR(BgL_pairz00_1331); } 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_arg1529z00_565;obj_t BgL_arg1530z00_566;
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1332;
if(
PAIRP(BgL_cdrzd2147zd2_564))
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1332 = BgL_cdrzd2147zd2_564; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2147zd2_564, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_arg1529z00_565 = 
CAR(BgL_pairz00_1332); } 
{ /* ./R5rs/hygiene.scm 207 */
obj_t BgL_pairz00_1333;
if(
PAIRP(BgL_cdrzd2147zd2_564))
{ /* ./R5rs/hygiene.scm 207 */
BgL_pairz00_1333 = BgL_cdrzd2147zd2_564; }  else 
{ /* ./R5rs/hygiene.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2147zd2_564, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)7786))); 
exit( -1 );} 
BgL_arg1530z00_566 = 
CDR(BgL_pairz00_1333); } 
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2letz00zz__r5_macro_4_3_hygienez00(BgL_arg1529z00_565, BgL_arg1530z00_566, BgL_alz00_22, BgL_tmpsz00_23); } } }  else 
{ /* ./R5rs/hygiene.scm 207 */
BgL_tagzd2103zd2_550:
{ /* ./R5rs/hygiene.scm 213 */
obj_t BgL_arg1546z00_567;
{ /* ./R5rs/hygiene.scm 213 */
obj_t BgL_arg1549z00_568;
{ /* ./R5rs/hygiene.scm 213 */
obj_t BgL_pairz00_1336;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 213 */
BgL_pairz00_1336 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 213 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8033))); 
exit( -1 );} 
BgL_arg1549z00_568 = 
CDR(BgL_pairz00_1336); } 
BgL_arg1546z00_567 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1549z00_568, BgL_alz00_22, BgL_tmpsz00_23); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_az00_492, BgL_arg1546z00_567); } } } }  else 
{ /* ./R5rs/hygiene.scm 207 */
goto BgL_tagzd2103zd2_550;} } }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5209z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_arg1554z00_570;obj_t BgL_arg1555z00_571;
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_pairz00_1337;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 215 */
BgL_pairz00_1337 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8090))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_arg2617z00_1338;
BgL_arg2617z00_1338 = 
CDR(BgL_pairz00_1337); 
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_pairz00_1340;
if(
PAIRP(BgL_arg2617z00_1338))
{ /* ./R5rs/hygiene.scm 215 */
BgL_pairz00_1340 = BgL_arg2617z00_1338; }  else 
{ /* ./R5rs/hygiene.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1338, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8084))); 
exit( -1 );} 
BgL_arg1554z00_570 = 
CAR(BgL_pairz00_1340); } } } 
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_pairz00_1341;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 215 */
BgL_pairz00_1341 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8099))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_arg2609z00_1342;
BgL_arg2609z00_1342 = 
CDR(BgL_pairz00_1341); 
{ /* ./R5rs/hygiene.scm 215 */
obj_t BgL_pairz00_1344;
if(
PAIRP(BgL_arg2609z00_1342))
{ /* ./R5rs/hygiene.scm 215 */
BgL_pairz00_1344 = BgL_arg2609z00_1342; }  else 
{ /* ./R5rs/hygiene.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1342, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8093))); 
exit( -1 );} 
BgL_arg1555z00_571 = 
CDR(BgL_pairz00_1344); } } } 
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2letza2za2zz__r5_macro_4_3_hygienez00(BgL_arg1554z00_570, BgL_arg1555z00_571, BgL_alz00_22, BgL_tmpsz00_23); }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5210z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_arg1562z00_573;obj_t BgL_arg1563z00_574;obj_t BgL_arg1564z00_575;
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1345;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1345 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8149))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_arg2617z00_1346;
BgL_arg2617z00_1346 = 
CDR(BgL_pairz00_1345); 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1348;
if(
PAIRP(BgL_arg2617z00_1346))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1348 = BgL_arg2617z00_1346; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1346, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8143))); 
exit( -1 );} 
BgL_arg1562z00_573 = 
CAR(BgL_pairz00_1348); } } } 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1349;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1349 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8159))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_arg2580z00_1350;
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_arg2584z00_1351;
BgL_arg2584z00_1351 = 
CDR(BgL_pairz00_1349); 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1353;
if(
PAIRP(BgL_arg2584z00_1351))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1353 = BgL_arg2584z00_1351; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2584z00_1351, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8152))); 
exit( -1 );} 
BgL_arg2580z00_1350 = 
CDR(BgL_pairz00_1353); } } 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1354;
if(
PAIRP(BgL_arg2580z00_1350))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1354 = BgL_arg2580z00_1350; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2580z00_1350, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8152))); 
exit( -1 );} 
BgL_arg1563z00_574 = 
CAR(BgL_pairz00_1354); } } } 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1355;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1355 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8169))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_arg2551z00_1356;
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_arg2554z00_1357;
BgL_arg2554z00_1357 = 
CDR(BgL_pairz00_1355); 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1359;
if(
PAIRP(BgL_arg2554z00_1357))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1359 = BgL_arg2554z00_1357; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2554z00_1357, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8162))); 
exit( -1 );} 
BgL_arg2551z00_1356 = 
CDR(BgL_pairz00_1359); } } 
{ /* ./R5rs/hygiene.scm 217 */
obj_t BgL_pairz00_1360;
if(
PAIRP(BgL_arg2551z00_1356))
{ /* ./R5rs/hygiene.scm 217 */
BgL_pairz00_1360 = BgL_arg2551z00_1356; }  else 
{ /* ./R5rs/hygiene.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2551z00_1356, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8162))); 
exit( -1 );} 
BgL_arg1564z00_575 = 
CDR(BgL_pairz00_1360); } } } 
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2doz00zz__r5_macro_4_3_hygienez00(BgL_arg1562z00_573, BgL_arg1563z00_574, BgL_arg1564z00_575, BgL_alz00_22, BgL_tmpsz00_23); }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5211z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_arg1572z00_577;obj_t BgL_arg1573z00_578;
BgL_arg1572z00_577 = BGl_symbol5211z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_arg1576z00_579;obj_t BgL_arg1577z00_580;
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_arg1581z00_581;
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_pairz00_1361;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 219 */
BgL_pairz00_1361 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 219 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8234))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_arg2617z00_1362;
BgL_arg2617z00_1362 = 
CDR(BgL_pairz00_1361); 
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_pairz00_1364;
if(
PAIRP(BgL_arg2617z00_1362))
{ /* ./R5rs/hygiene.scm 219 */
BgL_pairz00_1364 = BgL_arg2617z00_1362; }  else 
{ /* ./R5rs/hygiene.scm 219 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2617z00_1362, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8228))); 
exit( -1 );} 
BgL_arg1581z00_581 = 
CAR(BgL_pairz00_1364); } } } 
BgL_arg1576z00_579 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_arg1581z00_581, BgL_alz00_22, BgL_tmpsz00_23); } 
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_arg1585z00_582;
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_l1031z00_584;
{ /* ./R5rs/hygiene.scm 224 */
obj_t BgL_pairz00_1365;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 224 */
BgL_pairz00_1365 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 224 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8387))); 
exit( -1 );} 
{ /* ./R5rs/hygiene.scm 224 */
obj_t BgL_arg2609z00_1366;
BgL_arg2609z00_1366 = 
CDR(BgL_pairz00_1365); 
{ /* ./R5rs/hygiene.scm 224 */
obj_t BgL_pairz00_1368;
if(
PAIRP(BgL_arg2609z00_1366))
{ /* ./R5rs/hygiene.scm 224 */
BgL_pairz00_1368 = BgL_arg2609z00_1366; }  else 
{ /* ./R5rs/hygiene.scm 224 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2609z00_1366, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8381))); 
exit( -1 );} 
BgL_l1031z00_584 = 
CDR(BgL_pairz00_1368); } } } 
if(
NULLP(BgL_l1031z00_584))
{ /* ./R5rs/hygiene.scm 220 */
BgL_arg1585z00_582 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_head1033z00_586;
BgL_head1033z00_586 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1031z00_587;obj_t BgL_tail1034z00_588;
BgL_l1031z00_587 = BgL_l1031z00_584; 
BgL_tail1034z00_588 = BgL_head1033z00_586; 
BgL_map1032z00_589:
{ /* ./R5rs/hygiene.scm 220 */
bool_t BgL_test1590z00_590;
BgL_test1590z00_590 = 
PAIRP(BgL_l1031z00_587); 
if(BgL_test1590z00_590)
{ /* ./R5rs/hygiene.scm 220 */
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_newtail1035z00_591;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_arg1597z00_593;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_cz00_595;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_pairz00_1373;
if(BgL_test1590z00_590)
{ /* ./R5rs/hygiene.scm 222 */
BgL_pairz00_1373 = BgL_l1031z00_587; }  else 
{ /* ./R5rs/hygiene.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1031z00_587, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8285))); 
exit( -1 );} 
BgL_cz00_595 = 
CAR(BgL_pairz00_1373); } 
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_arg1601z00_596;obj_t BgL_arg1602z00_597;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_arg1605z00_598;
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_pairz00_1374;
if(
PAIRP(BgL_cz00_595))
{ /* ./R5rs/hygiene.scm 222 */
BgL_pairz00_1374 = BgL_cz00_595; }  else 
{ /* ./R5rs/hygiene.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cz00_595, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8315))); 
exit( -1 );} 
BgL_arg1605z00_598 = 
CAR(BgL_pairz00_1374); } 
BgL_arg1601z00_596 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_arg1605z00_598, BgL_alz00_22, BgL_tmpsz00_23); } 
{ /* ./R5rs/hygiene.scm 223 */
obj_t BgL_arg1609z00_599;
{ /* ./R5rs/hygiene.scm 223 */
obj_t BgL_arg1613z00_601;
{ /* ./R5rs/hygiene.scm 223 */
obj_t BgL_pairz00_1375;
if(
PAIRP(BgL_cz00_595))
{ /* ./R5rs/hygiene.scm 223 */
BgL_pairz00_1375 = BgL_cz00_595; }  else 
{ /* ./R5rs/hygiene.scm 223 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cz00_595, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8363))); 
exit( -1 );} 
BgL_arg1613z00_601 = 
CDR(BgL_pairz00_1375); } 
BgL_arg1609z00_599 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1613z00_601, BgL_alz00_22, BgL_tmpsz00_23); } 
{ /* ./R5rs/hygiene.scm 222 */
obj_t BgL_auxz00_3581;
{ /* ./R5rs/hygiene.scm 222 */
bool_t BgL_testz00_3582;
if(
PAIRP(BgL_arg1609z00_599))
{ /* ./R5rs/hygiene.scm 222 */
BgL_testz00_3582 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 222 */
BgL_testz00_3582 = 
NULLP(BgL_arg1609z00_599)
; } 
if(BgL_testz00_3582)
{ /* ./R5rs/hygiene.scm 222 */
BgL_auxz00_3581 = BgL_arg1609z00_599
; }  else 
{ /* ./R5rs/hygiene.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1609z00_599, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8285))); 
exit( -1 );} } 
BgL_arg1602z00_597 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3581, BNIL); } } 
BgL_arg1597z00_593 = 
MAKE_PAIR(BgL_arg1601z00_596, BgL_arg1602z00_597); } } 
BgL_newtail1035z00_591 = 
MAKE_PAIR(BgL_arg1597z00_593, BNIL); } 
SET_CDR(BgL_tail1034z00_588, BgL_newtail1035z00_591); 
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_arg1593z00_592;
{ /* ./R5rs/hygiene.scm 220 */
obj_t BgL_pairz00_1380;
if(
PAIRP(BgL_l1031z00_587))
{ /* ./R5rs/hygiene.scm 220 */
BgL_pairz00_1380 = BgL_l1031z00_587; }  else 
{ /* ./R5rs/hygiene.scm 220 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1031z00_587, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8256))); 
exit( -1 );} 
BgL_arg1593z00_592 = 
CDR(BgL_pairz00_1380); } 
{ 
obj_t BgL_tail1034z00_3600;obj_t BgL_l1031z00_3599;
BgL_l1031z00_3599 = BgL_arg1593z00_592; 
BgL_tail1034z00_3600 = BgL_newtail1035z00_591; 
BgL_tail1034z00_588 = BgL_tail1034z00_3600; 
BgL_l1031z00_587 = BgL_l1031z00_3599; 
goto BgL_map1032z00_589;} } } }  else 
{ /* ./R5rs/hygiene.scm 220 */
if(
NULLP(BgL_l1031z00_587))
{ /* ./R5rs/hygiene.scm 220 */
BgL_arg1585z00_582 = 
CDR(BgL_head1033z00_586); }  else 
{ /* ./R5rs/hygiene.scm 220 */
BgL_arg1585z00_582 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1031z00_587, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8256))); } } } } } } 
{ /* ./R5rs/hygiene.scm 219 */
obj_t BgL_auxz00_3606;
{ /* ./R5rs/hygiene.scm 219 */
bool_t BgL_testz00_3607;
if(
PAIRP(BgL_arg1585z00_582))
{ /* ./R5rs/hygiene.scm 219 */
BgL_testz00_3607 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 219 */
BgL_testz00_3607 = 
NULLP(BgL_arg1585z00_582)
; } 
if(BgL_testz00_3607)
{ /* ./R5rs/hygiene.scm 219 */
BgL_auxz00_3606 = BgL_arg1585z00_582
; }  else 
{ /* ./R5rs/hygiene.scm 219 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1585z00_582, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8198))); 
exit( -1 );} } 
BgL_arg1577z00_580 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3606, BNIL); } } 
BgL_arg1573z00_578 = 
MAKE_PAIR(BgL_arg1576z00_579, BgL_arg1577z00_580); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_arg1572z00_577, BgL_arg1573z00_578); }  else 
{ /* ./R5rs/hygiene.scm 191 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_az00_492, BGl_symbol5212z00zz__r5_macro_4_3_hygienez00))
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_arg1627z00_604;obj_t BgL_arg1628z00_605;
BgL_arg1627z00_604 = BGl_symbol5212z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_arg1631z00_606;
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_l1036z00_608;
{ /* ./R5rs/hygiene.scm 229 */
obj_t BgL_pairz00_1386;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 229 */
BgL_pairz00_1386 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8495))); 
exit( -1 );} 
BgL_l1036z00_608 = 
CDR(BgL_pairz00_1386); } 
if(
NULLP(BgL_l1036z00_608))
{ /* ./R5rs/hygiene.scm 226 */
BgL_arg1631z00_606 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_head1038z00_610;
BgL_head1038z00_610 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1036z00_611;obj_t BgL_tail1039z00_612;
BgL_l1036z00_611 = BgL_l1036z00_608; 
BgL_tail1039z00_612 = BgL_head1038z00_610; 
BgL_map1037z00_613:
{ /* ./R5rs/hygiene.scm 226 */
bool_t BgL_test1636z00_614;
BgL_test1636z00_614 = 
PAIRP(BgL_l1036z00_611); 
if(BgL_test1636z00_614)
{ /* ./R5rs/hygiene.scm 226 */
{ /* ./R5rs/hygiene.scm 228 */
obj_t BgL_newtail1040z00_615;
{ /* ./R5rs/hygiene.scm 228 */
obj_t BgL_arg1644z00_617;
{ /* ./R5rs/hygiene.scm 228 */
obj_t BgL_cz00_619;
{ /* ./R5rs/hygiene.scm 228 */
obj_t BgL_pairz00_1391;
if(BgL_test1636z00_614)
{ /* ./R5rs/hygiene.scm 228 */
BgL_pairz00_1391 = BgL_l1036z00_611; }  else 
{ /* ./R5rs/hygiene.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1036z00_611, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8451))); 
exit( -1 );} 
BgL_cz00_619 = 
CAR(BgL_pairz00_1391); } 
BgL_arg1644z00_617 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_cz00_619, BgL_alz00_22, BgL_tmpsz00_23); } 
BgL_newtail1040z00_615 = 
MAKE_PAIR(BgL_arg1644z00_617, BNIL); } 
SET_CDR(BgL_tail1039z00_612, BgL_newtail1040z00_615); 
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_arg1640z00_616;
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_pairz00_1396;
if(
PAIRP(BgL_l1036z00_611))
{ /* ./R5rs/hygiene.scm 226 */
BgL_pairz00_1396 = BgL_l1036z00_611; }  else 
{ /* ./R5rs/hygiene.scm 226 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1036z00_611, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8417))); 
exit( -1 );} 
BgL_arg1640z00_616 = 
CDR(BgL_pairz00_1396); } 
{ 
obj_t BgL_tail1039z00_3645;obj_t BgL_l1036z00_3644;
BgL_l1036z00_3644 = BgL_arg1640z00_616; 
BgL_tail1039z00_3645 = BgL_newtail1040z00_615; 
BgL_tail1039z00_612 = BgL_tail1039z00_3645; 
BgL_l1036z00_611 = BgL_l1036z00_3644; 
goto BgL_map1037z00_613;} } } }  else 
{ /* ./R5rs/hygiene.scm 226 */
if(
NULLP(BgL_l1036z00_611))
{ /* ./R5rs/hygiene.scm 226 */
BgL_arg1631z00_606 = 
CDR(BgL_head1038z00_610); }  else 
{ /* ./R5rs/hygiene.scm 226 */
BgL_arg1631z00_606 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1036z00_611, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8417))); } } } } } } 
{ /* ./R5rs/hygiene.scm 226 */
obj_t BgL_auxz00_3651;
{ /* ./R5rs/hygiene.scm 226 */
bool_t BgL_testz00_3652;
if(
PAIRP(BgL_arg1631z00_606))
{ /* ./R5rs/hygiene.scm 226 */
BgL_testz00_3652 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 226 */
BgL_testz00_3652 = 
NULLP(BgL_arg1631z00_606)
; } 
if(BgL_testz00_3652)
{ /* ./R5rs/hygiene.scm 226 */
BgL_auxz00_3651 = BgL_arg1631z00_606
; }  else 
{ /* ./R5rs/hygiene.scm 226 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1631z00_606, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8409))); 
exit( -1 );} } 
BgL_arg1628z00_605 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3651, BNIL); } } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_arg1627z00_604, BgL_arg1628z00_605); }  else 
{ /* ./R5rs/hygiene.scm 230 */
obj_t BgL_arg1658z00_621;
{ /* ./R5rs/hygiene.scm 230 */
obj_t BgL_arg1661z00_622;
{ /* ./R5rs/hygiene.scm 230 */
obj_t BgL_pairz00_1402;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 230 */
BgL_pairz00_1402 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8543))); 
exit( -1 );} 
BgL_arg1661z00_622 = 
CDR(BgL_pairz00_1402); } 
BgL_arg1658z00_621 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg1661z00_622, BgL_alz00_22, BgL_tmpsz00_23); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_az00_492, BgL_arg1658z00_621); } } } } } } } } } } } }  else 
{ /* ./R5rs/hygiene.scm 231 */
obj_t BgL_arg1676z00_623;
{ /* ./R5rs/hygiene.scm 231 */
obj_t BgL_arg1679z00_624;
{ /* ./R5rs/hygiene.scm 231 */
obj_t BgL_pairz00_1403;
if(
PAIRP(BgL_ez00_21))
{ /* ./R5rs/hygiene.scm 231 */
BgL_pairz00_1403 = BgL_ez00_21; }  else 
{ /* ./R5rs/hygiene.scm 231 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5197z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_21, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8599))); 
exit( -1 );} 
BgL_arg1679z00_624 = 
CDR(BgL_pairz00_1403); } 
BgL_arg1676z00_623 = 
BGl_hygienezd2untagzd2listza2za2zz__r5_macro_4_3_hygienez00(BgL_arg1679z00_624, BgL_alz00_22, BgL_tmpsz00_23); } 
BgL_aux2890z00_1718 = 
MAKE_PAIR(BgL_az00_492, BgL_arg1676z00_623); } }  else 
{ /* ./R5rs/hygiene.scm 187 */
BgL_aux2890z00_1718 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_ez00_21, BgL_alz00_22, BgL_tmpsz00_23); } } 
POP_TRACE(); 
return BgL_aux2890z00_1718;} } } } 
}



/* _r5rs-hygiene-untag */
obj_t BGl__r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t BgL_envz00_1778, obj_t BgL_ez00_1779, obj_t BgL_alz00_1780, obj_t BgL_tmpsz00_1781)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 186 */
return 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_ez00_1779, BgL_alz00_1780, BgL_tmpsz00_1781);} 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_symbol2895z00_1719;
BgL_symbol2895z00_1719 = BGl_symbol5213z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 238 */

PUSH_TRACE(BgL_symbol2895z00_1719); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_aux2894z00_1720;
if(
NULLP(BgL_eez00_24))
{ /* ./R5rs/hygiene.scm 238 */
BgL_aux2894z00_1720 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_head1043z00_628;
BgL_head1043z00_628 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1041z00_629;obj_t BgL_tail1044z00_630;
BgL_l1041z00_629 = BgL_eez00_24; 
BgL_tail1044z00_630 = BgL_head1043z00_628; 
BgL_map1042z00_631:
{ /* ./R5rs/hygiene.scm 238 */
bool_t BgL_test1691z00_632;
BgL_test1691z00_632 = 
PAIRP(BgL_l1041z00_629); 
if(BgL_test1691z00_632)
{ /* ./R5rs/hygiene.scm 238 */
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_newtail1045z00_633;
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_arg1698z00_635;
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_ez00_637;
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_pairz00_1408;
if(BgL_test1691z00_632)
{ /* ./R5rs/hygiene.scm 238 */
BgL_pairz00_1408 = BgL_l1041z00_629; }  else 
{ /* ./R5rs/hygiene.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5213z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1041z00_629, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8940))); 
exit( -1 );} 
BgL_ez00_637 = 
CAR(BgL_pairz00_1408); } 
BgL_arg1698z00_635 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_ez00_637, BgL_alz00_25, BgL_tmpsz00_26); } 
BgL_newtail1045z00_633 = 
MAKE_PAIR(BgL_arg1698z00_635, BNIL); } 
SET_CDR(BgL_tail1044z00_630, BgL_newtail1045z00_633); 
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_arg1694z00_634;
{ /* ./R5rs/hygiene.scm 238 */
obj_t BgL_pairz00_1413;
if(
PAIRP(BgL_l1041z00_629))
{ /* ./R5rs/hygiene.scm 238 */
BgL_pairz00_1413 = BgL_l1041z00_629; }  else 
{ /* ./R5rs/hygiene.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5213z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1041z00_629, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8923))); 
exit( -1 );} 
BgL_arg1694z00_634 = 
CDR(BgL_pairz00_1413); } 
{ 
obj_t BgL_tail1044z00_3701;obj_t BgL_l1041z00_3700;
BgL_l1041z00_3700 = BgL_arg1694z00_634; 
BgL_tail1044z00_3701 = BgL_newtail1045z00_633; 
BgL_tail1044z00_630 = BgL_tail1044z00_3701; 
BgL_l1041z00_629 = BgL_l1041z00_3700; 
goto BgL_map1042z00_631;} } } }  else 
{ /* ./R5rs/hygiene.scm 238 */
if(
NULLP(BgL_l1041z00_629))
{ /* ./R5rs/hygiene.scm 238 */
BgL_aux2894z00_1720 = 
CDR(BgL_head1043z00_628); }  else 
{ /* ./R5rs/hygiene.scm 238 */
BgL_aux2894z00_1720 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1041z00_629, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)8923))); } } } } } 
POP_TRACE(); 
return BgL_aux2894z00_1720;} } } } 
}



/* hygiene-untag-list* */
obj_t BGl_hygienezd2untagzd2listza2za2zz__r5_macro_4_3_hygienez00(obj_t BgL_eez00_27, obj_t BgL_alz00_28, obj_t BgL_tmpsz00_29)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 243 */
{ /* ./R5rs/hygiene.scm 244 */
obj_t BgL_symbol2899z00_1721;
BgL_symbol2899z00_1721 = BGl_symbol5214z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 244 */

PUSH_TRACE(BgL_symbol2899z00_1721); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 244 */
obj_t BgL_aux2898z00_1722;
BgL_aux2898z00_1722 = 
BGl_loopz72z72zz__r5_macro_4_3_hygienez00(BgL_tmpsz00_29, BgL_alz00_28, BgL_eez00_27); 
POP_TRACE(); 
return BgL_aux2898z00_1722;} } } } 
}



/* loop' */
obj_t BGl_loopz72z72zz__r5_macro_4_3_hygienez00(obj_t BgL_tmpsz00_1786, obj_t BgL_alz00_1785, obj_t BgL_eez00_639)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 244 */
{ /* ./R5rs/hygiene.scm 245 */
bool_t BgL_test1711z00_641;
BgL_test1711z00_641 = 
PAIRP(BgL_eez00_639); 
if(BgL_test1711z00_641)
{ /* ./R5rs/hygiene.scm 246 */
obj_t BgL_arg1713z00_642;obj_t BgL_arg1714z00_643;
{ /* ./R5rs/hygiene.scm 246 */
obj_t BgL_arg1717z00_644;
{ /* ./R5rs/hygiene.scm 246 */
obj_t BgL_pairz00_1420;
if(BgL_test1711z00_641)
{ /* ./R5rs/hygiene.scm 246 */
BgL_pairz00_1420 = BgL_eez00_639; }  else 
{ /* ./R5rs/hygiene.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5215z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_eez00_639, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9320))); 
exit( -1 );} 
BgL_arg1717z00_644 = 
CAR(BgL_pairz00_1420); } 
BgL_arg1713z00_642 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg1717z00_644, BgL_alz00_1785, BgL_tmpsz00_1786); } 
{ /* ./R5rs/hygiene.scm 247 */
obj_t BgL_arg1721z00_645;
{ /* ./R5rs/hygiene.scm 247 */
obj_t BgL_pairz00_1421;
if(BgL_test1711z00_641)
{ /* ./R5rs/hygiene.scm 247 */
BgL_pairz00_1421 = BgL_eez00_639; }  else 
{ /* ./R5rs/hygiene.scm 247 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5215z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_eez00_639, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9346))); 
exit( -1 );} 
BgL_arg1721z00_645 = 
CDR(BgL_pairz00_1421); } 
BgL_arg1714z00_643 = 
BGl_loopz72z72zz__r5_macro_4_3_hygienez00(BgL_tmpsz00_1786, BgL_alz00_1785, BgL_arg1721z00_645); } 
return 
MAKE_PAIR(BgL_arg1713z00_642, BgL_arg1714z00_643);}  else 
{ /* ./R5rs/hygiene.scm 245 */
return 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_eez00_639, BgL_alz00_1785, BgL_tmpsz00_1786);} } } 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 254 */
obj_t BgL_symbol2903z00_1723;
BgL_symbol2903z00_1723 = BGl_symbol5216z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 254 */

PUSH_TRACE(BgL_symbol2903z00_1723); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 254 */
obj_t BgL_aux2902z00_1724;
{ /* ./R5rs/hygiene.scm 254 */
bool_t BgL_test1726z00_646;
BgL_test1726z00_646 = 
PAIRP(BgL_ez00_30); 
if(BgL_test1726z00_646)
{ /* ./R5rs/hygiene.scm 254 */
{ /* ./R5rs/hygiene.scm 255 */
obj_t BgL_arg1728z00_647;obj_t BgL_arg1729z00_648;
{ /* ./R5rs/hygiene.scm 255 */
obj_t BgL_arg1732z00_649;
{ /* ./R5rs/hygiene.scm 255 */
obj_t BgL_pairz00_1423;
if(BgL_test1726z00_646)
{ /* ./R5rs/hygiene.scm 255 */
BgL_pairz00_1423 = BgL_ez00_30; }  else 
{ /* ./R5rs/hygiene.scm 255 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5216z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_30, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9706))); 
exit( -1 );} 
BgL_arg1732z00_649 = 
CAR(BgL_pairz00_1423); } 
BgL_arg1728z00_647 = 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(BgL_arg1732z00_649, BgL_alz00_31); } 
{ /* ./R5rs/hygiene.scm 256 */
obj_t BgL_arg1736z00_650;
{ /* ./R5rs/hygiene.scm 256 */
obj_t BgL_pairz00_1424;
if(BgL_test1726z00_646)
{ /* ./R5rs/hygiene.scm 256 */
BgL_pairz00_1424 = BgL_ez00_30; }  else 
{ /* ./R5rs/hygiene.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5216z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_30, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9743))); 
exit( -1 );} 
BgL_arg1736z00_650 = 
CDR(BgL_pairz00_1424); } 
BgL_arg1729z00_648 = 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(BgL_arg1736z00_650, BgL_alz00_31); } 
BgL_aux2902z00_1724 = 
MAKE_PAIR(BgL_arg1728z00_647, BgL_arg1729z00_648); } }  else 
{ /* ./R5rs/hygiene.scm 257 */
bool_t BgL_test1739z00_651;
BgL_test1739z00_651 = 
VECTORP(BgL_ez00_30); 
if(BgL_test1739z00_651)
{ /* ./R5rs/hygiene.scm 257 */
{ /* ./R5rs/hygiene.scm 258 */
obj_t BgL_arg1741z00_652;
{ /* ./R5rs/hygiene.scm 258 */
obj_t BgL_arg1744z00_653;
{ /* ./R5rs/hygiene.scm 258 */
obj_t BgL_auxz00_3745;
if(BgL_test1739z00_651)
{ /* ./R5rs/hygiene.scm 258 */
BgL_auxz00_3745 = BgL_ez00_30
; }  else 
{ /* ./R5rs/hygiene.scm 258 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5216z00zz__r5_macro_4_3_hygienez00, BGl_string5190z00zz__r5_macro_4_3_hygienez00, BgL_ez00_30, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9821))); 
exit( -1 );} 
BgL_arg1744z00_653 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_auxz00_3745); } 
BgL_arg1741z00_652 = 
BGl_hygienezd2untagzd2nozd2tagszd2zz__r5_macro_4_3_hygienez00(BgL_arg1744z00_653, BgL_alz00_31); } 
BgL_aux2902z00_1724 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1741z00_652); } }  else 
{ /* ./R5rs/hygiene.scm 257 */
if(
SYMBOLP(BgL_ez00_30))
{ /* ./R5rs/hygiene.scm 260 */
obj_t BgL_testzd2resultzd2_655;
{ /* ./R5rs/hygiene.scm 260 */
obj_t BgL_auxz00_3755;
{ /* ./R5rs/hygiene.scm 260 */
bool_t BgL_testz00_3756;
if(
PAIRP(BgL_alz00_31))
{ /* ./R5rs/hygiene.scm 260 */
BgL_testz00_3756 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 260 */
BgL_testz00_3756 = 
NULLP(BgL_alz00_31)
; } 
if(BgL_testz00_3756)
{ /* ./R5rs/hygiene.scm 260 */
BgL_auxz00_3755 = BgL_alz00_31
; }  else 
{ /* ./R5rs/hygiene.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5216z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_alz00_31, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9866))); 
exit( -1 );} } 
BgL_testzd2resultzd2_655 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_30, BgL_auxz00_3755); } 
if(
CBOOL(BgL_testzd2resultzd2_655))
{ /* ./R5rs/hygiene.scm 260 */
obj_t BgL_pairz00_1428;
if(
PAIRP(BgL_testzd2resultzd2_655))
{ /* ./R5rs/hygiene.scm 260 */
BgL_pairz00_1428 = BgL_testzd2resultzd2_655; }  else 
{ /* ./R5rs/hygiene.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5216z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_testzd2resultzd2_655, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)9857))); 
exit( -1 );} 
BgL_aux2902z00_1724 = 
CDR(BgL_pairz00_1428); }  else 
{ /* ./R5rs/hygiene.scm 260 */
BgL_aux2902z00_1724 = BgL_ez00_30; } }  else 
{ /* ./R5rs/hygiene.scm 259 */
BgL_aux2902z00_1724 = BgL_ez00_30; } } } } 
POP_TRACE(); 
return BgL_aux2902z00_1724;} } } } 
}



/* 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_symbol2907z00_1725;
BgL_symbol2907z00_1725 = BGl_symbol5217z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 283 */

PUSH_TRACE(BgL_symbol2907z00_1725); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_aux2906z00_1726;
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_tmpsz00_678;
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_arg1855z00_713;
if(
NULLP(BgL_varvalsz00_40))
{ /* ./R5rs/hygiene.scm 283 */
BgL_arg1855z00_713 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_head1049z00_716;
BgL_head1049z00_716 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1047z00_717;obj_t BgL_tail1050z00_718;
BgL_l1047z00_717 = BgL_varvalsz00_40; 
BgL_tail1050z00_718 = BgL_head1049z00_716; 
BgL_map1048z00_719:
{ /* ./R5rs/hygiene.scm 283 */
bool_t BgL_test1859z00_720;
BgL_test1859z00_720 = 
PAIRP(BgL_l1047z00_717); 
if(BgL_test1859z00_720)
{ /* ./R5rs/hygiene.scm 283 */
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_newtail1051z00_721;
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_arg1866z00_723;
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_xz00_725;
{ /* ./R5rs/hygiene.scm 285 */
obj_t BgL_pairz00_1449;
if(BgL_test1859z00_720)
{ /* ./R5rs/hygiene.scm 285 */
BgL_pairz00_1449 = BgL_l1047z00_717; }  else 
{ /* ./R5rs/hygiene.scm 285 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1047z00_717, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11020))); 
exit( -1 );} 
BgL_xz00_725 = 
CAR(BgL_pairz00_1449); } 
{ /* ./R5rs/hygiene.scm 285 */
bool_t BgL_test1869z00_726;
BgL_test1869z00_726 = 
PAIRP(BgL_xz00_725); 
if(BgL_test1869z00_726)
{ /* ./R5rs/hygiene.scm 285 */
{ /* ./R5rs/hygiene.scm 286 */
obj_t BgL_pairz00_1451;
if(BgL_test1869z00_726)
{ /* ./R5rs/hygiene.scm 286 */
BgL_pairz00_1451 = BgL_xz00_725; }  else 
{ /* ./R5rs/hygiene.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_725, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11043))); 
exit( -1 );} 
BgL_arg1866z00_723 = 
CAR(BgL_pairz00_1451); } }  else 
{ /* ./R5rs/hygiene.scm 285 */
if(
SYMBOLP(BgL_xz00_725))
{ /* ./R5rs/hygiene.scm 287 */
BgL_arg1866z00_723 = BgL_xz00_725; }  else 
{ /* ./R5rs/hygiene.scm 287 */
BgL_arg1866z00_723 = BGl_symbol5196z00zz__r5_macro_4_3_hygienez00; } } } } 
BgL_newtail1051z00_721 = 
MAKE_PAIR(BgL_arg1866z00_723, BNIL); } 
SET_CDR(BgL_tail1050z00_718, BgL_newtail1051z00_721); 
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_arg1862z00_722;
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_pairz00_1457;
if(
PAIRP(BgL_l1047z00_717))
{ /* ./R5rs/hygiene.scm 283 */
BgL_pairz00_1457 = BgL_l1047z00_717; }  else 
{ /* ./R5rs/hygiene.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1047z00_717, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)10985))); 
exit( -1 );} 
BgL_arg1862z00_722 = 
CDR(BgL_pairz00_1457); } 
{ 
obj_t BgL_tail1050z00_3802;obj_t BgL_l1047z00_3801;
BgL_l1047z00_3801 = BgL_arg1862z00_722; 
BgL_tail1050z00_3802 = BgL_newtail1051z00_721; 
BgL_tail1050z00_718 = BgL_tail1050z00_3802; 
BgL_l1047z00_717 = BgL_l1047z00_3801; 
goto BgL_map1048z00_719;} } } }  else 
{ /* ./R5rs/hygiene.scm 283 */
if(
NULLP(BgL_l1047z00_717))
{ /* ./R5rs/hygiene.scm 283 */
BgL_arg1855z00_713 = 
CDR(BgL_head1049z00_716); }  else 
{ /* ./R5rs/hygiene.scm 283 */
BgL_arg1855z00_713 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1047z00_717, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)10985))); } } } } } 
{ /* ./R5rs/hygiene.scm 283 */
obj_t BgL_auxz00_3816;obj_t BgL_auxz00_3808;
{ /* ./R5rs/hygiene.scm 292 */
bool_t BgL_testz00_3817;
if(
PAIRP(BgL_tmpsz00_43))
{ /* ./R5rs/hygiene.scm 292 */
BgL_testz00_3817 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 292 */
BgL_testz00_3817 = 
NULLP(BgL_tmpsz00_43)
; } 
if(BgL_testz00_3817)
{ /* ./R5rs/hygiene.scm 292 */
BgL_auxz00_3816 = BgL_tmpsz00_43
; }  else 
{ /* ./R5rs/hygiene.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_43, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11128))); 
exit( -1 );} } 
{ /* ./R5rs/hygiene.scm 291 */
bool_t BgL_testz00_3809;
if(
PAIRP(BgL_arg1855z00_713))
{ /* ./R5rs/hygiene.scm 291 */
BgL_testz00_3809 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 291 */
BgL_testz00_3809 = 
NULLP(BgL_arg1855z00_713)
; } 
if(BgL_testz00_3809)
{ /* ./R5rs/hygiene.scm 291 */
BgL_auxz00_3808 = BgL_arg1855z00_713
; }  else 
{ /* ./R5rs/hygiene.scm 291 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1855z00_713, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11120))); 
exit( -1 );} } 
BgL_tmpsz00_678 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3808, BgL_auxz00_3816); } } 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_arg1793z00_679;obj_t BgL_arg1794z00_680;
BgL_arg1793z00_679 = BGl_symbol5207z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_arg1797z00_681;obj_t BgL_arg1798z00_682;
if(
NULLP(BgL_varvalsz00_40))
{ /* ./R5rs/hygiene.scm 293 */
BgL_arg1797z00_681 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_head1054z00_685;
BgL_head1054z00_685 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1052z00_686;obj_t BgL_tail1055z00_687;
BgL_l1052z00_686 = BgL_varvalsz00_40; 
BgL_tail1055z00_687 = BgL_head1054z00_685; 
BgL_map1053z00_688:
{ /* ./R5rs/hygiene.scm 293 */
bool_t BgL_test1802z00_689;
BgL_test1802z00_689 = 
PAIRP(BgL_l1052z00_686); 
if(BgL_test1802z00_689)
{ /* ./R5rs/hygiene.scm 293 */
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_newtail1056z00_690;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1809z00_692;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_varvalz00_694;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_pairz00_1467;
if(BgL_test1802z00_689)
{ /* ./R5rs/hygiene.scm 294 */
BgL_pairz00_1467 = BgL_l1052z00_686; }  else 
{ /* ./R5rs/hygiene.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1052z00_686, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11174))); 
exit( -1 );} 
BgL_varvalz00_694 = 
CAR(BgL_pairz00_1467); } 
{ /* ./R5rs/hygiene.scm 294 */
bool_t BgL_test1812z00_700;
BgL_test1812z00_700 = 
PAIRP(BgL_varvalz00_694); 
if(BgL_test1812z00_700)
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_cdrzd2172zd2_701;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_pairz00_1469;
if(BgL_test1812z00_700)
{ /* ./R5rs/hygiene.scm 294 */
BgL_pairz00_1469 = BgL_varvalz00_694; }  else 
{ /* ./R5rs/hygiene.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_694, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11174))); 
exit( -1 );} 
BgL_cdrzd2172zd2_701 = 
CDR(BgL_pairz00_1469); } 
{ /* ./R5rs/hygiene.scm 294 */
bool_t BgL_test1813z00_702;
BgL_test1813z00_702 = 
PAIRP(BgL_cdrzd2172zd2_701); 
if(BgL_test1813z00_702)
{ /* ./R5rs/hygiene.scm 294 */
bool_t BgL_test1814z00_703;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1824z00_706;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_pairz00_1471;
if(BgL_test1813z00_702)
{ /* ./R5rs/hygiene.scm 294 */
BgL_pairz00_1471 = BgL_cdrzd2172zd2_701; }  else 
{ /* ./R5rs/hygiene.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2172zd2_701, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11174))); 
exit( -1 );} 
BgL_arg1824z00_706 = 
CDR(BgL_pairz00_1471); } 
BgL_test1814z00_703 = 
NULLP(BgL_arg1824z00_706); } 
if(BgL_test1814z00_703)
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1816z00_704;obj_t BgL_arg1817z00_705;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_pairz00_1473;
if(
PAIRP(BgL_varvalz00_694))
{ /* ./R5rs/hygiene.scm 294 */
BgL_pairz00_1473 = BgL_varvalz00_694; }  else 
{ /* ./R5rs/hygiene.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_694, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11174))); 
exit( -1 );} 
BgL_arg1816z00_704 = 
CAR(BgL_pairz00_1473); } 
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_pairz00_1474;
if(
PAIRP(BgL_cdrzd2172zd2_701))
{ /* ./R5rs/hygiene.scm 294 */
BgL_pairz00_1474 = BgL_cdrzd2172zd2_701; }  else 
{ /* ./R5rs/hygiene.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2172zd2_701, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11174))); 
exit( -1 );} 
BgL_arg1817z00_705 = 
CAR(BgL_pairz00_1474); } 
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_arg1833z00_1477;
{ /* ./R5rs/hygiene.scm 294 */
obj_t BgL_auxz00_3863;
BgL_auxz00_3863 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg1817z00_705, BgL_alz00_42, BgL_tmpsz00_678); 
BgL_arg1833z00_1477 = 
MAKE_PAIR(BgL_auxz00_3863, BNIL); } 
BgL_arg1809z00_692 = 
MAKE_PAIR(BgL_arg1816z00_704, BgL_arg1833z00_1477); } }  else 
{ /* ./R5rs/hygiene.scm 294 */
BgL_arg1809z00_692 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_694, BgL_alz00_42, BgL_tmpsz00_678); } }  else 
{ /* ./R5rs/hygiene.scm 294 */
BgL_arg1809z00_692 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_694, BgL_alz00_42, BgL_tmpsz00_678); } } }  else 
{ /* ./R5rs/hygiene.scm 294 */
BgL_arg1809z00_692 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_694, BgL_alz00_42, BgL_tmpsz00_678); } } } 
BgL_newtail1056z00_690 = 
MAKE_PAIR(BgL_arg1809z00_692, BNIL); } 
SET_CDR(BgL_tail1055z00_687, BgL_newtail1056z00_690); 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_arg1805z00_691;
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_pairz00_1487;
if(
PAIRP(BgL_l1052z00_686))
{ /* ./R5rs/hygiene.scm 293 */
BgL_pairz00_1487 = BgL_l1052z00_686; }  else 
{ /* ./R5rs/hygiene.scm 293 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1052z00_686, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11149))); 
exit( -1 );} 
BgL_arg1805z00_691 = 
CDR(BgL_pairz00_1487); } 
{ 
obj_t BgL_tail1055z00_3879;obj_t BgL_l1052z00_3878;
BgL_l1052z00_3878 = BgL_arg1805z00_691; 
BgL_tail1055z00_3879 = BgL_newtail1056z00_690; 
BgL_tail1055z00_687 = BgL_tail1055z00_3879; 
BgL_l1052z00_686 = BgL_l1052z00_3878; 
goto BgL_map1053z00_688;} } } }  else 
{ /* ./R5rs/hygiene.scm 293 */
if(
NULLP(BgL_l1052z00_686))
{ /* ./R5rs/hygiene.scm 293 */
BgL_arg1797z00_681 = 
CDR(BgL_head1054z00_685); }  else 
{ /* ./R5rs/hygiene.scm 293 */
BgL_arg1797z00_681 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1052z00_686, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11149))); } } } } } 
{ /* ./R5rs/hygiene.scm 300 */
obj_t BgL_arg1850z00_711;
BgL_arg1850z00_711 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_41, BgL_alz00_42, BgL_tmpsz00_678); 
{ /* ./R5rs/hygiene.scm 293 */
obj_t BgL_auxz00_3886;
{ /* ./R5rs/hygiene.scm 293 */
bool_t BgL_testz00_3887;
if(
PAIRP(BgL_arg1850z00_711))
{ /* ./R5rs/hygiene.scm 293 */
BgL_testz00_3887 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 293 */
BgL_testz00_3887 = 
NULLP(BgL_arg1850z00_711)
; } 
if(BgL_testz00_3887)
{ /* ./R5rs/hygiene.scm 293 */
BgL_auxz00_3886 = BgL_arg1850z00_711
; }  else 
{ /* ./R5rs/hygiene.scm 293 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5217z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1850z00_711, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11140))); 
exit( -1 );} } 
BgL_arg1798z00_682 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3886, BNIL); } } 
BgL_arg1794z00_680 = 
MAKE_PAIR(BgL_arg1797z00_681, BgL_arg1798z00_682); } 
BgL_aux2906z00_1726 = 
MAKE_PAIR(BgL_arg1793z00_679, BgL_arg1794z00_680); } } 
POP_TRACE(); 
return BgL_aux2906z00_1726;} } } } 
}



/* 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 */
obj_t BgL_symbol2911z00_1727;
BgL_symbol2911z00_1727 = BGl_symbol5218z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 307 */

PUSH_TRACE(BgL_symbol2911z00_1727); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 307 */
obj_t BgL_aux2910z00_1728;
{ /* ./R5rs/hygiene.scm 307 */
bool_t BgL_test1882z00_729;
BgL_test1882z00_729 = 
NULLP(BgL_varvalsz00_44); 
if(BgL_test1882z00_729)
{ /* ./R5rs/hygiene.scm 307 */
{ /* ./R5rs/hygiene.scm 308 */
obj_t BgL_arg1884z00_730;obj_t BgL_arg1885z00_731;
BgL_arg1884z00_730 = BGl_symbol5208z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 308 */
obj_t BgL_arg1889z00_733;
{ /* ./R5rs/hygiene.scm 308 */
obj_t BgL_arg1892z00_734;
BgL_arg1892z00_734 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_45, BgL_alz00_46, BgL_tmpsz00_47); 
{ /* ./R5rs/hygiene.scm 308 */
obj_t BgL_auxz00_3902;
{ /* ./R5rs/hygiene.scm 308 */
bool_t BgL_testz00_3903;
if(
PAIRP(BgL_arg1892z00_734))
{ /* ./R5rs/hygiene.scm 308 */
BgL_testz00_3903 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 308 */
BgL_testz00_3903 = 
NULLP(BgL_arg1892z00_734)
; } 
if(BgL_testz00_3903)
{ /* ./R5rs/hygiene.scm 308 */
BgL_auxz00_3902 = BgL_arg1892z00_734
; }  else 
{ /* ./R5rs/hygiene.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1892z00_734, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11690))); 
exit( -1 );} } 
BgL_arg1889z00_733 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3902, BNIL); } } 
BgL_arg1885z00_731 = 
MAKE_PAIR(BNIL, BgL_arg1889z00_733); } 
BgL_aux2910z00_1728 = 
MAKE_PAIR(BgL_arg1884z00_730, BgL_arg1885z00_731); } }  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_737;
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_arg1965z00_772;
if(BgL_test1882z00_729)
{ /* ./R5rs/hygiene.scm 310 */
BgL_arg1965z00_772 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_head1059z00_775;
BgL_head1059z00_775 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1057z00_776;obj_t BgL_tail1060z00_777;
BgL_l1057z00_776 = BgL_varvalsz00_44; 
BgL_tail1060z00_777 = BgL_head1059z00_775; 
BgL_map1058z00_778:
{ /* ./R5rs/hygiene.scm 310 */
bool_t BgL_test1969z00_779;
BgL_test1969z00_779 = 
PAIRP(BgL_l1057z00_776); 
if(BgL_test1969z00_779)
{ /* ./R5rs/hygiene.scm 310 */
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_newtail1061z00_780;
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_arg1977z00_782;
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_xz00_784;
{ /* ./R5rs/hygiene.scm 312 */
obj_t BgL_pairz00_1498;
if(BgL_test1969z00_779)
{ /* ./R5rs/hygiene.scm 312 */
BgL_pairz00_1498 = BgL_l1057z00_776; }  else 
{ /* ./R5rs/hygiene.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1057z00_776, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11826))); 
exit( -1 );} 
BgL_xz00_784 = 
CAR(BgL_pairz00_1498); } 
{ /* ./R5rs/hygiene.scm 312 */
bool_t BgL_test1980z00_785;
BgL_test1980z00_785 = 
PAIRP(BgL_xz00_784); 
if(BgL_test1980z00_785)
{ /* ./R5rs/hygiene.scm 312 */
{ /* ./R5rs/hygiene.scm 313 */
obj_t BgL_pairz00_1500;
if(BgL_test1980z00_785)
{ /* ./R5rs/hygiene.scm 313 */
BgL_pairz00_1500 = BgL_xz00_784; }  else 
{ /* ./R5rs/hygiene.scm 313 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_784, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11847))); 
exit( -1 );} 
BgL_arg1977z00_782 = 
CAR(BgL_pairz00_1500); } }  else 
{ /* ./R5rs/hygiene.scm 312 */
if(
SYMBOLP(BgL_xz00_784))
{ /* ./R5rs/hygiene.scm 314 */
BgL_arg1977z00_782 = BgL_xz00_784; }  else 
{ /* ./R5rs/hygiene.scm 314 */
BgL_arg1977z00_782 = BGl_symbol5196z00zz__r5_macro_4_3_hygienez00; } } } } 
BgL_newtail1061z00_780 = 
MAKE_PAIR(BgL_arg1977z00_782, BNIL); } 
SET_CDR(BgL_tail1060z00_777, BgL_newtail1061z00_780); 
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_arg1973z00_781;
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_pairz00_1506;
if(
PAIRP(BgL_l1057z00_776))
{ /* ./R5rs/hygiene.scm 310 */
BgL_pairz00_1506 = BgL_l1057z00_776; }  else 
{ /* ./R5rs/hygiene.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1057z00_776, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11788))); 
exit( -1 );} 
BgL_arg1973z00_781 = 
CDR(BgL_pairz00_1506); } 
{ 
obj_t BgL_tail1060z00_3942;obj_t BgL_l1057z00_3941;
BgL_l1057z00_3941 = BgL_arg1973z00_781; 
BgL_tail1060z00_3942 = BgL_newtail1061z00_780; 
BgL_tail1060z00_777 = BgL_tail1060z00_3942; 
BgL_l1057z00_776 = BgL_l1057z00_3941; 
goto BgL_map1058z00_778;} } } }  else 
{ /* ./R5rs/hygiene.scm 310 */
if(
NULLP(BgL_l1057z00_776))
{ /* ./R5rs/hygiene.scm 310 */
BgL_arg1965z00_772 = 
CDR(BgL_head1059z00_775); }  else 
{ /* ./R5rs/hygiene.scm 310 */
BgL_arg1965z00_772 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1057z00_776, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11788))); } } } } } 
{ /* ./R5rs/hygiene.scm 310 */
obj_t BgL_auxz00_3956;obj_t BgL_auxz00_3948;
{ /* ./R5rs/hygiene.scm 319 */
bool_t BgL_testz00_3957;
if(
PAIRP(BgL_tmpsz00_47))
{ /* ./R5rs/hygiene.scm 319 */
BgL_testz00_3957 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 319 */
BgL_testz00_3957 = 
NULLP(BgL_tmpsz00_47)
; } 
if(BgL_testz00_3957)
{ /* ./R5rs/hygiene.scm 319 */
BgL_auxz00_3956 = BgL_tmpsz00_47
; }  else 
{ /* ./R5rs/hygiene.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_47, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11927))); 
exit( -1 );} } 
{ /* ./R5rs/hygiene.scm 318 */
bool_t BgL_testz00_3949;
if(
PAIRP(BgL_arg1965z00_772))
{ /* ./R5rs/hygiene.scm 318 */
BgL_testz00_3949 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 318 */
BgL_testz00_3949 = 
NULLP(BgL_arg1965z00_772)
; } 
if(BgL_testz00_3949)
{ /* ./R5rs/hygiene.scm 318 */
BgL_auxz00_3948 = BgL_arg1965z00_772
; }  else 
{ /* ./R5rs/hygiene.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1965z00_772, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11914))); 
exit( -1 );} } 
BgL_tmps2z00_737 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3948, BgL_auxz00_3956); } } 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_arg1898z00_738;obj_t BgL_arg1899z00_739;
BgL_arg1898z00_738 = BGl_symbol5208z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_arg1902z00_740;obj_t BgL_arg1904z00_741;
if(
NULLP(BgL_varvalsz00_44))
{ /* ./R5rs/hygiene.scm 320 */
BgL_arg1902z00_740 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_head1064z00_744;
BgL_head1064z00_744 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1062z00_745;obj_t BgL_tail1065z00_746;
BgL_l1062z00_745 = BgL_varvalsz00_44; 
BgL_tail1065z00_746 = BgL_head1064z00_744; 
BgL_map1063z00_747:
{ /* ./R5rs/hygiene.scm 320 */
bool_t BgL_test1909z00_748;
BgL_test1909z00_748 = 
PAIRP(BgL_l1062z00_745); 
if(BgL_test1909z00_748)
{ /* ./R5rs/hygiene.scm 320 */
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_newtail1066z00_749;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1916z00_751;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_varvalz00_753;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_pairz00_1516;
if(BgL_test1909z00_748)
{ /* ./R5rs/hygiene.scm 321 */
BgL_pairz00_1516 = BgL_l1062z00_745; }  else 
{ /* ./R5rs/hygiene.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1062z00_745, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11968))); 
exit( -1 );} 
BgL_varvalz00_753 = 
CAR(BgL_pairz00_1516); } 
{ /* ./R5rs/hygiene.scm 321 */
bool_t BgL_test1919z00_759;
BgL_test1919z00_759 = 
PAIRP(BgL_varvalz00_753); 
if(BgL_test1919z00_759)
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_cdrzd2186zd2_760;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_pairz00_1518;
if(BgL_test1919z00_759)
{ /* ./R5rs/hygiene.scm 321 */
BgL_pairz00_1518 = BgL_varvalz00_753; }  else 
{ /* ./R5rs/hygiene.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_753, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11968))); 
exit( -1 );} 
BgL_cdrzd2186zd2_760 = 
CDR(BgL_pairz00_1518); } 
{ /* ./R5rs/hygiene.scm 321 */
bool_t BgL_test1920z00_761;
BgL_test1920z00_761 = 
PAIRP(BgL_cdrzd2186zd2_760); 
if(BgL_test1920z00_761)
{ /* ./R5rs/hygiene.scm 321 */
bool_t BgL_test1922z00_762;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1931z00_765;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_pairz00_1520;
if(BgL_test1920z00_761)
{ /* ./R5rs/hygiene.scm 321 */
BgL_pairz00_1520 = BgL_cdrzd2186zd2_760; }  else 
{ /* ./R5rs/hygiene.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2186zd2_760, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11968))); 
exit( -1 );} 
BgL_arg1931z00_765 = 
CDR(BgL_pairz00_1520); } 
BgL_test1922z00_762 = 
NULLP(BgL_arg1931z00_765); } 
if(BgL_test1922z00_762)
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1924z00_763;obj_t BgL_arg1925z00_764;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_pairz00_1522;
if(
PAIRP(BgL_varvalz00_753))
{ /* ./R5rs/hygiene.scm 321 */
BgL_pairz00_1522 = BgL_varvalz00_753; }  else 
{ /* ./R5rs/hygiene.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_753, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11968))); 
exit( -1 );} 
BgL_arg1924z00_763 = 
CAR(BgL_pairz00_1522); } 
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_pairz00_1523;
if(
PAIRP(BgL_cdrzd2186zd2_760))
{ /* ./R5rs/hygiene.scm 321 */
BgL_pairz00_1523 = BgL_cdrzd2186zd2_760; }  else 
{ /* ./R5rs/hygiene.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2186zd2_760, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11968))); 
exit( -1 );} 
BgL_arg1925z00_764 = 
CAR(BgL_pairz00_1523); } 
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_arg1941z00_1526;
{ /* ./R5rs/hygiene.scm 321 */
obj_t BgL_auxz00_4003;
BgL_auxz00_4003 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg1925z00_764, BgL_alz00_46, BgL_tmpsz00_47); 
BgL_arg1941z00_1526 = 
MAKE_PAIR(BgL_auxz00_4003, BNIL); } 
BgL_arg1916z00_751 = 
MAKE_PAIR(BgL_arg1924z00_763, BgL_arg1941z00_1526); } }  else 
{ /* ./R5rs/hygiene.scm 321 */
BgL_arg1916z00_751 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_753, BgL_alz00_46, BgL_tmpsz00_47); } }  else 
{ /* ./R5rs/hygiene.scm 321 */
BgL_arg1916z00_751 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_753, BgL_alz00_46, BgL_tmpsz00_47); } } }  else 
{ /* ./R5rs/hygiene.scm 321 */
BgL_arg1916z00_751 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_753, BgL_alz00_46, BgL_tmpsz00_47); } } } 
BgL_newtail1066z00_749 = 
MAKE_PAIR(BgL_arg1916z00_751, BNIL); } 
SET_CDR(BgL_tail1065z00_746, BgL_newtail1066z00_749); 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_arg1912z00_750;
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_pairz00_1536;
if(
PAIRP(BgL_l1062z00_745))
{ /* ./R5rs/hygiene.scm 320 */
BgL_pairz00_1536 = BgL_l1062z00_745; }  else 
{ /* ./R5rs/hygiene.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1062z00_745, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11942))); 
exit( -1 );} 
BgL_arg1912z00_750 = 
CDR(BgL_pairz00_1536); } 
{ 
obj_t BgL_tail1065z00_4019;obj_t BgL_l1062z00_4018;
BgL_l1062z00_4018 = BgL_arg1912z00_750; 
BgL_tail1065z00_4019 = BgL_newtail1066z00_749; 
BgL_tail1065z00_746 = BgL_tail1065z00_4019; 
BgL_l1062z00_745 = BgL_l1062z00_4018; 
goto BgL_map1063z00_747;} } } }  else 
{ /* ./R5rs/hygiene.scm 320 */
if(
NULLP(BgL_l1062z00_745))
{ /* ./R5rs/hygiene.scm 320 */
BgL_arg1902z00_740 = 
CDR(BgL_head1064z00_744); }  else 
{ /* ./R5rs/hygiene.scm 320 */
BgL_arg1902z00_740 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1062z00_745, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11942))); } } } } } 
{ /* ./R5rs/hygiene.scm 327 */
obj_t BgL_arg1960z00_770;
BgL_arg1960z00_770 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_45, BgL_alz00_46, BgL_tmps2z00_737); 
{ /* ./R5rs/hygiene.scm 320 */
obj_t BgL_auxz00_4026;
{ /* ./R5rs/hygiene.scm 320 */
bool_t BgL_testz00_4027;
if(
PAIRP(BgL_arg1960z00_770))
{ /* ./R5rs/hygiene.scm 320 */
BgL_testz00_4027 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 320 */
BgL_testz00_4027 = 
NULLP(BgL_arg1960z00_770)
; } 
if(BgL_testz00_4027)
{ /* ./R5rs/hygiene.scm 320 */
BgL_auxz00_4026 = BgL_arg1960z00_770
; }  else 
{ /* ./R5rs/hygiene.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg1960z00_770, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)11936))); 
exit( -1 );} } 
BgL_arg1904z00_741 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4026, BNIL); } } 
BgL_arg1899z00_739 = 
MAKE_PAIR(BgL_arg1902z00_740, BgL_arg1904z00_741); } 
BgL_aux2910z00_1728 = 
MAKE_PAIR(BgL_arg1898z00_738, BgL_arg1899z00_739); } } }  else 
{ /* ./R5rs/hygiene.scm 309 */
{ /* ./R5rs/hygiene.scm 329 */
obj_t BgL_arg1994z00_788;obj_t BgL_arg1995z00_789;
BgL_arg1994z00_788 = BGl_symbol5208z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 329 */
obj_t BgL_arg1998z00_790;obj_t BgL_arg2000z00_791;
BgL_arg1998z00_790 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalsz00_44, BgL_alz00_46, BgL_tmpsz00_47); 
{ /* ./R5rs/hygiene.scm 330 */
obj_t BgL_arg2004z00_792;
BgL_arg2004z00_792 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_45, BgL_alz00_46, BgL_tmpsz00_47); 
{ /* ./R5rs/hygiene.scm 329 */
obj_t BgL_auxz00_4039;
{ /* ./R5rs/hygiene.scm 329 */
bool_t BgL_testz00_4040;
if(
PAIRP(BgL_arg2004z00_792))
{ /* ./R5rs/hygiene.scm 329 */
BgL_testz00_4040 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 329 */
BgL_testz00_4040 = 
NULLP(BgL_arg2004z00_792)
; } 
if(BgL_testz00_4040)
{ /* ./R5rs/hygiene.scm 329 */
BgL_auxz00_4039 = BgL_arg2004z00_792
; }  else 
{ /* ./R5rs/hygiene.scm 329 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5218z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2004z00_792, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12202))); 
exit( -1 );} } 
BgL_arg2000z00_791 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4039, BNIL); } } 
BgL_arg1995z00_789 = 
MAKE_PAIR(BgL_arg1998z00_790, BgL_arg2000z00_791); } 
BgL_aux2910z00_1728 = 
MAKE_PAIR(BgL_arg1994z00_788, BgL_arg1995z00_789); } } } } 
POP_TRACE(); 
return BgL_aux2910z00_1728;} } } } 
}



/* 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_symbol2915z00_1729;
BgL_symbol2915z00_1729 = BGl_symbol5219z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 336 */

PUSH_TRACE(BgL_symbol2915z00_1729); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_aux2914z00_1730;
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_tmps2z00_794;
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_arg2077z00_830;
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_arg2080z00_831;
if(
NULLP(BgL_varvalsz00_49))
{ /* ./R5rs/hygiene.scm 336 */
BgL_arg2080z00_831 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_head1069z00_834;
BgL_head1069z00_834 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1067z00_835;obj_t BgL_tail1070z00_836;
BgL_l1067z00_835 = BgL_varvalsz00_49; 
BgL_tail1070z00_836 = BgL_head1069z00_834; 
BgL_map1068z00_837:
{ /* ./R5rs/hygiene.scm 336 */
bool_t BgL_test2084z00_838;
BgL_test2084z00_838 = 
PAIRP(BgL_l1067z00_835); 
if(BgL_test2084z00_838)
{ /* ./R5rs/hygiene.scm 336 */
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_newtail1071z00_839;
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_arg2091z00_841;
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_xz00_843;
{ /* ./R5rs/hygiene.scm 338 */
obj_t BgL_pairz00_1546;
if(BgL_test2084z00_838)
{ /* ./R5rs/hygiene.scm 338 */
BgL_pairz00_1546 = BgL_l1067z00_835; }  else 
{ /* ./R5rs/hygiene.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1067z00_835, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12650))); 
exit( -1 );} 
BgL_xz00_843 = 
CAR(BgL_pairz00_1546); } 
{ /* ./R5rs/hygiene.scm 338 */
bool_t BgL_test2094z00_844;
BgL_test2094z00_844 = 
PAIRP(BgL_xz00_843); 
if(BgL_test2094z00_844)
{ /* ./R5rs/hygiene.scm 338 */
{ /* ./R5rs/hygiene.scm 339 */
obj_t BgL_pairz00_1548;
if(BgL_test2094z00_844)
{ /* ./R5rs/hygiene.scm 339 */
BgL_pairz00_1548 = BgL_xz00_843; }  else 
{ /* ./R5rs/hygiene.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_843, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12672))); 
exit( -1 );} 
BgL_arg2091z00_841 = 
CAR(BgL_pairz00_1548); } }  else 
{ /* ./R5rs/hygiene.scm 338 */
if(
SYMBOLP(BgL_xz00_843))
{ /* ./R5rs/hygiene.scm 340 */
BgL_arg2091z00_841 = BgL_xz00_843; }  else 
{ /* ./R5rs/hygiene.scm 340 */
BgL_arg2091z00_841 = BGl_symbol5196z00zz__r5_macro_4_3_hygienez00; } } } } 
BgL_newtail1071z00_839 = 
MAKE_PAIR(BgL_arg2091z00_841, BNIL); } 
SET_CDR(BgL_tail1070z00_836, BgL_newtail1071z00_839); 
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_arg2087z00_840;
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_pairz00_1554;
if(
PAIRP(BgL_l1067z00_835))
{ /* ./R5rs/hygiene.scm 336 */
BgL_pairz00_1554 = BgL_l1067z00_835; }  else 
{ /* ./R5rs/hygiene.scm 336 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1067z00_835, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12610))); 
exit( -1 );} 
BgL_arg2087z00_840 = 
CDR(BgL_pairz00_1554); } 
{ 
obj_t BgL_tail1070z00_4080;obj_t BgL_l1067z00_4079;
BgL_l1067z00_4079 = BgL_arg2087z00_840; 
BgL_tail1070z00_4080 = BgL_newtail1071z00_839; 
BgL_tail1070z00_836 = BgL_tail1070z00_4080; 
BgL_l1067z00_835 = BgL_l1067z00_4079; 
goto BgL_map1068z00_837;} } } }  else 
{ /* ./R5rs/hygiene.scm 336 */
if(
NULLP(BgL_l1067z00_835))
{ /* ./R5rs/hygiene.scm 336 */
BgL_arg2080z00_831 = 
CDR(BgL_head1069z00_834); }  else 
{ /* ./R5rs/hygiene.scm 336 */
BgL_arg2080z00_831 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1067z00_835, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12610))); } } } } } 
{ /* ./R5rs/hygiene.scm 336 */
obj_t BgL_auxz00_4094;obj_t BgL_auxz00_4086;
{ /* ./R5rs/hygiene.scm 345 */
bool_t BgL_testz00_4095;
if(
PAIRP(BgL_tmpsz00_52))
{ /* ./R5rs/hygiene.scm 345 */
BgL_testz00_4095 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 345 */
BgL_testz00_4095 = 
NULLP(BgL_tmpsz00_52)
; } 
if(BgL_testz00_4095)
{ /* ./R5rs/hygiene.scm 345 */
BgL_auxz00_4094 = BgL_tmpsz00_52
; }  else 
{ /* ./R5rs/hygiene.scm 345 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_52, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12758))); 
exit( -1 );} } 
{ /* ./R5rs/hygiene.scm 344 */
bool_t BgL_testz00_4087;
if(
PAIRP(BgL_arg2080z00_831))
{ /* ./R5rs/hygiene.scm 344 */
BgL_testz00_4087 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 344 */
BgL_testz00_4087 = 
NULLP(BgL_arg2080z00_831)
; } 
if(BgL_testz00_4087)
{ /* ./R5rs/hygiene.scm 344 */
BgL_auxz00_4086 = BgL_arg2080z00_831
; }  else 
{ /* ./R5rs/hygiene.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2080z00_831, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12744))); 
exit( -1 );} } 
BgL_arg2077z00_830 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4086, BgL_auxz00_4094); } } 
BgL_tmps2z00_794 = 
MAKE_PAIR(BgL_lnamez00_48, BgL_arg2077z00_830); } 
{ /* ./R5rs/hygiene.scm 346 */
obj_t BgL_arg2011z00_795;obj_t BgL_arg2012z00_796;
BgL_arg2011z00_795 = BGl_symbol5208z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_arg2015z00_797;
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_arg2018z00_798;obj_t BgL_arg2019z00_799;
if(
NULLP(BgL_varvalsz00_49))
{ /* ./R5rs/hygiene.scm 347 */
BgL_arg2018z00_798 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_head1074z00_802;
BgL_head1074z00_802 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1072z00_803;obj_t BgL_tail1075z00_804;
BgL_l1072z00_803 = BgL_varvalsz00_49; 
BgL_tail1075z00_804 = BgL_head1074z00_802; 
BgL_map1073z00_805:
{ /* ./R5rs/hygiene.scm 347 */
bool_t BgL_test2024z00_806;
BgL_test2024z00_806 = 
PAIRP(BgL_l1072z00_803); 
if(BgL_test2024z00_806)
{ /* ./R5rs/hygiene.scm 347 */
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_newtail1076z00_807;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2032z00_809;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_varvalz00_811;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_pairz00_1564;
if(BgL_test2024z00_806)
{ /* ./R5rs/hygiene.scm 348 */
BgL_pairz00_1564 = BgL_l1072z00_803; }  else 
{ /* ./R5rs/hygiene.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1072z00_803, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12814))); 
exit( -1 );} 
BgL_varvalz00_811 = 
CAR(BgL_pairz00_1564); } 
{ /* ./R5rs/hygiene.scm 348 */
bool_t BgL_test2035z00_817;
BgL_test2035z00_817 = 
PAIRP(BgL_varvalz00_811); 
if(BgL_test2035z00_817)
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_cdrzd2200zd2_818;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_pairz00_1566;
if(BgL_test2035z00_817)
{ /* ./R5rs/hygiene.scm 348 */
BgL_pairz00_1566 = BgL_varvalz00_811; }  else 
{ /* ./R5rs/hygiene.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_811, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12814))); 
exit( -1 );} 
BgL_cdrzd2200zd2_818 = 
CDR(BgL_pairz00_1566); } 
{ /* ./R5rs/hygiene.scm 348 */
bool_t BgL_test2036z00_819;
BgL_test2036z00_819 = 
PAIRP(BgL_cdrzd2200zd2_818); 
if(BgL_test2036z00_819)
{ /* ./R5rs/hygiene.scm 348 */
bool_t BgL_test2037z00_820;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2046z00_823;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_pairz00_1568;
if(BgL_test2036z00_819)
{ /* ./R5rs/hygiene.scm 348 */
BgL_pairz00_1568 = BgL_cdrzd2200zd2_818; }  else 
{ /* ./R5rs/hygiene.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2200zd2_818, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12814))); 
exit( -1 );} 
BgL_arg2046z00_823 = 
CDR(BgL_pairz00_1568); } 
BgL_test2037z00_820 = 
NULLP(BgL_arg2046z00_823); } 
if(BgL_test2037z00_820)
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2039z00_821;obj_t BgL_arg2040z00_822;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_pairz00_1570;
if(
PAIRP(BgL_varvalz00_811))
{ /* ./R5rs/hygiene.scm 348 */
BgL_pairz00_1570 = BgL_varvalz00_811; }  else 
{ /* ./R5rs/hygiene.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_811, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12814))); 
exit( -1 );} 
BgL_arg2039z00_821 = 
CAR(BgL_pairz00_1570); } 
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_pairz00_1571;
if(
PAIRP(BgL_cdrzd2200zd2_818))
{ /* ./R5rs/hygiene.scm 348 */
BgL_pairz00_1571 = BgL_cdrzd2200zd2_818; }  else 
{ /* ./R5rs/hygiene.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2200zd2_818, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12814))); 
exit( -1 );} 
BgL_arg2040z00_822 = 
CAR(BgL_pairz00_1571); } 
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_arg2055z00_1574;
{ /* ./R5rs/hygiene.scm 348 */
obj_t BgL_auxz00_4142;
BgL_auxz00_4142 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg2040z00_822, BgL_alz00_51, BgL_tmpsz00_52); 
BgL_arg2055z00_1574 = 
MAKE_PAIR(BgL_auxz00_4142, BNIL); } 
BgL_arg2032z00_809 = 
MAKE_PAIR(BgL_arg2039z00_821, BgL_arg2055z00_1574); } }  else 
{ /* ./R5rs/hygiene.scm 348 */
BgL_arg2032z00_809 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_811, BgL_alz00_51, BgL_tmpsz00_52); } }  else 
{ /* ./R5rs/hygiene.scm 348 */
BgL_arg2032z00_809 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_811, BgL_alz00_51, BgL_tmpsz00_52); } } }  else 
{ /* ./R5rs/hygiene.scm 348 */
BgL_arg2032z00_809 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_811, BgL_alz00_51, BgL_tmpsz00_52); } } } 
BgL_newtail1076z00_807 = 
MAKE_PAIR(BgL_arg2032z00_809, BNIL); } 
SET_CDR(BgL_tail1075z00_804, BgL_newtail1076z00_807); 
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_arg2027z00_808;
{ /* ./R5rs/hygiene.scm 347 */
obj_t BgL_pairz00_1584;
if(
PAIRP(BgL_l1072z00_803))
{ /* ./R5rs/hygiene.scm 347 */
BgL_pairz00_1584 = BgL_l1072z00_803; }  else 
{ /* ./R5rs/hygiene.scm 347 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1072z00_803, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12787))); 
exit( -1 );} 
BgL_arg2027z00_808 = 
CDR(BgL_pairz00_1584); } 
{ 
obj_t BgL_tail1075z00_4158;obj_t BgL_l1072z00_4157;
BgL_l1072z00_4157 = BgL_arg2027z00_808; 
BgL_tail1075z00_4158 = BgL_newtail1076z00_807; 
BgL_tail1075z00_804 = BgL_tail1075z00_4158; 
BgL_l1072z00_803 = BgL_l1072z00_4157; 
goto BgL_map1073z00_805;} } } }  else 
{ /* ./R5rs/hygiene.scm 347 */
if(
NULLP(BgL_l1072z00_803))
{ /* ./R5rs/hygiene.scm 347 */
BgL_arg2018z00_798 = 
CDR(BgL_head1074z00_802); }  else 
{ /* ./R5rs/hygiene.scm 347 */
BgL_arg2018z00_798 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1072z00_803, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12787))); } } } } } 
{ /* ./R5rs/hygiene.scm 354 */
obj_t BgL_arg2072z00_828;
BgL_arg2072z00_828 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_50, BgL_alz00_51, BgL_tmps2z00_794); 
{ /* ./R5rs/hygiene.scm 346 */
obj_t BgL_auxz00_4165;
{ /* ./R5rs/hygiene.scm 346 */
bool_t BgL_testz00_4166;
if(
PAIRP(BgL_arg2072z00_828))
{ /* ./R5rs/hygiene.scm 346 */
BgL_testz00_4166 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 346 */
BgL_testz00_4166 = 
NULLP(BgL_arg2072z00_828)
; } 
if(BgL_testz00_4166)
{ /* ./R5rs/hygiene.scm 346 */
BgL_auxz00_4165 = BgL_arg2072z00_828
; }  else 
{ /* ./R5rs/hygiene.scm 346 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5219z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2072z00_828, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)12771))); 
exit( -1 );} } 
BgL_arg2019z00_799 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4165, BNIL); } } 
BgL_arg2015z00_797 = 
MAKE_PAIR(BgL_arg2018z00_798, BgL_arg2019z00_799); } 
BgL_arg2012z00_796 = 
MAKE_PAIR(BgL_lnamez00_48, BgL_arg2015z00_797); } 
BgL_aux2914z00_1730 = 
MAKE_PAIR(BgL_arg2011z00_795, BgL_arg2012z00_796); } } 
POP_TRACE(); 
return BgL_aux2914z00_1730;} } } } 
}



/* 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_symbol2919z00_1731;
BgL_symbol2919z00_1731 = BGl_symbol5220z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 360 */

PUSH_TRACE(BgL_symbol2919z00_1731); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_aux2918z00_1732;
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_tmps2z00_847;
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_arg2172z00_880;
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_arg2175z00_881;
if(
NULLP(BgL_varvalsz00_53))
{ /* ./R5rs/hygiene.scm 360 */
BgL_arg2175z00_881 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_head1079z00_884;
BgL_head1079z00_884 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1077z00_885;obj_t BgL_tail1080z00_886;
BgL_l1077z00_885 = BgL_varvalsz00_53; 
BgL_tail1080z00_886 = BgL_head1079z00_884; 
BgL_map1078z00_887:
{ /* ./R5rs/hygiene.scm 360 */
bool_t BgL_test2179z00_888;
BgL_test2179z00_888 = 
PAIRP(BgL_l1077z00_885); 
if(BgL_test2179z00_888)
{ /* ./R5rs/hygiene.scm 360 */
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_newtail1081z00_889;
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_arg2187z00_891;
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_xz00_893;
{ /* ./R5rs/hygiene.scm 362 */
obj_t BgL_pairz00_1594;
if(BgL_test2179z00_888)
{ /* ./R5rs/hygiene.scm 362 */
BgL_pairz00_1594 = BgL_l1077z00_885; }  else 
{ /* ./R5rs/hygiene.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1077z00_885, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13373))); 
exit( -1 );} 
BgL_xz00_893 = 
CAR(BgL_pairz00_1594); } 
{ /* ./R5rs/hygiene.scm 362 */
bool_t BgL_test2190z00_894;
BgL_test2190z00_894 = 
PAIRP(BgL_xz00_893); 
if(BgL_test2190z00_894)
{ /* ./R5rs/hygiene.scm 362 */
{ /* ./R5rs/hygiene.scm 363 */
obj_t BgL_pairz00_1596;
if(BgL_test2190z00_894)
{ /* ./R5rs/hygiene.scm 363 */
BgL_pairz00_1596 = BgL_xz00_893; }  else 
{ /* ./R5rs/hygiene.scm 363 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_xz00_893, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13400))); 
exit( -1 );} 
BgL_arg2187z00_891 = 
CAR(BgL_pairz00_1596); } }  else 
{ /* ./R5rs/hygiene.scm 362 */
if(
SYMBOLP(BgL_xz00_893))
{ /* ./R5rs/hygiene.scm 364 */
BgL_arg2187z00_891 = BgL_xz00_893; }  else 
{ /* ./R5rs/hygiene.scm 364 */
BgL_arg2187z00_891 = BGl_symbol5196z00zz__r5_macro_4_3_hygienez00; } } } } 
BgL_newtail1081z00_889 = 
MAKE_PAIR(BgL_arg2187z00_891, BNIL); } 
SET_CDR(BgL_tail1080z00_886, BgL_newtail1081z00_889); 
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_arg2182z00_890;
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_pairz00_1602;
if(
PAIRP(BgL_l1077z00_885))
{ /* ./R5rs/hygiene.scm 360 */
BgL_pairz00_1602 = BgL_l1077z00_885; }  else 
{ /* ./R5rs/hygiene.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1077z00_885, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13330))); 
exit( -1 );} 
BgL_arg2182z00_890 = 
CDR(BgL_pairz00_1602); } 
{ 
obj_t BgL_tail1080z00_4207;obj_t BgL_l1077z00_4206;
BgL_l1077z00_4206 = BgL_arg2182z00_890; 
BgL_tail1080z00_4207 = BgL_newtail1081z00_889; 
BgL_tail1080z00_886 = BgL_tail1080z00_4207; 
BgL_l1077z00_885 = BgL_l1077z00_4206; 
goto BgL_map1078z00_887;} } } }  else 
{ /* ./R5rs/hygiene.scm 360 */
if(
NULLP(BgL_l1077z00_885))
{ /* ./R5rs/hygiene.scm 360 */
BgL_arg2175z00_881 = 
CDR(BgL_head1079z00_884); }  else 
{ /* ./R5rs/hygiene.scm 360 */
BgL_arg2175z00_881 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1077z00_885, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13330))); } } } } } 
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_auxz00_4213;
{ /* ./R5rs/hygiene.scm 368 */
bool_t BgL_testz00_4214;
if(
PAIRP(BgL_arg2175z00_881))
{ /* ./R5rs/hygiene.scm 368 */
BgL_testz00_4214 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 368 */
BgL_testz00_4214 = 
NULLP(BgL_arg2175z00_881)
; } 
if(BgL_testz00_4214)
{ /* ./R5rs/hygiene.scm 368 */
BgL_auxz00_4213 = BgL_arg2175z00_881
; }  else 
{ /* ./R5rs/hygiene.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2175z00_881, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13490))); 
exit( -1 );} } 
BgL_arg2172z00_880 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4213); } } 
{ /* ./R5rs/hygiene.scm 360 */
obj_t BgL_auxz00_4222;
{ /* ./R5rs/hygiene.scm 369 */
bool_t BgL_testz00_4223;
if(
PAIRP(BgL_tmpsz00_56))
{ /* ./R5rs/hygiene.scm 369 */
BgL_testz00_4223 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 369 */
BgL_testz00_4223 = 
NULLP(BgL_tmpsz00_56)
; } 
if(BgL_testz00_4223)
{ /* ./R5rs/hygiene.scm 369 */
BgL_auxz00_4222 = BgL_tmpsz00_56
; }  else 
{ /* ./R5rs/hygiene.scm 369 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_56, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13500))); 
exit( -1 );} } 
BgL_tmps2z00_847 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg2172z00_880, BgL_auxz00_4222); } } 
{ /* ./R5rs/hygiene.scm 370 */
obj_t BgL_arg2108z00_848;obj_t BgL_arg2109z00_849;
BgL_arg2108z00_848 = BGl_symbol5209z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 370 */
obj_t BgL_arg2112z00_850;obj_t BgL_arg2113z00_851;
{ /* ./R5rs/hygiene.scm 371 */
long BgL_arg2116z00_855;
{ /* ./R5rs/hygiene.scm 371 */
obj_t BgL_auxz00_4231;
{ /* ./R5rs/hygiene.scm 371 */
bool_t BgL_testz00_4232;
if(
PAIRP(BgL_varvalsz00_53))
{ /* ./R5rs/hygiene.scm 371 */
BgL_testz00_4232 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 371 */
BgL_testz00_4232 = 
NULLP(BgL_varvalsz00_53)
; } 
if(BgL_testz00_4232)
{ /* ./R5rs/hygiene.scm 371 */
BgL_auxz00_4231 = BgL_varvalsz00_53
; }  else 
{ /* ./R5rs/hygiene.scm 371 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_varvalsz00_53, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13569))); 
exit( -1 );} } 
BgL_arg2116z00_855 = 
bgl_list_length(BgL_auxz00_4231); } 
BgL_arg2112z00_850 = 
BGl_loopz00zz__r5_macro_4_3_hygienez00(BgL_tmps2z00_847, BgL_tmpsz00_56, BgL_alz00_55, BgL_varvalsz00_53, BgL_arg2116z00_855); } 
{ /* ./R5rs/hygiene.scm 382 */
obj_t BgL_arg2167z00_878;
BgL_arg2167z00_878 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_54, BgL_alz00_55, BgL_tmps2z00_847); 
{ /* ./R5rs/hygiene.scm 370 */
obj_t BgL_auxz00_4242;
{ /* ./R5rs/hygiene.scm 370 */
bool_t BgL_testz00_4243;
if(
PAIRP(BgL_arg2167z00_878))
{ /* ./R5rs/hygiene.scm 370 */
BgL_testz00_4243 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 370 */
BgL_testz00_4243 = 
NULLP(BgL_arg2167z00_878)
; } 
if(BgL_testz00_4243)
{ /* ./R5rs/hygiene.scm 370 */
BgL_auxz00_4242 = BgL_arg2167z00_878
; }  else 
{ /* ./R5rs/hygiene.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5220z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2167z00_878, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13512))); 
exit( -1 );} } 
BgL_arg2113z00_851 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4242, BNIL); } } 
BgL_arg2109z00_849 = 
MAKE_PAIR(BgL_arg2112z00_850, BgL_arg2113z00_851); } 
BgL_aux2918z00_1732 = 
MAKE_PAIR(BgL_arg2108z00_848, BgL_arg2109z00_849); } } 
POP_TRACE(); 
return BgL_aux2918z00_1732;} } } } 
}



/* loop */
obj_t BGl_loopz00zz__r5_macro_4_3_hygienez00(obj_t BgL_tmps2z00_1784, obj_t BgL_tmpsz00_1783, obj_t BgL_alz00_1782, obj_t BgL_varvalsz00_852, long BgL_iz00_853)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 370 */
if(
NULLP(BgL_varvalsz00_852))
{ /* ./R5rs/hygiene.scm 372 */
return BNIL;}  else 
{ /* ./R5rs/hygiene.scm 373 */
obj_t BgL_varvalz00_857;
{ /* ./R5rs/hygiene.scm 373 */
obj_t BgL_pairz00_1609;
if(
PAIRP(BgL_varvalsz00_852))
{ /* ./R5rs/hygiene.scm 373 */
BgL_pairz00_1609 = BgL_varvalsz00_852; }  else 
{ /* ./R5rs/hygiene.scm 373 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5221z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalsz00_852, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13633))); 
exit( -1 );} 
BgL_varvalz00_857 = 
CAR(BgL_pairz00_1609); } 
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2122z00_858;obj_t BgL_arg2123z00_859;
{ /* ./R5rs/hygiene.scm 374 */
bool_t BgL_test2125z00_865;
BgL_test2125z00_865 = 
PAIRP(BgL_varvalz00_857); 
if(BgL_test2125z00_865)
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_cdrzd2214zd2_866;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_pairz00_1611;
if(BgL_test2125z00_865)
{ /* ./R5rs/hygiene.scm 374 */
BgL_pairz00_1611 = BgL_varvalz00_857; }  else 
{ /* ./R5rs/hygiene.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5221z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_857, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13641))); 
exit( -1 );} 
BgL_cdrzd2214zd2_866 = 
CDR(BgL_pairz00_1611); } 
{ /* ./R5rs/hygiene.scm 374 */
bool_t BgL_test2126z00_867;
BgL_test2126z00_867 = 
PAIRP(BgL_cdrzd2214zd2_866); 
if(BgL_test2126z00_867)
{ /* ./R5rs/hygiene.scm 374 */
bool_t BgL_test2127z00_868;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2138z00_871;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_pairz00_1613;
if(BgL_test2126z00_867)
{ /* ./R5rs/hygiene.scm 374 */
BgL_pairz00_1613 = BgL_cdrzd2214zd2_866; }  else 
{ /* ./R5rs/hygiene.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5221z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2214zd2_866, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13641))); 
exit( -1 );} 
BgL_arg2138z00_871 = 
CDR(BgL_pairz00_1613); } 
BgL_test2127z00_868 = 
NULLP(BgL_arg2138z00_871); } 
if(BgL_test2127z00_868)
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2129z00_869;obj_t BgL_arg2132z00_870;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_pairz00_1615;
if(
PAIRP(BgL_varvalz00_857))
{ /* ./R5rs/hygiene.scm 374 */
BgL_pairz00_1615 = BgL_varvalz00_857; }  else 
{ /* ./R5rs/hygiene.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5221z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalz00_857, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13641))); 
exit( -1 );} 
BgL_arg2129z00_869 = 
CAR(BgL_pairz00_1615); } 
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_pairz00_1616;
if(
PAIRP(BgL_cdrzd2214zd2_866))
{ /* ./R5rs/hygiene.scm 374 */
BgL_pairz00_1616 = BgL_cdrzd2214zd2_866; }  else 
{ /* ./R5rs/hygiene.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5221z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cdrzd2214zd2_866, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13641))); 
exit( -1 );} 
BgL_arg2132z00_870 = 
CAR(BgL_pairz00_1616); } 
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_arg2147z00_1619;
{ /* ./R5rs/hygiene.scm 374 */
obj_t BgL_auxz00_4290;
BgL_auxz00_4290 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_arg2132z00_870, BgL_alz00_1782, 
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_tmps2z00_1784, BgL_iz00_853)); 
BgL_arg2147z00_1619 = 
MAKE_PAIR(BgL_auxz00_4290, BNIL); } 
BgL_arg2122z00_858 = 
MAKE_PAIR(BgL_arg2129z00_869, BgL_arg2147z00_1619); } }  else 
{ /* ./R5rs/hygiene.scm 374 */
BgL_arg2122z00_858 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_857, BgL_alz00_1782, BgL_tmpsz00_1783); } }  else 
{ /* ./R5rs/hygiene.scm 374 */
BgL_arg2122z00_858 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_857, BgL_alz00_1782, BgL_tmpsz00_1783); } } }  else 
{ /* ./R5rs/hygiene.scm 374 */
BgL_arg2122z00_858 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(BgL_varvalz00_857, BgL_alz00_1782, BgL_tmpsz00_1783); } } 
{ /* ./R5rs/hygiene.scm 381 */
obj_t BgL_arg2159z00_876;long BgL_arg2160z00_877;
{ /* ./R5rs/hygiene.scm 381 */
obj_t BgL_pairz00_1627;
if(
PAIRP(BgL_varvalsz00_852))
{ /* ./R5rs/hygiene.scm 381 */
BgL_pairz00_1627 = BgL_varvalsz00_852; }  else 
{ /* ./R5rs/hygiene.scm 381 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5221z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varvalsz00_852, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)13845))); 
exit( -1 );} 
BgL_arg2159z00_876 = 
CDR(BgL_pairz00_1627); } 
BgL_arg2160z00_877 = 
(BgL_iz00_853-((long)1)); 
BgL_arg2123z00_859 = 
BGl_loopz00zz__r5_macro_4_3_hygienez00(BgL_tmps2z00_1784, BgL_tmpsz00_1783, BgL_alz00_1782, BgL_arg2159z00_876, BgL_arg2160z00_877); } 
return 
MAKE_PAIR(BgL_arg2122z00_858, BgL_arg2123z00_859);} } } 
}



/* 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_symbol2923z00_1733;
BgL_symbol2923z00_1733 = BGl_symbol5222z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 388 */

PUSH_TRACE(BgL_symbol2923z00_1733); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_aux2922z00_1734;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_tmps2z00_897;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2257z00_925;
if(
NULLP(BgL_varinistpsz00_57))
{ /* ./R5rs/hygiene.scm 388 */
BgL_arg2257z00_925 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_head1084z00_928;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2283z00_940;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2287z00_942;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_pairz00_1631;
if(
PAIRP(BgL_varinistpsz00_57))
{ /* ./R5rs/hygiene.scm 388 */
BgL_pairz00_1631 = BgL_varinistpsz00_57; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varinistpsz00_57, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); 
exit( -1 );} 
BgL_arg2287z00_942 = 
CAR(BgL_pairz00_1631); } 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_pairz00_1632;
if(
PAIRP(BgL_arg2287z00_942))
{ /* ./R5rs/hygiene.scm 388 */
BgL_pairz00_1632 = BgL_arg2287z00_942; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2287z00_942, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); 
exit( -1 );} 
BgL_arg2283z00_940 = 
CAR(BgL_pairz00_1632); } } 
BgL_head1084z00_928 = 
MAKE_PAIR(BgL_arg2283z00_940, BNIL); } 
{ 
obj_t BgL_l1082z00_929;obj_t BgL_tail1085z00_930;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2261z00_932;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_pairz00_1635;
if(
PAIRP(BgL_varinistpsz00_57))
{ /* ./R5rs/hygiene.scm 388 */
BgL_pairz00_1635 = BgL_varinistpsz00_57; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varinistpsz00_57, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); 
exit( -1 );} 
BgL_arg2261z00_932 = 
CDR(BgL_pairz00_1635); } 
BgL_l1082z00_929 = BgL_arg2261z00_932; 
BgL_tail1085z00_930 = BgL_head1084z00_928; 
BgL_map1083z00_931:
{ /* ./R5rs/hygiene.scm 388 */
bool_t BgL_test2264z00_933;
BgL_test2264z00_933 = 
PAIRP(BgL_l1082z00_929); 
if(BgL_test2264z00_933)
{ /* ./R5rs/hygiene.scm 388 */
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_newtail1086z00_934;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2271z00_936;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2275z00_938;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_pairz00_1637;
if(BgL_test2264z00_933)
{ /* ./R5rs/hygiene.scm 388 */
BgL_pairz00_1637 = BgL_l1082z00_929; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1082z00_929, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); 
exit( -1 );} 
BgL_arg2275z00_938 = 
CAR(BgL_pairz00_1637); } 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_pairz00_1638;
if(
PAIRP(BgL_arg2275z00_938))
{ /* ./R5rs/hygiene.scm 388 */
BgL_pairz00_1638 = BgL_arg2275z00_938; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_arg2275z00_938, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); 
exit( -1 );} 
BgL_arg2271z00_936 = 
CAR(BgL_pairz00_1638); } } 
BgL_newtail1086z00_934 = 
MAKE_PAIR(BgL_arg2271z00_936, BNIL); } 
SET_CDR(BgL_tail1085z00_930, BgL_newtail1086z00_934); 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_arg2267z00_935;
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_pairz00_1643;
if(
PAIRP(BgL_l1082z00_929))
{ /* ./R5rs/hygiene.scm 388 */
BgL_pairz00_1643 = BgL_l1082z00_929; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1082z00_929, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); 
exit( -1 );} 
BgL_arg2267z00_935 = 
CDR(BgL_pairz00_1643); } 
{ 
obj_t BgL_tail1085z00_4351;obj_t BgL_l1082z00_4350;
BgL_l1082z00_4350 = BgL_arg2267z00_935; 
BgL_tail1085z00_4351 = BgL_newtail1086z00_934; 
BgL_tail1085z00_930 = BgL_tail1085z00_4351; 
BgL_l1082z00_929 = BgL_l1082z00_4350; 
goto BgL_map1083z00_931;} } } }  else 
{ /* ./R5rs/hygiene.scm 388 */
if(
NULLP(BgL_l1082z00_929))
{ /* ./R5rs/hygiene.scm 388 */
BgL_arg2257z00_925 = BgL_head1084z00_928; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BgL_arg2257z00_925 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1082z00_929, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14215))); } } } } } } 
{ /* ./R5rs/hygiene.scm 388 */
obj_t BgL_auxz00_4364;obj_t BgL_auxz00_4356;
{ /* ./R5rs/hygiene.scm 388 */
bool_t BgL_testz00_4365;
if(
PAIRP(BgL_tmpsz00_61))
{ /* ./R5rs/hygiene.scm 388 */
BgL_testz00_4365 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BgL_testz00_4365 = 
NULLP(BgL_tmpsz00_61)
; } 
if(BgL_testz00_4365)
{ /* ./R5rs/hygiene.scm 388 */
BgL_auxz00_4364 = BgL_tmpsz00_61
; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_61, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14239))); 
exit( -1 );} } 
{ /* ./R5rs/hygiene.scm 388 */
bool_t BgL_testz00_4357;
if(
PAIRP(BgL_arg2257z00_925))
{ /* ./R5rs/hygiene.scm 388 */
BgL_testz00_4357 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BgL_testz00_4357 = 
NULLP(BgL_arg2257z00_925)
; } 
if(BgL_testz00_4357)
{ /* ./R5rs/hygiene.scm 388 */
BgL_auxz00_4356 = BgL_arg2257z00_925
; }  else 
{ /* ./R5rs/hygiene.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2257z00_925, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14234))); 
exit( -1 );} } 
BgL_tmps2z00_897 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4356, BgL_auxz00_4364); } } 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_arg2204z00_898;obj_t BgL_arg2205z00_899;
BgL_arg2204z00_898 = BGl_symbol5210z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_arg2209z00_900;obj_t BgL_arg2210z00_901;
if(
NULLP(BgL_varinistpsz00_57))
{ /* ./R5rs/hygiene.scm 389 */
BgL_arg2209z00_900 = BNIL; }  else 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_head1089z00_904;
BgL_head1089z00_904 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1087z00_905;obj_t BgL_tail1090z00_906;
BgL_l1087z00_905 = BgL_varinistpsz00_57; 
BgL_tail1090z00_906 = BgL_head1089z00_904; 
BgL_map1088z00_907:
{ /* ./R5rs/hygiene.scm 389 */
bool_t BgL_test2214z00_908;
BgL_test2214z00_908 = 
PAIRP(BgL_l1087z00_905); 
if(BgL_test2214z00_908)
{ /* ./R5rs/hygiene.scm 389 */
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_newtail1091z00_909;
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_arg2221z00_911;
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_varinistpz00_913;
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_pairz00_1652;
if(BgL_test2214z00_908)
{ /* ./R5rs/hygiene.scm 391 */
BgL_pairz00_1652 = BgL_l1087z00_905; }  else 
{ /* ./R5rs/hygiene.scm 391 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1087z00_905, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14289))); 
exit( -1 );} 
BgL_varinistpz00_913 = 
CAR(BgL_pairz00_1652); } 
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_varz00_914;
{ /* ./R5rs/hygiene.scm 391 */
obj_t BgL_pairz00_1653;
if(
PAIRP(BgL_varinistpz00_913))
{ /* ./R5rs/hygiene.scm 391 */
BgL_pairz00_1653 = BgL_varinistpz00_913; }  else 
{ /* ./R5rs/hygiene.scm 391 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varinistpz00_913, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14313))); 
exit( -1 );} 
BgL_varz00_914 = 
CAR(BgL_pairz00_1653); } 
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_arg2225z00_915;
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_arg2228z00_916;
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_arg2232z00_918;obj_t BgL_arg2233z00_919;
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_pairz00_1654;
if(
PAIRP(BgL_varinistpz00_913))
{ /* ./R5rs/hygiene.scm 392 */
BgL_pairz00_1654 = BgL_varinistpz00_913; }  else 
{ /* ./R5rs/hygiene.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_varinistpz00_913, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14365))); 
exit( -1 );} 
BgL_arg2232z00_918 = 
CDR(BgL_pairz00_1654); } 
BgL_arg2233z00_919 = 
MAKE_PAIR(BgL_varz00_914, BgL_tmpsz00_61); 
BgL_arg2228z00_916 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_arg2232z00_918, BgL_alz00_60, BgL_arg2233z00_919); } 
{ /* ./R5rs/hygiene.scm 392 */
obj_t BgL_auxz00_4397;
{ /* ./R5rs/hygiene.scm 392 */
bool_t BgL_testz00_4398;
if(
PAIRP(BgL_arg2228z00_916))
{ /* ./R5rs/hygiene.scm 392 */
BgL_testz00_4398 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 392 */
BgL_testz00_4398 = 
NULLP(BgL_arg2228z00_916)
; } 
if(BgL_testz00_4398)
{ /* ./R5rs/hygiene.scm 392 */
BgL_auxz00_4397 = BgL_arg2228z00_916
; }  else 
{ /* ./R5rs/hygiene.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2228z00_916, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14324))); 
exit( -1 );} } 
BgL_arg2225z00_915 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4397, BNIL); } } 
BgL_arg2221z00_911 = 
MAKE_PAIR(BgL_varz00_914, BgL_arg2225z00_915); } } } 
BgL_newtail1091z00_909 = 
MAKE_PAIR(BgL_arg2221z00_911, BNIL); } 
SET_CDR(BgL_tail1090z00_906, BgL_newtail1091z00_909); 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_arg2217z00_910;
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_pairz00_1659;
if(
PAIRP(BgL_l1087z00_905))
{ /* ./R5rs/hygiene.scm 389 */
BgL_pairz00_1659 = BgL_l1087z00_905; }  else 
{ /* ./R5rs/hygiene.scm 389 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_l1087z00_905, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14256))); 
exit( -1 );} 
BgL_arg2217z00_910 = 
CDR(BgL_pairz00_1659); } 
{ 
obj_t BgL_tail1090z00_4416;obj_t BgL_l1087z00_4415;
BgL_l1087z00_4415 = BgL_arg2217z00_910; 
BgL_tail1090z00_4416 = BgL_newtail1091z00_909; 
BgL_tail1090z00_906 = BgL_tail1090z00_4416; 
BgL_l1087z00_905 = BgL_l1087z00_4415; 
goto BgL_map1088z00_907;} } } }  else 
{ /* ./R5rs/hygiene.scm 389 */
if(
NULLP(BgL_l1087z00_905))
{ /* ./R5rs/hygiene.scm 389 */
BgL_arg2209z00_900 = 
CDR(BgL_head1089z00_904); }  else 
{ /* ./R5rs/hygiene.scm 389 */
BgL_arg2209z00_900 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string5176z00zz__r5_macro_4_3_hygienez00, BGl_string5177z00zz__r5_macro_4_3_hygienez00, BgL_l1087z00_905, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14256))); } } } } } 
{ /* ./R5rs/hygiene.scm 395 */
obj_t BgL_arg2247z00_921;obj_t BgL_arg2248z00_922;
BgL_arg2247z00_921 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_exitzd2testzd2_58, BgL_alz00_60, BgL_tmps2z00_897); 
{ /* ./R5rs/hygiene.scm 396 */
obj_t BgL_arg2252z00_923;
BgL_arg2252z00_923 = 
BGl_hygienezd2untagzd2listz00zz__r5_macro_4_3_hygienez00(BgL_bodyz00_59, BgL_alz00_60, BgL_tmps2z00_897); 
{ /* ./R5rs/hygiene.scm 389 */
obj_t BgL_auxz00_4424;
{ /* ./R5rs/hygiene.scm 389 */
bool_t BgL_testz00_4425;
if(
PAIRP(BgL_arg2252z00_923))
{ /* ./R5rs/hygiene.scm 389 */
BgL_testz00_4425 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 389 */
BgL_testz00_4425 = 
NULLP(BgL_arg2252z00_923)
; } 
if(BgL_testz00_4425)
{ /* ./R5rs/hygiene.scm 389 */
BgL_auxz00_4424 = BgL_arg2252z00_923
; }  else 
{ /* ./R5rs/hygiene.scm 389 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5222z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_arg2252z00_923, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14251))); 
exit( -1 );} } 
BgL_arg2248z00_922 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4424, BNIL); } } 
BgL_arg2210z00_901 = 
MAKE_PAIR(BgL_arg2247z00_921, BgL_arg2248z00_922); } 
BgL_arg2205z00_899 = 
MAKE_PAIR(BgL_arg2209z00_900, BgL_arg2210z00_901); } 
BgL_aux2922z00_1734 = 
MAKE_PAIR(BgL_arg2204z00_898, BgL_arg2205z00_899); } } 
POP_TRACE(); 
return BgL_aux2922z00_1734;} } } } 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 402 */
obj_t BgL_symbol2927z00_1735;
BgL_symbol2927z00_1735 = BGl_symbol5223z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 402 */

PUSH_TRACE(BgL_symbol2927z00_1735); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 402 */
obj_t BgL_aux2926z00_1736;
{ /* ./R5rs/hygiene.scm 402 */
bool_t BgL_test2291z00_943;
BgL_test2291z00_943 = 
PAIRP(BgL_ez00_62); 
if(BgL_test2291z00_943)
{ /* ./R5rs/hygiene.scm 402 */
{ /* ./R5rs/hygiene.scm 403 */
obj_t BgL_arg2293z00_944;obj_t BgL_arg2294z00_945;
{ /* ./R5rs/hygiene.scm 403 */
obj_t BgL_arg2297z00_946;
{ /* ./R5rs/hygiene.scm 403 */
obj_t BgL_pairz00_1666;
if(BgL_test2291z00_943)
{ /* ./R5rs/hygiene.scm 403 */
BgL_pairz00_1666 = BgL_ez00_62; }  else 
{ /* ./R5rs/hygiene.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5223z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_62, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14826))); 
exit( -1 );} 
BgL_arg2297z00_946 = 
CAR(BgL_pairz00_1666); } 
BgL_arg2293z00_944 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_arg2297z00_946, BgL_alz00_63, BgL_tmpsz00_64); } 
{ /* ./R5rs/hygiene.scm 404 */
obj_t BgL_arg2301z00_947;
{ /* ./R5rs/hygiene.scm 404 */
obj_t BgL_pairz00_1667;
if(BgL_test2291z00_943)
{ /* ./R5rs/hygiene.scm 404 */
BgL_pairz00_1667 = BgL_ez00_62; }  else 
{ /* ./R5rs/hygiene.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5223z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_ez00_62, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14868))); 
exit( -1 );} 
BgL_arg2301z00_947 = 
CDR(BgL_pairz00_1667); } 
BgL_arg2294z00_945 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_arg2301z00_947, BgL_alz00_63, BgL_tmpsz00_64); } 
BgL_aux2926z00_1736 = 
MAKE_PAIR(BgL_arg2293z00_944, BgL_arg2294z00_945); } }  else 
{ /* ./R5rs/hygiene.scm 405 */
bool_t BgL_test2304z00_948;
BgL_test2304z00_948 = 
VECTORP(BgL_ez00_62); 
if(BgL_test2304z00_948)
{ /* ./R5rs/hygiene.scm 405 */
{ /* ./R5rs/hygiene.scm 406 */
obj_t BgL_arg2306z00_949;
{ /* ./R5rs/hygiene.scm 406 */
obj_t BgL_arg2309z00_950;
{ /* ./R5rs/hygiene.scm 406 */
obj_t BgL_auxz00_4455;
if(BgL_test2304z00_948)
{ /* ./R5rs/hygiene.scm 406 */
BgL_auxz00_4455 = BgL_ez00_62
; }  else 
{ /* ./R5rs/hygiene.scm 406 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5223z00zz__r5_macro_4_3_hygienez00, BGl_string5190z00zz__r5_macro_4_3_hygienez00, BgL_ez00_62, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)14951))); 
exit( -1 );} 
BgL_arg2309z00_950 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_auxz00_4455); } 
BgL_arg2306z00_949 = 
BGl_hygienezd2untagzd2vanillaz00zz__r5_macro_4_3_hygienez00(BgL_arg2309z00_950, BgL_alz00_63, BgL_tmpsz00_64); } 
BgL_aux2926z00_1736 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg2306z00_949); } }  else 
{ /* ./R5rs/hygiene.scm 405 */
if(
SYMBOLP(BgL_ez00_62))
{ /* ./R5rs/hygiene.scm 408 */
bool_t BgL_test2313z00_952;
{ /* ./R5rs/hygiene.scm 408 */
obj_t BgL_auxz00_4465;
{ /* ./R5rs/hygiene.scm 408 */
obj_t BgL_auxz00_4466;
{ /* ./R5rs/hygiene.scm 408 */
bool_t BgL_testz00_4467;
if(
PAIRP(BgL_tmpsz00_64))
{ /* ./R5rs/hygiene.scm 408 */
BgL_testz00_4467 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 408 */
BgL_testz00_4467 = 
NULLP(BgL_tmpsz00_64)
; } 
if(BgL_testz00_4467)
{ /* ./R5rs/hygiene.scm 408 */
BgL_auxz00_4466 = BgL_tmpsz00_64
; }  else 
{ /* ./R5rs/hygiene.scm 408 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5223z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_tmpsz00_64, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15003))); 
exit( -1 );} } 
BgL_auxz00_4465 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_62, BgL_auxz00_4466); } 
BgL_test2313z00_952 = 
CBOOL(BgL_auxz00_4465); } 
if(BgL_test2313z00_952)
{ /* ./R5rs/hygiene.scm 408 */
BgL_aux2926z00_1736 = BgL_ez00_62; }  else 
{ /* ./R5rs/hygiene.scm 409 */
obj_t BgL_testzd2resultzd2_953;
{ /* ./R5rs/hygiene.scm 409 */
obj_t BgL_auxz00_4477;
{ /* ./R5rs/hygiene.scm 409 */
bool_t BgL_testz00_4478;
if(
PAIRP(BgL_alz00_63))
{ /* ./R5rs/hygiene.scm 409 */
BgL_testz00_4478 = ((bool_t)1)
; }  else 
{ /* ./R5rs/hygiene.scm 409 */
BgL_testz00_4478 = 
NULLP(BgL_alz00_63)
; } 
if(BgL_testz00_4478)
{ /* ./R5rs/hygiene.scm 409 */
BgL_auxz00_4477 = BgL_alz00_63
; }  else 
{ /* ./R5rs/hygiene.scm 409 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5223z00zz__r5_macro_4_3_hygienez00, BGl_string5170z00zz__r5_macro_4_3_hygienez00, BgL_alz00_63, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15021))); 
exit( -1 );} } 
BgL_testzd2resultzd2_953 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_ez00_62, BgL_auxz00_4477); } 
if(
CBOOL(BgL_testzd2resultzd2_953))
{ /* ./R5rs/hygiene.scm 409 */
obj_t BgL_pairz00_1671;
if(
PAIRP(BgL_testzd2resultzd2_953))
{ /* ./R5rs/hygiene.scm 409 */
BgL_pairz00_1671 = BgL_testzd2resultzd2_953; }  else 
{ /* ./R5rs/hygiene.scm 409 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5223z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_testzd2resultzd2_953, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15012))); 
exit( -1 );} 
BgL_aux2926z00_1736 = 
CDR(BgL_pairz00_1671); }  else 
{ /* ./R5rs/hygiene.scm 409 */
BgL_aux2926z00_1736 = BgL_ez00_62; } } }  else 
{ /* ./R5rs/hygiene.scm 407 */
BgL_aux2926z00_1736 = BgL_ez00_62; } } } } 
POP_TRACE(); 
return BgL_aux2926z00_1736;} } } } 
}



/* hygiene-rassq */
obj_t BGl_hygienezd2rassqzd2zz__r5_macro_4_3_hygienez00(obj_t BgL_kz00_65, obj_t BgL_alz00_66)
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 415 */
{ /* ./R5rs/hygiene.scm 416 */
obj_t BgL_symbol2931z00_1737;
BgL_symbol2931z00_1737 = BGl_symbol5224z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 416 */

PUSH_TRACE(BgL_symbol2931z00_1737); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 416 */
obj_t BgL_aux2930z00_1738;
{ 
obj_t BgL_alz00_961;
BgL_alz00_961 = BgL_alz00_66; 
BgL_loopz00_962:
if(
NULLP(BgL_alz00_961))
{ /* ./R5rs/hygiene.scm 417 */
BgL_aux2930z00_1738 = BFALSE; }  else 
{ /* ./R5rs/hygiene.scm 418 */
obj_t BgL_cz00_964;
{ /* ./R5rs/hygiene.scm 418 */
obj_t BgL_pairz00_1674;
if(
PAIRP(BgL_alz00_961))
{ /* ./R5rs/hygiene.scm 418 */
BgL_pairz00_1674 = BgL_alz00_961; }  else 
{ /* ./R5rs/hygiene.scm 418 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5224z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_alz00_961, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15362))); 
exit( -1 );} 
BgL_cz00_964 = 
CAR(BgL_pairz00_1674); } 
{ /* ./R5rs/hygiene.scm 419 */
bool_t BgL_test2326z00_965;
{ /* ./R5rs/hygiene.scm 419 */
obj_t BgL_arg2332z00_967;
{ /* ./R5rs/hygiene.scm 419 */
obj_t BgL_pairz00_1675;
if(
PAIRP(BgL_cz00_964))
{ /* ./R5rs/hygiene.scm 419 */
BgL_pairz00_1675 = BgL_cz00_964; }  else 
{ /* ./R5rs/hygiene.scm 419 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5224z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_cz00_964, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15387))); 
exit( -1 );} 
BgL_arg2332z00_967 = 
CDR(BgL_pairz00_1675); } 
BgL_test2326z00_965 = 
(BgL_arg2332z00_967==BgL_kz00_65); } 
if(BgL_test2326z00_965)
{ /* ./R5rs/hygiene.scm 419 */
BgL_aux2930z00_1738 = BgL_cz00_964; }  else 
{ /* ./R5rs/hygiene.scm 420 */
obj_t BgL_arg2328z00_966;
{ /* ./R5rs/hygiene.scm 420 */
obj_t BgL_pairz00_1676;
if(
PAIRP(BgL_alz00_961))
{ /* ./R5rs/hygiene.scm 420 */
BgL_pairz00_1676 = BgL_alz00_961; }  else 
{ /* ./R5rs/hygiene.scm 420 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5224z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_alz00_961, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15410))); 
exit( -1 );} 
BgL_arg2328z00_966 = 
CDR(BgL_pairz00_1676); } 
{ 
obj_t BgL_alz00_4518;
BgL_alz00_4518 = BgL_arg2328z00_966; 
BgL_alz00_961 = BgL_alz00_4518; 
goto BgL_loopz00_962;} } } } } 
POP_TRACE(); 
return BgL_aux2930z00_1738;} } } } 
}



/* 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 */
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL_symbol2935z00_1739;
BgL_symbol2935z00_1739 = BGl_symbol5225z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 426 */

PUSH_TRACE(BgL_symbol2935z00_1739); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 426 */
obj_t BgL_aux2934z00_1740;
if(
NULLP(BgL_lz00_68))
{ /* ./R5rs/hygiene.scm 426 */
BgL_aux2934z00_1740 = BFALSE; }  else 
{ /* ./R5rs/hygiene.scm 428 */
obj_t BgL__ortest_1093z00_969;
{ /* ./R5rs/hygiene.scm 428 */
obj_t BgL_arg2343z00_971;
{ /* ./R5rs/hygiene.scm 428 */
obj_t BgL_pairz00_1678;
if(
PAIRP(BgL_lz00_68))
{ /* ./R5rs/hygiene.scm 428 */
BgL_pairz00_1678 = BgL_lz00_68; }  else 
{ /* ./R5rs/hygiene.scm 428 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5225z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_lz00_68, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15711))); 
exit( -1 );} 
BgL_arg2343z00_971 = 
CAR(BgL_pairz00_1678); } 
BgL__ortest_1093z00_969 = 
PROCEDURE_L_ENTRY(BgL_predz00_67)(BgL_predz00_67, BgL_arg2343z00_971); } 
if(
CBOOL(BgL__ortest_1093z00_969))
{ /* ./R5rs/hygiene.scm 429 */
BgL_aux2934z00_1740 = BgL__ortest_1093z00_969; }  else 
{ /* ./R5rs/hygiene.scm 429 */
obj_t BgL_arg2339z00_970;
{ /* ./R5rs/hygiene.scm 429 */
obj_t BgL_pairz00_1679;
if(
PAIRP(BgL_lz00_68))
{ /* ./R5rs/hygiene.scm 429 */
BgL_pairz00_1679 = BgL_lz00_68; }  else 
{ /* ./R5rs/hygiene.scm 429 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5225z00zz__r5_macro_4_3_hygienez00, BGl_string5172z00zz__r5_macro_4_3_hygienez00, BgL_lz00_68, BGl_string5171z00zz__r5_macro_4_3_hygienez00, 
BINT(((long)15735))); 
exit( -1 );} 
BgL_arg2339z00_970 = 
CDR(BgL_pairz00_1679); } 
BgL_aux2934z00_1740 = 
BGl_somez00zz__r5_macro_4_3_hygienez00(BgL_predz00_67, BgL_arg2339z00_970); } } 
POP_TRACE(); 
return BgL_aux2934z00_1740;} } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_hygienez00()
{ AN_OBJECT;
{ /* ./R5rs/hygiene.scm 18 */
{ /* ./R5rs/hygiene.scm 18 */
obj_t BgL_symbol2939z00_1741;
BgL_symbol2939z00_1741 = BGl_symbol5226z00zz__r5_macro_4_3_hygienez00; 
{ /* ./R5rs/hygiene.scm 18 */

PUSH_TRACE(BgL_symbol2939z00_1741); BUNSPEC; 
{ /* ./R5rs/hygiene.scm 18 */
obj_t BgL_aux2938z00_1742;
BgL_aux2938z00_1742 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r5_macro_4_3_hygiene"); 
POP_TRACE(); 
return BgL_aux2938z00_1742;} } } } 
}

