/*===========================================================================*/
/*   (Rgc/rgccompile.scm)                                                    */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c 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_symbol2200z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2202z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2204z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t BGl_rgcsetzd2addz12zc0zz__rgc_setz00(obj_t, long);
	static obj_t BGl_symbol2206z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2208z00zz__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);
	static obj_t BGl_symbol2210z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t BGl_za2rgczd2optimza2zd2zz__rgc_configz00;
	extern obj_t BGl_rgcsetzd2ze3listz31zz__rgc_setz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31633ze3ze5zz__rgc_compilez00(obj_t,
		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_symbol2143z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2145z00zz__rgc_compilez00 = BUNSPEC;
	extern long bgl_list_length(obj_t);
	static obj_t BGl_symbol2147z00zz__rgc_compilez00 = BUNSPEC;
	extern bool_t BGl_specialzd2charzd2matchzf3zf3zz__rgc_rulesz00(int);
	static obj_t BGl_symbol2149z00zz__rgc_compilez00 = BUNSPEC;
	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_symbol2151z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2153z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2155z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2157z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2159z00zz__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_symbol2162z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2165z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2167z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00(obj_t);
	static obj_t BGl_symbol2169z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t BGl_statezd2transitionszd2zz__rgc_dfaz00(obj_t);
	static obj_t BGl_insortz00zz__rgc_compilez00(int, obj_t);
	static obj_t BGl_symbol2171z00zz__rgc_compilez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_compilezd2dfazd2zz__rgc_compilez00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_statezd2transitionzd2listz00zz__rgc_compilez00(obj_t);
	static obj_t BGl_symbol2173z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2175z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2177z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2179z00zz__rgc_compilez00 = BUNSPEC;
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static long BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00 = 0L;
	extern obj_t BGl_statezd2namezd2zz__rgc_dfaz00(obj_t);
	static obj_t BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_symbol2182z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_compilezd2matchzd2zz__rgc_compilez00(obj_t);
	static obj_t BGl_symbol2184z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2186z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2188z00zz__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_symbol2190z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__rgc_compilez00(void);
	static obj_t BGl_symbol2192z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2194z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_list2161z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2196z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_list2164z00zz__rgc_compilez00 = BUNSPEC;
	static obj_t BGl_symbol2198z00zz__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_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_list2181z00zz__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_long_to_bignum(long);
	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;


	   
		 
		BGL_DEFINE_STRING(BGl_string2201z00zz__rgc_compilez00,
		BgL_bgl_string2201za700za7za7_2215za7, "<=fx", 4);
	      BGL_DEFINE_STRING(BGl_string2203z00zz__rgc_compilez00,
		BgL_bgl_string2203za700za7za7_2216za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2205z00zz__rgc_compilez00,
		BgL_bgl_string2205za700za7za7_2217za7, "memq", 4);
	      BGL_DEFINE_STRING(BGl_string2207z00zz__rgc_compilez00,
		BgL_bgl_string2207za700za7za7_2218za7, "rgc-submatch-start*2!", 21);
	      BGL_DEFINE_STRING(BGl_string2209z00zz__rgc_compilez00,
		BgL_bgl_string2209za700za7za7_2219za7, "rgc-submatch-start2!", 20);
	      BGL_DEFINE_STRING(BGl_string2211z00zz__rgc_compilez00,
		BgL_bgl_string2211za700za7za7_2220za7, "rgc-submatch-stop2!", 19);
	      BGL_DEFINE_STRING(BGl_string2212z00zz__rgc_compilez00,
		BgL_bgl_string2212za700za7za7_2221za7, "compile-submatches", 18);
	      BGL_DEFINE_STRING(BGl_string2213z00zz__rgc_compilez00,
		BgL_bgl_string2213za700za7za7_2222za7, "Illegal char description", 24);
	      BGL_DEFINE_STRING(BGl_string2214z00zz__rgc_compilez00,
		BgL_bgl_string2214za700za7za7_2223za7, "__rgc_compile", 13);
	      BGL_DEFINE_STRING(BGl_string2144z00zz__rgc_compilez00,
		BgL_bgl_string2144za700za7za7_2224za7, "bufpos", 6);
	      BGL_DEFINE_STRING(BGl_string2146z00zz__rgc_compilez00,
		BgL_bgl_string2146za700za7za7_2225za7, "forward", 7);
	      BGL_DEFINE_STRING(BGl_string2148z00zz__rgc_compilez00,
		BgL_bgl_string2148za700za7za7_2226za7, "last-match", 10);
	      BGL_DEFINE_STRING(BGl_string2150z00zz__rgc_compilez00,
		BgL_bgl_string2150za700za7za7_2227za7, "iport", 5);
	      BGL_DEFINE_STRING(BGl_string2152z00zz__rgc_compilez00,
		BgL_bgl_string2152za700za7za7_2228za7, "new-match", 9);
	      BGL_DEFINE_STRING(BGl_string2154z00zz__rgc_compilez00,
		BgL_bgl_string2154za700za7za7_2229za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2156z00zz__rgc_compilez00,
		BgL_bgl_string2156za700za7za7_2230za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string2158z00zz__rgc_compilez00,
		BgL_bgl_string2158za700za7za7_2231za7, "=fx", 3);
	      BGL_DEFINE_STRING(BGl_string2160z00zz__rgc_compilez00,
		BgL_bgl_string2160za700za7za7_2232za7, "rgc-fill-buffer", 15);
	      BGL_DEFINE_STRING(BGl_string2163z00zz__rgc_compilez00,
		BgL_bgl_string2163za700za7za7_2233za7, "rgc-buffer-forward", 18);
	      BGL_DEFINE_STRING(BGl_string2166z00zz__rgc_compilez00,
		BgL_bgl_string2166za700za7za7_2234za7, "rgc-buffer-bufpos", 17);
	      BGL_DEFINE_STRING(BGl_string2168z00zz__rgc_compilez00,
		BgL_bgl_string2168za700za7za7_2235za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string2170z00zz__rgc_compilez00,
		BgL_bgl_string2170za700za7za7_2236za7, "rgc-buffer-get-char", 19);
	      BGL_DEFINE_STRING(BGl_string2172z00zz__rgc_compilez00,
		BgL_bgl_string2172za700za7za7_2237za7, "cur::int", 8);
	      BGL_DEFINE_STRING(BGl_string2174z00zz__rgc_compilez00,
		BgL_bgl_string2174za700za7za7_2238za7, "cur", 3);
	      BGL_DEFINE_STRING(BGl_string2176z00zz__rgc_compilez00,
		BgL_bgl_string2176za700za7za7_2239za7, "let*", 4);
	      BGL_DEFINE_STRING(BGl_string2178z00zz__rgc_compilez00,
		BgL_bgl_string2178za700za7za7_2240za7, "else", 4);
	      BGL_DEFINE_STRING(BGl_string2180z00zz__rgc_compilez00,
		BgL_bgl_string2180za700za7za7_2241za7, "case", 4);
	      BGL_DEFINE_STRING(BGl_string2183z00zz__rgc_compilez00,
		BgL_bgl_string2183za700za7za7_2242za7, "+fx", 3);
	      BGL_DEFINE_STRING(BGl_string2185z00zz__rgc_compilez00,
		BgL_bgl_string2185za700za7za7_2243za7, "cond", 4);
	      BGL_DEFINE_STRING(BGl_string2187z00zz__rgc_compilez00,
		BgL_bgl_string2187za700za7za7_2244za7, "not", 3);
	      BGL_DEFINE_STRING(BGl_string2189z00zz__rgc_compilez00,
		BgL_bgl_string2189za700za7za7_2245za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string2191z00zz__rgc_compilez00,
		BgL_bgl_string2191za700za7za7_2246za7, ">=fx", 4);
	      BGL_DEFINE_STRING(BGl_string2193z00zz__rgc_compilez00,
		BgL_bgl_string2193za700za7za7_2247za7, "<fx", 3);
	      BGL_DEFINE_STRING(BGl_string2195z00zz__rgc_compilez00,
		BgL_bgl_string2195za700za7za7_2248za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string2197z00zz__rgc_compilez00,
		BgL_bgl_string2197za700za7za7_2249za7, "rgc-stop-match!", 15);
	      BGL_DEFINE_STRING(BGl_string2199z00zz__rgc_compilez00,
		BgL_bgl_string2199za700za7za7_2250za7, "begin", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_compilezd2dfazd2envz00zz__rgc_compilez00,
		BgL_bgl_za762compileza7d2dfa2251z00,
		BGl_z62compilezd2dfazb0zz__rgc_compilez00, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_compilezd2dfazd2envz00zz__rgc_compilez00,
			BgL_bgl_za762compileza7d2dfa2251z00);
		BGL_BIND_STRING(BGl_string2199z00zz__rgc_compilez00,
			BgL_bgl_string2199za700za7za7_2250za7);
		BGL_BIND_STRING(BGl_string2197z00zz__rgc_compilez00,
			BgL_bgl_string2197za700za7za7_2249za7);
		BGL_BIND_STRING(BGl_string2195z00zz__rgc_compilez00,
			BgL_bgl_string2195za700za7za7_2248za7);
		BGL_BIND_STRING(BGl_string2193z00zz__rgc_compilez00,
			BgL_bgl_string2193za700za7za7_2247za7);
		BGL_BIND_STRING(BGl_string2191z00zz__rgc_compilez00,
			BgL_bgl_string2191za700za7za7_2246za7);
		BGL_BIND_STRING(BGl_string2189z00zz__rgc_compilez00,
			BgL_bgl_string2189za700za7za7_2245za7);
		BGL_BIND_STRING(BGl_string2187z00zz__rgc_compilez00,
			BgL_bgl_string2187za700za7za7_2244za7);
		BGL_BIND_STRING(BGl_string2185z00zz__rgc_compilez00,
			BgL_bgl_string2185za700za7za7_2243za7);
		BGL_BIND_STRING(BGl_string2183z00zz__rgc_compilez00,
			BgL_bgl_string2183za700za7za7_2242za7);
		BGL_BIND_STRING(BGl_string2180z00zz__rgc_compilez00,
			BgL_bgl_string2180za700za7za7_2241za7);
		BGL_BIND_STRING(BGl_string2178z00zz__rgc_compilez00,
			BgL_bgl_string2178za700za7za7_2240za7);
		BGL_BIND_STRING(BGl_string2176z00zz__rgc_compilez00,
			BgL_bgl_string2176za700za7za7_2239za7);
		BGL_BIND_STRING(BGl_string2174z00zz__rgc_compilez00,
			BgL_bgl_string2174za700za7za7_2238za7);
		BGL_BIND_STRING(BGl_string2172z00zz__rgc_compilez00,
			BgL_bgl_string2172za700za7za7_2237za7);
		BGL_BIND_STRING(BGl_string2170z00zz__rgc_compilez00,
			BgL_bgl_string2170za700za7za7_2236za7);
		BGL_BIND_STRING(BGl_string2168z00zz__rgc_compilez00,
			BgL_bgl_string2168za700za7za7_2235za7);
		BGL_BIND_STRING(BGl_string2166z00zz__rgc_compilez00,
			BgL_bgl_string2166za700za7za7_2234za7);
		BGL_BIND_STRING(BGl_string2163z00zz__rgc_compilez00,
			BgL_bgl_string2163za700za7za7_2233za7);
		BGL_BIND_STRING(BGl_string2160z00zz__rgc_compilez00,
			BgL_bgl_string2160za700za7za7_2232za7);
		BGL_BIND_STRING(BGl_string2158z00zz__rgc_compilez00,
			BgL_bgl_string2158za700za7za7_2231za7);
		BGL_BIND_STRING(BGl_string2156z00zz__rgc_compilez00,
			BgL_bgl_string2156za700za7za7_2230za7);
		BGL_BIND_STRING(BGl_string2154z00zz__rgc_compilez00,
			BgL_bgl_string2154za700za7za7_2229za7);
		BGL_BIND_STRING(BGl_string2152z00zz__rgc_compilez00,
			BgL_bgl_string2152za700za7za7_2228za7);
		BGL_BIND_STRING(BGl_string2150z00zz__rgc_compilez00,
			BgL_bgl_string2150za700za7za7_2227za7);
		BGL_BIND_STRING(BGl_string2148z00zz__rgc_compilez00,
			BgL_bgl_string2148za700za7za7_2226za7);
		BGL_BIND_STRING(BGl_string2146z00zz__rgc_compilez00,
			BgL_bgl_string2146za700za7za7_2225za7);
		BGL_BIND_STRING(BGl_string2144z00zz__rgc_compilez00,
			BgL_bgl_string2144za700za7za7_2224za7);
		BGL_BIND_STRING(BGl_string2214z00zz__rgc_compilez00,
			BgL_bgl_string2214za700za7za7_2223za7);
		BGL_BIND_STRING(BGl_string2213z00zz__rgc_compilez00,
			BgL_bgl_string2213za700za7za7_2222za7);
		BGL_BIND_STRING(BGl_string2212z00zz__rgc_compilez00,
			BgL_bgl_string2212za700za7za7_2221za7);
		BGL_BIND_STRING(BGl_string2211z00zz__rgc_compilez00,
			BgL_bgl_string2211za700za7za7_2220za7);
		BGL_BIND_STRING(BGl_string2209z00zz__rgc_compilez00,
			BgL_bgl_string2209za700za7za7_2219za7);
		BGL_BIND_STRING(BGl_string2207z00zz__rgc_compilez00,
			BgL_bgl_string2207za700za7za7_2218za7);
		BGL_BIND_STRING(BGl_string2205z00zz__rgc_compilez00,
			BgL_bgl_string2205za700za7za7_2217za7);
		BGL_BIND_STRING(BGl_string2203z00zz__rgc_compilez00,
			BgL_bgl_string2203za700za7za7_2216za7);
		BGL_BIND_STRING(BGl_string2201z00zz__rgc_compilez00,
			BgL_bgl_string2201za700za7za7_2215za7);
	}

/* 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_symbol2200z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2202z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2204z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2206z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2208z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2210z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2143z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2145z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2147z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2149z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2151z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2153z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2155z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2157z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2159z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2162z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2165z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2167z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2169z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2171z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2173z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2175z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2177z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2179z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2182z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2184z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2186z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2188z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2190z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2192z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2194z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_list2161z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2196z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_list2164z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_symbol2198z00zz__rgc_compilez00));
		ADD_ROOT((void *) (&BGl_list2181z00zz__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_3206, char *BgL_fromz00_3207)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__rgc_compilez00))
				{
					BGl_requirezd2initializa7ationz75zz__rgc_compilez00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					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_symbol2143z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2144z00zz__rgc_compilez00);
			BGl_symbol2145z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2146z00zz__rgc_compilez00);
			BGl_symbol2147z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2148z00zz__rgc_compilez00);
			BGl_symbol2149z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2150z00zz__rgc_compilez00);
			BGl_symbol2151z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2152z00zz__rgc_compilez00);
			BGl_symbol2153z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2154z00zz__rgc_compilez00);
			BGl_symbol2155z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2156z00zz__rgc_compilez00);
			BGl_symbol2157z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2158z00zz__rgc_compilez00);
			BGl_symbol2159z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2160z00zz__rgc_compilez00);
			BGl_symbol2162z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2163z00zz__rgc_compilez00);
			BGl_list2161z00zz__rgc_compilez00 =
				MAKE_YOUNG_PAIR(BGl_symbol2162z00zz__rgc_compilez00,
				MAKE_YOUNG_PAIR(BGl_symbol2149z00zz__rgc_compilez00, BNIL));
			BGl_symbol2165z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2166z00zz__rgc_compilez00);
			BGl_list2164z00zz__rgc_compilez00 =
				MAKE_YOUNG_PAIR(BGl_symbol2165z00zz__rgc_compilez00,
				MAKE_YOUNG_PAIR(BGl_symbol2149z00zz__rgc_compilez00, BNIL));
			BGl_symbol2167z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2168z00zz__rgc_compilez00);
			BGl_symbol2169z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2170z00zz__rgc_compilez00);
			BGl_symbol2171z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2172z00zz__rgc_compilez00);
			BGl_symbol2173z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2174z00zz__rgc_compilez00);
			BGl_symbol2175z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2176z00zz__rgc_compilez00);
			BGl_symbol2177z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2178z00zz__rgc_compilez00);
			BGl_symbol2179z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2180z00zz__rgc_compilez00);
			BGl_symbol2182z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2183z00zz__rgc_compilez00);
			BGl_list2181z00zz__rgc_compilez00 =
				MAKE_YOUNG_PAIR(BGl_symbol2182z00zz__rgc_compilez00,
				MAKE_YOUNG_PAIR(BINT(1L),
					MAKE_YOUNG_PAIR(BGl_symbol2145z00zz__rgc_compilez00, BNIL)));
			BGl_symbol2184z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2185z00zz__rgc_compilez00);
			BGl_symbol2186z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2187z00zz__rgc_compilez00);
			BGl_symbol2188z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2189z00zz__rgc_compilez00);
			BGl_symbol2190z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2191z00zz__rgc_compilez00);
			BGl_symbol2192z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2193z00zz__rgc_compilez00);
			BGl_symbol2194z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2195z00zz__rgc_compilez00);
			BGl_symbol2196z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2197z00zz__rgc_compilez00);
			BGl_symbol2198z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2199z00zz__rgc_compilez00);
			BGl_symbol2200z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2201z00zz__rgc_compilez00);
			BGl_symbol2202z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2203z00zz__rgc_compilez00);
			BGl_symbol2204z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2205z00zz__rgc_compilez00);
			BGl_symbol2206z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2207z00zz__rgc_compilez00);
			BGl_symbol2208z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2209z00zz__rgc_compilez00);
			return (BGl_symbol2210z00zz__rgc_compilez00 =
				bstring_to_symbol(BGl_string2211z00zz__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_1228;

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

						BgL_head1100z00_1231 = MAKE_YOUNG_PAIR(BNIL, BNIL);
						{
							obj_t BgL_l1098z00_2381;
							obj_t BgL_tail1101z00_2382;

							BgL_l1098z00_2381 = BgL_statesz00_4;
							BgL_tail1101z00_2382 = BgL_head1100z00_1231;
						BgL_zc3z04anonymousza31251ze3z87_2380:
							if (NULLP(BgL_l1098z00_2381))
								{	/* Rgc/rgccompile.scm 61 */
									BgL_resz00_1228 = CDR(BgL_head1100z00_1231);
								}
							else
								{	/* Rgc/rgccompile.scm 61 */
									obj_t BgL_newtail1102z00_2389;

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

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

											BgL_statez00_2391 = CAR(((obj_t) BgL_l1098z00_2381));
											BgL_arg1254z00_2390 =
												BGl_compilezd2statezd2zz__rgc_compilez00
												(BgL_submatchesz00_3, BgL_statez00_2391,
												BgL_positionsz00_5);
										}
										BgL_newtail1102z00_2389 =
											MAKE_YOUNG_PAIR(BgL_arg1254z00_2390, BNIL);
									}
									SET_CDR(BgL_tail1101z00_2382, BgL_newtail1102z00_2389);
									{	/* Rgc/rgccompile.scm 61 */
										obj_t BgL_arg1253z00_2392;

										BgL_arg1253z00_2392 = CDR(((obj_t) BgL_l1098z00_2381));
										{
											obj_t BgL_tail1101z00_3276;
											obj_t BgL_l1098z00_3275;

											BgL_l1098z00_3275 = BgL_arg1253z00_2392;
											BgL_tail1101z00_3276 = BgL_newtail1102z00_2389;
											BgL_tail1101z00_2382 = BgL_tail1101z00_3276;
											BgL_l1098z00_2381 = BgL_l1098z00_3275;
											goto BgL_zc3z04anonymousza31251ze3z87_2380;
										}
									}
								}
						}
					}
				BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = BUNSPEC;
				return BgL_resz00_1228;
			}
		}

	}



