/*===========================================================================*/
/*   (Match/normalize.scm)                                                   */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Match/normalize.scm -indent -o objs/obj_u/Match/normalize.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

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

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

	extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t
		BGl_z62matchzd2definezd2recordzd2typez12za2zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31523ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_list2296z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31272ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31353ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 =
		BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31710ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31605ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31516ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31508ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7 =
		BUNSPEC;
	static bool_t BGl_segmentzd2variablezf3z21zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_standardiza7ezd2treezd2variableza7zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31614ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31533ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31282ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31347ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31339ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t
		BGl_z62zc3z04anonymousza31372ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31526ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31364ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static bool_t BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(obj_t,
		obj_t);
	extern obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_extendzd2rzd2macrozd2envzd2zz__match_normaliza7eza7(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_matchzd2definezd2recordzd2typez12zc0zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__match_normaliza7eza7(void);
	static obj_t BGl_patternzd2lengthzd2zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_makezd2togglezd2zz__match_normaliza7eza7(void);
	static obj_t
		BGl_z62zc3z04anonymousza31543ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31276ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31599ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2215z00zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t BGl_jimzd2gensymzd2zz__match_s2cfunz00;
	static obj_t BGl_symbol2218z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_unboundzd2patternzd2zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_standardiza7ezd2structz75zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31722ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31560ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31382ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31536ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_standardiza7ezd2lispishzd2anyza7zz__match_normaliza7eza7(obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__match_normaliza7eza7(void);
	static obj_t BGl_symbol2301z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2221z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_rzd2macrozd2patternzd2initzd2zz__match_normaliza7eza7 =
		BUNSPEC;
	static obj_t BGl_genericzd2initzd2zz__match_normaliza7eza7(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol2305z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2224z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2307z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_z62extendzd2rzd2macrozd2envzb0zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2227z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_oczd2countzd2zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31303ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__match_normaliza7eza7(void);
	static obj_t BGl_gczd2rootszd2initz00zz__match_normaliza7eza7(void);
	static obj_t
		BGl_z62zc3z04anonymousza31367ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31448ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__match_normaliza7eza7(void);
	static bool_t BGl_holezd2variablezf3z21zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_symbol2311z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2230z00zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_symbol2233z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2315z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_standardiza7ezd2holezd2variableza7zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_symbol2235z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2319z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2238z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31643ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31392ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31376ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2322z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2241z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2324z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2244z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2327z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2247z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31555ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31393ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31547ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31539ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t BGl_list2303z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2304z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2256z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2258z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7(obj_t,
		obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_list2309z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t
		BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31386ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31555ze32212ze5zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_symbol2261z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2310z00zz__match_normaliza7eza7 = BUNSPEC;
	static bool_t BGl_treezd2variablezf3z21zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_symbol2263z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2313z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2265z00zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_list2314z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2317z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2269z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_vectorifyze70ze7zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_list2318z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31331ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31662ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31492ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31484ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31298ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_standardiza7ezd2consz75zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t BGl_symbol2271z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_z62normaliza7ezd2patternz17zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zz__match_normaliza7eza7(void);
	static obj_t BGl_symbol2274z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2276z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2278z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31243ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t BGl_atomzf3zf3zz__match_s2cfunz00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31825ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31448ze32211ze5zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31448ze32213ze5zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2280z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2282z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2284z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2286z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2288z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31341ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_structzd2ze3listz31zz__structurez00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31252ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7
		(obj_t, obj_t);
	static obj_t BGl_symbol2290z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2292z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2294z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2297z00zz__match_normaliza7eza7 = BUNSPEC;
	static bool_t BGl_termzd2variablezf3z21zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31520ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31245ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_standardiza7ezd2termzd2variableza7zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31568ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t);
	extern obj_t bgl_long_to_bignum(long);
	static obj_t
		BGl_z62matchzd2definezd2structurez12z70zz__match_normaliza7eza7(obj_t,
		obj_t);
	extern obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31270ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static bool_t
		BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31611ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31360ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31659ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31489ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string2216z00zz__match_normaliza7eza7,
		BgL_bgl_string2216za700za7za7_2331za7, "atom", 4);
	      BGL_DEFINE_STRING(BGl_string2219z00zz__match_normaliza7eza7,
		BgL_bgl_string2219za700za7za7_2332za7, "or", 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2214z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2333za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31243ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2302z00zz__match_normaliza7eza7,
		BgL_bgl_string2302za700za7za7_2334za7, "vector-begin", 12);
	      BGL_DEFINE_STRING(BGl_string2222z00zz__match_normaliza7eza7,
		BgL_bgl_string2222za700za7za7_2335za7, "t-or", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2217z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2336za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31270ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2306z00zz__match_normaliza7eza7,
		BgL_bgl_string2306za700za7za7_2337za7, "vector-any", 10);
	      BGL_DEFINE_STRING(BGl_string2225z00zz__match_normaliza7eza7,
		BgL_bgl_string2225za700za7za7_2338za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string2308z00zz__match_normaliza7eza7,
		BgL_bgl_string2308za700za7za7_2339za7, "vector-cons", 11);
	      BGL_DEFINE_STRING(BGl_string2228z00zz__match_normaliza7eza7,
		BgL_bgl_string2228za700za7za7_2340za7, "not", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_extendzd2rzd2macrozd2envzd2envz00zz__match_normaliza7eza7,
		BgL_bgl_za762extendza7d2rza7d22341za7,
		BGl_z62extendzd2rzd2macrozd2envzb0zz__match_normaliza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2300z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2342za7,
		BGl_z62zc3z04anonymousza31448ze32213ze5zz__match_normaliza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2220z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2343za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31296ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2223z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2344za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31339ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2312z00zz__match_normaliza7eza7,
		BgL_bgl_string2312za700za7za7_2345za7, "vector-end", 10);
	      BGL_DEFINE_STRING(BGl_string2231z00zz__match_normaliza7eza7,
		BgL_bgl_string2231za700za7za7_2346za7, "?", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2226z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2347za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31360ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2234z00zz__match_normaliza7eza7,
		BgL_bgl_string2234za700za7za7_2348za7, "kwote", 5);
	      BGL_DEFINE_STRING(BGl_string2316z00zz__match_normaliza7eza7,
		BgL_bgl_string2316za700za7za7_2349za7, "vector-times", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2229z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2350za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31372ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2236z00zz__match_normaliza7eza7,
		BgL_bgl_string2236za700za7za7_2351za7, "**Bad-Luck096561123523452**", 27);
	      BGL_DEFINE_STRING(BGl_string2239z00zz__match_normaliza7eza7,
		BgL_bgl_string2239za700za7za7_2352za7, "struct-pat", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2232z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2353za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31382ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2320z00zz__match_normaliza7eza7,
		BgL_bgl_string2320za700za7za7_2354za7, "define-struct", 13);
	      BGL_DEFINE_STRING(BGl_string2321z00zz__match_normaliza7eza7,
		BgL_bgl_string2321za700za7za7_2355za7, "Incorrect declaration: ", 23);
	      BGL_DEFINE_STRING(BGl_string2323z00zz__match_normaliza7eza7,
		BgL_bgl_string2323za700za7za7_2356za7, "Aborted", 7);
	      BGL_DEFINE_STRING(BGl_string2242z00zz__match_normaliza7eza7,
		BgL_bgl_string2242za700za7za7_2357za7, "Pattern-Matching", 16);
	      BGL_DEFINE_STRING(BGl_string2243z00zz__match_normaliza7eza7,
		BgL_bgl_string2243za700za7za7_2358za7, "Illegal `kwote' form", 20);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2237z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2359za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31392ze3ze5zz__match_normaliza7eza7, BUNSPEC, -3);
	      BGL_DEFINE_STRING(BGl_string2325z00zz__match_normaliza7eza7,
		BgL_bgl_string2325za700za7za7_2360za7, "define-record-type", 18);
	      BGL_DEFINE_STRING(BGl_string2326z00zz__match_normaliza7eza7,
		BgL_bgl_string2326za700za7za7_2361za7, "No such structure: ", 19);
	      BGL_DEFINE_STRING(BGl_string2245z00zz__match_normaliza7eza7,
		BgL_bgl_string2245za700za7za7_2362za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2246z00zz__match_normaliza7eza7,
		BgL_bgl_string2246za700za7za7_2363za7, "Illegal `?' form", 16);
	      BGL_DEFINE_STRING(BGl_string2328z00zz__match_normaliza7eza7,
		BgL_bgl_string2328za700za7za7_2364za7, "match-case", 10);
	      BGL_DEFINE_STRING(BGl_string2329z00zz__match_normaliza7eza7,
		BgL_bgl_string2329za700za7za7_2365za7, "No such structure ", 18);
	      BGL_DEFINE_STRING(BGl_string2248z00zz__match_normaliza7eza7,
		BgL_bgl_string2248za700za7za7_2366za7, "check", 5);
	      BGL_DEFINE_STRING(BGl_string2249z00zz__match_normaliza7eza7,
		BgL_bgl_string2249za700za7za7_2367za7, "Illegal `not'", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2240z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2368za7,
		BGl_z62zc3z04anonymousza31448ze3ze5zz__match_normaliza7eza7, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2330z00zz__match_normaliza7eza7,
		BgL_bgl_string2330za700za7za7_2369za7, "__match_normalize", 17);
	      BGL_DEFINE_STRING(BGl_string2250z00zz__match_normaliza7eza7,
		BgL_bgl_string2250za700za7za7_2370za7, "Illegal `and' form", 18);
	      BGL_DEFINE_STRING(BGl_string2251z00zz__match_normaliza7eza7,
		BgL_bgl_string2251za700za7za7_2371za7, "Illegal `t-or' form", 19);
	      BGL_DEFINE_STRING(BGl_string2252z00zz__match_normaliza7eza7,
		BgL_bgl_string2252za700za7za7_2372za7, "Incompatible alternative", 24);
	      BGL_DEFINE_STRING(BGl_string2253z00zz__match_normaliza7eza7,
		BgL_bgl_string2253za700za7za7_2373za7, "Illegal `or' form", 17);
	      BGL_DEFINE_STRING(BGl_string2254z00zz__match_normaliza7eza7,
		BgL_bgl_string2254za700za7za7_2374za7, "Illegal `atom' form", 19);
	      BGL_DEFINE_STRING(BGl_string2255z00zz__match_normaliza7eza7,
		BgL_bgl_string2255za700za7za7_2375za7,
		"Too many patterns provided for atom", 35);
	      BGL_DEFINE_STRING(BGl_string2257z00zz__match_normaliza7eza7,
		BgL_bgl_string2257za700za7za7_2376za7, "any", 3);
	      BGL_DEFINE_STRING(BGl_string2259z00zz__match_normaliza7eza7,
		BgL_bgl_string2259za700za7za7_2377za7, "cons", 4);
	      BGL_DEFINE_STRING(BGl_string2262z00zz__match_normaliza7eza7,
		BgL_bgl_string2262za700za7za7_2378za7, "?-", 2);
	      BGL_DEFINE_STRING(BGl_string2264z00zz__match_normaliza7eza7,
		BgL_bgl_string2264za700za7za7_2379za7, "\077\077-", 3);
	      BGL_DEFINE_STRING(BGl_string2266z00zz__match_normaliza7eza7,
		BgL_bgl_string2266za700za7za7_2380za7, "\077\077?-", 4);
	      BGL_DEFINE_STRING(BGl_string2267z00zz__match_normaliza7eza7,
		BgL_bgl_string2267za700za7za7_2381za7, "g", 1);
	      BGL_DEFINE_STRING(BGl_string2268z00zz__match_normaliza7eza7,
		BgL_bgl_string2268za700za7za7_2382za7, "HOLE-", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_matchzd2definezd2recordzd2typez12zd2envz12zz__match_normaliza7eza7,
		BgL_bgl_za762matchza7d2defin2383z00,
		BGl_z62matchzd2definezd2recordzd2typez12za2zz__match_normaliza7eza7, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2260z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2384za7,
		BGl_z62zc3z04anonymousza31448ze32211ze5zz__match_normaliza7eza7, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2270z00zz__match_normaliza7eza7,
		BgL_bgl_string2270za700za7za7_2385za7, "hole", 4);
	      BGL_DEFINE_STRING(BGl_string2272z00zz__match_normaliza7eza7,
		BgL_bgl_string2272za700za7za7_2386za7, "times", 5);
	      BGL_DEFINE_STRING(BGl_string2275z00zz__match_normaliza7eza7,
		BgL_bgl_string2275za700za7za7_2387za7, "...", 3);
	      BGL_DEFINE_STRING(BGl_string2277z00zz__match_normaliza7eza7,
		BgL_bgl_string2277za700za7za7_2388za7, "value", 5);
	      BGL_DEFINE_STRING(BGl_string2279z00zz__match_normaliza7eza7,
		BgL_bgl_string2279za700za7za7_2389za7, "on", 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2273z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2390za7,
		BGl_z62zc3z04anonymousza31508ze3ze5zz__match_normaliza7eza7, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2281z00zz__match_normaliza7eza7,
		BgL_bgl_string2281za700za7za7_2391za7, "off", 3);
	      BGL_DEFINE_STRING(BGl_string2283z00zz__match_normaliza7eza7,
		BgL_bgl_string2283za700za7za7_2392za7, "xcons", 5);
	      BGL_DEFINE_STRING(BGl_string2285z00zz__match_normaliza7eza7,
		BgL_bgl_string2285za700za7za7_2393za7, "var", 3);
	      BGL_DEFINE_STRING(BGl_string2287z00zz__match_normaliza7eza7,
		BgL_bgl_string2287za700za7za7_2394za7, "segment", 7);
	      BGL_DEFINE_STRING(BGl_string2289z00zz__match_normaliza7eza7,
		BgL_bgl_string2289za700za7za7_2395za7, "end-ssetq", 9);
	      BGL_DEFINE_STRING(BGl_string2291z00zz__match_normaliza7eza7,
		BgL_bgl_string2291za700za7za7_2396za7, "tree", 4);
	      BGL_DEFINE_STRING(BGl_string2293z00zz__match_normaliza7eza7,
		BgL_bgl_string2293za700za7za7_2397za7, "ssetq-append", 12);
	      BGL_DEFINE_STRING(BGl_string2295z00zz__match_normaliza7eza7,
		BgL_bgl_string2295za700za7za7_2398za7, "eval-append", 11);
	      BGL_DEFINE_STRING(BGl_string2298z00zz__match_normaliza7eza7,
		BgL_bgl_string2298za700za7za7_2399za7, "tagged-or", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2299z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2400za7,
		BGl_z62zc3z04anonymousza31710ze3ze5zz__match_normaliza7eza7, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_matchzd2definezd2structurez12zd2envzc0zz__match_normaliza7eza7,
		BgL_bgl_za762matchza7d2defin2401z00,
		BGl_z62matchzd2definezd2structurez12z70zz__match_normaliza7eza7, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_normaliza7ezd2patternzd2envza7zz__match_normaliza7eza7,
		BgL_bgl_za762normaliza7a7eza7d2402za7,
		BGl_z62normaliza7ezd2patternz17zz__match_normaliza7eza7, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE
			(BGl_normaliza7ezd2patternzd2envza7zz__match_normaliza7eza7,
			BgL_bgl_za762normaliza7a7eza7d2402za7);
		BGL_BIND_PROCEDURE
			(BGl_matchzd2definezd2structurez12zd2envzc0zz__match_normaliza7eza7,
			BgL_bgl_za762matchza7d2defin2401z00);
		BGL_BIND_PROCEDURE(BGl_proc2299z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2400za7);
		BGL_BIND_STRING(BGl_string2298z00zz__match_normaliza7eza7,
			BgL_bgl_string2298za700za7za7_2399za7);
		BGL_BIND_STRING(BGl_string2295z00zz__match_normaliza7eza7,
			BgL_bgl_string2295za700za7za7_2398za7);
		BGL_BIND_STRING(BGl_string2293z00zz__match_normaliza7eza7,
			BgL_bgl_string2293za700za7za7_2397za7);
		BGL_BIND_STRING(BGl_string2291z00zz__match_normaliza7eza7,
			BgL_bgl_string2291za700za7za7_2396za7);
		BGL_BIND_STRING(BGl_string2289z00zz__match_normaliza7eza7,
			BgL_bgl_string2289za700za7za7_2395za7);
		BGL_BIND_STRING(BGl_string2287z00zz__match_normaliza7eza7,
			BgL_bgl_string2287za700za7za7_2394za7);
		BGL_BIND_STRING(BGl_string2285z00zz__match_normaliza7eza7,
			BgL_bgl_string2285za700za7za7_2393za7);
		BGL_BIND_STRING(BGl_string2283z00zz__match_normaliza7eza7,
			BgL_bgl_string2283za700za7za7_2392za7);
		BGL_BIND_STRING(BGl_string2281z00zz__match_normaliza7eza7,
			BgL_bgl_string2281za700za7za7_2391za7);
		BGL_BIND_PROCEDURE(BGl_proc2273z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2390za7);
		BGL_BIND_STRING(BGl_string2279z00zz__match_normaliza7eza7,
			BgL_bgl_string2279za700za7za7_2389za7);
		BGL_BIND_STRING(BGl_string2277z00zz__match_normaliza7eza7,
			BgL_bgl_string2277za700za7za7_2388za7);
		BGL_BIND_STRING(BGl_string2275z00zz__match_normaliza7eza7,
			BgL_bgl_string2275za700za7za7_2387za7);
		BGL_BIND_STRING(BGl_string2272z00zz__match_normaliza7eza7,
			BgL_bgl_string2272za700za7za7_2386za7);
		BGL_BIND_STRING(BGl_string2270z00zz__match_normaliza7eza7,
			BgL_bgl_string2270za700za7za7_2385za7);
		BGL_BIND_PROCEDURE(BGl_proc2260z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2384za7);
		BGL_BIND_PROCEDURE
			(BGl_matchzd2definezd2recordzd2typez12zd2envz12zz__match_normaliza7eza7,
			BgL_bgl_za762matchza7d2defin2383z00);
		BGL_BIND_STRING(BGl_string2268z00zz__match_normaliza7eza7,
			BgL_bgl_string2268za700za7za7_2382za7);
		BGL_BIND_STRING(BGl_string2267z00zz__match_normaliza7eza7,
			BgL_bgl_string2267za700za7za7_2381za7);
		BGL_BIND_STRING(BGl_string2266z00zz__match_normaliza7eza7,
			BgL_bgl_string2266za700za7za7_2380za7);
		BGL_BIND_STRING(BGl_string2264z00zz__match_normaliza7eza7,
			BgL_bgl_string2264za700za7za7_2379za7);
		BGL_BIND_STRING(BGl_string2262z00zz__match_normaliza7eza7,
			BgL_bgl_string2262za700za7za7_2378za7);
		BGL_BIND_STRING(BGl_string2259z00zz__match_normaliza7eza7,
			BgL_bgl_string2259za700za7za7_2377za7);
		BGL_BIND_STRING(BGl_string2257z00zz__match_normaliza7eza7,
			BgL_bgl_string2257za700za7za7_2376za7);
		BGL_BIND_STRING(BGl_string2255z00zz__match_normaliza7eza7,
			BgL_bgl_string2255za700za7za7_2375za7);
		BGL_BIND_STRING(BGl_string2254z00zz__match_normaliza7eza7,
			BgL_bgl_string2254za700za7za7_2374za7);
		BGL_BIND_STRING(BGl_string2253z00zz__match_normaliza7eza7,
			BgL_bgl_string2253za700za7za7_2373za7);
		BGL_BIND_STRING(BGl_string2252z00zz__match_normaliza7eza7,
			BgL_bgl_string2252za700za7za7_2372za7);
		BGL_BIND_STRING(BGl_string2251z00zz__match_normaliza7eza7,
			BgL_bgl_string2251za700za7za7_2371za7);
		BGL_BIND_STRING(BGl_string2250z00zz__match_normaliza7eza7,
			BgL_bgl_string2250za700za7za7_2370za7);
		BGL_BIND_STRING(BGl_string2330z00zz__match_normaliza7eza7,
			BgL_bgl_string2330za700za7za7_2369za7);
		BGL_BIND_PROCEDURE(BGl_proc2240z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2368za7);
		BGL_BIND_STRING(BGl_string2249z00zz__match_normaliza7eza7,
			BgL_bgl_string2249za700za7za7_2367za7);
		BGL_BIND_STRING(BGl_string2248z00zz__match_normaliza7eza7,
			BgL_bgl_string2248za700za7za7_2366za7);
		BGL_BIND_STRING(BGl_string2329z00zz__match_normaliza7eza7,
			BgL_bgl_string2329za700za7za7_2365za7);
		BGL_BIND_STRING(BGl_string2328z00zz__match_normaliza7eza7,
			BgL_bgl_string2328za700za7za7_2364za7);
		BGL_BIND_STRING(BGl_string2246z00zz__match_normaliza7eza7,
			BgL_bgl_string2246za700za7za7_2363za7);
		BGL_BIND_STRING(BGl_string2245z00zz__match_normaliza7eza7,
			BgL_bgl_string2245za700za7za7_2362za7);
		BGL_BIND_STRING(BGl_string2326z00zz__match_normaliza7eza7,
			BgL_bgl_string2326za700za7za7_2361za7);
		BGL_BIND_STRING(BGl_string2325z00zz__match_normaliza7eza7,
			BgL_bgl_string2325za700za7za7_2360za7);
		BGL_BIND_PROCEDURE(BGl_proc2237z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2359za7);
		BGL_BIND_STRING(BGl_string2243z00zz__match_normaliza7eza7,
			BgL_bgl_string2243za700za7za7_2358za7);
		BGL_BIND_STRING(BGl_string2242z00zz__match_normaliza7eza7,
			BgL_bgl_string2242za700za7za7_2357za7);
		BGL_BIND_STRING(BGl_string2323z00zz__match_normaliza7eza7,
			BgL_bgl_string2323za700za7za7_2356za7);
		BGL_BIND_STRING(BGl_string2321z00zz__match_normaliza7eza7,
			BgL_bgl_string2321za700za7za7_2355za7);
		BGL_BIND_STRING(BGl_string2320z00zz__match_normaliza7eza7,
			BgL_bgl_string2320za700za7za7_2354za7);
		BGL_BIND_PROCEDURE(BGl_proc2232z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2353za7);
		BGL_BIND_STRING(BGl_string2239z00zz__match_normaliza7eza7,
			BgL_bgl_string2239za700za7za7_2352za7);
		BGL_BIND_STRING(BGl_string2236z00zz__match_normaliza7eza7,
			BgL_bgl_string2236za700za7za7_2351za7);
		BGL_BIND_PROCEDURE(BGl_proc2229z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2350za7);
		BGL_BIND_STRING(BGl_string2316z00zz__match_normaliza7eza7,
			BgL_bgl_string2316za700za7za7_2349za7);
		BGL_BIND_STRING(BGl_string2234z00zz__match_normaliza7eza7,
			BgL_bgl_string2234za700za7za7_2348za7);
		BGL_BIND_PROCEDURE(BGl_proc2226z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2347za7);
		BGL_BIND_STRING(BGl_string2231z00zz__match_normaliza7eza7,
			BgL_bgl_string2231za700za7za7_2346za7);
		BGL_BIND_STRING(BGl_string2312z00zz__match_normaliza7eza7,
			BgL_bgl_string2312za700za7za7_2345za7);
		BGL_BIND_PROCEDURE(BGl_proc2223z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2344za7);
		BGL_BIND_PROCEDURE(BGl_proc2220z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2343za7);
		BGL_BIND_PROCEDURE(BGl_proc2300z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2342za7);
		BGL_BIND_PROCEDURE
			(BGl_extendzd2rzd2macrozd2envzd2envz00zz__match_normaliza7eza7,
			BgL_bgl_za762extendza7d2rza7d22341za7);
		BGL_BIND_STRING(BGl_string2228z00zz__match_normaliza7eza7,
			BgL_bgl_string2228za700za7za7_2340za7);
		BGL_BIND_STRING(BGl_string2308z00zz__match_normaliza7eza7,
			BgL_bgl_string2308za700za7za7_2339za7);
		BGL_BIND_STRING(BGl_string2225z00zz__match_normaliza7eza7,
			BgL_bgl_string2225za700za7za7_2338za7);
		BGL_BIND_STRING(BGl_string2306z00zz__match_normaliza7eza7,
			BgL_bgl_string2306za700za7za7_2337za7);
		BGL_BIND_PROCEDURE(BGl_proc2217z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2336za7);
		BGL_BIND_STRING(BGl_string2222z00zz__match_normaliza7eza7,
			BgL_bgl_string2222za700za7za7_2335za7);
		BGL_BIND_STRING(BGl_string2302z00zz__match_normaliza7eza7,
			BgL_bgl_string2302za700za7za7_2334za7);
		BGL_BIND_PROCEDURE(BGl_proc2214z00zz__match_normaliza7eza7,
			BgL_bgl_za762za7c3za704anonymo2333za7);
		BGL_BIND_STRING(BGl_string2219z00zz__match_normaliza7eza7,
			BgL_bgl_string2219za700za7za7_2332za7);
		BGL_BIND_STRING(BGl_string2216z00zz__match_normaliza7eza7,
			BgL_bgl_string2216za700za7za7_2331za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_list2296z00zz__match_normaliza7eza7));
		ADD_ROOT((void
				*) (&BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7));
		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2215z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2218z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_unboundzd2patternzd2zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2301z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2221z00zz__match_normaliza7eza7));
		ADD_ROOT((void
				*) (&BGl_rzd2macrozd2patternzd2initzd2zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2305z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2224z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2307z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2227z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2311z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2230z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2233z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2315z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2235z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2319z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2238z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2322z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2241z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2324z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2244z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2327z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2247z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2303z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2304z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2256z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2258z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2309z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2261z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2310z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2263z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2313z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2265z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2314z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2317z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2269z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_list2318z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2271z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2274z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2276z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2278z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2280z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2282z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2284z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2286z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2288z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2290z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2292z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2294z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2297z00zz__match_normaliza7eza7));
		ADD_ROOT((void *) (&BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



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

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			BGl_symbol2215z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2216z00zz__match_normaliza7eza7);
			BGl_symbol2218z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2219z00zz__match_normaliza7eza7);
			BGl_symbol2221z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2222z00zz__match_normaliza7eza7);
			BGl_symbol2224z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2225z00zz__match_normaliza7eza7);
			BGl_symbol2227z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2228z00zz__match_normaliza7eza7);
			BGl_symbol2230z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2231z00zz__match_normaliza7eza7);
			BGl_symbol2233z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2234z00zz__match_normaliza7eza7);
			BGl_symbol2235z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2236z00zz__match_normaliza7eza7);
			BGl_symbol2238z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2239z00zz__match_normaliza7eza7);
			BGl_symbol2241z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2242z00zz__match_normaliza7eza7);
			BGl_symbol2244z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2245z00zz__match_normaliza7eza7);
			BGl_symbol2247z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2248z00zz__match_normaliza7eza7);
			BGl_symbol2256z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2257z00zz__match_normaliza7eza7);
			BGl_symbol2258z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2259z00zz__match_normaliza7eza7);
			BGl_symbol2261z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2262z00zz__match_normaliza7eza7);
			BGl_symbol2263z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2264z00zz__match_normaliza7eza7);
			BGl_symbol2265z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2266z00zz__match_normaliza7eza7);
			BGl_symbol2269z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2270z00zz__match_normaliza7eza7);
			BGl_symbol2271z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2272z00zz__match_normaliza7eza7);
			BGl_symbol2274z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2275z00zz__match_normaliza7eza7);
			BGl_symbol2276z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2277z00zz__match_normaliza7eza7);
			BGl_symbol2278z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2279z00zz__match_normaliza7eza7);
			BGl_symbol2280z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2281z00zz__match_normaliza7eza7);
			BGl_symbol2282z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2283z00zz__match_normaliza7eza7);
			BGl_symbol2284z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2285z00zz__match_normaliza7eza7);
			BGl_symbol2286z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2287z00zz__match_normaliza7eza7);
			BGl_symbol2288z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2289z00zz__match_normaliza7eza7);
			BGl_symbol2290z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2291z00zz__match_normaliza7eza7);
			BGl_symbol2292z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2293z00zz__match_normaliza7eza7);
			BGl_symbol2294z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2295z00zz__match_normaliza7eza7);
			BGl_symbol2297z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2298z00zz__match_normaliza7eza7);
			BGl_list2296z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2218z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_normaliza7eza7,
					MAKE_YOUNG_PAIR(BGl_symbol2221z00zz__match_normaliza7eza7,
						MAKE_YOUNG_PAIR(BGl_symbol2297z00zz__match_normaliza7eza7,
							MAKE_YOUNG_PAIR(BGl_symbol2258z00zz__match_normaliza7eza7,
								MAKE_YOUNG_PAIR(BGl_symbol2227z00zz__match_normaliza7eza7,
									BNIL))))));
			BGl_symbol2301z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2302z00zz__match_normaliza7eza7);
			BGl_list2303z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
			BGl_symbol2305z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2306z00zz__match_normaliza7eza7);
			BGl_list2304z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2305z00zz__match_normaliza7eza7, BNIL);
			BGl_symbol2307z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2308z00zz__match_normaliza7eza7);
			BGl_list2309z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2244z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BNIL, BNIL));
			BGl_symbol2311z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2312z00zz__match_normaliza7eza7);
			BGl_list2310z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2311z00zz__match_normaliza7eza7, BNIL);
			BGl_list2313z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2218z00zz__match_normaliza7eza7,
					MAKE_YOUNG_PAIR(BGl_symbol2227z00zz__match_normaliza7eza7, BNIL)));
			BGl_list2314z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2290z00zz__match_normaliza7eza7, BNIL));
			BGl_symbol2315z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2316z00zz__match_normaliza7eza7);
			BGl_list2317z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2263z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2265z00zz__match_normaliza7eza7, BNIL));
			BGl_list2318z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2218z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_normaliza7eza7,
					MAKE_YOUNG_PAIR(BGl_symbol2221z00zz__match_normaliza7eza7,
						MAKE_YOUNG_PAIR(BGl_symbol2297z00zz__match_normaliza7eza7, BNIL))));
			BGl_symbol2319z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2320z00zz__match_normaliza7eza7);
			BGl_symbol2322z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2323z00zz__match_normaliza7eza7);
			BGl_symbol2324z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2325z00zz__match_normaliza7eza7);
			return (BGl_symbol2327z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2328z00zz__match_normaliza7eza7), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7 =
				BGl_makezd2togglezd2zz__match_normaliza7eza7();
			BGl_rzd2macrozd2patternzd2initzd2zz__match_normaliza7eza7 = BNIL;
			BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 = BNIL;
			{	/* Match/normalize.scm 360 */
				obj_t BgL_namez00_2452;

				BgL_namez00_2452 = BGl_symbol2215z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2453;

					BgL_fnz00_2453 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2454;

						BgL_arg1712z00_2454 =
							MAKE_YOUNG_PAIR(BgL_namez00_2452,
							BGl_proc2214z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2454, BgL_fnz00_2453);
			}}} BGl_symbol2215z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 375 */
				obj_t BgL_namez00_2457;

				BgL_namez00_2457 = BGl_symbol2218z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2458;

					BgL_fnz00_2458 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2459;

						BgL_arg1712z00_2459 =
							MAKE_YOUNG_PAIR(BgL_namez00_2457,
							BGl_proc2217z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2459, BgL_fnz00_2458);
			}}} BGl_symbol2218z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 409 */
				obj_t BgL_namez00_2462;

				BgL_namez00_2462 = BGl_symbol2221z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2463;

					BgL_fnz00_2463 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2464;

						BgL_arg1712z00_2464 =
							MAKE_YOUNG_PAIR(BgL_namez00_2462,
							BGl_proc2220z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2464, BgL_fnz00_2463);
			}}} BGl_symbol2221z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 428 */
				obj_t BgL_namez00_2470;

				BgL_namez00_2470 = BGl_symbol2224z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2471;

					BgL_fnz00_2471 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2472;

						BgL_arg1712z00_2472 =
							MAKE_YOUNG_PAIR(BgL_namez00_2470,
							BGl_proc2223z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2472, BgL_fnz00_2471);
			}}} BGl_symbol2224z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 444 */
				obj_t BgL_namez00_2483;

				BgL_namez00_2483 = BGl_symbol2227z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2484;

					BgL_fnz00_2484 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2485;

						BgL_arg1712z00_2485 =
							MAKE_YOUNG_PAIR(BgL_namez00_2483,
							BGl_proc2226z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2485, BgL_fnz00_2484);
			}}} BGl_symbol2227z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 454 */
				obj_t BgL_namez00_2491;

				BgL_namez00_2491 = BGl_symbol2230z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2492;

					BgL_fnz00_2492 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2493;

						BgL_arg1712z00_2493 =
							MAKE_YOUNG_PAIR(BgL_namez00_2491,
							BGl_proc2229z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2493, BgL_fnz00_2492);
			}}} BGl_symbol2230z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 460 */
				obj_t BgL_namez00_2499;

				BgL_namez00_2499 = BGl_symbol2233z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2500;

					BgL_fnz00_2500 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2501;

						BgL_arg1712z00_2501 =
							MAKE_YOUNG_PAIR(BgL_namez00_2499,
							BGl_proc2232z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2501, BgL_fnz00_2500);
			}}} BGl_symbol2233z00zz__match_normaliza7eza7;
			BGl_unboundzd2patternzd2zz__match_normaliza7eza7 =
				BGl_symbol2235z00zz__match_normaliza7eza7;
			BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 = BNIL;
			{	/* Match/normalize.scm 563 */
				obj_t BgL_namez00_2544;

				BgL_namez00_2544 = BGl_symbol2238z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2545;

					BgL_fnz00_2545 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1712z00_2546;

						BgL_arg1712z00_2546 =
							MAKE_YOUNG_PAIR(BgL_namez00_2544,
							BGl_proc2237z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1712z00_2546, BgL_fnz00_2545);
			}}}
			return BGl_symbol2238z00zz__match_normaliza7eza7;
		}

	}



