/*===========================================================================*/
/*   (Match/compiler.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/compiler.scm -indent -o objs/obj_u/Match/compiler.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_COMPILER_TYPE_DEFINITIONS
#define BGL___MATCH_COMPILER_TYPE_DEFINITIONS
#endif													// BGL___MATCH_COMPILER_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62pcompilez62zz__match_compilerz00(obj_t, obj_t);
	extern obj_t BGl_compatiblezf3zf3zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_dzd2initzd2zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_succeszd2conszd2zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_buildzd2ifzd2zz__match_compilerz00(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_compilez00zz__match_compilerz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31524ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_morezd2precisezf3z21zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31711ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31525ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static bool_t BGl_isDirectCallzf3zf3zz__match_compilerz00(obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31686ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_compilezd2timeszd2zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__match_compilerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__match_descriptionsz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_symbol2200z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2203z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2206z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2208z00zz__match_compilerz00 = BUNSPEC;
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__match_compilerz00(void);
	static obj_t BGl_z62zc3z04anonymousza31640ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31551ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31616ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2210z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2212z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2214z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_jimzd2gensymzd2zz__match_s2cfunz00;
	static obj_t BGl_symbol2216z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_patternzd2carzd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_symbol2218z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_vectorzd2pluszd2zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31633ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_extendza2za2zz__match_compilerz00(obj_t, obj_t);
	extern obj_t BGl_patternzd2minuszd2zz__match_descriptionsz00(obj_t, obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__match_compilerz00(void);
	static obj_t BGl_symbol2220z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2222z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_genericzd2initzd2zz__match_compilerz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol2224z00zz__match_compilerz00 = BUNSPEC;
	extern long bgl_list_length(obj_t);
	static obj_t BGl_symbol2227z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_z62instanciatezd2tryzb0zz__match_compilerz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__match_compilerz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__match_compilerz00(void);
	static obj_t BGl_rzd2initzd2zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_objectzd2initzd2zz__match_compilerz00(void);
	static obj_t BGl_z62compileza2zc0zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_symbol2231z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2233z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_integersz00zz__match_compilerz00(long, long);
	static obj_t BGl_symbol2237z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2158z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_unfoldz00zz__match_compilerz00(obj_t, obj_t, obj_t);
	static obj_t BGl_compilezd2vectorzd2consz00zz__match_compilerz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62mzd2initzb0zz__match_compilerz00(obj_t, obj_t);
	static obj_t BGl_symbol2241z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2161z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2243z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2163z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2245z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2165z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_patternzd2cdrzd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_symbol2167z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2249z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2169z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_extendzd2vectorzd2zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31410ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31385ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_compilezd2varzd2zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2251z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2171z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_z62za7zd2initz17zz__match_compilerz00(obj_t, obj_t);
	static obj_t BGl_symbol2253z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2173z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_patternzd2variableszd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_symbol2256z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2175z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2258z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2177z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2179z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31500ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31483ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31637ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31718ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31386ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_pcompilez00zz__match_compilerz00(obj_t);
	static obj_t BGl_symbol2181z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_buildzd2letzd2zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_symbol2183z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol2185z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31420ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_list2157z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31412ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2190z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__match_compilerz00(void);
	static obj_t BGl_symbol2192z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2194z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2196z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_symbol2198z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_list2247z00zz__match_compilerz00 = BUNSPEC;
	static obj_t BGl_list2248z00zz__match_compilerz00 = BUNSPEC;
	extern obj_t BGl_atomzf3zf3zz__match_s2cfunz00(obj_t);
	static obj_t BGl_countzd2occurrenceszd2zz__match_compilerz00(obj_t, obj_t,
		long);
	static obj_t BGl_z62zc3z04anonymousza31655ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31396ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31422ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31397ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_compilezd2orzd2zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_compilezd2structzd2patz00zz__match_compilerz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62kzd2initzb0zz__match_compilerz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31665ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_compilezd2vectorzd2beginz00zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_buildzd2atomzd2equalityzd2testzd2zz__match_compilerz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31399ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31425ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_patternzd2pluszd2zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31409ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31489ze3ze5zz__match_compilerz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STRING(BGl_string2201z00zz__match_compilerz00,
		BgL_bgl_string2201za700za7za7_2261za7, "vector-times", 12);
	      DEFINE_STRING(BGl_string2202z00zz__match_compilerz00,
		BgL_bgl_string2202za700za7za7_2262za7, "Not yet allowed", 15);
	      DEFINE_STRING(BGl_string2204z00zz__match_compilerz00,
		BgL_bgl_string2204za700za7za7_2263za7, "struct-pat", 10);
	      DEFINE_STRING(BGl_string2205z00zz__match_compilerz00,
		BgL_bgl_string2205za700za7za7_2264za7, "Unrecognized pattern", 20);
	      DEFINE_STRING(BGl_string2207z00zz__match_compilerz00,
		BgL_bgl_string2207za700za7za7_2265za7, "vector-length", 13);
	      DEFINE_STRING(BGl_string2209z00zz__match_compilerz00,
		BgL_bgl_string2209za700za7za7_2266za7, "eq?", 3);
	      DEFINE_STRING(BGl_string2211z00zz__match_compilerz00,
		BgL_bgl_string2211za700za7za7_2267za7, "null?", 5);
	      DEFINE_STRING(BGl_string2213z00zz__match_compilerz00,
		BgL_bgl_string2213za700za7za7_2268za7, "flonum?", 7);
	      DEFINE_STRING(BGl_string2215z00zz__match_compilerz00,
		BgL_bgl_string2215za700za7za7_2269za7, "=fl", 3);
	      DEFINE_STRING(BGl_string2217z00zz__match_compilerz00,
		BgL_bgl_string2217za700za7za7_2270za7, "number?", 7);
	      DEFINE_STRING(BGl_string2219z00zz__match_compilerz00,
		BgL_bgl_string2219za700za7za7_2271za7, "=", 1);
	      DEFINE_STRING(BGl_string2221z00zz__match_compilerz00,
		BgL_bgl_string2221za700za7za7_2272za7, "string?", 7);
	      DEFINE_STRING(BGl_string2223z00zz__match_compilerz00,
		BgL_bgl_string2223za700za7za7_2273za7, "string=?", 8);
	      DEFINE_STRING(BGl_string2225z00zz__match_compilerz00,
		BgL_bgl_string2225za700za7za7_2274za7, "equal?", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_kzd2initzd2envz00zz__match_compilerz00,
		BgL_bgl_za762kza7d2initza7b0za7za72275za7,
		BGl_z62kzd2initzb0zz__match_compilerz00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string2226z00zz__match_compilerz00,
		BgL_bgl_string2226za700za7za7_2276za7, "KAP-", 4);
	      DEFINE_STRING(BGl_string2228z00zz__match_compilerz00,
		BgL_bgl_string2228za700za7za7_2277za7, "labels", 6);
	      DEFINE_STRING(BGl_string2229z00zz__match_compilerz00,
		BgL_bgl_string2229za700za7za7_2278za7, "KAP", 3);
	      DEFINE_STRING(BGl_string2230z00zz__match_compilerz00,
		BgL_bgl_string2230za700za7za7_2279za7, "TAG", 3);
	      DEFINE_STRING(BGl_string2232z00zz__match_compilerz00,
		BgL_bgl_string2232za700za7za7_2280za7, "unbound", 7);
	      DEFINE_STRING(BGl_string2234z00zz__match_compilerz00,
		BgL_bgl_string2234za700za7za7_2281za7, "let", 3);
	      DEFINE_STRING(BGl_string2235z00zz__match_compilerz00,
		BgL_bgl_string2235za700za7za7_2282za7, "CAR-", 4);
	      DEFINE_STRING(BGl_string2236z00zz__match_compilerz00,
		BgL_bgl_string2236za700za7za7_2283za7, "CDR-", 4);
	      DEFINE_STRING(BGl_string2238z00zz__match_compilerz00,
		BgL_bgl_string2238za700za7za7_2284za7, "letrec", 6);
	      DEFINE_STRING(BGl_string2239z00zz__match_compilerz00,
		BgL_bgl_string2239za700za7za7_2285za7, "G-", 2);
	      DEFINE_STRING(BGl_string2159z00zz__match_compilerz00,
		BgL_bgl_string2159za700za7za7_2286za7, "any", 3);
	      DEFINE_STRING(BGl_string2240z00zz__match_compilerz00,
		BgL_bgl_string2240za700za7za7_2287za7, "TRY-", 4);
	      DEFINE_STRING(BGl_string2160z00zz__match_compilerz00,
		BgL_bgl_string2160za700za7za7_2288za7, "E-", 2);
	      DEFINE_STRING(BGl_string2242z00zz__match_compilerz00,
		BgL_bgl_string2242za700za7za7_2289za7, "vector", 6);
	      DEFINE_STRING(BGl_string2162z00zz__match_compilerz00,
		BgL_bgl_string2162za700za7za7_2290za7, "lambda", 6);
	      DEFINE_STRING(BGl_string2244z00zz__match_compilerz00,
		BgL_bgl_string2244za700za7za7_2291za7, ">=", 2);
	      DEFINE_STRING(BGl_string2164z00zz__match_compilerz00,
		BgL_bgl_string2164za700za7za7_2292za7, "check", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_mzd2initzd2envz00zz__match_compilerz00,
		BgL_bgl_za762mza7d2initza7b0za7za72293za7,
		BGl_z62mzd2initzb0zz__match_compilerz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2246z00zz__match_compilerz00,
		BgL_bgl_string2246za700za7za7_2294za7, "vector?", 7);
	      DEFINE_STRING(BGl_string2166z00zz__match_compilerz00,
		BgL_bgl_string2166za700za7za7_2295za7, "if", 2);
	      DEFINE_STRING(BGl_string2168z00zz__match_compilerz00,
		BgL_bgl_string2168za700za7za7_2296za7, "quote", 5);
	      DEFINE_STRING(BGl_string2250z00zz__match_compilerz00,
		BgL_bgl_string2250za700za7za7_2297za7, "vector-ref", 10);
	      DEFINE_STRING(BGl_string2170z00zz__match_compilerz00,
		BgL_bgl_string2170za700za7za7_2298za7, "var", 3);
	      DEFINE_STRING(BGl_string2252z00zz__match_compilerz00,
		BgL_bgl_string2252za700za7za7_2299za7, "struct-ref", 10);
	      DEFINE_STRING(BGl_string2172z00zz__match_compilerz00,
		BgL_bgl_string2172za700za7za7_2300za7, "not", 3);
	      DEFINE_STRING(BGl_string2254z00zz__match_compilerz00,
		BgL_bgl_string2254za700za7za7_2301za7, "dummy", 5);
	      DEFINE_STRING(BGl_string2255z00zz__match_compilerz00,
		BgL_bgl_string2255za700za7za7_2302za7, "No current repetition named", 27);
	      DEFINE_STRING(BGl_string2174z00zz__match_compilerz00,
		BgL_bgl_string2174za700za7za7_2303za7, "or", 2);
	      DEFINE_STRING(BGl_string2257z00zz__match_compilerz00,
		BgL_bgl_string2257za700za7za7_2304za7, "car", 3);
	      DEFINE_STRING(BGl_string2176z00zz__match_compilerz00,
		BgL_bgl_string2176za700za7za7_2305za7, "tagged-or", 9);
	      DEFINE_STRING(BGl_string2259z00zz__match_compilerz00,
		BgL_bgl_string2259za700za7za7_2306za7, "cdr", 3);
	      DEFINE_STRING(BGl_string2178z00zz__match_compilerz00,
		BgL_bgl_string2178za700za7za7_2307za7, "and", 3);
	      DEFINE_STRING(BGl_string2260z00zz__match_compilerz00,
		BgL_bgl_string2260za700za7za7_2308za7, "__match_compiler", 16);
	      DEFINE_STRING(BGl_string2180z00zz__match_compilerz00,
		BgL_bgl_string2180za700za7za7_2309za7, "cons", 4);
	      DEFINE_STRING(BGl_string2182z00zz__match_compilerz00,
		BgL_bgl_string2182za700za7za7_2310za7, "pair?", 5);
	      DEFINE_STRING(BGl_string2184z00zz__match_compilerz00,
		BgL_bgl_string2184za700za7za7_2311za7, "times", 5);
	      DEFINE_STRING(BGl_string2186z00zz__match_compilerz00,
		BgL_bgl_string2186za700za7za7_2312za7, "tree", 4);
	      DEFINE_STRING(BGl_string2187z00zz__match_compilerz00,
		BgL_bgl_string2187za700za7za7_2313za7, "Tree not yet allowed", 20);
	      DEFINE_STRING(BGl_string2188z00zz__match_compilerz00,
		BgL_bgl_string2188za700za7za7_2314za7, "Incorrect pattern: ", 19);
	      DEFINE_STRING(BGl_string2189z00zz__match_compilerz00,
		BgL_bgl_string2189za700za7za7_2315za7, " *** ", 5);
	      DEFINE_STRING(BGl_string2191z00zz__match_compilerz00,
		BgL_bgl_string2191za700za7za7_2316za7, "hole", 4);
	      DEFINE_STRING(BGl_string2193z00zz__match_compilerz00,
		BgL_bgl_string2193za700za7za7_2317za7, "vector-begin", 12);
	      DEFINE_STRING(BGl_string2195z00zz__match_compilerz00,
		BgL_bgl_string2195za700za7za7_2318za7, "vector-end", 10);
	      DEFINE_STRING(BGl_string2197z00zz__match_compilerz00,
		BgL_bgl_string2197za700za7za7_2319za7, "vector-any", 10);
	      DEFINE_STRING(BGl_string2199z00zz__match_compilerz00,
		BgL_bgl_string2199za700za7za7_2320za7, "vector-cons", 11);
	     
		DEFINE_STATIC_BGL_PROCEDURE(BGl_za7zd2initzd2envza7zz__match_compilerz00,
		BgL_bgl_za762za7a7za7d2initza7172321z00,
		BGl_z62za7zd2initz17zz__match_compilerz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_pcompilezd2envzd2zz__match_compilerz00,
		BgL_bgl_za762pcompileza762za7za72322z00,
		BGl_z62pcompilez62zz__match_compilerz00, 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_dzd2initzd2zz__match_compilerz00));
		   
			 ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2200z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2203z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2206z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2208z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2210z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2212z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2214z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2216z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2218z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2220z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2222z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2224z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2227z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_rzd2initzd2zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2231z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2233z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2237z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2158z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2241z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2161z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2243z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2163z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2245z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2165z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2167z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2249z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2169z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2251z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2171z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2253z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2173z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2256z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2175z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2258z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2177z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2179z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2181z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2183z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2185z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_list2157z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2190z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2192z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2194z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2196z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_symbol2198z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_list2247z00zz__match_compilerz00));
		     ADD_ROOT((void *) (&BGl_list2248z00zz__match_compilerz00));
#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_compilerz00(long
		BgL_checksumz00_3722, char *BgL_fromz00_3723)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__match_compilerz00))
				{
					BGl_requirezd2initializa7ationz75zz__match_compilerz00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zz__match_compilerz00();
					BGl_cnstzd2initzd2zz__match_compilerz00();
					BGl_importedzd2moduleszd2initz00zz__match_compilerz00();
					return BGl_toplevelzd2initzd2zz__match_compilerz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			BGl_symbol2158z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2159z00zz__match_compilerz00);
			BGl_list2157z00zz__match_compilerz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2158z00zz__match_compilerz00, BNIL);
			BGl_symbol2161z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2162z00zz__match_compilerz00);
			BGl_symbol2163z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2164z00zz__match_compilerz00);
			BGl_symbol2165z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2166z00zz__match_compilerz00);
			BGl_symbol2167z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2168z00zz__match_compilerz00);
			BGl_symbol2169z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2170z00zz__match_compilerz00);
			BGl_symbol2171z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2172z00zz__match_compilerz00);
			BGl_symbol2173z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2174z00zz__match_compilerz00);
			BGl_symbol2175z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2176z00zz__match_compilerz00);
			BGl_symbol2177z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2178z00zz__match_compilerz00);
			BGl_symbol2179z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2180z00zz__match_compilerz00);
			BGl_symbol2181z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2182z00zz__match_compilerz00);
			BGl_symbol2183z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2184z00zz__match_compilerz00);
			BGl_symbol2185z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2186z00zz__match_compilerz00);
			BGl_symbol2190z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2191z00zz__match_compilerz00);
			BGl_symbol2192z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2193z00zz__match_compilerz00);
			BGl_symbol2194z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2195z00zz__match_compilerz00);
			BGl_symbol2196z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2197z00zz__match_compilerz00);
			BGl_symbol2198z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2199z00zz__match_compilerz00);
			BGl_symbol2200z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2201z00zz__match_compilerz00);
			BGl_symbol2203z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2204z00zz__match_compilerz00);
			BGl_symbol2206z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2207z00zz__match_compilerz00);
			BGl_symbol2208z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2209z00zz__match_compilerz00);
			BGl_symbol2210z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2211z00zz__match_compilerz00);
			BGl_symbol2212z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2213z00zz__match_compilerz00);
			BGl_symbol2214z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2215z00zz__match_compilerz00);
			BGl_symbol2216z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2217z00zz__match_compilerz00);
			BGl_symbol2218z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2219z00zz__match_compilerz00);
			BGl_symbol2220z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2221z00zz__match_compilerz00);
			BGl_symbol2222z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2223z00zz__match_compilerz00);
			BGl_symbol2224z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2225z00zz__match_compilerz00);
			BGl_symbol2227z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2228z00zz__match_compilerz00);
			BGl_symbol2231z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2232z00zz__match_compilerz00);
			BGl_symbol2233z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2234z00zz__match_compilerz00);
			BGl_symbol2237z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2238z00zz__match_compilerz00);
			BGl_symbol2241z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2242z00zz__match_compilerz00);
			BGl_symbol2243z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2244z00zz__match_compilerz00);
			BGl_symbol2245z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2246z00zz__match_compilerz00);
			BGl_list2248z00zz__match_compilerz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2241z00zz__match_compilerz00, BNIL);
			BGl_list2247z00zz__match_compilerz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2171z00zz__match_compilerz00,
				MAKE_YOUNG_PAIR(BGl_list2248z00zz__match_compilerz00, BNIL));
			BGl_symbol2249z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2250z00zz__match_compilerz00);
			BGl_symbol2251z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2252z00zz__match_compilerz00);
			BGl_symbol2253z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2254z00zz__match_compilerz00);
			BGl_symbol2256z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2257z00zz__match_compilerz00);
			return (BGl_symbol2258z00zz__match_compilerz00 =
				bstring_to_symbol(BGl_string2259z00zz__match_compilerz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			BGl_dzd2initzd2zz__match_compilerz00 =
				BGl_list2157z00zz__match_compilerz00;
			return (BGl_rzd2initzd2zz__match_compilerz00 = BNIL, BUNSPEC);
		}

	}



/* pcompile */
	BGL_EXPORTED_DEF obj_t BGl_pcompilez00zz__match_compilerz00(obj_t BgL_fz00_3)
	{
		{	/* Match/compiler.scm 64 */
			{	/* Match/compiler.scm 65 */
				obj_t BgL_sz00_1407;

				BgL_sz00_1407 =
					(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
					? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
					(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2160z00zz__match_compilerz00, BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
					(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2160z00zz__match_compilerz00));
				{	/* Match/compiler.scm 66 */
					obj_t BgL_arg1211z00_1408;

					{	/* Match/compiler.scm 66 */
						obj_t BgL_arg1213z00_1409;
						obj_t BgL_arg1214z00_1410;

						BgL_arg1213z00_1409 = MAKE_YOUNG_PAIR(BgL_sz00_1407, BNIL);
						BgL_arg1214z00_1410 =
							MAKE_YOUNG_PAIR(BGl_compilez00zz__match_compilerz00(BgL_fz00_3,
								BgL_sz00_1407, BNIL, BGl_mzd2initzd2envz00zz__match_compilerz00,
								BGl_kzd2initzd2envz00zz__match_compilerz00,
								BGl_za7zd2initzd2envza7zz__match_compilerz00,
								BGl_list2157z00zz__match_compilerz00), BNIL);
						BgL_arg1211z00_1408 =
							MAKE_YOUNG_PAIR(BgL_arg1213z00_1409, BgL_arg1214z00_1410);
					}
					return
						MAKE_YOUNG_PAIR(BGl_symbol2161z00zz__match_compilerz00,
						BgL_arg1211z00_1408);
				}
			}
		}

	}



/* &pcompile */
	obj_t BGl_z62pcompilez62zz__match_compilerz00(obj_t BgL_envz00_3394,
		obj_t BgL_fz00_3395)
	{
		{	/* Match/compiler.scm 64 */
			return BGl_pcompilez00zz__match_compilerz00(BgL_fz00_3395);
		}

	}



/* compile */
	obj_t BGl_compilez00zz__match_compilerz00(obj_t BgL_fz00_4, obj_t BgL_ez00_5,
		obj_t BgL_rz00_6, obj_t BgL_mz00_7, obj_t BgL_kz00_8, obj_t BgL_za7za7_9,
		obj_t BgL_dz00_10)
	{
		{	/* Match/compiler.scm 70 */
		BGl_compilez00zz__match_compilerz00:
			if (CBOOL(BGl_morezd2precisezf3z21zz__match_descriptionsz00(BgL_dz00_10,
						BgL_fz00_4)))
				{	/* Match/compiler.scm 72 */
					return
						(VA_PROCEDUREP(BgL_kz00_8) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8, BgL_rz00_6,
							BgL_za7za7_9, BgL_dz00_10, BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8, BgL_rz00_6,
							BgL_za7za7_9, BgL_dz00_10));
				}
			else
				{	/* Match/compiler.scm 72 */
					if (CBOOL(BGl_compatiblezf3zf3zz__match_descriptionsz00(BgL_dz00_10,
								BgL_fz00_4)))
						{	/* Match/compiler.scm 74 */
							obj_t BgL_casezd2valuezd2_1414;

							BgL_casezd2valuezd2_1414 = CAR(((obj_t) BgL_fz00_4));
							if (
								(BgL_casezd2valuezd2_1414 ==
									BGl_symbol2158z00zz__match_compilerz00))
								{	/* Match/compiler.scm 74 */
									return
										(VA_PROCEDUREP(BgL_kz00_8) ? ((obj_t(*)(obj_t,
													...)) PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8,
											BgL_rz00_6, BgL_za7za7_9, BgL_dz00_10,
											BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
													obj_t)) PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8,
											BgL_rz00_6, BgL_za7za7_9, BgL_dz00_10));
								}
							else
								{	/* Match/compiler.scm 74 */
									if (
										(BgL_casezd2valuezd2_1414 ==
											BGl_symbol2163z00zz__match_compilerz00))
										{	/* Match/compiler.scm 76 */
											obj_t BgL_arg1222z00_1417;

											{	/* Match/compiler.scm 76 */
												obj_t BgL_pairz00_2475;

												BgL_pairz00_2475 = CDR(((obj_t) BgL_fz00_4));
												BgL_arg1222z00_1417 = CAR(BgL_pairz00_2475);
											}
											{	/* Match/compiler.scm 112 */
												obj_t BgL_arg1292z00_2476;

												{	/* Match/compiler.scm 112 */
													obj_t BgL_arg1294z00_2477;
													obj_t BgL_arg1322z00_2478;

													{	/* Match/compiler.scm 112 */
														obj_t BgL_arg1323z00_2479;

														BgL_arg1323z00_2479 =
															MAKE_YOUNG_PAIR(BgL_ez00_5, BNIL);
														BgL_arg1294z00_2477 =
															MAKE_YOUNG_PAIR(BgL_arg1222z00_1417,
															BgL_arg1323z00_2479);
													}
													{	/* Match/compiler.scm 113 */
														obj_t BgL_arg1324z00_2480;
														obj_t BgL_arg1325z00_2481;

														BgL_arg1324z00_2480 =
															(VA_PROCEDUREP(BgL_kz00_8) ? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8,
																BgL_rz00_6, BgL_za7za7_9, BgL_dz00_10,
																BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8,
																BgL_rz00_6, BgL_za7za7_9, BgL_dz00_10));
														{	/* Match/compiler.scm 114 */
															obj_t BgL_arg1327z00_2482;

															BgL_arg1327z00_2482 =
																(VA_PROCEDUREP(BgL_za7za7_9) ? ((obj_t(*)(obj_t,
																			...))
																	PROCEDURE_ENTRY(BgL_za7za7_9)) (BgL_za7za7_9,
																	BgL_dz00_10, BEOA) : ((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_ENTRY(BgL_za7za7_9)) (BgL_za7za7_9,
																	BgL_dz00_10));
															BgL_arg1325z00_2481 =
																MAKE_YOUNG_PAIR(BgL_arg1327z00_2482, BNIL);
														}
														BgL_arg1322z00_2478 =
															MAKE_YOUNG_PAIR(BgL_arg1324z00_2480,
															BgL_arg1325z00_2481);
													}
													BgL_arg1292z00_2476 =
														MAKE_YOUNG_PAIR(BgL_arg1294z00_2477,
														BgL_arg1322z00_2478);
												}
												return
													MAKE_YOUNG_PAIR
													(BGl_symbol2165z00zz__match_compilerz00,
													BgL_arg1292z00_2476);
											}
										}
									else
										{	/* Match/compiler.scm 74 */
											if (
												(BgL_casezd2valuezd2_1414 ==
													BGl_symbol2167z00zz__match_compilerz00))
												{	/* Match/compiler.scm 138 */
													obj_t BgL_arg1372z00_2484;
													obj_t BgL_arg1373z00_2485;
													obj_t BgL_arg1374z00_2486;

													{	/* Match/compiler.scm 138 */
														obj_t BgL_arg1375z00_2487;

														{	/* Match/compiler.scm 138 */
															obj_t BgL_pairz00_2495;

															BgL_pairz00_2495 = CDR(((obj_t) BgL_fz00_4));
															BgL_arg1375z00_2487 = CAR(BgL_pairz00_2495);
														}
														BgL_arg1372z00_2484 =
															BGl_buildzd2atomzd2equalityzd2testzd2zz__match_compilerz00
															(BgL_ez00_5, BgL_arg1375z00_2487);
													}
													{	/* Match/compiler.scm 139 */
														obj_t BgL_arg1376z00_2488;

														{	/* Match/compiler.scm 139 */
															obj_t BgL_arg1377z00_2489;

															{	/* Match/compiler.scm 139 */
																obj_t BgL_arg1379z00_2490;

																{	/* Match/compiler.scm 139 */
																	obj_t BgL_pairz00_2499;

																	BgL_pairz00_2499 = CDR(((obj_t) BgL_fz00_4));
																	BgL_arg1379z00_2490 = CAR(BgL_pairz00_2499);
																}
																BgL_arg1377z00_2489 =
																	MAKE_YOUNG_PAIR(BgL_arg1379z00_2490, BNIL);
															}
															BgL_arg1376z00_2488 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2167z00zz__match_compilerz00,
																BgL_arg1377z00_2489);
														}
														BgL_arg1373z00_2485 =
															(VA_PROCEDUREP(BgL_kz00_8) ? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8,
																BgL_rz00_6, BgL_za7za7_9, BgL_arg1376z00_2488,
																BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_kz00_8)) (BgL_kz00_8,
																BgL_rz00_6, BgL_za7za7_9, BgL_arg1376z00_2488));
													}
													{	/* Match/compiler.scm 140 */
														obj_t BgL_arg1382z00_2491;

														BgL_arg1382z00_2491 =
															BGl_patternzd2minuszd2zz__match_descriptionsz00
															(BgL_dz00_10, BgL_fz00_4);
														BgL_arg1374z00_2486 =
															(VA_PROCEDUREP(BgL_za7za7_9) ? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_za7za7_9)) (BgL_za7za7_9,
																BgL_arg1382z00_2491, BEOA) : ((obj_t(*)(obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_za7za7_9)) (BgL_za7za7_9,
																BgL_arg1382z00_2491));
													}
													return
														BGl_buildzd2ifzd2zz__match_compilerz00
														(BgL_arg1372z00_2484, BgL_arg1373z00_2485,
														BgL_arg1374z00_2486);
												}
											else
												{	/* Match/compiler.scm 74 */
													if (
														(BgL_casezd2valuezd2_1414 ==
															BGl_symbol2169z00zz__match_compilerz00))
														{	/* Match/compiler.scm 78 */
															obj_t BgL_arg1225z00_1420;

															{	/* Match/compiler.scm 78 */
																obj_t BgL_pairz00_2504;

																BgL_pairz00_2504 = CDR(((obj_t) BgL_fz00_4));
																BgL_arg1225z00_1420 = CAR(BgL_pairz00_2504);
															}
															BGL_TAIL return
																BGl_compilezd2varzd2zz__match_compilerz00
																(BgL_arg1225z00_1420, BgL_ez00_5, BgL_rz00_6,
																BgL_mz00_7, BgL_kz00_8, BgL_za7za7_9,
																BgL_dz00_10);
														}
													else
														{	/* Match/compiler.scm 74 */
															if (
																(BgL_casezd2valuezd2_1414 ==
																	BGl_symbol2171z00zz__match_compilerz00))
																{	/* Match/compiler.scm 79 */
																	obj_t BgL_arg1228z00_1422;

																	{	/* Match/compiler.scm 79 */
																		obj_t BgL_pairz00_2509;

																		BgL_pairz00_2509 =
																			CDR(((obj_t) BgL_fz00_4));
																		BgL_arg1228z00_1422 = CAR(BgL_pairz00_2509);
																	}
																	{	/* Match/compiler.scm 143 */
																		obj_t BgL_zc3z04anonymousza31386ze3z87_3404;
																		obj_t BgL_zc3z04anonymousza31385ze3z87_3405;

																		BgL_zc3z04anonymousza31386ze3z87_3404 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza31386ze3ze5zz__match_compilerz00,
																			(int) (1L), (int) (3L));
																		BgL_zc3z04anonymousza31385ze3z87_3405 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza31385ze3ze5zz__match_compilerz00,
																			(int) (3L), (int) (1L));
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31386ze3z87_3404,
																			(int) (0L), BgL_kz00_8);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31386ze3z87_3404,
																			(int) (1L), BgL_rz00_6);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31386ze3z87_3404,
																			(int) (2L), BgL_za7za7_9);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31385ze3z87_3405,
																			(int) (0L), BgL_za7za7_9);
																		{
																			obj_t BgL_za7za7_3882;
																			obj_t BgL_kz00_3881;
																			obj_t BgL_fz00_3880;

																			BgL_fz00_3880 = BgL_arg1228z00_1422;
																			BgL_kz00_3881 =
																				BgL_zc3z04anonymousza31385ze3z87_3405;
																			BgL_za7za7_3882 =
																				BgL_zc3z04anonymousza31386ze3z87_3404;
																			BgL_za7za7_9 = BgL_za7za7_3882;
																			BgL_kz00_8 = BgL_kz00_3881;
																			BgL_fz00_4 = BgL_fz00_3880;
																			goto BGl_compilez00zz__match_compilerz00;
																		}
																	}
																}
															else
																{	/* Match/compiler.scm 74 */
																	if (
																		(BgL_casezd2valuezd2_1414 ==
																			BGl_symbol2173z00zz__match_compilerz00))
																		{	/* Match/compiler.scm 80 */
																			obj_t BgL_arg1232z00_1424;
																			obj_t BgL_arg1233z00_1425;

																			{	/* Match/compiler.scm 80 */
																				obj_t BgL_pairz00_2520;

																				BgL_pairz00_2520 =
																					CDR(((obj_t) BgL_fz00_4));
																				BgL_arg1232z00_1424 =
																					CAR(BgL_pairz00_2520);
																			}
																			{	/* Match/compiler.scm 80 */
																				obj_t BgL_pairz00_2526;

																				{	/* Match/compiler.scm 80 */
																					obj_t BgL_pairz00_2525;

																					BgL_pairz00_2525 =
																						CDR(((obj_t) BgL_fz00_4));
																					BgL_pairz00_2526 =
																						CDR(BgL_pairz00_2525);
																				}
																				BgL_arg1233z00_1425 =
																					CAR(BgL_pairz00_2526);
																			}
																			return
																				BGl_compilezd2orzd2zz__match_compilerz00
																				(BgL_arg1232z00_1424,
																				BgL_arg1233z00_1425, BgL_ez00_5,
																				BgL_rz00_6, BgL_mz00_7, BgL_kz00_8,
																				BgL_za7za7_9, BgL_dz00_10);
																		}
																	else
																		{	/* Match/compiler.scm 74 */
																			if (
																				(BgL_casezd2valuezd2_1414 ==
																					BGl_symbol2175z00zz__match_compilerz00))
																				{	/* Match/compiler.scm 81 */
																					obj_t BgL_arg1237z00_1427;
																					obj_t BgL_arg1240z00_1428;
																					obj_t BgL_arg1241z00_1429;

																					{	/* Match/compiler.scm 81 */
																						obj_t BgL_pairz00_2531;

																						BgL_pairz00_2531 =
																							CDR(((obj_t) BgL_fz00_4));
																						BgL_arg1237z00_1427 =
																							CAR(BgL_pairz00_2531);
																					}
																					{	/* Match/compiler.scm 81 */
																						obj_t BgL_pairz00_2537;

																						{	/* Match/compiler.scm 81 */
																							obj_t BgL_pairz00_2536;

																							BgL_pairz00_2536 =
																								CDR(((obj_t) BgL_fz00_4));
																							BgL_pairz00_2537 =
																								CDR(BgL_pairz00_2536);
																						}
																						BgL_arg1240z00_1428 =
																							CAR(BgL_pairz00_2537);
																					}
																					{	/* Match/compiler.scm 81 */
																						obj_t BgL_pairz00_2545;

																						{	/* Match/compiler.scm 81 */
																							obj_t BgL_pairz00_2544;

																							{	/* Match/compiler.scm 81 */
																								obj_t BgL_pairz00_2543;

																								BgL_pairz00_2543 =
																									CDR(((obj_t) BgL_fz00_4));
																								BgL_pairz00_2544 =
																									CDR(BgL_pairz00_2543);
																							}
																							BgL_pairz00_2545 =
																								CDR(BgL_pairz00_2544);
																						}
																						BgL_arg1241z00_1429 =
																							CAR(BgL_pairz00_2545);
																					}
																					{	/* Match/compiler.scm 196 */
																						obj_t BgL_za2varsza2z00_2546;

																						BgL_za2varsza2z00_2546 =
																							BGl_patternzd2variableszd2zz__match_descriptionsz00
																							(BgL_arg1237z00_1427);
																						{	/* Match/compiler.scm 199 */
																							obj_t
																								BgL_zc3z04anonymousza31422ze3z87_3406;
																							obj_t
																								BgL_zc3z04anonymousza31420ze3z87_3407;
																							BgL_zc3z04anonymousza31422ze3z87_3406
																								=
																								MAKE_FX_PROCEDURE
																								(BGl_z62zc3z04anonymousza31422ze3ze5zz__match_compilerz00,
																								(int) (1L), (int) (6L));
																							BgL_zc3z04anonymousza31420ze3z87_3407
																								=
																								MAKE_FX_PROCEDURE
																								(BGl_z62zc3z04anonymousza31420ze3ze5zz__match_compilerz00,
																								(int) (3L), (int) (2L));
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31422ze3z87_3406,
																								(int) (0L),
																								BgL_arg1241z00_1429);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31422ze3z87_3406,
																								(int) (1L), BgL_ez00_5);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31422ze3z87_3406,
																								(int) (2L), BgL_rz00_6);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31422ze3z87_3406,
																								(int) (3L), BgL_mz00_7);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31422ze3z87_3406,
																								(int) (4L), BgL_kz00_8);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31422ze3z87_3406,
																								(int) (5L), BgL_za7za7_9);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31420ze3z87_3407,
																								(int) (0L),
																								BgL_za2varsza2z00_2546);
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31420ze3z87_3407,
																								(int) (1L),
																								BgL_arg1240z00_1428);
																							{
																								obj_t BgL_za7za7_3932;
																								obj_t BgL_kz00_3931;
																								obj_t BgL_fz00_3930;

																								BgL_fz00_3930 =
																									BgL_arg1237z00_1427;
																								BgL_kz00_3931 =
																									BgL_zc3z04anonymousza31420ze3z87_3407;
																								BgL_za7za7_3932 =
																									BgL_zc3z04anonymousza31422ze3z87_3406;
																								BgL_za7za7_9 = BgL_za7za7_3932;
																								BgL_kz00_8 = BgL_kz00_3931;
																								BgL_fz00_4 = BgL_fz00_3930;
																								goto
																									BGl_compilez00zz__match_compilerz00;
																							}
																						}
																					}
																				}
																			else
																				{	/* Match/compiler.scm 74 */
																					if (
																						(BgL_casezd2valuezd2_1414 ==
																							BGl_symbol2177z00zz__match_compilerz00))
																						{	/* Match/compiler.scm 83 */
																							obj_t BgL_arg1244z00_1431;
																							obj_t BgL_arg1246z00_1432;

																							{	/* Match/compiler.scm 83 */
																								obj_t BgL_pairz00_2559;

																								BgL_pairz00_2559 =
																									CDR(((obj_t) BgL_fz00_4));
																								BgL_arg1244z00_1431 =
																									CAR(BgL_pairz00_2559);
																							}
																							{	/* Match/compiler.scm 83 */
																								obj_t BgL_pairz00_2565;

																								{	/* Match/compiler.scm 83 */
																									obj_t BgL_pairz00_2564;

																									BgL_pairz00_2564 =
																										CDR(((obj_t) BgL_fz00_4));
																									BgL_pairz00_2565 =
																										CDR(BgL_pairz00_2564);
																								}
																								BgL_arg1246z00_1432 =
																									CAR(BgL_pairz00_2565);
																							}
																							if (CBOOL
																								(BGl_compatiblezf3zf3zz__match_descriptionsz00
																									(BgL_arg1244z00_1431,
																										BgL_arg1246z00_1432)))
																								{	/* Match/compiler.scm 208 */
																									obj_t
																										BgL_zc3z04anonymousza31425ze3z87_3408;
																									BgL_zc3z04anonymousza31425ze3z87_3408
																										=
																										MAKE_FX_PROCEDURE
																										(BGl_z62zc3z04anonymousza31425ze3ze5zz__match_compilerz00,
																										(int) (3L), (int) (4L));
																									PROCEDURE_SET
																										(BgL_zc3z04anonymousza31425ze3z87_3408,
																										(int) (0L),
																										BgL_arg1246z00_1432);
																									PROCEDURE_SET
																										(BgL_zc3z04anonymousza31425ze3z87_3408,
																										(int) (1L), BgL_ez00_5);
																									PROCEDURE_SET
																										(BgL_zc3z04anonymousza31425ze3z87_3408,
																										(int) (2L), BgL_mz00_7);
																									PROCEDURE_SET
																										(BgL_zc3z04anonymousza31425ze3z87_3408,
																										(int) (3L), BgL_kz00_8);
																									{
																										obj_t BgL_kz00_3957;
																										obj_t BgL_fz00_3956;

																										BgL_fz00_3956 =
																											BgL_arg1244z00_1431;
																										BgL_kz00_3957 =
																											BgL_zc3z04anonymousza31425ze3z87_3408;
																										BgL_kz00_8 = BgL_kz00_3957;
																										BgL_fz00_4 = BgL_fz00_3956;
																										goto
																											BGl_compilez00zz__match_compilerz00;
																									}
																								}
																							else
																								{	/* Match/compiler.scm 205 */
																									return
																										(VA_PROCEDUREP(BgL_za7za7_9)
																										? ((obj_t(*)(obj_t,
																													...))
																											PROCEDURE_ENTRY
																											(BgL_za7za7_9))
																										(BgL_za7za7_9, BgL_dz00_10,
																											BEOA) : ((obj_t(*)(obj_t,
																													obj_t))
																											PROCEDURE_ENTRY
																											(BgL_za7za7_9))
																										(BgL_za7za7_9,
																											BgL_dz00_10));
																								}
																						}
																					else
																						{	/* Match/compiler.scm 74 */
																							if (
																								(BgL_casezd2valuezd2_1414 ==
																									BGl_symbol2179z00zz__match_compilerz00))
																								{	/* Match/compiler.scm 84 */
																									obj_t BgL_arg1248z00_1434;
																									obj_t BgL_arg1249z00_1435;

																									{	/* Match/compiler.scm 84 */
																										obj_t BgL_pairz00_2575;

																										BgL_pairz00_2575 =
																											CDR(((obj_t) BgL_fz00_4));
																										BgL_arg1248z00_1434 =
																											CAR(BgL_pairz00_2575);
																									}
																									{	/* Match/compiler.scm 84 */
																										obj_t BgL_pairz00_2581;

																										{	/* Match/compiler.scm 84 */
																											obj_t BgL_pairz00_2580;

																											BgL_pairz00_2580 =
																												CDR(
																												((obj_t) BgL_fz00_4));
																											BgL_pairz00_2581 =
																												CDR(BgL_pairz00_2580);
																										}
																										BgL_arg1249z00_1435 =
																											CAR(BgL_pairz00_2581);
																									}
																									if (
																										(CAR(
																												((obj_t) BgL_dz00_10))
																											==
																											BGl_symbol2179z00zz__match_compilerz00))
																										{	/* Match/compiler.scm 250 */
																											return
																												BGl_succeszd2conszd2zz__match_compilerz00
																												(BgL_arg1248z00_1434,
																												BgL_arg1249z00_1435,
																												BgL_ez00_5, BgL_rz00_6,
																												BgL_mz00_7, BgL_kz00_8,
																												BgL_za7za7_9,
																												BgL_dz00_10);
																										}
																									else
																										{	/* Match/compiler.scm 252 */
																											obj_t BgL_arg1465z00_2583;

																											{	/* Match/compiler.scm 252 */
																												obj_t
																													BgL_arg1468z00_2584;
																												obj_t
																													BgL_arg1469z00_2585;
																												{	/* Match/compiler.scm 252 */
																													obj_t
																														BgL_arg1471z00_2586;
																													BgL_arg1471z00_2586 =
																														MAKE_YOUNG_PAIR
																														(BgL_ez00_5, BNIL);
																													BgL_arg1468z00_2584 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2181z00zz__match_compilerz00,
																														BgL_arg1471z00_2586);
																												}
																												{	/* Match/compiler.scm 253 */
																													obj_t
																														BgL_arg1472z00_2587;
																													obj_t
																														BgL_arg1473z00_2588;
																													BgL_arg1472z00_2587 =
																														BGl_succeszd2conszd2zz__match_compilerz00
																														(BgL_arg1248z00_1434,
																														BgL_arg1249z00_1435,
																														BgL_ez00_5,
																														BgL_rz00_6,
																														BgL_mz00_7,
																														BgL_kz00_8,
																														BgL_za7za7_9,
																														BgL_dz00_10);
																													{	/* Match/compiler.scm 254 */
																														obj_t
																															BgL_arg1474z00_2589;
																														{	/* Match/compiler.scm 254 */
																															obj_t
																																BgL_arg1475z00_2590;
																															{	/* Match/compiler.scm 254 */
																																obj_t
																																	BgL_arg1476z00_2591;
																																{	/* Match/compiler.scm 254 */
																																	obj_t
																																		BgL_list1477z00_2592;
																																	{	/* Match/compiler.scm 254 */
																																		obj_t
																																			BgL_arg1478z00_2593;
																																		{	/* Match/compiler.scm 254 */
																																			obj_t
																																				BgL_arg1479z00_2594;
																																			BgL_arg1479z00_2594
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_list2157z00zz__match_compilerz00,
																																				BNIL);
																																			BgL_arg1478z00_2593
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_list2157z00zz__match_compilerz00,
																																				BgL_arg1479z00_2594);
																																		}
																																		BgL_list1477z00_2592
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2179z00zz__match_compilerz00,
																																			BgL_arg1478z00_2593);
																																	}
																																	BgL_arg1476z00_2591
																																		=
																																		BgL_list1477z00_2592;
																																}
																																BgL_arg1475z00_2590
																																	=
																																	BGl_patternzd2minuszd2zz__match_descriptionsz00
																																	(BgL_dz00_10,
																																	BgL_arg1476z00_2591);
																															}
																															BgL_arg1474z00_2589
																																=
																																(VA_PROCEDUREP
																																(BgL_za7za7_9)
																																? ((obj_t(*)
																																		(obj_t,
																																			...))
																																	PROCEDURE_ENTRY
																																	(BgL_za7za7_9))
																																(BgL_za7za7_9,
																																	BgL_arg1475z00_2590,
																																	BEOA)
																																: ((obj_t(*)
																																		(obj_t,
																																			obj_t))
																																	PROCEDURE_ENTRY
																																	(BgL_za7za7_9))
																																(BgL_za7za7_9,
																																	BgL_arg1475z00_2590));
																														}
																														BgL_arg1473z00_2588
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1474z00_2589,
																															BNIL);
																													}
																													BgL_arg1469z00_2585 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1472z00_2587,
																														BgL_arg1473z00_2588);
																												}
																												BgL_arg1465z00_2583 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1468z00_2584,
																													BgL_arg1469z00_2585);
																											}
																											return
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2165z00zz__match_compilerz00,
																												BgL_arg1465z00_2583);
																										}
																								}
																							else
																								{	/* Match/compiler.scm 74 */
																									if (
																										(BgL_casezd2valuezd2_1414 ==
																											BGl_symbol2183z00zz__match_compilerz00))
																										{	/* Match/compiler.scm 86 */
																											obj_t BgL_arg1252z00_1437;
																											obj_t BgL_arg1253z00_1438;
																											obj_t BgL_arg1254z00_1439;

																											{	/* Match/compiler.scm 86 */
																												obj_t BgL_pairz00_2602;

																												BgL_pairz00_2602 =
																													CDR(
																													((obj_t) BgL_fz00_4));
																												BgL_arg1252z00_1437 =
																													CAR(BgL_pairz00_2602);
																											}
																											{	/* Match/compiler.scm 86 */
																												obj_t BgL_pairz00_2608;

																												{	/* Match/compiler.scm 86 */
																													obj_t
																														BgL_pairz00_2607;
																													BgL_pairz00_2607 =
																														CDR(((obj_t)
																															BgL_fz00_4));
																													BgL_pairz00_2608 =
																														CDR
																														(BgL_pairz00_2607);
																												}
																												BgL_arg1253z00_1438 =
																													CAR(BgL_pairz00_2608);
																											}
																											{	/* Match/compiler.scm 86 */
																												obj_t BgL_pairz00_2616;

																												{	/* Match/compiler.scm 86 */
																													obj_t
																														BgL_pairz00_2615;
																													{	/* Match/compiler.scm 86 */
																														obj_t
																															BgL_pairz00_2614;
																														BgL_pairz00_2614 =
																															CDR(((obj_t)
																																BgL_fz00_4));
																														BgL_pairz00_2615 =
																															CDR
																															(BgL_pairz00_2614);
																													}
																													BgL_pairz00_2616 =
																														CDR
																														(BgL_pairz00_2615);
																												}
																												BgL_arg1254z00_1439 =
																													CAR(BgL_pairz00_2616);
																											}
																											return
																												BGl_compilezd2timeszd2zz__match_compilerz00
																												(BgL_arg1252z00_1437,
																												BgL_arg1253z00_1438,
																												BgL_arg1254z00_1439,
																												BgL_ez00_5, BgL_rz00_6,
																												BgL_mz00_7, BgL_kz00_8,
																												BgL_za7za7_9,
																												BgL_dz00_10);
																										}
																									else
																										{	/* Match/compiler.scm 74 */
																											if (
																												(BgL_casezd2valuezd2_1414
																													==
																													BGl_symbol2185z00zz__match_compilerz00))
																												{	/* Match/compiler.scm 325 */
																													obj_t
																														BgL_list1556z00_2636;
																													BgL_list1556z00_2636 =
																														MAKE_YOUNG_PAIR
																														(BGl_string2187z00zz__match_compilerz00,
																														BNIL);
																													return
																														BGl_errorz00zz__errorz00
																														(BGl_string2188z00zz__match_compilerz00,
																														BgL_list1556z00_2636,
																														BGl_string2189z00zz__match_compilerz00);
																												}
																											else
																												{	/* Match/compiler.scm 74 */
																													if (
																														(BgL_casezd2valuezd2_1414
																															==
																															BGl_symbol2190z00zz__match_compilerz00))
																														{	/* Match/compiler.scm 89 */
																															obj_t
																																BgL_arg1265z00_1445;
																															{	/* Match/compiler.scm 89 */
																																obj_t
																																	BgL_pairz00_2641;
																																BgL_pairz00_2641
																																	=
																																	CDR(((obj_t)
																																		BgL_fz00_4));
																																BgL_arg1265z00_1445
																																	=
																																	CAR
																																	(BgL_pairz00_2641);
																															}
																															{	/* Match/compiler.scm 322 */
																																obj_t
																																	BgL_arg1553z00_2642;
																																obj_t
																																	BgL_arg1554z00_2643;
																																{	/* Match/compiler.scm 322 */
																																	obj_t
																																		BgL_fun1555z00_2644;
																																	BgL_fun1555z00_2644
																																		=
																																		(VA_PROCEDUREP
																																		(BgL_mz00_7)
																																		? ((obj_t(*)
																																				(obj_t,
																																					...))
																																			PROCEDURE_ENTRY
																																			(BgL_mz00_7))
																																		(BgL_mz00_7,
																																			BgL_arg1265z00_1445,
																																			BEOA)
																																		: ((obj_t(*)
																																				(obj_t,
																																					obj_t))
																																			PROCEDURE_ENTRY
																																			(BgL_mz00_7))
																																		(BgL_mz00_7,
																																			BgL_arg1265z00_1445));
																																	BgL_arg1553z00_2642
																																		=
																																		(VA_PROCEDUREP
																																		(BgL_fun1555z00_2644)
																																		? ((obj_t(*)
																																				(obj_t,
																																					...))
																																			PROCEDURE_ENTRY
																																			(BgL_fun1555z00_2644))
																																		(BgL_fun1555z00_2644,
																																			BgL_rz00_6,
																																			BgL_mz00_7,
																																			BgL_kz00_8,
																																			BgL_za7za7_9,
																																			BgL_dz00_10,
																																			BEOA)
																																		: ((obj_t(*)
																																				(obj_t,
																																					obj_t,
																																					obj_t,
																																					obj_t,
																																					obj_t,
																																					obj_t))
																																			PROCEDURE_ENTRY
																																			(BgL_fun1555z00_2644))
																																		(BgL_fun1555z00_2644,
																																			BgL_rz00_6,
																																			BgL_mz00_7,
																																			BgL_kz00_8,
																																			BgL_za7za7_9,
																																			BgL_dz00_10));
																																}
																																BgL_arg1554z00_2643
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_ez00_5,
																																	BNIL);
																																return
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1553z00_2642,
																																	BgL_arg1554z00_2643);
																															}
																														}
																													else
																														{	/* Match/compiler.scm 74 */
																															if (
																																(BgL_casezd2valuezd2_1414
																																	==
																																	BGl_symbol2192z00zz__match_compilerz00))
																																{	/* Match/compiler.scm 91 */
																																	obj_t
																																		BgL_arg1275z00_1447;
																																	obj_t
																																		BgL_arg1276z00_1448;
																																	{	/* Match/compiler.scm 91 */
																																		obj_t
																																			BgL_pairz00_2649;
																																		BgL_pairz00_2649
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_fz00_4));
																																		BgL_arg1275z00_1447
																																			=
																																			CAR
																																			(BgL_pairz00_2649);
																																	}
																																	{	/* Match/compiler.scm 91 */
																																		obj_t
																																			BgL_pairz00_2655;
																																		{	/* Match/compiler.scm 91 */
																																			obj_t
																																				BgL_pairz00_2654;
																																			BgL_pairz00_2654
																																				=
																																				CDR((
																																					(obj_t)
																																					BgL_fz00_4));
																																			BgL_pairz00_2655
																																				=
																																				CDR
																																				(BgL_pairz00_2654);
																																		}
																																		BgL_arg1276z00_1448
																																			=
																																			CAR
																																			(BgL_pairz00_2655);
																																	}
																																	return
																																		BGl_compilezd2vectorzd2beginz00zz__match_compilerz00
																																		(BgL_arg1275z00_1447,
																																		BgL_arg1276z00_1448,
																																		BgL_ez00_5,
																																		BgL_rz00_6,
																																		BgL_mz00_7,
																																		BgL_kz00_8,
																																		BgL_za7za7_9,
																																		BgL_dz00_10);
																																}
																															else
																																{	/* Match/compiler.scm 74 */
																																	if (
																																		(BgL_casezd2valuezd2_1414
																																			==
																																			BGl_symbol2194z00zz__match_compilerz00))
																																		{	/* Match/compiler.scm 372 */
																																			obj_t
																																				BgL_zc3z04anonymousza31640ze3z87_3409;
																																			BgL_zc3z04anonymousza31640ze3z87_3409
																																				=
																																				MAKE_FX_PROCEDURE
																																				(BGl_z62zc3z04anonymousza31640ze3ze5zz__match_compilerz00,
																																				(int)
																																				(1L),
																																				(int)
																																				(5L));
																																			PROCEDURE_SET
																																				(BgL_zc3z04anonymousza31640ze3z87_3409,
																																				(int)
																																				(0L),
																																				BgL_ez00_5);
																																			PROCEDURE_SET
																																				(BgL_zc3z04anonymousza31640ze3z87_3409,
																																				(int)
																																				(1L),
																																				BgL_kz00_8);
																																			PROCEDURE_SET
																																				(BgL_zc3z04anonymousza31640ze3z87_3409,
																																				(int)
																																				(2L),
																																				BgL_rz00_6);
																																			PROCEDURE_SET
																																				(BgL_zc3z04anonymousza31640ze3z87_3409,
																																				(int)
																																				(3L),
																																				BgL_za7za7_9);
																																			PROCEDURE_SET
																																				(BgL_zc3z04anonymousza31640ze3z87_3409,
																																				(int)
																																				(4L),
																																				BgL_dz00_10);
																																			return
																																				BgL_zc3z04anonymousza31640ze3z87_3409;
																																		}
																																	else
																																		{	/* Match/compiler.scm 74 */
																																			if (
																																				(BgL_casezd2valuezd2_1414
																																					==
																																					BGl_symbol2196z00zz__match_compilerz00))
																																				{	/* Match/compiler.scm 378 */
																																					obj_t
																																						BgL_zc3z04anonymousza31655ze3z87_3410;
																																					BgL_zc3z04anonymousza31655ze3z87_3410
																																						=
																																						MAKE_FX_PROCEDURE
																																						(BGl_z62zc3z04anonymousza31655ze3ze5zz__match_compilerz00,
																																						(int)
																																						(1L),
																																						(int)
																																						(4L));
																																					PROCEDURE_SET
																																						(BgL_zc3z04anonymousza31655ze3z87_3410,
																																						(int)
																																						(0L),
																																						BgL_kz00_8);
																																					PROCEDURE_SET
																																						(BgL_zc3z04anonymousza31655ze3z87_3410,
																																						(int)
																																						(1L),
																																						BgL_rz00_6);
																																					PROCEDURE_SET
																																						(BgL_zc3z04anonymousza31655ze3z87_3410,
																																						(int)
																																						(2L),
																																						BgL_za7za7_9);
																																					PROCEDURE_SET
																																						(BgL_zc3z04anonymousza31655ze3z87_3410,
																																						(int)
																																						(3L),
																																						BgL_dz00_10);
																																					return
																																						BgL_zc3z04anonymousza31655ze3z87_3410;
																																				}
																																			else
																																				{	/* Match/compiler.scm 74 */
																																					if (
																																						(BgL_casezd2valuezd2_1414
																																							==
																																							BGl_symbol2198z00zz__match_compilerz00))
																																						{	/* Match/compiler.scm 95 */
																																							obj_t
																																								BgL_auxz00_4073;
																																							obj_t
																																								BgL_auxz00_4069;
																																							{	/* Match/compiler.scm 95 */
																																								obj_t
																																									BgL_pairz00_2679;
																																								{	/* Match/compiler.scm 95 */
																																									obj_t
																																										BgL_pairz00_2678;
																																									BgL_pairz00_2678
																																										=
																																										CDR
																																										(
																																										((obj_t) BgL_fz00_4));
																																									BgL_pairz00_2679
																																										=
																																										CDR
																																										(BgL_pairz00_2678);
																																								}
																																								BgL_auxz00_4073
																																									=
																																									CAR
																																									(BgL_pairz00_2679);
																																							}
																																							{	/* Match/compiler.scm 95 */
																																								obj_t
																																									BgL_pairz00_2673;
																																								BgL_pairz00_2673
																																									=
																																									CDR
																																									(
																																									((obj_t) BgL_fz00_4));
																																								BgL_auxz00_4069
																																									=
																																									CAR
																																									(BgL_pairz00_2673);
																																							}
																																							return
																																								BGl_compilezd2vectorzd2consz00zz__match_compilerz00
																																								(BgL_auxz00_4069,
																																								BgL_auxz00_4073,
																																								BgL_ez00_5,
																																								BgL_rz00_6,
																																								BgL_mz00_7,
																																								BgL_kz00_8,
																																								BgL_za7za7_9,
																																								BgL_dz00_10);
																																						}
																																					else
																																						{	/* Match/compiler.scm 74 */
																																							if ((BgL_casezd2valuezd2_1414 == BGl_symbol2200z00zz__match_compilerz00))
																																								{	/* Match/compiler.scm 382 */
																																									obj_t
																																										BgL_list1656z00_2699;
																																									BgL_list1656z00_2699
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_string2202z00zz__match_compilerz00,
																																										BNIL);
																																									return
																																										BGl_errorz00zz__errorz00
																																										(BGl_string2188z00zz__match_compilerz00,
																																										BgL_list1656z00_2699,
																																										BGl_string2189z00zz__match_compilerz00);
																																								}
																																							else
																																								{	/* Match/compiler.scm 74 */
																																									if ((BgL_casezd2valuezd2_1414 == BGl_symbol2203z00zz__match_compilerz00))
																																										{	/* Match/compiler.scm 74 */
																																											BGL_TAIL
																																												return
																																												BGl_compilezd2structzd2patz00zz__match_compilerz00
																																												(BgL_fz00_4,
																																												BgL_ez00_5,
																																												BgL_rz00_6,
																																												BgL_mz00_7,
																																												BgL_kz00_8,
																																												BgL_za7za7_9,
																																												BgL_dz00_10);
																																										}
																																									else
																																										{	/* Match/compiler.scm 100 */
																																											obj_t
																																												BgL_list1289z00_1459;
																																											{	/* Match/compiler.scm 100 */
																																												obj_t
																																													BgL_arg1291z00_1460;
																																												BgL_arg1291z00_1460
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_fz00_4,
																																													BNIL);
																																												BgL_list1289z00_1459
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_string2205z00zz__match_compilerz00,
																																													BgL_arg1291z00_1460);
																																											}
																																											return
																																												BGl_errorz00zz__errorz00
																																												(BGl_string2188z00zz__match_compilerz00,
																																												BgL_list1289z00_1459,
																																												BGl_string2189z00zz__match_compilerz00);
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
					else
						{	/* Match/compiler.scm 73 */
							return
								(VA_PROCEDUREP(BgL_za7za7_9) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_za7za7_9)) (BgL_za7za7_9,
									BgL_dz00_10, BEOA) : ((obj_t(*)(obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_za7za7_9)) (BgL_za7za7_9,
									BgL_dz00_10));
						}
				}
		}

	}