/* &compile-dfa */
	obj_t BGl_z62compilezd2dfazb0zz__rgc_compilez00(obj_t BgL_envz00_3069,
		obj_t BgL_submatchesz00_3070, obj_t BgL_statesz00_3071,
		obj_t BgL_positionsz00_3072)
	{
		{	/* Rgc/rgccompile.scm 59 */
			return
				BGl_compilezd2dfazd2zz__rgc_compilez00(BgL_submatchesz00_3070,
				BgL_statesz00_3071, BgL_positionsz00_3072);
		}

	}



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

				{	/* Rgc/rgccompile.scm 97 */
					obj_t BgL_arg1259z00_1243;
					obj_t BgL_arg1261z00_1244;

					{	/* Rgc/rgccompile.scm 97 */
						obj_t BgL_arg1262z00_1245;
						obj_t BgL_arg1263z00_1246;

						BgL_arg1262z00_1245 =
							BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_7);
						{	/* Rgc/rgccompile.scm 97 */
							obj_t BgL_arg1265z00_1247;

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

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

									BgL_arg1267z00_1249 =
										MAKE_YOUNG_PAIR(BGl_symbol2143z00zz__rgc_compilez00, BNIL);
									BgL_arg1266z00_1248 =
										MAKE_YOUNG_PAIR(BGl_symbol2145z00zz__rgc_compilez00,
										BgL_arg1267z00_1249);
								}
								BgL_arg1265z00_1247 =
									MAKE_YOUNG_PAIR(BGl_symbol2147z00zz__rgc_compilez00,
									BgL_arg1266z00_1248);
							}
							BgL_arg1263z00_1246 =
								MAKE_YOUNG_PAIR(BGl_symbol2149z00zz__rgc_compilez00,
								BgL_arg1265z00_1247);
						}
						BgL_arg1259z00_1243 =
							MAKE_YOUNG_PAIR(BgL_arg1262z00_1245, BgL_arg1263z00_1246);
					}
					{	/* Rgc/rgccompile.scm 98 */
						obj_t BgL_arg1269z00_1250;

						{	/* Rgc/rgccompile.scm 98 */
							obj_t BgL_transitionsz00_1251;
							obj_t BgL_positionsz00_1252;

							BgL_transitionsz00_1251 =
								BGl_statezd2transitionszd2zz__rgc_dfaz00(BgL_statez00_7);
							BgL_positionsz00_1252 =
								BGl_statezd2positionszd2zz__rgc_dfaz00(BgL_statez00_7);
							if (NULLP(BgL_transitionsz00_1251))
								{	/* Rgc/rgccompile.scm 100 */
									BgL_arg1269z00_1250 = BGl_symbol2147z00zz__rgc_compilez00;
								}
							else
								{	/* Rgc/rgccompile.scm 102 */
									obj_t BgL_specialzd2transzd2_1254;

									BgL_specialzd2transzd2_1254 =
										BGl_splitzd2transitionszd2zz__rgc_compilez00
										(BgL_transitionsz00_1251);
									{	/* Rgc/rgccompile.scm 103 */
										obj_t BgL_regularzd2transzd2_1255;

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

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

												BgL_tmpz00_3289 = (int) (1L);
												BgL_tmpz00_2397 = BGL_MVALUES_VAL(BgL_tmpz00_3289);
											}
											{	/* Rgc/rgccompile.scm 104 */
												int BgL_tmpz00_3292;

												BgL_tmpz00_3292 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3292, BUNSPEC);
											}
											BgL_regularzd2transzd2_1255 = BgL_tmpz00_2397;
										}
										{	/* Rgc/rgccompile.scm 104 */
											obj_t BgL_matchzd2bodyzd2_1256;

											BgL_matchzd2bodyzd2_1256 =
												BGl_compilezd2matchzd2zz__rgc_compilez00
												(BgL_specialzd2transzd2_1254);
											if (CBOOL(BgL_matchzd2bodyzd2_1256))
												{	/* Rgc/rgccompile.scm 106 */
													obj_t BgL_arg1271z00_1257;

													{	/* Rgc/rgccompile.scm 106 */
														obj_t BgL_arg1274z00_1258;
														obj_t BgL_arg1276z00_1259;

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

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

																BgL_arg1279z00_1261 =
																	MAKE_YOUNG_PAIR(BgL_matchzd2bodyzd2_1256,
																	BNIL);
																BgL_arg1278z00_1260 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2151z00zz__rgc_compilez00,
																	BgL_arg1279z00_1261);
															}
															BgL_arg1274z00_1258 =
																MAKE_YOUNG_PAIR(BgL_arg1278z00_1260, BNIL);
														}
														BgL_arg1276z00_1259 =
															MAKE_YOUNG_PAIR
															(BGl_compilezd2regularzd2zz__rgc_compilez00
															(BgL_submatchesz00_6, BgL_statez00_7,
																BgL_regularzd2transzd2_1255,
																BGl_symbol2151z00zz__rgc_compilez00,
																BgL_positionszd2tozd2charz00_8), BNIL);
														BgL_arg1271z00_1257 =
															MAKE_YOUNG_PAIR(BgL_arg1274z00_1258,
															BgL_arg1276z00_1259);
													}
													BgL_arg1269z00_1250 =
														MAKE_YOUNG_PAIR(BGl_symbol2153z00zz__rgc_compilez00,
														BgL_arg1271z00_1257);
												}
											else
												{	/* Rgc/rgccompile.scm 105 */
													BgL_arg1269z00_1250 =
														BGl_compilezd2regularzd2zz__rgc_compilez00
														(BgL_submatchesz00_6, BgL_statez00_7,
														BgL_regularzd2transzd2_1255,
														BGl_symbol2147z00zz__rgc_compilez00,
														BgL_positionszd2tozd2charz00_8);
												}
										}
									}
								}
						}
						BgL_arg1261z00_1244 = MAKE_YOUNG_PAIR(BgL_arg1269z00_1250, BNIL);
					}
					BgL_arg1258z00_1242 =
						MAKE_YOUNG_PAIR(BgL_arg1259z00_1243, BgL_arg1261z00_1244);
				}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2155z00zz__rgc_compilez00,
					BgL_arg1258z00_1242);
			}
		}

	}



/* split-transitions */
	obj_t BGl_splitzd2transitionszd2zz__rgc_compilez00(obj_t BgL_transitionsz00_9)
	{
		{	/* Rgc/rgccompile.scm 120 */
			{
				obj_t BgL_transitionsz00_1266;
				obj_t BgL_specialsz00_1267;
				obj_t BgL_regularsz00_1268;

				BgL_transitionsz00_1266 = BgL_transitionsz00_9;
				BgL_specialsz00_1267 = BNIL;
				BgL_regularsz00_1268 = BNIL;
			BgL_zc3z04anonymousza31281ze3z87_1269:
				if (NULLP(BgL_transitionsz00_1266))
					{	/* Rgc/rgccompile.scm 125 */
						{	/* Rgc/rgccompile.scm 126 */
							int BgL_tmpz00_3311;

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

							BgL_tmpz00_3314 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_3314, BgL_regularsz00_1268);
						}
						return BgL_specialsz00_1267;
					}
				else
					{	/* Rgc/rgccompile.scm 127 */
						bool_t BgL_test2259z00_3317;

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

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

								BgL_pairz00_2399 = CAR(((obj_t) BgL_transitionsz00_1266));
								BgL_arg1298z00_1282 = CAR(BgL_pairz00_2399);
							}
							BgL_test2259z00_3317 =
								BGl_specialzd2charzf3z21zz__rgc_rulesz00(CINT
								(BgL_arg1298z00_1282));
						}
						if (BgL_test2259z00_3317)
							{	/* Rgc/rgccompile.scm 128 */
								obj_t BgL_arg1287z00_1276;
								obj_t BgL_arg1291z00_1277;

								BgL_arg1287z00_1276 = CDR(((obj_t) BgL_transitionsz00_1266));
								{	/* Rgc/rgccompile.scm 129 */
									obj_t BgL_arg1292z00_1278;

									BgL_arg1292z00_1278 = CAR(((obj_t) BgL_transitionsz00_1266));
									BgL_arg1291z00_1277 =
										MAKE_YOUNG_PAIR(BgL_arg1292z00_1278, BgL_specialsz00_1267);
								}
								{
									obj_t BgL_specialsz00_3329;
									obj_t BgL_transitionsz00_3328;

									BgL_transitionsz00_3328 = BgL_arg1287z00_1276;
									BgL_specialsz00_3329 = BgL_arg1291z00_1277;
									BgL_specialsz00_1267 = BgL_specialsz00_3329;
									BgL_transitionsz00_1266 = BgL_transitionsz00_3328;
									goto BgL_zc3z04anonymousza31281ze3z87_1269;
								}
							}
						else
							{	/* Rgc/rgccompile.scm 132 */
								obj_t BgL_arg1293z00_1279;
								obj_t BgL_arg1295z00_1280;

								BgL_arg1293z00_1279 = CDR(((obj_t) BgL_transitionsz00_1266));
								{	/* Rgc/rgccompile.scm 134 */
									obj_t BgL_arg1296z00_1281;

									BgL_arg1296z00_1281 = CAR(((obj_t) BgL_transitionsz00_1266));
									BgL_arg1295z00_1280 =
										MAKE_YOUNG_PAIR(BgL_arg1296z00_1281, BgL_regularsz00_1268);
								}
								{
									obj_t BgL_regularsz00_3336;
									obj_t BgL_transitionsz00_3335;

									BgL_transitionsz00_3335 = BgL_arg1293z00_1279;
									BgL_regularsz00_3336 = BgL_arg1295z00_1280;
									BgL_regularsz00_1268 = BgL_regularsz00_3336;
									BgL_transitionsz00_1266 = BgL_transitionsz00_3335;
									goto BgL_zc3z04anonymousza31281ze3z87_1269;
								}
							}
					}
			}
		}

	}



