/*===========================================================================*/
/*   (Rgc/rgccompile.scm)                                                    */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Rgc/rgccompile.scm -indent -o objs/obj_u/Rgc/rgccompile.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___RGC_COMPILE_TYPE_DEFINITIONS
#define BGL___RGC_COMPILE_TYPE_DEFINITIONS
#endif													// BGL___RGC_COMPILE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_statezd2positionszd2zz__rgc_dfaz00(obj_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern int
		BGl_specialzd2matchzd2charzd2ze3rulezd2numberze3zz__rgc_rulesz00(int);
	static obj_t BGl_z62compilezd2dfazb0zz__rgc_compilez00(obj_t, obj_t, obj_t,
		obj_t);
	extern bool_t BGl_specialzd2charzf3z21zz__rgc_rulesz00(int);
	static obj_t BGl_requirezd2initializa7ationz75zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_compilezd2submatcheszd2zz__rgc_compilez00(obj_t, 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__rgc_compilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_configz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_setz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_rulesz00(long, char *);
	static obj_t BGl_compilezd2condzd2regularz00zz__rgc_compilez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2201z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2203z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2205z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t BGl_rgcsetzd2addz12zc0zz__rgc_setz00(obj_t, long);
	static obj_t BGl_symbol2207z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2209z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t, long,
		long);
	static obj_t BGl_toplevelzd2initzd2zz__rgc_compilez00(void);
	extern obj_t BGl_za2rgczd2optimza2zd2zz__rgc_configz00;
	extern obj_t BGl_rgcsetzd2ze3listz31zz__rgc_setz00(obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__rgc_compilez00(void);
	static obj_t BGl_genericzd2initzd2zz__rgc_compilez00(void);
	static obj_t BGl_symbol2142z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2144z00zz__rgc_compilez00 = BUNSPEC;
	extern long bgl_list_length(obj_t);
	static obj_t BGl_symbol2146z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2148z00zz__rgc_compilez00 = BUNSPEC;
	extern bool_t BGl_specialzd2charzd2matchzf3zf3zz__rgc_rulesz00(int);
	extern obj_t BGl_rgcsetzd2notzd2zz__rgc_setz00(obj_t);
	static obj_t BGl_compilezd2condzd2testz00zz__rgc_compilez00(obj_t, obj_t,
		long);
	static obj_t BGl_importedzd2moduleszd2initz00zz__rgc_compilez00(void);
	static obj_t BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__rgc_compilez00(void);
	static obj_t BGl_compilezd2statezd2zz__rgc_compilez00(obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__rgc_compilez00(void);
	static obj_t BGl_compilezd2memberzd2testz00zz__rgc_compilez00(obj_t, obj_t);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_symbol2150z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2152z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2154z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2156z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2158z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_compilezd2rangezd2testze70ze7zz__rgc_compilez00(obj_t,
		obj_t);
	static obj_t BGl_symbol2161z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2164z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2166z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2168z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00(obj_t);
	extern obj_t BGl_statezd2transitionszd2zz__rgc_dfaz00(obj_t);
	static obj_t BGl_insortz00zz__rgc_compilez00(int, obj_t);
	static obj_t BGl_symbol2170z00zz__rgc_compilez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_compilezd2dfazd2zz__rgc_compilez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2172z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_statezd2transitionzd2listz00zz__rgc_compilez00(obj_t);
	static obj_t BGl_symbol2174z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2176z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2178z00zz__rgc_compilez00 = BUNSPEC;
	static long BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00;
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_statezd2namezd2zz__rgc_dfaz00(obj_t);
	static obj_t BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00(obj_t, obj_t);
	static obj_t BGl_symbol2181z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_compilezd2matchzd2zz__rgc_compilez00(obj_t);
	static obj_t BGl_symbol2183z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2185z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2187z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2189z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00(obj_t,
		obj_t);
	static obj_t BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00(obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zz__rgc_compilez00(void);
	static obj_t BGl_symbol2191z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2193z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_list2160z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2195z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_list2163z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2197z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2199z00zz__rgc_compilez00 = BUNSPEC;
	extern bool_t BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(obj_t, long);
	extern obj_t BGl_listzd2ze3rgcsetz31zz__rgc_setz00(obj_t, long);
	static obj_t BGl_z62zc3z04anonymousza31639ze3ze5zz__rgc_compilez00(obj_t,
		obj_t);
	static obj_t BGl_splitzd2transitionszd2zz__rgc_compilez00(obj_t);
	static obj_t BGl_loopze70ze7zz__rgc_compilez00(obj_t);
	static obj_t
		BGl_initzd2compilezd2memberzd2vectorz12zc0zz__rgc_compilez00(void);
	static obj_t BGl_compilezd2casezd2regularz00zz__rgc_compilez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_list2180z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t BGl_rgczd2maxzd2charz00zz__rgc_configz00(void);
	static obj_t BGl_compilezd2regularzd2zz__rgc_compilez00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_predicatezd2matchzd2zz__rgc_rulesz00(int);
	extern long BGl_rgcsetzd2lengthzd2zz__rgc_setz00(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STRING(BGl_string2200z00zz__rgc_compilez00,
		BgL_bgl_string2200za700za7za7_2214za7, "<=fx", 4);
	      DEFINE_STRING(BGl_string2202z00zz__rgc_compilez00,
		BgL_bgl_string2202za700za7za7_2215za7, "quote", 5);
	      DEFINE_STRING(BGl_string2204z00zz__rgc_compilez00,
		BgL_bgl_string2204za700za7za7_2216za7, "memq", 4);
	      DEFINE_STRING(BGl_string2206z00zz__rgc_compilez00,
		BgL_bgl_string2206za700za7za7_2217za7, "rgc-submatch-start*2!", 21);
	      DEFINE_STRING(BGl_string2208z00zz__rgc_compilez00,
		BgL_bgl_string2208za700za7za7_2218za7, "rgc-submatch-start2!", 20);
	      DEFINE_STRING(BGl_string2210z00zz__rgc_compilez00,
		BgL_bgl_string2210za700za7za7_2219za7, "rgc-submatch-stop2!", 19);
	      DEFINE_STRING(BGl_string2211z00zz__rgc_compilez00,
		BgL_bgl_string2211za700za7za7_2220za7, "compile-submatches", 18);
	      DEFINE_STRING(BGl_string2212z00zz__rgc_compilez00,
		BgL_bgl_string2212za700za7za7_2221za7, "Illegal char description", 24);
	      DEFINE_STRING(BGl_string2213z00zz__rgc_compilez00,
		BgL_bgl_string2213za700za7za7_2222za7, "__rgc_compile", 13);
	      DEFINE_STRING(BGl_string2143z00zz__rgc_compilez00,
		BgL_bgl_string2143za700za7za7_2223za7, "bufpos", 6);
	      DEFINE_STRING(BGl_string2145z00zz__rgc_compilez00,
		BgL_bgl_string2145za700za7za7_2224za7, "forward", 7);
	      DEFINE_STRING(BGl_string2147z00zz__rgc_compilez00,
		BgL_bgl_string2147za700za7za7_2225za7, "last-match", 10);
	      DEFINE_STRING(BGl_string2149z00zz__rgc_compilez00,
		BgL_bgl_string2149za700za7za7_2226za7, "iport", 5);
	      DEFINE_STRING(BGl_string2151z00zz__rgc_compilez00,
		BgL_bgl_string2151za700za7za7_2227za7, "new-match", 9);
	      DEFINE_STRING(BGl_string2153z00zz__rgc_compilez00,
		BgL_bgl_string2153za700za7za7_2228za7, "let", 3);
	      DEFINE_STRING(BGl_string2155z00zz__rgc_compilez00,
		BgL_bgl_string2155za700za7za7_2229za7, "define", 6);
	      DEFINE_STRING(BGl_string2157z00zz__rgc_compilez00,
		BgL_bgl_string2157za700za7za7_2230za7, "=fx", 3);
	      DEFINE_STRING(BGl_string2159z00zz__rgc_compilez00,
		BgL_bgl_string2159za700za7za7_2231za7, "rgc-fill-buffer", 15);
	      DEFINE_STRING(BGl_string2162z00zz__rgc_compilez00,
		BgL_bgl_string2162za700za7za7_2232za7, "rgc-buffer-forward", 18);
	      DEFINE_STRING(BGl_string2165z00zz__rgc_compilez00,
		BgL_bgl_string2165za700za7za7_2233za7, "rgc-buffer-bufpos", 17);
	      DEFINE_STRING(BGl_string2167z00zz__rgc_compilez00,
		BgL_bgl_string2167za700za7za7_2234za7, "if", 2);
	      DEFINE_STRING(BGl_string2169z00zz__rgc_compilez00,
		BgL_bgl_string2169za700za7za7_2235za7, "rgc-buffer-get-char", 19);
	      DEFINE_STRING(BGl_string2171z00zz__rgc_compilez00,
		BgL_bgl_string2171za700za7za7_2236za7, "cur::int", 8);
	      DEFINE_STRING(BGl_string2173z00zz__rgc_compilez00,
		BgL_bgl_string2173za700za7za7_2237za7, "cur", 3);
	      DEFINE_STRING(BGl_string2175z00zz__rgc_compilez00,
		BgL_bgl_string2175za700za7za7_2238za7, "let*", 4);
	      DEFINE_STRING(BGl_string2177z00zz__rgc_compilez00,
		BgL_bgl_string2177za700za7za7_2239za7, "else", 4);
	      DEFINE_STRING(BGl_string2179z00zz__rgc_compilez00,
		BgL_bgl_string2179za700za7za7_2240za7, "case", 4);
	      DEFINE_STRING(BGl_string2182z00zz__rgc_compilez00,
		BgL_bgl_string2182za700za7za7_2241za7, "+fx", 3);
	      DEFINE_STRING(BGl_string2184z00zz__rgc_compilez00,
		BgL_bgl_string2184za700za7za7_2242za7, "cond", 4);
	      DEFINE_STRING(BGl_string2186z00zz__rgc_compilez00,
		BgL_bgl_string2186za700za7za7_2243za7, "not", 3);
	      DEFINE_STRING(BGl_string2188z00zz__rgc_compilez00,
		BgL_bgl_string2188za700za7za7_2244za7, "or", 2);
	      DEFINE_STRING(BGl_string2190z00zz__rgc_compilez00,
		BgL_bgl_string2190za700za7za7_2245za7, ">=fx", 4);
	      DEFINE_STRING(BGl_string2192z00zz__rgc_compilez00,
		BgL_bgl_string2192za700za7za7_2246za7, "<fx", 3);
	      DEFINE_STRING(BGl_string2194z00zz__rgc_compilez00,
		BgL_bgl_string2194za700za7za7_2247za7, "and", 3);
	      DEFINE_STRING(BGl_string2196z00zz__rgc_compilez00,
		BgL_bgl_string2196za700za7za7_2248za7, "rgc-stop-match!", 15);
	      DEFINE_STRING(BGl_string2198z00zz__rgc_compilez00,
		BgL_bgl_string2198za700za7za7_2249za7, "begin", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_compilezd2dfazd2envz00zz__rgc_compilez00,
		BgL_bgl_za762compileza7d2dfa2250z00,
		BGl_z62compilezd2dfazb0zz__rgc_compilez00, 0L, BUNSPEC, 3);

/* 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__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2201z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2203z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2205z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2207z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2209z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2142z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2144z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2146z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2148z00zz__rgc_compilez00));
		   
			 ADD_ROOT((void *) (&BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2150z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2152z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2154z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2156z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2158z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2161z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2164z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2166z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2168z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2170z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2172z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2174z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2176z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2178z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2181z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2183z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2185z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2187z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2189z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2191z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2193z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_list2160z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2195z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_list2163z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2197z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_symbol2199z00zz__rgc_compilez00));
		     ADD_ROOT((void *) (&BGl_list2180z00zz__rgc_compilez00));
#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__rgc_compilez00(long
		BgL_checksumz00_3116, char *BgL_fromz00_3117)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__rgc_compilez00))
				{
					BGl_requirezd2initializa7ationz75zz__rgc_compilez00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zz__rgc_compilez00();
					BGl_cnstzd2initzd2zz__rgc_compilez00();
					BGl_importedzd2moduleszd2initz00zz__rgc_compilez00();
					return BGl_toplevelzd2initzd2zz__rgc_compilez00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			BGl_symbol2142z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2143z00zz__rgc_compilez00);
			BGl_symbol2144z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2145z00zz__rgc_compilez00);
			BGl_symbol2146z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2147z00zz__rgc_compilez00);
			BGl_symbol2148z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2149z00zz__rgc_compilez00);
			BGl_symbol2150z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2151z00zz__rgc_compilez00);
			BGl_symbol2152z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2153z00zz__rgc_compilez00);
			BGl_symbol2154z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2155z00zz__rgc_compilez00);
			BGl_symbol2156z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2157z00zz__rgc_compilez00);
			BGl_symbol2158z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2159z00zz__rgc_compilez00);
			BGl_symbol2161z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2162z00zz__rgc_compilez00);
			BGl_list2160z00zz__rgc_compilez00 =
				MAKE_YOUNG_PAIR(BGl_symbol2161z00zz__rgc_compilez00,
				MAKE_YOUNG_PAIR(BGl_symbol2148z00zz__rgc_compilez00, BNIL));
			BGl_symbol2164z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2165z00zz__rgc_compilez00);
			BGl_list2163z00zz__rgc_compilez00 =
				MAKE_YOUNG_PAIR(BGl_symbol2164z00zz__rgc_compilez00,
				MAKE_YOUNG_PAIR(BGl_symbol2148z00zz__rgc_compilez00, BNIL));
			BGl_symbol2166z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2167z00zz__rgc_compilez00);
			BGl_symbol2168z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2169z00zz__rgc_compilez00);
			BGl_symbol2170z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2171z00zz__rgc_compilez00);
			BGl_symbol2172z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2173z00zz__rgc_compilez00);
			BGl_symbol2174z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2175z00zz__rgc_compilez00);
			BGl_symbol2176z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2177z00zz__rgc_compilez00);
			BGl_symbol2178z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2179z00zz__rgc_compilez00);
			BGl_symbol2181z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2182z00zz__rgc_compilez00);
			BGl_list2180z00zz__rgc_compilez00 =
				MAKE_YOUNG_PAIR(BGl_symbol2181z00zz__rgc_compilez00,
				MAKE_YOUNG_PAIR(BINT(1L),
					MAKE_YOUNG_PAIR(BGl_symbol2144z00zz__rgc_compilez00, BNIL)));
			BGl_symbol2183z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2184z00zz__rgc_compilez00);
			BGl_symbol2185z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2186z00zz__rgc_compilez00);
			BGl_symbol2187z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2188z00zz__rgc_compilez00);
			BGl_symbol2189z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2190z00zz__rgc_compilez00);
			BGl_symbol2191z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2192z00zz__rgc_compilez00);
			BGl_symbol2193z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2194z00zz__rgc_compilez00);
			BGl_symbol2195z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2196z00zz__rgc_compilez00);
			BGl_symbol2197z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2198z00zz__rgc_compilez00);
			BGl_symbol2199z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2200z00zz__rgc_compilez00);
			BGl_symbol2201z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2202z00zz__rgc_compilez00);
			BGl_symbol2203z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2204z00zz__rgc_compilez00);
			BGl_symbol2205z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2206z00zz__rgc_compilez00);
			BGl_symbol2207z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2208z00zz__rgc_compilez00);
			return (BGl_symbol2209z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2210z00zz__rgc_compilez00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			if (CBOOL(BGl_za2rgczd2optimza2zd2zz__rgc_configz00))
				{	/* Rgc/rgccompile.scm 77 */
					BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00 = (80L / 2L);
				}
			else
				{	/* Rgc/rgccompile.scm 77 */
					BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00 = 80L;
				}
			return (BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 =
				BUNSPEC, BUNSPEC);
		}

	}



/* compile-dfa */
	BGL_EXPORTED_DEF obj_t BGl_compilezd2dfazd2zz__rgc_compilez00(obj_t
		BgL_submatchesz00_3, obj_t BgL_statesz00_4, obj_t BgL_positionsz00_5)
	{
		{	/* Rgc/rgccompile.scm 59 */
			BGl_initzd2compilezd2memberzd2vectorz12zc0zz__rgc_compilez00();
			{	/* Rgc/rgccompile.scm 61 */
				obj_t BgL_resz00_1222;

				if (NULLP(BgL_statesz00_4))
					{	/* Rgc/rgccompile.scm 61 */
						BgL_resz00_1222 = BNIL;
					}
				else
					{	/* Rgc/rgccompile.scm 61 */
						obj_t BgL_head1100z00_1225;

						BgL_head1100z00_1225 = MAKE_YOUNG_PAIR(BNIL, BNIL);
						{
							obj_t BgL_l1098z00_2376;
							obj_t BgL_tail1101z00_2377;

							BgL_l1098z00_2376 = BgL_statesz00_4;
							BgL_tail1101z00_2377 = BgL_head1100z00_1225;
						BgL_zc3z04anonymousza31248ze3z87_2375:
							if (NULLP(BgL_l1098z00_2376))
								{	/* Rgc/rgccompile.scm 61 */
									BgL_resz00_1222 = CDR(BgL_head1100z00_1225);
								}
							else
								{	/* Rgc/rgccompile.scm 61 */
									obj_t BgL_newtail1102z00_2384;

									{	/* Rgc/rgccompile.scm 61 */
										obj_t BgL_arg1252z00_2385;

										{	/* Rgc/rgccompile.scm 61 */
											obj_t BgL_statez00_2386;

											BgL_statez00_2386 = CAR(((obj_t) BgL_l1098z00_2376));
											BgL_arg1252z00_2385 =
												BGl_compilezd2statezd2zz__rgc_compilez00
												(BgL_submatchesz00_3, BgL_statez00_2386,
												BgL_positionsz00_5);
										}
										BgL_newtail1102z00_2384 =
											MAKE_YOUNG_PAIR(BgL_arg1252z00_2385, BNIL);
									}
									SET_CDR(BgL_tail1101z00_2377, BgL_newtail1102z00_2384);
									{	/* Rgc/rgccompile.scm 61 */
										obj_t BgL_arg1250z00_2387;

										BgL_arg1250z00_2387 = CDR(((obj_t) BgL_l1098z00_2376));
										{
											obj_t BgL_tail1101z00_3185;
											obj_t BgL_l1098z00_3184;

											BgL_l1098z00_3184 = BgL_arg1250z00_2387;
											BgL_tail1101z00_3185 = BgL_newtail1102z00_2384;
											BgL_tail1101z00_2377 = BgL_tail1101z00_3185;
											BgL_l1098z00_2376 = BgL_l1098z00_3184;
											goto BgL_zc3z04anonymousza31248ze3z87_2375;
										}
									}
								}
						}
					}
				BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = BUNSPEC;
				return BgL_resz00_1222;
			}
		}

	}



/* &compile-dfa */
	obj_t BGl_z62compilezd2dfazb0zz__rgc_compilez00(obj_t BgL_envz00_3012,
		obj_t BgL_submatchesz00_3013, obj_t BgL_statesz00_3014,
		obj_t BgL_positionsz00_3015)
	{
		{	/* Rgc/rgccompile.scm 59 */
			return
				BGl_compilezd2dfazd2zz__rgc_compilez00(BgL_submatchesz00_3013,
				BgL_statesz00_3014, BgL_positionsz00_3015);
		}

	}



/* compile-state */
	obj_t BGl_compilezd2statezd2zz__rgc_compilez00(obj_t BgL_submatchesz00_6,
		obj_t BgL_statez00_7, obj_t BgL_positionszd2tozd2charz00_8)
	{
		{	/* Rgc/rgccompile.scm 93 */
			{	/* Rgc/rgccompile.scm 97 */
				obj_t BgL_arg1253z00_1236;

				{	/* Rgc/rgccompile.scm 97 */
					obj_t BgL_arg1254z00_1237;
					obj_t BgL_arg1256z00_1238;

					{	/* Rgc/rgccompile.scm 97 */
						obj_t BgL_arg1257z00_1239;
						obj_t BgL_arg1259z00_1240;

						BgL_arg1257z00_1239 =
							BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_7);
						{	/* Rgc/rgccompile.scm 97 */
							obj_t BgL_arg1260z00_1241;

							{	/* Rgc/rgccompile.scm 97 */
								obj_t BgL_arg1265z00_1242;

								{	/* Rgc/rgccompile.scm 97 */
									obj_t BgL_arg1275z00_1243;

									BgL_arg1275z00_1243 =
										MAKE_YOUNG_PAIR(BGl_symbol2142z00zz__rgc_compilez00, BNIL);
									BgL_arg1265z00_1242 =
										MAKE_YOUNG_PAIR(BGl_symbol2144z00zz__rgc_compilez00,
										BgL_arg1275z00_1243);
								}
								BgL_arg1260z00_1241 =
									MAKE_YOUNG_PAIR(BGl_symbol2146z00zz__rgc_compilez00,
									BgL_arg1265z00_1242);
							}
							BgL_arg1259z00_1240 =
								MAKE_YOUNG_PAIR(BGl_symbol2148z00zz__rgc_compilez00,
								BgL_arg1260z00_1241);
						}
						BgL_arg1254z00_1237 =
							MAKE_YOUNG_PAIR(BgL_arg1257z00_1239, BgL_arg1259z00_1240);
					}
					{	/* Rgc/rgccompile.scm 98 */
						obj_t BgL_arg1276z00_1244;

						{	/* Rgc/rgccompile.scm 98 */
							obj_t BgL_transitionsz00_1245;
							obj_t BgL_positionsz00_1246;

							BgL_transitionsz00_1245 =
								BGl_statezd2transitionszd2zz__rgc_dfaz00(BgL_statez00_7);
							BgL_positionsz00_1246 =
								BGl_statezd2positionszd2zz__rgc_dfaz00(BgL_statez00_7);
							if (NULLP(BgL_transitionsz00_1245))
								{	/* Rgc/rgccompile.scm 100 */
									BgL_arg1276z00_1244 = BGl_symbol2146z00zz__rgc_compilez00;
								}
							else
								{	/* Rgc/rgccompile.scm 102 */
									obj_t BgL_specialzd2transzd2_1248;

									BgL_specialzd2transzd2_1248 =
										BGl_splitzd2transitionszd2zz__rgc_compilez00
										(BgL_transitionsz00_1245);
									{	/* Rgc/rgccompile.scm 103 */
										obj_t BgL_regularzd2transzd2_1249;

										{	/* Rgc/rgccompile.scm 104 */
											obj_t BgL_tmpz00_2392;

											{	/* Rgc/rgccompile.scm 104 */
												int BgL_tmpz00_3198;

												BgL_tmpz00_3198 = (int) (1L);
												BgL_tmpz00_2392 = BGL_MVALUES_VAL(BgL_tmpz00_3198);
											}
											{	/* Rgc/rgccompile.scm 104 */
												int BgL_tmpz00_3201;

												BgL_tmpz00_3201 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3201, BUNSPEC);
											}
											BgL_regularzd2transzd2_1249 = BgL_tmpz00_2392;
										}
										{	/* Rgc/rgccompile.scm 104 */
											obj_t BgL_matchzd2bodyzd2_1250;

											BgL_matchzd2bodyzd2_1250 =
												BGl_compilezd2matchzd2zz__rgc_compilez00
												(BgL_specialzd2transzd2_1248);
											if (CBOOL(BgL_matchzd2bodyzd2_1250))
												{	/* Rgc/rgccompile.scm 106 */
													obj_t BgL_arg1279z00_1251;

													{	/* Rgc/rgccompile.scm 106 */
														obj_t BgL_arg1281z00_1252;
														obj_t BgL_arg1282z00_1253;

														{	/* Rgc/rgccompile.scm 106 */
															obj_t BgL_arg1283z00_1254;

															{	/* Rgc/rgccompile.scm 106 */
																obj_t BgL_arg1284z00_1255;

																BgL_arg1284z00_1255 =
																	MAKE_YOUNG_PAIR(BgL_matchzd2bodyzd2_1250,
																	BNIL);
																BgL_arg1283z00_1254 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2150z00zz__rgc_compilez00,
																	BgL_arg1284z00_1255);
															}
															BgL_arg1281z00_1252 =
																MAKE_YOUNG_PAIR(BgL_arg1283z00_1254, BNIL);
														}
														BgL_arg1282z00_1253 =
															MAKE_YOUNG_PAIR
															(BGl_compilezd2regularzd2zz__rgc_compilez00
															(BgL_submatchesz00_6, BgL_statez00_7,
																BgL_regularzd2transzd2_1249,
																BGl_symbol2150z00zz__rgc_compilez00,
																BgL_positionszd2tozd2charz00_8), BNIL);
														BgL_arg1279z00_1251 =
															MAKE_YOUNG_PAIR(BgL_arg1281z00_1252,
															BgL_arg1282z00_1253);
													}
													BgL_arg1276z00_1244 =
														MAKE_YOUNG_PAIR(BGl_symbol2152z00zz__rgc_compilez00,
														BgL_arg1279z00_1251);
												}
											else
												{	/* Rgc/rgccompile.scm 105 */
													BgL_arg1276z00_1244 =
														BGl_compilezd2regularzd2zz__rgc_compilez00
														(BgL_submatchesz00_6, BgL_statez00_7,
														BgL_regularzd2transzd2_1249,
														BGl_symbol2146z00zz__rgc_compilez00,
														BgL_positionszd2tozd2charz00_8);
												}
										}
									}
								}
						}
						BgL_arg1256z00_1238 = MAKE_YOUNG_PAIR(BgL_arg1276z00_1244, BNIL);
					}
					BgL_arg1253z00_1236 =
						MAKE_YOUNG_PAIR(BgL_arg1254z00_1237, BgL_arg1256z00_1238);
				}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2154z00zz__rgc_compilez00,
					BgL_arg1253z00_1236);
			}
		}

	}



