/*===========================================================================*/
/*   (Match/normalize.scm)                                                   */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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_z62zc3z04anonymousza31353ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31507ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31256ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 =
		BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31579ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31621ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31370ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31524ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7 =
		BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31685ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	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_z62zc3z04anonymousza31363ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31355ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31589ze3ze5zz__match_normaliza7eza7(obj_t, 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 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 long BGl_patternzd2lengthzd2zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_makezd2togglezd2zz__match_normaliza7eza7(void);
	static obj_t
		BGl_z62zc3z04anonymousza31616ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31535ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31292ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31284ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t BGl_standardiza7ezd2vectorz75zz__match_normaliza7eza7(obj_t);
	extern obj_t BGl_jimzd2gensymzd2zz__match_s2cfunz00;
	static obj_t BGl_unboundzd2patternzd2zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_standardiza7ezd2structz75zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31560ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31625ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31374ze3ze5zz__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_symbol2300z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31689ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2302z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_rzd2macrozd2patternzd2initzd2zz__match_normaliza7eza7 =
		BUNSPEC;
	static obj_t BGl_genericzd2initzd2zz__match_normaliza7eza7(void);
	static obj_t BGl_symbol2223z00zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol2305z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2226z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_z62extendzd2rzd2macrozd2envzb0zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2309z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2229z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31400ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_oczd2countzd2zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__match_normaliza7eza7(void);
	static obj_t BGl_gczd2rootszd2initz00zz__match_normaliza7eza7(void);
	static obj_t
		BGl_z62zc3z04anonymousza31545ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31286ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31359ze3ze5zz__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_symbol2313z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2232z00zz__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);
	static obj_t
		BGl_z62zc3z04anonymousza31740ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31554ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31465ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2241z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2323z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2243z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2327z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2246z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2249z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31628ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31385ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31539ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31377ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2330z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2332z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2252z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31465ze32219ze5zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_standardiza7ezd2realzd2xconsza7zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t BGl_symbol2335z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2255z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2304z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_standardiza7ezd2repetitionz75zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t BGl_standardiza7ezd2realzd2consza7zz__match_normaliza7eza7(obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t
		BGl_standardiza7ezd2segmentzd2variableza7zz__match_normaliza7eza7(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31548ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31465ze32221ze5zz__match_normaliza7eza7(obj_t,
		obj_t, obj_t);
	static bool_t BGl_treezd2variablezf3z21zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_list2311z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2312z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2264z00zz__match_normaliza7eza7 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol2266z00zz__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_z62zc3z04anonymousza31501ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31250ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31727ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31557ze3ze5zz__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_z62zc3z04anonymousza31579ze32220ze5zz__match_normaliza7eza7(obj_t,
		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_list2321z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2273z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2322z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2325z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2277z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_list2326z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2279z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31340ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31324ze3ze5zz__match_normaliza7eza7(obj_t, 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_z62zc3z04anonymousza31566ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31396ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	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;
	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_z62zc3z04anonymousza31842ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31664ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31583ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_standardiza7ezd2lispishzd2segmentzd2variablez75zz__match_normaliza7eza7
		(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31389ze3ze5zz__match_normaliza7eza7(obj_t, 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_symbol2296z00zz__match_normaliza7eza7 = BUNSPEC;
	static bool_t BGl_termzd2variablezf3z21zz__match_normaliza7eza7(obj_t);
	static obj_t BGl_symbol2298z00zz__match_normaliza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31504ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31334ze3ze5zz__match_normaliza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31407ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_standardiza7ezd2termzd2variableza7zz__match_normaliza7eza7(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);
	static obj_t
		BGl_z62matchzd2definezd2structurez12z70zz__match_normaliza7eza7(obj_t,
		obj_t);
	extern obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
	static bool_t
		BGl_lispishzd2segmentzd2variablezf3zf3zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31408ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31569ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		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_z62zc3z04anonymousza31344ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31336ze3ze5zz__match_normaliza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STRING(BGl_string2301z00zz__match_normaliza7eza7,
		BgL_bgl_string2301za700za7za7_2339za7, "ssetq-append", 12);
	      DEFINE_STRING(BGl_string2303z00zz__match_normaliza7eza7,
		BgL_bgl_string2303za700za7za7_2340za7, "eval-append", 11);
	      DEFINE_STRING(BGl_string2224z00zz__match_normaliza7eza7,
		BgL_bgl_string2224za700za7za7_2341za7, "atom", 4);
	      DEFINE_STRING(BGl_string2306z00zz__match_normaliza7eza7,
		BgL_bgl_string2306za700za7za7_2342za7, "tagged-or", 9);
	      DEFINE_STRING(BGl_string2227z00zz__match_normaliza7eza7,
		BgL_bgl_string2227za700za7za7_2343za7, "or", 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_extendzd2rzd2macrozd2envzd2envz00zz__match_normaliza7eza7,
		BgL_bgl_za762extendza7d2rza7d22344za7,
		BGl_z62extendzd2rzd2macrozd2envzb0zz__match_normaliza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2222z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2345za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31250ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2310z00zz__match_normaliza7eza7,
		BgL_bgl_string2310za700za7za7_2346za7, "vector-begin", 12);
	      DEFINE_STRING(BGl_string2230z00zz__match_normaliza7eza7,
		BgL_bgl_string2230za700za7za7_2347za7, "t-or", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2225z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2348za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31284ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2307z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2349za7,
		BGl_z62zc3z04anonymousza31727ze3ze5zz__match_normaliza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2314z00zz__match_normaliza7eza7,
		BgL_bgl_string2314za700za7za7_2350za7, "vector-any", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2308z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2351za7,
		BGl_z62zc3z04anonymousza31465ze32221ze5zz__match_normaliza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2233z00zz__match_normaliza7eza7,
		BgL_bgl_string2233za700za7za7_2352za7, "and", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2228z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2353za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31334ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2316z00zz__match_normaliza7eza7,
		BgL_bgl_string2316za700za7za7_2354za7, "vector-cons", 11);
	      DEFINE_STRING(BGl_string2236z00zz__match_normaliza7eza7,
		BgL_bgl_string2236za700za7za7_2355za7, "not", 3);
	      DEFINE_STRING(BGl_string2239z00zz__match_normaliza7eza7,
		BgL_bgl_string2239za700za7za7_2356za7, "?", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2231z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2357za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31353ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2320z00zz__match_normaliza7eza7,
		BgL_bgl_string2320za700za7za7_2358za7, "vector-end", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2234z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2359za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31370ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2242z00zz__match_normaliza7eza7,
		BgL_bgl_string2242za700za7za7_2360za7, "kwote", 5);
	      DEFINE_STRING(BGl_string2324z00zz__match_normaliza7eza7,
		BgL_bgl_string2324za700za7za7_2361za7, "vector-times", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2237z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2362za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31385ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2244z00zz__match_normaliza7eza7,
		BgL_bgl_string2244za700za7za7_2363za7, "**Bad-Luck096561123523452**", 27);
	      DEFINE_STRING(BGl_string2328z00zz__match_normaliza7eza7,
		BgL_bgl_string2328za700za7za7_2364za7, "define-struct", 13);
	      DEFINE_STRING(BGl_string2247z00zz__match_normaliza7eza7,
		BgL_bgl_string2247za700za7za7_2365za7, "struct-pat", 10);
	      DEFINE_STRING(BGl_string2329z00zz__match_normaliza7eza7,
		BgL_bgl_string2329za700za7za7_2366za7, "Incorrect declaration: ", 23);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2240z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2367za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31396ze3ze5zz__match_normaliza7eza7, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2331z00zz__match_normaliza7eza7,
		BgL_bgl_string2331za700za7za7_2368za7, "Aborted", 7);
	      DEFINE_STRING(BGl_string2250z00zz__match_normaliza7eza7,
		BgL_bgl_string2250za700za7za7_2369za7, "Pattern-Matching", 16);
	      DEFINE_STRING(BGl_string2251z00zz__match_normaliza7eza7,
		BgL_bgl_string2251za700za7za7_2370za7, "Illegal `kwote' form", 20);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2245z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2371za7, va_generic_entry,
		BGl_z62zc3z04anonymousza31407ze3ze5zz__match_normaliza7eza7, BUNSPEC, -3);
	      DEFINE_STRING(BGl_string2333z00zz__match_normaliza7eza7,
		BgL_bgl_string2333za700za7za7_2372za7, "define-record-type", 18);
	      DEFINE_STRING(BGl_string2334z00zz__match_normaliza7eza7,
		BgL_bgl_string2334za700za7za7_2373za7, "No such structure: ", 19);
	      DEFINE_STRING(BGl_string2253z00zz__match_normaliza7eza7,
		BgL_bgl_string2253za700za7za7_2374za7, "quote", 5);
	      DEFINE_STRING(BGl_string2254z00zz__match_normaliza7eza7,
		BgL_bgl_string2254za700za7za7_2375za7, "Illegal `?' form", 16);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2248z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2376za7,
		BGl_z62zc3z04anonymousza31465ze3ze5zz__match_normaliza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2336z00zz__match_normaliza7eza7,
		BgL_bgl_string2336za700za7za7_2377za7, "match-case", 10);
	      DEFINE_STRING(BGl_string2337z00zz__match_normaliza7eza7,
		BgL_bgl_string2337za700za7za7_2378za7, "No such structure ", 18);
	      DEFINE_STRING(BGl_string2256z00zz__match_normaliza7eza7,
		BgL_bgl_string2256za700za7za7_2379za7, "check", 5);
	      DEFINE_STRING(BGl_string2338z00zz__match_normaliza7eza7,
		BgL_bgl_string2338za700za7za7_2380za7, "__match_normalize", 17);
	      DEFINE_STRING(BGl_string2257z00zz__match_normaliza7eza7,
		BgL_bgl_string2257za700za7za7_2381za7, "Illegal `not'", 13);
	      DEFINE_STRING(BGl_string2258z00zz__match_normaliza7eza7,
		BgL_bgl_string2258za700za7za7_2382za7, "Illegal `and' form", 18);
	      DEFINE_STRING(BGl_string2259z00zz__match_normaliza7eza7,
		BgL_bgl_string2259za700za7za7_2383za7, "Illegal `t-or' form", 19);
	      DEFINE_STRING(BGl_string2260z00zz__match_normaliza7eza7,
		BgL_bgl_string2260za700za7za7_2384za7, "Incompatible alternative", 24);
	      DEFINE_STRING(BGl_string2261z00zz__match_normaliza7eza7,
		BgL_bgl_string2261za700za7za7_2385za7, "Illegal `or' form", 17);
	      DEFINE_STRING(BGl_string2262z00zz__match_normaliza7eza7,
		BgL_bgl_string2262za700za7za7_2386za7, "Illegal `atom' form", 19);
	      DEFINE_STRING(BGl_string2263z00zz__match_normaliza7eza7,
		BgL_bgl_string2263za700za7za7_2387za7,
		"Too many patterns provided for atom", 35);
	      DEFINE_STRING(BGl_string2265z00zz__match_normaliza7eza7,
		BgL_bgl_string2265za700za7za7_2388za7, "any", 3);
	      DEFINE_STRING(BGl_string2267z00zz__match_normaliza7eza7,
		BgL_bgl_string2267za700za7za7_2389za7, "cons", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_matchzd2definezd2recordzd2typez12zd2envz12zz__match_normaliza7eza7,
		BgL_bgl_za762matchza7d2defin2390z00,
		BGl_z62matchzd2definezd2recordzd2typez12za2zz__match_normaliza7eza7, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2270z00zz__match_normaliza7eza7,
		BgL_bgl_string2270za700za7za7_2391za7, "?-", 2);
	      DEFINE_STRING(BGl_string2272z00zz__match_normaliza7eza7,
		BgL_bgl_string2272za700za7za7_2392za7, "\077\077-", 3);
	      DEFINE_STRING(BGl_string2274z00zz__match_normaliza7eza7,
		BgL_bgl_string2274za700za7za7_2393za7, "\077\077?-", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2268z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2394za7,
		BGl_z62zc3z04anonymousza31465ze32219ze5zz__match_normaliza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2275z00zz__match_normaliza7eza7,
		BgL_bgl_string2275za700za7za7_2395za7, "g", 1);
	      DEFINE_STRING(BGl_string2276z00zz__match_normaliza7eza7,
		BgL_bgl_string2276za700za7za7_2396za7, "HOLE-", 5);
	      DEFINE_STRING(BGl_string2278z00zz__match_normaliza7eza7,
		BgL_bgl_string2278za700za7za7_2397za7, "hole", 4);
	      DEFINE_STRING(BGl_string2280z00zz__match_normaliza7eza7,
		BgL_bgl_string2280za700za7za7_2398za7, "times", 5);
	      DEFINE_STRING(BGl_string2283z00zz__match_normaliza7eza7,
		BgL_bgl_string2283za700za7za7_2399za7, "...", 3);
	      DEFINE_STRING(BGl_string2285z00zz__match_normaliza7eza7,
		BgL_bgl_string2285za700za7za7_2400za7, "value", 5);
	      DEFINE_STRING(BGl_string2287z00zz__match_normaliza7eza7,
		BgL_bgl_string2287za700za7za7_2401za7, "on", 2);
	      DEFINE_STRING(BGl_string2289z00zz__match_normaliza7eza7,
		BgL_bgl_string2289za700za7za7_2402za7, "off", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2281z00zz__match_normaliza7eza7,
		BgL_bgl_za762za7c3za704anonymo2403za7,
		BGl_z62zc3z04anonymousza31524ze3ze5zz__match_normaliza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2291z00zz__match_normaliza7eza7,
		BgL_bgl_string2291za700za7za7_2404za7, "xcons", 5);
	      DEFINE_STRING(BGl_string2293z00zz__match_normaliza7eza7,
		BgL_bgl_string2293za700za7za7_2405za7, "var", 3);
	      DEFINE_STRING(BGl_string2295z00zz__match_normaliza7eza7,
		BgL_bgl_string2295za700za7za7_2406za7, "segment", 7);
	      DEFINE_STRING(BGl_string2297z00zz__match_normaliza7eza7,
		BgL_bgl_string2297za700za7za7_2407za7, "end-ssetq", 9);
	      DEFINE_STRING(BGl_string2299z00zz__match_normaliza7eza7,
		BgL_bgl_string2299za700za7za7_2408za7, "tree", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_matchzd2definezd2structurez12zd2envzc0zz__match_normaliza7eza7,
		BgL_bgl_za762matchza7d2defin2409z00,
		BGl_z62matchzd2definezd2structurez12z70zz__match_normaliza7eza7, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_normaliza7ezd2patternzd2envza7zz__match_normaliza7eza7,
		BgL_bgl_za762normaliza7a7eza7d2410za7,
		BGl_z62normaliza7ezd2patternz17zz__match_normaliza7eza7, 0L, BUNSPEC, 1);

/* 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_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7));
		     ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_unboundzd2patternzd2zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2300z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2302z00zz__match_normaliza7eza7));
		   
			 ADD_ROOT((void
				*) (&BGl_rzd2macrozd2patternzd2initzd2zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2223z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2305z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2226z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2309z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2229z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2313z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2232z00zz__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_symbol2241z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2323z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2243z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2327z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2246z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2249z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2330z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2332z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2252z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2335z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2255z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_list2304z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_list2311z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_list2312z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2264z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2266z00zz__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_list2321z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2273z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_list2322z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_list2325z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2277z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_list2326z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2279z00zz__match_normaliza7eza7));
		   
			 ADD_ROOT((void
				*) (&BGl_za2preferzd2xconsza2zd2zz__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_symbol2296z00zz__match_normaliza7eza7));
		     ADD_ROOT((void *) (&BGl_symbol2298z00zz__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_3935, char *BgL_fromz00_3936)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7))
				{
					BGl_requirezd2initializa7ationz75zz__match_normaliza7eza7 =
						BBOOL(((bool_t) 0));
					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_symbol2223z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2224z00zz__match_normaliza7eza7);
			BGl_symbol2226z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2227z00zz__match_normaliza7eza7);
			BGl_symbol2229z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2230z00zz__match_normaliza7eza7);
			BGl_symbol2232z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2233z00zz__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_symbol2243z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2244z00zz__match_normaliza7eza7);
			BGl_symbol2246z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2247z00zz__match_normaliza7eza7);
			BGl_symbol2249z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2250z00zz__match_normaliza7eza7);
			BGl_symbol2252z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2253z00zz__match_normaliza7eza7);
			BGl_symbol2255z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2256z00zz__match_normaliza7eza7);
			BGl_symbol2264z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2265z00zz__match_normaliza7eza7);
			BGl_symbol2266z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2267z00zz__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_symbol2273z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2274z00zz__match_normaliza7eza7);
			BGl_symbol2277z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2278z00zz__match_normaliza7eza7);
			BGl_symbol2279z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2280z00zz__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_symbol2296z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2297z00zz__match_normaliza7eza7);
			BGl_symbol2298z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2299z00zz__match_normaliza7eza7);
			BGl_symbol2300z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2301z00zz__match_normaliza7eza7);
			BGl_symbol2302z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2303z00zz__match_normaliza7eza7);
			BGl_symbol2305z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2306z00zz__match_normaliza7eza7);
			BGl_list2304z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2226z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2232z00zz__match_normaliza7eza7,
					MAKE_YOUNG_PAIR(BGl_symbol2229z00zz__match_normaliza7eza7,
						MAKE_YOUNG_PAIR(BGl_symbol2305z00zz__match_normaliza7eza7,
							MAKE_YOUNG_PAIR(BGl_symbol2266z00zz__match_normaliza7eza7,
								MAKE_YOUNG_PAIR(BGl_symbol2235z00zz__match_normaliza7eza7,
									BNIL))))));
			BGl_symbol2309z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2310z00zz__match_normaliza7eza7);
			BGl_list2311z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
			BGl_symbol2313z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2314z00zz__match_normaliza7eza7);
			BGl_list2312z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2313z00zz__match_normaliza7eza7, BNIL);
			BGl_symbol2315z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2316z00zz__match_normaliza7eza7);
			BGl_list2317z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2252z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BNIL, BNIL));
			BGl_symbol2319z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2320z00zz__match_normaliza7eza7);
			BGl_list2318z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2319z00zz__match_normaliza7eza7, BNIL);
			BGl_list2321z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2232z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2226z00zz__match_normaliza7eza7,
					MAKE_YOUNG_PAIR(BGl_symbol2235z00zz__match_normaliza7eza7, BNIL)));
			BGl_list2322z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2279z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__match_normaliza7eza7, BNIL));
			BGl_symbol2323z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2324z00zz__match_normaliza7eza7);
			BGl_list2325z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__match_normaliza7eza7, BNIL));
			BGl_list2326z00zz__match_normaliza7eza7 =
				MAKE_YOUNG_PAIR(BGl_symbol2226z00zz__match_normaliza7eza7,
				MAKE_YOUNG_PAIR(BGl_symbol2232z00zz__match_normaliza7eza7,
					MAKE_YOUNG_PAIR(BGl_symbol2229z00zz__match_normaliza7eza7,
						MAKE_YOUNG_PAIR(BGl_symbol2305z00zz__match_normaliza7eza7, BNIL))));
			BGl_symbol2327z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2328z00zz__match_normaliza7eza7);
			BGl_symbol2330z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2331z00zz__match_normaliza7eza7);
			BGl_symbol2332z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2333z00zz__match_normaliza7eza7);
			return (BGl_symbol2335z00zz__match_normaliza7eza7 =
				bstring_to_symbol(BGl_string2336z00zz__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_2460;

				BgL_namez00_2460 = BGl_symbol2223z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2461;

					BgL_fnz00_2461 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1730z00_2462;

						BgL_arg1730z00_2462 =
							MAKE_YOUNG_PAIR(BgL_namez00_2460,
							BGl_proc2222z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2462, BgL_fnz00_2461);
			}}} BGl_symbol2223z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 375 */
				obj_t BgL_namez00_2465;

				BgL_namez00_2465 = BGl_symbol2226z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2466;

					BgL_fnz00_2466 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1730z00_2467;

						BgL_arg1730z00_2467 =
							MAKE_YOUNG_PAIR(BgL_namez00_2465,
							BGl_proc2225z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2467, BgL_fnz00_2466);
			}}} BGl_symbol2226z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 409 */
				obj_t BgL_namez00_2470;

				BgL_namez00_2470 = BGl_symbol2229z00zz__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_arg1730z00_2472;

						BgL_arg1730z00_2472 =
							MAKE_YOUNG_PAIR(BgL_namez00_2470,
							BGl_proc2228z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2472, BgL_fnz00_2471);
			}}} BGl_symbol2229z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 428 */
				obj_t BgL_namez00_2478;

				BgL_namez00_2478 = BGl_symbol2232z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2479;

					BgL_fnz00_2479 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1730z00_2480;

						BgL_arg1730z00_2480 =
							MAKE_YOUNG_PAIR(BgL_namez00_2478,
							BGl_proc2231z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2480, BgL_fnz00_2479);
			}}} BGl_symbol2232z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 444 */
				obj_t BgL_namez00_2491;

				BgL_namez00_2491 = BGl_symbol2235z00zz__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_arg1730z00_2493;

						BgL_arg1730z00_2493 =
							MAKE_YOUNG_PAIR(BgL_namez00_2491,
							BGl_proc2234z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2493, BgL_fnz00_2492);
			}}} BGl_symbol2235z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 454 */
				obj_t BgL_namez00_2499;

				BgL_namez00_2499 = BGl_symbol2238z00zz__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_arg1730z00_2501;

						BgL_arg1730z00_2501 =
							MAKE_YOUNG_PAIR(BgL_namez00_2499,
							BGl_proc2237z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2501, BgL_fnz00_2500);
			}}} BGl_symbol2238z00zz__match_normaliza7eza7;
			{	/* Match/normalize.scm 460 */
				obj_t BgL_namez00_2507;

				BgL_namez00_2507 = BGl_symbol2241z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2508;

					BgL_fnz00_2508 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1730z00_2509;

						BgL_arg1730z00_2509 =
							MAKE_YOUNG_PAIR(BgL_namez00_2507,
							BGl_proc2240z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2509, BgL_fnz00_2508);
			}}} BGl_symbol2241z00zz__match_normaliza7eza7;
			BGl_unboundzd2patternzd2zz__match_normaliza7eza7 =
				BGl_symbol2243z00zz__match_normaliza7eza7;
			BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 = BNIL;
			{	/* Match/normalize.scm 563 */
				obj_t BgL_namez00_2552;

				BgL_namez00_2552 = BGl_symbol2246z00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 343 */
					obj_t BgL_fnz00_2553;

					BgL_fnz00_2553 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
					{	/* Match/normalize.scm 334 */
						obj_t BgL_arg1730z00_2554;

						BgL_arg1730z00_2554 =
							MAKE_YOUNG_PAIR(BgL_namez00_2552,
							BGl_proc2245z00zz__match_normaliza7eza7);
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
							MAKE_YOUNG_PAIR(BgL_arg1730z00_2554, BgL_fnz00_2553);
			}}}
			return BGl_symbol2246z00zz__match_normaliza7eza7;
		}

	}



