/*===========================================================================*/
/*   (R5rs/syntax.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/syntax.scm -indent -o objs/obj_s/R5rs/syntax.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_syntaxz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
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);
static obj_t BGl_loop_2200z00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern obj_t BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
extern obj_t BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_syntaxzd2rulezd2procz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_map2z00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_syntaxz00();
static obj_t BGl_loopz72z72zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
extern obj_t BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_syntaxzd2ruleszd2procz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_TAGzd2163zd2zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(obj_t);
extern obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_list3121z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list3126z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_syntaxz00();
static obj_t BGl_list3136z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_list3145z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list3148z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_TAGzd2220zd2zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_list3153z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl__expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_list3160z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl__expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3162z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl_symbol3161z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3156z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3154z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3150z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3149z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3147z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3146z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31562za3R5rszf2syntaxze2scmza3154ze3z93zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3140z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3138z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3134z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3132z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3131z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3128z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3125z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3123z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_symbol3117z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3116z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3115z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3114z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3113z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3112z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31430za3R5rszf2syntaxze2scmza3114ze3z93zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3111z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3099z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3109z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3110z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3098z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3108z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3097z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3107z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_symbol3103z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3092z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3102z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3091z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3101z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl__expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string3094z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3094za700za7za7__r5_macro_4_3_syntaxza7003173z00, "/tmp/bigloo/runtime/./R5rs/syntax.scm", 37 );
DEFINE_STRING( BGl_string3104z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3104za700za7za7__r5_macro_4_3_syntaxza7003174z00, "No matching clause", 18 );
DEFINE_STRING( BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3093za700za7za7__r5_macro_4_3_syntaxza7003175z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2letreczd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl__expandza7d2letrecza7d2syntaxza700za7za7__r5_macro_4_3_syntaxza7003176z00, BGl__expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2definezd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl__expandza7d2defineza7d2syntaxza700za7za7__r5_macro_4_3_syntaxza7003177z00, BGl__expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00, 0L, 2 );
DEFINE_STRING( BGl_string3159z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3159za700za7za7__r5_macro_4_3_syntaxza7003178z00, "<anonymous:1562:R5rs/syntax.scm:154>:Wrong number of arguments", 62 );
DEFINE_STRING( BGl_string3155z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3155za700za7za7__r5_macro_4_3_syntaxza7003179z00, "let-syntax", 10 );
DEFINE_STRING( BGl_string3152z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3152za700za7za7__r5_macro_4_3_syntaxza7003180z00, "expand-let-syntax:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string3144z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3144za700za7za7__r5_macro_4_3_syntaxza7003181z00, "<anonymous:1430:R5rs/syntax.scm:114>:Wrong number of arguments", 62 );
DEFINE_STRING( BGl_string3142z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3142za700za7za7__r5_macro_4_3_syntaxza7003182z00, "Illegal bindings", 16 );
DEFINE_STRING( BGl_string3139z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3139za700za7za7__r5_macro_4_3_syntaxza7003183z00, "letrec-syntax", 13 );
DEFINE_STRING( BGl_string3135z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3135za700za7za7__r5_macro_4_3_syntaxza7003184z00, "expand-letrec-syntax:Wrong number of arguments", 46 );
DEFINE_STRING( BGl_string3130z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3130za700za7za7__r5_macro_4_3_syntaxza7003185z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string3129z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3129za700za7za7__r5_macro_4_3_syntaxza7003186z00, "define-syntax", 13 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2letzd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl__expandza7d2letza7d2syntaxza700za7za7__r5_macro_4_3_syntaxza7003187z00, BGl__expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00, 0L, 2 );
DEFINE_STRING( BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3119za700za7za7__r5_macro_4_3_syntaxza7003188z00, "procedure", 9 );
DEFINE_STRING( BGl_string3120z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3120za700za7za7__r5_macro_4_3_syntaxza7003189z00, "expand-define-syntax:Wrong number of arguments", 46 );
DEFINE_STRING( BGl_string3096z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3096za700za7za7__r5_macro_4_3_syntaxza7003190z00, "Illegal list", 12 );
DEFINE_STRING( BGl_string3106z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3106za700za7za7__r5_macro_4_3_syntaxza7003191z00, "Illegal clause", 14 );
DEFINE_STRING( BGl_string3095z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3095za700za7za7__r5_macro_4_3_syntaxza7003192z00, "syntax-rules", 12 );
DEFINE_STRING( BGl_string3105z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string3105za700za7za7__r5_macro_4_3_syntaxza7003193z00, "pair-nil", 8 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(long BgL_checksumz00_1105, char * BgL_fromz00_1106)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00))
{ 
BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r5_macro_4_3_syntaxz00(); 
BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_syntaxz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_syntaxz00()
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 18 */
BGl_symbol3091z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("map2"); 
BGl_symbol3092z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("loop'"); 
BGl_symbol3097z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("syntax-rules-proc"); 
BGl_symbol3098z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("let"); 
BGl_symbol3099z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("cons"); 
BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("quote"); 
BGl_symbol3101z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("cond"); 
BGl_symbol3102z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("else"); 
BGl_symbol3103z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("error"); 
BGl_symbol3107z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("r5rs-macro-matches-pattern?"); 
BGl_symbol3108z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("multiple-value-bind"); 
BGl_symbol3109z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("tout-pat"); 
BGl_symbol3110z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("alist"); 
BGl_symbol3111z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("r5rs-hygiene-tag"); 
BGl_symbol3112z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("append"); 
BGl_symbol3113z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("r5rs-hygiene-flatten"); 
BGl_symbol3114z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("r5rs-hygiene-untag"); 
BGl_symbol3115z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("r5rs-macro-expand-pattern"); 
BGl_symbol3116z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("r5rs-macro-get-bindings"); 
BGl_symbol3117z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("syntax-rule-proc"); 
BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("expand-define-syntax"); 
BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("funcall"); 
BGl_symbol3123z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("gensym"); 
{ /* ./R5rs/syntax.scm 96 */
obj_t BgL_auxz00_1135;
{ /* ./R5rs/syntax.scm 96 */
obj_t BgL_auxz00_1136;
BgL_auxz00_1136 = 
MAKE_PAIR(BGl_symbol3123z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1135 = 
MAKE_PAIR(BGl_symbol3123z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1136); } 
BGl_list3121z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1135); } 
BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("_"); 
BGl_symbol3125z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("define-macro"); 
BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("e"); 
BGl_symbol3128z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("arg1345"); 
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_auxz00_1144;
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_auxz00_1145;
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_auxz00_1146;
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_auxz00_1147;
BgL_auxz00_1147 = 
MAKE_PAIR(BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1146 = 
MAKE_PAIR(BGl_symbol3128z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1147); } 
BgL_auxz00_1145 = 
MAKE_PAIR(BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1146); } 
BgL_auxz00_1144 = 
MAKE_PAIR(BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1145); } 
BGl_list3126z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1144); } 
BGl_symbol3131z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("syntax-rules"); 
BGl_symbol3132z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("_expand-define-syntax"); 
BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("expand-letrec-syntax"); 
BGl_symbol3134z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("begin"); 
BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("e1"); 
BGl_symbol3138z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("arg1382"); 
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_auxz00_1159;
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_auxz00_1160;
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_auxz00_1161;
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_auxz00_1162;
BgL_auxz00_1162 = 
MAKE_PAIR(BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1161 = 
MAKE_PAIR(BGl_symbol3138z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1162); } 
BgL_auxz00_1160 = 
MAKE_PAIR(BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1161); } 
BgL_auxz00_1159 = 
MAKE_PAIR(BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1160); } 
BGl_list3136z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1159); } 
BGl_symbol3140z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("_expand-letrec-syntax"); 
BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("loop"); 
BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("<anonymous:1430:R5rs/syntax.scm:114>"); 
BGl_symbol3146z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("e2"); 
BGl_symbol3147z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("arg1458"); 
{ /* ./R5rs/syntax.scm 130 */
obj_t BgL_auxz00_1173;
{ /* ./R5rs/syntax.scm 130 */
obj_t BgL_auxz00_1174;
{ /* ./R5rs/syntax.scm 130 */
obj_t BgL_auxz00_1175;
{ /* ./R5rs/syntax.scm 130 */
obj_t BgL_auxz00_1176;
BgL_auxz00_1176 = 
MAKE_PAIR(BGl_symbol3146z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1175 = 
MAKE_PAIR(BGl_symbol3147z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1176); } 
BgL_auxz00_1174 = 
MAKE_PAIR(BGl_symbol3146z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1175); } 
BgL_auxz00_1173 = 
MAKE_PAIR(BGl_symbol3146z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1174); } 
BGl_list3145z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1173); } 
BGl_symbol3149z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("e3"); 
BGl_symbol3150z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("x"); 
{ /* ./R5rs/syntax.scm 138 */
obj_t BgL_auxz00_1184;
{ /* ./R5rs/syntax.scm 138 */
obj_t BgL_auxz00_1185;
{ /* ./R5rs/syntax.scm 138 */
obj_t BgL_auxz00_1186;
{ /* ./R5rs/syntax.scm 138 */
obj_t BgL_auxz00_1187;
BgL_auxz00_1187 = 
MAKE_PAIR(BGl_symbol3146z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1186 = 
MAKE_PAIR(BGl_symbol3150z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1187); } 
BgL_auxz00_1185 = 
MAKE_PAIR(BGl_symbol3149z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1186); } 
BgL_auxz00_1184 = 
MAKE_PAIR(BGl_symbol3149z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1185); } 
BGl_list3148z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1184); } 
BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("expand-let-syntax"); 
BGl_symbol3154z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("arg1512"); 
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_auxz00_1195;
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_auxz00_1196;
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_auxz00_1197;
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_auxz00_1198;
BgL_auxz00_1198 = 
MAKE_PAIR(BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1197 = 
MAKE_PAIR(BGl_symbol3154z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1198); } 
BgL_auxz00_1196 = 
MAKE_PAIR(BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1197); } 
BgL_auxz00_1195 = 
MAKE_PAIR(BGl_symbol3137z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1196); } 
BGl_list3153z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1195); } 
BGl_symbol3156z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("_expand-let-syntax"); 
BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("loop_2200"); 
BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("<anonymous:1562:R5rs/syntax.scm:154>"); 
BGl_symbol3161z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("arg1589"); 
{ /* ./R5rs/syntax.scm 170 */
obj_t BgL_auxz00_1208;
{ /* ./R5rs/syntax.scm 170 */
obj_t BgL_auxz00_1209;
{ /* ./R5rs/syntax.scm 170 */
obj_t BgL_auxz00_1210;
{ /* ./R5rs/syntax.scm 170 */
obj_t BgL_auxz00_1211;
BgL_auxz00_1211 = 
MAKE_PAIR(BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_auxz00_1210 = 
MAKE_PAIR(BGl_symbol3161z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1211); } 
BgL_auxz00_1209 = 
MAKE_PAIR(BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1210); } 
BgL_auxz00_1208 = 
MAKE_PAIR(BGl_symbol3127z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1209); } 
BGl_list3160z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_PAIR(BGl_symbol3122z00zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1208); } 
return ( 
BGl_symbol3162z00zz__r5_macro_4_3_syntaxz00 = 
string_to_symbol("%import@__r5_macro_4_3_syntax"), BUNSPEC) ;} 
}



/* map2 */
obj_t BGl_map2z00zz__r5_macro_4_3_syntaxz00(obj_t BgL_fz00_1, obj_t BgL_l0z00_2)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 49 */
{ /* ./R5rs/syntax.scm 50 */
obj_t BgL_symbol2156z00_851;
BgL_symbol2156z00_851 = BGl_symbol3091z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 50 */

PUSH_TRACE(BgL_symbol2156z00_851); BUNSPEC; 
{ /* ./R5rs/syntax.scm 50 */
obj_t BgL_aux2155z00_852;
BgL_aux2155z00_852 = 
BGl_loopz72z72zz__r5_macro_4_3_syntaxz00(BgL_fz00_1, BgL_l0z00_2, BgL_l0z00_2); 
POP_TRACE(); 
return BgL_aux2155z00_852;} } } } 
}