/* &<@anonymous:1392> */
	obj_t BGl_z62zc3z04anonymousza31392ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3381, obj_t BgL_namez00_3382, obj_t BgL_predz00_3383,
		obj_t BgL_eza2za2_3384)
	{
		{	/* Match/normalize.scm 563 */
			{	/* Match/normalize.scm 564 */
				obj_t BgL_zc3z04anonymousza31393ze3z87_3701;

				BgL_zc3z04anonymousza31393ze3z87_3701 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31393ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (3L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31393ze3z87_3701, (int) (0L),
					BgL_eza2za2_3384);
				PROCEDURE_SET(BgL_zc3z04anonymousza31393ze3z87_3701, (int) (1L),
					BgL_predz00_3383);
				PROCEDURE_SET(BgL_zc3z04anonymousza31393ze3z87_3701, (int) (2L),
					BgL_namez00_3382);
				return BgL_zc3z04anonymousza31393ze3z87_3701;
			}
		}

	}



/* &<@anonymous:1393> */
	obj_t BGl_z62zc3z04anonymousza31393ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3385, obj_t BgL_rz00_3389, obj_t BgL_cz00_3390)
	{
		{	/* Match/normalize.scm 564 */
			{	/* Match/normalize.scm 565 */
				obj_t BgL_eza2za2_3386;
				obj_t BgL_predz00_3387;
				obj_t BgL_namez00_3388;

				BgL_eza2za2_3386 = PROCEDURE_REF(BgL_envz00_3385, (int) (0L));
				BgL_predz00_3387 = PROCEDURE_REF(BgL_envz00_3385, (int) (1L));
				BgL_namez00_3388 = PROCEDURE_REF(BgL_envz00_3385, (int) (2L));
				{	/* Match/normalize.scm 565 */
					obj_t BgL_arg1395z00_3702;

					{	/* Match/normalize.scm 565 */
						obj_t BgL_arg1396z00_3703;

						{	/* Match/normalize.scm 565 */
							obj_t BgL_arg1397z00_3704;

							{	/* Match/normalize.scm 565 */
								obj_t BgL_arg1398z00_3705;

								if (NULLP(BgL_eza2za2_3386))
									{	/* Match/normalize.scm 565 */
										BgL_arg1398z00_3705 = BNIL;
									}
								else
									{	/* Match/normalize.scm 565 */
										obj_t BgL_head1130z00_3706;

										{	/* Match/normalize.scm 565 */
											obj_t BgL_arg1405z00_3707;

											{	/* Match/normalize.scm 565 */
												obj_t BgL_arg1407z00_3708;

												BgL_arg1407z00_3708 = CAR(((obj_t) BgL_eza2za2_3386));
												{	/* Match/normalize.scm 124 */
													obj_t BgL_fun1447z00_3709;

													BgL_fun1447z00_3709 =
														BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
														(BgL_arg1407z00_3708);
													BgL_arg1405z00_3707 =
														BGL_PROCEDURE_CALL2(BgL_fun1447z00_3709,
														BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
														BGl_proc2240z00zz__match_normaliza7eza7);
												}
											}
											BgL_head1130z00_3706 =
												MAKE_YOUNG_PAIR(BgL_arg1405z00_3707, BNIL);
										}
										{	/* Match/normalize.scm 565 */
											obj_t BgL_g1133z00_3711;

											BgL_g1133z00_3711 = CDR(((obj_t) BgL_eza2za2_3386));
											{
												obj_t BgL_l1128z00_3713;
												obj_t BgL_tail1131z00_3714;

												BgL_l1128z00_3713 = BgL_g1133z00_3711;
												BgL_tail1131z00_3714 = BgL_head1130z00_3706;
											BgL_zc3z04anonymousza31400ze3z87_3712:
												if (NULLP(BgL_l1128z00_3713))
													{	/* Match/normalize.scm 565 */
														BgL_arg1398z00_3705 = BgL_head1130z00_3706;
													}
												else
													{	/* Match/normalize.scm 565 */
														obj_t BgL_newtail1132z00_3715;

														{	/* Match/normalize.scm 565 */
															obj_t BgL_arg1403z00_3716;

															{	/* Match/normalize.scm 565 */
																obj_t BgL_arg1404z00_3717;

																BgL_arg1404z00_3717 =
																	CAR(((obj_t) BgL_l1128z00_3713));
																BgL_arg1403z00_3716 =
																	BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7
																	(BgL_arg1404z00_3717);
															}
															BgL_newtail1132z00_3715 =
																MAKE_YOUNG_PAIR(BgL_arg1403z00_3716, BNIL);
														}
														SET_CDR(BgL_tail1131z00_3714,
															BgL_newtail1132z00_3715);
														{	/* Match/normalize.scm 565 */
															obj_t BgL_arg1402z00_3718;

															BgL_arg1402z00_3718 =
																CDR(((obj_t) BgL_l1128z00_3713));
															{
																obj_t BgL_tail1131z00_4100;
																obj_t BgL_l1128z00_4099;

																BgL_l1128z00_4099 = BgL_arg1402z00_3718;
																BgL_tail1131z00_4100 = BgL_newtail1132z00_3715;
																BgL_tail1131z00_3714 = BgL_tail1131z00_4100;
																BgL_l1128z00_3713 = BgL_l1128z00_4099;
																goto BgL_zc3z04anonymousza31400ze3z87_3712;
															}
														}
													}
											}
										}
									}
								BgL_arg1397z00_3704 =
									MAKE_YOUNG_PAIR(BgL_predz00_3387, BgL_arg1398z00_3705);
							}
							BgL_arg1396z00_3703 =
								MAKE_YOUNG_PAIR(BgL_namez00_3388, BgL_arg1397z00_3704);
						}
						BgL_arg1395z00_3702 =
							MAKE_YOUNG_PAIR(BGl_symbol2238z00zz__match_normaliza7eza7,
							BgL_arg1396z00_3703);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3390, BgL_arg1395z00_3702,
						BgL_rz00_3389);
				}
			}
		}

	}



/* &<@anonymous:1448> */
	obj_t BGl_z62zc3z04anonymousza31448ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3391, obj_t BgL_patternz00_3392, obj_t BgL_rrz00_3393)
	{
		{	/* Match/normalize.scm 126 */
			return BgL_patternz00_3392;
		}

	}



/* &<@anonymous:1382> */
	obj_t BGl_z62zc3z04anonymousza31382ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3394, obj_t BgL_lz00_3395)
	{
		{	/* Match/normalize.scm 460 */
			{	/* Match/normalize.scm 461 */
				bool_t BgL_test2406z00_4109;

				if (NULLP(BgL_lz00_3395))
					{	/* Match/normalize.scm 461 */
						BgL_test2406z00_4109 = ((bool_t) 1);
					}
				else
					{	/* Match/normalize.scm 461 */
						obj_t BgL_tmpz00_4112;

						BgL_tmpz00_4112 = CDR(((obj_t) BgL_lz00_3395));
						BgL_test2406z00_4109 = PAIRP(BgL_tmpz00_4112);
					}
				if (BgL_test2406z00_4109)
					{	/* Match/normalize.scm 461 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2241z00zz__match_normaliza7eza7,
							BGl_string2243z00zz__match_normaliza7eza7, BgL_lz00_3395);
					}
				else
					{	/* Match/normalize.scm 463 */
						obj_t BgL_zc3z04anonymousza31386ze3z87_3719;

						BgL_zc3z04anonymousza31386ze3z87_3719 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31386ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31386ze3z87_3719, (int) (0L),
							BgL_lz00_3395);
						return BgL_zc3z04anonymousza31386ze3z87_3719;
					}
			}
		}

	}



/* &<@anonymous:1386> */
	obj_t BGl_z62zc3z04anonymousza31386ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3396, obj_t BgL_rz00_3398, obj_t BgL_cz00_3399)
	{
		{	/* Match/normalize.scm 463 */
			{	/* Match/normalize.scm 464 */
				obj_t BgL_lz00_3397;

				BgL_lz00_3397 = PROCEDURE_REF(BgL_envz00_3396, (int) (0L));
				{	/* Match/normalize.scm 464 */
					obj_t BgL_arg1387z00_3720;

					{	/* Match/normalize.scm 464 */
						obj_t BgL_arg1388z00_3721;

						{	/* Match/normalize.scm 464 */
							obj_t BgL_arg1389z00_3722;

							BgL_arg1389z00_3722 = CAR(((obj_t) BgL_lz00_3397));
							BgL_arg1388z00_3721 = MAKE_YOUNG_PAIR(BgL_arg1389z00_3722, BNIL);
						}
						BgL_arg1387z00_3720 =
							MAKE_YOUNG_PAIR(BGl_symbol2244z00zz__match_normaliza7eza7,
							BgL_arg1388z00_3721);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3399, BgL_arg1387z00_3720,
						BgL_rz00_3398);
				}
			}
		}

	}



/* &<@anonymous:1372> */
	obj_t BGl_z62zc3z04anonymousza31372ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3400, obj_t BgL_lz00_3401)
	{
		{	/* Match/normalize.scm 454 */
			{	/* Match/normalize.scm 455 */
				bool_t BgL_test2408z00_4133;

				if (NULLP(BgL_lz00_3401))
					{	/* Match/normalize.scm 455 */
						BgL_test2408z00_4133 = ((bool_t) 1);
					}
				else
					{	/* Match/normalize.scm 455 */
						obj_t BgL_tmpz00_4136;

						BgL_tmpz00_4136 = CDR(((obj_t) BgL_lz00_3401));
						BgL_test2408z00_4133 = PAIRP(BgL_tmpz00_4136);
					}
				if (BgL_test2408z00_4133)
					{	/* Match/normalize.scm 455 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2241z00zz__match_normaliza7eza7,
							BGl_string2246z00zz__match_normaliza7eza7, BgL_lz00_3401);
					}
				else
					{	/* Match/normalize.scm 457 */
						obj_t BgL_zc3z04anonymousza31376ze3z87_3723;

						BgL_zc3z04anonymousza31376ze3z87_3723 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31376ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31376ze3z87_3723, (int) (0L),
							BgL_lz00_3401);
						return BgL_zc3z04anonymousza31376ze3z87_3723;
					}
			}
		}

	}



/* &<@anonymous:1376> */
	obj_t BGl_z62zc3z04anonymousza31376ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3402, obj_t BgL_rz00_3404, obj_t BgL_cz00_3405)
	{
		{	/* Match/normalize.scm 457 */
			{	/* Match/normalize.scm 458 */
				obj_t BgL_lz00_3403;

				BgL_lz00_3403 = PROCEDURE_REF(BgL_envz00_3402, (int) (0L));
				{	/* Match/normalize.scm 458 */
					obj_t BgL_arg1377z00_3724;

					{	/* Match/normalize.scm 458 */
						obj_t BgL_arg1378z00_3725;

						{	/* Match/normalize.scm 458 */
							obj_t BgL_arg1379z00_3726;

							BgL_arg1379z00_3726 = CAR(((obj_t) BgL_lz00_3403));
							BgL_arg1378z00_3725 = MAKE_YOUNG_PAIR(BgL_arg1379z00_3726, BNIL);
						}
						BgL_arg1377z00_3724 =
							MAKE_YOUNG_PAIR(BGl_symbol2247z00zz__match_normaliza7eza7,
							BgL_arg1378z00_3725);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3405, BgL_arg1377z00_3724,
						BgL_rz00_3404);
				}
			}
		}

	}



/* &<@anonymous:1360> */
	obj_t BGl_z62zc3z04anonymousza31360ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3406, obj_t BgL_lz00_3407)
	{
		{	/* Match/normalize.scm 444 */
			{	/* Match/normalize.scm 445 */
				bool_t BgL_test2410z00_4157;

				if (NULLP(BgL_lz00_3407))
					{	/* Match/normalize.scm 445 */
						BgL_test2410z00_4157 = ((bool_t) 1);
					}
				else
					{	/* Match/normalize.scm 445 */
						obj_t BgL_tmpz00_4160;

						BgL_tmpz00_4160 = CDR(((obj_t) BgL_lz00_3407));
						BgL_test2410z00_4157 = PAIRP(BgL_tmpz00_4160);
					}
				if (BgL_test2410z00_4157)
					{	/* Match/normalize.scm 445 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2241z00zz__match_normaliza7eza7,
							BGl_string2249z00zz__match_normaliza7eza7, BgL_lz00_3407);
					}
				else
					{	/* Match/normalize.scm 447 */
						obj_t BgL_ez00_3727;

						BgL_ez00_3727 = CAR(((obj_t) BgL_lz00_3407));
						{	/* Match/normalize.scm 448 */
							obj_t BgL_zc3z04anonymousza31364ze3z87_3728;

							BgL_zc3z04anonymousza31364ze3z87_3728 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31364ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31364ze3z87_3728, (int) (0L),
								BgL_ez00_3727);
							return BgL_zc3z04anonymousza31364ze3z87_3728;
						}
					}
			}
		}

	}



/* &<@anonymous:1364> */
	obj_t BGl_z62zc3z04anonymousza31364ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3408, obj_t BgL_rz00_3410, obj_t BgL_cz00_3411)
	{
		{	/* Match/normalize.scm 448 */
			{	/* Match/normalize.scm 449 */
				obj_t BgL_ez00_3409;

				BgL_ez00_3409 = PROCEDURE_REF(BgL_envz00_3408, (int) (0L));
				{	/* Match/normalize.scm 449 */
					obj_t BgL_fun1366z00_3729;

					BgL_fun1366z00_3729 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_ez00_3409);
					{	/* Match/normalize.scm 452 */
						obj_t BgL_zc3z04anonymousza31367ze3z87_3730;

						BgL_zc3z04anonymousza31367ze3z87_3730 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31367ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_3730, (int) (0L),
							BgL_cz00_3411);
						PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_3730, (int) (1L),
							BgL_rz00_3410);
						return BGL_PROCEDURE_CALL2(BgL_fun1366z00_3729, BgL_rz00_3410,
							BgL_zc3z04anonymousza31367ze3z87_3730);
					}
				}
			}
		}

	}



/* &<@anonymous:1367> */
	obj_t BGl_z62zc3z04anonymousza31367ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3412, obj_t BgL_patternz00_3415, obj_t BgL_rrz00_3416)
	{
		{	/* Match/normalize.scm 451 */
			{	/* Match/normalize.scm 452 */
				obj_t BgL_cz00_3413;
				obj_t BgL_rz00_3414;

				BgL_cz00_3413 = PROCEDURE_REF(BgL_envz00_3412, (int) (0L));
				BgL_rz00_3414 = PROCEDURE_REF(BgL_envz00_3412, (int) (1L));
				{	/* Match/normalize.scm 452 */
					obj_t BgL_arg1368z00_3731;

					{	/* Match/normalize.scm 452 */
						obj_t BgL_arg1369z00_3732;

						BgL_arg1369z00_3732 = MAKE_YOUNG_PAIR(BgL_patternz00_3415, BNIL);
						BgL_arg1368z00_3731 =
							MAKE_YOUNG_PAIR(BGl_symbol2227z00zz__match_normaliza7eza7,
							BgL_arg1369z00_3732);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3413, BgL_arg1368z00_3731,
						BgL_rz00_3414);
				}
			}
		}

	}



/* &<@anonymous:1339> */
	obj_t BGl_z62zc3z04anonymousza31339ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3417, obj_t BgL_lz00_3418)
	{
		{	/* Match/normalize.scm 428 */
			if (NULLP(BgL_lz00_3418))
				{	/* Match/normalize.scm 429 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2241z00zz__match_normaliza7eza7,
						BGl_string2250z00zz__match_normaliza7eza7, BgL_lz00_3418);
				}
			else
				{	/* Match/normalize.scm 431 */
					obj_t BgL_ez00_3733;
					obj_t BgL_eza2za2_3734;

					BgL_ez00_3733 = CAR(((obj_t) BgL_lz00_3418));
					BgL_eza2za2_3734 = CDR(((obj_t) BgL_lz00_3418));
					{	/* Match/normalize.scm 433 */
						obj_t BgL_zc3z04anonymousza31341ze3z87_3735;

						BgL_zc3z04anonymousza31341ze3z87_3735 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31341ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31341ze3z87_3735, (int) (0L),
							BgL_ez00_3733);
						PROCEDURE_SET(BgL_zc3z04anonymousza31341ze3z87_3735, (int) (1L),
							BgL_eza2za2_3734);
						return BgL_zc3z04anonymousza31341ze3z87_3735;
					}
				}
		}

	}



/* &<@anonymous:1341> */
	obj_t BGl_z62zc3z04anonymousza31341ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3419, obj_t BgL_rz00_3422, obj_t BgL_cz00_3423)
	{
		{	/* Match/normalize.scm 433 */
			{	/* Match/normalize.scm 434 */
				obj_t BgL_ez00_3420;
				obj_t BgL_eza2za2_3421;

				BgL_ez00_3420 = PROCEDURE_REF(BgL_envz00_3419, (int) (0L));
				BgL_eza2za2_3421 = PROCEDURE_REF(BgL_envz00_3419, (int) (1L));
				if (PAIRP(BgL_eza2za2_3421))
					{	/* Match/normalize.scm 435 */
						obj_t BgL_fun1346z00_3736;

						BgL_fun1346z00_3736 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3420);
						{	/* Match/normalize.scm 438 */
							obj_t BgL_zc3z04anonymousza31347ze3z87_3737;

							BgL_zc3z04anonymousza31347ze3z87_3737 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31347ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (2L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31347ze3z87_3737, (int) (0L),
								BgL_eza2za2_3421);
							PROCEDURE_SET(BgL_zc3z04anonymousza31347ze3z87_3737, (int) (1L),
								BgL_cz00_3423);
							return BGL_PROCEDURE_CALL2(BgL_fun1346z00_3736, BgL_rz00_3422,
								BgL_zc3z04anonymousza31347ze3z87_3737);
						}
					}
				else
					{	/* Match/normalize.scm 442 */
						obj_t BgL_fun1358z00_3738;

						BgL_fun1358z00_3738 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3420);
						return BGL_PROCEDURE_CALL2(BgL_fun1358z00_3738, BgL_rz00_3422,
							BgL_cz00_3423);
					}
			}
		}

	}



