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

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

extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(long, char *);
static obj_t BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31924ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31883ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_unboundzd2patternzd2zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_oczd2countzd2zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_symbol3667z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31255ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3665z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31853ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31924ze3_3171z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_symbol3662z00zz__match_normaliza7eza7 = BUNSPEC;
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol3659z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3656z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31330ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31329ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3653z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(obj_t);
static obj_t BGl_symbol3652z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31047ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_symbol3650z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_list3649z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza32164ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3648z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3647z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3646z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_standardiza7ezd2treezd2variableza7zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_makezd2togglezd2zz__match_normaliza7eza7();
static obj_t BGl_list3654z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3645z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_list3655z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3644z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31153ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_symbol3643z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_termzd2variablezd2truezd2namezd2zz__match_normaliza7eza7(obj_t);
static obj_t BGl_list3657z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3642z00zz__match_normaliza7eza7 = BUNSPEC;
extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list3658z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3641z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7(obj_t, obj_t);
static bool_t BGl_treezd2variablezf3z21zz__match_normaliza7eza7(obj_t);
extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_list3660z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3640z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3639z00zz__match_normaliza7eza7 = BUNSPEC;
extern obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_list3661z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_list3663z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3636z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(obj_t);
static obj_t BGl_list3664z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3635z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31671ze3_3214z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3632z00zz__match_normaliza7eza7 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(obj_t);
static obj_t BGl_symbol3631z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_vectorifyz00zz__match_normaliza7eza7(obj_t);
static obj_t BGl_zc3anonymousza31050ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3630z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3629z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3627z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3625z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__match_normaliza7eza7();
static obj_t BGl_symbol3624z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31302ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31124ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3616z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3614z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31156ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3612z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_symbol3610z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3599z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3597z00zz__match_normaliza7eza7 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_symbol3606z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3595z00zz__match_normaliza7eza7 = BUNSPEC;
static bool_t BGl_holezd2variablezf3z21zz__match_normaliza7eza7(obj_t);
static obj_t BGl_symbol3604z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3603z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3593z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31859ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static bool_t BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_standardiza7ezd2consz75zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_symbol3601z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3591z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_symbol3589z00zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza32170ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_rze2macrozd2patternze2initzd2zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31671ze3_3168z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_zc3anonymousza32034ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31305ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31201ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl__normaliza7ezd2patternz75zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7(obj_t);
extern obj_t BGl_jimzd2gensymzd2zz__match_s2cfunz00;
static obj_t BGl_zc3anonymousza31936ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl__matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31905ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31895ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31204ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static bool_t BGl_termzd2variablezf3z21zz__match_normaliza7eza7(obj_t);
static obj_t BGl_zc3anonymousza31163ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31058ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__match_normaliza7eza7();
static obj_t BGl_zc3anonymousza31761ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7(obj_t, obj_t);
extern obj_t BGl_atomzf3zf3zz__match_s2cfunz00(obj_t);
static long BGl_patternzd2lengthzd2zz__match_normaliza7eza7(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza32042ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static bool_t BGl_segmentzd2variablezf3z21zz__match_normaliza7eza7(obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31105ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl__extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31871ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31840ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31211ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32256ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31276ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31108ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31172ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31947ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31769ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31246ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32048ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31383ze3z83zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32017ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31384ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31279ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static bool_t BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(obj_t);
static obj_t BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = BUNSPEC;
static obj_t BGl_zc3anonymousza31877ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31815ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31249ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31847ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__match_normaliza7eza7();
extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31775ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31220ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(obj_t, obj_t);
static obj_t BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(obj_t);
static obj_t BGl_zc3anonymousza31671ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31115ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32305ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32127ze3z83zz__match_normaliza7eza7(obj_t, obj_t, obj_t);
static obj_t BGl_standardiza7ezd2holezd2variableza7zz__match_normaliza7eza7(obj_t);
BGL_EXPORTED_DECL obj_t BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t);
static obj_t *__cnst;


DEFINE_STATIC_PROCEDURE( BGl_proc3602z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31302za7e3za783za7za7__match_normaliza7a7eza7a73674z00, va_generic_entry, BGl_zc3anonymousza31302ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3592z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31105za7e3za783za7za7__match_normaliza7a7eza7a73675z00, va_generic_entry, BGl_zc3anonymousza31105ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3594z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31153za7e3za783za7za7__match_normaliza7a7eza7a73676z00, va_generic_entry, BGl_zc3anonymousza31153ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3605z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31329za7e3za783za7za7__match_normaliza7a7eza7a73677z00, va_generic_entry, BGl_zc3anonymousza31329ze3z83zz__match_normaliza7eza7, -2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3596z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31201za7e3za783za7za7__match_normaliza7a7eza7a73678z00, va_generic_entry, BGl_zc3anonymousza31201ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3607z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31383za7e3za783za7za7__match_normaliza7a7eza7a73679z00, va_generic_entry, BGl_zc3anonymousza31383ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3598z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31246za7e3za783za7za7__match_normaliza7a7eza7a73680z00, va_generic_entry, BGl_zc3anonymousza31246ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3611z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31671za7e3za783za7za7__match_normaliza7a7eza7a73681z00, BGl_zc3anonymousza31671ze3z83zz__match_normaliza7eza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3626z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31671za7e3_3168za783za7za7__match_normaliza7a7eza7a73682z00, BGl_zc3anonymousza31671ze3_3168z83zz__match_normaliza7eza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3633z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a32256za7e3za783za7za7__match_normaliza7a7eza7a73683z00, BGl_zc3anonymousza32256ze3z83zz__match_normaliza7eza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3638z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31815za7e3za783za7za7__match_normaliza7a7eza7a73684z00, BGl_zc3anonymousza31815ze3z83zz__match_normaliza7eza7, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3651z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31671za7e3_3214za783za7za7__match_normaliza7a7eza7a73685z00, BGl_zc3anonymousza31671ze3_3214z83zz__match_normaliza7eza7, 0L, 2 );
DEFINE_STRING( BGl_string3666z00zz__match_normaliza7eza7, BgL_bgl_string3666za700za7za7__match_normaliza7a7eza7a73686za7, "Incorrect declaration: ", 23 );
DEFINE_EXPORT_PROCEDURE( BGl_extendze2rze2macrozd2envzd2envz00zz__match_normaliza7eza7, BgL_bgl__extendza7e2rza7e2macroza7d2envza7d2za7za7__match_normaliza7a7eza7a73687z00, BGl__extendze2rze2macrozd2envzd2zz__match_normaliza7eza7, 0L, 2 );
DEFINE_STRING( BGl_string3637z00zz__match_normaliza7eza7, BgL_bgl_string3637za700za7za7__match_normaliza7a7eza7a73688za7, "HOLE-", 5 );
DEFINE_STRING( BGl_string3634z00zz__match_normaliza7eza7, BgL_bgl_string3634za700za7za7__match_normaliza7a7eza7a73689za7, "g", 1 );
DEFINE_STRING( BGl_string3628z00zz__match_normaliza7eza7, BgL_bgl_string3628za700za7za7__match_normaliza7a7eza7a73690za7, "procedure", 9 );
DEFINE_STRING( BGl_string3623z00zz__match_normaliza7eza7, BgL_bgl_string3623za700za7za7__match_normaliza7a7eza7a73691za7, "Too many patterns provided for atom", 35 );
DEFINE_STRING( BGl_string3622z00zz__match_normaliza7eza7, BgL_bgl_string3622za700za7za7__match_normaliza7a7eza7a73692za7, "Illegal `atom' form", 19 );
DEFINE_STRING( BGl_string3621z00zz__match_normaliza7eza7, BgL_bgl_string3621za700za7za7__match_normaliza7a7eza7a73693za7, "Illegal `or' form", 17 );
DEFINE_STRING( BGl_string3620z00zz__match_normaliza7eza7, BgL_bgl_string3620za700za7za7__match_normaliza7a7eza7a73694za7, "Incompatible alternative", 24 );
DEFINE_STRING( BGl_string3619z00zz__match_normaliza7eza7, BgL_bgl_string3619za700za7za7__match_normaliza7a7eza7a73695za7, "Illegal `t-or' form", 19 );
DEFINE_STRING( BGl_string3618z00zz__match_normaliza7eza7, BgL_bgl_string3618za700za7za7__match_normaliza7a7eza7a73696za7, "Illegal `and' form", 18 );
DEFINE_STRING( BGl_string3617z00zz__match_normaliza7eza7, BgL_bgl_string3617za700za7za7__match_normaliza7a7eza7a73697za7, "Illegal `not'", 13 );
DEFINE_STRING( BGl_string3615z00zz__match_normaliza7eza7, BgL_bgl_string3615za700za7za7__match_normaliza7a7eza7a73698za7, "Illegal `?' form", 16 );
DEFINE_STRING( BGl_string3613z00zz__match_normaliza7eza7, BgL_bgl_string3613za700za7za7__match_normaliza7a7eza7a73699za7, "Illegal `kwote' form", 20 );
DEFINE_STRING( BGl_string3609z00zz__match_normaliza7eza7, BgL_bgl_string3609za700za7za7__match_normaliza7a7eza7a73700za7, "No such structure ", 18 );
DEFINE_STRING( BGl_string3608z00zz__match_normaliza7eza7, BgL_bgl_string3608za700za7za7__match_normaliza7a7eza7a73701za7, "No such structure: ", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_normaliza7ezd2patternzd2envza7zz__match_normaliza7eza7, BgL_bgl__normaliza7a7eza7d2patternza775za7za7__match_normaliza7a7eza7a73702za7, BGl__normaliza7ezd2patternz75zz__match_normaliza7eza7, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_matchzd2definezd2structurez12zd2envzc0zz__match_normaliza7eza7, BgL_bgl__matchza7d2defineza7d2structureza712za712za7za7__match_normaliza7a7eza7a73703z00, BGl__matchzd2definezd2structurez12z12zz__match_normaliza7eza7, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3600z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31276za7e3za783za7za7__match_normaliza7a7eza7a73704z00, va_generic_entry, BGl_zc3anonymousza31276ze3z83zz__match_normaliza7eza7, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3590z00zz__match_normaliza7eza7, BgL_bgl_za7c3anonymousza7a31047za7e3za783za7za7__match_normaliza7a7eza7a73705z00, va_generic_entry, BGl_zc3anonymousza31047ze3z83zz__match_normaliza7eza7, -1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long BgL_checksumz00_2561, char * BgL_fromz00_2562)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7))
{ 
BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__match_normaliza7eza7(); 
BGl_importedzd2moduleszd2initz00zz__match_normaliza7eza7(); 
BGl_toplevelzd2initzd2zz__match_normaliza7eza7(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__match_normaliza7eza7()
{ AN_OBJECT;
{ /* ./Match/normalize.scm 2 */
BGl_symbol3589z00zz__match_normaliza7eza7 = 
string_to_symbol("atom"); 
BGl_symbol3591z00zz__match_normaliza7eza7 = 
string_to_symbol("or"); 
BGl_symbol3593z00zz__match_normaliza7eza7 = 
string_to_symbol("t-or"); 
BGl_symbol3595z00zz__match_normaliza7eza7 = 
string_to_symbol("and"); 
BGl_symbol3597z00zz__match_normaliza7eza7 = 
string_to_symbol("not"); 
BGl_symbol3599z00zz__match_normaliza7eza7 = 
string_to_symbol("?"); 
BGl_symbol3601z00zz__match_normaliza7eza7 = 
string_to_symbol("kwote"); 
BGl_symbol3603z00zz__match_normaliza7eza7 = 
string_to_symbol("**Bad-Luck096561123523452**"); 
BGl_symbol3604z00zz__match_normaliza7eza7 = 
string_to_symbol("struct-pat"); 
BGl_symbol3606z00zz__match_normaliza7eza7 = 
string_to_symbol("_structure_"); 
BGl_symbol3610z00zz__match_normaliza7eza7 = 
string_to_symbol("?-"); 
BGl_symbol3612z00zz__match_normaliza7eza7 = 
string_to_symbol("Pattern-Matching"); 
BGl_symbol3614z00zz__match_normaliza7eza7 = 
string_to_symbol("quote"); 
BGl_symbol3616z00zz__match_normaliza7eza7 = 
string_to_symbol("check"); 
BGl_symbol3624z00zz__match_normaliza7eza7 = 
string_to_symbol("cons"); 
BGl_symbol3625z00zz__match_normaliza7eza7 = 
string_to_symbol("any"); 
BGl_symbol3627z00zz__match_normaliza7eza7 = 
string_to_symbol("standardize-pattern"); 
BGl_symbol3629z00zz__match_normaliza7eza7 = 
string_to_symbol("var"); 
BGl_symbol3630z00zz__match_normaliza7eza7 = 
string_to_symbol("standardize-patterns"); 
BGl_symbol3631z00zz__match_normaliza7eza7 = 
string_to_symbol("\077\077-"); 
BGl_symbol3632z00zz__match_normaliza7eza7 = 
string_to_symbol("\077\077?-"); 
BGl_symbol3635z00zz__match_normaliza7eza7 = 
string_to_symbol("times"); 
BGl_symbol3636z00zz__match_normaliza7eza7 = 
string_to_symbol("hole"); 
BGl_symbol3639z00zz__match_normaliza7eza7 = 
string_to_symbol("..."); 
BGl_symbol3640z00zz__match_normaliza7eza7 = 
string_to_symbol("value"); 
BGl_symbol3641z00zz__match_normaliza7eza7 = 
string_to_symbol("on"); 
BGl_symbol3642z00zz__match_normaliza7eza7 = 
string_to_symbol("off"); 
BGl_symbol3643z00zz__match_normaliza7eza7 = 
string_to_symbol("xcons"); 
BGl_symbol3644z00zz__match_normaliza7eza7 = 
string_to_symbol("segment"); 
BGl_symbol3645z00zz__match_normaliza7eza7 = 
string_to_symbol("ssetq-append"); 
BGl_symbol3646z00zz__match_normaliza7eza7 = 
string_to_symbol("tree"); 
BGl_symbol3647z00zz__match_normaliza7eza7 = 
string_to_symbol("end-ssetq"); 
BGl_symbol3648z00zz__match_normaliza7eza7 = 
string_to_symbol("eval-append"); 
BGl_symbol3650z00zz__match_normaliza7eza7 = 
string_to_symbol("tagged-or"); 
{ /* ./Match/normalize.scm 276 */
obj_t BgL_auxz00_2603;
{ /* ./Match/normalize.scm 276 */
obj_t BgL_auxz00_2604;
{ /* ./Match/normalize.scm 276 */
obj_t BgL_auxz00_2605;
{ /* ./Match/normalize.scm 276 */
obj_t BgL_auxz00_2606;
{ /* ./Match/normalize.scm 276 */
obj_t BgL_auxz00_2607;
BgL_auxz00_2607 = 
MAKE_PAIR(BGl_symbol3597z00zz__match_normaliza7eza7, BNIL); 
BgL_auxz00_2606 = 
MAKE_PAIR(BGl_symbol3624z00zz__match_normaliza7eza7, BgL_auxz00_2607); } 
BgL_auxz00_2605 = 
MAKE_PAIR(BGl_symbol3650z00zz__match_normaliza7eza7, BgL_auxz00_2606); } 
BgL_auxz00_2604 = 
MAKE_PAIR(BGl_symbol3593z00zz__match_normaliza7eza7, BgL_auxz00_2605); } 
BgL_auxz00_2603 = 
MAKE_PAIR(BGl_symbol3595z00zz__match_normaliza7eza7, BgL_auxz00_2604); } 
BGl_list3649z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3591z00zz__match_normaliza7eza7, BgL_auxz00_2603); } 
BGl_symbol3652z00zz__match_normaliza7eza7 = 
string_to_symbol("vector-begin"); 
BGl_symbol3653z00zz__match_normaliza7eza7 = 
string_to_symbol("vector-cons"); 
BGl_list3654z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
BGl_symbol3656z00zz__match_normaliza7eza7 = 
string_to_symbol("vector-any"); 
BGl_list3655z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3656z00zz__match_normaliza7eza7, BNIL); 
{ /* ./Match/normalize.scm 497 */
obj_t BgL_auxz00_2619;
BgL_auxz00_2619 = 
MAKE_PAIR(BNIL, BNIL); 
BGl_list3657z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3614z00zz__match_normaliza7eza7, BgL_auxz00_2619); } 
BGl_symbol3659z00zz__match_normaliza7eza7 = 
string_to_symbol("vector-end"); 
BGl_list3658z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3659z00zz__match_normaliza7eza7, BNIL); 
{ /* ./Match/normalize.scm 499 */
obj_t BgL_auxz00_2624;
{ /* ./Match/normalize.scm 499 */
obj_t BgL_auxz00_2625;
BgL_auxz00_2625 = 
MAKE_PAIR(BGl_symbol3597z00zz__match_normaliza7eza7, BNIL); 
BgL_auxz00_2624 = 
MAKE_PAIR(BGl_symbol3591z00zz__match_normaliza7eza7, BgL_auxz00_2625); } 
BGl_list3660z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3595z00zz__match_normaliza7eza7, BgL_auxz00_2624); } 
{ /* ./Match/normalize.scm 503 */
obj_t BgL_auxz00_2629;
BgL_auxz00_2629 = 
MAKE_PAIR(BGl_symbol3646z00zz__match_normaliza7eza7, BNIL); 
BGl_list3661z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3635z00zz__match_normaliza7eza7, BgL_auxz00_2629); } 
BGl_symbol3662z00zz__match_normaliza7eza7 = 
string_to_symbol("vector-times"); 
{ /* ./Match/normalize.scm 518 */
obj_t BgL_auxz00_2633;
BgL_auxz00_2633 = 
MAKE_PAIR(BGl_symbol3632z00zz__match_normaliza7eza7, BNIL); 
BGl_list3663z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3631z00zz__match_normaliza7eza7, BgL_auxz00_2633); } 
{ /* ./Match/normalize.scm 519 */
obj_t BgL_auxz00_2636;
{ /* ./Match/normalize.scm 519 */
obj_t BgL_auxz00_2637;
{ /* ./Match/normalize.scm 519 */
obj_t BgL_auxz00_2638;
BgL_auxz00_2638 = 
MAKE_PAIR(BGl_symbol3650z00zz__match_normaliza7eza7, BNIL); 
BgL_auxz00_2637 = 
MAKE_PAIR(BGl_symbol3593z00zz__match_normaliza7eza7, BgL_auxz00_2638); } 
BgL_auxz00_2636 = 
MAKE_PAIR(BGl_symbol3595z00zz__match_normaliza7eza7, BgL_auxz00_2637); } 
BGl_list3664z00zz__match_normaliza7eza7 = 
MAKE_PAIR(BGl_symbol3591z00zz__match_normaliza7eza7, BgL_auxz00_2636); } 
BGl_symbol3665z00zz__match_normaliza7eza7 = 
string_to_symbol("define-struct"); 
return ( 
BGl_symbol3667z00zz__match_normaliza7eza7 = 
string_to_symbol("Aborted"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__match_normaliza7eza7()
{ AN_OBJECT;
{ /* ./Match/normalize.scm 2 */
BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7 = 
BGl_makezd2togglezd2zz__match_normaliza7eza7(); 
BGl_rze2macrozd2patternze2initzd2zz__match_normaliza7eza7 = BNIL; 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = BNIL; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1044z00_406;
BgL_arg1044z00_406 = BGl_symbol3589z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1328;
BgL_fnz00_1328 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1330;
BgL_arg2269z00_1330 = 
MAKE_PAIR(BgL_arg1044z00_406, BGl_proc3590z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1330, BgL_fnz00_1328); } } } BGl_symbol3589z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1102z00_439;
BgL_arg1102z00_439 = BGl_symbol3591z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1346;
BgL_fnz00_1346 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1348;
BgL_arg2269z00_1348 = 
MAKE_PAIR(BgL_arg1102z00_439, BGl_proc3592z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1348, BgL_fnz00_1346); } } } BGl_symbol3591z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1150z00_471;
BgL_arg1150z00_471 = BGl_symbol3593z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1364;
BgL_fnz00_1364 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1366;
BgL_arg2269z00_1366 = 
MAKE_PAIR(BgL_arg1150z00_471, BGl_proc3594z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1366, BgL_fnz00_1364); } } } BGl_symbol3593z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1198z00_503;
BgL_arg1198z00_503 = BGl_symbol3595z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1382;
BgL_fnz00_1382 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1384;
BgL_arg2269z00_1384 = 
MAKE_PAIR(BgL_arg1198z00_503, BGl_proc3596z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1384, BgL_fnz00_1382); } } } BGl_symbol3595z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1243z00_533;
BgL_arg1243z00_533 = BGl_symbol3597z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1399;
BgL_fnz00_1399 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1401;
BgL_arg2269z00_1401 = 
MAKE_PAIR(BgL_arg1243z00_533, BGl_proc3598z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1401, BgL_fnz00_1399); } } } BGl_symbol3597z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1273z00_554;
BgL_arg1273z00_554 = BGl_symbol3599z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1422;
BgL_fnz00_1422 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1424;
BgL_arg2269z00_1424 = 
MAKE_PAIR(BgL_arg1273z00_554, BGl_proc3600z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1424, BgL_fnz00_1422); } } } BGl_symbol3599z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg1299z00_570;
BgL_arg1299z00_570 = BGl_symbol3601z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_fnz00_1440;
BgL_fnz00_1440 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 321 */
obj_t BgL_arg2269z00_1442;
BgL_arg2269z00_1442 = 
MAKE_PAIR(BgL_arg1299z00_570, BGl_proc3602z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1442, BgL_fnz00_1440); } } } BGl_symbol3601z00zz__match_normaliza7eza7; 
BGl_unboundzd2patternzd2zz__match_normaliza7eza7 = BGl_symbol3603z00zz__match_normaliza7eza7; 
BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 = BNIL; 
{ /* ./Match/normalize.scm 528 */
obj_t BgL_arg1326z00_586;
BgL_arg1326z00_586 = BGl_symbol3604z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 528 */
obj_t BgL_fnz00_1458;
BgL_fnz00_1458 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 528 */
obj_t BgL_arg2269z00_1460;
BgL_arg2269z00_1460 = 
MAKE_PAIR(BgL_arg1326z00_586, BGl_proc3605z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1460, BgL_fnz00_1458); } } } BGl_symbol3604z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 528 */
obj_t BgL_arg1380z00_617;
BgL_arg1380z00_617 = BGl_symbol3606z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 528 */
obj_t BgL_fnz00_1527;
BgL_fnz00_1527 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 528 */
obj_t BgL_arg2269z00_1529;
BgL_arg2269z00_1529 = 
MAKE_PAIR(BgL_arg1380z00_617, BGl_proc3607z00zz__match_normaliza7eza7); 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_1529, BgL_fnz00_1527); } } } 
return BGl_symbol3606z00zz__match_normaliza7eza7;} 
}



/* <anonymous:1383> */
obj_t BGl_zc3anonymousza31383ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2276, obj_t BgL_fz00_2277)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 528 */
{ 
obj_t BgL_fz00_619;
BgL_fz00_619 = BgL_fz00_2277; 
{ /* ./Match/normalize.scm 544 */
obj_t BgL_zc3anonymousza31384ze3z83_2249;
{ 
int BgL_auxz00_2666;int BgL_auxz00_2664;
BgL_auxz00_2666 = 
(int)(((long)1)); 
BgL_auxz00_2664 = 
(int)(((long)2)); 
BgL_zc3anonymousza31384ze3z83_2249 = 
make_fx_procedure(BGl_zc3anonymousza31384ze3z83zz__match_normaliza7eza7, BgL_auxz00_2664, BgL_auxz00_2666); } 
{ /* ./Match/normalize.scm 544 */
int BgL_auxz00_2669;
BgL_auxz00_2669 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31384ze3z83_2249, BgL_auxz00_2669, BgL_fz00_619); } 
return BgL_zc3anonymousza31384ze3z83_2249;} } } 
}