/* &<@anonymous:1386> */
	obj_t BGl_z62zc3z04anonymousza31386ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3411, obj_t BgL_d2z00_3415)
	{
		{	/* Match/compiler.scm 144 */
			{	/* Match/compiler.scm 144 */
				obj_t BgL_kz00_3412;
				obj_t BgL_rz00_3413;
				obj_t BgL_za7za7_3414;

				BgL_kz00_3412 = PROCEDURE_REF(BgL_envz00_3411, (int) (0L));
				BgL_rz00_3413 = PROCEDURE_REF(BgL_envz00_3411, (int) (1L));
				BgL_za7za7_3414 = PROCEDURE_REF(BgL_envz00_3411, (int) (2L));
				return
					(VA_PROCEDUREP(BgL_kz00_3412) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_kz00_3412)) (BgL_kz00_3412,
						BgL_rz00_3413, BgL_za7za7_3414, BgL_d2z00_3415,
						BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_kz00_3412)) (BgL_kz00_3412,
						BgL_rz00_3413, BgL_za7za7_3414, BgL_d2z00_3415));
			}
		}

	}



/* &<@anonymous:1385> */
	obj_t BGl_z62zc3z04anonymousza31385ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3416, obj_t BgL_r2z00_3418, obj_t BgL_za72za7_3419,
		obj_t BgL_d2z00_3420)
	{
		{	/* Match/compiler.scm 143 */
			{	/* Match/compiler.scm 143 */
				obj_t BgL_za7za7_3417;

				BgL_za7za7_3417 = PROCEDURE_REF(BgL_envz00_3416, (int) (0L));
				return
					(VA_PROCEDUREP(BgL_za7za7_3417) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_za7za7_3417)) (BgL_za7za7_3417,
						BgL_d2z00_3420, BEOA) : ((obj_t(*)(obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_za7za7_3417)) (BgL_za7za7_3417,
						BgL_d2z00_3420));
			}
		}

	}



