/*===========================================================================*/
/*   (R5rs/syntax.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c R5rs/syntax.scm -indent -o objs/obj_s/R5rs/syntax.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R5_MACRO_4_3_SYNTAX_TYPE_DEFINITIONS
#define BGL___R5_MACRO_4_3_SYNTAX_TYPE_DEFINITIONS
#endif // BGL___R5_MACRO_4_3_SYNTAX_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

BGL_EXPORTED_DECL obj_t BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
static obj_t BGl_symbol2640z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2642z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2809z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2729z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31862ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_syntaxzd2getzd2framesz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static bool_t BGl_ellipsiszf3zf3zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_list2700z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2701z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2702z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2703z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2704z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2656z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2819z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2738z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2705z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2706z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2658z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2707z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2708z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t bstring_to_keyword(obj_t);
static obj_t BGl_list2709z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31370ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_hygienezd2markzd2zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2742z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2710z00zz__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_symbol2906z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2711z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2712z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2713z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2828z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2747z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static bool_t BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2717z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2718z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2719z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31266ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_keyword2952z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_installzd2expanderzd2zz__macroz00(obj_t, obj_t);
static obj_t BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2800z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2801z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2720z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2802z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2721z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2803z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2804z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2756z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2805z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2806z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2758z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_list2726z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2678z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2727z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2728z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static long BGl_hygienezd2prefixzd2lenz00zz__r5_macro_4_3_syntaxz00 = 0L;
static obj_t BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_initzd2syntaxzd2expandersz12z12zz__r5_macro_4_3_syntaxz00(void);
static obj_t BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2922z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2841z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62syntaxzd2ruleszd2ze3expanderz81zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2925z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2731z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2813z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2732z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2733z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2815z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2734z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__r5_macro_4_3_syntaxz00(void);
static obj_t BGl_list2816z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2735z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2817z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2736z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2655z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2818z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2737z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_unhygieniza7eza7zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_getzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2930z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2850z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2852z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2771z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2854z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2821z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2740z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2822z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2741z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2660z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2823z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2661z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2905z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2857z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2824z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2662z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2825z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2744z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2663z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2859z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2826z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2745z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2827z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2746z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_list2749z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62installzd2syntaxzd2expanderz62zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_syntaxz00(void);
extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t bgl_reverse(obj_t);
static obj_t BGl_genericzd2initzd2zz__r5_macro_4_3_syntaxz00(void);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl_symbol2944z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2830z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2864z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2831z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2750z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2832z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2751z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2670z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_syntaxz00(void);
static obj_t BGl_list2752z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2753z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2754z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2673z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2755z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2674z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r5_macro_4_3_syntaxz00(void);
static obj_t BGl_list2837z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2789z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2675z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2919z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2838z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2839z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62expandzd2definezd2syntaxz62zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zz__r5_macro_4_3_syntaxz00(void);
static obj_t BGl_hygienezd2valueza2z70zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_symbol2791z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2840z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2794z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2680z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2924z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2796z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2845z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2764z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2683z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2846z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2765z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2684z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2847z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2929z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2848z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2849z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2768z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2687z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern bool_t bigloo_strcmp_at(obj_t, obj_t, long);
static obj_t BGl_list2769z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2770z00zz__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_list2690z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2691z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2773z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2692z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2774z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2937z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2856z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2777z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2778z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2697z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2698z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2699z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_syntaxzd2expanderszd2mutexz00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_gennameze70ze7zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_symbol2973z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2894z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2861z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2943z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2862z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2781z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2863z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2782z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_symbol2897z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2783z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31831ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_list2784z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2866z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2785z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2867z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2786z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2868z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2787z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2869z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2788z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31378ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL obj_t BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_list2870z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2871z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2872z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2873z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2874z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2793z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2875z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2876z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl_list2877z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2878z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2798z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2799z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__r5_macro_4_3_syntaxz00(void);
static obj_t BGl_list2883z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31897ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2ellipsiszd2framesz00zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_loopze71ze7zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_loopze72ze7zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_loopze73ze7zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31236ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_list2893z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_list2896z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31818ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
static obj_t BGl_hygienezd2valuezd2zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_z62expandzd2letreczd2syntaxz62zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62expandzd2letzd2syntaxz62zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31335ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31254ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31852ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31909ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_syntaxzd2expanderzd2zz__r5_macro_4_3_syntaxz00(obj_t, obj_t);
static obj_t BGl_flattenz00zz__r5_macro_4_3_syntaxz00(obj_t);
static obj_t BGl_z62syntaxzd2expanderzb0zz__r5_macro_4_3_syntaxz00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string2921z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2921za700za7za7_2987za7, "e3", 2 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_installzd2syntaxzd2expanderzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762installza7d2syn2988z00, BGl_z62installzd2syntaxzd2expanderz62zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2923z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2923za700za7za7_2989za7, "e2", 2 );
BGL_DEFINE_STRING(BGl_string2842z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2842za700za7za7_2990za7, "newtemp", 7 );
BGL_DEFINE_STRING(BGl_string2761z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2761za700za7za7_2991za7, "body1", 5 );
BGL_DEFINE_STRING(BGl_string2844z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2844za700za7za7_2992za7, "do", 2 );
BGL_DEFINE_STRING(BGl_string2763z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2763za700za7za7_2993za7, "body2", 5 );
BGL_DEFINE_STRING(BGl_string2682z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2682za700za7za7_2994za7, "let", 3 );
BGL_DEFINE_STRING(BGl_string2926z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2926za700za7za7_2995za7, "e4", 2 );
BGL_DEFINE_STRING(BGl_string2927z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2927za700za7za7_2996za7, "<@anonymous:1349>", 17 );
BGL_DEFINE_STRING(BGl_string2928z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2928za700za7za7_2997za7, "<@anonymous:1349>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2767z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2767za700za7za7_2998za7, "lambda", 6 );
BGL_DEFINE_STRING(BGl_string2686z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2686za700za7za7_2999za7, "temp", 4 );
BGL_DEFINE_STRING(BGl_string2689z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2689za700za7za7_3000za7, "if", 2 );
BGL_DEFINE_STRING(BGl_string2931z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2931za700za7za7_3001za7, "arg1353", 7 );
BGL_DEFINE_STRING(BGl_string2932z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2932za700za7za7_3002za7, "TAG-192", 7 );
BGL_DEFINE_STRING(BGl_string2851z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2851za700za7za7_3003za7, "var", 3 );
BGL_DEFINE_STRING(BGl_string2933z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2933za700za7za7_3004za7, "loop~1", 6 );
BGL_DEFINE_STRING(BGl_string2934z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2934za700za7za7_3005za7, "&expand-let-syntax", 18 );
BGL_DEFINE_STRING(BGl_string2853z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2853za700za7za7_3006za7, "init", 4 );
BGL_DEFINE_STRING(BGl_string2772z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2772za700za7za7_3007za7, "tag", 3 );
BGL_DEFINE_STRING(BGl_string2935z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2935za700za7za7_3008za7, "<@anonymous:1370>", 17 );
BGL_DEFINE_STRING(BGl_string2936z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2936za700za7za7_3009za7, "<@anonymous:1370>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2855z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2855za700za7za7_3010za7, "step", 4 );
BGL_DEFINE_STRING(BGl_string2694z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2694za700za7za7_3011za7, "clause1", 7 );
BGL_DEFINE_STRING(BGl_string2938z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2938za700za7za7_3012za7, "Illegal declaration", 19 );
BGL_DEFINE_STRING(BGl_string2776z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2776za700za7za7_3013za7, "letrec", 6 );
BGL_DEFINE_STRING(BGl_string2939z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2939za700za7za7_3014za7, "&syntax-rules->expander", 23 );
BGL_DEFINE_STRING(BGl_string2858z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2858za700za7za7_3015za7, "expr", 4 );
BGL_DEFINE_STRING(BGl_string2696z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2696za700za7za7_3016za7, "clause2", 7 );
BGL_DEFINE_STRING(BGl_string2940z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2940za700za7za7_3017za7, "No matching clause", 18 );
BGL_DEFINE_STRING(BGl_string2941z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2941za700za7za7_3018za7, "TAG-220", 7 );
BGL_DEFINE_STRING(BGl_string2860z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2860za700za7za7_3019za7, "command", 7 );
BGL_DEFINE_STRING(BGl_string2942z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2942za700za7za7_3020za7, "TAG-220:Wrong number of arguments", 33 );
BGL_DEFINE_STRING(BGl_string2780z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2780za700za7za7_3021za7, "let*", 4 );
BGL_DEFINE_STRING(BGl_string2945z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2945za700za7za7_3022za7, "arg1389", 7 );
BGL_DEFINE_STRING(BGl_string2946z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2946za700za7za7_3023za7, "TAG-221", 7 );
BGL_DEFINE_STRING(BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2865za700za7za7_3024za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2947z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2947za700za7za7_3025za7, "Illegal clause", 14 );
BGL_DEFINE_STRING(BGl_string2948z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2948za700za7za7_3026za7, "syntax-matches-pattern?", 23 );
BGL_DEFINE_STRING(BGl_string2949z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2949za700za7za7_3027za7, "every", 5 );
BGL_DEFINE_STRING(BGl_string2950z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2950za700za7za7_3028za7, "Illegal ellipsis", 16 );
BGL_DEFINE_STRING(BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2951za700za7za7_3029za7, "syntax-get-frames", 17 );
BGL_DEFINE_STRING(BGl_string2790z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2790za700za7za7_3030za7, "name1", 5 );
BGL_DEFINE_STRING(BGl_string2953z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2953za700za7za7_3031za7, "ellipsis", 8 );
BGL_DEFINE_STRING(BGl_string2954z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2954za700za7za7_3032za7, "<@anonymous:1451>", 17 );
BGL_DEFINE_STRING(BGl_string2792z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2792za700za7za7_3033za7, "val1", 4 );
BGL_DEFINE_STRING(BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2955za700za7za7_3034za7, "syntax-expand-pattern", 21 );
BGL_DEFINE_STRING(BGl_string2956z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2956za700za7za7_3035za7, "<@anonymous:1485>", 17 );
BGL_DEFINE_STRING(BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2957za700za7za7_3036za7, "<@anonymous:1492>", 17 );
BGL_DEFINE_STRING(BGl_string2795z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2795za700za7za7_3037za7, "name2", 5 );
BGL_DEFINE_STRING(BGl_string2958z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2958za700za7za7_3038za7, "any", 3 );
BGL_DEFINE_STRING(BGl_string2959z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2959za700za7za7_3039za7, "<@anonymous:1480>", 17 );
BGL_DEFINE_STRING(BGl_string2797z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2797za700za7za7_3040za7, "val2", 4 );
BGL_DEFINE_STRING(BGl_string2960z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2960za700za7za7_3041za7, "liip", 4 );
BGL_DEFINE_STRING(BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2961za700za7za7_3042za7, "sub~0", 5 );
BGL_DEFINE_STRING(BGl_string2962z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2962za700za7za7_3043za7, "ellipsis?", 9 );
BGL_DEFINE_STRING(BGl_string2881z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2881za700za7za7_3044za7, "syntax-expander", 15 );
BGL_DEFINE_STRING(BGl_string2963z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2963za700za7za7_3045za7, "TAG-234", 7 );
BGL_DEFINE_STRING(BGl_string2882z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2882za700za7za7_3046za7, "syntax-expander:Wrong number of arguments", 41 );
BGL_DEFINE_STRING(BGl_string2964z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2964za700za7za7_3047za7, "TAG-237", 7 );
BGL_DEFINE_STRING(BGl_string2965z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2965za700za7za7_3048za7, "<@anonymous:1835>", 17 );
BGL_DEFINE_STRING(BGl_string2885z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2885za700za7za7_3049za7, "funcall", 7 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2879z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3050za7, BGl_z62zc3z04anonymousza31254ze3ze5zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2967z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2967za700za7za7_3051za7, "TAG-238", 7 );
BGL_DEFINE_STRING(BGl_string2968z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2968za700za7za7_3052za7, "<@anonymous:1866>", 17 );
BGL_DEFINE_STRING(BGl_string2887z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2887za700za7za7_3053za7, "e1", 2 );
BGL_DEFINE_STRING(BGl_string2889z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2889za700za7za7_3054za7, "e", 1 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2880z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3055za7, BGl_z62zc3z04anonymousza31266ze3ze5zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2970z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2970za700za7za7_3056za7, "TAG-240", 7 );
BGL_DEFINE_STRING(BGl_string2971z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2971za700za7za7_3057za7, "<@anonymous:1916>", 17 );
BGL_DEFINE_STRING(BGl_string2890z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2890za700za7za7_3058za7, "epair", 5 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2966z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3059za7, BGl_z62zc3z04anonymousza31831ze3ze5zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2891z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2891za700za7za7_3060za7, "loop~3", 6 );
BGL_DEFINE_STRING(BGl_string2892z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2892za700za7za7_3061za7, "loop~3:Wrong number of arguments", 32 );
BGL_DEFINE_STRING(BGl_string2974z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2974za700za7za7_3062za7, "bind-exit", 9 );
BGL_DEFINE_STRING(BGl_string2975z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2975za700za7za7_3063za7, "hygienize", 9 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2969z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3064za7, BGl_z62zc3z04anonymousza31862ze3ze5zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
extern obj_t BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00;
BGL_DEFINE_STRING(BGl_string2976z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2976za700za7za7_3065za7, "<@anonymous:1897>", 17 );
BGL_DEFINE_STRING(BGl_string2895z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2895za700za7za7_3066za7, "arg1261", 7 );
BGL_DEFINE_STRING(BGl_string2977z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2977za700za7za7_3067za7, "<@anonymous:1909>", 17 );
BGL_DEFINE_STRING(BGl_string2978z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2978za700za7za7_3068za7, "<@anonymous:1852>", 17 );
BGL_DEFINE_STRING(BGl_string2979z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2979za700za7za7_3069za7, "<@anonymous:1862>", 17 );
BGL_DEFINE_STRING(BGl_string2898z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2898za700za7za7_3070za7, "syntax-rules", 12 );
BGL_DEFINE_STRING(BGl_string2899z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2899za700za7za7_3071za7, "expand-define-syntax", 20 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2972z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3072za7, BGl_z62zc3z04anonymousza31909ze3ze5zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2980z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2980za700za7za7_3073za7, "<@anonymous:1818>", 17 );
BGL_DEFINE_STRING(BGl_string2981z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2981za700za7za7_3074za7, "<@anonymous:1831>", 17 );
BGL_DEFINE_STRING(BGl_string2982z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2982za700za7za7_3075za7, "TAG-939", 7 );
BGL_DEFINE_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2983za700za7za7_3076za7, "__r5_macro_4_3_syntax", 21 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2definezd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762expandza7d2defi3077z00, BGl_z62expandzd2definezd2syntaxz62zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2letzd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762expandza7d2letza73078za7, BGl_z62expandzd2letzd2syntaxz62zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
extern obj_t BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_STATIC_BGL_PROCEDURE(BGl_syntaxzd2expanderzd2envz00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762syntaxza7d2expa3079z00, BGl_z62syntaxzd2expanderzb0zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2714za700za7za7_3080za7, "init-syntax-expanders!", 22 );
BGL_DEFINE_STRING(BGl_string2716z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2716za700za7za7_3081za7, "case", 4 );
BGL_DEFINE_STRING(BGl_string2641z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2641za700za7za7_3082za7, "hygiene.r5rs.mark", 17 );
BGL_DEFINE_STRING(BGl_string2723z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2723za700za7za7_3083za7, "key", 3 );
BGL_DEFINE_STRING(BGl_string2643z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2643za700za7za7_3084za7, "mutex", 5 );
BGL_DEFINE_STRING(BGl_string2725z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2725za700za7za7_3085za7, "clauses", 7 );
BGL_DEFINE_STRING(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2644za700za7za7_3086za7, "/tmp/bigloo/runtime/R5rs/syntax.scm", 35 );
BGL_DEFINE_STRING(BGl_string2645z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2645za700za7za7_3087za7, "get-syntax-expander", 19 );
BGL_DEFINE_STRING(BGl_string2808z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2808za700za7za7_3088za7, "var1", 4 );
BGL_DEFINE_STRING(BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2646za700za7za7_3089za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string2647z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2647za700za7za7_3090za7, "&install-syntax-expander", 24 );
BGL_DEFINE_STRING(BGl_string2648z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2648za700za7za7_3091za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2649za700za7za7_3092za7, "procedure", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_syntaxzd2ruleszd2ze3expanderzd2envz31zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762syntaxza7d2rule3093z00, BGl_z62syntaxzd2ruleszd2ze3expanderz81zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2810z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2810za700za7za7_3094za7, "init1", 5 );
BGL_DEFINE_STRING(BGl_string2730z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2730za700za7za7_3095za7, "atom-key", 8 );
BGL_DEFINE_STRING(BGl_string2812z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2812za700za7za7_3096za7, "body", 4 );
BGL_DEFINE_STRING(BGl_string2814z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2814za700za7za7_3097za7, "generate temp names", 19 );
BGL_DEFINE_STRING(BGl_string2652z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2652za700za7za7_3098za7, "quote", 5 );
BGL_DEFINE_STRING(BGl_string2654z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2654za700za7za7_3099za7, "cond", 4 );
BGL_DEFINE_STRING(BGl_string2657z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2657za700za7za7_3100za7, "else", 4 );
BGL_DEFINE_STRING(BGl_string2739z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2739za700za7za7_3101za7, "atoms", 5 );
BGL_DEFINE_STRING(BGl_string2659z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2659za700za7za7_3102za7, "=>", 2 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2650z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3103za7, BGl_z62zc3z04anonymousza31236ze3ze5zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2900za700za7za7_3104za7, "define-syntax", 13 );
BGL_DEFINE_STRING(BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2901za700za7za7_3105za7, "Illegal form", 12 );
BGL_DEFINE_STRING(BGl_string2820z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2820za700za7za7_3106za7, "temp1", 5 );
BGL_DEFINE_STRING(BGl_string2902z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2902za700za7za7_3107za7, "&expand-define-syntax", 21 );
BGL_DEFINE_STRING(BGl_string2903z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2903za700za7za7_3108za7, "<@anonymous:1294>", 17 );
BGL_DEFINE_STRING(BGl_string2904z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2904za700za7za7_3109za7, "<@anonymous:1294>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2743z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2743za700za7za7_3110za7, "memv", 4 );
BGL_DEFINE_STRING(BGl_string2907z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2907za700za7za7_3111za7, "arg1301", 7 );
BGL_DEFINE_STRING(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2908za700za7za7_3112za7, "map", 3 );
BGL_DEFINE_STRING(BGl_string2665z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2665za700za7za7_3113za7, "result1", 7 );
BGL_DEFINE_STRING(BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2909za700za7za7_3114za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string2829z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2829za700za7za7_3115za7, "set!", 4 );
BGL_DEFINE_STRING(BGl_string2748z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2748za700za7za7_3116za7, "clause", 6 );
BGL_DEFINE_STRING(BGl_string2667z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2667za700za7za7_3117za7, "result2", 7 );
BGL_DEFINE_STRING(BGl_string2669z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2669za700za7za7_3118za7, "...", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2letreczd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762expandza7d2letr3119z00, BGl_z62expandzd2letreczd2syntaxz62zz__r5_macro_4_3_syntaxz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2910z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2910za700za7za7_3120za7, "letrec-syntax", 13 );
BGL_DEFINE_STRING(BGl_string2911z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2911za700za7za7_3121za7, "TAG-149", 7 );
BGL_DEFINE_STRING(BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2912za700za7za7_3122za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2913z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2913za700za7za7_3123za7, "loop~2", 6 );
BGL_DEFINE_STRING(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2914za700za7za7_3124za7, "let-syntax", 10 );
BGL_DEFINE_STRING(BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2915za700za7za7_3125za7, "Illegal bindings", 16 );
BGL_DEFINE_STRING(BGl_string2834z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2834za700za7za7_3126za7, "x", 1 );
BGL_DEFINE_STRING(BGl_string2672z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2672za700za7za7_3127za7, "begin", 5 );
BGL_DEFINE_STRING(BGl_string2916z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2916za700za7za7_3128za7, "&expand-letrec-syntax", 21 );
BGL_DEFINE_STRING(BGl_string2917z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2917za700za7za7_3129za7, "<@anonymous:1335>", 17 );
BGL_DEFINE_STRING(BGl_string2836z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2836za700za7za7_3130za7, "y", 1 );
BGL_DEFINE_STRING(BGl_string2918z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2918za700za7za7_3131za7, "<@anonymous:1335>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2757z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2757za700za7za7_3132za7, "name", 4 );
BGL_DEFINE_STRING(BGl_string2677z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2677za700za7za7_3133za7, "test", 4 );
BGL_DEFINE_STRING(BGl_string2759z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2759za700za7za7_3134za7, "val", 3 );
BGL_DEFINE_STRING(BGl_string2679z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2679za700za7za7_3135za7, "result", 6 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string2679z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2679za700za7za7_3135za7);
BGL_BIND_STRING(BGl_string2759z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2759za700za7za7_3134za7);
BGL_BIND_STRING(BGl_string2677z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2677za700za7za7_3133za7);
BGL_BIND_STRING(BGl_string2757z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2757za700za7za7_3132za7);
BGL_BIND_STRING(BGl_string2918z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2918za700za7za7_3131za7);
BGL_BIND_STRING(BGl_string2836z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2836za700za7za7_3130za7);
BGL_BIND_STRING(BGl_string2917z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2917za700za7za7_3129za7);
BGL_BIND_STRING(BGl_string2916z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2916za700za7za7_3128za7);
BGL_BIND_STRING(BGl_string2672z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2672za700za7za7_3127za7);
BGL_BIND_STRING(BGl_string2834z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2834za700za7za7_3126za7);
BGL_BIND_STRING(BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2915za700za7za7_3125za7);
BGL_BIND_STRING(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2914za700za7za7_3124za7);
BGL_BIND_STRING(BGl_string2913z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2913za700za7za7_3123za7);
BGL_BIND_STRING(BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2912za700za7za7_3122za7);
BGL_BIND_STRING(BGl_string2911z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2911za700za7za7_3121za7);
BGL_BIND_STRING(BGl_string2910z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2910za700za7za7_3120za7);
BGL_BIND_PROCEDURE(BGl_expandzd2letreczd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762expandza7d2letr3119z00);
BGL_BIND_STRING(BGl_string2669z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2669za700za7za7_3118za7);
BGL_BIND_STRING(BGl_string2667z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2667za700za7za7_3117za7);
BGL_BIND_STRING(BGl_string2748z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2748za700za7za7_3116za7);
BGL_BIND_STRING(BGl_string2829z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2829za700za7za7_3115za7);
BGL_BIND_STRING(BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2909za700za7za7_3114za7);
BGL_BIND_STRING(BGl_string2665z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2665za700za7za7_3113za7);
BGL_BIND_STRING(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2908za700za7za7_3112za7);
BGL_BIND_STRING(BGl_string2907z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2907za700za7za7_3111za7);
BGL_BIND_STRING(BGl_string2743z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2743za700za7za7_3110za7);
BGL_BIND_STRING(BGl_string2904z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2904za700za7za7_3109za7);
BGL_BIND_STRING(BGl_string2903z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2903za700za7za7_3108za7);
BGL_BIND_STRING(BGl_string2902z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2902za700za7za7_3107za7);
BGL_BIND_STRING(BGl_string2820z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2820za700za7za7_3106za7);
BGL_BIND_STRING(BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2901za700za7za7_3105za7);
BGL_BIND_STRING(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2900za700za7za7_3104za7);
BGL_BIND_PROCEDURE(BGl_proc2650z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3103za7);
BGL_BIND_STRING(BGl_string2659z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2659za700za7za7_3102za7);
BGL_BIND_STRING(BGl_string2739z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2739za700za7za7_3101za7);
BGL_BIND_STRING(BGl_string2657z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2657za700za7za7_3100za7);
BGL_BIND_STRING(BGl_string2654z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2654za700za7za7_3099za7);
BGL_BIND_STRING(BGl_string2652z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2652za700za7za7_3098za7);
BGL_BIND_STRING(BGl_string2814z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2814za700za7za7_3097za7);
BGL_BIND_STRING(BGl_string2812z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2812za700za7za7_3096za7);
BGL_BIND_STRING(BGl_string2730z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2730za700za7za7_3095za7);
BGL_BIND_STRING(BGl_string2810z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2810za700za7za7_3094za7);
BGL_BIND_PROCEDURE(BGl_syntaxzd2ruleszd2ze3expanderzd2envz31zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762syntaxza7d2rule3093z00);
BGL_BIND_STRING(BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2649za700za7za7_3092za7);
BGL_BIND_STRING(BGl_string2648z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2648za700za7za7_3091za7);
BGL_BIND_STRING(BGl_string2647z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2647za700za7za7_3090za7);
BGL_BIND_STRING(BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2646za700za7za7_3089za7);
BGL_BIND_STRING(BGl_string2808z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2808za700za7za7_3088za7);
BGL_BIND_STRING(BGl_string2645z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2645za700za7za7_3087za7);
BGL_BIND_STRING(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2644za700za7za7_3086za7);
BGL_BIND_STRING(BGl_string2725z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2725za700za7za7_3085za7);
BGL_BIND_STRING(BGl_string2643z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2643za700za7za7_3084za7);
BGL_BIND_STRING(BGl_string2723z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2723za700za7za7_3083za7);
BGL_BIND_STRING(BGl_string2641z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2641za700za7za7_3082za7);
BGL_BIND_STRING(BGl_string2716z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2716za700za7za7_3081za7);
BGL_BIND_STRING(BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2714za700za7za7_3080za7);
BGL_BIND_PROCEDURE(BGl_syntaxzd2expanderzd2envz00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762syntaxza7d2expa3079z00);
BGL_BIND_PROCEDURE(BGl_expandzd2letzd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762expandza7d2letza73078za7);
BGL_BIND_PROCEDURE(BGl_expandzd2definezd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762expandza7d2defi3077z00);
BGL_BIND_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2983za700za7za7_3076za7);
BGL_BIND_STRING(BGl_string2982z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2982za700za7za7_3075za7);
BGL_BIND_STRING(BGl_string2981z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2981za700za7za7_3074za7);
BGL_BIND_STRING(BGl_string2980z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2980za700za7za7_3073za7);
BGL_BIND_PROCEDURE(BGl_proc2972z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3072za7);
BGL_BIND_STRING(BGl_string2899z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2899za700za7za7_3071za7);
BGL_BIND_STRING(BGl_string2898z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2898za700za7za7_3070za7);
BGL_BIND_STRING(BGl_string2979z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2979za700za7za7_3069za7);
BGL_BIND_STRING(BGl_string2978z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2978za700za7za7_3068za7);
BGL_BIND_STRING(BGl_string2977z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2977za700za7za7_3067za7);
BGL_BIND_STRING(BGl_string2895z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2895za700za7za7_3066za7);
BGL_BIND_STRING(BGl_string2976z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2976za700za7za7_3065za7);
BGL_BIND_PROCEDURE(BGl_proc2969z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3064za7);
BGL_BIND_STRING(BGl_string2975z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2975za700za7za7_3063za7);
BGL_BIND_STRING(BGl_string2974z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2974za700za7za7_3062za7);
BGL_BIND_STRING(BGl_string2892z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2892za700za7za7_3061za7);
BGL_BIND_STRING(BGl_string2891z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2891za700za7za7_3060za7);
BGL_BIND_PROCEDURE(BGl_proc2966z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3059za7);
BGL_BIND_STRING(BGl_string2890z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2890za700za7za7_3058za7);
BGL_BIND_STRING(BGl_string2971z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2971za700za7za7_3057za7);
BGL_BIND_STRING(BGl_string2970z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2970za700za7za7_3056za7);
BGL_BIND_PROCEDURE(BGl_proc2880z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3055za7);
BGL_BIND_STRING(BGl_string2889z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2889za700za7za7_3054za7);
BGL_BIND_STRING(BGl_string2887z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2887za700za7za7_3053za7);
BGL_BIND_STRING(BGl_string2968z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2968za700za7za7_3052za7);
BGL_BIND_STRING(BGl_string2967z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2967za700za7za7_3051za7);
BGL_BIND_PROCEDURE(BGl_proc2879z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762za7c3za704anonymo3050za7);
BGL_BIND_STRING(BGl_string2885z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2885za700za7za7_3049za7);
BGL_BIND_STRING(BGl_string2965z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2965za700za7za7_3048za7);
BGL_BIND_STRING(BGl_string2964z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2964za700za7za7_3047za7);
BGL_BIND_STRING(BGl_string2882z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2882za700za7za7_3046za7);
BGL_BIND_STRING(BGl_string2963z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2963za700za7za7_3045za7);
BGL_BIND_STRING(BGl_string2881z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2881za700za7za7_3044za7);
BGL_BIND_STRING(BGl_string2962z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2962za700za7za7_3043za7);
BGL_BIND_STRING(BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2961za700za7za7_3042za7);
BGL_BIND_STRING(BGl_string2960z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2960za700za7za7_3041za7);
BGL_BIND_STRING(BGl_string2797z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2797za700za7za7_3040za7);
BGL_BIND_STRING(BGl_string2959z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2959za700za7za7_3039za7);
BGL_BIND_STRING(BGl_string2958z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2958za700za7za7_3038za7);
BGL_BIND_STRING(BGl_string2795z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2795za700za7za7_3037za7);
BGL_BIND_STRING(BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2957za700za7za7_3036za7);
BGL_BIND_STRING(BGl_string2956z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2956za700za7za7_3035za7);
BGL_BIND_STRING(BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2955za700za7za7_3034za7);
BGL_BIND_STRING(BGl_string2792z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2792za700za7za7_3033za7);
BGL_BIND_STRING(BGl_string2954z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2954za700za7za7_3032za7);
BGL_BIND_STRING(BGl_string2953z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2953za700za7za7_3031za7);
BGL_BIND_STRING(BGl_string2790z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2790za700za7za7_3030za7);
BGL_BIND_STRING(BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2951za700za7za7_3029za7);
BGL_BIND_STRING(BGl_string2950z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2950za700za7za7_3028za7);
BGL_BIND_STRING(BGl_string2949z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2949za700za7za7_3027za7);
BGL_BIND_STRING(BGl_string2948z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2948za700za7za7_3026za7);
BGL_BIND_STRING(BGl_string2947z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2947za700za7za7_3025za7);
BGL_BIND_STRING(BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2865za700za7za7_3024za7);
BGL_BIND_STRING(BGl_string2946z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2946za700za7za7_3023za7);
BGL_BIND_STRING(BGl_string2945z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2945za700za7za7_3022za7);
BGL_BIND_STRING(BGl_string2780z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2780za700za7za7_3021za7);
BGL_BIND_STRING(BGl_string2942z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2942za700za7za7_3020za7);
BGL_BIND_STRING(BGl_string2860z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2860za700za7za7_3019za7);
BGL_BIND_STRING(BGl_string2941z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2941za700za7za7_3018za7);
BGL_BIND_STRING(BGl_string2940z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2940za700za7za7_3017za7);
BGL_BIND_STRING(BGl_string2696z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2696za700za7za7_3016za7);
BGL_BIND_STRING(BGl_string2858z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2858za700za7za7_3015za7);
BGL_BIND_STRING(BGl_string2939z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2939za700za7za7_3014za7);
BGL_BIND_STRING(BGl_string2776z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2776za700za7za7_3013za7);
BGL_BIND_STRING(BGl_string2938z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2938za700za7za7_3012za7);
BGL_BIND_STRING(BGl_string2694z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2694za700za7za7_3011za7);
BGL_BIND_STRING(BGl_string2855z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2855za700za7za7_3010za7);
BGL_BIND_STRING(BGl_string2936z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2936za700za7za7_3009za7);
BGL_BIND_STRING(BGl_string2935z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2935za700za7za7_3008za7);
BGL_BIND_STRING(BGl_string2772z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2772za700za7za7_3007za7);
BGL_BIND_STRING(BGl_string2853z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2853za700za7za7_3006za7);
BGL_BIND_STRING(BGl_string2934z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2934za700za7za7_3005za7);
BGL_BIND_STRING(BGl_string2933z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2933za700za7za7_3004za7);
BGL_BIND_STRING(BGl_string2851z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2851za700za7za7_3003za7);
BGL_BIND_STRING(BGl_string2932z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2932za700za7za7_3002za7);
BGL_BIND_STRING(BGl_string2931z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2931za700za7za7_3001za7);
BGL_BIND_STRING(BGl_string2689z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2689za700za7za7_3000za7);
BGL_BIND_STRING(BGl_string2686z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2686za700za7za7_2999za7);
BGL_BIND_STRING(BGl_string2767z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2767za700za7za7_2998za7);
BGL_BIND_STRING(BGl_string2928z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2928za700za7za7_2997za7);
BGL_BIND_STRING(BGl_string2927z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2927za700za7za7_2996za7);
BGL_BIND_STRING(BGl_string2926z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2926za700za7za7_2995za7);
BGL_BIND_STRING(BGl_string2682z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2682za700za7za7_2994za7);
BGL_BIND_STRING(BGl_string2763z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2763za700za7za7_2993za7);
BGL_BIND_STRING(BGl_string2844z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2844za700za7za7_2992za7);
BGL_BIND_STRING(BGl_string2761z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2761za700za7za7_2991za7);
BGL_BIND_STRING(BGl_string2842z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2842za700za7za7_2990za7);
BGL_BIND_STRING(BGl_string2923z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2923za700za7za7_2989za7);
BGL_BIND_PROCEDURE(BGl_installzd2syntaxzd2expanderzd2envzd2zz__r5_macro_4_3_syntaxz00, BgL_bgl_za762installza7d2syn2988z00);
BGL_BIND_STRING(BGl_string2921z00zz__r5_macro_4_3_syntaxz00, BgL_bgl_string2921za700za7za7_2987za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol2640z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2642z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2809z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2729z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2700z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2701z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2702z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2703z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2704z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2656z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2819z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2738z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2705z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2706z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2658z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2707z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2708z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2709z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_hygienezd2markzd2zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2742z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2710z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2906z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2711z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2712z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2713z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2828z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2747z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2717z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2718z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2719z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_keyword2952z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2800z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2801z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2720z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2802z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2721z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2803z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2804z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2756z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2805z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2806z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2758z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2726z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2678z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2727z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2728z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2922z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2841z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2925z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2731z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2813z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2732z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2733z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2815z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2734z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2816z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2735z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2817z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2736z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2655z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2818z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2737z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2930z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2850z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2852z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2771z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2854z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2821z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2740z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2822z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2741z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2660z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2823z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2661z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2905z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2857z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2824z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2662z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2825z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2744z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2663z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2859z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2826z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2745z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2827z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2746z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2749z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2944z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2830z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2864z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2831z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2750z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2832z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2751z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2670z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2752z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2753z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2754z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2673z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2755z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2674z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2837z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2789z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2675z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2919z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2838z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2839z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2791z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2840z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2794z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2680z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2924z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2796z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2845z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2764z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2683z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2846z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2765z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2684z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2847z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2929z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2848z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2849z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2768z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2687z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2769z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2770z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2690z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2691z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2773z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2692z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2774z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2937z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2856z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2777z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2778z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2697z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2698z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2699z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_syntaxzd2expanderszd2mutexz00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2973z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2894z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2861z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2943z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2862z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2781z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2863z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2782z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2897z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2783z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2784z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2866z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2785z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2867z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2786z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2868z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2787z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2869z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2788z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2870z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2871z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2872z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2873z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2874z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2793z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2875z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2876z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2877z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2878z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2798z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2799z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2883z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2893z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_list2896z00zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00) );
ADD_ROOT( (void *)(&BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(long BgL_checksumz00_3689, char * BgL_fromz00_3690)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00))
{ 
BGl_requirezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__r5_macro_4_3_syntaxz00(); 
BGl_cnstzd2initzd2zz__r5_macro_4_3_syntaxz00(); 
BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_syntaxz00(); 
return 
BGl_toplevelzd2initzd2zz__r5_macro_4_3_syntaxz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
BGl_symbol2640z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2641z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2642z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2643z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2652z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2654z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2656z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2657z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2658z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2659z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2655z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2656z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2658z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2665z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2667z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2669z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2663z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2656z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2662z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2663z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2672z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2670z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2661z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2662z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2670z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2677z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2678z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2679z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2675z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2658z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2678z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2674z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2675z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2682z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2686z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2684z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2683z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2684z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2689z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2690z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2678z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2687z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2690z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2680z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2683z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2687z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2673z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2674z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2680z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2694z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2696z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2692z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2675z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2699z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2698z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2690z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2699z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2697z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2683z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2698z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2691z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2692z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2697z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2702z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_list2701z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2702z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2700z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2701z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2704z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2702z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2706z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2699z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2705z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2683z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2706z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2703z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2704z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2705z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2709z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2708z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2709z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2710z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2670z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2707z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2708z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2710z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2712z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2709z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2713z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2670z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2699z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2711z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2712z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2713z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2660z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2661z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2673z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2691z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2700z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2707z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2711z00zz__r5_macro_4_3_syntaxz00, BNIL))))))); 
BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2716z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2717z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2656z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2723z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2721z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2725z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2720z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2721z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_symbol2729z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2730z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2728z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2729z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2721z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2727z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2728z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_list2731z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2729z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2726z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2727z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2731z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2719z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2720z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2726z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2733z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2663z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2732z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2733z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2670z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2738z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2739z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2737z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2738z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2736z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2737z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2664z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2666z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2735z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2736z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_symbol2742z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2743z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2744z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2737z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2741z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2742z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2744z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2740z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2741z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2670z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2734z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2735z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2740z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2747z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2748z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2746z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2736z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2747z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))))); 
BGl_list2750z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2722z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2747z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2749z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2741z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2670z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2750z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2745z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2746z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2749z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2718z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2719z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2732z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2734z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2745z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_symbol2756z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2757z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2758z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2759z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2755z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2756z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2758z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2754z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2755z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2761z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2763z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2753z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2754z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2767z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2768z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2756z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2765z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2768z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2764z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2765z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2758z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2752z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2753z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2764z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2771z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2772z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2770z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2771z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2754z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))))); 
BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2776z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2778z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2771z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2765z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2777z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2778z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_list2774z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2777z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2771z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2773z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2774z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2758z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2769z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2770z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2773z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2751z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2752z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2769z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2780z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2783z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BNIL, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2784z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BNIL, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2782z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2783z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2784z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2789z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2790z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2791z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2792z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2788z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2789z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2791z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2794z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2795z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2796z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2797z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2793z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2794z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2796z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2787z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2788z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2793z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2786z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2787z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2799z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2788z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_list2801z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2793z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2800z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2801z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2760z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2762z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2798z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2799z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2800z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2785z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2786z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2798z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2781z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2782z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2785z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2808z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2809z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2810z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2806z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2809z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2805z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2806z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2812z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2804z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2805z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2815z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2813z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2814z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2815z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BNIL, 
MAKE_YOUNG_PAIR(BGl_list2805z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))))); 
BGl_list2803z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2804z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2813z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2819z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2820z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2818z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2819z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2817z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2814z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BNIL, 
MAKE_YOUNG_PAIR(BGl_list2818z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2805z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))))); 
BGl_list2823z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BUNSPEC, BNIL)); 
BGl_list2822z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2823z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2826z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2819z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2809z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2825z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2826z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2828z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2829z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2827z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2828z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2807z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2819z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2824z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2825z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2827z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))))); 
BGl_list2821z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2822z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2824z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2816z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2817z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2821z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2834z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2836z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2832z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2837z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2831z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2814z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2832z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2837z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2805z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))))); 
BGl_list2839z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2841z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2842z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2840z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2841z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2838z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2814z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2839z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2840z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2805z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2811z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))))); 
BGl_list2830z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2831z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2838z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2802z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2803z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2816z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2830z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2844z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2850z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2851z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2852z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2853z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2854z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2855z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2849z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2850z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2852z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2854z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2848z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2849z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_symbol2857z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2858z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2856z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2857z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_symbol2859z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2860z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2847z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2848z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2856z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2859z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2864z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2865z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2867z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2850z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2870z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(
BBOOL(((bool_t)0)), 
MAKE_YOUNG_PAIR(
BBOOL(((bool_t)0)), BNIL))); 
BGl_list2869z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2870z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2857z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2873z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2855z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2850z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2854z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2872z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2864z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2873z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2871z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2859z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2872z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2868z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2688z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2676z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2869z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2871z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2866z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2867z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2868z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2863z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2864z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2866z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2862z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2863z00zz__r5_macro_4_3_syntaxz00, BNIL); 
BGl_list2874z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2864z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2852z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2861z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2862z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2874z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2846z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2847z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2861z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2876z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2855z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_list2875z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2876z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2878z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_string2855z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00, BNIL)))); 
BGl_list2877z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2878z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2835z00zz__r5_macro_4_3_syntaxz00, BNIL)); 
BGl_list2845z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_list2846z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2875z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_list2877z00zz__r5_macro_4_3_syntaxz00, BNIL))); 
BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2885z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2887z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2889z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2883z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2894z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2895z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2893z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2894z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2896z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2897z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2898z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2906z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2907z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2905z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2906z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2921z00zz__r5_macro_4_3_syntaxz00); 
BGl_symbol2922z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2923z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2919z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2922z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2925z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2926z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2924z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2925z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2925z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2922z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2930z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2931z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2929z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2930z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_list2937z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2920z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2833z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_symbol2944z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2945z00zz__r5_macro_4_3_syntaxz00); 
BGl_list2943z00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2884z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2944z00zz__r5_macro_4_3_syntaxz00, 
MAKE_YOUNG_PAIR(BGl_symbol2888z00zz__r5_macro_4_3_syntaxz00, BNIL))))); 
BGl_keyword2952z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_keyword(BGl_string2953z00zz__r5_macro_4_3_syntaxz00); 
return ( 
BGl_symbol2973z00zz__r5_macro_4_3_syntaxz00 = 
bstring_to_symbol(BGl_string2974z00zz__r5_macro_4_3_syntaxz00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
BGl_hygienezd2markzd2zz__r5_macro_4_3_syntaxz00 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2640z00zz__r5_macro_4_3_syntaxz00); 
{ /* R5rs/syntax.scm 60 */
 obj_t BgL_symbolz00_2479;
