/*===========================================================================*/
/*   (Match/descr.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Match/descr.scm -indent -o objs/obj_u/Match/descr.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_DESCRIPTIONS_TYPE_DEFINITIONS
#define BGL___MATCH_DESCRIPTIONS_TYPE_DEFINITIONS
#endif													// BGL___MATCH_DESCRIPTIONS_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_compatiblezf3zf3zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t BGl_z62patternzd2cdrzb0zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2minuszd2zz__match_descriptionsz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_alphazd2convertzd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isOrzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_unionz00zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62isVarzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__match_descriptionsz00 =
		BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_isVectorzd2endzf3z21zz__match_descriptionsz00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31669ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_morezd2precisezf3z21zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31630ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62g1050z62zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62g1051z62zz__match_descriptionsz00(obj_t, obj_t, obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__match_descriptionsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_z62isAnyzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static bool_t BGl_mayzd2bezd2azd2conszd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62containsHolezf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_matchz00zz__match_descriptionsz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isVectorzf3zf3zz__match_descriptionsz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isAndzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isQuotezf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31623ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_symbol2200z00zz__match_descriptionsz00 = BUNSPEC;
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_symbol2202z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_normz00zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_symbol2204z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2206z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2208z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2210z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2212z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2214z00zz__match_descriptionsz00 = BUNSPEC;
	extern obj_t BGl_jimzd2gensymzd2zz__match_s2cfunz00;
	BGL_EXPORTED_DECL obj_t BGl_patternzd2carzd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_symbol2219z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_vectorzd2pluszd2zz__match_descriptionsz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62patternzd2variableszb0zz__match_descriptionsz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isAConszf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isTopzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_patternzd2minuszd2zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t BGl_z62isVectorzd2endzf3z43zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__match_descriptionsz00(void);
	static obj_t BGl_symbol2221z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_isTimeszf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__match_descriptionsz00(void);
	static obj_t BGl_symbol2224z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2226z00zz__match_descriptionsz00 = BUNSPEC;
	extern long bgl_list_length(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32174ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32175ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32176ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32177ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32178ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32179ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__match_descriptionsz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__match_descriptionsz00(void);
	static obj_t BGl_z62morezd2precisezf3z43zz__match_descriptionsz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__match_descriptionsz00(void);
	static obj_t BGl_symbol2231z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2233z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32180ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze32181ze5zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2236z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_isVarzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_comparez00zz__match_descriptionsz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31724ze3ze5zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62isNotzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isCheckzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_symbol2243z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2245z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_patternzd2cdrzd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62compatiblezf3z91zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_extendzd2vectorzd2zz__match_descriptionsz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_list2218z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31660ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31652ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31490ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isSuccesszf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62isBottomzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62loopz62zz__match_descriptionsz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isAnyzf3zf3zz__match_descriptionsz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_patternzd2variableszd2zz__match_descriptionsz00(obj_t);
	static obj_t BGl_list2223z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_isXConszf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62patternzd2minuszb0zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isTzd2Orzf3z21zz__match_descriptionsz00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_rewritezd2notzd2zz__match_descriptionsz00(obj_t);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_symbol2182z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_z62isTzd2Orzf3z43zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_symbol2184z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2186z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2189z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_list2238z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_isTreezf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_list2239z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_z62isTreezf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31727ze3ze5zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62isSuccesszf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__match_descriptionsz00(void);
	static obj_t BGl_symbol2191z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2194z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2196z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_symbol2198z00zz__match_descriptionsz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_isTopzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isAConszf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62isTimeszf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_loopze70ze7zz__match_descriptionsz00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31511ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31503ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62extendzd2vectorzb0zz__match_descriptionsz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isBottomzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isTaggedzd2Orzf3z43zz__match_descriptionsz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isOrzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62patternzd2carzb0zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isQuotezf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62vectorzd2pluszb0zz__match_descriptionsz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isNotzf3zf3zz__match_descriptionsz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isConszf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_list2188z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_z62isConszf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62isAndzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62patternzd2pluszb0zz__match_descriptionsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62isCheckzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_isVectorzd2beginzf3z21zz__match_descriptionsz00(obj_t);
	static obj_t BGl_rewritezd2andzd2zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62isVectorzd2beginzf3z43zz__match_descriptionsz00(obj_t,
		obj_t);
	static obj_t BGl_list2193z00zz__match_descriptionsz00 = BUNSPEC;
	static obj_t BGl_z62vectorzd2minuszb0zz__match_descriptionsz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_isTaggedzd2Orzf3z21zz__match_descriptionsz00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31488ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	extern obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_isHolezf3zf3zz__match_descriptionsz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_containsHolezf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isHolezf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t BGl_z62isXConszf3z91zz__match_descriptionsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_patternzd2pluszd2zz__match_descriptionsz00(obj_t,
		obj_t);
	static bool_t BGl_isNegationzf3zf3zz__match_descriptionsz00(obj_t);
	static obj_t BGl_z62isVectorzf3z91zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31489ze3ze5zz__match_descriptionsz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string2201z00zz__match_descriptionsz00,
		BgL_bgl_string2201za700za7za7_2248za7, "vector-begin", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isXConszf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isxconsza7f3za7912249za7,
		BGl_z62isXConszf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2203z00zz__match_descriptionsz00,
		BgL_bgl_string2203za700za7za7_2250za7, "vector-end", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isQuotezf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isquoteza7f3za7912251za7,
		BGl_z62isQuotezf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2205z00zz__match_descriptionsz00,
		BgL_bgl_string2205za700za7za7_2252za7, "struct-pat", 10);
	      BGL_DEFINE_STRING(BGl_string2207z00zz__match_descriptionsz00,
		BgL_bgl_string2207za700za7za7_2253za7, "any", 3);
	      BGL_DEFINE_STRING(BGl_string2209z00zz__match_descriptionsz00,
		BgL_bgl_string2209za700za7za7_2254za7, "check", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isAConszf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isaconsza7f3za7912255za7,
		BGl_z62isAConszf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_patternzd2minuszd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762patternza7d2min2256z00,
		BGl_z62patternzd2minuszb0zz__match_descriptionsz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2211z00zz__match_descriptionsz00,
		BgL_bgl_string2211za700za7za7_2257za7, "foo", 3);
	      BGL_DEFINE_STRING(BGl_string2213z00zz__match_descriptionsz00,
		BgL_bgl_string2213za700za7za7_2258za7, "bottom", 6);
	      BGL_DEFINE_STRING(BGl_string2215z00zz__match_descriptionsz00,
		BgL_bgl_string2215za700za7za7_2259za7, "not", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isTaggedzd2Orzf3zd2envzf3zz__match_descriptionsz00,
		BgL_bgl_za762istaggedza7d2or2260z00,
		BGl_z62isTaggedzd2Orzf3z43zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2220z00zz__match_descriptionsz00,
		BgL_bgl_string2220za700za7za7_2261za7, "success", 7);
	      BGL_DEFINE_STRING(BGl_string2222z00zz__match_descriptionsz00,
		BgL_bgl_string2222za700za7za7_2262za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2225z00zz__match_descriptionsz00,
		BgL_bgl_string2225za700za7za7_2263za7, "acons", 5);
	      BGL_DEFINE_STRING(BGl_string2227z00zz__match_descriptionsz00,
		BgL_bgl_string2227za700za7za7_2264za7, "xcons", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isTopzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762istopza7f3za791za7za72265za7,
		BGl_z62isTopzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2232z00zz__match_descriptionsz00,
		BgL_bgl_string2232za700za7za7_2266za7, "unbound", 7);
	      BGL_DEFINE_STRING(BGl_string2234z00zz__match_descriptionsz00,
		BgL_bgl_string2234za700za7za7_2267za7, "tagged-or", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2228z00zz__match_descriptionsz00,
		BgL_bgl_za762za7c3za704anonymo2268za7,
		BGl_z62zc3z04anonymousza31488ze3ze5zz__match_descriptionsz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2235z00zz__match_descriptionsz00,
		BgL_bgl_string2235za700za7za7_2269za7, "VAR-", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2229z00zz__match_descriptionsz00,
		BgL_bgl_za762za7c3za704anonymo2270za7,
		BGl_z62zc3z04anonymousza31489ze3ze5zz__match_descriptionsz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2237z00zz__match_descriptionsz00,
		BgL_bgl_string2237za700za7za7_2271za7, "vector", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isAnyzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isanyza7f3za791za7za72272za7,
		BGl_z62isAnyzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2pluszd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762vectorza7d2plus2273z00,
		BGl_z62vectorzd2pluszb0zz__match_descriptionsz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2230z00zz__match_descriptionsz00,
		BgL_bgl_za762za7c3za704anonymo2274za7,
		BGl_z62zc3z04anonymousza31490ze3ze5zz__match_descriptionsz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2242z00zz__match_descriptionsz00,
		BgL_bgl_string2242za700za7za7_2275za7, "ALPHA-", 6);
	      BGL_DEFINE_STRING(BGl_string2244z00zz__match_descriptionsz00,
		BgL_bgl_string2244za700za7za7_2276za7, "top", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isConszf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isconsza7f3za791za72277z00,
		BGl_z62isConszf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2246z00zz__match_descriptionsz00,
		BgL_bgl_string2246za700za7za7_2278za7, "hole", 4);
	      BGL_DEFINE_STRING(BGl_string2247z00zz__match_descriptionsz00,
		BgL_bgl_string2247za700za7za7_2279za7, "__match_descriptions", 20);
	      BGL_DEFINE_L_PROCEDURE(BGl_proc2240z00zz__match_descriptionsz00,
		BgL_bgl_za762g1051za762za7za7__m2280z00,
		BGl_z62g1051z62zz__match_descriptionsz00);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2241z00zz__match_descriptionsz00,
		BgL_bgl_za762g1050za762za7za7__m2281z00,
		BGl_z62g1050z62zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isTreezf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762istreeza7f3za791za72282z00,
		BGl_z62isTreezf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isVarzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isvarza7f3za791za7za72283za7,
		BGl_z62isVarzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_containsHolezf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762containsholeza72284z00,
		BGl_z62containsHolezf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2183z00zz__match_descriptionsz00,
		BgL_bgl_string2183za700za7za7_2285za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string2185z00zz__match_descriptionsz00,
		BgL_bgl_string2185za700za7za7_2286za7, "t-or", 4);
	      BGL_DEFINE_STRING(BGl_string2187z00zz__match_descriptionsz00,
		BgL_bgl_string2187za700za7za7_2287za7, "and", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_patternzd2cdrzd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762patternza7d2cdr2288z00,
		BGl_z62patternzd2cdrzb0zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_extendzd2vectorzd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762extendza7d2vect2289z00,
		BGl_z62extendzd2vectorzb0zz__match_descriptionsz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2190z00zz__match_descriptionsz00,
		BgL_bgl_string2190za700za7za7_2290za7, "cons", 4);
	      BGL_DEFINE_STRING(BGl_string2192z00zz__match_descriptionsz00,
		BgL_bgl_string2192za700za7za7_2291za7, "vector-cons", 11);
	      BGL_DEFINE_STRING(BGl_string2195z00zz__match_descriptionsz00,
		BgL_bgl_string2195za700za7za7_2292za7, "tree", 4);
	      BGL_DEFINE_STRING(BGl_string2197z00zz__match_descriptionsz00,
		BgL_bgl_string2197za700za7za7_2293za7, "times", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isSuccesszf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762issuccessza7f3za72294za7,
		BGl_z62isSuccesszf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2199z00zz__match_descriptionsz00,
		BgL_bgl_string2199za700za7za7_2295za7, "var", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_patternzd2carzd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762patternza7d2car2296z00,
		BGl_z62patternzd2carzb0zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_patternzd2variableszd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762patternza7d2var2297z00,
		BGl_z62patternzd2variableszb0zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isVectorzd2endzf3zd2envzf3zz__match_descriptionsz00,
		BgL_bgl_za762isvectorza7d2en2298z00,
		BGl_z62isVectorzd2endzf3z43zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isTimeszf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762istimesza7f3za7912299za7,
		BGl_z62isTimeszf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_morezd2precisezf3zd2envzf3zz__match_descriptionsz00,
		BgL_bgl_za762moreza7d2precis2300z00,
		BGl_z62morezd2precisezf3z43zz__match_descriptionsz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isHolezf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isholeza7f3za791za72301z00,
		BGl_z62isHolezf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isVectorzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isvectorza7f3za792302za7,
		BGl_z62isVectorzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isAndzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isandza7f3za791za7za72303za7,
		BGl_z62isAndzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_patternzd2pluszd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762patternza7d2plu2304z00,
		BGl_z62patternzd2pluszb0zz__match_descriptionsz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isCheckzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762ischeckza7f3za7912305za7,
		BGl_z62isCheckzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_compatiblezf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762compatibleza7f32306z00,
		BGl_z62compatiblezf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isBottomzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isbottomza7f3za792307za7,
		BGl_z62isBottomzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isOrzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isorza7f3za791za7za7_2308za7,
		BGl_z62isOrzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_isNotzf3zd2envz21zz__match_descriptionsz00,
		BgL_bgl_za762isnotza7f3za791za7za72309za7,
		BGl_z62isNotzf3z91zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isTzd2Orzf3zd2envzf3zz__match_descriptionsz00,
		BgL_bgl_za762istza7d2orza7f3za742310z00,
		BGl_z62isTzd2Orzf3z43zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_isVectorzd2beginzf3zd2envzf3zz__match_descriptionsz00,
		BgL_bgl_za762isvectorza7d2be2311z00,
		BGl_z62isVectorzd2beginzf3z43zz__match_descriptionsz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_vectorzd2minuszd2envz00zz__match_descriptionsz00,
		BgL_bgl_za762vectorza7d2minu2312z00,
		BGl_z62vectorzd2minuszb0zz__match_descriptionsz00, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_vectorzd2minuszd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762vectorza7d2minu2312z00);
		BGL_BIND_PROCEDURE
			(BGl_isVectorzd2beginzf3zd2envzf3zz__match_descriptionsz00,
			BgL_bgl_za762isvectorza7d2be2311z00);
		BGL_BIND_PROCEDURE(BGl_isTzd2Orzf3zd2envzf3zz__match_descriptionsz00,
			BgL_bgl_za762istza7d2orza7f3za742310z00);
		BGL_BIND_PROCEDURE(BGl_isNotzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isnotza7f3za791za7za72309za7);
		BGL_BIND_PROCEDURE(BGl_isOrzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isorza7f3za791za7za7_2308za7);
		BGL_BIND_PROCEDURE(BGl_isBottomzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isbottomza7f3za792307za7);
		BGL_BIND_PROCEDURE(BGl_compatiblezf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762compatibleza7f32306z00);
		BGL_BIND_PROCEDURE(BGl_isCheckzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762ischeckza7f3za7912305za7);
		BGL_BIND_PROCEDURE(BGl_patternzd2pluszd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762patternza7d2plu2304z00);
		BGL_BIND_PROCEDURE(BGl_isAndzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isandza7f3za791za7za72303za7);
		BGL_BIND_PROCEDURE(BGl_isVectorzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isvectorza7f3za792302za7);
		BGL_BIND_PROCEDURE(BGl_isHolezf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isholeza7f3za791za72301z00);
		BGL_BIND_PROCEDURE(BGl_morezd2precisezf3zd2envzf3zz__match_descriptionsz00,
			BgL_bgl_za762moreza7d2precis2300z00);
		BGL_BIND_PROCEDURE(BGl_isTimeszf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762istimesza7f3za7912299za7);
		BGL_BIND_PROCEDURE(BGl_isVectorzd2endzf3zd2envzf3zz__match_descriptionsz00,
			BgL_bgl_za762isvectorza7d2en2298z00);
		BGL_BIND_PROCEDURE
			(BGl_patternzd2variableszd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762patternza7d2var2297z00);
		BGL_BIND_PROCEDURE(BGl_patternzd2carzd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762patternza7d2car2296z00);
		BGL_BIND_STRING(BGl_string2199z00zz__match_descriptionsz00,
			BgL_bgl_string2199za700za7za7_2295za7);
		BGL_BIND_PROCEDURE(BGl_isSuccesszf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762issuccessza7f3za72294za7);
		BGL_BIND_STRING(BGl_string2197z00zz__match_descriptionsz00,
			BgL_bgl_string2197za700za7za7_2293za7);
		BGL_BIND_STRING(BGl_string2195z00zz__match_descriptionsz00,
			BgL_bgl_string2195za700za7za7_2292za7);
		BGL_BIND_STRING(BGl_string2192z00zz__match_descriptionsz00,
			BgL_bgl_string2192za700za7za7_2291za7);
		BGL_BIND_STRING(BGl_string2190z00zz__match_descriptionsz00,
			BgL_bgl_string2190za700za7za7_2290za7);
		BGL_BIND_PROCEDURE(BGl_extendzd2vectorzd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762extendza7d2vect2289z00);
		BGL_BIND_PROCEDURE(BGl_patternzd2cdrzd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762patternza7d2cdr2288z00);
		BGL_BIND_STRING(BGl_string2187z00zz__match_descriptionsz00,
			BgL_bgl_string2187za700za7za7_2287za7);
		BGL_BIND_STRING(BGl_string2185z00zz__match_descriptionsz00,
			BgL_bgl_string2185za700za7za7_2286za7);
		BGL_BIND_STRING(BGl_string2183z00zz__match_descriptionsz00,
			BgL_bgl_string2183za700za7za7_2285za7);
		BGL_BIND_PROCEDURE(BGl_containsHolezf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762containsholeza72284z00);
		BGL_BIND_PROCEDURE(BGl_isVarzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isvarza7f3za791za7za72283za7);
		BGL_BIND_PROCEDURE(BGl_isTreezf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762istreeza7f3za791za72282z00);
		BGL_BIND_PROCEDURE(BGl_proc2241z00zz__match_descriptionsz00,
			BgL_bgl_za762g1050za762za7za7__m2281z00);
		BGL_BIND_L_PROCEDURE(BGl_proc2240z00zz__match_descriptionsz00,
			BgL_bgl_za762g1051za762za7za7__m2280z00);
		BGL_BIND_STRING(BGl_string2247z00zz__match_descriptionsz00,
			BgL_bgl_string2247za700za7za7_2279za7);
		BGL_BIND_STRING(BGl_string2246z00zz__match_descriptionsz00,
			BgL_bgl_string2246za700za7za7_2278za7);
		BGL_BIND_PROCEDURE(BGl_isConszf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isconsza7f3za791za72277z00);
		BGL_BIND_STRING(BGl_string2244z00zz__match_descriptionsz00,
			BgL_bgl_string2244za700za7za7_2276za7);
		BGL_BIND_STRING(BGl_string2242z00zz__match_descriptionsz00,
			BgL_bgl_string2242za700za7za7_2275za7);
		BGL_BIND_PROCEDURE(BGl_proc2230z00zz__match_descriptionsz00,
			BgL_bgl_za762za7c3za704anonymo2274za7);
		BGL_BIND_PROCEDURE(BGl_vectorzd2pluszd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762vectorza7d2plus2273z00);
		BGL_BIND_PROCEDURE(BGl_isAnyzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isanyza7f3za791za7za72272za7);
		BGL_BIND_STRING(BGl_string2237z00zz__match_descriptionsz00,
			BgL_bgl_string2237za700za7za7_2271za7);
		BGL_BIND_PROCEDURE(BGl_proc2229z00zz__match_descriptionsz00,
			BgL_bgl_za762za7c3za704anonymo2270za7);
		BGL_BIND_STRING(BGl_string2235z00zz__match_descriptionsz00,
			BgL_bgl_string2235za700za7za7_2269za7);
		BGL_BIND_PROCEDURE(BGl_proc2228z00zz__match_descriptionsz00,
			BgL_bgl_za762za7c3za704anonymo2268za7);
		BGL_BIND_STRING(BGl_string2234z00zz__match_descriptionsz00,
			BgL_bgl_string2234za700za7za7_2267za7);
		BGL_BIND_STRING(BGl_string2232z00zz__match_descriptionsz00,
			BgL_bgl_string2232za700za7za7_2266za7);
		BGL_BIND_PROCEDURE(BGl_isTopzf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762istopza7f3za791za7za72265za7);
		BGL_BIND_STRING(BGl_string2227z00zz__match_descriptionsz00,
			BgL_bgl_string2227za700za7za7_2264za7);
		BGL_BIND_STRING(BGl_string2225z00zz__match_descriptionsz00,
			BgL_bgl_string2225za700za7za7_2263za7);
		BGL_BIND_STRING(BGl_string2222z00zz__match_descriptionsz00,
			BgL_bgl_string2222za700za7za7_2262za7);
		BGL_BIND_STRING(BGl_string2220z00zz__match_descriptionsz00,
			BgL_bgl_string2220za700za7za7_2261za7);
		BGL_BIND_PROCEDURE(BGl_isTaggedzd2Orzf3zd2envzf3zz__match_descriptionsz00,
			BgL_bgl_za762istaggedza7d2or2260z00);
		BGL_BIND_STRING(BGl_string2215z00zz__match_descriptionsz00,
			BgL_bgl_string2215za700za7za7_2259za7);
		BGL_BIND_STRING(BGl_string2213z00zz__match_descriptionsz00,
			BgL_bgl_string2213za700za7za7_2258za7);
		BGL_BIND_STRING(BGl_string2211z00zz__match_descriptionsz00,
			BgL_bgl_string2211za700za7za7_2257za7);
		BGL_BIND_PROCEDURE(BGl_patternzd2minuszd2envz00zz__match_descriptionsz00,
			BgL_bgl_za762patternza7d2min2256z00);
		BGL_BIND_PROCEDURE(BGl_isAConszf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isaconsza7f3za7912255za7);
		BGL_BIND_STRING(BGl_string2209z00zz__match_descriptionsz00,
			BgL_bgl_string2209za700za7za7_2254za7);
		BGL_BIND_STRING(BGl_string2207z00zz__match_descriptionsz00,
			BgL_bgl_string2207za700za7za7_2253za7);
		BGL_BIND_STRING(BGl_string2205z00zz__match_descriptionsz00,
			BgL_bgl_string2205za700za7za7_2252za7);
		BGL_BIND_PROCEDURE(BGl_isQuotezf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isquoteza7f3za7912251za7);
		BGL_BIND_STRING(BGl_string2203z00zz__match_descriptionsz00,
			BgL_bgl_string2203za700za7za7_2250za7);
		BGL_BIND_PROCEDURE(BGl_isXConszf3zd2envz21zz__match_descriptionsz00,
			BgL_bgl_za762isxconsza7f3za7912249za7);
		BGL_BIND_STRING(BGl_string2201z00zz__match_descriptionsz00,
			BgL_bgl_string2201za700za7za7_2248za7);
	}

/* 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_requirezd2initializa7ationz75zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2200z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2202z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2204z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2206z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2208z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2210z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2212z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2214z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2219z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2221z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2224z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2226z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2231z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2233z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2236z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2243z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2245z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_list2218z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_list2223z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2182z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2184z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2186z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2189z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_list2238z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_list2239z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2191z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2194z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2196z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_symbol2198z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_list2188z00zz__match_descriptionsz00));
		ADD_ROOT((void *) (&BGl_list2193z00zz__match_descriptionsz00));
#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_descriptionsz00(long
		BgL_checksumz00_3627, char *BgL_fromz00_3628)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__match_descriptionsz00))
				{
					BGl_requirezd2initializa7ationz75zz__match_descriptionsz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__match_descriptionsz00();
					BGl_cnstzd2initzd2zz__match_descriptionsz00();
					BGl_importedzd2moduleszd2initz00zz__match_descriptionsz00();
					return BGl_methodzd2initzd2zz__match_descriptionsz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__match_descriptionsz00(void)
	{
		{	/* Match/descr.scm 12 */
			BGl_symbol2182z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2183z00zz__match_descriptionsz00);
			BGl_symbol2184z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2185z00zz__match_descriptionsz00);
			BGl_symbol2186z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2187z00zz__match_descriptionsz00);
			BGl_symbol2189z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2190z00zz__match_descriptionsz00);
			BGl_symbol2191z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2192z00zz__match_descriptionsz00);
			BGl_list2188z00zz__match_descriptionsz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2189z00zz__match_descriptionsz00,
				MAKE_YOUNG_PAIR(BGl_symbol2191z00zz__match_descriptionsz00, BNIL));
			BGl_symbol2194z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2195z00zz__match_descriptionsz00);
			BGl_symbol2196z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2197z00zz__match_descriptionsz00);
			BGl_list2193z00zz__match_descriptionsz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2194z00zz__match_descriptionsz00,
				MAKE_YOUNG_PAIR(BGl_symbol2196z00zz__match_descriptionsz00, BNIL));
			BGl_symbol2198z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2199z00zz__match_descriptionsz00);
			BGl_symbol2200z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2201z00zz__match_descriptionsz00);
			BGl_symbol2202z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2203z00zz__match_descriptionsz00);
			BGl_symbol2204z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2205z00zz__match_descriptionsz00);
			BGl_symbol2206z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2207z00zz__match_descriptionsz00);
			BGl_symbol2208z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2209z00zz__match_descriptionsz00);
			BGl_symbol2210z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2211z00zz__match_descriptionsz00);
			BGl_symbol2212z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2213z00zz__match_descriptionsz00);
			BGl_symbol2214z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2215z00zz__match_descriptionsz00);
			BGl_list2218z00zz__match_descriptionsz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2206z00zz__match_descriptionsz00, BNIL);
			BGl_symbol2219z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2220z00zz__match_descriptionsz00);
			BGl_symbol2221z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2222z00zz__match_descriptionsz00);
			BGl_symbol2224z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2225z00zz__match_descriptionsz00);
			BGl_symbol2226z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2227z00zz__match_descriptionsz00);
			BGl_list2223z00zz__match_descriptionsz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2189z00zz__match_descriptionsz00,
				MAKE_YOUNG_PAIR(BGl_symbol2224z00zz__match_descriptionsz00,
					MAKE_YOUNG_PAIR(BGl_symbol2226z00zz__match_descriptionsz00, BNIL)));
			BGl_symbol2231z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2232z00zz__match_descriptionsz00);
			BGl_symbol2233z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2234z00zz__match_descriptionsz00);
			BGl_symbol2236z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2237z00zz__match_descriptionsz00);
			BGl_list2239z00zz__match_descriptionsz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2189z00zz__match_descriptionsz00,
				MAKE_YOUNG_PAIR(BGl_list2218z00zz__match_descriptionsz00,
					MAKE_YOUNG_PAIR(BGl_list2218z00zz__match_descriptionsz00, BNIL)));
			BGl_list2238z00zz__match_descriptionsz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2214z00zz__match_descriptionsz00,
				MAKE_YOUNG_PAIR(BGl_list2239z00zz__match_descriptionsz00, BNIL));
			BGl_symbol2243z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2244z00zz__match_descriptionsz00);
			return (BGl_symbol2245z00zz__match_descriptionsz00 =
				bstring_to_symbol(BGl_string2246z00zz__match_descriptionsz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__match_descriptionsz00(void)
	{
		{	/* Match/descr.scm 12 */
			return bgl_gc_roots_register();
		}

	}



/* pattern-variables */
	BGL_EXPORTED_DEF obj_t
		BGl_patternzd2variableszd2zz__match_descriptionsz00(obj_t BgL_fz00_3)
	{
		{	/* Match/descr.scm 83 */
		BGl_patternzd2variableszd2zz__match_descriptionsz00:
			if (
				(CAR(
						((obj_t) BgL_fz00_3)) ==
					BGl_symbol2182z00zz__match_descriptionsz00))
				{	/* Match/descr.scm 86 */
					obj_t BgL_arg1206z00_1264;

					{	/* Match/descr.scm 86 */
						obj_t BgL_pairz00_2254;

						BgL_pairz00_2254 = CDR(((obj_t) BgL_fz00_3));
						BgL_arg1206z00_1264 = CAR(BgL_pairz00_2254);
					}
					{
						obj_t BgL_fz00_3683;

						BgL_fz00_3683 = BgL_arg1206z00_1264;
						BgL_fz00_3 = BgL_fz00_3683;
						goto BGl_patternzd2variableszd2zz__match_descriptionsz00;
					}
				}
			else
				{	/* Match/descr.scm 85 */
					if (
						(CAR(
								((obj_t) BgL_fz00_3)) ==
							BGl_symbol2184z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 88 */
							obj_t BgL_arg1211z00_1267;

							{	/* Match/descr.scm 88 */
								obj_t BgL_pairz00_2259;

								BgL_pairz00_2259 = CDR(((obj_t) BgL_fz00_3));
								BgL_arg1211z00_1267 = CAR(BgL_pairz00_2259);
							}
							{
								obj_t BgL_fz00_3691;

								BgL_fz00_3691 = BgL_arg1211z00_1267;
								BgL_fz00_3 = BgL_fz00_3691;
								goto BGl_patternzd2variableszd2zz__match_descriptionsz00;
							}
						}
					else
						{	/* Match/descr.scm 87 */
							if (
								(CAR(
										((obj_t) BgL_fz00_3)) ==
									BGl_symbol2186z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 90 */
									obj_t BgL_arg1215z00_1270;
									obj_t BgL_arg1216z00_1271;

									{	/* Match/descr.scm 90 */
										obj_t BgL_arg1217z00_1272;

										{	/* Match/descr.scm 90 */
											obj_t BgL_pairz00_2264;

											BgL_pairz00_2264 = CDR(((obj_t) BgL_fz00_3));
											BgL_arg1217z00_1272 = CAR(BgL_pairz00_2264);
										}
										BgL_arg1215z00_1270 =
											BGl_patternzd2variableszd2zz__match_descriptionsz00
											(BgL_arg1217z00_1272);
									}
									{	/* Match/descr.scm 90 */
										obj_t BgL_arg1219z00_1273;

										{	/* Match/descr.scm 90 */
											obj_t BgL_pairz00_2270;

											{	/* Match/descr.scm 90 */
												obj_t BgL_pairz00_2269;

												BgL_pairz00_2269 = CDR(((obj_t) BgL_fz00_3));
												BgL_pairz00_2270 = CDR(BgL_pairz00_2269);
											}
											BgL_arg1219z00_1273 = CAR(BgL_pairz00_2270);
										}
										BgL_arg1216z00_1271 =
											BGl_patternzd2variableszd2zz__match_descriptionsz00
											(BgL_arg1219z00_1273);
									}
									return
										BGl_unionz00zz__match_descriptionsz00(BgL_arg1215z00_1270,
										BgL_arg1216z00_1271);
								}
							else
								{	/* Match/descr.scm 89 */
									if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
													((obj_t) BgL_fz00_3)),
												BGl_list2188z00zz__match_descriptionsz00)))
										{	/* Match/descr.scm 92 */
											obj_t BgL_arg1226z00_1276;
											obj_t BgL_arg1230z00_1277;

											{	/* Match/descr.scm 92 */
												obj_t BgL_arg1231z00_1278;

												{	/* Match/descr.scm 92 */
													obj_t BgL_pairz00_2275;

													BgL_pairz00_2275 = CDR(((obj_t) BgL_fz00_3));
													BgL_arg1231z00_1278 = CAR(BgL_pairz00_2275);
												}
												BgL_arg1226z00_1276 =
													BGl_patternzd2variableszd2zz__match_descriptionsz00
													(BgL_arg1231z00_1278);
											}
											{	/* Match/descr.scm 92 */
												obj_t BgL_arg1232z00_1279;

												{	/* Match/descr.scm 92 */
													obj_t BgL_pairz00_2281;

													{	/* Match/descr.scm 92 */
														obj_t BgL_pairz00_2280;

														BgL_pairz00_2280 = CDR(((obj_t) BgL_fz00_3));
														BgL_pairz00_2281 = CDR(BgL_pairz00_2280);
													}
													BgL_arg1232z00_1279 = CAR(BgL_pairz00_2281);
												}
												BgL_arg1230z00_1277 =
													BGl_patternzd2variableszd2zz__match_descriptionsz00
													(BgL_arg1232z00_1279);
											}
											return
												BGl_unionz00zz__match_descriptionsz00
												(BgL_arg1226z00_1276, BgL_arg1230z00_1277);
										}
									else
										{	/* Match/descr.scm 91 */
											if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(CAR(
															((obj_t) BgL_fz00_3)),
														BGl_list2193z00zz__match_descriptionsz00)))
												{	/* Match/descr.scm 94 */
													obj_t BgL_arg1236z00_1282;
													obj_t BgL_arg1239z00_1283;

													{	/* Match/descr.scm 94 */
														obj_t BgL_arg1241z00_1284;

														{	/* Match/descr.scm 94 */
															obj_t BgL_pairz00_2288;

															{	/* Match/descr.scm 94 */
																obj_t BgL_pairz00_2287;

																BgL_pairz00_2287 = CDR(((obj_t) BgL_fz00_3));
																BgL_pairz00_2288 = CDR(BgL_pairz00_2287);
															}
															BgL_arg1241z00_1284 = CAR(BgL_pairz00_2288);
														}
														BgL_arg1236z00_1282 =
															BGl_patternzd2variableszd2zz__match_descriptionsz00
															(BgL_arg1241z00_1284);
													}
													{	/* Match/descr.scm 94 */
														obj_t BgL_arg1242z00_1285;

														{	/* Match/descr.scm 94 */
															obj_t BgL_pairz00_2296;

															{	/* Match/descr.scm 94 */
																obj_t BgL_pairz00_2295;

																{	/* Match/descr.scm 94 */
																	obj_t BgL_pairz00_2294;

																	BgL_pairz00_2294 = CDR(((obj_t) BgL_fz00_3));
																	BgL_pairz00_2295 = CDR(BgL_pairz00_2294);
																}
																BgL_pairz00_2296 = CDR(BgL_pairz00_2295);
															}
															BgL_arg1242z00_1285 = CAR(BgL_pairz00_2296);
														}
														BgL_arg1239z00_1283 =
															BGl_patternzd2variableszd2zz__match_descriptionsz00
															(BgL_arg1242z00_1285);
													}
													return
														BGl_unionz00zz__match_descriptionsz00
														(BgL_arg1236z00_1282, BgL_arg1239z00_1283);
												}
											else
												{	/* Match/descr.scm 93 */
													if (
														(CAR(
																((obj_t) BgL_fz00_3)) ==
															BGl_symbol2198z00zz__match_descriptionsz00))
														{	/* Match/descr.scm 95 */
															return CDR(((obj_t) BgL_fz00_3));
														}
													else
														{	/* Match/descr.scm 95 */
															if (
																(CAR(
																		((obj_t) BgL_fz00_3)) ==
																	BGl_symbol2200z00zz__match_descriptionsz00))
																{	/* Match/descr.scm 98 */
																	obj_t BgL_arg1254z00_1290;

																	{	/* Match/descr.scm 98 */
																		obj_t BgL_pairz00_2305;

																		{	/* Match/descr.scm 98 */
																			obj_t BgL_pairz00_2304;

																			BgL_pairz00_2304 =
																				CDR(((obj_t) BgL_fz00_3));
																			BgL_pairz00_2305 = CDR(BgL_pairz00_2304);
																		}
																		BgL_arg1254z00_1290 = CAR(BgL_pairz00_2305);
																	}
																	{
																		obj_t BgL_fz00_3752;

																		BgL_fz00_3752 = BgL_arg1254z00_1290;
																		BgL_fz00_3 = BgL_fz00_3752;
																		goto
																			BGl_patternzd2variableszd2zz__match_descriptionsz00;
																	}
																}
															else
																{	/* Match/descr.scm 97 */
																	if (
																		(CAR(
																				((obj_t) BgL_fz00_3)) ==
																			BGl_symbol2202z00zz__match_descriptionsz00))
																		{	/* Match/descr.scm 99 */
																			return BNIL;
																		}
																	else
																		{	/* Match/descr.scm 99 */
																			if (
																				(CAR(
																						((obj_t) BgL_fz00_3)) ==
																					BGl_symbol2204z00zz__match_descriptionsz00))
																				{	/* Match/descr.scm 109 */
																					obj_t BgL_g1039z00_1295;

																					{	/* Match/descr.scm 109 */
																						obj_t BgL_pairz00_2313;

																						{	/* Match/descr.scm 109 */
																							obj_t BgL_pairz00_2312;

																							BgL_pairz00_2312 =
																								CDR(((obj_t) BgL_fz00_3));
																							BgL_pairz00_2313 =
																								CDR(BgL_pairz00_2312);
																						}
																						BgL_g1039z00_1295 =
																							CDR(BgL_pairz00_2313);
																					}
																					BGL_TAIL return
																						BGl_loopze70ze7zz__match_descriptionsz00
																						(BgL_g1039z00_1295);
																				}
																			else
																				{	/* Match/descr.scm 101 */
																					return BNIL;
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__match_descriptionsz00(obj_t BgL_pza2za2_1297)
	{
		{	/* Match/descr.scm 109 */
			if (NULLP(BgL_pza2za2_1297))
				{	/* Match/descr.scm 110 */
					return BNIL;
				}
			else
				{	/* Match/descr.scm 112 */
					obj_t BgL_arg1265z00_1300;
					obj_t BgL_arg1266z00_1301;

					{	/* Match/descr.scm 112 */
						obj_t BgL_arg1267z00_1302;

						BgL_arg1267z00_1302 = CAR(((obj_t) BgL_pza2za2_1297));
						BgL_arg1265z00_1300 =
							BGl_patternzd2variableszd2zz__match_descriptionsz00
							(BgL_arg1267z00_1302);
					}
					{	/* Match/descr.scm 113 */
						obj_t BgL_arg1269z00_1303;

						BgL_arg1269z00_1303 = CDR(((obj_t) BgL_pza2za2_1297));
						BgL_arg1266z00_1301 =
							BGl_loopze70ze7zz__match_descriptionsz00(BgL_arg1269z00_1303);
					}
					return
						BGl_unionz00zz__match_descriptionsz00(BgL_arg1265z00_1300,
						BgL_arg1266z00_1301);
				}
		}

	}



/* &pattern-variables */
	obj_t BGl_z62patternzd2variableszb0zz__match_descriptionsz00(obj_t
		BgL_envz00_3364, obj_t BgL_fz00_3365)
	{
		{	/* Match/descr.scm 83 */
			return BGl_patternzd2variableszd2zz__match_descriptionsz00(BgL_fz00_3365);
		}

	}



/* union */
	obj_t BGl_unionz00zz__match_descriptionsz00(obj_t BgL_l1z00_4,
		obj_t BgL_l2z00_5)
	{
		{	/* Match/descr.scm 117 */
		BGl_unionz00zz__match_descriptionsz00:
			if (NULLP(BgL_l1z00_4))
				{	/* Match/descr.scm 118 */
					return BgL_l2z00_5;
				}
			else
				{	/* Match/descr.scm 118 */
					if (CBOOL(BGl_memberz00zz__r4_pairs_and_lists_6_3z00(CAR(
									((obj_t) BgL_l1z00_4)), BgL_l2z00_5)))
						{	/* Match/descr.scm 120 */
							obj_t BgL_arg1287z00_1317;

							BgL_arg1287z00_1317 = CDR(((obj_t) BgL_l1z00_4));
							{
								obj_t BgL_l1z00_3785;

								BgL_l1z00_3785 = BgL_arg1287z00_1317;
								BgL_l1z00_4 = BgL_l1z00_3785;
								goto BGl_unionz00zz__match_descriptionsz00;
							}
						}
					else
						{	/* Match/descr.scm 121 */
							obj_t BgL_arg1291z00_1318;
							obj_t BgL_arg1292z00_1319;

							BgL_arg1291z00_1318 = CAR(((obj_t) BgL_l1z00_4));
							{	/* Match/descr.scm 121 */
								obj_t BgL_arg1293z00_1320;

								BgL_arg1293z00_1320 = CDR(((obj_t) BgL_l1z00_4));
								BgL_arg1292z00_1319 =
									BGl_unionz00zz__match_descriptionsz00(BgL_arg1293z00_1320,
									BgL_l2z00_5);
							}
							return MAKE_YOUNG_PAIR(BgL_arg1291z00_1318, BgL_arg1292z00_1319);
						}
				}
		}

	}



/* pattern-plus */
	BGL_EXPORTED_DEF obj_t BGl_patternzd2pluszd2zz__match_descriptionsz00(obj_t
		BgL_oldz00_9, obj_t BgL_newz00_10)
	{
		{	/* Match/descr.scm 143 */
			{	/* Match/descr.scm 144 */
				bool_t BgL_test2326z00_3792;

				if (
					(CAR(
							((obj_t) BgL_newz00_10)) ==
						BGl_symbol2194z00zz__match_descriptionsz00))
					{	/* Match/descr.scm 144 */
						BgL_test2326z00_3792 = ((bool_t) 1);
					}
				else
					{	/* Match/descr.scm 144 */
						BgL_test2326z00_3792 =
							(CAR(
								((obj_t) BgL_newz00_10)) ==
							BGl_symbol2196z00zz__match_descriptionsz00);
					}
				if (BgL_test2326z00_3792)
					{	/* Match/descr.scm 144 */
						return BgL_oldz00_9;
					}
				else
					{	/* Match/descr.scm 147 */
						bool_t BgL_test2328z00_3800;

						if (
							(CAR(
									((obj_t) BgL_oldz00_9)) ==
								BGl_symbol2206z00zz__match_descriptionsz00))
							{	/* Match/descr.scm 502 */
								BgL_test2328z00_3800 = ((bool_t) 1);
							}
						else
							{	/* Match/descr.scm 502 */
								BgL_test2328z00_3800 =
									(CAR(
										((obj_t) BgL_oldz00_9)) ==
									BGl_symbol2208z00zz__match_descriptionsz00);
							}
						if (BgL_test2328z00_3800)
							{	/* Match/descr.scm 147 */
								return BgL_newz00_10;
							}
						else
							{	/* Match/descr.scm 149 */
								bool_t BgL_test2330z00_3808;

								if (
									(CAR(
											((obj_t) BgL_newz00_10)) ==
										BGl_symbol2206z00zz__match_descriptionsz00))
									{	/* Match/descr.scm 502 */
										BgL_test2330z00_3808 = ((bool_t) 1);
									}
								else
									{	/* Match/descr.scm 502 */
										BgL_test2330z00_3808 =
											(CAR(
												((obj_t) BgL_newz00_10)) ==
											BGl_symbol2208z00zz__match_descriptionsz00);
									}
								if (BgL_test2330z00_3808)
									{	/* Match/descr.scm 149 */
										return BgL_oldz00_9;
									}
								else
									{	/* Match/descr.scm 149 */
										if (BGl_isNegationzf3zf3zz__match_descriptionsz00
											(BgL_oldz00_9))
											{	/* Match/descr.scm 151 */
												BGL_TAIL return
													BGl_normz00zz__match_descriptionsz00(BgL_newz00_10,
													BGl_symbol2210z00zz__match_descriptionsz00);
											}
										else
											{	/* Match/descr.scm 153 */
												obj_t BgL_arg1322z00_1329;

												if (
													(CAR(
															((obj_t) BgL_newz00_10)) ==
														BGl_symbol2198z00zz__match_descriptionsz00))
													{	/* Match/descr.scm 154 */
														obj_t BgL_list1324z00_1331;

														{	/* Match/descr.scm 154 */
															obj_t BgL_arg1329z00_1332;

															{	/* Match/descr.scm 154 */
																obj_t BgL_arg1330z00_1333;

																BgL_arg1330z00_1333 =
																	MAKE_YOUNG_PAIR(BgL_oldz00_9, BNIL);
																BgL_arg1329z00_1332 =
																	MAKE_YOUNG_PAIR(BgL_newz00_10,
																	BgL_arg1330z00_1333);
															}
															BgL_list1324z00_1331 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2186z00zz__match_descriptionsz00,
																BgL_arg1329z00_1332);
														}
														BgL_arg1322z00_1329 = BgL_list1324z00_1331;
													}
												else
													{	/* Match/descr.scm 155 */
														obj_t BgL_list1331z00_1334;

														{	/* Match/descr.scm 155 */
															obj_t BgL_arg1332z00_1335;

															{	/* Match/descr.scm 155 */
																obj_t BgL_arg1333z00_1336;

																BgL_arg1333z00_1336 =
																	MAKE_YOUNG_PAIR(BgL_newz00_10, BNIL);
																BgL_arg1332z00_1335 =
																	MAKE_YOUNG_PAIR(BgL_oldz00_9,
																	BgL_arg1333z00_1336);
															}
															BgL_list1331z00_1334 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2186z00zz__match_descriptionsz00,
																BgL_arg1332z00_1335);
														}
														BgL_arg1322z00_1329 = BgL_list1331z00_1334;
													}
												BGL_TAIL return
													BGl_normz00zz__match_descriptionsz00
													(BgL_arg1322z00_1329,
													BGl_symbol2210z00zz__match_descriptionsz00);
											}
									}
							}
					}
			}
		}

	}



/* &pattern-plus */
	obj_t BGl_z62patternzd2pluszb0zz__match_descriptionsz00(obj_t BgL_envz00_3366,
		obj_t BgL_oldz00_3367, obj_t BgL_newz00_3368)
	{
		{	/* Match/descr.scm 143 */
			return
				BGl_patternzd2pluszd2zz__match_descriptionsz00(BgL_oldz00_3367,
				BgL_newz00_3368);
		}

	}



/* pattern-minus */
	BGL_EXPORTED_DEF obj_t BGl_patternzd2minuszd2zz__match_descriptionsz00(obj_t
		BgL_p1z00_11, obj_t BgL_p2z00_12)
	{
		{	/* Match/descr.scm 157 */
			{	/* Match/descr.scm 158 */
				bool_t BgL_test2334z00_3831;

				{	/* Match/descr.scm 158 */
					bool_t BgL_test2335z00_3832;

					if (BGl_isNegationzf3zf3zz__match_descriptionsz00(BgL_p1z00_11))
						{	/* Match/descr.scm 158 */
							BgL_test2335z00_3832 = ((bool_t) 1);
						}
					else
						{	/* Match/descr.scm 159 */
							bool_t BgL_test2337z00_3835;

							if (
								(CAR(
										((obj_t) BgL_p1z00_11)) ==
									BGl_symbol2206z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 502 */
									BgL_test2337z00_3835 = ((bool_t) 1);
								}
							else
								{	/* Match/descr.scm 502 */
									BgL_test2337z00_3835 =
										(CAR(
											((obj_t) BgL_p1z00_11)) ==
										BGl_symbol2208z00zz__match_descriptionsz00);
								}
							if (BgL_test2337z00_3835)
								{	/* Match/descr.scm 159 */
									BgL_test2335z00_3832 = ((bool_t) 1);
								}
							else
								{	/* Match/descr.scm 159 */
									BgL_test2335z00_3832 =
										(CAR(
											((obj_t) BgL_p1z00_11)) ==
										BGl_symbol2212z00zz__match_descriptionsz00);
								}
						}
					if (BgL_test2335z00_3832)
						{	/* Match/descr.scm 158 */
							if (
								(CAR(
										((obj_t) BgL_p2z00_12)) ==
									BGl_symbol2196z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 161 */
									BgL_test2334z00_3831 = ((bool_t) 1);
								}
							else
								{	/* Match/descr.scm 161 */
									BgL_test2334z00_3831 =
										(CAR(
											((obj_t) BgL_p2z00_12)) ==
										BGl_symbol2194z00zz__match_descriptionsz00);
								}
						}
					else
						{	/* Match/descr.scm 158 */
							BgL_test2334z00_3831 = ((bool_t) 1);
						}
				}
				if (BgL_test2334z00_3831)
					{	/* Match/descr.scm 158 */
						return BgL_p1z00_11;
					}
				else
					{	/* Match/descr.scm 164 */
						bool_t BgL_test2340z00_3853;

						if (
							(CAR(
									((obj_t) BgL_p1z00_11)) ==
								BGl_symbol2206z00zz__match_descriptionsz00))
							{	/* Match/descr.scm 502 */
								BgL_test2340z00_3853 = ((bool_t) 1);
							}
						else
							{	/* Match/descr.scm 502 */
								BgL_test2340z00_3853 =
									(CAR(
										((obj_t) BgL_p1z00_11)) ==
									BGl_symbol2208z00zz__match_descriptionsz00);
							}
						if (BgL_test2340z00_3853)
							{	/* Match/descr.scm 165 */
								obj_t BgL_list1340z00_1346;

								{	/* Match/descr.scm 165 */
									obj_t BgL_arg1341z00_1347;

									BgL_arg1341z00_1347 = MAKE_YOUNG_PAIR(BgL_p2z00_12, BNIL);
									BgL_list1340z00_1346 =
										MAKE_YOUNG_PAIR(BGl_symbol2214z00zz__match_descriptionsz00,
										BgL_arg1341z00_1347);
								}
								return BgL_list1340z00_1346;
							}
						else
							{	/* Match/descr.scm 166 */
								obj_t BgL_arg1342z00_1348;

								{	/* Match/descr.scm 166 */
									obj_t BgL_arg1343z00_1349;

									{	/* Match/descr.scm 166 */
										obj_t BgL_list1347z00_1353;

										{	/* Match/descr.scm 166 */
											obj_t BgL_arg1349z00_1354;

											BgL_arg1349z00_1354 = MAKE_YOUNG_PAIR(BgL_p2z00_12, BNIL);
											BgL_list1347z00_1353 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2214z00zz__match_descriptionsz00,
												BgL_arg1349z00_1354);
										}
										BgL_arg1343z00_1349 = BgL_list1347z00_1353;
									}
									{	/* Match/descr.scm 166 */
										obj_t BgL_list1344z00_1350;

										{	/* Match/descr.scm 166 */
											obj_t BgL_arg1345z00_1351;

											{	/* Match/descr.scm 166 */
												obj_t BgL_arg1346z00_1352;

												BgL_arg1346z00_1352 =
													MAKE_YOUNG_PAIR(BgL_arg1343z00_1349, BNIL);
												BgL_arg1345z00_1351 =
													MAKE_YOUNG_PAIR(BgL_p1z00_11, BgL_arg1346z00_1352);
											}
											BgL_list1344z00_1350 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2186z00zz__match_descriptionsz00,
												BgL_arg1345z00_1351);
										}
										BgL_arg1342z00_1348 = BgL_list1344z00_1350;
									}
								}
								BGL_TAIL return
									BGl_normz00zz__match_descriptionsz00(BgL_arg1342z00_1348,
									BGl_symbol2210z00zz__match_descriptionsz00);
							}
					}
			}
		}

	}



/* &pattern-minus */
	obj_t BGl_z62patternzd2minuszb0zz__match_descriptionsz00(obj_t
		BgL_envz00_3369, obj_t BgL_p1z00_3370, obj_t BgL_p2z00_3371)
	{
		{	/* Match/descr.scm 157 */
			return
				BGl_patternzd2minuszd2zz__match_descriptionsz00(BgL_p1z00_3370,
				BgL_p2z00_3371);
		}

	}



/* isNegation? */
	bool_t BGl_isNegationzf3zf3zz__match_descriptionsz00(obj_t BgL_cz00_13)
	{
		{	/* Match/descr.scm 172 */
			{	/* Match/descr.scm 173 */
				bool_t BgL__ortest_1040z00_1359;

				if (
					(CAR(
							((obj_t) BgL_cz00_13)) ==
						BGl_symbol2186z00zz__match_descriptionsz00))
					{	/* Match/descr.scm 174 */
						obj_t BgL_arg1352z00_1362;

						{	/* Match/descr.scm 174 */
							obj_t BgL_pairz00_2363;

							BgL_pairz00_2363 = CDR(((obj_t) BgL_cz00_13));
							BgL_arg1352z00_1362 = CAR(BgL_pairz00_2363);
						}
						BgL__ortest_1040z00_1359 =
							BGl_isNegationzf3zf3zz__match_descriptionsz00
							(BgL_arg1352z00_1362);
					}
				else
					{	/* Match/descr.scm 173 */
						BgL__ortest_1040z00_1359 = ((bool_t) 0);
					}
				if (BgL__ortest_1040z00_1359)
					{	/* Match/descr.scm 173 */
						return BgL__ortest_1040z00_1359;
					}
				else
					{	/* Match/descr.scm 173 */
						return
							(CAR(
								((obj_t) BgL_cz00_13)) ==
							BGl_symbol2214z00zz__match_descriptionsz00);
					}
			}
		}

	}



/* pattern-car */
	BGL_EXPORTED_DEF obj_t BGl_patternzd2carzd2zz__match_descriptionsz00(obj_t
		BgL_cz00_14)
	{
		{	/* Match/descr.scm 177 */
			if (
				(CAR(
						((obj_t) BgL_cz00_14)) ==
					BGl_symbol2189z00zz__match_descriptionsz00))
				{	/* Match/descr.scm 179 */
					obj_t BgL_pairz00_2371;

					BgL_pairz00_2371 = CDR(((obj_t) BgL_cz00_14));
					return CAR(BgL_pairz00_2371);
				}
			else
				{	/* Match/descr.scm 178 */
					return BGl_list2218z00zz__match_descriptionsz00;
				}
		}

	}



/* &pattern-car */
	obj_t BGl_z62patternzd2carzb0zz__match_descriptionsz00(obj_t BgL_envz00_3372,
		obj_t BgL_cz00_3373)
	{
		{	/* Match/descr.scm 177 */
			return BGl_patternzd2carzd2zz__match_descriptionsz00(BgL_cz00_3373);
		}

	}



/* pattern-cdr */
	BGL_EXPORTED_DEF obj_t BGl_patternzd2cdrzd2zz__match_descriptionsz00(obj_t
		BgL_cz00_15)
	{
		{	/* Match/descr.scm 182 */
			if (
				(CAR(
						((obj_t) BgL_cz00_15)) ==
					BGl_symbol2189z00zz__match_descriptionsz00))
				{	/* Match/descr.scm 184 */
					obj_t BgL_pairz00_2380;

					{	/* Match/descr.scm 184 */
						obj_t BgL_pairz00_2379;

						BgL_pairz00_2379 = CDR(((obj_t) BgL_cz00_15));
						BgL_pairz00_2380 = CDR(BgL_pairz00_2379);
					}
					return CAR(BgL_pairz00_2380);
				}
			else
				{	/* Match/descr.scm 183 */
					return BGl_list2218z00zz__match_descriptionsz00;
				}
		}

	}



/* &pattern-cdr */
	obj_t BGl_z62patternzd2cdrzb0zz__match_descriptionsz00(obj_t BgL_envz00_3374,
		obj_t BgL_cz00_3375)
	{
		{	/* Match/descr.scm 182 */
			return BGl_patternzd2cdrzd2zz__match_descriptionsz00(BgL_cz00_3375);
		}

	}



/* norm */
	obj_t BGl_normz00zz__match_descriptionsz00(obj_t BgL_cz00_17,
		obj_t BgL_ancz00_18)
	{
		{	/* Match/descr.scm 212 */
		BGl_normz00zz__match_descriptionsz00:
			if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_ancz00_18, BgL_cz00_17))
				{	/* Match/descr.scm 215 */
					return BgL_ancz00_18;
				}
			else
				{	/* Match/descr.scm 215 */
					if (
						(CAR(
								((obj_t) BgL_cz00_17)) ==
							BGl_symbol2214z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 216 */
							obj_t BgL_arg1364z00_1373;

							{	/* Match/descr.scm 216 */
								obj_t BgL_pairz00_2385;

								BgL_pairz00_2385 = CDR(((obj_t) BgL_cz00_17));
								BgL_arg1364z00_1373 = CAR(BgL_pairz00_2385);
							}
							{	/* Match/descr.scm 222 */
								obj_t BgL_arg1377z00_2386;
								obj_t BgL_arg1378z00_2387;

								BgL_arg1377z00_2386 =
									BGl_rewritezd2notzd2zz__match_descriptionsz00
									(BgL_arg1364z00_1373);
								{	/* Match/descr.scm 222 */
									obj_t BgL_list1379z00_2388;

									{	/* Match/descr.scm 222 */
										obj_t BgL_arg1380z00_2389;

										BgL_arg1380z00_2389 =
											MAKE_YOUNG_PAIR(BgL_arg1364z00_1373, BNIL);
										BgL_list1379z00_2388 =
											MAKE_YOUNG_PAIR
											(BGl_symbol2214z00zz__match_descriptionsz00,
											BgL_arg1380z00_2389);
									}
									BgL_arg1378z00_2387 = BgL_list1379z00_2388;
								}
								{
									obj_t BgL_ancz00_3912;
									obj_t BgL_cz00_3911;

									BgL_cz00_3911 = BgL_arg1377z00_2386;
									BgL_ancz00_3912 = BgL_arg1378z00_2387;
									BgL_ancz00_18 = BgL_ancz00_3912;
									BgL_cz00_17 = BgL_cz00_3911;
									goto BGl_normz00zz__match_descriptionsz00;
								}
							}
						}
					else
						{	/* Match/descr.scm 216 */
							if (
								(CAR(
										((obj_t) BgL_cz00_17)) ==
									BGl_symbol2186z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 217 */
									obj_t BgL_arg1367z00_1376;
									obj_t BgL_arg1368z00_1377;

									{	/* Match/descr.scm 217 */
										obj_t BgL_pairz00_2395;

										BgL_pairz00_2395 = CDR(((obj_t) BgL_cz00_17));
										BgL_arg1367z00_1376 = CAR(BgL_pairz00_2395);
									}
									{	/* Match/descr.scm 217 */
										obj_t BgL_pairz00_2401;

										{	/* Match/descr.scm 217 */
											obj_t BgL_pairz00_2400;

											BgL_pairz00_2400 = CDR(((obj_t) BgL_cz00_17));
											BgL_pairz00_2401 = CDR(BgL_pairz00_2400);
										}
										BgL_arg1368z00_1377 = CAR(BgL_pairz00_2401);
									}
									{	/* Match/descr.scm 232 */
										obj_t BgL_arg1387z00_2402;
										obj_t BgL_arg1388z00_2403;

										BgL_arg1387z00_2402 =
											BGl_rewritezd2andzd2zz__match_descriptionsz00
											(BgL_arg1367z00_1376, BgL_arg1368z00_1377);
										{	/* Match/descr.scm 232 */
											obj_t BgL_list1389z00_2404;

											{	/* Match/descr.scm 232 */
												obj_t BgL_arg1390z00_2405;

												{	/* Match/descr.scm 232 */
													obj_t BgL_arg1391z00_2406;

													BgL_arg1391z00_2406 =
														MAKE_YOUNG_PAIR(BgL_arg1368z00_1377, BNIL);
													BgL_arg1390z00_2405 =
														MAKE_YOUNG_PAIR(BgL_arg1367z00_1376,
														BgL_arg1391z00_2406);
												}
												BgL_list1389z00_2404 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2186z00zz__match_descriptionsz00,
													BgL_arg1390z00_2405);
											}
											BgL_arg1388z00_2403 = BgL_list1389z00_2404;
										}
										{
											obj_t BgL_ancz00_3929;
											obj_t BgL_cz00_3928;

											BgL_cz00_3928 = BgL_arg1387z00_2402;
											BgL_ancz00_3929 = BgL_arg1388z00_2403;
											BgL_ancz00_18 = BgL_ancz00_3929;
											BgL_cz00_17 = BgL_cz00_3928;
											goto BGl_normz00zz__match_descriptionsz00;
										}
									}
								}
							else
								{	/* Match/descr.scm 217 */
									if (
										(CAR(
												((obj_t) BgL_cz00_17)) ==
											BGl_symbol2189z00zz__match_descriptionsz00))
										{	/* Match/descr.scm 218 */
											obj_t BgL_arg1371z00_1380;
											obj_t BgL_arg1372z00_1381;

											{	/* Match/descr.scm 218 */
												obj_t BgL_pairz00_2412;

												BgL_pairz00_2412 = CDR(((obj_t) BgL_cz00_17));
												BgL_arg1371z00_1380 = CAR(BgL_pairz00_2412);
											}
											{	/* Match/descr.scm 218 */
												obj_t BgL_pairz00_2418;

												{	/* Match/descr.scm 218 */
													obj_t BgL_pairz00_2417;

													BgL_pairz00_2417 = CDR(((obj_t) BgL_cz00_17));
													BgL_pairz00_2418 = CDR(BgL_pairz00_2417);
												}
												BgL_arg1372z00_1381 = CAR(BgL_pairz00_2418);
											}
											{	/* Match/descr.scm 251 */
												obj_t BgL_arg1434z00_2419;
												obj_t BgL_arg1435z00_2420;

												BgL_arg1434z00_2419 =
													BGl_normz00zz__match_descriptionsz00
													(BgL_arg1371z00_1380,
													BGl_symbol2210z00zz__match_descriptionsz00);
												BgL_arg1435z00_2420 =
													BGl_normz00zz__match_descriptionsz00
													(BgL_arg1372z00_1381,
													BGl_symbol2210z00zz__match_descriptionsz00);
												{	/* Match/descr.scm 251 */
													obj_t BgL_list1436z00_2421;

													{	/* Match/descr.scm 251 */
														obj_t BgL_arg1437z00_2422;

														{	/* Match/descr.scm 251 */
															obj_t BgL_arg1438z00_2423;

															BgL_arg1438z00_2423 =
																MAKE_YOUNG_PAIR(BgL_arg1435z00_2420, BNIL);
															BgL_arg1437z00_2422 =
																MAKE_YOUNG_PAIR(BgL_arg1434z00_2419,
																BgL_arg1438z00_2423);
														}
														BgL_list1436z00_2421 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2189z00zz__match_descriptionsz00,
															BgL_arg1437z00_2422);
													}
													return BgL_list1436z00_2421;
												}
											}
										}
									else
										{	/* Match/descr.scm 218 */
											return BgL_cz00_17;
										}
								}
						}
				}
		}

	}



/* rewrite-not */
	obj_t BGl_rewritezd2notzd2zz__match_descriptionsz00(obj_t BgL_cz00_20)
	{
		{	/* Match/descr.scm 224 */
			if (
				(CAR(
						((obj_t) BgL_cz00_20)) ==
					BGl_symbol2214z00zz__match_descriptionsz00))
				{	/* Match/descr.scm 227 */
					obj_t BgL_pairz00_2434;

					BgL_pairz00_2434 = CDR(((obj_t) BgL_cz00_20));
					return CAR(BgL_pairz00_2434);
				}
			else
				{	/* Match/descr.scm 228 */
					obj_t BgL_arg1383z00_1391;

					BgL_arg1383z00_1391 =
						BGl_normz00zz__match_descriptionsz00(BgL_cz00_20,
						BGl_symbol2210z00zz__match_descriptionsz00);
					{	/* Match/descr.scm 228 */
						obj_t BgL_list1384z00_1392;

						{	/* Match/descr.scm 228 */
							obj_t BgL_arg1385z00_1393;

							BgL_arg1385z00_1393 = MAKE_YOUNG_PAIR(BgL_arg1383z00_1391, BNIL);
							BgL_list1384z00_1392 =
								MAKE_YOUNG_PAIR(BGl_symbol2214z00zz__match_descriptionsz00,
								BgL_arg1385z00_1393);
						}
						return BgL_list1384z00_1392;
					}
				}
		}

	}



/* rewrite-and */
	obj_t BGl_rewritezd2andzd2zz__match_descriptionsz00(obj_t BgL_c1z00_23,
		obj_t BgL_c2z00_24)
	{
		{	/* Match/descr.scm 234 */
			if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_c1z00_23, BgL_c2z00_24))
				{	/* Match/descr.scm 236 */
					return BgL_c1z00_23;
				}
			else
				{	/* Match/descr.scm 236 */
					if (
						(CAR(
								((obj_t) BgL_c1z00_23)) ==
							BGl_symbol2186z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 239 */
							obj_t BgL_arg1397z00_1403;
							obj_t BgL_arg1398z00_1404;

							{	/* Match/descr.scm 239 */
								obj_t BgL_pairz00_2446;

								BgL_pairz00_2446 = CDR(((obj_t) BgL_c1z00_23));
								BgL_arg1397z00_1403 = CAR(BgL_pairz00_2446);
							}
							{	/* Match/descr.scm 241 */
								obj_t BgL_arg1402z00_1408;

								{	/* Match/descr.scm 241 */
									obj_t BgL_pairz00_2452;

									{	/* Match/descr.scm 241 */
										obj_t BgL_pairz00_2451;

										BgL_pairz00_2451 = CDR(((obj_t) BgL_c1z00_23));
										BgL_pairz00_2452 = CDR(BgL_pairz00_2451);
									}
									BgL_arg1402z00_1408 = CAR(BgL_pairz00_2452);
								}
								{	/* Match/descr.scm 240 */
									obj_t BgL_list1403z00_1409;

									{	/* Match/descr.scm 240 */
										obj_t BgL_arg1404z00_1410;

										{	/* Match/descr.scm 240 */
											obj_t BgL_arg1405z00_1411;

											BgL_arg1405z00_1411 = MAKE_YOUNG_PAIR(BgL_c2z00_24, BNIL);
											BgL_arg1404z00_1410 =
												MAKE_YOUNG_PAIR(BgL_arg1402z00_1408,
												BgL_arg1405z00_1411);
										}
										BgL_list1403z00_1409 =
											MAKE_YOUNG_PAIR
											(BGl_symbol2186z00zz__match_descriptionsz00,
											BgL_arg1404z00_1410);
									}
									BgL_arg1398z00_1404 = BgL_list1403z00_1409;
								}
							}
							{	/* Match/descr.scm 238 */
								obj_t BgL_list1399z00_1405;

								{	/* Match/descr.scm 238 */
									obj_t BgL_arg1400z00_1406;

									{	/* Match/descr.scm 238 */
										obj_t BgL_arg1401z00_1407;

										BgL_arg1401z00_1407 =
											MAKE_YOUNG_PAIR(BgL_arg1398z00_1404, BNIL);
										BgL_arg1400z00_1406 =
											MAKE_YOUNG_PAIR(BgL_arg1397z00_1403, BgL_arg1401z00_1407);
									}
									BgL_list1399z00_1405 =
										MAKE_YOUNG_PAIR(BGl_symbol2186z00zz__match_descriptionsz00,
										BgL_arg1400z00_1406);
								}
								return BgL_list1399z00_1405;
							}
						}
					else
						{	/* Match/descr.scm 243 */
							bool_t BgL_test2353z00_3975;

							if (
								(CAR(
										((obj_t) BgL_c1z00_23)) ==
									BGl_symbol2189z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 243 */
									BgL_test2353z00_3975 =
										(CAR(
											((obj_t) BgL_c2z00_24)) ==
										BGl_symbol2189z00zz__match_descriptionsz00);
								}
							else
								{	/* Match/descr.scm 243 */
									BgL_test2353z00_3975 = ((bool_t) 0);
								}
							if (BgL_test2353z00_3975)
								{	/* Match/descr.scm 246 */
									obj_t BgL_arg1412z00_1417;
									obj_t BgL_arg1413z00_1418;

									{	/* Match/descr.scm 246 */
										obj_t BgL_arg1417z00_1422;
										obj_t BgL_arg1419z00_1423;

										{	/* Match/descr.scm 246 */
											obj_t BgL_pairz00_2460;

											BgL_pairz00_2460 = CDR(((obj_t) BgL_c1z00_23));
											BgL_arg1417z00_1422 = CAR(BgL_pairz00_2460);
										}
										{	/* Match/descr.scm 246 */
											obj_t BgL_pairz00_2464;

											BgL_pairz00_2464 = CDR(((obj_t) BgL_c2z00_24));
											BgL_arg1419z00_1423 = CAR(BgL_pairz00_2464);
										}
										{	/* Match/descr.scm 246 */
											obj_t BgL_list1420z00_1424;

											{	/* Match/descr.scm 246 */
												obj_t BgL_arg1421z00_1425;

												{	/* Match/descr.scm 246 */
													obj_t BgL_arg1422z00_1426;

													BgL_arg1422z00_1426 =
														MAKE_YOUNG_PAIR(BgL_arg1419z00_1423, BNIL);
													BgL_arg1421z00_1425 =
														MAKE_YOUNG_PAIR(BgL_arg1417z00_1422,
														BgL_arg1422z00_1426);
												}
												BgL_list1420z00_1424 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2186z00zz__match_descriptionsz00,
													BgL_arg1421z00_1425);
											}
											BgL_arg1412z00_1417 = BgL_list1420z00_1424;
										}
									}
									{	/* Match/descr.scm 247 */
										obj_t BgL_arg1423z00_1427;
										obj_t BgL_arg1424z00_1428;

										{	/* Match/descr.scm 247 */
											obj_t BgL_pairz00_2471;

											{	/* Match/descr.scm 247 */
												obj_t BgL_pairz00_2470;

												BgL_pairz00_2470 = CDR(((obj_t) BgL_c1z00_23));
												BgL_pairz00_2471 = CDR(BgL_pairz00_2470);
											}
											BgL_arg1423z00_1427 = CAR(BgL_pairz00_2471);
										}
										{	/* Match/descr.scm 247 */
											obj_t BgL_pairz00_2477;

											{	/* Match/descr.scm 247 */
												obj_t BgL_pairz00_2476;

												BgL_pairz00_2476 = CDR(((obj_t) BgL_c2z00_24));
												BgL_pairz00_2477 = CDR(BgL_pairz00_2476);
											}
											BgL_arg1424z00_1428 = CAR(BgL_pairz00_2477);
										}
										{	/* Match/descr.scm 247 */
											obj_t BgL_list1425z00_1429;

											{	/* Match/descr.scm 247 */
												obj_t BgL_arg1426z00_1430;

												{	/* Match/descr.scm 247 */
													obj_t BgL_arg1427z00_1431;

													BgL_arg1427z00_1431 =
														MAKE_YOUNG_PAIR(BgL_arg1424z00_1428, BNIL);
													BgL_arg1426z00_1430 =
														MAKE_YOUNG_PAIR(BgL_arg1423z00_1427,
														BgL_arg1427z00_1431);
												}
												BgL_list1425z00_1429 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2186z00zz__match_descriptionsz00,
													BgL_arg1426z00_1430);
											}
											BgL_arg1413z00_1418 = BgL_list1425z00_1429;
										}
									}
									{	/* Match/descr.scm 245 */
										obj_t BgL_list1414z00_1419;

										{	/* Match/descr.scm 245 */
											obj_t BgL_arg1415z00_1420;

											{	/* Match/descr.scm 245 */
												obj_t BgL_arg1416z00_1421;

												BgL_arg1416z00_1421 =
													MAKE_YOUNG_PAIR(BgL_arg1413z00_1418, BNIL);
												BgL_arg1415z00_1420 =
													MAKE_YOUNG_PAIR(BgL_arg1412z00_1417,
													BgL_arg1416z00_1421);
											}
											BgL_list1414z00_1419 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2189z00zz__match_descriptionsz00,
												BgL_arg1415z00_1420);
										}
										return BgL_list1414z00_1419;
									}
								}
							else
								{	/* Match/descr.scm 248 */
									obj_t BgL_list1428z00_1432;

									{	/* Match/descr.scm 248 */
										obj_t BgL_arg1429z00_1433;

										{	/* Match/descr.scm 248 */
											obj_t BgL_arg1430z00_1434;

											BgL_arg1430z00_1434 = MAKE_YOUNG_PAIR(BgL_c2z00_24, BNIL);
											BgL_arg1429z00_1433 =
												MAKE_YOUNG_PAIR(BgL_c1z00_23, BgL_arg1430z00_1434);
										}
										BgL_list1428z00_1432 =
											MAKE_YOUNG_PAIR
											(BGl_symbol2186z00zz__match_descriptionsz00,
											BgL_arg1429z00_1433);
									}
									return BgL_list1428z00_1432;
								}
						}
				}
		}

	}



/* more-precise? */
	BGL_EXPORTED_DEF obj_t BGl_morezd2precisezf3z21zz__match_descriptionsz00(obj_t
		BgL_descrz00_27, obj_t BgL_fz00_28)
	{
		{	/* Match/descr.scm 263 */
		BGl_morezd2precisezf3z21zz__match_descriptionsz00:
			{	/* Match/descr.scm 265 */
				bool_t BgL_test2355z00_4009;

				if (
					(CAR(
							((obj_t) BgL_descrz00_27)) ==
						BGl_symbol2206z00zz__match_descriptionsz00))
					{	/* Match/descr.scm 502 */
						BgL_test2355z00_4009 = ((bool_t) 1);
					}
				else
					{	/* Match/descr.scm 502 */
						BgL_test2355z00_4009 =
							(CAR(
								((obj_t) BgL_descrz00_27)) ==
							BGl_symbol2208z00zz__match_descriptionsz00);
					}
				if (BgL_test2355z00_4009)
					{	/* Match/descr.scm 265 */
						return BFALSE;
					}
				else
					{	/* Match/descr.scm 265 */
						if (
							(CAR(
									((obj_t) BgL_fz00_28)) ==
								BGl_symbol2206z00zz__match_descriptionsz00))
							{	/* Match/descr.scm 267 */
								return BTRUE;
							}
						else
							{	/* Match/descr.scm 267 */
								if (
									(CAR(
											((obj_t) BgL_fz00_28)) ==
										BGl_symbol2219z00zz__match_descriptionsz00))
									{	/* Match/descr.scm 270 */
										return BFALSE;
									}
								else
									{	/* Match/descr.scm 270 */
										if (
											(CAR(
													((obj_t) BgL_fz00_28)) ==
												BGl_symbol2221z00zz__match_descriptionsz00))
											{	/* Match/descr.scm 273 */
												if (
													(CAR(
															((obj_t) BgL_descrz00_27)) ==
														BGl_symbol2221z00zz__match_descriptionsz00))
													{	/* Match/descr.scm 275 */
														bool_t BgL_tmpz00_4033;

														{	/* Match/descr.scm 275 */
															obj_t BgL_auxz00_4038;
															obj_t BgL_auxz00_4034;

															{	/* Match/descr.scm 275 */
																obj_t BgL_pairz00_2507;

																BgL_pairz00_2507 = CDR(((obj_t) BgL_fz00_28));
																BgL_auxz00_4038 = CAR(BgL_pairz00_2507);
															}
															{	/* Match/descr.scm 275 */
																obj_t BgL_pairz00_2503;

																BgL_pairz00_2503 =
																	CDR(((obj_t) BgL_descrz00_27));
																BgL_auxz00_4034 = CAR(BgL_pairz00_2503);
															}
															BgL_tmpz00_4033 =
																BGl_equalzf3zf3zz__r4_equivalence_6_2z00
																(BgL_auxz00_4034, BgL_auxz00_4038);
														}
														return BBOOL(BgL_tmpz00_4033);
													}
												else
													{	/* Match/descr.scm 274 */
														return BFALSE;
													}
											}
										else
											{	/* Match/descr.scm 273 */
												if (
													(CAR(
															((obj_t) BgL_fz00_28)) ==
														BGl_symbol2186z00zz__match_descriptionsz00))
													{	/* Match/descr.scm 278 */
														obj_t BgL__andtest_1043z00_1456;

														{	/* Match/descr.scm 278 */
															obj_t BgL_arg1455z00_1458;

															{	/* Match/descr.scm 278 */
																obj_t BgL_pairz00_2513;

																BgL_pairz00_2513 = CDR(((obj_t) BgL_fz00_28));
																BgL_arg1455z00_1458 = CAR(BgL_pairz00_2513);
															}
															BgL__andtest_1043z00_1456 =
																BGl_morezd2precisezf3z21zz__match_descriptionsz00
																(BgL_descrz00_27, BgL_arg1455z00_1458);
														}
														if (CBOOL(BgL__andtest_1043z00_1456))
															{	/* Match/descr.scm 279 */
																obj_t BgL_arg1453z00_1457;

																{	/* Match/descr.scm 279 */
																	obj_t BgL_pairz00_2519;

																	{	/* Match/descr.scm 279 */
																		obj_t BgL_pairz00_2518;

																		BgL_pairz00_2518 =
																			CDR(((obj_t) BgL_fz00_28));
																		BgL_pairz00_2519 = CDR(BgL_pairz00_2518);
																	}
																	BgL_arg1453z00_1457 = CAR(BgL_pairz00_2519);
																}
																{
																	obj_t BgL_fz00_4058;

																	BgL_fz00_4058 = BgL_arg1453z00_1457;
																	BgL_fz00_28 = BgL_fz00_4058;
																	goto
																		BGl_morezd2precisezf3z21zz__match_descriptionsz00;
																}
															}
														else
															{	/* Match/descr.scm 278 */
																return BFALSE;
															}
													}
												else
													{	/* Match/descr.scm 277 */
														if (
															(CAR(
																	((obj_t) BgL_fz00_28)) ==
																BGl_symbol2182z00zz__match_descriptionsz00))
															{	/* Match/descr.scm 282 */
																obj_t BgL__ortest_1044z00_1461;

																{	/* Match/descr.scm 282 */
																	obj_t BgL_arg1459z00_1463;

																	{	/* Match/descr.scm 282 */
																		obj_t BgL_pairz00_2525;

																		BgL_pairz00_2525 =
																			CDR(((obj_t) BgL_fz00_28));
																		BgL_arg1459z00_1463 = CAR(BgL_pairz00_2525);
																	}
																	BgL__ortest_1044z00_1461 =
																		BGl_morezd2precisezf3z21zz__match_descriptionsz00
																		(BgL_descrz00_27, BgL_arg1459z00_1463);
																}
																if (CBOOL(BgL__ortest_1044z00_1461))
																	{	/* Match/descr.scm 282 */
																		return BgL__ortest_1044z00_1461;
																	}
																else
																	{	/* Match/descr.scm 283 */
																		obj_t BgL_arg1458z00_1462;

																		{	/* Match/descr.scm 283 */
																			obj_t BgL_pairz00_2531;

																			{	/* Match/descr.scm 283 */
																				obj_t BgL_pairz00_2530;

																				BgL_pairz00_2530 =
																					CDR(((obj_t) BgL_fz00_28));
																				BgL_pairz00_2531 =
																					CDR(BgL_pairz00_2530);
																			}
																			BgL_arg1458z00_1462 =
																				CAR(BgL_pairz00_2531);
																		}
																		{
																			obj_t BgL_fz00_4073;

																			BgL_fz00_4073 = BgL_arg1458z00_1462;
																			BgL_fz00_28 = BgL_fz00_4073;
																			goto
																				BGl_morezd2precisezf3z21zz__match_descriptionsz00;
																		}
																	}
															}
														else
															{	/* Match/descr.scm 281 */
																if (
																	(CAR(
																			((obj_t) BgL_fz00_28)) ==
																		BGl_symbol2184z00zz__match_descriptionsz00))
																	{	/* Match/descr.scm 285 */
																		return BFALSE;
																	}
																else
																	{	/* Match/descr.scm 285 */
																		if (CBOOL
																			(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																				(CAR(((obj_t) BgL_fz00_28)),
																					BGl_list2223z00zz__match_descriptionsz00)))
																			{	/* Match/descr.scm 288 */
																				if (
																					(CAR(
																							((obj_t) BgL_descrz00_27)) ==
																						BGl_symbol2189z00zz__match_descriptionsz00))
																					{	/* Match/descr.scm 290 */
																						obj_t BgL__andtest_1046z00_1469;

																						{	/* Match/descr.scm 290 */
																							obj_t BgL_arg1466z00_1472;
																							obj_t BgL_arg1467z00_1473;

																							{	/* Match/descr.scm 290 */
																								obj_t BgL_pairz00_2540;

																								BgL_pairz00_2540 =
																									CDR(
																									((obj_t) BgL_descrz00_27));
																								BgL_arg1466z00_1472 =
																									CAR(BgL_pairz00_2540);
																							}
																							{	/* Match/descr.scm 290 */
																								obj_t BgL_pairz00_2544;

																								BgL_pairz00_2544 =
																									CDR(((obj_t) BgL_fz00_28));
																								BgL_arg1467z00_1473 =
																									CAR(BgL_pairz00_2544);
																							}
																							BgL__andtest_1046z00_1469 =
																								BGl_morezd2precisezf3z21zz__match_descriptionsz00
																								(BgL_arg1466z00_1472,
																								BgL_arg1467z00_1473);
																						}
																						if (CBOOL
																							(BgL__andtest_1046z00_1469))
																							{	/* Match/descr.scm 291 */
																								obj_t BgL_arg1464z00_1470;
																								obj_t BgL_arg1465z00_1471;

																								{	/* Match/descr.scm 291 */
																									obj_t BgL_pairz00_2550;

																									{	/* Match/descr.scm 291 */
																										obj_t BgL_pairz00_2549;

																										BgL_pairz00_2549 =
																											CDR(
																											((obj_t)
																												BgL_descrz00_27));
																										BgL_pairz00_2550 =
																											CDR(BgL_pairz00_2549);
																									}
																									BgL_arg1464z00_1470 =
																										CAR(BgL_pairz00_2550);
																								}
																								{	/* Match/descr.scm 291 */
																									obj_t BgL_pairz00_2556;

																									{	/* Match/descr.scm 291 */
																										obj_t BgL_pairz00_2555;

																										BgL_pairz00_2555 =
																											CDR(
																											((obj_t) BgL_fz00_28));
																										BgL_pairz00_2556 =
																											CDR(BgL_pairz00_2555);
																									}
																									BgL_arg1465z00_1471 =
																										CAR(BgL_pairz00_2556);
																								}
																								{
																									obj_t BgL_fz00_4105;
																									obj_t BgL_descrz00_4104;

																									BgL_descrz00_4104 =
																										BgL_arg1464z00_1470;
																									BgL_fz00_4105 =
																										BgL_arg1465z00_1471;
																									BgL_fz00_28 = BgL_fz00_4105;
																									BgL_descrz00_27 =
																										BgL_descrz00_4104;
																									goto
																										BGl_morezd2precisezf3z21zz__match_descriptionsz00;
																								}
																							}
																						else
																							{	/* Match/descr.scm 290 */
																								return BFALSE;
																							}
																					}
																				else
																					{	/* Match/descr.scm 289 */
																						return BFALSE;
																					}
																			}
																		else
																			{	/* Match/descr.scm 288 */
																				return BFALSE;
																			}
																	}
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* &more-precise? */
	obj_t BGl_z62morezd2precisezf3z43zz__match_descriptionsz00(obj_t
		BgL_envz00_3376, obj_t BgL_descrz00_3377, obj_t BgL_fz00_3378)
	{
		{	/* Match/descr.scm 263 */
			return
				BGl_morezd2precisezf3z21zz__match_descriptionsz00(BgL_descrz00_3377,
				BgL_fz00_3378);
		}

	}



/* compatible? */
	BGL_EXPORTED_DEF obj_t BGl_compatiblezf3zf3zz__match_descriptionsz00(obj_t
		BgL_descrz00_29, obj_t BgL_patternz00_30)
	{
		{	/* Match/descr.scm 315 */
			{	/* Match/descr.scm 316 */
				obj_t BgL_resz00_1484;

				if (
					(CAR(
							((obj_t) BgL_patternz00_30)) ==
						BGl_symbol2186z00zz__match_descriptionsz00))
					{	/* Match/descr.scm 319 */
						obj_t BgL__andtest_1047z00_1486;

						{	/* Match/descr.scm 319 */
							obj_t BgL_arg1482z00_1488;

							{	/* Match/descr.scm 319 */
								obj_t BgL_pairz00_2562;

								BgL_pairz00_2562 = CDR(((obj_t) BgL_patternz00_30));
								BgL_arg1482z00_1488 = CAR(BgL_pairz00_2562);
							}
							BgL__andtest_1047z00_1486 =
								BGl_compatiblezf3zf3zz__match_descriptionsz00(BgL_descrz00_29,
								BgL_arg1482z00_1488);
						}
						if (CBOOL(BgL__andtest_1047z00_1486))
							{	/* Match/descr.scm 320 */
								obj_t BgL_arg1481z00_1487;

								{	/* Match/descr.scm 320 */
									obj_t BgL_pairz00_2568;

									{	/* Match/descr.scm 320 */
										obj_t BgL_pairz00_2567;

										BgL_pairz00_2567 = CDR(((obj_t) BgL_patternz00_30));
										BgL_pairz00_2568 = CDR(BgL_pairz00_2567);
									}
									BgL_arg1481z00_1487 = CAR(BgL_pairz00_2568);
								}
								BgL_resz00_1484 =
									BGl_compatiblezf3zf3zz__match_descriptionsz00(BgL_descrz00_29,
									BgL_arg1481z00_1487);
							}
						else
							{	/* Match/descr.scm 319 */
								BgL_resz00_1484 = BFALSE;
							}
					}
				else
					{	/* Match/descr.scm 318 */
						BgL_resz00_1484 =
							BGl_comparez00zz__match_descriptionsz00(BgL_descrz00_29,
							BGl_alphazd2convertzd2zz__match_descriptionsz00
							(BgL_patternz00_30), BGl_proc2228z00zz__match_descriptionsz00,
							BGl_proc2229z00zz__match_descriptionsz00,
							BGl_proc2230z00zz__match_descriptionsz00);
					}
				return BgL_resz00_1484;
			}
		}

	}



/* &compatible? */
	obj_t BGl_z62compatiblezf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3382,
		obj_t BgL_descrz00_3383, obj_t BgL_patternz00_3384)
	{
		{	/* Match/descr.scm 315 */
			return
				BGl_compatiblezf3zf3zz__match_descriptionsz00(BgL_descrz00_3383,
				BgL_patternz00_3384);
		}

	}



/* &<@anonymous:1490> */
	obj_t BGl_z62zc3z04anonymousza31490ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3385, obj_t BgL_xz00_3386)
	{
		{	/* Match/descr.scm 326 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &<@anonymous:1489> */
	obj_t BGl_z62zc3z04anonymousza31489ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3387, obj_t BgL_xz00_3388)
	{
		{	/* Match/descr.scm 325 */
			return BBOOL(((bool_t) 1));
		}

	}



/* &<@anonymous:1488> */
	obj_t BGl_z62zc3z04anonymousza31488ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3389, obj_t BgL_xz00_3390)
	{
		{	/* Match/descr.scm 324 */
			return BGl_symbol2231z00zz__match_descriptionsz00;
		}

	}



/* compare */
	obj_t BGl_comparez00zz__match_descriptionsz00(obj_t BgL_descrz00_31,
		obj_t BgL_patz00_32, obj_t BgL_envz00_33, obj_t BgL_kz00_34,
		obj_t BgL_za7za7_35)
	{
		{	/* Match/descr.scm 343 */
		BGl_comparez00zz__match_descriptionsz00:
			{	/* Match/descr.scm 346 */
				bool_t BgL_test2371z00_4127;

				{	/* Match/descr.scm 346 */
					bool_t BgL_test2372z00_4128;

					if (
						(CAR(
								((obj_t) BgL_descrz00_31)) ==
							BGl_symbol2206z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 502 */
							BgL_test2372z00_4128 = ((bool_t) 1);
						}
					else
						{	/* Match/descr.scm 502 */
							BgL_test2372z00_4128 =
								(CAR(
									((obj_t) BgL_descrz00_31)) ==
								BGl_symbol2208z00zz__match_descriptionsz00);
						}
					if (BgL_test2372z00_4128)
						{	/* Match/descr.scm 346 */
							BgL_test2371z00_4127 = ((bool_t) 1);
						}
					else
						{	/* Match/descr.scm 347 */
							bool_t BgL_test2374z00_4136;

							if (
								(CAR(
										((obj_t) BgL_patz00_32)) ==
									BGl_symbol2206z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 502 */
									BgL_test2374z00_4136 = ((bool_t) 1);
								}
							else
								{	/* Match/descr.scm 502 */
									BgL_test2374z00_4136 =
										(CAR(
											((obj_t) BgL_patz00_32)) ==
										BGl_symbol2208z00zz__match_descriptionsz00);
								}
							if (BgL_test2374z00_4136)
								{	/* Match/descr.scm 347 */
									BgL_test2371z00_4127 = ((bool_t) 1);
								}
							else
								{	/* Match/descr.scm 347 */
									if (
										(CAR(
												((obj_t) BgL_patz00_32)) ==
											BGl_symbol2182z00zz__match_descriptionsz00))
										{	/* Match/descr.scm 348 */
											BgL_test2371z00_4127 = ((bool_t) 1);
										}
									else
										{	/* Match/descr.scm 348 */
											if (
												(CAR(
														((obj_t) BgL_patz00_32)) ==
													BGl_symbol2184z00zz__match_descriptionsz00))
												{	/* Match/descr.scm 348 */
													BgL_test2371z00_4127 = ((bool_t) 1);
												}
											else
												{	/* Match/descr.scm 348 */
													if (
														(CAR(
																((obj_t) BgL_patz00_32)) ==
															BGl_symbol2233z00zz__match_descriptionsz00))
														{	/* Match/descr.scm 348 */
															BgL_test2371z00_4127 = ((bool_t) 1);
														}
													else
														{	/* Match/descr.scm 348 */
															if (
																(CAR(
																		((obj_t) BgL_patz00_32)) ==
																	BGl_symbol2219z00zz__match_descriptionsz00))
																{	/* Match/descr.scm 349 */
																	BgL_test2371z00_4127 = ((bool_t) 1);
																}
															else
																{	/* Match/descr.scm 349 */
																	if (
																		(CAR(
																				((obj_t) BgL_patz00_32)) ==
																			BGl_symbol2208z00zz__match_descriptionsz00))
																		{	/* Match/descr.scm 350 */
																			BgL_test2371z00_4127 = ((bool_t) 1);
																		}
																	else
																		{	/* Match/descr.scm 350 */
																			if (
																				(CAR(
																						((obj_t) BgL_patz00_32)) ==
																					BGl_symbol2196z00zz__match_descriptionsz00))
																				{	/* Match/descr.scm 351 */
																					BgL_test2371z00_4127 = ((bool_t) 1);
																				}
																			else
																				{	/* Match/descr.scm 351 */
																					BgL_test2371z00_4127 =
																						(CAR(
																							((obj_t) BgL_patz00_32)) ==
																						BGl_symbol2194z00zz__match_descriptionsz00);
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
				if (BgL_test2371z00_4127)
					{	/* Match/descr.scm 346 */
						return BGL_PROCEDURE_CALL1(BgL_kz00_34, BgL_envz00_33);
					}
				else
					{	/* Match/descr.scm 346 */
						if (
							(CAR(
									((obj_t) BgL_patz00_32)) ==
								BGl_symbol2186z00zz__match_descriptionsz00))
							{	/* Match/descr.scm 356 */
								obj_t BgL_arg1501z00_1512;

								{	/* Match/descr.scm 356 */
									obj_t BgL_pairz00_2598;

									BgL_pairz00_2598 = CDR(((obj_t) BgL_patz00_32));
									BgL_arg1501z00_1512 = CAR(BgL_pairz00_2598);
								}
								{	/* Match/descr.scm 357 */
									obj_t BgL_zc3z04anonymousza31503ze3z87_3391;

									BgL_zc3z04anonymousza31503ze3z87_3391 =
										MAKE_FX_PROCEDURE
										(BGl_z62zc3z04anonymousza31503ze3ze5zz__match_descriptionsz00,
										(int) (1L), (int) (4L));
									PROCEDURE_SET(BgL_zc3z04anonymousza31503ze3z87_3391,
										(int) (0L), BgL_patz00_32);
									PROCEDURE_SET(BgL_zc3z04anonymousza31503ze3z87_3391,
										(int) (1L), BgL_descrz00_31);
									PROCEDURE_SET(BgL_zc3z04anonymousza31503ze3z87_3391,
										(int) (2L), BgL_kz00_34);
									PROCEDURE_SET(BgL_zc3z04anonymousza31503ze3z87_3391,
										(int) (3L), BgL_za7za7_35);
									{
										obj_t BgL_kz00_4194;
										obj_t BgL_patz00_4193;

										BgL_patz00_4193 = BgL_arg1501z00_1512;
										BgL_kz00_4194 = BgL_zc3z04anonymousza31503ze3z87_3391;
										BgL_kz00_34 = BgL_kz00_4194;
										BgL_patz00_32 = BgL_patz00_4193;
										goto BGl_comparez00zz__match_descriptionsz00;
									}
								}
							}
						else
							{	/* Match/descr.scm 355 */
								if (
									(CAR(
											((obj_t) BgL_patz00_32)) ==
										BGl_symbol2189z00zz__match_descriptionsz00))
									{	/* Match/descr.scm 360 */
										if (BGl_mayzd2bezd2azd2conszd2zz__match_descriptionsz00
											(BgL_descrz00_31))
											{	/* Match/descr.scm 362 */
												obj_t BgL_arg1508z00_1520;
												obj_t BgL_arg1509z00_1521;

												if (
													(CAR(
															((obj_t) BgL_descrz00_31)) ==
														BGl_symbol2189z00zz__match_descriptionsz00))
													{	/* Match/descr.scm 179 */
														obj_t BgL_pairz00_2614;

														BgL_pairz00_2614 = CDR(((obj_t) BgL_descrz00_31));
														BgL_arg1508z00_1520 = CAR(BgL_pairz00_2614);
													}
												else
													{	/* Match/descr.scm 178 */
														BgL_arg1508z00_1520 =
															BGl_list2218z00zz__match_descriptionsz00;
													}
												{	/* Match/descr.scm 362 */
													obj_t BgL_pairz00_2618;

													BgL_pairz00_2618 = CDR(((obj_t) BgL_patz00_32));
													BgL_arg1509z00_1521 = CAR(BgL_pairz00_2618);
												}
												{	/* Match/descr.scm 364 */
													obj_t BgL_zc3z04anonymousza31511ze3z87_3392;

													BgL_zc3z04anonymousza31511ze3z87_3392 =
														MAKE_FX_PROCEDURE
														(BGl_z62zc3z04anonymousza31511ze3ze5zz__match_descriptionsz00,
														(int) (1L), (int) (4L));
													PROCEDURE_SET(BgL_zc3z04anonymousza31511ze3z87_3392,
														(int) (0L), BgL_descrz00_31);
													PROCEDURE_SET(BgL_zc3z04anonymousza31511ze3z87_3392,
														(int) (1L), BgL_patz00_32);
													PROCEDURE_SET(BgL_zc3z04anonymousza31511ze3z87_3392,
														(int) (2L), BgL_kz00_34);
													PROCEDURE_SET(BgL_zc3z04anonymousza31511ze3z87_3392,
														(int) (3L), BgL_za7za7_35);
													{
														obj_t BgL_kz00_4224;
														obj_t BgL_patz00_4223;
														obj_t BgL_descrz00_4222;

														BgL_descrz00_4222 = BgL_arg1508z00_1520;
														BgL_patz00_4223 = BgL_arg1509z00_1521;
														BgL_kz00_4224 =
															BgL_zc3z04anonymousza31511ze3z87_3392;
														BgL_kz00_34 = BgL_kz00_4224;
														BgL_patz00_32 = BgL_patz00_4223;
														BgL_descrz00_31 = BgL_descrz00_4222;
														goto BGl_comparez00zz__match_descriptionsz00;
													}
												}
											}
										else
											{	/* Match/descr.scm 361 */
												return
													BGL_PROCEDURE_CALL1(BgL_za7za7_35, BgL_envz00_33);
											}
									}
								else
									{	/* Match/descr.scm 360 */
										if (
											(CAR(
													((obj_t) BgL_patz00_32)) ==
												BGl_symbol2221z00zz__match_descriptionsz00))
											{	/* Match/descr.scm 372 */
												obj_t BgL_arg1515z00_1529;

												{	/* Match/descr.scm 372 */
													obj_t BgL_pairz00_2641;

													BgL_pairz00_2641 = CDR(((obj_t) BgL_patz00_32));
													BgL_arg1515z00_1529 = CAR(BgL_pairz00_2641);
												}
												BGL_TAIL return
													BGl_matchz00zz__match_descriptionsz00(BgL_descrz00_31,
													BgL_arg1515z00_1529, BgL_envz00_33, BgL_kz00_34,
													BgL_za7za7_35);
											}
										else
											{	/* Match/descr.scm 374 */
												bool_t BgL_test2387z00_4237;

												if (
													(CAR(
															((obj_t) BgL_descrz00_31)) ==
														BGl_symbol2198z00zz__match_descriptionsz00))
													{	/* Match/descr.scm 374 */
														BgL_test2387z00_4237 =
															(CAR(
																((obj_t) BgL_patz00_32)) ==
															BGl_symbol2198z00zz__match_descriptionsz00);
													}
												else
													{	/* Match/descr.scm 374 */
														BgL_test2387z00_4237 = ((bool_t) 0);
													}
												if (BgL_test2387z00_4237)
													{	/* Match/descr.scm 375 */
														bool_t BgL_test2389z00_4245;

														{	/* Match/descr.scm 375 */
															obj_t BgL_arg1565z00_1565;

															{	/* Match/descr.scm 375 */
																obj_t BgL_arg1568z00_1566;

																{	/* Match/descr.scm 375 */
																	obj_t BgL_pairz00_2649;

																	BgL_pairz00_2649 =
																		CDR(((obj_t) BgL_descrz00_31));
																	BgL_arg1568z00_1566 = CAR(BgL_pairz00_2649);
																}
																BgL_arg1565z00_1565 =
																	BGL_PROCEDURE_CALL1(BgL_envz00_33,
																	BgL_arg1568z00_1566);
															}
															BgL_test2389z00_4245 =
																(BgL_arg1565z00_1565 ==
																BGl_symbol2231z00zz__match_descriptionsz00);
														}
														if (BgL_test2389z00_4245)
															{	/* Match/descr.scm 376 */
																bool_t BgL_test2390z00_4254;

																{	/* Match/descr.scm 376 */
																	obj_t BgL_arg1543z00_1550;

																	{	/* Match/descr.scm 376 */
																		obj_t BgL_arg1545z00_1551;

																		{	/* Match/descr.scm 376 */
																			obj_t BgL_pairz00_2653;

																			BgL_pairz00_2653 =
																				CDR(((obj_t) BgL_patz00_32));
																			BgL_arg1545z00_1551 =
																				CAR(BgL_pairz00_2653);
																		}
																		BgL_arg1543z00_1550 =
																			BGL_PROCEDURE_CALL1(BgL_envz00_33,
																			BgL_arg1545z00_1551);
																	}
																	BgL_test2390z00_4254 =
																		(BgL_arg1543z00_1550 ==
																		BGl_symbol2231z00zz__match_descriptionsz00);
																}
																if (BgL_test2390z00_4254)
																	{	/* Match/descr.scm 377 */
																		obj_t BgL_sz00_1538;

																		{	/* Match/descr.scm 377 */
																			obj_t BgL_arg1533z00_1543;

																			BgL_arg1533z00_1543 =
																				BGL_PROCEDURE_CALL1
																				(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																				BGl_string2235z00zz__match_descriptionsz00);
																			{	/* Match/descr.scm 377 */
																				obj_t BgL_list1534z00_1544;

																				{	/* Match/descr.scm 377 */
																					obj_t BgL_arg1537z00_1545;

																					BgL_arg1537z00_1545 =
																						MAKE_YOUNG_PAIR(BgL_arg1533z00_1543,
																						BNIL);
																					BgL_list1534z00_1544 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2198z00zz__match_descriptionsz00,
																						BgL_arg1537z00_1545);
																				}
																				BgL_sz00_1538 = BgL_list1534z00_1544;
																			}
																		}
																		{	/* Match/descr.scm 378 */
																			obj_t BgL_arg1526z00_1539;

																			{	/* Match/descr.scm 378 */
																				obj_t BgL_arg1527z00_1540;
																				obj_t BgL_arg1528z00_1541;

																				{	/* Match/descr.scm 378 */
																					obj_t BgL_arg1532z00_1542;

																					{	/* Match/descr.scm 378 */
																						obj_t BgL_pairz00_2658;

																						BgL_pairz00_2658 =
																							CDR(((obj_t) BgL_descrz00_31));
																						BgL_arg1532z00_1542 =
																							CAR(BgL_pairz00_2658);
																					}
																					{	/* Match/descr.scm 124 */
																						obj_t
																							BgL_zc3z04anonymousza31296ze3z87_3394;
																						{
																							int BgL_tmpz00_4272;

																							BgL_tmpz00_4272 = (int) (3L);
																							BgL_zc3z04anonymousza31296ze3z87_3394
																								=
																								MAKE_EL_PROCEDURE
																								(BgL_tmpz00_4272);
																						}
																						PROCEDURE_EL_SET
																							(BgL_zc3z04anonymousza31296ze3z87_3394,
																							(int) (0L), BgL_envz00_33);
																						PROCEDURE_EL_SET
																							(BgL_zc3z04anonymousza31296ze3z87_3394,
																							(int) (1L), BgL_sz00_1538);
																						PROCEDURE_EL_SET
																							(BgL_zc3z04anonymousza31296ze3z87_3394,
																							(int) (2L), BgL_arg1532z00_1542);
																						BgL_arg1527z00_1540 =
																							BgL_zc3z04anonymousza31296ze3z87_3394;
																				}}
																				{	/* Match/descr.scm 379 */
																					obj_t BgL_pairz00_2664;

																					BgL_pairz00_2664 =
																						CDR(((obj_t) BgL_patz00_32));
																					BgL_arg1528z00_1541 =
																						CAR(BgL_pairz00_2664);
																				}
																				{	/* Match/descr.scm 124 */
																					obj_t
																						BgL_zc3z04anonymousza31296ze3z87_3393;
																					BgL_zc3z04anonymousza31296ze3z87_3393
																						=
																						MAKE_FX_PROCEDURE
																						(BGl_z62zc3z04anonymousza31296ze3ze5zz__match_descriptionsz00,
																						(int) (1L), (int) (3L));
																					PROCEDURE_SET
																						(BgL_zc3z04anonymousza31296ze3z87_3393,
																						(int) (0L), BgL_arg1527z00_1540);
																					PROCEDURE_SET
																						(BgL_zc3z04anonymousza31296ze3z87_3393,
																						(int) (1L), BgL_sz00_1538);
																					PROCEDURE_SET
																						(BgL_zc3z04anonymousza31296ze3z87_3393,
																						(int) (2L), BgL_arg1528z00_1541);
																					BgL_arg1526z00_1539 =
																						BgL_zc3z04anonymousza31296ze3z87_3393;
																			}}
																			return
																				BGL_PROCEDURE_CALL1(BgL_kz00_34,
																				BgL_arg1526z00_1539);
																		}
																	}
																else
																	{	/* Match/descr.scm 381 */
																		obj_t BgL_arg1538z00_1546;

																		{	/* Match/descr.scm 381 */
																			obj_t BgL_arg1540z00_1547;
																			obj_t BgL_arg1541z00_1548;

																			{	/* Match/descr.scm 381 */
																				obj_t BgL_pairz00_2670;

																				BgL_pairz00_2670 =
																					CDR(((obj_t) BgL_descrz00_31));
																				BgL_arg1540z00_1547 =
																					CAR(BgL_pairz00_2670);
																			}
																			{	/* Match/descr.scm 381 */
																				obj_t BgL_arg1542z00_1549;

																				{	/* Match/descr.scm 381 */
																					obj_t BgL_pairz00_2674;

																					BgL_pairz00_2674 =
																						CDR(((obj_t) BgL_patz00_32));
																					BgL_arg1542z00_1549 =
																						CAR(BgL_pairz00_2674);
																				}
																				BgL_arg1541z00_1548 =
																					BGL_PROCEDURE_CALL1(BgL_envz00_33,
																					BgL_arg1542z00_1549);
																			}
																			{	/* Match/descr.scm 124 */
																				obj_t
																					BgL_zc3z04anonymousza31296ze3z87_3395;
																				BgL_zc3z04anonymousza31296ze3z87_3395 =
																					MAKE_FX_PROCEDURE
																					(BGl_z62zc3z04anonymousza31296ze32175ze5zz__match_descriptionsz00,
																					(int) (1L), (int) (3L));
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3395,
																					(int) (0L), BgL_envz00_33);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3395,
																					(int) (1L), BgL_arg1541z00_1548);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3395,
																					(int) (2L), BgL_arg1540z00_1547);
																				BgL_arg1538z00_1546 =
																					BgL_zc3z04anonymousza31296ze3z87_3395;
																		}}
																		return
																			BGL_PROCEDURE_CALL1(BgL_kz00_34,
																			BgL_arg1538z00_1546);
																	}
															}
														else
															{	/* Match/descr.scm 382 */
																bool_t BgL_test2391z00_4320;

																{	/* Match/descr.scm 382 */
																	obj_t BgL_arg1562z00_1563;

																	{	/* Match/descr.scm 382 */
																		obj_t BgL_arg1563z00_1564;

																		{	/* Match/descr.scm 382 */
																			obj_t BgL_pairz00_2680;

																			BgL_pairz00_2680 =
																				CDR(((obj_t) BgL_patz00_32));
																			BgL_arg1563z00_1564 =
																				CAR(BgL_pairz00_2680);
																		}
																		BgL_arg1562z00_1563 =
																			BGL_PROCEDURE_CALL1(BgL_envz00_33,
																			BgL_arg1563z00_1564);
																	}
																	BgL_test2391z00_4320 =
																		(BgL_arg1562z00_1563 ==
																		BGl_symbol2231z00zz__match_descriptionsz00);
																}
																if (BgL_test2391z00_4320)
																	{	/* Match/descr.scm 383 */
																		obj_t BgL_arg1549z00_1555;

																		{	/* Match/descr.scm 383 */
																			obj_t BgL_arg1551z00_1556;
																			obj_t BgL_arg1552z00_1557;

																			{	/* Match/descr.scm 383 */
																				obj_t BgL_pairz00_2684;

																				BgL_pairz00_2684 =
																					CDR(((obj_t) BgL_patz00_32));
																				BgL_arg1551z00_1556 =
																					CAR(BgL_pairz00_2684);
																			}
																			{	/* Match/descr.scm 383 */
																				obj_t BgL_arg1554z00_1558;

																				{	/* Match/descr.scm 383 */
																					obj_t BgL_pairz00_2688;

																					BgL_pairz00_2688 =
																						CDR(((obj_t) BgL_descrz00_31));
																					BgL_arg1554z00_1558 =
																						CAR(BgL_pairz00_2688);
																				}
																				BgL_arg1552z00_1557 =
																					BGL_PROCEDURE_CALL1(BgL_envz00_33,
																					BgL_arg1554z00_1558);
																			}
																			{	/* Match/descr.scm 124 */
																				obj_t
																					BgL_zc3z04anonymousza31296ze3z87_3396;
																				BgL_zc3z04anonymousza31296ze3z87_3396 =
																					MAKE_FX_PROCEDURE
																					(BGl_z62zc3z04anonymousza31296ze32176ze5zz__match_descriptionsz00,
																					(int) (1L), (int) (3L));
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3396,
																					(int) (0L), BgL_envz00_33);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3396,
																					(int) (1L), BgL_arg1552z00_1557);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3396,
																					(int) (2L), BgL_arg1551z00_1556);
																				BgL_arg1549z00_1555 =
																					BgL_zc3z04anonymousza31296ze3z87_3396;
																		}}
																		return
																			BGL_PROCEDURE_CALL1(BgL_kz00_34,
																			BgL_arg1549z00_1555);
																	}
																else
																	{	/* Match/descr.scm 384 */
																		obj_t BgL_arg1555z00_1559;
																		obj_t BgL_arg1558z00_1560;

																		{	/* Match/descr.scm 384 */
																			obj_t BgL_arg1559z00_1561;

																			{	/* Match/descr.scm 384 */
																				obj_t BgL_pairz00_2694;

																				BgL_pairz00_2694 =
																					CDR(((obj_t) BgL_descrz00_31));
																				BgL_arg1559z00_1561 =
																					CAR(BgL_pairz00_2694);
																			}
																			BgL_arg1555z00_1559 =
																				BGL_PROCEDURE_CALL1(BgL_envz00_33,
																				BgL_arg1559z00_1561);
																		}
																		{	/* Match/descr.scm 384 */
																			obj_t BgL_arg1561z00_1562;

																			{	/* Match/descr.scm 384 */
																				obj_t BgL_pairz00_2698;

																				BgL_pairz00_2698 =
																					CDR(((obj_t) BgL_patz00_32));
																				BgL_arg1561z00_1562 =
																					CAR(BgL_pairz00_2698);
																			}
																			BgL_arg1558z00_1560 =
																				BGL_PROCEDURE_CALL1(BgL_envz00_33,
																				BgL_arg1561z00_1562);
																		}
																		{
																			obj_t BgL_patz00_4367;
																			obj_t BgL_descrz00_4366;

																			BgL_descrz00_4366 = BgL_arg1555z00_1559;
																			BgL_patz00_4367 = BgL_arg1558z00_1560;
																			BgL_patz00_32 = BgL_patz00_4367;
																			BgL_descrz00_31 = BgL_descrz00_4366;
																			goto
																				BGl_comparez00zz__match_descriptionsz00;
																		}
																	}
															}
													}
												else
													{	/* Match/descr.scm 374 */
														if (
															(CAR(
																	((obj_t) BgL_patz00_32)) ==
																BGl_symbol2198z00zz__match_descriptionsz00))
															{	/* Match/descr.scm 387 */
																bool_t BgL_test2393z00_4372;

																{	/* Match/descr.scm 387 */
																	obj_t BgL_arg1581z00_1575;

																	{	/* Match/descr.scm 387 */
																		obj_t BgL_arg1582z00_1576;

																		{	/* Match/descr.scm 387 */
																			obj_t BgL_pairz00_2704;

																			BgL_pairz00_2704 =
																				CDR(((obj_t) BgL_patz00_32));
																			BgL_arg1582z00_1576 =
																				CAR(BgL_pairz00_2704);
																		}
																		BgL_arg1581z00_1575 =
																			BGL_PROCEDURE_CALL1(BgL_envz00_33,
																			BgL_arg1582z00_1576);
																	}
																	BgL_test2393z00_4372 =
																		(BgL_arg1581z00_1575 ==
																		BGl_symbol2231z00zz__match_descriptionsz00);
																}
																if (BgL_test2393z00_4372)
																	{	/* Match/descr.scm 388 */
																		obj_t BgL_arg1577z00_1571;

																		{	/* Match/descr.scm 388 */
																			obj_t BgL_arg1578z00_1572;

																			{	/* Match/descr.scm 388 */
																				obj_t BgL_pairz00_2708;

																				BgL_pairz00_2708 =
																					CDR(((obj_t) BgL_patz00_32));
																				BgL_arg1578z00_1572 =
																					CAR(BgL_pairz00_2708);
																			}
																			{	/* Match/descr.scm 124 */
																				obj_t
																					BgL_zc3z04anonymousza31296ze3z87_3397;
																				BgL_zc3z04anonymousza31296ze3z87_3397 =
																					MAKE_FX_PROCEDURE
																					(BGl_z62zc3z04anonymousza31296ze32177ze5zz__match_descriptionsz00,
																					(int) (1L), (int) (3L));
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3397,
																					(int) (0L), BgL_envz00_33);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3397,
																					(int) (1L), BgL_descrz00_31);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31296ze3z87_3397,
																					(int) (2L), BgL_arg1578z00_1572);
																				BgL_arg1577z00_1571 =
																					BgL_zc3z04anonymousza31296ze3z87_3397;
																		}}
																		return
																			BGL_PROCEDURE_CALL1(BgL_kz00_34,
																			BgL_arg1577z00_1571);
																	}
																else
																	{	/* Match/descr.scm 389 */
																		obj_t BgL_arg1579z00_1573;

																		{	/* Match/descr.scm 389 */
																			obj_t BgL_arg1580z00_1574;

																			{	/* Match/descr.scm 389 */
																				obj_t BgL_pairz00_2714;

																				BgL_pairz00_2714 =
																					CDR(((obj_t) BgL_patz00_32));
																				BgL_arg1580z00_1574 =
																					CAR(BgL_pairz00_2714);
																			}
																			BgL_arg1579z00_1573 =
																				BGL_PROCEDURE_CALL1(BgL_envz00_33,
																				BgL_arg1580z00_1574);
																		}
																		{
																			obj_t BgL_patz00_4404;

																			BgL_patz00_4404 = BgL_arg1579z00_1573;
																			BgL_patz00_32 = BgL_patz00_4404;
																			goto
																				BGl_comparez00zz__match_descriptionsz00;
																		}
																	}
															}
														else
															{	/* Match/descr.scm 386 */
																if (
																	(CAR(
																			((obj_t) BgL_descrz00_31)) ==
																		BGl_symbol2198z00zz__match_descriptionsz00))
																	{	/* Match/descr.scm 392 */
																		bool_t BgL_test2395z00_4409;

																		{	/* Match/descr.scm 392 */
																			obj_t BgL_arg1596z00_1585;

																			{	/* Match/descr.scm 392 */
																				obj_t BgL_arg1597z00_1586;

																				{	/* Match/descr.scm 392 */
																					obj_t BgL_pairz00_2720;

																					BgL_pairz00_2720 =
																						CDR(((obj_t) BgL_descrz00_31));
																					BgL_arg1597z00_1586 =
																						CAR(BgL_pairz00_2720);
																				}
																				BgL_arg1596z00_1585 =
																					BGL_PROCEDURE_CALL1(BgL_envz00_33,
																					BgL_arg1597z00_1586);
																			}
																			BgL_test2395z00_4409 =
																				(BgL_arg1596z00_1585 ==
																				BGl_symbol2231z00zz__match_descriptionsz00);
																		}
																		if (BgL_test2395z00_4409)
																			{	/* Match/descr.scm 393 */
																				obj_t BgL_arg1588z00_1581;

																				{	/* Match/descr.scm 393 */
																					obj_t BgL_arg1592z00_1582;

																					{	/* Match/descr.scm 393 */
																						obj_t BgL_pairz00_2724;

																						BgL_pairz00_2724 =
																							CDR(((obj_t) BgL_descrz00_31));
																						BgL_arg1592z00_1582 =
																							CAR(BgL_pairz00_2724);
																					}
																					{	/* Match/descr.scm 124 */
																						obj_t
																							BgL_zc3z04anonymousza31296ze3z87_3398;
																						BgL_zc3z04anonymousza31296ze3z87_3398
																							=
																							MAKE_FX_PROCEDURE
																							(BGl_z62zc3z04anonymousza31296ze32178ze5zz__match_descriptionsz00,
																							(int) (1L), (int) (3L));
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza31296ze3z87_3398,
																							(int) (0L), BgL_envz00_33);
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza31296ze3z87_3398,
																							(int) (1L), BgL_patz00_32);
																						PROCEDURE_SET
																							(BgL_zc3z04anonymousza31296ze3z87_3398,
																							(int) (2L), BgL_arg1592z00_1582);
																						BgL_arg1588z00_1581 =
																							BgL_zc3z04anonymousza31296ze3z87_3398;
																				}}
																				return
																					BGL_PROCEDURE_CALL1(BgL_kz00_34,
																					BgL_arg1588z00_1581);
																			}
																		else
																			{	/* Match/descr.scm 394 */
																				obj_t BgL_arg1593z00_1583;

																				{	/* Match/descr.scm 394 */
																					obj_t BgL_arg1595z00_1584;

																					{	/* Match/descr.scm 394 */
																						obj_t BgL_pairz00_2730;

																						BgL_pairz00_2730 =
																							CDR(((obj_t) BgL_descrz00_31));
																						BgL_arg1595z00_1584 =
																							CAR(BgL_pairz00_2730);
																					}
																					BgL_arg1593z00_1583 =
																						BGL_PROCEDURE_CALL1(BgL_envz00_33,
																						BgL_arg1595z00_1584);
																				}
																				{
																					obj_t BgL_patz00_4441;

																					BgL_patz00_4441 = BgL_arg1593z00_1583;
																					BgL_patz00_32 = BgL_patz00_4441;
																					goto
																						BGl_comparez00zz__match_descriptionsz00;
																				}
																			}
																	}
																else
																	{	/* Match/descr.scm 391 */
																		if (
																			(CAR(
																					((obj_t) BgL_patz00_32)) ==
																				BGl_symbol2214z00zz__match_descriptionsz00))
																			{	/* Match/descr.scm 396 */
																				bool_t BgL_test2397z00_4446;

																				{	/* Match/descr.scm 396 */
																					obj_t BgL_arg1602z00_1590;

																					{	/* Match/descr.scm 396 */
																						obj_t BgL_pairz00_2736;

																						BgL_pairz00_2736 =
																							CDR(((obj_t) BgL_patz00_32));
																						BgL_arg1602z00_1590 =
																							CAR(BgL_pairz00_2736);
																					}
																					BgL_test2397z00_4446 =
																						CBOOL
																						(BGl_morezd2precisezf3z21zz__match_descriptionsz00
																						(BgL_arg1602z00_1590,
																							BgL_descrz00_31));
																				}
																				if (BgL_test2397z00_4446)
																					{	/* Match/descr.scm 396 */
																						return
																							BGL_PROCEDURE_CALL1(BgL_za7za7_35,
																							BgL_envz00_33);
																					}
																				else
																					{	/* Match/descr.scm 396 */
																						return
																							BGL_PROCEDURE_CALL1(BgL_kz00_34,
																							BgL_envz00_33);
																					}
																			}
																		else
																			{	/* Match/descr.scm 396 */
																				if (
																					(CAR(
																							((obj_t) BgL_patz00_32)) ==
																						BGl_symbol2200z00zz__match_descriptionsz00))
																					{	/* Match/descr.scm 401 */
																						bool_t BgL_test2399z00_4464;

																						if (
																							(CAR(
																									((obj_t) BgL_descrz00_31)) ==
																								BGl_symbol2206z00zz__match_descriptionsz00))
																							{	/* Match/descr.scm 502 */
																								BgL_test2399z00_4464 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Match/descr.scm 502 */
																								BgL_test2399z00_4464 =
																									(CAR(
																										((obj_t) BgL_descrz00_31))
																									==
																									BGl_symbol2208z00zz__match_descriptionsz00);
																							}
																						if (BgL_test2399z00_4464)
																							{	/* Match/descr.scm 401 */
																								return BTRUE;
																							}
																						else
																							{	/* Match/descr.scm 401 */
																								if (
																									(CAR(
																											((obj_t) BgL_descrz00_31))
																										==
																										BGl_symbol2236z00zz__match_descriptionsz00))
																									{	/* Match/descr.scm 403 */
																										BGL_TAIL return
																											BGl_matchz00zz__match_descriptionsz00
																											(BgL_patz00_32,
																											BgL_descrz00_31,
																											BgL_envz00_33,
																											BgL_kz00_34,
																											BgL_za7za7_35);
																									}
																								else
																									{	/* Match/descr.scm 403 */
																										return BFALSE;
																									}
																							}
																					}
																				else
																					{	/* Match/descr.scm 400 */
																						return
																							BGL_PROCEDURE_CALL1(BgL_kz00_34,
																							BgL_envz00_33);
																					}
																			}
																	}
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* &<@anonymous:1503> */
	obj_t BGl_z62zc3z04anonymousza31503ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3399, obj_t BgL_envz00_3404)
	{
		{	/* Match/descr.scm 357 */
			{	/* Match/descr.scm 357 */
				obj_t BgL_patz00_3400;
				obj_t BgL_descrz00_3401;
				obj_t BgL_kz00_3402;
				obj_t BgL_za7za7_3403;

				BgL_patz00_3400 = PROCEDURE_REF(BgL_envz00_3399, (int) (0L));
				BgL_descrz00_3401 = PROCEDURE_REF(BgL_envz00_3399, (int) (1L));
				BgL_kz00_3402 = PROCEDURE_REF(BgL_envz00_3399, (int) (2L));
				BgL_za7za7_3403 = PROCEDURE_REF(BgL_envz00_3399, (int) (3L));
				{	/* Match/descr.scm 357 */
					obj_t BgL_arg1505z00_3595;

					{	/* Match/descr.scm 357 */
						obj_t BgL_pairz00_3596;

						{	/* Match/descr.scm 357 */
							obj_t BgL_pairz00_3597;

							BgL_pairz00_3597 = CDR(((obj_t) BgL_patz00_3400));
							BgL_pairz00_3596 = CDR(BgL_pairz00_3597);
						}
						BgL_arg1505z00_3595 = CAR(BgL_pairz00_3596);
					}
					return
						BGl_comparez00zz__match_descriptionsz00(BgL_descrz00_3401,
						BgL_arg1505z00_3595, BgL_envz00_3404, BgL_kz00_3402,
						BgL_za7za7_3403);
				}
			}
		}

	}



/* &<@anonymous:1511> */
	obj_t BGl_z62zc3z04anonymousza31511ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3405, obj_t BgL_envz00_3410)
	{
		{	/* Match/descr.scm 363 */
			{	/* Match/descr.scm 364 */
				obj_t BgL_descrz00_3406;
				obj_t BgL_patz00_3407;
				obj_t BgL_kz00_3408;
				obj_t BgL_za7za7_3409;

				BgL_descrz00_3406 = PROCEDURE_REF(BgL_envz00_3405, (int) (0L));
				BgL_patz00_3407 = PROCEDURE_REF(BgL_envz00_3405, (int) (1L));
				BgL_kz00_3408 = PROCEDURE_REF(BgL_envz00_3405, (int) (2L));
				BgL_za7za7_3409 = PROCEDURE_REF(BgL_envz00_3405, (int) (3L));
				{	/* Match/descr.scm 364 */
					obj_t BgL_arg1512z00_3598;
					obj_t BgL_arg1513z00_3599;

					if (
						(CAR(
								((obj_t) BgL_descrz00_3406)) ==
							BGl_symbol2189z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 184 */
							obj_t BgL_pairz00_3600;

							{	/* Match/descr.scm 184 */
								obj_t BgL_pairz00_3601;

								BgL_pairz00_3601 = CDR(((obj_t) BgL_descrz00_3406));
								BgL_pairz00_3600 = CDR(BgL_pairz00_3601);
							}
							BgL_arg1512z00_3598 = CAR(BgL_pairz00_3600);
						}
					else
						{	/* Match/descr.scm 183 */
							BgL_arg1512z00_3598 = BGl_list2218z00zz__match_descriptionsz00;
						}
					{	/* Match/descr.scm 365 */
						obj_t BgL_pairz00_3602;

						{	/* Match/descr.scm 365 */
							obj_t BgL_pairz00_3603;

							BgL_pairz00_3603 = CDR(((obj_t) BgL_patz00_3407));
							BgL_pairz00_3602 = CDR(BgL_pairz00_3603);
						}
						BgL_arg1513z00_3599 = CAR(BgL_pairz00_3602);
					}
					return
						BGl_comparez00zz__match_descriptionsz00(BgL_arg1512z00_3598,
						BgL_arg1513z00_3599, BgL_envz00_3410, BgL_kz00_3408,
						BgL_za7za7_3409);
				}
			}
		}

	}



/* &<@anonymous:1296> */
	obj_t BGl_z62zc3z04anonymousza31296ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3411, obj_t BgL_xz00_3415)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_arg1527z00_3412;
				obj_t BgL_sz00_3413;
				obj_t BgL_arg1528z00_3414;

				BgL_arg1527z00_3412 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3411, (int) (0L)));
				BgL_sz00_3413 = ((obj_t) PROCEDURE_REF(BgL_envz00_3411, (int) (1L)));
				BgL_arg1528z00_3414 = PROCEDURE_REF(BgL_envz00_3411, (int) (2L));
				if ((BgL_xz00_3415 == BgL_arg1528z00_3414))
					{	/* Match/descr.scm 124 */
						return BgL_sz00_3413;
					}
				else
					{	/* Match/descr.scm 124 */
						return
							BGl_z62zc3z04anonymousza31296ze32174ze5zz__match_descriptionsz00
							(BgL_arg1527z00_3412, BgL_xz00_3415);
					}
			}
		}

	}



/* &<@anonymous:1296>2174 */
	obj_t BGl_z62zc3z04anonymousza31296ze32174ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3416, obj_t BgL_xz00_3420)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3417;
				obj_t BgL_sz00_3418;
				obj_t BgL_arg1532z00_3419;

				BgL_envz00_3417 = PROCEDURE_EL_REF(BgL_envz00_3416, (int) (0L));
				BgL_sz00_3418 = ((obj_t) PROCEDURE_EL_REF(BgL_envz00_3416, (int) (1L)));
				BgL_arg1532z00_3419 = PROCEDURE_EL_REF(BgL_envz00_3416, (int) (2L));
				if ((BgL_xz00_3420 == BgL_arg1532z00_3419))
					{	/* Match/descr.scm 124 */
						return BgL_sz00_3418;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3417, BgL_xz00_3420);
					}
			}
		}

	}



/* &<@anonymous:1296>2175 */
	obj_t BGl_z62zc3z04anonymousza31296ze32175ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3421, obj_t BgL_xz00_3425)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3422;
				obj_t BgL_arg1541z00_3423;
				obj_t BgL_arg1540z00_3424;

				BgL_envz00_3422 = PROCEDURE_REF(BgL_envz00_3421, (int) (0L));
				BgL_arg1541z00_3423 = PROCEDURE_REF(BgL_envz00_3421, (int) (1L));
				BgL_arg1540z00_3424 = PROCEDURE_REF(BgL_envz00_3421, (int) (2L));
				if ((BgL_xz00_3425 == BgL_arg1540z00_3424))
					{	/* Match/descr.scm 124 */
						return BgL_arg1541z00_3423;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3422, BgL_xz00_3425);
					}
			}
		}

	}