/* 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_1285;
				obj_t BgL_positionsz00_1286;

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

						{	/* Rgc/rgccompile.scm 146 */
							obj_t BgL_arg1329z00_1289;
							obj_t BgL_arg1330z00_1290;

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

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

									BgL_arg1332z00_1292 =
										MAKE_YOUNG_PAIR(BGl_symbol2143z00zz__rgc_compilez00, BNIL);
									BgL_arg1331z00_1291 =
										MAKE_YOUNG_PAIR(BGl_symbol2145z00zz__rgc_compilez00,
										BgL_arg1332z00_1292);
								}
								BgL_arg1329z00_1289 =
									MAKE_YOUNG_PAIR(BGl_symbol2157z00zz__rgc_compilez00,
									BgL_arg1331z00_1291);
							}
							{	/* Rgc/rgccompile.scm 148 */
								obj_t BgL_arg1333z00_1293;
								obj_t BgL_arg1334z00_1294;

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

									{	/* Rgc/rgccompile.scm 148 */
										obj_t BgL_arg1336z00_1296;
										obj_t BgL_arg1337z00_1297;

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

											BgL_arg1338z00_1298 =
												MAKE_YOUNG_PAIR(BGl_symbol2149z00zz__rgc_compilez00,
												BNIL);
											BgL_arg1336z00_1296 =
												MAKE_YOUNG_PAIR(BGl_symbol2159z00zz__rgc_compilez00,
												BgL_arg1338z00_1298);
										}
										{	/* Rgc/rgccompile.scm 149 */
											obj_t BgL_arg1339z00_1299;
											obj_t BgL_arg1341z00_1300;

											{	/* Rgc/rgccompile.scm 149 */
												obj_t BgL_matchz00_2404;
												obj_t BgL_forwardz00_2405;
												obj_t BgL_bufposz00_2406;

												BgL_matchz00_2404 = BGl_symbol2147z00zz__rgc_compilez00;
												BgL_forwardz00_2405 = BGl_list2161z00zz__rgc_compilez00;
												BgL_bufposz00_2406 = BGl_list2164z00zz__rgc_compilez00;
												{	/* Rgc/rgccompile.scm 167 */
													obj_t BgL_arg1361z00_2407;
													obj_t BgL_arg1362z00_2408;

													BgL_arg1361z00_2407 =
														BGl_statezd2namezd2zz__rgc_dfaz00
														(BgL_currentzd2statezd2_11);
													{	/* Rgc/rgccompile.scm 167 */
														obj_t BgL_arg1363z00_2409;

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

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

																BgL_arg1365z00_2411 =
																	MAKE_YOUNG_PAIR(BgL_bufposz00_2406, BNIL);
																BgL_arg1364z00_2410 =
																	MAKE_YOUNG_PAIR(BgL_forwardz00_2405,
																	BgL_arg1365z00_2411);
															}
															BgL_arg1363z00_2409 =
																MAKE_YOUNG_PAIR(BgL_matchz00_2404,
																BgL_arg1364z00_2410);
														}
														BgL_arg1362z00_2408 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2149z00zz__rgc_compilez00,
															BgL_arg1363z00_2409);
													}
													BgL_arg1339z00_1299 =
														MAKE_YOUNG_PAIR(BgL_arg1361z00_2407,
														BgL_arg1362z00_2408);
												}
											}
											BgL_arg1341z00_1300 =
												MAKE_YOUNG_PAIR(BgL_lastzd2matchzd2_13, BNIL);
											BgL_arg1337z00_1297 =
												MAKE_YOUNG_PAIR(BgL_arg1339z00_1299,
												BgL_arg1341z00_1300);
										}
										BgL_arg1335z00_1295 =
											MAKE_YOUNG_PAIR(BgL_arg1336z00_1296, BgL_arg1337z00_1297);
									}
									BgL_arg1333z00_1293 =
										MAKE_YOUNG_PAIR(BGl_symbol2167z00zz__rgc_compilez00,
										BgL_arg1335z00_1295);
								}
								{	/* Rgc/rgccompile.scm 155 */
									obj_t BgL_arg1342z00_1301;

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

										{	/* Rgc/rgccompile.scm 155 */
											obj_t BgL_arg1345z00_1303;
											obj_t BgL_arg1346z00_1304;

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

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

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

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

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

																BgL_arg1353z00_1309 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2145z00zz__rgc_compilez00, BNIL);
																BgL_arg1352z00_1308 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2149z00zz__rgc_compilez00,
																	BgL_arg1353z00_1309);
															}
															BgL_arg1351z00_1307 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2169z00zz__rgc_compilez00,
																BgL_arg1352z00_1308);
														}
														BgL_arg1349z00_1306 =
															MAKE_YOUNG_PAIR(BgL_arg1351z00_1307, BNIL);
													}
													BgL_arg1347z00_1305 =
														MAKE_YOUNG_PAIR(BGl_symbol2171z00zz__rgc_compilez00,
														BgL_arg1349z00_1306);
												}
												BgL_arg1345z00_1303 =
													MAKE_YOUNG_PAIR(BgL_arg1347z00_1305, BNIL);
											}
											{	/* Rgc/rgccompile.scm 156 */
												obj_t BgL_arg1355z00_1310;
												obj_t BgL_arg1356z00_1311;

												BgL_arg1355z00_1310 =
													BGl_compilezd2submatcheszd2zz__rgc_compilez00
													(BGl_symbol2173z00zz__rgc_compilez00,
													BgL_submatchesz00_10, BgL_positionsz00_1286,
													BgL_pzd2ze3cz31_14);
												{	/* Rgc/rgccompile.scm 157 */
													obj_t BgL_arg1357z00_1312;

													if (
														(bgl_list_length(BgL_statezd2transzd2_1285) <= 12L))
														{	/* Rgc/rgccompile.scm 157 */
															BgL_arg1357z00_1312 =
																BGl_compilezd2condzd2regularz00zz__rgc_compilez00
																(BgL_currentzd2statezd2_11,
																BgL_statezd2transzd2_1285,
																BgL_lastzd2matchzd2_13);
														}
													else
														{	/* Rgc/rgccompile.scm 157 */
															BgL_arg1357z00_1312 =
																BGl_compilezd2casezd2regularz00zz__rgc_compilez00
																(BgL_currentzd2statezd2_11,
																BgL_statezd2transzd2_1285,
																BgL_lastzd2matchzd2_13);
														}
													BgL_arg1356z00_1311 =
														MAKE_YOUNG_PAIR(BgL_arg1357z00_1312, BNIL);
												}
												BgL_arg1346z00_1304 =
													BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1355z00_1310, BgL_arg1356z00_1311);
											}
											BgL_arg1343z00_1302 =
												MAKE_YOUNG_PAIR(BgL_arg1345z00_1303,
												BgL_arg1346z00_1304);
										}
										BgL_arg1342z00_1301 =
											MAKE_YOUNG_PAIR(BGl_symbol2175z00zz__rgc_compilez00,
											BgL_arg1343z00_1302);
									}
									BgL_arg1334z00_1294 =
										MAKE_YOUNG_PAIR(BgL_arg1342z00_1301, BNIL);
								}
								BgL_arg1330z00_1290 =
									MAKE_YOUNG_PAIR(BgL_arg1333z00_1293, BgL_arg1334z00_1294);
							}
							BgL_arg1322z00_1288 =
								MAKE_YOUNG_PAIR(BgL_arg1329z00_1289, BgL_arg1330z00_1290);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2167z00zz__rgc_compilez00,
							BgL_arg1322z00_1288);
					}
			}
		}

	}



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

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

					{	/* Rgc/rgccompile.scm 182 */
						obj_t BgL_arg1368z00_1324;
						obj_t BgL_arg1369z00_1325;

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

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

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

										BgL_arg1378z00_1341 =
											CAR(((obj_t) BgL_statezd2transzd2_20));
										BgL_arg1377z00_1340 =
											BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00
											(BgL_matchz00_21, BgL_arg1378z00_1341);
									}
									BgL_head1107z00_1328 =
										MAKE_YOUNG_PAIR(BgL_arg1377z00_1340, BNIL);
								}
								{	/* Rgc/rgccompile.scm 182 */
									obj_t BgL_g1110z00_1329;

									BgL_g1110z00_1329 = CDR(((obj_t) BgL_statezd2transzd2_20));
									{
										obj_t BgL_l1105z00_2446;
										obj_t BgL_tail1108z00_2447;

										BgL_l1105z00_2446 = BgL_g1110z00_1329;
										BgL_tail1108z00_2447 = BgL_head1107z00_1328;
									BgL_zc3z04anonymousza31371ze3z87_2445:
										if (NULLP(BgL_l1105z00_2446))
											{	/* Rgc/rgccompile.scm 182 */
												BgL_arg1368z00_1324 = BgL_head1107z00_1328;
											}
										else
											{	/* Rgc/rgccompile.scm 182 */
												obj_t BgL_newtail1109z00_2454;

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

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

														BgL_arg1376z00_2456 =
															CAR(((obj_t) BgL_l1105z00_2446));
														BgL_arg1374z00_2455 =
															BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00
															(BgL_matchz00_21, BgL_arg1376z00_2456);
													}
													BgL_newtail1109z00_2454 =
														MAKE_YOUNG_PAIR(BgL_arg1374z00_2455, BNIL);
												}
												SET_CDR(BgL_tail1108z00_2447, BgL_newtail1109z00_2454);
												{	/* Rgc/rgccompile.scm 182 */
													obj_t BgL_arg1373z00_2457;

													BgL_arg1373z00_2457 =
														CDR(((obj_t) BgL_l1105z00_2446));
													{
														obj_t BgL_tail1108z00_3394;
														obj_t BgL_l1105z00_3393;

														BgL_l1105z00_3393 = BgL_arg1373z00_2457;
														BgL_tail1108z00_3394 = BgL_newtail1109z00_2454;
														BgL_tail1108z00_2447 = BgL_tail1108z00_3394;
														BgL_l1105z00_2446 = BgL_l1105z00_3393;
														goto BgL_zc3z04anonymousza31371ze3z87_2445;
													}
												}
											}
									}
								}
							}
						{	/* Rgc/rgccompile.scm 183 */
							obj_t BgL_arg1379z00_1342;

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

								BgL_arg1380z00_1343 = MAKE_YOUNG_PAIR(BgL_matchz00_21, BNIL);
								BgL_arg1379z00_1342 =
									MAKE_YOUNG_PAIR(BGl_symbol2177z00zz__rgc_compilez00,
									BgL_arg1380z00_1343);
							}
							BgL_arg1369z00_1325 = MAKE_YOUNG_PAIR(BgL_arg1379z00_1342, BNIL);
						}
						BgL_arg1367z00_1323 =
							BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
							(BgL_arg1368z00_1324, BgL_arg1369z00_1325);
					}
					BgL_arg1366z00_1322 =
						MAKE_YOUNG_PAIR(BGl_symbol2173z00zz__rgc_compilez00,
						BgL_arg1367z00_1323);
				}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2179z00zz__rgc_compilez00,
					BgL_arg1366z00_1322);
			}
		}

	}



/* compile-case-transition~0 */
	obj_t BGl_compilezd2casezd2transitionze70ze7zz__rgc_compilez00(obj_t
		BgL_matchz00_3079, obj_t BgL_statezd2transzd2_1344)
	{
		{	/* Rgc/rgccompile.scm 179 */
			{	/* Rgc/rgccompile.scm 175 */
				obj_t BgL_setz00_1346;
				obj_t BgL_statez00_1347;

				BgL_setz00_1346 = CDR(((obj_t) BgL_statezd2transzd2_1344));
				BgL_statez00_1347 = CAR(((obj_t) BgL_statezd2transzd2_1344));
				{	/* Rgc/rgccompile.scm 177 */
					obj_t BgL_casezd2testzd2_1348;

					BgL_casezd2testzd2_1348 =
						BGl_rgcsetzd2ze3listz31zz__rgc_setz00(BgL_setz00_1346);
					{	/* Rgc/rgccompile.scm 178 */
						obj_t BgL_arg1382z00_1349;

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

							{	/* Rgc/rgccompile.scm 178 */
								obj_t BgL_forwardz00_2420;
								obj_t BgL_bufposz00_2421;

								BgL_forwardz00_2420 = BGl_list2181z00zz__rgc_compilez00;
								BgL_bufposz00_2421 = BGl_symbol2143z00zz__rgc_compilez00;
								{	/* Rgc/rgccompile.scm 167 */
									obj_t BgL_arg1361z00_2422;
									obj_t BgL_arg1362z00_2423;

									BgL_arg1361z00_2422 =
										BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_1347);
									{	/* Rgc/rgccompile.scm 167 */
										obj_t BgL_arg1363z00_2424;

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

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

												BgL_arg1365z00_2426 =
													MAKE_YOUNG_PAIR(BgL_bufposz00_2421, BNIL);
												BgL_arg1364z00_2425 =
													MAKE_YOUNG_PAIR(BgL_forwardz00_2420,
													BgL_arg1365z00_2426);
											}
											BgL_arg1363z00_2424 =
												MAKE_YOUNG_PAIR(BgL_matchz00_3079, BgL_arg1364z00_2425);
										}
										BgL_arg1362z00_2423 =
											MAKE_YOUNG_PAIR(BGl_symbol2149z00zz__rgc_compilez00,
											BgL_arg1363z00_2424);
									}
									BgL_arg1383z00_1350 =
										MAKE_YOUNG_PAIR(BgL_arg1361z00_2422, BgL_arg1362z00_2423);
								}
							}
							BgL_arg1382z00_1349 = MAKE_YOUNG_PAIR(BgL_arg1383z00_1350, BNIL);
						}
						return
							MAKE_YOUNG_PAIR(BgL_casezd2testzd2_1348, BgL_arg1382z00_1349);
					}
				}
			}
		}

	}



/* 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_1384;
				long BgL_prevzd2testzd2lenz00_1385;

				{
					obj_t BgL_transz00_1355;
					obj_t BgL_testsz00_1356;
					long BgL_costz00_1357;
					long BgL_prevzd2lenzd2_1358;
					bool_t BgL_elsepz00_1359;

					BgL_transz00_1355 = BgL_statezd2transzd2_23;
					BgL_testsz00_1356 = BNIL;
					BgL_costz00_1357 = 0L;
					BgL_prevzd2lenzd2_1358 = 0L;
					BgL_elsepz00_1359 = ((bool_t) 0);
				BgL_zc3z04anonymousza31384ze3z87_1360:
					{	/* Rgc/rgccompile.scm 206 */
						bool_t BgL_test2264z00_3414;

						if (NULLP(BgL_transz00_1355))
							{	/* Rgc/rgccompile.scm 206 */
								BgL_test2264z00_3414 = ((bool_t) 1);
							}
						else
							{	/* Rgc/rgccompile.scm 206 */
								BgL_test2264z00_3414 = BgL_elsepz00_1359;
							}
						if (BgL_test2264z00_3414)
							{	/* Rgc/rgccompile.scm 206 */
								if (
									(BgL_costz00_1357 >
										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_arg1388z00_1364;

										{	/* Rgc/rgccompile.scm 211 */
											obj_t BgL_arg1389z00_1365;
											obj_t BgL_arg1390z00_1366;

											BgL_arg1389z00_1365 = bgl_reverse_bang(BgL_testsz00_1356);
											if (BgL_elsepz00_1359)
												{	/* Rgc/rgccompile.scm 212 */
													BgL_arg1390z00_1366 = BNIL;
												}
											else
												{	/* Rgc/rgccompile.scm 214 */
													obj_t BgL_arg1391z00_1367;

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

														BgL_arg1392z00_1368 =
															MAKE_YOUNG_PAIR(BgL_matchz00_24, BNIL);
														BgL_arg1391z00_1367 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2177z00zz__rgc_compilez00,
															BgL_arg1392z00_1368);
													}
													BgL_arg1390z00_1366 =
														MAKE_YOUNG_PAIR(BgL_arg1391z00_1367, BNIL);
												}
											BgL_arg1388z00_1364 =
												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1389z00_1365, BgL_arg1390z00_1366);
										}
										return
											MAKE_YOUNG_PAIR(BGl_symbol2184z00zz__rgc_compilez00,
											BgL_arg1388z00_1364);
									}
							}
						else
							{	/* Rgc/rgccompile.scm 215 */
								obj_t BgL_testz00_1369;

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

									BgL_arg1404z00_1381 = CAR(((obj_t) BgL_transz00_1355));
									BgL_statezd2transzd2_1384 = BgL_arg1404z00_1381;
									BgL_prevzd2testzd2lenz00_1385 = BgL_prevzd2lenzd2_1358;
									{	/* Rgc/rgccompile.scm 192 */
										obj_t BgL_setz00_1387;
										obj_t BgL_statez00_1388;

										BgL_setz00_1387 = CDR(((obj_t) BgL_statezd2transzd2_1384));
										BgL_statez00_1388 =
											CAR(((obj_t) BgL_statezd2transzd2_1384));
										{	/* Rgc/rgccompile.scm 194 */
											obj_t BgL_condzd2testzd2_1389;

											BgL_condzd2testzd2_1389 =
												BGl_compilezd2condzd2testz00zz__rgc_compilez00
												(BgL_setz00_1387, BGl_symbol2173z00zz__rgc_compilez00,
												BgL_prevzd2testzd2lenz00_1385);
											{	/* Rgc/rgccompile.scm 195 */
												obj_t BgL_condzd2costzd2_1390;

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

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

														BgL_tmpz00_3434 = (int) (1L);
														BgL_tmpz00_2463 = BGL_MVALUES_VAL(BgL_tmpz00_3434);
													}
													{	/* Rgc/rgccompile.scm 196 */
														int BgL_tmpz00_3437;

														BgL_tmpz00_3437 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3437, BUNSPEC);
													}
													BgL_condzd2costzd2_1390 = BgL_tmpz00_2463;
												}
												{	/* Rgc/rgccompile.scm 196 */
													obj_t BgL_val0_1111z00_1391;

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

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

															{	/* Rgc/rgccompile.scm 197 */
																obj_t BgL_forwardz00_2464;
																obj_t BgL_bufposz00_2465;

																BgL_forwardz00_2464 =
																	BGl_list2181z00zz__rgc_compilez00;
																BgL_bufposz00_2465 =
																	BGl_symbol2143z00zz__rgc_compilez00;
																{	/* Rgc/rgccompile.scm 167 */
																	obj_t BgL_arg1361z00_2466;
																	obj_t BgL_arg1362z00_2467;

																	BgL_arg1361z00_2466 =
																		BGl_statezd2namezd2zz__rgc_dfaz00
																		(BgL_statez00_1388);
																	{	/* Rgc/rgccompile.scm 167 */
																		obj_t BgL_arg1363z00_2468;

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

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

																				BgL_arg1365z00_2470 =
																					MAKE_YOUNG_PAIR(BgL_bufposz00_2465,
																					BNIL);
																				BgL_arg1364z00_2469 =
																					MAKE_YOUNG_PAIR(BgL_forwardz00_2464,
																					BgL_arg1365z00_2470);
																			}
																			BgL_arg1363z00_2468 =
																				MAKE_YOUNG_PAIR(BgL_matchz00_24,
																				BgL_arg1364z00_2469);
																		}
																		BgL_arg1362z00_2467 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2149z00zz__rgc_compilez00,
																			BgL_arg1363z00_2468);
																	}
																	BgL_arg1408z00_1394 =
																		MAKE_YOUNG_PAIR(BgL_arg1361z00_2466,
																		BgL_arg1362z00_2467);
															}}
															BgL_arg1407z00_1393 =
																MAKE_YOUNG_PAIR(BgL_arg1408z00_1394, BNIL);
														}
														BgL_val0_1111z00_1391 =
															MAKE_YOUNG_PAIR(BgL_condzd2testzd2_1389,
															BgL_arg1407z00_1393);
													}
													{	/* Rgc/rgccompile.scm 196 */
														int BgL_tmpz00_3448;

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

														BgL_tmpz00_3451 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3451,
															BgL_condzd2costzd2_1390);
													}
													BgL_testz00_1369 = BgL_val0_1111z00_1391;
								}}}}}
								{	/* Rgc/rgccompile.scm 216 */
									obj_t BgL_cz00_1370;

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

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

											BgL_tmpz00_3454 = (int) (1L);
											BgL_tmpz00_2474 = BGL_MVALUES_VAL(BgL_tmpz00_3454);
										}
										{	/* Rgc/rgccompile.scm 217 */
											int BgL_tmpz00_3457;

											BgL_tmpz00_3457 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_3457, BUNSPEC);
										}
										BgL_cz00_1370 = BgL_tmpz00_2474;
									}
									{	/* Rgc/rgccompile.scm 217 */
										obj_t BgL_arg1395z00_1371;
										obj_t BgL_arg1396z00_1372;
										long BgL_arg1397z00_1373;
										long BgL_arg1398z00_1374;
										bool_t BgL_arg1399z00_1375;

										BgL_arg1395z00_1371 = CDR(((obj_t) BgL_transz00_1355));
										BgL_arg1396z00_1372 =
											MAKE_YOUNG_PAIR(BgL_testz00_1369, BgL_testsz00_1356);
										BgL_arg1397z00_1373 =
											((long) CINT(BgL_cz00_1370) + BgL_costz00_1357);
										{	/* Rgc/rgccompile.scm 220 */
											long BgL_arg1400z00_1376;

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

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

													BgL_pairz00_2479 = CAR(((obj_t) BgL_transz00_1355));
													BgL_arg1401z00_1377 = CDR(BgL_pairz00_2479);
												}
												BgL_arg1400z00_1376 =
													BGl_rgcsetzd2lengthzd2zz__rgc_setz00
													(BgL_arg1401z00_1377);
											}
											BgL_arg1398z00_1374 =
												(BgL_prevzd2lenzd2_1358 + BgL_arg1400z00_1376);
										}
										BgL_arg1399z00_1375 =
											(CAR(BgL_testz00_1369) ==
											BGl_symbol2177z00zz__rgc_compilez00);
										{
											bool_t BgL_elsepz00_3476;
											long BgL_prevzd2lenzd2_3475;
											long BgL_costz00_3474;
											obj_t BgL_testsz00_3473;
											obj_t BgL_transz00_3472;

											BgL_transz00_3472 = BgL_arg1395z00_1371;
											BgL_testsz00_3473 = BgL_arg1396z00_1372;
											BgL_costz00_3474 = BgL_arg1397z00_1373;
											BgL_prevzd2lenzd2_3475 = BgL_arg1398z00_1374;
											BgL_elsepz00_3476 = BgL_arg1399z00_1375;
											BgL_elsepz00_1359 = BgL_elsepz00_3476;
											BgL_prevzd2lenzd2_1358 = BgL_prevzd2lenzd2_3475;
											BgL_costz00_1357 = BgL_costz00_3474;
											BgL_testsz00_1356 = BgL_testsz00_3473;
											BgL_transz00_1355 = BgL_transz00_3472;
											goto BgL_zc3z04anonymousza31384ze3z87_1360;
										}
									}
								}
							}
					}
				}
			}
		}

	}