/* <anonymous:1384> */
obj_t BGl_zc3anonymousza31384ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2278, obj_t BgL_rz00_2280, obj_t BgL_cz00_2281)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 544 */
{ /* ./Match/normalize.scm 554 */
obj_t BgL_fz00_2279;
{ /* ./Match/normalize.scm 554 */
int BgL_auxz00_2672;
BgL_auxz00_2672 = 
(int)(((long)0)); 
BgL_fz00_2279 = 
PROCEDURE_REF(BgL_envz00_2278, BgL_auxz00_2672); } 
{ 
obj_t BgL_rz00_621;obj_t BgL_cz00_622;
BgL_rz00_621 = BgL_rz00_2280; 
BgL_cz00_622 = BgL_cz00_2281; 
{ 
obj_t BgL_providedzd2fieldszd2_676;
{ /* ./Match/normalize.scm 555 */
obj_t BgL_structurez00_625;
{ /* ./Match/normalize.scm 557 */
bool_t BgL_testz00_2675;
{ /* ./Match/normalize.scm 557 */
obj_t BgL_auxz00_2676;
BgL_auxz00_2676 = 
CAR(BgL_fz00_2279); 
BgL_testz00_2675 = 
PAIRP(BgL_auxz00_2676); } 
if(BgL_testz00_2675)
{ /* ./Match/normalize.scm 559 */
obj_t BgL_arg1440z00_655;
{ /* ./Match/normalize.scm 559 */
obj_t BgL_l1031z00_656;
BgL_l1031z00_656 = 
CDR(BgL_fz00_2279); 
if(
NULLP(BgL_l1031z00_656))
{ /* ./Match/normalize.scm 559 */
BgL_arg1440z00_655 = BNIL; }  else 
{ /* ./Match/normalize.scm 559 */
obj_t BgL_head1033z00_658;
{ /* ./Match/normalize.scm 559 */
obj_t BgL_auxz00_2682;
{ /* ./Match/normalize.scm 559 */
obj_t BgL_auxz00_2683;
BgL_auxz00_2683 = 
CAR(BgL_l1031z00_656); 
BgL_auxz00_2682 = 
CAR(BgL_auxz00_2683); } 
BgL_head1033z00_658 = 
MAKE_PAIR(BgL_auxz00_2682, BNIL); } 
{ /* ./Match/normalize.scm 559 */
obj_t BgL_arg1444z00_662;
BgL_arg1444z00_662 = 
CDR(BgL_l1031z00_656); 
{ 
obj_t BgL_l1031z00_1540;obj_t BgL_tail1034z00_1541;
BgL_l1031z00_1540 = BgL_arg1444z00_662; 
BgL_tail1034z00_1541 = BgL_head1033z00_658; 
BgL_map1032z00_1539:
if(
NULLP(BgL_l1031z00_1540))
{ /* ./Match/normalize.scm 559 */
BgL_arg1440z00_655 = BgL_head1033z00_658; }  else 
{ /* ./Match/normalize.scm 559 */
obj_t BgL_newtail1035z00_1549;
{ /* ./Match/normalize.scm 559 */
obj_t BgL_auxz00_2690;
{ /* ./Match/normalize.scm 559 */
obj_t BgL_auxz00_2691;
BgL_auxz00_2691 = 
CAR(BgL_l1031z00_1540); 
BgL_auxz00_2690 = 
CAR(BgL_auxz00_2691); } 
BgL_newtail1035z00_1549 = 
MAKE_PAIR(BgL_auxz00_2690, BNIL); } 
SET_CDR(BgL_tail1034z00_1541, BgL_newtail1035z00_1549); 
{ 
obj_t BgL_tail1034z00_2698;obj_t BgL_l1031z00_2696;
BgL_l1031z00_2696 = 
CDR(BgL_l1031z00_1540); 
BgL_tail1034z00_2698 = BgL_newtail1035z00_1549; 
BgL_tail1034z00_1541 = BgL_tail1034z00_2698; 
BgL_l1031z00_1540 = BgL_l1031z00_2696; 
goto BgL_map1032z00_1539;} } } } } } 
BgL_providedzd2fieldszd2_676 = BgL_arg1440z00_655; 
{ 
obj_t BgL_sz00_678;
BgL_sz00_678 = BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7; 
BgL_loop1z00_679:
{ 
obj_t BgL_pzd2fzd2_680;
BgL_pzd2fzd2_680 = BgL_providedzd2fieldszd2_676; 
BgL_loop2z00_681:
if(
NULLP(BgL_sz00_678))
{ /* ./Match/normalize.scm 548 */
FAILURE(BGl_string3608z00zz__match_normaliza7eza7,BgL_providedzd2fieldszd2_676,BNIL);}  else 
{ /* ./Match/normalize.scm 548 */
if(
NULLP(BgL_pzd2fzd2_680))
{ /* ./Match/normalize.scm 550 */
BgL_structurez00_625 = 
CAR(BgL_sz00_678); }  else 
{ /* ./Match/normalize.scm 552 */
bool_t BgL_testz00_2705;
{ /* ./Match/normalize.scm 552 */
obj_t BgL_auxz00_2706;
{ /* ./Match/normalize.scm 552 */
obj_t BgL_auxz00_2707;
{ /* ./Match/normalize.scm 552 */
obj_t BgL_auxz00_2709;
BgL_auxz00_2709 = 
CAR(BgL_sz00_678); 
BgL_auxz00_2707 = 
CDR(BgL_auxz00_2709); } 
BgL_auxz00_2706 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_pzd2fzd2_680), BgL_auxz00_2707); } 
BgL_testz00_2705 = 
CBOOL(BgL_auxz00_2706); } 
if(BgL_testz00_2705)
{ 
obj_t BgL_pzd2fzd2_2714;
BgL_pzd2fzd2_2714 = 
CDR(BgL_pzd2fzd2_680); 
BgL_pzd2fzd2_680 = BgL_pzd2fzd2_2714; 
goto BgL_loop2z00_681;}  else 
{ 
obj_t BgL_sz00_2716;
BgL_sz00_2716 = 
CDR(BgL_sz00_678); 
BgL_sz00_678 = BgL_sz00_2716; 
goto BgL_loop1z00_679;} } } } } }  else 
{ /* ./Match/normalize.scm 560 */
bool_t BgL_test1473z00_672;
{ /* ./Match/normalize.scm 560 */
obj_t BgL_arg1480z00_674;
BgL_arg1480z00_674 = 
CAR(BgL_fz00_2279); 
{ /* ./Match/normalize.scm 560 */
obj_t BgL_auxz00_2719;
BgL_auxz00_2719 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1480z00_674, BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7); 
BgL_test1473z00_672 = 
CBOOL(BgL_auxz00_2719); } } 
if(BgL_test1473z00_672)
{ /* ./Match/normalize.scm 561 */
obj_t BgL_arg1475z00_673;
BgL_arg1475z00_673 = 
CAR(BgL_fz00_2279); 
BgL_structurez00_625 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1475z00_673, BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7); }  else 
{ /* ./Match/normalize.scm 562 */
obj_t BgL_objectz00_1596;
BgL_objectz00_1596 = BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7; 
FAILURE(BGl_string3609z00zz__match_normaliza7eza7,BgL_fz00_2279,BgL_objectz00_1596);} } } 
{ /* ./Match/normalize.scm 557 */
obj_t BgL_namez00_626;
BgL_namez00_626 = 
CAR(BgL_structurez00_625); 
{ /* ./Match/normalize.scm 564 */
obj_t BgL_fieldsz00_627;
BgL_fieldsz00_627 = 
CDR(BgL_structurez00_625); 
{ /* ./Match/normalize.scm 565 */
obj_t BgL_providedzd2fieldszd2_628;
{ /* ./Match/normalize.scm 566 */
bool_t BgL_testz00_2728;
{ /* ./Match/normalize.scm 566 */
obj_t BgL_auxz00_2729;
BgL_auxz00_2729 = 
CAR(BgL_fz00_2279); 
BgL_testz00_2728 = 
PAIRP(BgL_auxz00_2729); } 
if(BgL_testz00_2728)
{ /* ./Match/normalize.scm 566 */
BgL_providedzd2fieldszd2_628 = BgL_fz00_2279; }  else 
{ /* ./Match/normalize.scm 566 */
BgL_providedzd2fieldszd2_628 = 
CDR(BgL_fz00_2279); } } 
{ /* ./Match/normalize.scm 566 */
obj_t BgL_patternz00_629;
{ /* ./Match/normalize.scm 575 */
obj_t BgL_arg1390z00_631;obj_t BgL_arg1392z00_632;
BgL_arg1390z00_631 = BGl_symbol3604z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 577 */
obj_t BgL_arg1395z00_633;
{ /* ./Match/normalize.scm 577 */
obj_t BgL_arg1398z00_634;
{ /* ./Match/normalize.scm 577 */
bool_t BgL_testz00_2733;
{ /* ./Match/normalize.scm 577 */
obj_t BgL_auxz00_2734;
BgL_auxz00_2734 = 
CAR(BgL_fz00_2279); 
BgL_testz00_2733 = 
PAIRP(BgL_auxz00_2734); } 
if(BgL_testz00_2733)
{ /* ./Match/normalize.scm 577 */
if(
NULLP(BgL_fieldsz00_627))
{ /* ./Match/normalize.scm 578 */
BgL_arg1398z00_634 = BNIL; }  else 
{ /* ./Match/normalize.scm 578 */
obj_t BgL_head1038z00_639;
BgL_head1038z00_639 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1036z00_640;obj_t BgL_tail1039z00_641;
BgL_l1036z00_640 = BgL_fieldsz00_627; 
BgL_tail1039z00_641 = BgL_head1038z00_639; 
BgL_map1037z00_642:
if(
NULLP(BgL_l1036z00_640))
{ /* ./Match/normalize.scm 578 */
BgL_arg1398z00_634 = 
CDR(BgL_head1038z00_639); }  else 
{ /* ./Match/normalize.scm 579 */
obj_t BgL_newtail1040z00_644;
{ /* ./Match/normalize.scm 579 */
obj_t BgL_arg1412z00_646;
{ /* ./Match/normalize.scm 579 */
obj_t BgL_fieldz00_648;
BgL_fieldz00_648 = 
CAR(BgL_l1036z00_640); 
{ /* ./Match/normalize.scm 579 */
bool_t BgL_testz00_2744;
{ /* ./Match/normalize.scm 579 */
obj_t BgL_auxz00_2745;
BgL_auxz00_2745 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_fieldz00_648, BgL_providedzd2fieldszd2_628); 
BgL_testz00_2744 = 
CBOOL(BgL_auxz00_2745); } 
if(BgL_testz00_2744)
{ /* ./Match/normalize.scm 580 */
obj_t BgL_auxz00_2748;
{ /* ./Match/normalize.scm 580 */
obj_t BgL_auxz00_2749;
BgL_auxz00_2749 = 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_fieldz00_648, BgL_providedzd2fieldszd2_628); 
BgL_auxz00_2748 = 
CDR(BgL_auxz00_2749); } 
BgL_arg1412z00_646 = 
CAR(BgL_auxz00_2748); }  else 
{ /* ./Match/normalize.scm 579 */
BgL_arg1412z00_646 = BGl_symbol3610z00zz__match_normaliza7eza7; } } } 
BgL_newtail1040z00_644 = 
MAKE_PAIR(BgL_arg1412z00_646, BNIL); } 
SET_CDR(BgL_tail1039z00_641, BgL_newtail1040z00_644); 
{ 
obj_t BgL_tail1039z00_2757;obj_t BgL_l1036z00_2755;
BgL_l1036z00_2755 = 
CDR(BgL_l1036z00_640); 
BgL_tail1039z00_2757 = BgL_newtail1040z00_644; 
BgL_tail1039z00_641 = BgL_tail1039z00_2757; 
BgL_l1036z00_640 = BgL_l1036z00_2755; 
goto BgL_map1037z00_642;} } } } }  else 
{ /* ./Match/normalize.scm 577 */
BgL_arg1398z00_634 = 
CDR(BgL_fz00_2279); } } 
BgL_arg1395z00_633 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1398z00_634, BNIL); } 
BgL_arg1392z00_632 = 
MAKE_PAIR(BgL_namez00_626, BgL_arg1395z00_633); } 
BgL_patternz00_629 = 
MAKE_PAIR(BgL_arg1390z00_631, BgL_arg1392z00_632); } 
{ /* ./Match/normalize.scm 574 */

{ /* ./Match/normalize.scm 585 */
obj_t BgL_fun1387z00_630;
BgL_fun1387z00_630 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_patternz00_629); 
return 
PROCEDURE_ENTRY(BgL_fun1387z00_630)(BgL_fun1387z00_630, BgL_rz00_621, BgL_cz00_622, BEOA);} } } } } } } } } } } 
}



/* <anonymous:1329> */
obj_t BGl_zc3anonymousza31329ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2282, obj_t BgL_namez00_2283, obj_t BgL_eza2za2_2284)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 528 */
{ 
obj_t BgL_namez00_588;obj_t BgL_eza2za2_589;
BgL_namez00_588 = BgL_namez00_2283; 
BgL_eza2za2_589 = BgL_eza2za2_2284; 
{ /* ./Match/normalize.scm 538 */
obj_t BgL_zc3anonymousza31330ze3z83_2252;
{ 
int BgL_auxz00_2767;int BgL_auxz00_2765;
BgL_auxz00_2767 = 
(int)(((long)2)); 
BgL_auxz00_2765 = 
(int)(((long)2)); 
BgL_zc3anonymousza31330ze3z83_2252 = 
make_fx_procedure(BGl_zc3anonymousza31330ze3z83zz__match_normaliza7eza7, BgL_auxz00_2765, BgL_auxz00_2767); } 
{ /* ./Match/normalize.scm 538 */
int BgL_auxz00_2770;
BgL_auxz00_2770 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_2252, BgL_auxz00_2770, BgL_eza2za2_589); } 
{ /* ./Match/normalize.scm 538 */
int BgL_auxz00_2773;
BgL_auxz00_2773 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31330ze3z83_2252, BgL_auxz00_2773, BgL_namez00_588); } 
return BgL_zc3anonymousza31330ze3z83_2252;} } } 
}



/* <anonymous:1330> */
obj_t BGl_zc3anonymousza31330ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2285, obj_t BgL_rz00_2288, obj_t BgL_cz00_2289)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 538 */
{ /* ./Match/normalize.scm 539 */
obj_t BgL_eza2za2_2286;obj_t BgL_namez00_2287;
{ /* ./Match/normalize.scm 539 */
int BgL_auxz00_2776;
BgL_auxz00_2776 = 
(int)(((long)0)); 
BgL_eza2za2_2286 = 
PROCEDURE_REF(BgL_envz00_2285, BgL_auxz00_2776); } 
{ /* ./Match/normalize.scm 539 */
int BgL_auxz00_2779;
BgL_auxz00_2779 = 
(int)(((long)1)); 
BgL_namez00_2287 = 
PROCEDURE_REF(BgL_envz00_2285, BgL_auxz00_2779); } 
{ 
obj_t BgL_rz00_591;obj_t BgL_cz00_592;
BgL_rz00_591 = BgL_rz00_2288; 
BgL_cz00_592 = BgL_cz00_2289; 
{ /* ./Match/normalize.scm 539 */
obj_t BgL_arg1332z00_594;
{ /* ./Match/normalize.scm 539 */
obj_t BgL_arg1335z00_595;obj_t BgL_arg1336z00_596;
BgL_arg1335z00_595 = BGl_symbol3604z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 540 */
obj_t BgL_arg1340z00_597;
{ /* ./Match/normalize.scm 540 */
obj_t BgL_arg1343z00_598;
if(
NULLP(BgL_eza2za2_2286))
{ /* ./Match/normalize.scm 540 */
BgL_arg1343z00_598 = BNIL; }  else 
{ /* ./Match/normalize.scm 540 */
obj_t BgL_head1028z00_602;
{ /* ./Match/normalize.scm 540 */
obj_t BgL_arg1368z00_613;
{ /* ./Match/normalize.scm 540 */
obj_t BgL_arg1374z00_615;
BgL_arg1374z00_615 = 
CAR(BgL_eza2za2_2286); 
{ /* ./Match/normalize.scm 540 */
obj_t BgL_fun1669z00_1464;
BgL_fun1669z00_1464 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_arg1374z00_615); 
BgL_arg1368z00_613 = 
PROCEDURE_ENTRY(BgL_fun1669z00_1464)(BgL_fun1669z00_1464, BGl_rze2macrozd2patternz30zz__match_normaliza7eza7, BGl_proc3611z00zz__match_normaliza7eza7, BEOA); } } 
BgL_head1028z00_602 = 
MAKE_PAIR(BgL_arg1368z00_613, BNIL); } 
{ /* ./Match/normalize.scm 540 */
obj_t BgL_arg1348z00_606;
BgL_arg1348z00_606 = 
CDR(BgL_eza2za2_2286); 
{ 
obj_t BgL_l1026z00_1472;obj_t BgL_tail1029z00_1473;
BgL_l1026z00_1472 = BgL_arg1348z00_606; 
BgL_tail1029z00_1473 = BgL_head1028z00_602; 
BgL_map1027z00_1471:
if(
NULLP(BgL_l1026z00_1472))
{ /* ./Match/normalize.scm 540 */
BgL_arg1343z00_598 = BgL_head1028z00_602; }  else 
{ /* ./Match/normalize.scm 540 */
obj_t BgL_newtail1030z00_1481;
{ /* ./Match/normalize.scm 540 */
obj_t BgL_auxz00_2792;
BgL_auxz00_2792 = 
BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(
CAR(BgL_l1026z00_1472)); 
BgL_newtail1030z00_1481 = 
MAKE_PAIR(BgL_auxz00_2792, BNIL); } 
SET_CDR(BgL_tail1029z00_1473, BgL_newtail1030z00_1481); 
{ 
obj_t BgL_tail1029z00_2799;obj_t BgL_l1026z00_2797;
BgL_l1026z00_2797 = 
CDR(BgL_l1026z00_1472); 
BgL_tail1029z00_2799 = BgL_newtail1030z00_1481; 
BgL_tail1029z00_1473 = BgL_tail1029z00_2799; 
BgL_l1026z00_1472 = BgL_l1026z00_2797; 
goto BgL_map1027z00_1471;} } } } } 
BgL_arg1340z00_597 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1343z00_598, BNIL); } 
BgL_arg1336z00_596 = 
MAKE_PAIR(BgL_namez00_2287, BgL_arg1340z00_597); } 
BgL_arg1332z00_594 = 
MAKE_PAIR(BgL_arg1335z00_595, BgL_arg1336z00_596); } 
return 
PROCEDURE_ENTRY(BgL_cz00_592)(BgL_cz00_592, BgL_arg1332z00_594, BgL_rz00_591, BEOA);} } } } 
}



/* <anonymous:1671> */
obj_t BGl_zc3anonymousza31671ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2290, obj_t BgL_patternz00_2291, obj_t BgL_rrz00_2292)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 117 */
return BgL_patternz00_2291;} 
}



/* <anonymous:1302> */
obj_t BGl_zc3anonymousza31302ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2293, obj_t BgL_lz00_2294)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_572;
BgL_lz00_572 = BgL_lz00_2294; 
{ /* ./Match/normalize.scm 451 */
bool_t BgL_test1303z00_574;
if(
NULLP(BgL_lz00_572))
{ /* ./Match/normalize.scm 451 */
BgL_test1303z00_574 = ((bool_t)1); }  else 
{ /* ./Match/normalize.scm 451 */
obj_t BgL_auxz00_2807;
BgL_auxz00_2807 = 
CDR(BgL_lz00_572); 
BgL_test1303z00_574 = 
PAIRP(BgL_auxz00_2807); } 
if(BgL_test1303z00_574)
{ /* ./Match/normalize.scm 452 */
obj_t BgL_procz00_1448;
BgL_procz00_1448 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1448,BGl_string3613z00zz__match_normaliza7eza7,BgL_lz00_572);}  else 
{ /* ./Match/normalize.scm 453 */
obj_t BgL_zc3anonymousza31305ze3z83_2254;
{ 
int BgL_auxz00_2814;int BgL_auxz00_2812;
BgL_auxz00_2814 = 
(int)(((long)1)); 
BgL_auxz00_2812 = 
(int)(((long)2)); 
BgL_zc3anonymousza31305ze3z83_2254 = 
make_fx_procedure(BGl_zc3anonymousza31305ze3z83zz__match_normaliza7eza7, BgL_auxz00_2812, BgL_auxz00_2814); } 
{ /* ./Match/normalize.scm 453 */
int BgL_auxz00_2817;
BgL_auxz00_2817 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31305ze3z83_2254, BgL_auxz00_2817, BgL_lz00_572); } 
return BgL_zc3anonymousza31305ze3z83_2254;} } } } 
}



/* <anonymous:1305> */
obj_t BGl_zc3anonymousza31305ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2295, obj_t BgL_rz00_2297, obj_t BgL_cz00_2298)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 453 */
{ /* ./Match/normalize.scm 454 */
obj_t BgL_lz00_2296;
{ /* ./Match/normalize.scm 454 */
int BgL_auxz00_2820;
BgL_auxz00_2820 = 
(int)(((long)0)); 
BgL_lz00_2296 = 
PROCEDURE_REF(BgL_envz00_2295, BgL_auxz00_2820); } 
{ 
obj_t BgL_rz00_575;obj_t BgL_cz00_576;
BgL_rz00_575 = BgL_rz00_2297; 
BgL_cz00_576 = BgL_cz00_2298; 
{ /* ./Match/normalize.scm 454 */
obj_t BgL_arg1307z00_1451;
{ /* ./Match/normalize.scm 454 */
obj_t BgL_arg1310z00_1452;obj_t BgL_arg1311z00_1453;
BgL_arg1310z00_1452 = BGl_symbol3614z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 454 */
obj_t BgL_auxz00_2823;
BgL_auxz00_2823 = 
CAR(BgL_lz00_2296); 
BgL_arg1311z00_1453 = 
MAKE_PAIR(BgL_auxz00_2823, BNIL); } 
BgL_arg1307z00_1451 = 
MAKE_PAIR(BgL_arg1310z00_1452, BgL_arg1311z00_1453); } 
return 
PROCEDURE_ENTRY(BgL_cz00_576)(BgL_cz00_576, BgL_arg1307z00_1451, BgL_rz00_575, BEOA);} } } } 
}



/* <anonymous:1276> */
obj_t BGl_zc3anonymousza31276ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2299, obj_t BgL_lz00_2300)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_556;
BgL_lz00_556 = BgL_lz00_2300; 
{ /* ./Match/normalize.scm 445 */
bool_t BgL_test1277z00_558;
if(
NULLP(BgL_lz00_556))
{ /* ./Match/normalize.scm 445 */
BgL_test1277z00_558 = ((bool_t)1); }  else 
{ /* ./Match/normalize.scm 445 */
obj_t BgL_auxz00_2831;
BgL_auxz00_2831 = 
CDR(BgL_lz00_556); 
BgL_test1277z00_558 = 
PAIRP(BgL_auxz00_2831); } 
if(BgL_test1277z00_558)
{ /* ./Match/normalize.scm 446 */
obj_t BgL_procz00_1430;
BgL_procz00_1430 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1430,BGl_string3615z00zz__match_normaliza7eza7,BgL_lz00_556);}  else 
{ /* ./Match/normalize.scm 447 */
obj_t BgL_zc3anonymousza31279ze3z83_2256;
{ 
int BgL_auxz00_2838;int BgL_auxz00_2836;
BgL_auxz00_2838 = 
(int)(((long)1)); 
BgL_auxz00_2836 = 
(int)(((long)2)); 
BgL_zc3anonymousza31279ze3z83_2256 = 
make_fx_procedure(BGl_zc3anonymousza31279ze3z83zz__match_normaliza7eza7, BgL_auxz00_2836, BgL_auxz00_2838); } 
{ /* ./Match/normalize.scm 447 */
int BgL_auxz00_2841;
BgL_auxz00_2841 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31279ze3z83_2256, BgL_auxz00_2841, BgL_lz00_556); } 
return BgL_zc3anonymousza31279ze3z83_2256;} } } } 
}



/* <anonymous:1279> */
obj_t BGl_zc3anonymousza31279ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2301, obj_t BgL_rz00_2303, obj_t BgL_cz00_2304)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 447 */
{ /* ./Match/normalize.scm 448 */
obj_t BgL_lz00_2302;
{ /* ./Match/normalize.scm 448 */
int BgL_auxz00_2844;
BgL_auxz00_2844 = 
(int)(((long)0)); 
BgL_lz00_2302 = 
PROCEDURE_REF(BgL_envz00_2301, BgL_auxz00_2844); } 
{ 
obj_t BgL_rz00_559;obj_t BgL_cz00_560;
BgL_rz00_559 = BgL_rz00_2303; 
BgL_cz00_560 = BgL_cz00_2304; 
{ /* ./Match/normalize.scm 448 */
obj_t BgL_arg1281z00_1433;
{ /* ./Match/normalize.scm 448 */
obj_t BgL_arg1284z00_1434;obj_t BgL_arg1285z00_1435;
BgL_arg1284z00_1434 = BGl_symbol3616z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 448 */
obj_t BgL_auxz00_2847;
BgL_auxz00_2847 = 
CAR(BgL_lz00_2302); 
BgL_arg1285z00_1435 = 
MAKE_PAIR(BgL_auxz00_2847, BNIL); } 
BgL_arg1281z00_1433 = 
MAKE_PAIR(BgL_arg1284z00_1434, BgL_arg1285z00_1435); } 
return 
PROCEDURE_ENTRY(BgL_cz00_560)(BgL_cz00_560, BgL_arg1281z00_1433, BgL_rz00_559, BEOA);} } } } 
}



/* <anonymous:1246> */
obj_t BGl_zc3anonymousza31246ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2305, obj_t BgL_lz00_2306)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_535;
BgL_lz00_535 = BgL_lz00_2306; 
{ /* ./Match/normalize.scm 435 */
bool_t BgL_test1247z00_537;
if(
NULLP(BgL_lz00_535))
{ /* ./Match/normalize.scm 435 */
BgL_test1247z00_537 = ((bool_t)1); }  else 
{ /* ./Match/normalize.scm 435 */
obj_t BgL_auxz00_2855;
BgL_auxz00_2855 = 
CDR(BgL_lz00_535); 
BgL_test1247z00_537 = 
PAIRP(BgL_auxz00_2855); } 
if(BgL_test1247z00_537)
{ /* ./Match/normalize.scm 436 */
obj_t BgL_procz00_1407;
BgL_procz00_1407 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1407,BGl_string3617z00zz__match_normaliza7eza7,BgL_lz00_535);}  else 
{ /* ./Match/normalize.scm 437 */
obj_t BgL_ez00_538;
BgL_ez00_538 = 
CAR(BgL_lz00_535); 
{ /* ./Match/normalize.scm 438 */
obj_t BgL_zc3anonymousza31249ze3z83_2259;
{ 
int BgL_auxz00_2863;int BgL_auxz00_2861;
BgL_auxz00_2863 = 
(int)(((long)1)); 
BgL_auxz00_2861 = 
(int)(((long)2)); 
BgL_zc3anonymousza31249ze3z83_2259 = 
make_fx_procedure(BGl_zc3anonymousza31249ze3z83zz__match_normaliza7eza7, BgL_auxz00_2861, BgL_auxz00_2863); } 
{ /* ./Match/normalize.scm 438 */
int BgL_auxz00_2866;
BgL_auxz00_2866 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31249ze3z83_2259, BgL_auxz00_2866, BgL_ez00_538); } 
return BgL_zc3anonymousza31249ze3z83_2259;} } } } } 
}



/* <anonymous:1249> */
obj_t BGl_zc3anonymousza31249ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2307, obj_t BgL_rz00_2309, obj_t BgL_cz00_2310)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 438 */
{ /* ./Match/normalize.scm 439 */
obj_t BgL_ez00_2308;
{ /* ./Match/normalize.scm 439 */
int BgL_auxz00_2869;
BgL_auxz00_2869 = 
(int)(((long)0)); 
BgL_ez00_2308 = 
PROCEDURE_REF(BgL_envz00_2307, BgL_auxz00_2869); } 
{ 
obj_t BgL_rz00_539;obj_t BgL_cz00_540;
BgL_rz00_539 = BgL_rz00_2309; 
BgL_cz00_540 = BgL_cz00_2310; 
{ /* ./Match/normalize.scm 439 */
obj_t BgL_fun1253z00_1411;
BgL_fun1253z00_1411 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2308); 
{ /* ./Match/normalize.scm 439 */
obj_t BgL_zc3anonymousza31255ze3z83_2258;
{ 
int BgL_auxz00_2875;int BgL_auxz00_2873;
BgL_auxz00_2875 = 
(int)(((long)2)); 
BgL_auxz00_2873 = 
(int)(((long)2)); 
BgL_zc3anonymousza31255ze3z83_2258 = 
make_fx_procedure(BGl_zc3anonymousza31255ze3z83zz__match_normaliza7eza7, BgL_auxz00_2873, BgL_auxz00_2875); } 
{ /* ./Match/normalize.scm 439 */
int BgL_auxz00_2878;
BgL_auxz00_2878 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31255ze3z83_2258, BgL_auxz00_2878, BgL_cz00_540); } 
{ /* ./Match/normalize.scm 439 */
int BgL_auxz00_2881;
BgL_auxz00_2881 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31255ze3z83_2258, BgL_auxz00_2881, BgL_rz00_539); } 
return 
PROCEDURE_ENTRY(BgL_fun1253z00_1411)(BgL_fun1253z00_1411, BgL_rz00_539, BgL_zc3anonymousza31255ze3z83_2258, BEOA);} } } } } 
}



/* <anonymous:1255> */
obj_t BGl_zc3anonymousza31255ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2311, obj_t BgL_patternz00_2314, obj_t BgL_rrz00_2315)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 441 */
{ /* ./Match/normalize.scm 439 */
obj_t BgL_cz00_2312;obj_t BgL_rz00_2313;
{ /* ./Match/normalize.scm 439 */
int BgL_auxz00_2886;
BgL_auxz00_2886 = 
(int)(((long)0)); 
BgL_cz00_2312 = 
PROCEDURE_REF(BgL_envz00_2311, BgL_auxz00_2886); } 
{ /* ./Match/normalize.scm 439 */
int BgL_auxz00_2889;
BgL_auxz00_2889 = 
(int)(((long)1)); 
BgL_rz00_2313 = 
PROCEDURE_REF(BgL_envz00_2311, BgL_auxz00_2889); } 
{ 
obj_t BgL_patternz00_1413;obj_t BgL_rrz00_1414;
BgL_patternz00_1413 = BgL_patternz00_2314; 
BgL_rrz00_1414 = BgL_rrz00_2315; 
{ /* ./Match/normalize.scm 439 */
obj_t BgL_arg1258z00_1418;
{ /* ./Match/normalize.scm 439 */
obj_t BgL_arg1261z00_1419;obj_t BgL_arg1262z00_1420;
BgL_arg1261z00_1419 = BGl_symbol3597z00zz__match_normaliza7eza7; 
BgL_arg1262z00_1420 = 
MAKE_PAIR(BgL_patternz00_1413, BNIL); 
BgL_arg1258z00_1418 = 
MAKE_PAIR(BgL_arg1261z00_1419, BgL_arg1262z00_1420); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2312)(BgL_cz00_2312, BgL_arg1258z00_1418, BgL_rz00_2313, BEOA);} } } } 
}



/* <anonymous:1201> */
obj_t BGl_zc3anonymousza31201ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2316, obj_t BgL_lz00_2317)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_505;
BgL_lz00_505 = BgL_lz00_2317; 
if(
NULLP(BgL_lz00_505))
{ /* ./Match/normalize.scm 420 */
obj_t BgL_procz00_1388;
BgL_procz00_1388 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1388,BGl_string3618z00zz__match_normaliza7eza7,BgL_lz00_505);}  else 
{ /* ./Match/normalize.scm 421 */
obj_t BgL_ez00_508;obj_t BgL_eza2za2_509;
BgL_ez00_508 = 
CAR(BgL_lz00_505); 
BgL_eza2za2_509 = 
CDR(BgL_lz00_505); 
{ /* ./Match/normalize.scm 423 */
obj_t BgL_zc3anonymousza31204ze3z83_2263;
{ 
int BgL_auxz00_2903;int BgL_auxz00_2901;
BgL_auxz00_2903 = 
(int)(((long)2)); 
BgL_auxz00_2901 = 
(int)(((long)2)); 
BgL_zc3anonymousza31204ze3z83_2263 = 
make_fx_procedure(BGl_zc3anonymousza31204ze3z83zz__match_normaliza7eza7, BgL_auxz00_2901, BgL_auxz00_2903); } 
{ /* ./Match/normalize.scm 423 */
int BgL_auxz00_2906;
BgL_auxz00_2906 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31204ze3z83_2263, BgL_auxz00_2906, BgL_eza2za2_509); } 
{ /* ./Match/normalize.scm 423 */
int BgL_auxz00_2909;
BgL_auxz00_2909 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31204ze3z83_2263, BgL_auxz00_2909, BgL_ez00_508); } 
return BgL_zc3anonymousza31204ze3z83_2263;} } } } 
}