BgL_symbolz00_2479 = BGl_hygienezd2markzd2zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 60 */
 obj_t BgL_arg2083z00_2480;
BgL_arg2083z00_2480 = 
SYMBOL_TO_STRING(BgL_symbolz00_2479); 
BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2480); } } 
BGl_hygienezd2prefixzd2lenz00zz__r5_macro_4_3_syntaxz00 = 
STRING_LENGTH(BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00); 
BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00 = BFALSE; 
{ /* R5rs/syntax.scm 64 */

{ /* Llib/thread.scm 218 */
 obj_t BgL_namez00_1112;
BgL_namez00_1112 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2642z00zz__r5_macro_4_3_syntaxz00); 
{ /* Llib/thread.scm 218 */

BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00 = 
bgl_make_mutex(BgL_namez00_1112); } } } 
{ /* R5rs/syntax.scm 65 */

{ /* Llib/thread.scm 218 */
 obj_t BgL_namez00_1113;
BgL_namez00_1113 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2642z00zz__r5_macro_4_3_syntaxz00); 
{ /* Llib/thread.scm 218 */

return ( 
BGl_syntaxzd2expanderszd2mutexz00zz__r5_macro_4_3_syntaxz00 = 
bgl_make_mutex(BgL_namez00_1113), BUNSPEC) ;} } } } 

}



/* append-21011 */
obj_t BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_l1z00_1, obj_t BgL_l2z00_2)
{
{ 
if(
NULLP(BgL_l1z00_1))
{ 
return BgL_l2z00_2;}  else 
{ 
 obj_t BgL_headz00_1115;
BgL_headz00_1115 = 
MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2); 
{ 
 obj_t BgL_prevz00_1116; obj_t BgL_tailz00_1117;
BgL_prevz00_1116 = BgL_headz00_1115; 
BgL_tailz00_1117 = BgL_l1z00_1; 
BgL_loopz00_1118:
if(
PAIRP(BgL_tailz00_1117))
{ 
 obj_t BgL_newzd2prevzd2_1120;
BgL_newzd2prevzd2_1120 = 
MAKE_YOUNG_PAIR(
CAR(BgL_tailz00_1117), BgL_l2z00_2); 
SET_CDR(BgL_prevz00_1116, BgL_newzd2prevzd2_1120); 
{ 
 obj_t BgL_tailz00_4215; obj_t BgL_prevz00_4214;
BgL_prevz00_4214 = BgL_newzd2prevzd2_1120; 
BgL_tailz00_4215 = 
CDR(BgL_tailz00_1117); 
BgL_tailz00_1117 = BgL_tailz00_4215; 
BgL_prevz00_1116 = BgL_prevz00_4214; 
goto BgL_loopz00_1118;} }  else 
{ BNIL; } 
return 
CDR(BgL_headz00_1115);} } } 

}



/* get-syntax-expander */
obj_t BGl_getzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_fz00_3)
{
{ /* R5rs/syntax.scm 70 */
{ /* R5rs/syntax.scm 71 */
 obj_t BgL_idz00_1123;
BgL_idz00_1123 = 
BGl_hygienezd2valueza2z70zz__r5_macro_4_3_syntaxz00(BgL_fz00_3); 
{ /* R5rs/syntax.scm 71 */
 obj_t BgL_cz00_1124;
{ /* R5rs/syntax.scm 72 */
 obj_t BgL_top3140z00_4220;
BgL_top3140z00_4220 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); 
BGL_EXITD_PUSH_PROTECT(BgL_top3140z00_4220, BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); BUNSPEC; 
{ /* R5rs/syntax.scm 72 */
 obj_t BgL_tmp3139z00_4219;
{ /* R5rs/syntax.scm 72 */
 obj_t BgL_auxz00_4224;
{ /* R5rs/syntax.scm 72 */
 obj_t BgL_aux2282z00_3185;
BgL_aux2282z00_3185 = BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 72 */
 bool_t BgL_test3141z00_4225;
if(
PAIRP(BgL_aux2282z00_3185))
{ /* R5rs/syntax.scm 72 */
BgL_test3141z00_4225 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 72 */
BgL_test3141z00_4225 = 
NULLP(BgL_aux2282z00_3185)
; } 
if(BgL_test3141z00_4225)
{ /* R5rs/syntax.scm 72 */
BgL_auxz00_4224 = BgL_aux2282z00_3185
; }  else 
{ 
 obj_t BgL_auxz00_4229;
BgL_auxz00_4229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(2785L), BGl_string2645z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_aux2282z00_3185); 
FAILURE(BgL_auxz00_4229,BFALSE,BFALSE);} } } 
BgL_tmp3139z00_4219 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_1123, BgL_auxz00_4224); } 
BGL_EXITD_POP_PROTECT(BgL_top3140z00_4220); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); 
BgL_cz00_1124 = BgL_tmp3139z00_4219; } } 
{ /* R5rs/syntax.scm 72 */

if(
PAIRP(BgL_cz00_1124))
{ /* R5rs/syntax.scm 73 */
return 
CDR(BgL_cz00_1124);}  else 
{ /* R5rs/syntax.scm 73 */
return BFALSE;} } } } } 

}



/* install-syntax-expander */
BGL_EXPORTED_DEF obj_t BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_keywordz00_4, obj_t BgL_expanderz00_5)
{
{ /* R5rs/syntax.scm 79 */
BGL_MUTEX_LOCK(BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); 
{ /* R5rs/syntax.scm 80 */
 obj_t BgL_tmp3144z00_4239;
{ /* R5rs/syntax.scm 81 */
 obj_t BgL_arg1234z00_2487;
BgL_arg1234z00_2487 = 
MAKE_YOUNG_PAIR(BgL_keywordz00_4, BgL_expanderz00_5); 
BgL_tmp3144z00_4239 = ( 
BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BgL_arg1234z00_2487, BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00), BUNSPEC) ; } 
BGL_MUTEX_UNLOCK(BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); 
return BgL_tmp3144z00_4239;} } 

}



/* &install-syntax-expander */
obj_t BGl_z62installzd2syntaxzd2expanderz62zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3095, obj_t BgL_keywordz00_3096, obj_t BgL_expanderz00_3097)
{
{ /* R5rs/syntax.scm 79 */
{ /* R5rs/syntax.scm 80 */
 obj_t BgL_auxz00_4251; obj_t BgL_auxz00_4244;
if(
PROCEDUREP(BgL_expanderz00_3097))
{ /* R5rs/syntax.scm 80 */
BgL_auxz00_4251 = BgL_expanderz00_3097
; }  else 
{ 
 obj_t BgL_auxz00_4254;
BgL_auxz00_4254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3110L), BGl_string2647z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_expanderz00_3097); 
FAILURE(BgL_auxz00_4254,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_keywordz00_3096))
{ /* R5rs/syntax.scm 80 */
BgL_auxz00_4244 = BgL_keywordz00_3096
; }  else 
{ 
 obj_t BgL_auxz00_4247;
BgL_auxz00_4247 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3110L), BGl_string2647z00zz__r5_macro_4_3_syntaxz00, BGl_string2648z00zz__r5_macro_4_3_syntaxz00, BgL_keywordz00_3096); 
FAILURE(BgL_auxz00_4247,BFALSE,BFALSE);} 
return 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_auxz00_4244, BgL_auxz00_4251);} } 

}



/* init-syntax-expanders! */
obj_t BGl_initzd2syntaxzd2expandersz12z12zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 86 */
{ /* R5rs/syntax.scm 91 */
 obj_t BgL_top3148z00_4260;
BgL_top3148z00_4260 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_syntaxzd2expanderszd2mutexz00zz__r5_macro_4_3_syntaxz00); 
BGL_EXITD_PUSH_PROTECT(BgL_top3148z00_4260, BGl_syntaxzd2expanderszd2mutexz00zz__r5_macro_4_3_syntaxz00); BUNSPEC; 
{ /* R5rs/syntax.scm 91 */
 obj_t BgL_tmp3147z00_4259;
if(
CBOOL(BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 92 */
BgL_tmp3147z00_4259 = BFALSE; }  else 
{ /* R5rs/syntax.scm 92 */
BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00 = BNIL; 
{ /* R5rs/syntax.scm 95 */
 obj_t BgL_keywordz00_2492;
BgL_keywordz00_2492 = BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00; 
BGL_MUTEX_LOCK(BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); 
{ /* R5rs/syntax.scm 80 */
 obj_t BgL_tmp3150z00_4266;
{ /* R5rs/syntax.scm 81 */
 obj_t BgL_arg1234z00_2493;
BgL_arg1234z00_2493 = 
MAKE_YOUNG_PAIR(BgL_keywordz00_2492, BGl_proc2650z00zz__r5_macro_4_3_syntaxz00); 
BgL_tmp3150z00_4266 = ( 
BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00 = 
MAKE_YOUNG_PAIR(BgL_arg1234z00_2493, BGl_syntaxesz00zz__r5_macro_4_3_syntaxz00), BUNSPEC) ; } 
BGL_MUTEX_UNLOCK(BGl_syntaxzd2mutexzd2zz__r5_macro_4_3_syntaxz00); BgL_tmp3150z00_4266; } } 
{ /* R5rs/syntax.scm 97 */
 obj_t BgL_idz00_2494; obj_t BgL_literalsz00_2495; obj_t BgL_rulesz00_2496;
BgL_idz00_2494 = BGl_symbol2653z00zz__r5_macro_4_3_syntaxz00; 
BgL_literalsz00_2495 = BGl_list2655z00zz__r5_macro_4_3_syntaxz00; 
BgL_rulesz00_2496 = BGl_list2660z00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_arg1239z00_2497;
BgL_arg1239z00_2497 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_idz00_2494, BgL_literalsz00_2495, BgL_rulesz00_2496); 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_auxz00_4272;
if(
PROCEDUREP(BgL_arg1239z00_2497))
{ /* R5rs/syntax.scm 89 */
BgL_auxz00_4272 = BgL_arg1239z00_2497
; }  else 
{ 
 obj_t BgL_auxz00_4275;
BgL_auxz00_4275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3589L), BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_arg1239z00_2497); 
FAILURE(BgL_auxz00_4275,BFALSE,BFALSE);} 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_idz00_2494, BgL_auxz00_4272); } } } 
{ /* R5rs/syntax.scm 123 */
 obj_t BgL_idz00_2498; obj_t BgL_literalsz00_2499; obj_t BgL_rulesz00_2500;
BgL_idz00_2498 = BGl_symbol2715z00zz__r5_macro_4_3_syntaxz00; 
BgL_literalsz00_2499 = BGl_list2717z00zz__r5_macro_4_3_syntaxz00; 
BgL_rulesz00_2500 = BGl_list2718z00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_arg1239z00_2501;
BgL_arg1239z00_2501 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_idz00_2498, BgL_literalsz00_2499, BgL_rulesz00_2500); 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_auxz00_4281;
if(
PROCEDUREP(BgL_arg1239z00_2501))
{ /* R5rs/syntax.scm 89 */
BgL_auxz00_4281 = BgL_arg1239z00_2501
; }  else 
{ 
 obj_t BgL_auxz00_4284;
BgL_auxz00_4284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3589L), BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_arg1239z00_2501); 
FAILURE(BgL_auxz00_4284,BFALSE,BFALSE);} 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_idz00_2498, BgL_auxz00_4281); } } } 
{ /* R5rs/syntax.scm 143 */
 obj_t BgL_idz00_2502; obj_t BgL_rulesz00_2503;
BgL_idz00_2502 = BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00; 
BgL_rulesz00_2503 = BGl_list2751z00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_arg1239z00_2504;
BgL_arg1239z00_2504 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_idz00_2502, BNIL, BgL_rulesz00_2503); 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_auxz00_4290;
if(
PROCEDUREP(BgL_arg1239z00_2504))
{ /* R5rs/syntax.scm 89 */
BgL_auxz00_4290 = BgL_arg1239z00_2504
; }  else 
{ 
 obj_t BgL_auxz00_4293;
BgL_auxz00_4293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3589L), BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_arg1239z00_2504); 
FAILURE(BgL_auxz00_4293,BFALSE,BFALSE);} 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_idz00_2502, BgL_auxz00_4290); } } } 
{ /* R5rs/syntax.scm 154 */
 obj_t BgL_idz00_2505; obj_t BgL_rulesz00_2506;
BgL_idz00_2505 = BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00; 
BgL_rulesz00_2506 = BGl_list2781z00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_arg1239z00_2507;
BgL_arg1239z00_2507 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_idz00_2505, BNIL, BgL_rulesz00_2506); 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_auxz00_4299;
if(
PROCEDUREP(BgL_arg1239z00_2507))
{ /* R5rs/syntax.scm 89 */
BgL_auxz00_4299 = BgL_arg1239z00_2507
; }  else 
{ 
 obj_t BgL_auxz00_4302;
BgL_auxz00_4302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3589L), BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_arg1239z00_2507); 
FAILURE(BgL_auxz00_4302,BFALSE,BFALSE);} 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_idz00_2505, BgL_auxz00_4299); } } } 
{ /* R5rs/syntax.scm 164 */
 obj_t BgL_idz00_2508; obj_t BgL_rulesz00_2509;
BgL_idz00_2508 = BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00; 
BgL_rulesz00_2509 = BGl_list2802z00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_arg1239z00_2510;
BgL_arg1239z00_2510 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_idz00_2508, BNIL, BgL_rulesz00_2509); 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_auxz00_4308;
if(
PROCEDUREP(BgL_arg1239z00_2510))
{ /* R5rs/syntax.scm 89 */
BgL_auxz00_4308 = BgL_arg1239z00_2510
; }  else 
{ 
 obj_t BgL_auxz00_4311;
BgL_auxz00_4311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3589L), BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_arg1239z00_2510); 
FAILURE(BgL_auxz00_4311,BFALSE,BFALSE);} 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_idz00_2508, BgL_auxz00_4308); } } } 
{ /* R5rs/syntax.scm 193 */
 obj_t BgL_idz00_2511; obj_t BgL_rulesz00_2512;
BgL_idz00_2511 = BGl_symbol2843z00zz__r5_macro_4_3_syntaxz00; 
BgL_rulesz00_2512 = BGl_list2845z00zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_arg1239z00_2513;
BgL_arg1239z00_2513 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_idz00_2511, BNIL, BgL_rulesz00_2512); 
{ /* R5rs/syntax.scm 89 */
 obj_t BgL_auxz00_4317;
if(
PROCEDUREP(BgL_arg1239z00_2513))
{ /* R5rs/syntax.scm 89 */
BgL_auxz00_4317 = BgL_arg1239z00_2513
; }  else 
{ 
 obj_t BgL_auxz00_4320;
BgL_auxz00_4320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(3589L), BGl_string2714z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_arg1239z00_2513); 
FAILURE(BgL_auxz00_4320,BFALSE,BFALSE);} 
BgL_tmp3147z00_4259 = 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_idz00_2511, BgL_auxz00_4317); } } } } 
BGL_EXITD_POP_PROTECT(BgL_top3148z00_4260); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_syntaxzd2expanderszd2mutexz00zz__r5_macro_4_3_syntaxz00); 
return BgL_tmp3147z00_4259;} } } 

}