/* 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_1400;
				long BgL_lenz00_1401;

				BgL_maxz00_1400 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
				BgL_lenz00_1401 = BGl_rgcsetzd2lengthzd2zz__rgc_setz00(BgL_setz00_25);
				{	/* Rgc/rgccompile.scm 281 */
					bool_t BgL_test2268z00_3479;

					{	/* Rgc/rgccompile.scm 281 */
						obj_t BgL_arg1420z00_1418;
						long BgL_arg1421z00_1419;

						BgL_arg1420z00_1418 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
						BgL_arg1421z00_1419 =
							(BgL_lenz00_1401 + BgL_prevzd2testzd2lenz00_27);
						BgL_test2268z00_3479 =
							((long) CINT(BgL_arg1420z00_1418) == BgL_arg1421z00_1419);
					}
					if (BgL_test2268z00_3479)
						{	/* Rgc/rgccompile.scm 285 */
							obj_t BgL_val0_1127z00_1405;

							BgL_val0_1127z00_1405 = BGl_symbol2177z00zz__rgc_compilez00;
							{	/* Rgc/rgccompile.scm 285 */
								int BgL_tmpz00_3484;

								BgL_tmpz00_3484 = (int) (2L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3484);
							}
							{	/* Rgc/rgccompile.scm 285 */
								obj_t BgL_auxz00_3489;
								int BgL_tmpz00_3487;

								BgL_auxz00_3489 = BINT(0L);
								BgL_tmpz00_3487 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_3487, BgL_auxz00_3489);
							}
							return BgL_val0_1127z00_1405;
						}
					else
						{	/* Rgc/rgccompile.scm 281 */
							if (
								(BgL_lenz00_1401 > (2L + ((long) CINT(BgL_maxz00_1400) / 2L))))
								{	/* Rgc/rgccompile.scm 288 */
									obj_t BgL_testz00_1410;

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

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

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

												BgL_tmpz00_3499 = (int) (1L);
												BgL_tmpz00_2593 = BGL_MVALUES_VAL(BgL_tmpz00_3499);
											}
											{	/* Rgc/rgccompile.scm 290 */
												int BgL_tmpz00_3502;

												BgL_tmpz00_3502 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3502, BUNSPEC);
											}
											BgL_costz00_1411 = BgL_tmpz00_2593;
										}
										{	/* Rgc/rgccompile.scm 290 */
											obj_t BgL_val0_1129z00_1412;
											long BgL_val1_1130z00_1413;

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

												BgL_arg1415z00_1414 =
													MAKE_YOUNG_PAIR(BgL_testz00_1410, BNIL);
												BgL_val0_1129z00_1412 =
													MAKE_YOUNG_PAIR(BGl_symbol2186z00zz__rgc_compilez00,
													BgL_arg1415z00_1414);
											}
											BgL_val1_1130z00_1413 =
												(1L + (long) CINT(BgL_costz00_1411));
											{	/* Rgc/rgccompile.scm 290 */
												int BgL_tmpz00_3509;

												BgL_tmpz00_3509 = (int) (2L);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3509);
											}
											{	/* Rgc/rgccompile.scm 290 */
												obj_t BgL_auxz00_3514;
												int BgL_tmpz00_3512;

												BgL_auxz00_3514 = BINT(BgL_val1_1130z00_1413);
												BgL_tmpz00_3512 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3512, BgL_auxz00_3514);
											}
											return BgL_val0_1129z00_1412;
										}
									}
								}
							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_3078, obj_t BgL_setz00_1501)
	{
		{	/* Rgc/rgccompile.scm 276 */
			{
				obj_t BgL_startz00_1442;
				obj_t BgL_stopz00_1443;
				obj_t BgL_setz00_1444;

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

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

						BgL_maxz00_2518 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
						{
							long BgL_iz00_2520;

							BgL_iz00_2520 = 1L;
						BgL_loopz00_2519:
							if ((BgL_iz00_2520 == (long) CINT(BgL_maxz00_2518)))
								{	/* Rgc/rgccompile.scm 232 */
									BgL_g1044z00_1503 = (-1L);
								}
							else
								{	/* Rgc/rgccompile.scm 232 */
									if (BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_1501,
											BgL_iz00_2520))
										{	/* Rgc/rgccompile.scm 233 */
											BgL_g1044z00_1503 = BgL_iz00_2520;
										}
									else
										{
											long BgL_iz00_3524;

											BgL_iz00_3524 = (BgL_iz00_2520 + 1L);
											BgL_iz00_2520 = BgL_iz00_3524;
											goto BgL_loopz00_2519;
										}
								}
						}
					}
					{
						obj_t BgL_startz00_2550;
						obj_t BgL_testsz00_2551;
						long BgL_costz00_2552;

						BgL_startz00_2550 = BINT(BgL_g1044z00_1503);
						BgL_testsz00_2551 = BNIL;
						BgL_costz00_2552 = 0L;
					BgL_loopz00_2549:
						if (((long) CINT(BgL_startz00_2550) == (-1L)))
							{	/* Rgc/rgccompile.scm 270 */
								obj_t BgL_val0_1125z00_2555;

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

									BgL_arg1476z00_2557 = bgl_reverse_bang(BgL_testsz00_2551);
									BgL_val0_1125z00_2555 =
										MAKE_YOUNG_PAIR(BGl_symbol2188z00zz__rgc_compilez00,
										BgL_arg1476z00_2557);
								}
								{	/* Rgc/rgccompile.scm 270 */
									int BgL_tmpz00_3531;

									BgL_tmpz00_3531 = (int) (2L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3531);
								}
								{	/* Rgc/rgccompile.scm 270 */
									obj_t BgL_auxz00_3536;
									int BgL_tmpz00_3534;

									BgL_auxz00_3536 = BINT(BgL_costz00_2552);
									BgL_tmpz00_3534 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3534, BgL_auxz00_3536);
								}
								return BgL_val0_1125z00_2555;
							}
						else
							{	/* Rgc/rgccompile.scm 271 */
								obj_t BgL_stopz00_2558;

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

									BgL_maxz00_2559 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
									{
										obj_t BgL_iz00_2561;

										BgL_iz00_2561 = BgL_startz00_2550;
									BgL_loopz00_2560:
										if (
											((long) CINT(BgL_iz00_2561) ==
												(long) CINT(BgL_maxz00_2559)))
											{	/* Rgc/rgccompile.scm 240 */
												BgL_stopz00_2558 = BgL_maxz00_2559;
											}
										else
											{	/* Rgc/rgccompile.scm 240 */
												if (BGl_rgcsetzd2memberzf3z21zz__rgc_setz00
													(BgL_setz00_1501, (long) CINT(BgL_iz00_2561)))
													{	/* Rgc/rgccompile.scm 241 */
														long BgL_arg1431z00_2566;

														BgL_arg1431z00_2566 =
															((long) CINT(BgL_iz00_2561) + 1L);
														{
															obj_t BgL_iz00_3549;

															BgL_iz00_3549 = BINT(BgL_arg1431z00_2566);
															BgL_iz00_2561 = BgL_iz00_3549;
															goto BgL_loopz00_2560;
														}
													}
												else
													{	/* Rgc/rgccompile.scm 241 */
														BgL_stopz00_2558 = BgL_iz00_2561;
													}
											}
									}
								}
								{	/* Rgc/rgccompile.scm 272 */
									obj_t BgL_testz00_2568;

									BgL_startz00_1442 = BgL_startz00_2550;
									BgL_stopz00_1443 = BgL_stopz00_2558;
									BgL_setz00_1444 = BgL_setz00_1501;
									if (
										(((long) CINT(BgL_stopz00_1443) - 1L) ==
											(long) CINT(BgL_startz00_1442)))
										{	/* Rgc/rgccompile.scm 247 */
											obj_t BgL_val0_1113z00_1448;

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

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

													BgL_arg1436z00_1451 =
														MAKE_YOUNG_PAIR(BgL_startz00_1442, BNIL);
													BgL_arg1435z00_1450 =
														MAKE_YOUNG_PAIR(BgL_varz00_3078,
														BgL_arg1436z00_1451);
												}
												BgL_val0_1113z00_1448 =
													MAKE_YOUNG_PAIR(BGl_symbol2157z00zz__rgc_compilez00,
													BgL_arg1435z00_1450);
											}
											{	/* Rgc/rgccompile.scm 247 */
												int BgL_tmpz00_3559;

												BgL_tmpz00_3559 = (int) (2L);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3559);
											}
											{	/* Rgc/rgccompile.scm 247 */
												obj_t BgL_auxz00_3564;
												int BgL_tmpz00_3562;

												BgL_auxz00_3564 = BINT(1L);
												BgL_tmpz00_3562 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3562, BgL_auxz00_3564);
											}
											BgL_testz00_2568 = BgL_val0_1113z00_1448;
										}
									else
										{	/* Rgc/rgccompile.scm 246 */
											if (
												(((long) CINT(BgL_stopz00_1443) -
														(long) CINT(BgL_startz00_1442)) < 4L))
												{	/* Rgc/rgccompile.scm 249 */
													obj_t BgL_val0_1115z00_1454;
													long BgL_val1_1116z00_1455;

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

														{
															obj_t BgL_startz00_1459;
															obj_t BgL_resz00_1460;

															BgL_startz00_1459 = BgL_startz00_1442;
															BgL_resz00_1460 = BNIL;
														BgL_zc3z04anonymousza31440ze3z87_1461:
															if (
																((long) CINT(BgL_startz00_1459) ==
																	(long) CINT(BgL_stopz00_1443)))
																{	/* Rgc/rgccompile.scm 251 */
																	BgL_arg1439z00_1456 = BgL_resz00_1460;
																}
															else
																{	/* Rgc/rgccompile.scm 253 */
																	long BgL_arg1442z00_1463;
																	obj_t BgL_arg1443z00_1464;

																	BgL_arg1442z00_1463 =
																		((long) CINT(BgL_startz00_1459) + 1L);
																	{	/* Rgc/rgccompile.scm 254 */
																		obj_t BgL_arg1444z00_1465;

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

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

																				BgL_arg1446z00_1467 =
																					MAKE_YOUNG_PAIR(BgL_startz00_1459,
																					BNIL);
																				BgL_arg1445z00_1466 =
																					MAKE_YOUNG_PAIR(BgL_varz00_3078,
																					BgL_arg1446z00_1467);
																			}
																			BgL_arg1444z00_1465 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2157z00zz__rgc_compilez00,
																				BgL_arg1445z00_1466);
																		}
																		BgL_arg1443z00_1464 =
																			MAKE_YOUNG_PAIR(BgL_arg1444z00_1465,
																			BgL_resz00_1460);
																	}
																	{
																		obj_t BgL_resz00_3584;
																		obj_t BgL_startz00_3582;

																		BgL_startz00_3582 =
																			BINT(BgL_arg1442z00_1463);
																		BgL_resz00_3584 = BgL_arg1443z00_1464;
																		BgL_resz00_1460 = BgL_resz00_3584;
																		BgL_startz00_1459 = BgL_startz00_3582;
																		goto BgL_zc3z04anonymousza31440ze3z87_1461;
																	}
																}
														}
														BgL_val0_1115z00_1454 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2188z00zz__rgc_compilez00,
															BgL_arg1439z00_1456);
													}
													BgL_val1_1116z00_1455 =
														(
														(long) CINT(BgL_stopz00_1443) -
														(long) CINT(BgL_startz00_1442));
													{	/* Rgc/rgccompile.scm 249 */
														int BgL_tmpz00_3589;

														BgL_tmpz00_3589 = (int) (2L);
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3589);
													}
													{	/* Rgc/rgccompile.scm 249 */
														obj_t BgL_auxz00_3594;
														int BgL_tmpz00_3592;

														BgL_auxz00_3594 = BINT(BgL_val1_1116z00_1455);
														BgL_tmpz00_3592 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3592,
															BgL_auxz00_3594);
													}
													BgL_testz00_2568 = BgL_val0_1115z00_1454;
												}
											else
												{	/* Rgc/rgccompile.scm 256 */
													bool_t BgL_test2278z00_3597;

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

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

															BgL_arg1470z00_1498 =
																BGl_rgczd2maxzd2charz00zz__rgc_configz00();
															BgL_test2279z00_3598 =
																(
																(long) CINT(BgL_stopz00_1443) ==
																(long) CINT(BgL_arg1470z00_1498));
														}
														if (BgL_test2279z00_3598)
															{	/* Rgc/rgccompile.scm 256 */
																BgL_test2278z00_3597 =
																	((long) CINT(BgL_startz00_1442) == 1L);
															}
														else
															{	/* Rgc/rgccompile.scm 256 */
																BgL_test2278z00_3597 = ((bool_t) 0);
															}
													}
													if (BgL_test2278z00_3597)
														{	/* Rgc/rgccompile.scm 256 */
															{	/* Rgc/rgccompile.scm 257 */
																int BgL_tmpz00_3605;

																BgL_tmpz00_3605 = (int) (2L);
																BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3605);
															}
															{	/* Rgc/rgccompile.scm 257 */
																obj_t BgL_auxz00_3610;
																int BgL_tmpz00_3608;

																BgL_auxz00_3610 = BINT(0L);
																BgL_tmpz00_3608 = (int) (1L);
																BGL_MVALUES_VAL_SET(BgL_tmpz00_3608,
																	BgL_auxz00_3610);
															}
															BgL_testz00_2568 = BTRUE;
														}
													else
														{	/* Rgc/rgccompile.scm 258 */
															bool_t BgL_test2280z00_3613;

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

																BgL_arg1469z00_1496 =
																	BGl_rgczd2maxzd2charz00zz__rgc_configz00();
																BgL_test2280z00_3613 =
																	(
																	(long) CINT(BgL_stopz00_1443) ==
																	(long) CINT(BgL_arg1469z00_1496));
															}
															if (BgL_test2280z00_3613)
																{	/* Rgc/rgccompile.scm 259 */
																	obj_t BgL_val0_1119z00_1477;

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

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

																			BgL_arg1456z00_1480 =
																				MAKE_YOUNG_PAIR(BgL_startz00_1442,
																				BNIL);
																			BgL_arg1455z00_1479 =
																				MAKE_YOUNG_PAIR(BgL_varz00_3078,
																				BgL_arg1456z00_1480);
																		}
																		BgL_val0_1119z00_1477 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2190z00zz__rgc_compilez00,
																			BgL_arg1455z00_1479);
																	}
																	{	/* Rgc/rgccompile.scm 259 */
																		int BgL_tmpz00_3621;

																		BgL_tmpz00_3621 = (int) (2L);
																		BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3621);
																	}
																	{	/* Rgc/rgccompile.scm 259 */
																		obj_t BgL_auxz00_3626;
																		int BgL_tmpz00_3624;

																		BgL_auxz00_3626 = BINT(1L);
																		BgL_tmpz00_3624 = (int) (1L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_3624,
																			BgL_auxz00_3626);
																	}
																	BgL_testz00_2568 = BgL_val0_1119z00_1477;
																}
															else
																{	/* Rgc/rgccompile.scm 258 */
																	if (((long) CINT(BgL_startz00_1442) == 1L))
																		{	/* Rgc/rgccompile.scm 261 */
																			obj_t BgL_val0_1121z00_1482;

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

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

																					BgL_arg1459z00_1485 =
																						MAKE_YOUNG_PAIR(BgL_stopz00_1443,
																						BNIL);
																					BgL_arg1458z00_1484 =
																						MAKE_YOUNG_PAIR(BgL_varz00_3078,
																						BgL_arg1459z00_1485);
																				}
																				BgL_val0_1121z00_1482 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2192z00zz__rgc_compilez00,
																					BgL_arg1458z00_1484);
																			}
																			{	/* Rgc/rgccompile.scm 261 */
																				int BgL_tmpz00_3635;

																				BgL_tmpz00_3635 = (int) (2L);
																				BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3635);
																			}
																			{	/* Rgc/rgccompile.scm 261 */
																				obj_t BgL_auxz00_3640;
																				int BgL_tmpz00_3638;

																				BgL_auxz00_3640 = BINT(1L);
																				BgL_tmpz00_3638 = (int) (1L);
																				BGL_MVALUES_VAL_SET(BgL_tmpz00_3638,
																					BgL_auxz00_3640);
																			}
																			BgL_testz00_2568 = BgL_val0_1121z00_1482;
																		}
																	else
																		{	/* Rgc/rgccompile.scm 263 */
																			obj_t BgL_val0_1123z00_1486;

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

																				{	/* Rgc/rgccompile.scm 263 */
																					obj_t BgL_arg1461z00_1489;
																					obj_t BgL_arg1462z00_1490;

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

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

																							BgL_arg1465z00_1492 =
																								MAKE_YOUNG_PAIR
																								(BgL_startz00_1442, BNIL);
																							BgL_arg1464z00_1491 =
																								MAKE_YOUNG_PAIR(BgL_varz00_3078,
																								BgL_arg1465z00_1492);
																						}
																						BgL_arg1461z00_1489 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2190z00zz__rgc_compilez00,
																							BgL_arg1464z00_1491);
																					}
																					{	/* Rgc/rgccompile.scm 263 */
																						obj_t BgL_arg1466z00_1493;

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

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

																								BgL_arg1468z00_1495 =
																									MAKE_YOUNG_PAIR
																									(BgL_stopz00_1443, BNIL);
																								BgL_arg1467z00_1494 =
																									MAKE_YOUNG_PAIR
																									(BgL_varz00_3078,
																									BgL_arg1468z00_1495);
																							}
																							BgL_arg1466z00_1493 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2192z00zz__rgc_compilez00,
																								BgL_arg1467z00_1494);
																						}
																						BgL_arg1462z00_1490 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1466z00_1493, BNIL);
																					}
																					BgL_arg1460z00_1488 =
																						MAKE_YOUNG_PAIR(BgL_arg1461z00_1489,
																						BgL_arg1462z00_1490);
																				}
																				BgL_val0_1123z00_1486 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2194z00zz__rgc_compilez00,
																					BgL_arg1460z00_1488);
																			}
																			{	/* Rgc/rgccompile.scm 263 */
																				int BgL_tmpz00_3652;

																				BgL_tmpz00_3652 = (int) (2L);
																				BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3652);
																			}
																			{	/* Rgc/rgccompile.scm 263 */
																				obj_t BgL_auxz00_3657;
																				int BgL_tmpz00_3655;

																				BgL_auxz00_3657 = BINT(3L);
																				BgL_tmpz00_3655 = (int) (1L);
																				BGL_MVALUES_VAL_SET(BgL_tmpz00_3655,
																					BgL_auxz00_3657);
																			}
																			BgL_testz00_2568 = BgL_val0_1123z00_1486;
										}}}}}
									{	/* Rgc/rgccompile.scm 273 */
										obj_t BgL_cz00_2569;

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

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

												BgL_tmpz00_3660 = (int) (1L);
												BgL_tmpz00_2570 = BGL_MVALUES_VAL(BgL_tmpz00_3660);
											}
											{	/* Rgc/rgccompile.scm 274 */
												int BgL_tmpz00_3663;

												BgL_tmpz00_3663 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3663, BUNSPEC);
											}
											BgL_cz00_2569 = BgL_tmpz00_2570;
										}
										{	/* Rgc/rgccompile.scm 274 */
											obj_t BgL_arg1479z00_2571;
											obj_t BgL_arg1480z00_2572;
											long BgL_arg1481z00_2573;

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

												BgL_maxz00_2574 =
													BGl_rgczd2maxzd2charz00zz__rgc_configz00();
												{
													obj_t BgL_iz00_2576;

													BgL_iz00_2576 = BgL_stopz00_2558;
												BgL_loopz00_2575:
													if (
														((long) CINT(BgL_iz00_2576) ==
															(long) CINT(BgL_maxz00_2574)))
														{	/* Rgc/rgccompile.scm 232 */
															BgL_arg1479z00_2571 = BINT((-1L));
														}
													else
														{	/* Rgc/rgccompile.scm 232 */
															if (BGl_rgcsetzd2memberzf3z21zz__rgc_setz00
																(BgL_setz00_1501, (long) CINT(BgL_iz00_2576)))
																{	/* Rgc/rgccompile.scm 233 */
																	BgL_arg1479z00_2571 = BgL_iz00_2576;
																}
															else
																{	/* Rgc/rgccompile.scm 234 */
																	long BgL_arg1426z00_2581;

																	BgL_arg1426z00_2581 =
																		((long) CINT(BgL_iz00_2576) + 1L);
																	{
																		obj_t BgL_iz00_3677;

																		BgL_iz00_3677 = BINT(BgL_arg1426z00_2581);
																		BgL_iz00_2576 = BgL_iz00_3677;
																		goto BgL_loopz00_2575;
																	}
																}
														}
												}
											}
											BgL_arg1480z00_2572 =
												MAKE_YOUNG_PAIR(BgL_testz00_2568, BgL_testsz00_2551);
											BgL_arg1481z00_2573 =
												((long) CINT(BgL_cz00_2569) + BgL_costz00_2552);
											{
												long BgL_costz00_3684;
												obj_t BgL_testsz00_3683;
												obj_t BgL_startz00_3682;

												BgL_startz00_3682 = BgL_arg1479z00_2571;
												BgL_testsz00_3683 = BgL_arg1480z00_2572;
												BgL_costz00_3684 = BgL_arg1481z00_2573;
												BgL_costz00_2552 = BgL_costz00_3684;
												BgL_testsz00_2551 = BgL_testsz00_3683;
												BgL_startz00_2550 = BgL_startz00_3682;
												goto BgL_loopz00_2549;
											}
										}
									}
								}
							}
					}
				}
			}
		}

	}



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

				BgL_transitionsz00_1527 = BgL_transitionsz00_28;
				BgL_resz00_1528 = BNIL;
			BgL_zc3z04anonymousza31482ze3z87_1529:
				if (NULLP(BgL_transitionsz00_1527))
					{	/* Rgc/rgccompile.scm 300 */
						return BgL_resz00_1528;
					}
				else
					{	/* Rgc/rgccompile.scm 302 */
						obj_t BgL_transitionz00_1531;

						BgL_transitionz00_1531 = CAR(((obj_t) BgL_transitionsz00_1527));
						{	/* Rgc/rgccompile.scm 302 */
							obj_t BgL_charz00_1532;

							BgL_charz00_1532 = CAR(((obj_t) BgL_transitionz00_1531));
							{	/* Rgc/rgccompile.scm 303 */
								obj_t BgL_statez00_1533;

								BgL_statez00_1533 = CDR(((obj_t) BgL_transitionz00_1531));
								{	/* Rgc/rgccompile.scm 304 */

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

										BgL_cellz00_1534 =
											BGl_assqz00zz__r4_pairs_and_lists_6_3z00
											(BgL_statez00_1533, BgL_resz00_1528);
										if (PAIRP(BgL_cellz00_1534))
											{	/* Rgc/rgccompile.scm 306 */
												BGl_rgcsetzd2addz12zc0zz__rgc_setz00(CDR
													(BgL_cellz00_1534), (long) CINT(BgL_charz00_1532));
												{	/* Rgc/rgccompile.scm 312 */
													obj_t BgL_arg1487z00_1537;

													BgL_arg1487z00_1537 =
														CDR(((obj_t) BgL_transitionsz00_1527));
													{
														obj_t BgL_transitionsz00_3702;

														BgL_transitionsz00_3702 = BgL_arg1487z00_1537;
														BgL_transitionsz00_1527 = BgL_transitionsz00_3702;
														goto BgL_zc3z04anonymousza31482ze3z87_1529;
													}
												}
											}
										else
											{	/* Rgc/rgccompile.scm 307 */
												obj_t BgL_setz00_1538;

												{	/* Rgc/rgccompile.scm 307 */
													obj_t BgL_arg1491z00_1542;
													obj_t BgL_arg1492z00_1543;

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

														BgL_list1493z00_1544 =
															MAKE_YOUNG_PAIR(BgL_charz00_1532, BNIL);
														BgL_arg1491z00_1542 = BgL_list1493z00_1544;
													}
													BgL_arg1492z00_1543 =
														BGl_rgczd2maxzd2charz00zz__rgc_configz00();
													BgL_setz00_1538 =
														BGl_listzd2ze3rgcsetz31zz__rgc_setz00
														(BgL_arg1491z00_1542,
														(long) CINT(BgL_arg1492z00_1543));
												}
												{	/* Rgc/rgccompile.scm 308 */
													obj_t BgL_arg1488z00_1539;
													obj_t BgL_arg1489z00_1540;

													BgL_arg1488z00_1539 =
														CDR(((obj_t) BgL_transitionsz00_1527));
													{	/* Rgc/rgccompile.scm 309 */
														obj_t BgL_arg1490z00_1541;

														BgL_arg1490z00_1541 =
															MAKE_YOUNG_PAIR(BgL_statez00_1533,
															BgL_setz00_1538);
														BgL_arg1489z00_1540 =
															MAKE_YOUNG_PAIR(BgL_arg1490z00_1541,
															BgL_resz00_1528);
													}
													{
														obj_t BgL_resz00_3712;
														obj_t BgL_transitionsz00_3711;

														BgL_transitionsz00_3711 = BgL_arg1488z00_1539;
														BgL_resz00_3712 = BgL_arg1489z00_1540;
														BgL_resz00_1528 = BgL_resz00_3712;
														BgL_transitionsz00_1527 = BgL_transitionsz00_3711;
														goto BgL_zc3z04anonymousza31482ze3z87_1529;
													}
												}
											}
									}
								}
							}
						}
					}
			}
		}

	}



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

					BgL_list1495z00_1547 = MAKE_YOUNG_PAIR(BINT(BgL_elz00_29), BNIL);
					return BgL_list1495z00_1547;
				}
			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_arg1501z00_1552;
									obj_t BgL_arg1502z00_1553;

									BgL_arg1501z00_1552 = CAR(((obj_t) BgL_lstz00_30));
									{	/* Rgc/rgccompile.scm 324 */
										obj_t BgL_arg1505z00_1554;

										BgL_arg1505z00_1554 = CDR(((obj_t) BgL_lstz00_30));
										BgL_arg1502z00_1553 =
											BGl_insortz00zz__rgc_compilez00(BgL_elz00_29,
											BgL_arg1505z00_1554);
									}
									return
										MAKE_YOUNG_PAIR(BgL_arg1501z00_1552, BgL_arg1502z00_1553);
								}
						}
				}
		}

	}



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

				{
					obj_t BgL_transitionsz00_1560;
					obj_t BgL_matchesz00_1561;

					BgL_transitionsz00_1560 = BgL_transitionsz00_31;
					BgL_matchesz00_1561 = BNIL;
				BgL_zc3z04anonymousza31508ze3z87_1562:
					if (NULLP(BgL_transitionsz00_1560))
						{	/* Rgc/rgccompile.scm 360 */
							BgL_matchesz00_1573 = BgL_matchesz00_1561;
							if (NULLP(BgL_matchesz00_1573))
								{	/* Rgc/rgccompile.scm 339 */
									return BFALSE;
								}
							else
								{	/* Rgc/rgccompile.scm 339 */
									return BGl_loopze70ze7zz__rgc_compilez00(BgL_matchesz00_1573);
								}
						}
					else
						{	/* Rgc/rgccompile.scm 362 */
							obj_t BgL_transitionz00_1564;

							BgL_transitionz00_1564 = CAR(((obj_t) BgL_transitionsz00_1560));
							{	/* Rgc/rgccompile.scm 362 */
								obj_t BgL_charz00_1565;

								BgL_charz00_1565 = CAR(((obj_t) BgL_transitionz00_1564));
								{	/* Rgc/rgccompile.scm 364 */

									if (BGl_specialzd2charzd2matchzf3zf3zz__rgc_rulesz00(CINT
											(BgL_charz00_1565)))
										{	/* Rgc/rgccompile.scm 366 */
											obj_t BgL_arg1511z00_1568;
											obj_t BgL_arg1512z00_1569;

											BgL_arg1511z00_1568 =
												CDR(((obj_t) BgL_transitionsz00_1560));
											BgL_arg1512z00_1569 =
												BGl_insortz00zz__rgc_compilez00
												(BGl_specialzd2matchzd2charzd2ze3rulezd2numberze3zz__rgc_rulesz00
												(CINT(BgL_charz00_1565)), BgL_matchesz00_1561);
											{
												obj_t BgL_matchesz00_3755;
												obj_t BgL_transitionsz00_3754;

												BgL_transitionsz00_3754 = BgL_arg1511z00_1568;
												BgL_matchesz00_3755 = BgL_arg1512z00_1569;
												BgL_matchesz00_1561 = BgL_matchesz00_3755;
												BgL_transitionsz00_1560 = BgL_transitionsz00_3754;
												goto BgL_zc3z04anonymousza31508ze3z87_1562;
											}
										}
									else
										{	/* Rgc/rgccompile.scm 368 */
											obj_t BgL_arg1514z00_1571;

											BgL_arg1514z00_1571 =
												CDR(((obj_t) BgL_transitionsz00_1560));
											{
												obj_t BgL_transitionsz00_3758;

												BgL_transitionsz00_3758 = BgL_arg1514z00_1571;
												BgL_transitionsz00_1560 = BgL_transitionsz00_3758;
												goto BgL_zc3z04anonymousza31508ze3z87_1562;
											}
										}
								}
							}
						}
				}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__rgc_compilez00(obj_t BgL_matchesz00_1577)
	{
		{	/* Rgc/rgccompile.scm 342 */
			if (NULLP(BgL_matchesz00_1577))
				{	/* Rgc/rgccompile.scm 343 */
					return BGl_symbol2147z00zz__rgc_compilez00;
				}
			else
				{	/* Rgc/rgccompile.scm 345 */
					obj_t BgL_matchz00_1580;

					BgL_matchz00_1580 = CAR(((obj_t) BgL_matchesz00_1577));
					{	/* Rgc/rgccompile.scm 345 */
						obj_t BgL_predsz00_1581;

						BgL_predsz00_1581 =
							BGl_predicatezd2matchzd2zz__rgc_rulesz00(CINT(BgL_matchz00_1580));
						{	/* Rgc/rgccompile.scm 346 */

							if (PAIRP(BgL_predsz00_1581))
								{	/* Rgc/rgccompile.scm 349 */
									obj_t BgL_arg1520z00_1583;

									{	/* Rgc/rgccompile.scm 349 */
										obj_t BgL_arg1521z00_1584;
										obj_t BgL_arg1522z00_1585;

										BgL_arg1521z00_1584 =
											MAKE_YOUNG_PAIR(BGl_symbol2194z00zz__rgc_compilez00,
											BgL_predsz00_1581);
										{	/* Rgc/rgccompile.scm 351 */
											obj_t BgL_arg1523z00_1586;
											obj_t BgL_arg1524z00_1587;

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

												{	/* Rgc/rgccompile.scm 351 */
													obj_t BgL_arg1526z00_1589;
													obj_t BgL_arg1527z00_1590;

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

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

															BgL_arg1532z00_1592 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2145z00zz__rgc_compilez00, BNIL);
															BgL_arg1528z00_1591 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2149z00zz__rgc_compilez00,
																BgL_arg1532z00_1592);
														}
														BgL_arg1526z00_1589 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2196z00zz__rgc_compilez00,
															BgL_arg1528z00_1591);
													}
													BgL_arg1527z00_1590 =
														MAKE_YOUNG_PAIR(BgL_matchz00_1580, BNIL);
													BgL_arg1525z00_1588 =
														MAKE_YOUNG_PAIR(BgL_arg1526z00_1589,
														BgL_arg1527z00_1590);
												}
												BgL_arg1523z00_1586 =
													MAKE_YOUNG_PAIR(BGl_symbol2198z00zz__rgc_compilez00,
													BgL_arg1525z00_1588);
											}
											{	/* Rgc/rgccompile.scm 353 */
												obj_t BgL_arg1533z00_1593;

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

													BgL_arg1534z00_1594 =
														CDR(((obj_t) BgL_matchesz00_1577));
													BgL_arg1533z00_1593 =
														BGl_loopze70ze7zz__rgc_compilez00
														(BgL_arg1534z00_1594);
												}
												BgL_arg1524z00_1587 =
													MAKE_YOUNG_PAIR(BgL_arg1533z00_1593, BNIL);
											}
											BgL_arg1522z00_1585 =
												MAKE_YOUNG_PAIR(BgL_arg1523z00_1586,
												BgL_arg1524z00_1587);
										}
										BgL_arg1520z00_1583 =
											MAKE_YOUNG_PAIR(BgL_arg1521z00_1584, BgL_arg1522z00_1585);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2167z00zz__rgc_compilez00,
										BgL_arg1520z00_1583);
								}
							else
								{	/* Rgc/rgccompile.scm 355 */
									obj_t BgL_arg1537z00_1595;

									{	/* Rgc/rgccompile.scm 355 */
										obj_t BgL_arg1538z00_1596;
										obj_t BgL_arg1540z00_1597;

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

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

												BgL_arg1542z00_1599 =
													MAKE_YOUNG_PAIR(BGl_symbol2145z00zz__rgc_compilez00,
													BNIL);
												BgL_arg1541z00_1598 =
													MAKE_YOUNG_PAIR(BGl_symbol2149z00zz__rgc_compilez00,
													BgL_arg1542z00_1599);
											}
											BgL_arg1538z00_1596 =
												MAKE_YOUNG_PAIR(BGl_symbol2196z00zz__rgc_compilez00,
												BgL_arg1541z00_1598);
										}
										BgL_arg1540z00_1597 =
											MAKE_YOUNG_PAIR(BgL_matchz00_1580, BNIL);
										BgL_arg1537z00_1595 =
											MAKE_YOUNG_PAIR(BgL_arg1538z00_1596, BgL_arg1540z00_1597);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2198z00zz__rgc_compilez00,
										BgL_arg1537z00_1595);
								}
						}
					}
				}
		}

	}



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

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

						BgL_b1131z00_1605 = BGl_rgczd2maxzd2charz00zz__rgc_configz00();
						if (INTEGERP(BgL_b1131z00_1605))
							{	/* Rgc/rgccompile.scm 381 */
								obj_t BgL_tmpz00_2621;

								BgL_tmpz00_2621 = BINT(0L);
								{	/* Rgc/rgccompile.scm 381 */
									bool_t BgL_test2296z00_3793;

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

										BgL_tmpz00_3794 = BINT(1L);
										BgL_test2296z00_3793 =
											BGL_ADDFX_OV(BgL_tmpz00_3794, BgL_b1131z00_1605,
											BgL_tmpz00_2621);
									}
									if (BgL_test2296z00_3793)
										{	/* Rgc/rgccompile.scm 381 */
											BgL_arg1545z00_1603 =
												bgl_bignum_add(bgl_long_to_bignum(1L),
												bgl_long_to_bignum((long) CINT(BgL_b1131z00_1605)));
										}
									else
										{	/* Rgc/rgccompile.scm 381 */
											BgL_arg1545z00_1603 = BgL_tmpz00_2621;
										}
								}
							}
						else
							{	/* Rgc/rgccompile.scm 381 */
								BgL_arg1545z00_1603 =
									BGl_2zb2zb2zz__r4_numbers_6_5z00(BINT(1L), BgL_b1131z00_1605);
							}
					}
					return (BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 =
						make_vector((long) CINT(BgL_arg1545z00_1603), 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_l1132z00_2660;

						BgL_l1132z00_2660 = BgL_charsz00_32;
					BgL_zc3z04anonymousza31547ze3z87_2659:
						if (PAIRP(BgL_l1132z00_2660))
							{	/* Rgc/rgccompile.scm 421 */
								{	/* Rgc/rgccompile.scm 421 */
									obj_t BgL_xz00_2665;

									BgL_xz00_2665 = CAR(BgL_l1132z00_2660);
									VECTOR_SET(BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00,
										(long) CINT(BgL_xz00_2665), BTRUE);
								}
								{
									obj_t BgL_l1132z00_3814;

									BgL_l1132z00_3814 = CDR(BgL_l1132z00_2660);
									BgL_l1132z00_2660 = BgL_l1132z00_3814;
									goto BgL_zc3z04anonymousza31547ze3z87_2659;
								}
							}
						else
							{	/* Rgc/rgccompile.scm 421 */
								((bool_t) 1);
							}
					}
					{
						obj_t BgL_iz00_2680;
						obj_t BgL_rangesz00_2681;

						BgL_iz00_2680 = BINT(0L);
						BgL_rangesz00_2681 = BNIL;
					BgL_loopz00_2679:
						if (((long) CINT(BgL_iz00_2680) >= (long) CINT(BgL_maxz00_1606)))
							{	/* Rgc/rgccompile.scm 424 */
								return bgl_reverse_bang(BgL_rangesz00_2681);
							}
						else
							{	/* Rgc/rgccompile.scm 426 */
								obj_t BgL_rangez00_2685;

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

									BgL_iz00_1633 = BgL_iz00_2680;
									{
										obj_t BgL_iz00_1636;

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

												{	/* Rgc/rgccompile.scm 404 */
													obj_t BgL_vectorz00_2632;
													long BgL_kz00_2633;

													BgL_vectorz00_2632 =
														BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00;
													BgL_kz00_2633 = (long) CINT(BgL_iz00_1636);
													BgL_test2300z00_3825 =
														CBOOL(VECTOR_REF(BgL_vectorz00_2632,
															BgL_kz00_2633));
												}
												if (BgL_test2300z00_3825)
													{	/* Rgc/rgccompile.scm 404 */
														BgL_startz00_2686 = BgL_iz00_1636;
													}
												else
													{
														obj_t BgL_iz00_3829;

														BgL_iz00_3829 = ADDFX(BgL_iz00_1636, BINT(1L));
														BgL_iz00_1636 = BgL_iz00_3829;
														goto BgL_zc3z04anonymousza31560ze3z87_1637;
													}
											}
									}
									if (CBOOL(BgL_startz00_2686))
										{	/* Rgc/rgccompile.scm 418 */
											long BgL_arg1573z00_2687;

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

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

													BgL_iz00_1642 = BgL_startz00_2686;
													{
														obj_t BgL_iz00_1645;

														BgL_iz00_1645 = BgL_iz00_1642;
													BgL_zc3z04anonymousza31565ze3z87_1646:
														if (
															((long) CINT(BgL_iz00_1645) ==
																(long) CINT(BgL_maxz00_1606)))
															{	/* Rgc/rgccompile.scm 410 */
																BgL_tmpz00_3835 = BgL_maxz00_1606;
															}
														else
															{	/* Rgc/rgccompile.scm 411 */
																bool_t BgL_test2303z00_3840;

																{	/* Rgc/rgccompile.scm 411 */
																	obj_t BgL_vectorz00_2637;
																	long BgL_kz00_2638;

																	BgL_vectorz00_2637 =
																		BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00;
																	BgL_kz00_2638 = (long) CINT(BgL_iz00_1645);
																	BgL_test2303z00_3840 =
																		CBOOL(VECTOR_REF(BgL_vectorz00_2637,
																			BgL_kz00_2638));
																}
																if (BgL_test2303z00_3840)
																	{
																		obj_t BgL_iz00_3844;

																		BgL_iz00_3844 =
																			ADDFX(BgL_iz00_1645, BINT(1L));
																		BgL_iz00_1645 = BgL_iz00_3844;
																		goto BgL_zc3z04anonymousza31565ze3z87_1646;
																	}
																else
																	{	/* Rgc/rgccompile.scm 411 */
																		BgL_tmpz00_3835 = BgL_iz00_1645;
																	}
															}
													}
													BgL_tmpz00_3834 = (long) CINT(BgL_tmpz00_3835);
												}
												BgL_arg1573z00_2687 = (BgL_tmpz00_3834 - 1L);
											}
											BgL_rangez00_2685 =
												MAKE_YOUNG_PAIR(BgL_startz00_2686,
												BINT(BgL_arg1573z00_2687));
										}
									else
										{	/* Rgc/rgccompile.scm 416 */
											BgL_rangez00_2685 = BgL_maxz00_1606;
										}
								}
								if (PAIRP(BgL_rangez00_2685))
									{	/* Rgc/rgccompile.scm 428 */
										long BgL_arg1554z00_2691;
										obj_t BgL_arg1555z00_2692;

										BgL_arg1554z00_2691 =
											((long) CINT(CDR(BgL_rangez00_2685)) + 1L);
										BgL_arg1555z00_2692 =
											MAKE_YOUNG_PAIR(BgL_rangez00_2685, BgL_rangesz00_2681);
										{
											obj_t BgL_rangesz00_3859;
											obj_t BgL_iz00_3857;

											BgL_iz00_3857 = BINT(BgL_arg1554z00_2691);
											BgL_rangesz00_3859 = BgL_arg1555z00_2692;
											BgL_rangesz00_2681 = BgL_rangesz00_3859;
											BgL_iz00_2680 = BgL_iz00_3857;
											goto BgL_loopz00_2679;
										}
									}
								else
									{
										obj_t BgL_iz00_3860;

										BgL_iz00_3860 = BgL_rangez00_2685;
										BgL_iz00_2680 = BgL_iz00_3860;
										goto BgL_loopz00_2679;
									}
							}
					}
				}
			}
		}

	}



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

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

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

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

								BgL_arg1586z00_1676 = CAR(((obj_t) BgL_rangesz00_34));
								BgL_arg1584z00_1675 =
									BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00
									(BgL_currentz00_33, BgL_arg1586z00_1676);
							}
							BgL_head1136z00_1663 = MAKE_YOUNG_PAIR(BgL_arg1584z00_1675, BNIL);
						}
						{	/* Rgc/rgccompile.scm 443 */
							obj_t BgL_g1139z00_1664;

							BgL_g1139z00_1664 = CDR(((obj_t) BgL_rangesz00_34));
							{
								obj_t BgL_l1134z00_2719;
								obj_t BgL_tail1137z00_2720;

								BgL_l1134z00_2719 = BgL_g1139z00_1664;
								BgL_tail1137z00_2720 = BgL_head1136z00_1663;
							BgL_zc3z04anonymousza31577ze3z87_2718:
								if (NULLP(BgL_l1134z00_2719))
									{	/* Rgc/rgccompile.scm 443 */
										BgL_arg1575z00_1660 = BgL_head1136z00_1663;
									}
								else
									{	/* Rgc/rgccompile.scm 443 */
										obj_t BgL_newtail1138z00_2727;

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

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

												BgL_arg1582z00_2729 = CAR(((obj_t) BgL_l1134z00_2719));
												BgL_arg1581z00_2728 =
													BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00
													(BgL_currentz00_33, BgL_arg1582z00_2729);
											}
											BgL_newtail1138z00_2727 =
												MAKE_YOUNG_PAIR(BgL_arg1581z00_2728, BNIL);
										}
										SET_CDR(BgL_tail1137z00_2720, BgL_newtail1138z00_2727);
										{	/* Rgc/rgccompile.scm 443 */
											obj_t BgL_arg1580z00_2730;

											BgL_arg1580z00_2730 = CDR(((obj_t) BgL_l1134z00_2719));
											{
												obj_t BgL_tail1137z00_3880;
												obj_t BgL_l1134z00_3879;

												BgL_l1134z00_3879 = BgL_arg1580z00_2730;
												BgL_tail1137z00_3880 = BgL_newtail1138z00_2727;
												BgL_tail1137z00_2720 = BgL_tail1137z00_3880;
												BgL_l1134z00_2719 = BgL_l1134z00_3879;
												goto BgL_zc3z04anonymousza31577ze3z87_2718;
											}
										}
									}
							}
						}
					}
				return
					MAKE_YOUNG_PAIR(BGl_symbol2188z00zz__rgc_compilez00,
					BgL_arg1575z00_1660);
			}
		}

	}