/* loop' */
obj_t BGl_loopz72z72zz__r5_macro_4_3_syntaxz00(obj_t BgL_fz00_910, obj_t BgL_l0z00_909, obj_t BgL_lz00_277)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 50 */
if(
NULLP(BgL_lz00_277))
{ /* ./R5rs/syntax.scm 52 */
return BNIL;}  else 
{ /* ./R5rs/syntax.scm 54 */
bool_t BgL_test1005z00_280;
BgL_test1005z00_280 = 
PAIRP(BgL_lz00_277); 
if(BgL_test1005z00_280)
{ /* ./R5rs/syntax.scm 54 */
{ /* ./R5rs/syntax.scm 57 */
obj_t BgL_arg1007z00_281;obj_t BgL_arg1008z00_282;
{ /* ./R5rs/syntax.scm 57 */
obj_t BgL_arg1011z00_283;
{ /* ./R5rs/syntax.scm 57 */
obj_t BgL_pairz00_718;
if(BgL_test1005z00_280)
{ /* ./R5rs/syntax.scm 57 */
BgL_pairz00_718 = BgL_lz00_277; }  else 
{ /* ./R5rs/syntax.scm 57 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3092z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_lz00_277, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)2294))); 
exit( -1 );} 
BgL_arg1011z00_283 = 
CAR(BgL_pairz00_718); } 
BgL_arg1007z00_281 = 
BGl_syntaxzd2rulezd2procz00zz__r5_macro_4_3_syntaxz00(BgL_fz00_910, BgL_arg1011z00_283); } 
{ /* ./R5rs/syntax.scm 57 */
obj_t BgL_arg1015z00_284;
{ /* ./R5rs/syntax.scm 57 */
obj_t BgL_pairz00_719;
if(BgL_test1005z00_280)
{ /* ./R5rs/syntax.scm 57 */
BgL_pairz00_719 = BgL_lz00_277; }  else 
{ /* ./R5rs/syntax.scm 57 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3092z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_lz00_277, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)2309))); 
exit( -1 );} 
BgL_arg1015z00_284 = 
CDR(BgL_pairz00_719); } 
BgL_arg1008z00_282 = 
BGl_loopz72z72zz__r5_macro_4_3_syntaxz00(BgL_fz00_910, BgL_l0z00_909, BgL_arg1015z00_284); } 
return 
MAKE_PAIR(BgL_arg1007z00_281, BgL_arg1008z00_282);} }  else 
{ /* ./R5rs/syntax.scm 54 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3095z00zz__r5_macro_4_3_syntaxz00, BGl_string3096z00zz__r5_macro_4_3_syntaxz00, BgL_l0z00_909, "./R5rs/syntax.scm", ((long)2227)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)2227)));} } } 
}



/* syntax-rules-proc */
obj_t BGl_syntaxzd2ruleszd2procz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_macrozd2namezd2_3, obj_t BgL_kkz00_4, obj_t BgL_ccz00_5, obj_t BgL_argzd2symzd2_6, obj_t BgL_kkzd2symzd2_7)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 62 */
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_symbol2160z00_853;
BgL_symbol2160z00_853 = BGl_symbol3097z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 82 */

PUSH_TRACE(BgL_symbol2160z00_853); BUNSPEC; 
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_aux2159z00_854;
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_syntaxzd2rulezd2procz00_863;
{ 
int BgL_auxz00_1243;
BgL_auxz00_1243 = 
(int)(((long)2)); 
BgL_syntaxzd2rulezd2procz00_863 = 
MAKE_EL_PROCEDURE(BgL_auxz00_1243); } 
{ /* ./R5rs/syntax.scm 82 */
int BgL_auxz00_1246;
BgL_auxz00_1246 = 
(int)(((long)0)); 
PROCEDURE_EL_SET(BgL_syntaxzd2rulezd2procz00_863, BgL_auxz00_1246, BgL_kkzd2symzd2_7); } 
{ /* ./R5rs/syntax.scm 82 */
int BgL_auxz00_1249;
BgL_auxz00_1249 = 
(int)(((long)1)); 
PROCEDURE_EL_SET(BgL_syntaxzd2rulezd2procz00_863, BgL_auxz00_1249, BgL_argzd2symzd2_6); } 
{ /* ./R5rs/syntax.scm 83 */
obj_t BgL_kkz00_286;
BgL_kkz00_286 = 
MAKE_PAIR(BgL_macrozd2namezd2_3, BgL_kkz00_4); 
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1023z00_287;obj_t BgL_arg1024z00_288;
BgL_arg1023z00_287 = BGl_symbol3098z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1028z00_289;obj_t BgL_arg1029z00_290;
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1032z00_291;obj_t BgL_arg1033z00_292;
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1036z00_293;
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1039z00_294;
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1044z00_296;obj_t BgL_arg1045z00_297;
BgL_arg1044z00_296 = BGl_symbol3099z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1048z00_298;obj_t BgL_arg1049z00_299;
{ /* ./R5rs/syntax.scm 84 */
obj_t BgL_arg1052z00_300;obj_t BgL_arg1053z00_301;
BgL_arg1052z00_300 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1053z00_301 = 
MAKE_PAIR(BgL_macrozd2namezd2_3, BNIL); 
BgL_arg1048z00_298 = 
MAKE_PAIR(BgL_arg1052z00_300, BgL_arg1053z00_301); } 
BgL_arg1049z00_299 = 
MAKE_PAIR(BgL_argzd2symzd2_6, BNIL); 
BgL_arg1045z00_297 = 
MAKE_PAIR(BgL_arg1048z00_298, BgL_arg1049z00_299); } 
BgL_arg1039z00_294 = 
MAKE_PAIR(BgL_arg1044z00_296, BgL_arg1045z00_297); } 
BgL_arg1036z00_293 = 
MAKE_PAIR(BgL_arg1039z00_294, BNIL); } 
BgL_arg1032z00_291 = 
MAKE_PAIR(BgL_argzd2symzd2_6, BgL_arg1036z00_293); } 
{ /* ./R5rs/syntax.scm 85 */
obj_t BgL_arg1058z00_302;
{ /* ./R5rs/syntax.scm 85 */
obj_t BgL_arg1064z00_304;
{ /* ./R5rs/syntax.scm 85 */
obj_t BgL_arg1067z00_305;
{ /* ./R5rs/syntax.scm 85 */
obj_t BgL_arg1073z00_307;obj_t BgL_arg1075z00_308;
BgL_arg1073z00_307 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1075z00_308 = 
MAKE_PAIR(BgL_kkz00_286, BNIL); 
BgL_arg1067z00_305 = 
MAKE_PAIR(BgL_arg1073z00_307, BgL_arg1075z00_308); } 
BgL_arg1064z00_304 = 
MAKE_PAIR(BgL_arg1067z00_305, BNIL); } 
BgL_arg1058z00_302 = 
MAKE_PAIR(BgL_kkzd2symzd2_7, BgL_arg1064z00_304); } 
BgL_arg1033z00_292 = 
MAKE_PAIR(BgL_arg1058z00_302, BNIL); } 
BgL_arg1028z00_289 = 
MAKE_PAIR(BgL_arg1032z00_291, BgL_arg1033z00_292); } 
{ /* ./R5rs/syntax.scm 86 */
obj_t BgL_arg1079z00_309;
{ /* ./R5rs/syntax.scm 86 */
obj_t BgL_arg1083z00_311;obj_t BgL_arg1084z00_312;
BgL_arg1083z00_311 = BGl_symbol3101z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 86 */
obj_t BgL_arg1087z00_313;obj_t BgL_arg1088z00_314;
BgL_arg1087z00_313 = 
BGl_map2z00zz__r5_macro_4_3_syntaxz00(BgL_syntaxzd2rulezd2procz00_863, BgL_ccz00_5); 
{ /* ./R5rs/syntax.scm 87 */
obj_t BgL_arg1092z00_315;
{ /* ./R5rs/syntax.scm 87 */
obj_t BgL_arg1096z00_317;obj_t BgL_arg1097z00_318;
BgL_arg1096z00_317 = BGl_symbol3102z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 88 */
obj_t BgL_arg1100z00_319;
{ /* ./R5rs/syntax.scm 88 */
obj_t BgL_arg1104z00_321;obj_t BgL_arg1105z00_322;
BgL_arg1104z00_321 = BGl_symbol3103z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 88 */
obj_t BgL_arg1109z00_324;
{ /* ./R5rs/syntax.scm 88 */
obj_t BgL_arg1113z00_326;
{ /* ./R5rs/syntax.scm 88 */
obj_t BgL_arg1117z00_327;
{ /* ./R5rs/syntax.scm 88 */
obj_t BgL_arg1121z00_329;obj_t BgL_arg1122z00_330;
BgL_arg1121z00_329 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1122z00_330 = 
MAKE_PAIR(BgL_macrozd2namezd2_3, BNIL); 
BgL_arg1117z00_327 = 
MAKE_PAIR(BgL_arg1121z00_329, BgL_arg1122z00_330); } 
BgL_arg1113z00_326 = 
MAKE_PAIR(BgL_arg1117z00_327, BNIL); } 
BgL_arg1109z00_324 = 
MAKE_PAIR(BGl_string3104z00zz__r5_macro_4_3_syntaxz00, BgL_arg1113z00_326); } 
BgL_arg1105z00_322 = 
MAKE_PAIR(BGl_string3095z00zz__r5_macro_4_3_syntaxz00, BgL_arg1109z00_324); } 
BgL_arg1100z00_319 = 
MAKE_PAIR(BgL_arg1104z00_321, BgL_arg1105z00_322); } 
BgL_arg1097z00_318 = 
MAKE_PAIR(BgL_arg1100z00_319, BNIL); } 
BgL_arg1092z00_315 = 
MAKE_PAIR(BgL_arg1096z00_317, BgL_arg1097z00_318); } 
BgL_arg1088z00_314 = 
MAKE_PAIR(BgL_arg1092z00_315, BNIL); } 
{ /* ./R5rs/syntax.scm 86 */
obj_t BgL_auxz00_1276;
{ /* ./R5rs/syntax.scm 86 */
bool_t BgL_testz00_1277;
if(
PAIRP(BgL_arg1087z00_313))
{ /* ./R5rs/syntax.scm 86 */
BgL_testz00_1277 = ((bool_t)1)
; }  else 
{ /* ./R5rs/syntax.scm 86 */
BgL_testz00_1277 = 
NULLP(BgL_arg1087z00_313)
; } 
if(BgL_testz00_1277)
{ /* ./R5rs/syntax.scm 86 */
BgL_auxz00_1276 = BgL_arg1087z00_313
; }  else 
{ /* ./R5rs/syntax.scm 86 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3097z00zz__r5_macro_4_3_syntaxz00, BGl_string3105z00zz__r5_macro_4_3_syntaxz00, BgL_arg1087z00_313, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3242))); 
exit( -1 );} } 
BgL_arg1084z00_312 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_1276, BgL_arg1088z00_314); } } 
BgL_arg1079z00_309 = 
MAKE_PAIR(BgL_arg1083z00_311, BgL_arg1084z00_312); } 
BgL_arg1029z00_290 = 
MAKE_PAIR(BgL_arg1079z00_309, BNIL); } 
BgL_arg1024z00_288 = 
MAKE_PAIR(BgL_arg1028z00_289, BgL_arg1029z00_290); } 
BgL_aux2159z00_854 = 
MAKE_PAIR(BgL_arg1023z00_287, BgL_arg1024z00_288); } } } 
POP_TRACE(); 
return BgL_aux2159z00_854;} } } } 
}



/* syntax-rule-proc */
obj_t BGl_syntaxzd2rulezd2procz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_864, obj_t BgL_cz00_867)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 82 */
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_kkzd2symzd2_865;obj_t BgL_argzd2symzd2_866;
{ /* ./R5rs/syntax.scm 82 */
int BgL_auxz00_1290;
BgL_auxz00_1290 = 
(int)(((long)0)); 
BgL_kkzd2symzd2_865 = 
PROCEDURE_EL_REF(BgL_envz00_864, BgL_auxz00_1290); } 
{ /* ./R5rs/syntax.scm 82 */
int BgL_auxz00_1293;
BgL_auxz00_1293 = 
(int)(((long)1)); 
BgL_argzd2symzd2_866 = 
PROCEDURE_EL_REF(BgL_envz00_864, BgL_auxz00_1293); } 
{ 
obj_t BgL_cz00_331;
BgL_cz00_331 = BgL_cz00_867; 
{ 
obj_t BgL_inzd2patzd2_333;obj_t BgL_outzd2patzd2_334;
{ /* ./R5rs/syntax.scm 82 */
bool_t BgL_test1127z00_338;
BgL_test1127z00_338 = 
PAIRP(BgL_cz00_331); 
if(BgL_test1127z00_338)
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_cdrzd2109zd2_339;
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_pairz00_724;
if(BgL_test1127z00_338)
{ /* ./R5rs/syntax.scm 82 */
BgL_pairz00_724 = BgL_cz00_331; }  else 
{ /* ./R5rs/syntax.scm 82 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3117z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_331, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3125))); 
exit( -1 );} 
BgL_cdrzd2109zd2_339 = 
CDR(BgL_pairz00_724); } 
{ /* ./R5rs/syntax.scm 82 */
bool_t BgL_test1128z00_340;
BgL_test1128z00_340 = 
PAIRP(BgL_cdrzd2109zd2_339); 
if(BgL_test1128z00_340)
{ /* ./R5rs/syntax.scm 82 */
bool_t BgL_test1129z00_341;
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_arg1138z00_344;
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_pairz00_726;
if(BgL_test1128z00_340)
{ /* ./R5rs/syntax.scm 82 */
BgL_pairz00_726 = BgL_cdrzd2109zd2_339; }  else 
{ /* ./R5rs/syntax.scm 82 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3117z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2109zd2_339, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3125))); 
exit( -1 );} 
BgL_arg1138z00_344 = 
CDR(BgL_pairz00_726); } 
BgL_test1129z00_341 = 
NULLP(BgL_arg1138z00_344); } 
if(BgL_test1129z00_341)
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_arg1131z00_342;obj_t BgL_arg1132z00_343;
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_pairz00_728;
if(
PAIRP(BgL_cz00_331))
{ /* ./R5rs/syntax.scm 82 */
BgL_pairz00_728 = BgL_cz00_331; }  else 
{ /* ./R5rs/syntax.scm 82 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3117z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_331, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3125))); 
exit( -1 );} 
BgL_arg1131z00_342 = 
CAR(BgL_pairz00_728); } 
{ /* ./R5rs/syntax.scm 82 */
obj_t BgL_pairz00_729;
if(
PAIRP(BgL_cdrzd2109zd2_339))
{ /* ./R5rs/syntax.scm 82 */
BgL_pairz00_729 = BgL_cdrzd2109zd2_339; }  else 
{ /* ./R5rs/syntax.scm 82 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3117z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2109zd2_339, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3125))); 
exit( -1 );} 
BgL_arg1132z00_343 = 
CAR(BgL_pairz00_729); } 
BgL_inzd2patzd2_333 = BgL_arg1131z00_342; 
BgL_outzd2patzd2_334 = BgL_arg1132z00_343; 
{ /* ./R5rs/syntax.scm 66 */
obj_t BgL_arg1147z00_345;obj_t BgL_arg1148z00_346;
{ /* ./R5rs/syntax.scm 66 */
obj_t BgL_arg1151z00_347;obj_t BgL_arg1152z00_348;
BgL_arg1151z00_347 = BGl_symbol3107z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 66 */
obj_t BgL_arg1155z00_349;obj_t BgL_arg1156z00_350;
{ /* ./R5rs/syntax.scm 66 */
obj_t BgL_arg1160z00_351;obj_t BgL_arg1161z00_352;
BgL_arg1160z00_351 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1161z00_352 = 
MAKE_PAIR(BgL_inzd2patzd2_333, BNIL); 
BgL_arg1155z00_349 = 
MAKE_PAIR(BgL_arg1160z00_351, BgL_arg1161z00_352); } 
{ /* ./R5rs/syntax.scm 66 */
obj_t BgL_arg1165z00_353;
BgL_arg1165z00_353 = 
MAKE_PAIR(BgL_kkzd2symzd2_865, BNIL); 
BgL_arg1156z00_350 = 
MAKE_PAIR(BgL_argzd2symzd2_866, BgL_arg1165z00_353); } 
BgL_arg1152z00_348 = 
MAKE_PAIR(BgL_arg1155z00_349, BgL_arg1156z00_350); } 
BgL_arg1147z00_345 = 
MAKE_PAIR(BgL_arg1151z00_347, BgL_arg1152z00_348); } 
{ /* ./R5rs/syntax.scm 67 */
obj_t BgL_arg1169z00_354;
{ /* ./R5rs/syntax.scm 67 */
obj_t BgL_arg1174z00_356;obj_t BgL_arg1175z00_357;
BgL_arg1174z00_356 = BGl_symbol3108z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 67 */
obj_t BgL_arg1178z00_358;obj_t BgL_arg1179z00_359;
{ /* ./R5rs/syntax.scm 67 */
obj_t BgL_arg1182z00_360;obj_t BgL_arg1183z00_361;
BgL_arg1182z00_360 = BGl_symbol3109z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1183z00_361 = 
MAKE_PAIR(BGl_symbol3110z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BgL_arg1178z00_358 = 
MAKE_PAIR(BgL_arg1182z00_360, BgL_arg1183z00_361); } 
{ /* ./R5rs/syntax.scm 69 */
obj_t BgL_arg1187z00_362;obj_t BgL_arg1188z00_363;
{ /* ./R5rs/syntax.scm 69 */
obj_t BgL_arg1191z00_364;obj_t BgL_arg1192z00_365;
BgL_arg1191z00_364 = BGl_symbol3111z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 69 */
obj_t BgL_arg1195z00_366;obj_t BgL_arg1196z00_367;
{ /* ./R5rs/syntax.scm 69 */
obj_t BgL_arg1199z00_368;obj_t BgL_arg1200z00_369;
BgL_arg1199z00_368 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1200z00_369 = 
MAKE_PAIR(BgL_outzd2patzd2_334, BNIL); 
BgL_arg1195z00_366 = 
MAKE_PAIR(BgL_arg1199z00_368, BgL_arg1200z00_369); } 
{ /* ./R5rs/syntax.scm 70 */
obj_t BgL_arg1204z00_370;obj_t BgL_arg1205z00_371;
{ /* ./R5rs/syntax.scm 70 */
obj_t BgL_arg1208z00_372;obj_t BgL_arg1209z00_373;
BgL_arg1208z00_372 = BGl_symbol3112z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 70 */
obj_t BgL_arg1212z00_374;obj_t BgL_arg1213z00_375;
{ /* ./R5rs/syntax.scm 70 */
obj_t BgL_arg1216z00_376;obj_t BgL_arg1217z00_377;
BgL_arg1216z00_376 = BGl_symbol3113z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 70 */
obj_t BgL_arg1220z00_378;
{ /* ./R5rs/syntax.scm 70 */
obj_t BgL_arg1224z00_380;obj_t BgL_arg1225z00_381;
BgL_arg1224z00_380 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1225z00_381 = 
MAKE_PAIR(BgL_inzd2patzd2_333, BNIL); 
BgL_arg1220z00_378 = 
MAKE_PAIR(BgL_arg1224z00_380, BgL_arg1225z00_381); } 
BgL_arg1217z00_377 = 
MAKE_PAIR(BgL_arg1220z00_378, BNIL); } 
BgL_arg1212z00_374 = 
MAKE_PAIR(BgL_arg1216z00_376, BgL_arg1217z00_377); } 
BgL_arg1213z00_375 = 
MAKE_PAIR(BgL_kkzd2symzd2_865, BNIL); 
BgL_arg1209z00_373 = 
MAKE_PAIR(BgL_arg1212z00_374, BgL_arg1213z00_375); } 
BgL_arg1204z00_370 = 
MAKE_PAIR(BgL_arg1208z00_372, BgL_arg1209z00_373); } 
{ /* ./R5rs/syntax.scm 72 */
obj_t BgL_arg1230z00_382;
{ /* ./R5rs/syntax.scm 72 */
obj_t BgL_arg1234z00_384;obj_t BgL_arg1235z00_385;
BgL_arg1234z00_384 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1235z00_385 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_arg1230z00_382 = 
MAKE_PAIR(BgL_arg1234z00_384, BgL_arg1235z00_385); } 
BgL_arg1205z00_371 = 
MAKE_PAIR(BgL_arg1230z00_382, BNIL); } 
BgL_arg1196z00_367 = 
MAKE_PAIR(BgL_arg1204z00_370, BgL_arg1205z00_371); } 
BgL_arg1192z00_365 = 
MAKE_PAIR(BgL_arg1195z00_366, BgL_arg1196z00_367); } 
BgL_arg1187z00_362 = 
MAKE_PAIR(BgL_arg1191z00_364, BgL_arg1192z00_365); } 
{ /* ./R5rs/syntax.scm 74 */
obj_t BgL_arg1240z00_386;
{ /* ./R5rs/syntax.scm 74 */
obj_t BgL_arg1244z00_388;obj_t BgL_arg1245z00_389;
BgL_arg1244z00_388 = BGl_symbol3114z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 75 */
obj_t BgL_arg1249z00_390;obj_t BgL_arg1250z00_391;
{ /* ./R5rs/syntax.scm 75 */
obj_t BgL_arg1254z00_392;obj_t BgL_arg1255z00_393;
BgL_arg1254z00_392 = BGl_symbol3115z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 75 */
obj_t BgL_arg1258z00_394;obj_t BgL_arg1259z00_395;
BgL_arg1258z00_394 = BGl_symbol3109z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 77 */
obj_t BgL_arg1262z00_396;obj_t BgL_arg1265z00_397;
{ /* ./R5rs/syntax.scm 77 */
obj_t BgL_arg1268z00_398;obj_t BgL_arg1269z00_399;
BgL_arg1268z00_398 = BGl_symbol3116z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 77 */
obj_t BgL_arg1273z00_400;obj_t BgL_arg1274z00_401;
{ /* ./R5rs/syntax.scm 77 */
obj_t BgL_arg1277z00_402;obj_t BgL_arg1278z00_403;
BgL_arg1277z00_402 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1278z00_403 = 
MAKE_PAIR(BgL_inzd2patzd2_333, BNIL); 
BgL_arg1273z00_400 = 
MAKE_PAIR(BgL_arg1277z00_402, BgL_arg1278z00_403); } 
{ /* ./R5rs/syntax.scm 77 */
obj_t BgL_arg1282z00_404;
BgL_arg1282z00_404 = 
MAKE_PAIR(BgL_kkzd2symzd2_865, BNIL); 
BgL_arg1274z00_401 = 
MAKE_PAIR(BgL_argzd2symzd2_866, BgL_arg1282z00_404); } 
BgL_arg1269z00_399 = 
MAKE_PAIR(BgL_arg1273z00_400, BgL_arg1274z00_401); } 
BgL_arg1262z00_396 = 
MAKE_PAIR(BgL_arg1268z00_398, BgL_arg1269z00_399); } 
BgL_arg1265z00_397 = 
MAKE_PAIR(BgL_kkzd2symzd2_865, BNIL); 
BgL_arg1259z00_395 = 
MAKE_PAIR(BgL_arg1262z00_396, BgL_arg1265z00_397); } 
BgL_arg1255z00_393 = 
MAKE_PAIR(BgL_arg1258z00_394, BgL_arg1259z00_395); } 
BgL_arg1249z00_390 = 
MAKE_PAIR(BgL_arg1254z00_392, BgL_arg1255z00_393); } 
{ /* ./R5rs/syntax.scm 74 */
obj_t BgL_arg1287z00_405;obj_t BgL_arg1288z00_406;
BgL_arg1287z00_405 = BGl_symbol3110z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 80 */
obj_t BgL_arg1291z00_407;
{ /* ./R5rs/syntax.scm 80 */
obj_t BgL_arg1295z00_409;obj_t BgL_arg1296z00_410;
BgL_arg1295z00_409 = BGl_symbol3100z00zz__r5_macro_4_3_syntaxz00; 
BgL_arg1296z00_410 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_arg1291z00_407 = 
MAKE_PAIR(BgL_arg1295z00_409, BgL_arg1296z00_410); } 
BgL_arg1288z00_406 = 
MAKE_PAIR(BgL_arg1291z00_407, BNIL); } 
BgL_arg1250z00_391 = 
MAKE_PAIR(BgL_arg1287z00_405, BgL_arg1288z00_406); } 
BgL_arg1245z00_389 = 
MAKE_PAIR(BgL_arg1249z00_390, BgL_arg1250z00_391); } 
BgL_arg1240z00_386 = 
MAKE_PAIR(BgL_arg1244z00_388, BgL_arg1245z00_389); } 
BgL_arg1188z00_363 = 
MAKE_PAIR(BgL_arg1240z00_386, BNIL); } 
BgL_arg1179z00_359 = 
MAKE_PAIR(BgL_arg1187z00_362, BgL_arg1188z00_363); } 
BgL_arg1175z00_357 = 
MAKE_PAIR(BgL_arg1178z00_358, BgL_arg1179z00_359); } 
BgL_arg1169z00_354 = 
MAKE_PAIR(BgL_arg1174z00_356, BgL_arg1175z00_357); } 
BgL_arg1148z00_346 = 
MAKE_PAIR(BgL_arg1169z00_354, BNIL); } 
return 
MAKE_PAIR(BgL_arg1147z00_345, BgL_arg1148z00_346);} }  else 
{ /* ./R5rs/syntax.scm 82 */
BgL_tagzd2102zd2_336:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3095z00zz__r5_macro_4_3_syntaxz00, BGl_string3106z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_331, "./R5rs/syntax.scm", ((long)3083)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3125)));} }  else 
{ /* ./R5rs/syntax.scm 82 */
goto BgL_tagzd2102zd2_336;} } }  else 
{ /* ./R5rs/syntax.scm 82 */
goto BgL_tagzd2102zd2_336;} } } } } } 
}