/* &<@anonymous:1236> */
obj_t BGl_z62zc3z04anonymousza31236ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3099, obj_t BgL_xz00_3100, obj_t BgL_ez00_3101)
{
{ /* R5rs/syntax.scm 95 */
return BgL_xz00_3100;} 

}



/* syntax-expander */
obj_t BGl_syntaxzd2expanderzd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_7, obj_t BgL_ez00_8)
{
{ /* R5rs/syntax.scm 225 */
{ /* R5rs/syntax.scm 226 */
 obj_t BgL_e1z00_1139;
if(
PAIRP(BgL_xz00_7))
{ /* R5rs/syntax.scm 229 */
 obj_t BgL_g1039z00_1150;
BgL_g1039z00_1150 = 
BGl_getzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(
CAR(BgL_xz00_7)); 
if(
CBOOL(BgL_g1039z00_1150))
{ /* R5rs/syntax.scm 229 */
BgL_e1z00_1139 = BgL_g1039z00_1150; }  else 
{ /* R5rs/syntax.scm 229 */
BgL_e1z00_1139 = BGl_proc2879z00zz__r5_macro_4_3_syntaxz00; } }  else 
{ /* R5rs/syntax.scm 227 */
BgL_e1z00_1139 = BGl_proc2880z00zz__r5_macro_4_3_syntaxz00; } 
{ /* R5rs/syntax.scm 242 */
 obj_t BgL_newz00_1140;
{ /* R5rs/syntax.scm 242 */
 obj_t BgL_funz00_3205;
if(
PROCEDUREP(BgL_e1z00_1139))
{ /* R5rs/syntax.scm 242 */
BgL_funz00_3205 = BgL_e1z00_1139; }  else 
{ 
 obj_t BgL_auxz00_4335;
BgL_auxz00_4335 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(7584L), BGl_string2881z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e1z00_1139); 
FAILURE(BgL_auxz00_4335,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3205, 2))
{ /* R5rs/syntax.scm 242 */
BgL_newz00_1140 = 
(VA_PROCEDUREP( BgL_funz00_3205 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3205))(BgL_e1z00_1139, BgL_xz00_7, BgL_ez00_8, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3205))(BgL_e1z00_1139, BgL_xz00_7, BgL_ez00_8) ); }  else 
{ /* R5rs/syntax.scm 242 */
FAILURE(BGl_string2882z00zz__r5_macro_4_3_syntaxz00,BGl_list2883z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3205);} } 
{ /* R5rs/syntax.scm 243 */
 bool_t BgL_test3161z00_4347;
if(
PAIRP(BgL_newz00_1140))
{ /* R5rs/syntax.scm 243 */
if(
EPAIRP(BgL_newz00_1140))
{ /* R5rs/syntax.scm 243 */
BgL_test3161z00_4347 = ((bool_t)0)
; }  else 
{ /* R5rs/syntax.scm 243 */
BgL_test3161z00_4347 = 
EPAIRP(BgL_xz00_7)
; } }  else 
{ /* R5rs/syntax.scm 243 */
BgL_test3161z00_4347 = ((bool_t)0)
; } 
if(BgL_test3161z00_4347)
{ /* R5rs/syntax.scm 244 */
 obj_t BgL_arg1248z00_1144; obj_t BgL_arg1249z00_1145; obj_t BgL_arg1252z00_1146;
BgL_arg1248z00_1144 = 
CAR(BgL_newz00_1140); 
BgL_arg1249z00_1145 = 
CDR(BgL_newz00_1140); 
{ /* R5rs/syntax.scm 244 */
 obj_t BgL_objz00_2519;
if(
EPAIRP(BgL_xz00_7))
{ /* R5rs/syntax.scm 244 */
BgL_objz00_2519 = BgL_xz00_7; }  else 
{ 
 obj_t BgL_auxz00_4357;
BgL_auxz00_4357 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(7687L), BGl_string2881z00zz__r5_macro_4_3_syntaxz00, BGl_string2890z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_7); 
FAILURE(BgL_auxz00_4357,BFALSE,BFALSE);} 
BgL_arg1252z00_1146 = 
CER(BgL_objz00_2519); } 
{ /* R5rs/syntax.scm 244 */
 obj_t BgL_res2272z00_2520;
BgL_res2272z00_2520 = 
MAKE_YOUNG_EPAIR(BgL_arg1248z00_1144, BgL_arg1249z00_1145, BgL_arg1252z00_1146); 
return BgL_res2272z00_2520;} }  else 
{ /* R5rs/syntax.scm 243 */
return BgL_newz00_1140;} } } } } 

}



/* &syntax-expander */
obj_t BGl_z62syntaxzd2expanderzb0zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3104, obj_t BgL_xz00_3105, obj_t BgL_ez00_3106)
{
{ /* R5rs/syntax.scm 225 */
return 
BGl_syntaxzd2expanderzd2zz__r5_macro_4_3_syntaxz00(BgL_xz00_3105, BgL_ez00_3106);} 

}



/* &<@anonymous:1254> */
obj_t BGl_z62zc3z04anonymousza31254ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3107, obj_t BgL_xz00_3108, obj_t BgL_ez00_3109)
{
{ /* R5rs/syntax.scm 233 */
return 
BGl_loopze73ze7zz__r5_macro_4_3_syntaxz00(BgL_ez00_3109, BgL_xz00_3108);} 

}



/* loop~3 */
obj_t BGl_loopze73ze7zz__r5_macro_4_3_syntaxz00(obj_t BgL_ez00_3184, obj_t BgL_xz00_1157)
{
{ /* R5rs/syntax.scm 234 */
if(
PAIRP(BgL_xz00_1157))
{ /* R5rs/syntax.scm 237 */
 obj_t BgL_arg1258z00_1160; obj_t BgL_arg1259z00_1161;
{ /* R5rs/syntax.scm 237 */
 obj_t BgL_arg1261z00_1162;
BgL_arg1261z00_1162 = 
CAR(BgL_xz00_1157); 
{ /* R5rs/syntax.scm 237 */
 obj_t BgL_funz00_3211;
if(
PROCEDUREP(BgL_ez00_3184))
{ /* R5rs/syntax.scm 237 */
BgL_funz00_3211 = BgL_ez00_3184; }  else 
{ 
 obj_t BgL_auxz00_4370;
BgL_auxz00_4370 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(7476L), BGl_string2891z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_3184); 
FAILURE(BgL_auxz00_4370,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3211, 2))
{ /* R5rs/syntax.scm 237 */
BgL_arg1258z00_1160 = 
(VA_PROCEDUREP( BgL_funz00_3211 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3211))(BgL_ez00_3184, BgL_arg1261z00_1162, BgL_ez00_3184, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3211))(BgL_ez00_3184, BgL_arg1261z00_1162, BgL_ez00_3184) ); }  else 
{ /* R5rs/syntax.scm 237 */
FAILURE(BGl_string2892z00zz__r5_macro_4_3_syntaxz00,BGl_list2893z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3211);} } } 
BgL_arg1259z00_1161 = 
BGl_loopze73ze7zz__r5_macro_4_3_syntaxz00(BgL_ez00_3184, 
CDR(BgL_xz00_1157)); 
return 
MAKE_YOUNG_PAIR(BgL_arg1258z00_1160, BgL_arg1259z00_1161);}  else 
{ /* R5rs/syntax.scm 236 */
if(
NULLP(BgL_xz00_1157))
{ /* R5rs/syntax.scm 238 */
return BNIL;}  else 
{ /* R5rs/syntax.scm 241 */
 obj_t BgL_funz00_3215;
if(
PROCEDUREP(BgL_ez00_3184))
{ /* R5rs/syntax.scm 241 */
BgL_funz00_3215 = BgL_ez00_3184; }  else 
{ 
 obj_t BgL_auxz00_4389;
BgL_auxz00_4389 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(7551L), BGl_string2891z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_3184); 
FAILURE(BgL_auxz00_4389,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3215, 2))
{ /* R5rs/syntax.scm 241 */
return 
(VA_PROCEDUREP( BgL_funz00_3215 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3215))(BgL_ez00_3184, BgL_xz00_1157, BgL_ez00_3184, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3215))(BgL_ez00_3184, BgL_xz00_1157, BgL_ez00_3184) );}  else 
{ /* R5rs/syntax.scm 241 */
FAILURE(BGl_string2892z00zz__r5_macro_4_3_syntaxz00,BGl_list2896z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3215);} } } } 

}



/* &<@anonymous:1266> */
obj_t BGl_z62zc3z04anonymousza31266ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3110, obj_t BgL_xz00_3111, obj_t BgL_ez00_3112)
{
{ /* R5rs/syntax.scm 228 */
return BgL_xz00_3111;} 

}



/* expand-define-syntax */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_9, obj_t BgL_ez00_10)
{
{ /* R5rs/syntax.scm 250 */
if(
PAIRP(BgL_xz00_9))
{ /* R5rs/syntax.scm 251 */
 obj_t BgL_cdrzd2111zd2_1177;
BgL_cdrzd2111zd2_1177 = 
CDR(
((obj_t)BgL_xz00_9)); 
if(
PAIRP(BgL_cdrzd2111zd2_1177))
{ /* R5rs/syntax.scm 251 */
 obj_t BgL_carzd2115zd2_1179; obj_t BgL_cdrzd2116zd2_1180;
BgL_carzd2115zd2_1179 = 
CAR(BgL_cdrzd2111zd2_1177); 
BgL_cdrzd2116zd2_1180 = 
CDR(BgL_cdrzd2111zd2_1177); 
if(
SYMBOLP(BgL_carzd2115zd2_1179))
{ /* R5rs/syntax.scm 251 */
if(
PAIRP(BgL_cdrzd2116zd2_1180))
{ /* R5rs/syntax.scm 251 */
 obj_t BgL_carzd2122zd2_1183;
BgL_carzd2122zd2_1183 = 
CAR(BgL_cdrzd2116zd2_1180); 
if(
PAIRP(BgL_carzd2122zd2_1183))
{ /* R5rs/syntax.scm 251 */
 obj_t BgL_cdrzd2127zd2_1185;
BgL_cdrzd2127zd2_1185 = 
CDR(BgL_carzd2122zd2_1183); 
if(
(
CAR(BgL_carzd2122zd2_1183)==BGl_symbol2897z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 251 */
if(
PAIRP(BgL_cdrzd2127zd2_1185))
{ /* R5rs/syntax.scm 251 */
if(
NULLP(
CDR(BgL_cdrzd2116zd2_1180)))
{ /* R5rs/syntax.scm 251 */
 obj_t BgL_arg1280z00_1191; obj_t BgL_arg1281z00_1192;
BgL_arg1280z00_1191 = 
CAR(BgL_cdrzd2127zd2_1185); 
BgL_arg1281z00_1192 = 
CDR(BgL_cdrzd2127zd2_1185); 
{ /* R5rs/syntax.scm 253 */
 obj_t BgL_exz00_2534;
BGl_initzd2syntaxzd2expandersz12z12zz__r5_macro_4_3_syntaxz00(); 
{ /* R5rs/syntax.scm 313 */
 obj_t BgL_auxz00_4437; obj_t BgL_auxz00_4428;
{ /* R5rs/syntax.scm 313 */
 bool_t BgL_test3181z00_4438;
if(
PAIRP(BgL_arg1281z00_1192))
{ /* R5rs/syntax.scm 313 */
BgL_test3181z00_4438 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 313 */
BgL_test3181z00_4438 = 
NULLP(BgL_arg1281z00_1192)
; } 
if(BgL_test3181z00_4438)
{ /* R5rs/syntax.scm 313 */
BgL_auxz00_4437 = BgL_arg1281z00_1192
; }  else 
{ 
 obj_t BgL_auxz00_4442;
BgL_auxz00_4442 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10344L), BGl_string2899z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_arg1281z00_1192); 
FAILURE(BgL_auxz00_4442,BFALSE,BFALSE);} } 
{ /* R5rs/syntax.scm 313 */
 bool_t BgL_test3179z00_4429;
if(
PAIRP(BgL_arg1280z00_1191))
{ /* R5rs/syntax.scm 313 */
BgL_test3179z00_4429 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 313 */
BgL_test3179z00_4429 = 
NULLP(BgL_arg1280z00_1191)
; } 
if(BgL_test3179z00_4429)
{ /* R5rs/syntax.scm 313 */
BgL_auxz00_4428 = BgL_arg1280z00_1191
; }  else 
{ 
 obj_t BgL_auxz00_4433;
BgL_auxz00_4433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10335L), BGl_string2899z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_arg1280z00_1191); 
FAILURE(BgL_auxz00_4433,BFALSE,BFALSE);} } 
BgL_exz00_2534 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_carzd2115zd2_1179, BgL_auxz00_4428, BgL_auxz00_4437); } 
{ /* R5rs/syntax.scm 254 */
 obj_t BgL_auxz00_4447;
if(
PROCEDUREP(BgL_exz00_2534))
{ /* R5rs/syntax.scm 254 */
BgL_auxz00_4447 = BgL_exz00_2534
; }  else 
{ 
 obj_t BgL_auxz00_4450;
BgL_auxz00_4450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(8167L), BGl_string2899z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_exz00_2534); 
FAILURE(BgL_auxz00_4450,BFALSE,BFALSE);} 
BGl_installzd2syntaxzd2expanderz00zz__r5_macro_4_3_syntaxz00(BgL_carzd2115zd2_1179, BgL_auxz00_4447); } 
BGl_installzd2expanderzd2zz__macroz00(BgL_carzd2115zd2_1179, BgL_exz00_2534); 
return BUNSPEC;} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} }  else 
{ /* R5rs/syntax.scm 251 */
return 
BGl_errorz00zz__errorz00(BGl_string2900z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_9);} } 

}



/* &expand-define-syntax */
obj_t BGl_z62expandzd2definezd2syntaxz62zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3113, obj_t BgL_xz00_3114, obj_t BgL_ez00_3115)
{
{ /* R5rs/syntax.scm 250 */
{ /* R5rs/syntax.scm 251 */
 obj_t BgL_auxz00_4464;
if(
PROCEDUREP(BgL_ez00_3115))
{ /* R5rs/syntax.scm 251 */
BgL_auxz00_4464 = BgL_ez00_3115
; }  else 
{ 
 obj_t BgL_auxz00_4467;
BgL_auxz00_4467 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(7966L), BGl_string2902z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_3115); 
FAILURE(BgL_auxz00_4467,BFALSE,BFALSE);} 
return 
BGl_expandzd2definezd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_3114, BgL_auxz00_4464);} } 

}



/* expand-letrec-syntax */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_11, obj_t BgL_ez00_12)
{
{ /* R5rs/syntax.scm 263 */
{ 
 obj_t BgL_bsz00_1196; obj_t BgL_bodyz00_1197;
if(
PAIRP(BgL_xz00_11))
{ /* R5rs/syntax.scm 264 */
 obj_t BgL_cdrzd2142zd2_1202;
BgL_cdrzd2142zd2_1202 = 
CDR(
((obj_t)BgL_xz00_11)); 
if(
PAIRP(BgL_cdrzd2142zd2_1202))
{ /* R5rs/syntax.scm 264 */
BgL_bsz00_1196 = 
CAR(BgL_cdrzd2142zd2_1202); 
BgL_bodyz00_1197 = 
CDR(BgL_cdrzd2142zd2_1202); 
{ /* R5rs/syntax.scm 266 */
 obj_t BgL_e1z00_1206;
BgL_e1z00_1206 = 
BGl_loopze72ze7zz__r5_macro_4_3_syntaxz00(BgL_ez00_12, BgL_bsz00_1196); 
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_arg1292z00_1207;
if(
NULLP(BgL_bodyz00_1197))
{ /* R5rs/syntax.scm 280 */
BgL_arg1292z00_1207 = BNIL; }  else 
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_head1095z00_1210;
BgL_head1095z00_1210 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1093z00_1212; obj_t BgL_tail1096z00_1213;
BgL_l1093z00_1212 = BgL_bodyz00_1197; 
BgL_tail1096z00_1213 = BgL_head1095z00_1210; 
BgL_zc3z04anonymousza31294ze3z87_1214:
if(
PAIRP(BgL_l1093z00_1212))
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_newtail1097z00_1216;
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_arg1298z00_1218;
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_xz00_1219;
BgL_xz00_1219 = 
CAR(BgL_l1093z00_1212); 
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_arg1301z00_1220;
BgL_arg1301z00_1220 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_xz00_1219, BNIL); 
{ /* R5rs/syntax.scm 280 */
 obj_t BgL_funz00_3229;
if(
PROCEDUREP(BgL_e1z00_1206))
{ /* R5rs/syntax.scm 280 */
BgL_funz00_3229 = BgL_e1z00_1206; }  else 
{ 
 obj_t BgL_auxz00_4488;
BgL_auxz00_4488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9042L), BGl_string2903z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e1z00_1206); 
FAILURE(BgL_auxz00_4488,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3229, 2))
{ /* R5rs/syntax.scm 280 */
BgL_arg1298z00_1218 = 
(VA_PROCEDUREP( BgL_funz00_3229 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3229))(BgL_e1z00_1206, BgL_arg1301z00_1220, BgL_e1z00_1206, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3229))(BgL_e1z00_1206, BgL_arg1301z00_1220, BgL_e1z00_1206) ); }  else 
{ /* R5rs/syntax.scm 280 */
FAILURE(BGl_string2904z00zz__r5_macro_4_3_syntaxz00,BGl_list2905z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3229);} } } } 
BgL_newtail1097z00_1216 = 
MAKE_YOUNG_PAIR(BgL_arg1298z00_1218, BNIL); } 
SET_CDR(BgL_tail1096z00_1213, BgL_newtail1097z00_1216); 
{ 
 obj_t BgL_tail1096z00_4504; obj_t BgL_l1093z00_4502;
BgL_l1093z00_4502 = 
CDR(BgL_l1093z00_1212); 
BgL_tail1096z00_4504 = BgL_newtail1097z00_1216; 
BgL_tail1096z00_1213 = BgL_tail1096z00_4504; 
BgL_l1093z00_1212 = BgL_l1093z00_4502; 
goto BgL_zc3z04anonymousza31294ze3z87_1214;} }  else 
{ /* R5rs/syntax.scm 280 */
if(
NULLP(BgL_l1093z00_1212))
{ /* R5rs/syntax.scm 280 */
BgL_arg1292z00_1207 = 
CDR(BgL_head1095z00_1210); }  else 
{ /* R5rs/syntax.scm 280 */
BgL_arg1292z00_1207 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1093z00_1212, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9025L)); } } } } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00, BgL_arg1292z00_1207);} } }  else 
{ /* R5rs/syntax.scm 264 */
return 
BGl_errorz00zz__errorz00(BGl_string2910z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_11);} }  else 
{ /* R5rs/syntax.scm 264 */
return 
BGl_errorz00zz__errorz00(BGl_string2910z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_11);} } } 

}



/* loop~2 */
obj_t BGl_loopze72ze7zz__r5_macro_4_3_syntaxz00(obj_t BgL_ez00_3183, obj_t BgL_bsz00_1224)
{
{ /* R5rs/syntax.scm 266 */
if(
NULLP(BgL_bsz00_1224))
{ /* R5rs/syntax.scm 267 */
return BgL_ez00_3183;}  else 
{ 
 obj_t BgL_mz00_1227; obj_t BgL_lsz00_1228; obj_t BgL_rulesz00_1229;
{ /* R5rs/syntax.scm 269 */
 obj_t BgL_ezd2151zd2_1232;
{ /* R5rs/syntax.scm 269 */
 obj_t BgL_pairz00_2537;
if(
PAIRP(BgL_bsz00_1224))
{ /* R5rs/syntax.scm 269 */
BgL_pairz00_2537 = BgL_bsz00_1224; }  else 
{ 
 obj_t BgL_auxz00_4519;
BgL_auxz00_4519 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(8669L), BGl_string2913z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224); 
FAILURE(BgL_auxz00_4519,BFALSE,BFALSE);} 
BgL_ezd2151zd2_1232 = 
CAR(BgL_pairz00_2537); } 
if(
PAIRP(BgL_ezd2151zd2_1232))
{ /* R5rs/syntax.scm 269 */
 obj_t BgL_carzd2158zd2_1234; obj_t BgL_cdrzd2159zd2_1235;
BgL_carzd2158zd2_1234 = 
CAR(BgL_ezd2151zd2_1232); 
BgL_cdrzd2159zd2_1235 = 
CDR(BgL_ezd2151zd2_1232); 
if(
SYMBOLP(BgL_carzd2158zd2_1234))
{ /* R5rs/syntax.scm 269 */
if(
PAIRP(BgL_cdrzd2159zd2_1235))
{ /* R5rs/syntax.scm 269 */
 obj_t BgL_carzd2165zd2_1238;
BgL_carzd2165zd2_1238 = 
CAR(BgL_cdrzd2159zd2_1235); 
if(
PAIRP(BgL_carzd2165zd2_1238))
{ /* R5rs/syntax.scm 269 */
 obj_t BgL_cdrzd2170zd2_1240;
BgL_cdrzd2170zd2_1240 = 
CDR(BgL_carzd2165zd2_1238); 
if(
(
CAR(BgL_carzd2165zd2_1238)==BGl_symbol2897z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 269 */
if(
PAIRP(BgL_cdrzd2170zd2_1240))
{ /* R5rs/syntax.scm 269 */
if(
NULLP(
CDR(BgL_cdrzd2159zd2_1235)))
{ /* R5rs/syntax.scm 269 */
BgL_mz00_1227 = BgL_carzd2158zd2_1234; 
BgL_lsz00_1228 = 
CAR(BgL_cdrzd2170zd2_1240); 
BgL_rulesz00_1229 = 
CDR(BgL_cdrzd2170zd2_1240); 
{ /* R5rs/syntax.scm 271 */
 obj_t BgL_e3z00_1250; obj_t BgL_e4z00_1251;
BGl_initzd2syntaxzd2expandersz12z12zz__r5_macro_4_3_syntaxz00(); 
{ /* R5rs/syntax.scm 313 */
 obj_t BgL_auxz00_4554; obj_t BgL_auxz00_4545;
{ /* R5rs/syntax.scm 313 */
 bool_t BgL_test3203z00_4555;
if(
PAIRP(BgL_rulesz00_1229))
{ /* R5rs/syntax.scm 313 */
BgL_test3203z00_4555 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 313 */
BgL_test3203z00_4555 = 
NULLP(BgL_rulesz00_1229)
; } 
if(BgL_test3203z00_4555)
{ /* R5rs/syntax.scm 313 */
BgL_auxz00_4554 = BgL_rulesz00_1229
; }  else 
{ 
 obj_t BgL_auxz00_4559;
BgL_auxz00_4559 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10344L), BGl_string2911z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_1229); 
FAILURE(BgL_auxz00_4559,BFALSE,BFALSE);} } 
{ /* R5rs/syntax.scm 313 */
 bool_t BgL_test3201z00_4546;
if(
PAIRP(BgL_lsz00_1228))
{ /* R5rs/syntax.scm 313 */
BgL_test3201z00_4546 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 313 */
BgL_test3201z00_4546 = 
NULLP(BgL_lsz00_1228)
; } 
if(BgL_test3201z00_4546)
{ /* R5rs/syntax.scm 313 */
BgL_auxz00_4545 = BgL_lsz00_1228
; }  else 
{ 
 obj_t BgL_auxz00_4550;
BgL_auxz00_4550 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10335L), BGl_string2911z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_lsz00_1228); 
FAILURE(BgL_auxz00_4550,BFALSE,BFALSE);} } 
BgL_e3z00_1250 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_mz00_1227, BgL_auxz00_4545, BgL_auxz00_4554); } 
{ /* R5rs/syntax.scm 272 */
 obj_t BgL_arg1341z00_1260;
{ /* R5rs/syntax.scm 272 */
 obj_t BgL_pairz00_2535;
if(
PAIRP(BgL_bsz00_1224))
{ /* R5rs/syntax.scm 272 */
BgL_pairz00_2535 = BgL_bsz00_1224; }  else 
{ 
 obj_t BgL_auxz00_4566;
BgL_auxz00_4566 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(8811L), BGl_string2911z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224); 
FAILURE(BgL_auxz00_4566,BFALSE,BFALSE);} 
BgL_arg1341z00_1260 = 
CDR(BgL_pairz00_2535); } 
BgL_e4z00_1251 = 
BGl_loopze72ze7zz__r5_macro_4_3_syntaxz00(BgL_ez00_3183, BgL_arg1341z00_1260); } 
{ /* R5rs/syntax.scm 273 */
 obj_t BgL_zc3z04anonymousza31335ze3z87_3116;
BgL_zc3z04anonymousza31335ze3z87_3116 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31335ze3ze5zz__r5_macro_4_3_syntaxz00, 
(int)(2L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31335ze3z87_3116, 
(int)(0L), BgL_e4z00_1251); 
PROCEDURE_SET(BgL_zc3z04anonymousza31335ze3z87_3116, 
(int)(1L), BgL_e3z00_1250); 
PROCEDURE_SET(BgL_zc3z04anonymousza31335ze3z87_3116, 
(int)(2L), BgL_mz00_1227); 
return BgL_zc3z04anonymousza31335ze3z87_3116;} } }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} }  else 
{ /* R5rs/syntax.scm 269 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1224);} } } } 

}



/* &expand-letrec-syntax */
obj_t BGl_z62expandzd2letreczd2syntaxz62zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3117, obj_t BgL_xz00_3118, obj_t BgL_ez00_3119)
{
{ /* R5rs/syntax.scm 263 */
{ /* R5rs/syntax.scm 264 */
 obj_t BgL_auxz00_4590;
if(
PROCEDUREP(BgL_ez00_3119))
{ /* R5rs/syntax.scm 264 */
BgL_auxz00_4590 = BgL_ez00_3119
; }  else 
{ 
 obj_t BgL_auxz00_4593;
BgL_auxz00_4593 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(8548L), BGl_string2916z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_3119); 
FAILURE(BgL_auxz00_4593,BFALSE,BFALSE);} 
return 
BGl_expandzd2letreczd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_3118, BgL_auxz00_4590);} } 

}