/* split-transitions */
	obj_t BGl_splitzd2transitionszd2zz__rgc_compilez00(obj_t BgL_transitionsz00_9)
	{
		{	/* Rgc/rgccompile.scm 120 */
			{
				obj_t BgL_transitionsz00_1260;
				obj_t BgL_specialsz00_1261;
				obj_t BgL_regularsz00_1262;

				BgL_transitionsz00_1260 = BgL_transitionsz00_9;
				BgL_specialsz00_1261 = BNIL;
				BgL_regularsz00_1262 = BNIL;
			BgL_zc3z04anonymousza31286ze3z87_1263:
				if (NULLP(BgL_transitionsz00_1260))
					{	/* Rgc/rgccompile.scm 125 */
						{	/* Rgc/rgccompile.scm 126 */
							int BgL_tmpz00_3220;

							BgL_tmpz00_3220 = (int) (2L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3220);
						}
						{	/* Rgc/rgccompile.scm 126 */
							int BgL_tmpz00_3223;

							BgL_tmpz00_3223 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_3223, BgL_regularsz00_1262);
						}
						return BgL_specialsz00_1261;
					}
				else
					{	/* Rgc/rgccompile.scm 127 */
						bool_t BgL_test2258z00_3226;

						{	/* Rgc/rgccompile.scm 127 */
							obj_t BgL_arg1330z00_1276;

							{	/* Rgc/rgccompile.scm 127 */
								obj_t BgL_pairz00_2394;

								BgL_pairz00_2394 = CAR(((obj_t) BgL_transitionsz00_1260));
								BgL_arg1330z00_1276 = CAR(BgL_pairz00_2394);
							}
							BgL_test2258z00_3226 =
								BGl_specialzd2charzf3z21zz__rgc_rulesz00(CINT
								(BgL_arg1330z00_1276));
						}
						if (BgL_test2258z00_3226)
							{	/* Rgc/rgccompile.scm 128 */
								obj_t BgL_arg1294z00_1270;
								obj_t BgL_arg1322z00_1271;

								BgL_arg1294z00_1270 = CDR(((obj_t) BgL_transitionsz00_1260));
								{	/* Rgc/rgccompile.scm 129 */
									obj_t BgL_arg1323z00_1272;

									BgL_arg1323z00_1272 = CAR(((obj_t) BgL_transitionsz00_1260));
									BgL_arg1322z00_1271 =
										MAKE_YOUNG_PAIR(BgL_arg1323z00_1272, BgL_specialsz00_1261);
								}
								{
									obj_t BgL_specialsz00_3238;
									obj_t BgL_transitionsz00_3237;

									BgL_transitionsz00_3237 = BgL_arg1294z00_1270;
									BgL_specialsz00_3238 = BgL_arg1322z00_1271;
									BgL_specialsz00_1261 = BgL_specialsz00_3238;
									BgL_transitionsz00_1260 = BgL_transitionsz00_3237;
									goto BgL_zc3z04anonymousza31286ze3z87_1263;
								}
							}
						else
							{	/* Rgc/rgccompile.scm 132 */
								obj_t BgL_arg1324z00_1273;
								obj_t BgL_arg1325z00_1274;

								BgL_arg1324z00_1273 = CDR(((obj_t) BgL_transitionsz00_1260));
								{	/* Rgc/rgccompile.scm 134 */
									obj_t BgL_arg1327z00_1275;

									BgL_arg1327z00_1275 = CAR(((obj_t) BgL_transitionsz00_1260));
									BgL_arg1325z00_1274 =
										MAKE_YOUNG_PAIR(BgL_arg1327z00_1275, BgL_regularsz00_1262);
								}
								{
									obj_t BgL_regularsz00_3245;
									obj_t BgL_transitionsz00_3244;

									BgL_transitionsz00_3244 = BgL_arg1324z00_1273;
									BgL_regularsz00_3245 = BgL_arg1325z00_1274;
									BgL_regularsz00_1262 = BgL_regularsz00_3245;
									BgL_transitionsz00_1260 = BgL_transitionsz00_3244;
									goto BgL_zc3z04anonymousza31286ze3z87_1263;
								}
							}
					}
			}
		}

	}



/* compile-regular */
	obj_t BGl_compilezd2regularzd2zz__rgc_compilez00(obj_t BgL_submatchesz00_10,
		obj_t BgL_currentzd2statezd2_11, obj_t BgL_transitionsz00_12,
		obj_t BgL_lastzd2matchzd2_13, obj_t BgL_pzd2ze3cz31_14)
	{
		{	/* Rgc/rgccompile.scm 139 */
			{	/* Rgc/rgccompile.scm 142 */
				obj_t BgL_statezd2transzd2_1279;
				obj_t BgL_positionsz00_1280;

				BgL_statezd2transzd2_1279 =
					BGl_statezd2transitionzd2listz00zz__rgc_compilez00
					(BgL_transitionsz00_12);
				BgL_positionsz00_1280 =
					BGl_statezd2positionszd2zz__rgc_dfaz00(BgL_currentzd2statezd2_11);
				if (NULLP(BgL_statezd2transzd2_1279))
					{	/* Rgc/rgccompile.scm 144 */
						return BgL_lastzd2matchzd2_13;
					}
				else
					{	/* Rgc/rgccompile.scm 146 */
						obj_t BgL_arg1333z00_1282;

						{	/* Rgc/rgccompile.scm 146 */
							obj_t BgL_arg1334z00_1283;
							obj_t BgL_arg1335z00_1284;

							{	/* Rgc/rgccompile.scm 146 */
								obj_t BgL_arg1336z00_1285;

								{	/* Rgc/rgccompile.scm 146 */
									obj_t BgL_arg1337z00_1286;

									BgL_arg1337z00_1286 =
										MAKE_YOUNG_PAIR(BGl_symbol2142z00zz__rgc_compilez00, BNIL);
									BgL_arg1336z00_1285 =
										MAKE_YOUNG_PAIR(BGl_symbol2144z00zz__rgc_compilez00,
										BgL_arg1337z00_1286);
								}
								BgL_arg1334z00_1283 =
									MAKE_YOUNG_PAIR(BGl_symbol2156z00zz__rgc_compilez00,
									BgL_arg1336z00_1285);
							}
							{	/* Rgc/rgccompile.scm 148 */
								obj_t BgL_arg1338z00_1287;
								obj_t BgL_arg1339z00_1288;

								{	/* Rgc/rgccompile.scm 148 */
									obj_t BgL_arg1341z00_1289;

									{	/* Rgc/rgccompile.scm 148 */
										obj_t BgL_arg1342z00_1290;
										obj_t BgL_arg1343z00_1291;

										{	/* Rgc/rgccompile.scm 148 */
											obj_t BgL_arg1344z00_1292;

											BgL_arg1344z00_1292 =
												MAKE_YOUNG_PAIR(BGl_symbol2148z00zz__rgc_compilez00,
												BNIL);
											BgL_arg1342z00_1290 =
												MAKE_YOUNG_PAIR(BGl_symbol2158z00zz__rgc_compilez00,
												BgL_arg1344z00_1292);
										}
										{	/* Rgc/rgccompile.scm 149 */
											obj_t BgL_arg1345z00_1293;
											obj_t BgL_arg1346z00_1294;

											{	/* Rgc/rgccompile.scm 149 */
												obj_t BgL_matchz00_2399;
												obj_t BgL_forwardz00_2400;
												obj_t BgL_bufposz00_2401;

												BgL_matchz00_2399 = BGl_symbol2146z00zz__rgc_compilez00;
												BgL_forwardz00_2400 = BGl_list2160z00zz__rgc_compilez00;
												BgL_bufposz00_2401 = BGl_list2163z00zz__rgc_compilez00;
												{	/* Rgc/rgccompile.scm 167 */
													obj_t BgL_arg1364z00_2402;
													obj_t BgL_arg1365z00_2403;

													BgL_arg1364z00_2402 =
														BGl_statezd2namezd2zz__rgc_dfaz00
														(BgL_currentzd2statezd2_11);
													{	/* Rgc/rgccompile.scm 167 */
														obj_t BgL_arg1366z00_2404;

														{	/* Rgc/rgccompile.scm 167 */
															obj_t BgL_arg1367z00_2405;

															{	/* Rgc/rgccompile.scm 167 */
																obj_t BgL_arg1368z00_2406;

																BgL_arg1368z00_2406 =
																	MAKE_YOUNG_PAIR(BgL_bufposz00_2401, BNIL);
																BgL_arg1367z00_2405 =
																	MAKE_YOUNG_PAIR(BgL_forwardz00_2400,
																	BgL_arg1368z00_2406);
															}
															BgL_arg1366z00_2404 =
																MAKE_YOUNG_PAIR(BgL_matchz00_2399,
																BgL_arg1367z00_2405);
														}
														BgL_arg1365z00_2403 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2148z00zz__rgc_compilez00,
															BgL_arg1366z00_2404);
													}
													BgL_arg1345z00_1293 =
														MAKE_YOUNG_PAIR(BgL_arg1364z00_2402,
														BgL_arg1365z00_2403);
												}
											}
											BgL_arg1346z00_1294 =
												MAKE_YOUNG_PAIR(BgL_lastzd2matchzd2_13, BNIL);
											BgL_arg1343z00_1291 =
												MAKE_YOUNG_PAIR(BgL_arg1345z00_1293,
												BgL_arg1346z00_1294);
										}
										BgL_arg1341z00_1289 =
											MAKE_YOUNG_PAIR(BgL_arg1342z00_1290, BgL_arg1343z00_1291);
									}
									BgL_arg1338z00_1287 =
										MAKE_YOUNG_PAIR(BGl_symbol2166z00zz__rgc_compilez00,
										BgL_arg1341z00_1289);
								}
								{	/* Rgc/rgccompile.scm 155 */
									obj_t BgL_arg1347z00_1295;

									{	/* Rgc/rgccompile.scm 155 */
										obj_t BgL_arg1348z00_1296;

										{	/* Rgc/rgccompile.scm 155 */
											obj_t BgL_arg1349z00_1297;
											obj_t BgL_arg1352z00_1298;

											{	/* Rgc/rgccompile.scm 155 */
												obj_t BgL_arg1353z00_1299;

												{	/* Rgc/rgccompile.scm 155 */
													obj_t BgL_arg1354z00_1300;

													{	/* Rgc/rgccompile.scm 155 */
														obj_t BgL_arg1355z00_1301;

														{	/* Rgc/rgccompile.scm 155 */
															obj_t BgL_arg1356z00_1302;

															{	/* Rgc/rgccompile.scm 155 */
																obj_t BgL_arg1357z00_1303;

																BgL_arg1357z00_1303 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2144z00zz__rgc_compilez00, BNIL);
																BgL_arg1356z00_1302 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2148z00zz__rgc_compilez00,
																	BgL_arg1357z00_1303);
															}
															BgL_arg1355z00_1301 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2168z00zz__rgc_compilez00,
																BgL_arg1356z00_1302);
														}
														BgL_arg1354z00_1300 =
															MAKE_YOUNG_PAIR(BgL_arg1355z00_1301, BNIL);
													}
													BgL_arg1353z00_1299 =
														MAKE_YOUNG_PAIR(BGl_symbol2170z00zz__rgc_compilez00,
														BgL_arg1354z00_1300);
												}
												BgL_arg1349z00_1297 =
													MAKE_YOUNG_PAIR(BgL_arg1353z00_1299, BNIL);
											}
											{	/* Rgc/rgccompile.scm 156 */
												obj_t BgL_arg1358z00_1304;
												obj_t BgL_arg1359z00_1305;

												BgL_arg1358z00_1304 =
													BGl_compilezd2submatcheszd2zz__rgc_compilez00
													(BGl_symbol2172z00zz__rgc_compilez00,
													BgL_submatchesz00_10, BgL_positionsz00_1280,
													BgL_pzd2ze3cz31_14);
												{	/* Rgc/rgccompile.scm 157 */
													obj_t BgL_arg1360z00_1306;

													if (
														(bgl_list_length(BgL_statezd2transzd2_1279) <= 12L))
														{	/* Rgc/rgccompile.scm 157 */
															BgL_arg1360z00_1306 =
																BGl_compilezd2condzd2regularz00zz__rgc_compilez00
																(BgL_currentzd2statezd2_11,
																BgL_statezd2transzd2_1279,
																BgL_lastzd2matchzd2_13);
														}
													else
														{	/* Rgc/rgccompile.scm 157 */
															BgL_arg1360z00_1306 =
																BGl_compilezd2casezd2regularz00zz__rgc_compilez00
																(BgL_currentzd2statezd2_11,
																BgL_statezd2transzd2_1279,
																BgL_lastzd2matchzd2_13);
														}
													BgL_arg1359z00_1305 =
														MAKE_YOUNG_PAIR(BgL_arg1360z00_1306, BNIL);
												}
												BgL_arg1352z00_1298 =
													BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1358z00_1304, BgL_arg1359z00_1305);
											}
											BgL_arg1348z00_1296 =
												MAKE_YOUNG_PAIR(BgL_arg1349z00_1297,
												BgL_arg1352z00_1298);
										}
										BgL_arg1347z00_1295 =
											MAKE_YOUNG_PAIR(BGl_symbol2174z00zz__rgc_compilez00,
											BgL_arg1348z00_1296);
									}
									BgL_arg1339z00_1288 =
										MAKE_YOUNG_PAIR(BgL_arg1347z00_1295, BNIL);
								}
								BgL_arg1335z00_1284 =
									MAKE_YOUNG_PAIR(BgL_arg1338z00_1287, BgL_arg1339z00_1288);
							}
							BgL_arg1333z00_1282 =
								MAKE_YOUNG_PAIR(BgL_arg1334z00_1283, BgL_arg1335z00_1284);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2166z00zz__rgc_compilez00,
							BgL_arg1333z00_1282);
					}
			}
		}

	}