/* char-range->test~0 */
	obj_t BGl_charzd2rangezd2ze3testze70z04zz__rgc_compilez00(obj_t
		BgL_currentz00_3077, obj_t BgL_rangez00_1677)
	{
		{	/* Rgc/rgccompile.scm 441 */
			{	/* Rgc/rgccompile.scm 437 */
				obj_t BgL_startz00_1679;
				obj_t BgL_stopz00_1680;

				BgL_startz00_1679 = CAR(((obj_t) BgL_rangez00_1677));
				BgL_stopz00_1680 = CDR(((obj_t) BgL_rangez00_1677));
				if (((long) CINT(BgL_startz00_1679) == (long) CINT(BgL_stopz00_1680)))
					{	/* Rgc/rgccompile.scm 440 */
						obj_t BgL_arg1592z00_1682;

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

							BgL_arg1593z00_1683 = MAKE_YOUNG_PAIR(BgL_startz00_1679, BNIL);
							BgL_arg1592z00_1682 =
								MAKE_YOUNG_PAIR(BgL_currentz00_3077, BgL_arg1593z00_1683);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2157z00zz__rgc_compilez00,
							BgL_arg1592z00_1682);
					}
				else
					{	/* Rgc/rgccompile.scm 441 */
						obj_t BgL_arg1595z00_1684;

						{	/* Rgc/rgccompile.scm 441 */
							obj_t BgL_arg1596z00_1685;
							obj_t BgL_arg1597z00_1686;

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

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

									BgL_arg1599z00_1688 =
										MAKE_YOUNG_PAIR(BgL_startz00_1679, BNIL);
									BgL_arg1598z00_1687 =
										MAKE_YOUNG_PAIR(BgL_currentz00_3077, BgL_arg1599z00_1688);
								}
								BgL_arg1596z00_1685 =
									MAKE_YOUNG_PAIR(BGl_symbol2190z00zz__rgc_compilez00,
									BgL_arg1598z00_1687);
							}
							{	/* Rgc/rgccompile.scm 441 */
								obj_t BgL_arg1600z00_1689;

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

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

										BgL_arg1603z00_1691 =
											MAKE_YOUNG_PAIR(BgL_stopz00_1680, BNIL);
										BgL_arg1602z00_1690 =
											MAKE_YOUNG_PAIR(BgL_currentz00_3077, BgL_arg1603z00_1691);
									}
									BgL_arg1600z00_1689 =
										MAKE_YOUNG_PAIR(BGl_symbol2200z00zz__rgc_compilez00,
										BgL_arg1602z00_1690);
								}
								BgL_arg1597z00_1686 =
									MAKE_YOUNG_PAIR(BgL_arg1600z00_1689, BNIL);
							}
							BgL_arg1595z00_1684 =
								MAKE_YOUNG_PAIR(BgL_arg1596z00_1685, BgL_arg1597z00_1686);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2194z00zz__rgc_compilez00,
							BgL_arg1595z00_1684);
					}
			}
		}

	}



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

								BgL_arg1608z00_1700 = CAR(((obj_t) BgL_charsz00_36));
								{	/* Rgc/rgccompile.scm 453 */
									obj_t BgL_arg1610z00_2741;

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

										BgL_arg1612z00_2742 =
											MAKE_YOUNG_PAIR(BgL_arg1608z00_1700, BNIL);
										BgL_arg1610z00_2741 =
											MAKE_YOUNG_PAIR(BgL_currentz00_35, BgL_arg1612z00_2742);
									}
									return
										MAKE_YOUNG_PAIR(BGl_symbol2157z00zz__rgc_compilez00,
										BgL_arg1610z00_2741);
								}
							}
						else
							{	/* Rgc/rgccompile.scm 451 */
							BgL_tagzd2102zd2_1695:
								{	/* Rgc/rgccompile.scm 455 */
									obj_t BgL_rangesz00_1704;

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

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

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

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

														BgL_arg1621z00_1712 =
															MAKE_YOUNG_PAIR(BgL_charsz00_36, BNIL);
														BgL_arg1620z00_1711 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2202z00zz__rgc_compilez00,
															BgL_arg1621z00_1712);
													}
													BgL_arg1619z00_1710 =
														MAKE_YOUNG_PAIR(BgL_arg1620z00_1711, BNIL);
												}
												BgL_arg1617z00_1709 =
													MAKE_YOUNG_PAIR(BgL_currentz00_35,
													BgL_arg1619z00_1710);
											}
											return
												MAKE_YOUNG_PAIR(BGl_symbol2204z00zz__rgc_compilez00,
												BgL_arg1617z00_1709);
										}
									else
										{	/* Rgc/rgccompile.scm 456 */
											return
												BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00
												(BgL_currentz00_35, BgL_rangesz00_1704);
										}
								}
							}
					}
				else
					{	/* Rgc/rgccompile.scm 451 */
						goto BgL_tagzd2102zd2_1695;
					}
			}
		}

	}