/* &<@anonymous:1296>2176 */
	obj_t BGl_z62zc3z04anonymousza31296ze32176ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3426, obj_t BgL_xz00_3430)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3427;
				obj_t BgL_arg1552z00_3428;
				obj_t BgL_arg1551z00_3429;

				BgL_envz00_3427 = PROCEDURE_REF(BgL_envz00_3426, (int) (0L));
				BgL_arg1552z00_3428 = PROCEDURE_REF(BgL_envz00_3426, (int) (1L));
				BgL_arg1551z00_3429 = PROCEDURE_REF(BgL_envz00_3426, (int) (2L));
				if ((BgL_xz00_3430 == BgL_arg1551z00_3429))
					{	/* Match/descr.scm 124 */
						return BgL_arg1552z00_3428;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3427, BgL_xz00_3430);
					}
			}
		}

	}



/* &<@anonymous:1296>2177 */
	obj_t BGl_z62zc3z04anonymousza31296ze32177ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3431, obj_t BgL_xz00_3435)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3432;
				obj_t BgL_descrz00_3433;
				obj_t BgL_arg1578z00_3434;

				BgL_envz00_3432 = PROCEDURE_REF(BgL_envz00_3431, (int) (0L));
				BgL_descrz00_3433 = PROCEDURE_REF(BgL_envz00_3431, (int) (1L));
				BgL_arg1578z00_3434 = PROCEDURE_REF(BgL_envz00_3431, (int) (2L));
				if ((BgL_xz00_3435 == BgL_arg1578z00_3434))
					{	/* Match/descr.scm 124 */
						return BgL_descrz00_3433;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3432, BgL_xz00_3435);
					}
			}
		}

	}