/* &<@anonymous:1422> */
	obj_t BGl_z62zc3z04anonymousza31422ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3421, obj_t BgL_dz00_3428)
	{
		{	/* Match/compiler.scm 200 */
			return
				BGl_compilez00zz__match_compilerz00(PROCEDURE_REF(BgL_envz00_3421,
					(int) (0L)),
				PROCEDURE_REF(BgL_envz00_3421,
					(int) (1L)),
				PROCEDURE_REF(BgL_envz00_3421,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_3421,
					(int) (3L)),
				PROCEDURE_REF(BgL_envz00_3421,
					(int) (4L)),
				PROCEDURE_REF(BgL_envz00_3421, (int) (5L)), BgL_dz00_3428);
		}

	}



/* &<@anonymous:1420> */
	obj_t BGl_z62zc3z04anonymousza31420ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3429, obj_t BgL_rz00_3432, obj_t BgL_za7za7_3433,
		obj_t BgL_cz00_3434)
	{
		{	/* Match/compiler.scm 198 */
			{	/* Match/compiler.scm 199 */
				obj_t BgL_za2varsza2z00_3430;
				obj_t BgL_arg1240z00_3431;

				BgL_za2varsza2z00_3430 = PROCEDURE_REF(BgL_envz00_3429, (int) (0L));
				BgL_arg1240z00_3431 = PROCEDURE_REF(BgL_envz00_3429, (int) (1L));
				return
					MAKE_YOUNG_PAIR(BgL_arg1240z00_3431,
					BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
					(BgL_za2varsza2z00_3430, BNIL));
			}
		}

	}



/* &<@anonymous:1425> */
	obj_t BGl_z62zc3z04anonymousza31425ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3435, obj_t BgL_r2z00_3440, obj_t BgL_za72za7_3441,
		obj_t BgL_c2z00_3442)
	{
		{	/* Match/compiler.scm 207 */
			return
				BGl_compilez00zz__match_compilerz00(PROCEDURE_REF(BgL_envz00_3435,
					(int) (0L)),
				PROCEDURE_REF(BgL_envz00_3435,
					(int) (1L)), BgL_r2z00_3440,
				PROCEDURE_REF(BgL_envz00_3435,
					(int) (2L)),
				PROCEDURE_REF(BgL_envz00_3435,
					(int) (3L)), BgL_za72za7_3441, BgL_c2z00_3442);
		}

	}



/* &<@anonymous:1640> */
	obj_t BGl_z62zc3z04anonymousza31640ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3443, obj_t BgL_iz00_3449)
	{
		{	/* Match/compiler.scm 372 */
			{	/* Match/compiler.scm 373 */
				obj_t BgL_ez00_3444;
				obj_t BgL_kz00_3445;
				obj_t BgL_rz00_3446;
				obj_t BgL_za7za7_3447;
				obj_t BgL_dz00_3448;

				BgL_ez00_3444 = PROCEDURE_REF(BgL_envz00_3443, (int) (0L));
				BgL_kz00_3445 = PROCEDURE_REF(BgL_envz00_3443, (int) (1L));
				BgL_rz00_3446 = PROCEDURE_REF(BgL_envz00_3443, (int) (2L));
				BgL_za7za7_3447 = PROCEDURE_REF(BgL_envz00_3443, (int) (3L));
				BgL_dz00_3448 = PROCEDURE_REF(BgL_envz00_3443, (int) (4L));
				{	/* Match/compiler.scm 373 */
					obj_t BgL_arg1642z00_3639;
					obj_t BgL_arg1643z00_3640;
					obj_t BgL_arg1644z00_3641;

					{	/* Match/compiler.scm 373 */
						obj_t BgL_arg1645z00_3642;

						{	/* Match/compiler.scm 373 */
							obj_t BgL_arg1649z00_3643;

							{	/* Match/compiler.scm 373 */
								obj_t BgL_arg1651z00_3644;

								{	/* Match/compiler.scm 373 */
									obj_t BgL_arg1654z00_3645;

									BgL_arg1654z00_3645 = MAKE_YOUNG_PAIR(BgL_ez00_3444, BNIL);
									BgL_arg1651z00_3644 =
										MAKE_YOUNG_PAIR(BGl_symbol2206z00zz__match_compilerz00,
										BgL_arg1654z00_3645);
								}
								BgL_arg1649z00_3643 =
									MAKE_YOUNG_PAIR(BgL_arg1651z00_3644, BNIL);
							}
							BgL_arg1645z00_3642 =
								MAKE_YOUNG_PAIR(BgL_iz00_3449, BgL_arg1649z00_3643);
						}
						BgL_arg1642z00_3639 =
							MAKE_YOUNG_PAIR(BGl_symbol2208z00zz__match_compilerz00,
							BgL_arg1645z00_3642);
					}
					BgL_arg1643z00_3640 =
						(VA_PROCEDUREP(BgL_kz00_3445) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_kz00_3445)) (BgL_kz00_3445,
							BgL_rz00_3446, BgL_za7za7_3447, BgL_dz00_3448,
							BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_kz00_3445)) (BgL_kz00_3445,
							BgL_rz00_3446, BgL_za7za7_3447, BgL_dz00_3448));
					BgL_arg1644z00_3641 =
						(VA_PROCEDUREP(BgL_za7za7_3447) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_za7za7_3447)) (BgL_za7za7_3447,
							BgL_dz00_3448, BEOA) : ((obj_t(*)(obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_za7za7_3447)) (BgL_za7za7_3447,
							BgL_dz00_3448));
					return BGl_buildzd2ifzd2zz__match_compilerz00(BgL_arg1642z00_3639,
						BgL_arg1643z00_3640, BgL_arg1644z00_3641);
				}
			}
		}

	}



/* &<@anonymous:1655> */
	obj_t BGl_z62zc3z04anonymousza31655ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3450, obj_t BgL_iz00_3455)
	{
		{	/* Match/compiler.scm 378 */
			{	/* Match/compiler.scm 379 */
				obj_t BgL_kz00_3451;
				obj_t BgL_rz00_3452;
				obj_t BgL_za7za7_3453;
				obj_t BgL_dz00_3454;

				BgL_kz00_3451 = PROCEDURE_REF(BgL_envz00_3450, (int) (0L));
				BgL_rz00_3452 = PROCEDURE_REF(BgL_envz00_3450, (int) (1L));
				BgL_za7za7_3453 = PROCEDURE_REF(BgL_envz00_3450, (int) (2L));
				BgL_dz00_3454 = PROCEDURE_REF(BgL_envz00_3450, (int) (3L));
				return
					(VA_PROCEDUREP(BgL_kz00_3451) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_kz00_3451)) (BgL_kz00_3451,
						BgL_rz00_3452, BgL_za7za7_3453, BgL_dz00_3454,
						BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_kz00_3451)) (BgL_kz00_3451,
						BgL_rz00_3452, BgL_za7za7_3453, BgL_dz00_3454));
			}
		}

	}



/* build-atom-equality-test */
	obj_t BGl_buildzd2atomzd2equalityzd2testzd2zz__match_compilerz00(obj_t
		BgL_ez00_24, obj_t BgL_constz00_25)
	{
		{	/* Match/compiler.scm 116 */
			if (NULLP(BgL_constz00_25))
				{	/* Match/compiler.scm 120 */
					obj_t BgL_arg1330z00_1469;

					BgL_arg1330z00_1469 = MAKE_YOUNG_PAIR(BgL_ez00_24, BNIL);
					return
						MAKE_YOUNG_PAIR(BGl_symbol2210z00zz__match_compilerz00,
						BgL_arg1330z00_1469);
				}
			else
				{	/* Match/compiler.scm 121 */
					bool_t BgL_test2347z00_4183;

					if (INTEGERP(BgL_constz00_25))
						{	/* Match/compiler.scm 121 */
							BgL_test2347z00_4183 = ((bool_t) 1);
						}
					else
						{	/* Match/compiler.scm 121 */
							if (CHARP(BgL_constz00_25))
								{	/* Match/compiler.scm 122 */
									BgL_test2347z00_4183 = ((bool_t) 1);
								}
							else
								{	/* Match/compiler.scm 122 */
									if (BOOLEANP(BgL_constz00_25))
										{	/* Match/compiler.scm 123 */
											BgL_test2347z00_4183 = ((bool_t) 1);
										}
									else
										{	/* Match/compiler.scm 123 */
											BgL_test2347z00_4183 = SYMBOLP(BgL_constz00_25);
										}
								}
						}
					if (BgL_test2347z00_4183)
						{	/* Match/compiler.scm 125 */
							obj_t BgL_arg1335z00_1474;

							{	/* Match/compiler.scm 125 */
								obj_t BgL_arg1336z00_1475;

								{	/* Match/compiler.scm 125 */
									obj_t BgL_arg1337z00_1476;

									{	/* Match/compiler.scm 125 */
										obj_t BgL_arg1338z00_1477;

										BgL_arg1338z00_1477 =
											MAKE_YOUNG_PAIR(BgL_constz00_25, BNIL);
										BgL_arg1337z00_1476 =
											MAKE_YOUNG_PAIR(BGl_symbol2167z00zz__match_compilerz00,
											BgL_arg1338z00_1477);
									}
									BgL_arg1336z00_1475 =
										MAKE_YOUNG_PAIR(BgL_arg1337z00_1476, BNIL);
								}
								BgL_arg1335z00_1474 =
									MAKE_YOUNG_PAIR(BgL_ez00_24, BgL_arg1336z00_1475);
							}
							return
								MAKE_YOUNG_PAIR(BGl_symbol2208z00zz__match_compilerz00,
								BgL_arg1335z00_1474);
						}
					else
						{	/* Match/compiler.scm 121 */
							if (REALP(BgL_constz00_25))
								{	/* Match/compiler.scm 127 */
									obj_t BgL_arg1341z00_1479;

									{	/* Match/compiler.scm 127 */
										obj_t BgL_arg1342z00_1480;
										obj_t BgL_arg1343z00_1481;

										{	/* Match/compiler.scm 127 */
											obj_t BgL_arg1344z00_1482;

											BgL_arg1344z00_1482 = MAKE_YOUNG_PAIR(BgL_ez00_24, BNIL);
											BgL_arg1342z00_1480 =
												MAKE_YOUNG_PAIR(BGl_symbol2212z00zz__match_compilerz00,
												BgL_arg1344z00_1482);
										}
										{	/* Match/compiler.scm 127 */
											obj_t BgL_arg1345z00_1483;

											{	/* Match/compiler.scm 127 */
												obj_t BgL_arg1346z00_1484;

												{	/* Match/compiler.scm 127 */
													obj_t BgL_arg1347z00_1485;

													BgL_arg1347z00_1485 =
														MAKE_YOUNG_PAIR(BgL_constz00_25, BNIL);
													BgL_arg1346z00_1484 =
														MAKE_YOUNG_PAIR(BgL_ez00_24, BgL_arg1347z00_1485);
												}
												BgL_arg1345z00_1483 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2214z00zz__match_compilerz00,
													BgL_arg1346z00_1484);
											}
											BgL_arg1343z00_1481 =
												MAKE_YOUNG_PAIR(BgL_arg1345z00_1483, BNIL);
										}
										BgL_arg1341z00_1479 =
											MAKE_YOUNG_PAIR(BgL_arg1342z00_1480, BgL_arg1343z00_1481);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2177z00zz__match_compilerz00,
										BgL_arg1341z00_1479);
								}
							else
								{	/* Match/compiler.scm 126 */
									if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_constz00_25))
										{	/* Match/compiler.scm 129 */
											obj_t BgL_arg1349z00_1487;

											{	/* Match/compiler.scm 129 */
												obj_t BgL_arg1352z00_1488;
												obj_t BgL_arg1353z00_1489;

												{	/* Match/compiler.scm 129 */
													obj_t BgL_arg1354z00_1490;

													BgL_arg1354z00_1490 =
														MAKE_YOUNG_PAIR(BgL_ez00_24, BNIL);
													BgL_arg1352z00_1488 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2216z00zz__match_compilerz00,
														BgL_arg1354z00_1490);
												}
												{	/* Match/compiler.scm 129 */
													obj_t BgL_arg1355z00_1491;

													{	/* Match/compiler.scm 129 */
														obj_t BgL_arg1356z00_1492;

														{	/* Match/compiler.scm 129 */
															obj_t BgL_arg1357z00_1493;

															BgL_arg1357z00_1493 =
																MAKE_YOUNG_PAIR(BgL_constz00_25, BNIL);
															BgL_arg1356z00_1492 =
																MAKE_YOUNG_PAIR(BgL_ez00_24,
																BgL_arg1357z00_1493);
														}
														BgL_arg1355z00_1491 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2218z00zz__match_compilerz00,
															BgL_arg1356z00_1492);
													}
													BgL_arg1353z00_1489 =
														MAKE_YOUNG_PAIR(BgL_arg1355z00_1491, BNIL);
												}
												BgL_arg1349z00_1487 =
													MAKE_YOUNG_PAIR(BgL_arg1352z00_1488,
													BgL_arg1353z00_1489);
											}
											return
												MAKE_YOUNG_PAIR(BGl_symbol2177z00zz__match_compilerz00,
												BgL_arg1349z00_1487);
										}
									else
										{	/* Match/compiler.scm 128 */
											if (STRINGP(BgL_constz00_25))
												{	/* Match/compiler.scm 131 */
													obj_t BgL_arg1359z00_1495;

													{	/* Match/compiler.scm 131 */
														obj_t BgL_arg1360z00_1496;
														obj_t BgL_arg1361z00_1497;

														{	/* Match/compiler.scm 131 */
															obj_t BgL_arg1362z00_1498;

															BgL_arg1362z00_1498 =
																MAKE_YOUNG_PAIR(BgL_ez00_24, BNIL);
															BgL_arg1360z00_1496 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2220z00zz__match_compilerz00,
																BgL_arg1362z00_1498);
														}
														{	/* Match/compiler.scm 131 */
															obj_t BgL_arg1363z00_1499;

															{	/* Match/compiler.scm 131 */
																obj_t BgL_arg1364z00_1500;

																{	/* Match/compiler.scm 131 */
																	obj_t BgL_arg1365z00_1501;

																	BgL_arg1365z00_1501 =
																		MAKE_YOUNG_PAIR(BgL_constz00_25, BNIL);
																	BgL_arg1364z00_1500 =
																		MAKE_YOUNG_PAIR(BgL_ez00_24,
																		BgL_arg1365z00_1501);
																}
																BgL_arg1363z00_1499 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2222z00zz__match_compilerz00,
																	BgL_arg1364z00_1500);
															}
															BgL_arg1361z00_1497 =
																MAKE_YOUNG_PAIR(BgL_arg1363z00_1499, BNIL);
														}
														BgL_arg1359z00_1495 =
															MAKE_YOUNG_PAIR(BgL_arg1360z00_1496,
															BgL_arg1361z00_1497);
													}
													return
														MAKE_YOUNG_PAIR
														(BGl_symbol2177z00zz__match_compilerz00,
														BgL_arg1359z00_1495);
												}
											else
												{	/* Match/compiler.scm 130 */
													if (NULLP(BgL_constz00_25))
														{	/* Match/compiler.scm 133 */
															obj_t BgL_arg1367z00_1503;

															BgL_arg1367z00_1503 =
																MAKE_YOUNG_PAIR(BgL_ez00_24, BNIL);
															return
																MAKE_YOUNG_PAIR
																(BGl_symbol2210z00zz__match_compilerz00,
																BgL_arg1367z00_1503);
														}
													else
														{	/* Match/compiler.scm 135 */
															obj_t BgL_arg1368z00_1504;

															{	/* Match/compiler.scm 135 */
																obj_t BgL_arg1369z00_1505;

																{	/* Match/compiler.scm 135 */
																	obj_t BgL_arg1370z00_1506;

																	{	/* Match/compiler.scm 135 */
																		obj_t BgL_arg1371z00_1507;

																		BgL_arg1371z00_1507 =
																			MAKE_YOUNG_PAIR(BgL_constz00_25, BNIL);
																		BgL_arg1370z00_1506 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2167z00zz__match_compilerz00,
																			BgL_arg1371z00_1507);
																	}
																	BgL_arg1369z00_1505 =
																		MAKE_YOUNG_PAIR(BgL_arg1370z00_1506, BNIL);
																}
																BgL_arg1368z00_1504 =
																	MAKE_YOUNG_PAIR(BgL_ez00_24,
																	BgL_arg1369z00_1505);
															}
															return
																MAKE_YOUNG_PAIR
																(BGl_symbol2224z00zz__match_compilerz00,
																BgL_arg1368z00_1504);
														}
												}
										}
								}
						}
				}
		}

	}