/* compile-case-regular */
	obj_t BGl_compilezd2casezd2regularz00zz__rgc_compilez00(obj_t
		BgL_currentzd2statezd2_19, obj_t BgL_statezd2transzd2_20,
		obj_t BgL_matchz00_21)
	{
		{	/* Rgc/rgccompile.scm 172 */
			{	/* Rgc/rgccompile.scm 182 */
				obj_t BgL_arg1369z00_1316;

				{	/* Rgc/rgccompile.scm 182 */
					obj_t BgL_arg1370z00_1317;

					{	/* Rgc/rgccompile.scm 182 */
						obj_t BgL_arg1371z00_1318;
						obj_t BgL_arg1372z00_1319;

						if (NULLP(BgL_statezd2transzd2_20))
							{	/* Rgc/rgccompile.scm 182 */
								BgL_arg1371z00_1318 = BNIL;
							}
						else
							{	/* Rgc/rgccompile.scm 182 */
								obj_t BgL_head1107z00_1322;

								{	/* Rgc/rgccompile.scm 182 */
									obj_t BgL_arg1382z00_1334;

									{	/* Rgc/rgccompile.scm 182 */
										obj_t BgL_arg1383z00_1335;

										BgL_arg1383z00_1335 =
											CAR(((obj_t) BgL_statezd2transzd2_20));
										BgL_arg1382z00_1334 =
											BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00
											(BgL_matchz00_21, BgL_arg1383z00_1335);
									}
									BgL_head1107z00_1322 =
										MAKE_YOUNG_PAIR(BgL_arg1382z00_1334, BNIL);
								}
								{	/* Rgc/rgccompile.scm 182 */
									obj_t BgL_g1110z00_1323;

									BgL_g1110z00_1323 = CDR(((obj_t) BgL_statezd2transzd2_20));
									{
										obj_t BgL_l1105z00_2441;
										obj_t BgL_tail1108z00_2442;

										BgL_l1105z00_2441 = BgL_g1110z00_1323;
										BgL_tail1108z00_2442 = BgL_head1107z00_1322;
									BgL_zc3z04anonymousza31374ze3z87_2440:
										if (NULLP(BgL_l1105z00_2441))
											{	/* Rgc/rgccompile.scm 182 */
												BgL_arg1371z00_1318 = BgL_head1107z00_1322;
											}
										else
											{	/* Rgc/rgccompile.scm 182 */
												obj_t BgL_newtail1109z00_2449;

												{	/* Rgc/rgccompile.scm 182 */
													obj_t BgL_arg1377z00_2450;

													{	/* Rgc/rgccompile.scm 182 */
														obj_t BgL_arg1379z00_2451;

														BgL_arg1379z00_2451 =
															CAR(((obj_t) BgL_l1105z00_2441));
														BgL_arg1377z00_2450 =
															BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00
															(BgL_matchz00_21, BgL_arg1379z00_2451);
													}
													BgL_newtail1109z00_2449 =
														MAKE_YOUNG_PAIR(BgL_arg1377z00_2450, BNIL);
												}
												SET_CDR(BgL_tail1108z00_2442, BgL_newtail1109z00_2449);
												{	/* Rgc/rgccompile.scm 182 */
													obj_t BgL_arg1376z00_2452;

													BgL_arg1376z00_2452 =
														CDR(((obj_t) BgL_l1105z00_2441));
													{
														obj_t BgL_tail1108z00_3303;
														obj_t BgL_l1105z00_3302;

														BgL_l1105z00_3302 = BgL_arg1376z00_2452;
														BgL_tail1108z00_3303 = BgL_newtail1109z00_2449;
														BgL_tail1108z00_2442 = BgL_tail1108z00_3303;
														BgL_l1105z00_2441 = BgL_l1105z00_3302;
														goto BgL_zc3z04anonymousza31374ze3z87_2440;
													}
												}
											}
									}
								}
							}
						{	/* Rgc/rgccompile.scm 183 */
							obj_t BgL_arg1384z00_1336;

							{	/* Rgc/rgccompile.scm 183 */
								obj_t BgL_arg1385z00_1337;

								BgL_arg1385z00_1337 = MAKE_YOUNG_PAIR(BgL_matchz00_21, BNIL);
								BgL_arg1384z00_1336 =
									MAKE_YOUNG_PAIR(BGl_symbol2176z00zz__rgc_compilez00,
									BgL_arg1385z00_1337);
							}
							BgL_arg1372z00_1319 = MAKE_YOUNG_PAIR(BgL_arg1384z00_1336, BNIL);
						}
						BgL_arg1370z00_1317 =
							BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
							(BgL_arg1371z00_1318, BgL_arg1372z00_1319);
					}
					BgL_arg1369z00_1316 =
						MAKE_YOUNG_PAIR(BGl_symbol2172z00zz__rgc_compilez00,
						BgL_arg1370z00_1317);
				}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2178z00zz__rgc_compilez00,
					BgL_arg1369z00_1316);
			}
		}

	}



/* compile-case-transition~0 */
	obj_t BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00(obj_t
		BgL_matchz00_3022, obj_t BgL_statezd2transzd2_1338)
	{
		{	/* Rgc/rgccompile.scm 179 */
			{	/* Rgc/rgccompile.scm 175 */
				obj_t BgL_setz00_1340;
				obj_t BgL_statez00_1341;

				BgL_setz00_1340 = CDR(((obj_t) BgL_statezd2transzd2_1338));
				BgL_statez00_1341 = CAR(((obj_t) BgL_statezd2transzd2_1338));
				{	/* Rgc/rgccompile.scm 177 */
					obj_t BgL_casezd2testzd2_1342;

					BgL_casezd2testzd2_1342 =
						BGl_rgcsetzd2ze3listz31zz__rgc_setz00(BgL_setz00_1340);
					{	/* Rgc/rgccompile.scm 178 */
						obj_t BgL_arg1387z00_1343;

						{	/* Rgc/rgccompile.scm 178 */
							obj_t BgL_arg1388z00_1344;

							{	/* Rgc/rgccompile.scm 178 */
								obj_t BgL_forwardz00_2415;
								obj_t BgL_bufposz00_2416;

								BgL_forwardz00_2415 = BGl_list2180z00zz__rgc_compilez00;
								BgL_bufposz00_2416 = BGl_symbol2142z00zz__rgc_compilez00;
								{	/* Rgc/rgccompile.scm 167 */
									obj_t BgL_arg1364z00_2417;
									obj_t BgL_arg1365z00_2418;

									BgL_arg1364z00_2417 =
										BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_1341);
									{	/* Rgc/rgccompile.scm 167 */
										obj_t BgL_arg1366z00_2419;

										{	/* Rgc/rgccompile.scm 167 */
											obj_t BgL_arg1367z00_2420;

											{	/* Rgc/rgccompile.scm 167 */
												obj_t BgL_arg1368z00_2421;

												BgL_arg1368z00_2421 =
													MAKE_YOUNG_PAIR(BgL_bufposz00_2416, BNIL);
												BgL_arg1367z00_2420 =
													MAKE_YOUNG_PAIR(BgL_forwardz00_2415,
													BgL_arg1368z00_2421);
											}
											BgL_arg1366z00_2419 =
												MAKE_YOUNG_PAIR(BgL_matchz00_3022, BgL_arg1367z00_2420);
										}
										BgL_arg1365z00_2418 =
											MAKE_YOUNG_PAIR(BGl_symbol2148z00zz__rgc_compilez00,
											BgL_arg1366z00_2419);
									}
									BgL_arg1388z00_1344 =
										MAKE_YOUNG_PAIR(BgL_arg1364z00_2417, BgL_arg1365z00_2418);
								}
							}
							BgL_arg1387z00_1343 = MAKE_YOUNG_PAIR(BgL_arg1388z00_1344, BNIL);
						}
						return
							MAKE_YOUNG_PAIR(BgL_casezd2testzd2_1342, BgL_arg1387z00_1343);
					}
				}
			}
		}

	}



/* compile-cond-regular */
	obj_t BGl_compilezd2condzd2regularz00zz__rgc_compilez00(obj_t
		BgL_currentzd2statezd2_22, obj_t BgL_statezd2transzd2_23,
		obj_t BgL_matchz00_24)
	{
		{	/* Rgc/rgccompile.scm 189 */
			{
				obj_t BgL_statezd2transzd2_1379;
				long BgL_prevzd2testzd2lenz00_1380;

				{
					obj_t BgL_transz00_1349;
					obj_t BgL_testsz00_1350;
					long BgL_costz00_1351;
					long BgL_prevzd2lenzd2_1352;
					bool_t BgL_elsepz00_1353;

					BgL_transz00_1349 = BgL_statezd2transzd2_23;
					BgL_testsz00_1350 = BNIL;
					BgL_costz00_1351 = 0L;
					BgL_prevzd2lenzd2_1352 = 0L;
					BgL_elsepz00_1353 = ((bool_t) 0);
				BgL_zc3z04anonymousza31389ze3z87_1354:
					{	/* Rgc/rgccompile.scm 206 */
						bool_t BgL_test2263z00_3323;

						if (NULLP(BgL_transz00_1349))
							{	/* Rgc/rgccompile.scm 206 */
								BgL_test2263z00_3323 = ((bool_t) 1);
							}
						else
							{	/* Rgc/rgccompile.scm 206 */
								BgL_test2263z00_3323 = BgL_elsepz00_1353;
							}
						if (BgL_test2263z00_3323)
							{	/* Rgc/rgccompile.scm 206 */
								if (
									(BgL_costz00_1351 >
										BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00))
									{	/* Rgc/rgccompile.scm 208 */
										BGL_TAIL return
											BGl_compilezd2casezd2regularz00zz__rgc_compilez00
											(BgL_currentzd2statezd2_22, BgL_statezd2transzd2_23,
											BgL_matchz00_24);
									}
								else
									{	/* Rgc/rgccompile.scm 211 */
										obj_t BgL_arg1394z00_1358;

										{	/* Rgc/rgccompile.scm 211 */
											obj_t BgL_arg1395z00_1359;
											obj_t BgL_arg1396z00_1360;

											BgL_arg1395z00_1359 = bgl_reverse_bang(BgL_testsz00_1350);
											{	/* Rgc/rgccompile.scm 212 */
												obj_t BgL_arg1397z00_1361;

												if (BgL_elsepz00_1353)
													{	/* Rgc/rgccompile.scm 212 */
														BgL_arg1397z00_1361 = BNIL;
													}
												else
													{	/* Rgc/rgccompile.scm 214 */
														obj_t BgL_arg1398z00_1362;

														{	/* Rgc/rgccompile.scm 214 */
															obj_t BgL_arg1399z00_1363;

															BgL_arg1399z00_1363 =
																MAKE_YOUNG_PAIR(BgL_matchz00_24, BNIL);
															BgL_arg1398z00_1362 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2176z00zz__rgc_compilez00,
																BgL_arg1399z00_1363);
														}
														BgL_arg1397z00_1361 =
															MAKE_YOUNG_PAIR(BgL_arg1398z00_1362, BNIL);
													}
												BgL_arg1396z00_1360 =
													BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1397z00_1361, BNIL);
											}
											BgL_arg1394z00_1358 =
												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1395z00_1359, BgL_arg1396z00_1360);
										}
										return
											MAKE_YOUNG_PAIR(BGl_symbol2183z00zz__rgc_compilez00,
											BgL_arg1394z00_1358);
									}
							}
						else
							{	/* Rgc/rgccompile.scm 215 */
								obj_t BgL_testz00_1364;

								{	/* Rgc/rgccompile.scm 216 */
									obj_t BgL_arg1410z00_1376;

									BgL_arg1410z00_1376 = CAR(((obj_t) BgL_transz00_1349));
									BgL_statezd2transzd2_1379 = BgL_arg1410z00_1376;
									BgL_prevzd2testzd2lenz00_1380 = BgL_prevzd2lenzd2_1352;
									{	/* Rgc/rgccompile.scm 192 */
										obj_t BgL_setz00_1382;
										obj_t BgL_statez00_1383;

										BgL_setz00_1382 = CDR(((obj_t) BgL_statezd2transzd2_1379));
										BgL_statez00_1383 =
											CAR(((obj_t) BgL_statezd2transzd2_1379));
										{	/* Rgc/rgccompile.scm 194 */
											obj_t BgL_condzd2testzd2_1384;

											BgL_condzd2testzd2_1384 =
												BGl_compilezd2condzd2testz00zz__rgc_compilez00
												(BgL_setz00_1382, BGl_symbol2172z00zz__rgc_compilez00,
												BgL_prevzd2testzd2lenz00_1380);
											{	/* Rgc/rgccompile.scm 195 */
												obj_t BgL_condzd2costzd2_1385;

												{	/* Rgc/rgccompile.scm 196 */
													obj_t BgL_tmpz00_2458;

													{	/* Rgc/rgccompile.scm 196 */
														int BgL_tmpz00_3344;

														BgL_tmpz00_3344 = (int) (1L);
														BgL_tmpz00_2458 = BGL_MVALUES_VAL(BgL_tmpz00_3344);
													}
													{	/* Rgc/rgccompile.scm 196 */
														int BgL_tmpz00_3347;

														BgL_tmpz00_3347 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3347, BUNSPEC);
													}
													BgL_condzd2costzd2_1385 = BgL_tmpz00_2458;
												}
												{	/* Rgc/rgccompile.scm 196 */
													obj_t BgL_val0_1111z00_1386;

													{	/* Rgc/rgccompile.scm 197 */
														obj_t BgL_arg1412z00_1388;

														{	/* Rgc/rgccompile.scm 197 */
															obj_t BgL_arg1413z00_1389;

															{	/* Rgc/rgccompile.scm 197 */
																obj_t BgL_forwardz00_2459;
																obj_t BgL_bufposz00_2460;

																BgL_forwardz00_2459 =
																	BGl_list2180z00zz__rgc_compilez00;
																BgL_bufposz00_2460 =
																	BGl_symbol2142z00zz__rgc_compilez00;
																{	/* Rgc/rgccompile.scm 167 */
																	obj_t BgL_arg1364z00_2461;
																	obj_t BgL_arg1365z00_2462;

																	BgL_arg1364z00_2461 =
																		BGl_statezd2namezd2zz__rgc_dfaz00
																		(BgL_statez00_1383);
																	{	/* Rgc/rgccompile.scm 167 */
																		obj_t BgL_arg1366z00_2463;

																		{	/* Rgc/rgccompile.scm 167 */
																			obj_t BgL_arg1367z00_2464;

																			{	/* Rgc/rgccompile.scm 167 */
																				obj_t BgL_arg1368z00_2465;

																				BgL_arg1368z00_2465 =
																					MAKE_YOUNG_PAIR(BgL_bufposz00_2460,
																					BNIL);
																				BgL_arg1367z00_2464 =
																					MAKE_YOUNG_PAIR(BgL_forwardz00_2459,
																					BgL_arg1368z00_2465);
																			}
																			BgL_arg1366z00_2463 =
																				MAKE_YOUNG_PAIR(BgL_matchz00_24,
																				BgL_arg1367z00_2464);
																		}
																		BgL_arg1365z00_2462 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2148z00zz__rgc_compilez00,
																			BgL_arg1366z00_2463);
																	}
																	BgL_arg1413z00_1389 =
																		MAKE_YOUNG_PAIR(BgL_arg1364z00_2461,
																		BgL_arg1365z00_2462);
															}}
															BgL_arg1412z00_1388 =
																MAKE_YOUNG_PAIR(BgL_arg1413z00_1389, BNIL);
														}
														BgL_val0_1111z00_1386 =
															MAKE_YOUNG_PAIR(BgL_condzd2testzd2_1384,
															BgL_arg1412z00_1388);
													}
													{	/* Rgc/rgccompile.scm 196 */
														int BgL_tmpz00_3358;

														BgL_tmpz00_3358 = (int) (2L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3358);
													}
													{	/* Rgc/rgccompile.scm 196 */
														int BgL_tmpz00_3361;

														BgL_tmpz00_3361 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3361,
															BgL_condzd2costzd2_1385);
													}
													BgL_testz00_1364 = BgL_val0_1111z00_1386;
								}}}}}
								{	/* Rgc/rgccompile.scm 216 */
									obj_t BgL_cz00_1365;

									{	/* Rgc/rgccompile.scm 217 */
										obj_t BgL_tmpz00_2469;

										{	/* Rgc/rgccompile.scm 217 */
											int BgL_tmpz00_3364;

											BgL_tmpz00_3364 = (int) (1L);
											BgL_tmpz00_2469 = BGL_MVALUES_VAL(BgL_tmpz00_3364);
										}
										{	/* Rgc/rgccompile.scm 217 */
											int BgL_tmpz00_3367;

											BgL_tmpz00_3367 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_3367, BUNSPEC);
										}
										BgL_cz00_1365 = BgL_tmpz00_2469;
									}
									{	/* Rgc/rgccompile.scm 217 */
										obj_t BgL_arg1400z00_1366;
										obj_t BgL_arg1401z00_1367;
										long BgL_arg1402z00_1368;
										long BgL_arg1403z00_1369;
										bool_t BgL_arg1405z00_1370;

										BgL_arg1400z00_1366 = CDR(((obj_t) BgL_transz00_1349));
										BgL_arg1401z00_1367 =
											MAKE_YOUNG_PAIR(BgL_testz00_1364, BgL_testsz00_1350);
										BgL_arg1402z00_1368 =
											((long) CINT(BgL_cz00_1365) + BgL_costz00_1351);
										{	/* Rgc/rgccompile.scm 220 */
											long BgL_arg1406z00_1371;

											{	/* Rgc/rgccompile.scm 220 */
												obj_t BgL_arg1407z00_1372;

												{	/* Rgc/rgccompile.scm 220 */
													obj_t BgL_pairz00_2474;

													BgL_pairz00_2474 = CAR(((obj_t) BgL_transz00_1349));
													BgL_arg1407z00_1372 = CDR(BgL_pairz00_2474);
												}
												BgL_arg1406z00_1371 =
													BGl_rgcsetzd2lengthzd2zz__rgc_setz00
													(BgL_arg1407z00_1372);
											}
											BgL_arg1403z00_1369 =
												(BgL_prevzd2lenzd2_1352 + BgL_arg1406z00_1371);
										}
										BgL_arg1405z00_1370 =
											(CAR(BgL_testz00_1364) ==
											BGl_symbol2176z00zz__rgc_compilez00);
										{
											bool_t BgL_elsepz00_3386;
											long BgL_prevzd2lenzd2_3385;
											long BgL_costz00_3384;
											obj_t BgL_testsz00_3383;
											obj_t BgL_transz00_3382;

											BgL_transz00_3382 = BgL_arg1400z00_1366;
											BgL_testsz00_3383 = BgL_arg1401z00_1367;
											BgL_costz00_3384 = BgL_arg1402z00_1368;
											BgL_prevzd2lenzd2_3385 = BgL_arg1403z00_1369;
											BgL_elsepz00_3386 = BgL_arg1405z00_1370;
											BgL_elsepz00_1353 = BgL_elsepz00_3386;
											BgL_prevzd2lenzd2_1352 = BgL_prevzd2lenzd2_3385;
											BgL_costz00_1351 = BgL_costz00_3384;
											BgL_testsz00_1350 = BgL_testsz00_3383;
											BgL_transz00_1349 = BgL_transz00_3382;
											goto BgL_zc3z04anonymousza31389ze3z87_1354;
										}
									}
								}
							}
					}
				}
			}
		}

	}