/* &<@anonymous:1407> */
	obj_t BGl_z62zc3z04anonymousza31407ze3ze5zz__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_zc3z04anonymousza31408ze3z87_3661;

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

	}



/* &<@anonymous:1408> */
	obj_t BGl_z62zc3z04anonymousza31408ze3ze5zz__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_arg1409z00_3662;

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

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

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

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

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

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

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

													BgL_arg1421z00_3669 = CAR(((obj_t) BgL_eza2za2_3386));
													{	/* Match/normalize.scm 124 */
														obj_t BgL_fun1464z00_3670;

														BgL_fun1464z00_3670 =
															BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
															(BgL_arg1421z00_3669);
														BgL_arg1420z00_3668 =
															(VA_PROCEDUREP(BgL_fun1464z00_3670)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_fun1464z00_3670))
															(BgL_fun1464z00_3670,
																BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
																BGl_proc2248z00zz__match_normaliza7eza7,
																BEOA) : ((obj_t(*)(obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_fun1464z00_3670))
															(BgL_fun1464z00_3670,
																BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
																BGl_proc2248z00zz__match_normaliza7eza7));
													}
												}
												BgL_head1137z00_3667 =
													MAKE_YOUNG_PAIR(BgL_arg1420z00_3668, BNIL);
											}
											{	/* Match/normalize.scm 565 */
												obj_t BgL_g1140z00_3672;

												BgL_g1140z00_3672 = CDR(((obj_t) BgL_eza2za2_3386));
												{
													obj_t BgL_l1135z00_3674;
													obj_t BgL_tail1138z00_3675;

													BgL_l1135z00_3674 = BgL_g1140z00_3672;
													BgL_tail1138z00_3675 = BgL_head1137z00_3667;
												BgL_zc3z04anonymousza31415ze3z87_3673:
													if (NULLP(BgL_l1135z00_3674))
														{	/* Match/normalize.scm 565 */
															BgL_arg1413z00_3666 = BgL_head1137z00_3667;
														}
													else
														{	/* Match/normalize.scm 565 */
															obj_t BgL_newtail1139z00_3676;

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

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

																	BgL_arg1419z00_3678 =
																		CAR(((obj_t) BgL_l1135z00_3674));
																	BgL_arg1418z00_3677 =
																		BGl_normaliza7ezd2patternz75zz__match_normaliza7eza7
																		(BgL_arg1419z00_3678);
																}
																BgL_newtail1139z00_3676 =
																	MAKE_YOUNG_PAIR(BgL_arg1418z00_3677, BNIL);
															}
															SET_CDR(BgL_tail1138z00_3675,
																BgL_newtail1139z00_3676);
															{	/* Match/normalize.scm 565 */
																obj_t BgL_arg1417z00_3679;

																BgL_arg1417z00_3679 =
																	CDR(((obj_t) BgL_l1135z00_3674));
																{
																	obj_t BgL_tail1138z00_4062;
																	obj_t BgL_l1135z00_4061;

																	BgL_l1135z00_4061 = BgL_arg1417z00_3679;
																	BgL_tail1138z00_4062 =
																		BgL_newtail1139z00_3676;
																	BgL_tail1138z00_3675 = BgL_tail1138z00_4062;
																	BgL_l1135z00_3674 = BgL_l1135z00_4061;
																	goto BgL_zc3z04anonymousza31415ze3z87_3673;
																}
															}
														}
												}
											}
										}
									BgL_arg1412z00_3665 =
										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1413z00_3666, BNIL);
								}
								BgL_arg1411z00_3664 =
									MAKE_YOUNG_PAIR(BgL_predz00_3387, BgL_arg1412z00_3665);
							}
							BgL_arg1410z00_3663 =
								MAKE_YOUNG_PAIR(BgL_namez00_3388, BgL_arg1411z00_3664);
						}
						BgL_arg1409z00_3662 =
							MAKE_YOUNG_PAIR(BGl_symbol2246z00zz__match_normaliza7eza7,
							BgL_arg1410z00_3663);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3390) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3390)) (BgL_cz00_3390,
							BgL_arg1409z00_3662, BgL_rz00_3389, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3390)) (BgL_cz00_3390,
							BgL_arg1409z00_3662, BgL_rz00_3389));
				}
			}
		}

	}



/* &<@anonymous:1465> */
	obj_t BGl_z62zc3z04anonymousza31465ze3ze5zz__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:1396> */
	obj_t BGl_z62zc3z04anonymousza31396ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3394, obj_t BgL_lz00_3395)
	{
		{	/* Match/normalize.scm 460 */
			{	/* Match/normalize.scm 461 */
				bool_t BgL_test2414z00_4072;

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

						BgL_tmpz00_4075 = CDR(((obj_t) BgL_lz00_3395));
						BgL_test2414z00_4072 = PAIRP(BgL_tmpz00_4075);
					}
				if (BgL_test2414z00_4072)
					{	/* Match/normalize.scm 461 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2249z00zz__match_normaliza7eza7,
							BGl_string2251z00zz__match_normaliza7eza7, BgL_lz00_3395);
					}
				else
					{	/* Match/normalize.scm 463 */
						obj_t BgL_zc3z04anonymousza31400ze3z87_3680;

						BgL_zc3z04anonymousza31400ze3z87_3680 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31400ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31400ze3z87_3680, (int) (0L),
							BgL_lz00_3395);
						return BgL_zc3z04anonymousza31400ze3z87_3680;
					}
			}
		}

	}



/* &<@anonymous:1400> */
	obj_t BGl_z62zc3z04anonymousza31400ze3ze5zz__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_arg1401z00_3681;

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

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

							BgL_arg1403z00_3683 = CAR(((obj_t) BgL_lz00_3397));
							BgL_arg1402z00_3682 = MAKE_YOUNG_PAIR(BgL_arg1403z00_3683, BNIL);
						}
						BgL_arg1401z00_3681 =
							MAKE_YOUNG_PAIR(BGl_symbol2252z00zz__match_normaliza7eza7,
							BgL_arg1402z00_3682);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3399) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3399)) (BgL_cz00_3399,
							BgL_arg1401z00_3681, BgL_rz00_3398, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3399)) (BgL_cz00_3399,
							BgL_arg1401z00_3681, BgL_rz00_3398));
				}
			}
		}

	}



/* &<@anonymous:1385> */
	obj_t BGl_z62zc3z04anonymousza31385ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3400, obj_t BgL_lz00_3401)
	{
		{	/* Match/normalize.scm 454 */
			{	/* Match/normalize.scm 455 */
				bool_t BgL_test2416z00_4096;

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

						BgL_tmpz00_4099 = CDR(((obj_t) BgL_lz00_3401));
						BgL_test2416z00_4096 = PAIRP(BgL_tmpz00_4099);
					}
				if (BgL_test2416z00_4096)
					{	/* Match/normalize.scm 455 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2249z00zz__match_normaliza7eza7,
							BGl_string2254z00zz__match_normaliza7eza7, BgL_lz00_3401);
					}
				else
					{	/* Match/normalize.scm 457 */
						obj_t BgL_zc3z04anonymousza31389ze3z87_3684;

						BgL_zc3z04anonymousza31389ze3z87_3684 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31389ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31389ze3z87_3684, (int) (0L),
							BgL_lz00_3401);
						return BgL_zc3z04anonymousza31389ze3z87_3684;
					}
			}
		}

	}



/* &<@anonymous:1389> */
	obj_t BGl_z62zc3z04anonymousza31389ze3ze5zz__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_arg1390z00_3685;

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

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

							BgL_arg1392z00_3687 = CAR(((obj_t) BgL_lz00_3403));
							BgL_arg1391z00_3686 = MAKE_YOUNG_PAIR(BgL_arg1392z00_3687, BNIL);
						}
						BgL_arg1390z00_3685 =
							MAKE_YOUNG_PAIR(BGl_symbol2255z00zz__match_normaliza7eza7,
							BgL_arg1391z00_3686);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3405) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3405)) (BgL_cz00_3405,
							BgL_arg1390z00_3685, BgL_rz00_3404, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3405)) (BgL_cz00_3405,
							BgL_arg1390z00_3685, BgL_rz00_3404));
				}
			}
		}

	}



/* &<@anonymous:1370> */
	obj_t BGl_z62zc3z04anonymousza31370ze3ze5zz__match_normaliza7eza7(obj_t
		BgL_envz00_3406, obj_t BgL_lz00_3407)
	{
		{	/* Match/normalize.scm 444 */
			{	/* Match/normalize.scm 445 */
				bool_t BgL_test2418z00_4120;

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

						BgL_tmpz00_4123 = CDR(((obj_t) BgL_lz00_3407));
						BgL_test2418z00_4120 = PAIRP(BgL_tmpz00_4123);
					}
				if (BgL_test2418z00_4120)
					{	/* Match/normalize.scm 445 */
						return
							BGl_errorz00zz__errorz00
							(BGl_symbol2249z00zz__match_normaliza7eza7,
							BGl_string2257z00zz__match_normaliza7eza7, BgL_lz00_3407);
					}
				else
					{	/* Match/normalize.scm 447 */
						obj_t BgL_ez00_3688;

						BgL_ez00_3688 = CAR(((obj_t) BgL_lz00_3407));
						{	/* Match/normalize.scm 448 */
							obj_t BgL_zc3z04anonymousza31374ze3z87_3689;

							BgL_zc3z04anonymousza31374ze3z87_3689 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31374ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31374ze3z87_3689, (int) (0L),
								BgL_ez00_3688);
							return BgL_zc3z04anonymousza31374ze3z87_3689;
						}
					}
			}
		}

	}



/* &<@anonymous:1374> */
	obj_t BGl_z62zc3z04anonymousza31374ze3ze5zz__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_fun1376z00_3690;

					BgL_fun1376z00_3690 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_ez00_3409);
					{	/* Match/normalize.scm 452 */
						obj_t BgL_zc3z04anonymousza31377ze3z87_3691;

						BgL_zc3z04anonymousza31377ze3z87_3691 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31377ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31377ze3z87_3691, (int) (0L),
							BgL_cz00_3411);
						PROCEDURE_SET(BgL_zc3z04anonymousza31377ze3z87_3691, (int) (1L),
							BgL_rz00_3410);
						return (VA_PROCEDUREP(BgL_fun1376z00_3690) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1376z00_3690)) (BgL_fun1376z00_3690,
								BgL_rz00_3410, BgL_zc3z04anonymousza31377ze3z87_3691,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1376z00_3690)) (BgL_fun1376z00_3690,
								BgL_rz00_3410, BgL_zc3z04anonymousza31377ze3z87_3691));
					}
				}
			}
		}

	}



/* &<@anonymous:1377> */
	obj_t BGl_z62zc3z04anonymousza31377ze3ze5zz__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_arg1379z00_3692;

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

						BgL_arg1382z00_3693 = MAKE_YOUNG_PAIR(BgL_patternz00_3415, BNIL);
						BgL_arg1379z00_3692 =
							MAKE_YOUNG_PAIR(BGl_symbol2235z00zz__match_normaliza7eza7,
							BgL_arg1382z00_3693);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3413) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3413)) (BgL_cz00_3413,
							BgL_arg1379z00_3692, BgL_rz00_3414, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3413)) (BgL_cz00_3413,
							BgL_arg1379z00_3692, BgL_rz00_3414));
				}
			}
		}

	}



/* &<@anonymous:1353> */
	obj_t BGl_z62zc3z04anonymousza31353ze3ze5zz__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_symbol2249z00zz__match_normaliza7eza7,
						BGl_string2258z00zz__match_normaliza7eza7, BgL_lz00_3418);
				}
			else
				{	/* Match/normalize.scm 431 */
					obj_t BgL_ez00_3694;
					obj_t BgL_eza2za2_3695;

					BgL_ez00_3694 = CAR(((obj_t) BgL_lz00_3418));
					BgL_eza2za2_3695 = CDR(((obj_t) BgL_lz00_3418));
					{	/* Match/normalize.scm 433 */
						obj_t BgL_zc3z04anonymousza31355ze3z87_3696;

						BgL_zc3z04anonymousza31355ze3z87_3696 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31355ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31355ze3z87_3696, (int) (0L),
							BgL_ez00_3694);
						PROCEDURE_SET(BgL_zc3z04anonymousza31355ze3z87_3696, (int) (1L),
							BgL_eza2za2_3695);
						return BgL_zc3z04anonymousza31355ze3z87_3696;
					}
				}
		}

	}



/* &<@anonymous:1355> */
	obj_t BGl_z62zc3z04anonymousza31355ze3ze5zz__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_fun1358z00_3697;

						BgL_fun1358z00_3697 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3420);
						{	/* Match/normalize.scm 438 */
							obj_t BgL_zc3z04anonymousza31359ze3z87_3698;

							BgL_zc3z04anonymousza31359ze3z87_3698 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31359ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (2L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31359ze3z87_3698, (int) (0L),
								BgL_eza2za2_3421);
							PROCEDURE_SET(BgL_zc3z04anonymousza31359ze3z87_3698, (int) (1L),
								BgL_cz00_3423);
							return (VA_PROCEDUREP(BgL_fun1358z00_3697) ? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BgL_fun1358z00_3697)) (BgL_fun1358z00_3697,
									BgL_rz00_3422, BgL_zc3z04anonymousza31359ze3z87_3698,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t))
									PROCEDURE_ENTRY(BgL_fun1358z00_3697)) (BgL_fun1358z00_3697,
									BgL_rz00_3422, BgL_zc3z04anonymousza31359ze3z87_3698));
						}
					}
				else
					{	/* Match/normalize.scm 442 */
						obj_t BgL_fun1368z00_3699;

						BgL_fun1368z00_3699 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3420);
						return (VA_PROCEDUREP(BgL_fun1368z00_3699) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1368z00_3699)) (BgL_fun1368z00_3699,
								BgL_rz00_3422, BgL_cz00_3423, BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1368z00_3699)) (BgL_fun1368z00_3699,
								BgL_rz00_3422, BgL_cz00_3423));
					}
			}
		}

	}



/* &<@anonymous:1359> */
	obj_t BGl_z62zc3z04anonymousza31359ze3ze5zz__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_fun1362z00_3700;

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

						BgL_arg1360z00_3701 =
							MAKE_YOUNG_PAIR(BGl_symbol2232z00zz__match_normaliza7eza7,
							BgL_eza2za2_3425);
						BgL_fun1362z00_3700 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1360z00_3701);
					}
					{	/* Match/normalize.scm 441 */
						obj_t BgL_zc3z04anonymousza31363ze3z87_3702;

						BgL_zc3z04anonymousza31363ze3z87_3702 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31363ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31363ze3z87_3702, (int) (0L),
							BgL_pattern1z00_3427);
						PROCEDURE_SET(BgL_zc3z04anonymousza31363ze3z87_3702, (int) (1L),
							BgL_cz00_3426);
						return (VA_PROCEDUREP(BgL_fun1362z00_3700) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1362z00_3700)) (BgL_fun1362z00_3700,
								BgL_rrz00_3428, BgL_zc3z04anonymousza31363ze3z87_3702,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1362z00_3700)) (BgL_fun1362z00_3700,
								BgL_rrz00_3428, BgL_zc3z04anonymousza31363ze3z87_3702));
					}
				}
			}
		}

	}