/* &<@anonymous:1347> */
	obj_t BGl_z62zc3z04anonymousza31347ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3424, obj_t BgL_pattern1z00_3427, obj_t BgL_rrz00_3428)
	{
		{	/* Match/normalize.scm 437 */
			{	/* Match/normalize.scm 438 */
				obj_t BgL_eza2za2_3425;
				obj_t BgL_cz00_3426;

				BgL_eza2za2_3425 = PROCEDURE_REF(BgL_envz00_3424, (int) (0L));
				BgL_cz00_3426 = PROCEDURE_REF(BgL_envz00_3424, (int) (1L));
				{	/* Match/normalize.scm 438 */
					obj_t BgL_fun1352z00_3739;

					{	/* Match/normalize.scm 438 */
						obj_t BgL_arg1349z00_3740;

						BgL_arg1349z00_3740 =
							MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_normaliza7eza7,
							BgL_eza2za2_3425);
						BgL_fun1352z00_3739 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1349z00_3740);
					}
					{	/* Match/normalize.scm 441 */
						obj_t BgL_zc3z04anonymousza31353ze3z87_3741;

						BgL_zc3z04anonymousza31353ze3z87_3741 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31353ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31353ze3z87_3741, (int) (0L),
							BgL_pattern1z00_3427);
						PROCEDURE_SET(BgL_zc3z04anonymousza31353ze3z87_3741, (int) (1L),
							BgL_cz00_3426);
						return BGL_PROCEDURE_CALL2(BgL_fun1352z00_3739, BgL_rrz00_3428,
							BgL_zc3z04anonymousza31353ze3z87_3741);
					}
				}
			}
		}

	}



/* &<@anonymous:1353> */
	obj_t BGl_z62zc3z04anonymousza31353ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3429, obj_t BgL_pattern2z00_3432, obj_t BgL_rrrz00_3433)
	{
		{	/* Match/normalize.scm 440 */
			{	/* Match/normalize.scm 441 */
				obj_t BgL_pattern1z00_3430;
				obj_t BgL_cz00_3431;

				BgL_pattern1z00_3430 = PROCEDURE_REF(BgL_envz00_3429, (int) (0L));
				BgL_cz00_3431 = PROCEDURE_REF(BgL_envz00_3429, (int) (1L));
				{	/* Match/normalize.scm 441 */
					obj_t BgL_arg1355z00_3742;

					{	/* Match/normalize.scm 441 */
						obj_t BgL_arg1356z00_3743;

						{	/* Match/normalize.scm 441 */
							obj_t BgL_arg1357z00_3744;

							BgL_arg1357z00_3744 = MAKE_YOUNG_PAIR(BgL_pattern2z00_3432, BNIL);
							BgL_arg1356z00_3743 =
								MAKE_YOUNG_PAIR(BgL_pattern1z00_3430, BgL_arg1357z00_3744);
						}
						BgL_arg1355z00_3742 =
							MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_normaliza7eza7,
							BgL_arg1356z00_3743);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3431, BgL_arg1355z00_3742,
						BgL_rrrz00_3433);
				}
			}
		}

	}



/* &<@anonymous:1296> */
	obj_t BGl_z62zc3z04anonymousza31296ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3434, obj_t BgL_lz00_3435)
	{
		{	/* Match/normalize.scm 409 */
			if (NULLP(BgL_lz00_3435))
				{	/* Match/normalize.scm 410 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2241z00zz__match_normaliza7eza7,
						BGl_string2251z00zz__match_normaliza7eza7, BgL_lz00_3435);
				}
			else
				{	/* Match/normalize.scm 412 */
					obj_t BgL_ez00_3745;
					obj_t BgL_eza2za2_3746;

					BgL_ez00_3745 = CAR(((obj_t) BgL_lz00_3435));
					BgL_eza2za2_3746 = CDR(((obj_t) BgL_lz00_3435));
					{	/* Match/normalize.scm 414 */
						obj_t BgL_zc3z04anonymousza31298ze3z87_3747;

						BgL_zc3z04anonymousza31298ze3z87_3747 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31298ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31298ze3z87_3747, (int) (0L),
							BgL_ez00_3745);
						PROCEDURE_SET(BgL_zc3z04anonymousza31298ze3z87_3747, (int) (1L),
							BgL_eza2za2_3746);
						PROCEDURE_SET(BgL_zc3z04anonymousza31298ze3z87_3747, (int) (2L),
							BgL_lz00_3435);
						return BgL_zc3z04anonymousza31298ze3z87_3747;
					}
				}
		}

	}



/* &<@anonymous:1298> */
	obj_t BGl_z62zc3z04anonymousza31298ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3436, obj_t BgL_rz00_3440, obj_t BgL_cz00_3441)
	{
		{	/* Match/normalize.scm 414 */
			{	/* Match/normalize.scm 415 */
				obj_t BgL_ez00_3437;
				obj_t BgL_eza2za2_3438;
				obj_t BgL_lz00_3439;

				BgL_ez00_3437 = PROCEDURE_REF(BgL_envz00_3436, (int) (0L));
				BgL_eza2za2_3438 = PROCEDURE_REF(BgL_envz00_3436, (int) (1L));
				BgL_lz00_3439 = PROCEDURE_REF(BgL_envz00_3436, (int) (2L));
				if (PAIRP(BgL_eza2za2_3438))
					{	/* Match/normalize.scm 416 */
						obj_t BgL_fun1302z00_3748;

						BgL_fun1302z00_3748 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3437);
						{	/* Match/normalize.scm 419 */
							obj_t BgL_zc3z04anonymousza31303ze3z87_3749;

							BgL_zc3z04anonymousza31303ze3z87_3749 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31303ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (4L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31303ze3z87_3749, (int) (0L),
								BgL_eza2za2_3438);
							PROCEDURE_SET(BgL_zc3z04anonymousza31303ze3z87_3749, (int) (1L),
								BgL_lz00_3439);
							PROCEDURE_SET(BgL_zc3z04anonymousza31303ze3z87_3749, (int) (2L),
								BgL_cz00_3441);
							PROCEDURE_SET(BgL_zc3z04anonymousza31303ze3z87_3749, (int) (3L),
								BgL_rz00_3440);
							return BGL_PROCEDURE_CALL2(BgL_fun1302z00_3748, BgL_rz00_3440,
								BgL_zc3z04anonymousza31303ze3z87_3749);
						}
					}
				else
					{	/* Match/normalize.scm 426 */
						obj_t BgL_fun1337z00_3750;

						BgL_fun1337z00_3750 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3437);
						return BGL_PROCEDURE_CALL2(BgL_fun1337z00_3750, BgL_rz00_3440,
							BgL_cz00_3441);
					}
			}
		}

	}



/* &<@anonymous:1303> */
	obj_t BGl_z62zc3z04anonymousza31303ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3442, obj_t BgL_pattern1z00_3447, obj_t BgL_rrz00_3448)
	{
		{	/* Match/normalize.scm 418 */
			{	/* Match/normalize.scm 419 */
				obj_t BgL_eza2za2_3443;
				obj_t BgL_lz00_3444;
				obj_t BgL_cz00_3445;
				obj_t BgL_rz00_3446;

				BgL_eza2za2_3443 = PROCEDURE_REF(BgL_envz00_3442, (int) (0L));
				BgL_lz00_3444 = PROCEDURE_REF(BgL_envz00_3442, (int) (1L));
				BgL_cz00_3445 = PROCEDURE_REF(BgL_envz00_3442, (int) (2L));
				BgL_rz00_3446 = PROCEDURE_REF(BgL_envz00_3442, (int) (3L));
				{	/* Match/normalize.scm 419 */
					obj_t BgL_fun1330z00_3751;

					{	/* Match/normalize.scm 419 */
						obj_t BgL_arg1322z00_3752;

						BgL_arg1322z00_3752 =
							MAKE_YOUNG_PAIR(BGl_symbol2221z00zz__match_normaliza7eza7,
							BgL_eza2za2_3443);
						BgL_fun1330z00_3751 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1322z00_3752);
					}
					{	/* Match/normalize.scm 422 */
						obj_t BgL_zc3z04anonymousza31331ze3z87_3753;

						BgL_zc3z04anonymousza31331ze3z87_3753 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31331ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (4L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31331ze3z87_3753, (int) (0L),
							BgL_lz00_3444);
						PROCEDURE_SET(BgL_zc3z04anonymousza31331ze3z87_3753, (int) (1L),
							BgL_pattern1z00_3447);
						PROCEDURE_SET(BgL_zc3z04anonymousza31331ze3z87_3753, (int) (2L),
							BgL_cz00_3445);
						PROCEDURE_SET(BgL_zc3z04anonymousza31331ze3z87_3753, (int) (3L),
							BgL_rrz00_3448);
						return BGL_PROCEDURE_CALL2(BgL_fun1330z00_3751, BgL_rz00_3446,
							BgL_zc3z04anonymousza31331ze3z87_3753);
					}
				}
			}
		}

	}



/* &<@anonymous:1331> */
	obj_t BGl_z62zc3z04anonymousza31331ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3449, obj_t BgL_pattern2z00_3454, obj_t BgL_rrrz00_3455)
	{
		{	/* Match/normalize.scm 421 */
			{	/* Match/normalize.scm 422 */
				obj_t BgL_lz00_3450;
				obj_t BgL_pattern1z00_3451;
				obj_t BgL_cz00_3452;
				obj_t BgL_rrz00_3453;

				BgL_lz00_3450 = PROCEDURE_REF(BgL_envz00_3449, (int) (0L));
				BgL_pattern1z00_3451 = PROCEDURE_REF(BgL_envz00_3449, (int) (1L));
				BgL_cz00_3452 = PROCEDURE_REF(BgL_envz00_3449, (int) (2L));
				BgL_rrz00_3453 = PROCEDURE_REF(BgL_envz00_3449, (int) (3L));
				{	/* Match/normalize.scm 422 */
					bool_t BgL_test2416z00_4348;

					if (BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7
						(BgL_rrz00_3453, BgL_rrrz00_3455))
						{	/* Match/normalize.scm 422 */
							BgL_test2416z00_4348 =
								BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7
								(BgL_rrrz00_3455, BgL_rrz00_3453);
						}
					else
						{	/* Match/normalize.scm 422 */
							BgL_test2416z00_4348 = ((bool_t) 0);
						}
					if (BgL_test2416z00_4348)
						{	/* Match/normalize.scm 424 */
							obj_t BgL_arg1334z00_3754;

							{	/* Match/normalize.scm 424 */
								obj_t BgL_arg1335z00_3755;

								{	/* Match/normalize.scm 424 */
									obj_t BgL_arg1336z00_3756;

									BgL_arg1336z00_3756 =
										MAKE_YOUNG_PAIR(BgL_pattern2z00_3454, BNIL);
									BgL_arg1335z00_3755 =
										MAKE_YOUNG_PAIR(BgL_pattern1z00_3451, BgL_arg1336z00_3756);
								}
								BgL_arg1334z00_3754 =
									MAKE_YOUNG_PAIR(BGl_symbol2221z00zz__match_normaliza7eza7,
									BgL_arg1335z00_3755);
							}
							return
								BGL_PROCEDURE_CALL2(BgL_cz00_3452, BgL_arg1334z00_3754,
								BgL_rrrz00_3455);
						}
					else
						{	/* Match/normalize.scm 422 */
							return
								BGl_errorz00zz__errorz00
								(BGl_symbol2241z00zz__match_normaliza7eza7,
								BGl_string2252z00zz__match_normaliza7eza7, BgL_lz00_3450);
						}
				}
			}
		}

	}



/* &<@anonymous:1270> */
	obj_t BGl_z62zc3z04anonymousza31270ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3456, obj_t BgL_lz00_3457)
	{
		{	/* Match/normalize.scm 375 */
			if (NULLP(BgL_lz00_3457))
				{	/* Match/normalize.scm 376 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2241z00zz__match_normaliza7eza7,
						BGl_string2253z00zz__match_normaliza7eza7, BgL_lz00_3457);
				}
			else
				{	/* Match/normalize.scm 378 */
					obj_t BgL_ez00_3757;
					obj_t BgL_eza2za2_3758;

					BgL_ez00_3757 = CAR(((obj_t) BgL_lz00_3457));
					BgL_eza2za2_3758 = CDR(((obj_t) BgL_lz00_3457));
					{	/* Match/normalize.scm 380 */
						obj_t BgL_zc3z04anonymousza31272ze3z87_3759;

						BgL_zc3z04anonymousza31272ze3z87_3759 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31272ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31272ze3z87_3759, (int) (0L),
							BgL_ez00_3757);
						PROCEDURE_SET(BgL_zc3z04anonymousza31272ze3z87_3759, (int) (1L),
							BgL_eza2za2_3758);
						PROCEDURE_SET(BgL_zc3z04anonymousza31272ze3z87_3759, (int) (2L),
							BgL_lz00_3457);
						return BgL_zc3z04anonymousza31272ze3z87_3759;
					}
				}
		}

	}



/* &<@anonymous:1272> */
	obj_t BGl_z62zc3z04anonymousza31272ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3458, obj_t BgL_rz00_3462, obj_t BgL_cz00_3463)
	{
		{	/* Match/normalize.scm 380 */
			{	/* Match/normalize.scm 381 */
				obj_t BgL_ez00_3459;
				obj_t BgL_eza2za2_3460;
				obj_t BgL_lz00_3461;

				BgL_ez00_3459 = PROCEDURE_REF(BgL_envz00_3458, (int) (0L));
				BgL_eza2za2_3460 = PROCEDURE_REF(BgL_envz00_3458, (int) (1L));
				BgL_lz00_3461 = PROCEDURE_REF(BgL_envz00_3458, (int) (2L));
				if (PAIRP(BgL_eza2za2_3460))
					{	/* Match/normalize.scm 382 */
						obj_t BgL_fun1275z00_3760;

						BgL_fun1275z00_3760 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3459);
						{	/* Match/normalize.scm 385 */
							obj_t BgL_zc3z04anonymousza31276ze3z87_3761;

							BgL_zc3z04anonymousza31276ze3z87_3761 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31276ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (4L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31276ze3z87_3761, (int) (0L),
								BgL_eza2za2_3460);
							PROCEDURE_SET(BgL_zc3z04anonymousza31276ze3z87_3761, (int) (1L),
								BgL_lz00_3461);
							PROCEDURE_SET(BgL_zc3z04anonymousza31276ze3z87_3761, (int) (2L),
								BgL_cz00_3463);
							PROCEDURE_SET(BgL_zc3z04anonymousza31276ze3z87_3761, (int) (3L),
								BgL_rz00_3462);
							return BGL_PROCEDURE_CALL2(BgL_fun1275z00_3760, BgL_rz00_3462,
								BgL_zc3z04anonymousza31276ze3z87_3761);
						}
					}
				else
					{	/* Match/normalize.scm 392 */
						obj_t BgL_fun1293z00_3762;

						BgL_fun1293z00_3762 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3459);
						return BGL_PROCEDURE_CALL2(BgL_fun1293z00_3762, BgL_rz00_3462,
							BgL_cz00_3463);
					}
			}
		}

	}



/* &<@anonymous:1276> */
	obj_t BGl_z62zc3z04anonymousza31276ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3464, obj_t BgL_pattern1z00_3469, obj_t BgL_rrz00_3470)
	{
		{	/* Match/normalize.scm 384 */
			{	/* Match/normalize.scm 385 */
				obj_t BgL_eza2za2_3465;
				obj_t BgL_lz00_3466;
				obj_t BgL_cz00_3467;
				obj_t BgL_rz00_3468;

				BgL_eza2za2_3465 = PROCEDURE_REF(BgL_envz00_3464, (int) (0L));
				BgL_lz00_3466 = PROCEDURE_REF(BgL_envz00_3464, (int) (1L));
				BgL_cz00_3467 = PROCEDURE_REF(BgL_envz00_3464, (int) (2L));
				BgL_rz00_3468 = PROCEDURE_REF(BgL_envz00_3464, (int) (3L));
				{	/* Match/normalize.scm 385 */
					obj_t BgL_fun1281z00_3763;

					{	/* Match/normalize.scm 385 */
						obj_t BgL_arg1278z00_3764;

						BgL_arg1278z00_3764 =
							MAKE_YOUNG_PAIR(BGl_symbol2218z00zz__match_normaliza7eza7,
							BgL_eza2za2_3465);
						BgL_fun1281z00_3763 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1278z00_3764);
					}
					{	/* Match/normalize.scm 388 */
						obj_t BgL_zc3z04anonymousza31282ze3z87_3765;

						BgL_zc3z04anonymousza31282ze3z87_3765 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31282ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (4L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31282ze3z87_3765, (int) (0L),
							BgL_lz00_3466);
						PROCEDURE_SET(BgL_zc3z04anonymousza31282ze3z87_3765, (int) (1L),
							BgL_pattern1z00_3469);
						PROCEDURE_SET(BgL_zc3z04anonymousza31282ze3z87_3765, (int) (2L),
							BgL_cz00_3467);
						PROCEDURE_SET(BgL_zc3z04anonymousza31282ze3z87_3765, (int) (3L),
							BgL_rrz00_3470);
						return BGL_PROCEDURE_CALL2(BgL_fun1281z00_3763, BgL_rz00_3468,
							BgL_zc3z04anonymousza31282ze3z87_3765);
					}
				}
			}
		}

	}



/* &<@anonymous:1282> */
	obj_t BGl_z62zc3z04anonymousza31282ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3471, obj_t BgL_pattern2z00_3476, obj_t BgL_rrrz00_3477)
	{
		{	/* Match/normalize.scm 387 */
			{	/* Match/normalize.scm 388 */
				obj_t BgL_lz00_3472;
				obj_t BgL_pattern1z00_3473;
				obj_t BgL_cz00_3474;
				obj_t BgL_rrz00_3475;

				BgL_lz00_3472 = PROCEDURE_REF(BgL_envz00_3471, (int) (0L));
				BgL_pattern1z00_3473 = PROCEDURE_REF(BgL_envz00_3471, (int) (1L));
				BgL_cz00_3474 = PROCEDURE_REF(BgL_envz00_3471, (int) (2L));
				BgL_rrz00_3475 = PROCEDURE_REF(BgL_envz00_3471, (int) (3L));
				{	/* Match/normalize.scm 388 */
					bool_t BgL_test2420z00_4442;

					if (BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7
						(BgL_rrz00_3475, BgL_rrrz00_3477))
						{	/* Match/normalize.scm 388 */
							BgL_test2420z00_4442 =
								BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7
								(BgL_rrrz00_3477, BgL_rrz00_3475);
						}
					else
						{	/* Match/normalize.scm 388 */
							BgL_test2420z00_4442 = ((bool_t) 0);
						}
					if (BgL_test2420z00_4442)
						{	/* Match/normalize.scm 390 */
							obj_t BgL_arg1285z00_3766;

							{	/* Match/normalize.scm 390 */
								obj_t BgL_arg1287z00_3767;

								{	/* Match/normalize.scm 390 */
									obj_t BgL_arg1291z00_3768;

									BgL_arg1291z00_3768 =
										MAKE_YOUNG_PAIR(BgL_pattern2z00_3476, BNIL);
									BgL_arg1287z00_3767 =
										MAKE_YOUNG_PAIR(BgL_pattern1z00_3473, BgL_arg1291z00_3768);
								}
								BgL_arg1285z00_3766 =
									MAKE_YOUNG_PAIR(BGl_symbol2218z00zz__match_normaliza7eza7,
									BgL_arg1287z00_3767);
							}
							return
								BGL_PROCEDURE_CALL2(BgL_cz00_3474, BgL_arg1285z00_3766,
								BgL_rrrz00_3477);
						}
					else
						{	/* Match/normalize.scm 388 */
							return
								BGl_errorz00zz__errorz00
								(BGl_symbol2241z00zz__match_normaliza7eza7,
								BGl_string2252z00zz__match_normaliza7eza7, BgL_lz00_3472);
						}
				}
			}
		}

	}



/* &<@anonymous:1243> */
	obj_t BGl_z62zc3z04anonymousza31243ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3478, obj_t BgL_lz00_3479)
	{
		{	/* Match/normalize.scm 360 */
			if (NULLP(BgL_lz00_3479))
				{	/* Match/normalize.scm 361 */
					return
						BGl_errorz00zz__errorz00(BGl_symbol2241z00zz__match_normaliza7eza7,
						BGl_string2254z00zz__match_normaliza7eza7, BgL_lz00_3479);
				}
			else
				{	/* Match/normalize.scm 363 */
					obj_t BgL_ez00_3769;
					obj_t BgL_eza2za2_3770;

					BgL_ez00_3769 = CAR(((obj_t) BgL_lz00_3479));
					BgL_eza2za2_3770 = CDR(((obj_t) BgL_lz00_3479));
					{	/* Match/normalize.scm 365 */
						obj_t BgL_zc3z04anonymousza31245ze3z87_3771;

						BgL_zc3z04anonymousza31245ze3z87_3771 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31245ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31245ze3z87_3771, (int) (0L),
							BgL_ez00_3769);
						PROCEDURE_SET(BgL_zc3z04anonymousza31245ze3z87_3771, (int) (1L),
							BgL_eza2za2_3770);
						return BgL_zc3z04anonymousza31245ze3z87_3771;
					}
				}
		}

	}



/* &<@anonymous:1245> */
	obj_t BGl_z62zc3z04anonymousza31245ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3480, obj_t BgL_rz00_3483, obj_t BgL_cz00_3484)
	{
		{	/* Match/normalize.scm 365 */
			{	/* Match/normalize.scm 366 */
				obj_t BgL_ez00_3481;
				obj_t BgL_eza2za2_3482;

				BgL_ez00_3481 = PROCEDURE_REF(BgL_envz00_3480, (int) (0L));
				BgL_eza2za2_3482 = PROCEDURE_REF(BgL_envz00_3480, (int) (1L));
				if (PAIRP(BgL_eza2za2_3482))
					{	/* Match/normalize.scm 366 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2241z00zz__match_normaliza7eza7,
							BGl_string2255z00zz__match_normaliza7eza7, BgL_eza2za2_3482);
					}
				else
					{	/* Match/normalize.scm 368 */
						obj_t BgL_fun1251z00_3772;

						BgL_fun1251z00_3772 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3481);
						{	/* Match/normalize.scm 371 */
							obj_t BgL_zc3z04anonymousza31252ze3z87_3773;

							BgL_zc3z04anonymousza31252ze3z87_3773 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31252ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31252ze3z87_3773, (int) (0L),
								BgL_cz00_3484);
							return BGL_PROCEDURE_CALL2(BgL_fun1251z00_3772, BgL_rz00_3483,
								BgL_zc3z04anonymousza31252ze3z87_3773);
						}
					}
			}
		}

	}



/* &<@anonymous:1252> */
	obj_t BGl_z62zc3z04anonymousza31252ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3485, obj_t BgL_patternz00_3487, obj_t BgL_rrz00_3488)
	{
		{	/* Match/normalize.scm 370 */
			{	/* Match/normalize.scm 371 */
				obj_t BgL_cz00_3486;

				BgL_cz00_3486 = PROCEDURE_REF(BgL_envz00_3485, (int) (0L));
				{	/* Match/normalize.scm 371 */
					obj_t BgL_arg1253z00_3774;

					{	/* Match/normalize.scm 371 */
						obj_t BgL_arg1254z00_3775;

						{	/* Match/normalize.scm 371 */
							obj_t BgL_arg1258z00_3776;
							obj_t BgL_arg1259z00_3777;

							{	/* Match/normalize.scm 371 */
								obj_t BgL_arg1261z00_3778;

								{	/* Match/normalize.scm 371 */
									obj_t BgL_arg1262z00_3779;

									{	/* Match/normalize.scm 371 */
										obj_t BgL_arg1263z00_3780;

										{	/* Match/normalize.scm 371 */
											obj_t BgL_arg1265z00_3781;
											obj_t BgL_arg1266z00_3782;

											BgL_arg1265z00_3781 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
											{	/* Match/normalize.scm 371 */
												obj_t BgL_arg1267z00_3783;

												BgL_arg1267z00_3783 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
												BgL_arg1266z00_3782 =
													MAKE_YOUNG_PAIR(BgL_arg1267z00_3783, BNIL);
											}
											BgL_arg1263z00_3780 =
												MAKE_YOUNG_PAIR(BgL_arg1265z00_3781,
												BgL_arg1266z00_3782);
										}
										BgL_arg1262z00_3779 =
											MAKE_YOUNG_PAIR(BGl_symbol2258z00zz__match_normaliza7eza7,
											BgL_arg1263z00_3780);
									}
									BgL_arg1261z00_3778 =
										MAKE_YOUNG_PAIR(BgL_arg1262z00_3779, BNIL);
								}
								BgL_arg1258z00_3776 =
									MAKE_YOUNG_PAIR(BGl_symbol2227z00zz__match_normaliza7eza7,
									BgL_arg1261z00_3778);
							}
							BgL_arg1259z00_3777 = MAKE_YOUNG_PAIR(BgL_patternz00_3487, BNIL);
							BgL_arg1254z00_3775 =
								MAKE_YOUNG_PAIR(BgL_arg1258z00_3776, BgL_arg1259z00_3777);
						}
						BgL_arg1253z00_3774 =
							MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_normaliza7eza7,
							BgL_arg1254z00_3775);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3486, BgL_arg1253z00_3774,
						BgL_rrz00_3488);
				}
			}
		}

	}