/* &<@anonymous:1335> */
obj_t BGl_z62zc3z04anonymousza31335ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3120, obj_t BgL_xz00_3124, obj_t BgL_e2z00_3125)
{
{ /* R5rs/syntax.scm 273 */
{ /* R5rs/syntax.scm 274 */
 obj_t BgL_e4z00_3121; obj_t BgL_e3z00_3122; obj_t BgL_mz00_3123;
BgL_e4z00_3121 = 
PROCEDURE_REF(BgL_envz00_3120, 
(int)(0L)); 
BgL_e3z00_3122 = 
PROCEDURE_REF(BgL_envz00_3120, 
(int)(1L)); 
BgL_mz00_3123 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3120, 
(int)(2L))); 
{ /* R5rs/syntax.scm 274 */
 bool_t BgL_test3207z00_4605;
if(
PAIRP(BgL_xz00_3124))
{ /* R5rs/syntax.scm 274 */
BgL_test3207z00_4605 = 
BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00(BgL_mz00_3123, 
CAR(BgL_xz00_3124))
; }  else 
{ /* R5rs/syntax.scm 274 */
BgL_test3207z00_4605 = ((bool_t)0)
; } 
if(BgL_test3207z00_4605)
{ /* R5rs/syntax.scm 275 */
 obj_t BgL_funz00_3622;
if(
PROCEDUREP(BgL_e3z00_3122))
{ /* R5rs/syntax.scm 275 */
BgL_funz00_3622 = BgL_e3z00_3122; }  else 
{ 
 obj_t BgL_auxz00_4612;
BgL_auxz00_4612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(8903L), BGl_string2917z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e3z00_3122); 
FAILURE(BgL_auxz00_4612,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3622, 2))
{ /* R5rs/syntax.scm 275 */
return 
(VA_PROCEDUREP( BgL_funz00_3622 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3622))(BgL_e3z00_3122, BgL_xz00_3124, BgL_e2z00_3125, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3622))(BgL_e3z00_3122, BgL_xz00_3124, BgL_e2z00_3125) );}  else 
{ /* R5rs/syntax.scm 275 */
FAILURE(BGl_string2918z00zz__r5_macro_4_3_syntaxz00,BGl_list2919z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3622);} }  else 
{ /* R5rs/syntax.scm 276 */
 obj_t BgL_funz00_3623;
if(
PROCEDUREP(BgL_e4z00_3121))
{ /* R5rs/syntax.scm 276 */
BgL_funz00_3623 = BgL_e4z00_3121; }  else 
{ 
 obj_t BgL_auxz00_4626;
BgL_auxz00_4626 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(8923L), BGl_string2917z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e4z00_3121); 
FAILURE(BgL_auxz00_4626,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3623, 2))
{ /* R5rs/syntax.scm 276 */
return 
(VA_PROCEDUREP( BgL_funz00_3623 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3623))(BgL_e4z00_3121, BgL_xz00_3124, BgL_e2z00_3125, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3623))(BgL_e4z00_3121, BgL_xz00_3124, BgL_e2z00_3125) );}  else 
{ /* R5rs/syntax.scm 276 */
FAILURE(BGl_string2918z00zz__r5_macro_4_3_syntaxz00,BGl_list2924z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3623);} } } } } 

}



/* expand-let-syntax */
BGL_EXPORTED_DEF obj_t BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_13, obj_t BgL_ez00_14)
{
{ /* R5rs/syntax.scm 287 */
{ 
 obj_t BgL_bsz00_1262; obj_t BgL_bodyz00_1263;
if(
PAIRP(BgL_xz00_13))
{ /* R5rs/syntax.scm 288 */
 obj_t BgL_cdrzd2185zd2_1268;
BgL_cdrzd2185zd2_1268 = 
CDR(
((obj_t)BgL_xz00_13)); 
if(
PAIRP(BgL_cdrzd2185zd2_1268))
{ /* R5rs/syntax.scm 288 */
BgL_bsz00_1262 = 
CAR(BgL_cdrzd2185zd2_1268); 
BgL_bodyz00_1263 = 
CDR(BgL_cdrzd2185zd2_1268); 
{ /* R5rs/syntax.scm 290 */
 obj_t BgL_e1z00_1272;
BgL_e1z00_1272 = 
BGl_loopze71ze7zz__r5_macro_4_3_syntaxz00(BgL_ez00_14, BgL_bsz00_1262); 
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_arg1347z00_1273;
if(
NULLP(BgL_bodyz00_1263))
{ /* R5rs/syntax.scm 304 */
BgL_arg1347z00_1273 = BNIL; }  else 
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_head1100z00_1276;
BgL_head1100z00_1276 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1098z00_1278; obj_t BgL_tail1101z00_1279;
BgL_l1098z00_1278 = BgL_bodyz00_1263; 
BgL_tail1101z00_1279 = BgL_head1100z00_1276; 
BgL_zc3z04anonymousza31349ze3z87_1280:
if(
PAIRP(BgL_l1098z00_1278))
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_newtail1102z00_1282;
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_arg1352z00_1284;
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_xz00_1285;
BgL_xz00_1285 = 
CAR(BgL_l1098z00_1278); 
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_arg1353z00_1286;
BgL_arg1353z00_1286 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_xz00_1285, BNIL); 
{ /* R5rs/syntax.scm 304 */
 obj_t BgL_funz00_3253;
if(
PROCEDUREP(BgL_e1z00_1272))
{ /* R5rs/syntax.scm 304 */
BgL_funz00_3253 = BgL_e1z00_1272; }  else 
{ 
 obj_t BgL_auxz00_4654;
BgL_auxz00_4654 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9892L), BGl_string2927z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e1z00_1272); 
FAILURE(BgL_auxz00_4654,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3253, 2))
{ /* R5rs/syntax.scm 304 */
BgL_arg1352z00_1284 = 
(VA_PROCEDUREP( BgL_funz00_3253 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3253))(BgL_e1z00_1272, BgL_arg1353z00_1286, BgL_e1z00_1272, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3253))(BgL_e1z00_1272, BgL_arg1353z00_1286, BgL_e1z00_1272) ); }  else 
{ /* R5rs/syntax.scm 304 */
FAILURE(BGl_string2928z00zz__r5_macro_4_3_syntaxz00,BGl_list2929z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3253);} } } } 
BgL_newtail1102z00_1282 = 
MAKE_YOUNG_PAIR(BgL_arg1352z00_1284, BNIL); } 
SET_CDR(BgL_tail1101z00_1279, BgL_newtail1102z00_1282); 
{ 
 obj_t BgL_tail1101z00_4670; obj_t BgL_l1098z00_4668;
BgL_l1098z00_4668 = 
CDR(BgL_l1098z00_1278); 
BgL_tail1101z00_4670 = BgL_newtail1102z00_1282; 
BgL_tail1101z00_1279 = BgL_tail1101z00_4670; 
BgL_l1098z00_1278 = BgL_l1098z00_4668; 
goto BgL_zc3z04anonymousza31349ze3z87_1280;} }  else 
{ /* R5rs/syntax.scm 304 */
if(
NULLP(BgL_l1098z00_1278))
{ /* R5rs/syntax.scm 304 */
BgL_arg1347z00_1273 = 
CDR(BgL_head1100z00_1276); }  else 
{ /* R5rs/syntax.scm 304 */
BgL_arg1347z00_1273 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1098z00_1278, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9875L)); } } } } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2671z00zz__r5_macro_4_3_syntaxz00, BgL_arg1347z00_1273);} } }  else 
{ /* R5rs/syntax.scm 288 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_13);} }  else 
{ /* R5rs/syntax.scm 288 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2901z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_13);} } } 

}



/* loop~1 */
obj_t BGl_loopze71ze7zz__r5_macro_4_3_syntaxz00(obj_t BgL_ez00_3182, obj_t BgL_bsz00_1290)
{
{ /* R5rs/syntax.scm 290 */
if(
NULLP(BgL_bsz00_1290))
{ /* R5rs/syntax.scm 291 */
return BgL_ez00_3182;}  else 
{ 
 obj_t BgL_mz00_1293; obj_t BgL_lsz00_1294; obj_t BgL_rulesz00_1295;
{ /* R5rs/syntax.scm 293 */
 obj_t BgL_ezd2194zd2_1298;
{ /* R5rs/syntax.scm 293 */
 obj_t BgL_pairz00_2555;
if(
PAIRP(BgL_bsz00_1290))
{ /* R5rs/syntax.scm 293 */
BgL_pairz00_2555 = BgL_bsz00_1290; }  else 
{ 
 obj_t BgL_auxz00_4685;
BgL_auxz00_4685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9520L), BGl_string2933z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290); 
FAILURE(BgL_auxz00_4685,BFALSE,BFALSE);} 
BgL_ezd2194zd2_1298 = 
CAR(BgL_pairz00_2555); } 
if(
PAIRP(BgL_ezd2194zd2_1298))
{ /* R5rs/syntax.scm 293 */
 obj_t BgL_carzd2201zd2_1300; obj_t BgL_cdrzd2202zd2_1301;
BgL_carzd2201zd2_1300 = 
CAR(BgL_ezd2194zd2_1298); 
BgL_cdrzd2202zd2_1301 = 
CDR(BgL_ezd2194zd2_1298); 
if(
SYMBOLP(BgL_carzd2201zd2_1300))
{ /* R5rs/syntax.scm 293 */
if(
PAIRP(BgL_cdrzd2202zd2_1301))
{ /* R5rs/syntax.scm 293 */
 obj_t BgL_carzd2208zd2_1304;
BgL_carzd2208zd2_1304 = 
CAR(BgL_cdrzd2202zd2_1301); 
if(
PAIRP(BgL_carzd2208zd2_1304))
{ /* R5rs/syntax.scm 293 */
 obj_t BgL_cdrzd2213zd2_1306;
BgL_cdrzd2213zd2_1306 = 
CDR(BgL_carzd2208zd2_1304); 
if(
(
CAR(BgL_carzd2208zd2_1304)==BGl_symbol2897z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 293 */
if(
PAIRP(BgL_cdrzd2213zd2_1306))
{ /* R5rs/syntax.scm 293 */
if(
NULLP(
CDR(BgL_cdrzd2202zd2_1301)))
{ /* R5rs/syntax.scm 293 */
BgL_mz00_1293 = BgL_carzd2201zd2_1300; 
BgL_lsz00_1294 = 
CAR(BgL_cdrzd2213zd2_1306); 
BgL_rulesz00_1295 = 
CDR(BgL_cdrzd2213zd2_1306); 
{ /* R5rs/syntax.scm 295 */
 obj_t BgL_e3z00_1316; obj_t BgL_e4z00_1317;
BGl_initzd2syntaxzd2expandersz12z12zz__r5_macro_4_3_syntaxz00(); 
{ /* R5rs/syntax.scm 313 */
 obj_t BgL_auxz00_4720; obj_t BgL_auxz00_4711;
{ /* R5rs/syntax.scm 313 */
 bool_t BgL_test3231z00_4721;
if(
PAIRP(BgL_rulesz00_1295))
{ /* R5rs/syntax.scm 313 */
BgL_test3231z00_4721 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 313 */
BgL_test3231z00_4721 = 
NULLP(BgL_rulesz00_1295)
; } 
if(BgL_test3231z00_4721)
{ /* R5rs/syntax.scm 313 */
BgL_auxz00_4720 = BgL_rulesz00_1295
; }  else 
{ 
 obj_t BgL_auxz00_4725;
BgL_auxz00_4725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10344L), BGl_string2932z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_1295); 
FAILURE(BgL_auxz00_4725,BFALSE,BFALSE);} } 
{ /* R5rs/syntax.scm 313 */
 bool_t BgL_test3229z00_4712;
if(
PAIRP(BgL_lsz00_1294))
{ /* R5rs/syntax.scm 313 */
BgL_test3229z00_4712 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 313 */
BgL_test3229z00_4712 = 
NULLP(BgL_lsz00_1294)
; } 
if(BgL_test3229z00_4712)
{ /* R5rs/syntax.scm 313 */
BgL_auxz00_4711 = BgL_lsz00_1294
; }  else 
{ 
 obj_t BgL_auxz00_4716;
BgL_auxz00_4716 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10335L), BGl_string2932z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_lsz00_1294); 
FAILURE(BgL_auxz00_4716,BFALSE,BFALSE);} } 
BgL_e3z00_1316 = 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_mz00_1293, BgL_auxz00_4711, BgL_auxz00_4720); } 
{ /* R5rs/syntax.scm 296 */
 obj_t BgL_arg1376z00_1326;
{ /* R5rs/syntax.scm 296 */
 obj_t BgL_pairz00_2553;
if(
PAIRP(BgL_bsz00_1290))
{ /* R5rs/syntax.scm 296 */
BgL_pairz00_2553 = BgL_bsz00_1290; }  else 
{ 
 obj_t BgL_auxz00_4732;
BgL_auxz00_4732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9662L), BGl_string2932z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290); 
FAILURE(BgL_auxz00_4732,BFALSE,BFALSE);} 
BgL_arg1376z00_1326 = 
CDR(BgL_pairz00_2553); } 
BgL_e4z00_1317 = 
BGl_loopze71ze7zz__r5_macro_4_3_syntaxz00(BgL_ez00_3182, BgL_arg1376z00_1326); } 
{ /* R5rs/syntax.scm 297 */
 obj_t BgL_zc3z04anonymousza31370ze3z87_3126;
BgL_zc3z04anonymousza31370ze3z87_3126 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31370ze3ze5zz__r5_macro_4_3_syntaxz00, 
(int)(2L), 
(int)(4L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31370ze3z87_3126, 
(int)(0L), BgL_e4z00_1317); 
PROCEDURE_SET(BgL_zc3z04anonymousza31370ze3z87_3126, 
(int)(1L), BgL_e3z00_1316); 
PROCEDURE_SET(BgL_zc3z04anonymousza31370ze3z87_3126, 
(int)(2L), BgL_ez00_3182); 
PROCEDURE_SET(BgL_zc3z04anonymousza31370ze3z87_3126, 
(int)(3L), BgL_mz00_1293); 
return BgL_zc3z04anonymousza31370ze3z87_3126;} } }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} }  else 
{ /* R5rs/syntax.scm 293 */
return 
BGl_errorz00zz__errorz00(BGl_string2914z00zz__r5_macro_4_3_syntaxz00, BGl_string2915z00zz__r5_macro_4_3_syntaxz00, BgL_bsz00_1290);} } } } 

}



/* &expand-let-syntax */
obj_t BGl_z62expandzd2letzd2syntaxz62zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3127, obj_t BgL_xz00_3128, obj_t BgL_ez00_3129)
{
{ /* R5rs/syntax.scm 287 */
{ /* R5rs/syntax.scm 288 */
 obj_t BgL_auxz00_4758;
if(
PROCEDUREP(BgL_ez00_3129))
{ /* R5rs/syntax.scm 288 */
BgL_auxz00_4758 = BgL_ez00_3129
; }  else 
{ 
 obj_t BgL_auxz00_4761;
BgL_auxz00_4761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9399L), BGl_string2934z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_3129); 
FAILURE(BgL_auxz00_4761,BFALSE,BFALSE);} 
return 
BGl_expandzd2letzd2syntaxz00zz__r5_macro_4_3_syntaxz00(BgL_xz00_3128, BgL_auxz00_4758);} } 

}



/* &<@anonymous:1370> */
obj_t BGl_z62zc3z04anonymousza31370ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3130, obj_t BgL_xz00_3135, obj_t BgL_e2z00_3136)
{
{ /* R5rs/syntax.scm 297 */
{ /* R5rs/syntax.scm 298 */
 obj_t BgL_e4z00_3131; obj_t BgL_e3z00_3132; obj_t BgL_ez00_3133; obj_t BgL_mz00_3134;
BgL_e4z00_3131 = 
PROCEDURE_REF(BgL_envz00_3130, 
(int)(0L)); 
BgL_e3z00_3132 = 
PROCEDURE_REF(BgL_envz00_3130, 
(int)(1L)); 
BgL_ez00_3133 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3130, 
(int)(2L))); 
BgL_mz00_3134 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3130, 
(int)(3L))); 
{ /* R5rs/syntax.scm 298 */
 bool_t BgL_test3235z00_4776;
if(
PAIRP(BgL_xz00_3135))
{ /* R5rs/syntax.scm 298 */
BgL_test3235z00_4776 = 
BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00(BgL_mz00_3134, 
CAR(BgL_xz00_3135))
; }  else 
{ /* R5rs/syntax.scm 298 */
BgL_test3235z00_4776 = ((bool_t)0)
; } 
if(BgL_test3235z00_4776)
{ /* R5rs/syntax.scm 299 */
 obj_t BgL_funz00_3626;
if(
PROCEDUREP(BgL_e3z00_3132))
{ /* R5rs/syntax.scm 299 */
BgL_funz00_3626 = BgL_e3z00_3132; }  else 
{ 
 obj_t BgL_auxz00_4783;
BgL_auxz00_4783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9754L), BGl_string2935z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e3z00_3132); 
FAILURE(BgL_auxz00_4783,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3626, 2))
{ /* R5rs/syntax.scm 299 */
return 
(VA_PROCEDUREP( BgL_funz00_3626 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3626))(BgL_e3z00_3132, BgL_xz00_3135, BgL_ez00_3133, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3626))(BgL_e3z00_3132, BgL_xz00_3135, BgL_ez00_3133) );}  else 
{ /* R5rs/syntax.scm 299 */
FAILURE(BGl_string2936z00zz__r5_macro_4_3_syntaxz00,BGl_list2937z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3626);} }  else 
{ /* R5rs/syntax.scm 300 */
 obj_t BgL_funz00_3627;
if(
PROCEDUREP(BgL_e4z00_3131))
{ /* R5rs/syntax.scm 300 */
BgL_funz00_3627 = BgL_e4z00_3131; }  else 
{ 
 obj_t BgL_auxz00_4797;
BgL_auxz00_4797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(9773L), BGl_string2935z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_e4z00_3131); 
FAILURE(BgL_auxz00_4797,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3627, 2))
{ /* R5rs/syntax.scm 300 */
return 
(VA_PROCEDUREP( BgL_funz00_3627 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3627))(BgL_e4z00_3131, BgL_xz00_3135, BgL_e2z00_3136, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3627))(BgL_e4z00_3131, BgL_xz00_3135, BgL_e2z00_3136) );}  else 
{ /* R5rs/syntax.scm 300 */
FAILURE(BGl_string2936z00zz__r5_macro_4_3_syntaxz00,BGl_list2924z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3627);} } } } } 

}



/* syntax-rules->expander */
BGL_EXPORTED_DEF obj_t BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(obj_t BgL_keywordz00_18, obj_t BgL_literalsz00_19, obj_t BgL_rulesz00_20)
{
{ /* R5rs/syntax.scm 318 */
{ /* R5rs/syntax.scm 319 */
 obj_t BgL_kz00_1328;
BgL_kz00_1328 = 
MAKE_YOUNG_PAIR(BgL_keywordz00_18, BgL_literalsz00_19); 
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_rulesz00_20))
{ /* R5rs/syntax.scm 321 */
 obj_t BgL_zc3z04anonymousza31378ze3z87_3137;
BgL_zc3z04anonymousza31378ze3z87_3137 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31378ze3ze5zz__r5_macro_4_3_syntaxz00, 
(int)(2L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31378ze3z87_3137, 
(int)(0L), BgL_keywordz00_18); 
PROCEDURE_SET(BgL_zc3z04anonymousza31378ze3z87_3137, 
(int)(1L), BgL_kz00_1328); 
PROCEDURE_SET(BgL_zc3z04anonymousza31378ze3z87_3137, 
(int)(2L), BgL_rulesz00_20); 
return BgL_zc3z04anonymousza31378ze3z87_3137;}  else 
{ /* R5rs/syntax.scm 320 */
return 
BGl_errorz00zz__errorz00(BgL_keywordz00_18, BGl_string2938z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_20);} } } 

}



/* &syntax-rules->expander */
obj_t BGl_z62syntaxzd2ruleszd2ze3expanderz81zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3138, obj_t BgL_keywordz00_3139, obj_t BgL_literalsz00_3140, obj_t BgL_rulesz00_3141)
{
{ /* R5rs/syntax.scm 318 */
{ /* R5rs/syntax.scm 319 */
 obj_t BgL_auxz00_4836; obj_t BgL_auxz00_4829; obj_t BgL_auxz00_4822;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_rulesz00_3141))
{ /* R5rs/syntax.scm 319 */
BgL_auxz00_4836 = BgL_rulesz00_3141
; }  else 
{ 
 obj_t BgL_auxz00_4839;
BgL_auxz00_4839 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10634L), BGl_string2939z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_3141); 
FAILURE(BgL_auxz00_4839,BFALSE,BFALSE);} 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_literalsz00_3140))
{ /* R5rs/syntax.scm 319 */
BgL_auxz00_4829 = BgL_literalsz00_3140
; }  else 
{ 
 obj_t BgL_auxz00_4832;
BgL_auxz00_4832 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10634L), BGl_string2939z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_literalsz00_3140); 
FAILURE(BgL_auxz00_4832,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_keywordz00_3139))
{ /* R5rs/syntax.scm 319 */
BgL_auxz00_4822 = BgL_keywordz00_3139
; }  else 
{ 
 obj_t BgL_auxz00_4825;
BgL_auxz00_4825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10634L), BGl_string2939z00zz__r5_macro_4_3_syntaxz00, BGl_string2648z00zz__r5_macro_4_3_syntaxz00, BgL_keywordz00_3139); 
FAILURE(BgL_auxz00_4825,BFALSE,BFALSE);} 
return 
BGl_syntaxzd2ruleszd2ze3expanderze3zz__r5_macro_4_3_syntaxz00(BgL_auxz00_4822, BgL_auxz00_4829, BgL_auxz00_4836);} } 

}



/* &<@anonymous:1378> */
obj_t BGl_z62zc3z04anonymousza31378ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3142, obj_t BgL_xz00_3146, obj_t BgL_ez00_3147)
{
{ /* R5rs/syntax.scm 321 */
{ /* R5rs/syntax.scm 323 */
 obj_t BgL_keywordz00_3143; obj_t BgL_kz00_3144; obj_t BgL_rulesz00_3145;
BgL_keywordz00_3143 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3142, 
(int)(0L))); 
BgL_kz00_3144 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3142, 
(int)(1L))); 
BgL_rulesz00_3145 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3142, 
(int)(2L))); 
{ 
 obj_t BgL_rulesz00_3629;
BgL_rulesz00_3629 = BgL_rulesz00_3145; 
BgL_loopz00_3628:
if(
NULLP(BgL_rulesz00_3629))
{ /* R5rs/syntax.scm 323 */
return 
BGl_errorz00zz__errorz00(BgL_keywordz00_3143, BGl_string2940z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_3146);}  else 
{ 
 obj_t BgL_patternz00_3632; obj_t BgL_templatez00_3633;
{ /* R5rs/syntax.scm 325 */
 obj_t BgL_ezd2222zd2_3643;
{ /* R5rs/syntax.scm 325 */
 obj_t BgL_pairz00_3644;
if(
PAIRP(BgL_rulesz00_3629))
{ /* R5rs/syntax.scm 325 */
BgL_pairz00_3644 = BgL_rulesz00_3629; }  else 
{ 
 obj_t BgL_auxz00_4858;
BgL_auxz00_4858 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(10830L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_3629); 
FAILURE(BgL_auxz00_4858,BFALSE,BFALSE);} 
BgL_ezd2222zd2_3643 = 
CAR(BgL_pairz00_3644); } 
if(
PAIRP(BgL_ezd2222zd2_3643))
{ /* R5rs/syntax.scm 325 */
 obj_t BgL_cdrzd2228zd2_3645;
BgL_cdrzd2228zd2_3645 = 
CDR(BgL_ezd2222zd2_3643); 
if(
PAIRP(BgL_cdrzd2228zd2_3645))
{ /* R5rs/syntax.scm 325 */
if(
NULLP(
CDR(BgL_cdrzd2228zd2_3645)))
{ /* R5rs/syntax.scm 325 */
BgL_patternz00_3632 = 
CAR(BgL_ezd2222zd2_3643); 
BgL_templatez00_3633 = 
CAR(BgL_cdrzd2228zd2_3645); 
if(
CBOOL(
BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00(BgL_keywordz00_3143, BgL_patternz00_3632, BgL_xz00_3146, BgL_kz00_3144)))
{ /* R5rs/syntax.scm 329 */
 obj_t BgL_fsz00_3634;
BgL_fsz00_3634 = 
BGl_syntaxzd2getzd2framesz00zz__r5_macro_4_3_syntaxz00(BgL_patternz00_3632, BgL_xz00_3146, BgL_kz00_3144); 
{ /* R5rs/syntax.scm 329 */
 obj_t BgL_tz00_3635;
BgL_tz00_3635 = 
BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(BgL_templatez00_3633, BgL_fsz00_3634, BgL_kz00_3144); 
{ /* R5rs/syntax.scm 330 */
 obj_t BgL_tez00_3636;
BgL_tez00_3636 = 
BGl_syntaxzd2expanderzd2zz__r5_macro_4_3_syntaxz00(BgL_tz00_3635, BGl_syntaxzd2expanderzd2envz00zz__r5_macro_4_3_syntaxz00); 
{ /* R5rs/syntax.scm 331 */

{ /* R5rs/syntax.scm 332 */
 obj_t BgL_arg1389z00_3637;
BgL_arg1389z00_3637 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_tez00_3636, BNIL); 
{ /* R5rs/syntax.scm 332 */
 obj_t BgL_funz00_3638;
if(
PROCEDUREP(BgL_ez00_3147))
{ /* R5rs/syntax.scm 332 */
BgL_funz00_3638 = BgL_ez00_3147; }  else 
{ 
 obj_t BgL_auxz00_4880;
BgL_auxz00_4880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11081L), BGl_string2941z00zz__r5_macro_4_3_syntaxz00, BGl_string2649z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_3147); 
FAILURE(BgL_auxz00_4880,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3638, 2))
{ /* R5rs/syntax.scm 332 */
return 
(VA_PROCEDUREP( BgL_funz00_3638 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3638))(BgL_ez00_3147, BgL_arg1389z00_3637, BgL_ez00_3147, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3638))(BgL_ez00_3147, BgL_arg1389z00_3637, BgL_ez00_3147) );}  else 
{ /* R5rs/syntax.scm 332 */
FAILURE(BGl_string2942z00zz__r5_macro_4_3_syntaxz00,BGl_list2943z00zz__r5_macro_4_3_syntaxz00,BgL_funz00_3638);} } } } } } }  else 
{ /* R5rs/syntax.scm 333 */
 obj_t BgL_arg1390z00_3639;
{ /* R5rs/syntax.scm 333 */
 obj_t BgL_pairz00_3640;
if(
PAIRP(BgL_rulesz00_3629))
{ /* R5rs/syntax.scm 333 */
BgL_pairz00_3640 = BgL_rulesz00_3629; }  else 
{ 
 obj_t BgL_auxz00_4894;
BgL_auxz00_4894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11126L), BGl_string2941z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_3629); 
FAILURE(BgL_auxz00_4894,BFALSE,BFALSE);} 
BgL_arg1390z00_3639 = 
CDR(BgL_pairz00_3640); } 
{ 
 obj_t BgL_rulesz00_4899;
BgL_rulesz00_4899 = BgL_arg1390z00_3639; 
BgL_rulesz00_3629 = BgL_rulesz00_4899; 
goto BgL_loopz00_3628;} } }  else 
{ /* R5rs/syntax.scm 325 */
BgL_tagzd2221zd2_3631:
{ /* R5rs/syntax.scm 335 */
 obj_t BgL_arg1391z00_3641;
{ /* R5rs/syntax.scm 335 */
 obj_t BgL_pairz00_3642;
if(
PAIRP(BgL_rulesz00_3629))
{ /* R5rs/syntax.scm 335 */
BgL_pairz00_3642 = BgL_rulesz00_3629; }  else 
{ 
 obj_t BgL_auxz00_4904;
BgL_auxz00_4904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11191L), BGl_string2946z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_rulesz00_3629); 
FAILURE(BgL_auxz00_4904,BFALSE,BFALSE);} 
BgL_arg1391z00_3641 = 
CAR(BgL_pairz00_3642); } 
return 
BGl_errorz00zz__errorz00(BgL_keywordz00_3143, BGl_string2947z00zz__r5_macro_4_3_syntaxz00, BgL_arg1391z00_3641);} } }  else 
{ /* R5rs/syntax.scm 325 */
goto BgL_tagzd2221zd2_3631;} }  else 
{ /* R5rs/syntax.scm 325 */
goto BgL_tagzd2221zd2_3631;} } } } } } 

}