/* &<@anonymous:1363> */
	obj_t BGl_z62zc3z04anonymousza31363ze3ze5zz__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_arg1364z00_3703;

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

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

							BgL_arg1366z00_3705 = MAKE_YOUNG_PAIR(BgL_pattern2z00_3432, BNIL);
							BgL_arg1365z00_3704 =
								MAKE_YOUNG_PAIR(BgL_pattern1z00_3430, BgL_arg1366z00_3705);
						}
						BgL_arg1364z00_3703 =
							MAKE_YOUNG_PAIR(BGl_symbol2232z00zz__match_normaliza7eza7,
							BgL_arg1365z00_3704);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3431) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3431)) (BgL_cz00_3431,
							BgL_arg1364z00_3703, BgL_rrrz00_3433, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3431)) (BgL_cz00_3431,
							BgL_arg1364z00_3703, BgL_rrrz00_3433));
				}
			}
		}

	}



/* &<@anonymous:1334> */
	obj_t BGl_z62zc3z04anonymousza31334ze3ze5zz__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_symbol2249z00zz__match_normaliza7eza7,
						BGl_string2259z00zz__match_normaliza7eza7, BgL_lz00_3435);
				}
			else
				{	/* Match/normalize.scm 412 */
					obj_t BgL_ez00_3706;
					obj_t BgL_eza2za2_3707;

					BgL_ez00_3706 = CAR(((obj_t) BgL_lz00_3435));
					BgL_eza2za2_3707 = CDR(((obj_t) BgL_lz00_3435));
					{	/* Match/normalize.scm 414 */
						obj_t BgL_zc3z04anonymousza31336ze3z87_3708;

						BgL_zc3z04anonymousza31336ze3z87_3708 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31336ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31336ze3z87_3708, (int) (0L),
							BgL_ez00_3706);
						PROCEDURE_SET(BgL_zc3z04anonymousza31336ze3z87_3708, (int) (1L),
							BgL_eza2za2_3707);
						PROCEDURE_SET(BgL_zc3z04anonymousza31336ze3z87_3708, (int) (2L),
							BgL_lz00_3435);
						return BgL_zc3z04anonymousza31336ze3z87_3708;
					}
				}
		}

	}



/* &<@anonymous:1336> */
	obj_t BGl_z62zc3z04anonymousza31336ze3ze5zz__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_fun1339z00_3709;

						BgL_fun1339z00_3709 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3437);
						{	/* Match/normalize.scm 419 */
							obj_t BgL_zc3z04anonymousza31340ze3z87_3710;

							BgL_zc3z04anonymousza31340ze3z87_3710 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31340ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (4L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31340ze3z87_3710, (int) (0L),
								BgL_eza2za2_3438);
							PROCEDURE_SET(BgL_zc3z04anonymousza31340ze3z87_3710, (int) (1L),
								BgL_lz00_3439);
							PROCEDURE_SET(BgL_zc3z04anonymousza31340ze3z87_3710, (int) (2L),
								BgL_cz00_3441);
							PROCEDURE_SET(BgL_zc3z04anonymousza31340ze3z87_3710, (int) (3L),
								BgL_rz00_3440);
							return (VA_PROCEDUREP(BgL_fun1339z00_3709) ? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BgL_fun1339z00_3709)) (BgL_fun1339z00_3709,
									BgL_rz00_3440, BgL_zc3z04anonymousza31340ze3z87_3710,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t))
									PROCEDURE_ENTRY(BgL_fun1339z00_3709)) (BgL_fun1339z00_3709,
									BgL_rz00_3440, BgL_zc3z04anonymousza31340ze3z87_3710));
						}
					}
				else
					{	/* Match/normalize.scm 426 */
						obj_t BgL_fun1350z00_3711;

						BgL_fun1350z00_3711 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3437);
						return (VA_PROCEDUREP(BgL_fun1350z00_3711) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1350z00_3711)) (BgL_fun1350z00_3711,
								BgL_rz00_3440, BgL_cz00_3441, BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1350z00_3711)) (BgL_fun1350z00_3711,
								BgL_rz00_3440, BgL_cz00_3441));
					}
			}
		}

	}



/* &<@anonymous:1340> */
	obj_t BGl_z62zc3z04anonymousza31340ze3ze5zz__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_fun1343z00_3712;

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

						BgL_arg1341z00_3713 =
							MAKE_YOUNG_PAIR(BGl_symbol2229z00zz__match_normaliza7eza7,
							BgL_eza2za2_3443);
						BgL_fun1343z00_3712 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1341z00_3713);
					}
					{	/* Match/normalize.scm 422 */
						obj_t BgL_zc3z04anonymousza31344ze3z87_3714;

						BgL_zc3z04anonymousza31344ze3z87_3714 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31344ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (4L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31344ze3z87_3714, (int) (0L),
							BgL_lz00_3444);
						PROCEDURE_SET(BgL_zc3z04anonymousza31344ze3z87_3714, (int) (1L),
							BgL_pattern1z00_3447);
						PROCEDURE_SET(BgL_zc3z04anonymousza31344ze3z87_3714, (int) (2L),
							BgL_cz00_3445);
						PROCEDURE_SET(BgL_zc3z04anonymousza31344ze3z87_3714, (int) (3L),
							BgL_rrz00_3448);
						return (VA_PROCEDUREP(BgL_fun1343z00_3712) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1343z00_3712)) (BgL_fun1343z00_3712,
								BgL_rz00_3446, BgL_zc3z04anonymousza31344ze3z87_3714,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1343z00_3712)) (BgL_fun1343z00_3712,
								BgL_rz00_3446, BgL_zc3z04anonymousza31344ze3z87_3714));
					}
				}
			}
		}

	}



/* &<@anonymous:1344> */
	obj_t BGl_z62zc3z04anonymousza31344ze3ze5zz__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_test2424z00_4311;

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

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

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

									BgL_arg1349z00_3717 =
										MAKE_YOUNG_PAIR(BgL_pattern2z00_3454, BNIL);
									BgL_arg1348z00_3716 =
										MAKE_YOUNG_PAIR(BgL_pattern1z00_3451, BgL_arg1349z00_3717);
								}
								BgL_arg1347z00_3715 =
									MAKE_YOUNG_PAIR(BGl_symbol2229z00zz__match_normaliza7eza7,
									BgL_arg1348z00_3716);
							}
							return
								(VA_PROCEDUREP(BgL_cz00_3452) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_cz00_3452)) (BgL_cz00_3452,
									BgL_arg1347z00_3715, BgL_rrrz00_3455,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_cz00_3452)) (BgL_cz00_3452,
									BgL_arg1347z00_3715, BgL_rrrz00_3455));
						}
					else
						{	/* Match/normalize.scm 422 */
							return
								BGl_errorz00zz__errorz00
								(BGl_symbol2249z00zz__match_normaliza7eza7,
								BGl_string2260z00zz__match_normaliza7eza7, BgL_lz00_3450);
						}
				}
			}
		}

	}



/* &<@anonymous:1284> */
	obj_t BGl_z62zc3z04anonymousza31284ze3ze5zz__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_symbol2249z00zz__match_normaliza7eza7,
						BGl_string2261z00zz__match_normaliza7eza7, BgL_lz00_3457);
				}
			else
				{	/* Match/normalize.scm 378 */
					obj_t BgL_ez00_3718;
					obj_t BgL_eza2za2_3719;

					BgL_ez00_3718 = CAR(((obj_t) BgL_lz00_3457));
					BgL_eza2za2_3719 = CDR(((obj_t) BgL_lz00_3457));
					{	/* Match/normalize.scm 380 */
						obj_t BgL_zc3z04anonymousza31286ze3z87_3720;

						BgL_zc3z04anonymousza31286ze3z87_3720 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31286ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31286ze3z87_3720, (int) (0L),
							BgL_ez00_3718);
						PROCEDURE_SET(BgL_zc3z04anonymousza31286ze3z87_3720, (int) (1L),
							BgL_eza2za2_3719);
						PROCEDURE_SET(BgL_zc3z04anonymousza31286ze3z87_3720, (int) (2L),
							BgL_lz00_3457);
						return BgL_zc3z04anonymousza31286ze3z87_3720;
					}
				}
		}

	}



/* &<@anonymous:1286> */
	obj_t BGl_z62zc3z04anonymousza31286ze3ze5zz__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_fun1291z00_3721;

						BgL_fun1291z00_3721 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3459);
						{	/* Match/normalize.scm 385 */
							obj_t BgL_zc3z04anonymousza31292ze3z87_3722;

							BgL_zc3z04anonymousza31292ze3z87_3722 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31292ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (4L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31292ze3z87_3722, (int) (0L),
								BgL_eza2za2_3460);
							PROCEDURE_SET(BgL_zc3z04anonymousza31292ze3z87_3722, (int) (1L),
								BgL_lz00_3461);
							PROCEDURE_SET(BgL_zc3z04anonymousza31292ze3z87_3722, (int) (2L),
								BgL_cz00_3463);
							PROCEDURE_SET(BgL_zc3z04anonymousza31292ze3z87_3722, (int) (3L),
								BgL_rz00_3462);
							return (VA_PROCEDUREP(BgL_fun1291z00_3721) ? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BgL_fun1291z00_3721)) (BgL_fun1291z00_3721,
									BgL_rz00_3462, BgL_zc3z04anonymousza31292ze3z87_3722,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t))
									PROCEDURE_ENTRY(BgL_fun1291z00_3721)) (BgL_fun1291z00_3721,
									BgL_rz00_3462, BgL_zc3z04anonymousza31292ze3z87_3722));
						}
					}
				else
					{	/* Match/normalize.scm 392 */
						obj_t BgL_fun1332z00_3723;

						BgL_fun1332z00_3723 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3459);
						return (VA_PROCEDUREP(BgL_fun1332z00_3723) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1332z00_3723)) (BgL_fun1332z00_3723,
								BgL_rz00_3462, BgL_cz00_3463, BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1332z00_3723)) (BgL_fun1332z00_3723,
								BgL_rz00_3462, BgL_cz00_3463));
					}
			}
		}

	}



/* &<@anonymous:1292> */
	obj_t BGl_z62zc3z04anonymousza31292ze3ze5zz__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_fun1323z00_3724;

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

						BgL_arg1294z00_3725 =
							MAKE_YOUNG_PAIR(BGl_symbol2226z00zz__match_normaliza7eza7,
							BgL_eza2za2_3465);
						BgL_fun1323z00_3724 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1294z00_3725);
					}
					{	/* Match/normalize.scm 388 */
						obj_t BgL_zc3z04anonymousza31324ze3z87_3726;

						BgL_zc3z04anonymousza31324ze3z87_3726 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31324ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (4L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31324ze3z87_3726, (int) (0L),
							BgL_lz00_3466);
						PROCEDURE_SET(BgL_zc3z04anonymousza31324ze3z87_3726, (int) (1L),
							BgL_pattern1z00_3469);
						PROCEDURE_SET(BgL_zc3z04anonymousza31324ze3z87_3726, (int) (2L),
							BgL_cz00_3467);
						PROCEDURE_SET(BgL_zc3z04anonymousza31324ze3z87_3726, (int) (3L),
							BgL_rrz00_3470);
						return (VA_PROCEDUREP(BgL_fun1323z00_3724) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1323z00_3724)) (BgL_fun1323z00_3724,
								BgL_rz00_3468, BgL_zc3z04anonymousza31324ze3z87_3726,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1323z00_3724)) (BgL_fun1323z00_3724,
								BgL_rz00_3468, BgL_zc3z04anonymousza31324ze3z87_3726));
					}
				}
			}
		}

	}



/* &<@anonymous:1324> */
	obj_t BGl_z62zc3z04anonymousza31324ze3ze5zz__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_test2428z00_4405;

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

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

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

									BgL_arg1331z00_3729 =
										MAKE_YOUNG_PAIR(BgL_pattern2z00_3476, BNIL);
									BgL_arg1330z00_3728 =
										MAKE_YOUNG_PAIR(BgL_pattern1z00_3473, BgL_arg1331z00_3729);
								}
								BgL_arg1327z00_3727 =
									MAKE_YOUNG_PAIR(BGl_symbol2226z00zz__match_normaliza7eza7,
									BgL_arg1330z00_3728);
							}
							return
								(VA_PROCEDUREP(BgL_cz00_3474) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_cz00_3474)) (BgL_cz00_3474,
									BgL_arg1327z00_3727, BgL_rrrz00_3477,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_cz00_3474)) (BgL_cz00_3474,
									BgL_arg1327z00_3727, BgL_rrrz00_3477));
						}
					else
						{	/* Match/normalize.scm 388 */
							return
								BGl_errorz00zz__errorz00
								(BGl_symbol2249z00zz__match_normaliza7eza7,
								BGl_string2260z00zz__match_normaliza7eza7, BgL_lz00_3472);
						}
				}
			}
		}

	}



/* &<@anonymous:1250> */
	obj_t BGl_z62zc3z04anonymousza31250ze3ze5zz__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_symbol2249z00zz__match_normaliza7eza7,
						BGl_string2262z00zz__match_normaliza7eza7, BgL_lz00_3479);
				}
			else
				{	/* Match/normalize.scm 363 */
					obj_t BgL_ez00_3730;
					obj_t BgL_eza2za2_3731;

					BgL_ez00_3730 = CAR(((obj_t) BgL_lz00_3479));
					BgL_eza2za2_3731 = CDR(((obj_t) BgL_lz00_3479));
					{	/* Match/normalize.scm 365 */
						obj_t BgL_zc3z04anonymousza31252ze3z87_3732;

						BgL_zc3z04anonymousza31252ze3z87_3732 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31252ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31252ze3z87_3732, (int) (0L),
							BgL_ez00_3730);
						PROCEDURE_SET(BgL_zc3z04anonymousza31252ze3z87_3732, (int) (1L),
							BgL_eza2za2_3731);
						return BgL_zc3z04anonymousza31252ze3z87_3732;
					}
				}
		}

	}



/* &<@anonymous:1252> */
	obj_t BGl_z62zc3z04anonymousza31252ze3ze5zz__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_symbol2249z00zz__match_normaliza7eza7,
							BGl_string2263z00zz__match_normaliza7eza7, BgL_eza2za2_3482);
					}
				else
					{	/* Match/normalize.scm 368 */
						obj_t BgL_fun1255z00_3733;

						BgL_fun1255z00_3733 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_ez00_3481);
						{	/* Match/normalize.scm 371 */
							obj_t BgL_zc3z04anonymousza31256ze3z87_3734;

							BgL_zc3z04anonymousza31256ze3z87_3734 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31256ze3ze5zz__match_normaliza7eza7,
								(int) (2L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31256ze3z87_3734, (int) (0L),
								BgL_cz00_3484);
							return (VA_PROCEDUREP(BgL_fun1255z00_3733) ? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BgL_fun1255z00_3733)) (BgL_fun1255z00_3733,
									BgL_rz00_3483, BgL_zc3z04anonymousza31256ze3z87_3734,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t))
									PROCEDURE_ENTRY(BgL_fun1255z00_3733)) (BgL_fun1255z00_3733,
									BgL_rz00_3483, BgL_zc3z04anonymousza31256ze3z87_3734));
						}
					}
			}
		}

	}