/* term-variable? */
	bool_t BGl_termzd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_3)
	{
		{	/* Match/normalize.scm 72 */
			if (SYMBOLP(BgL_ez00_3))
				{	/* Match/normalize.scm 74 */
					bool_t BgL_test2425z00_4506;

					{	/* Match/normalize.scm 74 */
						long BgL_a1110z00_1448;

						{	/* Match/normalize.scm 74 */
							obj_t BgL_arg1414z00_1449;

							BgL_arg1414z00_1449 = SYMBOL_TO_STRING(BgL_ez00_3);
							BgL_a1110z00_1448 = STRING_LENGTH(BgL_arg1414z00_1449);
						}
						BgL_test2425z00_4506 = (BgL_a1110z00_1448 > 1L);
					}
					if (BgL_test2425z00_4506)
						{	/* Match/normalize.scm 75 */
							unsigned char BgL_arg1412z00_1446;

							{	/* Match/normalize.scm 75 */
								obj_t BgL_arg1413z00_1447;

								BgL_arg1413z00_1447 = SYMBOL_TO_STRING(BgL_ez00_3);
								BgL_arg1412z00_1446 = STRING_REF(BgL_arg1413z00_1447, 0L);
							}
							return (BgL_arg1412z00_1446 == ((unsigned char) '?'));
						}
					else
						{	/* Match/normalize.scm 74 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/normalize.scm 73 */
					return ((bool_t) 0);
				}
		}

	}



/* segment-variable? */
	bool_t BGl_segmentzd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_4)
	{
		{	/* Match/normalize.scm 77 */
			if (SYMBOLP(BgL_ez00_4))
				{	/* Match/normalize.scm 79 */
					bool_t BgL_test2427z00_4515;

					{	/* Match/normalize.scm 79 */
						long BgL_a1111z00_1457;

						{	/* Match/normalize.scm 79 */
							obj_t BgL_arg1420z00_1458;

							BgL_arg1420z00_1458 = SYMBOL_TO_STRING(BgL_ez00_4);
							BgL_a1111z00_1457 = STRING_LENGTH(BgL_arg1420z00_1458);
						}
						BgL_test2427z00_4515 = (BgL_a1111z00_1457 > 2L);
					}
					if (BgL_test2427z00_4515)
						{	/* Match/normalize.scm 80 */
							bool_t BgL_test2428z00_4519;

							{	/* Match/normalize.scm 80 */
								unsigned char BgL_arg1417z00_1455;

								{	/* Match/normalize.scm 80 */
									obj_t BgL_arg1419z00_1456;

									BgL_arg1419z00_1456 = SYMBOL_TO_STRING(BgL_ez00_4);
									BgL_arg1417z00_1455 = STRING_REF(BgL_arg1419z00_1456, 0L);
								}
								BgL_test2428z00_4519 =
									(BgL_arg1417z00_1455 == ((unsigned char) '?'));
							}
							if (BgL_test2428z00_4519)
								{	/* Match/normalize.scm 81 */
									unsigned char BgL_arg1415z00_1453;

									{	/* Match/normalize.scm 81 */
										obj_t BgL_arg1416z00_1454;

										BgL_arg1416z00_1454 = SYMBOL_TO_STRING(BgL_ez00_4);
										BgL_arg1415z00_1453 = STRING_REF(BgL_arg1416z00_1454, 1L);
									}
									return (BgL_arg1415z00_1453 == ((unsigned char) '?'));
								}
							else
								{	/* Match/normalize.scm 80 */
									return ((bool_t) 0);
								}
						}
					else
						{	/* Match/normalize.scm 79 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/normalize.scm 78 */
					return ((bool_t) 0);
				}
		}

	}



/* lispish-segment-variable? */
	bool_t BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(obj_t
		BgL_ez00_5)
	{
		{	/* Match/normalize.scm 83 */
			if (SYMBOLP(BgL_ez00_5))
				{	/* Match/normalize.scm 85 */
					bool_t BgL_test2430z00_4528;

					{	/* Match/normalize.scm 85 */
						long BgL_a1112z00_1469;

						{	/* Match/normalize.scm 85 */
							obj_t BgL_arg1427z00_1470;

							BgL_arg1427z00_1470 = SYMBOL_TO_STRING(BgL_ez00_5);
							BgL_a1112z00_1469 = STRING_LENGTH(BgL_arg1427z00_1470);
						}
						BgL_test2430z00_4528 = (BgL_a1112z00_1469 > 3L);
					}
					if (BgL_test2430z00_4528)
						{	/* Match/normalize.scm 86 */
							bool_t BgL_test2431z00_4532;

							{	/* Match/normalize.scm 86 */
								unsigned char BgL_arg1425z00_1467;

								{	/* Match/normalize.scm 86 */
									obj_t BgL_arg1426z00_1468;

									BgL_arg1426z00_1468 = SYMBOL_TO_STRING(BgL_ez00_5);
									BgL_arg1425z00_1467 = STRING_REF(BgL_arg1426z00_1468, 0L);
								}
								BgL_test2431z00_4532 =
									(BgL_arg1425z00_1467 == ((unsigned char) '?'));
							}
							if (BgL_test2431z00_4532)
								{	/* Match/normalize.scm 87 */
									bool_t BgL_test2432z00_4536;

									{	/* Match/normalize.scm 87 */
										unsigned char BgL_arg1423z00_1465;

										{	/* Match/normalize.scm 87 */
											obj_t BgL_arg1424z00_1466;

											BgL_arg1424z00_1466 = SYMBOL_TO_STRING(BgL_ez00_5);
											BgL_arg1423z00_1465 = STRING_REF(BgL_arg1424z00_1466, 1L);
										}
										BgL_test2432z00_4536 =
											(BgL_arg1423z00_1465 == ((unsigned char) '?'));
									}
									if (BgL_test2432z00_4536)
										{	/* Match/normalize.scm 88 */
											unsigned char BgL_arg1421z00_1463;

											{	/* Match/normalize.scm 88 */
												obj_t BgL_arg1422z00_1464;

												BgL_arg1422z00_1464 = SYMBOL_TO_STRING(BgL_ez00_5);
												BgL_arg1421z00_1463 =
													STRING_REF(BgL_arg1422z00_1464, 2L);
											}
											return (BgL_arg1421z00_1463 == ((unsigned char) '?'));
										}
									else
										{	/* Match/normalize.scm 87 */
											return ((bool_t) 0);
										}
								}
							else
								{	/* Match/normalize.scm 86 */
									return ((bool_t) 0);
								}
						}
					else
						{	/* Match/normalize.scm 85 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/normalize.scm 84 */
					return ((bool_t) 0);
				}
		}

	}



/* tree-variable? */
	bool_t BGl_treezd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_6)
	{
		{	/* Match/normalize.scm 90 */
			if (SYMBOLP(BgL_ez00_6))
				{	/* Match/normalize.scm 92 */
					bool_t BgL_test2434z00_4545;

					{	/* Match/normalize.scm 92 */
						long BgL_a1113z00_1475;

						{	/* Match/normalize.scm 92 */
							obj_t BgL_arg1430z00_1476;

							BgL_arg1430z00_1476 = SYMBOL_TO_STRING(BgL_ez00_6);
							BgL_a1113z00_1475 = STRING_LENGTH(BgL_arg1430z00_1476);
						}
						BgL_test2434z00_4545 = (BgL_a1113z00_1475 > 1L);
					}
					if (BgL_test2434z00_4545)
						{	/* Match/normalize.scm 93 */
							unsigned char BgL_arg1428z00_1473;

							{	/* Match/normalize.scm 93 */
								obj_t BgL_arg1429z00_1474;

								BgL_arg1429z00_1474 = SYMBOL_TO_STRING(BgL_ez00_6);
								BgL_arg1428z00_1473 = STRING_REF(BgL_arg1429z00_1474, 0L);
							}
							return (BgL_arg1428z00_1473 == ((unsigned char) '!'));
						}
					else
						{	/* Match/normalize.scm 92 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/normalize.scm 91 */
					return ((bool_t) 0);
				}
		}

	}



/* hole-variable? */
	bool_t BGl_holezd2variablezf3z21zz__match_normaliza7eza7(obj_t BgL_ez00_7)
	{
		{	/* Match/normalize.scm 95 */
			if (SYMBOLP(BgL_ez00_7))
				{	/* Match/normalize.scm 97 */
					bool_t BgL_test2436z00_4554;

					{	/* Match/normalize.scm 97 */
						long BgL_a1114z00_1481;

						{	/* Match/normalize.scm 97 */
							obj_t BgL_arg1433z00_1482;

							BgL_arg1433z00_1482 = SYMBOL_TO_STRING(BgL_ez00_7);
							BgL_a1114z00_1481 = STRING_LENGTH(BgL_arg1433z00_1482);
						}
						BgL_test2436z00_4554 = (BgL_a1114z00_1481 > 1L);
					}
					if (BgL_test2436z00_4554)
						{	/* Match/normalize.scm 98 */
							unsigned char BgL_arg1431z00_1479;

							{	/* Match/normalize.scm 98 */
								obj_t BgL_arg1432z00_1480;

								BgL_arg1432z00_1480 = SYMBOL_TO_STRING(BgL_ez00_7);
								BgL_arg1431z00_1479 = STRING_REF(BgL_arg1432z00_1480, 0L);
							}
							return (BgL_arg1431z00_1479 == ((unsigned char) '^'));
						}
					else
						{	/* Match/normalize.scm 97 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/normalize.scm 96 */
					return ((bool_t) 0);
				}
		}

	}



/* normalize-pattern */
	BGL_EXPORTED_DEF obj_t
		BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(obj_t BgL_ez00_13)
	{
		{	/* Match/normalize.scm 123 */
			{	/* Match/normalize.scm 124 */
				obj_t BgL_fun1447z00_2634;

				BgL_fun1447z00_2634 =
					BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_13);
				return
					BGL_PROCEDURE_CALL2(BgL_fun1447z00_2634,
					BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
					BGl_proc2260z00zz__match_normaliza7eza7);
			}
		}

	}



/* &normalize-pattern */
	obj_t BGl_z62normaliza7ezd2patternz17zz__match_normaliza7eza7(obj_t
		BgL_envz00_3490, obj_t BgL_ez00_3491)
	{
		{	/* Match/normalize.scm 123 */
			return
				BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_3491);
		}

	}



/* &<@anonymous:1448>2211 */
	obj_t BGl_z62zc3z04anonymousza31448ze32211ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3492, obj_t BgL_patternz00_3493, obj_t BgL_rrz00_3494)
	{
		{	/* Match/normalize.scm 126 */
			return BgL_patternz00_3493;
		}

	}



/* standardize-pattern */
	obj_t BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(obj_t
		BgL_ez00_14)
	{
		{	/* Match/normalize.scm 136 */
			{	/* Match/normalize.scm 137 */
				obj_t BgL_g1052z00_1504;

				if (PAIRP(BgL_ez00_14))
					{	/* Match/normalize.scm 358 */
						obj_t BgL_arg1715z00_2639;

						BgL_arg1715z00_2639 = CAR(BgL_ez00_14);
						{	/* Match/normalize.scm 358 */
							obj_t BgL_rz00_2641;

							BgL_rz00_2641 =
								BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1715z00_2639, BgL_rz00_2641)))
								{	/* Match/normalize.scm 337 */
									BgL_g1052z00_1504 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1715z00_2639, BgL_rz00_2641));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_g1052z00_1504 = BFALSE;
								}
						}
					}
				else
					{	/* Match/normalize.scm 357 */
						BgL_g1052z00_1504 = BFALSE;
					}
				if (CBOOL(BgL_g1052z00_1504))
					{	/* Match/normalize.scm 137 */
						return apply(BgL_g1052z00_1504, CDR(((obj_t) BgL_ez00_14)));
					}
				else
					{	/* Match/normalize.scm 137 */
						if ((BgL_ez00_14 == BGl_symbol2261z00zz__match_normaliza7eza7))
							{	/* Match/normalize.scm 138 */
								return BGl_proc2273z00zz__match_normaliza7eza7;
							}
						else
							{	/* Match/normalize.scm 138 */
								if (BGl_termzd2variablezf3z21zz__match_normaliza7eza7
									(BgL_ez00_14))
									{	/* Match/normalize.scm 139 */
										BGL_TAIL return
											BGl_standardiza7ezd2termzd2variableza7zz__match_normaliza7eza7
											(BgL_ez00_14);
									}
								else
									{	/* Match/normalize.scm 139 */
										if (BGl_holezd2variablezf3z21zz__match_normaliza7eza7
											(BgL_ez00_14))
											{	/* Match/normalize.scm 140 */
												BGL_TAIL return
													BGl_standardiza7ezd2holezd2variableza7zz__match_normaliza7eza7
													(BgL_ez00_14);
											}
										else
											{	/* Match/normalize.scm 140 */
												if (VECTORP(BgL_ez00_14))
													{	/* Match/normalize.scm 141 */
														return
															BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7
															(BgL_ez00_14);
													}
												else
													{	/* Match/normalize.scm 141 */
														if (STRUCTP(BgL_ez00_14))
															{	/* Match/normalize.scm 142 */
																return
																	BGl_standardiza7ezd2structz75zz__match_normaliza7eza7
																	(BgL_ez00_14);
															}
														else
															{	/* Match/normalize.scm 142 */
																if (CBOOL(BGl_atomzf3zf3zz__match_s2cfunz00
																		(BgL_ez00_14)))
																	{	/* Match/normalize.scm 243 */
																		obj_t BgL_zc3z04anonymousza31555ze3z87_3495;

																		BgL_zc3z04anonymousza31555ze3z87_3495 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza31555ze3ze5zz__match_normaliza7eza7,
																			(int) (2L), (int) (1L));
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31555ze3z87_3495,
																			(int) (0L), BgL_ez00_14);
																		return
																			BgL_zc3z04anonymousza31555ze3z87_3495;
																	}
																else
																	{	/* Match/normalize.scm 143 */
																		BGL_TAIL return
																			BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
																			(BgL_ez00_14);
																	}
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* &<@anonymous:1555> */
	obj_t BGl_z62zc3z04anonymousza31555ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3496, obj_t BgL_rz00_3498, obj_t BgL_cz00_3499)
	{
		{	/* Match/normalize.scm 243 */
			{	/* Match/normalize.scm 244 */
				obj_t BgL_ez00_3497;

				BgL_ez00_3497 = PROCEDURE_REF(BgL_envz00_3496, (int) (0L));
				{	/* Match/normalize.scm 244 */
					obj_t BgL_arg1558z00_3784;

					{	/* Match/normalize.scm 244 */
						obj_t BgL_arg1559z00_3785;

						BgL_arg1559z00_3785 = MAKE_YOUNG_PAIR(BgL_ez00_3497, BNIL);
						BgL_arg1558z00_3784 =
							MAKE_YOUNG_PAIR(BGl_symbol2244z00zz__match_normaliza7eza7,
							BgL_arg1559z00_3785);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3499, BgL_arg1558z00_3784,
						BgL_rz00_3498);
				}
			}
		}

	}



/* standardize-patterns */
	obj_t BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7(obj_t
		BgL_eza2za2_15)
	{
		{	/* Match/normalize.scm 154 */
			if (PAIRP(BgL_eza2za2_15))
				{	/* Match/normalize.scm 156 */
					obj_t BgL_g1054z00_1513;

					{	/* Match/normalize.scm 358 */
						obj_t BgL_arg1715z00_2654;

						BgL_arg1715z00_2654 = CAR(BgL_eza2za2_15);
						{	/* Match/normalize.scm 358 */
							obj_t BgL_rz00_2656;

							BgL_rz00_2656 =
								BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1715z00_2654, BgL_rz00_2656)))
								{	/* Match/normalize.scm 337 */
									BgL_g1054z00_1513 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1715z00_2654, BgL_rz00_2656));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_g1054z00_1513 = BFALSE;
								}
						}
					}
					if (CBOOL(BgL_g1054z00_1513))
						{	/* Match/normalize.scm 156 */
							return apply(BgL_g1054z00_1513, CDR(BgL_eza2za2_15));
						}
					else
						{	/* Match/normalize.scm 156 */
							if (
								(CAR(BgL_eza2za2_15) ==
									BGl_symbol2263z00zz__match_normaliza7eza7))
								{	/* Match/normalize.scm 157 */
									BGL_TAIL return
										BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(CDR
										(BgL_eza2za2_15));
								}
							else
								{	/* Match/normalize.scm 157 */
									if (
										(CAR(BgL_eza2za2_15) ==
											BGl_symbol2265z00zz__match_normaliza7eza7))
										{	/* Match/normalize.scm 158 */
											BGL_TAIL return
												BGl_standardiza7ezd2lispishzd2anyza7zz__match_normaliza7eza7
												(CDR(BgL_eza2za2_15));
										}
									else
										{	/* Match/normalize.scm 158 */
											if (BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(CAR(BgL_eza2za2_15)))
												{	/* Match/normalize.scm 159 */
													return
														BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7
														(CAR(BgL_eza2za2_15), CDR(BgL_eza2za2_15));
												}
											else
												{	/* Match/normalize.scm 159 */
													if (BGl_segmentzd2variablezf3z21zz__match_normaliza7eza7(CAR(BgL_eza2za2_15)))
														{	/* Match/normalize.scm 161 */
															return
																BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7
																(CAR(BgL_eza2za2_15), CDR(BgL_eza2za2_15));
														}
													else
														{	/* Match/normalize.scm 161 */
															if (BGl_treezd2variablezf3z21zz__match_normaliza7eza7(CAR(BgL_eza2za2_15)))
																{	/* Match/normalize.scm 163 */
																	return
																		BGl_standardiza7ezd2treezd2variableza7zz__match_normaliza7eza7
																		(CAR(BgL_eza2za2_15),
																		CAR(CDR(BgL_eza2za2_15)),
																		CAR(CDR(CDR(BgL_eza2za2_15))));
																}
															else
																{	/* Match/normalize.scm 163 */
																	return
																		BGl_standardiza7ezd2consz75zz__match_normaliza7eza7
																		(CAR(BgL_eza2za2_15), CDR(BgL_eza2za2_15));
																}
														}
												}
										}
								}
						}
				}
			else
				{	/* Match/normalize.scm 243 */
					obj_t BgL_zc3z04anonymousza31555ze3z87_3500;

					BgL_zc3z04anonymousza31555ze3z87_3500 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31555ze32212ze5zz__match_normaliza7eza7,
						(int) (2L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31555ze3z87_3500, (int) (0L),
						BgL_eza2za2_15);
					return BgL_zc3z04anonymousza31555ze3z87_3500;
				}
		}

	}



/* &<@anonymous:1555>2212 */
	obj_t BGl_z62zc3z04anonymousza31555ze32212ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3501, obj_t BgL_rz00_3503, obj_t BgL_cz00_3504)
	{
		{	/* Match/normalize.scm 243 */
			{	/* Match/normalize.scm 244 */
				obj_t BgL_eza2za2_3502;

				BgL_eza2za2_3502 = PROCEDURE_REF(BgL_envz00_3501, (int) (0L));
				{	/* Match/normalize.scm 244 */
					obj_t BgL_arg1558z00_3786;

					{	/* Match/normalize.scm 244 */
						obj_t BgL_arg1559z00_3787;

						BgL_arg1559z00_3787 = MAKE_YOUNG_PAIR(BgL_eza2za2_3502, BNIL);
						BgL_arg1558z00_3786 =
							MAKE_YOUNG_PAIR(BGl_symbol2244z00zz__match_normaliza7eza7,
							BgL_arg1559z00_3787);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3504, BgL_arg1558z00_3786,
						BgL_rz00_3503);
				}
			}
		}

	}



/* standardize-repetition */
	obj_t BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7(obj_t
		BgL_ez00_16, obj_t BgL_eza2za2_17)
	{
		{	/* Match/normalize.scm 168 */
			{	/* Match/normalize.scm 169 */
				obj_t BgL_zc3z04anonymousza31484ze3z87_3507;

				BgL_zc3z04anonymousza31484ze3z87_3507 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31484ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (2L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31484ze3z87_3507, (int) (0L),
					BgL_ez00_16);
				PROCEDURE_SET(BgL_zc3z04anonymousza31484ze3z87_3507, (int) (1L),
					BgL_eza2za2_17);
				return BgL_zc3z04anonymousza31484ze3z87_3507;
			}
		}

	}



/* &<@anonymous:1484> */
	obj_t BGl_z62zc3z04anonymousza31484ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3508, obj_t BgL_rz00_3511, obj_t BgL_cz00_3512)
	{
		{	/* Match/normalize.scm 169 */
			{	/* Match/normalize.scm 170 */
				obj_t BgL_ez00_3509;
				obj_t BgL_eza2za2_3510;

				BgL_ez00_3509 = PROCEDURE_REF(BgL_envz00_3508, (int) (0L));
				BgL_eza2za2_3510 = PROCEDURE_REF(BgL_envz00_3508, (int) (1L));
				{	/* Match/normalize.scm 170 */
					obj_t BgL_fun1488z00_3788;

					BgL_fun1488z00_3788 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_ez00_3509);
					{	/* Match/normalize.scm 173 */
						obj_t BgL_zc3z04anonymousza31489ze3z87_3789;

						BgL_zc3z04anonymousza31489ze3z87_3789 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31489ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31489ze3z87_3789, (int) (0L),
							BgL_eza2za2_3510);
						PROCEDURE_SET(BgL_zc3z04anonymousza31489ze3z87_3789, (int) (1L),
							BgL_cz00_3512);
						return BGL_PROCEDURE_CALL2(BgL_fun1488z00_3788, BgL_rz00_3511,
							BgL_zc3z04anonymousza31489ze3z87_3789);
					}
				}
			}
		}

	}



/* &<@anonymous:1489> */
	obj_t BGl_z62zc3z04anonymousza31489ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3513, obj_t BgL_fz00_3516, obj_t BgL_rrz00_3517)
	{
		{	/* Match/normalize.scm 172 */
			{	/* Match/normalize.scm 173 */
				obj_t BgL_eza2za2_3514;
				obj_t BgL_cz00_3515;

				BgL_eza2za2_3514 = PROCEDURE_REF(BgL_envz00_3513, (int) (0L));
				BgL_cz00_3515 = PROCEDURE_REF(BgL_envz00_3513, (int) (1L));
				{	/* Match/normalize.scm 173 */
					obj_t BgL_fun1491z00_3790;

					BgL_fun1491z00_3790 =
						BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
						(BgL_eza2za2_3514);
					{	/* Match/normalize.scm 176 */
						obj_t BgL_zc3z04anonymousza31492ze3z87_3791;

						BgL_zc3z04anonymousza31492ze3z87_3791 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31492ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31492ze3z87_3791, (int) (0L),
							BgL_fz00_3516);
						PROCEDURE_SET(BgL_zc3z04anonymousza31492ze3z87_3791, (int) (1L),
							BgL_cz00_3515);
						return BGL_PROCEDURE_CALL2(BgL_fun1491z00_3790, BgL_rrz00_3517,
							BgL_zc3z04anonymousza31492ze3z87_3791);
					}
				}
			}
		}

	}



/* &<@anonymous:1492> */
	obj_t BGl_z62zc3z04anonymousza31492ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3518, obj_t BgL_fza2za2_3521, obj_t BgL_rrrz00_3522)
	{
		{	/* Match/normalize.scm 175 */
			{	/* Match/normalize.scm 176 */
				obj_t BgL_fz00_3519;
				obj_t BgL_cz00_3520;

				BgL_fz00_3519 = PROCEDURE_REF(BgL_envz00_3518, (int) (0L));
				BgL_cz00_3520 = PROCEDURE_REF(BgL_envz00_3518, (int) (1L));
				{	/* Match/normalize.scm 176 */
					obj_t BgL_labelz00_3792;

					BgL_labelz00_3792 =
						BGL_PROCEDURE_CALL1(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2267z00zz__match_normaliza7eza7);
					{	/* Match/normalize.scm 178 */
						obj_t BgL_arg1494z00_3793;

						{	/* Match/normalize.scm 178 */
							obj_t BgL_arg1495z00_3794;

							{	/* Match/normalize.scm 178 */
								obj_t BgL_arg1497z00_3795;

								{	/* Match/normalize.scm 178 */
									obj_t BgL_arg1498z00_3796;
									obj_t BgL_arg1499z00_3797;

									{	/* Match/normalize.scm 178 */
										obj_t BgL_arg1500z00_3798;

										{	/* Match/normalize.scm 178 */
											obj_t BgL_arg1501z00_3799;

											{	/* Match/normalize.scm 178 */
												obj_t BgL_arg1502z00_3800;

												{	/* Match/normalize.scm 178 */
													obj_t BgL_arg1505z00_3801;

													{	/* Match/normalize.scm 178 */
														obj_t BgL_arg1506z00_3802;

														{	/* Match/normalize.scm 178 */
															obj_t BgL_arg1507z00_3803;

															BgL_arg1507z00_3803 =
																BGL_PROCEDURE_CALL1
																(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																BGl_string2268z00zz__match_normaliza7eza7);
															BgL_arg1506z00_3802 =
																MAKE_YOUNG_PAIR(BgL_arg1507z00_3803, BNIL);
														}
														BgL_arg1505z00_3801 =
															MAKE_YOUNG_PAIR(BgL_labelz00_3792,
															BgL_arg1506z00_3802);
													}
													BgL_arg1502z00_3800 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2269z00zz__match_normaliza7eza7,
														BgL_arg1505z00_3801);
												}
												BgL_arg1501z00_3799 =
													MAKE_YOUNG_PAIR(BgL_arg1502z00_3800, BNIL);
											}
											BgL_arg1500z00_3798 =
												MAKE_YOUNG_PAIR(BgL_fz00_3519, BgL_arg1501z00_3799);
										}
										BgL_arg1498z00_3796 =
											MAKE_YOUNG_PAIR(BGl_symbol2258z00zz__match_normaliza7eza7,
											BgL_arg1500z00_3798);
									}
									BgL_arg1499z00_3797 = MAKE_YOUNG_PAIR(BgL_fza2za2_3521, BNIL);
									BgL_arg1497z00_3795 =
										MAKE_YOUNG_PAIR(BgL_arg1498z00_3796, BgL_arg1499z00_3797);
								}
								BgL_arg1495z00_3794 =
									MAKE_YOUNG_PAIR(BgL_labelz00_3792, BgL_arg1497z00_3795);
							}
							BgL_arg1494z00_3793 =
								MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__match_normaliza7eza7,
								BgL_arg1495z00_3794);
						}
						return
							BGL_PROCEDURE_CALL2(BgL_cz00_3520, BgL_arg1494z00_3793,
							BgL_rrrz00_3522);
					}
				}
			}
		}

	}