/* <anonymous:1204> */
obj_t BGl_zc3anonymousza31204ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2318, obj_t BgL_rz00_2321, obj_t BgL_cz00_2322)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 423 */
{ /* ./Match/normalize.scm 424 */
obj_t BgL_eza2za2_2319;obj_t BgL_ez00_2320;
{ /* ./Match/normalize.scm 424 */
int BgL_auxz00_2912;
BgL_auxz00_2912 = 
(int)(((long)0)); 
BgL_eza2za2_2319 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_2912); } 
{ /* ./Match/normalize.scm 424 */
int BgL_auxz00_2915;
BgL_auxz00_2915 = 
(int)(((long)1)); 
BgL_ez00_2320 = 
PROCEDURE_REF(BgL_envz00_2318, BgL_auxz00_2915); } 
{ 
obj_t BgL_rz00_510;obj_t BgL_cz00_511;
BgL_rz00_510 = BgL_rz00_2321; 
BgL_cz00_511 = BgL_cz00_2322; 
if(
PAIRP(BgL_eza2za2_2319))
{ /* ./Match/normalize.scm 425 */
obj_t BgL_fun1209z00_514;
BgL_fun1209z00_514 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2320); 
{ /* ./Match/normalize.scm 428 */
obj_t BgL_zc3anonymousza31211ze3z83_2262;
{ 
int BgL_auxz00_2923;int BgL_auxz00_2921;
BgL_auxz00_2923 = 
(int)(((long)2)); 
BgL_auxz00_2921 = 
(int)(((long)2)); 
BgL_zc3anonymousza31211ze3z83_2262 = 
make_fx_procedure(BGl_zc3anonymousza31211ze3z83zz__match_normaliza7eza7, BgL_auxz00_2921, BgL_auxz00_2923); } 
{ /* ./Match/normalize.scm 428 */
int BgL_auxz00_2926;
BgL_auxz00_2926 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31211ze3z83_2262, BgL_auxz00_2926, BgL_eza2za2_2319); } 
{ /* ./Match/normalize.scm 428 */
int BgL_auxz00_2929;
BgL_auxz00_2929 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31211ze3z83_2262, BgL_auxz00_2929, BgL_cz00_511); } 
return 
PROCEDURE_ENTRY(BgL_fun1209z00_514)(BgL_fun1209z00_514, BgL_rz00_510, BgL_zc3anonymousza31211ze3z83_2262, BEOA);} }  else 
{ /* ./Match/normalize.scm 432 */
obj_t BgL_fun1235z00_531;
BgL_fun1235z00_531 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2320); 
return 
PROCEDURE_ENTRY(BgL_fun1235z00_531)(BgL_fun1235z00_531, BgL_rz00_510, BgL_cz00_511, BEOA);} } } } 
}



/* <anonymous:1211> */
obj_t BGl_zc3anonymousza31211ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2323, obj_t BgL_pattern1z00_2326, obj_t BgL_rrz00_2327)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 427 */
{ /* ./Match/normalize.scm 428 */
obj_t BgL_eza2za2_2324;obj_t BgL_cz00_2325;
{ /* ./Match/normalize.scm 428 */
int BgL_auxz00_2937;
BgL_auxz00_2937 = 
(int)(((long)0)); 
BgL_eza2za2_2324 = 
PROCEDURE_REF(BgL_envz00_2323, BgL_auxz00_2937); } 
{ /* ./Match/normalize.scm 428 */
int BgL_auxz00_2940;
BgL_auxz00_2940 = 
(int)(((long)1)); 
BgL_cz00_2325 = 
PROCEDURE_REF(BgL_envz00_2323, BgL_auxz00_2940); } 
{ 
obj_t BgL_pattern1z00_516;obj_t BgL_rrz00_517;
BgL_pattern1z00_516 = BgL_pattern1z00_2326; 
BgL_rrz00_517 = BgL_rrz00_2327; 
{ /* ./Match/normalize.scm 428 */
obj_t BgL_fun1218z00_520;
{ /* ./Match/normalize.scm 428 */
obj_t BgL_arg1214z00_519;
BgL_arg1214z00_519 = 
MAKE_PAIR(BGl_symbol3595z00zz__match_normaliza7eza7, BgL_eza2za2_2324); 
BgL_fun1218z00_520 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_arg1214z00_519); } 
{ /* ./Match/normalize.scm 431 */
obj_t BgL_zc3anonymousza31220ze3z83_2261;
{ 
int BgL_auxz00_2947;int BgL_auxz00_2945;
BgL_auxz00_2947 = 
(int)(((long)2)); 
BgL_auxz00_2945 = 
(int)(((long)2)); 
BgL_zc3anonymousza31220ze3z83_2261 = 
make_fx_procedure(BGl_zc3anonymousza31220ze3z83zz__match_normaliza7eza7, BgL_auxz00_2945, BgL_auxz00_2947); } 
{ /* ./Match/normalize.scm 431 */
int BgL_auxz00_2950;
BgL_auxz00_2950 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31220ze3z83_2261, BgL_auxz00_2950, BgL_pattern1z00_516); } 
{ /* ./Match/normalize.scm 431 */
int BgL_auxz00_2953;
BgL_auxz00_2953 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31220ze3z83_2261, BgL_auxz00_2953, BgL_cz00_2325); } 
return 
PROCEDURE_ENTRY(BgL_fun1218z00_520)(BgL_fun1218z00_520, BgL_rrz00_517, BgL_zc3anonymousza31220ze3z83_2261, BEOA);} } } } } 
}



/* <anonymous:1220> */
obj_t BGl_zc3anonymousza31220ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2328, obj_t BgL_pattern2z00_2331, obj_t BgL_rrrz00_2332)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 430 */
{ /* ./Match/normalize.scm 431 */
obj_t BgL_pattern1z00_2329;obj_t BgL_cz00_2330;
{ /* ./Match/normalize.scm 431 */
int BgL_auxz00_2958;
BgL_auxz00_2958 = 
(int)(((long)0)); 
BgL_pattern1z00_2329 = 
PROCEDURE_REF(BgL_envz00_2328, BgL_auxz00_2958); } 
{ /* ./Match/normalize.scm 431 */
int BgL_auxz00_2961;
BgL_auxz00_2961 = 
(int)(((long)1)); 
BgL_cz00_2330 = 
PROCEDURE_REF(BgL_envz00_2328, BgL_auxz00_2961); } 
{ 
obj_t BgL_pattern2z00_522;obj_t BgL_rrrz00_523;
BgL_pattern2z00_522 = BgL_pattern2z00_2331; 
BgL_rrrz00_523 = BgL_rrrz00_2332; 
{ /* ./Match/normalize.scm 431 */
obj_t BgL_arg1222z00_1394;
{ /* ./Match/normalize.scm 431 */
obj_t BgL_arg1225z00_1395;obj_t BgL_arg1227z00_1396;
BgL_arg1225z00_1395 = BGl_symbol3595z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 431 */
obj_t BgL_arg1230z00_1397;
BgL_arg1230z00_1397 = 
MAKE_PAIR(BgL_pattern2z00_522, BNIL); 
BgL_arg1227z00_1396 = 
MAKE_PAIR(BgL_pattern1z00_2329, BgL_arg1230z00_1397); } 
BgL_arg1222z00_1394 = 
MAKE_PAIR(BgL_arg1225z00_1395, BgL_arg1227z00_1396); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2330)(BgL_cz00_2330, BgL_arg1222z00_1394, BgL_rrrz00_523, BEOA);} } } } 
}



/* <anonymous:1153> */
obj_t BGl_zc3anonymousza31153ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2333, obj_t BgL_lz00_2334)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_473;
BgL_lz00_473 = BgL_lz00_2334; 
if(
NULLP(BgL_lz00_473))
{ /* ./Match/normalize.scm 401 */
obj_t BgL_procz00_1370;
BgL_procz00_1370 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1370,BGl_string3619z00zz__match_normaliza7eza7,BgL_lz00_473);}  else 
{ /* ./Match/normalize.scm 402 */
obj_t BgL_ez00_476;obj_t BgL_eza2za2_477;
BgL_ez00_476 = 
CAR(BgL_lz00_473); 
BgL_eza2za2_477 = 
CDR(BgL_lz00_473); 
{ /* ./Match/normalize.scm 404 */
obj_t BgL_zc3anonymousza31156ze3z83_2267;
{ 
int BgL_auxz00_2976;int BgL_auxz00_2974;
BgL_auxz00_2976 = 
(int)(((long)3)); 
BgL_auxz00_2974 = 
(int)(((long)2)); 
BgL_zc3anonymousza31156ze3z83_2267 = 
make_fx_procedure(BGl_zc3anonymousza31156ze3z83zz__match_normaliza7eza7, BgL_auxz00_2974, BgL_auxz00_2976); } 
{ /* ./Match/normalize.scm 404 */
int BgL_auxz00_2979;
BgL_auxz00_2979 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31156ze3z83_2267, BgL_auxz00_2979, BgL_eza2za2_477); } 
{ /* ./Match/normalize.scm 404 */
int BgL_auxz00_2982;
BgL_auxz00_2982 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31156ze3z83_2267, BgL_auxz00_2982, BgL_ez00_476); } 
{ /* ./Match/normalize.scm 404 */
int BgL_auxz00_2985;
BgL_auxz00_2985 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31156ze3z83_2267, BgL_auxz00_2985, BgL_lz00_473); } 
return BgL_zc3anonymousza31156ze3z83_2267;} } } } 
}



/* <anonymous:1156> */
obj_t BGl_zc3anonymousza31156ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2335, obj_t BgL_rz00_2339, obj_t BgL_cz00_2340)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 404 */
{ /* ./Match/normalize.scm 405 */
obj_t BgL_eza2za2_2336;obj_t BgL_ez00_2337;obj_t BgL_lz00_2338;
{ /* ./Match/normalize.scm 405 */
int BgL_auxz00_2988;
BgL_auxz00_2988 = 
(int)(((long)0)); 
BgL_eza2za2_2336 = 
PROCEDURE_REF(BgL_envz00_2335, BgL_auxz00_2988); } 
{ /* ./Match/normalize.scm 405 */
int BgL_auxz00_2991;
BgL_auxz00_2991 = 
(int)(((long)1)); 
BgL_ez00_2337 = 
PROCEDURE_REF(BgL_envz00_2335, BgL_auxz00_2991); } 
{ /* ./Match/normalize.scm 405 */
int BgL_auxz00_2994;
BgL_auxz00_2994 = 
(int)(((long)2)); 
BgL_lz00_2338 = 
PROCEDURE_REF(BgL_envz00_2335, BgL_auxz00_2994); } 
{ 
obj_t BgL_rz00_478;obj_t BgL_cz00_479;
BgL_rz00_478 = BgL_rz00_2339; 
BgL_cz00_479 = BgL_cz00_2340; 
if(
PAIRP(BgL_eza2za2_2336))
{ /* ./Match/normalize.scm 406 */
obj_t BgL_fun1161z00_482;
BgL_fun1161z00_482 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2337); 
{ /* ./Match/normalize.scm 409 */
obj_t BgL_zc3anonymousza31163ze3z83_2266;
{ 
int BgL_auxz00_3002;int BgL_auxz00_3000;
BgL_auxz00_3002 = 
(int)(((long)4)); 
BgL_auxz00_3000 = 
(int)(((long)2)); 
BgL_zc3anonymousza31163ze3z83_2266 = 
make_fx_procedure(BGl_zc3anonymousza31163ze3z83zz__match_normaliza7eza7, BgL_auxz00_3000, BgL_auxz00_3002); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3005;
BgL_auxz00_3005 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31163ze3z83_2266, BgL_auxz00_3005, BgL_eza2za2_2336); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3008;
BgL_auxz00_3008 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31163ze3z83_2266, BgL_auxz00_3008, BgL_lz00_2338); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3011;
BgL_auxz00_3011 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31163ze3z83_2266, BgL_auxz00_3011, BgL_cz00_479); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3014;
BgL_auxz00_3014 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31163ze3z83_2266, BgL_auxz00_3014, BgL_rz00_478); } 
return 
PROCEDURE_ENTRY(BgL_fun1161z00_482)(BgL_fun1161z00_482, BgL_rz00_478, BgL_zc3anonymousza31163ze3z83_2266, BEOA);} }  else 
{ /* ./Match/normalize.scm 416 */
obj_t BgL_fun1191z00_501;
BgL_fun1191z00_501 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2337); 
return 
PROCEDURE_ENTRY(BgL_fun1191z00_501)(BgL_fun1191z00_501, BgL_rz00_478, BgL_cz00_479, BEOA);} } } } 
}



/* <anonymous:1163> */
obj_t BGl_zc3anonymousza31163ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2341, obj_t BgL_pattern1z00_2346, obj_t BgL_rrz00_2347)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 408 */
{ /* ./Match/normalize.scm 409 */
obj_t BgL_eza2za2_2342;obj_t BgL_lz00_2343;obj_t BgL_cz00_2344;obj_t BgL_rz00_2345;
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3022;
BgL_auxz00_3022 = 
(int)(((long)0)); 
BgL_eza2za2_2342 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_3022); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3025;
BgL_auxz00_3025 = 
(int)(((long)1)); 
BgL_lz00_2343 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_3025); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3028;
BgL_auxz00_3028 = 
(int)(((long)2)); 
BgL_cz00_2344 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_3028); } 
{ /* ./Match/normalize.scm 409 */
int BgL_auxz00_3031;
BgL_auxz00_3031 = 
(int)(((long)3)); 
BgL_rz00_2345 = 
PROCEDURE_REF(BgL_envz00_2341, BgL_auxz00_3031); } 
{ 
obj_t BgL_pattern1z00_484;obj_t BgL_rrz00_485;
BgL_pattern1z00_484 = BgL_pattern1z00_2346; 
BgL_rrz00_485 = BgL_rrz00_2347; 
{ /* ./Match/normalize.scm 409 */
obj_t BgL_fun1170z00_488;
{ /* ./Match/normalize.scm 409 */
obj_t BgL_arg1166z00_487;
BgL_arg1166z00_487 = 
MAKE_PAIR(BGl_symbol3593z00zz__match_normaliza7eza7, BgL_eza2za2_2342); 
BgL_fun1170z00_488 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_arg1166z00_487); } 
{ /* ./Match/normalize.scm 412 */
obj_t BgL_zc3anonymousza31172ze3z83_2265;
{ 
int BgL_auxz00_3038;int BgL_auxz00_3036;
BgL_auxz00_3038 = 
(int)(((long)4)); 
BgL_auxz00_3036 = 
(int)(((long)2)); 
BgL_zc3anonymousza31172ze3z83_2265 = 
make_fx_procedure(BGl_zc3anonymousza31172ze3z83zz__match_normaliza7eza7, BgL_auxz00_3036, BgL_auxz00_3038); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3041;
BgL_auxz00_3041 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31172ze3z83_2265, BgL_auxz00_3041, BgL_rrz00_485); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3044;
BgL_auxz00_3044 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31172ze3z83_2265, BgL_auxz00_3044, BgL_lz00_2343); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3047;
BgL_auxz00_3047 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31172ze3z83_2265, BgL_auxz00_3047, BgL_pattern1z00_484); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3050;
BgL_auxz00_3050 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31172ze3z83_2265, BgL_auxz00_3050, BgL_cz00_2344); } 
return 
PROCEDURE_ENTRY(BgL_fun1170z00_488)(BgL_fun1170z00_488, BgL_rz00_2345, BgL_zc3anonymousza31172ze3z83_2265, BEOA);} } } } } 
}



/* <anonymous:1172> */
obj_t BGl_zc3anonymousza31172ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2348, obj_t BgL_pattern2z00_2353, obj_t BgL_rrrz00_2354)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 411 */
{ /* ./Match/normalize.scm 412 */
obj_t BgL_rrz00_2349;obj_t BgL_lz00_2350;obj_t BgL_pattern1z00_2351;obj_t BgL_cz00_2352;
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3055;
BgL_auxz00_3055 = 
(int)(((long)0)); 
BgL_rrz00_2349 = 
PROCEDURE_REF(BgL_envz00_2348, BgL_auxz00_3055); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3058;
BgL_auxz00_3058 = 
(int)(((long)1)); 
BgL_lz00_2350 = 
PROCEDURE_REF(BgL_envz00_2348, BgL_auxz00_3058); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3061;
BgL_auxz00_3061 = 
(int)(((long)2)); 
BgL_pattern1z00_2351 = 
PROCEDURE_REF(BgL_envz00_2348, BgL_auxz00_3061); } 
{ /* ./Match/normalize.scm 412 */
int BgL_auxz00_3064;
BgL_auxz00_3064 = 
(int)(((long)3)); 
BgL_cz00_2352 = 
PROCEDURE_REF(BgL_envz00_2348, BgL_auxz00_3064); } 
{ 
obj_t BgL_pattern2z00_490;obj_t BgL_rrrz00_491;
BgL_pattern2z00_490 = BgL_pattern2z00_2353; 
BgL_rrrz00_491 = BgL_rrrz00_2354; 
{ /* ./Match/normalize.scm 412 */
bool_t BgL_test1173z00_493;
if(
BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(BgL_rrz00_2349, BgL_rrrz00_491))
{ /* ./Match/normalize.scm 412 */
BgL_test1173z00_493 = 
BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(BgL_rrrz00_491, BgL_rrz00_2349); }  else 
{ /* ./Match/normalize.scm 412 */
BgL_test1173z00_493 = ((bool_t)0); } 
if(BgL_test1173z00_493)
{ /* ./Match/normalize.scm 414 */
obj_t BgL_arg1175z00_494;
{ /* ./Match/normalize.scm 414 */
obj_t BgL_arg1178z00_495;obj_t BgL_arg1179z00_496;
BgL_arg1178z00_495 = BGl_symbol3593z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 414 */
obj_t BgL_arg1182z00_497;
BgL_arg1182z00_497 = 
MAKE_PAIR(BgL_pattern2z00_490, BNIL); 
BgL_arg1179z00_496 = 
MAKE_PAIR(BgL_pattern1z00_2351, BgL_arg1182z00_497); } 
BgL_arg1175z00_494 = 
MAKE_PAIR(BgL_arg1178z00_495, BgL_arg1179z00_496); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2352)(BgL_cz00_2352, BgL_arg1175z00_494, BgL_rrrz00_491, BEOA);}  else 
{ /* ./Match/normalize.scm 415 */
obj_t BgL_procz00_1378;
BgL_procz00_1378 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1378,BGl_string3620z00zz__match_normaliza7eza7,BgL_lz00_2350);} } } } } 
}



/* <anonymous:1105> */
obj_t BGl_zc3anonymousza31105ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2355, obj_t BgL_lz00_2356)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_441;
BgL_lz00_441 = BgL_lz00_2356; 
if(
NULLP(BgL_lz00_441))
{ /* ./Match/normalize.scm 367 */
obj_t BgL_procz00_1352;
BgL_procz00_1352 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1352,BGl_string3621z00zz__match_normaliza7eza7,BgL_lz00_441);}  else 
{ /* ./Match/normalize.scm 368 */
obj_t BgL_ez00_444;obj_t BgL_eza2za2_445;
BgL_ez00_444 = 
CAR(BgL_lz00_441); 
BgL_eza2za2_445 = 
CDR(BgL_lz00_441); 
{ /* ./Match/normalize.scm 370 */
obj_t BgL_zc3anonymousza31108ze3z83_2271;
{ 
int BgL_auxz00_3084;int BgL_auxz00_3082;
BgL_auxz00_3084 = 
(int)(((long)3)); 
BgL_auxz00_3082 = 
(int)(((long)2)); 
BgL_zc3anonymousza31108ze3z83_2271 = 
make_fx_procedure(BGl_zc3anonymousza31108ze3z83zz__match_normaliza7eza7, BgL_auxz00_3082, BgL_auxz00_3084); } 
{ /* ./Match/normalize.scm 370 */
int BgL_auxz00_3087;
BgL_auxz00_3087 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31108ze3z83_2271, BgL_auxz00_3087, BgL_eza2za2_445); } 
{ /* ./Match/normalize.scm 370 */
int BgL_auxz00_3090;
BgL_auxz00_3090 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31108ze3z83_2271, BgL_auxz00_3090, BgL_ez00_444); } 
{ /* ./Match/normalize.scm 370 */
int BgL_auxz00_3093;
BgL_auxz00_3093 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31108ze3z83_2271, BgL_auxz00_3093, BgL_lz00_441); } 
return BgL_zc3anonymousza31108ze3z83_2271;} } } } 
}



/* <anonymous:1108> */
obj_t BGl_zc3anonymousza31108ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2357, obj_t BgL_rz00_2361, obj_t BgL_cz00_2362)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 370 */
{ /* ./Match/normalize.scm 371 */
obj_t BgL_eza2za2_2358;obj_t BgL_ez00_2359;obj_t BgL_lz00_2360;
{ /* ./Match/normalize.scm 371 */
int BgL_auxz00_3096;
BgL_auxz00_3096 = 
(int)(((long)0)); 
BgL_eza2za2_2358 = 
PROCEDURE_REF(BgL_envz00_2357, BgL_auxz00_3096); } 
{ /* ./Match/normalize.scm 371 */
int BgL_auxz00_3099;
BgL_auxz00_3099 = 
(int)(((long)1)); 
BgL_ez00_2359 = 
PROCEDURE_REF(BgL_envz00_2357, BgL_auxz00_3099); } 
{ /* ./Match/normalize.scm 371 */
int BgL_auxz00_3102;
BgL_auxz00_3102 = 
(int)(((long)2)); 
BgL_lz00_2360 = 
PROCEDURE_REF(BgL_envz00_2357, BgL_auxz00_3102); } 
{ 
obj_t BgL_rz00_446;obj_t BgL_cz00_447;
BgL_rz00_446 = BgL_rz00_2361; 
BgL_cz00_447 = BgL_cz00_2362; 
if(
PAIRP(BgL_eza2za2_2358))
{ /* ./Match/normalize.scm 372 */
obj_t BgL_fun1113z00_450;
BgL_fun1113z00_450 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2359); 
{ /* ./Match/normalize.scm 375 */
obj_t BgL_zc3anonymousza31115ze3z83_2270;
{ 
int BgL_auxz00_3110;int BgL_auxz00_3108;
BgL_auxz00_3110 = 
(int)(((long)4)); 
BgL_auxz00_3108 = 
(int)(((long)2)); 
BgL_zc3anonymousza31115ze3z83_2270 = 
make_fx_procedure(BGl_zc3anonymousza31115ze3z83zz__match_normaliza7eza7, BgL_auxz00_3108, BgL_auxz00_3110); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3113;
BgL_auxz00_3113 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31115ze3z83_2270, BgL_auxz00_3113, BgL_eza2za2_2358); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3116;
BgL_auxz00_3116 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31115ze3z83_2270, BgL_auxz00_3116, BgL_lz00_2360); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3119;
BgL_auxz00_3119 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31115ze3z83_2270, BgL_auxz00_3119, BgL_cz00_447); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3122;
BgL_auxz00_3122 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31115ze3z83_2270, BgL_auxz00_3122, BgL_rz00_446); } 
return 
PROCEDURE_ENTRY(BgL_fun1113z00_450)(BgL_fun1113z00_450, BgL_rz00_446, BgL_zc3anonymousza31115ze3z83_2270, BEOA);} }  else 
{ /* ./Match/normalize.scm 382 */
obj_t BgL_fun1143z00_469;
BgL_fun1143z00_469 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2359); 
return 
PROCEDURE_ENTRY(BgL_fun1143z00_469)(BgL_fun1143z00_469, BgL_rz00_446, BgL_cz00_447, BEOA);} } } } 
}



/* <anonymous:1115> */
obj_t BGl_zc3anonymousza31115ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2363, obj_t BgL_pattern1z00_2368, obj_t BgL_rrz00_2369)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 374 */
{ /* ./Match/normalize.scm 375 */
obj_t BgL_eza2za2_2364;obj_t BgL_lz00_2365;obj_t BgL_cz00_2366;obj_t BgL_rz00_2367;
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3130;
BgL_auxz00_3130 = 
(int)(((long)0)); 
BgL_eza2za2_2364 = 
PROCEDURE_REF(BgL_envz00_2363, BgL_auxz00_3130); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3133;
BgL_auxz00_3133 = 
(int)(((long)1)); 
BgL_lz00_2365 = 
PROCEDURE_REF(BgL_envz00_2363, BgL_auxz00_3133); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3136;
BgL_auxz00_3136 = 
(int)(((long)2)); 
BgL_cz00_2366 = 
PROCEDURE_REF(BgL_envz00_2363, BgL_auxz00_3136); } 
{ /* ./Match/normalize.scm 375 */
int BgL_auxz00_3139;
BgL_auxz00_3139 = 
(int)(((long)3)); 
BgL_rz00_2367 = 
PROCEDURE_REF(BgL_envz00_2363, BgL_auxz00_3139); } 
{ 
obj_t BgL_pattern1z00_452;obj_t BgL_rrz00_453;
BgL_pattern1z00_452 = BgL_pattern1z00_2368; 
BgL_rrz00_453 = BgL_rrz00_2369; 
{ /* ./Match/normalize.scm 375 */
obj_t BgL_fun1122z00_456;
{ /* ./Match/normalize.scm 375 */
obj_t BgL_arg1118z00_455;
BgL_arg1118z00_455 = 
MAKE_PAIR(BGl_symbol3591z00zz__match_normaliza7eza7, BgL_eza2za2_2364); 
BgL_fun1122z00_456 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_arg1118z00_455); } 
{ /* ./Match/normalize.scm 378 */
obj_t BgL_zc3anonymousza31124ze3z83_2269;
{ 
int BgL_auxz00_3146;int BgL_auxz00_3144;
BgL_auxz00_3146 = 
(int)(((long)4)); 
BgL_auxz00_3144 = 
(int)(((long)2)); 
BgL_zc3anonymousza31124ze3z83_2269 = 
make_fx_procedure(BGl_zc3anonymousza31124ze3z83zz__match_normaliza7eza7, BgL_auxz00_3144, BgL_auxz00_3146); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3149;
BgL_auxz00_3149 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31124ze3z83_2269, BgL_auxz00_3149, BgL_rrz00_453); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3152;
BgL_auxz00_3152 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31124ze3z83_2269, BgL_auxz00_3152, BgL_lz00_2365); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3155;
BgL_auxz00_3155 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31124ze3z83_2269, BgL_auxz00_3155, BgL_pattern1z00_452); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3158;
BgL_auxz00_3158 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31124ze3z83_2269, BgL_auxz00_3158, BgL_cz00_2366); } 
return 
PROCEDURE_ENTRY(BgL_fun1122z00_456)(BgL_fun1122z00_456, BgL_rz00_2367, BgL_zc3anonymousza31124ze3z83_2269, BEOA);} } } } } 
}



/* <anonymous:1124> */
obj_t BGl_zc3anonymousza31124ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2370, obj_t BgL_pattern2z00_2375, obj_t BgL_rrrz00_2376)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 377 */
{ /* ./Match/normalize.scm 378 */
obj_t BgL_rrz00_2371;obj_t BgL_lz00_2372;obj_t BgL_pattern1z00_2373;obj_t BgL_cz00_2374;
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3163;
BgL_auxz00_3163 = 
(int)(((long)0)); 
BgL_rrz00_2371 = 
PROCEDURE_REF(BgL_envz00_2370, BgL_auxz00_3163); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3166;
BgL_auxz00_3166 = 
(int)(((long)1)); 
BgL_lz00_2372 = 
PROCEDURE_REF(BgL_envz00_2370, BgL_auxz00_3166); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3169;
BgL_auxz00_3169 = 
(int)(((long)2)); 
BgL_pattern1z00_2373 = 
PROCEDURE_REF(BgL_envz00_2370, BgL_auxz00_3169); } 
{ /* ./Match/normalize.scm 378 */
int BgL_auxz00_3172;
BgL_auxz00_3172 = 
(int)(((long)3)); 
BgL_cz00_2374 = 
PROCEDURE_REF(BgL_envz00_2370, BgL_auxz00_3172); } 
{ 
obj_t BgL_pattern2z00_458;obj_t BgL_rrrz00_459;
BgL_pattern2z00_458 = BgL_pattern2z00_2375; 
BgL_rrrz00_459 = BgL_rrrz00_2376; 
{ /* ./Match/normalize.scm 378 */
bool_t BgL_test1125z00_461;
if(
BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(BgL_rrz00_2371, BgL_rrrz00_459))
{ /* ./Match/normalize.scm 378 */
BgL_test1125z00_461 = 
BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(BgL_rrrz00_459, BgL_rrz00_2371); }  else 
{ /* ./Match/normalize.scm 378 */
BgL_test1125z00_461 = ((bool_t)0); } 
if(BgL_test1125z00_461)
{ /* ./Match/normalize.scm 380 */
obj_t BgL_arg1127z00_462;
{ /* ./Match/normalize.scm 380 */
obj_t BgL_arg1130z00_463;obj_t BgL_arg1131z00_464;
BgL_arg1130z00_463 = BGl_symbol3591z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 380 */
obj_t BgL_arg1134z00_465;
BgL_arg1134z00_465 = 
MAKE_PAIR(BgL_pattern2z00_458, BNIL); 
BgL_arg1131z00_464 = 
MAKE_PAIR(BgL_pattern1z00_2373, BgL_arg1134z00_465); } 
BgL_arg1127z00_462 = 
MAKE_PAIR(BgL_arg1130z00_463, BgL_arg1131z00_464); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2374)(BgL_cz00_2374, BgL_arg1127z00_462, BgL_rrrz00_459, BEOA);}  else 
{ /* ./Match/normalize.scm 381 */
obj_t BgL_procz00_1360;
BgL_procz00_1360 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1360,BGl_string3620z00zz__match_normaliza7eza7,BgL_lz00_2372);} } } } } 
}