/* &<@anonymous:1256> */
	obj_t BGl_z62zc3z04anonymousza31256ze3ze5zz__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_arg1257z00_3735;

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

						{	/* Match/normalize.scm 371 */
							obj_t BgL_arg1260z00_3737;
							obj_t BgL_arg1265z00_3738;

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

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

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

										{	/* Match/normalize.scm 371 */
											obj_t BgL_arg1279z00_3742;
											obj_t BgL_arg1281z00_3743;

											BgL_arg1279z00_3742 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
											{	/* Match/normalize.scm 371 */
												obj_t BgL_arg1282z00_3744;

												BgL_arg1282z00_3744 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
												BgL_arg1281z00_3743 =
													MAKE_YOUNG_PAIR(BgL_arg1282z00_3744, BNIL);
											}
											BgL_arg1277z00_3741 =
												MAKE_YOUNG_PAIR(BgL_arg1279z00_3742,
												BgL_arg1281z00_3743);
										}
										BgL_arg1276z00_3740 =
											MAKE_YOUNG_PAIR(BGl_symbol2266z00zz__match_normaliza7eza7,
											BgL_arg1277z00_3741);
									}
									BgL_arg1275z00_3739 =
										MAKE_YOUNG_PAIR(BgL_arg1276z00_3740, BNIL);
								}
								BgL_arg1260z00_3737 =
									MAKE_YOUNG_PAIR(BGl_symbol2235z00zz__match_normaliza7eza7,
									BgL_arg1275z00_3739);
							}
							BgL_arg1265z00_3738 = MAKE_YOUNG_PAIR(BgL_patternz00_3487, BNIL);
							BgL_arg1259z00_3736 =
								MAKE_YOUNG_PAIR(BgL_arg1260z00_3737, BgL_arg1265z00_3738);
						}
						BgL_arg1257z00_3735 =
							MAKE_YOUNG_PAIR(BGl_symbol2232z00zz__match_normaliza7eza7,
							BgL_arg1259z00_3736);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3486) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3486)) (BgL_cz00_3486,
							BgL_arg1257z00_3735, BgL_rrz00_3488, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3486)) (BgL_cz00_3486,
							BgL_arg1257z00_3735, 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_test2433z00_4469;

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

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

							BgL_arg1430z00_1446 = SYMBOL_TO_STRING(BgL_ez00_3);
							BgL_a1110z00_1443 = STRING_LENGTH(BgL_arg1430z00_1446);
						}
						{	/* Match/normalize.scm 74 */

							BgL_test2433z00_4469 = (BgL_a1110z00_1443 > 1L);
					}}
					if (BgL_test2433z00_4469)
						{	/* Match/normalize.scm 75 */
							unsigned char BgL_arg1425z00_1441;

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

								BgL_arg1426z00_1442 = SYMBOL_TO_STRING(BgL_ez00_3);
								BgL_arg1425z00_1441 = STRING_REF(BgL_arg1426z00_1442, 0L);
							}
							return (BgL_arg1425z00_1441 == ((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_test2435z00_4478;

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

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

							BgL_arg1436z00_1457 = SYMBOL_TO_STRING(BgL_ez00_4);
							BgL_a1112z00_1454 = STRING_LENGTH(BgL_arg1436z00_1457);
						}
						{	/* Match/normalize.scm 79 */

							BgL_test2435z00_4478 = (BgL_a1112z00_1454 > 2L);
					}}
					if (BgL_test2435z00_4478)
						{	/* Match/normalize.scm 80 */
							bool_t BgL_test2436z00_4482;

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

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

									BgL_arg1434z00_1453 = SYMBOL_TO_STRING(BgL_ez00_4);
									BgL_arg1433z00_1452 = STRING_REF(BgL_arg1434z00_1453, 0L);
								}
								BgL_test2436z00_4482 =
									(BgL_arg1433z00_1452 == ((unsigned char) '?'));
							}
							if (BgL_test2436z00_4482)
								{	/* Match/normalize.scm 81 */
									unsigned char BgL_arg1431z00_1450;

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

										BgL_arg1432z00_1451 = SYMBOL_TO_STRING(BgL_ez00_4);
										BgL_arg1431z00_1450 = STRING_REF(BgL_arg1432z00_1451, 1L);
									}
									return (BgL_arg1431z00_1450 == ((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_test2438z00_4491;

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

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

							BgL_arg1444z00_1471 = SYMBOL_TO_STRING(BgL_ez00_5);
							BgL_a1114z00_1468 = STRING_LENGTH(BgL_arg1444z00_1471);
						}
						{	/* Match/normalize.scm 85 */

							BgL_test2438z00_4491 = (BgL_a1114z00_1468 > 3L);
					}}
					if (BgL_test2438z00_4491)
						{	/* Match/normalize.scm 86 */
							bool_t BgL_test2439z00_4495;

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

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

									BgL_arg1442z00_1467 = SYMBOL_TO_STRING(BgL_ez00_5);
									BgL_arg1441z00_1466 = STRING_REF(BgL_arg1442z00_1467, 0L);
								}
								BgL_test2439z00_4495 =
									(BgL_arg1441z00_1466 == ((unsigned char) '?'));
							}
							if (BgL_test2439z00_4495)
								{	/* Match/normalize.scm 87 */
									bool_t BgL_test2440z00_4499;

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

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

											BgL_arg1440z00_1465 = SYMBOL_TO_STRING(BgL_ez00_5);
											BgL_arg1439z00_1464 = STRING_REF(BgL_arg1440z00_1465, 1L);
										}
										BgL_test2440z00_4499 =
											(BgL_arg1439z00_1464 == ((unsigned char) '?'));
									}
									if (BgL_test2440z00_4499)
										{	/* Match/normalize.scm 88 */
											unsigned char BgL_arg1437z00_1462;

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

												BgL_arg1438z00_1463 = SYMBOL_TO_STRING(BgL_ez00_5);
												BgL_arg1437z00_1462 =
													STRING_REF(BgL_arg1438z00_1463, 2L);
											}
											return (BgL_arg1437z00_1462 == ((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_test2442z00_4508;

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

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

							BgL_arg1448z00_1479 = SYMBOL_TO_STRING(BgL_ez00_6);
							BgL_a1116z00_1476 = STRING_LENGTH(BgL_arg1448z00_1479);
						}
						{	/* Match/normalize.scm 92 */

							BgL_test2442z00_4508 = (BgL_a1116z00_1476 > 1L);
					}}
					if (BgL_test2442z00_4508)
						{	/* Match/normalize.scm 93 */
							unsigned char BgL_arg1445z00_1474;

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

								BgL_arg1446z00_1475 = SYMBOL_TO_STRING(BgL_ez00_6);
								BgL_arg1445z00_1474 = STRING_REF(BgL_arg1446z00_1475, 0L);
							}
							return (BgL_arg1445z00_1474 == ((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_test2444z00_4517;

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

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

							BgL_arg1452z00_1487 = SYMBOL_TO_STRING(BgL_ez00_7);
							BgL_a1118z00_1484 = STRING_LENGTH(BgL_arg1452z00_1487);
						}
						{	/* Match/normalize.scm 97 */

							BgL_test2444z00_4517 = (BgL_a1118z00_1484 > 1L);
					}}
					if (BgL_test2444z00_4517)
						{	/* Match/normalize.scm 98 */
							unsigned char BgL_arg1449z00_1482;

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

								BgL_arg1450z00_1483 = SYMBOL_TO_STRING(BgL_ez00_7);
								BgL_arg1449z00_1482 = STRING_REF(BgL_arg1450z00_1483, 0L);
							}
							return (BgL_arg1449z00_1482 == ((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_fun1464z00_2647;

				BgL_fun1464z00_2647 =
					BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7(BgL_ez00_13);
				return
					(VA_PROCEDUREP(BgL_fun1464z00_2647) ? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BgL_fun1464z00_2647)) (BgL_fun1464z00_2647,
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
						BGl_proc2268z00zz__match_normaliza7eza7, BEOA) : ((obj_t(*)(obj_t,
								obj_t,
								obj_t))
						PROCEDURE_ENTRY(BgL_fun1464z00_2647)) (BgL_fun1464z00_2647,
						BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
						BGl_proc2268z00zz__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:1465>2219 */
	obj_t BGl_z62zc3z04anonymousza31465ze32219ze5zz__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_1509;

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

						BgL_arg1733z00_2652 = CAR(BgL_ez00_14);
						{	/* Match/normalize.scm 358 */
							obj_t BgL_rz00_2654;

							BgL_rz00_2654 =
								BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1733z00_2652, BgL_rz00_2654)))
								{	/* Match/normalize.scm 337 */
									BgL_g1052z00_1509 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1733z00_2652, BgL_rz00_2654));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_g1052z00_1509 = BFALSE;
								}
						}
					}
				else
					{	/* Match/normalize.scm 357 */
						BgL_g1052z00_1509 = BFALSE;
					}
				if (CBOOL(BgL_g1052z00_1509))
					{	/* Match/normalize.scm 137 */
						return apply(BgL_g1052z00_1509, CDR(((obj_t) BgL_ez00_14)));
					}
				else
					{	/* Match/normalize.scm 137 */
						if ((BgL_ez00_14 == BGl_symbol2269z00zz__match_normaliza7eza7))
							{	/* Match/normalize.scm 138 */
								return BGl_proc2281z00zz__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_zc3z04anonymousza31579ze3z87_3495;

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

	}



/* &<@anonymous:1579> */
	obj_t BGl_z62zc3z04anonymousza31579ze3ze5zz__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_arg1581z00_3745;

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

						BgL_arg1582z00_3746 = MAKE_YOUNG_PAIR(BgL_ez00_3497, BNIL);
						BgL_arg1581z00_3745 =
							MAKE_YOUNG_PAIR(BGl_symbol2252z00zz__match_normaliza7eza7,
							BgL_arg1582z00_3746);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3499) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3499)) (BgL_cz00_3499,
							BgL_arg1581z00_3745, BgL_rz00_3498, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3499)) (BgL_cz00_3499,
							BgL_arg1581z00_3745, 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_1518;

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

						BgL_arg1733z00_2667 = CAR(BgL_eza2za2_15);
						{	/* Match/normalize.scm 358 */
							obj_t BgL_rz00_2669;

							BgL_rz00_2669 =
								BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1733z00_2667, BgL_rz00_2669)))
								{	/* Match/normalize.scm 337 */
									BgL_g1054z00_1518 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1733z00_2667, BgL_rz00_2669));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_g1054z00_1518 = BFALSE;
								}
						}
					}
					if (CBOOL(BgL_g1054z00_1518))
						{	/* Match/normalize.scm 156 */
							return apply(BgL_g1054z00_1518, CDR(BgL_eza2za2_15));
						}
					else
						{	/* Match/normalize.scm 156 */
							if (
								(CAR(BgL_eza2za2_15) ==
									BGl_symbol2271z00zz__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_symbol2273z00zz__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_zc3z04anonymousza31579ze3z87_3500;

					BgL_zc3z04anonymousza31579ze3z87_3500 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31579ze32220ze5zz__match_normaliza7eza7,
						(int) (2L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31579ze3z87_3500, (int) (0L),
						BgL_eza2za2_15);
					return BgL_zc3z04anonymousza31579ze3z87_3500;
				}
		}

	}



/* &<@anonymous:1579>2220 */
	obj_t BGl_z62zc3z04anonymousza31579ze32220ze5zz__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_arg1581z00_3747;

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

						BgL_arg1582z00_3748 = MAKE_YOUNG_PAIR(BgL_eza2za2_3502, BNIL);
						BgL_arg1581z00_3747 =
							MAKE_YOUNG_PAIR(BGl_symbol2252z00zz__match_normaliza7eza7,
							BgL_arg1582z00_3748);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3504) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3504)) (BgL_cz00_3504,
							BgL_arg1581z00_3747, BgL_rz00_3503, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3504)) (BgL_cz00_3504,
							BgL_arg1581z00_3747, 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_zc3z04anonymousza31501ze3z87_3507;

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

	}



/* &<@anonymous:1501> */
	obj_t BGl_z62zc3z04anonymousza31501ze3ze5zz__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_fun1503z00_3749;

					BgL_fun1503z00_3749 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_ez00_3509);
					{	/* Match/normalize.scm 173 */
						obj_t BgL_zc3z04anonymousza31504ze3z87_3750;

						BgL_zc3z04anonymousza31504ze3z87_3750 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31504ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31504ze3z87_3750, (int) (0L),
							BgL_eza2za2_3510);
						PROCEDURE_SET(BgL_zc3z04anonymousza31504ze3z87_3750, (int) (1L),
							BgL_cz00_3512);
						return (VA_PROCEDUREP(BgL_fun1503z00_3749) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1503z00_3749)) (BgL_fun1503z00_3749,
								BgL_rz00_3511, BgL_zc3z04anonymousza31504ze3z87_3750,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1503z00_3749)) (BgL_fun1503z00_3749,
								BgL_rz00_3511, BgL_zc3z04anonymousza31504ze3z87_3750));
					}
				}
			}
		}

	}



/* &<@anonymous:1504> */
	obj_t BGl_z62zc3z04anonymousza31504ze3ze5zz__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_fun1506z00_3751;

					BgL_fun1506z00_3751 =
						BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
						(BgL_eza2za2_3514);
					{	/* Match/normalize.scm 176 */
						obj_t BgL_zc3z04anonymousza31507ze3z87_3752;

						BgL_zc3z04anonymousza31507ze3z87_3752 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31507ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31507ze3z87_3752, (int) (0L),
							BgL_fz00_3516);
						PROCEDURE_SET(BgL_zc3z04anonymousza31507ze3z87_3752, (int) (1L),
							BgL_cz00_3515);
						return (VA_PROCEDUREP(BgL_fun1506z00_3751) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1506z00_3751)) (BgL_fun1506z00_3751,
								BgL_rrz00_3517, BgL_zc3z04anonymousza31507ze3z87_3752,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1506z00_3751)) (BgL_fun1506z00_3751,
								BgL_rrz00_3517, BgL_zc3z04anonymousza31507ze3z87_3752));
					}
				}
			}
		}

	}



/* &<@anonymous:1507> */
	obj_t BGl_z62zc3z04anonymousza31507ze3ze5zz__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_3753;

					BgL_labelz00_3753 =
						(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
						? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2275z00zz__match_normaliza7eza7,
							BEOA) : ((obj_t(*)(obj_t,
									obj_t))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2275z00zz__match_normaliza7eza7));
					{	/* Match/normalize.scm 178 */
						obj_t BgL_arg1508z00_3754;

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

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

								{	/* Match/normalize.scm 178 */
									obj_t BgL_arg1515z00_3757;
									obj_t BgL_arg1516z00_3758;

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

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

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

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

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

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

															BgL_arg1523z00_3764 =
																(VA_PROCEDUREP
																(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
																? ((obj_t(*)(obj_t,
																			...))
																	PROCEDURE_ENTRY
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																	BGl_string2276z00zz__match_normaliza7eza7,
																	BEOA) : ((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_ENTRY
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																	BGl_string2276z00zz__match_normaliza7eza7));
															BgL_arg1522z00_3763 =
																MAKE_YOUNG_PAIR(BgL_arg1523z00_3764, BNIL);
														}
														BgL_arg1521z00_3762 =
															MAKE_YOUNG_PAIR(BgL_labelz00_3753,
															BgL_arg1522z00_3763);
													}
													BgL_arg1520z00_3761 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2277z00zz__match_normaliza7eza7,
														BgL_arg1521z00_3762);
												}
												BgL_arg1519z00_3760 =
													MAKE_YOUNG_PAIR(BgL_arg1520z00_3761, BNIL);
											}
											BgL_arg1518z00_3759 =
												MAKE_YOUNG_PAIR(BgL_fz00_3519, BgL_arg1519z00_3760);
										}
										BgL_arg1515z00_3757 =
											MAKE_YOUNG_PAIR(BGl_symbol2266z00zz__match_normaliza7eza7,
											BgL_arg1518z00_3759);
									}
									BgL_arg1516z00_3758 = MAKE_YOUNG_PAIR(BgL_fza2za2_3521, BNIL);
									BgL_arg1512z00_3756 =
										MAKE_YOUNG_PAIR(BgL_arg1515z00_3757, BgL_arg1516z00_3758);
								}
								BgL_arg1509z00_3755 =
									MAKE_YOUNG_PAIR(BgL_labelz00_3753, BgL_arg1512z00_3756);
							}
							BgL_arg1508z00_3754 =
								MAKE_YOUNG_PAIR(BGl_symbol2279z00zz__match_normaliza7eza7,
								BgL_arg1509z00_3755);
						}
						return
							(VA_PROCEDUREP(BgL_cz00_3520) ? ((obj_t(*)(obj_t,
										...)) PROCEDURE_ENTRY(BgL_cz00_3520)) (BgL_cz00_3520,
								BgL_arg1508z00_3754, BgL_rrrz00_3522, BEOA) : ((obj_t(*)(obj_t,
										obj_t,
										obj_t)) PROCEDURE_ENTRY(BgL_cz00_3520)) (BgL_cz00_3520,
								BgL_arg1508z00_3754, BgL_rrrz00_3522));
					}
				}
			}
		}

	}



/* &<@anonymous:1524> */
	obj_t BGl_z62zc3z04anonymousza31524ze3ze5zz__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_arg1525z00_3765;

				BgL_arg1525z00_3765 =
					MAKE_YOUNG_PAIR(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
				return
					(VA_PROCEDUREP(BgL_cz00_3526) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_cz00_3526)) (BgL_cz00_3526,
						BgL_arg1525z00_3765, BgL_rz00_3525, BEOA) : ((obj_t(*)(obj_t, obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_cz00_3526)) (BgL_cz00_3526,
						BgL_arg1525z00_3765, 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_test2462z00_4713;

				if (PAIRP(BgL_fza2za2_19))
					{	/* Match/normalize.scm 187 */
						BgL_test2462z00_4713 =
							(CAR(BgL_fza2za2_19) ==
							BGl_symbol2282z00zz__match_normaliza7eza7);
					}
				else
					{	/* Match/normalize.scm 187 */
						BgL_test2462z00_4713 = ((bool_t) 0);
					}
				if (BgL_test2462z00_4713)
					{	/* 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_z62zc3z04anonymousza31535ze3ze5zz__match_normaliza7eza7
								(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7,
									BGl_symbol2284z00zz__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 = MAKE_CELL(BFALSE);
				{	/* Match/normalize.scm 195 */
					obj_t BgL_zc3z04anonymousza31535ze3z87_3527;

					{
						int BgL_tmpz00_4728;

						BgL_tmpz00_4728 = (int) (1L);
						BgL_zc3z04anonymousza31535ze3z87_3527 =
							MAKE_EL_PROCEDURE(BgL_tmpz00_4728);
					}
					PROCEDURE_EL_SET(BgL_zc3z04anonymousza31535ze3z87_3527,
						(int) (0L), ((obj_t) BgL_valuez00_3533));
					return BgL_zc3z04anonymousza31535ze3z87_3527;
				}
			}
		}

	}



/* &<@anonymous:1535> */
	obj_t BGl_z62zc3z04anonymousza31535ze3ze5zz__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_symbol2284z00zz__match_normaliza7eza7))
					{	/* Match/normalize.scm 196 */
						return CELL_REF(BgL_valuez00_3529);
					}
				else
					{	/* Match/normalize.scm 196 */
						if ((BgL_msgz00_3530 == BGl_symbol2286z00zz__match_normaliza7eza7))
							{	/* Match/normalize.scm 198 */
								obj_t BgL_auxz00_3767;

								BgL_auxz00_3767 = BTRUE;
								return CELL_SET(BgL_valuez00_3529, BgL_auxz00_3767);
							}
						else
							{	/* Match/normalize.scm 196 */
								if (
									(BgL_msgz00_3530 ==
										BGl_symbol2288z00zz__match_normaliza7eza7))
									{	/* Match/normalize.scm 199 */
										obj_t BgL_auxz00_3768;

										BgL_auxz00_3768 = BFALSE;
										return CELL_SET(BgL_valuez00_3529, BgL_auxz00_3768);
									}
								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_zc3z04anonymousza31539ze3z87_3537;

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

	}



/* &<@anonymous:1539> */
	obj_t BGl_z62zc3z04anonymousza31539ze3ze5zz__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_fun1544z00_3769;

					BgL_fun1544z00_3769 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_fz00_3539);
					{	/* Match/normalize.scm 209 */
						obj_t BgL_zc3z04anonymousza31545ze3z87_3770;

						BgL_zc3z04anonymousza31545ze3z87_3770 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31545ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31545ze3z87_3770, (int) (0L),
							BgL_fza2za2_3540);
						PROCEDURE_SET(BgL_zc3z04anonymousza31545ze3z87_3770, (int) (1L),
							BgL_cz00_3542);
						return (VA_PROCEDUREP(BgL_fun1544z00_3769) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1544z00_3769)) (BgL_fun1544z00_3769,
								BgL_rz00_3541, BgL_zc3z04anonymousza31545ze3z87_3770,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1544z00_3769)) (BgL_fun1544z00_3769,
								BgL_rz00_3541, BgL_zc3z04anonymousza31545ze3z87_3770));
					}
				}
			}
		}

	}



/* &<@anonymous:1545> */
	obj_t BGl_z62zc3z04anonymousza31545ze3ze5zz__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_fun1547z00_3771;

					BgL_fun1547z00_3771 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_fza2za2_3544);
					{	/* Match/normalize.scm 212 */
						obj_t BgL_zc3z04anonymousza31548ze3z87_3772;

						BgL_zc3z04anonymousza31548ze3z87_3772 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31548ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31548ze3z87_3772, (int) (0L),
							BgL_pattern1z00_3546);
						PROCEDURE_SET(BgL_zc3z04anonymousza31548ze3z87_3772, (int) (1L),
							BgL_cz00_3545);
						return (VA_PROCEDUREP(BgL_fun1547z00_3771) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1547z00_3771)) (BgL_fun1547z00_3771,
								BgL_rrz00_3547, BgL_zc3z04anonymousza31548ze3z87_3772,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1547z00_3771)) (BgL_fun1547z00_3771,
								BgL_rrz00_3547, BgL_zc3z04anonymousza31548ze3z87_3772));
					}
				}
			}
		}

	}



/* &<@anonymous:1548> */
	obj_t BGl_z62zc3z04anonymousza31548ze3ze5zz__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_arg1550z00_3773;

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

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

							BgL_arg1553z00_3775 = MAKE_YOUNG_PAIR(BgL_pattern2z00_3551, BNIL);
							BgL_arg1552z00_3774 =
								MAKE_YOUNG_PAIR(BgL_pattern1z00_3549, BgL_arg1553z00_3775);
						}
						BgL_arg1550z00_3773 =
							MAKE_YOUNG_PAIR(BGl_symbol2266z00zz__match_normaliza7eza7,
							BgL_arg1552z00_3774);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3550) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3550)) (BgL_cz00_3550,
							BgL_arg1550z00_3773, BgL_rrrz00_3552, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3550)) (BgL_cz00_3550,
							BgL_arg1550z00_3773, 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_zc3z04anonymousza31554ze3z87_3555;

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

	}