/* &<@anonymous:1508> */
	obj_t BGl_z62zc3z04anonymousza31508ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3524, obj_t BgL_rz00_3525, obj_t BgL_cz00_3526)
	{
		{	/* Match/normalize.scm 183 */
			{	/* Match/normalize.scm 184 */
				obj_t BgL_arg1509z00_3804;

				BgL_arg1509z00_3804 =
					MAKE_YOUNG_PAIR(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
				return
					BGL_PROCEDURE_CALL2(BgL_cz00_3526, BgL_arg1509z00_3804,
					BgL_rz00_3525);
			}
		}

	}



/* standardize-cons */
	obj_t BGl_standardiza7ezd2consz75zz__match_normaliza7eza7(obj_t BgL_fz00_18,
		obj_t BgL_fza2za2_19)
	{
		{	/* Match/normalize.scm 186 */
			{	/* Match/normalize.scm 187 */
				bool_t BgL_test2454z00_4750;

				if (PAIRP(BgL_fza2za2_19))
					{	/* Match/normalize.scm 187 */
						BgL_test2454z00_4750 =
							(CAR(BgL_fza2za2_19) ==
							BGl_symbol2274z00zz__match_normaliza7eza7);
					}
				else
					{	/* Match/normalize.scm 187 */
						BgL_test2454z00_4750 = ((bool_t) 0);
					}
				if (BgL_test2454z00_4750)
					{	/* Match/normalize.scm 187 */
						BGL_TAIL return
							BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7
							(BgL_fz00_18, CDR(BgL_fza2za2_19));
					}
				else
					{	/* Match/normalize.scm 187 */
						if (CBOOL
							(BGl_z62zc3z04anonymousza31516ze3ze5zz__match_normaliza7eza7
								(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7,
									BGl_symbol2276z00zz__match_normaliza7eza7)))
							{	/* Match/normalize.scm 189 */
								BGL_TAIL return
									BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7
									(BgL_fz00_18, BgL_fza2za2_19);
							}
						else
							{	/* Match/normalize.scm 189 */
								BGL_TAIL return
									BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7
									(BgL_fz00_18, BgL_fza2za2_19);
							}
					}
			}
		}

	}



/* make-toggle */
	obj_t BGl_makezd2togglezd2zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 193 */
			{	/* Match/normalize.scm 194 */
				obj_t BgL_valuez00_3533;

				BgL_valuez00_3533 = BGL_MAKE_UNSAFE_CELL(BFALSE);
				{	/* Match/normalize.scm 195 */
					obj_t BgL_zc3z04anonymousza31516ze3z87_3527;

					{
						int BgL_tmpz00_4765;

						BgL_tmpz00_4765 = (int) (1L);
						BgL_zc3z04anonymousza31516ze3z87_3527 =
							MAKE_EL_PROCEDURE(BgL_tmpz00_4765);
					}
					PROCEDURE_EL_SET(BgL_zc3z04anonymousza31516ze3z87_3527,
						(int) (0L), ((obj_t) BgL_valuez00_3533));
					return BgL_zc3z04anonymousza31516ze3z87_3527;
				}
			}
		}

	}



/* &<@anonymous:1516> */
	obj_t BGl_z62zc3z04anonymousza31516ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3528, obj_t BgL_msgz00_3530)
	{
		{	/* Match/normalize.scm 195 */
			{	/* Match/normalize.scm 196 */
				obj_t BgL_valuez00_3529;

				BgL_valuez00_3529 = PROCEDURE_EL_REF(BgL_envz00_3528, (int) (0L));
				if ((BgL_msgz00_3530 == BGl_symbol2276z00zz__match_normaliza7eza7))
					{	/* Match/normalize.scm 196 */
						return BGL_UNSAFE_CELL_REF(BgL_valuez00_3529);
					}
				else
					{	/* Match/normalize.scm 196 */
						if ((BgL_msgz00_3530 == BGl_symbol2278z00zz__match_normaliza7eza7))
							{	/* Match/normalize.scm 198 */
								obj_t BgL_auxz00_3805;

								BgL_auxz00_3805 = BTRUE;
								return BGL_UNSAFE_CELL_SET(BgL_valuez00_3529, BgL_auxz00_3805);
							}
						else
							{	/* Match/normalize.scm 196 */
								if (
									(BgL_msgz00_3530 ==
										BGl_symbol2280z00zz__match_normaliza7eza7))
									{	/* Match/normalize.scm 199 */
										obj_t BgL_auxz00_3806;

										BgL_auxz00_3806 = BFALSE;
										return
											BGL_UNSAFE_CELL_SET(BgL_valuez00_3529, BgL_auxz00_3806);
									}
								else
									{	/* Match/normalize.scm 196 */
										return BUNSPEC;
									}
							}
					}
			}
		}

	}



/* standardize-real-cons */
	obj_t BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7(obj_t
		BgL_fz00_20, obj_t BgL_fza2za2_21)
	{
		{	/* Match/normalize.scm 203 */
			{	/* Match/normalize.scm 204 */
				obj_t BgL_zc3z04anonymousza31520ze3z87_3537;

				BgL_zc3z04anonymousza31520ze3z87_3537 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31520ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (2L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31520ze3z87_3537, (int) (0L),
					BgL_fz00_20);
				PROCEDURE_SET(BgL_zc3z04anonymousza31520ze3z87_3537, (int) (1L),
					BgL_fza2za2_21);
				return BgL_zc3z04anonymousza31520ze3z87_3537;
			}
		}

	}



/* &<@anonymous:1520> */
	obj_t BGl_z62zc3z04anonymousza31520ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3538, obj_t BgL_rz00_3541, obj_t BgL_cz00_3542)
	{
		{	/* Match/normalize.scm 204 */
			{	/* Match/normalize.scm 205 */
				obj_t BgL_fz00_3539;
				obj_t BgL_fza2za2_3540;

				BgL_fz00_3539 = PROCEDURE_REF(BgL_envz00_3538, (int) (0L));
				BgL_fza2za2_3540 = PROCEDURE_REF(BgL_envz00_3538, (int) (1L));
				{	/* Match/normalize.scm 205 */
					obj_t BgL_fun1522z00_3807;

					BgL_fun1522z00_3807 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_fz00_3539);
					{	/* Match/normalize.scm 209 */
						obj_t BgL_zc3z04anonymousza31523ze3z87_3808;

						BgL_zc3z04anonymousza31523ze3z87_3808 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31523ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31523ze3z87_3808, (int) (0L),
							BgL_fza2za2_3540);
						PROCEDURE_SET(BgL_zc3z04anonymousza31523ze3z87_3808, (int) (1L),
							BgL_cz00_3542);
						return BGL_PROCEDURE_CALL2(BgL_fun1522z00_3807, BgL_rz00_3541,
							BgL_zc3z04anonymousza31523ze3z87_3808);
					}
				}
			}
		}

	}



/* &<@anonymous:1523> */
	obj_t BGl_z62zc3z04anonymousza31523ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3543, obj_t BgL_pattern1z00_3546, obj_t BgL_rrz00_3547)
	{
		{	/* Match/normalize.scm 207 */
			{	/* Match/normalize.scm 209 */
				obj_t BgL_fza2za2_3544;
				obj_t BgL_cz00_3545;

				BgL_fza2za2_3544 = PROCEDURE_REF(BgL_envz00_3543, (int) (0L));
				BgL_cz00_3545 = PROCEDURE_REF(BgL_envz00_3543, (int) (1L));
				{	/* Match/normalize.scm 209 */
					obj_t BgL_fun1525z00_3809;

					BgL_fun1525z00_3809 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_fza2za2_3544);
					{	/* Match/normalize.scm 212 */
						obj_t BgL_zc3z04anonymousza31526ze3z87_3810;

						BgL_zc3z04anonymousza31526ze3z87_3810 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31526ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31526ze3z87_3810, (int) (0L),
							BgL_pattern1z00_3546);
						PROCEDURE_SET(BgL_zc3z04anonymousza31526ze3z87_3810, (int) (1L),
							BgL_cz00_3545);
						return BGL_PROCEDURE_CALL2(BgL_fun1525z00_3809, BgL_rrz00_3547,
							BgL_zc3z04anonymousza31526ze3z87_3810);
					}
				}
			}
		}

	}



/* &<@anonymous:1526> */
	obj_t BGl_z62zc3z04anonymousza31526ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3548, obj_t BgL_pattern2z00_3551, obj_t BgL_rrrz00_3552)
	{
		{	/* Match/normalize.scm 211 */
			{	/* Match/normalize.scm 212 */
				obj_t BgL_pattern1z00_3549;
				obj_t BgL_cz00_3550;

				BgL_pattern1z00_3549 = PROCEDURE_REF(BgL_envz00_3548, (int) (0L));
				BgL_cz00_3550 = PROCEDURE_REF(BgL_envz00_3548, (int) (1L));
				{	/* Match/normalize.scm 212 */
					obj_t BgL_arg1527z00_3811;

					{	/* Match/normalize.scm 212 */
						obj_t BgL_arg1528z00_3812;

						{	/* Match/normalize.scm 212 */
							obj_t BgL_arg1532z00_3813;

							BgL_arg1532z00_3813 = MAKE_YOUNG_PAIR(BgL_pattern2z00_3551, BNIL);
							BgL_arg1528z00_3812 =
								MAKE_YOUNG_PAIR(BgL_pattern1z00_3549, BgL_arg1532z00_3813);
						}
						BgL_arg1527z00_3811 =
							MAKE_YOUNG_PAIR(BGl_symbol2258z00zz__match_normaliza7eza7,
							BgL_arg1528z00_3812);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3550, BgL_arg1527z00_3811,
						BgL_rrrz00_3552);
				}
			}
		}

	}



/* standardize-real-xcons */
	obj_t BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7(obj_t
		BgL_fz00_22, obj_t BgL_fza2za2_23)
	{
		{	/* Match/normalize.scm 214 */
			{	/* Match/normalize.scm 215 */
				obj_t BgL_zc3z04anonymousza31533ze3z87_3555;

				BgL_zc3z04anonymousza31533ze3z87_3555 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31533ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (2L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31533ze3z87_3555, (int) (0L),
					BgL_fza2za2_23);
				PROCEDURE_SET(BgL_zc3z04anonymousza31533ze3z87_3555, (int) (1L),
					BgL_fz00_22);
				return BgL_zc3z04anonymousza31533ze3z87_3555;
			}
		}

	}



/* &<@anonymous:1533> */
	obj_t BGl_z62zc3z04anonymousza31533ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3556, obj_t BgL_rz00_3559, obj_t BgL_cz00_3560)
	{
		{	/* Match/normalize.scm 215 */
			{	/* Match/normalize.scm 216 */
				obj_t BgL_fza2za2_3557;
				obj_t BgL_fz00_3558;

				BgL_fza2za2_3557 = PROCEDURE_REF(BgL_envz00_3556, (int) (0L));
				BgL_fz00_3558 = PROCEDURE_REF(BgL_envz00_3556, (int) (1L));
				{	/* Match/normalize.scm 216 */
					obj_t BgL_fun1535z00_3814;

					BgL_fun1535z00_3814 =
						BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
						(BgL_fza2za2_3557);
					{	/* Match/normalize.scm 219 */
						obj_t BgL_zc3z04anonymousza31536ze3z87_3815;

						BgL_zc3z04anonymousza31536ze3z87_3815 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31536ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31536ze3z87_3815, (int) (0L),
							BgL_fz00_3558);
						PROCEDURE_SET(BgL_zc3z04anonymousza31536ze3z87_3815, (int) (1L),
							BgL_cz00_3560);
						return BGL_PROCEDURE_CALL2(BgL_fun1535z00_3814, BgL_rz00_3559,
							BgL_zc3z04anonymousza31536ze3z87_3815);
					}
				}
			}
		}

	}



/* &<@anonymous:1536> */
	obj_t BGl_z62zc3z04anonymousza31536ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3561, obj_t BgL_pattern1z00_3564, obj_t BgL_rrz00_3565)
	{
		{	/* Match/normalize.scm 218 */
			{	/* Match/normalize.scm 219 */
				obj_t BgL_fz00_3562;
				obj_t BgL_cz00_3563;

				BgL_fz00_3562 = PROCEDURE_REF(BgL_envz00_3561, (int) (0L));
				BgL_cz00_3563 = PROCEDURE_REF(BgL_envz00_3561, (int) (1L));
				{	/* Match/normalize.scm 219 */
					obj_t BgL_fun1538z00_3816;

					BgL_fun1538z00_3816 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_fz00_3562);
					{	/* Match/normalize.scm 222 */
						obj_t BgL_zc3z04anonymousza31539ze3z87_3817;

						BgL_zc3z04anonymousza31539ze3z87_3817 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31539ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31539ze3z87_3817, (int) (0L),
							BgL_pattern1z00_3564);
						PROCEDURE_SET(BgL_zc3z04anonymousza31539ze3z87_3817, (int) (1L),
							BgL_cz00_3563);
						return BGL_PROCEDURE_CALL2(BgL_fun1538z00_3816, BgL_rrz00_3565,
							BgL_zc3z04anonymousza31539ze3z87_3817);
					}
				}
			}
		}

	}



/* &<@anonymous:1539> */
	obj_t BGl_z62zc3z04anonymousza31539ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3566, obj_t BgL_pattern2z00_3569, obj_t BgL_rrrz00_3570)
	{
		{	/* Match/normalize.scm 221 */
			{	/* Match/normalize.scm 222 */
				obj_t BgL_pattern1z00_3567;
				obj_t BgL_cz00_3568;

				BgL_pattern1z00_3567 = PROCEDURE_REF(BgL_envz00_3566, (int) (0L));
				BgL_cz00_3568 = PROCEDURE_REF(BgL_envz00_3566, (int) (1L));
				{	/* Match/normalize.scm 222 */
					obj_t BgL_arg1540z00_3818;

					{	/* Match/normalize.scm 222 */
						obj_t BgL_arg1541z00_3819;

						{	/* Match/normalize.scm 222 */
							obj_t BgL_arg1542z00_3820;

							BgL_arg1542z00_3820 = MAKE_YOUNG_PAIR(BgL_pattern1z00_3567, BNIL);
							BgL_arg1541z00_3819 =
								MAKE_YOUNG_PAIR(BgL_pattern2z00_3569, BgL_arg1542z00_3820);
						}
						BgL_arg1540z00_3818 =
							MAKE_YOUNG_PAIR(BGl_symbol2282z00zz__match_normaliza7eza7,
							BgL_arg1541z00_3819);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3568, BgL_arg1540z00_3818,
						BgL_rrrz00_3570);
				}
			}
		}

	}



/* standardize-term-variable */
	obj_t BGl_standardiza7ezd2termzd2variableza7zz__match_normaliza7eza7(obj_t
		BgL_ez00_24)
	{
		{	/* Match/normalize.scm 224 */
			{	/* Match/normalize.scm 225 */
				obj_t BgL_zc3z04anonymousza31543ze3z87_3571;

				BgL_zc3z04anonymousza31543ze3z87_3571 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31543ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31543ze3z87_3571, (int) (0L),
					BgL_ez00_24);
				return BgL_zc3z04anonymousza31543ze3z87_3571;
			}
		}

	}



/* &<@anonymous:1543> */
	obj_t BGl_z62zc3z04anonymousza31543ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3572, obj_t BgL_rz00_3574, obj_t BgL_cz00_3575)
	{
		{	/* Match/normalize.scm 225 */
			{	/* Match/normalize.scm 226 */
				obj_t BgL_ez00_3573;

				BgL_ez00_3573 = PROCEDURE_REF(BgL_envz00_3572, (int) (0L));
				{	/* Match/normalize.scm 226 */
					obj_t BgL_namez00_3821;

					{	/* Match/normalize.scm 101 */
						obj_t BgL_sz00_3822;

						BgL_sz00_3822 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3573));
						BgL_namez00_3821 =
							bstring_to_symbol(c_substring(BgL_sz00_3822, 1L,
								STRING_LENGTH(BgL_sz00_3822)));
					}
					{	/* Match/normalize.scm 227 */
						obj_t BgL_arg1545z00_3823;

						{	/* Match/normalize.scm 227 */
							obj_t BgL_arg1546z00_3824;

							BgL_arg1546z00_3824 = MAKE_YOUNG_PAIR(BgL_namez00_3821, BNIL);
							BgL_arg1545z00_3823 =
								MAKE_YOUNG_PAIR(BGl_symbol2284z00zz__match_normaliza7eza7,
								BgL_arg1546z00_3824);
						}
						return
							BGL_PROCEDURE_CALL2(BgL_cz00_3575, BgL_arg1545z00_3823,
							BgL_rz00_3574);
					}
				}
			}
		}

	}



/* standardize-hole-variable */
	obj_t BGl_standardiza7ezd2holezd2variableza7zz__match_normaliza7eza7(obj_t
		BgL_ez00_25)
	{
		{	/* Match/normalize.scm 237 */
			{	/* Match/normalize.scm 238 */
				obj_t BgL_zc3z04anonymousza31547ze3z87_3576;

				BgL_zc3z04anonymousza31547ze3z87_3576 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31547ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31547ze3z87_3576, (int) (0L),
					BgL_ez00_25);
				return BgL_zc3z04anonymousza31547ze3z87_3576;
			}
		}

	}



/* &<@anonymous:1547> */
	obj_t BGl_z62zc3z04anonymousza31547ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3577, obj_t BgL_rz00_3579, obj_t BgL_cz00_3580)
	{
		{	/* Match/normalize.scm 238 */
			{	/* Match/normalize.scm 239 */
				obj_t BgL_ez00_3578;

				BgL_ez00_3578 = PROCEDURE_REF(BgL_envz00_3577, (int) (0L));
				{	/* Match/normalize.scm 239 */
					obj_t BgL_namez00_3825;

					{	/* Match/normalize.scm 113 */
						obj_t BgL_sz00_3826;

						BgL_sz00_3826 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3578));
						BgL_namez00_3825 =
							bstring_to_symbol(c_substring(BgL_sz00_3826, 1L,
								STRING_LENGTH(BgL_sz00_3826)));
					}
					{	/* Match/normalize.scm 240 */
						obj_t BgL_arg1549z00_3827;

						{	/* Match/normalize.scm 240 */
							obj_t BgL_arg1551z00_3828;

							{	/* Match/normalize.scm 240 */
								obj_t BgL_arg1552z00_3829;

								{	/* Match/normalize.scm 240 */
									obj_t BgL_arg1554z00_3830;

									BgL_arg1554z00_3830 =
										BGL_PROCEDURE_CALL1(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
										BGl_string2268z00zz__match_normaliza7eza7);
									BgL_arg1552z00_3829 =
										MAKE_YOUNG_PAIR(BgL_arg1554z00_3830, BNIL);
								}
								BgL_arg1551z00_3828 =
									MAKE_YOUNG_PAIR(BgL_namez00_3825, BgL_arg1552z00_3829);
							}
							BgL_arg1549z00_3827 =
								MAKE_YOUNG_PAIR(BGl_symbol2269z00zz__match_normaliza7eza7,
								BgL_arg1551z00_3828);
						}
						return
							BGL_PROCEDURE_CALL2(BgL_cz00_3580, BgL_arg1549z00_3827,
							BgL_rz00_3579);
					}
				}
			}
		}

	}



/* standardize-segment-variable */
	obj_t BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(obj_t
		BgL_ez00_27, obj_t BgL_fza2za2_28)
	{
		{	/* Match/normalize.scm 246 */
			{	/* Match/normalize.scm 247 */
				obj_t BgL_zc3z04anonymousza31560ze3z87_3583;

				BgL_zc3z04anonymousza31560ze3z87_3583 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31560ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (2L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31560ze3z87_3583, (int) (0L),
					BgL_ez00_27);
				PROCEDURE_SET(BgL_zc3z04anonymousza31560ze3z87_3583, (int) (1L),
					BgL_fza2za2_28);
				return BgL_zc3z04anonymousza31560ze3z87_3583;
			}
		}

	}



/* &<@anonymous:1560> */
	obj_t BGl_z62zc3z04anonymousza31560ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3584, obj_t BgL_rz00_3587, obj_t BgL_cz00_3588)
	{
		{	/* Match/normalize.scm 247 */
			{	/* Match/normalize.scm 248 */
				obj_t BgL_ez00_3585;
				obj_t BgL_fza2za2_3586;

				BgL_ez00_3585 = PROCEDURE_REF(BgL_envz00_3584, (int) (0L));
				BgL_fza2za2_3586 = PROCEDURE_REF(BgL_envz00_3584, (int) (1L));
				{	/* Match/normalize.scm 248 */
					obj_t BgL_namez00_3831;

					{	/* Match/normalize.scm 105 */
						obj_t BgL_sz00_3832;

						BgL_sz00_3832 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3585));
						BgL_namez00_3831 =
							bstring_to_symbol(c_substring(BgL_sz00_3832, 2L,
								STRING_LENGTH(BgL_sz00_3832)));
					}
					{	/* Match/normalize.scm 249 */
						bool_t BgL_test2460z00_4944;

						{	/* Match/normalize.scm 249 */
							obj_t BgL_arg1604z00_3833;

							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_namez00_3831, BgL_rz00_3587)))
								{	/* Match/normalize.scm 337 */
									BgL_arg1604z00_3833 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_namez00_3831, BgL_rz00_3587));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_arg1604z00_3833 = BFALSE;
								}
							BgL_test2460z00_4944 =
								(BgL_arg1604z00_3833 ==
								BGl_unboundzd2patternzd2zz__match_normaliza7eza7);
						}
						if (BgL_test2460z00_4944)
							{	/* Match/normalize.scm 250 */
								obj_t BgL_fun1567z00_3834;

								BgL_fun1567z00_3834 =
									BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
									(BgL_fza2za2_3586);
								{	/* Match/normalize.scm 251 */
									obj_t BgL_arg1563z00_3835;

									{	/* Match/normalize.scm 251 */
										obj_t BgL_imz00_3836;

										BgL_imz00_3836 = BGl_symbol2286z00zz__match_normaliza7eza7;
										{	/* Match/normalize.scm 334 */
											obj_t BgL_arg1712z00_3837;

											BgL_arg1712z00_3837 =
												MAKE_YOUNG_PAIR(BgL_namez00_3831, BgL_imz00_3836);
											BgL_arg1563z00_3835 =
												MAKE_YOUNG_PAIR(BgL_arg1712z00_3837, BgL_rz00_3587);
										}
									}
									{	/* Match/normalize.scm 253 */
										obj_t BgL_zc3z04anonymousza31568ze3z87_3838;

										BgL_zc3z04anonymousza31568ze3z87_3838 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31568ze3ze5zz__match_normaliza7eza7,
											(int) (2L), (int) (2L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31568ze3z87_3838,
											(int) (0L), BgL_namez00_3831);
										PROCEDURE_SET(BgL_zc3z04anonymousza31568ze3z87_3838,
											(int) (1L), BgL_cz00_3588);
										return BGL_PROCEDURE_CALL2(BgL_fun1567z00_3834,
											BgL_arg1563z00_3835,
											BgL_zc3z04anonymousza31568ze3z87_3838);
									}
								}
							}
						else
							{	/* Match/normalize.scm 261 */
								obj_t BgL_fun1598z00_3839;

								BgL_fun1598z00_3839 =
									BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
									(BgL_fza2za2_3586);
								{	/* Match/normalize.scm 264 */
									obj_t BgL_zc3z04anonymousza31599ze3z87_3840;

									BgL_zc3z04anonymousza31599ze3z87_3840 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31599ze3ze5zz__match_normaliza7eza7,
										(int) (2L), (int) (2L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31599ze3z87_3840,
										(int) (0L), BgL_namez00_3831);
									PROCEDURE_SET(BgL_zc3z04anonymousza31599ze3z87_3840,
										(int) (1L), BgL_cz00_3588);
									return BGL_PROCEDURE_CALL2(BgL_fun1598z00_3839, BgL_rz00_3587,
										BgL_zc3z04anonymousza31599ze3z87_3840);
								}
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1568> */
	obj_t BGl_z62zc3z04anonymousza31568ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3589, obj_t BgL_patternz00_3592, obj_t BgL_rrz00_3593)
	{
		{	/* Match/normalize.scm 252 */
			{	/* Match/normalize.scm 253 */
				obj_t BgL_namez00_3590;
				obj_t BgL_cz00_3591;

				BgL_namez00_3590 = ((obj_t) PROCEDURE_REF(BgL_envz00_3589, (int) (0L)));
				BgL_cz00_3591 = PROCEDURE_REF(BgL_envz00_3589, (int) (1L));
				{	/* Match/normalize.scm 253 */
					obj_t BgL_labelz00_3841;

					BgL_labelz00_3841 =
						BGL_PROCEDURE_CALL1(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2267z00zz__match_normaliza7eza7);
					{	/* Match/normalize.scm 257 */
						obj_t BgL_arg1569z00_3842;

						{	/* Match/normalize.scm 257 */
							obj_t BgL_arg1573z00_3843;

							{	/* Match/normalize.scm 257 */
								obj_t BgL_arg1574z00_3844;

								{	/* Match/normalize.scm 257 */
									obj_t BgL_arg1575z00_3845;
									obj_t BgL_arg1577z00_3846;

									{	/* Match/normalize.scm 257 */
										obj_t BgL_arg1578z00_3847;

										{	/* Match/normalize.scm 257 */
											obj_t BgL_arg1579z00_3848;

											{	/* Match/normalize.scm 257 */
												obj_t BgL_arg1580z00_3849;
												obj_t BgL_arg1581z00_3850;

												{	/* Match/normalize.scm 257 */
													obj_t BgL_arg1582z00_3851;

													{	/* Match/normalize.scm 257 */
														obj_t BgL_arg1584z00_3852;
														obj_t BgL_arg1586z00_3853;

														BgL_arg1584z00_3852 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
														{	/* Match/normalize.scm 257 */
															obj_t BgL_arg1587z00_3854;

															{	/* Match/normalize.scm 257 */
																obj_t BgL_arg1588z00_3855;

																{	/* Match/normalize.scm 257 */
																	obj_t BgL_arg1592z00_3856;

																	{	/* Match/normalize.scm 257 */
																		obj_t BgL_arg1593z00_3857;

																		BgL_arg1593z00_3857 =
																			BGL_PROCEDURE_CALL1
																			(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																			BGl_string2268z00zz__match_normaliza7eza7);
																		BgL_arg1592z00_3856 =
																			MAKE_YOUNG_PAIR(BgL_arg1593z00_3857,
																			BNIL);
																	}
																	BgL_arg1588z00_3855 =
																		MAKE_YOUNG_PAIR(BgL_labelz00_3841,
																		BgL_arg1592z00_3856);
																}
																BgL_arg1587z00_3854 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2269z00zz__match_normaliza7eza7,
																	BgL_arg1588z00_3855);
															}
															BgL_arg1586z00_3853 =
																MAKE_YOUNG_PAIR(BgL_arg1587z00_3854, BNIL);
														}
														BgL_arg1582z00_3851 =
															MAKE_YOUNG_PAIR(BgL_arg1584z00_3852,
															BgL_arg1586z00_3853);
													}
													BgL_arg1580z00_3849 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2258z00zz__match_normaliza7eza7,
														BgL_arg1582z00_3851);
												}
												{	/* Match/normalize.scm 258 */
													obj_t BgL_arg1595z00_3858;

													{	/* Match/normalize.scm 258 */
														obj_t BgL_arg1596z00_3859;

														BgL_arg1596z00_3859 =
															MAKE_YOUNG_PAIR(BgL_namez00_3590, BNIL);
														BgL_arg1595z00_3858 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2288z00zz__match_normaliza7eza7,
															BgL_arg1596z00_3859);
													}
													BgL_arg1581z00_3850 =
														MAKE_YOUNG_PAIR(BgL_arg1595z00_3858, BNIL);
												}
												BgL_arg1579z00_3848 =
													MAKE_YOUNG_PAIR(BgL_arg1580z00_3849,
													BgL_arg1581z00_3850);
											}
											BgL_arg1578z00_3847 =
												MAKE_YOUNG_PAIR(BgL_labelz00_3841, BgL_arg1579z00_3848);
										}
										BgL_arg1575z00_3845 =
											MAKE_YOUNG_PAIR(BGl_symbol2290z00zz__match_normaliza7eza7,
											BgL_arg1578z00_3847);
									}
									BgL_arg1577z00_3846 =
										MAKE_YOUNG_PAIR(BgL_patternz00_3592, BNIL);
									BgL_arg1574z00_3844 =
										MAKE_YOUNG_PAIR(BgL_arg1575z00_3845, BgL_arg1577z00_3846);
								}
								BgL_arg1573z00_3843 =
									MAKE_YOUNG_PAIR(BgL_namez00_3590, BgL_arg1574z00_3844);
							}
							BgL_arg1569z00_3842 =
								MAKE_YOUNG_PAIR(BGl_symbol2292z00zz__match_normaliza7eza7,
								BgL_arg1573z00_3843);
						}
						return
							BGL_PROCEDURE_CALL2(BgL_cz00_3591, BgL_arg1569z00_3842,
							BgL_rrz00_3593);
					}
				}
			}
		}

	}