/* <anonymous:1047> */
obj_t BGl_zc3anonymousza31047ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2377, obj_t BgL_lz00_2378)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 321 */
{ 
obj_t BgL_lz00_408;
BgL_lz00_408 = BgL_lz00_2378; 
if(
NULLP(BgL_lz00_408))
{ /* ./Match/normalize.scm 352 */
obj_t BgL_procz00_1334;
BgL_procz00_1334 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1334,BGl_string3622z00zz__match_normaliza7eza7,BgL_lz00_408);}  else 
{ /* ./Match/normalize.scm 353 */
obj_t BgL_ez00_411;obj_t BgL_eza2za2_412;
BgL_ez00_411 = 
CAR(BgL_lz00_408); 
BgL_eza2za2_412 = 
CDR(BgL_lz00_408); 
{ /* ./Match/normalize.scm 355 */
obj_t BgL_zc3anonymousza31050ze3z83_2274;
{ 
int BgL_auxz00_3192;int BgL_auxz00_3190;
BgL_auxz00_3192 = 
(int)(((long)2)); 
BgL_auxz00_3190 = 
(int)(((long)2)); 
BgL_zc3anonymousza31050ze3z83_2274 = 
make_fx_procedure(BGl_zc3anonymousza31050ze3z83zz__match_normaliza7eza7, BgL_auxz00_3190, BgL_auxz00_3192); } 
{ /* ./Match/normalize.scm 355 */
int BgL_auxz00_3195;
BgL_auxz00_3195 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31050ze3z83_2274, BgL_auxz00_3195, BgL_eza2za2_412); } 
{ /* ./Match/normalize.scm 355 */
int BgL_auxz00_3198;
BgL_auxz00_3198 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31050ze3z83_2274, BgL_auxz00_3198, BgL_ez00_411); } 
return BgL_zc3anonymousza31050ze3z83_2274;} } } } 
}



/* <anonymous:1050> */
obj_t BGl_zc3anonymousza31050ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2379, obj_t BgL_rz00_2382, obj_t BgL_cz00_2383)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 355 */
{ /* ./Match/normalize.scm 356 */
obj_t BgL_eza2za2_2380;obj_t BgL_ez00_2381;
{ /* ./Match/normalize.scm 356 */
int BgL_auxz00_3201;
BgL_auxz00_3201 = 
(int)(((long)0)); 
BgL_eza2za2_2380 = 
PROCEDURE_REF(BgL_envz00_2379, BgL_auxz00_3201); } 
{ /* ./Match/normalize.scm 356 */
int BgL_auxz00_3204;
BgL_auxz00_3204 = 
(int)(((long)1)); 
BgL_ez00_2381 = 
PROCEDURE_REF(BgL_envz00_2379, BgL_auxz00_3204); } 
{ 
obj_t BgL_rz00_413;obj_t BgL_cz00_414;
BgL_rz00_413 = BgL_rz00_2382; 
BgL_cz00_414 = BgL_cz00_2383; 
if(
PAIRP(BgL_eza2za2_2380))
{ /* ./Match/normalize.scm 357 */
obj_t BgL_procz00_1342;
BgL_procz00_1342 = BGl_symbol3612z00zz__match_normaliza7eza7; 
FAILURE(BgL_procz00_1342,BGl_string3623z00zz__match_normaliza7eza7,BgL_eza2za2_2380);}  else 
{ /* ./Match/normalize.scm 358 */
obj_t BgL_fun1056z00_417;
BgL_fun1056z00_417 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2381); 
{ /* ./Match/normalize.scm 361 */
obj_t BgL_zc3anonymousza31058ze3z83_2273;
{ 
int BgL_auxz00_3213;int BgL_auxz00_3211;
BgL_auxz00_3213 = 
(int)(((long)1)); 
BgL_auxz00_3211 = 
(int)(((long)2)); 
BgL_zc3anonymousza31058ze3z83_2273 = 
make_fx_procedure(BGl_zc3anonymousza31058ze3z83zz__match_normaliza7eza7, BgL_auxz00_3211, BgL_auxz00_3213); } 
{ /* ./Match/normalize.scm 361 */
int BgL_auxz00_3216;
BgL_auxz00_3216 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31058ze3z83_2273, BgL_auxz00_3216, BgL_cz00_414); } 
return 
PROCEDURE_ENTRY(BgL_fun1056z00_417)(BgL_fun1056z00_417, BgL_rz00_413, BgL_zc3anonymousza31058ze3z83_2273, BEOA);} } } } } 
}



/* <anonymous:1058> */
obj_t BGl_zc3anonymousza31058ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2384, obj_t BgL_patternz00_2386, obj_t BgL_rrz00_2387)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 360 */
{ /* ./Match/normalize.scm 361 */
obj_t BgL_cz00_2385;
{ /* ./Match/normalize.scm 361 */
int BgL_auxz00_3221;
BgL_auxz00_3221 = 
(int)(((long)0)); 
BgL_cz00_2385 = 
PROCEDURE_REF(BgL_envz00_2384, BgL_auxz00_3221); } 
{ 
obj_t BgL_patternz00_419;obj_t BgL_rrz00_420;
BgL_patternz00_419 = BgL_patternz00_2386; 
BgL_rrz00_420 = BgL_rrz00_2387; 
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1061z00_422;
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1064z00_423;obj_t BgL_arg1065z00_424;
BgL_arg1064z00_423 = BGl_symbol3595z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1068z00_425;obj_t BgL_arg1069z00_426;
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1073z00_427;obj_t BgL_arg1075z00_428;
BgL_arg1073z00_427 = BGl_symbol3597z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1079z00_429;
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1083z00_431;obj_t BgL_arg1084z00_432;
BgL_arg1083z00_431 = BGl_symbol3624z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1087z00_433;obj_t BgL_arg1088z00_434;
BgL_arg1087z00_433 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
{ /* ./Match/normalize.scm 361 */
obj_t BgL_arg1092z00_435;
BgL_arg1092z00_435 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
BgL_arg1088z00_434 = 
MAKE_PAIR(BgL_arg1092z00_435, BNIL); } 
BgL_arg1084z00_432 = 
MAKE_PAIR(BgL_arg1087z00_433, BgL_arg1088z00_434); } 
BgL_arg1079z00_429 = 
MAKE_PAIR(BgL_arg1083z00_431, BgL_arg1084z00_432); } 
BgL_arg1075z00_428 = 
MAKE_PAIR(BgL_arg1079z00_429, BNIL); } 
BgL_arg1068z00_425 = 
MAKE_PAIR(BgL_arg1073z00_427, BgL_arg1075z00_428); } 
BgL_arg1069z00_426 = 
MAKE_PAIR(BgL_patternz00_419, BNIL); 
BgL_arg1065z00_424 = 
MAKE_PAIR(BgL_arg1068z00_425, BgL_arg1069z00_426); } 
BgL_arg1061z00_422 = 
MAKE_PAIR(BgL_arg1064z00_423, BgL_arg1065z00_424); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2385)(BgL_cz00_2385, BgL_arg1061z00_422, BgL_rrz00_420, BEOA);} } } } 
}



/* term-variable? */
bool_t BGl_termzd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_1)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 63 */
if(
SYMBOLP(BgL_ez00_1))
{ /* ./Match/normalize.scm 65 */
bool_t BgL__andtest_1004z00_692;
{ /* ./Match/normalize.scm 65 */
int BgL_arg1520z00_696;
{ /* ./Match/normalize.scm 65 */
obj_t BgL_arg1524z00_698;
BgL_arg1524z00_698 = 
SYMBOL_TO_STRING(BgL_ez00_1); 
BgL_arg1520z00_696 = 
STRING_LENGTH(BgL_arg1524z00_698); } 
BgL__andtest_1004z00_692 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(
BINT(BgL_arg1520z00_696), 
BINT(((long)1))); } 
if(BgL__andtest_1004z00_692)
{ /* ./Match/normalize.scm 66 */
unsigned char BgL_arg1512z00_693;
{ /* ./Match/normalize.scm 66 */
obj_t BgL_arg1515z00_694;
BgL_arg1515z00_694 = 
SYMBOL_TO_STRING(BgL_ez00_1); 
{ /* ./Match/normalize.scm 66 */
int BgL_auxz00_3245;
BgL_auxz00_3245 = 
(int)(((long)0)); 
BgL_arg1512z00_693 = 
STRING_REF(BgL_arg1515z00_694, BgL_auxz00_3245); } } 
return 
(BgL_arg1512z00_693==((unsigned char)'?'));}  else 
{ /* ./Match/normalize.scm 65 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 64 */
return ((bool_t)0);} } 
}



/* segment-variable? */
bool_t BGl_segmentzd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 68 */
if(
SYMBOLP(BgL_ez00_2))
{ /* ./Match/normalize.scm 70 */
bool_t BgL__andtest_1006z00_700;
{ /* ./Match/normalize.scm 70 */
int BgL_arg1545z00_708;
{ /* ./Match/normalize.scm 70 */
obj_t BgL_arg1549z00_710;
BgL_arg1549z00_710 = 
SYMBOL_TO_STRING(BgL_ez00_2); 
BgL_arg1545z00_708 = 
STRING_LENGTH(BgL_arg1549z00_710); } 
BgL__andtest_1006z00_700 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(
BINT(BgL_arg1545z00_708), 
BINT(((long)2))); } 
if(BgL__andtest_1006z00_700)
{ /* ./Match/normalize.scm 71 */
bool_t BgL__andtest_1007z00_701;
{ /* ./Match/normalize.scm 71 */
unsigned char BgL_arg1537z00_705;
{ /* ./Match/normalize.scm 71 */
obj_t BgL_arg1540z00_706;
BgL_arg1540z00_706 = 
SYMBOL_TO_STRING(BgL_ez00_2); 
{ /* ./Match/normalize.scm 71 */
int BgL_auxz00_3258;
BgL_auxz00_3258 = 
(int)(((long)0)); 
BgL_arg1537z00_705 = 
STRING_REF(BgL_arg1540z00_706, BgL_auxz00_3258); } } 
BgL__andtest_1007z00_701 = 
(BgL_arg1537z00_705==((unsigned char)'?')); } 
if(BgL__andtest_1007z00_701)
{ /* ./Match/normalize.scm 72 */
unsigned char BgL_arg1529z00_702;
{ /* ./Match/normalize.scm 72 */
obj_t BgL_arg1532z00_703;
BgL_arg1532z00_703 = 
SYMBOL_TO_STRING(BgL_ez00_2); 
{ /* ./Match/normalize.scm 72 */
int BgL_auxz00_3264;
BgL_auxz00_3264 = 
(int)(((long)1)); 
BgL_arg1529z00_702 = 
STRING_REF(BgL_arg1532z00_703, BgL_auxz00_3264); } } 
return 
(BgL_arg1529z00_702==((unsigned char)'?'));}  else 
{ /* ./Match/normalize.scm 71 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 70 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 69 */
return ((bool_t)0);} } 
}



/* lispish-segment-variable? */
bool_t BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(obj_t BgL_ez00_3)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 74 */
if(
SYMBOLP(BgL_ez00_3))
{ /* ./Match/normalize.scm 76 */
bool_t BgL__andtest_1009z00_712;
{ /* ./Match/normalize.scm 76 */
int BgL_arg1578z00_724;
{ /* ./Match/normalize.scm 76 */
obj_t BgL_arg1582z00_726;
BgL_arg1582z00_726 = 
SYMBOL_TO_STRING(BgL_ez00_3); 
BgL_arg1578z00_724 = 
STRING_LENGTH(BgL_arg1582z00_726); } 
BgL__andtest_1009z00_712 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(
BINT(BgL_arg1578z00_724), 
BINT(((long)3))); } 
if(BgL__andtest_1009z00_712)
{ /* ./Match/normalize.scm 77 */
bool_t BgL__andtest_1010z00_713;
{ /* ./Match/normalize.scm 77 */
unsigned char BgL_arg1570z00_721;
{ /* ./Match/normalize.scm 77 */
obj_t BgL_arg1573z00_722;
BgL_arg1573z00_722 = 
SYMBOL_TO_STRING(BgL_ez00_3); 
{ /* ./Match/normalize.scm 77 */
int BgL_auxz00_3277;
BgL_auxz00_3277 = 
(int)(((long)0)); 
BgL_arg1570z00_721 = 
STRING_REF(BgL_arg1573z00_722, BgL_auxz00_3277); } } 
BgL__andtest_1010z00_713 = 
(BgL_arg1570z00_721==((unsigned char)'?')); } 
if(BgL__andtest_1010z00_713)
{ /* ./Match/normalize.scm 78 */
bool_t BgL__andtest_1011z00_714;
{ /* ./Match/normalize.scm 78 */
unsigned char BgL_arg1562z00_718;
{ /* ./Match/normalize.scm 78 */
obj_t BgL_arg1565z00_719;
BgL_arg1565z00_719 = 
SYMBOL_TO_STRING(BgL_ez00_3); 
{ /* ./Match/normalize.scm 78 */
int BgL_auxz00_3283;
BgL_auxz00_3283 = 
(int)(((long)1)); 
BgL_arg1562z00_718 = 
STRING_REF(BgL_arg1565z00_719, BgL_auxz00_3283); } } 
BgL__andtest_1011z00_714 = 
(BgL_arg1562z00_718==((unsigned char)'?')); } 
if(BgL__andtest_1011z00_714)
{ /* ./Match/normalize.scm 79 */
unsigned char BgL_arg1554z00_715;
{ /* ./Match/normalize.scm 79 */
obj_t BgL_arg1557z00_716;
BgL_arg1557z00_716 = 
SYMBOL_TO_STRING(BgL_ez00_3); 
{ /* ./Match/normalize.scm 79 */
int BgL_auxz00_3289;
BgL_auxz00_3289 = 
(int)(((long)2)); 
BgL_arg1554z00_715 = 
STRING_REF(BgL_arg1557z00_716, BgL_auxz00_3289); } } 
return 
(BgL_arg1554z00_715==((unsigned char)'?'));}  else 
{ /* ./Match/normalize.scm 78 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 77 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 76 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 75 */
return ((bool_t)0);} } 
}



/* tree-variable? */
bool_t BGl_treezd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_4)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 81 */
if(
SYMBOLP(BgL_ez00_4))
{ /* ./Match/normalize.scm 83 */
bool_t BgL__andtest_1013z00_728;
{ /* ./Match/normalize.scm 83 */
int BgL_arg1595z00_732;
{ /* ./Match/normalize.scm 83 */
obj_t BgL_arg1599z00_734;
BgL_arg1599z00_734 = 
SYMBOL_TO_STRING(BgL_ez00_4); 
BgL_arg1595z00_732 = 
STRING_LENGTH(BgL_arg1599z00_734); } 
BgL__andtest_1013z00_728 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(
BINT(BgL_arg1595z00_732), 
BINT(((long)1))); } 
if(BgL__andtest_1013z00_728)
{ /* ./Match/normalize.scm 84 */
unsigned char BgL_arg1587z00_729;
{ /* ./Match/normalize.scm 84 */
obj_t BgL_arg1590z00_730;
BgL_arg1590z00_730 = 
SYMBOL_TO_STRING(BgL_ez00_4); 
{ /* ./Match/normalize.scm 84 */
int BgL_auxz00_3302;
BgL_auxz00_3302 = 
(int)(((long)0)); 
BgL_arg1587z00_729 = 
STRING_REF(BgL_arg1590z00_730, BgL_auxz00_3302); } } 
return 
(BgL_arg1587z00_729==((unsigned char)'!'));}  else 
{ /* ./Match/normalize.scm 83 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 82 */
return ((bool_t)0);} } 
}



/* hole-variable? */
bool_t BGl_holezd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_5)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 86 */
if(
SYMBOLP(BgL_ez00_5))
{ /* ./Match/normalize.scm 88 */
bool_t BgL__andtest_1015z00_736;
{ /* ./Match/normalize.scm 88 */
int BgL_arg1612z00_740;
{ /* ./Match/normalize.scm 88 */
obj_t BgL_arg1616z00_742;
BgL_arg1616z00_742 = 
SYMBOL_TO_STRING(BgL_ez00_5); 
BgL_arg1612z00_740 = 
STRING_LENGTH(BgL_arg1616z00_742); } 
BgL__andtest_1015z00_736 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(
BINT(BgL_arg1612z00_740), 
BINT(((long)1))); } 
if(BgL__andtest_1015z00_736)
{ /* ./Match/normalize.scm 89 */
unsigned char BgL_arg1604z00_737;
{ /* ./Match/normalize.scm 89 */
obj_t BgL_arg1607z00_738;
BgL_arg1607z00_738 = 
SYMBOL_TO_STRING(BgL_ez00_5); 
{ /* ./Match/normalize.scm 89 */
int BgL_auxz00_3315;
BgL_auxz00_3315 = 
(int)(((long)0)); 
BgL_arg1604z00_737 = 
STRING_REF(BgL_arg1607z00_738, BgL_auxz00_3315); } } 
return 
(BgL_arg1604z00_737==((unsigned char)'^'));}  else 
{ /* ./Match/normalize.scm 88 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 87 */
return ((bool_t)0);} } 
}



/* term-variable-true-name */
obj_t BGl_termzd2variablezd2truezd2namezd2zz__match_normaliza7eza7(obj_t BgL_ez00_6)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 91 */
{ /* ./Match/normalize.scm 92 */
obj_t BgL_sz00_1688;
BgL_sz00_1688 = 
SYMBOL_TO_STRING(BgL_ez00_6); 
{ /* ./Match/normalize.scm 92 */
obj_t BgL_arg1621z00_1689;
{ /* ./Match/normalize.scm 92 */
int BgL_auxz00_3322;int BgL_auxz00_3320;
BgL_auxz00_3322 = 
STRING_LENGTH(BgL_sz00_1688); 
BgL_auxz00_3320 = 
(int)(((long)1)); 
BgL_arg1621z00_1689 = 
c_substring(BgL_sz00_1688, BgL_auxz00_3320, BgL_auxz00_3322); } 
{ /* ./Match/normalize.scm 92 */
char * BgL_auxz00_3325;
BgL_auxz00_3325 = 
BSTRING_TO_STRING(BgL_arg1621z00_1689); 
return 
string_to_symbol(BgL_auxz00_3325);} } } } 
}



/* normalize-pattern */
BGL_EXPORTED_DEF obj_t BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(obj_t BgL_ez00_11)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 114 */
{ /* ./Match/normalize.scm 115 */
obj_t BgL_fun1669z00_1738;
BgL_fun1669z00_1738 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_11); 
return 
PROCEDURE_ENTRY(BgL_fun1669z00_1738)(BgL_fun1669z00_1738, BGl_rze2macrozd2patternz30zz__match_normaliza7eza7, BGl_proc3626z00zz__match_normaliza7eza7, BEOA);} } 
}



/* _normalize-pattern */
obj_t BGl__normaliza7ezd2patternz75zz__match_normaliza7eza7(obj_t BgL_envz00_2389, obj_t BgL_ez00_2390)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 114 */
return 
BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2390);} 
}



/* <anonymous:1671>_3168 */
obj_t BGl_zc3anonymousza31671ze3_3168z83zz__match_normaliza7eza7(obj_t BgL_envz00_2391, obj_t BgL_patternz00_2392, obj_t BgL_rrz00_2393)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 117 */
return BgL_patternz00_2392;} 
}



/* standardize-pattern */
obj_t BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(obj_t BgL_ez00_12)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 127 */
{ /* ./Match/normalize.scm 128 */
bool_t BgL_test1672z00_769;
if(
PAIRP(BgL_ez00_12))
{ /* ./Match/normalize.scm 128 */
obj_t BgL_arg2280z00_1744;
BgL_arg2280z00_1744 = 
CAR(BgL_ez00_12); 
{ /* ./Match/normalize.scm 128 */
obj_t BgL_rz00_1747;
BgL_rz00_1747 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 128 */
bool_t BgL_testz00_3335;
{ /* ./Match/normalize.scm 128 */
obj_t BgL_auxz00_3336;
BgL_auxz00_3336 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2280z00_1744, BgL_rz00_1747); 
BgL_testz00_3335 = 
CBOOL(BgL_auxz00_3336); } 
if(BgL_testz00_3335)
{ /* ./Match/normalize.scm 128 */
obj_t BgL_auxz00_3339;
{ /* ./Match/normalize.scm 128 */
obj_t BgL_auxz00_3340;
BgL_auxz00_3340 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2280z00_1744, BgL_rz00_1747); 
BgL_auxz00_3339 = 
CDR(BgL_auxz00_3340); } 
BgL_test1672z00_769 = 
CBOOL(BgL_auxz00_3339); }  else 
{ /* ./Match/normalize.scm 128 */
BgL_test1672z00_769 = ((bool_t)0); } } } }  else 
{ /* ./Match/normalize.scm 128 */
BgL_test1672z00_769 = ((bool_t)0); } 
if(BgL_test1672z00_769)
{ /* ./Match/normalize.scm 128 */
{ /* ./Match/normalize.scm 128 */
obj_t BgL_funz00_2552;
{ /* ./Match/normalize.scm 128 */
obj_t BgL_arg2264z00_1753;
BgL_arg2264z00_1753 = 
CAR(BgL_ez00_12); 
{ /* ./Match/normalize.scm 128 */
obj_t BgL_rz00_1755;
BgL_rz00_1755 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 128 */
bool_t BgL_testz00_3346;
{ /* ./Match/normalize.scm 128 */
obj_t BgL_auxz00_3347;
BgL_auxz00_3347 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2264z00_1753, BgL_rz00_1755); 
BgL_testz00_3346 = 
CBOOL(BgL_auxz00_3347); } 
if(BgL_testz00_3346)
{ /* ./Match/normalize.scm 128 */
obj_t BgL_auxz00_3350;
BgL_auxz00_3350 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2264z00_1753, BgL_rz00_1755); 
BgL_funz00_2552 = 
CDR(BgL_auxz00_3350); }  else 
{ /* ./Match/normalize.scm 128 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol3627z00zz__match_normaliza7eza7, BGl_string3628z00zz__match_normaliza7eza7, BFALSE); 
exit( -1 );} } } } 
return 
apply(BgL_funz00_2552, 
CDR(BgL_ez00_12));} }  else 
{ /* ./Match/normalize.scm 128 */
if(
(BgL_ez00_12==BGl_symbol3610z00zz__match_normaliza7eza7))
{ /* ./Match/normalize.scm 129 */
return BGl_proc3638z00zz__match_normaliza7eza7;}  else 
{ /* ./Match/normalize.scm 129 */
if(
BGl_termzd2variablezf3z21zz__match_normaliza7eza7(BgL_ez00_12))
{ /* ./Match/normalize.scm 130 */
{ /* ./Match/normalize.scm 130 */
obj_t BgL_zc3anonymousza31895ze3z83_2394;
{ 
int BgL_auxz00_3364;int BgL_auxz00_3362;
BgL_auxz00_3364 = 
(int)(((long)1)); 
BgL_auxz00_3362 = 
(int)(((long)2)); 
BgL_zc3anonymousza31895ze3z83_2394 = 
make_fx_procedure(BGl_zc3anonymousza31895ze3z83zz__match_normaliza7eza7, BgL_auxz00_3362, BgL_auxz00_3364); } 
{ /* ./Match/normalize.scm 130 */
int BgL_auxz00_3367;
BgL_auxz00_3367 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31895ze3z83_2394, BgL_auxz00_3367, BgL_ez00_12); } 
return BgL_zc3anonymousza31895ze3z83_2394;} }  else 
{ /* ./Match/normalize.scm 130 */
if(
BGl_holezd2variablezf3z21zz__match_normaliza7eza7(BgL_ez00_12))
{ /* ./Match/normalize.scm 131 */
return 
BGl_standardiza7ezd2holezd2variableza7zz__match_normaliza7eza7(BgL_ez00_12);}  else 
{ /* ./Match/normalize.scm 131 */
if(
VECTORP(BgL_ez00_12))
{ /* ./Match/normalize.scm 132 */
return 
BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7(BgL_ez00_12);}  else 
{ /* ./Match/normalize.scm 133 */
bool_t BgL_testz00_3376;
{ /* ./Match/normalize.scm 133 */
obj_t BgL_auxz00_3377;
BgL_auxz00_3377 = 
BGl_atomzf3zf3zz__match_s2cfunz00(BgL_ez00_12); 
BgL_testz00_3376 = 
CBOOL(BgL_auxz00_3377); } 
if(BgL_testz00_3376)
{ /* ./Match/normalize.scm 133 */
{ /* ./Match/normalize.scm 133 */
obj_t BgL_zc3anonymousza31924ze3z83_2395;
{ 
int BgL_auxz00_3382;int BgL_auxz00_3380;
BgL_auxz00_3382 = 
(int)(((long)1)); 
BgL_auxz00_3380 = 
(int)(((long)2)); 
BgL_zc3anonymousza31924ze3z83_2395 = 
make_fx_procedure(BGl_zc3anonymousza31924ze3z83zz__match_normaliza7eza7, BgL_auxz00_3380, BgL_auxz00_3382); } 
{ /* ./Match/normalize.scm 133 */
int BgL_auxz00_3385;
BgL_auxz00_3385 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31924ze3z83_2395, BgL_auxz00_3385, BgL_ez00_12); } 
return BgL_zc3anonymousza31924ze3z83_2395;} }  else 
{ /* ./Match/normalize.scm 133 */
return 
BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(BgL_ez00_12);} } } } } } } } 
}



/* <anonymous:1895> */
obj_t BGl_zc3anonymousza31895ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2396, obj_t BgL_rz00_2398, obj_t BgL_cz00_2399)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 215 */
{ /* ./Match/normalize.scm 130 */
obj_t BgL_ez00_2397;
{ /* ./Match/normalize.scm 130 */
int BgL_auxz00_3389;
BgL_auxz00_3389 = 
(int)(((long)0)); 
BgL_ez00_2397 = 
PROCEDURE_REF(BgL_envz00_2396, BgL_auxz00_3389); } 
{ 
obj_t BgL_rz00_1763;obj_t BgL_cz00_1764;
BgL_rz00_1763 = BgL_rz00_2398; 
BgL_cz00_1764 = BgL_cz00_2399; 
{ /* ./Match/normalize.scm 130 */
obj_t BgL_namez00_1769;
BgL_namez00_1769 = 
BGl_termzd2variablezd2truezd2namezd2zz__match_normaliza7eza7(BgL_ez00_2397); 
{ /* ./Match/normalize.scm 130 */
obj_t BgL_arg1897z00_1770;
{ /* ./Match/normalize.scm 130 */
obj_t BgL_arg1900z00_1771;obj_t BgL_arg1901z00_1772;
BgL_arg1900z00_1771 = BGl_symbol3629z00zz__match_normaliza7eza7; 
BgL_arg1901z00_1772 = 
MAKE_PAIR(BgL_namez00_1769, BNIL); 
BgL_arg1897z00_1770 = 
MAKE_PAIR(BgL_arg1900z00_1771, BgL_arg1901z00_1772); } 
return 
PROCEDURE_ENTRY(BgL_cz00_1764)(BgL_cz00_1764, BgL_arg1897z00_1770, BgL_rz00_1763, BEOA);} } } } } 
}



/* <anonymous:1924> */
obj_t BGl_zc3anonymousza31924ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2400, obj_t BgL_rz00_2402, obj_t BgL_cz00_2403)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 233 */
{ /* ./Match/normalize.scm 133 */
obj_t BgL_ez00_2401;
{ /* ./Match/normalize.scm 133 */
int BgL_auxz00_3397;
BgL_auxz00_3397 = 
(int)(((long)0)); 
BgL_ez00_2401 = 
PROCEDURE_REF(BgL_envz00_2400, BgL_auxz00_3397); } 
{ 
obj_t BgL_rz00_1776;obj_t BgL_cz00_1777;
BgL_rz00_1776 = BgL_rz00_2402; 
BgL_cz00_1777 = BgL_cz00_2403; 
{ /* ./Match/normalize.scm 133 */
obj_t BgL_arg1928z00_1781;
{ /* ./Match/normalize.scm 133 */
obj_t BgL_arg1931z00_1782;obj_t BgL_arg1933z00_1783;
BgL_arg1931z00_1782 = BGl_symbol3614z00zz__match_normaliza7eza7; 
BgL_arg1933z00_1783 = 
MAKE_PAIR(BgL_ez00_2401, BNIL); 
BgL_arg1928z00_1781 = 
MAKE_PAIR(BgL_arg1931z00_1782, BgL_arg1933z00_1783); } 
return 
PROCEDURE_ENTRY(BgL_cz00_1777)(BgL_cz00_1777, BgL_arg1928z00_1781, BgL_rz00_1776, BEOA);} } } } 
}