/* compile-or */
	obj_t BGl_compilezd2orzd2zz__match_compilerz00(obj_t BgL_f1z00_40,
		obj_t BgL_f2z00_41, obj_t BgL_ez00_42, obj_t BgL_rz00_43, obj_t BgL_mz00_44,
		obj_t BgL_kz00_45, obj_t BgL_za7za7_46, obj_t BgL_dz00_47)
	{
		{	/* Match/compiler.scm 151 */
			{	/* Match/compiler.scm 152 */
				obj_t BgL_za2kza2z00_1529;

				BgL_za2kza2z00_1529 =
					(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
					? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
					(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2226z00zz__match_compilerz00, BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
					(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2226z00zz__match_compilerz00));
				{	/* Match/compiler.scm 152 */
					obj_t BgL_za2varsza2z00_1530;

					BgL_za2varsza2z00_1530 =
						BGl_patternzd2variableszd2zz__match_descriptionsz00(BgL_f1z00_40);
					{	/* Match/compiler.scm 153 */
						obj_t BgL_za2callza2z00_1531;

						BgL_za2callza2z00_1531 =
							MAKE_YOUNG_PAIR(BgL_za2kza2z00_1529,
							BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
							(BgL_za2varsza2z00_1530, BNIL));
						{	/* Match/compiler.scm 154 */
							obj_t BgL_successzd2formzd2_1532;

							{	/* Match/compiler.scm 155 */
								obj_t BgL_arg1415z00_1581;

								BgL_arg1415z00_1581 =
									BGl_extendza2za2zz__match_compilerz00(BgL_rz00_43,
									BgL_za2varsza2z00_1530);
								BgL_successzd2formzd2_1532 =
									(VA_PROCEDUREP(BgL_kz00_45) ? ((obj_t(*)(obj_t,
												...)) PROCEDURE_ENTRY(BgL_kz00_45)) (BgL_kz00_45,
										BgL_arg1415z00_1581, BgL_za7za7_46, BgL_dz00_47,
										BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
												obj_t)) PROCEDURE_ENTRY(BgL_kz00_45)) (BgL_kz00_45,
										BgL_arg1415z00_1581, BgL_za7za7_46, BgL_dz00_47));
							}
							{	/* Match/compiler.scm 155 */

								{	/* Match/compiler.scm 157 */
									bool_t BgL_test2355z00_4249;

									if ((BgL_successzd2formzd2_1532 == BFALSE))
										{	/* Match/compiler.scm 157 */
											BgL_test2355z00_4249 = ((bool_t) 1);
										}
									else
										{	/* Match/compiler.scm 157 */
											if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(CDR
													(BgL_za2callza2z00_1531),
													CDR(((obj_t) BgL_successzd2formzd2_1532))))
												{	/* Match/compiler.scm 158 */
													BgL_test2355z00_4249 = ((bool_t) 1);
												}
											else
												{	/* Match/compiler.scm 158 */
													BgL_test2355z00_4249 =
														BGl_isDirectCallzf3zf3zz__match_compilerz00
														(BgL_successzd2formzd2_1532);
												}
										}
									if (BgL_test2355z00_4249)
										{	/* Match/compiler.scm 161 */
											obj_t BgL_zc3z04anonymousza31397ze3z87_3457;
											obj_t BgL_zc3z04anonymousza31396ze3z87_3458;

											BgL_zc3z04anonymousza31397ze3z87_3457 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31397ze3ze5zz__match_compilerz00,
												(int) (1L), (int) (6L));
											BgL_zc3z04anonymousza31396ze3z87_3458 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31396ze3ze5zz__match_compilerz00,
												(int) (3L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31397ze3z87_3457,
												(int) (0L), BgL_successzd2formzd2_1532);
											PROCEDURE_SET(BgL_zc3z04anonymousza31397ze3z87_3457,
												(int) (1L), BgL_f2z00_41);
											PROCEDURE_SET(BgL_zc3z04anonymousza31397ze3z87_3457,
												(int) (2L), BgL_ez00_42);
											PROCEDURE_SET(BgL_zc3z04anonymousza31397ze3z87_3457,
												(int) (3L), BgL_rz00_43);
											PROCEDURE_SET(BgL_zc3z04anonymousza31397ze3z87_3457,
												(int) (4L), BgL_mz00_44);
											PROCEDURE_SET(BgL_zc3z04anonymousza31397ze3z87_3457,
												(int) (5L), BgL_za7za7_46);
											PROCEDURE_SET(BgL_zc3z04anonymousza31396ze3z87_3458,
												(int) (0L), BgL_successzd2formzd2_1532);
											return BGl_compilez00zz__match_compilerz00(BgL_f1z00_40,
												BgL_ez00_42, BgL_rz00_43, BgL_mz00_44,
												BgL_zc3z04anonymousza31396ze3z87_3458,
												BgL_zc3z04anonymousza31397ze3z87_3457, BgL_dz00_47);
										}
									else
										{	/* Match/compiler.scm 167 */
											obj_t BgL_resz00_1555;

											{	/* Match/compiler.scm 168 */
												obj_t BgL_zc3z04anonymousza31410ze3z87_3460;
												obj_t BgL_zc3z04anonymousza31409ze3z87_3461;

												BgL_zc3z04anonymousza31410ze3z87_3460 =
													MAKE_FX_PROCEDURE
													(BGl_z62zc3z04anonymousza31410ze3ze5zz__match_compilerz00,
													(int) (1L), (int) (6L));
												BgL_zc3z04anonymousza31409ze3z87_3461 =
													MAKE_FX_PROCEDURE
													(BGl_z62zc3z04anonymousza31409ze3ze5zz__match_compilerz00,
													(int) (3L), (int) (1L));
												PROCEDURE_SET(BgL_zc3z04anonymousza31410ze3z87_3460,
													(int) (0L), BgL_za2callza2z00_1531);
												PROCEDURE_SET(BgL_zc3z04anonymousza31410ze3z87_3460,
													(int) (1L), BgL_f2z00_41);
												PROCEDURE_SET(BgL_zc3z04anonymousza31410ze3z87_3460,
													(int) (2L), BgL_ez00_42);
												PROCEDURE_SET(BgL_zc3z04anonymousza31410ze3z87_3460,
													(int) (3L), BgL_rz00_43);
												PROCEDURE_SET(BgL_zc3z04anonymousza31410ze3z87_3460,
													(int) (4L), BgL_mz00_44);
												PROCEDURE_SET(BgL_zc3z04anonymousza31410ze3z87_3460,
													(int) (5L), BgL_za7za7_46);
												PROCEDURE_SET(BgL_zc3z04anonymousza31409ze3z87_3461,
													(int) (0L), BgL_za2callza2z00_1531);
												BgL_resz00_1555 =
													BGl_compilez00zz__match_compilerz00(BgL_f1z00_40,
													BgL_ez00_42, BgL_rz00_43, BgL_mz00_44,
													BgL_zc3z04anonymousza31409ze3z87_3461,
													BgL_zc3z04anonymousza31410ze3z87_3460, BgL_dz00_47);
											}
											if (CBOOL(BgL_resz00_1555))
												{	/* Match/compiler.scm 175 */
													obj_t BgL_arg1400z00_1556;

													{	/* Match/compiler.scm 175 */
														obj_t BgL_arg1401z00_1557;
														obj_t BgL_arg1402z00_1558;

														{	/* Match/compiler.scm 175 */
															obj_t BgL_arg1403z00_1559;

															{	/* Match/compiler.scm 175 */
																obj_t BgL_arg1405z00_1560;

																{	/* Match/compiler.scm 175 */
																	obj_t BgL_arg1406z00_1561;

																	BgL_arg1406z00_1561 =
																		MAKE_YOUNG_PAIR(BgL_successzd2formzd2_1532,
																		BNIL);
																	BgL_arg1405z00_1560 =
																		MAKE_YOUNG_PAIR(BgL_za2varsza2z00_1530,
																		BgL_arg1406z00_1561);
																}
																BgL_arg1403z00_1559 =
																	MAKE_YOUNG_PAIR(BgL_za2kza2z00_1529,
																	BgL_arg1405z00_1560);
															}
															BgL_arg1401z00_1557 =
																MAKE_YOUNG_PAIR(BgL_arg1403z00_1559, BNIL);
														}
														BgL_arg1402z00_1558 =
															MAKE_YOUNG_PAIR(BgL_resz00_1555, BNIL);
														BgL_arg1400z00_1556 =
															MAKE_YOUNG_PAIR(BgL_arg1401z00_1557,
															BgL_arg1402z00_1558);
													}
													return
														MAKE_YOUNG_PAIR
														(BGl_symbol2227z00zz__match_compilerz00,
														BgL_arg1400z00_1556);
												}
											else
												{	/* Match/compiler.scm 174 */
													return BgL_resz00_1555;
												}
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1397> */
	obj_t BGl_z62zc3z04anonymousza31397ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3462, obj_t BgL_dz00_3469)
	{
		{	/* Match/compiler.scm 162 */
			{	/* Match/compiler.scm 164 */
				obj_t BgL_successzd2formzd2_3463;
				obj_t BgL_f2z00_3464;
				obj_t BgL_ez00_3465;
				obj_t BgL_rz00_3466;
				obj_t BgL_mz00_3467;
				obj_t BgL_za7za7_3468;

				BgL_successzd2formzd2_3463 = PROCEDURE_REF(BgL_envz00_3462, (int) (0L));
				BgL_f2z00_3464 = PROCEDURE_REF(BgL_envz00_3462, (int) (1L));
				BgL_ez00_3465 = PROCEDURE_REF(BgL_envz00_3462, (int) (2L));
				BgL_rz00_3466 = PROCEDURE_REF(BgL_envz00_3462, (int) (3L));
				BgL_mz00_3467 = PROCEDURE_REF(BgL_envz00_3462, (int) (4L));
				BgL_za7za7_3468 = PROCEDURE_REF(BgL_envz00_3462, (int) (5L));
				{	/* Match/compiler.scm 164 */
					obj_t BgL_zc3z04anonymousza31399ze3z87_3646;

					BgL_zc3z04anonymousza31399ze3z87_3646 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31399ze3ze5zz__match_compilerz00,
						(int) (3L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31399ze3z87_3646, (int) (0L),
						BgL_successzd2formzd2_3463);
					return BGl_compilez00zz__match_compilerz00(BgL_f2z00_3464,
						BgL_ez00_3465, BgL_rz00_3466, BgL_mz00_3467,
						BgL_zc3z04anonymousza31399ze3z87_3646, BgL_za7za7_3468,
						BgL_dz00_3469);
				}
			}
		}

	}



/* &<@anonymous:1396> */
	obj_t BGl_z62zc3z04anonymousza31396ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3470, obj_t BgL_rz00_3472, obj_t BgL_za7za7_3473,
		obj_t BgL_dz00_3474)
	{
		{	/* Match/compiler.scm 161 */
			return PROCEDURE_REF(BgL_envz00_3470, (int) (0L));
		}

	}



/* &<@anonymous:1399> */
	obj_t BGl_z62zc3z04anonymousza31399ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3475, obj_t BgL_rz00_3477, obj_t BgL_za7za7_3478,
		obj_t BgL_dz00_3479)
	{
		{	/* Match/compiler.scm 164 */
			return PROCEDURE_REF(BgL_envz00_3475, (int) (0L));
		}

	}



/* &<@anonymous:1410> */
	obj_t BGl_z62zc3z04anonymousza31410ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3480, obj_t BgL_dz00_3487)
	{
		{	/* Match/compiler.scm 169 */
			{	/* Match/compiler.scm 171 */
				obj_t BgL_za2callza2z00_3481;
				obj_t BgL_f2z00_3482;
				obj_t BgL_ez00_3483;
				obj_t BgL_rz00_3484;
				obj_t BgL_mz00_3485;
				obj_t BgL_za7za7_3486;

				BgL_za2callza2z00_3481 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3480, (int) (0L)));
				BgL_f2z00_3482 = PROCEDURE_REF(BgL_envz00_3480, (int) (1L));
				BgL_ez00_3483 = PROCEDURE_REF(BgL_envz00_3480, (int) (2L));
				BgL_rz00_3484 = PROCEDURE_REF(BgL_envz00_3480, (int) (3L));
				BgL_mz00_3485 = PROCEDURE_REF(BgL_envz00_3480, (int) (4L));
				BgL_za7za7_3486 = PROCEDURE_REF(BgL_envz00_3480, (int) (5L));
				{	/* Match/compiler.scm 171 */
					obj_t BgL_zc3z04anonymousza31412ze3z87_3647;

					BgL_zc3z04anonymousza31412ze3z87_3647 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31412ze3ze5zz__match_compilerz00,
						(int) (3L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31412ze3z87_3647, (int) (0L),
						BgL_za2callza2z00_3481);
					return BGl_compilez00zz__match_compilerz00(BgL_f2z00_3482,
						BgL_ez00_3483, BgL_rz00_3484, BgL_mz00_3485,
						BgL_zc3z04anonymousza31412ze3z87_3647, BgL_za7za7_3486,
						BgL_dz00_3487);
				}
			}
		}

	}



/* &<@anonymous:1409> */
	obj_t BGl_z62zc3z04anonymousza31409ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3488, obj_t BgL_rz00_3490, obj_t BgL_za7za7_3491,
		obj_t BgL_dz00_3492)
	{
		{	/* Match/compiler.scm 168 */
			return ((obj_t) PROCEDURE_REF(BgL_envz00_3488, (int) (0L)));
		}

	}



/* &<@anonymous:1412> */
	obj_t BGl_z62zc3z04anonymousza31412ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3493, obj_t BgL_rz00_3495, obj_t BgL_za7za7_3496,
		obj_t BgL_dz00_3497)
	{
		{	/* Match/compiler.scm 171 */
			return ((obj_t) PROCEDURE_REF(BgL_envz00_3493, (int) (0L)));
		}

	}



/* isDirectCall? */
	bool_t BGl_isDirectCallzf3zf3zz__match_compilerz00(obj_t BgL_ez00_48)
	{
		{	/* Match/compiler.scm 182 */
			if (PAIRP(BgL_ez00_48))
				{	/* Match/compiler.scm 184 */
					obj_t BgL_prz00_1584;

					BgL_prz00_1584 = CAR(BgL_ez00_48);
					if (SYMBOLP(BgL_prz00_1584))
						{	/* Match/compiler.scm 186 */
							obj_t BgL_sz00_1586;

							{	/* Match/compiler.scm 186 */
								obj_t BgL_arg1936z00_2742;

								BgL_arg1936z00_2742 = SYMBOL_TO_STRING(BgL_prz00_1584);
								BgL_sz00_1586 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg1936z00_2742);
							}
							if ((STRING_LENGTH(BgL_sz00_1586) > 3L))
								{	/* Match/compiler.scm 188 */
									obj_t BgL_sz00_1588;

									BgL_sz00_1588 = c_substring(BgL_sz00_1586, 0L, 3L);
									{	/* Match/compiler.scm 189 */
										bool_t BgL__ortest_1042z00_1589;

										{	/* Match/compiler.scm 189 */
											long BgL_l1z00_2748;

											BgL_l1z00_2748 = STRING_LENGTH(BgL_sz00_1588);
											if ((BgL_l1z00_2748 == 3L))
												{	/* Match/compiler.scm 189 */
													int BgL_arg1929z00_2751;

													{	/* Match/compiler.scm 189 */
														char *BgL_auxz00_4372;
														char *BgL_tmpz00_4370;

														BgL_auxz00_4372 =
															BSTRING_TO_STRING
															(BGl_string2229z00zz__match_compilerz00);
														BgL_tmpz00_4370 = BSTRING_TO_STRING(BgL_sz00_1588);
														BgL_arg1929z00_2751 =
															memcmp(BgL_tmpz00_4370, BgL_auxz00_4372,
															BgL_l1z00_2748);
													}
													BgL__ortest_1042z00_1589 =
														((long) (BgL_arg1929z00_2751) == 0L);
												}
											else
												{	/* Match/compiler.scm 189 */
													BgL__ortest_1042z00_1589 = ((bool_t) 0);
												}
										}
										if (BgL__ortest_1042z00_1589)
											{	/* Match/compiler.scm 189 */
												return BgL__ortest_1042z00_1589;
											}
										else
											{	/* Match/compiler.scm 190 */
												long BgL_l1z00_2759;

												BgL_l1z00_2759 = STRING_LENGTH(BgL_sz00_1588);
												if ((BgL_l1z00_2759 == 3L))
													{	/* Match/compiler.scm 190 */
														int BgL_arg1929z00_2762;

														{	/* Match/compiler.scm 190 */
															char *BgL_auxz00_4383;
															char *BgL_tmpz00_4381;

															BgL_auxz00_4383 =
																BSTRING_TO_STRING
																(BGl_string2230z00zz__match_compilerz00);
															BgL_tmpz00_4381 =
																BSTRING_TO_STRING(BgL_sz00_1588);
															BgL_arg1929z00_2762 =
																memcmp(BgL_tmpz00_4381, BgL_auxz00_4383,
																BgL_l1z00_2759);
														}
														return ((long) (BgL_arg1929z00_2762) == 0L);
													}
												else
													{	/* Match/compiler.scm 190 */
														return ((bool_t) 0);
													}
											}
									}
								}
							else
								{	/* Match/compiler.scm 187 */
									return ((bool_t) 0);
								}
						}
					else
						{	/* Match/compiler.scm 185 */
							return ((bool_t) 0);
						}
				}
			else
				{	/* Match/compiler.scm 183 */
					return ((bool_t) 0);
				}
		}

	}



/* compile-var */
	obj_t BGl_compilezd2varzd2zz__match_compilerz00(obj_t BgL_nz00_66,
		obj_t BgL_ez00_67, obj_t BgL_rz00_68, obj_t BgL_mz00_69, obj_t BgL_kz00_70,
		obj_t BgL_za7za7_71, obj_t BgL_cz00_72)
	{
		{	/* Match/compiler.scm 215 */
			{	/* Match/compiler.scm 216 */
				bool_t BgL_test2365z00_4388;

				{	/* Match/compiler.scm 455 */
					bool_t BgL_test2366z00_4389;

					{	/* Match/compiler.scm 455 */
						obj_t BgL_tmpz00_4390;

						if (CBOOL(BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_nz00_66,
									BgL_rz00_68)))
							{	/* Match/compiler.scm 438 */
								BgL_tmpz00_4390 =
									CDR(BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_nz00_66,
										BgL_rz00_68));
							}
						else
							{	/* Match/compiler.scm 438 */
								BgL_tmpz00_4390 = BGl_symbol2231z00zz__match_compilerz00;
							}
						BgL_test2366z00_4389 =
							(BgL_tmpz00_4390 == BGl_symbol2231z00zz__match_compilerz00);
					}
					if (BgL_test2366z00_4389)
						{	/* Match/compiler.scm 455 */
							BgL_test2365z00_4388 = ((bool_t) 0);
						}
					else
						{	/* Match/compiler.scm 455 */
							BgL_test2365z00_4388 = ((bool_t) 1);
						}
				}
				if (BgL_test2365z00_4388)
					{	/* Match/compiler.scm 217 */
						obj_t BgL_arg1427z00_1611;
						obj_t BgL_arg1430z00_1612;
						obj_t BgL_arg1431z00_1613;

						{	/* Match/compiler.scm 217 */
							obj_t BgL_arg1432z00_1614;

							{	/* Match/compiler.scm 217 */
								obj_t BgL_arg1433z00_1615;

								BgL_arg1433z00_1615 = MAKE_YOUNG_PAIR(BgL_ez00_67, BNIL);
								BgL_arg1432z00_1614 =
									MAKE_YOUNG_PAIR(BgL_nz00_66, BgL_arg1433z00_1615);
							}
							BgL_arg1427z00_1611 =
								MAKE_YOUNG_PAIR(BGl_symbol2208z00zz__match_compilerz00,
								BgL_arg1432z00_1614);
						}
						{	/* Match/compiler.scm 218 */
							obj_t BgL_arg1434z00_1616;

							{	/* Match/compiler.scm 218 */
								obj_t BgL_arg1435z00_1617;

								{	/* Match/compiler.scm 218 */
									obj_t BgL_list1436z00_1618;

									{	/* Match/compiler.scm 218 */
										obj_t BgL_arg1437z00_1619;

										BgL_arg1437z00_1619 = MAKE_YOUNG_PAIR(BgL_nz00_66, BNIL);
										BgL_list1436z00_1618 =
											MAKE_YOUNG_PAIR(BGl_symbol2169z00zz__match_compilerz00,
											BgL_arg1437z00_1619);
									}
									BgL_arg1435z00_1617 = BgL_list1436z00_1618;
								}
								BgL_arg1434z00_1616 =
									BGl_patternzd2pluszd2zz__match_descriptionsz00(BgL_cz00_72,
									BgL_arg1435z00_1617);
							}
							BgL_arg1430z00_1612 =
								(VA_PROCEDUREP(BgL_kz00_70) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_kz00_70)) (BgL_kz00_70,
									BgL_rz00_68, BgL_za7za7_71, BgL_arg1434z00_1616,
									BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_kz00_70)) (BgL_kz00_70,
									BgL_rz00_68, BgL_za7za7_71, BgL_arg1434z00_1616));
						}
						{	/* Match/compiler.scm 219 */
							obj_t BgL_arg1438z00_1620;

							{	/* Match/compiler.scm 219 */
								obj_t BgL_arg1439z00_1621;

								{	/* Match/compiler.scm 219 */
									obj_t BgL_list1440z00_1622;

									{	/* Match/compiler.scm 219 */
										obj_t BgL_arg1441z00_1623;

										BgL_arg1441z00_1623 = MAKE_YOUNG_PAIR(BgL_nz00_66, BNIL);
										BgL_list1440z00_1622 =
											MAKE_YOUNG_PAIR(BGl_symbol2169z00zz__match_compilerz00,
											BgL_arg1441z00_1623);
									}
									BgL_arg1439z00_1621 = BgL_list1440z00_1622;
								}
								BgL_arg1438z00_1620 =
									BGl_patternzd2minuszd2zz__match_descriptionsz00(BgL_cz00_72,
									BgL_arg1439z00_1621);
							}
							BgL_arg1431z00_1613 =
								(VA_PROCEDUREP(BgL_za7za7_71) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_za7za7_71)) (BgL_za7za7_71,
									BgL_arg1438z00_1620, BEOA) : ((obj_t(*)(obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_za7za7_71)) (BgL_za7za7_71,
									BgL_arg1438z00_1620));
						}
						return
							BGl_buildzd2ifzd2zz__match_compilerz00(BgL_arg1427z00_1611,
							BgL_arg1430z00_1612, BgL_arg1431z00_1613);
					}
				else
					{	/* Match/compiler.scm 220 */
						obj_t BgL_bodyz00_1624;

						{	/* Match/compiler.scm 220 */
							obj_t BgL_arg1449z00_1637;
							obj_t BgL_arg1450z00_1638;

							{	/* Match/compiler.scm 435 */
								obj_t BgL_arg1698z00_2790;
								obj_t BgL_arg1703z00_2791;

								BgL_arg1698z00_2790 = MAKE_YOUNG_PAIR(BgL_nz00_66, BgL_ez00_67);
								BgL_arg1703z00_2791 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_rz00_68,
									BNIL);
								BgL_arg1449z00_1637 =
									MAKE_YOUNG_PAIR(BgL_arg1698z00_2790, BgL_arg1703z00_2791);
							}
							{	/* Match/compiler.scm 221 */
								obj_t BgL_arg1451z00_1639;

								{	/* Match/compiler.scm 221 */
									obj_t BgL_list1452z00_1640;

									{	/* Match/compiler.scm 221 */
										obj_t BgL_arg1453z00_1641;

										BgL_arg1453z00_1641 = MAKE_YOUNG_PAIR(BgL_nz00_66, BNIL);
										BgL_list1452z00_1640 =
											MAKE_YOUNG_PAIR(BGl_symbol2169z00zz__match_compilerz00,
											BgL_arg1453z00_1641);
									}
									BgL_arg1451z00_1639 = BgL_list1452z00_1640;
								}
								BgL_arg1450z00_1638 =
									BGl_patternzd2pluszd2zz__match_descriptionsz00(BgL_cz00_72,
									BgL_arg1451z00_1639);
							}
							BgL_bodyz00_1624 =
								(VA_PROCEDUREP(BgL_kz00_70) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_kz00_70)) (BgL_kz00_70,
									BgL_arg1449z00_1637, BgL_za7za7_71, BgL_arg1450z00_1638,
									BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_kz00_70)) (BgL_kz00_70,
									BgL_arg1449z00_1637, BgL_za7za7_71, BgL_arg1450z00_1638));
						}
						{	/* Match/compiler.scm 222 */
							bool_t BgL_test2368z00_4429;

							{	/* Match/compiler.scm 222 */
								obj_t BgL_a1090z00_1634;

								BgL_a1090z00_1634 =
									BGl_countzd2occurrenceszd2zz__match_compilerz00(BgL_nz00_66,
									BgL_bodyz00_1624, 0L);
								{	/* Match/compiler.scm 222 */

									if (INTEGERP(BgL_a1090z00_1634))
										{	/* Match/compiler.scm 222 */
											BgL_test2368z00_4429 =
												((long) CINT(BgL_a1090z00_1634) > 1L);
										}
									else
										{	/* Match/compiler.scm 222 */
											BgL_test2368z00_4429 =
												BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1090z00_1634,
												BINT(1L));
										}
								}
							}
							if (BgL_test2368z00_4429)
								{	/* Match/compiler.scm 223 */
									obj_t BgL_arg1444z00_1629;

									{	/* Match/compiler.scm 223 */
										obj_t BgL_arg1445z00_1630;
										obj_t BgL_arg1446z00_1631;

										{	/* Match/compiler.scm 223 */
											obj_t BgL_arg1447z00_1632;

											{	/* Match/compiler.scm 223 */
												obj_t BgL_arg1448z00_1633;

												BgL_arg1448z00_1633 =
													MAKE_YOUNG_PAIR(BgL_ez00_67, BNIL);
												BgL_arg1447z00_1632 =
													MAKE_YOUNG_PAIR(BgL_nz00_66, BgL_arg1448z00_1633);
											}
											BgL_arg1445z00_1630 =
												MAKE_YOUNG_PAIR(BgL_arg1447z00_1632, BNIL);
										}
										BgL_arg1446z00_1631 =
											MAKE_YOUNG_PAIR(BgL_bodyz00_1624, BNIL);
										BgL_arg1444z00_1629 =
											MAKE_YOUNG_PAIR(BgL_arg1445z00_1630, BgL_arg1446z00_1631);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2233z00zz__match_compilerz00,
										BgL_arg1444z00_1629);
								}
							else
								{	/* Match/compiler.scm 222 */
									return
										BGl_unfoldz00zz__match_compilerz00(BgL_nz00_66, BgL_ez00_67,
										BgL_bodyz00_1624);
								}
						}
					}
			}
		}

	}