/* expand-define-syntax */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_8, obj_t BgL_ez00_9)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 93 */
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_symbol2164z00_855;
BgL_symbol2164z00_855 = BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 94 */

PUSH_TRACE(BgL_symbol2164z00_855); BUNSPEC; 
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_aux2163z00_856;
{ 
obj_t BgL_macronamez00_412;obj_t BgL_ksz00_413;obj_t BgL_clausesz00_414;
{ /* ./R5rs/syntax.scm 94 */
bool_t BgL_test1301z00_418;
BgL_test1301z00_418 = 
PAIRP(BgL_xz00_8); 
if(BgL_test1301z00_418)
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_cdrzd2125zd2_419;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_734;
if(BgL_test1301z00_418)
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_734 = BgL_xz00_8; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_8, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_cdrzd2125zd2_419 = 
CDR(BgL_pairz00_734); } 
{ /* ./R5rs/syntax.scm 94 */
bool_t BgL_test1302z00_420;
BgL_test1302z00_420 = 
PAIRP(BgL_cdrzd2125zd2_419); 
if(BgL_test1302z00_420)
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_carzd2129zd2_421;obj_t BgL_cdrzd2130zd2_422;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_736;
if(BgL_test1302z00_420)
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_736 = BgL_cdrzd2125zd2_419; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2125zd2_419, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_carzd2129zd2_421 = 
CAR(BgL_pairz00_736); } 
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_737;
if(BgL_test1302z00_420)
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_737 = BgL_cdrzd2125zd2_419; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2125zd2_419, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_cdrzd2130zd2_422 = 
CDR(BgL_pairz00_737); } 
if(
SYMBOLP(BgL_carzd2129zd2_421))
{ /* ./R5rs/syntax.scm 94 */
bool_t BgL_test1304z00_424;
BgL_test1304z00_424 = 
PAIRP(BgL_cdrzd2130zd2_422); 
if(BgL_test1304z00_424)
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_carzd2136zd2_425;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_740;
if(BgL_test1304z00_424)
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_740 = BgL_cdrzd2130zd2_422; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2130zd2_422, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_carzd2136zd2_425 = 
CAR(BgL_pairz00_740); } 
{ /* ./R5rs/syntax.scm 94 */
bool_t BgL_test1305z00_426;
BgL_test1305z00_426 = 
PAIRP(BgL_carzd2136zd2_425); 
if(BgL_test1305z00_426)
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_cdrzd2141zd2_427;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_742;
if(BgL_test1305z00_426)
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_742 = BgL_carzd2136zd2_425; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_carzd2136zd2_425, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_cdrzd2141zd2_427 = 
CDR(BgL_pairz00_742); } 
{ /* ./R5rs/syntax.scm 94 */
bool_t BgL_test1306z00_428;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_arg1324z00_434;obj_t BgL_arg1326z00_435;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_743;
if(
PAIRP(BgL_carzd2136zd2_425))
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_743 = BgL_carzd2136zd2_425; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_carzd2136zd2_425, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_arg1324z00_434 = 
CAR(BgL_pairz00_743); } 
BgL_arg1326z00_435 = BGl_symbol3131z00zz__r5_macro_4_3_syntaxz00; 
BgL_test1306z00_428 = 
(BgL_arg1324z00_434==BgL_arg1326z00_435); } 
if(BgL_test1306z00_428)
{ /* ./R5rs/syntax.scm 94 */
if(
PAIRP(BgL_cdrzd2141zd2_427))
{ /* ./R5rs/syntax.scm 94 */
bool_t BgL_test1308z00_430;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_arg1317z00_433;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_745;
if(
PAIRP(BgL_cdrzd2130zd2_422))
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_745 = BgL_cdrzd2130zd2_422; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2130zd2_422, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_arg1317z00_433 = 
CDR(BgL_pairz00_745); } 
BgL_test1308z00_430 = 
NULLP(BgL_arg1317z00_433); } 
if(BgL_test1308z00_430)
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_arg1310z00_431;obj_t BgL_arg1311z00_432;
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_747;
if(
PAIRP(BgL_cdrzd2141zd2_427))
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_747 = BgL_cdrzd2141zd2_427; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2141zd2_427, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_arg1310z00_431 = 
CAR(BgL_pairz00_747); } 
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_pairz00_748;
if(
PAIRP(BgL_cdrzd2141zd2_427))
{ /* ./R5rs/syntax.scm 94 */
BgL_pairz00_748 = BgL_cdrzd2141zd2_427; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2141zd2_427, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
BgL_arg1311z00_432 = 
CDR(BgL_pairz00_748); } 
BgL_macronamez00_412 = BgL_carzd2129zd2_421; 
BgL_ksz00_413 = BgL_arg1310z00_431; 
BgL_clausesz00_414 = BgL_arg1311z00_432; 
{ /* ./R5rs/syntax.scm 96 */
obj_t BgL_rulesz00_436;
{ /* ./R5rs/syntax.scm 96 */
obj_t BgL_funz00_927;
{ /* ./R5rs/syntax.scm 96 */
obj_t BgL_aux2297z00_925;
BgL_aux2297z00_925 = BGl_gensymz00zz__r4_symbols_6_4z00; 
if(
PROCEDUREP(BgL_aux2297z00_925))
{ /* ./R5rs/syntax.scm 96 */
BgL_funz00_927 = BgL_aux2297z00_925; }  else 
{ /* ./R5rs/syntax.scm 96 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_aux2297z00_925, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3716))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_927, ((long)0)))
{ /* ./R5rs/syntax.scm 96 */
BgL_rulesz00_436 = 
PROCEDURE_ENTRY(BgL_funz00_927)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); }  else 
{ /* ./R5rs/syntax.scm 96 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3120z00zz__r5_macro_4_3_syntaxz00, BGl_list3121z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_927, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3716))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } 
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_arg1345z00_437;
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_arg1348z00_438;obj_t BgL_arg1349z00_439;
BgL_arg1348z00_438 = BGl_symbol3125z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 97 */
obj_t BgL_arg1352z00_440;obj_t BgL_arg1354z00_441;
BgL_arg1352z00_440 = 
MAKE_PAIR(BgL_macronamez00_412, BgL_rulesz00_436); 
{ /* ./R5rs/syntax.scm 100 */
obj_t BgL_arg1358z00_442;
{ /* ./R5rs/syntax.scm 100 */
obj_t BgL_arg1362z00_444;
{ /* ./R5rs/syntax.scm 100 */
obj_t BgL_funz00_932;
{ /* ./R5rs/syntax.scm 100 */
obj_t BgL_aux2314z00_930;
BgL_aux2314z00_930 = BGl_gensymz00zz__r4_symbols_6_4z00; 
if(
PROCEDUREP(BgL_aux2314z00_930))
{ /* ./R5rs/syntax.scm 100 */
BgL_funz00_932 = BgL_aux2314z00_930; }  else 
{ /* ./R5rs/syntax.scm 100 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3118z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_aux2314z00_930, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3838))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_932, ((long)0)))
{ /* ./R5rs/syntax.scm 100 */
BgL_arg1362z00_444 = 
PROCEDURE_ENTRY(BgL_funz00_932)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); }  else 
{ /* ./R5rs/syntax.scm 100 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3120z00zz__r5_macro_4_3_syntaxz00, BGl_list3121z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_932, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3838))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } 
BgL_arg1358z00_442 = 
BGl_syntaxzd2ruleszd2procz00zz__r5_macro_4_3_syntaxz00(BgL_macronamez00_412, BgL_ksz00_413, BgL_clausesz00_414, BgL_rulesz00_436, BgL_arg1362z00_444); } 
BgL_arg1354z00_441 = 
MAKE_PAIR(BgL_arg1358z00_442, BNIL); } 
BgL_arg1349z00_439 = 
MAKE_PAIR(BgL_arg1352z00_440, BgL_arg1354z00_441); } 
BgL_arg1345z00_437 = 
MAKE_PAIR(BgL_arg1348z00_438, BgL_arg1349z00_439); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_ez00_9, ((long)2)))
{ /* ./R5rs/syntax.scm 97 */
BgL_aux2163z00_856 = 
PROCEDURE_ENTRY(BgL_ez00_9)(BgL_ez00_9, BgL_arg1345z00_437, BgL_ez00_9, BEOA); }  else 
{ /* ./R5rs/syntax.scm 97 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3120z00zz__r5_macro_4_3_syntaxz00, BGl_list3126z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_9, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3730))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } }  else 
{ /* ./R5rs/syntax.scm 94 */
BgL_tagzd2116zd2_416:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3129z00zz__r5_macro_4_3_syntaxz00, BGl_string3130z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_8, "./R5rs/syntax.scm", ((long)3879)); 
BgL_aux2163z00_856 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); } }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} } }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} } }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} } }  else 
{ /* ./R5rs/syntax.scm 94 */
goto BgL_tagzd2116zd2_416;} } } 
POP_TRACE(); 
return BgL_aux2163z00_856;} } } } 
}