/* standardize-patterns */
obj_t BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(obj_t BgL_eza2za2_13)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 144 */
{ /* ./Match/normalize.scm 145 */
bool_t BgL_test1691z00_775;
BgL_test1691z00_775 = 
PAIRP(BgL_eza2za2_13); 
if(BgL_test1691z00_775)
{ /* ./Match/normalize.scm 146 */
bool_t BgL_test1692z00_776;
if(BgL_test1691z00_775)
{ /* ./Match/normalize.scm 146 */
obj_t BgL_arg2280z00_1787;
BgL_arg2280z00_1787 = 
CAR(BgL_eza2za2_13); 
{ /* ./Match/normalize.scm 146 */
obj_t BgL_rz00_1790;
BgL_rz00_1790 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 146 */
bool_t BgL_testz00_3408;
{ /* ./Match/normalize.scm 146 */
obj_t BgL_auxz00_3409;
BgL_auxz00_3409 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2280z00_1787, BgL_rz00_1790); 
BgL_testz00_3408 = 
CBOOL(BgL_auxz00_3409); } 
if(BgL_testz00_3408)
{ /* ./Match/normalize.scm 146 */
obj_t BgL_auxz00_3412;
{ /* ./Match/normalize.scm 146 */
obj_t BgL_auxz00_3413;
BgL_auxz00_3413 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2280z00_1787, BgL_rz00_1790); 
BgL_auxz00_3412 = 
CDR(BgL_auxz00_3413); } 
BgL_test1692z00_776 = 
CBOOL(BgL_auxz00_3412); }  else 
{ /* ./Match/normalize.scm 146 */
BgL_test1692z00_776 = ((bool_t)0); } } } }  else 
{ /* ./Match/normalize.scm 146 */
BgL_test1692z00_776 = ((bool_t)0); } 
if(BgL_test1692z00_776)
{ /* ./Match/normalize.scm 146 */
{ /* ./Match/normalize.scm 147 */
obj_t BgL_funz00_2554;
{ /* ./Match/normalize.scm 147 */
obj_t BgL_arg2264z00_1796;
BgL_arg2264z00_1796 = 
CAR(BgL_eza2za2_13); 
{ /* ./Match/normalize.scm 147 */
obj_t BgL_rz00_1798;
BgL_rz00_1798 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 147 */
bool_t BgL_testz00_3419;
{ /* ./Match/normalize.scm 147 */
obj_t BgL_auxz00_3420;
BgL_auxz00_3420 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2264z00_1796, BgL_rz00_1798); 
BgL_testz00_3419 = 
CBOOL(BgL_auxz00_3420); } 
if(BgL_testz00_3419)
{ /* ./Match/normalize.scm 147 */
obj_t BgL_auxz00_3423;
BgL_auxz00_3423 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2264z00_1796, BgL_rz00_1798); 
BgL_funz00_2554 = 
CDR(BgL_auxz00_3423); }  else 
{ /* ./Match/normalize.scm 147 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol3630z00zz__match_normaliza7eza7, BGl_string3628z00zz__match_normaliza7eza7, BFALSE); 
exit( -1 );} } } } 
return 
apply(BgL_funz00_2554, 
CDR(BgL_eza2za2_13));} }  else 
{ /* ./Match/normalize.scm 148 */
bool_t BgL_testz00_3431;
{ /* ./Match/normalize.scm 148 */
obj_t BgL_auxz00_3432;
BgL_auxz00_3432 = 
CAR(BgL_eza2za2_13); 
BgL_testz00_3431 = 
(BgL_auxz00_3432==BGl_symbol3631z00zz__match_normaliza7eza7); } 
if(BgL_testz00_3431)
{ /* ./Match/normalize.scm 148 */
return 
BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(
CDR(BgL_eza2za2_13));}  else 
{ /* ./Match/normalize.scm 148 */
bool_t BgL_testz00_3437;
{ /* ./Match/normalize.scm 148 */
obj_t BgL_auxz00_3438;
BgL_auxz00_3438 = 
CAR(BgL_eza2za2_13); 
BgL_testz00_3437 = 
(BgL_auxz00_3438==BGl_symbol3632z00zz__match_normaliza7eza7); } 
if(BgL_testz00_3437)
{ /* ./Match/normalize.scm 148 */
{ /* ./Match/normalize.scm 148 */
obj_t BgL_arg1701z00_780;
BgL_arg1701z00_780 = 
CDR(BgL_eza2za2_13); 
if(
NULLP(BgL_arg1701z00_780))
{ /* ./Match/normalize.scm 148 */
return BGl_proc3633z00zz__match_normaliza7eza7;}  else 
{ /* ./Match/normalize.scm 148 */
return 
BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(BgL_arg1701z00_780);} } }  else 
{ /* ./Match/normalize.scm 148 */
if(
BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13)))
{ /* ./Match/normalize.scm 149 */
return 
BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13), 
CDR(BgL_eza2za2_13));}  else 
{ /* ./Match/normalize.scm 149 */
if(
BGl_segmentzd2variablezf3z21zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13)))
{ /* ./Match/normalize.scm 151 */
return 
BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13), 
CDR(BgL_eza2za2_13));}  else 
{ /* ./Match/normalize.scm 151 */
if(
BGl_treezd2variablezf3z21zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13)))
{ /* ./Match/normalize.scm 153 */
{ /* ./Match/normalize.scm 154 */
obj_t BgL_auxz00_3465;obj_t BgL_auxz00_3460;
{ /* ./Match/normalize.scm 154 */
obj_t BgL_auxz00_3466;
{ /* ./Match/normalize.scm 154 */
obj_t BgL_auxz00_3467;
BgL_auxz00_3467 = 
CDR(BgL_eza2za2_13); 
BgL_auxz00_3466 = 
CDR(BgL_auxz00_3467); } 
BgL_auxz00_3465 = 
CAR(BgL_auxz00_3466); } 
{ /* ./Match/normalize.scm 154 */
obj_t BgL_auxz00_3462;
BgL_auxz00_3462 = 
CDR(BgL_eza2za2_13); 
BgL_auxz00_3460 = 
CAR(BgL_auxz00_3462); } 
return 
BGl_standardiza7ezd2treezd2variableza7zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13), BgL_auxz00_3460, BgL_auxz00_3465);} }  else 
{ /* ./Match/normalize.scm 153 */
return 
BGl_standardiza7ezd2consz75zz__match_normaliza7eza7(
CAR(BgL_eza2za2_13), 
CDR(BgL_eza2za2_13));} } } } } } }  else 
{ /* ./Match/normalize.scm 156 */
obj_t BgL_zc3anonymousza31924ze3z83_2405;
{ 
int BgL_auxz00_3477;int BgL_auxz00_3475;
BgL_auxz00_3477 = 
(int)(((long)1)); 
BgL_auxz00_3475 = 
(int)(((long)2)); 
BgL_zc3anonymousza31924ze3z83_2405 = 
make_fx_procedure(BGl_zc3anonymousza31924ze3_3171z83zz__match_normaliza7eza7, BgL_auxz00_3475, BgL_auxz00_3477); } 
{ /* ./Match/normalize.scm 156 */
int BgL_auxz00_3480;
BgL_auxz00_3480 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31924ze3z83_2405, BgL_auxz00_3480, BgL_eza2za2_13); } 
return BgL_zc3anonymousza31924ze3z83_2405;} } } 
}



/* <anonymous:2256> */
obj_t BGl_zc3anonymousza32256ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2406, obj_t BgL_rz00_2407, obj_t BgL_cz00_2408)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 308 */
{ 
obj_t BgL_rz00_1811;obj_t BgL_cz00_1812;
BgL_rz00_1811 = BgL_rz00_2407; 
BgL_cz00_1812 = BgL_cz00_2408; 
{ /* ./Match/normalize.scm 148 */
obj_t BgL_arg2258z00_1815;
BgL_arg2258z00_1815 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
return 
PROCEDURE_ENTRY(BgL_cz00_1812)(BgL_cz00_1812, BgL_arg2258z00_1815, BgL_rz00_1811, BEOA);} } } 
}



/* <anonymous:1924>_3171 */
obj_t BGl_zc3anonymousza31924ze3_3171z83zz__match_normaliza7eza7(obj_t BgL_envz00_2409, obj_t BgL_rz00_2411, obj_t BgL_cz00_2412)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 233 */
{ /* ./Match/normalize.scm 156 */
obj_t BgL_ez00_2410;
{ /* ./Match/normalize.scm 156 */
int BgL_auxz00_3486;
BgL_auxz00_3486 = 
(int)(((long)0)); 
BgL_ez00_2410 = 
PROCEDURE_REF(BgL_envz00_2409, BgL_auxz00_3486); } 
{ 
obj_t BgL_rz00_1838;obj_t BgL_cz00_1839;
BgL_rz00_1838 = BgL_rz00_2411; 
BgL_cz00_1839 = BgL_cz00_2412; 
{ /* ./Match/normalize.scm 156 */
obj_t BgL_arg1928z00_1843;
{ /* ./Match/normalize.scm 156 */
obj_t BgL_arg1931z00_1844;obj_t BgL_arg1933z00_1845;
BgL_arg1931z00_1844 = BGl_symbol3614z00zz__match_normaliza7eza7; 
BgL_arg1933z00_1845 = 
MAKE_PAIR(BgL_ez00_2410, BNIL); 
BgL_arg1928z00_1843 = 
MAKE_PAIR(BgL_arg1931z00_1844, BgL_arg1933z00_1845); } 
return 
PROCEDURE_ENTRY(BgL_cz00_1839)(BgL_cz00_1839, BgL_arg1928z00_1843, BgL_rz00_1838, BEOA);} } } } 
}



/* standardize-repetition */
obj_t BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7(obj_t BgL_ez00_14, obj_t BgL_eza2za2_15)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 158 */
{ /* ./Match/normalize.scm 159 */
obj_t BgL_zc3anonymousza31761ze3z83_2415;
{ 
int BgL_auxz00_3495;int BgL_auxz00_3493;
BgL_auxz00_3495 = 
(int)(((long)2)); 
BgL_auxz00_3493 = 
(int)(((long)2)); 
BgL_zc3anonymousza31761ze3z83_2415 = 
make_fx_procedure(BGl_zc3anonymousza31761ze3z83zz__match_normaliza7eza7, BgL_auxz00_3493, BgL_auxz00_3495); } 
{ /* ./Match/normalize.scm 159 */
int BgL_auxz00_3498;
BgL_auxz00_3498 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31761ze3z83_2415, BgL_auxz00_3498, BgL_ez00_14); } 
{ /* ./Match/normalize.scm 159 */
int BgL_auxz00_3501;
BgL_auxz00_3501 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31761ze3z83_2415, BgL_auxz00_3501, BgL_eza2za2_15); } 
return BgL_zc3anonymousza31761ze3z83_2415;} } 
}



/* <anonymous:1761> */
obj_t BGl_zc3anonymousza31761ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2416, obj_t BgL_rz00_2419, obj_t BgL_cz00_2420)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 159 */
{ /* ./Match/normalize.scm 160 */
obj_t BgL_ez00_2417;obj_t BgL_eza2za2_2418;
{ /* ./Match/normalize.scm 160 */
int BgL_auxz00_3504;
BgL_auxz00_3504 = 
(int)(((long)0)); 
BgL_ez00_2417 = 
PROCEDURE_REF(BgL_envz00_2416, BgL_auxz00_3504); } 
{ /* ./Match/normalize.scm 160 */
int BgL_auxz00_3507;
BgL_auxz00_3507 = 
(int)(((long)1)); 
BgL_eza2za2_2418 = 
PROCEDURE_REF(BgL_envz00_2416, BgL_auxz00_3507); } 
{ 
obj_t BgL_rz00_800;obj_t BgL_cz00_801;
BgL_rz00_800 = BgL_rz00_2419; 
BgL_cz00_801 = BgL_cz00_2420; 
{ /* ./Match/normalize.scm 160 */
obj_t BgL_fun1767z00_803;
BgL_fun1767z00_803 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_2417); 
{ /* ./Match/normalize.scm 163 */
obj_t BgL_zc3anonymousza31769ze3z83_2414;
{ 
int BgL_auxz00_3513;int BgL_auxz00_3511;
BgL_auxz00_3513 = 
(int)(((long)2)); 
BgL_auxz00_3511 = 
(int)(((long)2)); 
BgL_zc3anonymousza31769ze3z83_2414 = 
make_fx_procedure(BGl_zc3anonymousza31769ze3z83zz__match_normaliza7eza7, BgL_auxz00_3511, BgL_auxz00_3513); } 
{ /* ./Match/normalize.scm 163 */
int BgL_auxz00_3516;
BgL_auxz00_3516 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31769ze3z83_2414, BgL_auxz00_3516, BgL_eza2za2_2418); } 
{ /* ./Match/normalize.scm 163 */
int BgL_auxz00_3519;
BgL_auxz00_3519 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31769ze3z83_2414, BgL_auxz00_3519, BgL_cz00_801); } 
return 
PROCEDURE_ENTRY(BgL_fun1767z00_803)(BgL_fun1767z00_803, BgL_rz00_800, BgL_zc3anonymousza31769ze3z83_2414, BEOA);} } } } } 
}



/* <anonymous:1769> */
obj_t BGl_zc3anonymousza31769ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2421, obj_t BgL_fz00_2424, obj_t BgL_rrz00_2425)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 162 */
{ /* ./Match/normalize.scm 163 */
obj_t BgL_eza2za2_2422;obj_t BgL_cz00_2423;
{ /* ./Match/normalize.scm 163 */
int BgL_auxz00_3524;
BgL_auxz00_3524 = 
(int)(((long)0)); 
BgL_eza2za2_2422 = 
PROCEDURE_REF(BgL_envz00_2421, BgL_auxz00_3524); } 
{ /* ./Match/normalize.scm 163 */
int BgL_auxz00_3527;
BgL_auxz00_3527 = 
(int)(((long)1)); 
BgL_cz00_2423 = 
PROCEDURE_REF(BgL_envz00_2421, BgL_auxz00_3527); } 
{ 
obj_t BgL_fz00_805;obj_t BgL_rrz00_806;
BgL_fz00_805 = BgL_fz00_2424; 
BgL_rrz00_806 = BgL_rrz00_2425; 
{ /* ./Match/normalize.scm 163 */
obj_t BgL_fun1773z00_808;
BgL_fun1773z00_808 = 
BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(BgL_eza2za2_2422); 
{ /* ./Match/normalize.scm 166 */
obj_t BgL_zc3anonymousza31775ze3z83_2413;
{ 
int BgL_auxz00_3533;int BgL_auxz00_3531;
BgL_auxz00_3533 = 
(int)(((long)2)); 
BgL_auxz00_3531 = 
(int)(((long)2)); 
BgL_zc3anonymousza31775ze3z83_2413 = 
make_fx_procedure(BGl_zc3anonymousza31775ze3z83zz__match_normaliza7eza7, BgL_auxz00_3531, BgL_auxz00_3533); } 
{ /* ./Match/normalize.scm 166 */
int BgL_auxz00_3536;
BgL_auxz00_3536 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31775ze3z83_2413, BgL_auxz00_3536, BgL_fz00_805); } 
{ /* ./Match/normalize.scm 166 */
int BgL_auxz00_3539;
BgL_auxz00_3539 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31775ze3z83_2413, BgL_auxz00_3539, BgL_cz00_2423); } 
return 
PROCEDURE_ENTRY(BgL_fun1773z00_808)(BgL_fun1773z00_808, BgL_rrz00_806, BgL_zc3anonymousza31775ze3z83_2413, BEOA);} } } } } 
}



/* <anonymous:1775> */
obj_t BGl_zc3anonymousza31775ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2426, obj_t BgL_fza2za2_2429, obj_t BgL_rrrz00_2430)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 165 */
{ /* ./Match/normalize.scm 166 */
obj_t BgL_fz00_2427;obj_t BgL_cz00_2428;
{ /* ./Match/normalize.scm 166 */
int BgL_auxz00_3544;
BgL_auxz00_3544 = 
(int)(((long)0)); 
BgL_fz00_2427 = 
PROCEDURE_REF(BgL_envz00_2426, BgL_auxz00_3544); } 
{ /* ./Match/normalize.scm 166 */
int BgL_auxz00_3547;
BgL_auxz00_3547 = 
(int)(((long)1)); 
BgL_cz00_2428 = 
PROCEDURE_REF(BgL_envz00_2426, BgL_auxz00_3547); } 
{ 
obj_t BgL_fza2za2_810;obj_t BgL_rrrz00_811;
BgL_fza2za2_810 = BgL_fza2za2_2429; 
BgL_rrrz00_811 = BgL_rrrz00_2430; 
{ /* ./Match/normalize.scm 166 */
obj_t BgL_labelz00_813;
BgL_labelz00_813 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3634z00zz__match_normaliza7eza7, BEOA); 
{ /* ./Match/normalize.scm 167 */
obj_t BgL_arg1777z00_814;
{ /* ./Match/normalize.scm 167 */
obj_t BgL_arg1780z00_815;obj_t BgL_arg1781z00_816;
BgL_arg1780z00_815 = BGl_symbol3635z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1784z00_817;
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1787z00_818;obj_t BgL_arg1788z00_819;
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1791z00_820;obj_t BgL_arg1792z00_821;
BgL_arg1791z00_820 = BGl_symbol3624z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1795z00_822;
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1798z00_823;
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1802z00_825;obj_t BgL_arg1803z00_826;
BgL_arg1802z00_825 = BGl_symbol3636z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1806z00_827;
{ /* ./Match/normalize.scm 168 */
obj_t BgL_arg1809z00_828;
BgL_arg1809z00_828 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3637z00zz__match_normaliza7eza7, BEOA); 
BgL_arg1806z00_827 = 
MAKE_PAIR(BgL_arg1809z00_828, BNIL); } 
BgL_arg1803z00_826 = 
MAKE_PAIR(BgL_labelz00_813, BgL_arg1806z00_827); } 
BgL_arg1798z00_823 = 
MAKE_PAIR(BgL_arg1802z00_825, BgL_arg1803z00_826); } 
BgL_arg1795z00_822 = 
MAKE_PAIR(BgL_arg1798z00_823, BNIL); } 
BgL_arg1792z00_821 = 
MAKE_PAIR(BgL_fz00_2427, BgL_arg1795z00_822); } 
BgL_arg1787z00_818 = 
MAKE_PAIR(BgL_arg1791z00_820, BgL_arg1792z00_821); } 
BgL_arg1788z00_819 = 
MAKE_PAIR(BgL_fza2za2_810, BNIL); 
BgL_arg1784z00_817 = 
MAKE_PAIR(BgL_arg1787z00_818, BgL_arg1788z00_819); } 
BgL_arg1781z00_816 = 
MAKE_PAIR(BgL_labelz00_813, BgL_arg1784z00_817); } 
BgL_arg1777z00_814 = 
MAKE_PAIR(BgL_arg1780z00_815, BgL_arg1781z00_816); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2428)(BgL_cz00_2428, BgL_arg1777z00_814, BgL_rrrz00_811, BEOA);} } } } } 
}



/* <anonymous:1815> */
obj_t BGl_zc3anonymousza31815ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2432, obj_t BgL_rz00_2433, obj_t BgL_cz00_2434)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 173 */
{ 
obj_t BgL_rz00_832;obj_t BgL_cz00_833;
BgL_rz00_832 = BgL_rz00_2433; 
BgL_cz00_833 = BgL_cz00_2434; 
{ /* ./Match/normalize.scm 174 */
obj_t BgL_arg1817z00_1846;
BgL_arg1817z00_1846 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
return 
PROCEDURE_ENTRY(BgL_cz00_833)(BgL_cz00_833, BgL_arg1817z00_1846, BgL_rz00_832, BEOA);} } } 
}



/* standardize-cons */
obj_t BGl_standardiza7ezd2consz75zz__match_normaliza7eza7(obj_t BgL_fz00_16, obj_t BgL_fza2za2_17)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 176 */
{ /* ./Match/normalize.scm 177 */
bool_t BgL_test1820z00_836;
if(
PAIRP(BgL_fza2za2_17))
{ /* ./Match/normalize.scm 177 */
obj_t BgL_auxz00_3571;
BgL_auxz00_3571 = 
CAR(BgL_fza2za2_17); 
BgL_test1820z00_836 = 
(BgL_auxz00_3571==BGl_symbol3639z00zz__match_normaliza7eza7); }  else 
{ /* ./Match/normalize.scm 177 */
BgL_test1820z00_836 = ((bool_t)0); } 
if(BgL_test1820z00_836)
{ /* ./Match/normalize.scm 177 */
return 
BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7(BgL_fz00_16, 
CDR(BgL_fza2za2_17));}  else 
{ /* ./Match/normalize.scm 179 */
bool_t BgL_test1825z00_838;
{ /* ./Match/normalize.scm 179 */
obj_t BgL_auxz00_3577;
BgL_auxz00_3577 = 
PROCEDURE_ENTRY(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7)(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7, BGl_symbol3640z00zz__match_normaliza7eza7, BEOA); 
BgL_test1825z00_838 = 
CBOOL(BgL_auxz00_3577); } 
if(BgL_test1825z00_838)
{ /* ./Match/normalize.scm 179 */
return 
BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7(BgL_fz00_16, BgL_fza2za2_17);}  else 
{ /* ./Match/normalize.scm 179 */
return 
BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7(BgL_fz00_16, BgL_fza2za2_17);} } } } 
}



/* make-toggle */
obj_t BGl_makezd2togglezd2zz__match_normaliza7eza7()
{ AN_OBJECT;
{ /* ./Match/normalize.scm 183 */
{ /* ./Match/normalize.scm 184 */
obj_t BgL_valuez00_842;
BgL_valuez00_842 = 
MAKE_CELL(BFALSE); 
{ /* ./Match/normalize.scm 185 */
obj_t BgL_zc3anonymousza31840ze3z83_2435;
{ 
int BgL_auxz00_3586;int BgL_auxz00_3584;
BgL_auxz00_3586 = 
(int)(((long)1)); 
BgL_auxz00_3584 = 
(int)(((long)1)); 
BgL_zc3anonymousza31840ze3z83_2435 = 
make_fx_procedure(BGl_zc3anonymousza31840ze3z83zz__match_normaliza7eza7, BgL_auxz00_3584, BgL_auxz00_3586); } 
{ /* ./Match/normalize.scm 185 */
int BgL_auxz00_3589;
BgL_auxz00_3589 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31840ze3z83_2435, BgL_auxz00_3589, BgL_valuez00_842); } 
return BgL_zc3anonymousza31840ze3z83_2435;} } } 
}



/* <anonymous:1840> */
obj_t BGl_zc3anonymousza31840ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2436, obj_t BgL_msgz00_2438)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 185 */
{ /* ./Match/normalize.scm 186 */
obj_t BgL_valuez00_2437;
{ /* ./Match/normalize.scm 186 */
int BgL_auxz00_3592;
BgL_auxz00_3592 = 
(int)(((long)0)); 
BgL_valuez00_2437 = 
PROCEDURE_REF(BgL_envz00_2436, BgL_auxz00_3592); } 
{ 
obj_t BgL_msgz00_843;
BgL_msgz00_843 = BgL_msgz00_2438; 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_msgz00_843, BGl_symbol3640z00zz__match_normaliza7eza7))
{ /* ./Match/normalize.scm 186 */
return 
CELL_REF(BgL_valuez00_2437);}  else 
{ /* ./Match/normalize.scm 186 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_msgz00_843, BGl_symbol3641z00zz__match_normaliza7eza7))
{ /* ./Match/normalize.scm 186 */
return 
CELL_SET(BgL_valuez00_2437, BTRUE);}  else 
{ /* ./Match/normalize.scm 186 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_msgz00_843, BGl_symbol3642z00zz__match_normaliza7eza7))
{ /* ./Match/normalize.scm 186 */
return 
CELL_SET(BgL_valuez00_2437, BFALSE);}  else 
{ /* ./Match/normalize.scm 186 */
return BUNSPEC;} } } } } } 
}



/* standardize-real-cons */
obj_t BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7(obj_t BgL_fz00_18, obj_t BgL_fza2za2_19)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 193 */
{ /* ./Match/normalize.scm 194 */
obj_t BgL_zc3anonymousza31847ze3z83_2443;
{ 
int BgL_auxz00_3603;int BgL_auxz00_3601;
BgL_auxz00_3603 = 
(int)(((long)2)); 
BgL_auxz00_3601 = 
(int)(((long)2)); 
BgL_zc3anonymousza31847ze3z83_2443 = 
make_fx_procedure(BGl_zc3anonymousza31847ze3z83zz__match_normaliza7eza7, BgL_auxz00_3601, BgL_auxz00_3603); } 
{ /* ./Match/normalize.scm 194 */
int BgL_auxz00_3606;
BgL_auxz00_3606 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31847ze3z83_2443, BgL_auxz00_3606, BgL_fz00_18); } 
{ /* ./Match/normalize.scm 194 */
int BgL_auxz00_3609;
BgL_auxz00_3609 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31847ze3z83_2443, BgL_auxz00_3609, BgL_fza2za2_19); } 
return BgL_zc3anonymousza31847ze3z83_2443;} } 
}



/* <anonymous:1847> */
obj_t BGl_zc3anonymousza31847ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2444, obj_t BgL_rz00_2447, obj_t BgL_cz00_2448)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 194 */
{ /* ./Match/normalize.scm 195 */
obj_t BgL_fz00_2445;obj_t BgL_fza2za2_2446;
{ /* ./Match/normalize.scm 195 */
int BgL_auxz00_3612;
BgL_auxz00_3612 = 
(int)(((long)0)); 
BgL_fz00_2445 = 
PROCEDURE_REF(BgL_envz00_2444, BgL_auxz00_3612); } 
{ /* ./Match/normalize.scm 195 */
int BgL_auxz00_3615;
BgL_auxz00_3615 = 
(int)(((long)1)); 
BgL_fza2za2_2446 = 
PROCEDURE_REF(BgL_envz00_2444, BgL_auxz00_3615); } 
{ 
obj_t BgL_rz00_849;obj_t BgL_cz00_850;
BgL_rz00_849 = BgL_rz00_2447; 
BgL_cz00_850 = BgL_cz00_2448; 
{ /* ./Match/normalize.scm 195 */
obj_t BgL_fun1851z00_852;
BgL_fun1851z00_852 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_fz00_2445); 
{ /* ./Match/normalize.scm 199 */
obj_t BgL_zc3anonymousza31853ze3z83_2442;
{ 
int BgL_auxz00_3621;int BgL_auxz00_3619;
BgL_auxz00_3621 = 
(int)(((long)2)); 
BgL_auxz00_3619 = 
(int)(((long)2)); 
BgL_zc3anonymousza31853ze3z83_2442 = 
make_fx_procedure(BGl_zc3anonymousza31853ze3z83zz__match_normaliza7eza7, BgL_auxz00_3619, BgL_auxz00_3621); } 
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3624;
BgL_auxz00_3624 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31853ze3z83_2442, BgL_auxz00_3624, BgL_fza2za2_2446); } 
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3627;
BgL_auxz00_3627 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31853ze3z83_2442, BgL_auxz00_3627, BgL_cz00_850); } 
return 
PROCEDURE_ENTRY(BgL_fun1851z00_852)(BgL_fun1851z00_852, BgL_rz00_849, BgL_zc3anonymousza31853ze3z83_2442, BEOA);} } } } } 
}