/* count-occurrences */
	obj_t BGl_countzd2occurrenceszd2zz__match_compilerz00(obj_t BgL_sz00_73,
		obj_t BgL_ez00_74, long BgL_accz00_75)
	{
		{	/* Match/compiler.scm 227 */
			if (NULLP(BgL_ez00_74))
				{	/* Match/compiler.scm 228 */
					return BINT(BgL_accz00_75);
				}
			else
				{	/* Match/compiler.scm 228 */
					if (CBOOL(BGl_atomzf3zf3zz__match_s2cfunz00(BgL_ez00_74)))
						{	/* Match/compiler.scm 230 */
							if ((BgL_sz00_73 == BgL_ez00_74))
								{	/* Match/compiler.scm 231 */
									return BINT((BgL_accz00_75 + 1L));
								}
							else
								{	/* Match/compiler.scm 231 */
									return BINT(BgL_accz00_75);
								}
						}
					else
						{	/* Match/compiler.scm 230 */
							if (PAIRP(BgL_ez00_74))
								{	/* Match/compiler.scm 234 */
									if (
										(CAR(BgL_ez00_74) ==
											BGl_symbol2167z00zz__match_compilerz00))
										{	/* Match/compiler.scm 235 */
											return BINT(BgL_accz00_75);
										}
									else
										{	/* Match/compiler.scm 237 */
											obj_t BgL_a1092z00_1647;

											BgL_a1092z00_1647 =
												BGl_countzd2occurrenceszd2zz__match_compilerz00
												(BgL_sz00_73, CAR(BgL_ez00_74), BgL_accz00_75);
											{	/* Match/compiler.scm 238 */
												obj_t BgL_b1093z00_1648;

												BgL_b1093z00_1648 =
													BGl_countzd2occurrenceszd2zz__match_compilerz00
													(BgL_sz00_73, CDR(BgL_ez00_74), BgL_accz00_75);
												{	/* Match/compiler.scm 237 */

													{	/* Match/compiler.scm 237 */
														bool_t BgL_test2375z00_4465;

														if (INTEGERP(BgL_a1092z00_1647))
															{	/* Match/compiler.scm 237 */
																BgL_test2375z00_4465 =
																	INTEGERP(BgL_b1093z00_1648);
															}
														else
															{	/* Match/compiler.scm 237 */
																BgL_test2375z00_4465 = ((bool_t) 0);
															}
														if (BgL_test2375z00_4465)
															{	/* Match/compiler.scm 237 */
																return
																	ADDFX(BgL_a1092z00_1647, BgL_b1093z00_1648);
															}
														else
															{	/* Match/compiler.scm 237 */
																return
																	BGl_2zb2zb2zz__r4_numbers_6_5z00
																	(BgL_a1092z00_1647, BgL_b1093z00_1648);
															}
													}
												}
											}
										}
								}
							else
								{	/* Match/compiler.scm 234 */
									return BFALSE;
								}
						}
				}
		}

	}



/* succes-cons */
	obj_t BGl_succeszd2conszd2zz__match_compilerz00(obj_t BgL_f1z00_85,
		obj_t BgL_f2z00_86, obj_t BgL_ez00_87, obj_t BgL_rz00_88, obj_t BgL_mz00_89,
		obj_t BgL_kz00_90, obj_t BgL_za7za7_91, obj_t BgL_cz00_92)
	{
		{	/* Match/compiler.scm 256 */
			{	/* Match/compiler.scm 257 */
				obj_t BgL_za2carza2z00_1667;

				BgL_za2carza2z00_1667 =
					(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
					? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
					(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2235z00zz__match_compilerz00, BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
					(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
						BGl_string2235z00zz__match_compilerz00));
				{	/* Match/compiler.scm 257 */
					obj_t BgL_za2cdrza2z00_1668;

					BgL_za2cdrza2z00_1668 =
						(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
						? ((obj_t(*)(obj_t,
									...))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2236z00zz__match_compilerz00, BEOA) : ((obj_t(*)(obj_t,
									obj_t))
							PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
						(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
							BGl_string2236z00zz__match_compilerz00));
					{	/* Match/compiler.scm 258 */
						obj_t BgL_bodyz00_1669;

						{	/* Match/compiler.scm 261 */
							obj_t BgL_arg1482z00_1672;

							BgL_arg1482z00_1672 =
								BGl_patternzd2carzd2zz__match_descriptionsz00(BgL_cz00_92);
							{	/* Match/compiler.scm 263 */
								obj_t BgL_zc3z04anonymousza31500ze3z87_3498;
								obj_t BgL_zc3z04anonymousza31483ze3z87_3501;

								BgL_zc3z04anonymousza31500ze3z87_3498 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31500ze3ze5zz__match_compilerz00,
									(int) (1L), (int) (2L));
								BgL_zc3z04anonymousza31483ze3z87_3501 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza31483ze3ze5zz__match_compilerz00,
									(int) (3L), (int) (6L));
								PROCEDURE_SET(BgL_zc3z04anonymousza31500ze3z87_3498, (int) (0L),
									BgL_cz00_92);
								PROCEDURE_SET(BgL_zc3z04anonymousza31500ze3z87_3498, (int) (1L),
									BgL_za7za7_91);
								PROCEDURE_SET(BgL_zc3z04anonymousza31483ze3z87_3501, (int) (0L),
									BgL_cz00_92);
								PROCEDURE_SET(BgL_zc3z04anonymousza31483ze3z87_3501, (int) (1L),
									BgL_kz00_90);
								PROCEDURE_SET(BgL_zc3z04anonymousza31483ze3z87_3501, (int) (2L),
									BgL_za7za7_91);
								PROCEDURE_SET(BgL_zc3z04anonymousza31483ze3z87_3501, (int) (3L),
									BgL_f2z00_86);
								PROCEDURE_SET(BgL_zc3z04anonymousza31483ze3z87_3501, (int) (4L),
									BgL_za2cdrza2z00_1668);
								PROCEDURE_SET(BgL_zc3z04anonymousza31483ze3z87_3501, (int) (5L),
									BgL_mz00_89);
								BgL_bodyz00_1669 =
									BGl_compilez00zz__match_compilerz00(BgL_f1z00_85,
									BgL_za2carza2z00_1667, BgL_rz00_88, BgL_mz00_89,
									BgL_zc3z04anonymousza31483ze3z87_3501,
									BgL_zc3z04anonymousza31500ze3z87_3498, BgL_arg1482z00_1672);
						}}
						{	/* Match/compiler.scm 259 */

							return
								BGl_buildzd2letzd2zz__match_compilerz00(BgL_za2carza2z00_1667,
								BgL_za2cdrza2z00_1668, BgL_ez00_87, BgL_bodyz00_1669);
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1500> */
	obj_t BGl_z62zc3z04anonymousza31500ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3502, obj_t BgL_c2z00_3505)
	{
		{	/* Match/compiler.scm 267 */
			{	/* Match/compiler.scm 267 */
				obj_t BgL_cz00_3503;
				obj_t BgL_za7za7_3504;

				BgL_cz00_3503 = PROCEDURE_REF(BgL_envz00_3502, (int) (0L));
				BgL_za7za7_3504 = PROCEDURE_REF(BgL_envz00_3502, (int) (1L));
				{	/* Match/compiler.scm 267 */
					obj_t BgL_arg1501z00_3648;

					{	/* Match/compiler.scm 267 */
						obj_t BgL_arg1502z00_3649;

						BgL_arg1502z00_3649 =
							BGl_patternzd2cdrzd2zz__match_descriptionsz00(BgL_cz00_3503);
						{	/* Match/compiler.scm 267 */
							obj_t BgL_list1503z00_3650;

							{	/* Match/compiler.scm 267 */
								obj_t BgL_arg1504z00_3651;

								{	/* Match/compiler.scm 267 */
									obj_t BgL_arg1505z00_3652;

									BgL_arg1505z00_3652 =
										MAKE_YOUNG_PAIR(BgL_arg1502z00_3649, BNIL);
									BgL_arg1504z00_3651 =
										MAKE_YOUNG_PAIR(BgL_c2z00_3505, BgL_arg1505z00_3652);
								}
								BgL_list1503z00_3650 =
									MAKE_YOUNG_PAIR(BGl_symbol2179z00zz__match_compilerz00,
									BgL_arg1504z00_3651);
							}
							BgL_arg1501z00_3648 = BgL_list1503z00_3650;
					}}
					return
						(VA_PROCEDUREP(BgL_za7za7_3504) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_za7za7_3504)) (BgL_za7za7_3504,
							BgL_arg1501z00_3648, BEOA) : ((obj_t(*)(obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_za7za7_3504)) (BgL_za7za7_3504,
							BgL_arg1501z00_3648));
				}
			}
		}

	}



/* &<@anonymous:1483> */
	obj_t BGl_z62zc3z04anonymousza31483ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3506, obj_t BgL_r2z00_3513, obj_t BgL_za72za7_3514,
		obj_t BgL_c2z00_3515)
	{
		{	/* Match/compiler.scm 261 */
			{	/* Match/compiler.scm 263 */
				obj_t BgL_cz00_3507;
				obj_t BgL_kz00_3508;
				obj_t BgL_za7za7_3509;
				obj_t BgL_f2z00_3510;
				obj_t BgL_za2cdrza2z00_3511;
				obj_t BgL_mz00_3512;

				BgL_cz00_3507 = PROCEDURE_REF(BgL_envz00_3506, (int) (0L));
				BgL_kz00_3508 = PROCEDURE_REF(BgL_envz00_3506, (int) (1L));
				BgL_za7za7_3509 = PROCEDURE_REF(BgL_envz00_3506, (int) (2L));
				BgL_f2z00_3510 = PROCEDURE_REF(BgL_envz00_3506, (int) (3L));
				BgL_za2cdrza2z00_3511 = PROCEDURE_REF(BgL_envz00_3506, (int) (4L));
				BgL_mz00_3512 = PROCEDURE_REF(BgL_envz00_3506, (int) (5L));
				{	/* Match/compiler.scm 263 */
					obj_t BgL_arg1488z00_3653;

					BgL_arg1488z00_3653 =
						BGl_patternzd2cdrzd2zz__match_descriptionsz00(BgL_cz00_3507);
					{	/* Match/compiler.scm 264 */
						obj_t BgL_zc3z04anonymousza31489ze3z87_3654;
						obj_t BgL_zc3z04anonymousza31495ze3z87_3655;

						BgL_zc3z04anonymousza31489ze3z87_3654 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31489ze3ze5zz__match_compilerz00,
							(int) (3L), (int) (2L));
						BgL_zc3z04anonymousza31495ze3z87_3655 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31495ze3ze5zz__match_compilerz00,
							(int) (1L), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31489ze3z87_3654, (int) (0L),
							BgL_c2z00_3515);
						PROCEDURE_SET(BgL_zc3z04anonymousza31489ze3z87_3654, (int) (1L),
							BgL_kz00_3508);
						PROCEDURE_SET(BgL_zc3z04anonymousza31495ze3z87_3655, (int) (0L),
							BgL_c2z00_3515);
						PROCEDURE_SET(BgL_zc3z04anonymousza31495ze3z87_3655, (int) (1L),
							BgL_za7za7_3509);
						return BGl_compilez00zz__match_compilerz00(BgL_f2z00_3510,
							BgL_za2cdrza2z00_3511, BgL_r2z00_3513, BgL_mz00_3512,
							BgL_zc3z04anonymousza31489ze3z87_3654,
							BgL_zc3z04anonymousza31495ze3z87_3655, BgL_arg1488z00_3653);
					}
				}
			}
		}

	}



/* &<@anonymous:1495> */
	obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3516, obj_t BgL_c3z00_3519)
	{
		{	/* Match/compiler.scm 265 */
			{	/* Match/compiler.scm 265 */
				obj_t BgL_c2z00_3517;
				obj_t BgL_za7za7_3518;

				BgL_c2z00_3517 = PROCEDURE_REF(BgL_envz00_3516, (int) (0L));
				BgL_za7za7_3518 = PROCEDURE_REF(BgL_envz00_3516, (int) (1L));
				{	/* Match/compiler.scm 265 */
					obj_t BgL_arg1496z00_3656;

					{	/* Match/compiler.scm 265 */
						obj_t BgL_list1497z00_3657;

						{	/* Match/compiler.scm 265 */
							obj_t BgL_arg1498z00_3658;

							{	/* Match/compiler.scm 265 */
								obj_t BgL_arg1499z00_3659;

								BgL_arg1499z00_3659 = MAKE_YOUNG_PAIR(BgL_c3z00_3519, BNIL);
								BgL_arg1498z00_3658 =
									MAKE_YOUNG_PAIR(BgL_c2z00_3517, BgL_arg1499z00_3659);
							}
							BgL_list1497z00_3657 =
								MAKE_YOUNG_PAIR(BGl_symbol2179z00zz__match_compilerz00,
								BgL_arg1498z00_3658);
						}
						BgL_arg1496z00_3656 = BgL_list1497z00_3657;
					}
					return
						(VA_PROCEDUREP(BgL_za7za7_3518) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_za7za7_3518)) (BgL_za7za7_3518,
							BgL_arg1496z00_3656, BEOA) : ((obj_t(*)(obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_za7za7_3518)) (BgL_za7za7_3518,
							BgL_arg1496z00_3656));
				}
			}
		}

	}



/* &<@anonymous:1489> */
	obj_t BGl_z62zc3z04anonymousza31489ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3520, obj_t BgL_r3z00_3523, obj_t BgL_za73za7_3524,
		obj_t BgL_c3z00_3525)
	{
		{	/* Match/compiler.scm 263 */
			{	/* Match/compiler.scm 264 */
				obj_t BgL_c2z00_3521;
				obj_t BgL_kz00_3522;

				BgL_c2z00_3521 = PROCEDURE_REF(BgL_envz00_3520, (int) (0L));
				BgL_kz00_3522 = PROCEDURE_REF(BgL_envz00_3520, (int) (1L));
				{	/* Match/compiler.scm 264 */
					obj_t BgL_arg1491z00_3660;

					{	/* Match/compiler.scm 264 */
						obj_t BgL_list1492z00_3661;

						{	/* Match/compiler.scm 264 */
							obj_t BgL_arg1493z00_3662;

							{	/* Match/compiler.scm 264 */
								obj_t BgL_arg1494z00_3663;

								BgL_arg1494z00_3663 = MAKE_YOUNG_PAIR(BgL_c3z00_3525, BNIL);
								BgL_arg1493z00_3662 =
									MAKE_YOUNG_PAIR(BgL_c2z00_3521, BgL_arg1494z00_3663);
							}
							BgL_list1492z00_3661 =
								MAKE_YOUNG_PAIR(BGl_symbol2179z00zz__match_compilerz00,
								BgL_arg1493z00_3662);
						}
						BgL_arg1491z00_3660 = BgL_list1492z00_3661;
					}
					return
						(VA_PROCEDUREP(BgL_kz00_3522) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_kz00_3522)) (BgL_kz00_3522,
							BgL_r3z00_3523, BgL_za73za7_3524, BgL_arg1491z00_3660,
							BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_kz00_3522)) (BgL_kz00_3522,
							BgL_r3z00_3523, BgL_za73za7_3524, BgL_arg1491z00_3660));
				}
			}
		}

	}



/* compile-times */
	obj_t BGl_compilezd2timeszd2zz__match_compilerz00(obj_t BgL_nz00_93,
		obj_t BgL_f1z00_94, obj_t BgL_f2z00_95, obj_t BgL_ez00_96,
		obj_t BgL_rz00_97, obj_t BgL_mz00_98, obj_t BgL_k0z00_99,
		obj_t BgL_za70za7_100, obj_t BgL_d0z00_101)
	{
		{	/* Match/compiler.scm 284 */
			{	/* Match/compiler.scm 286 */
				obj_t BgL_fzd2envzd2_3576;
				obj_t BgL_dzd2envzd2_3577;

				BgL_fzd2envzd2_3576 = MAKE_CELL(BNIL);
				BgL_dzd2envzd2_3577 = MAKE_CELL(BNIL);
				{	/* Match/compiler.scm 290 */
					obj_t BgL_instanciatezd2tryzd2_3528;

					BgL_instanciatezd2tryzd2_3528 =
						MAKE_FX_PROCEDURE(BGl_z62instanciatezd2tryzb0zz__match_compilerz00,
						(int) (5L), (int) (5L));
					PROCEDURE_SET(BgL_instanciatezd2tryzd2_3528,
						(int) (0L), ((obj_t) BgL_dzd2envzd2_3577));
					PROCEDURE_SET(BgL_instanciatezd2tryzd2_3528, (int) (1L), BgL_nz00_93);
					PROCEDURE_SET(BgL_instanciatezd2tryzd2_3528,
						(int) (2L), BgL_f1z00_94);
					PROCEDURE_SET(BgL_instanciatezd2tryzd2_3528,
						(int) (3L), BgL_f2z00_95);
					PROCEDURE_SET(BgL_instanciatezd2tryzd2_3528,
						(int) (4L), ((obj_t) BgL_fzd2envzd2_3576));
					{	/* Match/compiler.scm 313 */
						obj_t BgL_reszd2bodyzd2_1708;

						{	/* Match/compiler.scm 315 */
							obj_t BgL_zc3z04anonymousza31525ze3z87_3526;
							obj_t BgL_zc3z04anonymousza31524ze3z87_3527;

							BgL_zc3z04anonymousza31525ze3z87_3526 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31525ze3ze5zz__match_compilerz00,
								(int) (1L), (int) (2L));
							BgL_zc3z04anonymousza31524ze3z87_3527 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31524ze3ze5zz__match_compilerz00,
								(int) (3L), (int) (2L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31525ze3z87_3526, (int) (0L),
								BgL_za70za7_100);
							PROCEDURE_SET(BgL_zc3z04anonymousza31525ze3z87_3526, (int) (1L),
								BgL_d0z00_101);
							PROCEDURE_SET(BgL_zc3z04anonymousza31524ze3z87_3527, (int) (0L),
								BgL_k0z00_99);
							PROCEDURE_SET(BgL_zc3z04anonymousza31524ze3z87_3527, (int) (1L),
								BgL_d0z00_101);
							BgL_reszd2bodyzd2_1708 =
								BGl_z62instanciatezd2tryzb0zz__match_compilerz00
								(BgL_instanciatezd2tryzd2_3528, BgL_rz00_97, BgL_mz00_98,
								BgL_zc3z04anonymousza31524ze3z87_3527,
								BgL_zc3z04anonymousza31525ze3z87_3526, BgL_d0z00_101);
						}
						{	/* Match/compiler.scm 318 */
							obj_t BgL_arg1506z00_1709;

							{	/* Match/compiler.scm 318 */
								obj_t BgL_arg1507z00_1710;
								obj_t BgL_arg1508z00_1711;

								{	/* Match/compiler.scm 318 */
									obj_t BgL_l1094z00_1712;

									BgL_l1094z00_1712 = CELL_REF(BgL_fzd2envzd2_3576);
									if (NULLP(BgL_l1094z00_1712))
										{	/* Match/compiler.scm 318 */
											BgL_arg1507z00_1710 = BNIL;
										}
									else
										{	/* Match/compiler.scm 318 */
											obj_t BgL_head1096z00_1714;

											{	/* Match/compiler.scm 318 */
												obj_t BgL_arg1518z00_1726;

												{	/* Match/compiler.scm 463 */
													obj_t BgL_pairz00_2859;

													{	/* Match/compiler.scm 463 */
														obj_t BgL_pairz00_2851;

														BgL_pairz00_2851 = CAR(((obj_t) BgL_l1094z00_1712));
														BgL_pairz00_2859 =
															CAR(CDR(CAR(CDR(BgL_pairz00_2851))));
													}
													BgL_arg1518z00_1726 = CAR(BgL_pairz00_2859);
												}
												BgL_head1096z00_1714 =
													MAKE_YOUNG_PAIR(BgL_arg1518z00_1726, BNIL);
											}
											{	/* Match/compiler.scm 318 */
												obj_t BgL_g1099z00_1715;

												BgL_g1099z00_1715 = CDR(((obj_t) BgL_l1094z00_1712));
												{
													obj_t BgL_l1094z00_2898;
													obj_t BgL_tail1097z00_2899;

													BgL_l1094z00_2898 = BgL_g1099z00_1715;
													BgL_tail1097z00_2899 = BgL_head1096z00_1714;
												BgL_zc3z04anonymousza31510ze3z87_2897:
													if (NULLP(BgL_l1094z00_2898))
														{	/* Match/compiler.scm 318 */
															BgL_arg1507z00_1710 = BgL_head1096z00_1714;
														}
													else
														{	/* Match/compiler.scm 318 */
															obj_t BgL_newtail1098z00_2906;

															{	/* Match/compiler.scm 318 */
																obj_t BgL_arg1515z00_2907;

																{	/* Match/compiler.scm 463 */
																	obj_t BgL_pairz00_2920;

																	{	/* Match/compiler.scm 463 */
																		obj_t BgL_pairz00_2912;

																		BgL_pairz00_2912 =
																			CAR(((obj_t) BgL_l1094z00_2898));
																		BgL_pairz00_2920 =
																			CAR(CDR(CAR(CDR(BgL_pairz00_2912))));
																	}
																	BgL_arg1515z00_2907 = CAR(BgL_pairz00_2920);
																}
																BgL_newtail1098z00_2906 =
																	MAKE_YOUNG_PAIR(BgL_arg1515z00_2907, BNIL);
															}
															SET_CDR(BgL_tail1097z00_2899,
																BgL_newtail1098z00_2906);
															{	/* Match/compiler.scm 318 */
																obj_t BgL_arg1512z00_2909;

																BgL_arg1512z00_2909 =
																	CDR(((obj_t) BgL_l1094z00_2898));
																{
																	obj_t BgL_tail1097z00_4624;
																	obj_t BgL_l1094z00_4623;

																	BgL_l1094z00_4623 = BgL_arg1512z00_2909;
																	BgL_tail1097z00_4624 =
																		BgL_newtail1098z00_2906;
																	BgL_tail1097z00_2899 = BgL_tail1097z00_4624;
																	BgL_l1094z00_2898 = BgL_l1094z00_4623;
																	goto BgL_zc3z04anonymousza31510ze3z87_2897;
																}
															}
														}
												}
											}
										}
								}
								{	/* Match/compiler.scm 318 */
									obj_t BgL_arg1520z00_1728;

									{	/* Match/compiler.scm 318 */
										obj_t BgL_arg1521z00_1729;

										BgL_arg1521z00_1729 = MAKE_YOUNG_PAIR(BgL_ez00_96, BNIL);
										BgL_arg1520z00_1728 =
											MAKE_YOUNG_PAIR(BgL_reszd2bodyzd2_1708,
											BgL_arg1521z00_1729);
									}
									BgL_arg1508z00_1711 =
										MAKE_YOUNG_PAIR(BgL_arg1520z00_1728, BNIL);
								}
								BgL_arg1506z00_1709 =
									MAKE_YOUNG_PAIR(BgL_arg1507z00_1710, BgL_arg1508z00_1711);
							}
							return
								MAKE_YOUNG_PAIR(BGl_symbol2237z00zz__match_compilerz00,
								BgL_arg1506z00_1709);
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1525> */
	obj_t BGl_z62zc3z04anonymousza31525ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3531, obj_t BgL_dz00_3534)
	{
		{	/* Match/compiler.scm 316 */
			{	/* Match/compiler.scm 316 */
				obj_t BgL_za70za7_3532;
				obj_t BgL_d0z00_3533;

				BgL_za70za7_3532 = PROCEDURE_REF(BgL_envz00_3531, (int) (0L));
				BgL_d0z00_3533 = PROCEDURE_REF(BgL_envz00_3531, (int) (1L));
				return
					(VA_PROCEDUREP(BgL_za70za7_3532) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_za70za7_3532)) (BgL_za70za7_3532,
						BgL_d0z00_3533, BEOA) : ((obj_t(*)(obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_za70za7_3532)) (BgL_za70za7_3532,
						BgL_d0z00_3533));
			}
		}

	}



/* &<@anonymous:1524> */
	obj_t BGl_z62zc3z04anonymousza31524ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3535, obj_t BgL_rz00_3538, obj_t BgL_za7za7_3539,
		obj_t BgL_dz00_3540)
	{
		{	/* Match/compiler.scm 315 */
			{	/* Match/compiler.scm 315 */
				obj_t BgL_k0z00_3536;
				obj_t BgL_d0z00_3537;

				BgL_k0z00_3536 = PROCEDURE_REF(BgL_envz00_3535, (int) (0L));
				BgL_d0z00_3537 = PROCEDURE_REF(BgL_envz00_3535, (int) (1L));
				return
					(VA_PROCEDUREP(BgL_k0z00_3536) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_k0z00_3536)) (BgL_k0z00_3536,
						BgL_rz00_3538, BgL_za7za7_3539, BgL_d0z00_3537,
						BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_k0z00_3536)) (BgL_k0z00_3536,
						BgL_rz00_3538, BgL_za7za7_3539, BgL_d0z00_3537));
			}
		}

	}