/* &<@anonymous:1554> */
	obj_t BGl_z62zc3z04anonymousza31554ze3ze5zz__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_fun1556z00_3776;

					BgL_fun1556z00_3776 =
						BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
						(BgL_fza2za2_3557);
					{	/* Match/normalize.scm 219 */
						obj_t BgL_zc3z04anonymousza31557ze3z87_3777;

						BgL_zc3z04anonymousza31557ze3z87_3777 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31557ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31557ze3z87_3777, (int) (0L),
							BgL_fz00_3558);
						PROCEDURE_SET(BgL_zc3z04anonymousza31557ze3z87_3777, (int) (1L),
							BgL_cz00_3560);
						return (VA_PROCEDUREP(BgL_fun1556z00_3776) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1556z00_3776)) (BgL_fun1556z00_3776,
								BgL_rz00_3559, BgL_zc3z04anonymousza31557ze3z87_3777,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1556z00_3776)) (BgL_fun1556z00_3776,
								BgL_rz00_3559, BgL_zc3z04anonymousza31557ze3z87_3777));
					}
				}
			}
		}

	}



/* &<@anonymous:1557> */
	obj_t BGl_z62zc3z04anonymousza31557ze3ze5zz__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_fun1559z00_3778;

					BgL_fun1559z00_3778 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_fz00_3562);
					{	/* Match/normalize.scm 222 */
						obj_t BgL_zc3z04anonymousza31560ze3z87_3779;

						BgL_zc3z04anonymousza31560ze3z87_3779 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31560ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31560ze3z87_3779, (int) (0L),
							BgL_pattern1z00_3564);
						PROCEDURE_SET(BgL_zc3z04anonymousza31560ze3z87_3779, (int) (1L),
							BgL_cz00_3563);
						return (VA_PROCEDUREP(BgL_fun1559z00_3778) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1559z00_3778)) (BgL_fun1559z00_3778,
								BgL_rrz00_3565, BgL_zc3z04anonymousza31560ze3z87_3779,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1559z00_3778)) (BgL_fun1559z00_3778,
								BgL_rrz00_3565, BgL_zc3z04anonymousza31560ze3z87_3779));
					}
				}
			}
		}

	}



/* &<@anonymous:1560> */
	obj_t BGl_z62zc3z04anonymousza31560ze3ze5zz__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_arg1563z00_3780;

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

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

							BgL_arg1565z00_3782 = MAKE_YOUNG_PAIR(BgL_pattern1z00_3567, BNIL);
							BgL_arg1564z00_3781 =
								MAKE_YOUNG_PAIR(BgL_pattern2z00_3569, BgL_arg1565z00_3782);
						}
						BgL_arg1563z00_3780 =
							MAKE_YOUNG_PAIR(BGl_symbol2290z00zz__match_normaliza7eza7,
							BgL_arg1564z00_3781);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3568) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3568)) (BgL_cz00_3568,
							BgL_arg1563z00_3780, BgL_rrrz00_3570, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3568)) (BgL_cz00_3568,
							BgL_arg1563z00_3780, 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_zc3z04anonymousza31566ze3z87_3571;

				BgL_zc3z04anonymousza31566ze3z87_3571 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31566ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31566ze3z87_3571, (int) (0L),
					BgL_ez00_24);
				return BgL_zc3z04anonymousza31566ze3z87_3571;
			}
		}

	}



/* &<@anonymous:1566> */
	obj_t BGl_z62zc3z04anonymousza31566ze3ze5zz__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_3783;

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

						BgL_sz00_3784 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3573));
						BgL_namez00_3783 =
							bstring_to_symbol(c_substring(BgL_sz00_3784, 1L,
								STRING_LENGTH(BgL_sz00_3784)));
					}
					{	/* Match/normalize.scm 227 */
						obj_t BgL_arg1567z00_3785;

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

							BgL_arg1568z00_3786 = MAKE_YOUNG_PAIR(BgL_namez00_3783, BNIL);
							BgL_arg1567z00_3785 =
								MAKE_YOUNG_PAIR(BGl_symbol2292z00zz__match_normaliza7eza7,
								BgL_arg1568z00_3786);
						}
						return
							(VA_PROCEDUREP(BgL_cz00_3575) ? ((obj_t(*)(obj_t,
										...)) PROCEDURE_ENTRY(BgL_cz00_3575)) (BgL_cz00_3575,
								BgL_arg1567z00_3785, BgL_rz00_3574, BEOA) : ((obj_t(*)(obj_t,
										obj_t,
										obj_t)) PROCEDURE_ENTRY(BgL_cz00_3575)) (BgL_cz00_3575,
								BgL_arg1567z00_3785, 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_zc3z04anonymousza31569ze3z87_3576;

				BgL_zc3z04anonymousza31569ze3z87_3576 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31569ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31569ze3z87_3576, (int) (0L),
					BgL_ez00_25);
				return BgL_zc3z04anonymousza31569ze3z87_3576;
			}
		}

	}



/* &<@anonymous:1569> */
	obj_t BGl_z62zc3z04anonymousza31569ze3ze5zz__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_3787;

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

						BgL_sz00_3788 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3578));
						BgL_namez00_3787 =
							bstring_to_symbol(c_substring(BgL_sz00_3788, 1L,
								STRING_LENGTH(BgL_sz00_3788)));
					}
					{	/* Match/normalize.scm 240 */
						obj_t BgL_arg1575z00_3789;

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

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

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

									BgL_arg1578z00_3792 =
										(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
										? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
										(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
											BGl_string2276z00zz__match_normaliza7eza7,
											BEOA) : ((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
										(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
											BGl_string2276z00zz__match_normaliza7eza7));
									BgL_arg1577z00_3791 =
										MAKE_YOUNG_PAIR(BgL_arg1578z00_3792, BNIL);
								}
								BgL_arg1576z00_3790 =
									MAKE_YOUNG_PAIR(BgL_namez00_3787, BgL_arg1577z00_3791);
							}
							BgL_arg1575z00_3789 =
								MAKE_YOUNG_PAIR(BGl_symbol2277z00zz__match_normaliza7eza7,
								BgL_arg1576z00_3790);
						}
						return
							(VA_PROCEDUREP(BgL_cz00_3580) ? ((obj_t(*)(obj_t,
										...)) PROCEDURE_ENTRY(BgL_cz00_3580)) (BgL_cz00_3580,
								BgL_arg1575z00_3789, BgL_rz00_3579, BEOA) : ((obj_t(*)(obj_t,
										obj_t,
										obj_t)) PROCEDURE_ENTRY(BgL_cz00_3580)) (BgL_cz00_3580,
								BgL_arg1575z00_3789, 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_zc3z04anonymousza31583ze3z87_3583;

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

	}



/* &<@anonymous:1583> */
	obj_t BGl_z62zc3z04anonymousza31583ze3ze5zz__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_3793;

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

						BgL_sz00_3794 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3585));
						BgL_namez00_3793 =
							bstring_to_symbol(c_substring(BgL_sz00_3794, 2L,
								STRING_LENGTH(BgL_sz00_3794)));
					}
					{	/* Match/normalize.scm 249 */
						bool_t BgL_test2468z00_4907;

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

							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_namez00_3793, BgL_rz00_3587)))
								{	/* Match/normalize.scm 337 */
									BgL_arg1620z00_3795 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_namez00_3793, BgL_rz00_3587));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_arg1620z00_3795 = BFALSE;
								}
							BgL_test2468z00_4907 =
								(BgL_arg1620z00_3795 ==
								BGl_unboundzd2patternzd2zz__match_normaliza7eza7);
						}
						if (BgL_test2468z00_4907)
							{	/* Match/normalize.scm 250 */
								obj_t BgL_fun1588z00_3796;

								BgL_fun1588z00_3796 =
									BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
									(BgL_fza2za2_3586);
								{	/* Match/normalize.scm 251 */
									obj_t BgL_arg1586z00_3797;

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

										BgL_imz00_3798 = BGl_symbol2294z00zz__match_normaliza7eza7;
										{	/* Match/normalize.scm 334 */
											obj_t BgL_arg1730z00_3799;

											BgL_arg1730z00_3799 =
												MAKE_YOUNG_PAIR(BgL_namez00_3793, BgL_imz00_3798);
											BgL_arg1586z00_3797 =
												MAKE_YOUNG_PAIR(BgL_arg1730z00_3799, BgL_rz00_3587);
										}
									}
									{	/* Match/normalize.scm 253 */
										obj_t BgL_zc3z04anonymousza31589ze3z87_3800;

										BgL_zc3z04anonymousza31589ze3z87_3800 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza31589ze3ze5zz__match_normaliza7eza7,
											(int) (2L), (int) (2L));
										PROCEDURE_SET(BgL_zc3z04anonymousza31589ze3z87_3800,
											(int) (0L), BgL_namez00_3793);
										PROCEDURE_SET(BgL_zc3z04anonymousza31589ze3z87_3800,
											(int) (1L), BgL_cz00_3588);
										return (VA_PROCEDUREP(BgL_fun1588z00_3796)
											? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_fun1588z00_3796))
											(BgL_fun1588z00_3796, BgL_arg1586z00_3797,
												BgL_zc3z04anonymousza31589ze3z87_3800,
												BEOA) : ((obj_t(*)(obj_t, obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_fun1588z00_3796))
											(BgL_fun1588z00_3796, BgL_arg1586z00_3797,
												BgL_zc3z04anonymousza31589ze3z87_3800));
									}
								}
							}
						else
							{	/* Match/normalize.scm 261 */
								obj_t BgL_fun1615z00_3801;

								BgL_fun1615z00_3801 =
									BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
									(BgL_fza2za2_3586);
								{	/* Match/normalize.scm 264 */
									obj_t BgL_zc3z04anonymousza31616ze3z87_3802;

									BgL_zc3z04anonymousza31616ze3z87_3802 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31616ze3ze5zz__match_normaliza7eza7,
										(int) (2L), (int) (2L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3802,
										(int) (0L), BgL_namez00_3793);
									PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3802,
										(int) (1L), BgL_cz00_3588);
									return (VA_PROCEDUREP(BgL_fun1615z00_3801) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_fun1615z00_3801))
										(BgL_fun1615z00_3801, BgL_rz00_3587,
											BgL_zc3z04anonymousza31616ze3z87_3802,
											BEOA) : ((obj_t(*)(obj_t, obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_fun1615z00_3801))
										(BgL_fun1615z00_3801, BgL_rz00_3587,
											BgL_zc3z04anonymousza31616ze3z87_3802));
								}
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1589> */
	obj_t BGl_z62zc3z04anonymousza31589ze3ze5zz__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_3803;

					BgL_labelz00_3803 =
						(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
						? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2275z00zz__match_normaliza7eza7,
							BEOA) : ((obj_t(*)(obj_t,
									obj_t))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2275z00zz__match_normaliza7eza7));
					{	/* Match/normalize.scm 257 */
						obj_t BgL_arg1590z00_3804;

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

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

								{	/* Match/normalize.scm 257 */
									obj_t BgL_arg1595z00_3807;
									obj_t BgL_arg1597z00_3808;

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

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

											{	/* Match/normalize.scm 257 */
												obj_t BgL_arg1602z00_3811;
												obj_t BgL_arg1603z00_3812;

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

													{	/* Match/normalize.scm 257 */
														obj_t BgL_arg1605z00_3814;
														obj_t BgL_arg1606z00_3815;

														BgL_arg1605z00_3814 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
														{	/* Match/normalize.scm 257 */
															obj_t BgL_arg1607z00_3816;

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

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

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

																		BgL_arg1610z00_3819 =
																			(VA_PROCEDUREP
																			(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
																			? ((obj_t(*)(obj_t,
																						...))
																				PROCEDURE_ENTRY
																				(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																			(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																				BGl_string2276z00zz__match_normaliza7eza7,
																				BEOA) : ((obj_t(*)(obj_t,
																						obj_t))
																				PROCEDURE_ENTRY
																				(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																			(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																				BGl_string2276z00zz__match_normaliza7eza7));
																		BgL_arg1609z00_3818 =
																			MAKE_YOUNG_PAIR(BgL_arg1610z00_3819,
																			BNIL);
																	}
																	BgL_arg1608z00_3817 =
																		MAKE_YOUNG_PAIR(BgL_labelz00_3803,
																		BgL_arg1609z00_3818);
																}
																BgL_arg1607z00_3816 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2277z00zz__match_normaliza7eza7,
																	BgL_arg1608z00_3817);
															}
															BgL_arg1606z00_3815 =
																MAKE_YOUNG_PAIR(BgL_arg1607z00_3816, BNIL);
														}
														BgL_arg1604z00_3813 =
															MAKE_YOUNG_PAIR(BgL_arg1605z00_3814,
															BgL_arg1606z00_3815);
													}
													BgL_arg1602z00_3811 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2266z00zz__match_normaliza7eza7,
														BgL_arg1604z00_3813);
												}
												{	/* Match/normalize.scm 258 */
													obj_t BgL_arg1611z00_3820;

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

														BgL_arg1613z00_3821 =
															MAKE_YOUNG_PAIR(BgL_namez00_3590, BNIL);
														BgL_arg1611z00_3820 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2296z00zz__match_normaliza7eza7,
															BgL_arg1613z00_3821);
													}
													BgL_arg1603z00_3812 =
														MAKE_YOUNG_PAIR(BgL_arg1611z00_3820, BNIL);
												}
												BgL_arg1600z00_3810 =
													MAKE_YOUNG_PAIR(BgL_arg1602z00_3811,
													BgL_arg1603z00_3812);
											}
											BgL_arg1598z00_3809 =
												MAKE_YOUNG_PAIR(BgL_labelz00_3803, BgL_arg1600z00_3810);
										}
										BgL_arg1595z00_3807 =
											MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__match_normaliza7eza7,
											BgL_arg1598z00_3809);
									}
									BgL_arg1597z00_3808 =
										MAKE_YOUNG_PAIR(BgL_patternz00_3592, BNIL);
									BgL_arg1592z00_3806 =
										MAKE_YOUNG_PAIR(BgL_arg1595z00_3807, BgL_arg1597z00_3808);
								}
								BgL_arg1591z00_3805 =
									MAKE_YOUNG_PAIR(BgL_namez00_3590, BgL_arg1592z00_3806);
							}
							BgL_arg1590z00_3804 =
								MAKE_YOUNG_PAIR(BGl_symbol2300z00zz__match_normaliza7eza7,
								BgL_arg1591z00_3805);
						}
						return
							(VA_PROCEDUREP(BgL_cz00_3591) ? ((obj_t(*)(obj_t,
										...)) PROCEDURE_ENTRY(BgL_cz00_3591)) (BgL_cz00_3591,
								BgL_arg1590z00_3804, BgL_rrz00_3593, BEOA) : ((obj_t(*)(obj_t,
										obj_t,
										obj_t)) PROCEDURE_ENTRY(BgL_cz00_3591)) (BgL_cz00_3591,
								BgL_arg1590z00_3804, BgL_rrz00_3593));
					}
				}
			}
		}

	}



/* &<@anonymous:1616> */
	obj_t BGl_z62zc3z04anonymousza31616ze3ze5zz__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_arg1617z00_3822;

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

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

							BgL_arg1619z00_3824 = MAKE_YOUNG_PAIR(BgL_patternz00_3597, BNIL);
							BgL_arg1618z00_3823 =
								MAKE_YOUNG_PAIR(BgL_namez00_3595, BgL_arg1619z00_3824);
						}
						BgL_arg1617z00_3822 =
							MAKE_YOUNG_PAIR(BGl_symbol2302z00zz__match_normaliza7eza7,
							BgL_arg1618z00_3823);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3596) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3596)) (BgL_cz00_3596,
							BgL_arg1617z00_3822, BgL_rrz00_3598, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3596)) (BgL_cz00_3596,
							BgL_arg1617z00_3822, 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_zc3z04anonymousza31621ze3z87_3601;

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

	}



/* &<@anonymous:1621> */
	obj_t BGl_z62zc3z04anonymousza31621ze3ze5zz__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_3825;

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

						BgL_sz00_3826 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3603));
						BgL_namez00_3825 =
							bstring_to_symbol(c_substring(BgL_sz00_3826, 1L,
								STRING_LENGTH(BgL_sz00_3826)));
					}
					{	/* Match/normalize.scm 269 */
						obj_t BgL_fun1624z00_3827;

						BgL_fun1624z00_3827 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_f1z00_3604);
						{	/* Match/normalize.scm 270 */
							obj_t BgL_arg1622z00_3828;

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

								BgL_imz00_3829 = BGl_symbol2298z00zz__match_normaliza7eza7;
								{	/* Match/normalize.scm 334 */
									obj_t BgL_arg1730z00_3830;

									BgL_arg1730z00_3830 =
										MAKE_YOUNG_PAIR(BgL_namez00_3825, BgL_imz00_3829);
									BgL_arg1622z00_3828 =
										MAKE_YOUNG_PAIR(BgL_arg1730z00_3830, BgL_rz00_3606);
							}}
							{	/* Match/normalize.scm 272 */
								obj_t BgL_zc3z04anonymousza31625ze3z87_3831;

								BgL_zc3z04anonymousza31625ze3z87_3831 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31625ze3ze5zz__match_normaliza7eza7,
									(int) (2L), (int) (3L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31625ze3z87_3831, (int) (0L),
									BgL_f2z00_3605);
								PROCEDURE_SET(BgL_zc3z04anonymousza31625ze3z87_3831, (int) (1L),
									BgL_namez00_3825);
								PROCEDURE_SET(BgL_zc3z04anonymousza31625ze3z87_3831, (int) (2L),
									BgL_cz00_3607);
								return (VA_PROCEDUREP(BgL_fun1624z00_3827) ? ((obj_t(*)(obj_t,
												...))
										PROCEDURE_ENTRY(BgL_fun1624z00_3827)) (BgL_fun1624z00_3827,
										BgL_arg1622z00_3828, BgL_zc3z04anonymousza31625ze3z87_3831,
										BEOA) : ((obj_t(*)(obj_t, obj_t,
												obj_t))
										PROCEDURE_ENTRY(BgL_fun1624z00_3827)) (BgL_fun1624z00_3827,
										BgL_arg1622z00_3828,
										BgL_zc3z04anonymousza31625ze3z87_3831));
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1625> */
	obj_t BGl_z62zc3z04anonymousza31625ze3ze5zz__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_fun1627z00_3832;

					BgL_fun1627z00_3832 =
						BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
						(BgL_f2z00_3609);
					{	/* Match/normalize.scm 275 */
						obj_t BgL_zc3z04anonymousza31628ze3z87_3833;

						BgL_zc3z04anonymousza31628ze3z87_3833 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31628ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31628ze3z87_3833, (int) (0L),
							BgL_holezd2patternzd2_3612);
						PROCEDURE_SET(BgL_zc3z04anonymousza31628ze3z87_3833, (int) (1L),
							BgL_namez00_3610);
						PROCEDURE_SET(BgL_zc3z04anonymousza31628ze3z87_3833, (int) (2L),
							BgL_cz00_3611);
						return (VA_PROCEDUREP(BgL_fun1627z00_3832) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1627z00_3832)) (BgL_fun1627z00_3832,
								BgL_rrz00_3613, BgL_zc3z04anonymousza31628ze3z87_3833,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1627z00_3832)) (BgL_fun1627z00_3832,
								BgL_rrz00_3613, BgL_zc3z04anonymousza31628ze3z87_3833));
					}
				}
			}
		}

	}