/* &<@anonymous:1599> */
	obj_t BGl_z62zc3z04anonymousza31599ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3594, obj_t BgL_patternz00_3597, obj_t BgL_rrz00_3598)
	{
		{	/* Match/normalize.scm 263 */
			{	/* Match/normalize.scm 264 */
				obj_t BgL_namez00_3595;
				obj_t BgL_cz00_3596;

				BgL_namez00_3595 = ((obj_t) PROCEDURE_REF(BgL_envz00_3594, (int) (0L)));
				BgL_cz00_3596 = PROCEDURE_REF(BgL_envz00_3594, (int) (1L));
				{	/* Match/normalize.scm 264 */
					obj_t BgL_arg1600z00_3860;

					{	/* Match/normalize.scm 264 */
						obj_t BgL_arg1602z00_3861;

						{	/* Match/normalize.scm 264 */
							obj_t BgL_arg1603z00_3862;

							BgL_arg1603z00_3862 = MAKE_YOUNG_PAIR(BgL_patternz00_3597, BNIL);
							BgL_arg1602z00_3861 =
								MAKE_YOUNG_PAIR(BgL_namez00_3595, BgL_arg1603z00_3862);
						}
						BgL_arg1600z00_3860 =
							MAKE_YOUNG_PAIR(BGl_symbol2294z00zz__match_normaliza7eza7,
							BgL_arg1602z00_3861);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3596, BgL_arg1600z00_3860,
						BgL_rrz00_3598);
				}
			}
		}

	}



/* standardize-tree-variable */
	obj_t BGl_standardiza7ezd2treezd2variableza7zz__match_normaliza7eza7(obj_t
		BgL_ez00_29, obj_t BgL_f1z00_30, obj_t BgL_f2z00_31)
	{
		{	/* Match/normalize.scm 266 */
			{	/* Match/normalize.scm 267 */
				obj_t BgL_zc3z04anonymousza31605ze3z87_3601;

				BgL_zc3z04anonymousza31605ze3z87_3601 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31605ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (3L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31605ze3z87_3601, (int) (0L),
					BgL_ez00_29);
				PROCEDURE_SET(BgL_zc3z04anonymousza31605ze3z87_3601, (int) (1L),
					BgL_f1z00_30);
				PROCEDURE_SET(BgL_zc3z04anonymousza31605ze3z87_3601, (int) (2L),
					BgL_f2z00_31);
				return BgL_zc3z04anonymousza31605ze3z87_3601;
			}
		}

	}



/* &<@anonymous:1605> */
	obj_t BGl_z62zc3z04anonymousza31605ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3602, obj_t BgL_rz00_3606, obj_t BgL_cz00_3607)
	{
		{	/* Match/normalize.scm 267 */
			{	/* Match/normalize.scm 268 */
				obj_t BgL_ez00_3603;
				obj_t BgL_f1z00_3604;
				obj_t BgL_f2z00_3605;

				BgL_ez00_3603 = PROCEDURE_REF(BgL_envz00_3602, (int) (0L));
				BgL_f1z00_3604 = PROCEDURE_REF(BgL_envz00_3602, (int) (1L));
				BgL_f2z00_3605 = PROCEDURE_REF(BgL_envz00_3602, (int) (2L));
				{	/* Match/normalize.scm 268 */
					obj_t BgL_namez00_3863;

					{	/* Match/normalize.scm 109 */
						obj_t BgL_sz00_3864;

						BgL_sz00_3864 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3603));
						BgL_namez00_3863 =
							bstring_to_symbol(c_substring(BgL_sz00_3864, 1L,
								STRING_LENGTH(BgL_sz00_3864)));
					}
					{	/* Match/normalize.scm 269 */
						obj_t BgL_fun1610z00_3865;

						BgL_fun1610z00_3865 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_f1z00_3604);
						{	/* Match/normalize.scm 270 */
							obj_t BgL_arg1608z00_3866;

							{	/* Match/normalize.scm 270 */
								obj_t BgL_imz00_3867;

								BgL_imz00_3867 = BGl_symbol2290z00zz__match_normaliza7eza7;
								{	/* Match/normalize.scm 334 */
									obj_t BgL_arg1712z00_3868;

									BgL_arg1712z00_3868 =
										MAKE_YOUNG_PAIR(BgL_namez00_3863, BgL_imz00_3867);
									BgL_arg1608z00_3866 =
										MAKE_YOUNG_PAIR(BgL_arg1712z00_3868, BgL_rz00_3606);
							}}
							{	/* Match/normalize.scm 272 */
								obj_t BgL_zc3z04anonymousza31611ze3z87_3869;

								BgL_zc3z04anonymousza31611ze3z87_3869 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31611ze3ze5zz__match_normaliza7eza7,
									(int) (2L), (int) (3L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31611ze3z87_3869, (int) (0L),
									BgL_f2z00_3605);
								PROCEDURE_SET(BgL_zc3z04anonymousza31611ze3z87_3869, (int) (1L),
									BgL_namez00_3863);
								PROCEDURE_SET(BgL_zc3z04anonymousza31611ze3z87_3869, (int) (2L),
									BgL_cz00_3607);
								return BGL_PROCEDURE_CALL2(BgL_fun1610z00_3865,
									BgL_arg1608z00_3866, BgL_zc3z04anonymousza31611ze3z87_3869);
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1611> */
	obj_t BGl_z62zc3z04anonymousza31611ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3608, obj_t BgL_holezd2patternzd2_3612, obj_t BgL_rrz00_3613)
	{
		{	/* Match/normalize.scm 271 */
			{	/* Match/normalize.scm 272 */
				obj_t BgL_f2z00_3609;
				obj_t BgL_namez00_3610;
				obj_t BgL_cz00_3611;

				BgL_f2z00_3609 = PROCEDURE_REF(BgL_envz00_3608, (int) (0L));
				BgL_namez00_3610 = ((obj_t) PROCEDURE_REF(BgL_envz00_3608, (int) (1L)));
				BgL_cz00_3611 = PROCEDURE_REF(BgL_envz00_3608, (int) (2L));
				{	/* Match/normalize.scm 272 */
					obj_t BgL_fun1613z00_3870;

					BgL_fun1613z00_3870 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_f2z00_3609);
					{	/* Match/normalize.scm 275 */
						obj_t BgL_zc3z04anonymousza31614ze3z87_3871;

						BgL_zc3z04anonymousza31614ze3z87_3871 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31614ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31614ze3z87_3871, (int) (0L),
							BgL_holezd2patternzd2_3612);
						PROCEDURE_SET(BgL_zc3z04anonymousza31614ze3z87_3871, (int) (1L),
							BgL_namez00_3610);
						PROCEDURE_SET(BgL_zc3z04anonymousza31614ze3z87_3871, (int) (2L),
							BgL_cz00_3611);
						return BGL_PROCEDURE_CALL2(BgL_fun1613z00_3870, BgL_rrz00_3613,
							BgL_zc3z04anonymousza31614ze3z87_3871);
					}
				}
			}
		}

	}



/* &<@anonymous:1614> */
	obj_t BGl_z62zc3z04anonymousza31614ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3614, obj_t BgL_patternsz00_3618, obj_t BgL_rrrz00_3619)
	{
		{	/* Match/normalize.scm 274 */
			{	/* Match/normalize.scm 275 */
				obj_t BgL_holezd2patternzd2_3615;
				obj_t BgL_namez00_3616;
				obj_t BgL_cz00_3617;

				BgL_holezd2patternzd2_3615 = PROCEDURE_REF(BgL_envz00_3614, (int) (0L));
				BgL_namez00_3616 = ((obj_t) PROCEDURE_REF(BgL_envz00_3614, (int) (1L)));
				BgL_cz00_3617 = PROCEDURE_REF(BgL_envz00_3614, (int) (2L));
				{	/* Match/normalize.scm 275 */
					bool_t BgL_test2462z00_5093;

					{	/* Match/normalize.scm 275 */
						obj_t BgL_a1115z00_3872;

						BgL_a1115z00_3872 =
							BGl_oczd2countzd2zz__match_normaliza7eza7(BgL_namez00_3616,
							BgL_patternsz00_3618);
						if (INTEGERP(BgL_a1115z00_3872))
							{	/* Match/normalize.scm 275 */
								BgL_test2462z00_5093 = ((long) CINT(BgL_a1115z00_3872) > 1L);
							}
						else
							{	/* Match/normalize.scm 275 */
								BgL_test2462z00_5093 =
									BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1115z00_3872, BINT(1L));
							}
					}
					if (BgL_test2462z00_5093)
						{	/* Match/normalize.scm 276 */
							obj_t BgL_arg1616z00_3873;

							{	/* Match/normalize.scm 276 */
								obj_t BgL_arg1617z00_3874;

								{	/* Match/normalize.scm 276 */
									obj_t BgL_arg1619z00_3875;

									{	/* Match/normalize.scm 276 */
										obj_t BgL_arg1620z00_3876;

										BgL_arg1620z00_3876 =
											MAKE_YOUNG_PAIR(BgL_holezd2patternzd2_3615, BNIL);
										BgL_arg1619z00_3875 =
											MAKE_YOUNG_PAIR(BgL_patternsz00_3618,
											BgL_arg1620z00_3876);
									}
									BgL_arg1617z00_3874 =
										MAKE_YOUNG_PAIR(BgL_namez00_3616, BgL_arg1619z00_3875);
								}
								BgL_arg1616z00_3873 =
									MAKE_YOUNG_PAIR(BGl_symbol2290z00zz__match_normaliza7eza7,
									BgL_arg1617z00_3874);
							}
							return
								BGL_PROCEDURE_CALL2(BgL_cz00_3617, BgL_arg1616z00_3873,
								BgL_rrrz00_3619);
						}
					else
						{	/* Match/normalize.scm 277 */
							obj_t BgL_arg1621z00_3877;

							{	/* Match/normalize.scm 277 */
								obj_t BgL_arg1622z00_3878;

								{	/* Match/normalize.scm 277 */
									obj_t BgL_arg1623z00_3879;

									{	/* Match/normalize.scm 277 */
										obj_t BgL_arg1624z00_3880;

										BgL_arg1624z00_3880 =
											MAKE_YOUNG_PAIR(BgL_holezd2patternzd2_3615, BNIL);
										BgL_arg1623z00_3879 =
											MAKE_YOUNG_PAIR(BgL_patternsz00_3618,
											BgL_arg1624z00_3880);
									}
									BgL_arg1622z00_3878 =
										MAKE_YOUNG_PAIR(BgL_namez00_3616, BgL_arg1623z00_3879);
								}
								BgL_arg1621z00_3877 =
									MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__match_normaliza7eza7,
									BgL_arg1622z00_3878);
							}
							return
								BGL_PROCEDURE_CALL2(BgL_cz00_3617, BgL_arg1621z00_3877,
								BgL_rrrz00_3619);
						}
				}
			}
		}

	}



/* oc-count */
	obj_t BGl_oczd2countzd2zz__match_normaliza7eza7(obj_t BgL_namez00_32,
		obj_t BgL_patternz00_33)
	{
		{	/* Match/normalize.scm 279 */
			if (NULLP(BgL_patternz00_33))
				{	/* Match/normalize.scm 281 */
					return BINT(0L);
				}
			else
				{	/* Match/normalize.scm 281 */
					if (
						(CAR(
								((obj_t) BgL_patternz00_33)) ==
							BGl_symbol2269z00zz__match_normaliza7eza7))
						{	/* Match/normalize.scm 283 */
							bool_t BgL_test2466z00_5126;

							{	/* Match/normalize.scm 283 */
								obj_t BgL_tmpz00_5127;

								{	/* Match/normalize.scm 283 */
									obj_t BgL_pairz00_2786;

									BgL_pairz00_2786 = CDR(((obj_t) BgL_patternz00_33));
									BgL_tmpz00_5127 = CAR(BgL_pairz00_2786);
								}
								BgL_test2466z00_5126 = (BgL_tmpz00_5127 == BgL_namez00_32);
							}
							if (BgL_test2466z00_5126)
								{	/* Match/normalize.scm 283 */
									return BINT(1L);
								}
							else
								{	/* Match/normalize.scm 283 */
									return BINT(0L);
								}
						}
					else
						{	/* Match/normalize.scm 282 */
							if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
											((obj_t) BgL_patternz00_33)),
										BGl_list2296z00zz__match_normaliza7eza7)))
								{	/* Match/normalize.scm 287 */
									obj_t BgL_runner1638z00_1733;

									{	/* Match/normalize.scm 287 */
										obj_t BgL_l1116z00_1720;

										BgL_l1116z00_1720 = CDR(((obj_t) BgL_patternz00_33));
										if (NULLP(BgL_l1116z00_1720))
											{	/* Match/normalize.scm 287 */
												BgL_runner1638z00_1733 = BNIL;
											}
										else
											{	/* Match/normalize.scm 287 */
												obj_t BgL_head1118z00_1722;

												BgL_head1118z00_1722 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												{
													obj_t BgL_l1116z00_2808;
													obj_t BgL_tail1119z00_2809;

													BgL_l1116z00_2808 = BgL_l1116z00_1720;
													BgL_tail1119z00_2809 = BgL_head1118z00_1722;
												BgL_zc3z04anonymousza31634ze3z87_2807:
													if (NULLP(BgL_l1116z00_2808))
														{	/* Match/normalize.scm 287 */
															BgL_runner1638z00_1733 =
																CDR(BgL_head1118z00_1722);
														}
													else
														{	/* Match/normalize.scm 287 */
															obj_t BgL_newtail1120z00_2816;

															{	/* Match/normalize.scm 287 */
																obj_t BgL_arg1637z00_2817;

																{	/* Match/normalize.scm 287 */
																	obj_t BgL_patz00_2818;

																	BgL_patz00_2818 =
																		CAR(((obj_t) BgL_l1116z00_2808));
																	BgL_arg1637z00_2817 =
																		BGl_oczd2countzd2zz__match_normaliza7eza7
																		(BgL_namez00_32, BgL_patz00_2818);
																}
																BgL_newtail1120z00_2816 =
																	MAKE_YOUNG_PAIR(BgL_arg1637z00_2817, BNIL);
															}
															SET_CDR(BgL_tail1119z00_2809,
																BgL_newtail1120z00_2816);
															{	/* Match/normalize.scm 287 */
																obj_t BgL_arg1636z00_2819;

																BgL_arg1636z00_2819 =
																	CDR(((obj_t) BgL_l1116z00_2808));
																{
																	obj_t BgL_tail1119z00_5155;
																	obj_t BgL_l1116z00_5154;

																	BgL_l1116z00_5154 = BgL_arg1636z00_2819;
																	BgL_tail1119z00_5155 =
																		BgL_newtail1120z00_2816;
																	BgL_tail1119z00_2809 = BgL_tail1119z00_5155;
																	BgL_l1116z00_2808 = BgL_l1116z00_5154;
																	goto BgL_zc3z04anonymousza31634ze3z87_2807;
																}
															}
														}
												}
											}
									}
									return
										BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_runner1638z00_1733);
								}
							else
								{	/* Match/normalize.scm 286 */
									return BINT(0L);
								}
						}
				}
		}

	}



/* standardize-lispish-segment-variable */
	obj_t
		BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7
		(obj_t BgL_ez00_34, obj_t BgL_fza2za2_35)
	{
		{	/* Match/normalize.scm 290 */
			if (NULLP(BgL_fza2za2_35))
				{	/* Match/normalize.scm 292 */
					obj_t BgL_zc3z04anonymousza31643ze3z87_3620;

					BgL_zc3z04anonymousza31643ze3z87_3620 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31643ze3ze5zz__match_normaliza7eza7,
						(int) (2L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31643ze3z87_3620, (int) (0L),
						BgL_ez00_34);
					return BgL_zc3z04anonymousza31643ze3z87_3620;
				}
			else
				{	/* Match/normalize.scm 291 */
					BGL_TAIL return
						BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7
						(BgL_ez00_34, BgL_fza2za2_35);
				}
		}

	}



/* &<@anonymous:1643> */
	obj_t BGl_z62zc3z04anonymousza31643ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3621, obj_t BgL_rz00_3623, obj_t BgL_cz00_3624)
	{
		{	/* Match/normalize.scm 292 */
			{	/* Match/normalize.scm 293 */
				obj_t BgL_ez00_3622;

				BgL_ez00_3622 = PROCEDURE_REF(BgL_envz00_3621, (int) (0L));
				{	/* Match/normalize.scm 293 */
					obj_t BgL_namez00_3881;

					{	/* Match/normalize.scm 117 */
						obj_t BgL_sz00_3882;

						BgL_sz00_3882 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3622));
						BgL_namez00_3881 =
							bstring_to_symbol(c_substring(BgL_sz00_3882, 3L,
								STRING_LENGTH(BgL_sz00_3882)));
					}
					{	/* Match/normalize.scm 294 */
						bool_t BgL_test2471z00_5173;

						{	/* Match/normalize.scm 294 */
							obj_t BgL_arg1658z00_3883;

							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_namez00_3881, BgL_rz00_3623)))
								{	/* Match/normalize.scm 337 */
									BgL_arg1658z00_3883 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_namez00_3881, BgL_rz00_3623));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_arg1658z00_3883 = BFALSE;
								}
							BgL_test2471z00_5173 =
								(BgL_arg1658z00_3883 ==
								BGl_unboundzd2patternzd2zz__match_normaliza7eza7);
						}
						if (BgL_test2471z00_5173)
							{	/* Match/normalize.scm 295 */
								obj_t BgL_arg1646z00_3884;
								obj_t BgL_arg1647z00_3885;

								{	/* Match/normalize.scm 295 */
									obj_t BgL_arg1649z00_3886;

									{	/* Match/normalize.scm 295 */
										obj_t BgL_arg1651z00_3887;

										{	/* Match/normalize.scm 295 */
											obj_t BgL_arg1652z00_3888;

											BgL_arg1652z00_3888 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
											BgL_arg1651z00_3887 =
												MAKE_YOUNG_PAIR(BgL_arg1652z00_3888, BNIL);
										}
										BgL_arg1649z00_3886 =
											MAKE_YOUNG_PAIR(BgL_namez00_3881, BgL_arg1651z00_3887);
									}
									BgL_arg1646z00_3884 =
										MAKE_YOUNG_PAIR(BGl_symbol2284z00zz__match_normaliza7eza7,
										BgL_arg1649z00_3886);
								}
								{	/* Match/normalize.scm 296 */
									obj_t BgL_imz00_3889;

									BgL_imz00_3889 = BGl_symbol2286z00zz__match_normaliza7eza7;
									{	/* Match/normalize.scm 334 */
										obj_t BgL_arg1712z00_3890;

										BgL_arg1712z00_3890 =
											MAKE_YOUNG_PAIR(BgL_namez00_3881, BgL_imz00_3889);
										BgL_arg1647z00_3885 =
											MAKE_YOUNG_PAIR(BgL_arg1712z00_3890, BgL_rz00_3623);
									}
								}
								return
									BGL_PROCEDURE_CALL2(BgL_cz00_3624, BgL_arg1646z00_3884,
									BgL_arg1647z00_3885);
							}
						else
							{	/* Match/normalize.scm 297 */
								obj_t BgL_arg1653z00_3891;

								{	/* Match/normalize.scm 297 */
									obj_t BgL_arg1655z00_3892;

									BgL_arg1655z00_3892 = MAKE_YOUNG_PAIR(BgL_namez00_3881, BNIL);
									BgL_arg1653z00_3891 =
										MAKE_YOUNG_PAIR(BGl_symbol2284z00zz__match_normaliza7eza7,
										BgL_arg1655z00_3892);
								}
								return
									BGL_PROCEDURE_CALL2(BgL_cz00_3624, BgL_arg1653z00_3891,
									BgL_rz00_3623);
							}
					}
				}
			}
		}

	}



/* standardize-any */
	obj_t BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(obj_t BgL_fza2za2_36)
	{
		{	/* Match/normalize.scm 300 */
			{	/* Match/normalize.scm 301 */
				obj_t BgL_zc3z04anonymousza31659ze3z87_3626;

				BgL_zc3z04anonymousza31659ze3z87_3626 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31659ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31659ze3z87_3626, (int) (0L),
					BgL_fza2za2_36);
				return BgL_zc3z04anonymousza31659ze3z87_3626;
			}
		}

	}



/* &<@anonymous:1659> */
	obj_t BGl_z62zc3z04anonymousza31659ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3627, obj_t BgL_rz00_3629, obj_t BgL_cz00_3630)
	{
		{	/* Match/normalize.scm 301 */
			{	/* Match/normalize.scm 302 */
				obj_t BgL_fza2za2_3628;

				BgL_fza2za2_3628 = PROCEDURE_REF(BgL_envz00_3627, (int) (0L));
				{	/* Match/normalize.scm 302 */
					obj_t BgL_fun1661z00_3893;

					BgL_fun1661z00_3893 =
						BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
						(BgL_fza2za2_3628);
					{	/* Match/normalize.scm 305 */
						obj_t BgL_zc3z04anonymousza31662ze3z87_3894;

						BgL_zc3z04anonymousza31662ze3z87_3894 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31662ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31662ze3z87_3894, (int) (0L),
							BgL_cz00_3630);
						return BGL_PROCEDURE_CALL2(BgL_fun1661z00_3893, BgL_rz00_3629,
							BgL_zc3z04anonymousza31662ze3z87_3894);
					}
				}
			}
		}

	}