/* syntax-matches-pattern? */
obj_t BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00(obj_t BgL_keywordz00_21, obj_t BgL_pz00_22, obj_t BgL_ez00_23, obj_t BgL_kz00_24)
{
{ /* R5rs/syntax.scm 341 */
BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00:
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_syntaxz00(BgL_pz00_22))
{ /* R5rs/syntax.scm 344 */
 bool_t BgL_test3256z00_4912;
{ /* R5rs/syntax.scm 344 */
 long BgL_tmpz00_4913;
{ /* R5rs/syntax.scm 344 */
 obj_t BgL_auxz00_4914;
{ /* R5rs/syntax.scm 344 */
 bool_t BgL_test3257z00_4915;
if(
PAIRP(BgL_pz00_22))
{ /* R5rs/syntax.scm 344 */
BgL_test3257z00_4915 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 344 */
BgL_test3257z00_4915 = 
NULLP(BgL_pz00_22)
; } 
if(BgL_test3257z00_4915)
{ /* R5rs/syntax.scm 344 */
BgL_auxz00_4914 = BgL_pz00_22
; }  else 
{ 
 obj_t BgL_auxz00_4919;
BgL_auxz00_4919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11584L), BGl_string2948z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_22); 
FAILURE(BgL_auxz00_4919,BFALSE,BFALSE);} } 
BgL_tmpz00_4913 = 
bgl_list_length(BgL_auxz00_4914); } 
BgL_test3256z00_4912 = 
(BgL_tmpz00_4913==2L); } 
if(BgL_test3256z00_4912)
{ /* R5rs/syntax.scm 344 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_ez00_23))
{ /* R5rs/syntax.scm 347 */
 obj_t BgL_p0z00_1362;
{ /* R5rs/syntax.scm 347 */
 obj_t BgL_pairz00_2579;
if(
PAIRP(BgL_pz00_22))
{ /* R5rs/syntax.scm 347 */
BgL_pairz00_2579 = BgL_pz00_22; }  else 
{ 
 obj_t BgL_auxz00_4929;
BgL_auxz00_4929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11668L), BGl_string2948z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_22); 
FAILURE(BgL_auxz00_4929,BFALSE,BFALSE);} 
BgL_p0z00_1362 = 
CAR(BgL_pairz00_2579); } 
{ 
 obj_t BgL_l1103z00_1364;
BgL_l1103z00_1364 = BgL_ez00_23; 
BgL_zc3z04anonymousza31397ze3z87_1365:
if(
NULLP(BgL_l1103z00_1364))
{ /* R5rs/syntax.scm 348 */
return BTRUE;}  else 
{ /* R5rs/syntax.scm 348 */
if(
PAIRP(BgL_l1103z00_1364))
{ /* R5rs/syntax.scm 349 */
 obj_t BgL_nvz00_1368;
BgL_nvz00_1368 = 
BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00(BgL_keywordz00_21, BgL_p0z00_1362, 
CAR(BgL_l1103z00_1364), BgL_kz00_24); 
if(
CBOOL(BgL_nvz00_1368))
{ 
 obj_t BgL_l1103z00_4942;
BgL_l1103z00_4942 = 
CDR(BgL_l1103z00_1364); 
BgL_l1103z00_1364 = BgL_l1103z00_4942; 
goto BgL_zc3z04anonymousza31397ze3z87_1365;}  else 
{ /* R5rs/syntax.scm 348 */
return BFALSE;} }  else 
{ /* R5rs/syntax.scm 348 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2949z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1103z00_1364, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11678L));} } } }  else 
{ /* R5rs/syntax.scm 346 */
return BFALSE;} }  else 
{ /* R5rs/syntax.scm 344 */
return 
BGl_errorz00zz__errorz00(BgL_keywordz00_21, BGl_string2950z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_22);} }  else 
{ /* R5rs/syntax.scm 343 */
if(
PAIRP(BgL_pz00_22))
{ /* R5rs/syntax.scm 351 */
if(
PAIRP(BgL_ez00_23))
{ /* R5rs/syntax.scm 353 */
 obj_t BgL__andtest_1043z00_1376;
BgL__andtest_1043z00_1376 = 
BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00(BgL_keywordz00_21, 
CAR(BgL_pz00_22), 
CAR(BgL_ez00_23), BgL_kz00_24); 
if(
CBOOL(BgL__andtest_1043z00_1376))
{ 
 obj_t BgL_ez00_4958; obj_t BgL_pz00_4956;
BgL_pz00_4956 = 
CDR(BgL_pz00_22); 
BgL_ez00_4958 = 
CDR(BgL_ez00_23); 
BgL_ez00_23 = BgL_ez00_4958; 
BgL_pz00_22 = BgL_pz00_4956; 
goto BGl_syntaxzd2matcheszd2patternzf3zf3zz__r5_macro_4_3_syntaxz00;}  else 
{ /* R5rs/syntax.scm 353 */
return BFALSE;} }  else 
{ /* R5rs/syntax.scm 352 */
return BFALSE;} }  else 
{ /* R5rs/syntax.scm 351 */
if(
SYMBOLP(BgL_pz00_22))
{ /* R5rs/syntax.scm 356 */
 bool_t BgL_test3268z00_4962;
{ /* R5rs/syntax.scm 356 */
 obj_t BgL_tmpz00_4963;
{ /* R5rs/syntax.scm 356 */
 obj_t BgL_auxz00_4964;
{ /* R5rs/syntax.scm 356 */
 bool_t BgL_test3269z00_4965;
if(
PAIRP(BgL_kz00_24))
{ /* R5rs/syntax.scm 356 */
BgL_test3269z00_4965 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 356 */
BgL_test3269z00_4965 = 
NULLP(BgL_kz00_24)
; } 
if(BgL_test3269z00_4965)
{ /* R5rs/syntax.scm 356 */
BgL_auxz00_4964 = BgL_kz00_24
; }  else 
{ 
 obj_t BgL_auxz00_4969;
BgL_auxz00_4969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(11955L), BGl_string2948z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_kz00_24); 
FAILURE(BgL_auxz00_4969,BFALSE,BFALSE);} } 
BgL_tmpz00_4963 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_22, BgL_auxz00_4964); } 
BgL_test3268z00_4962 = 
CBOOL(BgL_tmpz00_4963); } 
if(BgL_test3268z00_4962)
{ /* R5rs/syntax.scm 356 */
return 
BBOOL(
BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00(BgL_ez00_23, BgL_pz00_22));}  else 
{ /* R5rs/syntax.scm 356 */
return BTRUE;} }  else 
{ /* R5rs/syntax.scm 355 */
return 
BBOOL(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_pz00_22, BgL_ez00_23));} } } } 

}



/* syntax-get-frames */
obj_t BGl_syntaxzd2getzd2framesz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_pz00_25, obj_t BgL_ez00_26, obj_t BgL_kz00_27)
{
{ /* R5rs/syntax.scm 363 */
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_syntaxz00(BgL_pz00_25))
{ /* R5rs/syntax.scm 366 */
 obj_t BgL_p0z00_1384;
{ /* R5rs/syntax.scm 366 */
 obj_t BgL_pairz00_2586;
if(
PAIRP(BgL_pz00_25))
{ /* R5rs/syntax.scm 366 */
BgL_pairz00_2586 = BgL_pz00_25; }  else 
{ 
 obj_t BgL_auxz00_4983;
BgL_auxz00_4983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(12325L), BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_25); 
FAILURE(BgL_auxz00_4983,BFALSE,BFALSE);} 
BgL_p0z00_1384 = 
CAR(BgL_pairz00_2586); } 
{ /* R5rs/syntax.scm 368 */
 obj_t BgL_arg1411z00_1385;
{ /* R5rs/syntax.scm 368 */
 obj_t BgL_arg1413z00_1387;
if(
NULLP(BgL_ez00_26))
{ /* R5rs/syntax.scm 368 */
BgL_arg1413z00_1387 = BNIL; }  else 
{ /* R5rs/syntax.scm 368 */
 obj_t BgL_head1108z00_1390;
BgL_head1108z00_1390 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1106z00_1392; obj_t BgL_tail1109z00_1393;
BgL_l1106z00_1392 = BgL_ez00_26; 
BgL_tail1109z00_1393 = BgL_head1108z00_1390; 
BgL_zc3z04anonymousza31415ze3z87_1394:
if(
PAIRP(BgL_l1106z00_1392))
{ /* R5rs/syntax.scm 368 */
 obj_t BgL_newtail1110z00_1396;
BgL_newtail1110z00_1396 = 
MAKE_YOUNG_PAIR(
BGl_syntaxzd2getzd2framesz00zz__r5_macro_4_3_syntaxz00(BgL_p0z00_1384, 
CAR(BgL_l1106z00_1392), BgL_kz00_27), BNIL); 
SET_CDR(BgL_tail1109z00_1393, BgL_newtail1110z00_1396); 
{ 
 obj_t BgL_tail1109z00_4999; obj_t BgL_l1106z00_4997;
BgL_l1106z00_4997 = 
CDR(BgL_l1106z00_1392); 
BgL_tail1109z00_4999 = BgL_newtail1110z00_1396; 
BgL_tail1109z00_1393 = BgL_tail1109z00_4999; 
BgL_l1106z00_1392 = BgL_l1106z00_4997; 
goto BgL_zc3z04anonymousza31415ze3z87_1394;} }  else 
{ /* R5rs/syntax.scm 368 */
if(
NULLP(BgL_l1106z00_1392))
{ /* R5rs/syntax.scm 368 */
BgL_arg1413z00_1387 = 
CDR(BgL_head1108z00_1390); }  else 
{ /* R5rs/syntax.scm 368 */
BgL_arg1413z00_1387 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1106z00_1392, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(12360L)); } } } } 
BgL_arg1411z00_1385 = 
MAKE_YOUNG_PAIR(BGl_keyword2952z00zz__r5_macro_4_3_syntaxz00, BgL_arg1413z00_1387); } 
{ /* R5rs/syntax.scm 367 */
 obj_t BgL_list1412z00_1386;
BgL_list1412z00_1386 = 
MAKE_YOUNG_PAIR(BgL_arg1411z00_1385, BNIL); 
return BgL_list1412z00_1386;} } }  else 
{ /* R5rs/syntax.scm 365 */
if(
PAIRP(BgL_pz00_25))
{ /* R5rs/syntax.scm 372 */
 obj_t BgL_arg1422z00_1403; obj_t BgL_arg1423z00_1404;
{ /* R5rs/syntax.scm 372 */
 obj_t BgL_arg1424z00_1405; obj_t BgL_arg1425z00_1406;
BgL_arg1424z00_1405 = 
CAR(BgL_pz00_25); 
{ /* R5rs/syntax.scm 372 */
 obj_t BgL_pairz00_2593;
if(
PAIRP(BgL_ez00_26))
{ /* R5rs/syntax.scm 372 */
BgL_pairz00_2593 = BgL_ez00_26; }  else 
{ 
 obj_t BgL_auxz00_5012;
BgL_auxz00_5012 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(12487L), BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_26); 
FAILURE(BgL_auxz00_5012,BFALSE,BFALSE);} 
BgL_arg1425z00_1406 = 
CAR(BgL_pairz00_2593); } 
BgL_arg1422z00_1403 = 
BGl_syntaxzd2getzd2framesz00zz__r5_macro_4_3_syntaxz00(BgL_arg1424z00_1405, BgL_arg1425z00_1406, BgL_kz00_27); } 
{ /* R5rs/syntax.scm 373 */
 obj_t BgL_arg1426z00_1407; obj_t BgL_arg1427z00_1408;
BgL_arg1426z00_1407 = 
CDR(BgL_pz00_25); 
{ /* R5rs/syntax.scm 373 */
 obj_t BgL_pairz00_2595;
if(
PAIRP(BgL_ez00_26))
{ /* R5rs/syntax.scm 373 */
BgL_pairz00_2595 = BgL_ez00_26; }  else 
{ 
 obj_t BgL_auxz00_5021;
BgL_auxz00_5021 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(12533L), BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_ez00_26); 
FAILURE(BgL_auxz00_5021,BFALSE,BFALSE);} 
BgL_arg1427z00_1408 = 
CDR(BgL_pairz00_2595); } 
BgL_arg1423z00_1404 = 
BGl_syntaxzd2getzd2framesz00zz__r5_macro_4_3_syntaxz00(BgL_arg1426z00_1407, BgL_arg1427z00_1408, BgL_kz00_27); } 
{ /* R5rs/syntax.scm 372 */
 obj_t BgL_auxz00_5027;
{ /* R5rs/syntax.scm 372 */
 bool_t BgL_test3279z00_5028;
if(
PAIRP(BgL_arg1422z00_1403))
{ /* R5rs/syntax.scm 372 */
BgL_test3279z00_5028 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 372 */
BgL_test3279z00_5028 = 
NULLP(BgL_arg1422z00_1403)
; } 
if(BgL_test3279z00_5028)
{ /* R5rs/syntax.scm 372 */
BgL_auxz00_5027 = BgL_arg1422z00_1403
; }  else 
{ 
 obj_t BgL_auxz00_5032;
BgL_auxz00_5032 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(12447L), BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_arg1422z00_1403); 
FAILURE(BgL_auxz00_5032,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_auxz00_5027, BgL_arg1423z00_1404);} }  else 
{ /* R5rs/syntax.scm 371 */
if(
SYMBOLP(BgL_pz00_25))
{ /* R5rs/syntax.scm 375 */
 bool_t BgL_test3282z00_5039;
{ /* R5rs/syntax.scm 375 */
 obj_t BgL_tmpz00_5040;
{ /* R5rs/syntax.scm 375 */
 obj_t BgL_auxz00_5041;
{ /* R5rs/syntax.scm 375 */
 bool_t BgL_test3283z00_5042;
if(
PAIRP(BgL_kz00_27))
{ /* R5rs/syntax.scm 375 */
BgL_test3283z00_5042 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 375 */
BgL_test3283z00_5042 = 
NULLP(BgL_kz00_27)
; } 
if(BgL_test3283z00_5042)
{ /* R5rs/syntax.scm 375 */
BgL_auxz00_5041 = BgL_kz00_27
; }  else 
{ 
 obj_t BgL_auxz00_5046;
BgL_auxz00_5046 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(12579L), BGl_string2951z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_kz00_27); 
FAILURE(BgL_auxz00_5046,BFALSE,BFALSE);} } 
BgL_tmpz00_5040 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_25, BgL_auxz00_5041); } 
BgL_test3282z00_5039 = 
CBOOL(BgL_tmpz00_5040); } 
if(BgL_test3282z00_5039)
{ /* R5rs/syntax.scm 375 */
return BNIL;}  else 
{ /* R5rs/syntax.scm 375 */
 obj_t BgL_arg1430z00_1411;
BgL_arg1430z00_1411 = 
MAKE_YOUNG_PAIR(BgL_pz00_25, 
BGl_unhygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_ez00_26)); 
{ /* R5rs/syntax.scm 375 */
 obj_t BgL_list1431z00_1412;
BgL_list1431z00_1412 = 
MAKE_YOUNG_PAIR(BgL_arg1430z00_1411, BNIL); 
return BgL_list1431z00_1412;} } }  else 
{ /* R5rs/syntax.scm 374 */
return BNIL;} } } } 

}



/* syntax-expand-pattern */
obj_t BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_pz00_28, obj_t BgL_envz00_29, obj_t BgL_kz00_30)
{
{ /* R5rs/syntax.scm 382 */
{ 
 obj_t BgL_p0z00_1429; obj_t BgL_envz00_1430; obj_t BgL_kz00_1431;
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_syntaxz00(BgL_pz00_28))
{ /* R5rs/syntax.scm 395 */
 obj_t BgL_arg1434z00_1416; obj_t BgL_arg1435z00_1417;
{ /* R5rs/syntax.scm 395 */
 obj_t BgL_arg1436z00_1418;
{ /* R5rs/syntax.scm 395 */
 obj_t BgL_pairz00_2601;
if(
PAIRP(BgL_pz00_28))
{ /* R5rs/syntax.scm 395 */
BgL_pairz00_2601 = BgL_pz00_28; }  else 
{ 
 obj_t BgL_auxz00_5059;
BgL_auxz00_5059 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13260L), BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_28); 
FAILURE(BgL_auxz00_5059,BFALSE,BFALSE);} 
BgL_arg1436z00_1418 = 
CAR(BgL_pairz00_2601); } 
BgL_p0z00_1429 = BgL_arg1436z00_1418; 
BgL_envz00_1430 = BgL_envz00_29; 
BgL_kz00_1431 = BgL_kz00_30; 
{ /* R5rs/syntax.scm 385 */
 obj_t BgL_varsz00_1433;
BgL_varsz00_1433 = 
BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(BgL_kz00_1431, BgL_p0z00_1429); 
{ /* R5rs/syntax.scm 385 */
 obj_t BgL_framesz00_1434;
BgL_framesz00_1434 = 
BGl_getzd2ellipsiszd2framesz00zz__r5_macro_4_3_syntaxz00(BgL_varsz00_1433, BgL_envz00_1430); 
{ /* R5rs/syntax.scm 386 */

if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_framesz00_1434))
{ /* R5rs/syntax.scm 387 */
if(
NULLP(BgL_framesz00_1434))
{ /* R5rs/syntax.scm 389 */
BgL_arg1434z00_1416 = BNIL; }  else 
{ /* R5rs/syntax.scm 389 */
 obj_t BgL_head1113z00_1438;
BgL_head1113z00_1438 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1111z00_1440; obj_t BgL_tail1114z00_1441;
BgL_l1111z00_1440 = BgL_framesz00_1434; 
BgL_tail1114z00_1441 = BgL_head1113z00_1438; 
BgL_zc3z04anonymousza31451ze3z87_1442:
if(
PAIRP(BgL_l1111z00_1440))
{ /* R5rs/syntax.scm 389 */
 obj_t BgL_newtail1115z00_1444;
{ /* R5rs/syntax.scm 389 */
 obj_t BgL_arg1455z00_1446;
{ /* R5rs/syntax.scm 389 */
 obj_t BgL_fz00_1447;
BgL_fz00_1447 = 
CAR(BgL_l1111z00_1440); 
{ /* R5rs/syntax.scm 390 */
 obj_t BgL_arg1456z00_1448;
{ /* R5rs/syntax.scm 390 */
 obj_t BgL_auxz00_5074;
{ /* R5rs/syntax.scm 390 */
 bool_t BgL_test3290z00_5075;
if(
PAIRP(BgL_fz00_1447))
{ /* R5rs/syntax.scm 390 */
BgL_test3290z00_5075 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 390 */
BgL_test3290z00_5075 = 
NULLP(BgL_fz00_1447)
; } 
if(BgL_test3290z00_5075)
{ /* R5rs/syntax.scm 390 */
BgL_auxz00_5074 = BgL_fz00_1447
; }  else 
{ 
 obj_t BgL_auxz00_5079;
BgL_auxz00_5079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13148L), BGl_string2954z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_fz00_1447); 
FAILURE(BgL_auxz00_5079,BFALSE,BFALSE);} } 
BgL_arg1456z00_1448 = 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_auxz00_5074, BgL_envz00_1430); } 
BgL_arg1455z00_1446 = 
BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(BgL_p0z00_1429, BgL_arg1456z00_1448, BgL_kz00_1431); } } 
BgL_newtail1115z00_1444 = 
MAKE_YOUNG_PAIR(BgL_arg1455z00_1446, BNIL); } 
SET_CDR(BgL_tail1114z00_1441, BgL_newtail1115z00_1444); 
{ 
 obj_t BgL_tail1114z00_5089; obj_t BgL_l1111z00_5087;
BgL_l1111z00_5087 = 
CDR(BgL_l1111z00_1440); 
BgL_tail1114z00_5089 = BgL_newtail1115z00_1444; 
BgL_tail1114z00_1441 = BgL_tail1114z00_5089; 
BgL_l1111z00_1440 = BgL_l1111z00_5087; 
goto BgL_zc3z04anonymousza31451ze3z87_1442;} }  else 
{ /* R5rs/syntax.scm 389 */
if(
NULLP(BgL_l1111z00_1440))
{ /* R5rs/syntax.scm 389 */
BgL_arg1434z00_1416 = 
CDR(BgL_head1113z00_1438); }  else 
{ /* R5rs/syntax.scm 389 */
BgL_arg1434z00_1416 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1111z00_1440, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13098L)); } } } } }  else 
{ /* R5rs/syntax.scm 387 */
BgL_arg1434z00_1416 = BNIL; } } } } } 
{ /* R5rs/syntax.scm 396 */
 obj_t BgL_arg1437z00_1419;
{ /* R5rs/syntax.scm 396 */
 obj_t BgL_pairz00_2602;
if(
PAIRP(BgL_pz00_28))
{ /* R5rs/syntax.scm 396 */
BgL_pairz00_2602 = BgL_pz00_28; }  else 
{ 
 obj_t BgL_auxz00_5097;
BgL_auxz00_5097 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13307L), BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_28); 
FAILURE(BgL_auxz00_5097,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 396 */
 obj_t BgL_pairz00_2605;
{ /* R5rs/syntax.scm 396 */
 obj_t BgL_aux2400z00_3313;
BgL_aux2400z00_3313 = 
CDR(BgL_pairz00_2602); 
if(
PAIRP(BgL_aux2400z00_3313))
{ /* R5rs/syntax.scm 396 */
BgL_pairz00_2605 = BgL_aux2400z00_3313; }  else 
{ 
 obj_t BgL_auxz00_5104;
BgL_auxz00_5104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13301L), BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2400z00_3313); 
FAILURE(BgL_auxz00_5104,BFALSE,BFALSE);} } 
BgL_arg1437z00_1419 = 
CDR(BgL_pairz00_2605); } } 
BgL_arg1435z00_1417 = 
BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(BgL_arg1437z00_1419, BgL_envz00_29, BgL_kz00_30); } 
{ /* R5rs/syntax.scm 395 */
 obj_t BgL_auxz00_5110;
{ /* R5rs/syntax.scm 395 */
 bool_t BgL_test3295z00_5111;
if(
PAIRP(BgL_arg1434z00_1416))
{ /* R5rs/syntax.scm 395 */
BgL_test3295z00_5111 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 395 */
BgL_test3295z00_5111 = 
NULLP(BgL_arg1434z00_1416)
; } 
if(BgL_test3295z00_5111)
{ /* R5rs/syntax.scm 395 */
BgL_auxz00_5110 = BgL_arg1434z00_1416
; }  else 
{ 
 obj_t BgL_auxz00_5115;
BgL_auxz00_5115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13223L), BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_arg1434z00_1416); 
FAILURE(BgL_auxz00_5115,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_auxz00_5110, BgL_arg1435z00_1417);} }  else 
{ /* R5rs/syntax.scm 394 */
if(
PAIRP(BgL_pz00_28))
{ /* R5rs/syntax.scm 397 */
return 
MAKE_YOUNG_PAIR(
BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(
CAR(BgL_pz00_28), BgL_envz00_29, BgL_kz00_30), 
BGl_syntaxzd2expandzd2patternz00zz__r5_macro_4_3_syntaxz00(
CDR(BgL_pz00_28), BgL_envz00_29, BgL_kz00_30));}  else 
{ /* R5rs/syntax.scm 397 */
if(
SYMBOLP(BgL_pz00_28))
{ /* R5rs/syntax.scm 401 */
 bool_t BgL_test3299z00_5129;
{ /* R5rs/syntax.scm 401 */
 obj_t BgL_tmpz00_5130;
{ /* R5rs/syntax.scm 401 */
 obj_t BgL_auxz00_5131;
{ /* R5rs/syntax.scm 401 */
 bool_t BgL_test3300z00_5132;
if(
PAIRP(BgL_kz00_30))
{ /* R5rs/syntax.scm 401 */
BgL_test3300z00_5132 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 401 */
BgL_test3300z00_5132 = 
NULLP(BgL_kz00_30)
; } 
if(BgL_test3300z00_5132)
{ /* R5rs/syntax.scm 401 */
BgL_auxz00_5131 = BgL_kz00_30
; }  else 
{ 
 obj_t BgL_auxz00_5136;
BgL_auxz00_5136 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13471L), BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_kz00_30); 
FAILURE(BgL_auxz00_5136,BFALSE,BFALSE);} } 
BgL_tmpz00_5130 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_28, BgL_auxz00_5131); } 
BgL_test3299z00_5129 = 
CBOOL(BgL_tmpz00_5130); } 
if(BgL_test3299z00_5129)
{ /* R5rs/syntax.scm 401 */
return BgL_pz00_28;}  else 
{ /* R5rs/syntax.scm 403 */
 obj_t BgL_xz00_1427;
{ /* R5rs/syntax.scm 403 */
 obj_t BgL_auxz00_5142;
{ /* R5rs/syntax.scm 403 */
 bool_t BgL_test3302z00_5143;
if(
PAIRP(BgL_envz00_29))
{ /* R5rs/syntax.scm 403 */
BgL_test3302z00_5143 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 403 */
BgL_test3302z00_5143 = 
NULLP(BgL_envz00_29)
; } 
if(BgL_test3302z00_5143)
{ /* R5rs/syntax.scm 403 */
BgL_auxz00_5142 = BgL_envz00_29
; }  else 
{ 
 obj_t BgL_auxz00_5147;
BgL_auxz00_5147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13501L), BGl_string2955z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_envz00_29); 
FAILURE(BgL_auxz00_5147,BFALSE,BFALSE);} } 
BgL_xz00_1427 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_28, BgL_auxz00_5142); } 
if(
PAIRP(BgL_xz00_1427))
{ /* R5rs/syntax.scm 404 */
return 
CDR(BgL_xz00_1427);}  else 
{ /* R5rs/syntax.scm 404 */
return BgL_pz00_28;} } }  else 
{ /* R5rs/syntax.scm 400 */
return BgL_pz00_28;} } } } } 

}