/* &<@anonymous:1296>2178 */
	obj_t BGl_z62zc3z04anonymousza31296ze32178ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3436, obj_t BgL_xz00_3440)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3437;
				obj_t BgL_patz00_3438;
				obj_t BgL_arg1592z00_3439;

				BgL_envz00_3437 = PROCEDURE_REF(BgL_envz00_3436, (int) (0L));
				BgL_patz00_3438 = PROCEDURE_REF(BgL_envz00_3436, (int) (1L));
				BgL_arg1592z00_3439 = PROCEDURE_REF(BgL_envz00_3436, (int) (2L));
				if ((BgL_xz00_3440 == BgL_arg1592z00_3439))
					{	/* Match/descr.scm 124 */
						return BgL_patz00_3438;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3437, BgL_xz00_3440);
					}
			}
		}

	}



/* may-be-a-cons */
	bool_t BGl_mayzd2bezd2azd2conszd2zz__match_descriptionsz00(obj_t
		BgL_descrz00_36)
	{
		{	/* Match/descr.scm 411 */
		BGl_mayzd2bezd2azd2conszd2zz__match_descriptionsz00:
			if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_descrz00_36,
					BGl_list2238z00zz__match_descriptionsz00))
				{	/* Match/descr.scm 412 */
					return ((bool_t) 0);
				}
			else
				{	/* Match/descr.scm 412 */
					if (
						(CAR(
								((obj_t) BgL_descrz00_36)) ==
							BGl_symbol2186z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 415 */
							bool_t BgL_test2411z00_4596;

							{	/* Match/descr.scm 415 */
								obj_t BgL_arg1609z00_1607;

								{	/* Match/descr.scm 415 */
									obj_t BgL_pairz00_2751;

									BgL_pairz00_2751 = CDR(((obj_t) BgL_descrz00_36));
									BgL_arg1609z00_1607 = CAR(BgL_pairz00_2751);
								}
								BgL_test2411z00_4596 =
									BGl_mayzd2bezd2azd2conszd2zz__match_descriptionsz00
									(BgL_arg1609z00_1607);
							}
							if (BgL_test2411z00_4596)
								{	/* Match/descr.scm 416 */
									obj_t BgL_arg1608z00_1606;

									{	/* Match/descr.scm 416 */
										obj_t BgL_pairz00_2757;

										{	/* Match/descr.scm 416 */
											obj_t BgL_pairz00_2756;

											BgL_pairz00_2756 = CDR(((obj_t) BgL_descrz00_36));
											BgL_pairz00_2757 = CDR(BgL_pairz00_2756);
										}
										BgL_arg1608z00_1606 = CAR(BgL_pairz00_2757);
									}
									{
										obj_t BgL_descrz00_4605;

										BgL_descrz00_4605 = BgL_arg1608z00_1606;
										BgL_descrz00_36 = BgL_descrz00_4605;
										goto BGl_mayzd2bezd2azd2conszd2zz__match_descriptionsz00;
									}
								}
							else
								{	/* Match/descr.scm 415 */
									return ((bool_t) 0);
								}
						}
					else
						{	/* Match/descr.scm 414 */
							return ((bool_t) 1);
						}
				}
		}

	}