/* compile-cond-test */
	obj_t BGl_compilezd2condzd2testz00zz__rgc_compilez00(obj_t BgL_setz00_25,
		obj_t BgL_varz00_26, long BgL_prevzd2testzd2lenz00_27)
	{
		{	/* Rgc/rgccompile.scm 226 */
			{	/* Rgc/rgccompile.scm 278 */
				obj_t BgL_maxz00_1395;
				long BgL_lenz00_1396;

				BgL_maxz00_1395 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
				BgL_lenz00_1396 = BGl_rgcsetzd2lengthzd2zz__rgc_setz00(BgL_setz00_25);
				{	/* Rgc/rgccompile.scm 281 */
					bool_t BgL_test2267z00_3389;

					{	/* Rgc/rgccompile.scm 281 */
						obj_t BgL_arg1424z00_1413;
						long BgL_arg1425z00_1414;

						BgL_arg1424z00_1413 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
						BgL_arg1425z00_1414 =
							(BgL_lenz00_1396 + BgL_prevzd2testzd2lenz00_27);
						BgL_test2267z00_3389 =
							((long) CINT(BgL_arg1424z00_1413) == BgL_arg1425z00_1414);
					}
					if (BgL_test2267z00_3389)
						{	/* Rgc/rgccompile.scm 285 */
							obj_t BgL_val0_1127z00_1400;

							BgL_val0_1127z00_1400 = BGl_symbol2176z00zz__rgc_compilez00;
							{	/* Rgc/rgccompile.scm 285 */
								int BgL_tmpz00_3394;

								BgL_tmpz00_3394 = (int) (2L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3394);
							}
							{	/* Rgc/rgccompile.scm 285 */
								obj_t BgL_auxz00_3399;
								int BgL_tmpz00_3397;

								BgL_auxz00_3399 = BINT(0L);
								BgL_tmpz00_3397 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_3397, BgL_auxz00_3399);
							}
							return BgL_val0_1127z00_1400;
						}
					else
						{	/* Rgc/rgccompile.scm 281 */
							if (
								(BgL_lenz00_1396 > (2L + ((long) CINT(BgL_maxz00_1395) / 2L))))
								{	/* Rgc/rgccompile.scm 288 */
									obj_t BgL_testz00_1405;

									BgL_testz00_1405 =
										BGl_compilezd2rangezd2testze70ze7zz__rgc_compilez00
										(BgL_varz00_26,
										BGl_rgcsetzd2notzd2zz__rgc_setz00(BgL_setz00_25));
									{	/* Rgc/rgccompile.scm 289 */
										obj_t BgL_costz00_1406;

										{	/* Rgc/rgccompile.scm 290 */
											obj_t BgL_tmpz00_2552;

											{	/* Rgc/rgccompile.scm 290 */
												int BgL_tmpz00_3409;

												BgL_tmpz00_3409 = (int) (1L);
												BgL_tmpz00_2552 = BGL_MVALUES_VAL(BgL_tmpz00_3409);
											}
											{	/* Rgc/rgccompile.scm 290 */
												int BgL_tmpz00_3412;

												BgL_tmpz00_3412 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3412, BUNSPEC);
											}
											BgL_costz00_1406 = BgL_tmpz00_2552;
										}
										{	/* Rgc/rgccompile.scm 290 */
											obj_t BgL_val0_1129z00_1407;
											long BgL_val1_1130z00_1408;

											{	/* Rgc/rgccompile.scm 290 */
												obj_t BgL_arg1420z00_1409;

												BgL_arg1420z00_1409 =
													MAKE_YOUNG_PAIR(BgL_testz00_1405, BNIL);
												BgL_val0_1129z00_1407 =
													MAKE_YOUNG_PAIR(BGl_symbol2185z00zz__rgc_compilez00,
													BgL_arg1420z00_1409);
											}
											BgL_val1_1130z00_1408 =
												(1L + (long) CINT(BgL_costz00_1406));
											{	/* Rgc/rgccompile.scm 290 */
												int BgL_tmpz00_3419;

												BgL_tmpz00_3419 = (int) (2L);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3419);
											}
											{	/* Rgc/rgccompile.scm 290 */
												obj_t BgL_auxz00_3424;
												int BgL_tmpz00_3422;

												BgL_auxz00_3424 = BINT(BgL_val1_1130z00_1408);
												BgL_tmpz00_3422 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3422, BgL_auxz00_3424);
											}
											return BgL_val0_1129z00_1407;
										}
									}
								}
							else
								{	/* Rgc/rgccompile.scm 286 */
									return
										BGl_compilezd2rangezd2testze70ze7zz__rgc_compilez00
										(BgL_varz00_26, BgL_setz00_25);
								}
						}
				}
			}
		}

	}



/* compile-range-test~0 */
	obj_t BGl_compilezd2rangezd2testze70ze7zz__rgc_compilez00(obj_t
		BgL_varz00_3021, obj_t BgL_setz00_1497)
	{
		{	/* Rgc/rgccompile.scm 276 */
			{
				obj_t BgL_startz00_1437;
				obj_t BgL_stopz00_1438;
				obj_t BgL_setz00_1439;

				{	/* Rgc/rgccompile.scm 266 */
					long BgL_g1044z00_1499;

					{	/* Rgc/rgccompile.scm 229 */
						obj_t BgL_maxz00_2513;

						BgL_maxz00_2513 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
						{
							long BgL_iz00_2515;

							BgL_iz00_2515 = 1L;
						BgL_loopz00_2514:
							if ((BgL_iz00_2515 == (long) CINT(BgL_maxz00_2513)))
								{	/* Rgc/rgccompile.scm 232 */
									BgL_g1044z00_1499 = -1L;
								}
							else
								{	/* Rgc/rgccompile.scm 232 */
									if (BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_1497,
											BgL_iz00_2515))
										{	/* Rgc/rgccompile.scm 233 */
											BgL_g1044z00_1499 = BgL_iz00_2515;
										}
									else
										{
											long BgL_iz00_3434;

											BgL_iz00_3434 = (BgL_iz00_2515 + 1L);
											BgL_iz00_2515 = BgL_iz00_3434;
											goto BgL_loopz00_2514;
										}
								}
						}
					}
					{
						obj_t BgL_startz00_1502;
						obj_t BgL_testsz00_1503;
						long BgL_costz00_1504;

						BgL_startz00_1502 = BINT(BgL_g1044z00_1499);
						BgL_testsz00_1503 = BNIL;
						BgL_costz00_1504 = 0L;
					BgL_zc3z04anonymousza31479ze3z87_1505:
						if (((long) CINT(BgL_startz00_1502) == -1L))
							{	/* Rgc/rgccompile.scm 270 */
								obj_t BgL_val0_1125z00_1507;

								{	/* Rgc/rgccompile.scm 270 */
									obj_t BgL_arg1481z00_1509;

									BgL_arg1481z00_1509 =
										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
										(bgl_reverse_bang(BgL_testsz00_1503), BNIL);
									BgL_val0_1125z00_1507 =
										MAKE_YOUNG_PAIR(BGl_symbol2187z00zz__rgc_compilez00,
										BgL_arg1481z00_1509);
								}
								{	/* Rgc/rgccompile.scm 270 */
									int BgL_tmpz00_3442;

									BgL_tmpz00_3442 = (int) (2L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3442);
								}
								{	/* Rgc/rgccompile.scm 270 */
									obj_t BgL_auxz00_3447;
									int BgL_tmpz00_3445;

									BgL_auxz00_3447 = BINT(BgL_costz00_1504);
									BgL_tmpz00_3445 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3445, BgL_auxz00_3447);
								}
								return BgL_val0_1125z00_1507;
							}
						else
							{	/* Rgc/rgccompile.scm 271 */
								obj_t BgL_stopz00_1511;

								{	/* Rgc/rgccompile.scm 237 */
									obj_t BgL_maxz00_2523;

									BgL_maxz00_2523 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
									{
										obj_t BgL_iz00_2525;

										BgL_iz00_2525 = BgL_startz00_1502;
									BgL_loopz00_2524:
										if (
											((long) CINT(BgL_iz00_2525) ==
												(long) CINT(BgL_maxz00_2523)))
											{	/* Rgc/rgccompile.scm 240 */
												BgL_stopz00_1511 = BgL_maxz00_2523;
											}
										else
											{	/* Rgc/rgccompile.scm 240 */
												if (BGl_rgcsetzd2memberzf3z21zz__rgc_setz00
													(BgL_setz00_1497, (long) CINT(BgL_iz00_2525)))
													{	/* Rgc/rgccompile.scm 241 */
														long BgL_arg1435z00_2528;

														BgL_arg1435z00_2528 =
															((long) CINT(BgL_iz00_2525) + 1L);
														{
															obj_t BgL_iz00_3460;

															BgL_iz00_3460 = BINT(BgL_arg1435z00_2528);
															BgL_iz00_2525 = BgL_iz00_3460;
															goto BgL_loopz00_2524;
														}
													}
												else
													{	/* Rgc/rgccompile.scm 241 */
														BgL_stopz00_1511 = BgL_iz00_2525;
													}
											}
									}
								}
								{	/* Rgc/rgccompile.scm 272 */
									obj_t BgL_testz00_1512;

									BgL_startz00_1437 = BgL_startz00_1502;
									BgL_stopz00_1438 = BgL_stopz00_1511;
									BgL_setz00_1439 = BgL_setz00_1497;
									if (
										(((long) CINT(BgL_stopz00_1438) - 1L) ==
											(long) CINT(BgL_startz00_1437)))
										{	/* Rgc/rgccompile.scm 247 */
											obj_t BgL_val0_1113z00_1443;

											{	/* Rgc/rgccompile.scm 247 */
												obj_t BgL_arg1439z00_1445;

												{	/* Rgc/rgccompile.scm 247 */
													obj_t BgL_arg1440z00_1446;

													BgL_arg1440z00_1446 =
														MAKE_YOUNG_PAIR(BgL_startz00_1437, BNIL);
													BgL_arg1439z00_1445 =
														MAKE_YOUNG_PAIR(BgL_varz00_3021,
														BgL_arg1440z00_1446);
												}
												BgL_val0_1113z00_1443 =
													MAKE_YOUNG_PAIR(BGl_symbol2156z00zz__rgc_compilez00,
													BgL_arg1439z00_1445);
											}
											{	/* Rgc/rgccompile.scm 247 */
												int BgL_tmpz00_3470;

												BgL_tmpz00_3470 = (int) (2L);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3470);
											}
											{	/* Rgc/rgccompile.scm 247 */
												obj_t BgL_auxz00_3475;
												int BgL_tmpz00_3473;

												BgL_auxz00_3475 = BINT(1L);
												BgL_tmpz00_3473 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3473, BgL_auxz00_3475);
											}
											BgL_testz00_1512 = BgL_val0_1113z00_1443;
										}
									else
										{	/* Rgc/rgccompile.scm 246 */
											if (
												(((long) CINT(BgL_stopz00_1438) -
														(long) CINT(BgL_startz00_1437)) < 4L))
												{	/* Rgc/rgccompile.scm 249 */
													obj_t BgL_val0_1115z00_1449;
													long BgL_val1_1116z00_1450;

													{	/* Rgc/rgccompile.scm 249 */
														obj_t BgL_arg1443z00_1451;

														{	/* Rgc/rgccompile.scm 249 */
															obj_t BgL_arg1444z00_1452;

															{
																obj_t BgL_startz00_1455;
																obj_t BgL_resz00_1456;

																BgL_startz00_1455 = BgL_startz00_1437;
																BgL_resz00_1456 = BNIL;
															BgL_zc3z04anonymousza31445ze3z87_1457:
																if (
																	((long) CINT(BgL_startz00_1455) ==
																		(long) CINT(BgL_stopz00_1438)))
																	{	/* Rgc/rgccompile.scm 251 */
																		BgL_arg1444z00_1452 = BgL_resz00_1456;
																	}
																else
																	{	/* Rgc/rgccompile.scm 253 */
																		long BgL_arg1447z00_1459;
																		obj_t BgL_arg1448z00_1460;

																		BgL_arg1447z00_1459 =
																			((long) CINT(BgL_startz00_1455) + 1L);
																		{	/* Rgc/rgccompile.scm 254 */
																			obj_t BgL_arg1449z00_1461;

																			{	/* Rgc/rgccompile.scm 254 */
																				obj_t BgL_arg1450z00_1462;

																				{	/* Rgc/rgccompile.scm 254 */
																					obj_t BgL_arg1451z00_1463;

																					BgL_arg1451z00_1463 =
																						MAKE_YOUNG_PAIR(BgL_startz00_1455,
																						BNIL);
																					BgL_arg1450z00_1462 =
																						MAKE_YOUNG_PAIR(BgL_varz00_3021,
																						BgL_arg1451z00_1463);
																				}
																				BgL_arg1449z00_1461 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2156z00zz__rgc_compilez00,
																					BgL_arg1450z00_1462);
																			}
																			BgL_arg1448z00_1460 =
																				MAKE_YOUNG_PAIR(BgL_arg1449z00_1461,
																				BgL_resz00_1456);
																		}
																		{
																			obj_t BgL_resz00_3495;
																			obj_t BgL_startz00_3493;

																			BgL_startz00_3493 =
																				BINT(BgL_arg1447z00_1459);
																			BgL_resz00_3495 = BgL_arg1448z00_1460;
																			BgL_resz00_1456 = BgL_resz00_3495;
																			BgL_startz00_1455 = BgL_startz00_3493;
																			goto
																				BgL_zc3z04anonymousza31445ze3z87_1457;
																		}
																	}
															}
															BgL_arg1443z00_1451 =
																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																(BgL_arg1444z00_1452, BNIL);
														}
														BgL_val0_1115z00_1449 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2187z00zz__rgc_compilez00,
															BgL_arg1443z00_1451);
													}
													BgL_val1_1116z00_1450 =
														(
														(long) CINT(BgL_stopz00_1438) -
														(long) CINT(BgL_startz00_1437));
													{	/* Rgc/rgccompile.scm 249 */
														int BgL_tmpz00_3501;

														BgL_tmpz00_3501 = (int) (2L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3501);
													}
													{	/* Rgc/rgccompile.scm 249 */
														obj_t BgL_auxz00_3506;
														int BgL_tmpz00_3504;

														BgL_auxz00_3506 = BINT(BgL_val1_1116z00_1450);
														BgL_tmpz00_3504 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3504,
															BgL_auxz00_3506);
													}
													BgL_testz00_1512 = BgL_val0_1115z00_1449;
												}
											else
												{	/* Rgc/rgccompile.scm 256 */
													bool_t BgL_test2277z00_3509;

													{	/* Rgc/rgccompile.scm 256 */
														bool_t BgL_test2278z00_3510;

														{	/* Rgc/rgccompile.scm 256 */
															obj_t BgL_arg1475z00_1494;

															BgL_arg1475z00_1494 =
																BGl_rgczd2maxzd2charz00zz__rgc_configz00();
															BgL_test2278z00_3510 =
																(
																(long) CINT(BgL_stopz00_1438) ==
																(long) CINT(BgL_arg1475z00_1494));
														}
														if (BgL_test2278z00_3510)
															{	/* Rgc/rgccompile.scm 256 */
																BgL_test2277z00_3509 =
																	((long) CINT(BgL_startz00_1437) == 1L);
															}
														else
															{	/* Rgc/rgccompile.scm 256 */
																BgL_test2277z00_3509 = ((bool_t) 0);
															}
													}
													if (BgL_test2277z00_3509)
														{	/* Rgc/rgccompile.scm 256 */
															{	/* Rgc/rgccompile.scm 257 */
																int BgL_tmpz00_3517;

																BgL_tmpz00_3517 = (int) (2L);
																BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3517);
															}
															{	/* Rgc/rgccompile.scm 257 */
																obj_t BgL_auxz00_3522;
																int BgL_tmpz00_3520;

																BgL_auxz00_3522 = BINT(0L);
																BgL_tmpz00_3520 = (int) (1L);
																BGL_MVALUES_VAL_SET(BgL_tmpz00_3520,
																	BgL_auxz00_3522);
															}
															BgL_testz00_1512 = BTRUE;
														}
													else
														{	/* Rgc/rgccompile.scm 258 */
															bool_t BgL_test2279z00_3525;

															{	/* Rgc/rgccompile.scm 258 */
																obj_t BgL_arg1474z00_1492;

																BgL_arg1474z00_1492 =
																	BGl_rgczd2maxzd2charz00zz__rgc_configz00();
																BgL_test2279z00_3525 =
																	(
																	(long) CINT(BgL_stopz00_1438) ==
																	(long) CINT(BgL_arg1474z00_1492));
															}
															if (BgL_test2279z00_3525)
																{	/* Rgc/rgccompile.scm 259 */
																	obj_t BgL_val0_1119z00_1473;

																	{	/* Rgc/rgccompile.scm 259 */
																		obj_t BgL_arg1458z00_1475;

																		{	/* Rgc/rgccompile.scm 259 */
																			obj_t BgL_arg1459z00_1476;

																			BgL_arg1459z00_1476 =
																				MAKE_YOUNG_PAIR(BgL_startz00_1437,
																				BNIL);
																			BgL_arg1458z00_1475 =
																				MAKE_YOUNG_PAIR(BgL_varz00_3021,
																				BgL_arg1459z00_1476);
																		}
																		BgL_val0_1119z00_1473 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2189z00zz__rgc_compilez00,
																			BgL_arg1458z00_1475);
																	}
																	{	/* Rgc/rgccompile.scm 259 */
																		int BgL_tmpz00_3533;

																		BgL_tmpz00_3533 = (int) (2L);
																		BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3533);
																	}
																	{	/* Rgc/rgccompile.scm 259 */
																		obj_t BgL_auxz00_3538;
																		int BgL_tmpz00_3536;

																		BgL_auxz00_3538 = BINT(1L);
																		BgL_tmpz00_3536 = (int) (1L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_3536,
																			BgL_auxz00_3538);
																	}
																	BgL_testz00_1512 = BgL_val0_1119z00_1473;
																}
															else
																{	/* Rgc/rgccompile.scm 258 */
																	if (((long) CINT(BgL_startz00_1437) == 1L))
																		{	/* Rgc/rgccompile.scm 261 */
																			obj_t BgL_val0_1121z00_1478;

																			{	/* Rgc/rgccompile.scm 261 */
																				obj_t BgL_arg1461z00_1480;

																				{	/* Rgc/rgccompile.scm 261 */
																					obj_t BgL_arg1462z00_1481;

																					BgL_arg1462z00_1481 =
																						MAKE_YOUNG_PAIR(BgL_stopz00_1438,
																						BNIL);
																					BgL_arg1461z00_1480 =
																						MAKE_YOUNG_PAIR(BgL_varz00_3021,
																						BgL_arg1462z00_1481);
																				}
																				BgL_val0_1121z00_1478 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2191z00zz__rgc_compilez00,
																					BgL_arg1461z00_1480);
																			}
																			{	/* Rgc/rgccompile.scm 261 */
																				int BgL_tmpz00_3547;

																				BgL_tmpz00_3547 = (int) (2L);
																				BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3547);
																			}
																			{	/* Rgc/rgccompile.scm 261 */
																				obj_t BgL_auxz00_3552;
																				int BgL_tmpz00_3550;

																				BgL_auxz00_3552 = BINT(1L);
																				BgL_tmpz00_3550 = (int) (1L);
																				BGL_MVALUES_VAL_SET(BgL_tmpz00_3550,
																					BgL_auxz00_3552);
																			}
																			BgL_testz00_1512 = BgL_val0_1121z00_1478;
																		}
																	else
																		{	/* Rgc/rgccompile.scm 263 */
																			obj_t BgL_val0_1123z00_1482;

																			{	/* Rgc/rgccompile.scm 263 */
																				obj_t BgL_arg1463z00_1484;

																				{	/* Rgc/rgccompile.scm 263 */
																					obj_t BgL_arg1464z00_1485;
																					obj_t BgL_arg1465z00_1486;

																					{	/* Rgc/rgccompile.scm 263 */
																						obj_t BgL_arg1468z00_1487;

																						{	/* Rgc/rgccompile.scm 263 */
																							obj_t BgL_arg1469z00_1488;

																							BgL_arg1469z00_1488 =
																								MAKE_YOUNG_PAIR
																								(BgL_startz00_1437, BNIL);
																							BgL_arg1468z00_1487 =
																								MAKE_YOUNG_PAIR(BgL_varz00_3021,
																								BgL_arg1469z00_1488);
																						}
																						BgL_arg1464z00_1485 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2189z00zz__rgc_compilez00,
																							BgL_arg1468z00_1487);
																					}
																					{	/* Rgc/rgccompile.scm 263 */
																						obj_t BgL_arg1471z00_1489;

																						{	/* Rgc/rgccompile.scm 263 */
																							obj_t BgL_arg1472z00_1490;

																							{	/* Rgc/rgccompile.scm 263 */
																								obj_t BgL_arg1473z00_1491;

																								BgL_arg1473z00_1491 =
																									MAKE_YOUNG_PAIR
																									(BgL_stopz00_1438, BNIL);
																								BgL_arg1472z00_1490 =
																									MAKE_YOUNG_PAIR
																									(BgL_varz00_3021,
																									BgL_arg1473z00_1491);
																							}
																							BgL_arg1471z00_1489 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2191z00zz__rgc_compilez00,
																								BgL_arg1472z00_1490);
																						}
																						BgL_arg1465z00_1486 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1471z00_1489, BNIL);
																					}
																					BgL_arg1463z00_1484 =
																						MAKE_YOUNG_PAIR(BgL_arg1464z00_1485,
																						BgL_arg1465z00_1486);
																				}
																				BgL_val0_1123z00_1482 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2193z00zz__rgc_compilez00,
																					BgL_arg1463z00_1484);
																			}
																			{	/* Rgc/rgccompile.scm 263 */
																				int BgL_tmpz00_3564;

																				BgL_tmpz00_3564 = (int) (2L);
																				BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3564);
																			}
																			{	/* Rgc/rgccompile.scm 263 */
																				obj_t BgL_auxz00_3569;
																				int BgL_tmpz00_3567;

																				BgL_auxz00_3569 = BINT(3L);
																				BgL_tmpz00_3567 = (int) (1L);
																				BGL_MVALUES_VAL_SET(BgL_tmpz00_3567,
																					BgL_auxz00_3569);
																			}
																			BgL_testz00_1512 = BgL_val0_1123z00_1482;
										}}}}}
									{	/* Rgc/rgccompile.scm 273 */
										obj_t BgL_cz00_1513;

										{	/* Rgc/rgccompile.scm 274 */
											obj_t BgL_tmpz00_2532;

											{	/* Rgc/rgccompile.scm 274 */
												int BgL_tmpz00_3572;

												BgL_tmpz00_3572 = (int) (1L);
												BgL_tmpz00_2532 = BGL_MVALUES_VAL(BgL_tmpz00_3572);
											}
											{	/* Rgc/rgccompile.scm 274 */
												int BgL_tmpz00_3575;

												BgL_tmpz00_3575 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3575, BUNSPEC);
											}
											BgL_cz00_1513 = BgL_tmpz00_2532;
										}
										{	/* Rgc/rgccompile.scm 274 */
											obj_t BgL_arg1483z00_1514;
											obj_t BgL_arg1485z00_1515;
											long BgL_arg1487z00_1516;

											{	/* Rgc/rgccompile.scm 229 */
												obj_t BgL_maxz00_2533;

												BgL_maxz00_2533 =
													BGl_rgczd2maxzd2charz00zz__rgc_configz00();
												{
													obj_t BgL_iz00_2535;

													BgL_iz00_2535 = BgL_stopz00_1511;
												BgL_loopz00_2534:
													if (
														((long) CINT(BgL_iz00_2535) ==
															(long) CINT(BgL_maxz00_2533)))
														{	/* Rgc/rgccompile.scm 232 */
															BgL_arg1483z00_1514 = BINT(-1L);
														}
													else
														{	/* Rgc/rgccompile.scm 232 */
															if (BGl_rgcsetzd2memberzf3z21zz__rgc_setz00
																(BgL_setz00_1497, (long) CINT(BgL_iz00_2535)))
																{	/* Rgc/rgccompile.scm 233 */
																	BgL_arg1483z00_1514 = BgL_iz00_2535;
																}
															else
																{	/* Rgc/rgccompile.scm 234 */
																	long BgL_arg1430z00_2538;

																	BgL_arg1430z00_2538 =
																		((long) CINT(BgL_iz00_2535) + 1L);
																	{
																		obj_t BgL_iz00_3589;

																		BgL_iz00_3589 = BINT(BgL_arg1430z00_2538);
																		BgL_iz00_2535 = BgL_iz00_3589;
																		goto BgL_loopz00_2534;
																	}
																}
														}
												}
											}
											BgL_arg1485z00_1515 =
												MAKE_YOUNG_PAIR(BgL_testz00_1512, BgL_testsz00_1503);
											BgL_arg1487z00_1516 =
												((long) CINT(BgL_cz00_1513) + BgL_costz00_1504);
											{
												long BgL_costz00_3596;
												obj_t BgL_testsz00_3595;
												obj_t BgL_startz00_3594;

												BgL_startz00_3594 = BgL_arg1483z00_1514;
												BgL_testsz00_3595 = BgL_arg1485z00_1515;
												BgL_costz00_3596 = BgL_arg1487z00_1516;
												BgL_costz00_1504 = BgL_costz00_3596;
												BgL_testsz00_1503 = BgL_testsz00_3595;
												BgL_startz00_1502 = BgL_startz00_3594;
												goto BgL_zc3z04anonymousza31479ze3z87_1505;
											}
										}
									}
								}
							}
					}
				}
			}
		}

	}