/* _expand-define-syntax */
obj_t BGl__expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_868, obj_t BgL_xz00_869, obj_t BgL_ez00_870)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 93 */
{ /* ./R5rs/syntax.scm 94 */
obj_t BgL_auxz00_1478;
if(
PROCEDUREP(BgL_ez00_870))
{ /* ./R5rs/syntax.scm 94 */
BgL_auxz00_1478 = BgL_ez00_870
; }  else 
{ /* ./R5rs/syntax.scm 94 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3132z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_870, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)3611))); 
exit( -1 );} 
return 
BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_869, BgL_auxz00_1478);} } 
}



/* expand-letrec-syntax */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_10, obj_t BgL_ez00_11)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 108 */
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_symbol2168z00_857;
BgL_symbol2168z00_857 = BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 109 */

PUSH_TRACE(BgL_symbol2168z00_857); BUNSPEC; 
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_aux2167z00_858;
{ 
obj_t BgL_bindingsz00_445;obj_t BgL_bodyz00_446;
{ /* ./R5rs/syntax.scm 109 */
bool_t BgL_test1368z00_450;
BgL_test1368z00_450 = 
PAIRP(BgL_xz00_10); 
if(BgL_test1368z00_450)
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_cdrzd2156zd2_451;
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_pairz00_753;
if(BgL_test1368z00_450)
{ /* ./R5rs/syntax.scm 109 */
BgL_pairz00_753 = BgL_xz00_10; }  else 
{ /* ./R5rs/syntax.scm 109 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_10, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4184))); 
exit( -1 );} 
BgL_cdrzd2156zd2_451 = 
CDR(BgL_pairz00_753); } 
{ /* ./R5rs/syntax.scm 109 */
bool_t BgL_test1369z00_452;
BgL_test1369z00_452 = 
PAIRP(BgL_cdrzd2156zd2_451); 
if(BgL_test1369z00_452)
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_arg1371z00_453;obj_t BgL_arg1372z00_454;
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_pairz00_755;
if(BgL_test1369z00_452)
{ /* ./R5rs/syntax.scm 109 */
BgL_pairz00_755 = BgL_cdrzd2156zd2_451; }  else 
{ /* ./R5rs/syntax.scm 109 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2156zd2_451, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4184))); 
exit( -1 );} 
BgL_arg1371z00_453 = 
CAR(BgL_pairz00_755); } 
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_pairz00_756;
if(BgL_test1369z00_452)
{ /* ./R5rs/syntax.scm 109 */
BgL_pairz00_756 = BgL_cdrzd2156zd2_451; }  else 
{ /* ./R5rs/syntax.scm 109 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2156zd2_451, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4184))); 
exit( -1 );} 
BgL_arg1372z00_454 = 
CDR(BgL_pairz00_756); } 
BgL_bindingsz00_445 = BgL_arg1371z00_453; 
BgL_bodyz00_446 = BgL_arg1372z00_454; 
{ /* ./R5rs/syntax.scm 111 */
obj_t BgL_e1z00_455;
BgL_e1z00_455 = 
BGl_loopz00zz__r5_macro_4_3_syntaxz00(BgL_ez00_11, BgL_bindingsz00_445); 
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_arg1382z00_456;
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_arg1385z00_457;obj_t BgL_arg1386z00_458;
BgL_arg1385z00_457 = BGl_symbol3134z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_auxz00_1506;
{ /* ./R5rs/syntax.scm 141 */
bool_t BgL_testz00_1507;
if(
PAIRP(BgL_bodyz00_446))
{ /* ./R5rs/syntax.scm 141 */
BgL_testz00_1507 = ((bool_t)1)
; }  else 
{ /* ./R5rs/syntax.scm 141 */
BgL_testz00_1507 = 
NULLP(BgL_bodyz00_446)
; } 
if(BgL_testz00_1507)
{ /* ./R5rs/syntax.scm 141 */
BgL_auxz00_1506 = BgL_bodyz00_446
; }  else 
{ /* ./R5rs/syntax.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00, BGl_string3105z00zz__r5_macro_4_3_syntaxz00, BgL_bodyz00_446, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5291))); 
exit( -1 );} } 
BgL_arg1386z00_458 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_1506, BNIL); } 
BgL_arg1382z00_456 = 
MAKE_PAIR(BgL_arg1385z00_457, BgL_arg1386z00_458); } 
{ /* ./R5rs/syntax.scm 141 */
obj_t BgL_funz00_962;
if(
PROCEDUREP(BgL_e1z00_455))
{ /* ./R5rs/syntax.scm 141 */
BgL_funz00_962 = BgL_e1z00_455; }  else 
{ /* ./R5rs/syntax.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3133z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_e1z00_455, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5286))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_962, ((long)2)))
{ /* ./R5rs/syntax.scm 141 */
BgL_aux2167z00_858 = 
PROCEDURE_ENTRY(BgL_funz00_962)(BgL_e1z00_455, BgL_arg1382z00_456, BgL_e1z00_455, BEOA); }  else 
{ /* ./R5rs/syntax.scm 141 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3135z00zz__r5_macro_4_3_syntaxz00, BGl_list3136z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_962, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5286))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } } }  else 
{ /* ./R5rs/syntax.scm 109 */
BgL_tagzd2149zd2_448:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3139z00zz__r5_macro_4_3_syntaxz00, BGl_string3130z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_10, "./R5rs/syntax.scm", ((long)5331)); 
BgL_aux2167z00_858 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4184))); } } }  else 
{ /* ./R5rs/syntax.scm 109 */
goto BgL_tagzd2149zd2_448;} } } 
POP_TRACE(); 
return BgL_aux2167z00_858;} } } } 
}