/* get-ellipsis-frames */
obj_t BGl_getzd2ellipsiszd2framesz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_varsz00_31, obj_t BgL_framesz00_32)
{
{ /* R5rs/syntax.scm 413 */
{ 
 obj_t BgL_varsz00_1454; obj_t BgL_resz00_1455;
BgL_varsz00_1454 = BgL_varsz00_31; 
BgL_resz00_1455 = BNIL; 
BgL_zc3z04anonymousza31458ze3z87_1456:
if(
NULLP(BgL_varsz00_1454))
{ /* R5rs/syntax.scm 416 */
return BgL_resz00_1455;}  else 
{ /* R5rs/syntax.scm 418 */
 obj_t BgL_vz00_1458;
{ /* R5rs/syntax.scm 418 */
 obj_t BgL_pairz00_2609;
if(
PAIRP(BgL_varsz00_1454))
{ /* R5rs/syntax.scm 418 */
BgL_pairz00_2609 = BgL_varsz00_1454; }  else 
{ 
 obj_t BgL_auxz00_5159;
BgL_auxz00_5159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13931L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_varsz00_1454); 
FAILURE(BgL_auxz00_5159,BFALSE,BFALSE);} 
BgL_vz00_1458 = 
CAR(BgL_pairz00_2609); } 
{ /* R5rs/syntax.scm 419 */
 obj_t BgL_fz00_1459;
{ 
 obj_t BgL_l1122z00_1501;
BgL_l1122z00_1501 = BgL_framesz00_32; 
BgL_zc3z04anonymousza31485ze3z87_1502:
if(
NULLP(BgL_l1122z00_1501))
{ /* R5rs/syntax.scm 419 */
BgL_fz00_1459 = BFALSE; }  else 
{ /* R5rs/syntax.scm 419 */
if(
PAIRP(BgL_l1122z00_1501))
{ /* R5rs/syntax.scm 420 */
 obj_t BgL__ortest_1124z00_1505;
{ /* R5rs/syntax.scm 420 */
 obj_t BgL_fz00_1507;
BgL_fz00_1507 = 
CAR(BgL_l1122z00_1501); 
{ /* R5rs/syntax.scm 420 */
 bool_t BgL_test3309z00_5169;
{ /* R5rs/syntax.scm 420 */
 obj_t BgL_tmpz00_5170;
{ /* R5rs/syntax.scm 420 */
 obj_t BgL_pairz00_2611;
if(
PAIRP(BgL_fz00_1507))
{ /* R5rs/syntax.scm 420 */
BgL_pairz00_2611 = BgL_fz00_1507; }  else 
{ 
 obj_t BgL_auxz00_5173;
BgL_auxz00_5173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13996L), BGl_string2956z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_fz00_1507); 
FAILURE(BgL_auxz00_5173,BFALSE,BFALSE);} 
BgL_tmpz00_5170 = 
CAR(BgL_pairz00_2611); } 
BgL_test3309z00_5169 = 
(BgL_tmpz00_5170==BGl_keyword2952z00zz__r5_macro_4_3_syntaxz00); } 
if(BgL_test3309z00_5169)
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_ez00_1510;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_hook1120z00_1512;
BgL_hook1120z00_1512 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_g1121z00_1513;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_pairz00_2612;
if(
PAIRP(BgL_fz00_1507))
{ /* R5rs/syntax.scm 421 */
BgL_pairz00_2612 = BgL_fz00_1507; }  else 
{ 
 obj_t BgL_auxz00_5182;
BgL_auxz00_5182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14061L), BGl_string2956z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_fz00_1507); 
FAILURE(BgL_auxz00_5182,BFALSE,BFALSE);} 
BgL_g1121z00_1513 = 
CDR(BgL_pairz00_2612); } 
{ 
 obj_t BgL_l1117z00_1515; obj_t BgL_h1118z00_1516;
BgL_l1117z00_1515 = BgL_g1121z00_1513; 
BgL_h1118z00_1516 = BgL_hook1120z00_1512; 
BgL_zc3z04anonymousza31492ze3z87_1517:
if(
NULLP(BgL_l1117z00_1515))
{ /* R5rs/syntax.scm 421 */
BgL_ez00_1510 = 
CDR(BgL_hook1120z00_1512); }  else 
{ /* R5rs/syntax.scm 421 */
 bool_t BgL_test3313z00_5190;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_tmpz00_5191;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_auxz00_5192;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_pairz00_2614;
if(
PAIRP(BgL_l1117z00_1515))
{ /* R5rs/syntax.scm 421 */
BgL_pairz00_2614 = BgL_l1117z00_1515; }  else 
{ 
 obj_t BgL_auxz00_5195;
BgL_auxz00_5195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14044L), BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_l1117z00_1515); 
FAILURE(BgL_auxz00_5195,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_aux2416z00_3329;
BgL_aux2416z00_3329 = 
CAR(BgL_pairz00_2614); 
{ /* R5rs/syntax.scm 421 */
 bool_t BgL_test3315z00_5200;
if(
PAIRP(BgL_aux2416z00_3329))
{ /* R5rs/syntax.scm 421 */
BgL_test3315z00_5200 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 421 */
BgL_test3315z00_5200 = 
NULLP(BgL_aux2416z00_3329)
; } 
if(BgL_test3315z00_5200)
{ /* R5rs/syntax.scm 421 */
BgL_auxz00_5192 = BgL_aux2416z00_3329
; }  else 
{ 
 obj_t BgL_auxz00_5204;
BgL_auxz00_5204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14044L), BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_aux2416z00_3329); 
FAILURE(BgL_auxz00_5204,BFALSE,BFALSE);} } } } 
BgL_tmpz00_5191 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_vz00_1458, BgL_auxz00_5192); } 
BgL_test3313z00_5190 = 
CBOOL(BgL_tmpz00_5191); } 
if(BgL_test3313z00_5190)
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_nh1119z00_1521;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_arg1497z00_1523;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_pairz00_2615;
if(
PAIRP(BgL_l1117z00_1515))
{ /* R5rs/syntax.scm 421 */
BgL_pairz00_2615 = BgL_l1117z00_1515; }  else 
{ 
 obj_t BgL_auxz00_5212;
BgL_auxz00_5212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14056L), BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_l1117z00_1515); 
FAILURE(BgL_auxz00_5212,BFALSE,BFALSE);} 
BgL_arg1497z00_1523 = 
CAR(BgL_pairz00_2615); } 
BgL_nh1119z00_1521 = 
MAKE_YOUNG_PAIR(BgL_arg1497z00_1523, BNIL); } 
SET_CDR(BgL_h1118z00_1516, BgL_nh1119z00_1521); 
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_arg1495z00_1522;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_pairz00_2617;
if(
PAIRP(BgL_l1117z00_1515))
{ /* R5rs/syntax.scm 421 */
BgL_pairz00_2617 = BgL_l1117z00_1515; }  else 
{ 
 obj_t BgL_auxz00_5221;
BgL_auxz00_5221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14056L), BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_l1117z00_1515); 
FAILURE(BgL_auxz00_5221,BFALSE,BFALSE);} 
BgL_arg1495z00_1522 = 
CDR(BgL_pairz00_2617); } 
{ 
 obj_t BgL_h1118z00_5227; obj_t BgL_l1117z00_5226;
BgL_l1117z00_5226 = BgL_arg1495z00_1522; 
BgL_h1118z00_5227 = BgL_nh1119z00_1521; 
BgL_h1118z00_1516 = BgL_h1118z00_5227; 
BgL_l1117z00_1515 = BgL_l1117z00_5226; 
goto BgL_zc3z04anonymousza31492ze3z87_1517;} } }  else 
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_arg1498z00_1524;
{ /* R5rs/syntax.scm 421 */
 obj_t BgL_pairz00_2618;
if(
PAIRP(BgL_l1117z00_1515))
{ /* R5rs/syntax.scm 421 */
BgL_pairz00_2618 = BgL_l1117z00_1515; }  else 
{ 
 obj_t BgL_auxz00_5230;
BgL_auxz00_5230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14056L), BGl_string2957z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_l1117z00_1515); 
FAILURE(BgL_auxz00_5230,BFALSE,BFALSE);} 
BgL_arg1498z00_1524 = 
CDR(BgL_pairz00_2618); } 
{ 
 obj_t BgL_l1117z00_5235;
BgL_l1117z00_5235 = BgL_arg1498z00_1524; 
BgL_l1117z00_1515 = BgL_l1117z00_5235; 
goto BgL_zc3z04anonymousza31492ze3z87_1517;} } } } } } 
if(
PAIRP(BgL_ez00_1510))
{ /* R5rs/syntax.scm 422 */
BgL__ortest_1124z00_1505 = BgL_ez00_1510; }  else 
{ /* R5rs/syntax.scm 422 */
BgL__ortest_1124z00_1505 = BFALSE; } }  else 
{ /* R5rs/syntax.scm 420 */
BgL__ortest_1124z00_1505 = BFALSE; } } } 
if(
CBOOL(BgL__ortest_1124z00_1505))
{ /* R5rs/syntax.scm 419 */
BgL_fz00_1459 = BgL__ortest_1124z00_1505; }  else 
{ 
 obj_t BgL_l1122z00_5240;
BgL_l1122z00_5240 = 
CDR(BgL_l1122z00_1501); 
BgL_l1122z00_1501 = BgL_l1122z00_5240; 
goto BgL_zc3z04anonymousza31485ze3z87_1502;} }  else 
{ /* R5rs/syntax.scm 419 */
BgL_fz00_1459 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2958z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1122z00_1501, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(13954L)); } } } 
if(
CBOOL(BgL_fz00_1459))
{ /* R5rs/syntax.scm 425 */
 obj_t BgL_g1045z00_1460;
{ /* R5rs/syntax.scm 425 */
 obj_t BgL_pairz00_2620;
if(
PAIRP(BgL_varsz00_1454))
{ /* R5rs/syntax.scm 425 */
BgL_pairz00_2620 = BgL_varsz00_1454; }  else 
{ 
 obj_t BgL_auxz00_5248;
BgL_auxz00_5248 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14150L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_varsz00_1454); 
FAILURE(BgL_auxz00_5248,BFALSE,BFALSE);} 
BgL_g1045z00_1460 = 
CDR(BgL_pairz00_2620); } 
{ 
 obj_t BgL_ovarsz00_1463; obj_t BgL_nvarsz00_1464;
BgL_ovarsz00_1463 = BgL_g1045z00_1460; 
BgL_nvarsz00_1464 = BNIL; 
BgL_zc3z04anonymousza31460ze3z87_1465:
if(
NULLP(BgL_ovarsz00_1463))
{ /* R5rs/syntax.scm 428 */
if(
NULLP(BgL_resz00_1455))
{ 
 obj_t BgL_resz00_5258; obj_t BgL_varsz00_5257;
BgL_varsz00_5257 = BgL_nvarsz00_1464; 
BgL_resz00_5258 = BgL_fz00_1459; 
BgL_resz00_1455 = BgL_resz00_5258; 
BgL_varsz00_1454 = BgL_varsz00_5257; 
goto BgL_zc3z04anonymousza31458ze3z87_1456;}  else 
{ /* R5rs/syntax.scm 431 */
 obj_t BgL_arg1464z00_1468;
{ /* R5rs/syntax.scm 431 */
 obj_t BgL_list1465z00_1469;
{ /* R5rs/syntax.scm 431 */
 obj_t BgL_arg1466z00_1470;
BgL_arg1466z00_1470 = 
MAKE_YOUNG_PAIR(BgL_resz00_1455, BNIL); 
BgL_list1465z00_1469 = 
MAKE_YOUNG_PAIR(BgL_fz00_1459, BgL_arg1466z00_1470); } 
BgL_arg1464z00_1468 = 
BGl_mapz00zz__r4_control_features_6_9z00(BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_list1465z00_1469); } 
{ 
 obj_t BgL_resz00_5263; obj_t BgL_varsz00_5262;
BgL_varsz00_5262 = BgL_nvarsz00_1464; 
BgL_resz00_5263 = BgL_arg1464z00_1468; 
BgL_resz00_1455 = BgL_resz00_5263; 
BgL_varsz00_1454 = BgL_varsz00_5262; 
goto BgL_zc3z04anonymousza31458ze3z87_1456;} } }  else 
{ /* R5rs/syntax.scm 432 */
 bool_t BgL_test3326z00_5264;
{ 
 obj_t BgL_l1125z00_1488;
{ /* R5rs/syntax.scm 432 */
 obj_t BgL_tmpz00_5265;
BgL_l1125z00_1488 = BgL_fz00_1459; 
BgL_zc3z04anonymousza31480ze3z87_1489:
if(
NULLP(BgL_l1125z00_1488))
{ /* R5rs/syntax.scm 432 */
BgL_tmpz00_5265 = BFALSE
; }  else 
{ /* R5rs/syntax.scm 432 */
if(
PAIRP(BgL_l1125z00_1488))
{ /* R5rs/syntax.scm 432 */
 bool_t BgL__ortest_1127z00_1492;
{ /* R5rs/syntax.scm 432 */
 obj_t BgL_tmpz00_5270;
{ /* R5rs/syntax.scm 432 */
 obj_t BgL_auxz00_5279; obj_t BgL_auxz00_5271;
{ /* R5rs/syntax.scm 432 */
 obj_t BgL_aux2428z00_3341;
BgL_aux2428z00_3341 = 
CAR(BgL_l1125z00_1488); 
{ /* R5rs/syntax.scm 432 */
 bool_t BgL_test3330z00_5281;
if(
PAIRP(BgL_aux2428z00_3341))
{ /* R5rs/syntax.scm 432 */
BgL_test3330z00_5281 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 432 */
BgL_test3330z00_5281 = 
NULLP(BgL_aux2428z00_3341)
; } 
if(BgL_test3330z00_5281)
{ /* R5rs/syntax.scm 432 */
BgL_auxz00_5279 = BgL_aux2428z00_3341
; }  else 
{ 
 obj_t BgL_auxz00_5285;
BgL_auxz00_5285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14329L), BGl_string2959z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_aux2428z00_3341); 
FAILURE(BgL_auxz00_5285,BFALSE,BFALSE);} } } 
{ /* R5rs/syntax.scm 432 */
 obj_t BgL_pairz00_2622;
if(
PAIRP(BgL_ovarsz00_1463))
{ /* R5rs/syntax.scm 432 */
BgL_pairz00_2622 = BgL_ovarsz00_1463; }  else 
{ 
 obj_t BgL_auxz00_5274;
BgL_auxz00_5274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14347L), BGl_string2959z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_ovarsz00_1463); 
FAILURE(BgL_auxz00_5274,BFALSE,BFALSE);} 
BgL_auxz00_5271 = 
CAR(BgL_pairz00_2622); } 
BgL_tmpz00_5270 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5271, BgL_auxz00_5279); } 
BgL__ortest_1127z00_1492 = 
PAIRP(BgL_tmpz00_5270); } 
if(BgL__ortest_1127z00_1492)
{ /* R5rs/syntax.scm 432 */
BgL_tmpz00_5265 = 
BBOOL(BgL__ortest_1127z00_1492)
; }  else 
{ 
 obj_t BgL_l1125z00_5293;
BgL_l1125z00_5293 = 
CDR(BgL_l1125z00_1488); 
BgL_l1125z00_1488 = BgL_l1125z00_5293; 
goto BgL_zc3z04anonymousza31480ze3z87_1489;} }  else 
{ /* R5rs/syntax.scm 432 */
BgL_tmpz00_5265 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2958z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1125z00_1488, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14312L))
; } } 
BgL_test3326z00_5264 = 
CBOOL(BgL_tmpz00_5265); } } 
if(BgL_test3326z00_5264)
{ /* R5rs/syntax.scm 433 */
 obj_t BgL_arg1474z00_1483;
{ /* R5rs/syntax.scm 433 */
 obj_t BgL_pairz00_2624;
if(
PAIRP(BgL_ovarsz00_1463))
{ /* R5rs/syntax.scm 433 */
BgL_pairz00_2624 = BgL_ovarsz00_1463; }  else 
{ 
 obj_t BgL_auxz00_5300;
BgL_auxz00_5300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14379L), BGl_string2960z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_ovarsz00_1463); 
FAILURE(BgL_auxz00_5300,BFALSE,BFALSE);} 
BgL_arg1474z00_1483 = 
CDR(BgL_pairz00_2624); } 
{ 
 obj_t BgL_ovarsz00_5305;
BgL_ovarsz00_5305 = BgL_arg1474z00_1483; 
BgL_ovarsz00_1463 = BgL_ovarsz00_5305; 
goto BgL_zc3z04anonymousza31460ze3z87_1465;} }  else 
{ /* R5rs/syntax.scm 435 */
 obj_t BgL_arg1475z00_1484; obj_t BgL_arg1476z00_1485;
{ /* R5rs/syntax.scm 435 */
 obj_t BgL_pairz00_2625;
if(
PAIRP(BgL_ovarsz00_1463))
{ /* R5rs/syntax.scm 435 */
BgL_pairz00_2625 = BgL_ovarsz00_1463; }  else 
{ 
 obj_t BgL_auxz00_5308;
BgL_auxz00_5308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14422L), BGl_string2960z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_ovarsz00_1463); 
FAILURE(BgL_auxz00_5308,BFALSE,BFALSE);} 
BgL_arg1475z00_1484 = 
CDR(BgL_pairz00_2625); } 
{ /* R5rs/syntax.scm 435 */
 obj_t BgL_arg1479z00_1486;
{ /* R5rs/syntax.scm 435 */
 obj_t BgL_pairz00_2626;
if(
PAIRP(BgL_ovarsz00_1463))
{ /* R5rs/syntax.scm 435 */
BgL_pairz00_2626 = BgL_ovarsz00_1463; }  else 
{ 
 obj_t BgL_auxz00_5315;
BgL_auxz00_5315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14440L), BGl_string2960z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_ovarsz00_1463); 
FAILURE(BgL_auxz00_5315,BFALSE,BFALSE);} 
BgL_arg1479z00_1486 = 
CAR(BgL_pairz00_2626); } 
BgL_arg1476z00_1485 = 
MAKE_YOUNG_PAIR(BgL_arg1479z00_1486, BgL_nvarsz00_1464); } 
{ 
 obj_t BgL_nvarsz00_5322; obj_t BgL_ovarsz00_5321;
BgL_ovarsz00_5321 = BgL_arg1475z00_1484; 
BgL_nvarsz00_5322 = BgL_arg1476z00_1485; 
BgL_nvarsz00_1464 = BgL_nvarsz00_5322; 
BgL_ovarsz00_1463 = BgL_ovarsz00_5321; 
goto BgL_zc3z04anonymousza31460ze3z87_1465;} } } } }  else 
{ /* R5rs/syntax.scm 436 */
 obj_t BgL_arg1484z00_1499;
{ /* R5rs/syntax.scm 436 */
 obj_t BgL_pairz00_2627;
if(
PAIRP(BgL_varsz00_1454))
{ /* R5rs/syntax.scm 436 */
BgL_pairz00_2627 = BgL_varsz00_1454; }  else 
{ 
 obj_t BgL_auxz00_5325;
BgL_auxz00_5325 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14475L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_varsz00_1454); 
FAILURE(BgL_auxz00_5325,BFALSE,BFALSE);} 
BgL_arg1484z00_1499 = 
CDR(BgL_pairz00_2627); } 
{ 
 obj_t BgL_varsz00_5330;
BgL_varsz00_5330 = BgL_arg1484z00_1499; 
BgL_varsz00_1454 = BgL_varsz00_5330; 
goto BgL_zc3z04anonymousza31458ze3z87_1456;} } } } } } 

}



/* sub~0 */
obj_t BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(obj_t BgL_kz00_3181, obj_t BgL_pz00_1531)
{
{ /* R5rs/syntax.scm 442 */
if(
BGl_ellipsiszf3zf3zz__r5_macro_4_3_syntaxz00(BgL_pz00_1531))
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_arg1502z00_1534; obj_t BgL_arg1505z00_1535;
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_arg1506z00_1536;
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_pairz00_2628;
if(
PAIRP(BgL_pz00_1531))
{ /* R5rs/syntax.scm 445 */
BgL_pairz00_2628 = BgL_pz00_1531; }  else 
{ 
 obj_t BgL_auxz00_5335;
BgL_auxz00_5335 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14823L), BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_1531); 
FAILURE(BgL_auxz00_5335,BFALSE,BFALSE);} 
BgL_arg1506z00_1536 = 
CAR(BgL_pairz00_2628); } 
BgL_arg1502z00_1534 = 
BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(BgL_kz00_3181, BgL_arg1506z00_1536); } 
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_arg1507z00_1537;
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_pairz00_2629;
if(
PAIRP(BgL_pz00_1531))
{ /* R5rs/syntax.scm 445 */
BgL_pairz00_2629 = BgL_pz00_1531; }  else 
{ 
 obj_t BgL_auxz00_5343;
BgL_auxz00_5343 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14838L), BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_pz00_1531); 
FAILURE(BgL_auxz00_5343,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_pairz00_2632;
{ /* R5rs/syntax.scm 445 */
 obj_t BgL_aux2442z00_3355;
BgL_aux2442z00_3355 = 
CDR(BgL_pairz00_2629); 
if(
PAIRP(BgL_aux2442z00_3355))
{ /* R5rs/syntax.scm 445 */
BgL_pairz00_2632 = BgL_aux2442z00_3355; }  else 
{ 
 obj_t BgL_auxz00_5350;
BgL_auxz00_5350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14832L), BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2442z00_3355); 
FAILURE(BgL_auxz00_5350,BFALSE,BFALSE);} } 
BgL_arg1507z00_1537 = 
CDR(BgL_pairz00_2632); } } 
BgL_arg1505z00_1535 = 
BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(BgL_kz00_3181, BgL_arg1507z00_1537); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1502z00_1534, BgL_arg1505z00_1535);}  else 
{ /* R5rs/syntax.scm 444 */
if(
PAIRP(BgL_pz00_1531))
{ /* R5rs/syntax.scm 447 */
 obj_t BgL_arg1509z00_1539; obj_t BgL_arg1510z00_1540;
BgL_arg1509z00_1539 = 
BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(BgL_kz00_3181, 
CAR(BgL_pz00_1531)); 
BgL_arg1510z00_1540 = 
BGl_subze70ze7zz__r5_macro_4_3_syntaxz00(BgL_kz00_3181, 
CDR(BgL_pz00_1531)); 
{ /* R5rs/syntax.scm 447 */
 obj_t BgL_auxz00_5363;
{ /* R5rs/syntax.scm 447 */
 bool_t BgL_test3342z00_5364;
if(
PAIRP(BgL_arg1509z00_1539))
{ /* R5rs/syntax.scm 447 */
BgL_test3342z00_5364 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 447 */
BgL_test3342z00_5364 = 
NULLP(BgL_arg1509z00_1539)
; } 
if(BgL_test3342z00_5364)
{ /* R5rs/syntax.scm 447 */
BgL_auxz00_5363 = BgL_arg1509z00_1539
; }  else 
{ 
 obj_t BgL_auxz00_5368;
BgL_auxz00_5368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14860L), BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_arg1509z00_1539); 
FAILURE(BgL_auxz00_5368,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_auxz00_5363, BgL_arg1510z00_1540);} }  else 
{ /* R5rs/syntax.scm 446 */
if(
SYMBOLP(BgL_pz00_1531))
{ /* R5rs/syntax.scm 449 */
 bool_t BgL_test3345z00_5375;
{ /* R5rs/syntax.scm 449 */
 obj_t BgL_tmpz00_5376;
{ /* R5rs/syntax.scm 449 */
 obj_t BgL_auxz00_5377;
{ /* R5rs/syntax.scm 449 */
 bool_t BgL_test3346z00_5378;
if(
PAIRP(BgL_kz00_3181))
{ /* R5rs/syntax.scm 449 */
BgL_test3346z00_5378 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 449 */
BgL_test3346z00_5378 = 
NULLP(BgL_kz00_3181)
; } 
if(BgL_test3346z00_5378)
{ /* R5rs/syntax.scm 449 */
BgL_auxz00_5377 = BgL_kz00_3181
; }  else 
{ 
 obj_t BgL_auxz00_5382;
BgL_auxz00_5382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(14928L), BGl_string2961z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_kz00_3181); 
FAILURE(BgL_auxz00_5382,BFALSE,BFALSE);} } 
BgL_tmpz00_5376 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_pz00_1531, BgL_auxz00_5377); } 
BgL_test3345z00_5375 = 
CBOOL(BgL_tmpz00_5376); } 
if(BgL_test3345z00_5375)
{ /* R5rs/syntax.scm 449 */
return BNIL;}  else 
{ /* R5rs/syntax.scm 449 */
 obj_t BgL_list1515z00_1545;
BgL_list1515z00_1545 = 
MAKE_YOUNG_PAIR(BgL_pz00_1531, BNIL); 
return BgL_list1515z00_1545;} }  else 
{ /* R5rs/syntax.scm 448 */
return BNIL;} } } } 

}



/* ellipsis? */
bool_t BGl_ellipsiszf3zf3zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_35)
{
{ /* R5rs/syntax.scm 456 */
if(
PAIRP(BgL_xz00_35))
{ /* R5rs/syntax.scm 458 */
 bool_t BgL_test3349z00_5391;
{ /* R5rs/syntax.scm 458 */
 obj_t BgL_tmpz00_5392;
BgL_tmpz00_5392 = 
CDR(BgL_xz00_35); 
BgL_test3349z00_5391 = 
PAIRP(BgL_tmpz00_5392); } 
if(BgL_test3349z00_5391)
{ /* R5rs/syntax.scm 459 */
 obj_t BgL_tmpz00_5395;
{ /* R5rs/syntax.scm 459 */
 obj_t BgL_pairz00_2640;
{ /* R5rs/syntax.scm 459 */
 obj_t BgL_aux2448z00_3361;
BgL_aux2448z00_3361 = 
CDR(BgL_xz00_35); 
if(
PAIRP(BgL_aux2448z00_3361))
{ /* R5rs/syntax.scm 459 */
BgL_pairz00_2640 = BgL_aux2448z00_3361; }  else 
{ 
 obj_t BgL_auxz00_5399;
BgL_auxz00_5399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(15251L), BGl_string2962z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2448z00_3361); 
FAILURE(BgL_auxz00_5399,BFALSE,BFALSE);} } 
BgL_tmpz00_5395 = 
CAR(BgL_pairz00_2640); } 
return 
(BgL_tmpz00_5395==BGl_symbol2668z00zz__r5_macro_4_3_syntaxz00);}  else 
{ /* R5rs/syntax.scm 458 */
return ((bool_t)0);} }  else 
{ /* R5rs/syntax.scm 457 */
return ((bool_t)0);} } 

}



/* hygiene-value* */
obj_t BGl_hygienezd2valueza2z70zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_38)
{
{ /* R5rs/syntax.scm 477 */
if(
SYMBOLP(BgL_xz00_38))
{ /* R5rs/syntax.scm 482 */
 obj_t BgL_sz00_1556;
{ /* R5rs/syntax.scm 482 */
 obj_t BgL_arg2083z00_2653;
BgL_arg2083z00_2653 = 
SYMBOL_TO_STRING(BgL_xz00_38); 
BgL_sz00_1556 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2653); } 
{ 
 obj_t BgL_sz00_1558;
BgL_sz00_1558 = BgL_sz00_1556; 
BgL_zc3z04anonymousza31524ze3z87_1559:
if(
bigloo_strcmp_at(BgL_sz00_1558, BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00, 0L))
{ /* R5rs/syntax.scm 485 */
 obj_t BgL_arg1526z00_1561;
{ /* R5rs/syntax.scm 485 */
 long BgL_arg1527z00_1562;
BgL_arg1527z00_1562 = 
STRING_LENGTH(BgL_sz00_1558); 
BgL_arg1526z00_1561 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_sz00_1558, BGl_hygienezd2prefixzd2lenz00zz__r5_macro_4_3_syntaxz00, BgL_arg1527z00_1562); } 
{ 
 obj_t BgL_sz00_5413;
BgL_sz00_5413 = BgL_arg1526z00_1561; 
BgL_sz00_1558 = BgL_sz00_5413; 
goto BgL_zc3z04anonymousza31524ze3z87_1559;} }  else 
{ /* R5rs/syntax.scm 484 */
return 
bstring_to_symbol(BgL_sz00_1558);} } }  else 
{ /* R5rs/syntax.scm 480 */
return BgL_xz00_38;} } 

}



/* hygiene-value */
obj_t BGl_hygienezd2valuezd2zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_39)
{
{ /* R5rs/syntax.scm 491 */
if(
SYMBOLP(BgL_xz00_39))
{ /* R5rs/syntax.scm 494 */
 obj_t BgL_sz00_1565;
{ /* R5rs/syntax.scm 494 */
 obj_t BgL_arg2083z00_2657;
BgL_arg2083z00_2657 = 
SYMBOL_TO_STRING(BgL_xz00_39); 
BgL_sz00_1565 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2657); } 
if(
bigloo_strcmp_at(BgL_sz00_1565, BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00, 0L))
{ /* R5rs/syntax.scm 497 */
 obj_t BgL_arg1532z00_1567;
{ /* R5rs/syntax.scm 497 */
 long BgL_arg1533z00_1568;
BgL_arg1533z00_1568 = 
STRING_LENGTH(BgL_sz00_1565); 
BgL_arg1532z00_1567 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_sz00_1565, BGl_hygienezd2prefixzd2lenz00zz__r5_macro_4_3_syntaxz00, BgL_arg1533z00_1568); } 
return 
bstring_to_symbol(BgL_arg1532z00_1567);}  else 
{ /* R5rs/syntax.scm 495 */
return BgL_xz00_39;} }  else 
{ /* R5rs/syntax.scm 492 */
return BgL_xz00_39;} } 

}



/* hygiene-eq? */
bool_t BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_40, obj_t BgL_idz00_41)
{
{ /* R5rs/syntax.scm 503 */
BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00:
{ /* R5rs/syntax.scm 504 */
 bool_t BgL_test3355z00_5424;
if(
SYMBOLP(BgL_idz00_41))
{ /* R5rs/syntax.scm 504 */
BgL_test3355z00_5424 = 
SYMBOLP(BgL_xz00_40)
; }  else 
{ /* R5rs/syntax.scm 504 */
BgL_test3355z00_5424 = ((bool_t)0)
; } 
if(BgL_test3355z00_5424)
{ /* R5rs/syntax.scm 505 */
 bool_t BgL__ortest_1049z00_1571;
BgL__ortest_1049z00_1571 = 
(BgL_xz00_40==BgL_idz00_41); 
if(BgL__ortest_1049z00_1571)
{ /* R5rs/syntax.scm 505 */
return BgL__ortest_1049z00_1571;}  else 
{ /* R5rs/syntax.scm 506 */
 bool_t BgL_test3358z00_5430;
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_sz00_2660;
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_arg2083z00_2662;
BgL_arg2083z00_2662 = 
SYMBOL_TO_STRING(BgL_xz00_40); 
BgL_sz00_2660 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2662); } 
BgL_test3358z00_5430 = 
bigloo_strcmp_at(BgL_sz00_2660, BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00, 0L); } 
if(BgL_test3358z00_5430)
{ 
 obj_t BgL_xz00_5434;
BgL_xz00_5434 = 
BGl_hygienezd2valuezd2zz__r5_macro_4_3_syntaxz00(BgL_xz00_40); 
BgL_xz00_40 = BgL_xz00_5434; 
goto BGl_hygienezd2eqzf3z21zz__r5_macro_4_3_syntaxz00;}  else 
{ /* R5rs/syntax.scm 506 */
return ((bool_t)0);} } }  else 
{ /* R5rs/syntax.scm 504 */
return ((bool_t)0);} } } 

}