/* &<@anonymous:1551> */
	obj_t BGl_z62zc3z04anonymousza31551ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3541, obj_t BgL_d2z00_3553)
	{
		{	/* Match/compiler.scm 302 */
			{	/* Match/compiler.scm 304 */
				obj_t BgL_dzd2envzd2_3542;
				obj_t BgL_f2z00_3543;
				obj_t BgL_fzd2envzd2_3544;
				obj_t BgL_mz00_3545;
				obj_t BgL_instanciatezd2tryzd2_3546;
				obj_t BgL_nz00_3547;
				obj_t BgL_f1z00_3548;
				obj_t BgL_gz00_3549;
				obj_t BgL_rz00_3550;
				obj_t BgL_kz00_3551;
				obj_t BgL_za7za7_3552;

				BgL_dzd2envzd2_3542 = PROCEDURE_REF(BgL_envz00_3541, (int) (0L));
				BgL_f2z00_3543 = PROCEDURE_REF(BgL_envz00_3541, (int) (1L));
				BgL_fzd2envzd2_3544 = PROCEDURE_REF(BgL_envz00_3541, (int) (2L));
				BgL_mz00_3545 = PROCEDURE_REF(BgL_envz00_3541, (int) (3L));
				BgL_instanciatezd2tryzd2_3546 =
					PROCEDURE_REF(BgL_envz00_3541, (int) (4L));
				BgL_nz00_3547 = PROCEDURE_REF(BgL_envz00_3541, (int) (5L));
				BgL_f1z00_3548 = PROCEDURE_REF(BgL_envz00_3541, (int) (6L));
				BgL_gz00_3549 = PROCEDURE_REF(BgL_envz00_3541, (int) (7L));
				BgL_rz00_3550 = PROCEDURE_REF(BgL_envz00_3541, (int) (8L));
				BgL_kz00_3551 = PROCEDURE_REF(BgL_envz00_3541, (int) (9L));
				BgL_za7za7_3552 = PROCEDURE_REF(BgL_envz00_3541, (int) (10L));
				{	/* Match/compiler.scm 304 */
					obj_t BgL_arg1552z00_3664;

					{	/* Match/compiler.scm 467 */
						obj_t BgL_zc3z04anonymousza31718ze3z87_3665;

						BgL_zc3z04anonymousza31718ze3z87_3665 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31718ze3ze5zz__match_compilerz00,
							(int) (1L), (int) (7L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (0L),
							BgL_dzd2envzd2_3542);
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (1L),
							BgL_f1z00_3548);
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (2L),
							BgL_f2z00_3543);
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (3L),
							BgL_fzd2envzd2_3544);
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (4L),
							BgL_mz00_3545);
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (5L),
							BgL_instanciatezd2tryzd2_3546);
						PROCEDURE_SET(BgL_zc3z04anonymousza31718ze3z87_3665, (int) (6L),
							BgL_nz00_3547);
						BgL_arg1552z00_3664 = BgL_zc3z04anonymousza31718ze3z87_3665;
					}
					return
						BGl_compilez00zz__match_compilerz00(BgL_f1z00_3548, BgL_gz00_3549,
						BgL_rz00_3550, BgL_arg1552z00_3664, BgL_kz00_3551, BgL_za7za7_3552,
						BgL_d2z00_3553);
				}
			}
		}

	}



/* &<@anonymous:1718> */
	obj_t BGl_z62zc3z04anonymousza31718ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3554, obj_t BgL_xz00_3562)
	{
		{	/* Match/compiler.scm 467 */
			{	/* Match/compiler.scm 468 */
				obj_t BgL_mz00_3559;
				obj_t BgL_instanciatezd2tryzd2_3560;
				obj_t BgL_nz00_3561;

				BgL_mz00_3559 = PROCEDURE_REF(BgL_envz00_3554, (int) (4L));
				BgL_instanciatezd2tryzd2_3560 =
					PROCEDURE_REF(BgL_envz00_3554, (int) (5L));
				BgL_nz00_3561 = PROCEDURE_REF(BgL_envz00_3554, (int) (6L));
				if ((BgL_xz00_3562 == BgL_nz00_3561))
					{	/* Match/compiler.scm 468 */
						return BgL_instanciatezd2tryzd2_3560;
					}
				else
					{	/* Match/compiler.scm 468 */
						return
							(VA_PROCEDUREP(BgL_mz00_3559) ? ((obj_t(*)(obj_t,
										...)) PROCEDURE_ENTRY(BgL_mz00_3559)) (BgL_mz00_3559,
								BgL_xz00_3562, BEOA) : ((obj_t(*)(obj_t,
										obj_t)) PROCEDURE_ENTRY(BgL_mz00_3559)) (BgL_mz00_3559,
								BgL_xz00_3562));
					}
			}
		}

	}



/* &instanciate-try */
	obj_t BGl_z62instanciatezd2tryzb0zz__match_compilerz00(obj_t BgL_envz00_3563,
		obj_t BgL_rz00_3569, obj_t BgL_mz00_3570, obj_t BgL_kz00_3571,
		obj_t BgL_za7za7_3572, obj_t BgL_dz00_3573)
	{
		{	/* Match/compiler.scm 289 */
			{	/* Match/compiler.scm 290 */
				obj_t BgL_dzd2envzd2_3564;
				obj_t BgL_nz00_3565;
				obj_t BgL_f1z00_3566;
				obj_t BgL_f2z00_3567;
				obj_t BgL_fzd2envzd2_3568;

				BgL_dzd2envzd2_3564 = PROCEDURE_REF(BgL_envz00_3563, (int) (0L));
				BgL_nz00_3565 = PROCEDURE_REF(BgL_envz00_3563, (int) (1L));
				BgL_f1z00_3566 = PROCEDURE_REF(BgL_envz00_3563, (int) (2L));
				BgL_f2z00_3567 = PROCEDURE_REF(BgL_envz00_3563, (int) (3L));
				BgL_fzd2envzd2_3568 = PROCEDURE_REF(BgL_envz00_3563, (int) (4L));
				{	/* Match/compiler.scm 290 */
					obj_t BgL_tmpz00_3666;

					{
						obj_t BgL_dzd2envzd2_3668;

						BgL_dzd2envzd2_3668 = CELL_REF(BgL_dzd2envzd2_3564);
					BgL_lookzd2forzd2descrz00_3667:
						if (NULLP(BgL_dzd2envzd2_3668))
							{	/* Match/compiler.scm 416 */
								BgL_tmpz00_3666 = BFALSE;
							}
						else
							{	/* Match/compiler.scm 418 */
								bool_t BgL_test2381z00_4712;

								{	/* Match/compiler.scm 418 */
									obj_t BgL_auxz00_4713;

									{	/* Match/compiler.scm 418 */
										obj_t BgL_pairz00_3669;

										BgL_pairz00_3669 = CAR(((obj_t) BgL_dzd2envzd2_3668));
										BgL_auxz00_4713 = CAR(BgL_pairz00_3669);
									}
									BgL_test2381z00_4712 =
										BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_4713,
										BgL_dz00_3573);
								}
								if (BgL_test2381z00_4712)
									{	/* Match/compiler.scm 418 */
										BgL_tmpz00_3666 = CAR(((obj_t) BgL_dzd2envzd2_3668));
									}
								else
									{	/* Match/compiler.scm 420 */
										obj_t BgL_arg1695z00_3670;

										BgL_arg1695z00_3670 = CDR(((obj_t) BgL_dzd2envzd2_3668));
										{
											obj_t BgL_dzd2envzd2_4722;

											BgL_dzd2envzd2_4722 = BgL_arg1695z00_3670;
											BgL_dzd2envzd2_3668 = BgL_dzd2envzd2_4722;
											goto BgL_lookzd2forzd2descrz00_3667;
										}
									}
							}
					}
					if (CBOOL(BgL_tmpz00_3666))
						{	/* Match/compiler.scm 292 */
							obj_t BgL_pairz00_3671;

							BgL_pairz00_3671 = CDR(((obj_t) BgL_tmpz00_3666));
							return CAR(BgL_pairz00_3671);
						}
					else
						{	/* Match/compiler.scm 293 */
							obj_t BgL_gz00_3672;
							obj_t BgL_tryz00_3673;

							BgL_gz00_3672 =
								(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
								? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
								(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
									BGl_string2239z00zz__match_compilerz00,
									BEOA) : ((obj_t(*)(obj_t,
											obj_t))
									PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
								(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
									BGl_string2239z00zz__match_compilerz00));
							BgL_tryz00_3673 =
								(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
								? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
								(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
									BGl_string2240z00zz__match_compilerz00,
									BEOA) : ((obj_t(*)(obj_t,
											obj_t))
									PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
								(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
									BGl_string2240z00zz__match_compilerz00));
							{	/* Match/compiler.scm 295 */
								obj_t BgL_auxz00_3674;

								{	/* Match/compiler.scm 295 */
									obj_t BgL_arg1528z00_3675;

									{	/* Match/compiler.scm 295 */
										obj_t BgL_list1529z00_3676;

										{	/* Match/compiler.scm 295 */
											obj_t BgL_arg1531z00_3677;

											BgL_arg1531z00_3677 =
												MAKE_YOUNG_PAIR(BgL_tryz00_3673, BNIL);
											BgL_list1529z00_3676 =
												MAKE_YOUNG_PAIR(BgL_dz00_3573, BgL_arg1531z00_3677);
										}
										BgL_arg1528z00_3675 = BgL_list1529z00_3676;
									}
									BgL_auxz00_3674 =
										MAKE_YOUNG_PAIR(BgL_arg1528z00_3675,
										CELL_REF(BgL_dzd2envzd2_3564));
								}
								CELL_SET(BgL_dzd2envzd2_3564, BgL_auxz00_3674);
							}
							{	/* Match/compiler.scm 296 */
								obj_t BgL_newzd2defzd2_3678;

								{	/* Match/compiler.scm 299 */
									obj_t BgL_arg1532z00_3679;

									{	/* Match/compiler.scm 299 */
										obj_t BgL_arg1535z00_3680;

										{	/* Match/compiler.scm 299 */
											obj_t BgL_arg1536z00_3681;

											{	/* Match/compiler.scm 299 */
												obj_t BgL_arg1541z00_3682;

												{	/* Match/compiler.scm 299 */
													obj_t BgL_arg1542z00_3683;

													{	/* Match/compiler.scm 299 */
														obj_t BgL_arg1544z00_3684;

														{	/* Match/compiler.scm 299 */
															obj_t BgL_arg1545z00_3685;

															{	/* Match/compiler.scm 299 */
																obj_t BgL_arg1546z00_3686;
																obj_t BgL_arg1547z00_3687;

																BgL_arg1546z00_3686 =
																	MAKE_YOUNG_PAIR(BgL_gz00_3672, BNIL);
																{	/* Match/compiler.scm 304 */
																	obj_t BgL_arg1548z00_3688;

																	{	/* Match/compiler.scm 304 */
																		obj_t BgL_zc3z04anonymousza31551ze3z87_3689;

																		BgL_zc3z04anonymousza31551ze3z87_3689 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza31551ze3ze5zz__match_compilerz00,
																			(int) (1L), (int) (11L));
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (0L), BgL_dzd2envzd2_3564);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (1L), BgL_f2z00_3567);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (2L), BgL_fzd2envzd2_3568);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (3L), BgL_mz00_3570);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (4L), BgL_envz00_3563);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (5L), BgL_nz00_3565);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (6L), BgL_f1z00_3566);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (7L), BgL_gz00_3672);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (8L), BgL_rz00_3569);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (9L), BgL_kz00_3571);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31551ze3z87_3689,
																			(int) (10L), BgL_za7za7_3572);
																		BgL_arg1548z00_3688 =
																			BGl_compilez00zz__match_compilerz00
																			(BgL_f2z00_3567, BgL_gz00_3672,
																			BgL_rz00_3569, BgL_mz00_3570,
																			BgL_kz00_3571,
																			BgL_zc3z04anonymousza31551ze3z87_3689,
																			BgL_dz00_3573);
																	}
																	BgL_arg1547z00_3687 =
																		MAKE_YOUNG_PAIR(BgL_arg1548z00_3688, BNIL);
																}
																BgL_arg1545z00_3685 =
																	MAKE_YOUNG_PAIR(BgL_arg1546z00_3686,
																	BgL_arg1547z00_3687);
															}
															BgL_arg1544z00_3684 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2161z00zz__match_compilerz00,
																BgL_arg1545z00_3685);
														}
														BgL_arg1542z00_3683 =
															MAKE_YOUNG_PAIR(BgL_arg1544z00_3684, BNIL);
													}
													BgL_arg1541z00_3682 =
														MAKE_YOUNG_PAIR(BgL_tryz00_3673,
														BgL_arg1542z00_3683);
												}
												BgL_arg1536z00_3681 =
													MAKE_YOUNG_PAIR(BgL_arg1541z00_3682, BNIL);
											}
											BgL_arg1535z00_3680 =
												MAKE_YOUNG_PAIR(BgL_arg1536z00_3681, BNIL);
										}
										BgL_arg1532z00_3679 =
											MAKE_YOUNG_PAIR(BGl_symbol2237z00zz__match_compilerz00,
											BgL_arg1535z00_3680);
									}
									{	/* Match/compiler.scm 296 */
										obj_t BgL_list1533z00_3690;

										{	/* Match/compiler.scm 296 */
											obj_t BgL_arg1534z00_3691;

											BgL_arg1534z00_3691 =
												MAKE_YOUNG_PAIR(BgL_arg1532z00_3679, BNIL);
											BgL_list1533z00_3690 =
												MAKE_YOUNG_PAIR(BgL_tryz00_3673, BgL_arg1534z00_3691);
										}
										BgL_newzd2defzd2_3678 = BgL_list1533z00_3690;
								}}
								{	/* Match/compiler.scm 309 */
									obj_t BgL_auxz00_3692;

									BgL_auxz00_3692 =
										MAKE_YOUNG_PAIR(BgL_newzd2defzd2_3678,
										CELL_REF(BgL_fzd2envzd2_3568));
									CELL_SET(BgL_fzd2envzd2_3568, BgL_auxz00_3692);
								}
								return BgL_tryz00_3673;
							}
						}
				}
			}
		}

	}



/* compile-vector-begin */
	obj_t BGl_compilezd2vectorzd2beginz00zz__match_compilerz00(obj_t
		BgL_lgminz00_118, obj_t BgL_fz00_119, obj_t BgL_ez00_120,
		obj_t BgL_rz00_121, obj_t BgL_mz00_122, obj_t BgL_kz00_123,
		obj_t BgL_za7za7_124, obj_t BgL_dz00_125)
	{
		{	/* Match/compiler.scm 334 */
			if (
				(CAR(((obj_t) BgL_dz00_125)) == BGl_symbol2241z00zz__match_compilerz00))
				{	/* Match/compiler.scm 336 */
					bool_t BgL_test2384z00_4781;

					{	/* Match/compiler.scm 336 */
						obj_t BgL_a1100z00_1791;

						{	/* Match/compiler.scm 336 */
							obj_t BgL_pairz00_2932;

							BgL_pairz00_2932 = CDR(((obj_t) BgL_dz00_125));
							BgL_a1100z00_1791 = CAR(BgL_pairz00_2932);
						}
						{	/* Match/compiler.scm 336 */
							bool_t BgL_test2385z00_4785;

							if (INTEGERP(BgL_a1100z00_1791))
								{	/* Match/compiler.scm 336 */
									BgL_test2385z00_4785 = INTEGERP(BgL_lgminz00_118);
								}
							else
								{	/* Match/compiler.scm 336 */
									BgL_test2385z00_4785 = ((bool_t) 0);
								}
							if (BgL_test2385z00_4785)
								{	/* Match/compiler.scm 336 */
									BgL_test2384z00_4781 =
										(
										(long) CINT(BgL_a1100z00_1791) >=
										(long) CINT(BgL_lgminz00_118));
								}
							else
								{	/* Match/compiler.scm 336 */
									BgL_test2384z00_4781 =
										BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_a1100z00_1791,
										BgL_lgminz00_118);
								}
						}
					}
					if (BgL_test2384z00_4781)
						{	/* Match/compiler.scm 337 */
							obj_t BgL_fun1560z00_1779;

							BgL_fun1560z00_1779 =
								BGl_compilez00zz__match_compilerz00(BgL_fz00_119, BgL_ez00_120,
								BgL_rz00_121, BgL_mz00_122, BgL_kz00_123, BgL_za7za7_124,
								BgL_dz00_125);
							return (VA_PROCEDUREP(BgL_fun1560z00_1779) ? ((obj_t(*)(obj_t,
											...))
									PROCEDURE_ENTRY(BgL_fun1560z00_1779)) (BgL_fun1560z00_1779,
									BINT(0L), BEOA) : ((obj_t(*)(obj_t,
											obj_t))
									PROCEDURE_ENTRY(BgL_fun1560z00_1779)) (BgL_fun1560z00_1779,
									BINT(0L)));
						}
					else
						{	/* Match/compiler.scm 339 */
							obj_t BgL_arg1563z00_1780;

							{	/* Match/compiler.scm 339 */
								obj_t BgL_arg1564z00_1781;
								obj_t BgL_arg1565z00_1782;

								{	/* Match/compiler.scm 339 */
									obj_t BgL_arg1567z00_1783;

									{	/* Match/compiler.scm 339 */
										obj_t BgL_arg1568z00_1784;
										obj_t BgL_arg1569z00_1785;

										{	/* Match/compiler.scm 339 */
											obj_t BgL_arg1575z00_1786;

											BgL_arg1575z00_1786 = MAKE_YOUNG_PAIR(BgL_ez00_120, BNIL);
											BgL_arg1568z00_1784 =
												MAKE_YOUNG_PAIR(BGl_symbol2206z00zz__match_compilerz00,
												BgL_arg1575z00_1786);
										}
										BgL_arg1569z00_1785 =
											MAKE_YOUNG_PAIR(BgL_lgminz00_118, BNIL);
										BgL_arg1567z00_1783 =
											MAKE_YOUNG_PAIR(BgL_arg1568z00_1784, BgL_arg1569z00_1785);
									}
									BgL_arg1564z00_1781 =
										MAKE_YOUNG_PAIR(BGl_symbol2243z00zz__match_compilerz00,
										BgL_arg1567z00_1783);
								}
								{	/* Match/compiler.scm 340 */
									obj_t BgL_arg1576z00_1787;
									obj_t BgL_arg1577z00_1788;

									{	/* Match/compiler.scm 340 */
										obj_t BgL_fun1578z00_1789;

										BgL_fun1578z00_1789 =
											BGl_compilez00zz__match_compilerz00(BgL_fz00_119,
											BgL_ez00_120, BgL_rz00_121, BgL_mz00_122, BgL_kz00_123,
											BgL_za7za7_124, BgL_dz00_125);
										BgL_arg1576z00_1787 =
											(VA_PROCEDUREP(BgL_fun1578z00_1789) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_fun1578z00_1789))
											(BgL_fun1578z00_1789, BINT(0L), BEOA) : ((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_fun1578z00_1789))
											(BgL_fun1578z00_1789, BINT(0L)));
									}
									{	/* Match/compiler.scm 342 */
										obj_t BgL_arg1579z00_1790;

										BgL_arg1579z00_1790 =
											(VA_PROCEDUREP(BgL_za7za7_124) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_za7za7_124)) (BgL_za7za7_124,
												BgL_dz00_125, BEOA) : ((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_za7za7_124)) (BgL_za7za7_124,
												BgL_dz00_125));
										BgL_arg1577z00_1788 =
											MAKE_YOUNG_PAIR(BgL_arg1579z00_1790, BNIL);
									}
									BgL_arg1565z00_1782 =
										MAKE_YOUNG_PAIR(BgL_arg1576z00_1787, BgL_arg1577z00_1788);
								}
								BgL_arg1563z00_1780 =
									MAKE_YOUNG_PAIR(BgL_arg1564z00_1781, BgL_arg1565z00_1782);
							}
							return
								MAKE_YOUNG_PAIR(BGl_symbol2165z00zz__match_compilerz00,
								BgL_arg1563z00_1780);
						}
				}
			else
				{	/* Match/compiler.scm 343 */
					obj_t BgL_arg1581z00_1793;

					{	/* Match/compiler.scm 343 */
						obj_t BgL_arg1582z00_1794;
						obj_t BgL_arg1583z00_1795;

						{	/* Match/compiler.scm 343 */
							obj_t BgL_arg1584z00_1796;

							BgL_arg1584z00_1796 = MAKE_YOUNG_PAIR(BgL_ez00_120, BNIL);
							BgL_arg1582z00_1794 =
								MAKE_YOUNG_PAIR(BGl_symbol2245z00zz__match_compilerz00,
								BgL_arg1584z00_1796);
						}
						{	/* Match/compiler.scm 344 */
							obj_t BgL_arg1586z00_1797;
							obj_t BgL_arg1587z00_1798;

							{	/* Match/compiler.scm 344 */
								obj_t BgL_arg1589z00_1799;

								{	/* Match/compiler.scm 344 */
									obj_t BgL_arg1590z00_1800;
									obj_t BgL_arg1591z00_1801;

									{	/* Match/compiler.scm 344 */
										obj_t BgL_arg1592z00_1802;

										{	/* Match/compiler.scm 344 */
											obj_t BgL_arg1595z00_1803;
											obj_t BgL_arg1597z00_1804;

											{	/* Match/compiler.scm 344 */
												obj_t BgL_arg1598z00_1805;

												BgL_arg1598z00_1805 =
													MAKE_YOUNG_PAIR(BgL_ez00_120, BNIL);
												BgL_arg1595z00_1803 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2206z00zz__match_compilerz00,
													BgL_arg1598z00_1805);
											}
											BgL_arg1597z00_1804 =
												MAKE_YOUNG_PAIR(BgL_lgminz00_118, BNIL);
											BgL_arg1592z00_1802 =
												MAKE_YOUNG_PAIR(BgL_arg1595z00_1803,
												BgL_arg1597z00_1804);
										}
										BgL_arg1590z00_1800 =
											MAKE_YOUNG_PAIR(BGl_symbol2243z00zz__match_compilerz00,
											BgL_arg1592z00_1802);
									}
									{	/* Match/compiler.scm 348 */
										obj_t BgL_arg1600z00_1806;
										obj_t BgL_arg1602z00_1807;

										{	/* Match/compiler.scm 348 */
											obj_t BgL_fun1607z00_1812;

											{	/* Match/compiler.scm 348 */
												obj_t BgL_arg1603z00_1808;

												{	/* Match/compiler.scm 348 */
													obj_t BgL_arg1604z00_1809;

													{	/* Match/compiler.scm 348 */
														obj_t BgL_arg1605z00_1810;

														BgL_arg1605z00_1810 =
															MAKE_YOUNG_PAIR(make_vector(
																(long) CINT(BgL_lgminz00_118),
																BGl_list2157z00zz__match_compilerz00), BNIL);
														BgL_arg1604z00_1809 =
															MAKE_YOUNG_PAIR(BgL_lgminz00_118,
															BgL_arg1605z00_1810);
													}
													BgL_arg1603z00_1808 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2241z00zz__match_compilerz00,
														BgL_arg1604z00_1809);
												}
												BgL_fun1607z00_1812 =
													BGl_compilez00zz__match_compilerz00(BgL_fz00_119,
													BgL_ez00_120, BgL_rz00_121, BgL_mz00_122,
													BgL_kz00_123, BgL_za7za7_124, BgL_arg1603z00_1808);
											}
											BgL_arg1600z00_1806 =
												(VA_PROCEDUREP(BgL_fun1607z00_1812) ? ((obj_t(*)(obj_t,
															...))
													PROCEDURE_ENTRY(BgL_fun1607z00_1812))
												(BgL_fun1607z00_1812, BINT(0L),
													BEOA) : ((obj_t(*)(obj_t,
															obj_t))
													PROCEDURE_ENTRY(BgL_fun1607z00_1812))
												(BgL_fun1607z00_1812, BINT(0L)));
										}
										{	/* Match/compiler.scm 350 */
											obj_t BgL_arg1608z00_1813;

											{	/* Match/compiler.scm 350 */
												obj_t BgL_arg1609z00_1814;

												{	/* Match/compiler.scm 350 */
													obj_t BgL_arg1610z00_1815;

													{	/* Match/compiler.scm 350 */
														obj_t BgL_arg1611z00_1816;

														BgL_arg1611z00_1816 =
															MAKE_YOUNG_PAIR(make_vector(0L,
																BGl_list2157z00zz__match_compilerz00), BNIL);
														BgL_arg1610z00_1815 =
															MAKE_YOUNG_PAIR(BINT(0L), BgL_arg1611z00_1816);
													}
													BgL_arg1609z00_1814 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2241z00zz__match_compilerz00,
														BgL_arg1610z00_1815);
												}
												BgL_arg1608z00_1813 =
													(VA_PROCEDUREP(BgL_za7za7_124) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_za7za7_124)) (BgL_za7za7_124,
														BgL_arg1609z00_1814, BEOA) : ((obj_t(*)(obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_za7za7_124)) (BgL_za7za7_124,
														BgL_arg1609z00_1814));
											}
											BgL_arg1602z00_1807 =
												MAKE_YOUNG_PAIR(BgL_arg1608z00_1813, BNIL);
										}
										BgL_arg1591z00_1801 =
											MAKE_YOUNG_PAIR(BgL_arg1600z00_1806, BgL_arg1602z00_1807);
									}
									BgL_arg1589z00_1799 =
										MAKE_YOUNG_PAIR(BgL_arg1590z00_1800, BgL_arg1591z00_1801);
								}
								BgL_arg1586z00_1797 =
									MAKE_YOUNG_PAIR(BGl_symbol2165z00zz__match_compilerz00,
									BgL_arg1589z00_1799);
							}
							{	/* Match/compiler.scm 351 */
								obj_t BgL_arg1614z00_1818;

								{	/* Match/compiler.scm 351 */
									obj_t BgL_arg1615z00_1819;

									BgL_arg1615z00_1819 =
										BGl_patternzd2pluszd2zz__match_descriptionsz00(BgL_dz00_125,
										BGl_list2247z00zz__match_compilerz00);
									BgL_arg1614z00_1818 =
										(VA_PROCEDUREP(BgL_za7za7_124) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_za7za7_124)) (BgL_za7za7_124,
											BgL_arg1615z00_1819, BEOA) : ((obj_t(*)(obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_za7za7_124)) (BgL_za7za7_124,
											BgL_arg1615z00_1819));
								}
								BgL_arg1587z00_1798 =
									MAKE_YOUNG_PAIR(BgL_arg1614z00_1818, BNIL);
							}
							BgL_arg1583z00_1795 =
								MAKE_YOUNG_PAIR(BgL_arg1586z00_1797, BgL_arg1587z00_1798);
						}
						BgL_arg1581z00_1793 =
							MAKE_YOUNG_PAIR(BgL_arg1582z00_1794, BgL_arg1583z00_1795);
					}
					return
						MAKE_YOUNG_PAIR(BGl_symbol2165z00zz__match_compilerz00,
						BgL_arg1581z00_1793);
				}
		}

	}