/* match */
	obj_t BGl_matchz00zz__match_descriptionsz00(obj_t BgL_dz00_37,
		obj_t BgL_ez00_38, obj_t BgL_envz00_39, obj_t BgL_kz00_40,
		obj_t BgL_za7za7_41)
	{
		{	/* Match/descr.scm 423 */
		BGl_matchz00zz__match_descriptionsz00:
			{	/* Match/descr.scm 424 */
				obj_t BgL_casezd2valuezd2_1608;

				BgL_casezd2valuezd2_1608 = CAR(((obj_t) BgL_dz00_37));
				if (
					(BgL_casezd2valuezd2_1608 ==
						BGl_symbol2206z00zz__match_descriptionsz00))
					{	/* Match/descr.scm 424 */
						return BGL_PROCEDURE_CALL1(BgL_kz00_40, BgL_envz00_39);
					}
				else
					{	/* Match/descr.scm 424 */
						if (
							(BgL_casezd2valuezd2_1608 ==
								BGl_symbol2221z00zz__match_descriptionsz00))
							{	/* Match/descr.scm 427 */
								bool_t BgL_test2414z00_4616;

								{	/* Match/descr.scm 427 */
									bool_t BgL_test2415z00_4617;

									{	/* Match/descr.scm 427 */
										obj_t BgL_tmpz00_4618;

										{	/* Match/descr.scm 427 */
											obj_t BgL_pairz00_2764;

											BgL_pairz00_2764 = CDR(((obj_t) BgL_dz00_37));
											BgL_tmpz00_4618 = CAR(BgL_pairz00_2764);
										}
										BgL_test2415z00_4617 = (BgL_ez00_38 == BgL_tmpz00_4618);
									}
									if (BgL_test2415z00_4617)
										{	/* Match/descr.scm 427 */
											BgL_test2414z00_4616 = ((bool_t) 1);
										}
									else
										{	/* Match/descr.scm 427 */
											if (STRINGP(BgL_ez00_38))
												{	/* Match/descr.scm 427 */
													obj_t BgL_arg1617z00_1619;

													{	/* Match/descr.scm 427 */
														obj_t BgL_pairz00_2768;

														BgL_pairz00_2768 = CDR(((obj_t) BgL_dz00_37));
														BgL_arg1617z00_1619 = CAR(BgL_pairz00_2768);
													}
													{	/* Match/descr.scm 427 */
														long BgL_l1z00_2771;

														BgL_l1z00_2771 = STRING_LENGTH(BgL_ez00_38);
														if (
															(BgL_l1z00_2771 ==
																STRING_LENGTH(((obj_t) BgL_arg1617z00_1619))))
															{	/* Match/descr.scm 427 */
																int BgL_arg1959z00_2774;

																{	/* Match/descr.scm 427 */
																	char *BgL_auxz00_4635;
																	char *BgL_tmpz00_4633;

																	BgL_auxz00_4635 =
																		BSTRING_TO_STRING(
																		((obj_t) BgL_arg1617z00_1619));
																	BgL_tmpz00_4633 =
																		BSTRING_TO_STRING(BgL_ez00_38);
																	BgL_arg1959z00_2774 =
																		memcmp(BgL_tmpz00_4633, BgL_auxz00_4635,
																		BgL_l1z00_2771);
																}
																BgL_test2414z00_4616 =
																	((long) (BgL_arg1959z00_2774) == 0L);
															}
														else
															{	/* Match/descr.scm 427 */
																BgL_test2414z00_4616 = ((bool_t) 0);
															}
													}
												}
											else
												{	/* Match/descr.scm 427 */
													BgL_test2414z00_4616 = ((bool_t) 0);
												}
										}
								}
								if (BgL_test2414z00_4616)
									{	/* Match/descr.scm 427 */
										return BGL_PROCEDURE_CALL1(BgL_kz00_40, BgL_envz00_39);
									}
								else
									{	/* Match/descr.scm 427 */
										return BGL_PROCEDURE_CALL1(BgL_za7za7_41, BgL_envz00_39);
									}
							}
						else
							{	/* Match/descr.scm 424 */
								if (
									(BgL_casezd2valuezd2_1608 ==
										BGl_symbol2186z00zz__match_descriptionsz00))
									{	/* Match/descr.scm 430 */
										obj_t BgL_arg1621z00_1622;

										{	/* Match/descr.scm 430 */
											obj_t BgL_pairz00_2784;

											BgL_pairz00_2784 = CDR(((obj_t) BgL_dz00_37));
											BgL_arg1621z00_1622 = CAR(BgL_pairz00_2784);
										}
										{	/* Match/descr.scm 432 */
											obj_t BgL_zc3z04anonymousza31623ze3z87_3441;

											BgL_zc3z04anonymousza31623ze3z87_3441 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31623ze3ze5zz__match_descriptionsz00,
												(int) (1L), (int) (4L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31623ze3z87_3441,
												(int) (0L), BgL_dz00_37);
											PROCEDURE_SET(BgL_zc3z04anonymousza31623ze3z87_3441,
												(int) (1L), BgL_ez00_38);
											PROCEDURE_SET(BgL_zc3z04anonymousza31623ze3z87_3441,
												(int) (2L), BgL_kz00_40);
											PROCEDURE_SET(BgL_zc3z04anonymousza31623ze3z87_3441,
												(int) (3L), BgL_za7za7_41);
											{
												obj_t BgL_kz00_4666;
												obj_t BgL_dz00_4665;

												BgL_dz00_4665 = BgL_arg1621z00_1622;
												BgL_kz00_4666 = BgL_zc3z04anonymousza31623ze3z87_3441;
												BgL_kz00_40 = BgL_kz00_4666;
												BgL_dz00_37 = BgL_dz00_4665;
												goto BGl_matchz00zz__match_descriptionsz00;
											}
										}
									}
								else
									{	/* Match/descr.scm 424 */
										if (
											(BgL_casezd2valuezd2_1608 ==
												BGl_symbol2189z00zz__match_descriptionsz00))
											{	/* Match/descr.scm 424 */
												if (PAIRP(BgL_ez00_38))
													{	/* Match/descr.scm 436 */
														obj_t BgL_arg1627z00_1630;
														obj_t BgL_arg1628z00_1631;

														{	/* Match/descr.scm 436 */
															obj_t BgL_pairz00_2796;

															BgL_pairz00_2796 = CDR(((obj_t) BgL_dz00_37));
															BgL_arg1627z00_1630 = CAR(BgL_pairz00_2796);
														}
														BgL_arg1628z00_1631 = CAR(BgL_ez00_38);
														{	/* Match/descr.scm 438 */
															obj_t BgL_zc3z04anonymousza31630ze3z87_3442;

															BgL_zc3z04anonymousza31630ze3z87_3442 =
																MAKE_FX_PROCEDURE
																(BGl_z62zc3z04anonymousza31630ze3ze5zz__match_descriptionsz00,
																(int) (1L), (int) (4L));
															PROCEDURE_SET
																(BgL_zc3z04anonymousza31630ze3z87_3442,
																(int) (0L), BgL_dz00_37);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza31630ze3z87_3442,
																(int) (1L), BgL_ez00_38);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza31630ze3z87_3442,
																(int) (2L), BgL_kz00_40);
															PROCEDURE_SET
																(BgL_zc3z04anonymousza31630ze3z87_3442,
																(int) (3L), BgL_za7za7_41);
															{
																obj_t BgL_kz00_4688;
																obj_t BgL_ez00_4687;
																obj_t BgL_dz00_4686;

																BgL_dz00_4686 = BgL_arg1627z00_1630;
																BgL_ez00_4687 = BgL_arg1628z00_1631;
																BgL_kz00_4688 =
																	BgL_zc3z04anonymousza31630ze3z87_3442;
																BgL_kz00_40 = BgL_kz00_4688;
																BgL_ez00_38 = BgL_ez00_4687;
																BgL_dz00_37 = BgL_dz00_4686;
																goto BGl_matchz00zz__match_descriptionsz00;
															}
														}
													}
												else
													{	/* Match/descr.scm 435 */
														return
															BGL_PROCEDURE_CALL1(BgL_za7za7_41, BgL_envz00_39);
													}
											}
										else
											{	/* Match/descr.scm 424 */
												if (
													(BgL_casezd2valuezd2_1608 ==
														BGl_symbol2214z00zz__match_descriptionsz00))
													{	/* Match/descr.scm 445 */
														bool_t BgL_test2422z00_4695;

														{	/* Match/descr.scm 516 */
															obj_t BgL_tmpz00_4696;

															{	/* Match/descr.scm 516 */
																obj_t BgL_pairz00_2813;

																{	/* Match/descr.scm 445 */
																	obj_t BgL_pairz00_2811;

																	BgL_pairz00_2811 = CDR(((obj_t) BgL_dz00_37));
																	BgL_pairz00_2813 = CAR(BgL_pairz00_2811);
																}
																BgL_tmpz00_4696 = CAR(BgL_pairz00_2813);
															}
															BgL_test2422z00_4695 =
																(BgL_tmpz00_4696 ==
																BGl_symbol2198z00zz__match_descriptionsz00);
														}
														if (BgL_test2422z00_4695)
															{	/* Match/descr.scm 446 */
																obj_t BgL_sz00_1641;

																BgL_sz00_1641 =
																	BGL_PROCEDURE_CALL1
																	(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
																	BGl_string2235z00zz__match_descriptionsz00);
																{	/* Match/descr.scm 447 */
																	obj_t BgL_arg1636z00_1642;

																	{	/* Match/descr.scm 447 */
																		obj_t BgL_arg1637z00_1643;
																		obj_t BgL_arg1639z00_1644;

																		{	/* Match/descr.scm 447 */
																			obj_t BgL_pairz00_2821;

																			{	/* Match/descr.scm 447 */
																				obj_t BgL_pairz00_2820;

																				{	/* Match/descr.scm 447 */
																					obj_t BgL_pairz00_2819;

																					BgL_pairz00_2819 =
																						CDR(((obj_t) BgL_dz00_37));
																					BgL_pairz00_2820 =
																						CAR(BgL_pairz00_2819);
																				}
																				BgL_pairz00_2821 =
																					CDR(BgL_pairz00_2820);
																			}
																			BgL_arg1637z00_1643 =
																				CAR(BgL_pairz00_2821);
																		}
																		{	/* Match/descr.scm 447 */
																			obj_t BgL_arg1641z00_1645;

																			{	/* Match/descr.scm 447 */
																				obj_t BgL_arg1642z00_1646;

																				{	/* Match/descr.scm 447 */
																					obj_t BgL_arg1643z00_1647;

																					BgL_arg1643z00_1647 =
																						MAKE_YOUNG_PAIR(BgL_sz00_1641,
																						BNIL);
																					BgL_arg1642z00_1646 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2221z00zz__match_descriptionsz00,
																						BgL_arg1643z00_1647);
																				}
																				BgL_arg1641z00_1645 =
																					MAKE_YOUNG_PAIR(BgL_arg1642z00_1646,
																					BNIL);
																			}
																			BgL_arg1639z00_1644 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2214z00zz__match_descriptionsz00,
																				BgL_arg1641z00_1645);
																		}
																		{	/* Match/descr.scm 124 */
																			obj_t
																				BgL_zc3z04anonymousza31296ze3z87_3443;
																			BgL_zc3z04anonymousza31296ze3z87_3443 =
																				MAKE_FX_PROCEDURE
																				(BGl_z62zc3z04anonymousza31296ze32179ze5zz__match_descriptionsz00,
																				(int) (1L), (int) (3L));
																			PROCEDURE_SET
																				(BgL_zc3z04anonymousza31296ze3z87_3443,
																				(int) (0L), BgL_envz00_39);
																			PROCEDURE_SET
																				(BgL_zc3z04anonymousza31296ze3z87_3443,
																				(int) (1L), BgL_arg1639z00_1644);
																			PROCEDURE_SET
																				(BgL_zc3z04anonymousza31296ze3z87_3443,
																				(int) (2L), BgL_arg1637z00_1643);
																			BgL_arg1636z00_1642 =
																				BgL_zc3z04anonymousza31296ze3z87_3443;
																	}}
																	return
																		BGL_PROCEDURE_CALL1(BgL_kz00_40,
																		BgL_arg1636z00_1642);
																}
															}
														else
															{	/* Match/descr.scm 448 */
																obj_t BgL_arg1644z00_1648;

																{	/* Match/descr.scm 448 */
																	obj_t BgL_pairz00_2827;

																	BgL_pairz00_2827 = CDR(((obj_t) BgL_dz00_37));
																	BgL_arg1644z00_1648 = CAR(BgL_pairz00_2827);
																}
																{
																	obj_t BgL_za7za7_4733;
																	obj_t BgL_kz00_4732;
																	obj_t BgL_dz00_4731;

																	BgL_dz00_4731 = BgL_arg1644z00_1648;
																	BgL_kz00_4732 = BgL_za7za7_41;
																	BgL_za7za7_4733 = BgL_kz00_40;
																	BgL_za7za7_41 = BgL_za7za7_4733;
																	BgL_kz00_40 = BgL_kz00_4732;
																	BgL_dz00_37 = BgL_dz00_4731;
																	goto BGl_matchz00zz__match_descriptionsz00;
																}
															}
													}
												else
													{	/* Match/descr.scm 424 */
														if (
															(BgL_casezd2valuezd2_1608 ==
																BGl_symbol2200z00zz__match_descriptionsz00))
															{	/* Match/descr.scm 453 */
																obj_t BgL_fun1650z00_1653;

																{	/* Match/descr.scm 453 */
																	obj_t BgL_arg1647z00_1651;
																	obj_t BgL_arg1649z00_1652;

																	{	/* Match/descr.scm 453 */
																		obj_t BgL_pairz00_2834;

																		{	/* Match/descr.scm 453 */
																			obj_t BgL_pairz00_2833;

																			BgL_pairz00_2833 =
																				CDR(((obj_t) BgL_dz00_37));
																			BgL_pairz00_2834 = CDR(BgL_pairz00_2833);
																		}
																		BgL_arg1647z00_1651 = CAR(BgL_pairz00_2834);
																	}
																	{	/* Match/descr.scm 453 */
																		obj_t BgL_pairz00_2840;

																		{	/* Match/descr.scm 453 */
																			obj_t BgL_pairz00_2839;

																			BgL_pairz00_2839 =
																				CDR(((obj_t) BgL_ez00_38));
																			BgL_pairz00_2840 = CDR(BgL_pairz00_2839);
																		}
																		BgL_arg1649z00_1652 = CAR(BgL_pairz00_2840);
																	}
																	BgL_fun1650z00_1653 =
																		BGl_matchz00zz__match_descriptionsz00
																		(BgL_arg1647z00_1651, BgL_arg1649z00_1652,
																		BgL_envz00_39, BgL_kz00_40, BgL_za7za7_41);
																}
																return
																	BGL_PROCEDURE_CALL1(BgL_fun1650z00_1653,
																	BINT(0L));
															}
														else
															{	/* Match/descr.scm 424 */
																if (
																	(BgL_casezd2valuezd2_1608 ==
																		BGl_symbol2191z00zz__match_descriptionsz00))
																	{	/* Match/descr.scm 456 */
																		obj_t BgL_zc3z04anonymousza31652ze3z87_3445;

																		BgL_zc3z04anonymousza31652ze3z87_3445 =
																			MAKE_FX_PROCEDURE
																			(BGl_z62zc3z04anonymousza31652ze3ze5zz__match_descriptionsz00,
																			(int) (1L), (int) (5L));
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31652ze3z87_3445,
																			(int) (0L), BgL_dz00_37);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31652ze3z87_3445,
																			(int) (1L), BgL_ez00_38);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31652ze3z87_3445,
																			(int) (2L), BgL_kz00_40);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31652ze3z87_3445,
																			(int) (3L), BgL_za7za7_41);
																		PROCEDURE_SET
																			(BgL_zc3z04anonymousza31652ze3z87_3445,
																			(int) (4L), BgL_envz00_39);
																		return
																			BgL_zc3z04anonymousza31652ze3z87_3445;
																	}
																else
																	{	/* Match/descr.scm 424 */
																		if (
																			(BgL_casezd2valuezd2_1608 ==
																				BGl_symbol2202z00zz__match_descriptionsz00))
																			{	/* Match/descr.scm 467 */
																				obj_t
																					BgL_zc3z04anonymousza31669ze3z87_3446;
																				BgL_zc3z04anonymousza31669ze3z87_3446 =
																					MAKE_FX_PROCEDURE
																					(BGl_z62zc3z04anonymousza31669ze3ze5zz__match_descriptionsz00,
																					(int) (1L), (int) (2L));
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31669ze3z87_3446,
																					(int) (0L), BgL_kz00_40);
																				PROCEDURE_SET
																					(BgL_zc3z04anonymousza31669ze3z87_3446,
																					(int) (1L), BgL_envz00_39);
																				return
																					BgL_zc3z04anonymousza31669ze3z87_3446;
																			}
																		else
																			{	/* Match/descr.scm 424 */
																				if (
																					(BgL_casezd2valuezd2_1608 ==
																						BGl_symbol2198z00zz__match_descriptionsz00))
																					{	/* Match/descr.scm 469 */
																						bool_t BgL_test2427z00_4776;

																						{	/* Match/descr.scm 469 */
																							obj_t BgL_arg1690z00_1683;

																							{	/* Match/descr.scm 469 */
																								obj_t BgL_arg1691z00_1684;

																								{	/* Match/descr.scm 469 */
																									obj_t BgL_pairz00_2866;

																									BgL_pairz00_2866 =
																										CDR(((obj_t) BgL_dz00_37));
																									BgL_arg1691z00_1684 =
																										CAR(BgL_pairz00_2866);
																								}
																								BgL_arg1690z00_1683 =
																									BGL_PROCEDURE_CALL1
																									(BgL_envz00_39,
																									BgL_arg1691z00_1684);
																							}
																							BgL_test2427z00_4776 =
																								(BgL_arg1690z00_1683 ==
																								BGl_symbol2231z00zz__match_descriptionsz00);
																						}
																						if (BgL_test2427z00_4776)
																							{	/* Match/descr.scm 470 */
																								obj_t BgL_arg1674z00_1676;

																								{	/* Match/descr.scm 470 */
																									obj_t BgL_arg1675z00_1677;

																									{	/* Match/descr.scm 470 */
																										obj_t BgL_pairz00_2870;

																										BgL_pairz00_2870 =
																											CDR(
																											((obj_t) BgL_dz00_37));
																										BgL_arg1675z00_1677 =
																											CAR(BgL_pairz00_2870);
																									}
																									{	/* Match/descr.scm 124 */
																										obj_t
																											BgL_zc3z04anonymousza31296ze3z87_3447;
																										BgL_zc3z04anonymousza31296ze3z87_3447
																											=
																											MAKE_FX_PROCEDURE
																											(BGl_z62zc3z04anonymousza31296ze32180ze5zz__match_descriptionsz00,
																											(int) (1L), (int) (3L));
																										PROCEDURE_SET
																											(BgL_zc3z04anonymousza31296ze3z87_3447,
																											(int) (0L),
																											BgL_envz00_39);
																										PROCEDURE_SET
																											(BgL_zc3z04anonymousza31296ze3z87_3447,
																											(int) (1L), BgL_ez00_38);
																										PROCEDURE_SET
																											(BgL_zc3z04anonymousza31296ze3z87_3447,
																											(int) (2L),
																											BgL_arg1675z00_1677);
																										BgL_arg1674z00_1676 =
																											BgL_zc3z04anonymousza31296ze3z87_3447;
																								}}
																								return
																									BGL_PROCEDURE_CALL1
																									(BgL_kz00_40,
																									BgL_arg1674z00_1676);
																							}
																						else
																							{	/* Match/descr.scm 471 */
																								bool_t BgL_test2428z00_4801;

																								{	/* Match/descr.scm 471 */
																									obj_t BgL_arg1687z00_1681;

																									{	/* Match/descr.scm 471 */
																										obj_t BgL_arg1689z00_1682;

																										{	/* Match/descr.scm 471 */
																											obj_t BgL_pairz00_2876;

																											BgL_pairz00_2876 =
																												CDR(
																												((obj_t) BgL_dz00_37));
																											BgL_arg1689z00_1682 =
																												CAR(BgL_pairz00_2876);
																										}
																										BgL_arg1687z00_1681 =
																											BGL_PROCEDURE_CALL1
																											(BgL_envz00_39,
																											BgL_arg1689z00_1682);
																									}
																									BgL_test2428z00_4801 =
																										(BgL_arg1687z00_1681 ==
																										BgL_ez00_38);
																								}
																								if (BgL_test2428z00_4801)
																									{	/* Match/descr.scm 471 */
																										return
																											BGL_PROCEDURE_CALL1
																											(BgL_kz00_40,
																											BgL_envz00_39);
																									}
																								else
																									{	/* Match/descr.scm 471 */
																										return
																											BGL_PROCEDURE_CALL1
																											(BgL_za7za7_41,
																											BgL_envz00_39);
																									}
																							}
																					}
																				else
																					{	/* Match/descr.scm 424 */
																						return BUNSPEC;
																					}
																			}
																	}
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* &<@anonymous:1623> */
	obj_t BGl_z62zc3z04anonymousza31623ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3448, obj_t BgL_envz00_3453)
	{
		{	/* Match/descr.scm 431 */
			{	/* Match/descr.scm 432 */
				obj_t BgL_dz00_3449;
				obj_t BgL_ez00_3450;
				obj_t BgL_kz00_3451;
				obj_t BgL_za7za7_3452;

				BgL_dz00_3449 = PROCEDURE_REF(BgL_envz00_3448, (int) (0L));
				BgL_ez00_3450 = PROCEDURE_REF(BgL_envz00_3448, (int) (1L));
				BgL_kz00_3451 = PROCEDURE_REF(BgL_envz00_3448, (int) (2L));
				BgL_za7za7_3452 = PROCEDURE_REF(BgL_envz00_3448, (int) (3L));
				{	/* Match/descr.scm 432 */
					obj_t BgL_arg1624z00_3604;

					{	/* Match/descr.scm 432 */
						obj_t BgL_pairz00_3605;

						{	/* Match/descr.scm 432 */
							obj_t BgL_pairz00_3606;

							BgL_pairz00_3606 = CDR(((obj_t) BgL_dz00_3449));
							BgL_pairz00_3605 = CDR(BgL_pairz00_3606);
						}
						BgL_arg1624z00_3604 = CAR(BgL_pairz00_3605);
					}
					return
						BGl_matchz00zz__match_descriptionsz00(BgL_arg1624z00_3604,
						BgL_ez00_3450, BgL_envz00_3453, BgL_kz00_3451, BgL_za7za7_3452);
				}
			}
		}

	}