/* _expand-letrec-syntax */
obj_t BGl__expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_875, obj_t BgL_xz00_876, obj_t BgL_ez00_877)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 108 */
{ /* ./R5rs/syntax.scm 109 */
obj_t BgL_auxz00_1532;
if(
PROCEDUREP(BgL_ez00_877))
{ /* ./R5rs/syntax.scm 109 */
BgL_auxz00_1532 = BgL_ez00_877
; }  else 
{ /* ./R5rs/syntax.scm 109 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3140z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_877, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4184))); 
exit( -1 );} 
return 
BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_876, BgL_auxz00_1532);} } 
}



/* loop */
obj_t BGl_loopz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_ez00_878, obj_t BgL_bindingsz00_459)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 111 */
if(
NULLP(BgL_bindingsz00_459))
{ /* ./R5rs/syntax.scm 112 */
return BgL_ez00_878;}  else 
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_ezd2165zd2_467;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_758;
if(
PAIRP(BgL_bindingsz00_459))
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_758 = BgL_bindingsz00_459; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_459, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4336))); 
exit( -1 );} 
BgL_ezd2165zd2_467 = 
CAR(BgL_pairz00_758); } 
{ /* ./R5rs/syntax.scm 114 */
bool_t BgL_test1391z00_468;
BgL_test1391z00_468 = 
PAIRP(BgL_ezd2165zd2_467); 
if(BgL_test1391z00_468)
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_carzd2172zd2_469;obj_t BgL_cdrzd2173zd2_470;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_760;
if(BgL_test1391z00_468)
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_760 = BgL_ezd2165zd2_467; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_ezd2165zd2_467, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_carzd2172zd2_469 = 
CAR(BgL_pairz00_760); } 
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_761;
if(BgL_test1391z00_468)
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_761 = BgL_ezd2165zd2_467; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_ezd2165zd2_467, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_cdrzd2173zd2_470 = 
CDR(BgL_pairz00_761); } 
if(
SYMBOLP(BgL_carzd2172zd2_469))
{ /* ./R5rs/syntax.scm 114 */
bool_t BgL_test1393z00_472;
BgL_test1393z00_472 = 
PAIRP(BgL_cdrzd2173zd2_470); 
if(BgL_test1393z00_472)
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_carzd2179zd2_473;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_764;
if(BgL_test1393z00_472)
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_764 = BgL_cdrzd2173zd2_470; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2173zd2_470, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_carzd2179zd2_473 = 
CAR(BgL_pairz00_764); } 
{ /* ./R5rs/syntax.scm 114 */
bool_t BgL_test1394z00_474;
BgL_test1394z00_474 = 
PAIRP(BgL_carzd2179zd2_473); 
if(BgL_test1394z00_474)
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_cdrzd2184zd2_475;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_766;
if(BgL_test1394z00_474)
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_766 = BgL_carzd2179zd2_473; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_carzd2179zd2_473, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_cdrzd2184zd2_475 = 
CDR(BgL_pairz00_766); } 
{ /* ./R5rs/syntax.scm 114 */
bool_t BgL_test1395z00_476;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_arg1413z00_482;obj_t BgL_arg1414z00_483;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_767;
if(
PAIRP(BgL_carzd2179zd2_473))
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_767 = BgL_carzd2179zd2_473; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_carzd2179zd2_473, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_arg1413z00_482 = 
CAR(BgL_pairz00_767); } 
BgL_arg1414z00_483 = BGl_symbol3131z00zz__r5_macro_4_3_syntaxz00; 
BgL_test1395z00_476 = 
(BgL_arg1413z00_482==BgL_arg1414z00_483); } 
if(BgL_test1395z00_476)
{ /* ./R5rs/syntax.scm 114 */
if(
PAIRP(BgL_cdrzd2184zd2_475))
{ /* ./R5rs/syntax.scm 114 */
bool_t BgL_test1397z00_478;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_arg1406z00_481;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_769;
if(
PAIRP(BgL_cdrzd2173zd2_470))
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_769 = BgL_cdrzd2173zd2_470; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2173zd2_470, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_arg1406z00_481 = 
CDR(BgL_pairz00_769); } 
BgL_test1397z00_478 = 
NULLP(BgL_arg1406z00_481); } 
if(BgL_test1397z00_478)
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_arg1399z00_479;obj_t BgL_arg1400z00_480;
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_771;
if(
PAIRP(BgL_cdrzd2184zd2_475))
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_771 = BgL_cdrzd2184zd2_475; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2184zd2_475, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_arg1399z00_479 = 
CAR(BgL_pairz00_771); } 
{ /* ./R5rs/syntax.scm 114 */
obj_t BgL_pairz00_772;
if(
PAIRP(BgL_cdrzd2184zd2_475))
{ /* ./R5rs/syntax.scm 114 */
BgL_pairz00_772 = BgL_cdrzd2184zd2_475; }  else 
{ /* ./R5rs/syntax.scm 114 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3141z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2184zd2_475, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312))); 
exit( -1 );} 
BgL_arg1400z00_480 = 
CDR(BgL_pairz00_772); } 
return 
BGl_TAGzd2163zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459, BgL_ez00_878, BgL_carzd2172zd2_469, BgL_arg1399z00_479, BgL_arg1400z00_480);}  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} }  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} }  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} } }  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} } }  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} }  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} }  else 
{ /* ./R5rs/syntax.scm 114 */
return 
BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_459);} } } } 
}



/* TAG-163 */
obj_t BGl_TAGzd2163zd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_bindingsz00_880, obj_t BgL_ez00_879, obj_t BgL_mz00_462, obj_t BgL_ksz00_463, obj_t BgL_clausesz00_464)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 114 */
{ /* ./R5rs/syntax.scm 116 */
obj_t BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871;
{ 
int BgL_auxz00_1615;int BgL_auxz00_1613;
BgL_auxz00_1615 = 
(int)(((long)5)); 
BgL_auxz00_1613 = 
(int)(((long)2)); 
BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871 = 
make_fx_procedure(BGl_zc3anonymousza31430za3R5rszf2syntaxze2scmza3114ze3z93zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1613, BgL_auxz00_1615); } 
{ /* ./R5rs/syntax.scm 116 */
int BgL_auxz00_1618;
BgL_auxz00_1618 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871, BgL_auxz00_1618, BgL_ez00_879); } 
{ /* ./R5rs/syntax.scm 116 */
int BgL_auxz00_1621;
BgL_auxz00_1621 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871, BgL_auxz00_1621, BgL_mz00_462); } 
{ /* ./R5rs/syntax.scm 116 */
int BgL_auxz00_1624;
BgL_auxz00_1624 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871, BgL_auxz00_1624, BgL_bindingsz00_880); } 
{ /* ./R5rs/syntax.scm 116 */
int BgL_auxz00_1627;
BgL_auxz00_1627 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871, BgL_auxz00_1627, BgL_ksz00_463); } 
{ /* ./R5rs/syntax.scm 116 */
int BgL_auxz00_1630;
BgL_auxz00_1630 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871, BgL_auxz00_1630, BgL_clausesz00_464); } 
return BgL_zc3anonymousza31430za3r5rszf2syntaxze2scmza3114ze3z93_871;} } 
}



/* TAG-164 */
obj_t BGl_TAGzd2164zd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_bindingsz00_881)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 114 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3139z00zz__r5_macro_4_3_syntaxz00, BGl_string3142z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_881, "./R5rs/syntax.scm", ((long)5225)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4312)));} 
}