/* compile-vector-cons */
	obj_t BGl_compilezd2vectorzd2consz00zz__match_compilerz00(obj_t BgL_f1z00_126,
		obj_t BgL_f2z00_127, obj_t BgL_ez00_128, obj_t BgL_rz00_129,
		obj_t BgL_mz00_130, obj_t BgL_kz00_131, obj_t BgL_za7za7_132,
		obj_t BgL_dz00_133)
	{
		{	/* Match/compiler.scm 357 */
			{	/* Match/compiler.scm 358 */
				obj_t BgL_zc3z04anonymousza31616ze3z87_3582;

				BgL_zc3z04anonymousza31616ze3z87_3582 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31616ze3ze5zz__match_compilerz00, (int) (1L),
					(int) (8L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (0L),
					BgL_dz00_133);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (1L),
					BgL_ez00_128);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (2L),
					BgL_f2z00_127);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (3L),
					BgL_mz00_130);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (4L),
					BgL_kz00_131);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (5L),
					BgL_za7za7_132);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (6L),
					BgL_f1z00_126);
				PROCEDURE_SET(BgL_zc3z04anonymousza31616ze3z87_3582, (int) (7L),
					BgL_rz00_129);
				return BgL_zc3z04anonymousza31616ze3z87_3582;
			}
		}

	}



/* &<@anonymous:1616> */
	obj_t BGl_z62zc3z04anonymousza31616ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3583, obj_t BgL_iz00_3592)
	{
		{	/* Match/compiler.scm 358 */
			{	/* Match/compiler.scm 359 */
				obj_t BgL_dz00_3584;
				obj_t BgL_ez00_3585;
				obj_t BgL_f2z00_3586;
				obj_t BgL_mz00_3587;
				obj_t BgL_kz00_3588;
				obj_t BgL_za7za7_3589;
				obj_t BgL_f1z00_3590;
				obj_t BgL_rz00_3591;

				BgL_dz00_3584 = PROCEDURE_REF(BgL_envz00_3583, (int) (0L));
				BgL_ez00_3585 = PROCEDURE_REF(BgL_envz00_3583, (int) (1L));
				BgL_f2z00_3586 = PROCEDURE_REF(BgL_envz00_3583, (int) (2L));
				BgL_mz00_3587 = PROCEDURE_REF(BgL_envz00_3583, (int) (3L));
				BgL_kz00_3588 = PROCEDURE_REF(BgL_envz00_3583, (int) (4L));
				BgL_za7za7_3589 = PROCEDURE_REF(BgL_envz00_3583, (int) (5L));
				BgL_f1z00_3590 = PROCEDURE_REF(BgL_envz00_3583, (int) (6L));
				BgL_rz00_3591 = PROCEDURE_REF(BgL_envz00_3583, (int) (7L));
				{	/* Match/compiler.scm 359 */
					bool_t BgL_test2387z00_4893;

					{	/* Match/compiler.scm 359 */
						long BgL_b1101z00_3693;

						{	/* Match/compiler.scm 359 */
							obj_t BgL_arg1625z00_3694;

							{	/* Match/compiler.scm 359 */
								obj_t BgL_pairz00_3695;

								{	/* Match/compiler.scm 359 */
									obj_t BgL_pairz00_3696;

									BgL_pairz00_3696 = CDR(((obj_t) BgL_dz00_3584));
									BgL_pairz00_3695 = CDR(BgL_pairz00_3696);
								}
								BgL_arg1625z00_3694 = CAR(BgL_pairz00_3695);
							}
							BgL_b1101z00_3693 = VECTOR_LENGTH(((obj_t) BgL_arg1625z00_3694));
						}
						if (INTEGERP(BgL_iz00_3592))
							{	/* Match/compiler.scm 359 */
								BgL_test2387z00_4893 =
									((long) CINT(BgL_iz00_3592) >= BgL_b1101z00_3693);
							}
						else
							{	/* Match/compiler.scm 359 */
								BgL_test2387z00_4893 =
									BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_iz00_3592,
									BINT(BgL_b1101z00_3693));
							}
					}
					if (BgL_test2387z00_4893)
						{	/* Match/compiler.scm 360 */
							obj_t BgL_arg1620z00_3697;
							obj_t BgL_arg1621z00_3698;

							{	/* Match/compiler.scm 360 */
								obj_t BgL_pairz00_3699;

								BgL_pairz00_3699 = CDR(((obj_t) BgL_dz00_3584));
								BgL_arg1620z00_3697 = CDR(BgL_pairz00_3699);
							}
							{	/* Match/compiler.scm 361 */
								obj_t BgL_arg1622z00_3700;
								obj_t BgL_arg1623z00_3701;

								{	/* Match/compiler.scm 361 */
									obj_t BgL_pairz00_3702;

									{	/* Match/compiler.scm 361 */
										obj_t BgL_pairz00_3703;

										BgL_pairz00_3703 = CDR(((obj_t) BgL_dz00_3584));
										BgL_pairz00_3702 = CDR(BgL_pairz00_3703);
									}
									BgL_arg1622z00_3700 = CAR(BgL_pairz00_3702);
								}
								if (INTEGERP(BgL_iz00_3592))
									{	/* Match/compiler.scm 361 */
										BgL_arg1623z00_3701 = ADDFX(BgL_iz00_3592, BINT(1L));
									}
								else
									{	/* Match/compiler.scm 361 */
										BgL_arg1623z00_3701 =
											BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_iz00_3592, BINT(1L));
									}
								BgL_arg1621z00_3698 =
									BGl_extendzd2vectorzd2zz__match_descriptionsz00
									(BgL_arg1622z00_3700, BgL_arg1623z00_3701,
									BGl_list2157z00zz__match_compilerz00);
							}
							{	/* Match/compiler.scm 360 */
								obj_t BgL_tmpz00_4920;

								BgL_tmpz00_4920 = ((obj_t) BgL_arg1620z00_3697);
								SET_CAR(BgL_tmpz00_4920, BgL_arg1621z00_3698);
							}
						}
					else
						{	/* Match/compiler.scm 359 */
							BTRUE;
						}
				}
				{	/* Match/compiler.scm 363 */
					obj_t BgL_arg1626z00_3704;
					obj_t BgL_arg1629z00_3705;

					{	/* Match/compiler.scm 363 */
						obj_t BgL_arg1630z00_3706;

						{	/* Match/compiler.scm 363 */
							obj_t BgL_arg1632z00_3707;

							BgL_arg1632z00_3707 = MAKE_YOUNG_PAIR(BgL_iz00_3592, BNIL);
							BgL_arg1630z00_3706 =
								MAKE_YOUNG_PAIR(BgL_ez00_3585, BgL_arg1632z00_3707);
						}
						BgL_arg1626z00_3704 =
							MAKE_YOUNG_PAIR(BGl_symbol2249z00zz__match_compilerz00,
							BgL_arg1630z00_3706);
					}
					{	/* Match/compiler.scm 369 */
						obj_t BgL_arg1639z00_3708;

						{	/* Match/compiler.scm 369 */
							obj_t BgL_pairz00_3709;

							{	/* Match/compiler.scm 369 */
								obj_t BgL_pairz00_3710;

								BgL_pairz00_3710 = CDR(((obj_t) BgL_dz00_3584));
								BgL_pairz00_3709 = CDR(BgL_pairz00_3710);
							}
							BgL_arg1639z00_3708 = CAR(BgL_pairz00_3709);
						}
						{	/* Match/compiler.scm 369 */
							long BgL_kz00_3711;

							BgL_kz00_3711 = (long) CINT(BgL_iz00_3592);
							BgL_arg1629z00_3705 =
								VECTOR_REF(((obj_t) BgL_arg1639z00_3708), BgL_kz00_3711);
					}}
					{	/* Match/compiler.scm 365 */
						obj_t BgL_zc3z04anonymousza31633ze3z87_3712;
						obj_t BgL_zc3z04anonymousza31637ze3z87_3713;

						BgL_zc3z04anonymousza31633ze3z87_3712 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31633ze3ze5zz__match_compilerz00,
							(int) (3L), (int) (7L));
						BgL_zc3z04anonymousza31637ze3z87_3713 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31637ze3ze5zz__match_compilerz00,
							(int) (1L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (0L),
							BgL_dz00_3584);
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (1L),
							BgL_iz00_3592);
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (2L),
							BgL_f2z00_3586);
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (3L),
							BgL_ez00_3585);
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (4L),
							BgL_mz00_3587);
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (5L),
							BgL_kz00_3588);
						PROCEDURE_SET(BgL_zc3z04anonymousza31633ze3z87_3712, (int) (6L),
							BgL_za7za7_3589);
						PROCEDURE_SET(BgL_zc3z04anonymousza31637ze3z87_3713, (int) (0L),
							BgL_dz00_3584);
						PROCEDURE_SET(BgL_zc3z04anonymousza31637ze3z87_3713, (int) (1L),
							BgL_iz00_3592);
						PROCEDURE_SET(BgL_zc3z04anonymousza31637ze3z87_3713, (int) (2L),
							BgL_za7za7_3589);
						return BGl_compilez00zz__match_compilerz00(BgL_f1z00_3590,
							BgL_arg1626z00_3704, BgL_rz00_3591, BgL_mz00_3587,
							BgL_zc3z04anonymousza31633ze3z87_3712,
							BgL_zc3z04anonymousza31637ze3z87_3713, BgL_arg1629z00_3705);
					}
				}
			}
		}

	}



/* &<@anonymous:1637> */
	obj_t BGl_z62zc3z04anonymousza31637ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3593, obj_t BgL_d1z00_3597)
	{
		{	/* Match/compiler.scm 367 */
			{	/* Match/compiler.scm 368 */
				obj_t BgL_dz00_3594;
				obj_t BgL_iz00_3595;
				obj_t BgL_za7za7_3596;

				BgL_dz00_3594 = PROCEDURE_REF(BgL_envz00_3593, (int) (0L));
				BgL_iz00_3595 = PROCEDURE_REF(BgL_envz00_3593, (int) (1L));
				BgL_za7za7_3596 = PROCEDURE_REF(BgL_envz00_3593, (int) (2L));
				{	/* Match/compiler.scm 368 */
					obj_t BgL_arg1638z00_3714;

					BgL_arg1638z00_3714 =
						BGl_vectorzd2pluszd2zz__match_descriptionsz00(BgL_dz00_3594,
						BgL_iz00_3595, BgL_d1z00_3597);
					return (VA_PROCEDUREP(BgL_za7za7_3596) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_za7za7_3596)) (BgL_za7za7_3596,
							BgL_arg1638z00_3714, BEOA) : ((obj_t(*)(obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_za7za7_3596)) (BgL_za7za7_3596,
							BgL_arg1638z00_3714));
				}
			}
		}

	}



/* &<@anonymous:1633> */
	obj_t BGl_z62zc3z04anonymousza31633ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3598, obj_t BgL_rz00_3606, obj_t BgL_za71za7_3607,
		obj_t BgL_d1z00_3608)
	{
		{	/* Match/compiler.scm 364 */
			{	/* Match/compiler.scm 365 */
				obj_t BgL_dz00_3599;
				obj_t BgL_iz00_3600;
				obj_t BgL_f2z00_3601;
				obj_t BgL_ez00_3602;
				obj_t BgL_mz00_3603;
				obj_t BgL_kz00_3604;
				obj_t BgL_za7za7_3605;

				BgL_dz00_3599 = PROCEDURE_REF(BgL_envz00_3598, (int) (0L));
				BgL_iz00_3600 = PROCEDURE_REF(BgL_envz00_3598, (int) (1L));
				BgL_f2z00_3601 = PROCEDURE_REF(BgL_envz00_3598, (int) (2L));
				BgL_ez00_3602 = PROCEDURE_REF(BgL_envz00_3598, (int) (3L));
				BgL_mz00_3603 = PROCEDURE_REF(BgL_envz00_3598, (int) (4L));
				BgL_kz00_3604 = PROCEDURE_REF(BgL_envz00_3598, (int) (5L));
				BgL_za7za7_3605 = PROCEDURE_REF(BgL_envz00_3598, (int) (6L));
				{	/* Match/compiler.scm 365 */
					obj_t BgL_fun1636z00_3715;

					BgL_fun1636z00_3715 =
						BGl_compilez00zz__match_compilerz00(BgL_f2z00_3601, BgL_ez00_3602,
						BgL_rz00_3606, BgL_mz00_3603, BgL_kz00_3604, BgL_za7za7_3605,
						BGl_vectorzd2pluszd2zz__match_descriptionsz00(BgL_dz00_3599,
							BgL_iz00_3600, BgL_d1z00_3608));
					{	/* Match/compiler.scm 366 */
						obj_t BgL_arg1635z00_3716;

						if (INTEGERP(BgL_iz00_3600))
							{	/* Match/compiler.scm 366 */
								BgL_arg1635z00_3716 = ADDFX(BgL_iz00_3600, BINT(1L));
							}
						else
							{	/* Match/compiler.scm 366 */
								BgL_arg1635z00_3716 =
									BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_iz00_3600, BINT(1L));
							}
						return
							(VA_PROCEDUREP(BgL_fun1636z00_3715) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_fun1636z00_3715)) (BgL_fun1636z00_3715,
								BgL_arg1635z00_3716, BEOA) : ((obj_t(*)(obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_fun1636z00_3715)) (BgL_fun1636z00_3715,
								BgL_arg1635z00_3716));
					}
				}
			}
		}

	}



/* compile-struct-pat */
	obj_t BGl_compilezd2structzd2patz00zz__match_compilerz00(obj_t BgL_fz00_155,
		obj_t BgL_ez00_156, obj_t BgL_rz00_157, obj_t BgL_mz00_158,
		obj_t BgL_kz00_159, obj_t BgL_za7za7_160, obj_t BgL_dz00_161)
	{
		{	/* Match/compiler.scm 387 */
			{	/* Match/compiler.scm 388 */
				obj_t BgL_predz00_1865;

				{	/* Match/compiler.scm 389 */
					obj_t BgL_pairz00_2990;

					{	/* Match/compiler.scm 389 */
						obj_t BgL_pairz00_2989;

						BgL_pairz00_2989 = CDR(((obj_t) BgL_fz00_155));
						BgL_pairz00_2990 = CDR(BgL_pairz00_2989);
					}
					BgL_predz00_1865 = CAR(BgL_pairz00_2990);
				}
				{	/* Match/compiler.scm 389 */
					obj_t BgL_pza2za2_1866;

					{	/* Match/compiler.scm 390 */
						obj_t BgL_pairz00_2996;

						{	/* Match/compiler.scm 390 */
							obj_t BgL_pairz00_2995;

							BgL_pairz00_2995 = CDR(((obj_t) BgL_fz00_155));
							BgL_pairz00_2996 = CDR(BgL_pairz00_2995);
						}
						BgL_pza2za2_1866 = CDR(BgL_pairz00_2996);
					}
					{	/* Match/compiler.scm 390 */
						obj_t BgL_za2kza2z00_1867;

						BgL_za2kza2z00_1867 =
							(VA_PROCEDUREP(BGl_jimzd2gensymzd2zz__match_s2cfunz00)
							? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
							(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
								BGl_string2226z00zz__match_compilerz00,
								BEOA) : ((obj_t(*)(obj_t,
										obj_t))
								PROCEDURE_ENTRY(BGl_jimzd2gensymzd2zz__match_s2cfunz00))
							(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
								BGl_string2226z00zz__match_compilerz00));
						{	/* Match/compiler.scm 391 */
							obj_t BgL_za2varsza2z00_1868;

							BgL_za2varsza2z00_1868 =
								BGl_patternzd2variableszd2zz__match_descriptionsz00
								(BgL_fz00_155);
							{	/* Match/compiler.scm 392 */
								obj_t BgL_za2callza2z00_1869;

								BgL_za2callza2z00_1869 =
									MAKE_YOUNG_PAIR(BgL_za2kza2z00_1867,
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_za2varsza2z00_1868, BNIL));
								{	/* Match/compiler.scm 393 */
									obj_t BgL_successzd2formzd2_1870;

									{	/* Match/compiler.scm 394 */
										obj_t BgL_arg1670z00_1890;

										BgL_arg1670z00_1890 =
											BGl_extendza2za2zz__match_compilerz00(BgL_rz00_157,
											BgL_za2varsza2z00_1868);
										BgL_successzd2formzd2_1870 =
											(VA_PROCEDUREP(BgL_kz00_159) ? ((obj_t(*)(obj_t,
														...)) PROCEDURE_ENTRY(BgL_kz00_159)) (BgL_kz00_159,
												BgL_arg1670z00_1890, BgL_za7za7_160, BgL_dz00_161,
												BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_kz00_159)) (BgL_kz00_159,
												BgL_arg1670z00_1890, BgL_za7za7_160, BgL_dz00_161));
									}
									{	/* Match/compiler.scm 394 */
										obj_t BgL_failurezd2formzd2_1871;

										BgL_failurezd2formzd2_1871 =
											(VA_PROCEDUREP(BgL_za7za7_160) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_za7za7_160)) (BgL_za7za7_160,
												BgL_dz00_161, BEOA) : ((obj_t(*)(obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_za7za7_160)) (BgL_za7za7_160,
												BgL_dz00_161));
										{	/* Match/compiler.scm 395 */
											obj_t BgL_indexesz00_1872;

											{	/* Match/compiler.scm 396 */
												long BgL_arg1668z00_1886;

												{	/* Match/compiler.scm 396 */

													BgL_arg1668z00_1886 =
														(bgl_list_length(BgL_pza2za2_1866) - 1L);
												}
												BgL_indexesz00_1872 =
													BGl_integersz00zz__match_compilerz00(0L,
													BgL_arg1668z00_1886);
											}
											{	/* Match/compiler.scm 396 */

												{	/* Match/compiler.scm 397 */
													obj_t BgL_arg1658z00_1873;
													obj_t BgL_arg1659z00_1874;

													{	/* Match/compiler.scm 397 */
														obj_t BgL_arg1661z00_1875;

														BgL_arg1661z00_1875 =
															MAKE_YOUNG_PAIR(BgL_ez00_156, BNIL);
														BgL_arg1658z00_1873 =
															MAKE_YOUNG_PAIR(BgL_predz00_1865,
															BgL_arg1661z00_1875);
													}
													{	/* Match/compiler.scm 400 */
														obj_t BgL_zc3z04anonymousza31665ze3z87_3609;

														BgL_zc3z04anonymousza31665ze3z87_3609 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza31665ze3ze5zz__match_compilerz00,
															(int) (1L), (int) (1L));
														PROCEDURE_SET(BgL_zc3z04anonymousza31665ze3z87_3609,
															(int) (0L), BgL_failurezd2formzd2_1871);
														BgL_arg1659z00_1874 =
															BGl_z62compileza2zc0zz__match_compilerz00
															(BgL_successzd2formzd2_1870,
															BgL_zc3z04anonymousza31665ze3z87_3609,
															BgL_mz00_158, BgL_ez00_156,
															BgL_failurezd2formzd2_1871, BgL_pza2za2_1866,
															BgL_indexesz00_1872, BgL_rz00_157,
															BGl_list2157z00zz__match_compilerz00);
													}
													return
														BGl_buildzd2ifzd2zz__match_compilerz00
														(BgL_arg1658z00_1873, BgL_arg1659z00_1874,
														BgL_failurezd2formzd2_1871);
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &compile* */
	obj_t BGl_z62compileza2zc0zz__match_compilerz00(obj_t
		BgL_successzd2formzd2_3616, obj_t BgL_zc3z04anonymousza31665ze3z87_3615,
		obj_t BgL_mz00_3614, obj_t BgL_ez00_3613, obj_t BgL_failurezd2formzd2_3612,
		obj_t BgL_pza2za2_3000, obj_t BgL_iza2za2_3001, obj_t BgL_rz00_3002,
		obj_t BgL_dz00_3003)
	{
		{	/* Match/compiler.scm 405 */
			if (NULLP(BgL_pza2za2_3000))
				{	/* Match/compiler.scm 406 */
					return BgL_successzd2formzd2_3616;
				}
			else
				{	/* Match/compiler.scm 408 */
					obj_t BgL_arg1673z00_3005;
					obj_t BgL_arg1675z00_3006;

					BgL_arg1673z00_3005 = CAR(((obj_t) BgL_pza2za2_3000));
					{	/* Match/compiler.scm 408 */
						obj_t BgL_arg1681z00_3007;

						{	/* Match/compiler.scm 408 */
							obj_t BgL_arg1684z00_3008;

							{	/* Match/compiler.scm 408 */
								obj_t BgL_arg1685z00_3009;

								BgL_arg1685z00_3009 = CAR(((obj_t) BgL_iza2za2_3001));
								BgL_arg1684z00_3008 =
									MAKE_YOUNG_PAIR(BgL_arg1685z00_3009, BNIL);
							}
							BgL_arg1681z00_3007 =
								MAKE_YOUNG_PAIR(BgL_ez00_3613, BgL_arg1684z00_3008);
						}
						BgL_arg1675z00_3006 =
							MAKE_YOUNG_PAIR(BGl_symbol2251z00zz__match_compilerz00,
							BgL_arg1681z00_3007);
					}
					{	/* Match/compiler.scm 410 */
						obj_t BgL_zc3z04anonymousza31686ze3z87_3610;

						BgL_zc3z04anonymousza31686ze3z87_3610 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31686ze3ze5zz__match_compilerz00,
							(int) (3L), (int) (7L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (0L),
							BgL_failurezd2formzd2_3612);
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (1L),
							BgL_ez00_3613);
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (2L),
							BgL_mz00_3614);
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (3L),
							BgL_zc3z04anonymousza31665ze3z87_3615);
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (4L),
							BgL_successzd2formzd2_3616);
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (5L),
							BgL_pza2za2_3000);
						PROCEDURE_SET(BgL_zc3z04anonymousza31686ze3z87_3610, (int) (6L),
							BgL_iza2za2_3001);
						return BGl_compilez00zz__match_compilerz00(BgL_arg1673z00_3005,
							BgL_arg1675z00_3006, BgL_rz00_3002, BgL_mz00_3614,
							BgL_zc3z04anonymousza31686ze3z87_3610,
							BgL_zc3z04anonymousza31665ze3z87_3615,
							BGl_list2157z00zz__match_compilerz00);
					}
				}
		}

	}



/* &<@anonymous:1665> */
	obj_t BGl_z62zc3z04anonymousza31665ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3617, obj_t BgL_dz00_3619)
	{
		{	/* Match/compiler.scm 401 */
			return PROCEDURE_REF(BgL_envz00_3617, (int) (0L));
		}

	}



/* &<@anonymous:1686> */
	obj_t BGl_z62zc3z04anonymousza31686ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3620, obj_t BgL_rrz00_3628, obj_t BgL_za7za7z00_3629,
		obj_t BgL_ddz00_3630)
	{
		{	/* Match/compiler.scm 409 */
			{	/* Match/compiler.scm 410 */
				obj_t BgL_failurezd2formzd2_3621;
				obj_t BgL_ez00_3622;
				obj_t BgL_mz00_3623;
				obj_t BgL_zc3z04anonymousza31665ze3z87_3624;
				obj_t BgL_successzd2formzd2_3625;
				obj_t BgL_pza2za2_3626;
				obj_t BgL_iza2za2_3627;

				BgL_failurezd2formzd2_3621 = PROCEDURE_REF(BgL_envz00_3620, (int) (0L));
				BgL_ez00_3622 = PROCEDURE_REF(BgL_envz00_3620, (int) (1L));
				BgL_mz00_3623 = PROCEDURE_REF(BgL_envz00_3620, (int) (2L));
				BgL_zc3z04anonymousza31665ze3z87_3624 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3620, (int) (3L)));
				BgL_successzd2formzd2_3625 = PROCEDURE_REF(BgL_envz00_3620, (int) (4L));
				BgL_pza2za2_3626 = PROCEDURE_REF(BgL_envz00_3620, (int) (5L));
				BgL_iza2za2_3627 = PROCEDURE_REF(BgL_envz00_3620, (int) (6L));
				{	/* Match/compiler.scm 410 */
					obj_t BgL_arg1689z00_3717;
					obj_t BgL_arg1690z00_3718;

					BgL_arg1689z00_3717 = CDR(((obj_t) BgL_pza2za2_3626));
					BgL_arg1690z00_3718 = CDR(((obj_t) BgL_iza2za2_3627));
					return
						BGl_z62compileza2zc0zz__match_compilerz00
						(BgL_successzd2formzd2_3625, BgL_zc3z04anonymousza31665ze3z87_3624,
						BgL_mz00_3623, BgL_ez00_3622, BgL_failurezd2formzd2_3621,
						BgL_arg1689z00_3717, BgL_arg1690z00_3718, BgL_rrz00_3628,
						BGl_list2157z00zz__match_compilerz00);
				}
			}
		}

	}