/* &<@anonymous:1630> */
	obj_t BGl_z62zc3z04anonymousza31630ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3454, obj_t BgL_envz00_3459)
	{
		{	/* Match/descr.scm 437 */
			{	/* Match/descr.scm 438 */
				obj_t BgL_dz00_3455;
				obj_t BgL_ez00_3456;
				obj_t BgL_kz00_3457;
				obj_t BgL_za7za7_3458;

				BgL_dz00_3455 = PROCEDURE_REF(BgL_envz00_3454, (int) (0L));
				BgL_ez00_3456 = PROCEDURE_REF(BgL_envz00_3454, (int) (1L));
				BgL_kz00_3457 = PROCEDURE_REF(BgL_envz00_3454, (int) (2L));
				BgL_za7za7_3458 = PROCEDURE_REF(BgL_envz00_3454, (int) (3L));
				{	/* Match/descr.scm 438 */
					obj_t BgL_arg1631z00_3607;
					obj_t BgL_arg1632z00_3608;

					{	/* Match/descr.scm 438 */
						obj_t BgL_pairz00_3609;

						{	/* Match/descr.scm 438 */
							obj_t BgL_pairz00_3610;

							BgL_pairz00_3610 = CDR(((obj_t) BgL_dz00_3455));
							BgL_pairz00_3609 = CDR(BgL_pairz00_3610);
						}
						BgL_arg1631z00_3607 = CAR(BgL_pairz00_3609);
					}
					BgL_arg1632z00_3608 = CDR(((obj_t) BgL_ez00_3456));
					return
						BGl_matchz00zz__match_descriptionsz00(BgL_arg1631z00_3607,
						BgL_arg1632z00_3608, BgL_envz00_3459, BgL_kz00_3457,
						BgL_za7za7_3458);
				}
			}
		}

	}