/* unhygienize */
obj_t BGl_unhygieniza7eza7zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_42)
{
{ /* R5rs/syntax.scm 511 */
if(
SYMBOLP(BgL_xz00_42))
{ /* R5rs/syntax.scm 465 */
 obj_t BgL_arg1520z00_2663;
{ /* R5rs/syntax.scm 465 */
 obj_t BgL_arg1521z00_2664; obj_t BgL_arg1522z00_2665;
{ /* R5rs/syntax.scm 465 */
 obj_t BgL_symbolz00_2666;
BgL_symbolz00_2666 = BGl_hygienezd2markzd2zz__r5_macro_4_3_syntaxz00; 
{ /* R5rs/syntax.scm 465 */
 obj_t BgL_arg2083z00_2667;
BgL_arg2083z00_2667 = 
SYMBOL_TO_STRING(BgL_symbolz00_2666); 
BgL_arg1521z00_2664 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2667); } } 
{ /* R5rs/syntax.scm 465 */
 obj_t BgL_arg2083z00_2669;
BgL_arg2083z00_2669 = 
SYMBOL_TO_STRING(BgL_xz00_42); 
BgL_arg1522z00_2665 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2669); } 
BgL_arg1520z00_2663 = 
string_append(BgL_arg1521z00_2664, BgL_arg1522z00_2665); } 
return 
bstring_to_symbol(BgL_arg1520z00_2663);}  else 
{ /* R5rs/syntax.scm 513 */
if(
PAIRP(BgL_xz00_42))
{ /* R5rs/syntax.scm 515 */
return 
MAKE_YOUNG_PAIR(
BGl_unhygieniza7eza7zz__r5_macro_4_3_syntaxz00(
CAR(BgL_xz00_42)), 
BGl_unhygieniza7eza7zz__r5_macro_4_3_syntaxz00(
CDR(BgL_xz00_42)));}  else 
{ /* R5rs/syntax.scm 515 */
return BgL_xz00_42;} } } 

}



/* hygienize */
obj_t BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(obj_t BgL_xz00_43, obj_t BgL_envz00_44)
{
{ /* R5rs/syntax.scm 523 */
{ 
 obj_t BgL_varz00_1601; obj_t BgL_bodyz00_1602; obj_t BgL_bindingsz00_1598; obj_t BgL_bodyz00_1599; obj_t BgL_bindingsz00_1595; obj_t BgL_bodyz00_1596; obj_t BgL_bindingsz00_1592; obj_t BgL_bodyz00_1593; obj_t BgL_loopz00_1588; obj_t BgL_bindingsz00_1589; obj_t BgL_bodyz00_1590; obj_t BgL_varsz00_1585; obj_t BgL_bodyz00_1586; obj_t BgL_varz00_1581;
if(
SYMBOLP(BgL_xz00_43))
{ /* R5rs/syntax.scm 524 */
BgL_varz00_1581 = BgL_xz00_43; 
{ /* R5rs/syntax.scm 526 */
 bool_t BgL_test3362z00_5453;
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_sz00_2673;
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_symbolz00_2674;
if(
SYMBOLP(BgL_xz00_43))
{ /* R5rs/syntax.scm 471 */
BgL_symbolz00_2674 = BgL_xz00_43; }  else 
{ 
 obj_t BgL_auxz00_5456;
BgL_auxz00_5456 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(15832L), BGl_string2963z00zz__r5_macro_4_3_syntaxz00, BGl_string2648z00zz__r5_macro_4_3_syntaxz00, BgL_xz00_43); 
FAILURE(BgL_auxz00_5456,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_arg2083z00_2675;
BgL_arg2083z00_2675 = 
SYMBOL_TO_STRING(BgL_symbolz00_2674); 
BgL_sz00_2673 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2675); } } 
BgL_test3362z00_5453 = 
bigloo_strcmp_at(BgL_sz00_2673, BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00, 0L); } 
if(BgL_test3362z00_5453)
{ /* R5rs/syntax.scm 526 */
return 
BGl_hygienezd2valuezd2zz__r5_macro_4_3_syntaxz00(BgL_xz00_43);}  else 
{ /* R5rs/syntax.scm 528 */
 obj_t BgL_oz00_1854;
{ /* R5rs/syntax.scm 528 */
 obj_t BgL_auxz00_5464;
{ /* R5rs/syntax.scm 528 */
 bool_t BgL_test3364z00_5465;
if(
PAIRP(BgL_envz00_44))
{ /* R5rs/syntax.scm 528 */
BgL_test3364z00_5465 = ((bool_t)1)
; }  else 
{ /* R5rs/syntax.scm 528 */
BgL_test3364z00_5465 = 
NULLP(BgL_envz00_44)
; } 
if(BgL_test3364z00_5465)
{ /* R5rs/syntax.scm 528 */
BgL_auxz00_5464 = BgL_envz00_44
; }  else 
{ 
 obj_t BgL_auxz00_5469;
BgL_auxz00_5469 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18135L), BGl_string2963z00zz__r5_macro_4_3_syntaxz00, BGl_string2646z00zz__r5_macro_4_3_syntaxz00, BgL_envz00_44); 
FAILURE(BgL_auxz00_5469,BFALSE,BFALSE);} } 
BgL_oz00_1854 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_1581, BgL_auxz00_5464); } 
if(
PAIRP(BgL_oz00_1854))
{ /* R5rs/syntax.scm 529 */
return 
CDR(BgL_oz00_1854);}  else 
{ /* R5rs/syntax.scm 529 */
return BgL_varz00_1581;} } } }  else 
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_xz00_43))
{ /* R5rs/syntax.scm 524 */
if(
(
CAR(
((obj_t)BgL_xz00_43))==BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_arg1549z00_1611;
BgL_arg1549z00_1611 = 
CDR(
((obj_t)BgL_xz00_43)); 
{ /* R5rs/syntax.scm 533 */
 obj_t BgL_arg1800z00_2746;
BgL_arg1800z00_2746 = 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_arg1549z00_1611); 
return 
MAKE_YOUNG_PAIR(BGl_symbol2651z00zz__r5_macro_4_3_syntaxz00, BgL_arg1800z00_2746);} }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2271zd2_1612;
BgL_cdrzd2271zd2_1612 = 
CDR(
((obj_t)BgL_xz00_43)); 
if(
(
CAR(
((obj_t)BgL_xz00_43))==BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_cdrzd2271zd2_1612))
{ /* R5rs/syntax.scm 524 */
BgL_varsz00_1585 = 
CAR(BgL_cdrzd2271zd2_1612); 
BgL_bodyz00_1586 = 
CDR(BgL_cdrzd2271zd2_1612); 
{ /* R5rs/syntax.scm 535 */
 obj_t BgL_nvarsz00_1857;
BgL_nvarsz00_1857 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_varsz00_1585); 
{ /* R5rs/syntax.scm 535 */
 obj_t BgL_nenvz00_1858;
{ /* R5rs/syntax.scm 536 */
 obj_t BgL_arg1804z00_1861;
{ /* R5rs/syntax.scm 536 */
 obj_t BgL_arg1805z00_1862; obj_t BgL_arg1807z00_1863;
BgL_arg1805z00_1862 = 
BGl_flattenz00zz__r5_macro_4_3_syntaxz00(BgL_varsz00_1585); 
BgL_arg1807z00_1863 = 
BGl_flattenz00zz__r5_macro_4_3_syntaxz00(BgL_nvarsz00_1857); 
{ /* R5rs/syntax.scm 536 */
 obj_t BgL_list1808z00_1864;
{ /* R5rs/syntax.scm 536 */
 obj_t BgL_arg1809z00_1865;
BgL_arg1809z00_1865 = 
MAKE_YOUNG_PAIR(BgL_arg1807z00_1863, BNIL); 
BgL_list1808z00_1864 = 
MAKE_YOUNG_PAIR(BgL_arg1805z00_1862, BgL_arg1809z00_1865); } 
BgL_arg1804z00_1861 = 
BGl_mapz00zz__r4_control_features_6_9z00(BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_list1808z00_1864); } } 
BgL_nenvz00_1858 = 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_arg1804z00_1861, BgL_envz00_44); } 
{ /* R5rs/syntax.scm 536 */

{ /* R5rs/syntax.scm 538 */
 obj_t BgL_arg1801z00_1859;
BgL_arg1801z00_1859 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1857, 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_nenvz00_1858, BgL_bodyz00_1586)); 
return 
MAKE_YOUNG_PAIR(BGl_symbol2766z00zz__r5_macro_4_3_syntaxz00, BgL_arg1801z00_1859);} } } } }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2312zd2_1618;
BgL_cdrzd2312zd2_1618 = 
CDR(
((obj_t)BgL_xz00_43)); 
if(
(
CAR(
((obj_t)BgL_xz00_43))==BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_cdrzd2312zd2_1618))
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_carzd2316zd2_1622; obj_t BgL_cdrzd2317zd2_1623;
BgL_carzd2316zd2_1622 = 
CAR(BgL_cdrzd2312zd2_1618); 
BgL_cdrzd2317zd2_1623 = 
CDR(BgL_cdrzd2312zd2_1618); 
if(
SYMBOLP(BgL_carzd2316zd2_1622))
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_cdrzd2317zd2_1623))
{ /* R5rs/syntax.scm 524 */
BgL_loopz00_1588 = BgL_carzd2316zd2_1622; 
BgL_bindingsz00_1589 = 
CAR(BgL_cdrzd2317zd2_1623); 
BgL_bodyz00_1590 = 
CDR(BgL_cdrzd2317zd2_1623); 
{ /* R5rs/syntax.scm 540 */
 obj_t BgL_nloopz00_1866;
BgL_nloopz00_1866 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_loopz00_1588); 
{ /* R5rs/syntax.scm 540 */
 obj_t BgL_nvarsz00_1867;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_arg1833z00_1895;
if(
NULLP(BgL_bindingsz00_1589))
{ /* R5rs/syntax.scm 541 */
BgL_arg1833z00_1895 = BNIL; }  else 
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_head1130z00_1898;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_arg1842z00_1911;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_pairz00_2679;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_pairz00_2678;
if(
PAIRP(BgL_bindingsz00_1589))
{ /* R5rs/syntax.scm 541 */
BgL_pairz00_2678 = BgL_bindingsz00_1589; }  else 
{ 
 obj_t BgL_auxz00_5527;
BgL_auxz00_5527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18568L), BGl_string2964z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1589); 
FAILURE(BgL_auxz00_5527,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_aux2456z00_3369;
BgL_aux2456z00_3369 = 
CAR(BgL_pairz00_2678); 
if(
PAIRP(BgL_aux2456z00_3369))
{ /* R5rs/syntax.scm 541 */
BgL_pairz00_2679 = BgL_aux2456z00_3369; }  else 
{ 
 obj_t BgL_auxz00_5534;
BgL_auxz00_5534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18568L), BGl_string2964z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2456z00_3369); 
FAILURE(BgL_auxz00_5534,BFALSE,BFALSE);} } } 
BgL_arg1842z00_1911 = 
CAR(BgL_pairz00_2679); } 
BgL_head1130z00_1898 = 
MAKE_YOUNG_PAIR(BgL_arg1842z00_1911, BNIL); } 
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_g1133z00_1899;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_pairz00_2680;
if(
PAIRP(BgL_bindingsz00_1589))
{ /* R5rs/syntax.scm 541 */
BgL_pairz00_2680 = BgL_bindingsz00_1589; }  else 
{ 
 obj_t BgL_auxz00_5542;
BgL_auxz00_5542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18568L), BGl_string2964z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1589); 
FAILURE(BgL_auxz00_5542,BFALSE,BFALSE);} 
BgL_g1133z00_1899 = 
CDR(BgL_pairz00_2680); } 
{ 
 obj_t BgL_l1128z00_1901; obj_t BgL_tail1131z00_1902;
BgL_l1128z00_1901 = BgL_g1133z00_1899; 
BgL_tail1131z00_1902 = BgL_head1130z00_1898; 
BgL_zc3z04anonymousza31835ze3z87_1903:
if(
PAIRP(BgL_l1128z00_1901))
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_newtail1132z00_1905;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_arg1839z00_1907;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_pairz00_2682;
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_aux2460z00_3373;
BgL_aux2460z00_3373 = 
CAR(BgL_l1128z00_1901); 
if(
PAIRP(BgL_aux2460z00_3373))
{ /* R5rs/syntax.scm 541 */
BgL_pairz00_2682 = BgL_aux2460z00_3373; }  else 
{ 
 obj_t BgL_auxz00_5552;
BgL_auxz00_5552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18568L), BGl_string2965z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2460z00_3373); 
FAILURE(BgL_auxz00_5552,BFALSE,BFALSE);} } 
BgL_arg1839z00_1907 = 
CAR(BgL_pairz00_2682); } 
BgL_newtail1132z00_1905 = 
MAKE_YOUNG_PAIR(BgL_arg1839z00_1907, BNIL); } 
SET_CDR(BgL_tail1131z00_1902, BgL_newtail1132z00_1905); 
{ 
 obj_t BgL_tail1131z00_5561; obj_t BgL_l1128z00_5559;
BgL_l1128z00_5559 = 
CDR(BgL_l1128z00_1901); 
BgL_tail1131z00_5561 = BgL_newtail1132z00_1905; 
BgL_tail1131z00_1902 = BgL_tail1131z00_5561; 
BgL_l1128z00_1901 = BgL_l1128z00_5559; 
goto BgL_zc3z04anonymousza31835ze3z87_1903;} }  else 
{ /* R5rs/syntax.scm 541 */
if(
NULLP(BgL_l1128z00_1901))
{ /* R5rs/syntax.scm 541 */
BgL_arg1833z00_1895 = BgL_head1130z00_1898; }  else 
{ /* R5rs/syntax.scm 541 */
BgL_arg1833z00_1895 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1128z00_1901, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18568L)); } } } } } 
BgL_nvarsz00_1867 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_arg1833z00_1895); } 
{ /* R5rs/syntax.scm 541 */
 obj_t BgL_nenvz00_1868;
{ /* R5rs/syntax.scm 542 */
 obj_t BgL_arg1824z00_1884; obj_t BgL_arg1825z00_1885;
BgL_arg1824z00_1884 = 
MAKE_YOUNG_PAIR(BgL_loopz00_1588, BgL_nloopz00_1866); 
{ /* R5rs/syntax.scm 544 */
 obj_t BgL_arg1827z00_1886;
{ /* R5rs/syntax.scm 543 */
 obj_t BgL_list1829z00_1888;
{ /* R5rs/syntax.scm 543 */
 obj_t BgL_arg1830z00_1889;
BgL_arg1830z00_1889 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1867, BNIL); 
BgL_list1829z00_1888 = 
MAKE_YOUNG_PAIR(BgL_bindingsz00_1589, BgL_arg1830z00_1889); } 
BgL_arg1827z00_1886 = 
BGl_mapz00zz__r4_control_features_6_9z00(BGl_proc2966z00zz__r5_macro_4_3_syntaxz00, BgL_list1829z00_1888); } 
BgL_arg1825z00_1885 = 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_arg1827z00_1886, BgL_envz00_44); } 
BgL_nenvz00_1868 = 
MAKE_YOUNG_PAIR(BgL_arg1824z00_1884, BgL_arg1825z00_1885); } 
{ /* R5rs/syntax.scm 542 */

{ /* R5rs/syntax.scm 548 */
 obj_t BgL_arg1811z00_1869;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_arg1812z00_1870;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_arg1813z00_1871; obj_t BgL_arg1814z00_1872;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_zc3z04anonymousza31818ze3z87_3154;
BgL_zc3z04anonymousza31818ze3z87_3154 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31818ze3ze5zz__r5_macro_4_3_syntaxz00, 
(int)(2L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31818ze3z87_3154, 
(int)(0L), BgL_envz00_44); 
{ /* R5rs/syntax.scm 547 */
 obj_t BgL_list1816z00_1874;
{ /* R5rs/syntax.scm 547 */
 obj_t BgL_arg1817z00_1875;
BgL_arg1817z00_1875 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1867, BNIL); 
BgL_list1816z00_1874 = 
MAKE_YOUNG_PAIR(BgL_bindingsz00_1589, BgL_arg1817z00_1875); } 
BgL_arg1813z00_1871 = 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_zc3z04anonymousza31818ze3z87_3154, BgL_list1816z00_1874); } } 
BgL_arg1814z00_1872 = 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_nenvz00_1868, BgL_bodyz00_1590); 
BgL_arg1812z00_1870 = 
MAKE_YOUNG_PAIR(BgL_arg1813z00_1871, BgL_arg1814z00_1872); } 
BgL_arg1811z00_1869 = 
MAKE_YOUNG_PAIR(BgL_nloopz00_1866, BgL_arg1812z00_1870); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, BgL_arg1811z00_1869);} } } } } }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2333zd2_1628;
BgL_cdrzd2333zd2_1628 = 
CDR(
((obj_t)BgL_xz00_43)); 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_arg1568z00_1629; obj_t BgL_arg1569z00_1630;
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_pairz00_2758;
if(
PAIRP(BgL_cdrzd2333zd2_1628))
{ /* R5rs/syntax.scm 524 */
BgL_pairz00_2758 = BgL_cdrzd2333zd2_1628; }  else 
{ 
 obj_t BgL_auxz00_5591;
BgL_auxz00_5591 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18015L), BGl_string2975z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2333zd2_1628); 
FAILURE(BgL_auxz00_5591,BFALSE,BFALSE);} 
BgL_arg1568z00_1629 = 
CAR(BgL_pairz00_2758); } 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_pairz00_2759;
if(
PAIRP(BgL_cdrzd2333zd2_1628))
{ /* R5rs/syntax.scm 524 */
BgL_pairz00_2759 = BgL_cdrzd2333zd2_1628; }  else 
{ 
 obj_t BgL_auxz00_5598;
BgL_auxz00_5598 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18015L), BGl_string2975z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2333zd2_1628); 
FAILURE(BgL_auxz00_5598,BFALSE,BFALSE);} 
BgL_arg1569z00_1630 = 
CDR(BgL_pairz00_2759); } 
BgL_bindingsz00_1592 = BgL_arg1568z00_1629; 
BgL_bodyz00_1593 = BgL_arg1569z00_1630; 
BgL_tagzd2238zd2_1594:
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_nvarsz00_1913;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_arg1864z00_1938;
if(
NULLP(BgL_bindingsz00_1592))
{ /* R5rs/syntax.scm 552 */
BgL_arg1864z00_1938 = BNIL; }  else 
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_head1136z00_1941;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_arg1873z00_1954;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_pairz00_2697;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_pairz00_2696;
if(
PAIRP(BgL_bindingsz00_1592))
{ /* R5rs/syntax.scm 552 */
BgL_pairz00_2696 = BgL_bindingsz00_1592; }  else 
{ 
 obj_t BgL_auxz00_5607;
BgL_auxz00_5607 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18914L), BGl_string2967z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1592); 
FAILURE(BgL_auxz00_5607,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_aux2464z00_3377;
BgL_aux2464z00_3377 = 
CAR(BgL_pairz00_2696); 
if(
PAIRP(BgL_aux2464z00_3377))
{ /* R5rs/syntax.scm 552 */
BgL_pairz00_2697 = BgL_aux2464z00_3377; }  else 
{ 
 obj_t BgL_auxz00_5614;
BgL_auxz00_5614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18914L), BGl_string2967z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2464z00_3377); 
FAILURE(BgL_auxz00_5614,BFALSE,BFALSE);} } } 
BgL_arg1873z00_1954 = 
CAR(BgL_pairz00_2697); } 
BgL_head1136z00_1941 = 
MAKE_YOUNG_PAIR(BgL_arg1873z00_1954, BNIL); } 
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_g1139z00_1942;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_pairz00_2698;
if(
PAIRP(BgL_bindingsz00_1592))
{ /* R5rs/syntax.scm 552 */
BgL_pairz00_2698 = BgL_bindingsz00_1592; }  else 
{ 
 obj_t BgL_auxz00_5622;
BgL_auxz00_5622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18914L), BGl_string2967z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1592); 
FAILURE(BgL_auxz00_5622,BFALSE,BFALSE);} 
BgL_g1139z00_1942 = 
CDR(BgL_pairz00_2698); } 
{ 
 obj_t BgL_l1134z00_1944; obj_t BgL_tail1137z00_1945;
BgL_l1134z00_1944 = BgL_g1139z00_1942; 
BgL_tail1137z00_1945 = BgL_head1136z00_1941; 
BgL_zc3z04anonymousza31866ze3z87_1946:
if(
PAIRP(BgL_l1134z00_1944))
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_newtail1138z00_1948;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_arg1869z00_1950;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_pairz00_2700;
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_aux2468z00_3381;
BgL_aux2468z00_3381 = 
CAR(BgL_l1134z00_1944); 
if(
PAIRP(BgL_aux2468z00_3381))
{ /* R5rs/syntax.scm 552 */
BgL_pairz00_2700 = BgL_aux2468z00_3381; }  else 
{ 
 obj_t BgL_auxz00_5632;
BgL_auxz00_5632 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18914L), BGl_string2968z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2468z00_3381); 
FAILURE(BgL_auxz00_5632,BFALSE,BFALSE);} } 
BgL_arg1869z00_1950 = 
CAR(BgL_pairz00_2700); } 
BgL_newtail1138z00_1948 = 
MAKE_YOUNG_PAIR(BgL_arg1869z00_1950, BNIL); } 
SET_CDR(BgL_tail1137z00_1945, BgL_newtail1138z00_1948); 
{ 
 obj_t BgL_tail1137z00_5641; obj_t BgL_l1134z00_5639;
BgL_l1134z00_5639 = 
CDR(BgL_l1134z00_1944); 
BgL_tail1137z00_5641 = BgL_newtail1138z00_1948; 
BgL_tail1137z00_1945 = BgL_tail1137z00_5641; 
BgL_l1134z00_1944 = BgL_l1134z00_5639; 
goto BgL_zc3z04anonymousza31866ze3z87_1946;} }  else 
{ /* R5rs/syntax.scm 552 */
if(
NULLP(BgL_l1134z00_1944))
{ /* R5rs/syntax.scm 552 */
BgL_arg1864z00_1938 = BgL_head1136z00_1941; }  else 
{ /* R5rs/syntax.scm 552 */
BgL_arg1864z00_1938 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1134z00_1944, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18914L)); } } } } } 
BgL_nvarsz00_1913 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_arg1864z00_1938); } 
{ /* R5rs/syntax.scm 552 */
 obj_t BgL_nenvz00_1914;
{ /* R5rs/syntax.scm 554 */
 obj_t BgL_arg1858z00_1929;
{ /* R5rs/syntax.scm 553 */
 obj_t BgL_list1860z00_1931;
{ /* R5rs/syntax.scm 553 */
 obj_t BgL_arg1861z00_1932;
BgL_arg1861z00_1932 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1913, BNIL); 
BgL_list1860z00_1931 = 
MAKE_YOUNG_PAIR(BgL_bindingsz00_1592, BgL_arg1861z00_1932); } 
BgL_arg1858z00_1929 = 
BGl_mapz00zz__r4_control_features_6_9z00(BGl_proc2969z00zz__r5_macro_4_3_syntaxz00, BgL_list1860z00_1931); } 
BgL_nenvz00_1914 = 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_arg1858z00_1929, BgL_envz00_44); } 
{ /* R5rs/syntax.scm 553 */

{ /* R5rs/syntax.scm 558 */
 obj_t BgL_arg1846z00_1915;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_arg1847z00_1916; obj_t BgL_arg1848z00_1917;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_zc3z04anonymousza31852ze3z87_3152;
BgL_zc3z04anonymousza31852ze3z87_3152 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31852ze3ze5zz__r5_macro_4_3_syntaxz00, 
(int)(2L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31852ze3z87_3152, 
(int)(0L), BgL_envz00_44); 
{ /* R5rs/syntax.scm 557 */
 obj_t BgL_list1850z00_1919;
{ /* R5rs/syntax.scm 557 */
 obj_t BgL_arg1851z00_1920;
BgL_arg1851z00_1920 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1913, BNIL); 
BgL_list1850z00_1919 = 
MAKE_YOUNG_PAIR(BgL_bindingsz00_1592, BgL_arg1851z00_1920); } 
BgL_arg1847z00_1916 = 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_zc3z04anonymousza31852ze3z87_3152, BgL_list1850z00_1919); } } 
BgL_arg1848z00_1917 = 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_nenvz00_1914, BgL_bodyz00_1593); 
BgL_arg1846z00_1915 = 
MAKE_YOUNG_PAIR(BgL_arg1847z00_1916, BgL_arg1848z00_1917); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r5_macro_4_3_syntaxz00, BgL_arg1846z00_1915);} } } } } } }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2349zd2_1631;
BgL_cdrzd2349zd2_1631 = 
CDR(
((obj_t)BgL_xz00_43)); 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_arg1573z00_1632; obj_t BgL_arg1574z00_1633;
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_pairz00_2761;
if(
PAIRP(BgL_cdrzd2349zd2_1631))
{ /* R5rs/syntax.scm 524 */
BgL_pairz00_2761 = BgL_cdrzd2349zd2_1631; }  else 
{ 
 obj_t BgL_auxz00_5666;
BgL_auxz00_5666 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18015L), BGl_string2975z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2349zd2_1631); 
FAILURE(BgL_auxz00_5666,BFALSE,BFALSE);} 
BgL_arg1573z00_1632 = 
CAR(BgL_pairz00_2761); } 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_pairz00_2762;
if(
PAIRP(BgL_cdrzd2349zd2_1631))
{ /* R5rs/syntax.scm 524 */
BgL_pairz00_2762 = BgL_cdrzd2349zd2_1631; }  else 
{ 
 obj_t BgL_auxz00_5673;
BgL_auxz00_5673 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18015L), BGl_string2975z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_cdrzd2349zd2_1631); 
FAILURE(BgL_auxz00_5673,BFALSE,BFALSE);} 
BgL_arg1574z00_1633 = 
CDR(BgL_pairz00_2762); } 
{ 
 obj_t BgL_bodyz00_5679; obj_t BgL_bindingsz00_5678;
BgL_bindingsz00_5678 = BgL_arg1573z00_1632; 
BgL_bodyz00_5679 = BgL_arg1574z00_1633; 
BgL_bodyz00_1593 = BgL_bodyz00_5679; 
BgL_bindingsz00_1592 = BgL_bindingsz00_5678; 
goto BgL_tagzd2238zd2_1594;} } } }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2388zd2_1634;
BgL_cdrzd2388zd2_1634 = 
CDR(
((obj_t)BgL_xz00_43)); 
if(
(
CAR(
((obj_t)BgL_xz00_43))==BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_cdrzd2388zd2_1634))
{ /* R5rs/syntax.scm 524 */
BgL_bindingsz00_1595 = 
CAR(BgL_cdrzd2388zd2_1634); 
BgL_bodyz00_1596 = 
CDR(BgL_cdrzd2388zd2_1634); 
{ 
 obj_t BgL_bindingsz00_1958; obj_t BgL_nbindingsz00_1959; obj_t BgL_nenvz00_1960;
BgL_bindingsz00_1958 = BgL_bindingsz00_1595; 
BgL_nbindingsz00_1959 = BNIL; 
BgL_nenvz00_1960 = BgL_envz00_44; 
BgL_zc3z04anonymousza31877ze3z87_1961:
if(
NULLP(BgL_bindingsz00_1958))
{ /* R5rs/syntax.scm 566 */
 obj_t BgL_arg1879z00_1963;
BgL_arg1879z00_1963 = 
MAKE_YOUNG_PAIR(
bgl_reverse(BgL_nbindingsz00_1959), 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_nenvz00_1960, BgL_bodyz00_1596)); 
return 
MAKE_YOUNG_PAIR(BGl_symbol2779z00zz__r5_macro_4_3_syntaxz00, BgL_arg1879z00_1963);}  else 
{ /* R5rs/syntax.scm 567 */
 obj_t BgL_varz00_1966;
{ /* R5rs/syntax.scm 567 */
 obj_t BgL_pairz00_2714;
if(
PAIRP(BgL_bindingsz00_1958))
{ /* R5rs/syntax.scm 567 */
BgL_pairz00_2714 = BgL_bindingsz00_1958; }  else 
{ 
 obj_t BgL_auxz00_5697;
BgL_auxz00_5697 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19379L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1958); 
FAILURE(BgL_auxz00_5697,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 567 */
 obj_t BgL_pairz00_2717;
{ /* R5rs/syntax.scm 567 */
 obj_t BgL_aux2472z00_3385;
BgL_aux2472z00_3385 = 
CAR(BgL_pairz00_2714); 
if(
PAIRP(BgL_aux2472z00_3385))
{ /* R5rs/syntax.scm 567 */
BgL_pairz00_2717 = BgL_aux2472z00_3385; }  else 
{ 
 obj_t BgL_auxz00_5704;
BgL_auxz00_5704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19373L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2472z00_3385); 
FAILURE(BgL_auxz00_5704,BFALSE,BFALSE);} } 
BgL_varz00_1966 = 
CAR(BgL_pairz00_2717); } } 
{ /* R5rs/syntax.scm 568 */
 obj_t BgL_nvarz00_1968;
BgL_nvarz00_1968 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_varz00_1966); 
{ /* R5rs/syntax.scm 569 */
 obj_t BgL_nenvz00_1969;
{ /* R5rs/syntax.scm 570 */
 obj_t BgL_arg1889z00_1976;
BgL_arg1889z00_1976 = 
MAKE_YOUNG_PAIR(BgL_varz00_1966, BgL_nvarz00_1968); 
BgL_nenvz00_1969 = 
MAKE_YOUNG_PAIR(BgL_arg1889z00_1976, BgL_envz00_44); } 
{ /* R5rs/syntax.scm 570 */

{ /* R5rs/syntax.scm 571 */
 obj_t BgL_arg1883z00_1970; obj_t BgL_arg1884z00_1971;
{ /* R5rs/syntax.scm 571 */
 obj_t BgL_pairz00_2724;
if(
PAIRP(BgL_bindingsz00_1958))
{ /* R5rs/syntax.scm 571 */
BgL_pairz00_2724 = BgL_bindingsz00_1958; }  else 
{ 
 obj_t BgL_auxz00_5714;
BgL_auxz00_5714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19504L), BGl_string2865z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1958); 
FAILURE(BgL_auxz00_5714,BFALSE,BFALSE);} 
BgL_arg1883z00_1970 = 
CDR(BgL_pairz00_2724); } 
{ /* R5rs/syntax.scm 572 */
 obj_t BgL_arg1885z00_1972;
{ /* R5rs/syntax.scm 572 */
 obj_t BgL_arg1886z00_1973;
BgL_arg1886z00_1973 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_varz00_1966, BgL_envz00_44); 
{ /* R5rs/syntax.scm 572 */
 obj_t BgL_list1887z00_1974;
{ /* R5rs/syntax.scm 572 */
 obj_t BgL_arg1888z00_1975;
BgL_arg1888z00_1975 = 
MAKE_YOUNG_PAIR(BgL_arg1886z00_1973, BNIL); 
BgL_list1887z00_1974 = 
MAKE_YOUNG_PAIR(BgL_varz00_1966, BgL_arg1888z00_1975); } 
BgL_arg1885z00_1972 = BgL_list1887z00_1974; } } 
BgL_arg1884z00_1971 = 
MAKE_YOUNG_PAIR(BgL_arg1885z00_1972, BgL_nbindingsz00_1959); } 
{ 
 obj_t BgL_nenvz00_5725; obj_t BgL_nbindingsz00_5724; obj_t BgL_bindingsz00_5723;
BgL_bindingsz00_5723 = BgL_arg1883z00_1970; 
BgL_nbindingsz00_5724 = BgL_arg1884z00_1971; 
BgL_nenvz00_5725 = BgL_nenvz00_1969; 
BgL_nenvz00_1960 = BgL_nenvz00_5725; 
BgL_nbindingsz00_1959 = BgL_nbindingsz00_5724; 
BgL_bindingsz00_1958 = BgL_bindingsz00_5723; 
goto BgL_zc3z04anonymousza31877ze3z87_1961;} } } } } } } }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2410zd2_1640;
BgL_cdrzd2410zd2_1640 = 
CDR(
((obj_t)BgL_xz00_43)); 
if(
(
CAR(
((obj_t)BgL_xz00_43))==BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_cdrzd2410zd2_1640))
{ /* R5rs/syntax.scm 524 */
BgL_bindingsz00_1598 = 
CAR(BgL_cdrzd2410zd2_1640); 
BgL_bodyz00_1599 = 
CDR(BgL_cdrzd2410zd2_1640); 
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_nvarsz00_1978;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_arg1914z00_2003;
if(
NULLP(BgL_bindingsz00_1598))
{ /* R5rs/syntax.scm 575 */
BgL_arg1914z00_2003 = BNIL; }  else 
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_head1142z00_2006;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_arg1922z00_2019;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_pairz00_2727;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_pairz00_2726;
if(
PAIRP(BgL_bindingsz00_1598))
{ /* R5rs/syntax.scm 575 */
BgL_pairz00_2726 = BgL_bindingsz00_1598; }  else 
{ 
 obj_t BgL_auxz00_5741;
BgL_auxz00_5741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19654L), BGl_string2970z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1598); 
FAILURE(BgL_auxz00_5741,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_aux2478z00_3391;
BgL_aux2478z00_3391 = 
CAR(BgL_pairz00_2726); 
if(
PAIRP(BgL_aux2478z00_3391))
{ /* R5rs/syntax.scm 575 */
BgL_pairz00_2727 = BgL_aux2478z00_3391; }  else 
{ 
 obj_t BgL_auxz00_5748;
BgL_auxz00_5748 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19654L), BGl_string2970z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2478z00_3391); 
FAILURE(BgL_auxz00_5748,BFALSE,BFALSE);} } } 
BgL_arg1922z00_2019 = 
CAR(BgL_pairz00_2727); } 
BgL_head1142z00_2006 = 
MAKE_YOUNG_PAIR(BgL_arg1922z00_2019, BNIL); } 
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_g1145z00_2007;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_pairz00_2728;
if(
PAIRP(BgL_bindingsz00_1598))
{ /* R5rs/syntax.scm 575 */
BgL_pairz00_2728 = BgL_bindingsz00_1598; }  else 
{ 
 obj_t BgL_auxz00_5756;
BgL_auxz00_5756 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19654L), BGl_string2970z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bindingsz00_1598); 
FAILURE(BgL_auxz00_5756,BFALSE,BFALSE);} 
BgL_g1145z00_2007 = 
CDR(BgL_pairz00_2728); } 
{ 
 obj_t BgL_l1140z00_2009; obj_t BgL_tail1143z00_2010;
BgL_l1140z00_2009 = BgL_g1145z00_2007; 
BgL_tail1143z00_2010 = BgL_head1142z00_2006; 
BgL_zc3z04anonymousza31916ze3z87_2011:
if(
PAIRP(BgL_l1140z00_2009))
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_newtail1144z00_2013;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_arg1919z00_2015;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_pairz00_2730;
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_aux2482z00_3395;
BgL_aux2482z00_3395 = 
CAR(BgL_l1140z00_2009); 
if(
PAIRP(BgL_aux2482z00_3395))
{ /* R5rs/syntax.scm 575 */
BgL_pairz00_2730 = BgL_aux2482z00_3395; }  else 
{ 
 obj_t BgL_auxz00_5766;
BgL_auxz00_5766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19654L), BGl_string2971z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2482z00_3395); 
FAILURE(BgL_auxz00_5766,BFALSE,BFALSE);} } 
BgL_arg1919z00_2015 = 
CAR(BgL_pairz00_2730); } 
BgL_newtail1144z00_2013 = 
MAKE_YOUNG_PAIR(BgL_arg1919z00_2015, BNIL); } 
SET_CDR(BgL_tail1143z00_2010, BgL_newtail1144z00_2013); 
{ 
 obj_t BgL_tail1143z00_5775; obj_t BgL_l1140z00_5773;
BgL_l1140z00_5773 = 
CDR(BgL_l1140z00_2009); 
BgL_tail1143z00_5775 = BgL_newtail1144z00_2013; 
BgL_tail1143z00_2010 = BgL_tail1143z00_5775; 
BgL_l1140z00_2009 = BgL_l1140z00_5773; 
goto BgL_zc3z04anonymousza31916ze3z87_2011;} }  else 
{ /* R5rs/syntax.scm 575 */
if(
NULLP(BgL_l1140z00_2009))
{ /* R5rs/syntax.scm 575 */
BgL_arg1914z00_2003 = BgL_head1142z00_2006; }  else 
{ /* R5rs/syntax.scm 575 */
BgL_arg1914z00_2003 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2908z00zz__r5_macro_4_3_syntaxz00, BGl_string2909z00zz__r5_macro_4_3_syntaxz00, BgL_l1140z00_2009, BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19654L)); } } } } } 
BgL_nvarsz00_1978 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_arg1914z00_2003); } 
{ /* R5rs/syntax.scm 575 */
 obj_t BgL_nenvz00_1979;
{ /* R5rs/syntax.scm 577 */
 obj_t BgL_arg1905z00_1994;
{ /* R5rs/syntax.scm 576 */
 obj_t BgL_list1907z00_1996;
{ /* R5rs/syntax.scm 576 */
 obj_t BgL_arg1908z00_1997;
BgL_arg1908z00_1997 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1978, BNIL); 
BgL_list1907z00_1996 = 
MAKE_YOUNG_PAIR(BgL_bindingsz00_1598, BgL_arg1908z00_1997); } 
BgL_arg1905z00_1994 = 
BGl_mapz00zz__r4_control_features_6_9z00(BGl_proc2972z00zz__r5_macro_4_3_syntaxz00, BgL_list1907z00_1996); } 
BgL_nenvz00_1979 = 
BGl_appendzd221011zd2zz__r5_macro_4_3_syntaxz00(BgL_arg1905z00_1994, BgL_envz00_44); } 
{ /* R5rs/syntax.scm 576 */

{ /* R5rs/syntax.scm 581 */
 obj_t BgL_arg1890z00_1980;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_arg1891z00_1981; obj_t BgL_arg1892z00_1982;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_zc3z04anonymousza31897ze3z87_3150;
BgL_zc3z04anonymousza31897ze3z87_3150 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31897ze3ze5zz__r5_macro_4_3_syntaxz00, 
(int)(2L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31897ze3z87_3150, 
(int)(0L), BgL_nenvz00_1979); 
{ /* R5rs/syntax.scm 580 */
 obj_t BgL_list1894z00_1984;
{ /* R5rs/syntax.scm 580 */
 obj_t BgL_arg1896z00_1985;
BgL_arg1896z00_1985 = 
MAKE_YOUNG_PAIR(BgL_nvarsz00_1978, BNIL); 
BgL_list1894z00_1984 = 
MAKE_YOUNG_PAIR(BgL_bindingsz00_1598, BgL_arg1896z00_1985); } 
BgL_arg1891z00_1981 = 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_zc3z04anonymousza31897ze3z87_3150, BgL_list1894z00_1984); } } 
BgL_arg1892z00_1982 = 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_nenvz00_1979, BgL_bodyz00_1599); 
BgL_arg1890z00_1980 = 
MAKE_YOUNG_PAIR(BgL_arg1891z00_1981, BgL_arg1892z00_1982); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__r5_macro_4_3_syntaxz00, BgL_arg1890z00_1980);} } } } }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_cdrzd2426zd2_1646;
BgL_cdrzd2426zd2_1646 = 
CDR(
((obj_t)BgL_xz00_43)); 
if(
(
CAR(
((obj_t)BgL_xz00_43))==BGl_symbol2973z00zz__r5_macro_4_3_syntaxz00))
{ /* R5rs/syntax.scm 524 */
if(
PAIRP(BgL_cdrzd2426zd2_1646))
{ /* R5rs/syntax.scm 524 */
 obj_t BgL_carzd2429zd2_1650;
BgL_carzd2429zd2_1650 = 
CAR(BgL_cdrzd2426zd2_1646); 
if(
PAIRP(BgL_carzd2429zd2_1650))
{ /* R5rs/syntax.scm 524 */
if(
NULLP(
CDR(BgL_carzd2429zd2_1650)))
{ /* R5rs/syntax.scm 524 */
BgL_varz00_1601 = 
CAR(BgL_carzd2429zd2_1650); 
BgL_bodyz00_1602 = 
CDR(BgL_cdrzd2426zd2_1646); 
{ /* R5rs/syntax.scm 585 */
 obj_t BgL_nvarz00_2021;
BgL_nvarz00_2021 = 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(BgL_varz00_1601); 
{ /* R5rs/syntax.scm 585 */
 obj_t BgL_nenvz00_2022;
{ /* R5rs/syntax.scm 586 */
 obj_t BgL_arg1927z00_2026;
BgL_arg1927z00_2026 = 
MAKE_YOUNG_PAIR(BgL_varz00_1601, BgL_nvarz00_2021); 
BgL_nenvz00_2022 = 
MAKE_YOUNG_PAIR(BgL_arg1927z00_2026, BgL_envz00_44); } 
{ /* R5rs/syntax.scm 586 */

{ /* R5rs/syntax.scm 587 */
 obj_t BgL_arg1924z00_2023;
{ /* R5rs/syntax.scm 587 */
 obj_t BgL_arg1925z00_2024; obj_t BgL_arg1926z00_2025;
BgL_arg1925z00_2024 = 
MAKE_YOUNG_PAIR(BgL_nvarz00_2021, BNIL); 
BgL_arg1926z00_2025 = 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_nenvz00_2022, BgL_bodyz00_1602); 
BgL_arg1924z00_2023 = 
MAKE_YOUNG_PAIR(BgL_arg1925z00_2024, BgL_arg1926z00_2025); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2973z00zz__r5_macro_4_3_syntaxz00, BgL_arg1924z00_2023);} } } } }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} }  else 
{ /* R5rs/syntax.scm 524 */
BGL_TAIL return 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_44, BgL_xz00_43);} } } } } } }  else 
{ /* R5rs/syntax.scm 524 */
return BgL_xz00_43;} } } } 

}