/* <anonymous:1430:R5rs/syntax.scm:114> */
obj_t BGl_zc3anonymousza31430za3R5rszf2syntaxze2scmza3114ze3z93zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_882, obj_t BgL_xz00_888, obj_t BgL_e2z00_889)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 116 */
{ /* ./R5rs/syntax.scm 117 */
obj_t BgL_ez00_883;obj_t BgL_mz00_884;obj_t BgL_bindingsz00_885;obj_t BgL_ksz00_886;obj_t BgL_clausesz00_887;
{ /* ./R5rs/syntax.scm 117 */
int BgL_auxz00_1636;
BgL_auxz00_1636 = 
(int)(((long)0)); 
BgL_ez00_883 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1636); } 
{ /* ./R5rs/syntax.scm 117 */
int BgL_auxz00_1639;
BgL_auxz00_1639 = 
(int)(((long)1)); 
BgL_mz00_884 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1639); } 
{ /* ./R5rs/syntax.scm 117 */
int BgL_auxz00_1642;
BgL_auxz00_1642 = 
(int)(((long)2)); 
BgL_bindingsz00_885 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1642); } 
{ /* ./R5rs/syntax.scm 117 */
int BgL_auxz00_1645;
BgL_auxz00_1645 = 
(int)(((long)3)); 
BgL_ksz00_886 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1645); } 
{ /* ./R5rs/syntax.scm 117 */
int BgL_auxz00_1648;
BgL_auxz00_1648 = 
(int)(((long)4)); 
BgL_clausesz00_887 = 
PROCEDURE_REF(BgL_envz00_882, BgL_auxz00_1648); } 
{ 
obj_t BgL_xz00_484;obj_t BgL_e2z00_485;
BgL_xz00_484 = BgL_xz00_888; 
BgL_e2z00_485 = BgL_e2z00_889; 
{ /* ./R5rs/syntax.scm 117 */
bool_t BgL_test1431z00_487;
{ /* ./R5rs/syntax.scm 117 */
bool_t BgL_test1487z00_516;
BgL_test1487z00_516 = 
PAIRP(BgL_xz00_484); 
if(BgL_test1487z00_516)
{ /* ./R5rs/syntax.scm 117 */
obj_t BgL_arg1489z00_517;
{ /* ./R5rs/syntax.scm 117 */
obj_t BgL_pairz00_774;
if(BgL_test1487z00_516)
{ /* ./R5rs/syntax.scm 117 */
BgL_pairz00_774 = BgL_xz00_484; }  else 
{ /* ./R5rs/syntax.scm 117 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_484, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4460))); 
exit( -1 );} 
BgL_arg1489z00_517 = 
CAR(BgL_pairz00_774); } 
BgL_test1431z00_487 = 
(BgL_arg1489z00_517==BgL_mz00_884); }  else 
{ /* ./R5rs/syntax.scm 117 */
BgL_test1431z00_487 = ((bool_t)0); } } 
if(BgL_test1431z00_487)
{ 
obj_t BgL_clausesz00_488;
BgL_clausesz00_488 = BgL_clausesz00_887; 
BgL_loopz00_489:
if(
NULLP(BgL_clausesz00_488))
{ /* ./R5rs/syntax.scm 119 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3139z00zz__r5_macro_4_3_syntaxz00, BGl_string3104z00zz__r5_macro_4_3_syntaxz00, BgL_mz00_884, "./R5rs/syntax.scm", ((long)4541)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4583)));}  else 
{ /* ./R5rs/syntax.scm 121 */
obj_t BgL_cz00_491;
{ /* ./R5rs/syntax.scm 121 */
obj_t BgL_pairz00_779;
if(
PAIRP(BgL_clausesz00_488))
{ /* ./R5rs/syntax.scm 121 */
BgL_pairz00_779 = BgL_clausesz00_488; }  else 
{ /* ./R5rs/syntax.scm 121 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_clausesz00_488, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4615))); 
exit( -1 );} 
BgL_cz00_491 = 
CAR(BgL_pairz00_779); } 
{ 
obj_t BgL_inzd2patzd2_492;obj_t BgL_outzd2patzd2_493;
{ /* ./R5rs/syntax.scm 122 */
bool_t BgL_test1436z00_497;
BgL_test1436z00_497 = 
PAIRP(BgL_cz00_491); 
if(BgL_test1436z00_497)
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_cdrzd2199zd2_498;
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_pairz00_781;
if(BgL_test1436z00_497)
{ /* ./R5rs/syntax.scm 122 */
BgL_pairz00_781 = BgL_cz00_491; }  else 
{ /* ./R5rs/syntax.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_491, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4630))); 
exit( -1 );} 
BgL_cdrzd2199zd2_498 = 
CDR(BgL_pairz00_781); } 
{ /* ./R5rs/syntax.scm 122 */
bool_t BgL_test1437z00_499;
BgL_test1437z00_499 = 
PAIRP(BgL_cdrzd2199zd2_498); 
if(BgL_test1437z00_499)
{ /* ./R5rs/syntax.scm 122 */
bool_t BgL_test1438z00_500;
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_arg1448z00_503;
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_pairz00_783;
if(BgL_test1437z00_499)
{ /* ./R5rs/syntax.scm 122 */
BgL_pairz00_783 = BgL_cdrzd2199zd2_498; }  else 
{ /* ./R5rs/syntax.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2199zd2_498, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4630))); 
exit( -1 );} 
BgL_arg1448z00_503 = 
CDR(BgL_pairz00_783); } 
BgL_test1438z00_500 = 
NULLP(BgL_arg1448z00_503); } 
if(BgL_test1438z00_500)
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_arg1440z00_501;obj_t BgL_arg1441z00_502;
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_pairz00_785;
if(
PAIRP(BgL_cz00_491))
{ /* ./R5rs/syntax.scm 122 */
BgL_pairz00_785 = BgL_cz00_491; }  else 
{ /* ./R5rs/syntax.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_491, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4630))); 
exit( -1 );} 
BgL_arg1440z00_501 = 
CAR(BgL_pairz00_785); } 
{ /* ./R5rs/syntax.scm 122 */
obj_t BgL_pairz00_786;
if(
PAIRP(BgL_cdrzd2199zd2_498))
{ /* ./R5rs/syntax.scm 122 */
BgL_pairz00_786 = BgL_cdrzd2199zd2_498; }  else 
{ /* ./R5rs/syntax.scm 122 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2199zd2_498, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4630))); 
exit( -1 );} 
BgL_arg1441z00_502 = 
CAR(BgL_pairz00_786); } 
BgL_inzd2patzd2_492 = BgL_arg1440z00_501; 
BgL_outzd2patzd2_493 = BgL_arg1441z00_502; 
{ /* ./R5rs/syntax.scm 124 */
bool_t BgL_testz00_1699;
{ /* ./R5rs/syntax.scm 124 */
obj_t BgL_auxz00_1700;
BgL_auxz00_1700 = 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_inzd2patzd2_492, BgL_xz00_484, BgL_ksz00_886); 
BgL_testz00_1699 = 
CBOOL(BgL_auxz00_1700); } 
if(BgL_testz00_1699)
{ /* ./R5rs/syntax.scm 125 */
obj_t BgL_toutzd2patzd2_505;
{ /* ./R5rs/syntax.scm 127 */
obj_t BgL_arg1468z00_511;
{ /* ./R5rs/syntax.scm 127 */
obj_t BgL_auxz00_1703;
{ /* ./R5rs/syntax.scm 127 */
bool_t BgL_testz00_1704;
if(
PAIRP(BgL_inzd2patzd2_492))
{ /* ./R5rs/syntax.scm 127 */
BgL_testz00_1704 = ((bool_t)1)
; }  else 
{ /* ./R5rs/syntax.scm 127 */
BgL_testz00_1704 = 
NULLP(BgL_inzd2patzd2_492)
; } 
if(BgL_testz00_1704)
{ /* ./R5rs/syntax.scm 127 */
BgL_auxz00_1703 = BgL_inzd2patzd2_492
; }  else 
{ /* ./R5rs/syntax.scm 127 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3105z00zz__r5_macro_4_3_syntaxz00, BgL_inzd2patzd2_492, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4816))); 
exit( -1 );} } 
BgL_arg1468z00_511 = 
bgl_append2(BgL_auxz00_1703, BgL_ksz00_886); } 
BgL_toutzd2patzd2_505 = 
BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(BgL_outzd2patzd2_493, BgL_arg1468z00_511, BNIL); } 
{ /* ./R5rs/syntax.scm 126 */
obj_t BgL_alistz00_506;
{ /* ./R5rs/syntax.scm 127 */
int BgL_auxz00_1713;
BgL_auxz00_1713 = 
(int)(((long)1)); 
BgL_alistz00_506 = 
BGL_MVALUES_VAL(BgL_auxz00_1713); } 
{ /* ./R5rs/syntax.scm 127 */
obj_t BgL_rz00_507;
BgL_rz00_507 = 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_inzd2patzd2_492, BgL_xz00_484, BgL_ksz00_886); 
{ /* ./R5rs/syntax.scm 130 */
obj_t BgL_arg1458z00_508;
BgL_arg1458z00_508 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_toutzd2patzd2_505, BgL_rz00_507, BgL_ksz00_886), BgL_alistz00_506, BNIL); 
{ /* ./R5rs/syntax.scm 130 */
obj_t BgL_funz00_999;
if(
PROCEDUREP(BgL_e2z00_485))
{ /* ./R5rs/syntax.scm 130 */
BgL_funz00_999 = BgL_e2z00_485; }  else 
{ /* ./R5rs/syntax.scm 130 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_e2z00_485, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4917))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_999, ((long)2)))
{ /* ./R5rs/syntax.scm 130 */
return 
PROCEDURE_ENTRY(BgL_funz00_999)(BgL_e2z00_485, BgL_arg1458z00_508, BgL_e2z00_485, BEOA);}  else 
{ /* ./R5rs/syntax.scm 130 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3144z00zz__r5_macro_4_3_syntaxz00, BGl_list3145z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_999, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4917))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } } } }  else 
{ /* ./R5rs/syntax.scm 134 */
obj_t BgL_arg1474z00_513;
{ /* ./R5rs/syntax.scm 134 */
obj_t BgL_pairz00_788;
if(
PAIRP(BgL_clausesz00_488))
{ /* ./R5rs/syntax.scm 134 */
BgL_pairz00_788 = BgL_clausesz00_488; }  else 
{ /* ./R5rs/syntax.scm 134 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_clausesz00_488, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5068))); 
exit( -1 );} 
BgL_arg1474z00_513 = 
CDR(BgL_pairz00_788); } 
{ 
obj_t BgL_clausesz00_1737;
BgL_clausesz00_1737 = BgL_arg1474z00_513; 
BgL_clausesz00_488 = BgL_clausesz00_1737; 
goto BgL_loopz00_489;} } } }  else 
{ /* ./R5rs/syntax.scm 122 */
BgL_tagzd2192zd2_495:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3139z00zz__r5_macro_4_3_syntaxz00, BGl_string3106z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_491, "./R5rs/syntax.scm", ((long)5093)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)4630)));} }  else 
{ /* ./R5rs/syntax.scm 122 */
goto BgL_tagzd2192zd2_495;} } }  else 
{ /* ./R5rs/syntax.scm 122 */
goto BgL_tagzd2192zd2_495;} } } } }  else 
{ /* ./R5rs/syntax.scm 137 */
obj_t BgL_e3z00_514;
{ /* ./R5rs/syntax.scm 137 */
obj_t BgL_arg1484z00_515;
{ /* ./R5rs/syntax.scm 137 */
obj_t BgL_pairz00_792;
if(
PAIRP(BgL_bindingsz00_885))
{ /* ./R5rs/syntax.scm 137 */
BgL_pairz00_792 = BgL_bindingsz00_885; }  else 
{ /* ./R5rs/syntax.scm 137 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_885, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5176))); 
exit( -1 );} 
BgL_arg1484z00_515 = 
CDR(BgL_pairz00_792); } 
BgL_e3z00_514 = 
BGl_loopz00zz__r5_macro_4_3_syntaxz00(BgL_ez00_883, BgL_arg1484z00_515); } 
{ /* ./R5rs/syntax.scm 138 */
obj_t BgL_funz00_1016;
if(
PROCEDUREP(BgL_e3z00_514))
{ /* ./R5rs/syntax.scm 138 */
BgL_funz00_1016 = BgL_e3z00_514; }  else 
{ /* ./R5rs/syntax.scm 138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3143z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_e3z00_514, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5192))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1016, ((long)2)))
{ /* ./R5rs/syntax.scm 138 */
return 
PROCEDURE_ENTRY(BgL_funz00_1016)(BgL_e3z00_514, BgL_xz00_484, BgL_e2z00_485, BEOA);}  else 
{ /* ./R5rs/syntax.scm 138 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3144z00zz__r5_macro_4_3_syntaxz00, BGl_list3148z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_1016, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5192))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } } } } } 
}



/* expand-let-syntax */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_12, obj_t BgL_ez00_13)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 148 */
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_symbol2172z00_859;
BgL_symbol2172z00_859 = BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 149 */

PUSH_TRACE(BgL_symbol2172z00_859); BUNSPEC; 
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_aux2171z00_860;
{ 
obj_t BgL_bindingsz00_518;obj_t BgL_bodyz00_519;
{ /* ./R5rs/syntax.scm 149 */
bool_t BgL_test1498z00_523;
BgL_test1498z00_523 = 
PAIRP(BgL_xz00_12); 
if(BgL_test1498z00_523)
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_cdrzd2213zd2_524;
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_pairz00_800;
if(BgL_test1498z00_523)
{ /* ./R5rs/syntax.scm 149 */
BgL_pairz00_800 = BgL_xz00_12; }  else 
{ /* ./R5rs/syntax.scm 149 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_12, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5633))); 
exit( -1 );} 
BgL_cdrzd2213zd2_524 = 
CDR(BgL_pairz00_800); } 
{ /* ./R5rs/syntax.scm 149 */
bool_t BgL_test1499z00_525;
BgL_test1499z00_525 = 
PAIRP(BgL_cdrzd2213zd2_524); 
if(BgL_test1499z00_525)
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_arg1501z00_526;obj_t BgL_arg1502z00_527;
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_pairz00_802;
if(BgL_test1499z00_525)
{ /* ./R5rs/syntax.scm 149 */
BgL_pairz00_802 = BgL_cdrzd2213zd2_524; }  else 
{ /* ./R5rs/syntax.scm 149 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2213zd2_524, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5633))); 
exit( -1 );} 
BgL_arg1501z00_526 = 
CAR(BgL_pairz00_802); } 
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_pairz00_803;
if(BgL_test1499z00_525)
{ /* ./R5rs/syntax.scm 149 */
BgL_pairz00_803 = BgL_cdrzd2213zd2_524; }  else 
{ /* ./R5rs/syntax.scm 149 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2213zd2_524, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5633))); 
exit( -1 );} 
BgL_arg1502z00_527 = 
CDR(BgL_pairz00_803); } 
BgL_bindingsz00_518 = BgL_arg1501z00_526; 
BgL_bodyz00_519 = BgL_arg1502z00_527; 
{ /* ./R5rs/syntax.scm 151 */
obj_t BgL_e1z00_528;
BgL_e1z00_528 = 
BGl_loop_2200z00zz__r5_macro_4_3_syntaxz00(BgL_ez00_13, BgL_bindingsz00_518); 
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_arg1512z00_529;
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_arg1515z00_530;obj_t BgL_arg1516z00_531;
BgL_arg1515z00_530 = BGl_symbol3134z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_auxz00_1781;
{ /* ./R5rs/syntax.scm 181 */
bool_t BgL_testz00_1782;
if(
PAIRP(BgL_bodyz00_519))
{ /* ./R5rs/syntax.scm 181 */
BgL_testz00_1782 = ((bool_t)1)
; }  else 
{ /* ./R5rs/syntax.scm 181 */
BgL_testz00_1782 = 
NULLP(BgL_bodyz00_519)
; } 
if(BgL_testz00_1782)
{ /* ./R5rs/syntax.scm 181 */
BgL_auxz00_1781 = BgL_bodyz00_519
; }  else 
{ /* ./R5rs/syntax.scm 181 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00, BGl_string3105z00zz__r5_macro_4_3_syntaxz00, BgL_bodyz00_519, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6726))); 
exit( -1 );} } 
BgL_arg1516z00_531 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_1781, BNIL); } 
BgL_arg1512z00_529 = 
MAKE_PAIR(BgL_arg1515z00_530, BgL_arg1516z00_531); } 
{ /* ./R5rs/syntax.scm 181 */
obj_t BgL_funz00_1023;
if(
PROCEDUREP(BgL_e1z00_528))
{ /* ./R5rs/syntax.scm 181 */
BgL_funz00_1023 = BgL_e1z00_528; }  else 
{ /* ./R5rs/syntax.scm 181 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3151z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_e1z00_528, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6721))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1023, ((long)2)))
{ /* ./R5rs/syntax.scm 181 */
BgL_aux2171z00_860 = 
PROCEDURE_ENTRY(BgL_funz00_1023)(BgL_e1z00_528, BgL_arg1512z00_529, BgL_e1z00_528, BEOA); }  else 
{ /* ./R5rs/syntax.scm 181 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3152z00zz__r5_macro_4_3_syntaxz00, BGl_list3153z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_1023, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6721))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } } }  else 
{ /* ./R5rs/syntax.scm 149 */
BgL_tagzd2206zd2_521:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3155z00zz__r5_macro_4_3_syntaxz00, BGl_string3130z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_12, "./R5rs/syntax.scm", ((long)6766)); 
BgL_aux2171z00_860 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5633))); } } }  else 
{ /* ./R5rs/syntax.scm 149 */
goto BgL_tagzd2206zd2_521;} } } 
POP_TRACE(); 
return BgL_aux2171z00_860;} } } } 
}



/* _expand-let-syntax */
obj_t BGl__expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_894, obj_t BgL_xz00_895, obj_t BgL_ez00_896)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 148 */
{ /* ./R5rs/syntax.scm 149 */
obj_t BgL_auxz00_1807;
if(
PROCEDUREP(BgL_ez00_896))
{ /* ./R5rs/syntax.scm 149 */
BgL_auxz00_1807 = BgL_ez00_896
; }  else 
{ /* ./R5rs/syntax.scm 149 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3156z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_896, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5633))); 
exit( -1 );} 
return 
BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_895, BgL_auxz00_1807);} } 
}



/* loop_2200 */
obj_t BGl_loop_2200z00zz__r5_macro_4_3_syntaxz00(obj_t BgL_ez00_897, obj_t BgL_bindingsz00_532)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 151 */
if(
NULLP(BgL_bindingsz00_532))
{ /* ./R5rs/syntax.scm 152 */
return BgL_ez00_897;}  else 
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_ezd2222zd2_540;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_805;
if(
PAIRP(BgL_bindingsz00_532))
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_805 = BgL_bindingsz00_532; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_532, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5785))); 
exit( -1 );} 
BgL_ezd2222zd2_540 = 
CAR(BgL_pairz00_805); } 
{ /* ./R5rs/syntax.scm 154 */
bool_t BgL_test1521z00_541;
BgL_test1521z00_541 = 
PAIRP(BgL_ezd2222zd2_540); 
if(BgL_test1521z00_541)
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_carzd2229zd2_542;obj_t BgL_cdrzd2230zd2_543;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_807;
if(BgL_test1521z00_541)
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_807 = BgL_ezd2222zd2_540; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_ezd2222zd2_540, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_carzd2229zd2_542 = 
CAR(BgL_pairz00_807); } 
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_808;
if(BgL_test1521z00_541)
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_808 = BgL_ezd2222zd2_540; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_ezd2222zd2_540, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_cdrzd2230zd2_543 = 
CDR(BgL_pairz00_808); } 
if(
SYMBOLP(BgL_carzd2229zd2_542))
{ /* ./R5rs/syntax.scm 154 */
bool_t BgL_test1523z00_545;
BgL_test1523z00_545 = 
PAIRP(BgL_cdrzd2230zd2_543); 
if(BgL_test1523z00_545)
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_carzd2236zd2_546;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_811;
if(BgL_test1523z00_545)
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_811 = BgL_cdrzd2230zd2_543; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2230zd2_543, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_carzd2236zd2_546 = 
CAR(BgL_pairz00_811); } 
{ /* ./R5rs/syntax.scm 154 */
bool_t BgL_test1524z00_547;
BgL_test1524z00_547 = 
PAIRP(BgL_carzd2236zd2_546); 
if(BgL_test1524z00_547)
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_cdrzd2241zd2_548;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_813;
if(BgL_test1524z00_547)
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_813 = BgL_carzd2236zd2_546; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_carzd2236zd2_546, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_cdrzd2241zd2_548 = 
CDR(BgL_pairz00_813); } 
{ /* ./R5rs/syntax.scm 154 */
bool_t BgL_test1525z00_549;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_arg1545z00_555;obj_t BgL_arg1546z00_556;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_814;
if(
PAIRP(BgL_carzd2236zd2_546))
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_814 = BgL_carzd2236zd2_546; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_carzd2236zd2_546, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_arg1545z00_555 = 
CAR(BgL_pairz00_814); } 
BgL_arg1546z00_556 = BGl_symbol3131z00zz__r5_macro_4_3_syntaxz00; 
BgL_test1525z00_549 = 
(BgL_arg1545z00_555==BgL_arg1546z00_556); } 
if(BgL_test1525z00_549)
{ /* ./R5rs/syntax.scm 154 */
if(
PAIRP(BgL_cdrzd2241zd2_548))
{ /* ./R5rs/syntax.scm 154 */
bool_t BgL_test1527z00_551;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_arg1537z00_554;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_816;
if(
PAIRP(BgL_cdrzd2230zd2_543))
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_816 = BgL_cdrzd2230zd2_543; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2230zd2_543, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_arg1537z00_554 = 
CDR(BgL_pairz00_816); } 
BgL_test1527z00_551 = 
NULLP(BgL_arg1537z00_554); } 
if(BgL_test1527z00_551)
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_arg1529z00_552;obj_t BgL_arg1530z00_553;
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_818;
if(
PAIRP(BgL_cdrzd2241zd2_548))
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_818 = BgL_cdrzd2241zd2_548; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2241zd2_548, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_arg1529z00_552 = 
CAR(BgL_pairz00_818); } 
{ /* ./R5rs/syntax.scm 154 */
obj_t BgL_pairz00_819;
if(
PAIRP(BgL_cdrzd2241zd2_548))
{ /* ./R5rs/syntax.scm 154 */
BgL_pairz00_819 = BgL_cdrzd2241zd2_548; }  else 
{ /* ./R5rs/syntax.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3157z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2241zd2_548, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761))); 
exit( -1 );} 
BgL_arg1530z00_553 = 
CDR(BgL_pairz00_819); } 
return 
BGl_TAGzd2220zd2zz__r5_macro_4_3_syntaxz00(BgL_ez00_897, BgL_bindingsz00_532, BgL_carzd2229zd2_542, BgL_arg1529z00_552, BgL_arg1530z00_553);}  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} }  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} }  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} } }  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} } }  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} }  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} }  else 
{ /* ./R5rs/syntax.scm 154 */
return 
BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(BgL_bindingsz00_532);} } } } 
}