/* &<@anonymous:1296>2179 */
	obj_t BGl_z62zc3z04anonymousza31296ze32179ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3460, obj_t BgL_xz00_3464)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3461;
				obj_t BgL_arg1639z00_3462;
				obj_t BgL_arg1637z00_3463;

				BgL_envz00_3461 = PROCEDURE_REF(BgL_envz00_3460, (int) (0L));
				BgL_arg1639z00_3462 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3460, (int) (1L)));
				BgL_arg1637z00_3463 = PROCEDURE_REF(BgL_envz00_3460, (int) (2L));
				if ((BgL_xz00_3464 == BgL_arg1637z00_3463))
					{	/* Match/descr.scm 124 */
						return BgL_arg1639z00_3462;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3461, BgL_xz00_3464);
					}
			}
		}

	}



/* &<@anonymous:1652> */
	obj_t BGl_z62zc3z04anonymousza31652ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3465, obj_t BgL_iz00_3471)
	{
		{	/* Match/descr.scm 456 */
			{	/* Match/descr.scm 457 */
				obj_t BgL_dz00_3466;
				obj_t BgL_ez00_3467;
				obj_t BgL_kz00_3468;
				obj_t BgL_za7za7_3469;
				obj_t BgL_envz00_3470;

				BgL_dz00_3466 = PROCEDURE_REF(BgL_envz00_3465, (int) (0L));
				BgL_ez00_3467 = PROCEDURE_REF(BgL_envz00_3465, (int) (1L));
				BgL_kz00_3468 = PROCEDURE_REF(BgL_envz00_3465, (int) (2L));
				BgL_za7za7_3469 = PROCEDURE_REF(BgL_envz00_3465, (int) (3L));
				BgL_envz00_3470 = PROCEDURE_REF(BgL_envz00_3465, (int) (4L));
				if (
					((long) CINT(BgL_iz00_3471) >=
						VECTOR_LENGTH(((obj_t) BgL_ez00_3467))))
					{	/* Match/descr.scm 457 */
						return BGL_PROCEDURE_CALL1(BgL_kz00_3468, BgL_envz00_3470);
					}
				else
					{	/* Match/descr.scm 459 */
						obj_t BgL_arg1655z00_3611;
						obj_t BgL_arg1658z00_3612;

						{	/* Match/descr.scm 459 */
							obj_t BgL_pairz00_3613;

							BgL_pairz00_3613 = CDR(((obj_t) BgL_dz00_3466));
							BgL_arg1655z00_3611 = CAR(BgL_pairz00_3613);
						}
						{	/* Match/descr.scm 459 */
							long BgL_kz00_3614;

							BgL_kz00_3614 = (long) CINT(BgL_iz00_3471);
							BgL_arg1658z00_3612 =
								VECTOR_REF(((obj_t) BgL_ez00_3467), BgL_kz00_3614);
						}
						{	/* Match/descr.scm 462 */
							obj_t BgL_zc3z04anonymousza31660ze3z87_3615;

							BgL_zc3z04anonymousza31660ze3z87_3615 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31660ze3ze5zz__match_descriptionsz00,
								(int) (1L), (int) (5L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31660ze3z87_3615, (int) (0L),
								BgL_dz00_3466);
							PROCEDURE_SET(BgL_zc3z04anonymousza31660ze3z87_3615, (int) (1L),
								BgL_ez00_3467);
							PROCEDURE_SET(BgL_zc3z04anonymousza31660ze3z87_3615, (int) (2L),
								BgL_kz00_3468);
							PROCEDURE_SET(BgL_zc3z04anonymousza31660ze3z87_3615, (int) (3L),
								BgL_za7za7_3469);
							PROCEDURE_SET(BgL_zc3z04anonymousza31660ze3z87_3615, (int) (4L),
								BgL_iz00_3471);
							return
								BGl_comparez00zz__match_descriptionsz00(BgL_arg1655z00_3611,
								BgL_arg1658z00_3612, BgL_envz00_3470,
								BgL_zc3z04anonymousza31660ze3z87_3615, BgL_za7za7_3469);
						}
					}
			}
		}

	}