/* &<@anonymous:1628> */
	obj_t BGl_z62zc3z04anonymousza31628ze3ze5zz__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_test2470z00_5056;

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

						BgL_a1120z00_3834 =
							BGl_oczd2countzd2zz__match_normaliza7eza7(BgL_namez00_3616,
							BgL_patternsz00_3618);
						{	/* Match/normalize.scm 275 */

							if (INTEGERP(BgL_a1120z00_3834))
								{	/* Match/normalize.scm 275 */
									BgL_test2470z00_5056 = ((long) CINT(BgL_a1120z00_3834) > 1L);
								}
							else
								{	/* Match/normalize.scm 275 */
									BgL_test2470z00_5056 =
										BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1120z00_3834,
										BINT(1L));
								}
						}
					}
					if (BgL_test2470z00_5056)
						{	/* Match/normalize.scm 276 */
							obj_t BgL_arg1632z00_3835;

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

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

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

										BgL_arg1635z00_3838 =
											MAKE_YOUNG_PAIR(BgL_holezd2patternzd2_3615, BNIL);
										BgL_arg1634z00_3837 =
											MAKE_YOUNG_PAIR(BgL_patternsz00_3618,
											BgL_arg1635z00_3838);
									}
									BgL_arg1633z00_3836 =
										MAKE_YOUNG_PAIR(BgL_namez00_3616, BgL_arg1634z00_3837);
								}
								BgL_arg1632z00_3835 =
									MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__match_normaliza7eza7,
									BgL_arg1633z00_3836);
							}
							return
								(VA_PROCEDUREP(BgL_cz00_3617) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_cz00_3617)) (BgL_cz00_3617,
									BgL_arg1632z00_3835, BgL_rrrz00_3619,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_cz00_3617)) (BgL_cz00_3617,
									BgL_arg1632z00_3835, BgL_rrrz00_3619));
						}
					else
						{	/* Match/normalize.scm 277 */
							obj_t BgL_arg1636z00_3839;

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

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

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

										BgL_arg1639z00_3842 =
											MAKE_YOUNG_PAIR(BgL_holezd2patternzd2_3615, BNIL);
										BgL_arg1638z00_3841 =
											MAKE_YOUNG_PAIR(BgL_patternsz00_3618,
											BgL_arg1639z00_3842);
									}
									BgL_arg1637z00_3840 =
										MAKE_YOUNG_PAIR(BgL_namez00_3616, BgL_arg1638z00_3841);
								}
								BgL_arg1636z00_3839 =
									MAKE_YOUNG_PAIR(BGl_symbol2279z00zz__match_normaliza7eza7,
									BgL_arg1637z00_3840);
							}
							return
								(VA_PROCEDUREP(BgL_cz00_3617) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_cz00_3617)) (BgL_cz00_3617,
									BgL_arg1636z00_3839, BgL_rrrz00_3619,
									BEOA) : ((obj_t(*)(obj_t, obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_cz00_3617)) (BgL_cz00_3617,
									BgL_arg1636z00_3839, 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_symbol2277z00zz__match_normaliza7eza7))
						{	/* Match/normalize.scm 283 */
							bool_t BgL_test2474z00_5089;

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

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

									BgL_pairz00_2800 = CDR(((obj_t) BgL_patternz00_33));
									BgL_tmpz00_5090 = CAR(BgL_pairz00_2800);
								}
								BgL_test2474z00_5089 = (BgL_tmpz00_5090 == BgL_namez00_32);
							}
							if (BgL_test2474z00_5089)
								{	/* 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_list2304z00zz__match_normaliza7eza7)))
								{	/* Match/normalize.scm 287 */
									obj_t BgL_runner1659z00_1742;

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

										BgL_l1122z00_1729 = CDR(((obj_t) BgL_patternz00_33));
										if (NULLP(BgL_l1122z00_1729))
											{	/* Match/normalize.scm 287 */
												BgL_runner1659z00_1742 = BNIL;
											}
										else
											{	/* Match/normalize.scm 287 */
												obj_t BgL_head1124z00_1731;

												BgL_head1124z00_1731 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												{
													obj_t BgL_l1122z00_2822;
													obj_t BgL_tail1125z00_2823;

													BgL_l1122z00_2822 = BgL_l1122z00_1729;
													BgL_tail1125z00_2823 = BgL_head1124z00_1731;
												BgL_zc3z04anonymousza31654ze3z87_2821:
													if (NULLP(BgL_l1122z00_2822))
														{	/* Match/normalize.scm 287 */
															BgL_runner1659z00_1742 =
																CDR(BgL_head1124z00_1731);
														}
													else
														{	/* Match/normalize.scm 287 */
															obj_t BgL_newtail1126z00_2830;

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

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

																	BgL_patz00_2832 =
																		CAR(((obj_t) BgL_l1122z00_2822));
																	BgL_arg1658z00_2831 =
																		BGl_oczd2countzd2zz__match_normaliza7eza7
																		(BgL_namez00_32, BgL_patz00_2832);
																}
																BgL_newtail1126z00_2830 =
																	MAKE_YOUNG_PAIR(BgL_arg1658z00_2831, BNIL);
															}
															SET_CDR(BgL_tail1125z00_2823,
																BgL_newtail1126z00_2830);
															{	/* Match/normalize.scm 287 */
																obj_t BgL_arg1656z00_2833;

																BgL_arg1656z00_2833 =
																	CDR(((obj_t) BgL_l1122z00_2822));
																{
																	obj_t BgL_tail1125z00_5118;
																	obj_t BgL_l1122z00_5117;

																	BgL_l1122z00_5117 = BgL_arg1656z00_2833;
																	BgL_tail1125z00_5118 =
																		BgL_newtail1126z00_2830;
																	BgL_tail1125z00_2823 = BgL_tail1125z00_5118;
																	BgL_l1122z00_2822 = BgL_l1122z00_5117;
																	goto BgL_zc3z04anonymousza31654ze3z87_2821;
																}
															}
														}
												}
											}
									}
									return
										BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_runner1659z00_1742);
								}
							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_zc3z04anonymousza31664ze3z87_3620;

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

	}



/* &<@anonymous:1664> */
	obj_t BGl_z62zc3z04anonymousza31664ze3ze5zz__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_3843;

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

						BgL_sz00_3844 = SYMBOL_TO_STRING(((obj_t) BgL_ez00_3622));
						BgL_namez00_3843 =
							bstring_to_symbol(c_substring(BgL_sz00_3844, 3L,
								STRING_LENGTH(BgL_sz00_3844)));
					}
					{	/* Match/normalize.scm 294 */
						bool_t BgL_test2479z00_5136;

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

							if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
									(BgL_namez00_3843, BgL_rz00_3623)))
								{	/* Match/normalize.scm 337 */
									BgL_arg1684z00_3845 =
										CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_namez00_3843, BgL_rz00_3623));
								}
							else
								{	/* Match/normalize.scm 337 */
									BgL_arg1684z00_3845 = BFALSE;
								}
							BgL_test2479z00_5136 =
								(BgL_arg1684z00_3845 ==
								BGl_unboundzd2patternzd2zz__match_normaliza7eza7);
						}
						if (BgL_test2479z00_5136)
							{	/* Match/normalize.scm 295 */
								obj_t BgL_arg1670z00_3846;
								obj_t BgL_arg1671z00_3847;

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

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

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

											BgL_arg1675z00_3850 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
											BgL_arg1673z00_3849 =
												MAKE_YOUNG_PAIR(BgL_arg1675z00_3850, BNIL);
										}
										BgL_arg1672z00_3848 =
											MAKE_YOUNG_PAIR(BgL_namez00_3843, BgL_arg1673z00_3849);
									}
									BgL_arg1670z00_3846 =
										MAKE_YOUNG_PAIR(BGl_symbol2292z00zz__match_normaliza7eza7,
										BgL_arg1672z00_3848);
								}
								{	/* Match/normalize.scm 296 */
									obj_t BgL_imz00_3851;

									BgL_imz00_3851 = BGl_symbol2294z00zz__match_normaliza7eza7;
									{	/* Match/normalize.scm 334 */
										obj_t BgL_arg1730z00_3852;

										BgL_arg1730z00_3852 =
											MAKE_YOUNG_PAIR(BgL_namez00_3843, BgL_imz00_3851);
										BgL_arg1671z00_3847 =
											MAKE_YOUNG_PAIR(BgL_arg1730z00_3852, BgL_rz00_3623);
									}
								}
								return
									(VA_PROCEDUREP(BgL_cz00_3624) ? ((obj_t(*)(obj_t,
												...)) PROCEDURE_ENTRY(BgL_cz00_3624)) (BgL_cz00_3624,
										BgL_arg1670z00_3846, BgL_arg1671z00_3847,
										BEOA) : ((obj_t(*)(obj_t, obj_t,
												obj_t)) PROCEDURE_ENTRY(BgL_cz00_3624)) (BgL_cz00_3624,
										BgL_arg1670z00_3846, BgL_arg1671z00_3847));
							}
						else
							{	/* Match/normalize.scm 297 */
								obj_t BgL_arg1678z00_3853;

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

									BgL_arg1681z00_3854 = MAKE_YOUNG_PAIR(BgL_namez00_3843, BNIL);
									BgL_arg1678z00_3853 =
										MAKE_YOUNG_PAIR(BGl_symbol2292z00zz__match_normaliza7eza7,
										BgL_arg1681z00_3854);
								}
								return
									(VA_PROCEDUREP(BgL_cz00_3624) ? ((obj_t(*)(obj_t,
												...)) PROCEDURE_ENTRY(BgL_cz00_3624)) (BgL_cz00_3624,
										BgL_arg1678z00_3853, BgL_rz00_3623,
										BEOA) : ((obj_t(*)(obj_t, obj_t,
												obj_t)) PROCEDURE_ENTRY(BgL_cz00_3624)) (BgL_cz00_3624,
										BgL_arg1678z00_3853, 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_zc3z04anonymousza31685ze3z87_3626;

				BgL_zc3z04anonymousza31685ze3z87_3626 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31685ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31685ze3z87_3626, (int) (0L),
					BgL_fza2za2_36);
				return BgL_zc3z04anonymousza31685ze3z87_3626;
			}
		}

	}



/* &<@anonymous:1685> */
	obj_t BGl_z62zc3z04anonymousza31685ze3ze5zz__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_fun1688z00_3855;

					BgL_fun1688z00_3855 =
						BGl_standardiza7ezd2patternsz75zz__match_normaliza7eza7
						(BgL_fza2za2_3628);
					{	/* Match/normalize.scm 305 */
						obj_t BgL_zc3z04anonymousza31689ze3z87_3856;

						BgL_zc3z04anonymousza31689ze3z87_3856 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31689ze3ze5zz__match_normaliza7eza7,
							(int) (2L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31689ze3z87_3856, (int) (0L),
							BgL_cz00_3630);
						return (VA_PROCEDUREP(BgL_fun1688z00_3855) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1688z00_3855)) (BgL_fun1688z00_3855,
								BgL_rz00_3629, BgL_zc3z04anonymousza31689ze3z87_3856,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1688z00_3855)) (BgL_fun1688z00_3855,
								BgL_rz00_3629, BgL_zc3z04anonymousza31689ze3z87_3856));
					}
				}
			}
		}

	}



/* &<@anonymous:1689> */
	obj_t BGl_z62zc3z04anonymousza31689ze3ze5zz__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_3857;

					BgL_labelz00_3857 =
						(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
						? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2275z00zz__match_normaliza7eza7,
							BEOA) : ((obj_t(*)(obj_t,
									obj_t))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2275z00zz__match_normaliza7eza7));
					if (CBOOL(BGl_z62zc3z04anonymousza31535ze3ze5zz__match_normaliza7eza7
							(BGl_za2preferzd2xconsza2zd2zz__match_normaliza7eza7,
								BGl_symbol2284z00zz__match_normaliza7eza7)))
						{	/* Match/normalize.scm 308 */
							obj_t BgL_arg1693z00_3858;

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

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

									{	/* Match/normalize.scm 308 */
										obj_t BgL_arg1698z00_3861;
										obj_t BgL_arg1703z00_3862;

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

											{	/* Match/normalize.scm 308 */
												obj_t BgL_arg1706z00_3864;
												obj_t BgL_arg1707z00_3865;

												BgL_arg1706z00_3864 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
												{	/* Match/normalize.scm 308 */
													obj_t BgL_arg1708z00_3866;

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

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

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

																BgL_arg1712z00_3869 =
																	(VA_PROCEDUREP
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
																	? ((obj_t(*)(obj_t,
																				...))
																		PROCEDURE_ENTRY
																		(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																		BGl_string2276z00zz__match_normaliza7eza7,
																		BEOA) : ((obj_t(*)(obj_t,
																				obj_t))
																		PROCEDURE_ENTRY
																		(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																		BGl_string2276z00zz__match_normaliza7eza7));
																BgL_arg1710z00_3868 =
																	MAKE_YOUNG_PAIR(BgL_arg1712z00_3869, BNIL);
															}
															BgL_arg1709z00_3867 =
																MAKE_YOUNG_PAIR(BgL_labelz00_3857,
																BgL_arg1710z00_3868);
														}
														BgL_arg1708z00_3866 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2277z00zz__match_normaliza7eza7,
															BgL_arg1709z00_3867);
													}
													BgL_arg1707z00_3865 =
														MAKE_YOUNG_PAIR(BgL_arg1708z00_3866, BNIL);
												}
												BgL_arg1704z00_3863 =
													MAKE_YOUNG_PAIR(BgL_arg1706z00_3864,
													BgL_arg1707z00_3865);
											}
											BgL_arg1698z00_3861 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2290z00zz__match_normaliza7eza7,
												BgL_arg1704z00_3863);
										}
										BgL_arg1703z00_3862 =
											MAKE_YOUNG_PAIR(BgL_patternz00_3633, BNIL);
										BgL_arg1696z00_3860 =
											MAKE_YOUNG_PAIR(BgL_arg1698z00_3861, BgL_arg1703z00_3862);
									}
									BgL_arg1695z00_3859 =
										MAKE_YOUNG_PAIR(BgL_labelz00_3857, BgL_arg1696z00_3860);
								}
								BgL_arg1693z00_3858 =
									MAKE_YOUNG_PAIR(BGl_symbol2279z00zz__match_normaliza7eza7,
									BgL_arg1695z00_3859);
							}
							return
								(VA_PROCEDUREP(BgL_cz00_3632) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_cz00_3632)) (BgL_cz00_3632,
									BgL_arg1693z00_3858, BgL_rrz00_3634, BEOA) : ((obj_t(*)(obj_t,
											obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_cz00_3632)) (BgL_cz00_3632,
									BgL_arg1693z00_3858, BgL_rrz00_3634));
						}
					else
						{	/* Match/normalize.scm 312 */
							obj_t BgL_arg1713z00_3870;

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

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

									{	/* Match/normalize.scm 312 */
										obj_t BgL_arg1716z00_3873;
										obj_t BgL_arg1717z00_3874;

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

											{	/* Match/normalize.scm 312 */
												obj_t BgL_arg1720z00_3876;
												obj_t BgL_arg1721z00_3877;

												BgL_arg1720z00_3876 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
												{	/* Match/normalize.scm 312 */
													obj_t BgL_arg1722z00_3878;

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

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

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

																BgL_arg1725z00_3881 =
																	(VA_PROCEDUREP
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
																	? ((obj_t(*)(obj_t,
																				...))
																		PROCEDURE_ENTRY
																		(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																		BGl_string2276z00zz__match_normaliza7eza7,
																		BEOA) : ((obj_t(*)(obj_t,
																				obj_t))
																		PROCEDURE_ENTRY
																		(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																		BGl_string2276z00zz__match_normaliza7eza7));
																BgL_arg1724z00_3880 =
																	MAKE_YOUNG_PAIR(BgL_arg1725z00_3881, BNIL);
															}
															BgL_arg1723z00_3879 =
																MAKE_YOUNG_PAIR(BgL_labelz00_3857,
																BgL_arg1724z00_3880);
														}
														BgL_arg1722z00_3878 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2277z00zz__match_normaliza7eza7,
															BgL_arg1723z00_3879);
													}
													BgL_arg1721z00_3877 =
														MAKE_YOUNG_PAIR(BgL_arg1722z00_3878, BNIL);
												}
												BgL_arg1718z00_3875 =
													MAKE_YOUNG_PAIR(BgL_arg1720z00_3876,
													BgL_arg1721z00_3877);
											}
											BgL_arg1716z00_3873 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2266z00zz__match_normaliza7eza7,
												BgL_arg1718z00_3875);
										}
										BgL_arg1717z00_3874 =
											MAKE_YOUNG_PAIR(BgL_patternz00_3633, BNIL);
										BgL_arg1715z00_3872 =
											MAKE_YOUNG_PAIR(BgL_arg1716z00_3873, BgL_arg1717z00_3874);
									}
									BgL_arg1714z00_3871 =
										MAKE_YOUNG_PAIR(BgL_labelz00_3857, BgL_arg1715z00_3872);
								}
								BgL_arg1713z00_3870 =
									MAKE_YOUNG_PAIR(BGl_symbol2279z00zz__match_normaliza7eza7,
									BgL_arg1714z00_3871);
							}
							return
								(VA_PROCEDUREP(BgL_cz00_3632) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_cz00_3632)) (BgL_cz00_3632,
									BgL_arg1713z00_3870, BgL_rrz00_3634, BEOA) : ((obj_t(*)(obj_t,
											obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_cz00_3632)) (BgL_cz00_3632,
									BgL_arg1713z00_3870, 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_proc2307z00zz__match_normaliza7eza7;
				}
			else
				{	/* Match/normalize.scm 317 */
					BGL_TAIL return
						BGl_standardiza7ezd2anyz75zz__match_normaliza7eza7(BgL_fza2za2_37);
				}
		}

	}