/* state-transition-list */
	obj_t BGl_statezd2transitionzd2listz00zz__rgc_compilez00(obj_t
		BgL_transitionsz00_28)
	{
		{	/* Rgc/rgccompile.scm 297 */
			{
				obj_t BgL_transitionsz00_1524;
				obj_t BgL_resz00_1525;

				BgL_transitionsz00_1524 = BgL_transitionsz00_28;
				BgL_resz00_1525 = BNIL;
			BgL_zc3z04anonymousza31488ze3z87_1526:
				if (NULLP(BgL_transitionsz00_1524))
					{	/* Rgc/rgccompile.scm 300 */
						return BgL_resz00_1525;
					}
				else
					{	/* Rgc/rgccompile.scm 302 */
						obj_t BgL_transitionz00_1528;

						BgL_transitionz00_1528 = CAR(((obj_t) BgL_transitionsz00_1524));
						{	/* Rgc/rgccompile.scm 302 */
							obj_t BgL_charz00_1529;

							BgL_charz00_1529 = CAR(((obj_t) BgL_transitionz00_1528));
							{	/* Rgc/rgccompile.scm 303 */
								obj_t BgL_statez00_1530;

								BgL_statez00_1530 = CDR(((obj_t) BgL_transitionz00_1528));
								{	/* Rgc/rgccompile.scm 304 */

									{	/* Rgc/rgccompile.scm 305 */
										obj_t BgL_cellz00_1531;

										BgL_cellz00_1531 =
											BGl_assqz00zz__r4_pairs_and_lists_6_3z00
											(BgL_statez00_1530, BgL_resz00_1525);
										if (PAIRP(BgL_cellz00_1531))
											{	/* Rgc/rgccompile.scm 306 */
												BGl_rgcsetzd2addz12zc0zz__rgc_setz00(CDR
													(BgL_cellz00_1531), (long) CINT(BgL_charz00_1529));
												{	/* Rgc/rgccompile.scm 312 */
													obj_t BgL_arg1492z00_1534;

													BgL_arg1492z00_1534 =
														CDR(((obj_t) BgL_transitionsz00_1524));
													{
														obj_t BgL_transitionsz00_3614;

														BgL_transitionsz00_3614 = BgL_arg1492z00_1534;
														BgL_transitionsz00_1524 = BgL_transitionsz00_3614;
														goto BgL_zc3z04anonymousza31488ze3z87_1526;
													}
												}
											}
										else
											{	/* Rgc/rgccompile.scm 307 */
												obj_t BgL_setz00_1535;

												{	/* Rgc/rgccompile.scm 307 */
													obj_t BgL_arg1496z00_1539;
													obj_t BgL_arg1497z00_1540;

													{	/* Rgc/rgccompile.scm 307 */
														obj_t BgL_list1498z00_1541;

														BgL_list1498z00_1541 =
															MAKE_YOUNG_PAIR(BgL_charz00_1529, BNIL);
														BgL_arg1496z00_1539 = BgL_list1498z00_1541;
													}
													BgL_arg1497z00_1540 =
														BGl_rgczd2maxzd2charz00zz__rgc_configz00();
													BgL_setz00_1535 =
														BGl_listzd2ze3rgcsetz31zz__rgc_setz00
														(BgL_arg1496z00_1539,
														(long) CINT(BgL_arg1497z00_1540));
												}
												{	/* Rgc/rgccompile.scm 308 */
													obj_t BgL_arg1493z00_1536;
													obj_t BgL_arg1494z00_1537;

													BgL_arg1493z00_1536 =
														CDR(((obj_t) BgL_transitionsz00_1524));
													{	/* Rgc/rgccompile.scm 309 */
														obj_t BgL_arg1495z00_1538;

														BgL_arg1495z00_1538 =
															MAKE_YOUNG_PAIR(BgL_statez00_1530,
															BgL_setz00_1535);
														BgL_arg1494z00_1537 =
															MAKE_YOUNG_PAIR(BgL_arg1495z00_1538,
															BgL_resz00_1525);
													}
													{
														obj_t BgL_resz00_3624;
														obj_t BgL_transitionsz00_3623;

														BgL_transitionsz00_3623 = BgL_arg1493z00_1536;
														BgL_resz00_3624 = BgL_arg1494z00_1537;
														BgL_resz00_1525 = BgL_resz00_3624;
														BgL_transitionsz00_1524 = BgL_transitionsz00_3623;
														goto BgL_zc3z04anonymousza31488ze3z87_1526;
													}
												}
											}
									}
								}
							}
						}
					}
			}
		}

	}



/* insort */
	obj_t BGl_insortz00zz__rgc_compilez00(int BgL_elz00_29, obj_t BgL_lstz00_30)
	{
		{	/* Rgc/rgccompile.scm 319 */
			if (NULLP(BgL_lstz00_30))
				{	/* Rgc/rgccompile.scm 321 */
					obj_t BgL_list1500z00_1544;

					BgL_list1500z00_1544 = MAKE_YOUNG_PAIR(BINT(BgL_elz00_29), BNIL);
					return BgL_list1500z00_1544;
				}
			else
				{	/* Rgc/rgccompile.scm 321 */
					if (
						((long) (BgL_elz00_29) < (long) CINT(CAR(((obj_t) BgL_lstz00_30)))))
						{	/* Rgc/rgccompile.scm 322 */
							return MAKE_YOUNG_PAIR(BINT(BgL_elz00_29), BgL_lstz00_30);
						}
					else
						{	/* Rgc/rgccompile.scm 322 */
							if (
								((long) (BgL_elz00_29) ==
									(long) CINT(CAR(((obj_t) BgL_lstz00_30)))))
								{	/* Rgc/rgccompile.scm 323 */
									return BgL_lstz00_30;
								}
							else
								{	/* Rgc/rgccompile.scm 324 */
									obj_t BgL_arg1505z00_1549;
									obj_t BgL_arg1506z00_1550;

									BgL_arg1505z00_1549 = CAR(((obj_t) BgL_lstz00_30));
									{	/* Rgc/rgccompile.scm 324 */
										obj_t BgL_arg1507z00_1551;

										BgL_arg1507z00_1551 = CDR(((obj_t) BgL_lstz00_30));
										BgL_arg1506z00_1550 =
											BGl_insortz00zz__rgc_compilez00(BgL_elz00_29,
											BgL_arg1507z00_1551);
									}
									return
										MAKE_YOUNG_PAIR(BgL_arg1505z00_1549, BgL_arg1506z00_1550);
								}
						}
				}
		}

	}



/* compile-match */
	obj_t BGl_compilezd2matchzd2zz__rgc_compilez00(obj_t BgL_transitionsz00_31)
	{
		{	/* Rgc/rgccompile.scm 334 */
			{
				obj_t BgL_matchesz00_1570;

				{
					obj_t BgL_transitionsz00_1557;
					obj_t BgL_matchesz00_1558;

					BgL_transitionsz00_1557 = BgL_transitionsz00_31;
					BgL_matchesz00_1558 = BNIL;
				BgL_zc3z04anonymousza31510ze3z87_1559:
					if (NULLP(BgL_transitionsz00_1557))
						{	/* Rgc/rgccompile.scm 360 */
							BgL_matchesz00_1570 = BgL_matchesz00_1558;
							if (NULLP(BgL_matchesz00_1570))
								{	/* Rgc/rgccompile.scm 339 */
									return BFALSE;
								}
							else
								{	/* Rgc/rgccompile.scm 339 */
									return BGl_loopze70ze7zz__rgc_compilez00(BgL_matchesz00_1570);
								}
						}
					else
						{	/* Rgc/rgccompile.scm 362 */
							obj_t BgL_transitionz00_1561;

							BgL_transitionz00_1561 = CAR(((obj_t) BgL_transitionsz00_1557));
							{	/* Rgc/rgccompile.scm 362 */
								obj_t BgL_charz00_1562;

								BgL_charz00_1562 = CAR(((obj_t) BgL_transitionz00_1561));
								{	/* Rgc/rgccompile.scm 364 */

									if (BGl_specialzd2charzd2matchzf3zf3zz__rgc_rulesz00(CINT
											(BgL_charz00_1562)))
										{	/* Rgc/rgccompile.scm 366 */
											obj_t BgL_arg1515z00_1565;
											obj_t BgL_arg1516z00_1566;

											BgL_arg1515z00_1565 =
												CDR(((obj_t) BgL_transitionsz00_1557));
											BgL_arg1516z00_1566 =
												BGl_insortz00zz__rgc_compilez00
												(BGl_specialzd2matchzd2charzd2ze3rulezd2numberze3zz__rgc_rulesz00
												(CINT(BgL_charz00_1562)), BgL_matchesz00_1558);
											{
												obj_t BgL_matchesz00_3667;
												obj_t BgL_transitionsz00_3666;

												BgL_transitionsz00_3666 = BgL_arg1515z00_1565;
												BgL_matchesz00_3667 = BgL_arg1516z00_1566;
												BgL_matchesz00_1558 = BgL_matchesz00_3667;
												BgL_transitionsz00_1557 = BgL_transitionsz00_3666;
												goto BgL_zc3z04anonymousza31510ze3z87_1559;
											}
										}
									else
										{	/* Rgc/rgccompile.scm 368 */
											obj_t BgL_arg1519z00_1568;

											BgL_arg1519z00_1568 =
												CDR(((obj_t) BgL_transitionsz00_1557));
											{
												obj_t BgL_transitionsz00_3670;

												BgL_transitionsz00_3670 = BgL_arg1519z00_1568;
												BgL_transitionsz00_1557 = BgL_transitionsz00_3670;
												goto BgL_zc3z04anonymousza31510ze3z87_1559;
											}
										}
								}
							}
						}
				}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__rgc_compilez00(obj_t BgL_matchesz00_1574)
	{
		{	/* Rgc/rgccompile.scm 342 */
			if (NULLP(BgL_matchesz00_1574))
				{	/* Rgc/rgccompile.scm 343 */
					return BGl_symbol2146z00zz__rgc_compilez00;
				}
			else
				{	/* Rgc/rgccompile.scm 345 */
					obj_t BgL_matchz00_1577;

					BgL_matchz00_1577 = CAR(((obj_t) BgL_matchesz00_1574));
					{	/* Rgc/rgccompile.scm 345 */
						obj_t BgL_predsz00_1578;

						BgL_predsz00_1578 =
							BGl_predicatezd2matchzd2zz__rgc_rulesz00(CINT(BgL_matchz00_1577));
						{	/* Rgc/rgccompile.scm 346 */

							if (PAIRP(BgL_predsz00_1578))
								{	/* Rgc/rgccompile.scm 349 */
									obj_t BgL_arg1525z00_1580;

									{	/* Rgc/rgccompile.scm 349 */
										obj_t BgL_arg1526z00_1581;
										obj_t BgL_arg1528z00_1582;

										{	/* Rgc/rgccompile.scm 349 */
											obj_t BgL_arg1531z00_1583;

											BgL_arg1531z00_1583 =
												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
												(BgL_predsz00_1578, BNIL);
											BgL_arg1526z00_1581 =
												MAKE_YOUNG_PAIR(BGl_symbol2193z00zz__rgc_compilez00,
												BgL_arg1531z00_1583);
										}
										{	/* Rgc/rgccompile.scm 351 */
											obj_t BgL_arg1532z00_1584;
											obj_t BgL_arg1534z00_1585;

											{	/* Rgc/rgccompile.scm 351 */
												obj_t BgL_arg1535z00_1586;

												{	/* Rgc/rgccompile.scm 351 */
													obj_t BgL_arg1536z00_1587;
													obj_t BgL_arg1541z00_1588;

													{	/* Rgc/rgccompile.scm 351 */
														obj_t BgL_arg1542z00_1589;

														{	/* Rgc/rgccompile.scm 351 */
															obj_t BgL_arg1544z00_1590;

															BgL_arg1544z00_1590 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2144z00zz__rgc_compilez00, BNIL);
															BgL_arg1542z00_1589 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2148z00zz__rgc_compilez00,
																BgL_arg1544z00_1590);
														}
														BgL_arg1536z00_1587 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2195z00zz__rgc_compilez00,
															BgL_arg1542z00_1589);
													}
													BgL_arg1541z00_1588 =
														MAKE_YOUNG_PAIR(BgL_matchz00_1577, BNIL);
													BgL_arg1535z00_1586 =
														MAKE_YOUNG_PAIR(BgL_arg1536z00_1587,
														BgL_arg1541z00_1588);
												}
												BgL_arg1532z00_1584 =
													MAKE_YOUNG_PAIR(BGl_symbol2197z00zz__rgc_compilez00,
													BgL_arg1535z00_1586);
											}
											{	/* Rgc/rgccompile.scm 353 */
												obj_t BgL_arg1545z00_1591;

												{	/* Rgc/rgccompile.scm 353 */
													obj_t BgL_arg1546z00_1592;

													BgL_arg1546z00_1592 =
														CDR(((obj_t) BgL_matchesz00_1574));
													BgL_arg1545z00_1591 =
														BGl_loopze70ze7zz__rgc_compilez00
														(BgL_arg1546z00_1592);
												}
												BgL_arg1534z00_1585 =
													MAKE_YOUNG_PAIR(BgL_arg1545z00_1591, BNIL);
											}
											BgL_arg1528z00_1582 =
												MAKE_YOUNG_PAIR(BgL_arg1532z00_1584,
												BgL_arg1534z00_1585);
										}
										BgL_arg1525z00_1580 =
											MAKE_YOUNG_PAIR(BgL_arg1526z00_1581, BgL_arg1528z00_1582);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2166z00zz__rgc_compilez00,
										BgL_arg1525z00_1580);
								}
							else
								{	/* Rgc/rgccompile.scm 355 */
									obj_t BgL_arg1547z00_1593;

									{	/* Rgc/rgccompile.scm 355 */
										obj_t BgL_arg1548z00_1594;
										obj_t BgL_arg1550z00_1595;

										{	/* Rgc/rgccompile.scm 355 */
											obj_t BgL_arg1552z00_1596;

											{	/* Rgc/rgccompile.scm 355 */
												obj_t BgL_arg1553z00_1597;

												BgL_arg1553z00_1597 =
													MAKE_YOUNG_PAIR(BGl_symbol2144z00zz__rgc_compilez00,
													BNIL);
												BgL_arg1552z00_1596 =
													MAKE_YOUNG_PAIR(BGl_symbol2148z00zz__rgc_compilez00,
													BgL_arg1553z00_1597);
											}
											BgL_arg1548z00_1594 =
												MAKE_YOUNG_PAIR(BGl_symbol2195z00zz__rgc_compilez00,
												BgL_arg1552z00_1596);
										}
										BgL_arg1550z00_1595 =
											MAKE_YOUNG_PAIR(BgL_matchz00_1577, BNIL);
										BgL_arg1547z00_1593 =
											MAKE_YOUNG_PAIR(BgL_arg1548z00_1594, BgL_arg1550z00_1595);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2197z00zz__rgc_compilez00,
										BgL_arg1547z00_1593);
								}
						}
					}
				}
		}

	}