/* 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_1903;
				obj_t BgL_smz00_1904;

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

					BgL_g1049z00_1718 =
						BGl_rgcsetzd2ze3listz31zz__rgc_setz00(BgL_positionsz00_39);
					{
						obj_t BgL_positionsz00_1721;
						obj_t BgL_charzd2submatcheszd2_1722;

						BgL_positionsz00_1721 = BgL_g1049z00_1718;
						BgL_charzd2submatcheszd2_1722 = BNIL;
					BgL_zc3z04anonymousza31625ze3z87_1723:
						if (NULLP(BgL_positionsz00_1721))
							{	/* Rgc/rgccompile.scm 482 */
								obj_t BgL_fun1145z00_1725;

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

									{
										int BgL_tmpz00_3928;

										BgL_tmpz00_3928 = (int) (1L);
										BgL_zc3z04anonymousza31633ze3z87_3073 =
											MAKE_EL_PROCEDURE(BgL_tmpz00_3928);
									}
									PROCEDURE_EL_SET(BgL_zc3z04anonymousza31633ze3z87_3073,
										(int) (0L), BgL_currentz00_37);
									BgL_fun1145z00_1725 = BgL_zc3z04anonymousza31633ze3z87_3073;
								}
								if (NULLP(BgL_charzd2submatcheszd2_1722))
									{	/* Rgc/rgccompile.scm 482 */
										return BNIL;
									}
								else
									{	/* Rgc/rgccompile.scm 482 */
										obj_t BgL_head1142z00_1728;

										BgL_head1142z00_1728 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_l1140z00_2816;
											obj_t BgL_tail1143z00_2817;

											BgL_l1140z00_2816 = BgL_charzd2submatcheszd2_1722;
											BgL_tail1143z00_2817 = BgL_head1142z00_1728;
										BgL_zc3z04anonymousza31628ze3z87_2815:
											if (NULLP(BgL_l1140z00_2816))
												{	/* Rgc/rgccompile.scm 482 */
													return CDR(BgL_head1142z00_1728);
												}
											else
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_newtail1144z00_2824;

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

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

															BgL_arg1632z00_2826 =
																CAR(((obj_t) BgL_l1140z00_2816));
															BgL_arg1631z00_2825 =
																BGl_z62zc3z04anonymousza31633ze3ze5zz__rgc_compilez00
																(BgL_fun1145z00_1725, BgL_arg1632z00_2826);
														}
														BgL_newtail1144z00_2824 =
															MAKE_YOUNG_PAIR(BgL_arg1631z00_2825, BNIL);
													}
													SET_CDR(BgL_tail1143z00_2817,
														BgL_newtail1144z00_2824);
													{	/* Rgc/rgccompile.scm 482 */
														obj_t BgL_arg1630z00_2827;

														BgL_arg1630z00_2827 =
															CDR(((obj_t) BgL_l1140z00_2816));
														{
															obj_t BgL_tail1143z00_3950;
															obj_t BgL_l1140z00_3949;

															BgL_l1140z00_3949 = BgL_arg1630z00_2827;
															BgL_tail1143z00_3950 = BgL_newtail1144z00_2824;
															BgL_tail1143z00_2817 = BgL_tail1143z00_3950;
															BgL_l1140z00_2816 = BgL_l1140z00_3949;
															goto BgL_zc3z04anonymousza31628ze3z87_2815;
														}
													}
												}
										}
									}
							}
						else
							{	/* Rgc/rgccompile.scm 507 */
								obj_t BgL_posz00_1889;

								BgL_posz00_1889 = CAR(((obj_t) BgL_positionsz00_1721));
								{	/* Rgc/rgccompile.scm 507 */
									obj_t BgL_charz00_1890;

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

										BgL_kz00_2834 = (long) CINT(BgL_posz00_1889);
										BgL_charz00_1890 =
											VECTOR_REF(
											((obj_t) BgL_positionszd2tozd2charz00_40), BgL_kz00_2834);
									}
									{	/* Rgc/rgccompile.scm 508 */
										obj_t BgL_cellz00_1891;

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

											BgL_kz00_2836 = (long) CINT(BgL_posz00_1889);
											BgL_cellz00_1891 =
												VECTOR_REF(
												((obj_t) BgL_submatchesz00_38), BgL_kz00_2836);
										}
										{	/* Rgc/rgccompile.scm 509 */

											if (NULLP(BgL_cellz00_1891))
												{	/* Rgc/rgccompile.scm 511 */
													obj_t BgL_arg1777z00_1893;

													BgL_arg1777z00_1893 =
														CDR(((obj_t) BgL_positionsz00_1721));
													{
														obj_t BgL_positionsz00_3963;

														BgL_positionsz00_3963 = BgL_arg1777z00_1893;
														BgL_positionsz00_1721 = BgL_positionsz00_3963;
														goto BgL_zc3z04anonymousza31625ze3z87_1723;
													}
												}
											else
												{	/* Rgc/rgccompile.scm 513 */
													obj_t BgL_oldz00_1894;

													BgL_cellz00_1903 = BgL_cellz00_1891;
													BgL_smz00_1904 = BgL_charzd2submatcheszd2_1722;
													{
														obj_t BgL_smz00_1907;

														BgL_smz00_1907 = BgL_smz00_1904;
													BgL_zc3z04anonymousza31787ze3z87_1908:
														if (NULLP(BgL_smz00_1907))
															{	/* Rgc/rgccompile.scm 468 */
																BgL_oldz00_1894 = BNIL;
															}
														else
															{	/* Rgc/rgccompile.scm 470 */
																bool_t BgL_test2316z00_3966;

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

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

																		BgL_pairz00_2744 =
																			CAR(((obj_t) BgL_smz00_1907));
																		BgL_auxz00_3967 = CDR(BgL_pairz00_2744);
																	}
																	BgL_test2316z00_3966 =
																		BGl_equalzf3zf3zz__r4_equivalence_6_2z00
																		(BgL_cellz00_1903, BgL_auxz00_3967);
																}
																if (BgL_test2316z00_3966)
																	{	/* Rgc/rgccompile.scm 470 */
																		BgL_oldz00_1894 =
																			CAR(((obj_t) BgL_smz00_1907));
																	}
																else
																	{
																		obj_t BgL_smz00_3974;

																		BgL_smz00_3974 =
																			CDR(((obj_t) BgL_smz00_1907));
																		BgL_smz00_1907 = BgL_smz00_3974;
																		goto BgL_zc3z04anonymousza31787ze3z87_1908;
																	}
															}
													}
													if (PAIRP(BgL_oldz00_1894))
														{	/* Rgc/rgccompile.scm 514 */
															{	/* Rgc/rgccompile.scm 476 */
																obj_t BgL_arg1796z00_2838;

																BgL_arg1796z00_2838 =
																	MAKE_YOUNG_PAIR(BgL_charz00_1890,
																	CAR(BgL_oldz00_1894));
																SET_CAR(BgL_oldz00_1894, BgL_arg1796z00_2838);
															}
															BgL_oldz00_1894;
															{	/* Rgc/rgccompile.scm 517 */
																obj_t BgL_arg1779z00_1896;

																BgL_arg1779z00_1896 =
																	CDR(((obj_t) BgL_positionsz00_1721));
																{
																	obj_t BgL_positionsz00_3984;

																	BgL_positionsz00_3984 = BgL_arg1779z00_1896;
																	BgL_positionsz00_1721 = BgL_positionsz00_3984;
																	goto BgL_zc3z04anonymousza31625ze3z87_1723;
																}
															}
														}
													else
														{	/* Rgc/rgccompile.scm 519 */
															obj_t BgL_arg1781z00_1897;
															obj_t BgL_arg1782z00_1898;

															BgL_arg1781z00_1897 =
																CDR(((obj_t) BgL_positionsz00_1721));
															{	/* Rgc/rgccompile.scm 520 */
																obj_t BgL_arg1783z00_1899;

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

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

																		BgL_list1785z00_1901 =
																			MAKE_YOUNG_PAIR(BgL_charz00_1890, BNIL);
																		BgL_arg1784z00_1900 = BgL_list1785z00_1901;
																	}
																	BgL_arg1783z00_1899 =
																		MAKE_YOUNG_PAIR(BgL_arg1784z00_1900,
																		BgL_cellz00_1891);
																}
																BgL_arg1782z00_1898 =
																	MAKE_YOUNG_PAIR(BgL_arg1783z00_1899,
																	BgL_charzd2submatcheszd2_1722);
															}
															{
																obj_t BgL_charzd2submatcheszd2_3991;
																obj_t BgL_positionsz00_3990;

																BgL_positionsz00_3990 = BgL_arg1781z00_1897;
																BgL_charzd2submatcheszd2_3991 =
																	BgL_arg1782z00_1898;
																BgL_charzd2submatcheszd2_1722 =
																	BgL_charzd2submatcheszd2_3991;
																BgL_positionsz00_1721 = BgL_positionsz00_3990;
																goto BgL_zc3z04anonymousza31625ze3z87_1723;
															}
														}
												}
										}
									}
								}
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1633> */
	obj_t BGl_z62zc3z04anonymousza31633ze3ze5zz__rgc_compilez00(obj_t
		BgL_envz00_3074, obj_t BgL_ezd2113zd2_3076)
	{
		{	/* Rgc/rgccompile.scm 482 */
			{	/* Rgc/rgccompile.scm 482 */
				obj_t BgL_currentz00_3075;

				BgL_currentz00_3075 =
					((obj_t) PROCEDURE_EL_REF(BgL_envz00_3074, (int) (0L)));
				{
					obj_t BgL_charz00_3169;
					obj_t BgL_mz00_3170;
					obj_t BgL_smz00_3171;
					obj_t BgL_charz00_3149;
					obj_t BgL_sz00_3150;
					obj_t BgL_mz00_3151;
					obj_t BgL_smz00_3152;
					obj_t BgL_charz00_3117;
					obj_t BgL_sz00_3118;
					obj_t BgL_mz00_3119;
					obj_t BgL_smz00_3120;
					obj_t BgL_tsz00_3121;
					obj_t BgL_tsmz00_3122;

					if (PAIRP(BgL_ezd2113zd2_3076))
						{	/* Rgc/rgccompile.scm 482 */
							obj_t BgL_cdrzd2125zd2_3182;

							BgL_cdrzd2125zd2_3182 = CDR(BgL_ezd2113zd2_3076);
							if (PAIRP(BgL_cdrzd2125zd2_3182))
								{	/* Rgc/rgccompile.scm 482 */
									obj_t BgL_cdrzd2130zd2_3183;

									BgL_cdrzd2130zd2_3183 = CDR(BgL_cdrzd2125zd2_3182);
									if (NULLP(CAR(BgL_cdrzd2125zd2_3182)))
										{	/* Rgc/rgccompile.scm 482 */
											if (PAIRP(BgL_cdrzd2130zd2_3183))
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_carzd2133zd2_3184;

													BgL_carzd2133zd2_3184 = CAR(BgL_cdrzd2130zd2_3183);
													if (PAIRP(BgL_carzd2133zd2_3184))
														{	/* Rgc/rgccompile.scm 482 */
															if (NULLP(CDR(BgL_cdrzd2130zd2_3183)))
																{	/* Rgc/rgccompile.scm 482 */
																	BgL_charz00_3169 = CAR(BgL_ezd2113zd2_3076);
																	BgL_mz00_3170 = CAR(BgL_carzd2133zd2_3184);
																	BgL_smz00_3171 = CDR(BgL_carzd2133zd2_3184);
																	{	/* Rgc/rgccompile.scm 484 */
																		obj_t BgL_arg1715z00_3172;

																		{	/* Rgc/rgccompile.scm 484 */
																			obj_t BgL_arg1716z00_3173;
																			obj_t BgL_arg1718z00_3174;

																			BgL_arg1716z00_3173 =
																				BGl_compilezd2memberzd2testz00zz__rgc_compilez00
																				(BgL_currentz00_3075, BgL_charz00_3169);
																			{	/* Rgc/rgccompile.scm 485 */
																				obj_t BgL_arg1719z00_3175;

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

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

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

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

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

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

																										BgL_arg1725z00_3181 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2145z00zz__rgc_compilez00,
																											BNIL);
																										BgL_arg1724z00_3180 =
																											MAKE_YOUNG_PAIR(BINT(1L),
																											BgL_arg1725z00_3181);
																									}
																									BgL_arg1723z00_3179 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2182z00zz__rgc_compilez00,
																										BgL_arg1724z00_3180);
																								}
																								BgL_arg1722z00_3178 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1723z00_3179, BNIL);
																							}
																							BgL_arg1721z00_3177 =
																								MAKE_YOUNG_PAIR(BgL_smz00_3171,
																								BgL_arg1722z00_3178);
																						}
																						BgL_arg1720z00_3176 =
																							MAKE_YOUNG_PAIR(BgL_mz00_3170,
																							BgL_arg1721z00_3177);
																					}
																					BgL_arg1719z00_3175 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2210z00zz__rgc_compilez00,
																						BgL_arg1720z00_3176);
																				}
																				BgL_arg1718z00_3174 =
																					MAKE_YOUNG_PAIR(BgL_arg1719z00_3175,
																					BNIL);
																			}
																			BgL_arg1715z00_3172 =
																				MAKE_YOUNG_PAIR(BgL_arg1716z00_3173,
																				BgL_arg1718z00_3174);
																		}
																		return
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2167z00zz__rgc_compilez00,
																			BgL_arg1715z00_3172);
																	}
																}
															else
																{	/* Rgc/rgccompile.scm 482 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2212z00zz__rgc_compilez00,
																		BGl_string2213z00zz__rgc_compilez00,
																		BgL_ezd2113zd2_3076);
																}
														}
													else
														{	/* Rgc/rgccompile.scm 482 */
															return
																BGl_errorz00zz__errorz00
																(BGl_string2212z00zz__rgc_compilez00,
																BGl_string2213z00zz__rgc_compilez00,
																BgL_ezd2113zd2_3076);
														}
												}
											else
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_carzd2218zd2_3185;

													BgL_carzd2218zd2_3185 =
														CAR(((obj_t) BgL_cdrzd2125zd2_3182));
													if (PAIRP(BgL_carzd2218zd2_3185))
														{	/* Rgc/rgccompile.scm 482 */
															obj_t BgL_carzd2223zd2_3186;

															BgL_carzd2223zd2_3186 =
																CAR(BgL_carzd2218zd2_3185);
															if (PAIRP(BgL_carzd2223zd2_3186))
																{	/* Rgc/rgccompile.scm 482 */
																	obj_t BgL_cdrzd2229zd2_3187;

																	BgL_cdrzd2229zd2_3187 =
																		CDR(BgL_carzd2223zd2_3186);
																	if (PAIRP(BgL_cdrzd2229zd2_3187))
																		{	/* Rgc/rgccompile.scm 482 */
																			obj_t BgL_cdrzd2234zd2_3188;

																			BgL_cdrzd2234zd2_3188 =
																				CDR(BgL_cdrzd2229zd2_3187);
																			if (PAIRP(BgL_cdrzd2234zd2_3188))
																				{	/* Rgc/rgccompile.scm 482 */
																					if (NULLP(CDR(BgL_cdrzd2234zd2_3188)))
																						{	/* Rgc/rgccompile.scm 482 */
																							if (NULLP(CDR
																									(BgL_carzd2218zd2_3185)))
																								{	/* Rgc/rgccompile.scm 482 */
																									if (NULLP(CDR(
																												((obj_t)
																													BgL_cdrzd2125zd2_3182))))
																										{	/* Rgc/rgccompile.scm 482 */
																											BgL_charz00_3149 =
																												CAR
																												(BgL_ezd2113zd2_3076);
																											BgL_sz00_3150 =
																												CAR
																												(BgL_carzd2223zd2_3186);
																											BgL_mz00_3151 =
																												CAR
																												(BgL_cdrzd2229zd2_3187);
																											BgL_smz00_3152 =
																												CAR
																												(BgL_cdrzd2234zd2_3188);
																										BgL_tagzd2110zd2_3115:
																											{	/* Rgc/rgccompile.scm 487 */
																												obj_t
																													BgL_arg1726z00_3153;
																												{	/* Rgc/rgccompile.scm 487 */
																													obj_t
																														BgL_arg1727z00_3154;
																													obj_t
																														BgL_arg1728z00_3155;
																													BgL_arg1727z00_3154 =
																														BGl_compilezd2memberzd2testz00zz__rgc_compilez00
																														(BgL_currentz00_3075,
																														BgL_charz00_3149);
																													{	/* Rgc/rgccompile.scm 488 */
																														obj_t
																															BgL_arg1729z00_3156;
																														if (CBOOL
																															(BgL_sz00_3150))
																															{	/* Rgc/rgccompile.scm 491 */
																																obj_t
																																	BgL_arg1730z00_3157;
																																{	/* Rgc/rgccompile.scm 491 */
																																	obj_t
																																		BgL_arg1731z00_3158;
																																	{	/* Rgc/rgccompile.scm 491 */
																																		obj_t
																																			BgL_arg1732z00_3159;
																																		{	/* Rgc/rgccompile.scm 491 */
																																			obj_t
																																				BgL_arg1733z00_3160;
																																			{	/* Rgc/rgccompile.scm 491 */
																																				obj_t
																																					BgL_arg1734z00_3161;
																																				{	/* Rgc/rgccompile.scm 491 */
																																					obj_t
																																						BgL_arg1735z00_3162;
																																					BgL_arg1735z00_3162
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2145z00zz__rgc_compilez00,
																																						BNIL);
																																					BgL_arg1734z00_3161
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BINT
																																						(1L),
																																						BgL_arg1735z00_3162);
																																				}
																																				BgL_arg1733z00_3160
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2182z00zz__rgc_compilez00,
																																					BgL_arg1734z00_3161);
																																			}
																																			BgL_arg1732z00_3159
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1733z00_3160,
																																				BNIL);
																																		}
																																		BgL_arg1731z00_3158
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_smz00_3152,
																																			BgL_arg1732z00_3159);
																																	}
																																	BgL_arg1730z00_3157
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_mz00_3151,
																																		BgL_arg1731z00_3158);
																																}
																																BgL_arg1729z00_3156
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2206z00zz__rgc_compilez00,
																																	BgL_arg1730z00_3157);
																															}
																														else
																															{	/* Rgc/rgccompile.scm 492 */
																																obj_t
																																	BgL_arg1739z00_3163;
																																{	/* Rgc/rgccompile.scm 492 */
																																	obj_t
																																		BgL_arg1740z00_3164;
																																	{	/* Rgc/rgccompile.scm 492 */
																																		obj_t
																																			BgL_arg1741z00_3165;
																																		{	/* Rgc/rgccompile.scm 492 */
																																			obj_t
																																				BgL_arg1742z00_3166;
																																			{	/* Rgc/rgccompile.scm 492 */
																																				obj_t
																																					BgL_arg1743z00_3167;
																																				{	/* Rgc/rgccompile.scm 492 */
																																					obj_t
																																						BgL_arg1744z00_3168;
																																					BgL_arg1744z00_3168
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2145z00zz__rgc_compilez00,
																																						BNIL);
																																					BgL_arg1743z00_3167
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BINT
																																						(1L),
																																						BgL_arg1744z00_3168);
																																				}
																																				BgL_arg1742z00_3166
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2182z00zz__rgc_compilez00,
																																					BgL_arg1743z00_3167);
																																			}
																																			BgL_arg1741z00_3165
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1742z00_3166,
																																				BNIL);
																																		}
																																		BgL_arg1740z00_3164
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_smz00_3152,
																																			BgL_arg1741z00_3165);
																																	}
																																	BgL_arg1739z00_3163
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_mz00_3151,
																																		BgL_arg1740z00_3164);
																																}
																																BgL_arg1729z00_3156
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2208z00zz__rgc_compilez00,
																																	BgL_arg1739z00_3163);
																															}
																														BgL_arg1728z00_3155
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1729z00_3156,
																															BNIL);
																													}
																													BgL_arg1726z00_3153 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1727z00_3154,
																														BgL_arg1728z00_3155);
																												}
																												return
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2167z00zz__rgc_compilez00,
																													BgL_arg1726z00_3153);
																											}
																										}
																									else
																										{	/* Rgc/rgccompile.scm 482 */
																											return
																												BGl_errorz00zz__errorz00
																												(BGl_string2212z00zz__rgc_compilez00,
																												BGl_string2213z00zz__rgc_compilez00,
																												BgL_ezd2113zd2_3076);
																										}
																								}
																							else
																								{	/* Rgc/rgccompile.scm 482 */
																									return
																										BGl_errorz00zz__errorz00
																										(BGl_string2212z00zz__rgc_compilez00,
																										BGl_string2213z00zz__rgc_compilez00,
																										BgL_ezd2113zd2_3076);
																								}
																						}
																					else
																						{	/* Rgc/rgccompile.scm 482 */
																							return
																								BGl_errorz00zz__errorz00
																								(BGl_string2212z00zz__rgc_compilez00,
																								BGl_string2213z00zz__rgc_compilez00,
																								BgL_ezd2113zd2_3076);
																						}
																				}
																			else
																				{	/* Rgc/rgccompile.scm 482 */
																					return
																						BGl_errorz00zz__errorz00
																						(BGl_string2212z00zz__rgc_compilez00,
																						BGl_string2213z00zz__rgc_compilez00,
																						BgL_ezd2113zd2_3076);
																				}
																		}
																	else
																		{	/* Rgc/rgccompile.scm 482 */
																			return
																				BGl_errorz00zz__errorz00
																				(BGl_string2212z00zz__rgc_compilez00,
																				BGl_string2213z00zz__rgc_compilez00,
																				BgL_ezd2113zd2_3076);
																		}
																}
															else
																{	/* Rgc/rgccompile.scm 482 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2212z00zz__rgc_compilez00,
																		BGl_string2213z00zz__rgc_compilez00,
																		BgL_ezd2113zd2_3076);
																}
														}
													else
														{	/* Rgc/rgccompile.scm 482 */
															return
																BGl_errorz00zz__errorz00
																(BGl_string2212z00zz__rgc_compilez00,
																BGl_string2213z00zz__rgc_compilez00,
																BgL_ezd2113zd2_3076);
														}
												}
										}
									else
										{	/* Rgc/rgccompile.scm 482 */
											obj_t BgL_carzd2383zd2_3189;

											BgL_carzd2383zd2_3189 =
												CAR(((obj_t) BgL_cdrzd2125zd2_3182));
											if (PAIRP(BgL_carzd2383zd2_3189))
												{	/* Rgc/rgccompile.scm 482 */
													obj_t BgL_carzd2388zd2_3190;

													BgL_carzd2388zd2_3190 = CAR(BgL_carzd2383zd2_3189);
													if (PAIRP(BgL_carzd2388zd2_3190))
														{	/* Rgc/rgccompile.scm 482 */
															obj_t BgL_cdrzd2394zd2_3191;

															BgL_cdrzd2394zd2_3191 =
																CDR(BgL_carzd2388zd2_3190);
															if (PAIRP(BgL_cdrzd2394zd2_3191))
																{	/* Rgc/rgccompile.scm 482 */
																	obj_t BgL_cdrzd2399zd2_3192;

																	BgL_cdrzd2399zd2_3192 =
																		CDR(BgL_cdrzd2394zd2_3191);
																	if (PAIRP(BgL_cdrzd2399zd2_3192))
																		{	/* Rgc/rgccompile.scm 482 */
																			if (NULLP(CDR(BgL_cdrzd2399zd2_3192)))
																				{	/* Rgc/rgccompile.scm 482 */
																					if (NULLP(CDR(BgL_carzd2383zd2_3189)))
																						{	/* Rgc/rgccompile.scm 482 */
																							if (NULLP(CDR(
																										((obj_t)
																											BgL_cdrzd2125zd2_3182))))
																								{
																									obj_t BgL_smz00_4114;
																									obj_t BgL_mz00_4112;
																									obj_t BgL_sz00_4110;
																									obj_t BgL_charz00_4108;

																									BgL_charz00_4108 =
																										CAR(BgL_ezd2113zd2_3076);
																									BgL_sz00_4110 =
																										CAR(BgL_carzd2388zd2_3190);
																									BgL_mz00_4112 =
																										CAR(BgL_cdrzd2394zd2_3191);
																									BgL_smz00_4114 =
																										CAR(BgL_cdrzd2399zd2_3192);
																									BgL_smz00_3152 =
																										BgL_smz00_4114;
																									BgL_mz00_3151 = BgL_mz00_4112;
																									BgL_sz00_3150 = BgL_sz00_4110;
																									BgL_charz00_3149 =
																										BgL_charz00_4108;
																									goto BgL_tagzd2110zd2_3115;
																								}
																							else
																								{	/* Rgc/rgccompile.scm 482 */
																									obj_t BgL_cdrzd2435zd2_3194;

																									BgL_cdrzd2435zd2_3194 =
																										CDR(
																										((obj_t)
																											BgL_cdrzd2125zd2_3182));
																									{	/* Rgc/rgccompile.scm 482 */
																										obj_t BgL_carzd2442zd2_3195;

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

																											BgL_pairz00_3196 =
																												CAR(
																												((obj_t)
																													BgL_cdrzd2125zd2_3182));
																											BgL_carzd2442zd2_3195 =
																												CAR(BgL_pairz00_3196);
																										}
																										{	/* Rgc/rgccompile.scm 482 */
																											obj_t
																												BgL_cdrzd2451zd2_3197;
																											BgL_cdrzd2451zd2_3197 =
																												CDR(((obj_t)
																													BgL_carzd2442zd2_3195));
																											if (PAIRP
																												(BgL_cdrzd2435zd2_3194))
																												{	/* Rgc/rgccompile.scm 482 */
																													obj_t
																														BgL_carzd2470zd2_3198;
																													BgL_carzd2470zd2_3198
																														=
																														CAR
																														(BgL_cdrzd2435zd2_3194);
																													if (PAIRP
																														(BgL_carzd2470zd2_3198))
																														{	/* Rgc/rgccompile.scm 482 */
																															if (NULLP(CDR
																																	(BgL_cdrzd2435zd2_3194)))
																																{	/* Rgc/rgccompile.scm 482 */
																																	obj_t
																																		BgL_arg1697z00_3199;
																																	obj_t
																																		BgL_arg1698z00_3200;
																																	obj_t
																																		BgL_arg1702z00_3201;
																																	obj_t
																																		BgL_arg1703z00_3202;
																																	obj_t
																																		BgL_arg1705z00_3203;
																																	obj_t
																																		BgL_arg1706z00_3204;
																																	BgL_arg1697z00_3199
																																		=
																																		CAR
																																		(BgL_ezd2113zd2_3076);
																																	BgL_arg1698z00_3200
																																		=
																																		CAR(((obj_t)
																																			BgL_carzd2442zd2_3195));
																																	BgL_arg1702z00_3201
																																		=
																																		CAR(((obj_t)
																																			BgL_cdrzd2451zd2_3197));
																																	{	/* Rgc/rgccompile.scm 482 */
																																		obj_t
																																			BgL_pairz00_3205;
																																		BgL_pairz00_3205
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_cdrzd2451zd2_3197));
																																		BgL_arg1703z00_3202
																																			=
																																			CAR
																																			(BgL_pairz00_3205);
																																	}
																																	BgL_arg1705z00_3203
																																		=
																																		CAR
																																		(BgL_carzd2470zd2_3198);
																																	BgL_arg1706z00_3204
																																		=
																																		CDR
																																		(BgL_carzd2470zd2_3198);
																																	BgL_charz00_3117
																																		=
																																		BgL_arg1697z00_3199;
																																	BgL_sz00_3118
																																		=
																																		BgL_arg1698z00_3200;
																																	BgL_mz00_3119
																																		=
																																		BgL_arg1702z00_3201;
																																	BgL_smz00_3120
																																		=
																																		BgL_arg1703z00_3202;
																																	BgL_tsz00_3121
																																		=
																																		BgL_arg1705z00_3203;
																																	BgL_tsmz00_3122
																																		=
																																		BgL_arg1706z00_3204;
																																	{	/* Rgc/rgccompile.scm 494 */
																																		obj_t
																																			BgL_arg1745z00_3123;
																																		{	/* Rgc/rgccompile.scm 494 */
																																			obj_t
																																				BgL_arg1747z00_3124;
																																			obj_t
																																				BgL_arg1748z00_3125;
																																			BgL_arg1747z00_3124
																																				=
																																				BGl_compilezd2memberzd2testz00zz__rgc_compilez00
																																				(BgL_currentz00_3075,
																																				BgL_charz00_3117);
																																			{	/* Rgc/rgccompile.scm 496 */
																																				obj_t
																																					BgL_arg1749z00_3126;
																																				{	/* Rgc/rgccompile.scm 496 */
																																					obj_t
																																						BgL_arg1750z00_3127;
																																					{	/* Rgc/rgccompile.scm 496 */
																																						obj_t
																																							BgL_arg1754z00_3128;
																																						obj_t
																																							BgL_arg1755z00_3129;
																																						if (CBOOL(BgL_sz00_3118))
																																							{	/* Rgc/rgccompile.scm 499 */
																																								obj_t
																																									BgL_arg1756z00_3130;
																																								{	/* Rgc/rgccompile.scm 499 */
																																									obj_t
																																										BgL_arg1757z00_3131;
																																									{	/* Rgc/rgccompile.scm 499 */
																																										obj_t
																																											BgL_arg1758z00_3132;
																																										{	/* Rgc/rgccompile.scm 499 */
																																											obj_t
																																												BgL_arg1759z00_3133;
																																											{	/* Rgc/rgccompile.scm 499 */
																																												obj_t
																																													BgL_arg1760z00_3134;
																																												{	/* Rgc/rgccompile.scm 499 */
																																													obj_t
																																														BgL_arg1761z00_3135;
																																													BgL_arg1761z00_3135
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2145z00zz__rgc_compilez00,
																																														BNIL);
																																													BgL_arg1760z00_3134
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BINT
																																														(1L),
																																														BgL_arg1761z00_3135);
																																												}
																																												BgL_arg1759z00_3133
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2182z00zz__rgc_compilez00,
																																													BgL_arg1760z00_3134);
																																											}
																																											BgL_arg1758z00_3132
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1759z00_3133,
																																												BNIL);
																																										}
																																										BgL_arg1757z00_3131
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_smz00_3120,
																																											BgL_arg1758z00_3132);
																																									}
																																									BgL_arg1756z00_3130
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_mz00_3119,
																																										BgL_arg1757z00_3131);
																																								}
																																								BgL_arg1754z00_3128
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2206z00zz__rgc_compilez00,
																																									BgL_arg1756z00_3130);
																																							}
																																						else
																																							{	/* Rgc/rgccompile.scm 500 */
																																								obj_t
																																									BgL_arg1762z00_3136;
																																								{	/* Rgc/rgccompile.scm 500 */
																																									obj_t
																																										BgL_arg1763z00_3137;
																																									{	/* Rgc/rgccompile.scm 500 */
																																										obj_t
																																											BgL_arg1764z00_3138;
																																										{	/* Rgc/rgccompile.scm 500 */
																																											obj_t
																																												BgL_arg1765z00_3139;
																																											{	/* Rgc/rgccompile.scm 500 */
																																												obj_t
																																													BgL_arg1766z00_3140;
																																												{	/* Rgc/rgccompile.scm 500 */
																																													obj_t
																																														BgL_arg1767z00_3141;
																																													BgL_arg1767z00_3141
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2145z00zz__rgc_compilez00,
																																														BNIL);
																																													BgL_arg1766z00_3140
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BINT
																																														(1L),
																																														BgL_arg1767z00_3141);
																																												}
																																												BgL_arg1765z00_3139
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2182z00zz__rgc_compilez00,
																																													BgL_arg1766z00_3140);
																																											}
																																											BgL_arg1764z00_3138
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1765z00_3139,
																																												BNIL);
																																										}
																																										BgL_arg1763z00_3137
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_smz00_3120,
																																											BgL_arg1764z00_3138);
																																									}
																																									BgL_arg1762z00_3136
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_mz00_3119,
																																										BgL_arg1763z00_3137);
																																								}
																																								BgL_arg1754z00_3128
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2208z00zz__rgc_compilez00,
																																									BgL_arg1762z00_3136);
																																							}
																																						{	/* Rgc/rgccompile.scm 501 */
																																							obj_t
																																								BgL_arg1768z00_3142;
																																							{	/* Rgc/rgccompile.scm 501 */
																																								obj_t
																																									BgL_arg1769z00_3143;
																																								{	/* Rgc/rgccompile.scm 501 */
																																									obj_t
																																										BgL_arg1770z00_3144;
																																									{	/* Rgc/rgccompile.scm 501 */
																																										obj_t
																																											BgL_arg1771z00_3145;
																																										{	/* Rgc/rgccompile.scm 501 */
																																											obj_t
																																												BgL_arg1772z00_3146;
																																											{	/* Rgc/rgccompile.scm 501 */
																																												obj_t
																																													BgL_arg1773z00_3147;
																																												{	/* Rgc/rgccompile.scm 501 */
																																													obj_t
																																														BgL_arg1775z00_3148;
																																													BgL_arg1775z00_3148
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2145z00zz__rgc_compilez00,
																																														BNIL);
																																													BgL_arg1773z00_3147
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BINT
																																														(1L),
																																														BgL_arg1775z00_3148);
																																												}
																																												BgL_arg1772z00_3146
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2182z00zz__rgc_compilez00,
																																													BgL_arg1773z00_3147);
																																											}
																																											BgL_arg1771z00_3145
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1772z00_3146,
																																												BNIL);
																																										}
																																										BgL_arg1770z00_3144
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_tsmz00_3122,
																																											BgL_arg1771z00_3145);
																																									}
																																									BgL_arg1769z00_3143
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_tsz00_3121,
																																										BgL_arg1770z00_3144);
																																								}
																																								BgL_arg1768z00_3142
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2210z00zz__rgc_compilez00,
																																									BgL_arg1769z00_3143);
																																							}
																																							BgL_arg1755z00_3129
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1768z00_3142,
																																								BNIL);
																																						}
																																						BgL_arg1750z00_3127
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1754z00_3128,
																																							BgL_arg1755z00_3129);
																																					}
																																					BgL_arg1749z00_3126
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2198z00zz__rgc_compilez00,
																																						BgL_arg1750z00_3127);
																																				}
																																				BgL_arg1748z00_3125
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1749z00_3126,
																																					BNIL);
																																			}
																																			BgL_arg1745z00_3123
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1747z00_3124,
																																				BgL_arg1748z00_3125);
																																		}
																																		return
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2167z00zz__rgc_compilez00,
																																			BgL_arg1745z00_3123);
																																	}
																																}
																															else
																																{	/* Rgc/rgccompile.scm 482 */
																																	return
																																		BGl_errorz00zz__errorz00
																																		(BGl_string2212z00zz__rgc_compilez00,
																																		BGl_string2213z00zz__rgc_compilez00,
																																		BgL_ezd2113zd2_3076);
																																}
																														}
																													else
																														{	/* Rgc/rgccompile.scm 482 */
																															return
																																BGl_errorz00zz__errorz00
																																(BGl_string2212z00zz__rgc_compilez00,
																																BGl_string2213z00zz__rgc_compilez00,
																																BgL_ezd2113zd2_3076);
																														}
																												}
																											else
																												{	/* Rgc/rgccompile.scm 482 */
																													return
																														BGl_errorz00zz__errorz00
																														(BGl_string2212z00zz__rgc_compilez00,
																														BGl_string2213z00zz__rgc_compilez00,
																														BgL_ezd2113zd2_3076);
																												}
																										}
																									}
																								}
																						}
																					else
																						{	/* Rgc/rgccompile.scm 482 */
																							return
																								BGl_errorz00zz__errorz00
																								(BGl_string2212z00zz__rgc_compilez00,
																								BGl_string2213z00zz__rgc_compilez00,
																								BgL_ezd2113zd2_3076);
																						}
																				}
																			else
																				{	/* Rgc/rgccompile.scm 482 */
																					return
																						BGl_errorz00zz__errorz00
																						(BGl_string2212z00zz__rgc_compilez00,
																						BGl_string2213z00zz__rgc_compilez00,
																						BgL_ezd2113zd2_3076);
																				}
																		}
																	else
																		{	/* Rgc/rgccompile.scm 482 */
																			return
																				BGl_errorz00zz__errorz00
																				(BGl_string2212z00zz__rgc_compilez00,
																				BGl_string2213z00zz__rgc_compilez00,
																				BgL_ezd2113zd2_3076);
																		}
																}
															else
																{	/* Rgc/rgccompile.scm 482 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string2212z00zz__rgc_compilez00,
																		BGl_string2213z00zz__rgc_compilez00,
																		BgL_ezd2113zd2_3076);
																}
														}
													else
														{	/* Rgc/rgccompile.scm 482 */
															return
																BGl_errorz00zz__errorz00
																(BGl_string2212z00zz__rgc_compilez00,
																BGl_string2213z00zz__rgc_compilez00,
																BgL_ezd2113zd2_3076);
														}
												}
											else
												{	/* Rgc/rgccompile.scm 482 */
													return
														BGl_errorz00zz__errorz00
														(BGl_string2212z00zz__rgc_compilez00,
														BGl_string2213z00zz__rgc_compilez00,
														BgL_ezd2113zd2_3076);
												}
										}
								}
							else
								{	/* Rgc/rgccompile.scm 482 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2212z00zz__rgc_compilez00,
										BGl_string2213z00zz__rgc_compilez00, BgL_ezd2113zd2_3076);
								}
						}
					else
						{	/* Rgc/rgccompile.scm 482 */
							return
								BGl_errorz00zz__errorz00(BGl_string2212z00zz__rgc_compilez00,
								BGl_string2213z00zz__rgc_compilez00, BgL_ezd2113zd2_3076);
						}
				}
			}
		}

	}



/* 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_string2214z00zz__rgc_compilez00));
			BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(477555221L,
				BSTRING_TO_STRING(BGl_string2214z00zz__rgc_compilez00));
			BGl_modulezd2initializa7ationz75zz__rgc_setz00(225075643L,
				BSTRING_TO_STRING(BGl_string2214z00zz__rgc_compilez00));
			BGl_modulezd2initializa7ationz75zz__rgc_configz00(428274736L,
				BSTRING_TO_STRING(BGl_string2214z00zz__rgc_compilez00));
			return
				BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2214z00zz__rgc_compilez00));
		}

	}

#ifdef __cplusplus
}
#endif