/* &<@anonymous:1727> */
	obj_t BGl_z62zc3z04anonymousza31727ze3ze5zz__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_arg1729z00_3882;

				BgL_arg1729z00_3882 =
					MAKE_YOUNG_PAIR(BGl_symbol2264z00zz__match_normaliza7eza7, BNIL);
				return
					(VA_PROCEDUREP(BgL_cz00_3638) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_cz00_3638)) (BgL_cz00_3638,
						BgL_arg1729z00_3882, BgL_rz00_3637, BEOA) : ((obj_t(*)(obj_t, obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_cz00_3638)) (BgL_cz00_3638,
						BgL_arg1729z00_3882, 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_2857;

				BgL_fnz00_2857 = BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7;
				{	/* Match/normalize.scm 334 */
					obj_t BgL_arg1730z00_2858;

					BgL_arg1730z00_2858 = MAKE_YOUNG_PAIR(BgL_namez00_45, BgL_funz00_46);
					return (BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7 =
						MAKE_YOUNG_PAIR(BgL_arg1730z00_2858, BgL_fnz00_2857), 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_test2484z00_5245;

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

						BgL_arg1736z00_1811 = CAR(CAR(BgL_rz00_48));
						{
							obj_t BgL_rz00_2889;

							BgL_rz00_2889 = BgL_rrz00_49;
						BgL_lookz00_2888:
							if (PAIRP(BgL_rz00_2889))
								{	/* Match/normalize.scm 472 */
									bool_t BgL__ortest_1061z00_2891;

									BgL__ortest_1061z00_2891 =
										(CAR(CAR(BgL_rz00_2889)) == BgL_arg1736z00_1811);
									if (BgL__ortest_1061z00_2891)
										{	/* Match/normalize.scm 472 */
											BgL_test2484z00_5245 = BgL__ortest_1061z00_2891;
										}
									else
										{
											obj_t BgL_rz00_5254;

											BgL_rz00_5254 = CDR(BgL_rz00_2889);
											BgL_rz00_2889 = BgL_rz00_5254;
											goto BgL_lookz00_2888;
										}
								}
							else
								{	/* Match/normalize.scm 471 */
									BgL_test2484z00_5245 = ((bool_t) 0);
								}
						}
					}
					if (BgL_test2484z00_5245)
						{
							obj_t BgL_rz00_5256;

							BgL_rz00_5256 = CDR(BgL_rz00_48);
							BgL_rz00_48 = BgL_rz00_5256;
							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_1816;

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

					BgL_arg1784z00_1863 =
						BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_54);
					{	/* Match/normalize.scm 124 */
						obj_t BgL_fun1464z00_2900;

						BgL_fun1464z00_2900 =
							BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
							(BgL_arg1784z00_1863);
						BgL_tmpz00_1816 =
							(VA_PROCEDUREP(BgL_fun1464z00_2900) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1464z00_2900)) (BgL_fun1464z00_2900,
								BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
								BGl_proc2308z00zz__match_normaliza7eza7,
								BEOA) : ((obj_t(*)(obj_t, obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1464z00_2900)) (BgL_fun1464z00_2900,
								BGl_rzd2macrozd2patternz00zz__match_normaliza7eza7,
								BGl_proc2308z00zz__match_normaliza7eza7));
					}
				}
				{	/* Match/normalize.scm 518 */
					obj_t BgL_zc3z04anonymousza31740ze3z87_3642;

					BgL_zc3z04anonymousza31740ze3z87_3642 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31740ze3ze5zz__match_normaliza7eza7,
						(int) (2L), (int) (2L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31740ze3z87_3642, (int) (0L),
						BgL_ez00_54);
					PROCEDURE_SET(BgL_zc3z04anonymousza31740ze3z87_3642, (int) (1L),
						BgL_tmpz00_1816);
					return BgL_zc3z04anonymousza31740ze3z87_3642;
				}
			}
		}

	}



/* &<@anonymous:1740> */
	obj_t BGl_z62zc3z04anonymousza31740ze3ze5zz__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_arg1741z00_3883;

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

						{	/* Match/normalize.scm 519 */
							long BgL_arg1743z00_3885;
							obj_t BgL_arg1744z00_3886;

							BgL_arg1743z00_3885 =
								BGl_patternzd2lengthzd2zz__match_normaliza7eza7
								(BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_ez00_3645));
							BgL_arg1744z00_3886 =
								MAKE_YOUNG_PAIR(BGl_vectorifyze70ze7zz__match_normaliza7eza7
								(BgL_tmpz00_3646), BNIL);
							BgL_arg1742z00_3884 =
								MAKE_YOUNG_PAIR(BINT(BgL_arg1743z00_3885), BgL_arg1744z00_3886);
						}
						BgL_arg1741z00_3883 =
							MAKE_YOUNG_PAIR(BGl_symbol2309z00zz__match_normaliza7eza7,
							BgL_arg1742z00_3884);
					}
					return
						(VA_PROCEDUREP(BgL_cz00_3648) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_cz00_3648)) (BgL_cz00_3648,
							BgL_arg1741z00_3883, BgL_rz00_3647, BEOA) : ((obj_t(*)(obj_t,
									obj_t, obj_t)) PROCEDURE_ENTRY(BgL_cz00_3648)) (BgL_cz00_3648,
							BgL_arg1741z00_3883, BgL_rz00_3647));
				}
			}
		}

	}



/* vectorify~0 */
	obj_t BGl_vectorifyze70ze7zz__match_normaliza7eza7(obj_t BgL_pz00_1817)
	{
		{	/* Match/normalize.scm 499 */
			if (
				(CAR(
						((obj_t) BgL_pz00_1817)) ==
					BGl_symbol2266z00zz__match_normaliza7eza7))
				{	/* Match/normalize.scm 503 */
					obj_t BgL_arg1749z00_1830;

					{	/* Match/normalize.scm 503 */
						obj_t BgL_arg1750z00_1831;
						obj_t BgL_arg1751z00_1832;

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

							BgL_pairz00_2908 = CDR(((obj_t) BgL_pz00_1817));
							BgL_arg1750z00_1831 = CAR(BgL_pairz00_2908);
						}
						{	/* Match/normalize.scm 504 */
							obj_t BgL_arg1752z00_1833;

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

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

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

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

											BgL_pairz00_2913 = CDR(((obj_t) BgL_pz00_1817));
											BgL_pairz00_2914 = CDR(BgL_pairz00_2913);
										}
										BgL_auxz00_5297 = CAR(BgL_pairz00_2914);
									}
									BgL_test2488z00_5296 =
										BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_5297,
										BGl_list2311z00zz__match_normaliza7eza7);
								}
								if (BgL_test2488z00_5296)
									{	/* Match/normalize.scm 504 */
										BgL_arg1752z00_1833 =
											BGl_list2312z00zz__match_normaliza7eza7;
									}
								else
									{	/* Match/normalize.scm 506 */
										obj_t BgL_arg1755z00_1836;

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

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

												BgL_pairz00_2919 = CDR(((obj_t) BgL_pz00_1817));
												BgL_pairz00_2920 = CDR(BgL_pairz00_2919);
											}
											BgL_arg1755z00_1836 = CAR(BgL_pairz00_2920);
										}
										BgL_arg1752z00_1833 =
											BGl_vectorifyze70ze7zz__match_normaliza7eza7
											(BgL_arg1755z00_1836);
									}
							}
							BgL_arg1751z00_1832 = MAKE_YOUNG_PAIR(BgL_arg1752z00_1833, BNIL);
						}
						BgL_arg1749z00_1830 =
							MAKE_YOUNG_PAIR(BgL_arg1750z00_1831, BgL_arg1751z00_1832);
					}
					return
						MAKE_YOUNG_PAIR(BGl_symbol2315z00zz__match_normaliza7eza7,
						BgL_arg1749z00_1830);
				}
			else
				{	/* Match/normalize.scm 502 */
					if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_pz00_1817,
							BGl_list2317z00zz__match_normaliza7eza7))
						{	/* Match/normalize.scm 507 */
							return BGl_list2318z00zz__match_normaliza7eza7;
						}
					else
						{	/* Match/normalize.scm 507 */
							if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
											((obj_t) BgL_pz00_1817)),
										BGl_list2321z00zz__match_normaliza7eza7)))
								{	/* Match/normalize.scm 510 */
									obj_t BgL_arg1760z00_1841;
									obj_t BgL_arg1761z00_1842;
									obj_t BgL_arg1762z00_1843;

									BgL_arg1760z00_1841 = CAR(((obj_t) BgL_pz00_1817));
									{	/* Match/normalize.scm 511 */
										obj_t BgL_arg1767z00_1847;

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

											BgL_pairz00_2926 = CDR(((obj_t) BgL_pz00_1817));
											BgL_arg1767z00_1847 = CAR(BgL_pairz00_2926);
										}
										BgL_arg1761z00_1842 =
											BGl_vectorifyze70ze7zz__match_normaliza7eza7
											(BgL_arg1767z00_1847);
									}
									{	/* Match/normalize.scm 512 */
										obj_t BgL_arg1768z00_1848;

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

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

												BgL_pairz00_2931 = CDR(((obj_t) BgL_pz00_1817));
												BgL_pairz00_2932 = CDR(BgL_pairz00_2931);
											}
											BgL_arg1768z00_1848 = CAR(BgL_pairz00_2932);
										}
										BgL_arg1762z00_1843 =
											BGl_vectorifyze70ze7zz__match_normaliza7eza7
											(BgL_arg1768z00_1848);
									}
									{	/* Match/normalize.scm 510 */
										obj_t BgL_list1763z00_1844;

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

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

												BgL_arg1766z00_1846 =
													MAKE_YOUNG_PAIR(BgL_arg1762z00_1843, BNIL);
												BgL_arg1765z00_1845 =
													MAKE_YOUNG_PAIR(BgL_arg1761z00_1842,
													BgL_arg1766z00_1846);
											}
											BgL_list1763z00_1844 =
												MAKE_YOUNG_PAIR(BgL_arg1760z00_1841,
												BgL_arg1765z00_1845);
										}
										return BgL_list1763z00_1844;
									}
								}
							else
								{	/* Match/normalize.scm 509 */
									if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
													((obj_t) BgL_pz00_1817)),
												BGl_list2322z00zz__match_normaliza7eza7)))
										{	/* Match/normalize.scm 514 */
											obj_t BgL_arg1771z00_1851;
											obj_t BgL_arg1773z00_1852;
											obj_t BgL_arg1774z00_1853;

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

												BgL_pairz00_2938 = CDR(((obj_t) BgL_pz00_1817));
												BgL_arg1771z00_1851 = CAR(BgL_pairz00_2938);
											}
											{	/* Match/normalize.scm 515 */
												obj_t BgL_arg1779z00_1858;

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

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

														BgL_pairz00_2943 = CDR(((obj_t) BgL_pz00_1817));
														BgL_pairz00_2944 = CDR(BgL_pairz00_2943);
													}
													BgL_arg1779z00_1858 = CAR(BgL_pairz00_2944);
												}
												BgL_arg1773z00_1852 =
													BGl_vectorifyze70ze7zz__match_normaliza7eza7
													(BgL_arg1779z00_1858);
											}
											{	/* Match/normalize.scm 516 */
												obj_t BgL_arg1780z00_1859;

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

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

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

															BgL_pairz00_2950 = CDR(((obj_t) BgL_pz00_1817));
															BgL_pairz00_2951 = CDR(BgL_pairz00_2950);
														}
														BgL_pairz00_2952 = CDR(BgL_pairz00_2951);
													}
													BgL_arg1780z00_1859 = CAR(BgL_pairz00_2952);
												}
												BgL_arg1774z00_1853 =
													BGl_vectorifyze70ze7zz__match_normaliza7eza7
													(BgL_arg1780z00_1859);
											}
											{	/* Match/normalize.scm 514 */
												obj_t BgL_list1775z00_1854;

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

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

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

															BgL_arg1778z00_1857 =
																MAKE_YOUNG_PAIR(BgL_arg1774z00_1853, BNIL);
															BgL_arg1777z00_1856 =
																MAKE_YOUNG_PAIR(BgL_arg1773z00_1852,
																BgL_arg1778z00_1857);
														}
														BgL_arg1776z00_1855 =
															MAKE_YOUNG_PAIR(BgL_arg1771z00_1851,
															BgL_arg1777z00_1856);
													}
													BgL_list1775z00_1854 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2323z00zz__match_normaliza7eza7,
														BgL_arg1776z00_1855);
												}
												return BgL_list1775z00_1854;
											}
										}
									else
										{	/* Match/normalize.scm 513 */
											return BgL_pz00_1817;
										}
								}
						}
				}
		}

	}



/* &<@anonymous:1465>2221 */
	obj_t BGl_z62zc3z04anonymousza31465ze32221ze5zz__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 */
	long 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 0L;
				}
			else
				{	/* Match/normalize.scm 524 */
					if (NULLP(BgL_pz00_55))
						{	/* Match/normalize.scm 525 */
							return 0L;
						}
					else
						{	/* Match/normalize.scm 525 */
							if (
								(CAR(
										((obj_t) BgL_pz00_55)) ==
									BGl_symbol2235z00zz__match_normaliza7eza7))
								{	/* Match/normalize.scm 526 */
									return 1L;
								}
							else
								{	/* Match/normalize.scm 527 */
									bool_t BgL_test2495z00_5364;

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

										BgL_arg1800z00_1881 = CAR(((obj_t) BgL_pz00_55));
										BgL_test2495z00_5364 =
											BGl_treezd2variablezf3z21zz__match_normaliza7eza7
											(BgL_arg1800z00_1881);
									}
									if (BgL_test2495z00_5364)
										{	/* Match/normalize.scm 527 */
											return 0L;
										}
									else
										{	/* Match/normalize.scm 527 */
											if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
															((obj_t) BgL_pz00_55)),
														BGl_list2325z00zz__match_normaliza7eza7)))
												{	/* Match/normalize.scm 528 */
													return 0L;
												}
											else
												{	/* Match/normalize.scm 528 */
													if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR
																(((obj_t) BgL_pz00_55)),
																BGl_list2326z00zz__match_normaliza7eza7)))
														{	/* Match/normalize.scm 529 */
															obj_t BgL_arg1795z00_1874;

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

																BgL_pairz00_2967 = CDR(((obj_t) BgL_pz00_55));
																BgL_arg1795z00_1874 = CAR(BgL_pairz00_2967);
															}
															{
																obj_t BgL_pz00_5381;

																BgL_pz00_5381 = BgL_arg1795z00_1874;
																BgL_pz00_55 = BgL_pz00_5381;
																goto
																	BGl_patternzd2lengthzd2zz__match_normaliza7eza7;
															}
														}
													else
														{	/* Match/normalize.scm 530 */
															long BgL_b1128z00_1876;

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

																BgL_arg1797z00_1878 =
																	CDR(((obj_t) BgL_pz00_55));
																BgL_b1128z00_1876 =
																	BGl_patternzd2lengthzd2zz__match_normaliza7eza7
																	(BgL_arg1797z00_1878);
															}
															{	/* Match/normalize.scm 530 */

																return (1L + BgL_b1128z00_1876);
															}
														}
												}
										}
								}
						}
				}
		}

	}