/* <anonymous:1853> */
obj_t BGl_zc3anonymousza31853ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2449, obj_t BgL_pattern1z00_2452, obj_t BgL_rrz00_2453)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 197 */
{ /* ./Match/normalize.scm 199 */
obj_t BgL_fza2za2_2450;obj_t BgL_cz00_2451;
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3632;
BgL_auxz00_3632 = 
(int)(((long)0)); 
BgL_fza2za2_2450 = 
PROCEDURE_REF(BgL_envz00_2449, BgL_auxz00_3632); } 
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3635;
BgL_auxz00_3635 = 
(int)(((long)1)); 
BgL_cz00_2451 = 
PROCEDURE_REF(BgL_envz00_2449, BgL_auxz00_3635); } 
{ 
obj_t BgL_pattern1z00_854;obj_t BgL_rrz00_855;
BgL_pattern1z00_854 = BgL_pattern1z00_2452; 
BgL_rrz00_855 = BgL_rrz00_2453; 
{ /* ./Match/normalize.scm 199 */
obj_t BgL_fun1857z00_1850;
BgL_fun1857z00_1850 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_fza2za2_2450); 
{ /* ./Match/normalize.scm 199 */
obj_t BgL_zc3anonymousza31859ze3z83_2441;
{ 
int BgL_auxz00_3641;int BgL_auxz00_3639;
BgL_auxz00_3641 = 
(int)(((long)2)); 
BgL_auxz00_3639 = 
(int)(((long)2)); 
BgL_zc3anonymousza31859ze3z83_2441 = 
make_fx_procedure(BGl_zc3anonymousza31859ze3z83zz__match_normaliza7eza7, BgL_auxz00_3639, BgL_auxz00_3641); } 
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3644;
BgL_auxz00_3644 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31859ze3z83_2441, BgL_auxz00_3644, BgL_pattern1z00_854); } 
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3647;
BgL_auxz00_3647 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31859ze3z83_2441, BgL_auxz00_3647, BgL_cz00_2451); } 
return 
PROCEDURE_ENTRY(BgL_fun1857z00_1850)(BgL_fun1857z00_1850, BgL_rrz00_855, BgL_zc3anonymousza31859ze3z83_2441, BEOA);} } } } } 
}



/* <anonymous:1859> */
obj_t BGl_zc3anonymousza31859ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2454, obj_t BgL_pattern2z00_2457, obj_t BgL_rrrz00_2458)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 201 */
{ /* ./Match/normalize.scm 199 */
obj_t BgL_pattern1z00_2455;obj_t BgL_cz00_2456;
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3652;
BgL_auxz00_3652 = 
(int)(((long)0)); 
BgL_pattern1z00_2455 = 
PROCEDURE_REF(BgL_envz00_2454, BgL_auxz00_3652); } 
{ /* ./Match/normalize.scm 199 */
int BgL_auxz00_3655;
BgL_auxz00_3655 = 
(int)(((long)1)); 
BgL_cz00_2456 = 
PROCEDURE_REF(BgL_envz00_2454, BgL_auxz00_3655); } 
{ 
obj_t BgL_pattern2z00_1852;obj_t BgL_rrrz00_1853;
BgL_pattern2z00_1852 = BgL_pattern2z00_2457; 
BgL_rrrz00_1853 = BgL_rrrz00_2458; 
{ /* ./Match/normalize.scm 199 */
obj_t BgL_arg1861z00_1858;
{ /* ./Match/normalize.scm 199 */
obj_t BgL_arg1864z00_1859;obj_t BgL_arg1865z00_1860;
BgL_arg1864z00_1859 = BGl_symbol3624z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 199 */
obj_t BgL_arg1868z00_1861;
BgL_arg1868z00_1861 = 
MAKE_PAIR(BgL_pattern2z00_1852, BNIL); 
BgL_arg1865z00_1860 = 
MAKE_PAIR(BgL_pattern1z00_2455, BgL_arg1868z00_1861); } 
BgL_arg1861z00_1858 = 
MAKE_PAIR(BgL_arg1864z00_1859, BgL_arg1865z00_1860); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2456)(BgL_cz00_2456, BgL_arg1861z00_1858, BgL_rrrz00_1853, BEOA);} } } } 
}



/* standardize-real-xcons */
obj_t BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7(obj_t BgL_fz00_20, obj_t BgL_fza2za2_21)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 204 */
{ /* ./Match/normalize.scm 205 */
obj_t BgL_zc3anonymousza31871ze3z83_2461;
{ 
int BgL_auxz00_3665;int BgL_auxz00_3663;
BgL_auxz00_3665 = 
(int)(((long)2)); 
BgL_auxz00_3663 = 
(int)(((long)2)); 
BgL_zc3anonymousza31871ze3z83_2461 = 
make_fx_procedure(BGl_zc3anonymousza31871ze3z83zz__match_normaliza7eza7, BgL_auxz00_3663, BgL_auxz00_3665); } 
{ /* ./Match/normalize.scm 205 */
int BgL_auxz00_3668;
BgL_auxz00_3668 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31871ze3z83_2461, BgL_auxz00_3668, BgL_fza2za2_21); } 
{ /* ./Match/normalize.scm 205 */
int BgL_auxz00_3671;
BgL_auxz00_3671 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31871ze3z83_2461, BgL_auxz00_3671, BgL_fz00_20); } 
return BgL_zc3anonymousza31871ze3z83_2461;} } 
}



/* <anonymous:1871> */
obj_t BGl_zc3anonymousza31871ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2462, obj_t BgL_rz00_2465, obj_t BgL_cz00_2466)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 205 */
{ /* ./Match/normalize.scm 206 */
obj_t BgL_fza2za2_2463;obj_t BgL_fz00_2464;
{ /* ./Match/normalize.scm 206 */
int BgL_auxz00_3674;
BgL_auxz00_3674 = 
(int)(((long)0)); 
BgL_fza2za2_2463 = 
PROCEDURE_REF(BgL_envz00_2462, BgL_auxz00_3674); } 
{ /* ./Match/normalize.scm 206 */
int BgL_auxz00_3677;
BgL_auxz00_3677 = 
(int)(((long)1)); 
BgL_fz00_2464 = 
PROCEDURE_REF(BgL_envz00_2462, BgL_auxz00_3677); } 
{ 
obj_t BgL_rz00_868;obj_t BgL_cz00_869;
BgL_rz00_868 = BgL_rz00_2465; 
BgL_cz00_869 = BgL_cz00_2466; 
{ /* ./Match/normalize.scm 206 */
obj_t BgL_fun1875z00_871;
BgL_fun1875z00_871 = 
BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(BgL_fza2za2_2463); 
{ /* ./Match/normalize.scm 209 */
obj_t BgL_zc3anonymousza31877ze3z83_2460;
{ 
int BgL_auxz00_3683;int BgL_auxz00_3681;
BgL_auxz00_3683 = 
(int)(((long)2)); 
BgL_auxz00_3681 = 
(int)(((long)2)); 
BgL_zc3anonymousza31877ze3z83_2460 = 
make_fx_procedure(BGl_zc3anonymousza31877ze3z83zz__match_normaliza7eza7, BgL_auxz00_3681, BgL_auxz00_3683); } 
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3686;
BgL_auxz00_3686 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31877ze3z83_2460, BgL_auxz00_3686, BgL_fz00_2464); } 
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3689;
BgL_auxz00_3689 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31877ze3z83_2460, BgL_auxz00_3689, BgL_cz00_869); } 
return 
PROCEDURE_ENTRY(BgL_fun1875z00_871)(BgL_fun1875z00_871, BgL_rz00_868, BgL_zc3anonymousza31877ze3z83_2460, BEOA);} } } } } 
}



/* <anonymous:1877> */
obj_t BGl_zc3anonymousza31877ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2467, obj_t BgL_pattern1z00_2470, obj_t BgL_rrz00_2471)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 208 */
{ /* ./Match/normalize.scm 209 */
obj_t BgL_fz00_2468;obj_t BgL_cz00_2469;
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3694;
BgL_auxz00_3694 = 
(int)(((long)0)); 
BgL_fz00_2468 = 
PROCEDURE_REF(BgL_envz00_2467, BgL_auxz00_3694); } 
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3697;
BgL_auxz00_3697 = 
(int)(((long)1)); 
BgL_cz00_2469 = 
PROCEDURE_REF(BgL_envz00_2467, BgL_auxz00_3697); } 
{ 
obj_t BgL_pattern1z00_873;obj_t BgL_rrz00_874;
BgL_pattern1z00_873 = BgL_pattern1z00_2470; 
BgL_rrz00_874 = BgL_rrz00_2471; 
{ /* ./Match/normalize.scm 209 */
obj_t BgL_fun1881z00_1862;
BgL_fun1881z00_1862 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_fz00_2468); 
{ /* ./Match/normalize.scm 209 */
obj_t BgL_zc3anonymousza31883ze3z83_2459;
{ 
int BgL_auxz00_3703;int BgL_auxz00_3701;
BgL_auxz00_3703 = 
(int)(((long)2)); 
BgL_auxz00_3701 = 
(int)(((long)2)); 
BgL_zc3anonymousza31883ze3z83_2459 = 
make_fx_procedure(BGl_zc3anonymousza31883ze3z83zz__match_normaliza7eza7, BgL_auxz00_3701, BgL_auxz00_3703); } 
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3706;
BgL_auxz00_3706 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31883ze3z83_2459, BgL_auxz00_3706, BgL_pattern1z00_873); } 
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3709;
BgL_auxz00_3709 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31883ze3z83_2459, BgL_auxz00_3709, BgL_cz00_2469); } 
return 
PROCEDURE_ENTRY(BgL_fun1881z00_1862)(BgL_fun1881z00_1862, BgL_rrz00_874, BgL_zc3anonymousza31883ze3z83_2459, BEOA);} } } } } 
}



/* <anonymous:1883> */
obj_t BGl_zc3anonymousza31883ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2472, obj_t BgL_pattern2z00_2475, obj_t BgL_rrrz00_2476)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 211 */
{ /* ./Match/normalize.scm 209 */
obj_t BgL_pattern1z00_2473;obj_t BgL_cz00_2474;
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3714;
BgL_auxz00_3714 = 
(int)(((long)0)); 
BgL_pattern1z00_2473 = 
PROCEDURE_REF(BgL_envz00_2472, BgL_auxz00_3714); } 
{ /* ./Match/normalize.scm 209 */
int BgL_auxz00_3717;
BgL_auxz00_3717 = 
(int)(((long)1)); 
BgL_cz00_2474 = 
PROCEDURE_REF(BgL_envz00_2472, BgL_auxz00_3717); } 
{ 
obj_t BgL_pattern2z00_1864;obj_t BgL_rrrz00_1865;
BgL_pattern2z00_1864 = BgL_pattern2z00_2475; 
BgL_rrrz00_1865 = BgL_rrrz00_2476; 
{ /* ./Match/normalize.scm 209 */
obj_t BgL_arg1885z00_1870;
{ /* ./Match/normalize.scm 209 */
obj_t BgL_arg1888z00_1871;obj_t BgL_arg1889z00_1872;
BgL_arg1888z00_1871 = BGl_symbol3643z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 209 */
obj_t BgL_arg1892z00_1873;
BgL_arg1892z00_1873 = 
MAKE_PAIR(BgL_pattern1z00_2473, BNIL); 
BgL_arg1889z00_1872 = 
MAKE_PAIR(BgL_pattern2z00_1864, BgL_arg1892z00_1873); } 
BgL_arg1885z00_1870 = 
MAKE_PAIR(BgL_arg1888z00_1871, BgL_arg1889z00_1872); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2474)(BgL_cz00_2474, BgL_arg1885z00_1870, BgL_rrrz00_1865, BEOA);} } } } 
}



/* standardize-hole-variable */
obj_t BGl_standardiza7ezd2holezd2variableza7zz__match_normaliza7eza7(obj_t BgL_ez00_23)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 227 */
{ /* ./Match/normalize.scm 228 */
obj_t BgL_zc3anonymousza31905ze3z83_2477;
{ 
int BgL_auxz00_3727;int BgL_auxz00_3725;
BgL_auxz00_3727 = 
(int)(((long)1)); 
BgL_auxz00_3725 = 
(int)(((long)2)); 
BgL_zc3anonymousza31905ze3z83_2477 = 
make_fx_procedure(BGl_zc3anonymousza31905ze3z83zz__match_normaliza7eza7, BgL_auxz00_3725, BgL_auxz00_3727); } 
{ /* ./Match/normalize.scm 228 */
int BgL_auxz00_3730;
BgL_auxz00_3730 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31905ze3z83_2477, BgL_auxz00_3730, BgL_ez00_23); } 
return BgL_zc3anonymousza31905ze3z83_2477;} } 
}



/* <anonymous:1905> */
obj_t BGl_zc3anonymousza31905ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2478, obj_t BgL_rz00_2480, obj_t BgL_cz00_2481)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 228 */
{ /* ./Match/normalize.scm 229 */
obj_t BgL_ez00_2479;
{ /* ./Match/normalize.scm 229 */
int BgL_auxz00_3733;
BgL_auxz00_3733 = 
(int)(((long)0)); 
BgL_ez00_2479 = 
PROCEDURE_REF(BgL_envz00_2478, BgL_auxz00_3733); } 
{ 
obj_t BgL_rz00_894;obj_t BgL_cz00_895;
BgL_rz00_894 = BgL_rz00_2480; 
BgL_cz00_895 = BgL_cz00_2481; 
{ /* ./Match/normalize.scm 229 */
obj_t BgL_namez00_1896;
{ /* ./Match/normalize.scm 229 */
obj_t BgL_sz00_1904;
BgL_sz00_1904 = 
SYMBOL_TO_STRING(BgL_ez00_2479); 
{ /* ./Match/normalize.scm 229 */
obj_t BgL_arg1649z00_1905;
{ /* ./Match/normalize.scm 229 */
int BgL_auxz00_3739;int BgL_auxz00_3737;
BgL_auxz00_3739 = 
STRING_LENGTH(BgL_sz00_1904); 
BgL_auxz00_3737 = 
(int)(((long)1)); 
BgL_arg1649z00_1905 = 
c_substring(BgL_sz00_1904, BgL_auxz00_3737, BgL_auxz00_3739); } 
{ /* ./Match/normalize.scm 229 */
char * BgL_auxz00_3742;
BgL_auxz00_3742 = 
BSTRING_TO_STRING(BgL_arg1649z00_1905); 
BgL_namez00_1896 = 
string_to_symbol(BgL_auxz00_3742); } } } 
{ /* ./Match/normalize.scm 229 */
obj_t BgL_arg1907z00_1897;
{ /* ./Match/normalize.scm 229 */
obj_t BgL_arg1910z00_1898;obj_t BgL_arg1911z00_1899;
BgL_arg1910z00_1898 = BGl_symbol3636z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 229 */
obj_t BgL_arg1915z00_1900;
{ /* ./Match/normalize.scm 229 */
obj_t BgL_arg1919z00_1901;
BgL_arg1919z00_1901 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3637z00zz__match_normaliza7eza7, BEOA); 
BgL_arg1915z00_1900 = 
MAKE_PAIR(BgL_arg1919z00_1901, BNIL); } 
BgL_arg1911z00_1899 = 
MAKE_PAIR(BgL_namez00_1896, BgL_arg1915z00_1900); } 
BgL_arg1907z00_1897 = 
MAKE_PAIR(BgL_arg1910z00_1898, BgL_arg1911z00_1899); } 
return 
PROCEDURE_ENTRY(BgL_cz00_895)(BgL_cz00_895, BgL_arg1907z00_1897, BgL_rz00_894, BEOA);} } } } } 
}



/* standardize-segment-variable */
obj_t BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(obj_t BgL_ez00_25, obj_t BgL_fza2za2_26)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 236 */
{ /* ./Match/normalize.scm 237 */
obj_t BgL_zc3anonymousza31936ze3z83_2484;
{ 
int BgL_auxz00_3754;int BgL_auxz00_3752;
BgL_auxz00_3754 = 
(int)(((long)2)); 
BgL_auxz00_3752 = 
(int)(((long)2)); 
BgL_zc3anonymousza31936ze3z83_2484 = 
make_fx_procedure(BGl_zc3anonymousza31936ze3z83zz__match_normaliza7eza7, BgL_auxz00_3752, BgL_auxz00_3754); } 
{ /* ./Match/normalize.scm 237 */
int BgL_auxz00_3757;
BgL_auxz00_3757 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31936ze3z83_2484, BgL_auxz00_3757, BgL_ez00_25); } 
{ /* ./Match/normalize.scm 237 */
int BgL_auxz00_3760;
BgL_auxz00_3760 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31936ze3z83_2484, BgL_auxz00_3760, BgL_fza2za2_26); } 
return BgL_zc3anonymousza31936ze3z83_2484;} } 
}



/* <anonymous:1936> */
obj_t BGl_zc3anonymousza31936ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2485, obj_t BgL_rz00_2488, obj_t BgL_cz00_2489)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 237 */
{ /* ./Match/normalize.scm 238 */
obj_t BgL_ez00_2486;obj_t BgL_fza2za2_2487;
{ /* ./Match/normalize.scm 238 */
int BgL_auxz00_3763;
BgL_auxz00_3763 = 
(int)(((long)0)); 
BgL_ez00_2486 = 
PROCEDURE_REF(BgL_envz00_2485, BgL_auxz00_3763); } 
{ /* ./Match/normalize.scm 238 */
int BgL_auxz00_3766;
BgL_auxz00_3766 = 
(int)(((long)1)); 
BgL_fza2za2_2487 = 
PROCEDURE_REF(BgL_envz00_2485, BgL_auxz00_3766); } 
{ 
obj_t BgL_rz00_910;obj_t BgL_cz00_911;
BgL_rz00_910 = BgL_rz00_2488; 
BgL_cz00_911 = BgL_cz00_2489; 
{ /* ./Match/normalize.scm 238 */
obj_t BgL_namez00_913;
{ /* ./Match/normalize.scm 238 */
obj_t BgL_sz00_1924;
BgL_sz00_1924 = 
SYMBOL_TO_STRING(BgL_ez00_2486); 
{ /* ./Match/normalize.scm 238 */
obj_t BgL_arg1630z00_1925;
{ /* ./Match/normalize.scm 238 */
int BgL_auxz00_3772;int BgL_auxz00_3770;
BgL_auxz00_3772 = 
STRING_LENGTH(BgL_sz00_1924); 
BgL_auxz00_3770 = 
(int)(((long)2)); 
BgL_arg1630z00_1925 = 
c_substring(BgL_sz00_1924, BgL_auxz00_3770, BgL_auxz00_3772); } 
{ /* ./Match/normalize.scm 238 */
char * BgL_auxz00_3775;
BgL_auxz00_3775 = 
BSTRING_TO_STRING(BgL_arg1630z00_1925); 
BgL_namez00_913 = 
string_to_symbol(BgL_auxz00_3775); } } } 
{ /* ./Match/normalize.scm 239 */
bool_t BgL_test1937z00_914;
{ /* ./Match/normalize.scm 239 */
obj_t BgL_auxz00_3778;
{ /* ./Match/normalize.scm 239 */
bool_t BgL_testz00_3779;
{ /* ./Match/normalize.scm 239 */
obj_t BgL_auxz00_3780;
BgL_auxz00_3780 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_913, BgL_rz00_910); 
BgL_testz00_3779 = 
CBOOL(BgL_auxz00_3780); } 
if(BgL_testz00_3779)
{ /* ./Match/normalize.scm 239 */
obj_t BgL_auxz00_3783;
BgL_auxz00_3783 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_913, BgL_rz00_910); 
BgL_auxz00_3778 = 
CDR(BgL_auxz00_3783); }  else 
{ /* ./Match/normalize.scm 239 */
BgL_auxz00_3778 = BFALSE
; } } 
BgL_test1937z00_914 = 
(BgL_auxz00_3778==BGl_unboundzd2patternzd2zz__match_normaliza7eza7); } 
if(BgL_test1937z00_914)
{ /* ./Match/normalize.scm 240 */
obj_t BgL_fun1944z00_915;
BgL_fun1944z00_915 = 
BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(BgL_fza2za2_2487); 
{ /* ./Match/normalize.scm 241 */
obj_t BgL_arg1941z00_916;
{ /* ./Match/normalize.scm 241 */
obj_t BgL_imz00_1941;
BgL_imz00_1941 = BGl_symbol3644z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 241 */
obj_t BgL_arg2269z00_1942;
BgL_arg2269z00_1942 = 
MAKE_PAIR(BgL_namez00_913, BgL_imz00_1941); 
BgL_arg1941z00_916 = 
MAKE_PAIR(BgL_arg2269z00_1942, BgL_rz00_910); } } 
{ /* ./Match/normalize.scm 243 */
obj_t BgL_zc3anonymousza31947ze3z83_2482;
{ 
int BgL_auxz00_3793;int BgL_auxz00_3791;
BgL_auxz00_3793 = 
(int)(((long)2)); 
BgL_auxz00_3791 = 
(int)(((long)2)); 
BgL_zc3anonymousza31947ze3z83_2482 = 
make_fx_procedure(BGl_zc3anonymousza31947ze3z83zz__match_normaliza7eza7, BgL_auxz00_3791, BgL_auxz00_3793); } 
{ /* ./Match/normalize.scm 243 */
int BgL_auxz00_3796;
BgL_auxz00_3796 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31947ze3z83_2482, BgL_auxz00_3796, BgL_namez00_913); } 
{ /* ./Match/normalize.scm 243 */
int BgL_auxz00_3799;
BgL_auxz00_3799 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31947ze3z83_2482, BgL_auxz00_3799, BgL_cz00_911); } 
return 
PROCEDURE_ENTRY(BgL_fun1944z00_915)(BgL_fun1944z00_915, BgL_arg1941z00_916, BgL_zc3anonymousza31947ze3z83_2482, BEOA);} } }  else 
{ /* ./Match/normalize.scm 251 */
obj_t BgL_fun2015z00_949;
BgL_fun2015z00_949 = 
BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(BgL_fza2za2_2487); 
{ /* ./Match/normalize.scm 254 */
obj_t BgL_zc3anonymousza32017ze3z83_2483;
{ 
int BgL_auxz00_3807;int BgL_auxz00_3805;
BgL_auxz00_3807 = 
(int)(((long)2)); 
BgL_auxz00_3805 = 
(int)(((long)2)); 
BgL_zc3anonymousza32017ze3z83_2483 = 
make_fx_procedure(BGl_zc3anonymousza32017ze3z83zz__match_normaliza7eza7, BgL_auxz00_3805, BgL_auxz00_3807); } 
{ /* ./Match/normalize.scm 254 */
int BgL_auxz00_3810;
BgL_auxz00_3810 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32017ze3z83_2483, BgL_auxz00_3810, BgL_namez00_913); } 
{ /* ./Match/normalize.scm 254 */
int BgL_auxz00_3813;
BgL_auxz00_3813 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32017ze3z83_2483, BgL_auxz00_3813, BgL_cz00_911); } 
return 
PROCEDURE_ENTRY(BgL_fun2015z00_949)(BgL_fun2015z00_949, BgL_rz00_910, BgL_zc3anonymousza32017ze3z83_2483, BEOA);} } } } } } } 
}



/* <anonymous:1947> */
obj_t BGl_zc3anonymousza31947ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2490, obj_t BgL_patternz00_2493, obj_t BgL_rrz00_2494)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 242 */
{ /* ./Match/normalize.scm 243 */
obj_t BgL_namez00_2491;obj_t BgL_cz00_2492;
{ /* ./Match/normalize.scm 243 */
int BgL_auxz00_3818;
BgL_auxz00_3818 = 
(int)(((long)0)); 
BgL_namez00_2491 = 
PROCEDURE_REF(BgL_envz00_2490, BgL_auxz00_3818); } 
{ /* ./Match/normalize.scm 243 */
int BgL_auxz00_3821;
BgL_auxz00_3821 = 
(int)(((long)1)); 
BgL_cz00_2492 = 
PROCEDURE_REF(BgL_envz00_2490, BgL_auxz00_3821); } 
{ 
obj_t BgL_patternz00_918;obj_t BgL_rrz00_919;
BgL_patternz00_918 = BgL_patternz00_2493; 
BgL_rrz00_919 = BgL_rrz00_2494; 
{ /* ./Match/normalize.scm 243 */
obj_t BgL_labelz00_921;
BgL_labelz00_921 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3634z00zz__match_normaliza7eza7, BEOA); 
{ /* ./Match/normalize.scm 244 */
obj_t BgL_arg1949z00_922;
{ /* ./Match/normalize.scm 244 */
obj_t BgL_arg1952z00_923;obj_t BgL_arg1953z00_924;
BgL_arg1952z00_923 = BGl_symbol3645z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 246 */
obj_t BgL_arg1956z00_925;
{ /* ./Match/normalize.scm 246 */
obj_t BgL_arg1960z00_926;obj_t BgL_arg1961z00_927;
{ /* ./Match/normalize.scm 246 */
obj_t BgL_arg1964z00_928;obj_t BgL_arg1965z00_929;
BgL_arg1964z00_928 = BGl_symbol3646z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1968z00_930;
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1971z00_931;obj_t BgL_arg1973z00_932;
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1976z00_933;obj_t BgL_arg1977z00_934;
BgL_arg1976z00_933 = BGl_symbol3624z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1980z00_935;obj_t BgL_arg1981z00_936;
BgL_arg1980z00_935 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1985z00_937;
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1989z00_939;obj_t BgL_arg1990z00_940;
BgL_arg1989z00_939 = BGl_symbol3636z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1993z00_941;
{ /* ./Match/normalize.scm 247 */
obj_t BgL_arg1996z00_942;
BgL_arg1996z00_942 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3637z00zz__match_normaliza7eza7, BEOA); 
BgL_arg1993z00_941 = 
MAKE_PAIR(BgL_arg1996z00_942, BNIL); } 
BgL_arg1990z00_940 = 
MAKE_PAIR(BgL_labelz00_921, BgL_arg1993z00_941); } 
BgL_arg1985z00_937 = 
MAKE_PAIR(BgL_arg1989z00_939, BgL_arg1990z00_940); } 
BgL_arg1981z00_936 = 
MAKE_PAIR(BgL_arg1985z00_937, BNIL); } 
BgL_arg1977z00_934 = 
MAKE_PAIR(BgL_arg1980z00_935, BgL_arg1981z00_936); } 
BgL_arg1971z00_931 = 
MAKE_PAIR(BgL_arg1976z00_933, BgL_arg1977z00_934); } 
{ /* ./Match/normalize.scm 248 */
obj_t BgL_arg2001z00_944;
{ /* ./Match/normalize.scm 248 */
obj_t BgL_arg2005z00_946;obj_t BgL_arg2006z00_947;
BgL_arg2005z00_946 = BGl_symbol3647z00zz__match_normaliza7eza7; 
BgL_arg2006z00_947 = 
MAKE_PAIR(BgL_namez00_2491, BNIL); 
BgL_arg2001z00_944 = 
MAKE_PAIR(BgL_arg2005z00_946, BgL_arg2006z00_947); } 
BgL_arg1973z00_932 = 
MAKE_PAIR(BgL_arg2001z00_944, BNIL); } 
BgL_arg1968z00_930 = 
MAKE_PAIR(BgL_arg1971z00_931, BgL_arg1973z00_932); } 
BgL_arg1965z00_929 = 
MAKE_PAIR(BgL_labelz00_921, BgL_arg1968z00_930); } 
BgL_arg1960z00_926 = 
MAKE_PAIR(BgL_arg1964z00_928, BgL_arg1965z00_929); } 
BgL_arg1961z00_927 = 
MAKE_PAIR(BgL_patternz00_918, BNIL); 
BgL_arg1956z00_925 = 
MAKE_PAIR(BgL_arg1960z00_926, BgL_arg1961z00_927); } 
BgL_arg1953z00_924 = 
MAKE_PAIR(BgL_namez00_2491, BgL_arg1956z00_925); } 
BgL_arg1949z00_922 = 
MAKE_PAIR(BgL_arg1952z00_923, BgL_arg1953z00_924); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2492)(BgL_cz00_2492, BgL_arg1949z00_922, BgL_rrz00_919, BEOA);} } } } } 
}



/* <anonymous:2017> */
obj_t BGl_zc3anonymousza32017ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2495, obj_t BgL_patternz00_2498, obj_t BgL_rrz00_2499)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 253 */
{ /* ./Match/normalize.scm 254 */
obj_t BgL_namez00_2496;obj_t BgL_cz00_2497;
{ /* ./Match/normalize.scm 254 */
int BgL_auxz00_3847;
BgL_auxz00_3847 = 
(int)(((long)0)); 
BgL_namez00_2496 = 
PROCEDURE_REF(BgL_envz00_2495, BgL_auxz00_3847); } 
{ /* ./Match/normalize.scm 254 */
int BgL_auxz00_3850;
BgL_auxz00_3850 = 
(int)(((long)1)); 
BgL_cz00_2497 = 
PROCEDURE_REF(BgL_envz00_2495, BgL_auxz00_3850); } 
{ 
obj_t BgL_patternz00_951;obj_t BgL_rrz00_952;
BgL_patternz00_951 = BgL_patternz00_2498; 
BgL_rrz00_952 = BgL_rrz00_2499; 
{ /* ./Match/normalize.scm 254 */
obj_t BgL_arg2019z00_1943;
{ /* ./Match/normalize.scm 254 */
obj_t BgL_arg2022z00_1944;obj_t BgL_arg2023z00_1945;
BgL_arg2022z00_1944 = BGl_symbol3648z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 254 */
obj_t BgL_arg2026z00_1946;
BgL_arg2026z00_1946 = 
MAKE_PAIR(BgL_patternz00_951, BNIL); 
BgL_arg2023z00_1945 = 
MAKE_PAIR(BgL_namez00_2496, BgL_arg2026z00_1946); } 
BgL_arg2019z00_1943 = 
MAKE_PAIR(BgL_arg2022z00_1944, BgL_arg2023z00_1945); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2497)(BgL_cz00_2497, BgL_arg2019z00_1943, BgL_rrz00_952, BEOA);} } } } 
}