/* TAG-220 */
obj_t BGl_TAGzd2220zd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_ez00_899, obj_t BgL_bindingsz00_898, obj_t BgL_mz00_535, obj_t BgL_ksz00_536, obj_t BgL_clausesz00_537)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 154 */
{ /* ./R5rs/syntax.scm 156 */
obj_t BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890;
{ 
int BgL_auxz00_1890;int BgL_auxz00_1888;
BgL_auxz00_1890 = 
(int)(((long)5)); 
BgL_auxz00_1888 = 
(int)(((long)2)); 
BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890 = 
make_fx_procedure(BGl_zc3anonymousza31562za3R5rszf2syntaxze2scmza3154ze3z93zz__r5_macro_4_3_syntaxz00, BgL_auxz00_1888, BgL_auxz00_1890); } 
{ /* ./R5rs/syntax.scm 156 */
int BgL_auxz00_1893;
BgL_auxz00_1893 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890, BgL_auxz00_1893, BgL_mz00_535); } 
{ /* ./R5rs/syntax.scm 156 */
int BgL_auxz00_1896;
BgL_auxz00_1896 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890, BgL_auxz00_1896, BgL_bindingsz00_898); } 
{ /* ./R5rs/syntax.scm 156 */
int BgL_auxz00_1899;
BgL_auxz00_1899 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890, BgL_auxz00_1899, BgL_ksz00_536); } 
{ /* ./R5rs/syntax.scm 156 */
int BgL_auxz00_1902;
BgL_auxz00_1902 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890, BgL_auxz00_1902, BgL_ez00_899); } 
{ /* ./R5rs/syntax.scm 156 */
int BgL_auxz00_1905;
BgL_auxz00_1905 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890, BgL_auxz00_1905, BgL_clausesz00_537); } 
return BgL_zc3anonymousza31562za3r5rszf2syntaxze2scmza3154ze3z93_890;} } 
}



/* TAG-221 */
obj_t BGl_TAGzd2221zd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_bindingsz00_900)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 154 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3155z00zz__r5_macro_4_3_syntaxz00, BGl_string3142z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_900, "./R5rs/syntax.scm", ((long)6663)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5761)));} 
}