/* &<@anonymous:1897> */
obj_t BGl_z62zc3z04anonymousza31897ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3156, obj_t BgL_bz00_3158, obj_t BgL_vz00_3159)
{
{ /* R5rs/syntax.scm 580 */
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_nenvz00_3157;
BgL_nenvz00_3157 = 
PROCEDURE_REF(BgL_envz00_3156, 
(int)(0L)); 
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_res2984z00_3666;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_arg1898z00_3659;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_arg1903z00_3660;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_pairz00_3661;
if(
PAIRP(BgL_bz00_3158))
{ /* R5rs/syntax.scm 581 */
BgL_pairz00_3661 = BgL_bz00_3158; }  else 
{ 
 obj_t BgL_auxz00_5830;
BgL_auxz00_5830 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19840L), BGl_string2976z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bz00_3158); 
FAILURE(BgL_auxz00_5830,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_pairz00_3662;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_aux2622z00_3663;
BgL_aux2622z00_3663 = 
CDR(BgL_pairz00_3661); 
if(
PAIRP(BgL_aux2622z00_3663))
{ /* R5rs/syntax.scm 581 */
BgL_pairz00_3662 = BgL_aux2622z00_3663; }  else 
{ 
 obj_t BgL_auxz00_5837;
BgL_auxz00_5837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19834L), BGl_string2976z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2622z00_3663); 
FAILURE(BgL_auxz00_5837,BFALSE,BFALSE);} } 
BgL_arg1903z00_3660 = 
CAR(BgL_pairz00_3662); } } 
BgL_arg1898z00_3659 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_arg1903z00_3660, BgL_nenvz00_3157); } 
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_list1899z00_3664;
{ /* R5rs/syntax.scm 581 */
 obj_t BgL_arg1901z00_3665;
BgL_arg1901z00_3665 = 
MAKE_YOUNG_PAIR(BgL_arg1898z00_3659, BNIL); 
BgL_list1899z00_3664 = 
MAKE_YOUNG_PAIR(BgL_vz00_3159, BgL_arg1901z00_3665); } 
BgL_res2984z00_3666 = BgL_list1899z00_3664; } } 
return BgL_res2984z00_3666;} } } 

}



/* &<@anonymous:1909> */
obj_t BGl_z62zc3z04anonymousza31909ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3160, obj_t BgL_bz00_3161, obj_t BgL_vz00_3162)
{
{ /* R5rs/syntax.scm 576 */
{ /* R5rs/syntax.scm 577 */
 obj_t BgL_arg1911z00_3667;
{ /* R5rs/syntax.scm 577 */
 obj_t BgL_pairz00_3668;
if(
PAIRP(BgL_bz00_3161))
{ /* R5rs/syntax.scm 577 */
BgL_pairz00_3668 = BgL_bz00_3161; }  else 
{ 
 obj_t BgL_auxz00_5847;
BgL_auxz00_5847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19734L), BGl_string2977z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bz00_3161); 
FAILURE(BgL_auxz00_5847,BFALSE,BFALSE);} 
BgL_arg1911z00_3667 = 
CAR(BgL_pairz00_3668); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1911z00_3667, BgL_vz00_3162);} } 

}



/* &<@anonymous:1852> */
obj_t BGl_z62zc3z04anonymousza31852ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3163, obj_t BgL_bz00_3165, obj_t BgL_vz00_3166)
{
{ /* R5rs/syntax.scm 557 */
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_envz00_3164;
BgL_envz00_3164 = 
PROCEDURE_REF(BgL_envz00_3163, 
(int)(0L)); 
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_res2985z00_3676;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_arg1853z00_3669;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_arg1857z00_3670;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_pairz00_3671;
if(
PAIRP(BgL_bz00_3165))
{ /* R5rs/syntax.scm 558 */
BgL_pairz00_3671 = BgL_bz00_3165; }  else 
{ 
 obj_t BgL_auxz00_5857;
BgL_auxz00_5857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19094L), BGl_string2978z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bz00_3165); 
FAILURE(BgL_auxz00_5857,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_pairz00_3672;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_aux2628z00_3673;
BgL_aux2628z00_3673 = 
CDR(BgL_pairz00_3671); 
if(
PAIRP(BgL_aux2628z00_3673))
{ /* R5rs/syntax.scm 558 */
BgL_pairz00_3672 = BgL_aux2628z00_3673; }  else 
{ 
 obj_t BgL_auxz00_5864;
BgL_auxz00_5864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(19088L), BGl_string2978z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2628z00_3673); 
FAILURE(BgL_auxz00_5864,BFALSE,BFALSE);} } 
BgL_arg1857z00_3670 = 
CAR(BgL_pairz00_3672); } } 
BgL_arg1853z00_3669 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_arg1857z00_3670, BgL_envz00_3164); } 
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_list1854z00_3674;
{ /* R5rs/syntax.scm 558 */
 obj_t BgL_arg1856z00_3675;
BgL_arg1856z00_3675 = 
MAKE_YOUNG_PAIR(BgL_arg1853z00_3669, BNIL); 
BgL_list1854z00_3674 = 
MAKE_YOUNG_PAIR(BgL_vz00_3166, BgL_arg1856z00_3675); } 
BgL_res2985z00_3676 = BgL_list1854z00_3674; } } 
return BgL_res2985z00_3676;} } } 

}



/* &<@anonymous:1862> */
obj_t BGl_z62zc3z04anonymousza31862ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3167, obj_t BgL_bz00_3168, obj_t BgL_vz00_3169)
{
{ /* R5rs/syntax.scm 553 */
{ /* R5rs/syntax.scm 554 */
 obj_t BgL_arg1863z00_3677;
{ /* R5rs/syntax.scm 554 */
 obj_t BgL_pairz00_3678;
if(
PAIRP(BgL_bz00_3168))
{ /* R5rs/syntax.scm 554 */
BgL_pairz00_3678 = BgL_bz00_3168; }  else 
{ 
 obj_t BgL_auxz00_5874;
BgL_auxz00_5874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18994L), BGl_string2979z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bz00_3168); 
FAILURE(BgL_auxz00_5874,BFALSE,BFALSE);} 
BgL_arg1863z00_3677 = 
CAR(BgL_pairz00_3678); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1863z00_3677, BgL_vz00_3169);} } 

}



/* &<@anonymous:1818> */
obj_t BGl_z62zc3z04anonymousza31818ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3170, obj_t BgL_bz00_3172, obj_t BgL_vz00_3173)
{
{ /* R5rs/syntax.scm 547 */
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_envz00_3171;
BgL_envz00_3171 = 
PROCEDURE_REF(BgL_envz00_3170, 
(int)(0L)); 
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_res2986z00_3686;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_arg1819z00_3679;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_arg1822z00_3680;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_pairz00_3681;
if(
PAIRP(BgL_bz00_3172))
{ /* R5rs/syntax.scm 548 */
BgL_pairz00_3681 = BgL_bz00_3172; }  else 
{ 
 obj_t BgL_auxz00_5884;
BgL_auxz00_5884 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18789L), BGl_string2980z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bz00_3172); 
FAILURE(BgL_auxz00_5884,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_pairz00_3682;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_aux2634z00_3683;
BgL_aux2634z00_3683 = 
CDR(BgL_pairz00_3681); 
if(
PAIRP(BgL_aux2634z00_3683))
{ /* R5rs/syntax.scm 548 */
BgL_pairz00_3682 = BgL_aux2634z00_3683; }  else 
{ 
 obj_t BgL_auxz00_5891;
BgL_auxz00_5891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18783L), BGl_string2980z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_aux2634z00_3683); 
FAILURE(BgL_auxz00_5891,BFALSE,BFALSE);} } 
BgL_arg1822z00_3680 = 
CAR(BgL_pairz00_3682); } } 
BgL_arg1819z00_3679 = 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_arg1822z00_3680, BgL_envz00_3171); } 
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_list1820z00_3684;
{ /* R5rs/syntax.scm 548 */
 obj_t BgL_arg1821z00_3685;
BgL_arg1821z00_3685 = 
MAKE_YOUNG_PAIR(BgL_arg1819z00_3679, BNIL); 
BgL_list1820z00_3684 = 
MAKE_YOUNG_PAIR(BgL_vz00_3173, BgL_arg1821z00_3685); } 
BgL_res2986z00_3686 = BgL_list1820z00_3684; } } 
return BgL_res2986z00_3686;} } } 

}



/* &<@anonymous:1831> */
obj_t BGl_z62zc3z04anonymousza31831ze3ze5zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3174, obj_t BgL_bz00_3175, obj_t BgL_vz00_3176)
{
{ /* R5rs/syntax.scm 543 */
{ /* R5rs/syntax.scm 544 */
 obj_t BgL_arg1832z00_3687;
{ /* R5rs/syntax.scm 544 */
 obj_t BgL_pairz00_3688;
if(
PAIRP(BgL_bz00_3175))
{ /* R5rs/syntax.scm 544 */
BgL_pairz00_3688 = BgL_bz00_3175; }  else 
{ 
 obj_t BgL_auxz00_5901;
BgL_auxz00_5901 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(18676L), BGl_string2981z00zz__r5_macro_4_3_syntaxz00, BGl_string2912z00zz__r5_macro_4_3_syntaxz00, BgL_bz00_3175); 
FAILURE(BgL_auxz00_5901,BFALSE,BFALSE);} 
BgL_arg1832z00_3687 = 
CAR(BgL_pairz00_3688); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1832z00_3687, BgL_vz00_3176);} } 

}



/* loop~0 */
obj_t BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(obj_t BgL_envz00_3180, obj_t BgL_xz00_2028)
{
{ /* R5rs/syntax.scm 597 */
if(
PAIRP(BgL_xz00_2028))
{ /* R5rs/syntax.scm 599 */
return 
MAKE_YOUNG_PAIR(
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(
CAR(BgL_xz00_2028), BgL_envz00_3180), 
BGl_loopze70ze7zz__r5_macro_4_3_syntaxz00(BgL_envz00_3180, 
CDR(BgL_xz00_2028)));}  else 
{ /* R5rs/syntax.scm 599 */
if(
NULLP(BgL_xz00_2028))
{ /* R5rs/syntax.scm 601 */
return BNIL;}  else 
{ /* R5rs/syntax.scm 601 */
BGL_TAIL return 
BGl_hygieniza7eza7zz__r5_macro_4_3_syntaxz00(BgL_xz00_2028, BgL_envz00_3180);} } } 

}



/* flatten */
obj_t BGl_flattenz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_lz00_47)
{
{ /* R5rs/syntax.scm 609 */
if(
PAIRP(BgL_lz00_47))
{ /* R5rs/syntax.scm 611 */
return 
MAKE_YOUNG_PAIR(
CAR(BgL_lz00_47), 
BGl_flattenz00zz__r5_macro_4_3_syntaxz00(
CDR(BgL_lz00_47)));}  else 
{ /* R5rs/syntax.scm 611 */
if(
NULLP(BgL_lz00_47))
{ /* R5rs/syntax.scm 612 */
return BgL_lz00_47;}  else 
{ /* R5rs/syntax.scm 613 */
 obj_t BgL_list1941z00_2042;
BgL_list1941z00_2042 = 
MAKE_YOUNG_PAIR(BgL_lz00_47, BNIL); 
return BgL_list1941z00_2042;} } } 

}



/* genvars */
obj_t BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(obj_t BgL_lz00_48)
{
{ /* R5rs/syntax.scm 618 */
if(
PAIRP(BgL_lz00_48))
{ /* R5rs/syntax.scm 628 */
return 
MAKE_YOUNG_PAIR(
BGl_gennameze70ze7zz__r5_macro_4_3_syntaxz00(
CAR(BgL_lz00_48)), 
BGl_genvarsz00zz__r5_macro_4_3_syntaxz00(
CDR(BgL_lz00_48)));}  else 
{ /* R5rs/syntax.scm 628 */
if(
NULLP(BgL_lz00_48))
{ /* R5rs/syntax.scm 629 */
return BgL_lz00_48;}  else 
{ /* R5rs/syntax.scm 629 */
BGL_TAIL return 
BGl_gennameze70ze7zz__r5_macro_4_3_syntaxz00(BgL_lz00_48);} } } 

}



/* genname~0 */
obj_t BGl_gennameze70ze7zz__r5_macro_4_3_syntaxz00(obj_t BgL_lz00_2050)
{
{ /* R5rs/syntax.scm 626 */
{ 

if(
SYMBOLP(BgL_lz00_2050))
{ /* R5rs/syntax.scm 626 */
{ /* R5rs/syntax.scm 622 */
 bool_t BgL_test3428z00_5938;
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_sz00_2886;
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_symbolz00_2887;
if(
SYMBOLP(BgL_lz00_2050))
{ /* R5rs/syntax.scm 471 */
BgL_symbolz00_2887 = BgL_lz00_2050; }  else 
{ 
 obj_t BgL_auxz00_5941;
BgL_auxz00_5941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2644z00zz__r5_macro_4_3_syntaxz00, 
BINT(15832L), BGl_string2982z00zz__r5_macro_4_3_syntaxz00, BGl_string2648z00zz__r5_macro_4_3_syntaxz00, BgL_lz00_2050); 
FAILURE(BgL_auxz00_5941,BFALSE,BFALSE);} 
{ /* R5rs/syntax.scm 471 */
 obj_t BgL_arg2083z00_2888;
BgL_arg2083z00_2888 = 
SYMBOL_TO_STRING(BgL_symbolz00_2887); 
BgL_sz00_2886 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2083z00_2888); } } 
BgL_test3428z00_5938 = 
bigloo_strcmp_at(BgL_sz00_2886, BGl_hygienezd2prefixzd2zz__r5_macro_4_3_syntaxz00, 0L); } 
if(BgL_test3428z00_5938)
{ /* R5rs/syntax.scm 622 */
BGL_TAIL return 
BGl_hygienezd2valuezd2zz__r5_macro_4_3_syntaxz00(BgL_lz00_2050);}  else 
{ /* R5rs/syntax.scm 622 */
BGL_TAIL return 
BGl_gensymz00zz__r4_symbols_6_4z00(BgL_lz00_2050);} } }  else 
{ /* R5rs/syntax.scm 626 */

{ /* R5rs/syntax.scm 626 */

BGL_TAIL return 
BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);} } } } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r5_macro_4_3_syntaxz00(void)
{
{ /* R5rs/syntax.scm 17 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00)); 
return 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(268155843L, 
BSTRING_TO_STRING(BGl_string2983z00zz__r5_macro_4_3_syntaxz00));} 

}

#ifdef __cplusplus
}
#endif