/* standardize-tree-variable */
obj_t BGl_standardiza7ezd2treezd2variableza7zz__match_normaliza7eza7(obj_t BgL_ez00_27, obj_t BgL_f1z00_28, obj_t BgL_f2z00_29)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 256 */
{ /* ./Match/normalize.scm 257 */
obj_t BgL_zc3anonymousza32034ze3z83_2502;
{ 
int BgL_auxz00_3860;int BgL_auxz00_3858;
BgL_auxz00_3860 = 
(int)(((long)3)); 
BgL_auxz00_3858 = 
(int)(((long)2)); 
BgL_zc3anonymousza32034ze3z83_2502 = 
make_fx_procedure(BGl_zc3anonymousza32034ze3z83zz__match_normaliza7eza7, BgL_auxz00_3858, BgL_auxz00_3860); } 
{ /* ./Match/normalize.scm 257 */
int BgL_auxz00_3863;
BgL_auxz00_3863 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32034ze3z83_2502, BgL_auxz00_3863, BgL_ez00_27); } 
{ /* ./Match/normalize.scm 257 */
int BgL_auxz00_3866;
BgL_auxz00_3866 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32034ze3z83_2502, BgL_auxz00_3866, BgL_f1z00_28); } 
{ /* ./Match/normalize.scm 257 */
int BgL_auxz00_3869;
BgL_auxz00_3869 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32034ze3z83_2502, BgL_auxz00_3869, BgL_f2z00_29); } 
return BgL_zc3anonymousza32034ze3z83_2502;} } 
}



/* <anonymous:2034> */
obj_t BGl_zc3anonymousza32034ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2503, obj_t BgL_rz00_2507, obj_t BgL_cz00_2508)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 257 */
{ /* ./Match/normalize.scm 258 */
obj_t BgL_ez00_2504;obj_t BgL_f1z00_2505;obj_t BgL_f2z00_2506;
{ /* ./Match/normalize.scm 258 */
int BgL_auxz00_3872;
BgL_auxz00_3872 = 
(int)(((long)0)); 
BgL_ez00_2504 = 
PROCEDURE_REF(BgL_envz00_2503, BgL_auxz00_3872); } 
{ /* ./Match/normalize.scm 258 */
int BgL_auxz00_3875;
BgL_auxz00_3875 = 
(int)(((long)1)); 
BgL_f1z00_2505 = 
PROCEDURE_REF(BgL_envz00_2503, BgL_auxz00_3875); } 
{ /* ./Match/normalize.scm 258 */
int BgL_auxz00_3878;
BgL_auxz00_3878 = 
(int)(((long)2)); 
BgL_f2z00_2506 = 
PROCEDURE_REF(BgL_envz00_2503, BgL_auxz00_3878); } 
{ 
obj_t BgL_rz00_960;obj_t BgL_cz00_961;
BgL_rz00_960 = BgL_rz00_2507; 
BgL_cz00_961 = BgL_cz00_2508; 
{ /* ./Match/normalize.scm 258 */
obj_t BgL_namez00_963;
{ /* ./Match/normalize.scm 258 */
obj_t BgL_sz00_1948;
BgL_sz00_1948 = 
SYMBOL_TO_STRING(BgL_ez00_2504); 
{ /* ./Match/normalize.scm 258 */
obj_t BgL_arg1640z00_1949;
{ /* ./Match/normalize.scm 258 */
int BgL_auxz00_3884;int BgL_auxz00_3882;
BgL_auxz00_3884 = 
STRING_LENGTH(BgL_sz00_1948); 
BgL_auxz00_3882 = 
(int)(((long)1)); 
BgL_arg1640z00_1949 = 
c_substring(BgL_sz00_1948, BgL_auxz00_3882, BgL_auxz00_3884); } 
{ /* ./Match/normalize.scm 258 */
char * BgL_auxz00_3887;
BgL_auxz00_3887 = 
BSTRING_TO_STRING(BgL_arg1640z00_1949); 
BgL_namez00_963 = 
string_to_symbol(BgL_auxz00_3887); } } } 
{ /* ./Match/normalize.scm 259 */
obj_t BgL_fun2039z00_964;
BgL_fun2039z00_964 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_f1z00_2505); 
{ /* ./Match/normalize.scm 260 */
obj_t BgL_arg2037z00_965;
{ /* ./Match/normalize.scm 260 */
obj_t BgL_imz00_1960;
BgL_imz00_1960 = BGl_symbol3646z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 260 */
obj_t BgL_arg2269z00_1961;
BgL_arg2269z00_1961 = 
MAKE_PAIR(BgL_namez00_963, BgL_imz00_1960); 
BgL_arg2037z00_965 = 
MAKE_PAIR(BgL_arg2269z00_1961, BgL_rz00_960); } } 
{ /* ./Match/normalize.scm 262 */
obj_t BgL_zc3anonymousza32042ze3z83_2501;
{ 
int BgL_auxz00_3895;int BgL_auxz00_3893;
BgL_auxz00_3895 = 
(int)(((long)3)); 
BgL_auxz00_3893 = 
(int)(((long)2)); 
BgL_zc3anonymousza32042ze3z83_2501 = 
make_fx_procedure(BGl_zc3anonymousza32042ze3z83zz__match_normaliza7eza7, BgL_auxz00_3893, BgL_auxz00_3895); } 
{ /* ./Match/normalize.scm 262 */
int BgL_auxz00_3898;
BgL_auxz00_3898 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32042ze3z83_2501, BgL_auxz00_3898, BgL_f2z00_2506); } 
{ /* ./Match/normalize.scm 262 */
int BgL_auxz00_3901;
BgL_auxz00_3901 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32042ze3z83_2501, BgL_auxz00_3901, BgL_namez00_963); } 
{ /* ./Match/normalize.scm 262 */
int BgL_auxz00_3904;
BgL_auxz00_3904 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32042ze3z83_2501, BgL_auxz00_3904, BgL_cz00_961); } 
return 
PROCEDURE_ENTRY(BgL_fun2039z00_964)(BgL_fun2039z00_964, BgL_arg2037z00_965, BgL_zc3anonymousza32042ze3z83_2501, BEOA);} } } } } } } 
}



/* <anonymous:2042> */
obj_t BGl_zc3anonymousza32042ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2509, obj_t BgL_holezd2patternzd2_2513, obj_t BgL_rrz00_2514)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 261 */
{ /* ./Match/normalize.scm 262 */
obj_t BgL_f2z00_2510;obj_t BgL_namez00_2511;obj_t BgL_cz00_2512;
{ /* ./Match/normalize.scm 262 */
int BgL_auxz00_3909;
BgL_auxz00_3909 = 
(int)(((long)0)); 
BgL_f2z00_2510 = 
PROCEDURE_REF(BgL_envz00_2509, BgL_auxz00_3909); } 
{ /* ./Match/normalize.scm 262 */
int BgL_auxz00_3912;
BgL_auxz00_3912 = 
(int)(((long)1)); 
BgL_namez00_2511 = 
PROCEDURE_REF(BgL_envz00_2509, BgL_auxz00_3912); } 
{ /* ./Match/normalize.scm 262 */
int BgL_auxz00_3915;
BgL_auxz00_3915 = 
(int)(((long)2)); 
BgL_cz00_2512 = 
PROCEDURE_REF(BgL_envz00_2509, BgL_auxz00_3915); } 
{ 
obj_t BgL_holezd2patternzd2_967;obj_t BgL_rrz00_968;
BgL_holezd2patternzd2_967 = BgL_holezd2patternzd2_2513; 
BgL_rrz00_968 = BgL_rrz00_2514; 
{ /* ./Match/normalize.scm 262 */
obj_t BgL_fun2046z00_970;
BgL_fun2046z00_970 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_f2z00_2510); 
{ /* ./Match/normalize.scm 265 */
obj_t BgL_zc3anonymousza32048ze3z83_2500;
{ 
int BgL_auxz00_3921;int BgL_auxz00_3919;
BgL_auxz00_3921 = 
(int)(((long)3)); 
BgL_auxz00_3919 = 
(int)(((long)2)); 
BgL_zc3anonymousza32048ze3z83_2500 = 
make_fx_procedure(BGl_zc3anonymousza32048ze3z83zz__match_normaliza7eza7, BgL_auxz00_3919, BgL_auxz00_3921); } 
{ /* ./Match/normalize.scm 265 */
int BgL_auxz00_3924;
BgL_auxz00_3924 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32048ze3z83_2500, BgL_auxz00_3924, BgL_namez00_2511); } 
{ /* ./Match/normalize.scm 265 */
int BgL_auxz00_3927;
BgL_auxz00_3927 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32048ze3z83_2500, BgL_auxz00_3927, BgL_holezd2patternzd2_967); } 
{ /* ./Match/normalize.scm 265 */
int BgL_auxz00_3930;
BgL_auxz00_3930 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32048ze3z83_2500, BgL_auxz00_3930, BgL_cz00_2512); } 
return 
PROCEDURE_ENTRY(BgL_fun2046z00_970)(BgL_fun2046z00_970, BgL_rrz00_968, BgL_zc3anonymousza32048ze3z83_2500, BEOA);} } } } } 
}



/* <anonymous:2048> */
obj_t BGl_zc3anonymousza32048ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2515, obj_t BgL_patternsz00_2519, obj_t BgL_rrrz00_2520)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 264 */
{ /* ./Match/normalize.scm 265 */
obj_t BgL_namez00_2516;obj_t BgL_holezd2patternzd2_2517;obj_t BgL_cz00_2518;
{ /* ./Match/normalize.scm 265 */
int BgL_auxz00_3935;
BgL_auxz00_3935 = 
(int)(((long)0)); 
BgL_namez00_2516 = 
PROCEDURE_REF(BgL_envz00_2515, BgL_auxz00_3935); } 
{ /* ./Match/normalize.scm 265 */
int BgL_auxz00_3938;
BgL_auxz00_3938 = 
(int)(((long)1)); 
BgL_holezd2patternzd2_2517 = 
PROCEDURE_REF(BgL_envz00_2515, BgL_auxz00_3938); } 
{ /* ./Match/normalize.scm 265 */
int BgL_auxz00_3941;
BgL_auxz00_3941 = 
(int)(((long)2)); 
BgL_cz00_2518 = 
PROCEDURE_REF(BgL_envz00_2515, BgL_auxz00_3941); } 
{ 
obj_t BgL_patternsz00_972;obj_t BgL_rrrz00_973;
BgL_patternsz00_972 = BgL_patternsz00_2519; 
BgL_rrrz00_973 = BgL_rrrz00_2520; 
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(
BGl_oczd2countzd2zz__match_normaliza7eza7(BgL_namez00_2516, BgL_patternsz00_972), 
BINT(((long)1))))
{ /* ./Match/normalize.scm 266 */
obj_t BgL_arg2051z00_976;
{ /* ./Match/normalize.scm 266 */
obj_t BgL_arg2054z00_977;obj_t BgL_arg2055z00_978;
BgL_arg2054z00_977 = BGl_symbol3646z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 266 */
obj_t BgL_arg2058z00_979;
{ /* ./Match/normalize.scm 266 */
obj_t BgL_arg2061z00_980;
BgL_arg2061z00_980 = 
MAKE_PAIR(BgL_holezd2patternzd2_2517, BNIL); 
BgL_arg2058z00_979 = 
MAKE_PAIR(BgL_patternsz00_972, BgL_arg2061z00_980); } 
BgL_arg2055z00_978 = 
MAKE_PAIR(BgL_namez00_2516, BgL_arg2058z00_979); } 
BgL_arg2051z00_976 = 
MAKE_PAIR(BgL_arg2054z00_977, BgL_arg2055z00_978); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2518)(BgL_cz00_2518, BgL_arg2051z00_976, BgL_rrrz00_973, BEOA);}  else 
{ /* ./Match/normalize.scm 267 */
obj_t BgL_arg2065z00_981;
{ /* ./Match/normalize.scm 267 */
obj_t BgL_arg2068z00_982;obj_t BgL_arg2069z00_983;
BgL_arg2068z00_982 = BGl_symbol3635z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 267 */
obj_t BgL_arg2072z00_984;
{ /* ./Match/normalize.scm 267 */
obj_t BgL_arg2075z00_985;
BgL_arg2075z00_985 = 
MAKE_PAIR(BgL_holezd2patternzd2_2517, BNIL); 
BgL_arg2072z00_984 = 
MAKE_PAIR(BgL_patternsz00_972, BgL_arg2075z00_985); } 
BgL_arg2069z00_983 = 
MAKE_PAIR(BgL_namez00_2516, BgL_arg2072z00_984); } 
BgL_arg2065z00_981 = 
MAKE_PAIR(BgL_arg2068z00_982, BgL_arg2069z00_983); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2518)(BgL_cz00_2518, BgL_arg2065z00_981, BgL_rrrz00_973, BEOA);} } } } 
}



/* oc-count */
obj_t BGl_oczd2countzd2zz__match_normaliza7eza7(obj_t BgL_namez00_30, obj_t BgL_patternz00_31)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 269 */
if(
NULLP(BgL_patternz00_31))
{ /* ./Match/normalize.scm 271 */
return 
BINT(((long)0));}  else 
{ /* ./Match/normalize.scm 272 */
bool_t BgL_testz00_3963;
{ /* ./Match/normalize.scm 272 */
obj_t BgL_auxz00_3964;
BgL_auxz00_3964 = 
CAR(BgL_patternz00_31); 
BgL_testz00_3963 = 
(BgL_auxz00_3964==BGl_symbol3636z00zz__match_normaliza7eza7); } 
if(BgL_testz00_3963)
{ /* ./Match/normalize.scm 272 */
{ /* ./Match/normalize.scm 273 */
bool_t BgL_testz00_3967;
{ /* ./Match/normalize.scm 273 */
obj_t BgL_auxz00_3968;
{ /* ./Match/normalize.scm 273 */
obj_t BgL_auxz00_3969;
BgL_auxz00_3969 = 
CDR(BgL_patternz00_31); 
BgL_auxz00_3968 = 
CAR(BgL_auxz00_3969); } 
BgL_testz00_3967 = 
(BgL_auxz00_3968==BgL_namez00_30); } 
if(BgL_testz00_3967)
{ /* ./Match/normalize.scm 273 */
return 
BINT(((long)1));}  else 
{ /* ./Match/normalize.scm 273 */
return 
BINT(((long)0));} } }  else 
{ /* ./Match/normalize.scm 276 */
bool_t BgL_testz00_3975;
{ /* ./Match/normalize.scm 276 */
obj_t BgL_auxz00_3976;
BgL_auxz00_3976 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_patternz00_31), BGl_list3649z00zz__match_normaliza7eza7); 
BgL_testz00_3975 = 
CBOOL(BgL_auxz00_3976); } 
if(BgL_testz00_3975)
{ /* ./Match/normalize.scm 276 */
{ /* ./Match/normalize.scm 277 */
obj_t BgL_runner2113z00_1007;
{ /* ./Match/normalize.scm 277 */
obj_t BgL_l1016z00_995;
BgL_l1016z00_995 = 
CDR(BgL_patternz00_31); 
if(
NULLP(BgL_l1016z00_995))
{ /* ./Match/normalize.scm 277 */
BgL_runner2113z00_1007 = BNIL; }  else 
{ /* ./Match/normalize.scm 277 */
obj_t BgL_head1018z00_997;
BgL_head1018z00_997 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1016z00_1974;obj_t BgL_tail1019z00_1975;
BgL_l1016z00_1974 = BgL_l1016z00_995; 
BgL_tail1019z00_1975 = BgL_head1018z00_997; 
BgL_map1017z00_1973:
if(
NULLP(BgL_l1016z00_1974))
{ /* ./Match/normalize.scm 277 */
BgL_runner2113z00_1007 = 
CDR(BgL_head1018z00_997); }  else 
{ /* ./Match/normalize.scm 277 */
obj_t BgL_newtail1020z00_1983;
{ /* ./Match/normalize.scm 277 */
obj_t BgL_auxz00_3987;
BgL_auxz00_3987 = 
BGl_oczd2countzd2zz__match_normaliza7eza7(BgL_namez00_30, 
CAR(BgL_l1016z00_1974)); 
BgL_newtail1020z00_1983 = 
MAKE_PAIR(BgL_auxz00_3987, BNIL); } 
SET_CDR(BgL_tail1019z00_1975, BgL_newtail1020z00_1983); 
{ 
obj_t BgL_tail1019z00_3994;obj_t BgL_l1016z00_3992;
BgL_l1016z00_3992 = 
CDR(BgL_l1016z00_1974); 
BgL_tail1019z00_3994 = BgL_newtail1020z00_1983; 
BgL_tail1019z00_1975 = BgL_tail1019z00_3994; 
BgL_l1016z00_1974 = BgL_l1016z00_3992; 
goto BgL_map1017z00_1973;} } } } } 
return 
BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_runner2113z00_1007);} }  else 
{ /* ./Match/normalize.scm 276 */
return 
BINT(((long)0));} } } } 
}



/* standardize-lispish-segment-variable */
obj_t BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7(obj_t BgL_ez00_32, obj_t BgL_fza2za2_33)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 280 */
if(
NULLP(BgL_fza2za2_33))
{ /* ./Match/normalize.scm 282 */
obj_t BgL_zc3anonymousza32127ze3z83_2521;
{ 
int BgL_auxz00_4001;int BgL_auxz00_3999;
BgL_auxz00_4001 = 
(int)(((long)1)); 
BgL_auxz00_3999 = 
(int)(((long)2)); 
BgL_zc3anonymousza32127ze3z83_2521 = 
make_fx_procedure(BGl_zc3anonymousza32127ze3z83zz__match_normaliza7eza7, BgL_auxz00_3999, BgL_auxz00_4001); } 
{ /* ./Match/normalize.scm 282 */
int BgL_auxz00_4004;
BgL_auxz00_4004 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32127ze3z83_2521, BgL_auxz00_4004, BgL_ez00_32); } 
return BgL_zc3anonymousza32127ze3z83_2521;}  else 
{ /* ./Match/normalize.scm 281 */
return 
BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(BgL_ez00_32, BgL_fza2za2_33);} } 
}



/* <anonymous:2127> */
obj_t BGl_zc3anonymousza32127ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2522, obj_t BgL_rz00_2524, obj_t BgL_cz00_2525)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 282 */
{ /* ./Match/normalize.scm 283 */
obj_t BgL_ez00_2523;
{ /* ./Match/normalize.scm 283 */
int BgL_auxz00_4008;
BgL_auxz00_4008 = 
(int)(((long)0)); 
BgL_ez00_2523 = 
PROCEDURE_REF(BgL_envz00_2522, BgL_auxz00_4008); } 
{ 
obj_t BgL_rz00_1013;obj_t BgL_cz00_1014;
BgL_rz00_1013 = BgL_rz00_2524; 
BgL_cz00_1014 = BgL_cz00_2525; 
{ /* ./Match/normalize.scm 283 */
obj_t BgL_namez00_1016;
{ /* ./Match/normalize.scm 283 */
obj_t BgL_sz00_2028;
BgL_sz00_2028 = 
SYMBOL_TO_STRING(BgL_ez00_2523); 
{ /* ./Match/normalize.scm 283 */
obj_t BgL_arg1658z00_2029;
{ /* ./Match/normalize.scm 283 */
int BgL_auxz00_4014;int BgL_auxz00_4012;
BgL_auxz00_4014 = 
STRING_LENGTH(BgL_sz00_2028); 
BgL_auxz00_4012 = 
(int)(((long)3)); 
BgL_arg1658z00_2029 = 
c_substring(BgL_sz00_2028, BgL_auxz00_4012, BgL_auxz00_4014); } 
{ /* ./Match/normalize.scm 283 */
char * BgL_auxz00_4017;
BgL_auxz00_4017 = 
BSTRING_TO_STRING(BgL_arg1658z00_2029); 
BgL_namez00_1016 = 
string_to_symbol(BgL_auxz00_4017); } } } 
{ /* ./Match/normalize.scm 284 */
bool_t BgL_test2128z00_1017;
{ /* ./Match/normalize.scm 284 */
obj_t BgL_auxz00_4020;
{ /* ./Match/normalize.scm 284 */
bool_t BgL_testz00_4021;
{ /* ./Match/normalize.scm 284 */
obj_t BgL_auxz00_4022;
BgL_auxz00_4022 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_1016, BgL_rz00_1013); 
BgL_testz00_4021 = 
CBOOL(BgL_auxz00_4022); } 
if(BgL_testz00_4021)
{ /* ./Match/normalize.scm 284 */
obj_t BgL_auxz00_4025;
BgL_auxz00_4025 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_1016, BgL_rz00_1013); 
BgL_auxz00_4020 = 
CDR(BgL_auxz00_4025); }  else 
{ /* ./Match/normalize.scm 284 */
BgL_auxz00_4020 = BFALSE
; } } 
BgL_test2128z00_1017 = 
(BgL_auxz00_4020==BGl_unboundzd2patternzd2zz__match_normaliza7eza7); } 
if(BgL_test2128z00_1017)
{ /* ./Match/normalize.scm 285 */
obj_t BgL_arg2132z00_1018;obj_t BgL_arg2133z00_1019;
{ /* ./Match/normalize.scm 285 */
obj_t BgL_arg2136z00_1020;obj_t BgL_arg2137z00_1021;
BgL_arg2136z00_1020 = BGl_symbol3629z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 285 */
obj_t BgL_arg2141z00_1022;
{ /* ./Match/normalize.scm 285 */
obj_t BgL_arg2144z00_1023;
BgL_arg2144z00_1023 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
BgL_arg2141z00_1022 = 
MAKE_PAIR(BgL_arg2144z00_1023, BNIL); } 
BgL_arg2137z00_1021 = 
MAKE_PAIR(BgL_namez00_1016, BgL_arg2141z00_1022); } 
BgL_arg2132z00_1018 = 
MAKE_PAIR(BgL_arg2136z00_1020, BgL_arg2137z00_1021); } 
{ /* ./Match/normalize.scm 286 */
obj_t BgL_imz00_2045;
BgL_imz00_2045 = BGl_symbol3644z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 286 */
obj_t BgL_arg2269z00_2046;
BgL_arg2269z00_2046 = 
MAKE_PAIR(BgL_namez00_1016, BgL_imz00_2045); 
BgL_arg2133z00_1019 = 
MAKE_PAIR(BgL_arg2269z00_2046, BgL_rz00_1013); } } 
return 
PROCEDURE_ENTRY(BgL_cz00_1014)(BgL_cz00_1014, BgL_arg2132z00_1018, BgL_arg2133z00_1019, BEOA);}  else 
{ /* ./Match/normalize.scm 287 */
obj_t BgL_arg2150z00_1025;
{ /* ./Match/normalize.scm 287 */
obj_t BgL_arg2153z00_1026;obj_t BgL_arg2154z00_1027;
BgL_arg2153z00_1026 = BGl_symbol3629z00zz__match_normaliza7eza7; 
BgL_arg2154z00_1027 = 
MAKE_PAIR(BgL_namez00_1016, BNIL); 
BgL_arg2150z00_1025 = 
MAKE_PAIR(BgL_arg2153z00_1026, BgL_arg2154z00_1027); } 
return 
PROCEDURE_ENTRY(BgL_cz00_1014)(BgL_cz00_1014, BgL_arg2150z00_1025, BgL_rz00_1013, BEOA);} } } } } } 
}



/* standardize-any */
obj_t BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(obj_t BgL_fza2za2_34)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 290 */
{ /* ./Match/normalize.scm 291 */
obj_t BgL_zc3anonymousza32164ze3z83_2527;
{ 
int BgL_auxz00_4044;int BgL_auxz00_4042;
BgL_auxz00_4044 = 
(int)(((long)1)); 
BgL_auxz00_4042 = 
(int)(((long)2)); 
BgL_zc3anonymousza32164ze3z83_2527 = 
make_fx_procedure(BGl_zc3anonymousza32164ze3z83zz__match_normaliza7eza7, BgL_auxz00_4042, BgL_auxz00_4044); } 
{ /* ./Match/normalize.scm 291 */
int BgL_auxz00_4047;
BgL_auxz00_4047 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32164ze3z83_2527, BgL_auxz00_4047, BgL_fza2za2_34); } 
return BgL_zc3anonymousza32164ze3z83_2527;} } 
}



/* <anonymous:2164> */
obj_t BGl_zc3anonymousza32164ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2528, obj_t BgL_rz00_2530, obj_t BgL_cz00_2531)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 291 */
{ /* ./Match/normalize.scm 292 */
obj_t BgL_fza2za2_2529;
{ /* ./Match/normalize.scm 292 */
int BgL_auxz00_4050;
BgL_auxz00_4050 = 
(int)(((long)0)); 
BgL_fza2za2_2529 = 
PROCEDURE_REF(BgL_envz00_2528, BgL_auxz00_4050); } 
{ 
obj_t BgL_rz00_1029;obj_t BgL_cz00_1030;
BgL_rz00_1029 = BgL_rz00_2530; 
BgL_cz00_1030 = BgL_cz00_2531; 
{ /* ./Match/normalize.scm 292 */
obj_t BgL_fun2168z00_1032;
BgL_fun2168z00_1032 = 
BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(BgL_fza2za2_2529); 
{ /* ./Match/normalize.scm 295 */
obj_t BgL_zc3anonymousza32170ze3z83_2526;
{ 
int BgL_auxz00_4056;int BgL_auxz00_4054;
BgL_auxz00_4056 = 
(int)(((long)1)); 
BgL_auxz00_4054 = 
(int)(((long)2)); 
BgL_zc3anonymousza32170ze3z83_2526 = 
make_fx_procedure(BGl_zc3anonymousza32170ze3z83zz__match_normaliza7eza7, BgL_auxz00_4054, BgL_auxz00_4056); } 
{ /* ./Match/normalize.scm 295 */
int BgL_auxz00_4059;
BgL_auxz00_4059 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32170ze3z83_2526, BgL_auxz00_4059, BgL_cz00_1030); } 
return 
PROCEDURE_ENTRY(BgL_fun2168z00_1032)(BgL_fun2168z00_1032, BgL_rz00_1029, BgL_zc3anonymousza32170ze3z83_2526, BEOA);} } } } } 
}