/* init-compile-member-vector! */
	obj_t BGl_initzd2compilezd2memberzd2vectorz12zc0zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 379 */
			if (VECTORP(BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00))
				{	/* Rgc/rgccompile.scm 380 */
					return BFALSE;
				}
			else
				{	/* Rgc/rgccompile.scm 381 */
					obj_t BgL_arg1555z00_1601;

					{	/* Rgc/rgccompile.scm 381 */
						obj_t BgL_b1132z00_1604;

						BgL_b1132z00_1604 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
						{	/* Rgc/rgccompile.scm 381 */

							if (INTEGERP(BgL_b1132z00_1604))
								{	/* Rgc/rgccompile.scm 381 */
									BgL_arg1555z00_1601 = ADDFX(BINT(1L), BgL_b1132z00_1604);
								}
							else
								{	/* Rgc/rgccompile.scm 381 */
									BgL_arg1555z00_1601 =
										BGl_2zb2zb2zz__r4_numbers_6_5z00(BINT(1L),
										BgL_b1132z00_1604);
								}
						}
					}
					return (BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 =
						make_vector((long) CINT(BgL_arg1555z00_1601), BUNSPEC), BUNSPEC);
		}}

	}



/* chars->char-ranges */
	obj_t BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00(obj_t BgL_charsz00_32)
	{
		{	/* Rgc/rgccompile.scm 396 */
			{	/* Rgc/rgccompile.scm 398 */
				obj_t BgL_maxz00_1606;

				BgL_maxz00_1606 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
				{
					obj_t BgL_iz00_1642;
					obj_t BgL_iz00_1633;

					{	/* Rgc/rgccompile.scm 420 */
						obj_t BgL_vecz00_1610;

						BgL_vecz00_1610 =
							BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00;
						{	/* Ieee/vector.scm 105 */

							BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(BgL_vecz00_1610,
								BFALSE, 0L, VECTOR_LENGTH(((obj_t) BgL_vecz00_1610)));
					}}
					{
						obj_t BgL_l1133z00_2611;

						BgL_l1133z00_2611 = BgL_charsz00_32;
					BgL_zc3z04anonymousza31558ze3z87_2610:
						if (PAIRP(BgL_l1133z00_2611))
							{	/* Rgc/rgccompile.scm 421 */
								{	/* Rgc/rgccompile.scm 421 */
									obj_t BgL_xz00_2616;

									BgL_xz00_2616 = CAR(BgL_l1133z00_2611);
									VECTOR_SET(BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00,
										(long) CINT(BgL_xz00_2616), BTRUE);
								}
								{
									obj_t BgL_l1133z00_3720;

									BgL_l1133z00_3720 = CDR(BgL_l1133z00_2611);
									BgL_l1133z00_2611 = BgL_l1133z00_3720;
									goto BgL_zc3z04anonymousza31558ze3z87_2610;
								}
							}
						else
							{	/* Rgc/rgccompile.scm 421 */
								((bool_t) 1);
							}
					}
					{
						obj_t BgL_iz00_2631;
						obj_t BgL_rangesz00_2632;

						BgL_iz00_2631 = BINT(0L);
						BgL_rangesz00_2632 = BNIL;
					BgL_loopz00_2630:
						if (((long) CINT(BgL_iz00_2631) >= (long) CINT(BgL_maxz00_1606)))
							{	/* Rgc/rgccompile.scm 424 */
								return bgl_reverse_bang(BgL_rangesz00_2632);
							}
						else
							{	/* Rgc/rgccompile.scm 426 */
								obj_t BgL_rangez00_2636;

								{	/* Rgc/rgccompile.scm 415 */
									obj_t BgL_startz00_2637;

									BgL_iz00_1633 = BgL_iz00_2631;
									{
										obj_t BgL_iz00_1636;

										BgL_iz00_1636 = BgL_iz00_1633;
									BgL_zc3z04anonymousza31569ze3z87_1637:
										if (
											((long) CINT(BgL_iz00_1636) ==
												(long) CINT(BgL_maxz00_1606)))
											{	/* Rgc/rgccompile.scm 403 */
												BgL_startz00_2637 = BFALSE;
											}
										else
											{	/* Rgc/rgccompile.scm 404 */
												bool_t BgL_test2298z00_3731;

												{	/* Rgc/rgccompile.scm 404 */
													obj_t BgL_vectorz00_2583;
													long BgL_kz00_2584;

													BgL_vectorz00_2583 =
														BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00;
													BgL_kz00_2584 = (long) CINT(BgL_iz00_1636);
													BgL_test2298z00_3731 =
														CBOOL(VECTOR_REF(BgL_vectorz00_2583,
															BgL_kz00_2584));
												}
												if (BgL_test2298z00_3731)
													{	/* Rgc/rgccompile.scm 404 */
														BgL_startz00_2637 = BgL_iz00_1636;
													}
												else
													{
														obj_t BgL_iz00_3735;

														BgL_iz00_3735 = ADDFX(BgL_iz00_1636, BINT(1L));
														BgL_iz00_1636 = BgL_iz00_3735;
														goto BgL_zc3z04anonymousza31569ze3z87_1637;
													}
											}
									}
									if (CBOOL(BgL_startz00_2637))
										{	/* Rgc/rgccompile.scm 418 */
											long BgL_arg1583z00_2638;

											{	/* Rgc/rgccompile.scm 418 */
												long BgL_tmpz00_3740;

												{	/* Rgc/rgccompile.scm 418 */
													obj_t BgL_tmpz00_3741;

													BgL_iz00_1642 = BgL_startz00_2637;
													{
														obj_t BgL_iz00_1645;

														BgL_iz00_1645 = BgL_iz00_1642;
													BgL_zc3z04anonymousza31577ze3z87_1646:
														if (
															((long) CINT(BgL_iz00_1645) ==
																(long) CINT(BgL_maxz00_1606)))
															{	/* Rgc/rgccompile.scm 410 */
																BgL_tmpz00_3741 = BgL_maxz00_1606;
															}
														else
															{	/* Rgc/rgccompile.scm 411 */
																bool_t BgL_test2301z00_3746;

																{	/* Rgc/rgccompile.scm 411 */
																	obj_t BgL_vectorz00_2588;
																	long BgL_kz00_2589;

																	BgL_vectorz00_2588 =
																		BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00;
																	BgL_kz00_2589 = (long) CINT(BgL_iz00_1645);
																	BgL_test2301z00_3746 =
																		CBOOL(VECTOR_REF(BgL_vectorz00_2588,
																			BgL_kz00_2589));
																}
																if (BgL_test2301z00_3746)
																	{
																		obj_t BgL_iz00_3750;

																		BgL_iz00_3750 =
																			ADDFX(BgL_iz00_1645, BINT(1L));
																		BgL_iz00_1645 = BgL_iz00_3750;
																		goto BgL_zc3z04anonymousza31577ze3z87_1646;
																	}
																else
																	{	/* Rgc/rgccompile.scm 411 */
																		BgL_tmpz00_3741 = BgL_iz00_1645;
																	}
															}
													}
													BgL_tmpz00_3740 = (long) CINT(BgL_tmpz00_3741);
												}
												BgL_arg1583z00_2638 = (BgL_tmpz00_3740 - 1L);
											}
											BgL_rangez00_2636 =
												MAKE_YOUNG_PAIR(BgL_startz00_2637,
												BINT(BgL_arg1583z00_2638));
										}
									else
										{	/* Rgc/rgccompile.scm 416 */
											BgL_rangez00_2636 = BgL_maxz00_1606;
										}
								}
								if (PAIRP(BgL_rangez00_2636))
									{	/* Rgc/rgccompile.scm 428 */
										long BgL_arg1564z00_2642;
										obj_t BgL_arg1565z00_2643;

										BgL_arg1564z00_2642 =
											((long) CINT(CDR(BgL_rangez00_2636)) + 1L);
										BgL_arg1565z00_2643 =
											MAKE_YOUNG_PAIR(BgL_rangez00_2636, BgL_rangesz00_2632);
										{
											obj_t BgL_rangesz00_3765;
											obj_t BgL_iz00_3763;

											BgL_iz00_3763 = BINT(BgL_arg1564z00_2642);
											BgL_rangesz00_3765 = BgL_arg1565z00_2643;
											BgL_rangesz00_2632 = BgL_rangesz00_3765;
											BgL_iz00_2631 = BgL_iz00_3763;
											goto BgL_loopz00_2630;
										}
									}
								else
									{
										obj_t BgL_iz00_3766;

										BgL_iz00_3766 = BgL_rangez00_2636;
										BgL_iz00_2631 = BgL_iz00_3766;
										goto BgL_loopz00_2630;
									}
							}
					}
				}
			}
		}

	}



/* char-ranges->test */
	obj_t BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00(obj_t
		BgL_currentz00_33, obj_t BgL_rangesz00_34)
	{
		{	/* Rgc/rgccompile.scm 434 */
			{	/* Rgc/rgccompile.scm 443 */
				obj_t BgL_arg1586z00_1660;

				{	/* Rgc/rgccompile.scm 443 */
					obj_t BgL_arg1587z00_1661;

					if (NULLP(BgL_rangesz00_34))
						{	/* Rgc/rgccompile.scm 443 */
							BgL_arg1587z00_1661 = BNIL;
						}
					else
						{	/* Rgc/rgccompile.scm 443 */
							obj_t BgL_head1137z00_1664;

							{	/* Rgc/rgccompile.scm 443 */
								obj_t BgL_arg1597z00_1676;

								{	/* Rgc/rgccompile.scm 443 */
									obj_t BgL_arg1598z00_1677;

									BgL_arg1598z00_1677 = CAR(((obj_t) BgL_rangesz00_34));
									BgL_arg1597z00_1676 =
										BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00
										(BgL_currentz00_33, BgL_arg1598z00_1677);
								}
								BgL_head1137z00_1664 =
									MAKE_YOUNG_PAIR(BgL_arg1597z00_1676, BNIL);
							}
							{	/* Rgc/rgccompile.scm 443 */
								obj_t BgL_g1140z00_1665;

								BgL_g1140z00_1665 = CDR(((obj_t) BgL_rangesz00_34));
								{
									obj_t BgL_l1135z00_2670;
									obj_t BgL_tail1138z00_2671;

									BgL_l1135z00_2670 = BgL_g1140z00_1665;
									BgL_tail1138z00_2671 = BgL_head1137z00_1664;
								BgL_zc3z04anonymousza31589ze3z87_2669:
									if (NULLP(BgL_l1135z00_2670))
										{	/* Rgc/rgccompile.scm 443 */
											BgL_arg1587z00_1661 = BgL_head1137z00_1664;
										}
									else
										{	/* Rgc/rgccompile.scm 443 */
											obj_t BgL_newtail1139z00_2678;

											{	/* Rgc/rgccompile.scm 443 */
												obj_t BgL_arg1592z00_2679;

												{	/* Rgc/rgccompile.scm 443 */
													obj_t BgL_arg1595z00_2680;

													BgL_arg1595z00_2680 =
														CAR(((obj_t) BgL_l1135z00_2670));
													BgL_arg1592z00_2679 =
														BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00
														(BgL_currentz00_33, BgL_arg1595z00_2680);
												}
												BgL_newtail1139z00_2678 =
													MAKE_YOUNG_PAIR(BgL_arg1592z00_2679, BNIL);
											}
											SET_CDR(BgL_tail1138z00_2671, BgL_newtail1139z00_2678);
											{	/* Rgc/rgccompile.scm 443 */
												obj_t BgL_arg1591z00_2681;

												BgL_arg1591z00_2681 = CDR(((obj_t) BgL_l1135z00_2670));
												{
													obj_t BgL_tail1138z00_3786;
													obj_t BgL_l1135z00_3785;

													BgL_l1135z00_3785 = BgL_arg1591z00_2681;
													BgL_tail1138z00_3786 = BgL_newtail1139z00_2678;
													BgL_tail1138z00_2671 = BgL_tail1138z00_3786;
													BgL_l1135z00_2670 = BgL_l1135z00_3785;
													goto BgL_zc3z04anonymousza31589ze3z87_2669;
												}
											}
										}
								}
							}
						}
					BgL_arg1586z00_1660 =
						BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1587z00_1661,
						BNIL);
				}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2187z00zz__rgc_compilez00,
					BgL_arg1586z00_1660);
			}
		}

	}



/* char-range->test~0 */
	obj_t BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00(obj_t
		BgL_currentz00_3020, obj_t BgL_rangez00_1678)
	{
		{	/* Rgc/rgccompile.scm 441 */
			{	/* Rgc/rgccompile.scm 437 */
				obj_t BgL_startz00_1680;
				obj_t BgL_stopz00_1681;

				BgL_startz00_1680 = CAR(((obj_t) BgL_rangez00_1678));
				BgL_stopz00_1681 = CDR(((obj_t) BgL_rangez00_1678));
				if (((long) CINT(BgL_startz00_1680) == (long) CINT(BgL_stopz00_1681)))
					{	/* Rgc/rgccompile.scm 440 */
						obj_t BgL_arg1602z00_1683;

						{	/* Rgc/rgccompile.scm 440 */
							obj_t BgL_arg1603z00_1684;

							BgL_arg1603z00_1684 = MAKE_YOUNG_PAIR(BgL_startz00_1680, BNIL);
							BgL_arg1602z00_1683 =
								MAKE_YOUNG_PAIR(BgL_currentz00_3020, BgL_arg1603z00_1684);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2156z00zz__rgc_compilez00,
							BgL_arg1602z00_1683);
					}
				else
					{	/* Rgc/rgccompile.scm 441 */
						obj_t BgL_arg1604z00_1685;

						{	/* Rgc/rgccompile.scm 441 */
							obj_t BgL_arg1605z00_1686;
							obj_t BgL_arg1606z00_1687;

							{	/* Rgc/rgccompile.scm 441 */
								obj_t BgL_arg1607z00_1688;

								{	/* Rgc/rgccompile.scm 441 */
									obj_t BgL_arg1608z00_1689;

									BgL_arg1608z00_1689 =
										MAKE_YOUNG_PAIR(BgL_startz00_1680, BNIL);
									BgL_arg1607z00_1688 =
										MAKE_YOUNG_PAIR(BgL_currentz00_3020, BgL_arg1608z00_1689);
								}
								BgL_arg1605z00_1686 =
									MAKE_YOUNG_PAIR(BGl_symbol2189z00zz__rgc_compilez00,
									BgL_arg1607z00_1688);
							}
							{	/* Rgc/rgccompile.scm 441 */
								obj_t BgL_arg1609z00_1690;

								{	/* Rgc/rgccompile.scm 441 */
									obj_t BgL_arg1610z00_1691;

									{	/* Rgc/rgccompile.scm 441 */
										obj_t BgL_arg1611z00_1692;

										BgL_arg1611z00_1692 =
											MAKE_YOUNG_PAIR(BgL_stopz00_1681, BNIL);
										BgL_arg1610z00_1691 =
											MAKE_YOUNG_PAIR(BgL_currentz00_3020, BgL_arg1611z00_1692);
									}
									BgL_arg1609z00_1690 =
										MAKE_YOUNG_PAIR(BGl_symbol2199z00zz__rgc_compilez00,
										BgL_arg1610z00_1691);
								}
								BgL_arg1606z00_1687 =
									MAKE_YOUNG_PAIR(BgL_arg1609z00_1690, BNIL);
							}
							BgL_arg1604z00_1685 =
								MAKE_YOUNG_PAIR(BgL_arg1605z00_1686, BgL_arg1606z00_1687);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2193z00zz__rgc_compilez00,
							BgL_arg1604z00_1685);
					}
			}
		}

	}



/* compile-member-test */
	obj_t BGl_compilezd2memberzd2testz00zz__rgc_compilez00(obj_t
		BgL_currentz00_35, obj_t BgL_charsz00_36)
	{
		{	/* Rgc/rgccompile.scm 450 */
			{

				if (PAIRP(BgL_charsz00_36))
					{	/* Rgc/rgccompile.scm 451 */
						if (NULLP(CDR(((obj_t) BgL_charsz00_36))))
							{	/* Rgc/rgccompile.scm 451 */
								obj_t BgL_arg1615z00_1701;

								BgL_arg1615z00_1701 = CAR(((obj_t) BgL_charsz00_36));
								{	/* Rgc/rgccompile.scm 453 */
									obj_t BgL_arg1617z00_2692;

									{	/* Rgc/rgccompile.scm 453 */
										obj_t BgL_arg1618z00_2693;

										BgL_arg1618z00_2693 =
											MAKE_YOUNG_PAIR(BgL_arg1615z00_1701, BNIL);
										BgL_arg1617z00_2692 =
											MAKE_YOUNG_PAIR(BgL_currentz00_35, BgL_arg1618z00_2693);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2156z00zz__rgc_compilez00,
										BgL_arg1617z00_2692);
								}
							}
						else
							{	/* Rgc/rgccompile.scm 451 */
							BgL_tagzd2102zd2_1696:
								{	/* Rgc/rgccompile.scm 455 */
									obj_t BgL_rangesz00_1705;

									BgL_rangesz00_1705 =
										BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00
										(BgL_charsz00_36);
									if ((bgl_list_length(BgL_rangesz00_1705) >
											(bgl_list_length(BgL_charsz00_36) / 3L)))
										{	/* Rgc/rgccompile.scm 457 */
											obj_t BgL_arg1623z00_1710;

											{	/* Rgc/rgccompile.scm 457 */
												obj_t BgL_arg1625z00_1711;

												{	/* Rgc/rgccompile.scm 457 */
													obj_t BgL_arg1626z00_1712;

													{	/* Rgc/rgccompile.scm 457 */
														obj_t BgL_arg1627z00_1713;

														BgL_arg1627z00_1713 =
															MAKE_YOUNG_PAIR(BgL_charsz00_36, BNIL);
														BgL_arg1626z00_1712 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2201z00zz__rgc_compilez00,
															BgL_arg1627z00_1713);
													}
													BgL_arg1625z00_1711 =
														MAKE_YOUNG_PAIR(BgL_arg1626z00_1712, BNIL);
												}
												BgL_arg1623z00_1710 =
													MAKE_YOUNG_PAIR(BgL_currentz00_35,
													BgL_arg1625z00_1711);
											}
											return
												MAKE_YOUNG_PAIR(BGl_symbol2203z00zz__rgc_compilez00,
												BgL_arg1623z00_1710);
										}
									else
										{	/* Rgc/rgccompile.scm 456 */
											return
												BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00
												(BgL_currentz00_35, BgL_rangesz00_1705);
										}
								}
							}
					}
				else
					{	/* Rgc/rgccompile.scm 451 */
						goto BgL_tagzd2102zd2_1696;
					}
			}
		}

	}