/* <anonymous:1562:R5rs/syntax.scm:154> */
obj_t BGl_zc3anonymousza31562za3R5rszf2syntaxze2scmza3154ze3z93zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_901, obj_t BgL_xz00_907, obj_t BgL_e2z00_908)
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 156 */
{ /* ./R5rs/syntax.scm 157 */
obj_t BgL_mz00_902;obj_t BgL_bindingsz00_903;obj_t BgL_ksz00_904;obj_t BgL_ez00_905;obj_t BgL_clausesz00_906;
{ /* ./R5rs/syntax.scm 157 */
int BgL_auxz00_1911;
BgL_auxz00_1911 = 
(int)(((long)0)); 
BgL_mz00_902 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1911); } 
{ /* ./R5rs/syntax.scm 157 */
int BgL_auxz00_1914;
BgL_auxz00_1914 = 
(int)(((long)1)); 
BgL_bindingsz00_903 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1914); } 
{ /* ./R5rs/syntax.scm 157 */
int BgL_auxz00_1917;
BgL_auxz00_1917 = 
(int)(((long)2)); 
BgL_ksz00_904 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1917); } 
{ /* ./R5rs/syntax.scm 157 */
int BgL_auxz00_1920;
BgL_auxz00_1920 = 
(int)(((long)3)); 
BgL_ez00_905 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1920); } 
{ /* ./R5rs/syntax.scm 157 */
int BgL_auxz00_1923;
BgL_auxz00_1923 = 
(int)(((long)4)); 
BgL_clausesz00_906 = 
PROCEDURE_REF(BgL_envz00_901, BgL_auxz00_1923); } 
{ 
obj_t BgL_xz00_557;obj_t BgL_e2z00_558;
BgL_xz00_557 = BgL_xz00_907; 
BgL_e2z00_558 = BgL_e2z00_908; 
{ /* ./R5rs/syntax.scm 157 */
bool_t BgL_test1563z00_560;
{ /* ./R5rs/syntax.scm 157 */
bool_t BgL_test1618z00_589;
BgL_test1618z00_589 = 
PAIRP(BgL_xz00_557); 
if(BgL_test1618z00_589)
{ /* ./R5rs/syntax.scm 157 */
obj_t BgL_arg1620z00_590;
{ /* ./R5rs/syntax.scm 157 */
obj_t BgL_pairz00_821;
if(BgL_test1618z00_589)
{ /* ./R5rs/syntax.scm 157 */
BgL_pairz00_821 = BgL_xz00_557; }  else 
{ /* ./R5rs/syntax.scm 157 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_557, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)5909))); 
exit( -1 );} 
BgL_arg1620z00_590 = 
CAR(BgL_pairz00_821); } 
BgL_test1563z00_560 = 
(BgL_arg1620z00_590==BgL_mz00_902); }  else 
{ /* ./R5rs/syntax.scm 157 */
BgL_test1563z00_560 = ((bool_t)0); } } 
if(BgL_test1563z00_560)
{ 
obj_t BgL_clausesz00_561;
BgL_clausesz00_561 = BgL_clausesz00_906; 
BgL_loopz00_562:
if(
NULLP(BgL_clausesz00_561))
{ /* ./R5rs/syntax.scm 159 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3155z00zz__r5_macro_4_3_syntaxz00, BGl_string3104z00zz__r5_macro_4_3_syntaxz00, BgL_mz00_902, "./R5rs/syntax.scm", ((long)5990)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6029)));}  else 
{ /* ./R5rs/syntax.scm 161 */
obj_t BgL_cz00_564;
{ /* ./R5rs/syntax.scm 161 */
obj_t BgL_pairz00_826;
if(
PAIRP(BgL_clausesz00_561))
{ /* ./R5rs/syntax.scm 161 */
BgL_pairz00_826 = BgL_clausesz00_561; }  else 
{ /* ./R5rs/syntax.scm 161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_clausesz00_561, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6061))); 
exit( -1 );} 
BgL_cz00_564 = 
CAR(BgL_pairz00_826); } 
{ 
obj_t BgL_inzd2patzd2_565;obj_t BgL_outzd2patzd2_566;
{ /* ./R5rs/syntax.scm 162 */
bool_t BgL_test1568z00_570;
BgL_test1568z00_570 = 
PAIRP(BgL_cz00_564); 
if(BgL_test1568z00_570)
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_cdrzd2256zd2_571;
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_pairz00_828;
if(BgL_test1568z00_570)
{ /* ./R5rs/syntax.scm 162 */
BgL_pairz00_828 = BgL_cz00_564; }  else 
{ /* ./R5rs/syntax.scm 162 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_564, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6076))); 
exit( -1 );} 
BgL_cdrzd2256zd2_571 = 
CDR(BgL_pairz00_828); } 
{ /* ./R5rs/syntax.scm 162 */
bool_t BgL_test1569z00_572;
BgL_test1569z00_572 = 
PAIRP(BgL_cdrzd2256zd2_571); 
if(BgL_test1569z00_572)
{ /* ./R5rs/syntax.scm 162 */
bool_t BgL_test1570z00_573;
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_arg1579z00_576;
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_pairz00_830;
if(BgL_test1569z00_572)
{ /* ./R5rs/syntax.scm 162 */
BgL_pairz00_830 = BgL_cdrzd2256zd2_571; }  else 
{ /* ./R5rs/syntax.scm 162 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2256zd2_571, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6076))); 
exit( -1 );} 
BgL_arg1579z00_576 = 
CDR(BgL_pairz00_830); } 
BgL_test1570z00_573 = 
NULLP(BgL_arg1579z00_576); } 
if(BgL_test1570z00_573)
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_arg1572z00_574;obj_t BgL_arg1573z00_575;
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_pairz00_832;
if(
PAIRP(BgL_cz00_564))
{ /* ./R5rs/syntax.scm 162 */
BgL_pairz00_832 = BgL_cz00_564; }  else 
{ /* ./R5rs/syntax.scm 162 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_564, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6076))); 
exit( -1 );} 
BgL_arg1572z00_574 = 
CAR(BgL_pairz00_832); } 
{ /* ./R5rs/syntax.scm 162 */
obj_t BgL_pairz00_833;
if(
PAIRP(BgL_cdrzd2256zd2_571))
{ /* ./R5rs/syntax.scm 162 */
BgL_pairz00_833 = BgL_cdrzd2256zd2_571; }  else 
{ /* ./R5rs/syntax.scm 162 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2256zd2_571, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6076))); 
exit( -1 );} 
BgL_arg1573z00_575 = 
CAR(BgL_pairz00_833); } 
BgL_inzd2patzd2_565 = BgL_arg1572z00_574; 
BgL_outzd2patzd2_566 = BgL_arg1573z00_575; 
{ /* ./R5rs/syntax.scm 164 */
bool_t BgL_testz00_1974;
{ /* ./R5rs/syntax.scm 164 */
obj_t BgL_auxz00_1975;
BgL_auxz00_1975 = 
BGl_r5rszd2macrozd2matcheszd2patternzf3z21zz__r5_macro_4_3_hygienez00(BgL_inzd2patzd2_565, BgL_xz00_557, BgL_ksz00_904); 
BgL_testz00_1974 = 
CBOOL(BgL_auxz00_1975); } 
if(BgL_testz00_1974)
{ /* ./R5rs/syntax.scm 165 */
obj_t BgL_toutzd2patzd2_578;
{ /* ./R5rs/syntax.scm 167 */
obj_t BgL_arg1600z00_584;
{ /* ./R5rs/syntax.scm 167 */
obj_t BgL_auxz00_1978;
{ /* ./R5rs/syntax.scm 167 */
bool_t BgL_testz00_1979;
if(
PAIRP(BgL_inzd2patzd2_565))
{ /* ./R5rs/syntax.scm 167 */
BgL_testz00_1979 = ((bool_t)1)
; }  else 
{ /* ./R5rs/syntax.scm 167 */
BgL_testz00_1979 = 
NULLP(BgL_inzd2patzd2_565)
; } 
if(BgL_testz00_1979)
{ /* ./R5rs/syntax.scm 167 */
BgL_auxz00_1978 = BgL_inzd2patzd2_565
; }  else 
{ /* ./R5rs/syntax.scm 167 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3105z00zz__r5_macro_4_3_syntaxz00, BgL_inzd2patzd2_565, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6262))); 
exit( -1 );} } 
BgL_arg1600z00_584 = 
bgl_append2(BgL_auxz00_1978, BgL_ksz00_904); } 
BgL_toutzd2patzd2_578 = 
BGl_r5rszd2hygienezd2tagz00zz__r5_macro_4_3_hygienez00(BgL_outzd2patzd2_566, BgL_arg1600z00_584, BNIL); } 
{ /* ./R5rs/syntax.scm 166 */
obj_t BgL_alistz00_579;
{ /* ./R5rs/syntax.scm 167 */
int BgL_auxz00_1988;
BgL_auxz00_1988 = 
(int)(((long)1)); 
BgL_alistz00_579 = 
BGL_MVALUES_VAL(BgL_auxz00_1988); } 
{ /* ./R5rs/syntax.scm 167 */
obj_t BgL_rz00_580;
BgL_rz00_580 = 
BGl_r5rszd2macrozd2getzd2bindingszd2zz__r5_macro_4_3_hygienez00(BgL_inzd2patzd2_565, BgL_xz00_557, BgL_ksz00_904); 
{ /* ./R5rs/syntax.scm 170 */
obj_t BgL_arg1589z00_581;
BgL_arg1589z00_581 = 
BGl_r5rszd2hygienezd2untagz00zz__r5_macro_4_3_hygienez00(
BGl_r5rszd2macrozd2expandzd2patternzd2zz__r5_macro_4_3_hygienez00(BgL_toutzd2patzd2_578, BgL_rz00_580, BgL_ksz00_904), BgL_alistz00_579, BNIL); 
{ /* ./R5rs/syntax.scm 170 */
obj_t BgL_funz00_1060;
if(
PROCEDUREP(BgL_ez00_905))
{ /* ./R5rs/syntax.scm 170 */
BgL_funz00_1060 = BgL_ez00_905; }  else 
{ /* ./R5rs/syntax.scm 170 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_905, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6363))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1060, ((long)2)))
{ /* ./R5rs/syntax.scm 170 */
return 
PROCEDURE_ENTRY(BgL_funz00_1060)(BgL_ez00_905, BgL_arg1589z00_581, BgL_ez00_905, BEOA);}  else 
{ /* ./R5rs/syntax.scm 170 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3159z00zz__r5_macro_4_3_syntaxz00, BGl_list3160z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_1060, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6363))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } } } }  else 
{ /* ./R5rs/syntax.scm 174 */
obj_t BgL_arg1605z00_586;
{ /* ./R5rs/syntax.scm 174 */
obj_t BgL_pairz00_835;
if(
PAIRP(BgL_clausesz00_561))
{ /* ./R5rs/syntax.scm 174 */
BgL_pairz00_835 = BgL_clausesz00_561; }  else 
{ /* ./R5rs/syntax.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_clausesz00_561, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6509))); 
exit( -1 );} 
BgL_arg1605z00_586 = 
CDR(BgL_pairz00_835); } 
{ 
obj_t BgL_clausesz00_2012;
BgL_clausesz00_2012 = BgL_arg1605z00_586; 
BgL_clausesz00_561 = BgL_clausesz00_2012; 
goto BgL_loopz00_562;} } } }  else 
{ /* ./R5rs/syntax.scm 162 */
BgL_tagzd2249zd2_568:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3155z00zz__r5_macro_4_3_syntaxz00, BGl_string3106z00zz__r5_macro_4_3_syntaxz00, BgL_cz00_564, "./R5rs/syntax.scm", ((long)6534)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6076)));} }  else 
{ /* ./R5rs/syntax.scm 162 */
goto BgL_tagzd2249zd2_568;} } }  else 
{ /* ./R5rs/syntax.scm 162 */
goto BgL_tagzd2249zd2_568;} } } } }  else 
{ /* ./R5rs/syntax.scm 177 */
obj_t BgL_e3z00_587;
{ /* ./R5rs/syntax.scm 177 */
obj_t BgL_arg1615z00_588;
{ /* ./R5rs/syntax.scm 177 */
obj_t BgL_pairz00_839;
if(
PAIRP(BgL_bindingsz00_903))
{ /* ./R5rs/syntax.scm 177 */
BgL_pairz00_839 = BgL_bindingsz00_903; }  else 
{ /* ./R5rs/syntax.scm 177 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3093z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_903, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6614))); 
exit( -1 );} 
BgL_arg1615z00_588 = 
CDR(BgL_pairz00_839); } 
BgL_e3z00_587 = 
BGl_loop_2200z00zz__r5_macro_4_3_syntaxz00(BgL_ez00_905, BgL_arg1615z00_588); } 
{ /* ./R5rs/syntax.scm 178 */
obj_t BgL_funz00_1077;
if(
PROCEDUREP(BgL_e3z00_587))
{ /* ./R5rs/syntax.scm 178 */
BgL_funz00_1077 = BgL_e3z00_587; }  else 
{ /* ./R5rs/syntax.scm 178 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3158z00zz__r5_macro_4_3_syntaxz00, BGl_string3119z00zz__r5_macro_4_3_syntaxz00, BgL_e3z00_587, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6630))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1077, ((long)2)))
{ /* ./R5rs/syntax.scm 178 */
return 
PROCEDURE_ENTRY(BgL_funz00_1077)(BgL_e3z00_587, BgL_xz00_557, BgL_e2z00_558, BEOA);}  else 
{ /* ./R5rs/syntax.scm 178 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3159z00zz__r5_macro_4_3_syntaxz00, BGl_list3148z00zz__r5_macro_4_3_syntaxz00, BgL_funz00_1077, BGl_string3094z00zz__r5_macro_4_3_syntaxz00, 
BINT(((long)6630))); 
FAILURE(BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00,BGl_symbol3124z00zz__r5_macro_4_3_syntaxz00);} } } } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_syntaxz00()
{ AN_OBJECT;
{ /* ./R5rs/syntax.scm 18 */
{ /* ./R5rs/syntax.scm 18 */
obj_t BgL_symbol2176z00_861;
BgL_symbol2176z00_861 = BGl_symbol3162z00zz__r5_macro_4_3_syntaxz00; 
{ /* ./R5rs/syntax.scm 18 */

PUSH_TRACE(BgL_symbol2176z00_861); BUNSPEC; 
{ /* ./R5rs/syntax.scm 18 */
obj_t BgL_aux2175z00_862;
BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_hygienez00(((long)17498), "__r5_macro_4_3_syntax"); 
BgL_aux2175z00_862 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r5_macro_4_3_syntax"); 
POP_TRACE(); 
return BgL_aux2175z00_862;} } } } 
}