/* &<@anonymous:1662> */
	obj_t BGl_z62zc3z04anonymousza31662ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3631, obj_t BgL_patternz00_3633, obj_t BgL_rrz00_3634)
	{
		{	/* Match/normalize.scm 304 */
			{	/* Match/normalize.scm 305 */
				obj_t BgL_cz00_3632;

				BgL_cz00_3632 = PROCEDURE_REF(BgL_envz00_3631, (int) (0L));
				{	/* Match/normalize.scm 305 */
					obj_t BgL_labelz00_3895;

					BgL_labelz00_3895 =
						BGL_PROCEDURE_CALL1(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2267z00zz__match_normaliza7eza7);
					if (CBOOL(BGl_z62zc3z04anonymousza31516ze3ze5zz__match_normaliza7eza7
							(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7,
								BGl_symbol2276z00zz__match_normaliza7eza7)))
						{	/* Match/normalize.scm 308 */
							obj_t BgL_arg1664z00_3896;

							{	/* Match/normalize.scm 308 */
								obj_t BgL_arg1665z00_3897;

								{	/* Match/normalize.scm 308 */
									obj_t BgL_arg1666z00_3898;

									{	/* Match/normalize.scm 308 */
										obj_t BgL_arg1667z00_3899;
										obj_t BgL_arg1671z00_3900;

										{	/* Match/normalize.scm 308 */
											obj_t BgL_arg1672z00_3901;

											{	/* Match/normalize.scm 308 */
												obj_t BgL_arg1673z00_3902;
												obj_t BgL_arg1674z00_3903;

												BgL_arg1673z00_3902 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
												{	/* Match/normalize.scm 308 */
													obj_t BgL_arg1675z00_3904;

													{	/* Match/normalize.scm 308 */
														obj_t BgL_arg1681z00_3905;

														{	/* Match/normalize.scm 308 */
															obj_t BgL_arg1683z00_3906;

															{	/* Match/normalize.scm 308 */
																obj_t BgL_arg1687z00_3907;

																BgL_arg1687z00_3907 =
																	BGL_PROCEDURE_CALL1
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																	BGl_string2268z00zz__match_normaliza7eza7);
																BgL_arg1683z00_3906 =
																	MAKE_YOUNG_PAIR(BgL_arg1687z00_3907, BNIL);
															}
															BgL_arg1681z00_3905 =
																MAKE_YOUNG_PAIR(BgL_labelz00_3895,
																BgL_arg1683z00_3906);
														}
														BgL_arg1675z00_3904 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2269z00zz__match_normaliza7eza7,
															BgL_arg1681z00_3905);
													}
													BgL_arg1674z00_3903 =
														MAKE_YOUNG_PAIR(BgL_arg1675z00_3904, BNIL);
												}
												BgL_arg1672z00_3901 =
													MAKE_YOUNG_PAIR(BgL_arg1673z00_3902,
													BgL_arg1674z00_3903);
											}
											BgL_arg1667z00_3899 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2282z00zz__match_normaliza7eza7,
												BgL_arg1672z00_3901);
										}
										BgL_arg1671z00_3900 =
											MAKE_YOUNG_PAIR(BgL_patternz00_3633, BNIL);
										BgL_arg1666z00_3898 =
											MAKE_YOUNG_PAIR(BgL_arg1667z00_3899, BgL_arg1671z00_3900);
									}
									BgL_arg1665z00_3897 =
										MAKE_YOUNG_PAIR(BgL_labelz00_3895, BgL_arg1666z00_3898);
								}
								BgL_arg1664z00_3896 =
									MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__match_normaliza7eza7,
									BgL_arg1665z00_3897);
							}
							return
								BGL_PROCEDURE_CALL2(BgL_cz00_3632, BgL_arg1664z00_3896,
								BgL_rrz00_3634);
						}
					else
						{	/* Match/normalize.scm 312 */
							obj_t BgL_arg1689z00_3908;

							{	/* Match/normalize.scm 312 */
								obj_t BgL_arg1690z00_3909;

								{	/* Match/normalize.scm 312 */
									obj_t BgL_arg1691z00_3910;

									{	/* Match/normalize.scm 312 */
										obj_t BgL_arg1692z00_3911;
										obj_t BgL_arg1697z00_3912;

										{	/* Match/normalize.scm 312 */
											obj_t BgL_arg1698z00_3913;

											{	/* Match/normalize.scm 312 */
												obj_t BgL_arg1702z00_3914;
												obj_t BgL_arg1703z00_3915;

												BgL_arg1702z00_3914 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
												{	/* Match/normalize.scm 312 */
													obj_t BgL_arg1705z00_3916;

													{	/* Match/normalize.scm 312 */
														obj_t BgL_arg1706z00_3917;

														{	/* Match/normalize.scm 312 */
															obj_t BgL_arg1707z00_3918;

															{	/* Match/normalize.scm 312 */
																obj_t BgL_arg1708z00_3919;

																BgL_arg1708z00_3919 =
																	BGL_PROCEDURE_CALL1
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																	BGl_string2268z00zz__match_normaliza7eza7);
																BgL_arg1707z00_3918 =
																	MAKE_YOUNG_PAIR(BgL_arg1708z00_3919, BNIL);
															}
															BgL_arg1706z00_3917 =
																MAKE_YOUNG_PAIR(BgL_labelz00_3895,
																BgL_arg1707z00_3918);
														}
														BgL_arg1705z00_3916 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2269z00zz__match_normaliza7eza7,
															BgL_arg1706z00_3917);
													}
													BgL_arg1703z00_3915 =
														MAKE_YOUNG_PAIR(BgL_arg1705z00_3916, BNIL);
												}
												BgL_arg1698z00_3913 =
													MAKE_YOUNG_PAIR(BgL_arg1702z00_3914,
													BgL_arg1703z00_3915);
											}
											BgL_arg1692z00_3911 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2258z00zz__match_normaliza7eza7,
												BgL_arg1698z00_3913);
										}
										BgL_arg1697z00_3912 =
											MAKE_YOUNG_PAIR(BgL_patternz00_3633, BNIL);
										BgL_arg1691z00_3910 =
											MAKE_YOUNG_PAIR(BgL_arg1692z00_3911, BgL_arg1697z00_3912);
									}
									BgL_arg1690z00_3909 =
										MAKE_YOUNG_PAIR(BgL_labelz00_3895, BgL_arg1691z00_3910);
								}
								BgL_arg1689z00_3908 =
									MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__match_normaliza7eza7,
									BgL_arg1690z00_3909);
							}
							return
								BGL_PROCEDURE_CALL2(BgL_cz00_3632, BgL_arg1689z00_3908,
								BgL_rrz00_3634);
						}
				}
			}
		}

	}



/* standardize-lispish-any */
	obj_t BGl_standardiza7ezd2lispishzd2anyza7zz__match_normaliza7eza7(obj_t
		BgL_fza2za2_37)
	{
		{	/* Match/normalize.scm 316 */
			if (NULLP(BgL_fza2za2_37))
				{	/* Match/normalize.scm 317 */
					return BGl_proc2299z00zz__match_normaliza7eza7;
				}
			else
				{	/* Match/normalize.scm 317 */
					BGL_TAIL return
						BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(BgL_fza2za2_37);
				}
		}

	}



/* &<@anonymous:1710> */
	obj_t BGl_z62zc3z04anonymousza31710ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3636, obj_t BgL_rz00_3637, obj_t BgL_cz00_3638)
	{
		{	/* Match/normalize.scm 318 */
			{	/* Match/normalize.scm 318 */
				obj_t BgL_arg1711z00_3920;

				BgL_arg1711z00_3920 =
					MAKE_YOUNG_PAIR(BGl_symbol2256z00zz__match_normaliza7eza7, BNIL);
				return
					BGL_PROCEDURE_CALL2(BgL_cz00_3638, BgL_arg1711z00_3920,
					BgL_rz00_3637);
			}
		}

	}



/* extend-r-macro-env */
	BGL_EXPORTED_DEF obj_t
		BGl_extendzd2rzd2macrozd2envzd2zz__match_normaliza7eza7(obj_t
		BgL_namez00_45, obj_t BgL_funz00_46)
	{
		{	/* Match/normalize.scm 341 */
			{	/* Match/normalize.scm 343 */
				obj_t BgL_fnz00_2843;

				BgL_fnz00_2843 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 334 */
					obj_t BgL_arg1712z00_2844;

					BgL_arg1712z00_2844 = MAKE_YOUNG_PAIR(BgL_namez00_45, BgL_funz00_46);
					return (BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
						MAKE_YOUNG_PAIR(BgL_arg1712z00_2844, BgL_fnz00_2843), BUNSPEC);
				}
			}
		}

	}



/* &extend-r-macro-env */
	obj_t BGl_z62extendzd2rzd2macrozd2envzb0zz__match_normaliza7eza7(obj_t
		BgL_envz00_3639, obj_t BgL_namez00_3640, obj_t BgL_funz00_3641)
	{
		{	/* Match/normalize.scm 341 */
			return
				BGl_extendzd2rzd2macrozd2envzd2zz__match_normaliza7eza7
				(BgL_namez00_3640, BgL_funz00_3641);
		}

	}



/* coherent-environment? */
	bool_t BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7(obj_t
		BgL_rz00_48, obj_t BgL_rrz00_49)
	{
		{	/* Match/normalize.scm 469 */
		BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7:
			if (PAIRP(BgL_rz00_48))
				{	/* Match/normalize.scm 475 */
					bool_t BgL_test2476z00_5282;

					{	/* Match/normalize.scm 475 */
						obj_t BgL_arg1719z00_1802;

						BgL_arg1719z00_1802 = CAR(CAR(BgL_rz00_48));
						{
							obj_t BgL_rz00_2875;

							BgL_rz00_2875 = BgL_rrz00_49;
						BgL_lookz00_2874:
							if (PAIRP(BgL_rz00_2875))
								{	/* Match/normalize.scm 472 */
									bool_t BgL__ortest_1061z00_2877;

									BgL__ortest_1061z00_2877 =
										(CAR(CAR(BgL_rz00_2875)) == BgL_arg1719z00_1802);
									if (BgL__ortest_1061z00_2877)
										{	/* Match/normalize.scm 472 */
											BgL_test2476z00_5282 = BgL__ortest_1061z00_2877;
										}
									else
										{
											obj_t BgL_rz00_5291;

											BgL_rz00_5291 = CDR(BgL_rz00_2875);
											BgL_rz00_2875 = BgL_rz00_5291;
											goto BgL_lookz00_2874;
										}
								}
							else
								{	/* Match/normalize.scm 471 */
									BgL_test2476z00_5282 = ((bool_t) 0);
								}
						}
					}
					if (BgL_test2476z00_5282)
						{
							obj_t BgL_rz00_5293;

							BgL_rz00_5293 = CDR(BgL_rz00_48);
							BgL_rz00_48 = BgL_rz00_5293;
							goto BGl_coherentzd2environmentzf3z21zz__match_normaliza7eza7;
						}
					else
						{	/* Match/normalize.scm 475 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/normalize.scm 474 */
					return ((bool_t) 1);
				}
		}

	}



/* standardize-vector */
	obj_t BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7(obj_t BgL_ez00_54)
	{
		{	/* Match/normalize.scm 496 */
			{	/* Match/normalize.scm 498 */
				obj_t BgL_tmpz00_1807;

				{	/* Match/normalize.scm 498 */
					obj_t BgL_arg1770z00_1854;

					BgL_arg1770z00_1854 =
						BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_54);
					{	/* Match/normalize.scm 124 */
						obj_t BgL_fun1447z00_2886;

						BgL_fun1447z00_2886 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1770z00_1854);
						BgL_tmpz00_1807 =
							BGL_PROCEDURE_CALL2(BgL_fun1447z00_2886,
							BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
							BGl_proc2300z00zz__match_normaliza7eza7);
					}
				}
				{	/* Match/normalize.scm 518 */
					obj_t BgL_zc3z04anonymousza31722ze3z87_3642;

					BgL_zc3z04anonymousza31722ze3z87_3642 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31722ze3ze5zz__match_normaliza7eza7,
						(int) (2L), (int) (2L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31722ze3z87_3642, (int) (0L),
						BgL_ez00_54);
					PROCEDURE_SET(BgL_zc3z04anonymousza31722ze3z87_3642, (int) (1L),
						BgL_tmpz00_1807);
					return BgL_zc3z04anonymousza31722ze3z87_3642;
				}
			}
		}

	}



/* &<@anonymous:1722> */
	obj_t BGl_z62zc3z04anonymousza31722ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3644, obj_t BgL_rz00_3647, obj_t BgL_cz00_3648)
	{
		{	/* Match/normalize.scm 518 */
			{	/* Match/normalize.scm 519 */
				obj_t BgL_ez00_3645;
				obj_t BgL_tmpz00_3646;

				BgL_ez00_3645 = ((obj_t) PROCEDURE_REF(BgL_envz00_3644, (int) (0L)));
				BgL_tmpz00_3646 = PROCEDURE_REF(BgL_envz00_3644, (int) (1L));
				{	/* Match/normalize.scm 519 */
					obj_t BgL_arg1723z00_3921;

					{	/* Match/normalize.scm 519 */
						obj_t BgL_arg1724z00_3922;

						{	/* Match/normalize.scm 519 */
							obj_t BgL_arg1725z00_3923;
							obj_t BgL_arg1726z00_3924;

							BgL_arg1725z00_3923 =
								BGl_patternzd2lengthzd2zz__match_normaliza7eza7
								(BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_3645));
							BgL_arg1726z00_3924 =
								MAKE_YOUNG_PAIR(BGl_vectorifyze70ze7zz__match_normaliza7eza7
								(BgL_tmpz00_3646), BNIL);
							BgL_arg1724z00_3922 =
								MAKE_YOUNG_PAIR(BgL_arg1725z00_3923, BgL_arg1726z00_3924);
						}
						BgL_arg1723z00_3921 =
							MAKE_YOUNG_PAIR(BGl_symbol2301z00zz__match_normaliza7eza7,
							BgL_arg1724z00_3922);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_cz00_3648, BgL_arg1723z00_3921,
						BgL_rz00_3647);
				}
			}
		}

	}



/* vectorify~0 */
	obj_t BGl_vectorifyze70ze7zz__match_normaliza7eza7(obj_t BgL_pz00_1808)
	{
		{	/* Match/normalize.scm 499 */
			if (
				(CAR(
						((obj_t) BgL_pz00_1808)) ==
					BGl_symbol2258z00zz__match_normaliza7eza7))
				{	/* Match/normalize.scm 503 */
					obj_t BgL_arg1731z00_1821;

					{	/* Match/normalize.scm 503 */
						obj_t BgL_arg1732z00_1822;
						obj_t BgL_arg1733z00_1823;

						{	/* Match/normalize.scm 503 */
							obj_t BgL_pairz00_2894;

							BgL_pairz00_2894 = CDR(((obj_t) BgL_pz00_1808));
							BgL_arg1732z00_1822 = CAR(BgL_pairz00_2894);
						}
						{	/* Match/normalize.scm 504 */
							obj_t BgL_arg1734z00_1824;

							{	/* Match/normalize.scm 504 */
								bool_t BgL_test2480z00_5332;

								{	/* Match/normalize.scm 504 */
									obj_t BgL_auxz00_5333;

									{	/* Match/normalize.scm 504 */
										obj_t BgL_pairz00_2900;

										{	/* Match/normalize.scm 504 */
											obj_t BgL_pairz00_2899;

											BgL_pairz00_2899 = CDR(((obj_t) BgL_pz00_1808));
											BgL_pairz00_2900 = CDR(BgL_pairz00_2899);
										}
										BgL_auxz00_5333 = CAR(BgL_pairz00_2900);
									}
									BgL_test2480z00_5332 =
										BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_5333,
										BGl_list2303z00zz__match_normaliza7eza7);
								}
								if (BgL_test2480z00_5332)
									{	/* Match/normalize.scm 504 */
										BgL_arg1734z00_1824 =
											BGl_list2304z00zz__match_normaliza7eza7;
									}
								else
									{	/* Match/normalize.scm 506 */
										obj_t BgL_arg1739z00_1827;

										{	/* Match/normalize.scm 506 */
											obj_t BgL_pairz00_2906;

											{	/* Match/normalize.scm 506 */
												obj_t BgL_pairz00_2905;

												BgL_pairz00_2905 = CDR(((obj_t) BgL_pz00_1808));
												BgL_pairz00_2906 = CDR(BgL_pairz00_2905);
											}
											BgL_arg1739z00_1827 = CAR(BgL_pairz00_2906);
										}
										BgL_arg1734z00_1824 =
											BGl_vectorifyze70ze7zz__match_normaliza7eza7
											(BgL_arg1739z00_1827);
									}
							}
							BgL_arg1733z00_1823 = MAKE_YOUNG_PAIR(BgL_arg1734z00_1824, BNIL);
						}
						BgL_arg1731z00_1821 =
							MAKE_YOUNG_PAIR(BgL_arg1732z00_1822, BgL_arg1733z00_1823);
					}
					return
						MAKE_YOUNG_PAIR(BGl_symbol2307z00zz__match_normaliza7eza7,
						BgL_arg1731z00_1821);
				}
			else
				{	/* Match/normalize.scm 502 */
					if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_pz00_1808,
							BGl_list2309z00zz__match_normaliza7eza7))
						{	/* Match/normalize.scm 507 */
							return BGl_list2310z00zz__match_normaliza7eza7;
						}
					else
						{	/* Match/normalize.scm 507 */
							if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
											((obj_t) BgL_pz00_1808)),
										BGl_list2313z00zz__match_normaliza7eza7)))
								{	/* Match/normalize.scm 510 */
									obj_t BgL_arg1744z00_1832;
									obj_t BgL_arg1745z00_1833;
									obj_t BgL_arg1747z00_1834;

									BgL_arg1744z00_1832 = CAR(((obj_t) BgL_pz00_1808));
									{	/* Match/normalize.scm 511 */
										obj_t BgL_arg1754z00_1838;

										{	/* Match/normalize.scm 511 */
											obj_t BgL_pairz00_2912;

											BgL_pairz00_2912 = CDR(((obj_t) BgL_pz00_1808));
											BgL_arg1754z00_1838 = CAR(BgL_pairz00_2912);
										}
										BgL_arg1745z00_1833 =
											BGl_vectorifyze70ze7zz__match_normaliza7eza7
											(BgL_arg1754z00_1838);
									}
									{	/* Match/normalize.scm 512 */
										obj_t BgL_arg1755z00_1839;

										{	/* Match/normalize.scm 512 */
											obj_t BgL_pairz00_2918;

											{	/* Match/normalize.scm 512 */
												obj_t BgL_pairz00_2917;

												BgL_pairz00_2917 = CDR(((obj_t) BgL_pz00_1808));
												BgL_pairz00_2918 = CDR(BgL_pairz00_2917);
											}
											BgL_arg1755z00_1839 = CAR(BgL_pairz00_2918);
										}
										BgL_arg1747z00_1834 =
											BGl_vectorifyze70ze7zz__match_normaliza7eza7
											(BgL_arg1755z00_1839);
									}
									{	/* Match/normalize.scm 510 */
										obj_t BgL_list1748z00_1835;

										{	/* Match/normalize.scm 510 */
											obj_t BgL_arg1749z00_1836;

											{	/* Match/normalize.scm 510 */
												obj_t BgL_arg1750z00_1837;

												BgL_arg1750z00_1837 =
													MAKE_YOUNG_PAIR(BgL_arg1747z00_1834, BNIL);
												BgL_arg1749z00_1836 =
													MAKE_YOUNG_PAIR(BgL_arg1745z00_1833,
													BgL_arg1750z00_1837);
											}
											BgL_list1748z00_1835 =
												MAKE_YOUNG_PAIR(BgL_arg1744z00_1832,
												BgL_arg1749z00_1836);
										}
										return BgL_list1748z00_1835;
									}
								}
							else
								{	/* Match/normalize.scm 509 */
									if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
													((obj_t) BgL_pz00_1808)),
												BGl_list2314z00zz__match_normaliza7eza7)))
										{	/* Match/normalize.scm 514 */
											obj_t BgL_arg1758z00_1842;
											obj_t BgL_arg1759z00_1843;
											obj_t BgL_arg1760z00_1844;

											{	/* Match/normalize.scm 514 */
												obj_t BgL_pairz00_2924;

												BgL_pairz00_2924 = CDR(((obj_t) BgL_pz00_1808));
												BgL_arg1758z00_1842 = CAR(BgL_pairz00_2924);
											}
											{	/* Match/normalize.scm 515 */
												obj_t BgL_arg1765z00_1849;

												{	/* Match/normalize.scm 515 */
													obj_t BgL_pairz00_2930;

													{	/* Match/normalize.scm 515 */
														obj_t BgL_pairz00_2929;

														BgL_pairz00_2929 = CDR(((obj_t) BgL_pz00_1808));
														BgL_pairz00_2930 = CDR(BgL_pairz00_2929);
													}
													BgL_arg1765z00_1849 = CAR(BgL_pairz00_2930);
												}
												BgL_arg1759z00_1843 =
													BGl_vectorifyze70ze7zz__match_normaliza7eza7
													(BgL_arg1765z00_1849);
											}
											{	/* Match/normalize.scm 516 */
												obj_t BgL_arg1766z00_1850;

												{	/* Match/normalize.scm 516 */
													obj_t BgL_pairz00_2938;

													{	/* Match/normalize.scm 516 */
														obj_t BgL_pairz00_2937;

														{	/* Match/normalize.scm 516 */
															obj_t BgL_pairz00_2936;

															BgL_pairz00_2936 = CDR(((obj_t) BgL_pz00_1808));
															BgL_pairz00_2937 = CDR(BgL_pairz00_2936);
														}
														BgL_pairz00_2938 = CDR(BgL_pairz00_2937);
													}
													BgL_arg1766z00_1850 = CAR(BgL_pairz00_2938);
												}
												BgL_arg1760z00_1844 =
													BGl_vectorifyze70ze7zz__match_normaliza7eza7
													(BgL_arg1766z00_1850);
											}
											{	/* Match/normalize.scm 514 */
												obj_t BgL_list1761z00_1845;

												{	/* Match/normalize.scm 514 */
													obj_t BgL_arg1762z00_1846;

													{	/* Match/normalize.scm 514 */
														obj_t BgL_arg1763z00_1847;

														{	/* Match/normalize.scm 514 */
															obj_t BgL_arg1764z00_1848;

															BgL_arg1764z00_1848 =
																MAKE_YOUNG_PAIR(BgL_arg1760z00_1844, BNIL);
															BgL_arg1763z00_1847 =
																MAKE_YOUNG_PAIR(BgL_arg1759z00_1843,
																BgL_arg1764z00_1848);
														}
														BgL_arg1762z00_1846 =
															MAKE_YOUNG_PAIR(BgL_arg1758z00_1842,
															BgL_arg1763z00_1847);
													}
													BgL_list1761z00_1845 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2315z00zz__match_normaliza7eza7,
														BgL_arg1762z00_1846);
												}
												return BgL_list1761z00_1845;
											}
										}
									else
										{	/* Match/normalize.scm 513 */
											return BgL_pz00_1808;
										}
								}
						}
				}
		}

	}



/* &<@anonymous:1448>2213 */
	obj_t BGl_z62zc3z04anonymousza31448ze32213ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3649, obj_t BgL_patternz00_3650, obj_t BgL_rrz00_3651)
	{
		{	/* Match/normalize.scm 126 */
			return BgL_patternz00_3650;
		}

	}