/* &<@anonymous:1660> */
	obj_t BGl_z62zc3z04anonymousza31660ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3472, obj_t BgL_envz00_3478)
	{
		{	/* Match/descr.scm 461 */
			{	/* Match/descr.scm 462 */
				obj_t BgL_dz00_3473;
				obj_t BgL_ez00_3474;
				obj_t BgL_kz00_3475;
				obj_t BgL_za7za7_3476;
				obj_t BgL_iz00_3477;

				BgL_dz00_3473 = PROCEDURE_REF(BgL_envz00_3472, (int) (0L));
				BgL_ez00_3474 = PROCEDURE_REF(BgL_envz00_3472, (int) (1L));
				BgL_kz00_3475 = PROCEDURE_REF(BgL_envz00_3472, (int) (2L));
				BgL_za7za7_3476 = PROCEDURE_REF(BgL_envz00_3472, (int) (3L));
				BgL_iz00_3477 = PROCEDURE_REF(BgL_envz00_3472, (int) (4L));
				{	/* Match/descr.scm 462 */
					obj_t BgL_fun1666z00_3616;

					{	/* Match/descr.scm 462 */
						obj_t BgL_arg1662z00_3617;

						{	/* Match/descr.scm 462 */
							obj_t BgL_pairz00_3618;

							{	/* Match/descr.scm 462 */
								obj_t BgL_pairz00_3619;

								BgL_pairz00_3619 = CDR(((obj_t) BgL_dz00_3473));
								BgL_pairz00_3618 = CDR(BgL_pairz00_3619);
							}
							BgL_arg1662z00_3617 = CAR(BgL_pairz00_3618);
						}
						BgL_fun1666z00_3616 =
							BGl_matchz00zz__match_descriptionsz00(BgL_arg1662z00_3617,
							BgL_ez00_3474, BgL_envz00_3478, BgL_kz00_3475, BgL_za7za7_3476);
					}
					{	/* Match/descr.scm 463 */
						long BgL_arg1664z00_3620;

						BgL_arg1664z00_3620 = ((long) CINT(BgL_iz00_3477) + 1L);
						return
							BGL_PROCEDURE_CALL1(BgL_fun1666z00_3616,
							BINT(BgL_arg1664z00_3620));
					}
				}
			}
		}

	}



/* &<@anonymous:1669> */
	obj_t BGl_z62zc3z04anonymousza31669ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3479, obj_t BgL_iz00_3482)
	{
		{	/* Match/descr.scm 467 */
			{	/* Match/descr.scm 467 */
				obj_t BgL_kz00_3480;
				obj_t BgL_envz00_3481;

				BgL_kz00_3480 = PROCEDURE_REF(BgL_envz00_3479, (int) (0L));
				BgL_envz00_3481 = PROCEDURE_REF(BgL_envz00_3479, (int) (1L));
				return BGL_PROCEDURE_CALL1(BgL_kz00_3480, BgL_envz00_3481);
			}
		}

	}



/* &<@anonymous:1296>2180 */
	obj_t BGl_z62zc3z04anonymousza31296ze32180ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3483, obj_t BgL_xz00_3487)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3484;
				obj_t BgL_ez00_3485;
				obj_t BgL_arg1675z00_3486;

				BgL_envz00_3484 = PROCEDURE_REF(BgL_envz00_3483, (int) (0L));
				BgL_ez00_3485 = PROCEDURE_REF(BgL_envz00_3483, (int) (1L));
				BgL_arg1675z00_3486 = PROCEDURE_REF(BgL_envz00_3483, (int) (2L));
				if ((BgL_xz00_3487 == BgL_arg1675z00_3486))
					{	/* Match/descr.scm 124 */
						return BgL_ez00_3485;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3484, BgL_xz00_3487);
					}
			}
		}

	}



/* alpha-convert */
	obj_t BGl_alphazd2convertzd2zz__match_descriptionsz00(obj_t BgL_fz00_42)
	{
		{	/* Match/descr.scm 479 */
			return
				BGl_z62loopz62zz__match_descriptionsz00(BgL_fz00_42,
				BGl_proc2241z00zz__match_descriptionsz00,
				BGl_proc2240z00zz__match_descriptionsz00);
		}

	}



/* &loop */
	obj_t BGl_z62loopz62zz__match_descriptionsz00(obj_t BgL_fz00_1688,
		obj_t BgL_envz00_1689, obj_t BgL_kz00_1690)
	{
		{	/* Match/descr.scm 480 */
		BGl_z62loopz62zz__match_descriptionsz00:
			if (PAIRP(BgL_fz00_1688))
				{	/* Match/descr.scm 484 */
					if (
						(CAR(BgL_fz00_1688) == BGl_symbol2221z00zz__match_descriptionsz00))
						{	/* Match/descr.scm 486 */
							return
								((obj_t(*)(obj_t, obj_t,
										obj_t)) PROCEDURE_L_ENTRY(BgL_kz00_1690)) (BgL_kz00_1690,
								BgL_fz00_1688, BgL_envz00_1689);
						}
					else
						{	/* Match/descr.scm 486 */
							if (
								(CAR(BgL_fz00_1688) ==
									BGl_symbol2198z00zz__match_descriptionsz00))
								{	/* Match/descr.scm 489 */
									bool_t BgL_test2435z00_4954;

									{	/* Match/descr.scm 489 */
										obj_t BgL_arg1720z00_1711;

										{	/* Match/descr.scm 489 */
											obj_t BgL_arg1721z00_1712;

											BgL_arg1721z00_1712 = CAR(CDR(BgL_fz00_1688));
											BgL_arg1720z00_1711 =
												BGL_PROCEDURE_CALL1(BgL_envz00_1689,
												BgL_arg1721z00_1712);
										}
										BgL_test2435z00_4954 =
											(BgL_arg1720z00_1711 ==
											BGl_symbol2231z00zz__match_descriptionsz00);
									}
									if (BgL_test2435z00_4954)
										{	/* Match/descr.scm 490 */
											obj_t BgL_sz00_1700;

											BgL_sz00_1700 =
												BGL_PROCEDURE_CALL1
												(BGl_jimzd2gensymzd2zz__match_s2cfunz00,
												BGl_string2242z00zz__match_descriptionsz00);
											{	/* Match/descr.scm 491 */
												obj_t BgL_arg1708z00_1701;
												obj_t BgL_arg1709z00_1702;

												{	/* Match/descr.scm 491 */
													obj_t BgL_list1710z00_1703;

													{	/* Match/descr.scm 491 */
														obj_t BgL_arg1711z00_1704;

														BgL_arg1711z00_1704 =
															MAKE_YOUNG_PAIR(BgL_sz00_1700, BNIL);
														BgL_list1710z00_1703 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2198z00zz__match_descriptionsz00,
															BgL_arg1711z00_1704);
													}
													BgL_arg1708z00_1701 = BgL_list1710z00_1703;
												}
												{	/* Match/descr.scm 491 */
													obj_t BgL_arg1712z00_1705;

													BgL_arg1712z00_1705 = CAR(CDR(BgL_fz00_1688));
													{	/* Match/descr.scm 124 */
														obj_t BgL_zc3z04anonymousza31296ze3z87_3488;

														BgL_zc3z04anonymousza31296ze3z87_3488 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza31296ze32181ze5zz__match_descriptionsz00,
															(int) (1L), (int) (3L));
														PROCEDURE_SET(BgL_zc3z04anonymousza31296ze3z87_3488,
															(int) (0L), BgL_envz00_1689);
														PROCEDURE_SET(BgL_zc3z04anonymousza31296ze3z87_3488,
															(int) (1L), BgL_sz00_1700);
														PROCEDURE_SET(BgL_zc3z04anonymousza31296ze3z87_3488,
															(int) (2L), BgL_arg1712z00_1705);
														BgL_arg1709z00_1702 =
															BgL_zc3z04anonymousza31296ze3z87_3488;
												}}
												return
													((obj_t(*)(obj_t, obj_t,
															obj_t))
													PROCEDURE_L_ENTRY(BgL_kz00_1690)) (BgL_kz00_1690,
													BgL_arg1708z00_1701, BgL_arg1709z00_1702);
											}
										}
									else
										{	/* Match/descr.scm 492 */
											obj_t BgL_arg1714z00_1706;

											{	/* Match/descr.scm 492 */
												obj_t BgL_arg1715z00_1707;

												{	/* Match/descr.scm 492 */
													obj_t BgL_arg1719z00_1710;

													BgL_arg1719z00_1710 = CAR(CDR(BgL_fz00_1688));
													BgL_arg1715z00_1707 =
														BGL_PROCEDURE_CALL1(BgL_envz00_1689,
														BgL_arg1719z00_1710);
												}
												{	/* Match/descr.scm 492 */
													obj_t BgL_list1716z00_1708;

													{	/* Match/descr.scm 492 */
														obj_t BgL_arg1718z00_1709;

														BgL_arg1718z00_1709 =
															MAKE_YOUNG_PAIR(BgL_arg1715z00_1707, BNIL);
														BgL_list1716z00_1708 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2198z00zz__match_descriptionsz00,
															BgL_arg1718z00_1709);
													}
													BgL_arg1714z00_1706 = BgL_list1716z00_1708;
												}
											}
											return
												((obj_t(*)(obj_t, obj_t,
														obj_t))
												PROCEDURE_L_ENTRY(BgL_kz00_1690)) (BgL_kz00_1690,
												BgL_arg1714z00_1706, BgL_envz00_1689);
										}
								}
							else
								{	/* Match/descr.scm 493 */
									obj_t BgL_arg1722z00_1713;

									BgL_arg1722z00_1713 = CAR(BgL_fz00_1688);
									{	/* Match/descr.scm 495 */
										obj_t BgL_zc3z04anonymousza31724ze3z87_3490;

										{
											int BgL_tmpz00_4998;

											BgL_tmpz00_4998 = (int) (2L);
											BgL_zc3z04anonymousza31724ze3z87_3490 =
												MAKE_L_PROCEDURE
												(BGl_z62zc3z04anonymousza31724ze3ze5zz__match_descriptionsz00,
												BgL_tmpz00_4998);
										}
										PROCEDURE_L_SET(BgL_zc3z04anonymousza31724ze3z87_3490,
											(int) (0L), BgL_fz00_1688);
										PROCEDURE_L_SET(BgL_zc3z04anonymousza31724ze3z87_3490,
											(int) (1L), BgL_kz00_1690);
										{
											obj_t BgL_kz00_5006;
											obj_t BgL_fz00_5005;

											BgL_fz00_5005 = BgL_arg1722z00_1713;
											BgL_kz00_5006 = BgL_zc3z04anonymousza31724ze3z87_3490;
											BgL_kz00_1690 = BgL_kz00_5006;
											BgL_fz00_1688 = BgL_fz00_5005;
											goto BGl_z62loopz62zz__match_descriptionsz00;
										}
									}
								}
						}
				}
			else
				{	/* Match/descr.scm 484 */
					return
						((obj_t(*)(obj_t, obj_t,
								obj_t)) PROCEDURE_L_ENTRY(BgL_kz00_1690)) (BgL_kz00_1690,
						BgL_fz00_1688, BgL_envz00_1689);
				}
		}

	}



/* &g1051 */
	obj_t BGl_z62g1051z62zz__match_descriptionsz00(obj_t BgL_envz00_3494,
		obj_t BgL_fz00_3495, obj_t BgL_ez00_3496)
	{
		{	/* Match/descr.scm 482 */
			return BgL_fz00_3495;
		}

	}



/* &g1050 */
	obj_t BGl_z62g1050z62zz__match_descriptionsz00(obj_t BgL_envz00_3497,
		obj_t BgL_xz00_3498)
	{
		{	/* Match/descr.scm 481 */
			return BGl_symbol2231z00zz__match_descriptionsz00;
		}

	}



/* &<@anonymous:1296>2181 */
	obj_t BGl_z62zc3z04anonymousza31296ze32181ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3499, obj_t BgL_xz00_3503)
	{
		{	/* Match/descr.scm 124 */
			{	/* Match/descr.scm 124 */
				obj_t BgL_envz00_3500;
				obj_t BgL_sz00_3501;
				obj_t BgL_arg1712z00_3502;

				BgL_envz00_3500 = ((obj_t) PROCEDURE_REF(BgL_envz00_3499, (int) (0L)));
				BgL_sz00_3501 = PROCEDURE_REF(BgL_envz00_3499, (int) (1L));
				BgL_arg1712z00_3502 = PROCEDURE_REF(BgL_envz00_3499, (int) (2L));
				if ((BgL_xz00_3503 == BgL_arg1712z00_3502))
					{	/* Match/descr.scm 124 */
						return BgL_sz00_3501;
					}
				else
					{	/* Match/descr.scm 124 */
						return BGL_PROCEDURE_CALL1(BgL_envz00_3500, BgL_xz00_3503);
					}
			}
		}

	}



/* &<@anonymous:1724> */
	obj_t BGl_z62zc3z04anonymousza31724ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3504, obj_t BgL_fcarz00_3507, obj_t BgL_ez00_3508)
	{
		{	/* Match/descr.scm 494 */
			{	/* Match/descr.scm 495 */
				obj_t BgL_fz00_3505;
				obj_t BgL_kz00_3506;

				BgL_fz00_3505 = PROCEDURE_L_REF(BgL_envz00_3504, (int) (0L));
				BgL_kz00_3506 = ((obj_t) PROCEDURE_L_REF(BgL_envz00_3504, (int) (1L)));
				{	/* Match/descr.scm 495 */
					obj_t BgL_arg1725z00_3623;

					BgL_arg1725z00_3623 = CDR(((obj_t) BgL_fz00_3505));
					{	/* Match/descr.scm 497 */
						obj_t BgL_zc3z04anonymousza31727ze3z87_3624;

						{	/* Match/descr.scm 495 */
							int BgL_tmpz00_5032;

							BgL_tmpz00_5032 = (int) (2L);
							BgL_zc3z04anonymousza31727ze3z87_3624 =
								MAKE_L_PROCEDURE
								(BGl_z62zc3z04anonymousza31727ze3ze5zz__match_descriptionsz00,
								BgL_tmpz00_5032);
						}
						PROCEDURE_L_SET(BgL_zc3z04anonymousza31727ze3z87_3624,
							(int) (0L), BgL_fcarz00_3507);
						PROCEDURE_L_SET(BgL_zc3z04anonymousza31727ze3z87_3624,
							(int) (1L), BgL_kz00_3506);
						return
							BGl_z62loopz62zz__match_descriptionsz00(BgL_arg1725z00_3623,
							BgL_ez00_3508, BgL_zc3z04anonymousza31727ze3z87_3624);
					}
				}
			}
		}

	}



/* &<@anonymous:1727> */
	obj_t BGl_z62zc3z04anonymousza31727ze3ze5zz__match_descriptionsz00(obj_t
		BgL_envz00_3509, obj_t BgL_fcdrz00_3512, obj_t BgL_ez00_3513)
	{
		{	/* Match/descr.scm 496 */
			{	/* Match/descr.scm 497 */
				obj_t BgL_fcarz00_3510;
				obj_t BgL_kz00_3511;

				BgL_fcarz00_3510 = PROCEDURE_L_REF(BgL_envz00_3509, (int) (0L));
				BgL_kz00_3511 = ((obj_t) PROCEDURE_L_REF(BgL_envz00_3509, (int) (1L)));
				{	/* Match/descr.scm 497 */
					obj_t BgL_arg1728z00_3626;

					BgL_arg1728z00_3626 =
						MAKE_YOUNG_PAIR(BgL_fcarz00_3510, BgL_fcdrz00_3512);
					return
						((obj_t(*)(obj_t, obj_t,
								obj_t)) PROCEDURE_L_ENTRY(BgL_kz00_3511)) (BgL_kz00_3511,
						BgL_arg1728z00_3626, BgL_ez00_3513);
				}
			}
		}

	}



/* isAny? */
	BGL_EXPORTED_DEF obj_t BGl_isAnyzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_43)
	{
		{	/* Match/descr.scm 502 */
			if (
				(CAR(
						((obj_t) BgL_cz00_43)) ==
					BGl_symbol2206z00zz__match_descriptionsz00))
				{	/* Match/descr.scm 502 */
					return BTRUE;
				}
			else
				{	/* Match/descr.scm 502 */
					return
						BBOOL(
						(CAR(
								((obj_t) BgL_cz00_43)) ==
							BGl_symbol2208z00zz__match_descriptionsz00));
				}
		}

	}



/* &isAny? */
	obj_t BGl_z62isAnyzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3514,
		obj_t BgL_cz00_3515)
	{
		{	/* Match/descr.scm 502 */
			return BGl_isAnyzf3zf3zz__match_descriptionsz00(BgL_cz00_3515);
		}

	}