/* 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_1889;

					BgL_cdrzd2126zd2_1889 = CDR(((obj_t) BgL_expz00_56));
					if (
						(CAR(
								((obj_t) BgL_expz00_56)) ==
							BGl_symbol2327z00zz__match_normaliza7eza7))
						{	/* Match/normalize.scm 547 */
							if (PAIRP(BgL_cdrzd2126zd2_1889))
								{	/* Match/normalize.scm 547 */
									obj_t BgL_arg1806z00_1893;
									obj_t BgL_arg1807z00_1894;

									BgL_arg1806z00_1893 = CAR(BgL_cdrzd2126zd2_1889);
									BgL_arg1807z00_1894 = CDR(BgL_cdrzd2126zd2_1889);
									{	/* Match/normalize.scm 550 */
										obj_t BgL_arg1809z00_2987;

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

											{	/* Match/normalize.scm 550 */
												obj_t BgL_arg1812z00_2989;
												obj_t BgL_arg1814z00_2990;

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

													{	/* Match/normalize.scm 550 */
														obj_t BgL_arg1817z00_2992;
														obj_t BgL_arg1819z00_2993;

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

															BgL_arg2040z00_2995 =
																SYMBOL_TO_STRING(((obj_t) BgL_arg1806z00_1893));
															BgL_arg1817z00_2992 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg2040z00_2995);
														}
														{	/* Match/normalize.scm 550 */
															obj_t BgL_symbolz00_2996;

															BgL_symbolz00_2996 =
																BGl_symbol2238z00zz__match_normaliza7eza7;
															{	/* Match/normalize.scm 550 */
																obj_t BgL_arg2040z00_2997;

																BgL_arg2040z00_2997 =
																	SYMBOL_TO_STRING(BgL_symbolz00_2996);
																BgL_arg1819z00_2993 =
																	BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																	(BgL_arg2040z00_2997);
															}
														}
														BgL_arg1816z00_2991 =
															string_append(BgL_arg1817z00_2992,
															BgL_arg1819z00_2993);
													}
													BgL_arg1812z00_2989 =
														bstring_to_symbol(BgL_arg1816z00_2991);
												}
												BgL_arg1814z00_2990 =
													BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1807z00_1894, BNIL);
												BgL_arg1810z00_2988 =
													MAKE_YOUNG_PAIR(BgL_arg1812z00_2989,
													BgL_arg1814z00_2990);
											}
											BgL_arg1809z00_2987 =
												MAKE_YOUNG_PAIR(BgL_arg1806z00_1893,
												BgL_arg1810z00_2988);
										}
										return
											(BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7 =
											MAKE_YOUNG_PAIR(BgL_arg1809z00_2987,
												BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7),
											BUNSPEC);
									}
								}
							else
								{	/* Match/normalize.scm 547 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2329z00zz__match_normaliza7eza7, BgL_expz00_56,
										BGl_symbol2330z00zz__match_normaliza7eza7);
								}
						}
					else
						{	/* Match/normalize.scm 547 */
							return
								BGl_errorz00zz__errorz00
								(BGl_string2329z00zz__match_normaliza7eza7, BgL_expz00_56,
								BGl_symbol2330z00zz__match_normaliza7eza7);
						}
				}
			else
				{	/* Match/normalize.scm 547 */
					return
						BGl_errorz00zz__errorz00(BGl_string2329z00zz__match_normaliza7eza7,
						BgL_expz00_56, BGl_symbol2330z00zz__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_1903;
				obj_t BgL_constrz00_1904;
				obj_t BgL_predz00_1905;
				obj_t BgL_fieldsz00_1906;

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

						BgL_cdrzd2145zd2_1911 = CDR(((obj_t) BgL_expz00_57));
						if (
							(CAR(
									((obj_t) BgL_expz00_57)) ==
								BGl_symbol2332z00zz__match_normaliza7eza7))
							{	/* Match/normalize.scm 555 */
								if (PAIRP(BgL_cdrzd2145zd2_1911))
									{	/* Match/normalize.scm 555 */
										obj_t BgL_cdrzd2151zd2_1915;

										BgL_cdrzd2151zd2_1915 = CDR(BgL_cdrzd2145zd2_1911);
										if (PAIRP(BgL_cdrzd2151zd2_1915))
											{	/* Match/normalize.scm 555 */
												obj_t BgL_cdrzd2157zd2_1917;

												BgL_cdrzd2157zd2_1917 = CDR(BgL_cdrzd2151zd2_1915);
												if (PAIRP(BgL_cdrzd2157zd2_1917))
													{	/* Match/normalize.scm 555 */
														BgL_namez00_1903 = CAR(BgL_cdrzd2145zd2_1911);
														BgL_constrz00_1904 = CAR(BgL_cdrzd2151zd2_1915);
														BgL_predz00_1905 = CAR(BgL_cdrzd2157zd2_1917);
														BgL_fieldsz00_1906 = CDR(BgL_cdrzd2157zd2_1917);
														{	/* Match/normalize.scm 557 */
															obj_t BgL_reallyzd2fieldszd2_1924;

															if (NULLP(BgL_fieldsz00_1906))
																{	/* Match/normalize.scm 557 */
																	BgL_reallyzd2fieldszd2_1924 = BNIL;
																}
															else
																{	/* Match/normalize.scm 557 */
																	obj_t BgL_head1131z00_1930;

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

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

																			BgL_pairz00_3000 =
																				CAR(((obj_t) BgL_fieldsz00_1906));
																			BgL_arg1840z00_1942 =
																				CAR(BgL_pairz00_3000);
																		}
																		BgL_head1131z00_1930 =
																			MAKE_YOUNG_PAIR(BgL_arg1840z00_1942,
																			BNIL);
																	}
																	{	/* Match/normalize.scm 557 */
																		obj_t BgL_g1134z00_1931;

																		BgL_g1134z00_1931 =
																			CDR(((obj_t) BgL_fieldsz00_1906));
																		{
																			obj_t BgL_l1129z00_3021;
																			obj_t BgL_tail1132z00_3022;

																			BgL_l1129z00_3021 = BgL_g1134z00_1931;
																			BgL_tail1132z00_3022 =
																				BgL_head1131z00_1930;
																		BgL_zc3z04anonymousza31835ze3z87_3020:
																			if (NULLP(BgL_l1129z00_3021))
																				{	/* Match/normalize.scm 557 */
																					BgL_reallyzd2fieldszd2_1924 =
																						BgL_head1131z00_1930;
																				}
																			else
																				{	/* Match/normalize.scm 557 */
																					obj_t BgL_newtail1133z00_3029;

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

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

																							BgL_pairz00_3034 =
																								CAR(
																								((obj_t) BgL_l1129z00_3021));
																							BgL_arg1838z00_3030 =
																								CAR(BgL_pairz00_3034);
																						}
																						BgL_newtail1133z00_3029 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1838z00_3030, BNIL);
																					}
																					SET_CDR(BgL_tail1132z00_3022,
																						BgL_newtail1133z00_3029);
																					{	/* Match/normalize.scm 557 */
																						obj_t BgL_arg1837z00_3032;

																						BgL_arg1837z00_3032 =
																							CDR(((obj_t) BgL_l1129z00_3021));
																						{
																							obj_t BgL_tail1132z00_5447;
																							obj_t BgL_l1129z00_5446;

																							BgL_l1129z00_5446 =
																								BgL_arg1837z00_3032;
																							BgL_tail1132z00_5447 =
																								BgL_newtail1133z00_3029;
																							BgL_tail1132z00_3022 =
																								BgL_tail1132z00_5447;
																							BgL_l1129z00_3021 =
																								BgL_l1129z00_5446;
																							goto
																								BgL_zc3z04anonymousza31835ze3z87_3020;
																						}
																					}
																				}
																		}
																	}
																}
															{	/* Match/normalize.scm 559 */
																obj_t BgL_arg1831z00_1925;

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

																	BgL_arg1832z00_1926 =
																		MAKE_YOUNG_PAIR(BgL_predz00_1905,
																		BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																		(BgL_fieldsz00_1906, BNIL));
																	BgL_arg1831z00_1925 =
																		MAKE_YOUNG_PAIR(BgL_namez00_1903,
																		BgL_arg1832z00_1926);
																}
																return
																	(BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7
																	=
																	MAKE_YOUNG_PAIR(BgL_arg1831z00_1925,
																		BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7),
																	BUNSPEC);
															}
														}
													}
												else
													{	/* Match/normalize.scm 555 */
														return
															BGl_errorz00zz__errorz00
															(BGl_string2329z00zz__match_normaliza7eza7,
															BgL_expz00_57,
															BGl_symbol2330z00zz__match_normaliza7eza7);
													}
											}
										else
											{	/* Match/normalize.scm 555 */
												return
													BGl_errorz00zz__errorz00
													(BGl_string2329z00zz__match_normaliza7eza7,
													BgL_expz00_57,
													BGl_symbol2330z00zz__match_normaliza7eza7);
											}
									}
								else
									{	/* Match/normalize.scm 555 */
										return
											BGl_errorz00zz__errorz00
											(BGl_string2329z00zz__match_normaliza7eza7, BgL_expz00_57,
											BGl_symbol2330z00zz__match_normaliza7eza7);
									}
							}
						else
							{	/* Match/normalize.scm 555 */
								return
									BGl_errorz00zz__errorz00
									(BGl_string2329z00zz__match_normaliza7eza7, BgL_expz00_57,
									BGl_symbol2330z00zz__match_normaliza7eza7);
							}
					}
				else
					{	/* Match/normalize.scm 555 */
						return
							BGl_errorz00zz__errorz00
							(BGl_string2329z00zz__match_normaliza7eza7, BgL_expz00_57,
							BGl_symbol2330z00zz__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_zc3z04anonymousza31842ze3z87_3656;

				BgL_zc3z04anonymousza31842ze3z87_3656 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31842ze3ze5zz__match_normaliza7eza7,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31842ze3z87_3656, (int) (0L),
					BgL_ez00_58);
				return BgL_zc3z04anonymousza31842ze3z87_3656;
			}
		}

	}



/* &<@anonymous:1842> */
	obj_t BGl_z62zc3z04anonymousza31842ze3ze5zz__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_3888;

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

						BgL_fz00_3896 =
							BGl_structzd2ze3listz31zz__structurez00(BgL_ez00_3658);
						{	/* Match/normalize.scm 581 */
							obj_t BgL_structurez00_3897;

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

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

									BgL_tmpz00_5472 = CAR(BgL_fz00_3896);
									BgL_test2508z00_5471 = PAIRP(BgL_tmpz00_5472);
								}
								if (BgL_test2508z00_5471)
									{	/* Match/normalize.scm 583 */
										obj_t BgL_arg1870z00_3898;

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

											BgL_l1141z00_3899 = CDR(BgL_fz00_3896);
											if (NULLP(BgL_l1141z00_3899))
												{	/* Match/normalize.scm 583 */
													BgL_arg1870z00_3898 = BNIL;
												}
											else
												{	/* Match/normalize.scm 583 */
													obj_t BgL_head1143z00_3900;

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

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

															BgL_pairz00_3902 =
																CAR(((obj_t) BgL_l1141z00_3899));
															BgL_arg1879z00_3901 = CAR(BgL_pairz00_3902);
														}
														BgL_head1143z00_3900 =
															MAKE_YOUNG_PAIR(BgL_arg1879z00_3901, BNIL);
													}
													{	/* Match/normalize.scm 583 */
														obj_t BgL_g1146z00_3903;

														BgL_g1146z00_3903 =
															CDR(((obj_t) BgL_l1141z00_3899));
														{
															obj_t BgL_l1141z00_3905;
															obj_t BgL_tail1144z00_3906;

															BgL_l1141z00_3905 = BgL_g1146z00_3903;
															BgL_tail1144z00_3906 = BgL_head1143z00_3900;
														BgL_zc3z04anonymousza31872ze3z87_3904:
															if (NULLP(BgL_l1141z00_3905))
																{	/* Match/normalize.scm 583 */
																	BgL_arg1870z00_3898 = BgL_head1143z00_3900;
																}
															else
																{	/* Match/normalize.scm 583 */
																	obj_t BgL_newtail1145z00_3907;

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

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

																			BgL_pairz00_3909 =
																				CAR(((obj_t) BgL_l1141z00_3905));
																			BgL_arg1876z00_3908 =
																				CAR(BgL_pairz00_3909);
																		}
																		BgL_newtail1145z00_3907 =
																			MAKE_YOUNG_PAIR(BgL_arg1876z00_3908,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1144z00_3906,
																		BgL_newtail1145z00_3907);
																	{	/* Match/normalize.scm 583 */
																		obj_t BgL_arg1875z00_3910;

																		BgL_arg1875z00_3910 =
																			CDR(((obj_t) BgL_l1141z00_3905));
																		{
																			obj_t BgL_tail1144z00_5494;
																			obj_t BgL_l1141z00_5493;

																			BgL_l1141z00_5493 = BgL_arg1875z00_3910;
																			BgL_tail1144z00_5494 =
																				BgL_newtail1145z00_3907;
																			BgL_tail1144z00_3906 =
																				BgL_tail1144z00_5494;
																			BgL_l1141z00_3905 = BgL_l1141z00_5493;
																			goto
																				BgL_zc3z04anonymousza31872ze3z87_3904;
																		}
																	}
																}
														}
													}
												}
										}
										BgL_providedzd2fieldszd2_3888 = BgL_arg1870z00_3898;
										{
											obj_t BgL_sz00_3890;

											BgL_sz00_3890 =
												BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7;
										BgL_loop1z00_3889:
											{
												obj_t BgL_pzd2fzd2_3892;

												BgL_pzd2fzd2_3892 = BgL_providedzd2fieldszd2_3888;
											BgL_loop2z00_3891:
												if (NULLP(BgL_sz00_3890))
													{	/* Match/normalize.scm 572 */
														BgL_structurez00_3897 =
															BGl_errorz00zz__errorz00
															(BGl_string2334z00zz__match_normaliza7eza7,
															BgL_providedzd2fieldszd2_3888, BNIL);
													}
												else
													{	/* Match/normalize.scm 572 */
														if (NULLP(BgL_pzd2fzd2_3892))
															{	/* Match/normalize.scm 574 */
																BgL_structurez00_3897 =
																	CAR(((obj_t) BgL_sz00_3890));
															}
														else
															{	/* Match/normalize.scm 576 */
																bool_t BgL_test2513z00_5502;

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

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

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

																			BgL_pairz00_3893 =
																				CAR(((obj_t) BgL_sz00_3890));
																			BgL_auxz00_5504 = CDR(BgL_pairz00_3893);
																		}
																		BgL_tmpz00_5503 =
																			BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																			(CAR(((obj_t) BgL_pzd2fzd2_3892)),
																			BgL_auxz00_5504);
																	}
																	BgL_test2513z00_5502 = CBOOL(BgL_tmpz00_5503);
																}
																if (BgL_test2513z00_5502)
																	{	/* Match/normalize.scm 577 */
																		obj_t BgL_arg1895z00_3894;

																		BgL_arg1895z00_3894 =
																			CDR(((obj_t) BgL_pzd2fzd2_3892));
																		{
																			obj_t BgL_pzd2fzd2_5514;

																			BgL_pzd2fzd2_5514 = BgL_arg1895z00_3894;
																			BgL_pzd2fzd2_3892 = BgL_pzd2fzd2_5514;
																			goto BgL_loop2z00_3891;
																		}
																	}
																else
																	{	/* Match/normalize.scm 578 */
																		obj_t BgL_arg1896z00_3895;

																		BgL_arg1896z00_3895 =
																			CDR(((obj_t) BgL_sz00_3890));
																		{
																			obj_t BgL_sz00_5517;

																			BgL_sz00_5517 = BgL_arg1896z00_3895;
																			BgL_sz00_3890 = BgL_sz00_5517;
																			goto BgL_loop1z00_3889;
																		}
																	}
															}
													}
											}
										}
									}
								else
									{	/* Match/normalize.scm 584 */
										bool_t BgL_test2514z00_5518;

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

											BgL_arg1885z00_3911 = CAR(BgL_fz00_3896);
											BgL_test2514z00_5518 =
												CBOOL(BGl_assocz00zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1885z00_3911,
													BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7));
										}
										if (BgL_test2514z00_5518)
											{	/* Match/normalize.scm 585 */
												obj_t BgL_arg1883z00_3912;

												BgL_arg1883z00_3912 = CAR(BgL_fz00_3896);
												BgL_structurez00_3897 =
													BGl_assocz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1883z00_3912,
													BGl_za2Matchzd2Structuresza2zd2zz__match_normaliza7eza7);
											}
										else
											{	/* Match/normalize.scm 588 */
												obj_t BgL_arg1884z00_3913;

												BgL_arg1884z00_3913 = CAR(BgL_fz00_3896);
												BgL_structurez00_3897 =
													BGl_errorz00zz__errorz00
													(BGl_symbol2335z00zz__match_normaliza7eza7,
													BGl_string2337z00zz__match_normaliza7eza7,
													BgL_arg1884z00_3913);
											}
									}
							}
							{	/* Match/normalize.scm 582 */
								obj_t BgL_namez00_3914;

								BgL_namez00_3914 = CAR(((obj_t) BgL_structurez00_3897));
								{	/* Match/normalize.scm 589 */
									obj_t BgL_predz00_3915;

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

										BgL_pairz00_3916 = CDR(((obj_t) BgL_structurez00_3897));
										BgL_predz00_3915 = CAR(BgL_pairz00_3916);
									}
									{	/* Match/normalize.scm 590 */
										obj_t BgL_fieldsz00_3917;

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

											BgL_pairz00_3918 = CDR(((obj_t) BgL_structurez00_3897));
											BgL_fieldsz00_3917 = CDR(BgL_pairz00_3918);
										}
										{	/* Match/normalize.scm 591 */
											obj_t BgL_providedzd2fieldszd2_3919;

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

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

													BgL_tmpz00_5535 = CAR(BgL_fz00_3896);
													BgL_test2515z00_5534 = PAIRP(BgL_tmpz00_5535);
												}
												if (BgL_test2515z00_5534)
													{	/* Match/normalize.scm 592 */
														BgL_providedzd2fieldszd2_3919 = BgL_fz00_3896;
													}
												else
													{	/* Match/normalize.scm 592 */
														BgL_providedzd2fieldszd2_3919 = CDR(BgL_fz00_3896);
													}
											}
											{	/* Match/normalize.scm 592 */
												obj_t BgL_patternz00_3920;

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

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

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

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

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

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

																		BgL_tmpz00_5540 = CAR(BgL_fz00_3896);
																		BgL_test2516z00_5539 =
																			PAIRP(BgL_tmpz00_5540);
																	}
																	if (BgL_test2516z00_5539)
																		{	/* Match/normalize.scm 604 */
																			if (NULLP(BgL_fieldsz00_3917))
																				{	/* Match/normalize.scm 605 */
																					BgL_arg1848z00_3924 = BNIL;
																				}
																			else
																				{	/* Match/normalize.scm 605 */
																					obj_t BgL_head1149z00_3925;

																					BgL_head1149z00_3925 =
																						MAKE_YOUNG_PAIR(BNIL, BNIL);
																					{
																						obj_t BgL_l1147z00_3927;
																						obj_t BgL_tail1150z00_3928;

																						BgL_l1147z00_3927 =
																							BgL_fieldsz00_3917;
																						BgL_tail1150z00_3928 =
																							BgL_head1149z00_3925;
																					BgL_zc3z04anonymousza31853ze3z87_3926:
																						if (NULLP
																							(BgL_l1147z00_3927))
																							{	/* Match/normalize.scm 605 */
																								BgL_arg1848z00_3924 =
																									CDR(BgL_head1149z00_3925);
																							}
																						else
																							{	/* Match/normalize.scm 605 */
																								obj_t BgL_newtail1151z00_3929;

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

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

																										BgL_fieldz00_3931 =
																											CAR(
																											((obj_t)
																												BgL_l1147z00_3927));
																										if (CBOOL
																											(BGl_assocz00zz__r4_pairs_and_lists_6_3z00
																												(BgL_fieldz00_3931,
																													BgL_providedzd2fieldszd2_3919)))
																											{	/* Match/normalize.scm 607 */
																												obj_t BgL_pairz00_3932;

																												BgL_pairz00_3932 =
																													BGl_assocz00zz__r4_pairs_and_lists_6_3z00
																													(BgL_fieldz00_3931,
																													BgL_providedzd2fieldszd2_3919);
																												BgL_arg1856z00_3930 =
																													CAR(CDR
																													(BgL_pairz00_3932));
																											}
																										else
																											{	/* Match/normalize.scm 606 */
																												BgL_arg1856z00_3930 =
																													BGl_symbol2269z00zz__match_normaliza7eza7;
																											}
																									}
																									BgL_newtail1151z00_3929 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1856z00_3930, BNIL);
																								}
																								SET_CDR(BgL_tail1150z00_3928,
																									BgL_newtail1151z00_3929);
																								{	/* Match/normalize.scm 605 */
																									obj_t BgL_arg1855z00_3933;

																									BgL_arg1855z00_3933 =
																										CDR(
																										((obj_t)
																											BgL_l1147z00_3927));
																									{
																										obj_t BgL_tail1150z00_5562;
																										obj_t BgL_l1147z00_5561;

																										BgL_l1147z00_5561 =
																											BgL_arg1855z00_3933;
																										BgL_tail1150z00_5562 =
																											BgL_newtail1151z00_3929;
																										BgL_tail1150z00_3928 =
																											BgL_tail1150z00_5562;
																										BgL_l1147z00_3927 =
																											BgL_l1147z00_5561;
																										goto
																											BgL_zc3z04anonymousza31853ze3z87_3926;
																									}
																								}
																							}
																					}
																				}
																		}
																	else
																		{	/* Match/normalize.scm 604 */
																			BgL_arg1848z00_3924 = CDR(BgL_fz00_3896);
																		}
																}
																BgL_arg1846z00_3923 =
																	BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																	(BgL_arg1848z00_3924, BNIL);
															}
															BgL_arg1845z00_3922 =
																MAKE_YOUNG_PAIR(BgL_predz00_3915,
																BgL_arg1846z00_3923);
														}
														BgL_arg1844z00_3921 =
															MAKE_YOUNG_PAIR(BgL_namez00_3914,
															BgL_arg1845z00_3922);
													}
													BgL_patternz00_3920 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2246z00zz__match_normaliza7eza7,
														BgL_arg1844z00_3921);
												}
												{	/* Match/normalize.scm 600 */

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

														BgL_fun1843z00_3934 =
															BGl_standardiza7ezd2patternz75zz__match_normaliza7eza7
															(BgL_patternz00_3920);
														return (VA_PROCEDUREP(BgL_fun1843z00_3934)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_fun1843z00_3934))
															(BgL_fun1843z00_3934, BgL_rz00_3659,
																BgL_cz00_3660, BEOA) : ((obj_t(*)(obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_fun1843z00_3934))
															(BgL_fun1843z00_3934, 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_string2338z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(509060701L,
				BSTRING_TO_STRING(BGl_string2338z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2338z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__bexitz00(43287392L,
				BSTRING_TO_STRING(BGl_string2338z00zz__match_normaliza7eza7));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2338z00zz__match_normaliza7eza7));
			return
				BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2338z00zz__match_normaliza7eza7));
		}

	}

#ifdef __cplusplus
}
#endif