/* pattern-length */
	obj_t BGl_patternzd2lengthzd2zz__match_normaliza7eza7(obj_t BgL_pz00_55)
	{
		{	/* Match/normalize.scm 522 */
		BGl_patternzd2lengthzd2zz__match_normaliza7eza7:
			if (CBOOL(BGl_atomzf3zf3zz__match_s2cfunz00(BgL_pz00_55)))
				{	/* Match/normalize.scm 524 */
					return BINT(0L);
				}
			else
				{	/* Match/normalize.scm 524 */
					if (NULLP(BgL_pz00_55))
						{	/* Match/normalize.scm 525 */
							return BINT(0L);
						}
					else
						{	/* Match/normalize.scm 525 */
							if (
								(CAR(
										((obj_t) BgL_pz00_55)) ==
									BGl_symbol2227z00zz__match_normaliza7eza7))
								{	/* Match/normalize.scm 526 */
									return BINT(1L);
								}
							else
								{	/* Match/normalize.scm 527 */
									bool_t BgL_test2487z00_5403;

									{	/* Match/normalize.scm 527 */
										obj_t BgL_arg1785z00_1870;

										BgL_arg1785z00_1870 = CAR(((obj_t) BgL_pz00_55));
										BgL_test2487z00_5403 =
											BGl_treezd2variablezf3z21zz__match_normaliza7eza7
											(BgL_arg1785z00_1870);
									}
									if (BgL_test2487z00_5403)
										{	/* Match/normalize.scm 527 */
											return BINT(0L);
										}
									else
										{	/* Match/normalize.scm 527 */
											if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
															((obj_t) BgL_pz00_55)),
														BGl_list2317z00zz__match_normaliza7eza7)))
												{	/* Match/normalize.scm 528 */
													return BINT(0L);
												}
											else
												{	/* Match/normalize.scm 528 */
													if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR
																(((obj_t) BgL_pz00_55)),
																BGl_list2318z00zz__match_normaliza7eza7)))
														{	/* Match/normalize.scm 529 */
															obj_t BgL_arg1781z00_1865;

															{	/* Match/normalize.scm 529 */
																obj_t BgL_pairz00_2953;

																BgL_pairz00_2953 = CDR(((obj_t) BgL_pz00_55));
																BgL_arg1781z00_1865 = CAR(BgL_pairz00_2953);
															}
															{
																obj_t BgL_pz00_5422;

																BgL_pz00_5422 = BgL_arg1781z00_1865;
																BgL_pz00_55 = BgL_pz00_5422;
																goto
																	BGl_patternzd2lengthzd2zz__match_normaliza7eza7;
															}
														}
													else
														{	/* Match/normalize.scm 530 */
															obj_t BgL_b1121z00_1866;

															{	/* Match/normalize.scm 530 */
																obj_t BgL_arg1782z00_1867;

																BgL_arg1782z00_1867 =
																	CDR(((obj_t) BgL_pz00_55));
																BgL_b1121z00_1866 =
																	BGl_patternzd2lengthzd2zz__match_normaliza7eza7
																	(BgL_arg1782z00_1867);
															}
															if (INTEGERP(BgL_b1121z00_1866))
																{	/* Match/normalize.scm 530 */
																	obj_t BgL_tmpz00_2957;

																	BgL_tmpz00_2957 = BINT(0L);
																	{	/* Match/normalize.scm 530 */
																		bool_t BgL_test2491z00_5429;

																		{	/* Match/normalize.scm 530 */
																			obj_t BgL_tmpz00_5430;

																			BgL_tmpz00_5430 = BINT(1L);
																			BgL_test2491z00_5429 =
																				BGL_ADDFX_OV(BgL_tmpz00_5430,
																				BgL_b1121z00_1866, BgL_tmpz00_2957);
																		}
																		if (BgL_test2491z00_5429)
																			{	/* Match/normalize.scm 530 */
																				return
																					bgl_bignum_add(bgl_long_to_bignum(1L),
																					bgl_long_to_bignum(
																						(long) CINT(BgL_b1121z00_1866)));
																			}
																		else
																			{	/* Match/normalize.scm 530 */
																				return BgL_tmpz00_2957;
																			}
																	}
																}
															else
																{	/* Match/normalize.scm 530 */
																	return
																		BGl_2zb2zb2zz__r4_numbers_6_5z00(BINT(1L),
																		BgL_b1121z00_1866);
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* match-define-structure! */
	BGL_EXPORTED_DEF obj_t
		BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t
		BgL_expz00_56)
	{
		{	/* Match/normalize.scm 546 */
			if (PAIRP(BgL_expz00_56))
				{	/* Match/normalize.scm 547 */
					obj_t BgL_cdrzd2126zd2_1878;

					BgL_cdrzd2126zd2_1878 = CDR(((obj_t) BgL_expz00_56));
					if (
						(CAR(
								((obj_t) BgL_expz00_56)) ==
							BGl_symbol2319z00zz__match_normaliza7eza7))
						{	/* Match/normalize.scm 547 */
							if (PAIRP(BgL_cdrzd2126zd2_1878))
								{	/* Match/normalize.scm 547 */
									obj_t BgL_arg1791z00_1882;
									obj_t BgL_arg1792z00_1883;

									BgL_arg1791z00_1882 = CAR(BgL_cdrzd2126zd2_1878);
									BgL_arg1792z00_1883 = CDR(BgL_cdrzd2126zd2_1878);
									{	/* Match/normalize.scm 550 */
										obj_t BgL_arg1794z00_2980;

										{	/* Match/normalize.scm 550 */
											obj_t BgL_arg1795z00_2981;

											{	/* Match/normalize.scm 550 */
												obj_t BgL_arg1796z00_2982;

												{	/* Match/normalize.scm 550 */
													obj_t BgL_arg1798z00_2983;

													{	/* Match/normalize.scm 550 */
														obj_t BgL_arg1799z00_2984;
														obj_t BgL_arg1800z00_2985;

														{	/* Match/normalize.scm 550 */
															obj_t BgL_arg2028z00_2987;

															BgL_arg2028z00_2987 =
																SYMBOL_TO_STRING(((obj_t) BgL_arg1791z00_1882));
															BgL_arg1799z00_2984 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg2028z00_2987);
														}
														{	/* Match/normalize.scm 550 */
															obj_t BgL_symbolz00_2988;

															BgL_symbolz00_2988 =
																BGl_symbol2230z00zz__match_normaliza7eza7;
															{	/* Match/normalize.scm 550 */
																obj_t BgL_arg2028z00_2989;

																BgL_arg2028z00_2989 =
																	SYMBOL_TO_STRING(BgL_symbolz00_2988);
																BgL_arg1800z00_2985 =
																	BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																	(BgL_arg2028z00_2989);
															}
														}
														BgL_arg1798z00_2983 =
															string_append(BgL_arg1799z00_2984,
															BgL_arg1800z00_2985);
													}
													BgL_arg1796z00_2982 =
														bstring_to_symbol(BgL_arg1798z00_2983);
												}
												BgL_arg1795z00_2981 =
													MAKE_YOUNG_PAIR(BgL_arg1796z00_2982,
													BgL_arg1792z00_1883);
											}
											BgL_arg1794z00_2980 =
												MAKE_YOUNG_PAIR(BgL_arg1791z00_1882,
												BgL_arg1795z00_2981);
										}
										return
											(BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 =
											MAKE_YOUNG_PAIR(BgL_arg1794z00_2980,
												BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7),
											BUNSPEC);
									}
								}
							else
								{	/* Match/normalize.scm 547 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2321z00zz__match_normaliza7eza7, BgL_expz00_56,
										BGl_symbol2322z00zz__match_normaliza7eza7);
								}
						}
					else
						{	/* Match/normalize.scm 547 */
							return
								BGl_errorz00zz__errorz00
								(BGl_string2321z00zz__match_normaliza7eza7, BgL_expz00_56,
								BGl_symbol2322z00zz__match_normaliza7eza7);
						}
				}
			else
				{	/* Match/normalize.scm 547 */
					return
						BGl_errorz00zz__errorz00(BGl_string2321z00zz__match_normaliza7eza7,
						BgL_expz00_56, BGl_symbol2322z00zz__match_normaliza7eza7);
				}
		}

	}



/* &match-define-structure! */
	obj_t BGl_z62matchzd2definezd2structurez12z70zz__match_normaliza7eza7(obj_t
		BgL_envz00_3652, obj_t BgL_expz00_3653)
	{
		{	/* Match/normalize.scm 546 */
			return
				BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7
				(BgL_expz00_3653);
		}

	}



/* match-define-record-type! */
	BGL_EXPORTED_DEF obj_t
		BGl_matchzd2definezd2recordzd2typez12zc0zz__match_normaliza7eza7(obj_t
		BgL_expz00_57)
	{
		{	/* Match/normalize.scm 554 */
			{
				obj_t BgL_namez00_1891;
				obj_t BgL_constrz00_1892;
				obj_t BgL_predz00_1893;
				obj_t BgL_fieldsz00_1894;

				if (PAIRP(BgL_expz00_57))
					{	/* Match/normalize.scm 555 */
						obj_t BgL_cdrzd2145zd2_1899;

						BgL_cdrzd2145zd2_1899 = CDR(((obj_t) BgL_expz00_57));
						if (
							(CAR(
									((obj_t) BgL_expz00_57)) ==
								BGl_symbol2324z00zz__match_normaliza7eza7))
							{	/* Match/normalize.scm 555 */
								if (PAIRP(BgL_cdrzd2145zd2_1899))
									{	/* Match/normalize.scm 555 */
										obj_t BgL_cdrzd2151zd2_1903;

										BgL_cdrzd2151zd2_1903 = CDR(BgL_cdrzd2145zd2_1899);
										if (PAIRP(BgL_cdrzd2151zd2_1903))
											{	/* Match/normalize.scm 555 */
												obj_t BgL_cdrzd2157zd2_1905;

												BgL_cdrzd2157zd2_1905 = CDR(BgL_cdrzd2151zd2_1903);
												if (PAIRP(BgL_cdrzd2157zd2_1905))
													{	/* Match/normalize.scm 555 */
														BgL_namez00_1891 = CAR(BgL_cdrzd2145zd2_1899);
														BgL_constrz00_1892 = CAR(BgL_cdrzd2151zd2_1903);
														BgL_predz00_1893 = CAR(BgL_cdrzd2157zd2_1905);
														BgL_fieldsz00_1894 = CDR(BgL_cdrzd2157zd2_1905);
														{	/* Match/normalize.scm 557 */
															obj_t BgL_reallyzd2fieldszd2_1912;

															if (NULLP(BgL_fieldsz00_1894))
																{	/* Match/normalize.scm 557 */
																	BgL_reallyzd2fieldszd2_1912 = BNIL;
																}
															else
																{	/* Match/normalize.scm 557 */
																	obj_t BgL_head1124z00_1917;

																	{	/* Match/normalize.scm 557 */
																		obj_t BgL_arg1822z00_1929;

																		{	/* Match/normalize.scm 557 */
																			obj_t BgL_pairz00_2992;

																			BgL_pairz00_2992 =
																				CAR(((obj_t) BgL_fieldsz00_1894));
																			BgL_arg1822z00_1929 =
																				CAR(BgL_pairz00_2992);
																		}
																		BgL_head1124z00_1917 =
																			MAKE_YOUNG_PAIR(BgL_arg1822z00_1929,
																			BNIL);
																	}
																	{	/* Match/normalize.scm 557 */
																		obj_t BgL_g1127z00_1918;

																		BgL_g1127z00_1918 =
																			CDR(((obj_t) BgL_fieldsz00_1894));
																		{
																			obj_t BgL_l1122z00_3013;
																			obj_t BgL_tail1125z00_3014;

																			BgL_l1122z00_3013 = BgL_g1127z00_1918;
																			BgL_tail1125z00_3014 =
																				BgL_head1124z00_1917;
																		BgL_zc3z04anonymousza31817ze3z87_3012:
																			if (NULLP(BgL_l1122z00_3013))
																				{	/* Match/normalize.scm 557 */
																					BgL_reallyzd2fieldszd2_1912 =
																						BgL_head1124z00_1917;
																				}
																			else
																				{	/* Match/normalize.scm 557 */
																					obj_t BgL_newtail1126z00_3021;

																					{	/* Match/normalize.scm 557 */
																						obj_t BgL_arg1820z00_3022;

																						{	/* Match/normalize.scm 557 */
																							obj_t BgL_pairz00_3026;

																							BgL_pairz00_3026 =
																								CAR(
																								((obj_t) BgL_l1122z00_3013));
																							BgL_arg1820z00_3022 =
																								CAR(BgL_pairz00_3026);
																						}
																						BgL_newtail1126z00_3021 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1820z00_3022, BNIL);
																					}
																					SET_CDR(BgL_tail1125z00_3014,
																						BgL_newtail1126z00_3021);
																					{	/* Match/normalize.scm 557 */
																						obj_t BgL_arg1819z00_3024;

																						BgL_arg1819z00_3024 =
																							CDR(((obj_t) BgL_l1122z00_3013));
																						{
																							obj_t BgL_tail1125z00_5499;
																							obj_t BgL_l1122z00_5498;

																							BgL_l1122z00_5498 =
																								BgL_arg1819z00_3024;
																							BgL_tail1125z00_5499 =
																								BgL_newtail1126z00_3021;
																							BgL_tail1125z00_3014 =
																								BgL_tail1125z00_5499;
																							BgL_l1122z00_3013 =
																								BgL_l1122z00_5498;
																							goto
																								BgL_zc3z04anonymousza31817ze3z87_3012;
																						}
																					}
																				}
																		}
																	}
																}
															{	/* Match/normalize.scm 559 */
																obj_t BgL_arg1814z00_1913;

																{	/* Match/normalize.scm 559 */
																	obj_t BgL_arg1815z00_1914;

																	BgL_arg1815z00_1914 =
																		MAKE_YOUNG_PAIR(BgL_predz00_1893,
																		BgL_fieldsz00_1894);
																	BgL_arg1814z00_1913 =
																		MAKE_YOUNG_PAIR(BgL_namez00_1891,
																		BgL_arg1815z00_1914);
																}
																return
																	(BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7
																	=
																	MAKE_YOUNG_PAIR(BgL_arg1814z00_1913,
																		BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7),
																	BUNSPEC);
															}
														}
													}
												else
													{	/* Match/normalize.scm 555 */
														return
															BGl_errorz00zz__errorz00
															(BGl_string2321z00zz__match_normaliza7eza7,
															BgL_expz00_57,
															BGl_symbol2322z00zz__match_normaliza7eza7);
													}
											}
										else
											{	/* Match/normalize.scm 555 */
												return
													BGl_errorz00zz__errorz00
													(BGl_string2321z00zz__match_normaliza7eza7,
													BgL_expz00_57,
													BGl_symbol2322z00zz__match_normaliza7eza7);
											}
									}
								else
									{	/* Match/normalize.scm 555 */
										return
											BGl_errorz00zz__errorz00
											(BGl_string2321z00zz__match_normaliza7eza7, BgL_expz00_57,
											BGl_symbol2322z00zz__match_normaliza7eza7);
									}
							}
						else
							{	/* Match/normalize.scm 555 */
								return
									BGl_errorz00zz__errorz00
									(BGl_string2321z00zz__match_normaliza7eza7, BgL_expz00_57,
									BGl_symbol2322z00zz__match_normaliza7eza7);
							}
					}
				else
					{	/* Match/normalize.scm 555 */
						return
							BGl_errorz00zz__errorz00
							(BGl_string2321z00zz__match_normaliza7eza7, BgL_expz00_57,
							BGl_symbol2322z00zz__match_normaliza7eza7);
					}
			}
		}

	}



/* &match-define-record-type! */
	obj_t
		BGl_z62matchzd2definezd2recordzd2typez12za2zz__match_normaliza7eza7(obj_t
		BgL_envz00_3654, obj_t BgL_expz00_3655)
	{
		{	/* Match/normalize.scm 554 */
			return
				BGl_matchzd2definezd2recordzd2typez12zc0zz__match_normaliza7eza7
				(BgL_expz00_3655);
		}

	}



/* standardize-struct */
	obj_t BGl_standardiza7ezd2structz75zz__match_normaliza7eza7(obj_t BgL_ez00_58)
	{
		{	/* Match/normalize.scm 567 */
			{	/* Match/normalize.scm 568 */
				obj_t BgL_zc3z04anonymousza31825ze3z87_3656;

				BgL_zc3z04anonymousza31825ze3z87_3656 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31825ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31825ze3z87_3656, (int) (0L),
					BgL_ez00_58);
				return BgL_zc3z04anonymousza31825ze3z87_3656;
			}
		}

	}



/* &<@anonymous:1825> */
	obj_t BGl_z62zc3z04anonymousza31825ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3657, obj_t BgL_rz00_3659, obj_t BgL_cz00_3660)
	{
		{	/* Match/normalize.scm 568 */
			{	/* Match/normalize.scm 572 */
				obj_t BgL_ez00_3658;

				BgL_ez00_3658 = ((obj_t) PROCEDURE_REF(BgL_envz00_3657, (int) (0L)));
				{
					obj_t BgL_providedzd2fieldszd2_3926;

					{	/* Match/normalize.scm 579 */
						obj_t BgL_fz00_3934;

						BgL_fz00_3934 =
							BGl_structzd2ze3listz31zz__structurez00(BgL_ez00_3658);
						{	/* Match/normalize.scm 581 */
							obj_t BgL_structurez00_3935;

							{	/* Match/normalize.scm 582 */
								bool_t BgL_test2502z00_5522;

								{	/* Match/normalize.scm 582 */
									obj_t BgL_tmpz00_5523;

									BgL_tmpz00_5523 = CAR(BgL_fz00_3934);
									BgL_test2502z00_5522 = PAIRP(BgL_tmpz00_5523);
								}
								if (BgL_test2502z00_5522)
									{	/* Match/normalize.scm 583 */
										obj_t BgL_arg1848z00_3936;

										{	/* Match/normalize.scm 583 */
											obj_t BgL_l1134z00_3937;

											BgL_l1134z00_3937 = CDR(BgL_fz00_3934);
											if (NULLP(BgL_l1134z00_3937))
												{	/* Match/normalize.scm 583 */
													BgL_arg1848z00_3936 = BNIL;
												}
											else
												{	/* Match/normalize.scm 583 */
													obj_t BgL_head1136z00_3938;

													{	/* Match/normalize.scm 583 */
														obj_t BgL_arg1856z00_3939;

														{	/* Match/normalize.scm 583 */
															obj_t BgL_pairz00_3940;

															BgL_pairz00_3940 =
																CAR(((obj_t) BgL_l1134z00_3937));
															BgL_arg1856z00_3939 = CAR(BgL_pairz00_3940);
														}
														BgL_head1136z00_3938 =
															MAKE_YOUNG_PAIR(BgL_arg1856z00_3939, BNIL);
													}
													{	/* Match/normalize.scm 583 */
														obj_t BgL_g1139z00_3941;

														BgL_g1139z00_3941 =
															CDR(((obj_t) BgL_l1134z00_3937));
														{
															obj_t BgL_l1134z00_3943;
															obj_t BgL_tail1137z00_3944;

															BgL_l1134z00_3943 = BgL_g1139z00_3941;
															BgL_tail1137z00_3944 = BgL_head1136z00_3938;
														BgL_zc3z04anonymousza31850ze3z87_3942:
															if (NULLP(BgL_l1134z00_3943))
																{	/* Match/normalize.scm 583 */
																	BgL_arg1848z00_3936 = BgL_head1136z00_3938;
																}
															else
																{	/* Match/normalize.scm 583 */
																	obj_t BgL_newtail1138z00_3945;

																	{	/* Match/normalize.scm 583 */
																		obj_t BgL_arg1853z00_3946;

																		{	/* Match/normalize.scm 583 */
																			obj_t BgL_pairz00_3947;

																			BgL_pairz00_3947 =
																				CAR(((obj_t) BgL_l1134z00_3943));
																			BgL_arg1853z00_3946 =
																				CAR(BgL_pairz00_3947);
																		}
																		BgL_newtail1138z00_3945 =
																			MAKE_YOUNG_PAIR(BgL_arg1853z00_3946,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1137z00_3944,
																		BgL_newtail1138z00_3945);
																	{	/* Match/normalize.scm 583 */
																		obj_t BgL_arg1852z00_3948;

																		BgL_arg1852z00_3948 =
																			CDR(((obj_t) BgL_l1134z00_3943));
																		{
																			obj_t BgL_tail1137z00_5545;
																			obj_t BgL_l1134z00_5544;

																			BgL_l1134z00_5544 = BgL_arg1852z00_3948;
																			BgL_tail1137z00_5545 =
																				BgL_newtail1138z00_3945;
																			BgL_tail1137z00_3944 =
																				BgL_tail1137z00_5545;
																			BgL_l1134z00_3943 = BgL_l1134z00_5544;
																			goto
																				BgL_zc3z04anonymousza31850ze3z87_3942;
																		}
																	}
																}
														}
													}
												}
										}
										BgL_providedzd2fieldszd2_3926 = BgL_arg1848z00_3936;
										{
											obj_t BgL_sz00_3928;

											BgL_sz00_3928 =
												BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7;
										BgL_loop1z00_3927:
											{
												obj_t BgL_pzd2fzd2_3930;

												BgL_pzd2fzd2_3930 = BgL_providedzd2fieldszd2_3926;
											BgL_loop2z00_3929:
												if (NULLP(BgL_sz00_3928))
													{	/* Match/normalize.scm 572 */
														BgL_structurez00_3935 =
															BGl_errorz00zz__errorz00
															(BGl_string2326z00zz__match_normaliza7eza7,
															BgL_providedzd2fieldszd2_3926, BNIL);
													}
												else
													{	/* Match/normalize.scm 572 */
														if (NULLP(BgL_pzd2fzd2_3930))
															{	/* Match/normalize.scm 574 */
																BgL_structurez00_3935 =
																	CAR(((obj_t) BgL_sz00_3928));
															}
														else
															{	/* Match/normalize.scm 576 */
																bool_t BgL_test2507z00_5553;

																{	/* Match/normalize.scm 576 */
																	obj_t BgL_tmpz00_5554;

																	{	/* Match/normalize.scm 576 */
																		obj_t BgL_auxz00_5555;

																		{	/* Match/normalize.scm 576 */
																			obj_t BgL_pairz00_3931;

																			BgL_pairz00_3931 =
																				CAR(((obj_t) BgL_sz00_3928));
																			BgL_auxz00_5555 = CDR(BgL_pairz00_3931);
																		}
																		BgL_tmpz00_5554 =
																			BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																			(CAR(((obj_t) BgL_pzd2fzd2_3930)),
																			BgL_auxz00_5555);
																	}
																	BgL_test2507z00_5553 = CBOOL(BgL_tmpz00_5554);
																}
																if (BgL_test2507z00_5553)
																	{	/* Match/normalize.scm 577 */
																		obj_t BgL_arg1873z00_3932;

																		BgL_arg1873z00_3932 =
																			CDR(((obj_t) BgL_pzd2fzd2_3930));
																		{
																			obj_t BgL_pzd2fzd2_5565;

																			BgL_pzd2fzd2_5565 = BgL_arg1873z00_3932;
																			BgL_pzd2fzd2_3930 = BgL_pzd2fzd2_5565;
																			goto BgL_loop2z00_3929;
																		}
																	}
																else
																	{	/* Match/normalize.scm 578 */
																		obj_t BgL_arg1876z00_3933;

																		BgL_arg1876z00_3933 =
																			CDR(((obj_t) BgL_sz00_3928));
																		{
																			obj_t BgL_sz00_5568;

																			BgL_sz00_5568 = BgL_arg1876z00_3933;
																			BgL_sz00_3928 = BgL_sz00_5568;
																			goto BgL_loop1z00_3927;
																		}
																	}
															}
													}
											}
										}
									}
								else
									{	/* Match/normalize.scm 584 */
										bool_t BgL_test2508z00_5569;

										{	/* Match/normalize.scm 584 */
											obj_t BgL_arg1862z00_3949;

											BgL_arg1862z00_3949 = CAR(BgL_fz00_3934);
											BgL_test2508z00_5569 =
												CBOOL(BGl_assocz00zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1862z00_3949,
													BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7));
										}
										if (BgL_test2508z00_5569)
											{	/* Match/normalize.scm 585 */
												obj_t BgL_arg1860z00_3950;

												BgL_arg1860z00_3950 = CAR(BgL_fz00_3934);
												BgL_structurez00_3935 =
													BGl_assocz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1860z00_3950,
													BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7);
											}
										else
											{	/* Match/normalize.scm 588 */
												obj_t BgL_arg1861z00_3951;

												BgL_arg1861z00_3951 = CAR(BgL_fz00_3934);
												BgL_structurez00_3935 =
													BGl_errorz00zz__errorz00
													(BGl_symbol2327z00zz__match_normaliza7eza7,
													BGl_string2329z00zz__match_normaliza7eza7,
													BgL_arg1861z00_3951);
											}
									}
							}
							{	/* Match/normalize.scm 582 */
								obj_t BgL_namez00_3952;

								BgL_namez00_3952 = CAR(((obj_t) BgL_structurez00_3935));
								{	/* Match/normalize.scm 589 */
									obj_t BgL_predz00_3953;

									{	/* Match/normalize.scm 590 */
										obj_t BgL_pairz00_3954;

										BgL_pairz00_3954 = CDR(((obj_t) BgL_structurez00_3935));
										BgL_predz00_3953 = CAR(BgL_pairz00_3954);
									}
									{	/* Match/normalize.scm 590 */
										obj_t BgL_fieldsz00_3955;

										{	/* Match/normalize.scm 591 */
											obj_t BgL_pairz00_3956;

											BgL_pairz00_3956 = CDR(((obj_t) BgL_structurez00_3935));
											BgL_fieldsz00_3955 = CDR(BgL_pairz00_3956);
										}
										{	/* Match/normalize.scm 591 */
											obj_t BgL_providedzd2fieldszd2_3957;

											{	/* Match/normalize.scm 592 */
												bool_t BgL_test2509z00_5585;

												{	/* Match/normalize.scm 592 */
													obj_t BgL_tmpz00_5586;

													BgL_tmpz00_5586 = CAR(BgL_fz00_3934);
													BgL_test2509z00_5585 = PAIRP(BgL_tmpz00_5586);
												}
												if (BgL_test2509z00_5585)
													{	/* Match/normalize.scm 592 */
														BgL_providedzd2fieldszd2_3957 = BgL_fz00_3934;
													}
												else
													{	/* Match/normalize.scm 592 */
														BgL_providedzd2fieldszd2_3957 = CDR(BgL_fz00_3934);
													}
											}
											{	/* Match/normalize.scm 592 */
												obj_t BgL_patternz00_3958;

												{	/* Match/normalize.scm 604 */
													obj_t BgL_arg1827z00_3959;

													{	/* Match/normalize.scm 604 */
														obj_t BgL_arg1828z00_3960;

														{	/* Match/normalize.scm 604 */
															obj_t BgL_arg1829z00_3961;

															{	/* Match/normalize.scm 604 */
																bool_t BgL_test2510z00_5590;

																{	/* Match/normalize.scm 604 */
																	obj_t BgL_tmpz00_5591;

																	BgL_tmpz00_5591 = CAR(BgL_fz00_3934);
																	BgL_test2510z00_5590 = PAIRP(BgL_tmpz00_5591);
																}
																if (BgL_test2510z00_5590)
																	{	/* Match/normalize.scm 604 */
																		if (NULLP(BgL_fieldsz00_3955))
																			{	/* Match/normalize.scm 605 */
																				BgL_arg1829z00_3961 = BNIL;
																			}
																		else
																			{	/* Match/normalize.scm 605 */
																				obj_t BgL_head1142z00_3962;

																				BgL_head1142z00_3962 =
																					MAKE_YOUNG_PAIR(BNIL, BNIL);
																				{
																					obj_t BgL_l1140z00_3964;
																					obj_t BgL_tail1143z00_3965;

																					BgL_l1140z00_3964 =
																						BgL_fieldsz00_3955;
																					BgL_tail1143z00_3965 =
																						BgL_head1142z00_3962;
																				BgL_zc3z04anonymousza31833ze3z87_3963:
																					if (NULLP(BgL_l1140z00_3964))
																						{	/* Match/normalize.scm 605 */
																							BgL_arg1829z00_3961 =
																								CDR(BgL_head1142z00_3962);
																						}
																					else
																						{	/* Match/normalize.scm 605 */
																							obj_t BgL_newtail1144z00_3966;

																							{	/* Match/normalize.scm 605 */
																								obj_t BgL_arg1836z00_3967;

																								{	/* Match/normalize.scm 605 */
																									obj_t BgL_fieldz00_3968;

																									BgL_fieldz00_3968 =
																										CAR(
																										((obj_t)
																											BgL_l1140z00_3964));
																									if (CBOOL
																										(BGl_assocz00zz__r4_pairs_and_lists_6_3z00
																											(BgL_fieldz00_3968,
																												BgL_providedzd2fieldszd2_3957)))
																										{	/* Match/normalize.scm 607 */
																											obj_t BgL_pairz00_3969;

																											BgL_pairz00_3969 =
																												BGl_assocz00zz__r4_pairs_and_lists_6_3z00
																												(BgL_fieldz00_3968,
																												BgL_providedzd2fieldszd2_3957);
																											BgL_arg1836z00_3967 =
																												CAR(CDR
																												(BgL_pairz00_3969));
																										}
																									else
																										{	/* Match/normalize.scm 606 */
																											BgL_arg1836z00_3967 =
																												BGl_symbol2261z00zz__match_normaliza7eza7;
																										}
																								}
																								BgL_newtail1144z00_3966 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1836z00_3967, BNIL);
																							}
																							SET_CDR(BgL_tail1143z00_3965,
																								BgL_newtail1144z00_3966);
																							{	/* Match/normalize.scm 605 */
																								obj_t BgL_arg1835z00_3970;

																								BgL_arg1835z00_3970 =
																									CDR(
																									((obj_t) BgL_l1140z00_3964));
																								{
																									obj_t BgL_tail1143z00_5613;
																									obj_t BgL_l1140z00_5612;

																									BgL_l1140z00_5612 =
																										BgL_arg1835z00_3970;
																									BgL_tail1143z00_5613 =
																										BgL_newtail1144z00_3966;
																									BgL_tail1143z00_3965 =
																										BgL_tail1143z00_5613;
																									BgL_l1140z00_3964 =
																										BgL_l1140z00_5612;
																									goto
																										BgL_zc3z04anonymousza31833ze3z87_3963;
																								}
																							}
																						}
																				}
																			}
																	}
																else
																	{	/* Match/normalize.scm 604 */
																		BgL_arg1829z00_3961 = CDR(BgL_fz00_3934);
																	}
															}
															BgL_arg1828z00_3960 =
																MAKE_YOUNG_PAIR(BgL_predz00_3953,
																BgL_arg1829z00_3961);
														}
														BgL_arg1827z00_3959 =
															MAKE_YOUNG_PAIR(BgL_namez00_3952,
															BgL_arg1828z00_3960);
													}
													BgL_patternz00_3958 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2238z00zz__match_normaliza7eza7,
														BgL_arg1827z00_3959);
												}
												{	/* Match/normalize.scm 600 */

													{	/* Match/normalize.scm 611 */
														obj_t BgL_fun1826z00_3971;

														BgL_fun1826z00_3971 =
															BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
															(BgL_patternz00_3958);
														return BGL_PROCEDURE_CALL2(BgL_fun1826z00_3971,
															BgL_rz00_3659, BgL_cz00_3660);
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__match_normaliza7eza7(void)
	{
		{	/* Match/normalize.scm 2 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2330z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(509060701L,
				BSTRING_TO_STRING(BGl_string2330z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2330z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2330z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2330z00zz__match_normaliza7eza7));
			return
				BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2330z00zz__match_normaliza7eza7));
		}

	}

#ifdef __cplusplus
}
#endif