/* isCheck? */
	BGL_EXPORTED_DEF obj_t BGl_isCheckzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_44)
	{
		{	/* Match/descr.scm 506 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_44)) ==
					BGl_symbol2208z00zz__match_descriptionsz00));
		}

	}



/* &isCheck? */
	obj_t BGl_z62isCheckzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3516,
		obj_t BgL_cz00_3517)
	{
		{	/* Match/descr.scm 506 */
			return BGl_isCheckzf3zf3zz__match_descriptionsz00(BgL_cz00_3517);
		}

	}



/* isSuccess? */
	BGL_EXPORTED_DEF obj_t BGl_isSuccesszf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_45)
	{
		{	/* Match/descr.scm 508 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_45)) ==
					BGl_symbol2219z00zz__match_descriptionsz00));
		}

	}



/* &isSuccess? */
	obj_t BGl_z62isSuccesszf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3518,
		obj_t BgL_cz00_3519)
	{
		{	/* Match/descr.scm 508 */
			return BGl_isSuccesszf3zf3zz__match_descriptionsz00(BgL_cz00_3519);
		}

	}



/* isTop? */
	BGL_EXPORTED_DEF obj_t BGl_isTopzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_46)
	{
		{	/* Match/descr.scm 510 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_46)) ==
					BGl_symbol2243z00zz__match_descriptionsz00));
		}

	}



/* &isTop? */
	obj_t BGl_z62isTopzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3520,
		obj_t BgL_cz00_3521)
	{
		{	/* Match/descr.scm 510 */
			return BGl_isTopzf3zf3zz__match_descriptionsz00(BgL_cz00_3521);
		}

	}



/* isBottom? */
	BGL_EXPORTED_DEF obj_t BGl_isBottomzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_47)
	{
		{	/* Match/descr.scm 512 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_47)) ==
					BGl_symbol2212z00zz__match_descriptionsz00));
		}

	}



/* &isBottom? */
	obj_t BGl_z62isBottomzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3522,
		obj_t BgL_cz00_3523)
	{
		{	/* Match/descr.scm 512 */
			return BGl_isBottomzf3zf3zz__match_descriptionsz00(BgL_cz00_3523);
		}

	}



/* isQuote? */
	BGL_EXPORTED_DEF obj_t BGl_isQuotezf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_48)
	{
		{	/* Match/descr.scm 514 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_48)) ==
					BGl_symbol2221z00zz__match_descriptionsz00));
		}

	}



/* &isQuote? */
	obj_t BGl_z62isQuotezf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3524,
		obj_t BgL_cz00_3525)
	{
		{	/* Match/descr.scm 514 */
			return BGl_isQuotezf3zf3zz__match_descriptionsz00(BgL_cz00_3525);
		}

	}



/* isVar? */
	BGL_EXPORTED_DEF obj_t BGl_isVarzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_49)
	{
		{	/* Match/descr.scm 516 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_49)) ==
					BGl_symbol2198z00zz__match_descriptionsz00));
		}

	}



/* &isVar? */
	obj_t BGl_z62isVarzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3526,
		obj_t BgL_cz00_3527)
	{
		{	/* Match/descr.scm 516 */
			return BGl_isVarzf3zf3zz__match_descriptionsz00(BgL_cz00_3527);
		}

	}



/* isNot? */
	BGL_EXPORTED_DEF obj_t BGl_isNotzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_50)
	{
		{	/* Match/descr.scm 518 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_50)) ==
					BGl_symbol2214z00zz__match_descriptionsz00));
		}

	}



/* &isNot? */
	obj_t BGl_z62isNotzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3528,
		obj_t BgL_cz00_3529)
	{
		{	/* Match/descr.scm 518 */
			return BGl_isNotzf3zf3zz__match_descriptionsz00(BgL_cz00_3529);
		}

	}



/* isAnd? */
	BGL_EXPORTED_DEF obj_t BGl_isAndzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_51)
	{
		{	/* Match/descr.scm 520 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_51)) ==
					BGl_symbol2186z00zz__match_descriptionsz00));
		}

	}



/* &isAnd? */
	obj_t BGl_z62isAndzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3530,
		obj_t BgL_cz00_3531)
	{
		{	/* Match/descr.scm 520 */
			return BGl_isAndzf3zf3zz__match_descriptionsz00(BgL_cz00_3531);
		}

	}



/* isOr? */
	BGL_EXPORTED_DEF obj_t BGl_isOrzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_52)
	{
		{	/* Match/descr.scm 522 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_52)) ==
					BGl_symbol2182z00zz__match_descriptionsz00));
		}

	}



/* &isOr? */
	obj_t BGl_z62isOrzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3532,
		obj_t BgL_cz00_3533)
	{
		{	/* Match/descr.scm 522 */
			return BGl_isOrzf3zf3zz__match_descriptionsz00(BgL_cz00_3533);
		}

	}



/* isT-Or? */
	BGL_EXPORTED_DEF obj_t BGl_isTzd2Orzf3z21zz__match_descriptionsz00(obj_t
		BgL_cz00_53)
	{
		{	/* Match/descr.scm 524 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_53)) ==
					BGl_symbol2184z00zz__match_descriptionsz00));
		}

	}



/* &isT-Or? */
	obj_t BGl_z62isTzd2Orzf3z43zz__match_descriptionsz00(obj_t BgL_envz00_3534,
		obj_t BgL_cz00_3535)
	{
		{	/* Match/descr.scm 524 */
			return BGl_isTzd2Orzf3z21zz__match_descriptionsz00(BgL_cz00_3535);
		}

	}



/* isTagged-Or? */
	BGL_EXPORTED_DEF obj_t BGl_isTaggedzd2Orzf3z21zz__match_descriptionsz00(obj_t
		BgL_cz00_54)
	{
		{	/* Match/descr.scm 526 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_54)) ==
					BGl_symbol2233z00zz__match_descriptionsz00));
		}

	}



/* &isTagged-Or? */
	obj_t BGl_z62isTaggedzd2Orzf3z43zz__match_descriptionsz00(obj_t
		BgL_envz00_3536, obj_t BgL_cz00_3537)
	{
		{	/* Match/descr.scm 526 */
			return BGl_isTaggedzd2Orzf3z21zz__match_descriptionsz00(BgL_cz00_3537);
		}

	}



/* isCons? */
	BGL_EXPORTED_DEF obj_t BGl_isConszf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_55)
	{
		{	/* Match/descr.scm 528 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_55)) ==
					BGl_symbol2189z00zz__match_descriptionsz00));
		}

	}



/* &isCons? */
	obj_t BGl_z62isConszf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3538,
		obj_t BgL_cz00_3539)
	{
		{	/* Match/descr.scm 528 */
			return BGl_isConszf3zf3zz__match_descriptionsz00(BgL_cz00_3539);
		}

	}



/* isACons? */
	BGL_EXPORTED_DEF obj_t BGl_isAConszf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_56)
	{
		{	/* Match/descr.scm 530 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_56)) ==
					BGl_symbol2224z00zz__match_descriptionsz00));
		}

	}



/* &isACons? */
	obj_t BGl_z62isAConszf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3540,
		obj_t BgL_cz00_3541)
	{
		{	/* Match/descr.scm 530 */
			return BGl_isAConszf3zf3zz__match_descriptionsz00(BgL_cz00_3541);
		}

	}



/* isXCons? */
	BGL_EXPORTED_DEF obj_t BGl_isXConszf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_57)
	{
		{	/* Match/descr.scm 532 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_57)) ==
					BGl_symbol2226z00zz__match_descriptionsz00));
		}

	}



/* &isXCons? */
	obj_t BGl_z62isXConszf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3542,
		obj_t BgL_cz00_3543)
	{
		{	/* Match/descr.scm 532 */
			return BGl_isXConszf3zf3zz__match_descriptionsz00(BgL_cz00_3543);
		}

	}



/* isTimes? */
	BGL_EXPORTED_DEF obj_t BGl_isTimeszf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_58)
	{
		{	/* Match/descr.scm 534 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_58)) ==
					BGl_symbol2196z00zz__match_descriptionsz00));
		}

	}



/* &isTimes? */
	obj_t BGl_z62isTimeszf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3544,
		obj_t BgL_cz00_3545)
	{
		{	/* Match/descr.scm 534 */
			return BGl_isTimeszf3zf3zz__match_descriptionsz00(BgL_cz00_3545);
		}

	}



/* containsHole? */
	BGL_EXPORTED_DEF obj_t BGl_containsHolezf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_59)
	{
		{	/* Match/descr.scm 536 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_59)) ==
					BGl_symbol2245z00zz__match_descriptionsz00));
		}

	}



/* &containsHole? */
	obj_t BGl_z62containsHolezf3z91zz__match_descriptionsz00(obj_t
		BgL_envz00_3546, obj_t BgL_cz00_3547)
	{
		{	/* Match/descr.scm 536 */
			return BGl_containsHolezf3zf3zz__match_descriptionsz00(BgL_cz00_3547);
		}

	}



/* isHole? */
	BGL_EXPORTED_DEF obj_t BGl_isHolezf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_60)
	{
		{	/* Match/descr.scm 538 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_60)) ==
					BGl_symbol2245z00zz__match_descriptionsz00));
		}

	}



/* &isHole? */
	obj_t BGl_z62isHolezf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3548,
		obj_t BgL_cz00_3549)
	{
		{	/* Match/descr.scm 538 */
			return BGl_isHolezf3zf3zz__match_descriptionsz00(BgL_cz00_3549);
		}

	}



/* isTree? */
	BGL_EXPORTED_DEF obj_t BGl_isTreezf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_61)
	{
		{	/* Match/descr.scm 540 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_61)) ==
					BGl_symbol2194z00zz__match_descriptionsz00));
		}

	}



/* &isTree? */
	obj_t BGl_z62isTreezf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3550,
		obj_t BgL_cz00_3551)
	{
		{	/* Match/descr.scm 540 */
			return BGl_isTreezf3zf3zz__match_descriptionsz00(BgL_cz00_3551);
		}

	}



/* isVector? */
	BGL_EXPORTED_DEF obj_t BGl_isVectorzf3zf3zz__match_descriptionsz00(obj_t
		BgL_cz00_62)
	{
		{	/* Match/descr.scm 542 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_62)) ==
					BGl_symbol2236z00zz__match_descriptionsz00));
		}

	}



/* &isVector? */
	obj_t BGl_z62isVectorzf3z91zz__match_descriptionsz00(obj_t BgL_envz00_3552,
		obj_t BgL_cz00_3553)
	{
		{	/* Match/descr.scm 542 */
			return BGl_isVectorzf3zf3zz__match_descriptionsz00(BgL_cz00_3553);
		}

	}



/* isVector-begin? */
	BGL_EXPORTED_DEF obj_t
		BGl_isVectorzd2beginzf3z21zz__match_descriptionsz00(obj_t BgL_cz00_63)
	{
		{	/* Match/descr.scm 544 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_63)) ==
					BGl_symbol2200z00zz__match_descriptionsz00));
		}

	}



/* &isVector-begin? */
	obj_t BGl_z62isVectorzd2beginzf3z43zz__match_descriptionsz00(obj_t
		BgL_envz00_3554, obj_t BgL_cz00_3555)
	{
		{	/* Match/descr.scm 544 */
			return BGl_isVectorzd2beginzf3z21zz__match_descriptionsz00(BgL_cz00_3555);
		}

	}



/* isVector-end? */
	BGL_EXPORTED_DEF obj_t BGl_isVectorzd2endzf3z21zz__match_descriptionsz00(obj_t
		BgL_cz00_64)
	{
		{	/* Match/descr.scm 546 */
			return
				BBOOL(
				(CAR(
						((obj_t) BgL_cz00_64)) ==
					BGl_symbol2202z00zz__match_descriptionsz00));
		}

	}



/* &isVector-end? */
	obj_t BGl_z62isVectorzd2endzf3z43zz__match_descriptionsz00(obj_t
		BgL_envz00_3556, obj_t BgL_cz00_3557)
	{
		{	/* Match/descr.scm 546 */
			return BGl_isVectorzd2endzf3z21zz__match_descriptionsz00(BgL_cz00_3557);
		}

	}



/* vector-plus */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2pluszd2zz__match_descriptionsz00(obj_t
		BgL_vz00_65, obj_t BgL_iz00_66, obj_t BgL_dz00_67)
	{
		{	/* Match/descr.scm 555 */
			{	/* Match/descr.scm 556 */
				bool_t BgL_test2438z00_5165;

				{	/* Match/descr.scm 556 */
					long BgL_arg1771z00_1767;

					{	/* Match/descr.scm 556 */
						obj_t BgL_arg1772z00_1768;

						{	/* Match/descr.scm 556 */
							obj_t BgL_pairz00_2955;

							{	/* Match/descr.scm 556 */
								obj_t BgL_pairz00_2954;

								BgL_pairz00_2954 = CDR(((obj_t) BgL_vz00_65));
								BgL_pairz00_2955 = CDR(BgL_pairz00_2954);
							}
							BgL_arg1772z00_1768 = CAR(BgL_pairz00_2955);
						}
						BgL_arg1771z00_1767 = VECTOR_LENGTH(((obj_t) BgL_arg1772z00_1768));
					}
					BgL_test2438z00_5165 =
						((long) CINT(BgL_iz00_66) >= BgL_arg1771z00_1767);
				}
				if (BgL_test2438z00_5165)
					{	/* Match/descr.scm 557 */
						obj_t BgL_arg1768z00_1764;
						obj_t BgL_arg1769z00_1765;

						{	/* Match/descr.scm 557 */
							obj_t BgL_pairz00_2962;

							BgL_pairz00_2962 = CDR(((obj_t) BgL_vz00_65));
							BgL_arg1768z00_1764 = CDR(BgL_pairz00_2962);
						}
						{	/* Match/descr.scm 558 */
							obj_t BgL_arg1770z00_1766;

							{	/* Match/descr.scm 558 */
								obj_t BgL_pairz00_2968;

								{	/* Match/descr.scm 558 */
									obj_t BgL_pairz00_2967;

									BgL_pairz00_2967 = CDR(((obj_t) BgL_vz00_65));
									BgL_pairz00_2968 = CDR(BgL_pairz00_2967);
								}
								BgL_arg1770z00_1766 = CAR(BgL_pairz00_2968);
							}
							{	/* Match/descr.scm 558 */
								obj_t BgL_fillz00_2969;

								BgL_fillz00_2969 = BGl_list2218z00zz__match_descriptionsz00;
								{	/* Match/descr.scm 582 */
									obj_t BgL_resz00_2970;

									{	/* Match/descr.scm 583 */
										obj_t BgL_newzd2vectorzd2_2971;

										BgL_newzd2vectorzd2_2971 =
											make_vector((long) CINT(BgL_iz00_66), BgL_fillz00_2969);
										{
											long BgL_iz00_2973;

											BgL_iz00_2973 = 0L;
										BgL_loopz00_2972:
											if (
												(BgL_iz00_2973 ==
													VECTOR_LENGTH(((obj_t) BgL_arg1770z00_1766))))
												{	/* Match/descr.scm 585 */
													BgL_resz00_2970 = BgL_newzd2vectorzd2_2971;
												}
											else
												{	/* Match/descr.scm 585 */
													{	/* Match/descr.scm 588 */
														obj_t BgL_arg1811z00_2976;

														BgL_arg1811z00_2976 =
															VECTOR_REF(
															((obj_t) BgL_arg1770z00_1766), BgL_iz00_2973);
														VECTOR_SET(BgL_newzd2vectorzd2_2971, BgL_iz00_2973,
															BgL_arg1811z00_2976);
													}
													{
														long BgL_iz00_5190;

														BgL_iz00_5190 = (BgL_iz00_2973 + 1L);
														BgL_iz00_2973 = BgL_iz00_5190;
														goto BgL_loopz00_2972;
													}
												}
										}
									}
									BgL_arg1769z00_1765 = BgL_resz00_2970;
								}
							}
						}
						{	/* Match/descr.scm 557 */
							obj_t BgL_tmpz00_5192;

							BgL_tmpz00_5192 = ((obj_t) BgL_arg1768z00_1764);
							SET_CAR(BgL_tmpz00_5192, BgL_arg1769z00_1765);
						}
					}
				else
					{	/* Match/descr.scm 556 */
						BTRUE;
					}
			}
			{	/* Match/descr.scm 560 */
				obj_t BgL_resz00_1769;

				{	/* Match/descr.scm 560 */
					obj_t BgL_arg1778z00_1774;

					{	/* Match/descr.scm 560 */
						long BgL_arg1779z00_1775;
						obj_t BgL_arg1781z00_1776;

						{	/* Match/descr.scm 560 */
							obj_t BgL_arg1782z00_1777;

							{	/* Match/descr.scm 560 */
								obj_t BgL_pairz00_2992;

								{	/* Match/descr.scm 560 */
									obj_t BgL_pairz00_2991;

									BgL_pairz00_2991 = CDR(((obj_t) BgL_vz00_65));
									BgL_pairz00_2992 = CDR(BgL_pairz00_2991);
								}
								BgL_arg1782z00_1777 = CAR(BgL_pairz00_2992);
							}
							BgL_arg1779z00_1775 =
								VECTOR_LENGTH(((obj_t) BgL_arg1782z00_1777));
						}
						{	/* Match/descr.scm 561 */
							obj_t BgL_arg1783z00_1778;

							{	/* Match/descr.scm 561 */
								obj_t BgL_arg1784z00_1779;

								{	/* Match/descr.scm 561 */
									obj_t BgL_arg1785z00_1780;

									{	/* Match/descr.scm 561 */
										obj_t BgL_pairz00_2999;

										{	/* Match/descr.scm 561 */
											obj_t BgL_pairz00_2998;

											BgL_pairz00_2998 = CDR(((obj_t) BgL_vz00_65));
											BgL_pairz00_2999 = CDR(BgL_pairz00_2998);
										}
										BgL_arg1785z00_1780 = CAR(BgL_pairz00_2999);
									}
									BgL_arg1784z00_1779 =
										BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00
										(BgL_arg1785z00_1780);
								}
								BgL_arg1783z00_1778 =
									BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
									(BgL_arg1784z00_1779);
							}
							BgL_arg1781z00_1776 = MAKE_YOUNG_PAIR(BgL_arg1783z00_1778, BNIL);
						}
						BgL_arg1778z00_1774 =
							MAKE_YOUNG_PAIR(BINT(BgL_arg1779z00_1775), BgL_arg1781z00_1776);
					}
					BgL_resz00_1769 =
						MAKE_YOUNG_PAIR(BGl_symbol2236z00zz__match_descriptionsz00,
						BgL_arg1778z00_1774);
				}
				{	/* Match/descr.scm 562 */
					obj_t BgL_arg1773z00_1770;
					obj_t BgL_arg1775z00_1771;

					BgL_arg1773z00_1770 = CAR(CDR(CDR(BgL_resz00_1769)));
					{	/* Match/descr.scm 563 */
						obj_t BgL_arg1776z00_1772;

						{	/* Match/descr.scm 563 */
							obj_t BgL_arg1777z00_1773;

							{	/* Match/descr.scm 563 */
								obj_t BgL_pairz00_3011;

								{	/* Match/descr.scm 563 */
									obj_t BgL_pairz00_3010;

									BgL_pairz00_3010 = CDR(((obj_t) BgL_vz00_65));
									BgL_pairz00_3011 = CDR(BgL_pairz00_3010);
								}
								BgL_arg1777z00_1773 = CAR(BgL_pairz00_3011);
							}
							{	/* Match/descr.scm 563 */
								long BgL_kz00_3013;

								BgL_kz00_3013 = (long) CINT(BgL_iz00_66);
								BgL_arg1776z00_1772 =
									VECTOR_REF(((obj_t) BgL_arg1777z00_1773), BgL_kz00_3013);
						}}
						BgL_arg1775z00_1771 =
							BGl_patternzd2pluszd2zz__match_descriptionsz00
							(BgL_arg1776z00_1772, BgL_dz00_67);
					}
					{	/* Match/descr.scm 562 */
						long BgL_kz00_3015;

						BgL_kz00_3015 = (long) CINT(BgL_iz00_66);
						VECTOR_SET(
							((obj_t) BgL_arg1773z00_1770), BgL_kz00_3015,
							BgL_arg1775z00_1771);
				}}
				return BgL_resz00_1769;
			}
		}

	}



/* &vector-plus */
	obj_t BGl_z62vectorzd2pluszb0zz__match_descriptionsz00(obj_t BgL_envz00_3558,
		obj_t BgL_vz00_3559, obj_t BgL_iz00_3560, obj_t BgL_dz00_3561)
	{
		{	/* Match/descr.scm 555 */
			return
				BGl_vectorzd2pluszd2zz__match_descriptionsz00(BgL_vz00_3559,
				BgL_iz00_3560, BgL_dz00_3561);
		}

	}



/* vector-minus */
	BGL_EXPORTED_DEF obj_t BGl_vectorzd2minuszd2zz__match_descriptionsz00(obj_t
		BgL_vz00_68, obj_t BgL_iz00_69, obj_t BgL_dz00_70)
	{
		{	/* Match/descr.scm 566 */
			{	/* Match/descr.scm 567 */
				bool_t BgL_test2440z00_5226;

				{	/* Match/descr.scm 567 */
					long BgL_arg1792z00_1787;

					{	/* Match/descr.scm 567 */
						obj_t BgL_arg1793z00_1788;

						{	/* Match/descr.scm 567 */
							obj_t BgL_pairz00_3021;

							{	/* Match/descr.scm 567 */
								obj_t BgL_pairz00_3020;

								BgL_pairz00_3020 = CDR(((obj_t) BgL_vz00_68));
								BgL_pairz00_3021 = CDR(BgL_pairz00_3020);
							}
							BgL_arg1793z00_1788 = CAR(BgL_pairz00_3021);
						}
						BgL_arg1792z00_1787 = VECTOR_LENGTH(((obj_t) BgL_arg1793z00_1788));
					}
					BgL_test2440z00_5226 =
						((long) CINT(BgL_iz00_69) >= BgL_arg1792z00_1787);
				}
				if (BgL_test2440z00_5226)
					{	/* Match/descr.scm 568 */
						obj_t BgL_arg1789z00_1784;
						obj_t BgL_arg1790z00_1785;

						{	/* Match/descr.scm 568 */
							obj_t BgL_pairz00_3028;

							BgL_pairz00_3028 = CDR(((obj_t) BgL_vz00_68));
							BgL_arg1789z00_1784 = CDR(BgL_pairz00_3028);
						}
						{	/* Match/descr.scm 569 */
							obj_t BgL_arg1791z00_1786;

							{	/* Match/descr.scm 569 */
								obj_t BgL_pairz00_3034;

								{	/* Match/descr.scm 569 */
									obj_t BgL_pairz00_3033;

									BgL_pairz00_3033 = CDR(((obj_t) BgL_vz00_68));
									BgL_pairz00_3034 = CDR(BgL_pairz00_3033);
								}
								BgL_arg1791z00_1786 = CAR(BgL_pairz00_3034);
							}
							{	/* Match/descr.scm 569 */
								obj_t BgL_fillz00_3035;

								BgL_fillz00_3035 = BGl_list2218z00zz__match_descriptionsz00;
								{	/* Match/descr.scm 582 */
									obj_t BgL_resz00_3036;

									{	/* Match/descr.scm 583 */
										obj_t BgL_newzd2vectorzd2_3037;

										BgL_newzd2vectorzd2_3037 =
											make_vector((long) CINT(BgL_iz00_69), BgL_fillz00_3035);
										{
											long BgL_iz00_3039;

											BgL_iz00_3039 = 0L;
										BgL_loopz00_3038:
											if (
												(BgL_iz00_3039 ==
													VECTOR_LENGTH(((obj_t) BgL_arg1791z00_1786))))
												{	/* Match/descr.scm 585 */
													BgL_resz00_3036 = BgL_newzd2vectorzd2_3037;
												}
											else
												{	/* Match/descr.scm 585 */
													{	/* Match/descr.scm 588 */
														obj_t BgL_arg1811z00_3042;

														BgL_arg1811z00_3042 =
															VECTOR_REF(
															((obj_t) BgL_arg1791z00_1786), BgL_iz00_3039);
														VECTOR_SET(BgL_newzd2vectorzd2_3037, BgL_iz00_3039,
															BgL_arg1811z00_3042);
													}
													{
														long BgL_iz00_5251;

														BgL_iz00_5251 = (BgL_iz00_3039 + 1L);
														BgL_iz00_3039 = BgL_iz00_5251;
														goto BgL_loopz00_3038;
													}
												}
										}
									}
									BgL_arg1790z00_1785 = BgL_resz00_3036;
								}
							}
						}
						{	/* Match/descr.scm 568 */
							obj_t BgL_tmpz00_5253;

							BgL_tmpz00_5253 = ((obj_t) BgL_arg1789z00_1784);
							SET_CAR(BgL_tmpz00_5253, BgL_arg1790z00_1785);
						}
					}
				else
					{	/* Match/descr.scm 567 */
						BTRUE;
					}
			}
			{	/* Match/descr.scm 571 */
				obj_t BgL_resz00_1789;

				{	/* Match/descr.scm 571 */
					obj_t BgL_arg1799z00_1794;

					{	/* Match/descr.scm 571 */
						long BgL_arg1800z00_1795;
						obj_t BgL_arg1801z00_1796;

						{	/* Match/descr.scm 571 */
							obj_t BgL_auxz00_5256;

							{	/* Match/descr.scm 571 */
								obj_t BgL_pairz00_3058;

								{	/* Match/descr.scm 571 */
									obj_t BgL_pairz00_3057;

									BgL_pairz00_3057 = CDR(((obj_t) BgL_vz00_68));
									BgL_pairz00_3058 = CDR(BgL_pairz00_3057);
								}
								BgL_auxz00_5256 = CAR(BgL_pairz00_3058);
							}
							BgL_arg1800z00_1795 = bgl_list_length(BgL_auxz00_5256);
						}
						{	/* Match/descr.scm 572 */
							obj_t BgL_arg1804z00_1798;

							{	/* Match/descr.scm 572 */
								obj_t BgL_arg1805z00_1799;

								{	/* Match/descr.scm 572 */
									obj_t BgL_arg1807z00_1800;

									{	/* Match/descr.scm 572 */
										obj_t BgL_pairz00_3064;

										{	/* Match/descr.scm 572 */
											obj_t BgL_pairz00_3063;

											BgL_pairz00_3063 = CDR(((obj_t) BgL_vz00_68));
											BgL_pairz00_3064 = CDR(BgL_pairz00_3063);
										}
										BgL_arg1807z00_1800 = CAR(BgL_pairz00_3064);
									}
									BgL_arg1805z00_1799 =
										BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00
										(BgL_arg1807z00_1800);
								}
								BgL_arg1804z00_1798 =
									BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
									(BgL_arg1805z00_1799);
							}
							BgL_arg1801z00_1796 = MAKE_YOUNG_PAIR(BgL_arg1804z00_1798, BNIL);
						}
						BgL_arg1799z00_1794 =
							MAKE_YOUNG_PAIR(BINT(BgL_arg1800z00_1795), BgL_arg1801z00_1796);
					}
					BgL_resz00_1789 =
						MAKE_YOUNG_PAIR(BGl_symbol2236z00zz__match_descriptionsz00,
						BgL_arg1799z00_1794);
				}
				{	/* Match/descr.scm 573 */
					obj_t BgL_arg1794z00_1790;
					obj_t BgL_arg1795z00_1791;

					BgL_arg1794z00_1790 = CAR(CDR(CDR(BgL_resz00_1789)));
					{	/* Match/descr.scm 574 */
						obj_t BgL_arg1796z00_1792;

						{	/* Match/descr.scm 574 */
							obj_t BgL_arg1798z00_1793;

							{	/* Match/descr.scm 574 */
								obj_t BgL_pairz00_3076;

								{	/* Match/descr.scm 574 */
									obj_t BgL_pairz00_3075;

									BgL_pairz00_3075 = CDR(((obj_t) BgL_vz00_68));
									BgL_pairz00_3076 = CDR(BgL_pairz00_3075);
								}
								BgL_arg1798z00_1793 = CAR(BgL_pairz00_3076);
							}
							{	/* Match/descr.scm 574 */
								long BgL_kz00_3078;

								BgL_kz00_3078 = (long) CINT(BgL_iz00_69);
								BgL_arg1796z00_1792 =
									VECTOR_REF(((obj_t) BgL_arg1798z00_1793), BgL_kz00_3078);
						}}
						BgL_arg1795z00_1791 =
							BGl_patternzd2minuszd2zz__match_descriptionsz00
							(BgL_arg1796z00_1792, BgL_dz00_70);
					}
					{	/* Match/descr.scm 573 */
						long BgL_kz00_3080;

						BgL_kz00_3080 = (long) CINT(BgL_iz00_69);
						VECTOR_SET(
							((obj_t) BgL_arg1794z00_1790), BgL_kz00_3080,
							BgL_arg1795z00_1791);
				}}
				return BgL_resz00_1789;
			}
		}

	}



/* &vector-minus */
	obj_t BGl_z62vectorzd2minuszb0zz__match_descriptionsz00(obj_t BgL_envz00_3562,
		obj_t BgL_vz00_3563, obj_t BgL_iz00_3564, obj_t BgL_dz00_3565)
	{
		{	/* Match/descr.scm 566 */
			return
				BGl_vectorzd2minuszd2zz__match_descriptionsz00(BgL_vz00_3563,
				BgL_iz00_3564, BgL_dz00_3565);
		}

	}



/* extend-vector */
	BGL_EXPORTED_DEF obj_t BGl_extendzd2vectorzd2zz__match_descriptionsz00(obj_t
		BgL_vz00_71, obj_t BgL_lgz00_72, obj_t BgL_fillz00_73)
	{
		{	/* Match/descr.scm 581 */
			{	/* Match/descr.scm 582 */
				obj_t BgL_resz00_3081;

				{	/* Match/descr.scm 583 */
					obj_t BgL_newzd2vectorzd2_3082;

					BgL_newzd2vectorzd2_3082 =
						make_vector((long) CINT(BgL_lgz00_72), BgL_fillz00_73);
					{
						long BgL_iz00_3098;

						BgL_iz00_3098 = 0L;
					BgL_loopz00_3097:
						if ((BgL_iz00_3098 == VECTOR_LENGTH(((obj_t) BgL_vz00_71))))
							{	/* Match/descr.scm 585 */
								BgL_resz00_3081 = BgL_newzd2vectorzd2_3082;
							}
						else
							{	/* Match/descr.scm 585 */
								{	/* Match/descr.scm 588 */
									obj_t BgL_arg1811z00_3104;

									BgL_arg1811z00_3104 =
										VECTOR_REF(((obj_t) BgL_vz00_71), BgL_iz00_3098);
									VECTOR_SET(BgL_newzd2vectorzd2_3082, BgL_iz00_3098,
										BgL_arg1811z00_3104);
								}
								{
									long BgL_iz00_5296;

									BgL_iz00_5296 = (BgL_iz00_3098 + 1L);
									BgL_iz00_3098 = BgL_iz00_5296;
									goto BgL_loopz00_3097;
								}
							}
					}
				}
				return BgL_resz00_3081;
			}
		}

	}



/* &extend-vector */
	obj_t BGl_z62extendzd2vectorzb0zz__match_descriptionsz00(obj_t
		BgL_envz00_3566, obj_t BgL_vz00_3567, obj_t BgL_lgz00_3568,
		obj_t BgL_fillz00_3569)
	{
		{	/* Match/descr.scm 581 */
			return
				BGl_extendzd2vectorzd2zz__match_descriptionsz00(BgL_vz00_3567,
				BgL_lgz00_3568, BgL_fillz00_3569);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__match_descriptionsz00(void)
	{
		{	/* Match/descr.scm 12 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__match_descriptionsz00(void)
	{
		{	/* Match/descr.scm 12 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__match_descriptionsz00(void)
	{
		{	/* Match/descr.scm 12 */
			return BUNSPEC;
		}

	}



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

	}

#ifdef __cplusplus
}
#endif