/* &k-init */
	obj_t BGl_z62kzd2initzb0zz__match_compilerz00(obj_t BgL_envz00_3398,
		obj_t BgL_rz00_3399, obj_t BgL_za7za7_3400, obj_t BgL_dz00_3401)
	{
		{	/* Match/compiler.scm 423 */
			return BBOOL(((bool_t) 1));
		}

	}



/* &z-init */
	obj_t BGl_z62za7zd2initz17zz__match_compilerz00(obj_t BgL_envz00_3402,
		obj_t BgL_dz00_3403)
	{
		{	/* Match/compiler.scm 425 */
			return BBOOL(((bool_t) 0));
		}

	}



/* extend* */
	obj_t BGl_extendza2za2zz__match_compilerz00(obj_t BgL_rz00_181,
		obj_t BgL_vza2za2_182)
	{
		{	/* Match/compiler.scm 442 */
			if (NULLP(BgL_vza2za2_182))
				{	/* Match/compiler.scm 443 */
					return BgL_rz00_181;
				}
			else
				{	/* Match/compiler.scm 445 */
					obj_t BgL_arg1708z00_3085;
					obj_t BgL_arg1709z00_3086;

					{	/* Match/compiler.scm 445 */
						obj_t BgL_arg1710z00_3087;

						BgL_arg1710z00_3087 = CDR(((obj_t) BgL_vza2za2_182));
						BgL_arg1708z00_3085 =
							BGl_extendza2za2zz__match_compilerz00(BgL_rz00_181,
							BgL_arg1710z00_3087);
					}
					BgL_arg1709z00_3086 = CAR(((obj_t) BgL_vza2za2_182));
					{	/* Match/compiler.scm 445 */
						obj_t BgL_imz00_3090;

						BgL_imz00_3090 = BGl_symbol2253z00zz__match_compilerz00;
						{	/* Match/compiler.scm 435 */
							obj_t BgL_arg1698z00_3091;
							obj_t BgL_arg1703z00_3092;

							BgL_arg1698z00_3091 =
								MAKE_YOUNG_PAIR(BgL_arg1709z00_3086, BgL_imz00_3090);
							BgL_arg1703z00_3092 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg1708z00_3085, BNIL);
							return MAKE_YOUNG_PAIR(BgL_arg1698z00_3091, BgL_arg1703z00_3092);
						}
					}
				}
		}

	}



/* &m-init */
	obj_t BGl_z62mzd2initzb0zz__match_compilerz00(obj_t BgL_envz00_3396,
		obj_t BgL_nz00_3397)
	{
		{	/* Match/compiler.scm 450 */
			{	/* Match/compiler.scm 451 */
				obj_t BgL_zc3z04anonymousza31711ze3z87_3719;

				BgL_zc3z04anonymousza31711ze3z87_3719 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31711ze3ze5zz__match_compilerz00, (int) (5L),
					(int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31711ze3z87_3719, (int) (0L),
					BgL_nz00_3397);
				return BgL_zc3z04anonymousza31711ze3z87_3719;
			}
		}

	}



/* &<@anonymous:1711> */
	obj_t BGl_z62zc3z04anonymousza31711ze3ze5zz__match_compilerz00(obj_t
		BgL_envz00_3632, obj_t BgL_ez00_3634, obj_t BgL_rz00_3635,
		obj_t BgL_kz00_3636, obj_t BgL_za7za7_3637, obj_t BgL_cz00_3638)
	{
		{	/* Match/compiler.scm 451 */
			{	/* Match/compiler.scm 452 */
				obj_t BgL_nz00_3633;

				BgL_nz00_3633 = PROCEDURE_REF(BgL_envz00_3632, (int) (0L));
				{	/* Match/compiler.scm 452 */
					obj_t BgL_list1712z00_3720;

					{	/* Match/compiler.scm 452 */
						obj_t BgL_arg1713z00_3721;

						BgL_arg1713z00_3721 = MAKE_YOUNG_PAIR(BgL_nz00_3633, BNIL);
						BgL_list1712z00_3720 =
							MAKE_YOUNG_PAIR(BGl_string2255z00zz__match_compilerz00,
							BgL_arg1713z00_3721);
					}
					return
						BGl_errorz00zz__errorz00(BGl_string2188z00zz__match_compilerz00,
						BgL_list1712z00_3720, BGl_string2189z00zz__match_compilerz00);
				}
			}
		}

	}



/* build-if */
	obj_t BGl_buildzd2ifzd2zz__match_compilerz00(obj_t BgL_tstz00_191,
		obj_t BgL_thenz00_192, obj_t BgL_elsez00_193)
	{
		{	/* Match/compiler.scm 470 */
			if ((BgL_tstz00_191 == BTRUE))
				{	/* Match/compiler.scm 472 */
					return BgL_thenz00_192;
				}
			else
				{	/* Match/compiler.scm 472 */
					if ((BgL_tstz00_191 == BFALSE))
						{	/* Match/compiler.scm 473 */
							return BgL_elsez00_193;
						}
					else
						{	/* Match/compiler.scm 474 */
							bool_t BgL_test2395z00_5110;

							if ((BgL_thenz00_192 == BTRUE))
								{	/* Match/compiler.scm 474 */
									BgL_test2395z00_5110 = (BgL_elsez00_193 == BFALSE);
								}
							else
								{	/* Match/compiler.scm 474 */
									BgL_test2395z00_5110 = ((bool_t) 0);
								}
							if (BgL_test2395z00_5110)
								{	/* Match/compiler.scm 474 */
									return BgL_tstz00_191;
								}
							else
								{	/* Match/compiler.scm 477 */
									bool_t BgL_test2397z00_5114;

									if ((BgL_thenz00_192 == BFALSE))
										{	/* Match/compiler.scm 477 */
											BgL_test2397z00_5114 = (BgL_elsez00_193 == BTRUE);
										}
									else
										{	/* Match/compiler.scm 477 */
											BgL_test2397z00_5114 = ((bool_t) 0);
										}
									if (BgL_test2397z00_5114)
										{	/* Match/compiler.scm 479 */
											obj_t BgL_arg1721z00_1935;

											BgL_arg1721z00_1935 =
												MAKE_YOUNG_PAIR(BgL_tstz00_191, BNIL);
											return
												MAKE_YOUNG_PAIR(BGl_symbol2171z00zz__match_compilerz00,
												BgL_arg1721z00_1935);
										}
									else
										{	/* Match/compiler.scm 480 */
											obj_t BgL_arg1722z00_1936;

											{	/* Match/compiler.scm 480 */
												obj_t BgL_arg1723z00_1937;

												{	/* Match/compiler.scm 480 */
													obj_t BgL_arg1724z00_1938;

													BgL_arg1724z00_1938 =
														MAKE_YOUNG_PAIR(BgL_elsez00_193, BNIL);
													BgL_arg1723z00_1937 =
														MAKE_YOUNG_PAIR(BgL_thenz00_192,
														BgL_arg1724z00_1938);
												}
												BgL_arg1722z00_1936 =
													MAKE_YOUNG_PAIR(BgL_tstz00_191, BgL_arg1723z00_1937);
											}
											return
												MAKE_YOUNG_PAIR(BGl_symbol2165z00zz__match_compilerz00,
												BgL_arg1722z00_1936);
										}
								}
						}
				}
		}

	}



/* build-let */
	obj_t BGl_buildzd2letzd2zz__match_compilerz00(obj_t BgL_za2carza2z00_194,
		obj_t BgL_za2cdrza2z00_195, obj_t BgL_ez00_196, obj_t BgL_bodyz00_197)
	{
		{	/* Match/compiler.scm 482 */
			{	/* Match/compiler.scm 483 */
				bool_t BgL_test2399z00_5124;

				{	/* Match/compiler.scm 483 */
					obj_t BgL_a1104z00_1994;

					BgL_a1104z00_1994 =
						BGl_countzd2occurrenceszd2zz__match_compilerz00
						(BgL_za2carza2z00_194, BgL_bodyz00_197, 0L);
					{	/* Match/compiler.scm 483 */

						if (INTEGERP(BgL_a1104z00_1994))
							{	/* Match/compiler.scm 483 */
								BgL_test2399z00_5124 = ((long) CINT(BgL_a1104z00_1994) > 1L);
							}
						else
							{	/* Match/compiler.scm 483 */
								BgL_test2399z00_5124 =
									BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1104z00_1994, BINT(1L));
							}
					}
				}
				if (BgL_test2399z00_5124)
					{	/* Match/compiler.scm 484 */
						bool_t BgL_test2401z00_5132;

						{	/* Match/compiler.scm 484 */
							obj_t BgL_a1106z00_1969;

							BgL_a1106z00_1969 =
								BGl_countzd2occurrenceszd2zz__match_compilerz00
								(BgL_za2cdrza2z00_195, BgL_bodyz00_197, 0L);
							{	/* Match/compiler.scm 484 */

								if (INTEGERP(BgL_a1106z00_1969))
									{	/* Match/compiler.scm 484 */
										BgL_test2401z00_5132 =
											((long) CINT(BgL_a1106z00_1969) > 1L);
									}
								else
									{	/* Match/compiler.scm 484 */
										BgL_test2401z00_5132 =
											BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1106z00_1969,
											BINT(1L));
									}
							}
						}
						if (BgL_test2401z00_5132)
							{	/* Match/compiler.scm 485 */
								obj_t BgL_arg1729z00_1947;

								{	/* Match/compiler.scm 485 */
									obj_t BgL_arg1730z00_1948;
									obj_t BgL_arg1731z00_1949;

									{	/* Match/compiler.scm 485 */
										obj_t BgL_arg1732z00_1950;
										obj_t BgL_arg1733z00_1951;

										{	/* Match/compiler.scm 485 */
											obj_t BgL_arg1734z00_1952;

											{	/* Match/compiler.scm 485 */
												obj_t BgL_arg1735z00_1953;

												{	/* Match/compiler.scm 485 */
													obj_t BgL_arg1736z00_1954;

													BgL_arg1736z00_1954 =
														MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
													BgL_arg1735z00_1953 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2256z00zz__match_compilerz00,
														BgL_arg1736z00_1954);
												}
												BgL_arg1734z00_1952 =
													MAKE_YOUNG_PAIR(BgL_arg1735z00_1953, BNIL);
											}
											BgL_arg1732z00_1950 =
												MAKE_YOUNG_PAIR(BgL_za2carza2z00_194,
												BgL_arg1734z00_1952);
										}
										{	/* Match/compiler.scm 485 */
											obj_t BgL_arg1738z00_1955;

											{	/* Match/compiler.scm 485 */
												obj_t BgL_arg1739z00_1956;

												{	/* Match/compiler.scm 485 */
													obj_t BgL_arg1741z00_1957;

													{	/* Match/compiler.scm 485 */
														obj_t BgL_arg1742z00_1958;

														BgL_arg1742z00_1958 =
															MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
														BgL_arg1741z00_1957 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2258z00zz__match_compilerz00,
															BgL_arg1742z00_1958);
													}
													BgL_arg1739z00_1956 =
														MAKE_YOUNG_PAIR(BgL_arg1741z00_1957, BNIL);
												}
												BgL_arg1738z00_1955 =
													MAKE_YOUNG_PAIR(BgL_za2cdrza2z00_195,
													BgL_arg1739z00_1956);
											}
											BgL_arg1733z00_1951 =
												MAKE_YOUNG_PAIR(BgL_arg1738z00_1955, BNIL);
										}
										BgL_arg1730z00_1948 =
											MAKE_YOUNG_PAIR(BgL_arg1732z00_1950, BgL_arg1733z00_1951);
									}
									BgL_arg1731z00_1949 = MAKE_YOUNG_PAIR(BgL_bodyz00_197, BNIL);
									BgL_arg1729z00_1947 =
										MAKE_YOUNG_PAIR(BgL_arg1730z00_1948, BgL_arg1731z00_1949);
								}
								return
									MAKE_YOUNG_PAIR(BGl_symbol2233z00zz__match_compilerz00,
									BgL_arg1729z00_1947);
							}
						else
							{	/* Match/compiler.scm 487 */
								obj_t BgL_arg1743z00_1959;

								{	/* Match/compiler.scm 487 */
									obj_t BgL_arg1744z00_1960;
									obj_t BgL_arg1745z00_1961;

									{	/* Match/compiler.scm 487 */
										obj_t BgL_arg1746z00_1962;

										{	/* Match/compiler.scm 487 */
											obj_t BgL_arg1747z00_1963;

											{	/* Match/compiler.scm 487 */
												obj_t BgL_arg1748z00_1964;

												{	/* Match/compiler.scm 487 */
													obj_t BgL_arg1749z00_1965;

													BgL_arg1749z00_1965 =
														MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
													BgL_arg1748z00_1964 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2256z00zz__match_compilerz00,
														BgL_arg1749z00_1965);
												}
												BgL_arg1747z00_1963 =
													MAKE_YOUNG_PAIR(BgL_arg1748z00_1964, BNIL);
											}
											BgL_arg1746z00_1962 =
												MAKE_YOUNG_PAIR(BgL_za2carza2z00_194,
												BgL_arg1747z00_1963);
										}
										BgL_arg1744z00_1960 =
											MAKE_YOUNG_PAIR(BgL_arg1746z00_1962, BNIL);
									}
									{	/* Match/compiler.scm 488 */
										obj_t BgL_arg1750z00_1966;

										{	/* Match/compiler.scm 488 */
											obj_t BgL_arg1751z00_1967;

											{	/* Match/compiler.scm 488 */
												obj_t BgL_arg1752z00_1968;

												BgL_arg1752z00_1968 =
													MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
												BgL_arg1751z00_1967 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2258z00zz__match_compilerz00,
													BgL_arg1752z00_1968);
											}
											BgL_arg1750z00_1966 =
												BGl_unfoldz00zz__match_compilerz00(BgL_za2cdrza2z00_195,
												BgL_arg1751z00_1967, BgL_bodyz00_197);
										}
										BgL_arg1745z00_1961 =
											MAKE_YOUNG_PAIR(BgL_arg1750z00_1966, BNIL);
									}
									BgL_arg1743z00_1959 =
										MAKE_YOUNG_PAIR(BgL_arg1744z00_1960, BgL_arg1745z00_1961);
								}
								return
									MAKE_YOUNG_PAIR(BGl_symbol2233z00zz__match_compilerz00,
									BgL_arg1743z00_1959);
							}
					}
				else
					{	/* Match/compiler.scm 489 */
						bool_t BgL_test2403z00_5164;

						{	/* Match/compiler.scm 489 */
							obj_t BgL_a1108z00_1991;

							BgL_a1108z00_1991 =
								BGl_countzd2occurrenceszd2zz__match_compilerz00
								(BgL_za2cdrza2z00_195, BgL_bodyz00_197, 0L);
							{	/* Match/compiler.scm 489 */

								if (INTEGERP(BgL_a1108z00_1991))
									{	/* Match/compiler.scm 489 */
										BgL_test2403z00_5164 =
											((long) CINT(BgL_a1108z00_1991) > 1L);
									}
								else
									{	/* Match/compiler.scm 489 */
										BgL_test2403z00_5164 =
											BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1108z00_1991,
											BINT(1L));
									}
							}
						}
						if (BgL_test2403z00_5164)
							{	/* Match/compiler.scm 490 */
								obj_t BgL_arg1755z00_1976;

								{	/* Match/compiler.scm 490 */
									obj_t BgL_arg1756z00_1977;
									obj_t BgL_arg1757z00_1978;

									{	/* Match/compiler.scm 490 */
										obj_t BgL_arg1758z00_1979;

										{	/* Match/compiler.scm 490 */
											obj_t BgL_arg1759z00_1980;

											{	/* Match/compiler.scm 490 */
												obj_t BgL_arg1760z00_1981;

												{	/* Match/compiler.scm 490 */
													obj_t BgL_arg1761z00_1982;

													BgL_arg1761z00_1982 =
														MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
													BgL_arg1760z00_1981 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2258z00zz__match_compilerz00,
														BgL_arg1761z00_1982);
												}
												BgL_arg1759z00_1980 =
													MAKE_YOUNG_PAIR(BgL_arg1760z00_1981, BNIL);
											}
											BgL_arg1758z00_1979 =
												MAKE_YOUNG_PAIR(BgL_za2cdrza2z00_195,
												BgL_arg1759z00_1980);
										}
										BgL_arg1756z00_1977 =
											MAKE_YOUNG_PAIR(BgL_arg1758z00_1979, BNIL);
									}
									{	/* Match/compiler.scm 491 */
										obj_t BgL_arg1762z00_1983;

										{	/* Match/compiler.scm 491 */
											obj_t BgL_arg1763z00_1984;

											{	/* Match/compiler.scm 491 */
												obj_t BgL_arg1765z00_1985;

												BgL_arg1765z00_1985 =
													MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
												BgL_arg1763z00_1984 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2256z00zz__match_compilerz00,
													BgL_arg1765z00_1985);
											}
											BgL_arg1762z00_1983 =
												BGl_unfoldz00zz__match_compilerz00(BgL_za2carza2z00_194,
												BgL_arg1763z00_1984, BgL_bodyz00_197);
										}
										BgL_arg1757z00_1978 =
											MAKE_YOUNG_PAIR(BgL_arg1762z00_1983, BNIL);
									}
									BgL_arg1755z00_1976 =
										MAKE_YOUNG_PAIR(BgL_arg1756z00_1977, BgL_arg1757z00_1978);
								}
								return
									MAKE_YOUNG_PAIR(BGl_symbol2233z00zz__match_compilerz00,
									BgL_arg1755z00_1976);
							}
						else
							{	/* Match/compiler.scm 492 */
								obj_t BgL_arg1766z00_1986;
								obj_t BgL_arg1767z00_1987;

								{	/* Match/compiler.scm 492 */
									obj_t BgL_arg1768z00_1988;

									BgL_arg1768z00_1988 = MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
									BgL_arg1766z00_1986 =
										MAKE_YOUNG_PAIR(BGl_symbol2258z00zz__match_compilerz00,
										BgL_arg1768z00_1988);
								}
								{	/* Match/compiler.scm 493 */
									obj_t BgL_arg1769z00_1989;

									{	/* Match/compiler.scm 493 */
										obj_t BgL_arg1770z00_1990;

										BgL_arg1770z00_1990 = MAKE_YOUNG_PAIR(BgL_ez00_196, BNIL);
										BgL_arg1769z00_1989 =
											MAKE_YOUNG_PAIR(BGl_symbol2256z00zz__match_compilerz00,
											BgL_arg1770z00_1990);
									}
									BgL_arg1767z00_1987 =
										BGl_unfoldz00zz__match_compilerz00(BgL_za2carza2z00_194,
										BgL_arg1769z00_1989, BgL_bodyz00_197);
								}
								return
									BGl_unfoldz00zz__match_compilerz00(BgL_za2cdrza2z00_195,
									BgL_arg1766z00_1986, BgL_arg1767z00_1987);
							}
					}
			}
		}

	}



/* unfold */
	obj_t BGl_unfoldz00zz__match_compilerz00(obj_t BgL_sz00_198,
		obj_t BgL_vz00_199, obj_t BgL_ez00_200)
	{
		{	/* Match/compiler.scm 498 */
			if (NULLP(BgL_ez00_200))
				{	/* Match/compiler.scm 499 */
					return BNIL;
				}
			else
				{	/* Match/compiler.scm 499 */
					if (CBOOL(BGl_atomzf3zf3zz__match_s2cfunz00(BgL_ez00_200)))
						{	/* Match/compiler.scm 501 */
							if ((BgL_ez00_200 == BgL_sz00_198))
								{	/* Match/compiler.scm 502 */
									return BgL_vz00_199;
								}
							else
								{	/* Match/compiler.scm 502 */
									return BgL_ez00_200;
								}
						}
					else
						{	/* Match/compiler.scm 501 */
							if (PAIRP(BgL_ez00_200))
								{	/* Match/compiler.scm 503 */
									if (
										(CAR(BgL_ez00_200) ==
											BGl_symbol2167z00zz__match_compilerz00))
										{	/* Match/compiler.scm 504 */
											return BgL_ez00_200;
										}
									else
										{	/* Match/compiler.scm 506 */
											obj_t BgL_fz00_2002;
											obj_t BgL_argsz00_2003;

											BgL_fz00_2002 = CAR(BgL_ez00_200);
											BgL_argsz00_2003 = CDR(BgL_ez00_200);
											return
												MAKE_YOUNG_PAIR(BGl_unfoldz00zz__match_compilerz00
												(BgL_sz00_198, BgL_vz00_199, BgL_fz00_2002),
												BGl_unfoldz00zz__match_compilerz00(BgL_sz00_198,
													BgL_vz00_199, BgL_argsz00_2003));
										}
								}
							else
								{	/* Match/compiler.scm 503 */
									return BFALSE;
								}
						}
				}
		}

	}



/* integers */
	obj_t BGl_integersz00zz__match_compilerz00(long BgL_fromz00_201,
		long BgL_toz00_202)
	{
		{	/* Match/compiler.scm 509 */
			if ((BgL_fromz00_201 > BgL_toz00_202))
				{	/* Match/compiler.scm 510 */
					return BNIL;
				}
			else
				{	/* Match/compiler.scm 510 */
					return
						MAKE_YOUNG_PAIR(BINT(BgL_fromz00_201),
						BGl_integersz00zz__match_compilerz00(
							(BgL_fromz00_201 + 1L), BgL_toz00_202));
				}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__match_compilerz00(void)
	{
		{	/* Match/compiler.scm 26 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2260z00zz__match_compilerz00));
			BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(509060701L,
				BSTRING_TO_STRING(BGl_string2260z00zz__match_compilerz00));
			BGl_modulezd2initializa7ationz75zz__match_descriptionsz00(232414635L,
				BSTRING_TO_STRING(BGl_string2260z00zz__match_compilerz00));
			return
				BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2260z00zz__match_compilerz00));
		}

	}

#ifdef __cplusplus
}
#endif