/* compile-submatches */
	obj_t BGl_compilezd2submatcheszd2zz__rgc_compilez00(obj_t BgL_currentz00_37,
		obj_t BgL_submatchesz00_38, obj_t BgL_positionsz00_39,
		obj_t BgL_positionszd2tozd2charz00_40)
	{
		{	/* Rgc/rgccompile.scm 463 */
			{
				obj_t BgL_cellz00_1904;
				obj_t BgL_smz00_1905;

				{	/* Rgc/rgccompile.scm 479 */
					obj_t BgL_g1049z00_1719;

					BgL_g1049z00_1719 =
						BGl_rgcsetzd2ze3listz31zz__rgc_setz00(BgL_positionsz00_39);
					{
						obj_t BgL_positionsz00_1722;
						obj_t BgL_charzd2submatcheszd2_1723;

						BgL_positionsz00_1722 = BgL_g1049z00_1719;
						BgL_charzd2submatcheszd2_1723 = BNIL;
					BgL_zc3z04anonymousza31631ze3z87_1724:
						if (NULLP(BgL_positionsz00_1722))
							{	/* Rgc/rgccompile.scm 482 */
								obj_t BgL_fun1146z00_1726;

								{	/* Rgc/rgccompile.scm 482 */
									obj_t BgL_zc3z04anonymousza31639ze3z87_3016;

									{
										int BgL_tmpz00_3835;

										BgL_tmpz00_3835 = (int) (1L);
										BgL_zc3z04anonymousza31639ze3z87_3016 =
											MAKE_EL_PROCEDURE(BgL_tmpz00_3835);
									}
									PROCEDURE_EL_SET(BgL_zc3z04anonymousza31639ze3z87_3016,
										(int) (0L), BgL_currentz00_37);
									BgL_fun1146z00_1726 = BgL_zc3z04anonymousza31639ze3z87_3016;
								}
								if (NULLP(BgL_charzd2submatcheszd2_1723))
									{	/* Rgc/rgccompile.scm 482 */
										return BNIL;
									}
								else
									{	/* Rgc/rgccompile.scm 482 */
										obj_t BgL_head1143z00_1729;

										BgL_head1143z00_1729 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_l1141z00_2767;
											obj_t BgL_tail1144z00_2768;

											BgL_l1141z00_2767 = BgL_charzd2submatcheszd2_1723;
											BgL_tail1144z00_2768 = BgL_head1143z00_1729;
										BgL_zc3z04anonymousza31634ze3z87_2766:
											if (NULLP(BgL_l1141z00_2767))
												{	/* Rgc/rgccompile.scm 482 */
													return CDR(BgL_head1143z00_1729);
												}
											else
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_newtail1145z00_2775;

													{	/* Rgc/rgccompile.scm 482 */
														obj_t BgL_arg1637z00_2776;

														{	/* Rgc/rgccompile.scm 482 */
															obj_t BgL_arg1638z00_2777;

															BgL_arg1638z00_2777 =
																CAR(((obj_t) BgL_l1141z00_2767));
															BgL_arg1637z00_2776 =
																BGl_z62zc3z04anonymousza31639ze3ze5zz__rgc_compilez00
																(BgL_fun1146z00_1726, BgL_arg1638z00_2777);
														}
														BgL_newtail1145z00_2775 =
															MAKE_YOUNG_PAIR(BgL_arg1637z00_2776, BNIL);
													}
													SET_CDR(BgL_tail1144z00_2768,
														BgL_newtail1145z00_2775);
													{	/* Rgc/rgccompile.scm 482 */
														obj_t BgL_arg1636z00_2778;

														BgL_arg1636z00_2778 =
															CDR(((obj_t) BgL_l1141z00_2767));
														{
															obj_t BgL_tail1144z00_3857;
															obj_t BgL_l1141z00_3856;

															BgL_l1141z00_3856 = BgL_arg1636z00_2778;
															BgL_tail1144z00_3857 = BgL_newtail1145z00_2775;
															BgL_tail1144z00_2768 = BgL_tail1144z00_3857;
															BgL_l1141z00_2767 = BgL_l1141z00_3856;
															goto BgL_zc3z04anonymousza31634ze3z87_2766;
														}
													}
												}
										}
									}
							}
						else
							{	/* Rgc/rgccompile.scm 507 */
								obj_t BgL_posz00_1890;

								BgL_posz00_1890 = CAR(((obj_t) BgL_positionsz00_1722));
								{	/* Rgc/rgccompile.scm 507 */
									obj_t BgL_charz00_1891;

									{	/* Rgc/rgccompile.scm 508 */
										long BgL_kz00_2785;

										BgL_kz00_2785 = (long) CINT(BgL_posz00_1890);
										BgL_charz00_1891 =
											VECTOR_REF(
											((obj_t) BgL_positionszd2tozd2charz00_40), BgL_kz00_2785);
									}
									{	/* Rgc/rgccompile.scm 508 */
										obj_t BgL_cellz00_1892;

										{	/* Rgc/rgccompile.scm 509 */
											long BgL_kz00_2787;

											BgL_kz00_2787 = (long) CINT(BgL_posz00_1890);
											BgL_cellz00_1892 =
												VECTOR_REF(
												((obj_t) BgL_submatchesz00_38), BgL_kz00_2787);
										}
										{	/* Rgc/rgccompile.scm 509 */

											if (NULLP(BgL_cellz00_1892))
												{	/* Rgc/rgccompile.scm 511 */
													obj_t BgL_arg1781z00_1894;

													BgL_arg1781z00_1894 =
														CDR(((obj_t) BgL_positionsz00_1722));
													{
														obj_t BgL_positionsz00_3870;

														BgL_positionsz00_3870 = BgL_arg1781z00_1894;
														BgL_positionsz00_1722 = BgL_positionsz00_3870;
														goto BgL_zc3z04anonymousza31631ze3z87_1724;
													}
												}
											else
												{	/* Rgc/rgccompile.scm 513 */
													obj_t BgL_oldz00_1895;

													BgL_cellz00_1904 = BgL_cellz00_1892;
													BgL_smz00_1905 = BgL_charzd2submatcheszd2_1723;
													{
														obj_t BgL_smz00_1908;

														BgL_smz00_1908 = BgL_smz00_1905;
													BgL_zc3z04anonymousza31790ze3z87_1909:
														if (NULLP(BgL_smz00_1908))
															{	/* Rgc/rgccompile.scm 468 */
																BgL_oldz00_1895 = BNIL;
															}
														else
															{	/* Rgc/rgccompile.scm 470 */
																bool_t BgL_test2314z00_3873;

																{	/* Rgc/rgccompile.scm 470 */
																	obj_t BgL_auxz00_3874;

																	{	/* Rgc/rgccompile.scm 470 */
																		obj_t BgL_pairz00_2695;

																		BgL_pairz00_2695 =
																			CAR(((obj_t) BgL_smz00_1908));
																		BgL_auxz00_3874 = CDR(BgL_pairz00_2695);
																	}
																	BgL_test2314z00_3873 =
																		BGl_equalzf3zf3zz__r4_equivalence_6_2z00
																		(BgL_cellz00_1904, BgL_auxz00_3874);
																}
																if (BgL_test2314z00_3873)
																	{	/* Rgc/rgccompile.scm 470 */
																		BgL_oldz00_1895 =
																			CAR(((obj_t) BgL_smz00_1908));
																	}
																else
																	{
																		obj_t BgL_smz00_3881;

																		BgL_smz00_3881 =
																			CDR(((obj_t) BgL_smz00_1908));
																		BgL_smz00_1908 = BgL_smz00_3881;
																		goto BgL_zc3z04anonymousza31790ze3z87_1909;
																	}
															}
													}
													if (PAIRP(BgL_oldz00_1895))
														{	/* Rgc/rgccompile.scm 514 */
															{	/* Rgc/rgccompile.scm 476 */
																obj_t BgL_arg1799z00_2789;

																BgL_arg1799z00_2789 =
																	MAKE_YOUNG_PAIR(BgL_charz00_1891,
																	CAR(BgL_oldz00_1895));
																SET_CAR(BgL_oldz00_1895, BgL_arg1799z00_2789);
															}
															BgL_oldz00_1895;
															{	/* Rgc/rgccompile.scm 517 */
																obj_t BgL_arg1783z00_1897;

																BgL_arg1783z00_1897 =
																	CDR(((obj_t) BgL_positionsz00_1722));
																{
																	obj_t BgL_positionsz00_3891;

																	BgL_positionsz00_3891 = BgL_arg1783z00_1897;
																	BgL_positionsz00_1722 = BgL_positionsz00_3891;
																	goto BgL_zc3z04anonymousza31631ze3z87_1724;
																}
															}
														}
													else
														{	/* Rgc/rgccompile.scm 519 */
															obj_t BgL_arg1784z00_1898;
															obj_t BgL_arg1785z00_1899;

															BgL_arg1784z00_1898 =
																CDR(((obj_t) BgL_positionsz00_1722));
															{	/* Rgc/rgccompile.scm 520 */
																obj_t BgL_arg1786z00_1900;

																{	/* Rgc/rgccompile.scm 520 */
																	obj_t BgL_arg1787z00_1901;

																	{	/* Rgc/rgccompile.scm 520 */
																		obj_t BgL_list1788z00_1902;

																		BgL_list1788z00_1902 =
																			MAKE_YOUNG_PAIR(BgL_charz00_1891, BNIL);
																		BgL_arg1787z00_1901 = BgL_list1788z00_1902;
																	}
																	BgL_arg1786z00_1900 =
																		MAKE_YOUNG_PAIR(BgL_arg1787z00_1901,
																		BgL_cellz00_1892);
																}
																BgL_arg1785z00_1899 =
																	MAKE_YOUNG_PAIR(BgL_arg1786z00_1900,
																	BgL_charzd2submatcheszd2_1723);
															}
															{
																obj_t BgL_charzd2submatcheszd2_3898;
																obj_t BgL_positionsz00_3897;

																BgL_positionsz00_3897 = BgL_arg1784z00_1898;
																BgL_charzd2submatcheszd2_3898 =
																	BgL_arg1785z00_1899;
																BgL_charzd2submatcheszd2_1723 =
																	BgL_charzd2submatcheszd2_3898;
																BgL_positionsz00_1722 = BgL_positionsz00_3897;
																goto BgL_zc3z04anonymousza31631ze3z87_1724;
															}
														}
												}
										}
									}
								}
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1639> */
	obj_t BGl_z62zc3z04anonymousza31639ze3ze5zz__rgc_compilez00(obj_t
		BgL_envz00_3017, obj_t BgL_ezd2113zd2_3019)
	{
		{	/* Rgc/rgccompile.scm 482 */
			{	/* Rgc/rgccompile.scm 482 */
				obj_t BgL_currentz00_3018;

				BgL_currentz00_3018 =
					((obj_t) PROCEDURE_EL_REF(BgL_envz00_3017, (int) (0L)));
				{
					obj_t BgL_charz00_3079;
					obj_t BgL_mz00_3080;
					obj_t BgL_smz00_3081;
					obj_t BgL_charz00_3059;
					obj_t BgL_sz00_3060;
					obj_t BgL_mz00_3061;
					obj_t BgL_smz00_3062;
					obj_t BgL_charz00_3027;
					obj_t BgL_sz00_3028;
					obj_t BgL_mz00_3029;
					obj_t BgL_smz00_3030;
					obj_t BgL_tsz00_3031;
					obj_t BgL_tsmz00_3032;

					if (PAIRP(BgL_ezd2113zd2_3019))
						{	/* Rgc/rgccompile.scm 482 */
							obj_t BgL_cdrzd2125zd2_3092;

							BgL_cdrzd2125zd2_3092 = CDR(BgL_ezd2113zd2_3019);
							if (PAIRP(BgL_cdrzd2125zd2_3092))
								{	/* Rgc/rgccompile.scm 482 */
									obj_t BgL_cdrzd2130zd2_3093;

									BgL_cdrzd2130zd2_3093 = CDR(BgL_cdrzd2125zd2_3092);
									if (NULLP(CAR(BgL_cdrzd2125zd2_3092)))
										{	/* Rgc/rgccompile.scm 482 */
											if (PAIRP(BgL_cdrzd2130zd2_3093))
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_carzd2133zd2_3094;

													BgL_carzd2133zd2_3094 = CAR(BgL_cdrzd2130zd2_3093);
													if (PAIRP(BgL_carzd2133zd2_3094))
														{	/* Rgc/rgccompile.scm 482 */
															if (NULLP(CDR(BgL_cdrzd2130zd2_3093)))
																{	/* Rgc/rgccompile.scm 482 */
																	BgL_charz00_3079 = CAR(BgL_ezd2113zd2_3019);
																	BgL_mz00_3080 = CAR(BgL_carzd2133zd2_3094);
																	BgL_smz00_3081 = CDR(BgL_carzd2133zd2_3094);
																	{	/* Rgc/rgccompile.scm 484 */
																		obj_t BgL_arg1723z00_3082;

																		{	/* Rgc/rgccompile.scm 484 */
																			obj_t BgL_arg1724z00_3083;
																			obj_t BgL_arg1725z00_3084;

																			BgL_arg1724z00_3083 =
																				BGl_compilezd2memberzd2testz00zz__rgc_compilez00
																				(BgL_currentz00_3018, BgL_charz00_3079);
																			{	/* Rgc/rgccompile.scm 485 */
																				obj_t BgL_arg1726z00_3085;

																				{	/* Rgc/rgccompile.scm 485 */
																					obj_t BgL_arg1727z00_3086;

																					{	/* Rgc/rgccompile.scm 485 */
																						obj_t BgL_arg1729z00_3087;

																						{	/* Rgc/rgccompile.scm 485 */
																							obj_t BgL_arg1730z00_3088;

																							{	/* Rgc/rgccompile.scm 485 */
																								obj_t BgL_arg1731z00_3089;

																								{	/* Rgc/rgccompile.scm 485 */
																									obj_t BgL_arg1732z00_3090;

																									{	/* Rgc/rgccompile.scm 485 */
																										obj_t BgL_arg1733z00_3091;

																										BgL_arg1733z00_3091 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2144z00zz__rgc_compilez00,
																											BNIL);
																										BgL_arg1732z00_3090 =
																											MAKE_YOUNG_PAIR(BINT(1L),
																											BgL_arg1733z00_3091);
																									}
																									BgL_arg1731z00_3089 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2181z00zz__rgc_compilez00,
																										BgL_arg1732z00_3090);
																								}
																								BgL_arg1730z00_3088 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1731z00_3089, BNIL);
																							}
																							BgL_arg1729z00_3087 =
																								MAKE_YOUNG_PAIR(BgL_smz00_3081,
																								BgL_arg1730z00_3088);
																						}
																						BgL_arg1727z00_3086 =
																							MAKE_YOUNG_PAIR(BgL_mz00_3080,
																							BgL_arg1729z00_3087);
																					}
																					BgL_arg1726z00_3085 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2209z00zz__rgc_compilez00,
																						BgL_arg1727z00_3086);
																				}
																				BgL_arg1725z00_3084 =
																					MAKE_YOUNG_PAIR(BgL_arg1726z00_3085,
																					BNIL);
																			}
																			BgL_arg1723z00_3082 =
																				MAKE_YOUNG_PAIR(BgL_arg1724z00_3083,
																				BgL_arg1725z00_3084);
																		}
																		return
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2166z00zz__rgc_compilez00,
																			BgL_arg1723z00_3082);
																	}
																}
															else
																{	/* Rgc/rgccompile.scm 482 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2211z00zz__rgc_compilez00,
																		BGl_string2212z00zz__rgc_compilez00,
																		BgL_ezd2113zd2_3019);
																}
														}
													else
														{	/* Rgc/rgccompile.scm 482 */
															return
																BGl_errorz00zz__errorz00
																(BGl_string2211z00zz__rgc_compilez00,
																BGl_string2212z00zz__rgc_compilez00,
																BgL_ezd2113zd2_3019);
														}
												}
											else
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_carzd2218zd2_3095;

													BgL_carzd2218zd2_3095 =
														CAR(((obj_t) BgL_cdrzd2125zd2_3092));
													if (PAIRP(BgL_carzd2218zd2_3095))
														{	/* Rgc/rgccompile.scm 482 */
															obj_t BgL_carzd2223zd2_3096;

															BgL_carzd2223zd2_3096 =
																CAR(BgL_carzd2218zd2_3095);
															if (PAIRP(BgL_carzd2223zd2_3096))
																{	/* Rgc/rgccompile.scm 482 */
																	obj_t BgL_cdrzd2229zd2_3097;

																	BgL_cdrzd2229zd2_3097 =
																		CDR(BgL_carzd2223zd2_3096);
																	if (PAIRP(BgL_cdrzd2229zd2_3097))
																		{	/* Rgc/rgccompile.scm 482 */
																			obj_t BgL_cdrzd2234zd2_3098;

																			BgL_cdrzd2234zd2_3098 =
																				CDR(BgL_cdrzd2229zd2_3097);
																			if (PAIRP(BgL_cdrzd2234zd2_3098))
																				{	/* Rgc/rgccompile.scm 482 */
																					if (NULLP(CDR(BgL_cdrzd2234zd2_3098)))
																						{	/* Rgc/rgccompile.scm 482 */
																							if (NULLP(CDR
																									(BgL_carzd2218zd2_3095)))
																								{	/* Rgc/rgccompile.scm 482 */
																									if (NULLP(CDR(
																												((obj_t)
																													BgL_cdrzd2125zd2_3092))))
																										{	/* Rgc/rgccompile.scm 482 */
																											BgL_charz00_3059 =
																												CAR
																												(BgL_ezd2113zd2_3019);
																											BgL_sz00_3060 =
																												CAR
																												(BgL_carzd2223zd2_3096);
																											BgL_mz00_3061 =
																												CAR
																												(BgL_cdrzd2229zd2_3097);
																											BgL_smz00_3062 =
																												CAR
																												(BgL_cdrzd2234zd2_3098);
																										BgL_tagzd2110zd2_3025:
																											{	/* Rgc/rgccompile.scm 487 */
																												obj_t
																													BgL_arg1734z00_3063;
																												{	/* Rgc/rgccompile.scm 487 */
																													obj_t
																														BgL_arg1735z00_3064;
																													obj_t
																														BgL_arg1736z00_3065;
																													BgL_arg1735z00_3064 =
																														BGl_compilezd2memberzd2testz00zz__rgc_compilez00
																														(BgL_currentz00_3018,
																														BgL_charz00_3059);
																													{	/* Rgc/rgccompile.scm 488 */
																														obj_t
																															BgL_arg1738z00_3066;
																														if (CBOOL
																															(BgL_sz00_3060))
																															{	/* Rgc/rgccompile.scm 491 */
																																obj_t
																																	BgL_arg1739z00_3067;
																																{	/* Rgc/rgccompile.scm 491 */
																																	obj_t
																																		BgL_arg1741z00_3068;
																																	{	/* Rgc/rgccompile.scm 491 */
																																		obj_t
																																			BgL_arg1742z00_3069;
																																		{	/* Rgc/rgccompile.scm 491 */
																																			obj_t
																																				BgL_arg1743z00_3070;
																																			{	/* Rgc/rgccompile.scm 491 */
																																				obj_t
																																					BgL_arg1744z00_3071;
																																				{	/* Rgc/rgccompile.scm 491 */
																																					obj_t
																																						BgL_arg1745z00_3072;
																																					BgL_arg1745z00_3072
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2144z00zz__rgc_compilez00,
																																						BNIL);
																																					BgL_arg1744z00_3071
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BINT
																																						(1L),
																																						BgL_arg1745z00_3072);
																																				}
																																				BgL_arg1743z00_3070
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2181z00zz__rgc_compilez00,
																																					BgL_arg1744z00_3071);
																																			}
																																			BgL_arg1742z00_3069
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1743z00_3070,
																																				BNIL);
																																		}
																																		BgL_arg1741z00_3068
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_smz00_3062,
																																			BgL_arg1742z00_3069);
																																	}
																																	BgL_arg1739z00_3067
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_mz00_3061,
																																		BgL_arg1741z00_3068);
																																}
																																BgL_arg1738z00_3066
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2205z00zz__rgc_compilez00,
																																	BgL_arg1739z00_3067);
																															}
																														else
																															{	/* Rgc/rgccompile.scm 492 */
																																obj_t
																																	BgL_arg1746z00_3073;
																																{	/* Rgc/rgccompile.scm 492 */
																																	obj_t
																																		BgL_arg1747z00_3074;
																																	{	/* Rgc/rgccompile.scm 492 */
																																		obj_t
																																			BgL_arg1748z00_3075;
																																		{	/* Rgc/rgccompile.scm 492 */
																																			obj_t
																																				BgL_arg1749z00_3076;
																																			{	/* Rgc/rgccompile.scm 492 */
																																				obj_t
																																					BgL_arg1750z00_3077;
																																				{	/* Rgc/rgccompile.scm 492 */
																																					obj_t
																																						BgL_arg1751z00_3078;
																																					BgL_arg1751z00_3078
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2144z00zz__rgc_compilez00,
																																						BNIL);
																																					BgL_arg1750z00_3077
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BINT
																																						(1L),
																																						BgL_arg1751z00_3078);
																																				}
																																				BgL_arg1749z00_3076
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2181z00zz__rgc_compilez00,
																																					BgL_arg1750z00_3077);
																																			}
																																			BgL_arg1748z00_3075
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1749z00_3076,
																																				BNIL);
																																		}
																																		BgL_arg1747z00_3074
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_smz00_3062,
																																			BgL_arg1748z00_3075);
																																	}
																																	BgL_arg1746z00_3073
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_mz00_3061,
																																		BgL_arg1747z00_3074);
																																}
																																BgL_arg1738z00_3066
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2207z00zz__rgc_compilez00,
																																	BgL_arg1746z00_3073);
																															}
																														BgL_arg1736z00_3065
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1738z00_3066,
																															BNIL);
																													}
																													BgL_arg1734z00_3063 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1735z00_3064,
																														BgL_arg1736z00_3065);
																												}
																												return
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2166z00zz__rgc_compilez00,
																													BgL_arg1734z00_3063);
																											}
																										}
																									else
																										{	/* Rgc/rgccompile.scm 482 */
																											return
																												BGl_errorz00zz__errorz00
																												(BGl_string2211z00zz__rgc_compilez00,
																												BGl_string2212z00zz__rgc_compilez00,
																												BgL_ezd2113zd2_3019);
																										}
																								}
																							else
																								{	/* Rgc/rgccompile.scm 482 */
																									return
																										BGl_errorz00zz__errorz00
																										(BGl_string2211z00zz__rgc_compilez00,
																										BGl_string2212z00zz__rgc_compilez00,
																										BgL_ezd2113zd2_3019);
																								}
																						}
																					else
																						{	/* Rgc/rgccompile.scm 482 */
																							return
																								BGl_errorz00zz__errorz00
																								(BGl_string2211z00zz__rgc_compilez00,
																								BGl_string2212z00zz__rgc_compilez00,
																								BgL_ezd2113zd2_3019);
																						}
																				}
																			else
																				{	/* Rgc/rgccompile.scm 482 */
																					return
																						BGl_errorz00zz__errorz00
																						(BGl_string2211z00zz__rgc_compilez00,
																						BGl_string2212z00zz__rgc_compilez00,
																						BgL_ezd2113zd2_3019);
																				}
																		}
																	else
																		{	/* Rgc/rgccompile.scm 482 */
																			return
																				BGl_errorz00zz__errorz00
																				(BGl_string2211z00zz__rgc_compilez00,
																				BGl_string2212z00zz__rgc_compilez00,
																				BgL_ezd2113zd2_3019);
																		}
																}
															else
																{	/* Rgc/rgccompile.scm 482 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2211z00zz__rgc_compilez00,
																		BGl_string2212z00zz__rgc_compilez00,
																		BgL_ezd2113zd2_3019);
																}
														}
													else
														{	/* Rgc/rgccompile.scm 482 */
															return
																BGl_errorz00zz__errorz00
																(BGl_string2211z00zz__rgc_compilez00,
																BGl_string2212z00zz__rgc_compilez00,
																BgL_ezd2113zd2_3019);
														}
												}
										}
									else
										{	/* Rgc/rgccompile.scm 482 */
											obj_t BgL_carzd2383zd2_3099;

											BgL_carzd2383zd2_3099 =
												CAR(((obj_t) BgL_cdrzd2125zd2_3092));
											if (PAIRP(BgL_carzd2383zd2_3099))
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_carzd2388zd2_3100;

													BgL_carzd2388zd2_3100 = CAR(BgL_carzd2383zd2_3099);
													if (PAIRP(BgL_carzd2388zd2_3100))
														{	/* Rgc/rgccompile.scm 482 */
															obj_t BgL_cdrzd2394zd2_3101;

															BgL_cdrzd2394zd2_3101 =
																CDR(BgL_carzd2388zd2_3100);
															if (PAIRP(BgL_cdrzd2394zd2_3101))
																{	/* Rgc/rgccompile.scm 482 */
																	obj_t BgL_cdrzd2399zd2_3102;

																	BgL_cdrzd2399zd2_3102 =
																		CDR(BgL_cdrzd2394zd2_3101);
																	if (PAIRP(BgL_cdrzd2399zd2_3102))
																		{	/* Rgc/rgccompile.scm 482 */
																			if (NULLP(CDR(BgL_cdrzd2399zd2_3102)))
																				{	/* Rgc/rgccompile.scm 482 */
																					if (NULLP(CDR(BgL_carzd2383zd2_3099)))
																						{	/* Rgc/rgccompile.scm 482 */
																							if (NULLP(CDR(
																										((obj_t)
																											BgL_cdrzd2125zd2_3092))))
																								{
																									obj_t BgL_smz00_4021;
																									obj_t BgL_mz00_4019;
																									obj_t BgL_sz00_4017;
																									obj_t BgL_charz00_4015;

																									BgL_charz00_4015 =
																										CAR(BgL_ezd2113zd2_3019);
																									BgL_sz00_4017 =
																										CAR(BgL_carzd2388zd2_3100);
																									BgL_mz00_4019 =
																										CAR(BgL_cdrzd2394zd2_3101);
																									BgL_smz00_4021 =
																										CAR(BgL_cdrzd2399zd2_3102);
																									BgL_smz00_3062 =
																										BgL_smz00_4021;
																									BgL_mz00_3061 = BgL_mz00_4019;
																									BgL_sz00_3060 = BgL_sz00_4017;
																									BgL_charz00_3059 =
																										BgL_charz00_4015;
																									goto BgL_tagzd2110zd2_3025;
																								}
																							else
																								{	/* Rgc/rgccompile.scm 482 */
																									obj_t BgL_cdrzd2435zd2_3104;

																									BgL_cdrzd2435zd2_3104 =
																										CDR(
																										((obj_t)
																											BgL_cdrzd2125zd2_3092));
																									{	/* Rgc/rgccompile.scm 482 */
																										obj_t BgL_carzd2442zd2_3105;

																										{	/* Rgc/rgccompile.scm 482 */
																											obj_t BgL_pairz00_3106;

																											BgL_pairz00_3106 =
																												CAR(
																												((obj_t)
																													BgL_cdrzd2125zd2_3092));
																											BgL_carzd2442zd2_3105 =
																												CAR(BgL_pairz00_3106);
																										}
																										{	/* Rgc/rgccompile.scm 482 */
																											obj_t
																												BgL_cdrzd2451zd2_3107;
																											BgL_cdrzd2451zd2_3107 =
																												CDR(((obj_t)
																													BgL_carzd2442zd2_3105));
																											if (PAIRP
																												(BgL_cdrzd2435zd2_3104))
																												{	/* Rgc/rgccompile.scm 482 */
																													obj_t
																														BgL_carzd2470zd2_3108;
																													BgL_carzd2470zd2_3108
																														=
																														CAR
																														(BgL_cdrzd2435zd2_3104);
																													if (PAIRP
																														(BgL_carzd2470zd2_3108))
																														{	/* Rgc/rgccompile.scm 482 */
																															if (NULLP(CDR
																																	(BgL_cdrzd2435zd2_3104)))
																																{	/* Rgc/rgccompile.scm 482 */
																																	obj_t
																																		BgL_arg1708z00_3109;
																																	obj_t
																																		BgL_arg1709z00_3110;
																																	obj_t
																																		BgL_arg1710z00_3111;
																																	obj_t
																																		BgL_arg1712z00_3112;
																																	obj_t
																																		BgL_arg1713z00_3113;
																																	obj_t
																																		BgL_arg1714z00_3114;
																																	BgL_arg1708z00_3109
																																		=
																																		CAR
																																		(BgL_ezd2113zd2_3019);
																																	BgL_arg1709z00_3110
																																		=
																																		CAR(((obj_t)
																																			BgL_carzd2442zd2_3105));
																																	BgL_arg1710z00_3111
																																		=
																																		CAR(((obj_t)
																																			BgL_cdrzd2451zd2_3107));
																																	{	/* Rgc/rgccompile.scm 482 */
																																		obj_t
																																			BgL_pairz00_3115;
																																		BgL_pairz00_3115
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_cdrzd2451zd2_3107));
																																		BgL_arg1712z00_3112
																																			=
																																			CAR
																																			(BgL_pairz00_3115);
																																	}
																																	BgL_arg1713z00_3113
																																		=
																																		CAR
																																		(BgL_carzd2470zd2_3108);
																																	BgL_arg1714z00_3114
																																		=
																																		CDR
																																		(BgL_carzd2470zd2_3108);
																																	BgL_charz00_3027
																																		=
																																		BgL_arg1708z00_3109;
																																	BgL_sz00_3028
																																		=
																																		BgL_arg1709z00_3110;
																																	BgL_mz00_3029
																																		=
																																		BgL_arg1710z00_3111;
																																	BgL_smz00_3030
																																		=
																																		BgL_arg1712z00_3112;
																																	BgL_tsz00_3031
																																		=
																																		BgL_arg1713z00_3113;
																																	BgL_tsmz00_3032
																																		=
																																		BgL_arg1714z00_3114;
																																	{	/* Rgc/rgccompile.scm 494 */
																																		obj_t
																																			BgL_arg1752z00_3033;
																																		{	/* Rgc/rgccompile.scm 494 */
																																			obj_t
																																				BgL_arg1753z00_3034;
																																			obj_t
																																				BgL_arg1754z00_3035;
																																			BgL_arg1753z00_3034
																																				=
																																				BGl_compilezd2memberzd2testz00zz__rgc_compilez00
																																				(BgL_currentz00_3018,
																																				BgL_charz00_3027);
																																			{	/* Rgc/rgccompile.scm 496 */
																																				obj_t
																																					BgL_arg1755z00_3036;
																																				{	/* Rgc/rgccompile.scm 496 */
																																					obj_t
																																						BgL_arg1756z00_3037;
																																					{	/* Rgc/rgccompile.scm 496 */
																																						obj_t
																																							BgL_arg1757z00_3038;
																																						obj_t
																																							BgL_arg1758z00_3039;
																																						if (CBOOL(BgL_sz00_3028))
																																							{	/* Rgc/rgccompile.scm 499 */
																																								obj_t
																																									BgL_arg1759z00_3040;
																																								{	/* Rgc/rgccompile.scm 499 */
																																									obj_t
																																										BgL_arg1760z00_3041;
																																									{	/* Rgc/rgccompile.scm 499 */
																																										obj_t
																																											BgL_arg1761z00_3042;
																																										{	/* Rgc/rgccompile.scm 499 */
																																											obj_t
																																												BgL_arg1762z00_3043;
																																											{	/* Rgc/rgccompile.scm 499 */
																																												obj_t
																																													BgL_arg1763z00_3044;
																																												{	/* Rgc/rgccompile.scm 499 */
																																													obj_t
																																														BgL_arg1765z00_3045;
																																													BgL_arg1765z00_3045
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2144z00zz__rgc_compilez00,
																																														BNIL);
																																													BgL_arg1763z00_3044
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BINT
																																														(1L),
																																														BgL_arg1765z00_3045);
																																												}
																																												BgL_arg1762z00_3043
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2181z00zz__rgc_compilez00,
																																													BgL_arg1763z00_3044);
																																											}
																																											BgL_arg1761z00_3042
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1762z00_3043,
																																												BNIL);
																																										}
																																										BgL_arg1760z00_3041
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_smz00_3030,
																																											BgL_arg1761z00_3042);
																																									}
																																									BgL_arg1759z00_3040
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_mz00_3029,
																																										BgL_arg1760z00_3041);
																																								}
																																								BgL_arg1757z00_3038
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2205z00zz__rgc_compilez00,
																																									BgL_arg1759z00_3040);
																																							}
																																						else
																																							{	/* Rgc/rgccompile.scm 500 */
																																								obj_t
																																									BgL_arg1766z00_3046;
																																								{	/* Rgc/rgccompile.scm 500 */
																																									obj_t
																																										BgL_arg1767z00_3047;
																																									{	/* Rgc/rgccompile.scm 500 */
																																										obj_t
																																											BgL_arg1768z00_3048;
																																										{	/* Rgc/rgccompile.scm 500 */
																																											obj_t
																																												BgL_arg1769z00_3049;
																																											{	/* Rgc/rgccompile.scm 500 */
																																												obj_t
																																													BgL_arg1770z00_3050;
																																												{	/* Rgc/rgccompile.scm 500 */
																																													obj_t
																																														BgL_arg1771z00_3051;
																																													BgL_arg1771z00_3051
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2144z00zz__rgc_compilez00,
																																														BNIL);
																																													BgL_arg1770z00_3050
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BINT
																																														(1L),
																																														BgL_arg1771z00_3051);
																																												}
																																												BgL_arg1769z00_3049
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2181z00zz__rgc_compilez00,
																																													BgL_arg1770z00_3050);
																																											}
																																											BgL_arg1768z00_3048
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1769z00_3049,
																																												BNIL);
																																										}
																																										BgL_arg1767z00_3047
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_smz00_3030,
																																											BgL_arg1768z00_3048);
																																									}
																																									BgL_arg1766z00_3046
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_mz00_3029,
																																										BgL_arg1767z00_3047);
																																								}
																																								BgL_arg1757z00_3038
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2207z00zz__rgc_compilez00,
																																									BgL_arg1766z00_3046);
																																							}
																																						{	/* Rgc/rgccompile.scm 501 */
																																							obj_t
																																								BgL_arg1773z00_3052;
																																							{	/* Rgc/rgccompile.scm 501 */
																																								obj_t
																																									BgL_arg1774z00_3053;
																																								{	/* Rgc/rgccompile.scm 501 */
																																									obj_t
																																										BgL_arg1775z00_3054;
																																									{	/* Rgc/rgccompile.scm 501 */
																																										obj_t
																																											BgL_arg1776z00_3055;
																																										{	/* Rgc/rgccompile.scm 501 */
																																											obj_t
																																												BgL_arg1777z00_3056;
																																											{	/* Rgc/rgccompile.scm 501 */
																																												obj_t
																																													BgL_arg1778z00_3057;
																																												{	/* Rgc/rgccompile.scm 501 */
																																													obj_t
																																														BgL_arg1779z00_3058;
																																													BgL_arg1779z00_3058
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2144z00zz__rgc_compilez00,
																																														BNIL);
																																													BgL_arg1778z00_3057
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BINT
																																														(1L),
																																														BgL_arg1779z00_3058);
																																												}
																																												BgL_arg1777z00_3056
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2181z00zz__rgc_compilez00,
																																													BgL_arg1778z00_3057);
																																											}
																																											BgL_arg1776z00_3055
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1777z00_3056,
																																												BNIL);
																																										}
																																										BgL_arg1775z00_3054
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_tsmz00_3032,
																																											BgL_arg1776z00_3055);
																																									}
																																									BgL_arg1774z00_3053
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_tsz00_3031,
																																										BgL_arg1775z00_3054);
																																								}
																																								BgL_arg1773z00_3052
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2209z00zz__rgc_compilez00,
																																									BgL_arg1774z00_3053);
																																							}
																																							BgL_arg1758z00_3039
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1773z00_3052,
																																								BNIL);
																																						}
																																						BgL_arg1756z00_3037
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1757z00_3038,
																																							BgL_arg1758z00_3039);
																																					}
																																					BgL_arg1755z00_3036
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2197z00zz__rgc_compilez00,
																																						BgL_arg1756z00_3037);
																																				}
																																				BgL_arg1754z00_3035
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1755z00_3036,
																																					BNIL);
																																			}
																																			BgL_arg1752z00_3033
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1753z00_3034,
																																				BgL_arg1754z00_3035);
																																		}
																																		return
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2166z00zz__rgc_compilez00,
																																			BgL_arg1752z00_3033);
																																	}
																																}
																															else
																																{	/* Rgc/rgccompile.scm 482 */
																																	return
																																		BGl_errorz00zz__errorz00
																																		(BGl_string2211z00zz__rgc_compilez00,
																																		BGl_string2212z00zz__rgc_compilez00,
																																		BgL_ezd2113zd2_3019);
																																}
																														}
																													else
																														{	/* Rgc/rgccompile.scm 482 */
																															return
																																BGl_errorz00zz__errorz00
																																(BGl_string2211z00zz__rgc_compilez00,
																																BGl_string2212z00zz__rgc_compilez00,
																																BgL_ezd2113zd2_3019);
																														}
																												}
																											else
																												{	/* Rgc/rgccompile.scm 482 */
																													return
																														BGl_errorz00zz__errorz00
																														(BGl_string2211z00zz__rgc_compilez00,
																														BGl_string2212z00zz__rgc_compilez00,
																														BgL_ezd2113zd2_3019);
																												}
																										}
																									}
																								}
																						}
																					else
																						{	/* Rgc/rgccompile.scm 482 */
																							return
																								BGl_errorz00zz__errorz00
																								(BGl_string2211z00zz__rgc_compilez00,
																								BGl_string2212z00zz__rgc_compilez00,
																								BgL_ezd2113zd2_3019);
																						}
																				}
																			else
																				{	/* Rgc/rgccompile.scm 482 */
																					return
																						BGl_errorz00zz__errorz00
																						(BGl_string2211z00zz__rgc_compilez00,
																						BGl_string2212z00zz__rgc_compilez00,
																						BgL_ezd2113zd2_3019);
																				}
																		}
																	else
																		{	/* Rgc/rgccompile.scm 482 */
																			return
																				BGl_errorz00zz__errorz00
																				(BGl_string2211z00zz__rgc_compilez00,
																				BGl_string2212z00zz__rgc_compilez00,
																				BgL_ezd2113zd2_3019);
																		}
																}
															else
																{	/* Rgc/rgccompile.scm 482 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2211z00zz__rgc_compilez00,
																		BGl_string2212z00zz__rgc_compilez00,
																		BgL_ezd2113zd2_3019);
																}
														}
													else
														{	/* Rgc/rgccompile.scm 482 */
															return
																BGl_errorz00zz__errorz00
																(BGl_string2211z00zz__rgc_compilez00,
																BGl_string2212z00zz__rgc_compilez00,
																BgL_ezd2113zd2_3019);
														}
												}
											else
												{	/* Rgc/rgccompile.scm 482 */
													return
														BGl_errorz00zz__errorz00
														(BGl_string2211z00zz__rgc_compilez00,
														BGl_string2212z00zz__rgc_compilez00,
														BgL_ezd2113zd2_3019);
												}
										}
								}
							else
								{	/* Rgc/rgccompile.scm 482 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2211z00zz__rgc_compilez00,
										BGl_string2212z00zz__rgc_compilez00, BgL_ezd2113zd2_3019);
								}
						}
					else
						{	/* Rgc/rgccompile.scm 482 */
							return
								BGl_errorz00zz__errorz00(BGl_string2211z00zz__rgc_compilez00,
								BGl_string2212z00zz__rgc_compilez00, BgL_ezd2113zd2_3019);
						}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__rgc_compilez00(void)
	{
		{	/* Rgc/rgccompile.scm 15 */
			BGl_modulezd2initializa7ationz75zz__rgc_rulesz00(181068393L,
				BSTRING_TO_STRING(BGl_string2213z00zz__rgc_compilez00));
			BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(477555221L,
				BSTRING_TO_STRING(BGl_string2213z00zz__rgc_compilez00));
			BGl_modulezd2initializa7ationz75zz__rgc_setz00(225075643L,
				BSTRING_TO_STRING(BGl_string2213z00zz__rgc_compilez00));
			BGl_modulezd2initializa7ationz75zz__rgc_configz00(428274736L,
				BSTRING_TO_STRING(BGl_string2213z00zz__rgc_compilez00));
			return
				BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2213z00zz__rgc_compilez00));
		}

	}

#ifdef __cplusplus
}
#endif