/* <anonymous:2170> */
obj_t BGl_zc3anonymousza32170ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2532, obj_t BgL_patternz00_2534, obj_t BgL_rrz00_2535)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 294 */
{ /* ./Match/normalize.scm 295 */
obj_t BgL_cz00_2533;
{ /* ./Match/normalize.scm 295 */
int BgL_auxz00_4064;
BgL_auxz00_4064 = 
(int)(((long)0)); 
BgL_cz00_2533 = 
PROCEDURE_REF(BgL_envz00_2532, BgL_auxz00_4064); } 
{ 
obj_t BgL_patternz00_1034;obj_t BgL_rrz00_1035;
BgL_patternz00_1034 = BgL_patternz00_2534; 
BgL_rrz00_1035 = BgL_rrz00_2535; 
{ /* ./Match/normalize.scm 295 */
obj_t BgL_labelz00_1037;
BgL_labelz00_1037 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3634z00zz__match_normaliza7eza7, BEOA); 
{ /* ./Match/normalize.scm 296 */
bool_t BgL_test2171z00_1038;
{ /* ./Match/normalize.scm 296 */
obj_t BgL_auxz00_4069;
BgL_auxz00_4069 = 
PROCEDURE_ENTRY(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7)(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7, BGl_symbol3640z00zz__match_normaliza7eza7, BEOA); 
BgL_test2171z00_1038 = 
CBOOL(BgL_auxz00_4069); } 
if(BgL_test2171z00_1038)
{ /* ./Match/normalize.scm 297 */
obj_t BgL_arg2173z00_1039;
{ /* ./Match/normalize.scm 297 */
obj_t BgL_arg2176z00_1040;obj_t BgL_arg2177z00_1041;
BgL_arg2176z00_1040 = BGl_symbol3635z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2180z00_1042;
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2183z00_1043;obj_t BgL_arg2184z00_1044;
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2187z00_1045;obj_t BgL_arg2188z00_1046;
BgL_arg2187z00_1045 = BGl_symbol3643z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2191z00_1047;obj_t BgL_arg2192z00_1048;
BgL_arg2191z00_1047 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2196z00_1049;
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2200z00_1051;obj_t BgL_arg2201z00_1052;
BgL_arg2200z00_1051 = BGl_symbol3636z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2204z00_1053;
{ /* ./Match/normalize.scm 298 */
obj_t BgL_arg2207z00_1054;
BgL_arg2207z00_1054 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3637z00zz__match_normaliza7eza7, BEOA); 
BgL_arg2204z00_1053 = 
MAKE_PAIR(BgL_arg2207z00_1054, BNIL); } 
BgL_arg2201z00_1052 = 
MAKE_PAIR(BgL_labelz00_1037, BgL_arg2204z00_1053); } 
BgL_arg2196z00_1049 = 
MAKE_PAIR(BgL_arg2200z00_1051, BgL_arg2201z00_1052); } 
BgL_arg2192z00_1048 = 
MAKE_PAIR(BgL_arg2196z00_1049, BNIL); } 
BgL_arg2188z00_1046 = 
MAKE_PAIR(BgL_arg2191z00_1047, BgL_arg2192z00_1048); } 
BgL_arg2183z00_1043 = 
MAKE_PAIR(BgL_arg2187z00_1045, BgL_arg2188z00_1046); } 
BgL_arg2184z00_1044 = 
MAKE_PAIR(BgL_patternz00_1034, BNIL); 
BgL_arg2180z00_1042 = 
MAKE_PAIR(BgL_arg2183z00_1043, BgL_arg2184z00_1044); } 
BgL_arg2177z00_1041 = 
MAKE_PAIR(BgL_labelz00_1037, BgL_arg2180z00_1042); } 
BgL_arg2173z00_1039 = 
MAKE_PAIR(BgL_arg2176z00_1040, BgL_arg2177z00_1041); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2533)(BgL_cz00_2533, BgL_arg2173z00_1039, BgL_rrz00_1035, BEOA);}  else 
{ /* ./Match/normalize.scm 301 */
obj_t BgL_arg2214z00_1056;
{ /* ./Match/normalize.scm 301 */
obj_t BgL_arg2217z00_1057;obj_t BgL_arg2218z00_1058;
BgL_arg2217z00_1057 = BGl_symbol3635z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2221z00_1059;
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2224z00_1060;obj_t BgL_arg2225z00_1061;
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2228z00_1062;obj_t BgL_arg2229z00_1063;
BgL_arg2228z00_1062 = BGl_symbol3624z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2232z00_1064;obj_t BgL_arg2233z00_1065;
BgL_arg2232z00_1064 = 
MAKE_PAIR(BGl_symbol3625z00zz__match_normaliza7eza7, BNIL); 
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2237z00_1066;
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2241z00_1068;obj_t BgL_arg2242z00_1069;
BgL_arg2241z00_1068 = BGl_symbol3636z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2245z00_1070;
{ /* ./Match/normalize.scm 302 */
obj_t BgL_arg2248z00_1071;
BgL_arg2248z00_1071 = 
PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00)(BGl_jimzd2gensymzd2zz__match_s2cfunz00, BGl_string3637z00zz__match_normaliza7eza7, BEOA); 
BgL_arg2245z00_1070 = 
MAKE_PAIR(BgL_arg2248z00_1071, BNIL); } 
BgL_arg2242z00_1069 = 
MAKE_PAIR(BgL_labelz00_1037, BgL_arg2245z00_1070); } 
BgL_arg2237z00_1066 = 
MAKE_PAIR(BgL_arg2241z00_1068, BgL_arg2242z00_1069); } 
BgL_arg2233z00_1065 = 
MAKE_PAIR(BgL_arg2237z00_1066, BNIL); } 
BgL_arg2229z00_1063 = 
MAKE_PAIR(BgL_arg2232z00_1064, BgL_arg2233z00_1065); } 
BgL_arg2224z00_1060 = 
MAKE_PAIR(BgL_arg2228z00_1062, BgL_arg2229z00_1063); } 
BgL_arg2225z00_1061 = 
MAKE_PAIR(BgL_patternz00_1034, BNIL); 
BgL_arg2221z00_1059 = 
MAKE_PAIR(BgL_arg2224z00_1060, BgL_arg2225z00_1061); } 
BgL_arg2218z00_1058 = 
MAKE_PAIR(BgL_labelz00_1037, BgL_arg2221z00_1059); } 
BgL_arg2214z00_1056 = 
MAKE_PAIR(BgL_arg2217z00_1057, BgL_arg2218z00_1058); } 
return 
PROCEDURE_ENTRY(BgL_cz00_2533)(BgL_cz00_2533, BgL_arg2214z00_1056, BgL_rrz00_1035, BEOA);} } } } } } 
}



/* extend.r.macro-env */
BGL_EXPORTED_DEF obj_t BGl_extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(obj_t BgL_namez00_42, obj_t BgL_funz00_43)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 331 */
{ /* ./Match/normalize.scm 333 */
obj_t BgL_fnz00_2066;
BgL_fnz00_2066 = BGl_rze2macrozd2patternz30zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 333 */
obj_t BgL_arg2269z00_2069;
BgL_arg2269z00_2069 = 
MAKE_PAIR(BgL_namez00_42, BgL_funz00_43); 
return ( 
BGl_rze2macrozd2patternz30zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_arg2269z00_2069, BgL_fnz00_2066), BUNSPEC) ;} } } 
}



/* _extend.r.macro-env */
obj_t BGl__extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(obj_t BgL_envz00_2536, obj_t BgL_namez00_2537, obj_t BgL_funz00_2538)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 331 */
return 
BGl_extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(BgL_namez00_2537, BgL_funz00_2538);} 
}



/* coherent-environment? */
bool_t BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(obj_t BgL_rz00_45, obj_t BgL_rrz00_46)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 459 */
BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7:
if(
PAIRP(BgL_rz00_45))
{ /* ./Match/normalize.scm 465 */
bool_t BgL__andtest_1025z00_1089;
{ /* ./Match/normalize.scm 465 */
obj_t BgL_arg2290z00_1091;
{ /* ./Match/normalize.scm 465 */
obj_t BgL_auxz00_4109;
BgL_auxz00_4109 = 
CAR(BgL_rz00_45); 
BgL_arg2290z00_1091 = 
CAR(BgL_auxz00_4109); } 
{ 
obj_t BgL_rz00_2085;
BgL_rz00_2085 = BgL_rrz00_46; 
BgL_lookz00_2084:
if(
PAIRP(BgL_rz00_2085))
{ /* ./Match/normalize.scm 465 */
bool_t BgL__ortest_1024z00_2087;
{ /* ./Match/normalize.scm 465 */
obj_t BgL_auxz00_4114;
{ /* ./Match/normalize.scm 465 */
obj_t BgL_auxz00_4115;
BgL_auxz00_4115 = 
CAR(BgL_rz00_2085); 
BgL_auxz00_4114 = 
CAR(BgL_auxz00_4115); } 
BgL__ortest_1024z00_2087 = 
(BgL_auxz00_4114==BgL_arg2290z00_1091); } 
if(BgL__ortest_1024z00_2087)
{ /* ./Match/normalize.scm 465 */
BgL__andtest_1025z00_1089 = BgL__ortest_1024z00_2087; }  else 
{ 
obj_t BgL_rz00_4120;
BgL_rz00_4120 = 
CDR(BgL_rz00_2085); 
BgL_rz00_2085 = BgL_rz00_4120; 
goto BgL_lookz00_2084;} }  else 
{ /* ./Match/normalize.scm 465 */
BgL__andtest_1025z00_1089 = ((bool_t)0); } } } 
if(BgL__andtest_1025z00_1089)
{ 
obj_t BgL_rz00_4123;
BgL_rz00_4123 = 
CDR(BgL_rz00_45); 
BgL_rz00_45 = BgL_rz00_4123; 
goto BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7;}  else 
{ /* ./Match/normalize.scm 466 */
return ((bool_t)0);} }  else 
{ /* ./Match/normalize.scm 464 */
return ((bool_t)1);} } 
}



/* standardize-vector */
obj_t BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7(obj_t BgL_ez00_51)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 486 */
{ /* ./Match/normalize.scm 488 */
obj_t BgL_tmpz00_1096;
{ /* ./Match/normalize.scm 488 */
obj_t BgL_arg2421z00_1148;
BgL_arg2421z00_1148 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_51); 
{ /* ./Match/normalize.scm 488 */
obj_t BgL_fun1669z00_2123;
BgL_fun1669z00_2123 = 
BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_arg2421z00_1148); 
BgL_tmpz00_1096 = 
PROCEDURE_ENTRY(BgL_fun1669z00_2123)(BgL_fun1669z00_2123, BGl_rze2macrozd2patternz30zz__match_normaliza7eza7, BGl_proc3651z00zz__match_normaliza7eza7, BEOA); } } 
{ /* ./Match/normalize.scm 508 */
obj_t BgL_zc3anonymousza32305ze3z83_2539;
{ 
int BgL_auxz00_4131;int BgL_auxz00_4129;
BgL_auxz00_4131 = 
(int)(((long)2)); 
BgL_auxz00_4129 = 
(int)(((long)2)); 
BgL_zc3anonymousza32305ze3z83_2539 = 
make_fx_procedure(BGl_zc3anonymousza32305ze3z83zz__match_normaliza7eza7, BgL_auxz00_4129, BgL_auxz00_4131); } 
{ /* ./Match/normalize.scm 508 */
int BgL_auxz00_4134;
BgL_auxz00_4134 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32305ze3z83_2539, BgL_auxz00_4134, BgL_ez00_51); } 
{ /* ./Match/normalize.scm 508 */
int BgL_auxz00_4137;
BgL_auxz00_4137 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32305ze3z83_2539, BgL_auxz00_4137, BgL_tmpz00_1096); } 
return BgL_zc3anonymousza32305ze3z83_2539;} } } 
}



/* <anonymous:2305> */
obj_t BGl_zc3anonymousza32305ze3z83zz__match_normaliza7eza7(obj_t BgL_envz00_2541, obj_t BgL_rz00_2544, obj_t BgL_cz00_2545)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 508 */
{ /* ./Match/normalize.scm 509 */
obj_t BgL_ez00_2542;obj_t BgL_tmpz00_2543;
{ /* ./Match/normalize.scm 509 */
int BgL_auxz00_4140;
BgL_auxz00_4140 = 
(int)(((long)0)); 
BgL_ez00_2542 = 
PROCEDURE_REF(BgL_envz00_2541, BgL_auxz00_4140); } 
{ /* ./Match/normalize.scm 509 */
int BgL_auxz00_4143;
BgL_auxz00_4143 = 
(int)(((long)1)); 
BgL_tmpz00_2543 = 
PROCEDURE_REF(BgL_envz00_2541, BgL_auxz00_4143); } 
{ 
obj_t BgL_rz00_1099;obj_t BgL_cz00_1100;
BgL_rz00_1099 = BgL_rz00_2544; 
BgL_cz00_1100 = BgL_cz00_2545; 
{ /* ./Match/normalize.scm 509 */
obj_t BgL_arg2307z00_2127;
{ /* ./Match/normalize.scm 509 */
obj_t BgL_arg2310z00_2128;obj_t BgL_arg2311z00_2129;
BgL_arg2310z00_2128 = BGl_symbol3652z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 509 */
long BgL_arg2314z00_2130;obj_t BgL_arg2315z00_2131;
BgL_arg2314z00_2130 = 
BGl_patternzd2lengthzd2zz__match_normaliza7eza7(
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_2542)); 
{ /* ./Match/normalize.scm 509 */
obj_t BgL_auxz00_4148;
BgL_auxz00_4148 = 
BGl_vectorifyz00zz__match_normaliza7eza7(BgL_tmpz00_2543); 
BgL_arg2315z00_2131 = 
MAKE_PAIR(BgL_auxz00_4148, BNIL); } 
{ /* ./Match/normalize.scm 509 */
obj_t BgL_auxz00_4151;
BgL_auxz00_4151 = 
BINT(BgL_arg2314z00_2130); 
BgL_arg2311z00_2129 = 
MAKE_PAIR(BgL_auxz00_4151, BgL_arg2315z00_2131); } } 
BgL_arg2307z00_2127 = 
MAKE_PAIR(BgL_arg2310z00_2128, BgL_arg2311z00_2129); } 
return 
PROCEDURE_ENTRY(BgL_cz00_1100)(BgL_cz00_1100, BgL_arg2307z00_2127, BgL_rz00_1099, BEOA);} } } } 
}



/* vectorify */
obj_t BGl_vectorifyz00zz__match_normaliza7eza7(obj_t BgL_pz00_1097)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 489 */
{ /* ./Match/normalize.scm 492 */
bool_t BgL_testz00_4157;
{ /* ./Match/normalize.scm 492 */
obj_t BgL_auxz00_4158;
BgL_auxz00_4158 = 
CAR(BgL_pz00_1097); 
BgL_testz00_4157 = 
(BgL_auxz00_4158==BGl_symbol3624z00zz__match_normaliza7eza7); } 
if(BgL_testz00_4157)
{ /* ./Match/normalize.scm 492 */
{ /* ./Match/normalize.scm 493 */
obj_t BgL_arg2328z00_1111;obj_t BgL_arg2329z00_1112;
BgL_arg2328z00_1111 = BGl_symbol3653z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 493 */
obj_t BgL_arg2332z00_1113;obj_t BgL_arg2333z00_1114;
{ /* ./Match/normalize.scm 493 */
obj_t BgL_auxz00_4161;
BgL_auxz00_4161 = 
CDR(BgL_pz00_1097); 
BgL_arg2332z00_1113 = 
CAR(BgL_auxz00_4161); } 
{ /* ./Match/normalize.scm 494 */
obj_t BgL_arg2337z00_1115;
{ /* ./Match/normalize.scm 494 */
bool_t BgL_testz00_4164;
{ /* ./Match/normalize.scm 494 */
obj_t BgL_auxz00_4165;
{ /* ./Match/normalize.scm 494 */
obj_t BgL_auxz00_4166;
{ /* ./Match/normalize.scm 494 */
obj_t BgL_auxz00_4167;
BgL_auxz00_4167 = 
CDR(BgL_pz00_1097); 
BgL_auxz00_4166 = 
CDR(BgL_auxz00_4167); } 
BgL_auxz00_4165 = 
CAR(BgL_auxz00_4166); } 
BgL_testz00_4164 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_4165, BGl_list3654z00zz__match_normaliza7eza7); } 
if(BgL_testz00_4164)
{ /* ./Match/normalize.scm 494 */
BgL_arg2337z00_1115 = BGl_list3655z00zz__match_normaliza7eza7; }  else 
{ /* ./Match/normalize.scm 496 */
obj_t BgL_auxz00_4172;
{ /* ./Match/normalize.scm 496 */
obj_t BgL_auxz00_4173;
{ /* ./Match/normalize.scm 496 */
obj_t BgL_auxz00_4174;
BgL_auxz00_4174 = 
CDR(BgL_pz00_1097); 
BgL_auxz00_4173 = 
CDR(BgL_auxz00_4174); } 
BgL_auxz00_4172 = 
CAR(BgL_auxz00_4173); } 
BgL_arg2337z00_1115 = 
BGl_vectorifyz00zz__match_normaliza7eza7(BgL_auxz00_4172); } } 
BgL_arg2333z00_1114 = 
MAKE_PAIR(BgL_arg2337z00_1115, BNIL); } 
BgL_arg2329z00_1112 = 
MAKE_PAIR(BgL_arg2332z00_1113, BgL_arg2333z00_1114); } 
return 
MAKE_PAIR(BgL_arg2328z00_1111, BgL_arg2329z00_1112);} }  else 
{ /* ./Match/normalize.scm 492 */
if(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_pz00_1097, BGl_list3657z00zz__match_normaliza7eza7))
{ /* ./Match/normalize.scm 497 */
return BGl_list3658z00zz__match_normaliza7eza7;}  else 
{ /* ./Match/normalize.scm 499 */
bool_t BgL_testz00_4184;
{ /* ./Match/normalize.scm 499 */
obj_t BgL_auxz00_4185;
BgL_auxz00_4185 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_pz00_1097), BGl_list3660z00zz__match_normaliza7eza7); 
BgL_testz00_4184 = 
CBOOL(BgL_auxz00_4185); } 
if(BgL_testz00_4184)
{ /* ./Match/normalize.scm 499 */
{ /* ./Match/normalize.scm 500 */
obj_t BgL_arg2355z00_1123;obj_t BgL_arg2356z00_1124;obj_t BgL_arg2357z00_1125;
BgL_arg2355z00_1123 = 
CAR(BgL_pz00_1097); 
{ /* ./Match/normalize.scm 501 */
obj_t BgL_auxz00_4190;
{ /* ./Match/normalize.scm 501 */
obj_t BgL_auxz00_4191;
BgL_auxz00_4191 = 
CDR(BgL_pz00_1097); 
BgL_auxz00_4190 = 
CAR(BgL_auxz00_4191); } 
BgL_arg2356z00_1124 = 
BGl_vectorifyz00zz__match_normaliza7eza7(BgL_auxz00_4190); } 
{ /* ./Match/normalize.scm 502 */
obj_t BgL_auxz00_4195;
{ /* ./Match/normalize.scm 502 */
obj_t BgL_auxz00_4196;
{ /* ./Match/normalize.scm 502 */
obj_t BgL_auxz00_4197;
BgL_auxz00_4197 = 
CDR(BgL_pz00_1097); 
BgL_auxz00_4196 = 
CDR(BgL_auxz00_4197); } 
BgL_auxz00_4195 = 
CAR(BgL_auxz00_4196); } 
BgL_arg2357z00_1125 = 
BGl_vectorifyz00zz__match_normaliza7eza7(BgL_auxz00_4195); } 
{ /* ./Match/normalize.scm 500 */
obj_t BgL_list2359z00_1126;
{ /* ./Match/normalize.scm 500 */
obj_t BgL_arg2361z00_1127;
{ /* ./Match/normalize.scm 500 */
obj_t BgL_arg2364z00_1128;
BgL_arg2364z00_1128 = 
MAKE_PAIR(BgL_arg2357z00_1125, BNIL); 
BgL_arg2361z00_1127 = 
MAKE_PAIR(BgL_arg2356z00_1124, BgL_arg2364z00_1128); } 
BgL_list2359z00_1126 = 
MAKE_PAIR(BgL_arg2355z00_1123, BgL_arg2361z00_1127); } 
return BgL_list2359z00_1126;} } }  else 
{ /* ./Match/normalize.scm 503 */
bool_t BgL_testz00_4205;
{ /* ./Match/normalize.scm 503 */
obj_t BgL_auxz00_4206;
BgL_auxz00_4206 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_pz00_1097), BGl_list3661z00zz__match_normaliza7eza7); 
BgL_testz00_4205 = 
CBOOL(BgL_auxz00_4206); } 
if(BgL_testz00_4205)
{ /* ./Match/normalize.scm 503 */
{ /* ./Match/normalize.scm 504 */
obj_t BgL_arg2378z00_1132;obj_t BgL_arg2379z00_1133;obj_t BgL_arg2381z00_1134;obj_t BgL_arg2382z00_1135;
BgL_arg2378z00_1132 = BGl_symbol3662z00zz__match_normaliza7eza7; 
{ /* ./Match/normalize.scm 504 */
obj_t BgL_auxz00_4210;
BgL_auxz00_4210 = 
CDR(BgL_pz00_1097); 
BgL_arg2379z00_1133 = 
CAR(BgL_auxz00_4210); } 
{ /* ./Match/normalize.scm 505 */
obj_t BgL_auxz00_4213;
{ /* ./Match/normalize.scm 505 */
obj_t BgL_auxz00_4214;
{ /* ./Match/normalize.scm 505 */
obj_t BgL_auxz00_4215;
BgL_auxz00_4215 = 
CDR(BgL_pz00_1097); 
BgL_auxz00_4214 = 
CDR(BgL_auxz00_4215); } 
BgL_auxz00_4213 = 
CAR(BgL_auxz00_4214); } 
BgL_arg2381z00_1134 = 
BGl_vectorifyz00zz__match_normaliza7eza7(BgL_auxz00_4213); } 
{ /* ./Match/normalize.scm 506 */
obj_t BgL_auxz00_4220;
{ /* ./Match/normalize.scm 506 */
obj_t BgL_auxz00_4221;
{ /* ./Match/normalize.scm 506 */
obj_t BgL_auxz00_4222;
{ /* ./Match/normalize.scm 506 */
obj_t BgL_auxz00_4223;
BgL_auxz00_4223 = 
CDR(BgL_pz00_1097); 
BgL_auxz00_4222 = 
CDR(BgL_auxz00_4223); } 
BgL_auxz00_4221 = 
CDR(BgL_auxz00_4222); } 
BgL_auxz00_4220 = 
CAR(BgL_auxz00_4221); } 
BgL_arg2382z00_1135 = 
BGl_vectorifyz00zz__match_normaliza7eza7(BgL_auxz00_4220); } 
{ /* ./Match/normalize.scm 504 */
obj_t BgL_list2384z00_1136;
{ /* ./Match/normalize.scm 504 */
obj_t BgL_arg2386z00_1137;
{ /* ./Match/normalize.scm 504 */
obj_t BgL_arg2389z00_1138;
{ /* ./Match/normalize.scm 504 */
obj_t BgL_arg2392z00_1139;
BgL_arg2392z00_1139 = 
MAKE_PAIR(BgL_arg2382z00_1135, BNIL); 
BgL_arg2389z00_1138 = 
MAKE_PAIR(BgL_arg2381z00_1134, BgL_arg2392z00_1139); } 
BgL_arg2386z00_1137 = 
MAKE_PAIR(BgL_arg2379z00_1133, BgL_arg2389z00_1138); } 
BgL_list2384z00_1136 = 
MAKE_PAIR(BgL_arg2378z00_1132, BgL_arg2386z00_1137); } 
return BgL_list2384z00_1136;} } }  else 
{ /* ./Match/normalize.scm 503 */
return BgL_pz00_1097;} } } } } } 
}



/* <anonymous:1671>_3214 */
obj_t BGl_zc3anonymousza31671ze3_3214z83zz__match_normaliza7eza7(obj_t BgL_envz00_2546, obj_t BgL_patternz00_2547, obj_t BgL_rrz00_2548)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 117 */
return BgL_patternz00_2547;} 
}



/* pattern-length */
long BGl_patternzd2lengthzd2zz__match_normaliza7eza7(obj_t BgL_pz00_52)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 512 */
BGl_patternzd2lengthzd2zz__match_normaliza7eza7:
{ /* ./Match/normalize.scm 514 */
bool_t BgL_testz00_4233;
{ /* ./Match/normalize.scm 514 */
obj_t BgL_auxz00_4234;
BgL_auxz00_4234 = 
BGl_atomzf3zf3zz__match_s2cfunz00(BgL_pz00_52); 
BgL_testz00_4233 = 
CBOOL(BgL_auxz00_4234); } 
if(BgL_testz00_4233)
{ /* ./Match/normalize.scm 514 */
return ((long)0);}  else 
{ /* ./Match/normalize.scm 514 */
if(
NULLP(BgL_pz00_52))
{ /* ./Match/normalize.scm 515 */
return ((long)0);}  else 
{ /* ./Match/normalize.scm 516 */
bool_t BgL_testz00_4239;
{ /* ./Match/normalize.scm 516 */
obj_t BgL_auxz00_4240;
BgL_auxz00_4240 = 
CAR(BgL_pz00_52); 
BgL_testz00_4239 = 
(BgL_auxz00_4240==BGl_symbol3597z00zz__match_normaliza7eza7); } 
if(BgL_testz00_4239)
{ /* ./Match/normalize.scm 516 */
return ((long)1);}  else 
{ /* ./Match/normalize.scm 516 */
if(
BGl_treezd2variablezf3z21zz__match_normaliza7eza7(
CAR(BgL_pz00_52)))
{ /* ./Match/normalize.scm 517 */
return ((long)0);}  else 
{ /* ./Match/normalize.scm 518 */
bool_t BgL_testz00_4246;
{ /* ./Match/normalize.scm 518 */
obj_t BgL_auxz00_4247;
BgL_auxz00_4247 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_pz00_52), BGl_list3663z00zz__match_normaliza7eza7); 
BgL_testz00_4246 = 
CBOOL(BgL_auxz00_4247); } 
if(BgL_testz00_4246)
{ /* ./Match/normalize.scm 518 */
return ((long)0);}  else 
{ /* ./Match/normalize.scm 519 */
bool_t BgL_testz00_4251;
{ /* ./Match/normalize.scm 519 */
obj_t BgL_auxz00_4252;
BgL_auxz00_4252 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_pz00_52), BGl_list3664z00zz__match_normaliza7eza7); 
BgL_testz00_4251 = 
CBOOL(BgL_auxz00_4252); } 
if(BgL_testz00_4251)
{ /* ./Match/normalize.scm 519 */
{ 
obj_t BgL_pz00_4256;
{ /* ./Match/normalize.scm 520 */
obj_t BgL_auxz00_4257;
BgL_auxz00_4257 = 
CDR(BgL_pz00_52); 
BgL_pz00_4256 = 
CAR(BgL_auxz00_4257); } 
BgL_pz00_52 = BgL_pz00_4256; 
goto BGl_patternzd2lengthzd2zz__match_normaliza7eza7;} }  else 
{ /* ./Match/normalize.scm 519 */
{ /* ./Match/normalize.scm 521 */
long BgL_arg2436z00_1157;
BgL_arg2436z00_1157 = 
BGl_patternzd2lengthzd2zz__match_normaliza7eza7(
CDR(BgL_pz00_52)); 
{ /* ./Match/normalize.scm 521 */
obj_t BgL_auxz00_4262;
BgL_auxz00_4262 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
BINT(((long)1)), 
BINT(BgL_arg2436z00_1157)); 
return 
(long)CINT(BgL_auxz00_4262);} } } } } } } } } } 
}



/* match-define-structure! */
BGL_EXPORTED_DEF obj_t BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t BgL_expz00_53)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 530 */
if(
PAIRP(BgL_expz00_53))
{ /* ./Match/normalize.scm 531 */
obj_t BgL_cdrzd2109zd2_1172;
BgL_cdrzd2109zd2_1172 = 
CDR(BgL_expz00_53); 
{ /* ./Match/normalize.scm 531 */
bool_t BgL_testz00_4270;
{ /* ./Match/normalize.scm 531 */
obj_t BgL_auxz00_4271;
BgL_auxz00_4271 = 
CAR(BgL_expz00_53); 
BgL_testz00_4270 = 
(BgL_auxz00_4271==BGl_symbol3665z00zz__match_normaliza7eza7); } 
if(BgL_testz00_4270)
{ /* ./Match/normalize.scm 531 */
if(
PAIRP(BgL_cdrzd2109zd2_1172))
{ /* ./Match/normalize.scm 531 */
return ( 
BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 = 
MAKE_PAIR(BgL_cdrzd2109zd2_1172, BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7), BUNSPEC) ;}  else 
{ /* ./Match/normalize.scm 531 */
obj_t BgL_objectz00_2209;
BgL_objectz00_2209 = BGl_symbol3667z00zz__match_normaliza7eza7; 
FAILURE(BGl_string3666z00zz__match_normaliza7eza7,BgL_expz00_53,BgL_objectz00_2209);} }  else 
{ /* ./Match/normalize.scm 531 */
obj_t BgL_objectz00_2212;
BgL_objectz00_2212 = BGl_symbol3667z00zz__match_normaliza7eza7; 
FAILURE(BGl_string3666z00zz__match_normaliza7eza7,BgL_expz00_53,BgL_objectz00_2212);} } }  else 
{ /* ./Match/normalize.scm 531 */
obj_t BgL_objectz00_2215;
BgL_objectz00_2215 = BGl_symbol3667z00zz__match_normaliza7eza7; 
FAILURE(BGl_string3666z00zz__match_normaliza7eza7,BgL_expz00_53,BgL_objectz00_2215);} } 
}



/* _match-define-structure! */
obj_t BGl__matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t BgL_envz00_2549, obj_t BgL_expz00_2550)
{ AN_OBJECT;
{ /* ./Match/normalize.scm 530 */
return 
BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(BgL_expz00_2550);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__match_normaliza7eza7()
{ AN_OBJECT;
{ /* ./Match/normalize.scm 2 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__match_normalize"); 
return 
BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(((long)34527), "__match_normalize");} 
}

