/*===========================================================================*/
/*   (Expand/exit.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -q -afile .afile -fsharing -fno-reflection -cc gcc -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -unsafev -gno-error-localization -no-hello -O2 -rm -unsafe -s -stdc -indent Expand/exit.scm) */
/* 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_EXPAND_EXIT_TYPE_DEFINITIONS
#define BGL_EXPAND_EXIT_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_backendz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_languagez00;
		obj_t BgL_srfi0z00;
		obj_t BgL_namez00;
		obj_t BgL_externzd2variableszd2;
		obj_t BgL_externzd2functionszd2;
		obj_t BgL_externzd2typeszd2;
		obj_t BgL_variablesz00;
		obj_t BgL_functionsz00;
		obj_t BgL_typesz00;
		bool_t BgL_typedz00;
		obj_t BgL_heapzd2suffixzd2;
		obj_t BgL_heapzd2compatiblezd2;
		bool_t BgL_callccz00;
		bool_t BgL_qualifiedzd2typeszd2;
		bool_t BgL_effectzb2zb2;
		bool_t BgL_removezd2emptyzd2letz00;
		bool_t BgL_foreignzd2closurezd2;
		bool_t BgL_typedzd2eqzd2;
		bool_t BgL_tracezd2supportzd2;
		obj_t BgL_foreignzd2clausezd2supportz00;
		obj_t BgL_debugzd2supportzd2;
		bool_t BgL_pragmazd2supportzd2;
		bool_t BgL_tvectorzd2descrzd2supportz00;
		bool_t BgL_requirezd2tailczd2;
		obj_t BgL_registersz00;
		obj_t BgL_pregistersz00;
		bool_t BgL_boundzd2checkzd2;
		bool_t BgL_typezd2checkzd2;
		bool_t BgL_typedzd2funcallzd2;
	}                 *BgL_backendz00_bglt;


#endif													// BGL_EXPAND_EXIT_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zzexpand_exitz00 = BUNSPEC;
	static bool_t BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zzexpand_exitz00(void);
	BGL_IMPORT obj_t bgl_reverse(obj_t);
	static obj_t BGl_genericzd2initzd2zzexpand_exitz00(void);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2setzd2exitz00zzexpand_exitz00(obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2setzd2exitz62zzexpand_exitz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zzexpand_exitz00(void);
	extern obj_t BGl_thezd2backendzd2zzbackend_backendz00(void);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2bindzd2exitz00zzexpand_exitz00(obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zzexpand_exitz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2unwindzd2protectz00zzexpand_exitz00(obj_t, obj_t);
	extern obj_t BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00(obj_t);
	static obj_t BGl_z62expandzd2withzd2handlerz62zzexpand_exitz00(obj_t, obj_t,
		obj_t);
	BGL_IMPORT obj_t bgl_bignum_sub(obj_t, obj_t);
	BGL_IMPORT obj_t bgl_long_to_bignum(long);
	static bool_t BGl_tailreczf3ze70z14zzexpand_exitz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_addzd2traceze70z35zzexpand_exitz00(obj_t, obj_t);
	static obj_t BGl_z62expandzd2unwindzd2protectz62zzexpand_exitz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_internalzd2definitionzf3z21zzexpand_lambdaz00;
	static obj_t BGl_z62expandzd2bindzd2exitz62zzexpand_exitz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_replacez12z12zztools_miscz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_takez00zz__r4_pairs_and_lists_6_3z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_exitz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzbackend_backendz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzexpand_epsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzexpand_expanderz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2withzd2handlerz00zzexpand_exitz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2jumpzd2exitz00zzexpand_exitz00(obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zzexpand_exitz00(void);
	BGL_IMPORT bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_exitz00(void);
	BGL_IMPORT long bgl_list_length(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zzexpand_exitz00(void);
	static obj_t BGl_returnz12ze70zf5zzexpand_exitz00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zzexpand_exitz00(void);
	BGL_IMPORT int BGl_bigloozd2compilerzd2debugz00zz__paramz00(void);
	BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	extern obj_t BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(obj_t);
	static obj_t BGl_z62expandzd2jumpzd2exitz62zzexpand_exitz00(obj_t, obj_t,
		obj_t);
	static bool_t BGl_tracezf3ze70z14zzexpand_exitz00(void);
	static bool_t BGl_tracezf3ze71z14zzexpand_exitz00(void);
	BGL_IMPORT obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_IMPORT obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	static obj_t __cnst[54];


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2withzd2handlerzd2envzd2zzexpand_exitz00,
		BgL_bgl_za762expandza7d2with2623z00,
		BGl_z62expandzd2withzd2handlerz62zzexpand_exitz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2setzd2exitzd2envzd2zzexpand_exitz00,
		BgL_bgl_za762expandza7d2setza72624za7,
		BGl_z62expandzd2setzd2exitz62zzexpand_exitz00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2615z00zzexpand_exitz00,
		BgL_bgl_string2615za700za7za7e2625za7, "Illegal 'jump-exit' form", 24);
	      DEFINE_STRING(BGl_string2616z00zzexpand_exitz00,
		BgL_bgl_string2616za700za7za7e2626za7, "Illegal `set-exit' form", 23);
	      DEFINE_STRING(BGl_string2617z00zzexpand_exitz00,
		BgL_bgl_string2617za700za7za7e2627za7, "Illegal `bind-exit' form", 24);
	      DEFINE_STRING(BGl_string2618z00zzexpand_exitz00,
		BgL_bgl_string2618za700za7za7e2628za7, "Illegal `unwind-protect' form", 29);
	      DEFINE_STRING(BGl_string2619z00zzexpand_exitz00,
		BgL_bgl_string2619za700za7za7e2629za7, "Illegal `with-handler' form", 27);
	      DEFINE_STRING(BGl_string2620z00zzexpand_exitz00,
		BgL_bgl_string2620za700za7za7e2630za7, "expand_exit", 11);
	      DEFINE_STRING(BGl_string2621z00zzexpand_exitz00,
		BgL_bgl_string2621za700za7za7e2631za7,
		"cell-ref sigsetmask eq? unwind-protect $acons $env-get-error-handler $make-stack-cell errhandler handler escape cell err hds ohs exitd-push-protect! lambda protect $set-error-handler! $get-exitd-top $env-set-error-handler! exitd-pop-protect! exitd-protect-set! cons $exitd-protect exitd bind-exit if quote $set-trace-stacksp $get-trace-stacksp tmp :env letrec* letrec let* labels @ unwind-stack-until! __bexit $current-dynamic-env env begin let $env-pop-exit! $env-get-exitd-top $env-push-exit! tracesp res val an_exitd an_exit set-exit :onexit jump-exit ",
		555);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2unwindzd2protectzd2envzd2zzexpand_exitz00,
		BgL_bgl_za762expandza7d2unwi2632z00,
		BGl_z62expandzd2unwindzd2protectz62zzexpand_exitz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2bindzd2exitzd2envzd2zzexpand_exitz00,
		BgL_bgl_za762expandza7d2bind2633z00,
		BGl_z62expandzd2bindzd2exitz62zzexpand_exitz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2jumpzd2exitzd2envzd2zzexpand_exitz00,
		BgL_bgl_za762expandza7d2jump2634z00,
		BGl_z62expandzd2jumpzd2exitz62zzexpand_exitz00, 0L, BUNSPEC, 2);

/* 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_requirezd2initializa7ationz75zzexpand_exitz00));
#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_modulezd2initializa7ationz75zzexpand_exitz00(long
		BgL_checksumz00_2234, char *BgL_fromz00_2235)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzexpand_exitz00))
				{
					BGl_requirezd2initializa7ationz75zzexpand_exitz00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzexpand_exitz00();
					BGl_libraryzd2moduleszd2initz00zzexpand_exitz00();
					BGl_cnstzd2initzd2zzexpand_exitz00();
					BGl_importedzd2moduleszd2initz00zzexpand_exitz00();
					return BGl_toplevelzd2initzd2zzexpand_exitz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"expand_exit");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__errorz00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__paramz00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__prognz00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L, "expand_exit");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"expand_exit");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"expand_exit");
			BGl_modulezd2initializa7ationz75zz__biglooz00(0L, "expand_exit");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			{	/* Expand/exit.scm 15 */
				obj_t BgL_cportz00_2223;

				{	/* Expand/exit.scm 15 */
					obj_t BgL_stringz00_2230;

					BgL_stringz00_2230 = BGl_string2621z00zzexpand_exitz00;
					{	/* Expand/exit.scm 15 */
						obj_t BgL_startz00_2231;

						BgL_startz00_2231 = BINT(0L);
						{	/* Expand/exit.scm 15 */
							obj_t BgL_endz00_2232;

							BgL_endz00_2232 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_2230)));
							{	/* Expand/exit.scm 15 */

								BgL_cportz00_2223 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_2230, BgL_startz00_2231, BgL_endz00_2232);
				}}}}
				{
					long BgL_iz00_2224;

					BgL_iz00_2224 = 53L;
				BgL_loopz00_2225:
					if ((BgL_iz00_2224 == -1L))
						{	/* Expand/exit.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* Expand/exit.scm 15 */
							{	/* Expand/exit.scm 15 */
								obj_t BgL_arg2622z00_2226;

								{	/* Expand/exit.scm 15 */

									{	/* Expand/exit.scm 15 */
										obj_t BgL_locationz00_2228;

										BgL_locationz00_2228 = BBOOL(((bool_t) 0));
										{	/* Expand/exit.scm 15 */

											BgL_arg2622z00_2226 =
												BGl_readz00zz__readerz00(BgL_cportz00_2223,
												BgL_locationz00_2228);
										}
									}
								}
								{	/* Expand/exit.scm 15 */
									int BgL_tmpz00_2264;

									BgL_tmpz00_2264 = (int) (BgL_iz00_2224);
									CNST_TABLE_SET(BgL_tmpz00_2264, BgL_arg2622z00_2226);
							}}
							{	/* Expand/exit.scm 15 */
								int BgL_auxz00_2229;

								BgL_auxz00_2229 = (int) ((BgL_iz00_2224 - 1L));
								{
									long BgL_iz00_2269;

									BgL_iz00_2269 = (long) (BgL_auxz00_2229);
									BgL_iz00_2224 = BgL_iz00_2269;
									goto BgL_loopz00_2225;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			return BUNSPEC;
		}

	}



/* expand-jump-exit */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2jumpzd2exitz00zzexpand_exitz00(obj_t
		BgL_xz00_27, obj_t BgL_ez00_28)
	{
		{	/* Expand/exit.scm 39 */
			{
				obj_t BgL_exitz00_215;
				obj_t BgL_valuez00_216;

				if (PAIRP(BgL_xz00_27))
					{	/* Expand/exit.scm 40 */
						obj_t BgL_cdrzd2367zd2_221;

						BgL_cdrzd2367zd2_221 = CDR(((obj_t) BgL_xz00_27));
						if (PAIRP(BgL_cdrzd2367zd2_221))
							{	/* Expand/exit.scm 40 */
								BgL_exitz00_215 = CAR(BgL_cdrzd2367zd2_221);
								BgL_valuez00_216 = CDR(BgL_cdrzd2367zd2_221);
								{	/* Expand/exit.scm 42 */
									obj_t BgL_newz00_225;

									{	/* Expand/exit.scm 42 */
										obj_t BgL_arg1185z00_226;

										{	/* Expand/exit.scm 42 */
											obj_t BgL_arg1191z00_227;
											obj_t BgL_arg1192z00_228;

											BgL_arg1191z00_227 =
												(VA_PROCEDUREP(BgL_ez00_28) ? ((obj_t(*)(obj_t,
															...)) PROCEDURE_ENTRY(BgL_ez00_28)) (BgL_ez00_28,
													BgL_exitz00_215, BgL_ez00_28,
													BEOA) : ((obj_t(*)(obj_t, obj_t,
															obj_t))
													PROCEDURE_ENTRY(BgL_ez00_28)) (BgL_ez00_28,
													BgL_exitz00_215, BgL_ez00_28));
											{	/* Expand/exit.scm 42 */
												obj_t BgL_arg1196z00_229;

												{	/* Expand/exit.scm 42 */
													obj_t BgL_arg1197z00_230;

													BgL_arg1197z00_230 =
														BGl_expandzd2prognzd2zz__prognz00(BgL_valuez00_216);
													BgL_arg1196z00_229 =
														(VA_PROCEDUREP(BgL_ez00_28) ? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_ez00_28)) (BgL_ez00_28,
															BgL_arg1197z00_230, BgL_ez00_28,
															BEOA) : ((obj_t(*)(obj_t, obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_ez00_28)) (BgL_ez00_28,
															BgL_arg1197z00_230, BgL_ez00_28));
												}
												BgL_arg1192z00_228 =
													MAKE_YOUNG_PAIR(BgL_arg1196z00_229, BNIL);
											}
											BgL_arg1185z00_226 =
												MAKE_YOUNG_PAIR(BgL_arg1191z00_227, BgL_arg1192z00_228);
										}
										BgL_newz00_225 =
											MAKE_YOUNG_PAIR(CNST_TABLE_REF(0L), BgL_arg1185z00_226);
									}
									return
										BGl_replacez12z12zztools_miscz00(BgL_xz00_27,
										BgL_newz00_225);
								}
							}
						else
							{	/* Expand/exit.scm 40 */
							BgL_tagzd2360zd2_218:
								return
									BGl_errorz00zz__errorz00(BFALSE,
									BGl_string2615z00zzexpand_exitz00, BgL_xz00_27);
							}
					}
				else
					{	/* Expand/exit.scm 40 */
						goto BgL_tagzd2360zd2_218;
					}
			}
		}

	}



/* &expand-jump-exit */
	obj_t BGl_z62expandzd2jumpzd2exitz62zzexpand_exitz00(obj_t BgL_envz00_2206,
		obj_t BgL_xz00_2207, obj_t BgL_ez00_2208)
	{
		{	/* Expand/exit.scm 39 */
			return
				BGl_expandzd2jumpzd2exitz00zzexpand_exitz00(BgL_xz00_2207,
				BgL_ez00_2208);
		}

	}



/* expand-set-exit */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2setzd2exitz00zzexpand_exitz00(obj_t
		BgL_xz00_29, obj_t BgL_ez00_30)
	{
		{	/* Expand/exit.scm 50 */
			{
				obj_t BgL_exitz00_235;
				obj_t BgL_bodyz00_236;
				obj_t BgL_exitz00_231;
				obj_t BgL_bodyz00_232;
				obj_t BgL_onexitz00_233;

				if (PAIRP(BgL_xz00_29))
					{	/* Expand/exit.scm 51 */
						obj_t BgL_cdrzd2385zd2_241;

						BgL_cdrzd2385zd2_241 = CDR(((obj_t) BgL_xz00_29));
						if (PAIRP(BgL_cdrzd2385zd2_241))
							{	/* Expand/exit.scm 51 */
								obj_t BgL_carzd2389zd2_243;
								obj_t BgL_cdrzd2390zd2_244;

								BgL_carzd2389zd2_243 = CAR(BgL_cdrzd2385zd2_241);
								BgL_cdrzd2390zd2_244 = CDR(BgL_cdrzd2385zd2_241);
								if (PAIRP(BgL_carzd2389zd2_243))
									{	/* Expand/exit.scm 51 */
										if (NULLP(CDR(BgL_carzd2389zd2_243)))
											{	/* Expand/exit.scm 51 */
												if (PAIRP(BgL_cdrzd2390zd2_244))
													{	/* Expand/exit.scm 51 */
														obj_t BgL_cdrzd2398zd2_249;

														BgL_cdrzd2398zd2_249 = CDR(BgL_cdrzd2390zd2_244);
														if (PAIRP(BgL_cdrzd2398zd2_249))
															{	/* Expand/exit.scm 51 */
																obj_t BgL_cdrzd2402zd2_251;

																BgL_cdrzd2402zd2_251 =
																	CDR(BgL_cdrzd2398zd2_249);
																if (
																	(CAR(BgL_cdrzd2398zd2_249) ==
																		CNST_TABLE_REF(1L)))
																	{	/* Expand/exit.scm 51 */
																		if (PAIRP(BgL_cdrzd2402zd2_251))
																			{	/* Expand/exit.scm 51 */
																				if (NULLP(CDR(BgL_cdrzd2402zd2_251)))
																					{	/* Expand/exit.scm 51 */
																						BgL_exitz00_231 =
																							CAR(BgL_carzd2389zd2_243);
																						BgL_bodyz00_232 =
																							CAR(BgL_cdrzd2390zd2_244);
																						BgL_onexitz00_233 =
																							CAR(BgL_cdrzd2402zd2_251);
																						{	/* Expand/exit.scm 53 */
																							obj_t BgL_newz00_271;

																							{	/* Expand/exit.scm 53 */
																								obj_t BgL_arg1226z00_272;

																								{	/* Expand/exit.scm 53 */
																									obj_t BgL_arg1228z00_273;
																									obj_t BgL_arg1232z00_274;

																									BgL_arg1228z00_273 =
																										MAKE_YOUNG_PAIR
																										(BgL_exitz00_231, BNIL);
																									{	/* Expand/exit.scm 53 */
																										obj_t BgL_arg1233z00_275;
																										obj_t BgL_arg1234z00_276;

																										BgL_arg1233z00_275 =
																											(VA_PROCEDUREP
																											(BgL_ez00_30)
																											? ((obj_t(*)(obj_t,
																														...))
																												PROCEDURE_ENTRY
																												(BgL_ez00_30))
																											(BgL_ez00_30,
																												BgL_bodyz00_232,
																												BgL_ez00_30,
																												BEOA)
																											: ((obj_t(*)(obj_t, obj_t,
																														obj_t))
																												PROCEDURE_ENTRY
																												(BgL_ez00_30))
																											(BgL_ez00_30,
																												BgL_bodyz00_232,
																												BgL_ez00_30));
																										{	/* Expand/exit.scm 53 */
																											obj_t BgL_arg1237z00_277;

																											{	/* Expand/exit.scm 53 */
																												obj_t
																													BgL_arg1240z00_278;
																												BgL_arg1240z00_278 =
																													(VA_PROCEDUREP
																													(BgL_ez00_30)
																													? ((obj_t(*)(obj_t,
																																...))
																														PROCEDURE_ENTRY
																														(BgL_ez00_30))
																													(BgL_ez00_30,
																														BgL_onexitz00_233,
																														BgL_ez00_30,
																														BEOA)
																													: ((obj_t(*)(obj_t,
																																obj_t,
																																obj_t))
																														PROCEDURE_ENTRY
																														(BgL_ez00_30))
																													(BgL_ez00_30,
																														BgL_onexitz00_233,
																														BgL_ez00_30));
																												BgL_arg1237z00_277 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1240z00_278,
																													BNIL);
																											}
																											BgL_arg1234z00_276 =
																												MAKE_YOUNG_PAIR
																												(CNST_TABLE_REF(1L),
																												BgL_arg1237z00_277);
																										}
																										BgL_arg1232z00_274 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1233z00_275,
																											BgL_arg1234z00_276);
																									}
																									BgL_arg1226z00_272 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1228z00_273,
																										BgL_arg1232z00_274);
																								}
																								BgL_newz00_271 =
																									MAKE_YOUNG_PAIR(CNST_TABLE_REF
																									(2L), BgL_arg1226z00_272);
																							}
																							return
																								BGl_replacez12z12zztools_miscz00
																								(BgL_xz00_29, BgL_newz00_271);
																						}
																					}
																				else
																					{	/* Expand/exit.scm 51 */
																					BgL_tagzd2376zd2_238:
																						return
																							BGl_errorz00zz__errorz00(BFALSE,
																							BGl_string2616z00zzexpand_exitz00,
																							BgL_xz00_29);
																					}
																			}
																		else
																			{	/* Expand/exit.scm 51 */
																				goto BgL_tagzd2376zd2_238;
																			}
																	}
																else
																	{	/* Expand/exit.scm 51 */
																		goto BgL_tagzd2376zd2_238;
																	}
															}
														else
															{	/* Expand/exit.scm 51 */
																obj_t BgL_cdrzd2438zd2_263;

																BgL_cdrzd2438zd2_263 =
																	CDR(((obj_t) BgL_cdrzd2385zd2_241));
																if (NULLP(CDR(((obj_t) BgL_cdrzd2438zd2_263))))
																	{	/* Expand/exit.scm 51 */
																		obj_t BgL_arg1221z00_266;
																		obj_t BgL_arg1222z00_267;

																		{	/* Expand/exit.scm 51 */
																			obj_t BgL_pairz00_1846;

																			BgL_pairz00_1846 =
																				CAR(((obj_t) BgL_cdrzd2385zd2_241));
																			BgL_arg1221z00_266 =
																				CAR(BgL_pairz00_1846);
																		}
																		BgL_arg1222z00_267 =
																			CAR(((obj_t) BgL_cdrzd2438zd2_263));
																		BgL_exitz00_235 = BgL_arg1221z00_266;
																		BgL_bodyz00_236 = BgL_arg1222z00_267;
																		{	/* Expand/exit.scm 56 */
																			obj_t BgL_newz00_279;

																			{	/* Expand/exit.scm 56 */
																				obj_t BgL_arg1241z00_280;

																				{	/* Expand/exit.scm 56 */
																					obj_t BgL_arg1242z00_281;
																					obj_t BgL_arg1244z00_282;

																					BgL_arg1242z00_281 =
																						MAKE_YOUNG_PAIR(BgL_exitz00_235,
																						BNIL);
																					{	/* Expand/exit.scm 56 */
																						obj_t BgL_arg1246z00_283;

																						BgL_arg1246z00_283 =
																							(VA_PROCEDUREP(BgL_ez00_30)
																							? ((obj_t(*)(obj_t,
																										...))
																								PROCEDURE_ENTRY(BgL_ez00_30))
																							(BgL_ez00_30, BgL_bodyz00_236,
																								BgL_ez00_30,
																								BEOA) : ((obj_t(*)(obj_t, obj_t,
																										obj_t))
																								PROCEDURE_ENTRY(BgL_ez00_30))
																							(BgL_ez00_30, BgL_bodyz00_236,
																								BgL_ez00_30));
																						BgL_arg1244z00_282 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1246z00_283, BNIL);
																					}
																					BgL_arg1241z00_280 =
																						MAKE_YOUNG_PAIR(BgL_arg1242z00_281,
																						BgL_arg1244z00_282);
																				}
																				BgL_newz00_279 =
																					MAKE_YOUNG_PAIR(CNST_TABLE_REF(2L),
																					BgL_arg1241z00_280);
																			}
																			return
																				BGl_replacez12z12zztools_miscz00
																				(BgL_xz00_29, BgL_newz00_279);
																		}
																	}
																else
																	{	/* Expand/exit.scm 51 */
																		goto BgL_tagzd2376zd2_238;
																	}
															}
													}
												else
													{	/* Expand/exit.scm 51 */
														goto BgL_tagzd2376zd2_238;
													}
											}
										else
											{	/* Expand/exit.scm 51 */
												goto BgL_tagzd2376zd2_238;
											}
									}
								else
									{	/* Expand/exit.scm 51 */
										goto BgL_tagzd2376zd2_238;
									}
							}
						else
							{	/* Expand/exit.scm 51 */
								goto BgL_tagzd2376zd2_238;
							}
					}
				else
					{	/* Expand/exit.scm 51 */
						goto BgL_tagzd2376zd2_238;
					}
			}
		}

	}



/* &expand-set-exit */
	obj_t BGl_z62expandzd2setzd2exitz62zzexpand_exitz00(obj_t BgL_envz00_2209,
		obj_t BgL_xz00_2210, obj_t BgL_ez00_2211)
	{
		{	/* Expand/exit.scm 50 */
			return
				BGl_expandzd2setzd2exitz00zzexpand_exitz00(BgL_xz00_2210,
				BgL_ez00_2211);
		}

	}



/* expand-bind-exit */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2bindzd2exitz00zzexpand_exitz00(obj_t
		BgL_xz00_31, obj_t BgL_ez00_32)
	{
		{	/* Expand/exit.scm 64 */
			{
				obj_t BgL_exitz00_1207;
				obj_t BgL_bodyz00_1208;
				obj_t BgL_envz00_1277;
				obj_t BgL_exitz00_1278;
				obj_t BgL_bodyz00_1279;
				obj_t BgL_envz00_1320;
				obj_t BgL_exitz00_1321;
				obj_t BgL_bodyz00_1322;
				obj_t BgL_onexitz00_1323;

				{
					obj_t BgL_exitz00_296;
					obj_t BgL_exprsz00_297;
					obj_t BgL_envz00_299;
					obj_t BgL_exitz00_300;
					obj_t BgL_bodyz00_301;
					obj_t BgL_envz00_303;
					obj_t BgL_exitz00_304;
					obj_t BgL_bodyz00_305;
					obj_t BgL_onexitz00_306;

					if (PAIRP(BgL_xz00_31))
						{	/* Expand/exit.scm 197 */
							obj_t BgL_cdrzd21278zd2_311;

							BgL_cdrzd21278zd2_311 = CDR(((obj_t) BgL_xz00_31));
							if (PAIRP(BgL_cdrzd21278zd2_311))
								{	/* Expand/exit.scm 197 */
									obj_t BgL_carzd21281zd2_313;
									obj_t BgL_cdrzd21282zd2_314;

									BgL_carzd21281zd2_313 = CAR(BgL_cdrzd21278zd2_311);
									BgL_cdrzd21282zd2_314 = CDR(BgL_cdrzd21278zd2_311);
									if (PAIRP(BgL_carzd21281zd2_313))
										{	/* Expand/exit.scm 197 */
											obj_t BgL_exitz00_316;

											BgL_exitz00_316 = CAR(BgL_carzd21281zd2_313);
											if (NULLP(CDR(BgL_carzd21281zd2_313)))
												{	/* Expand/exit.scm 197 */
													if (PAIRP(BgL_cdrzd21282zd2_314))
														{	/* Expand/exit.scm 197 */
															obj_t BgL_carzd21289zd2_320;

															BgL_carzd21289zd2_320 =
																CAR(BgL_cdrzd21282zd2_314);
															if (PAIRP(BgL_carzd21289zd2_320))
																{	/* Expand/exit.scm 197 */
																	obj_t BgL_cdrzd21294zd2_322;

																	BgL_cdrzd21294zd2_322 =
																		CDR(BgL_carzd21289zd2_320);
																	if (
																		(BgL_exitz00_316 ==
																			CAR(BgL_carzd21289zd2_320)))
																		{	/* Expand/exit.scm 197 */
																			if (PAIRP(BgL_cdrzd21294zd2_322))
																				{	/* Expand/exit.scm 197 */
																					if (NULLP(CDR(BgL_cdrzd21294zd2_322)))
																						{	/* Expand/exit.scm 197 */
																							if (NULLP(CDR
																									(BgL_cdrzd21282zd2_314)))
																								{	/* Expand/exit.scm 197 */
																									obj_t BgL_arg1265z00_330;

																									BgL_arg1265z00_330 =
																										CAR(BgL_cdrzd21294zd2_322);
																									return
																										(VA_PROCEDUREP(BgL_ez00_32)
																										? ((obj_t(*)(obj_t,
																													...))
																											PROCEDURE_ENTRY
																											(BgL_ez00_32))
																										(BgL_ez00_32,
																											BgL_arg1265z00_330,
																											BgL_ez00_32,
																											BEOA) : ((obj_t(*)(obj_t,
																													obj_t,
																													obj_t))
																											PROCEDURE_ENTRY
																											(BgL_ez00_32))
																										(BgL_ez00_32,
																											BgL_arg1265z00_330,
																											BgL_ez00_32));
																								}
																							else
																								{	/* Expand/exit.scm 197 */
																									obj_t BgL_arg1275z00_332;
																									obj_t BgL_arg1276z00_333;

																									{	/* Expand/exit.scm 197 */
																										obj_t BgL_pairz00_2094;

																										BgL_pairz00_2094 =
																											CAR(
																											((obj_t)
																												BgL_cdrzd21278zd2_311));
																										BgL_arg1275z00_332 =
																											CAR(BgL_pairz00_2094);
																									}
																									BgL_arg1276z00_333 =
																										CDR(
																										((obj_t)
																											BgL_cdrzd21278zd2_311));
																									BgL_exitz00_296 =
																										BgL_arg1275z00_332;
																									BgL_exprsz00_297 =
																										BgL_arg1276z00_333;
																								BgL_tagzd21264zd2_298:
																									{	/* Expand/exit.scm 202 */
																										obj_t
																											BgL_oldzd2internalzd2_394;
																										BgL_oldzd2internalzd2_394 =
																											BGl_internalzd2definitionzf3z21zzexpand_lambdaz00;
																										BGl_internalzd2definitionzf3z21zzexpand_lambdaz00
																											= BTRUE;
																										{	/* Expand/exit.scm 204 */
																											obj_t BgL_ez00_395;

																											BgL_ez00_395 =
																												BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00
																												(BgL_ez00_32);
																											{	/* Expand/exit.scm 204 */
																												obj_t BgL_nexprsz00_396;

																												{	/* Expand/exit.scm 205 */
																													obj_t
																														BgL_arg1420z00_399;
																													{	/* Expand/exit.scm 205 */
																														obj_t
																															BgL_arg1431z00_400;
																														BgL_arg1431z00_400 =
																															BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																															(BgL_exprsz00_297,
																															BNIL);
																														BgL_arg1420z00_399 =
																															MAKE_YOUNG_PAIR
																															(CNST_TABLE_REF
																															(12L),
																															BgL_arg1431z00_400);
																													}
																													BgL_nexprsz00_396 =
																														(VA_PROCEDUREP
																														(BgL_ez00_395)
																														? ((obj_t(*)(obj_t,
																																	...))
																															PROCEDURE_ENTRY
																															(BgL_ez00_395))
																														(BgL_ez00_395,
																															BgL_arg1420z00_399,
																															BgL_ez00_395,
																															BEOA)
																														: ((obj_t(*)(obj_t,
																																	obj_t,
																																	obj_t))
																															PROCEDURE_ENTRY
																															(BgL_ez00_395))
																														(BgL_ez00_395,
																															BgL_arg1420z00_399,
																															BgL_ez00_395));
																												}
																												{	/* Expand/exit.scm 205 */

																													{	/* Expand/exit.scm 206 */
																														obj_t
																															BgL_arg1407z00_397;
																														{	/* Expand/exit.scm 206 */
																															obj_t
																																BgL_pairz00_1991;
																															BgL_pairz00_1991 =
																																CDR(((obj_t)
																																	BgL_xz00_31));
																															BgL_arg1407z00_397
																																=
																																CDR
																																(BgL_pairz00_1991);
																														}
																														{	/* Expand/exit.scm 206 */
																															obj_t
																																BgL_tmpz00_2426;
																															BgL_tmpz00_2426 =
																																((obj_t)
																																BgL_arg1407z00_397);
																															SET_CAR
																																(BgL_tmpz00_2426,
																																BgL_nexprsz00_396);
																														}
																													}
																													{	/* Expand/exit.scm 207 */
																														obj_t
																															BgL_arg1408z00_398;
																														{	/* Expand/exit.scm 207 */
																															obj_t
																																BgL_pairz00_1996;
																															BgL_pairz00_1996 =
																																CDR(((obj_t)
																																	BgL_xz00_31));
																															BgL_arg1408z00_398
																																=
																																CDR
																																(BgL_pairz00_1996);
																														}
																														{	/* Expand/exit.scm 207 */
																															obj_t
																																BgL_tmpz00_2432;
																															BgL_tmpz00_2432 =
																																((obj_t)
																																BgL_arg1408z00_398);
																															SET_CDR
																																(BgL_tmpz00_2432,
																																BNIL);
																														}
																													}
																												}
																											}
																										}
																										BGl_internalzd2definitionzf3z21zzexpand_lambdaz00
																											=
																											BgL_oldzd2internalzd2_394;
																									}
																									{
																										obj_t BgL_letkz00_401;
																										obj_t BgL_bindingsz00_402;
																										obj_t BgL_bodyz00_403;
																										obj_t BgL_exitz00_404;
																										obj_t BgL_exprz00_405;
																										obj_t BgL_exitz00_407;
																										obj_t BgL_bodyz00_408;

																										if (PAIRP(BgL_xz00_31))
																											{	/* Expand/exit.scm 209 */
																												obj_t
																													BgL_cdrzd21664zd2_413;
																												BgL_cdrzd21664zd2_413 =
																													CDR(((obj_t)
																														BgL_xz00_31));
																												if (PAIRP
																													(BgL_cdrzd21664zd2_413))
																													{	/* Expand/exit.scm 209 */
																														obj_t
																															BgL_carzd21670zd2_415;
																														obj_t
																															BgL_cdrzd21671zd2_416;
																														BgL_carzd21670zd2_415
																															=
																															CAR
																															(BgL_cdrzd21664zd2_413);
																														BgL_cdrzd21671zd2_416
																															=
																															CDR
																															(BgL_cdrzd21664zd2_413);
																														if (PAIRP
																															(BgL_carzd21670zd2_415))
																															{	/* Expand/exit.scm 209 */
																																obj_t
																																	BgL_exitz00_418;
																																BgL_exitz00_418
																																	=
																																	CAR
																																	(BgL_carzd21670zd2_415);
																																if (NULLP(CDR
																																		(BgL_carzd21670zd2_415)))
																																	{	/* Expand/exit.scm 209 */
																																		if (PAIRP
																																			(BgL_cdrzd21671zd2_416))
																																			{	/* Expand/exit.scm 209 */
																																				obj_t
																																					BgL_carzd21681zd2_422;
																																				BgL_carzd21681zd2_422
																																					=
																																					CAR
																																					(BgL_cdrzd21671zd2_416);
																																				if (PAIRP(BgL_carzd21681zd2_422))
																																					{	/* Expand/exit.scm 209 */
																																						obj_t
																																							BgL_carzd21688zd2_424;
																																						obj_t
																																							BgL_cdrzd21689zd2_425;
																																						BgL_carzd21688zd2_424
																																							=
																																							CAR
																																							(BgL_carzd21681zd2_422);
																																						BgL_cdrzd21689zd2_425
																																							=
																																							CDR
																																							(BgL_carzd21681zd2_422);
																																						{

																																							if ((BgL_carzd21688zd2_424 == CNST_TABLE_REF(11L)))
																																								{	/* Expand/exit.scm 209 */
																																								BgL_kapzd21692zd2_426:
																																									if (PAIRP(BgL_cdrzd21689zd2_425))
																																										{	/* Expand/exit.scm 209 */
																																											obj_t
																																												BgL_carzd21698zd2_437;
																																											obj_t
																																												BgL_cdrzd21699zd2_438;
																																											BgL_carzd21698zd2_437
																																												=
																																												CAR
																																												(BgL_cdrzd21689zd2_425);
																																											BgL_cdrzd21699zd2_438
																																												=
																																												CDR
																																												(BgL_cdrzd21689zd2_425);
																																											if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_carzd21698zd2_437))
																																												{	/* Expand/exit.scm 209 */
																																													if (PAIRP(BgL_cdrzd21699zd2_438))
																																														{	/* Expand/exit.scm 209 */
																																															obj_t
																																																BgL_carzd21706zd2_441;
																																															BgL_carzd21706zd2_441
																																																=
																																																CAR
																																																(BgL_cdrzd21699zd2_438);
																																															if (PAIRP(BgL_carzd21706zd2_441))
																																																{	/* Expand/exit.scm 209 */
																																																	obj_t
																																																		BgL_cdrzd21717zd2_443;
																																																	BgL_cdrzd21717zd2_443
																																																		=
																																																		CDR
																																																		(BgL_carzd21706zd2_441);
																																																	if ((BgL_exitz00_418 == CAR(BgL_carzd21706zd2_441)))
																																																		{	/* Expand/exit.scm 209 */
																																																			if (PAIRP(BgL_cdrzd21717zd2_443))
																																																				{	/* Expand/exit.scm 209 */
																																																					if (NULLP(CDR(BgL_cdrzd21717zd2_443)))
																																																						{	/* Expand/exit.scm 209 */
																																																							if (NULLP(CDR(BgL_cdrzd21699zd2_438)))
																																																								{	/* Expand/exit.scm 209 */
																																																									if (NULLP(CDR(((obj_t) BgL_cdrzd21671zd2_416))))
																																																										{	/* Expand/exit.scm 209 */
																																																											BgL_letkz00_401
																																																												=
																																																												BgL_carzd21688zd2_424;
																																																											BgL_bindingsz00_402
																																																												=
																																																												BgL_carzd21698zd2_437;
																																																											BgL_bodyz00_403
																																																												=
																																																												BgL_carzd21706zd2_441;
																																																											BgL_exitz00_404
																																																												=
																																																												BgL_exitz00_418;
																																																											BgL_exprz00_405
																																																												=
																																																												CAR
																																																												(BgL_cdrzd21717zd2_443);
																																																											{	/* Expand/exit.scm 214 */
																																																												bool_t
																																																													BgL_test2675z00_2486;
																																																												{
																																																													obj_t
																																																														BgL_l1128z00_522;
																																																													BgL_l1128z00_522
																																																														=
																																																														BgL_bindingsz00_402;
																																																												BgL_zc3z04anonymousza31676ze3z87_523:
																																																													if (NULLP(BgL_l1128z00_522))
																																																														{	/* Expand/exit.scm 214 */
																																																															BgL_test2675z00_2486
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Expand/exit.scm 214 */
																																																															bool_t
																																																																BgL_test2677z00_2489;
																																																															{	/* Expand/exit.scm 215 */
																																																																obj_t
																																																																	BgL_bz00_528;
																																																																BgL_bz00_528
																																																																	=
																																																																	CAR
																																																																	(
																																																																	((obj_t) BgL_l1128z00_522));
																																																																{	/* Expand/exit.scm 215 */
																																																																	bool_t
																																																																		BgL__ortest_1058z00_529;
																																																																	BgL__ortest_1058z00_529
																																																																		=
																																																																		SYMBOLP
																																																																		(BgL_bz00_528);
																																																																	if (BgL__ortest_1058z00_529)
																																																																		{	/* Expand/exit.scm 215 */
																																																																			BgL_test2677z00_2489
																																																																				=
																																																																				BgL__ortest_1058z00_529;
																																																																		}
																																																																	else
																																																																		{	/* Expand/exit.scm 215 */
																																																																			if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_bz00_528))
																																																																				{	/* Expand/exit.scm 216 */
																																																																					if (BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(BgL_exitz00_404, CAR(((obj_t) BgL_bz00_528))))
																																																																						{	/* Expand/exit.scm 217 */
																																																																							BgL_test2677z00_2489
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								0);
																																																																						}
																																																																					else
																																																																						{	/* Expand/exit.scm 217 */
																																																																							BgL_test2677z00_2489
																																																																								=
																																																																								(
																																																																								(bool_t)
																																																																								1);
																																																																						}
																																																																				}
																																																																			else
																																																																				{	/* Expand/exit.scm 216 */
																																																																					BgL_test2677z00_2489
																																																																						=
																																																																						(
																																																																						(bool_t)
																																																																						0);
																																																																				}
																																																																		}
																																																																}
																																																															}
																																																															if (BgL_test2677z00_2489)
																																																																{	/* Expand/exit.scm 214 */
																																																																	obj_t
																																																																		BgL_arg1678z00_527;
																																																																	BgL_arg1678z00_527
																																																																		=
																																																																		CDR
																																																																		(
																																																																		((obj_t) BgL_l1128z00_522));
																																																																	{
																																																																		obj_t
																																																																			BgL_l1128z00_2502;
																																																																		BgL_l1128z00_2502
																																																																			=
																																																																			BgL_arg1678z00_527;
																																																																		BgL_l1128z00_522
																																																																			=
																																																																			BgL_l1128z00_2502;
																																																																		goto
																																																																			BgL_zc3z04anonymousza31676ze3z87_523;
																																																																	}
																																																																}
																																																															else
																																																																{	/* Expand/exit.scm 214 */
																																																																	BgL_test2675z00_2486
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																														}
																																																												}
																																																												if (BgL_test2675z00_2486)
																																																													{	/* Expand/exit.scm 219 */
																																																														obj_t
																																																															BgL_arg1669z00_518;
																																																														{	/* Expand/exit.scm 219 */
																																																															obj_t
																																																																BgL_arg1673z00_519;
																																																															{	/* Expand/exit.scm 219 */
																																																																obj_t
																																																																	BgL_arg1675z00_520;
																																																																BgL_arg1675z00_520
																																																																	=
																																																																	MAKE_YOUNG_PAIR
																																																																	(BgL_exprz00_405,
																																																																	BNIL);
																																																																BgL_arg1673z00_519
																																																																	=
																																																																	MAKE_YOUNG_PAIR
																																																																	(BgL_bindingsz00_402,
																																																																	BgL_arg1675z00_520);
																																																															}
																																																															BgL_arg1669z00_518
																																																																=
																																																																MAKE_YOUNG_PAIR
																																																																(BgL_letkz00_401,
																																																																BgL_arg1673z00_519);
																																																														}
																																																														return
																																																															BGl_replacez12z12zztools_miscz00
																																																															(BgL_xz00_31,
																																																															BgL_arg1669z00_518);
																																																													}
																																																												else
																																																													{	/* Expand/exit.scm 214 */
																																																														BgL_exitz00_1207
																																																															=
																																																															BgL_exitz00_404;
																																																														BgL_bodyz00_1208
																																																															=
																																																															BgL_bodyz00_403;
																																																													BgL_zc3z04anonymousza32113ze3z87_1209:
																																																														{	/* Expand/exit.scm 140 */
																																																															obj_t
																																																																BgL_anzd2exitzd2_1210;
																																																															obj_t
																																																																BgL_anzd2exitdzd2_1211;
																																																															obj_t
																																																																BgL_valz00_1212;
																																																															obj_t
																																																																BgL_resz00_1213;
																																																															obj_t
																																																																BgL_envz00_1214;
																																																															obj_t
																																																																BgL_tracespz00_1215;
																																																															BgL_anzd2exitzd2_1210
																																																																=
																																																																BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																																																(BGl_gensymz00zz__r4_symbols_6_4z00
																																																																(CNST_TABLE_REF
																																																																	(3L)));
																																																															BgL_anzd2exitdzd2_1211
																																																																=
																																																																BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																																																(BGl_gensymz00zz__r4_symbols_6_4z00
																																																																(CNST_TABLE_REF
																																																																	(4L)));
																																																															BgL_valz00_1212
																																																																=
																																																																BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																																																(BGl_gensymz00zz__r4_symbols_6_4z00
																																																																(CNST_TABLE_REF
																																																																	(5L)));
																																																															BgL_resz00_1213
																																																																=
																																																																BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																																																(BGl_gensymz00zz__r4_symbols_6_4z00
																																																																(CNST_TABLE_REF
																																																																	(6L)));
																																																															BgL_envz00_1214
																																																																=
																																																																BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																																																(BGl_gensymz00zz__r4_symbols_6_4z00
																																																																(CNST_TABLE_REF
																																																																	(13L)));
																																																															BgL_tracespz00_1215
																																																																=
																																																																BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																																																(BGl_gensymz00zz__r4_symbols_6_4z00
																																																																(CNST_TABLE_REF
																																																																	(7L)));
																																																															{	/* Expand/exit.scm 146 */
																																																																obj_t
																																																																	BgL_newz00_1216;
																																																																{	/* Expand/exit.scm 146 */
																																																																	obj_t
																																																																		BgL_arg2114z00_1217;
																																																																	{	/* Expand/exit.scm 146 */
																																																																		obj_t
																																																																			BgL_arg2115z00_1218;
																																																																		obj_t
																																																																			BgL_arg2116z00_1219;
																																																																		BgL_arg2115z00_1218
																																																																			=
																																																																			MAKE_YOUNG_PAIR
																																																																			(BgL_anzd2exitzd2_1210,
																																																																			BNIL);
																																																																		{	/* Expand/exit.scm 148 */
																																																																			obj_t
																																																																				BgL_arg2117z00_1220;
																																																																			{	/* Expand/exit.scm 148 */
																																																																				obj_t
																																																																					BgL_arg2118z00_1221;
																																																																				{	/* Expand/exit.scm 148 */
																																																																					obj_t
																																																																						BgL_arg2119z00_1222;
																																																																					{	/* Expand/exit.scm 148 */
																																																																						obj_t
																																																																							BgL_arg2120z00_1223;
																																																																						obj_t
																																																																							BgL_arg2122z00_1224;
																																																																						{	/* Expand/exit.scm 148 */
																																																																							obj_t
																																																																								BgL_arg2123z00_1225;
																																																																							{	/* Expand/exit.scm 148 */
																																																																								obj_t
																																																																									BgL_arg2124z00_1226;
																																																																								{	/* Expand/exit.scm 148 */
																																																																									obj_t
																																																																										BgL_arg2125z00_1227;
																																																																									BgL_arg2125z00_1227
																																																																										=
																																																																										MAKE_YOUNG_PAIR
																																																																										(CNST_TABLE_REF
																																																																										(14L),
																																																																										BNIL);
																																																																									BgL_arg2124z00_1226
																																																																										=
																																																																										MAKE_YOUNG_PAIR
																																																																										(BgL_arg2125z00_1227,
																																																																										BNIL);
																																																																								}
																																																																								BgL_arg2123z00_1225
																																																																									=
																																																																									MAKE_YOUNG_PAIR
																																																																									(BgL_envz00_1214,
																																																																									BgL_arg2124z00_1226);
																																																																							}
																																																																							BgL_arg2120z00_1223
																																																																								=
																																																																								MAKE_YOUNG_PAIR
																																																																								(BgL_arg2123z00_1225,
																																																																								BNIL);
																																																																						}
																																																																						{	/* Expand/exit.scm 149 */
																																																																							obj_t
																																																																								BgL_arg2126z00_1228;
																																																																							obj_t
																																																																								BgL_arg2127z00_1229;
																																																																							{	/* Expand/exit.scm 149 */
																																																																								obj_t
																																																																									BgL_arg2128z00_1230;
																																																																								{	/* Expand/exit.scm 149 */
																																																																									obj_t
																																																																										BgL_arg2129z00_1231;
																																																																									{	/* Expand/exit.scm 149 */
																																																																										obj_t
																																																																											BgL_arg2130z00_1232;
																																																																										BgL_arg2130z00_1232
																																																																											=
																																																																											MAKE_YOUNG_PAIR
																																																																											(BINT
																																																																											(1L),
																																																																											BNIL);
																																																																										BgL_arg2129z00_1231
																																																																											=
																																																																											MAKE_YOUNG_PAIR
																																																																											(BgL_anzd2exitzd2_1210,
																																																																											BgL_arg2130z00_1232);
																																																																									}
																																																																									BgL_arg2128z00_1230
																																																																										=
																																																																										MAKE_YOUNG_PAIR
																																																																										(BgL_envz00_1214,
																																																																										BgL_arg2129z00_1231);
																																																																								}
																																																																								BgL_arg2126z00_1228
																																																																									=
																																																																									MAKE_YOUNG_PAIR
																																																																									(CNST_TABLE_REF
																																																																									(8L),
																																																																									BgL_arg2128z00_1230);
																																																																							}
																																																																							{	/* Expand/exit.scm 150 */
																																																																								obj_t
																																																																									BgL_arg2131z00_1233;
																																																																								{	/* Expand/exit.scm 150 */
																																																																									obj_t
																																																																										BgL_arg2132z00_1234;
																																																																									{	/* Expand/exit.scm 150 */
																																																																										obj_t
																																																																											BgL_arg2134z00_1235;
																																																																										obj_t
																																																																											BgL_arg2135z00_1236;
																																																																										{	/* Expand/exit.scm 150 */
																																																																											obj_t
																																																																												BgL_arg2136z00_1237;
																																																																											{	/* Expand/exit.scm 150 */
																																																																												obj_t
																																																																													BgL_arg2137z00_1238;
																																																																												{	/* Expand/exit.scm 150 */
																																																																													obj_t
																																																																														BgL_arg2138z00_1239;
																																																																													{	/* Expand/exit.scm 150 */
																																																																														obj_t
																																																																															BgL_arg2139z00_1240;
																																																																														BgL_arg2139z00_1240
																																																																															=
																																																																															MAKE_YOUNG_PAIR
																																																																															(BgL_envz00_1214,
																																																																															BNIL);
																																																																														BgL_arg2138z00_1239
																																																																															=
																																																																															MAKE_YOUNG_PAIR
																																																																															(CNST_TABLE_REF
																																																																															(9L),
																																																																															BgL_arg2139z00_1240);
																																																																													}
																																																																													BgL_arg2137z00_1238
																																																																														=
																																																																														MAKE_YOUNG_PAIR
																																																																														(BgL_arg2138z00_1239,
																																																																														BNIL);
																																																																												}
																																																																												BgL_arg2136z00_1237
																																																																													=
																																																																													MAKE_YOUNG_PAIR
																																																																													(BgL_anzd2exitdzd2_1211,
																																																																													BgL_arg2137z00_1238);
																																																																											}
																																																																											BgL_arg2134z00_1235
																																																																												=
																																																																												MAKE_YOUNG_PAIR
																																																																												(BgL_arg2136z00_1237,
																																																																												BNIL);
																																																																										}
																																																																										{	/* Expand/exit.scm 151 */
																																																																											obj_t
																																																																												BgL_arg2140z00_1241;
																																																																											{	/* Expand/exit.scm 151 */
																																																																												obj_t
																																																																													BgL_arg2141z00_1242;
																																																																												{	/* Expand/exit.scm 151 */
																																																																													obj_t
																																																																														BgL_arg2142z00_1243;
																																																																													obj_t
																																																																														BgL_arg2143z00_1244;
																																																																													{	/* Expand/exit.scm 151 */
																																																																														obj_t
																																																																															BgL_arg2144z00_1245;
																																																																														{	/* Expand/exit.scm 151 */
																																																																															obj_t
																																																																																BgL_arg2145z00_1246;
																																																																															{	/* Expand/exit.scm 151 */
																																																																																obj_t
																																																																																	BgL_arg2146z00_1247;
																																																																																obj_t
																																																																																	BgL_arg2148z00_1248;
																																																																																BgL_arg2146z00_1247
																																																																																	=
																																																																																	MAKE_YOUNG_PAIR
																																																																																	(BgL_valz00_1212,
																																																																																	BNIL);
																																																																																{	/* Expand/exit.scm 152 */
																																																																																	obj_t
																																																																																		BgL_arg2149z00_1249;
																																																																																	{	/* Expand/exit.scm 152 */
																																																																																		obj_t
																																																																																			BgL_arg2150z00_1250;
																																																																																		obj_t
																																																																																			BgL_arg2151z00_1251;
																																																																																		{	/* Expand/exit.scm 152 */
																																																																																			obj_t
																																																																																				BgL_arg2152z00_1252;
																																																																																			{	/* Expand/exit.scm 152 */
																																																																																				obj_t
																																																																																					BgL_arg2153z00_1253;
																																																																																				BgL_arg2153z00_1253
																																																																																					=
																																																																																					MAKE_YOUNG_PAIR
																																																																																					(CNST_TABLE_REF
																																																																																					(15L),
																																																																																					BNIL);
																																																																																				BgL_arg2152z00_1252
																																																																																					=
																																																																																					MAKE_YOUNG_PAIR
																																																																																					(CNST_TABLE_REF
																																																																																					(16L),
																																																																																					BgL_arg2153z00_1253);
																																																																																			}
																																																																																			BgL_arg2150z00_1250
																																																																																				=
																																																																																				MAKE_YOUNG_PAIR
																																																																																				(CNST_TABLE_REF
																																																																																				(17L),
																																																																																				BgL_arg2152z00_1252);
																																																																																		}
																																																																																		{	/* Expand/exit.scm 157 */
																																																																																			obj_t
																																																																																				BgL_arg2154z00_1254;
																																																																																			{	/* Expand/exit.scm 157 */
																																																																																				obj_t
																																																																																					BgL_arg2155z00_1255;
																																																																																				{	/* Expand/exit.scm 157 */
																																																																																					obj_t
																																																																																						BgL_arg2156z00_1256;
																																																																																					{	/* Expand/exit.scm 157 */
																																																																																						obj_t
																																																																																							BgL_arg2157z00_1257;
																																																																																						{	/* Expand/exit.scm 157 */
																																																																																							obj_t
																																																																																								BgL_arg2158z00_1258;
																																																																																							if (BGl_tracezf3ze71z14zzexpand_exitz00())
																																																																																								{	/* Expand/exit.scm 157 */
																																																																																									BgL_arg2158z00_1258
																																																																																										=
																																																																																										BgL_tracespz00_1215;
																																																																																								}
																																																																																							else
																																																																																								{	/* Expand/exit.scm 157 */
																																																																																									BgL_arg2158z00_1258
																																																																																										=
																																																																																										BFALSE;
																																																																																								}
																																																																																							BgL_arg2157z00_1257
																																																																																								=
																																																																																								MAKE_YOUNG_PAIR
																																																																																								(BgL_arg2158z00_1258,
																																																																																								BNIL);
																																																																																						}
																																																																																						BgL_arg2156z00_1256
																																																																																							=
																																																																																							MAKE_YOUNG_PAIR
																																																																																							(BFALSE,
																																																																																							BgL_arg2157z00_1257);
																																																																																					}
																																																																																					BgL_arg2155z00_1255
																																																																																						=
																																																																																						MAKE_YOUNG_PAIR
																																																																																						(BgL_valz00_1212,
																																																																																						BgL_arg2156z00_1256);
																																																																																				}
																																																																																				BgL_arg2154z00_1254
																																																																																					=
																																																																																					MAKE_YOUNG_PAIR
																																																																																					(BFALSE,
																																																																																					BgL_arg2155z00_1255);
																																																																																			}
																																																																																			BgL_arg2151z00_1251
																																																																																				=
																																																																																				MAKE_YOUNG_PAIR
																																																																																				(BgL_anzd2exitdzd2_1211,
																																																																																				BgL_arg2154z00_1254);
																																																																																		}
																																																																																		BgL_arg2149z00_1249
																																																																																			=
																																																																																			MAKE_YOUNG_PAIR
																																																																																			(BgL_arg2150z00_1250,
																																																																																			BgL_arg2151z00_1251);
																																																																																	}
																																																																																	BgL_arg2148z00_1248
																																																																																		=
																																																																																		MAKE_YOUNG_PAIR
																																																																																		(BgL_arg2149z00_1249,
																																																																																		BNIL);
																																																																																}
																																																																																BgL_arg2145z00_1246
																																																																																	=
																																																																																	MAKE_YOUNG_PAIR
																																																																																	(BgL_arg2146z00_1247,
																																																																																	BgL_arg2148z00_1248);
																																																																															}
																																																																															BgL_arg2144z00_1245
																																																																																=
																																																																																MAKE_YOUNG_PAIR
																																																																																(BgL_exitz00_1207,
																																																																																BgL_arg2145z00_1246);
																																																																														}
																																																																														BgL_arg2142z00_1243
																																																																															=
																																																																															MAKE_YOUNG_PAIR
																																																																															(BgL_arg2144z00_1245,
																																																																															BNIL);
																																																																													}
																																																																													{	/* Expand/exit.scm 158 */
																																																																														obj_t
																																																																															BgL_arg2160z00_1260;
																																																																														{	/* Expand/exit.scm 158 */
																																																																															obj_t
																																																																																BgL_arg2161z00_1261;
																																																																															{	/* Expand/exit.scm 158 */
																																																																																obj_t
																																																																																	BgL_arg2162z00_1262;
																																																																																obj_t
																																																																																	BgL_arg2163z00_1263;
																																																																																{	/* Expand/exit.scm 158 */
																																																																																	obj_t
																																																																																		BgL_arg2164z00_1264;
																																																																																	{	/* Expand/exit.scm 158 */
																																																																																		obj_t
																																																																																			BgL_arg2165z00_1265;
																																																																																		{	/* Expand/exit.scm 158 */
																																																																																			obj_t
																																																																																				BgL_arg2166z00_1266;
																																																																																			{	/* Expand/exit.scm 158 */
																																																																																				obj_t
																																																																																					BgL_arg2167z00_1267;
																																																																																				BgL_arg2167z00_1267
																																																																																					=
																																																																																					BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																																																																					(BgL_bodyz00_1208,
																																																																																					BNIL);
																																																																																				BgL_arg2166z00_1266
																																																																																					=
																																																																																					MAKE_YOUNG_PAIR
																																																																																					(CNST_TABLE_REF
																																																																																					(12L),
																																																																																					BgL_arg2167z00_1267);
																																																																																			}
																																																																																			BgL_arg2165z00_1265
																																																																																				=
																																																																																				MAKE_YOUNG_PAIR
																																																																																				(BgL_arg2166z00_1266,
																																																																																				BNIL);
																																																																																		}
																																																																																		BgL_arg2164z00_1264
																																																																																			=
																																																																																			MAKE_YOUNG_PAIR
																																																																																			(BgL_resz00_1213,
																																																																																			BgL_arg2165z00_1265);
																																																																																	}
																																																																																	BgL_arg2162z00_1262
																																																																																		=
																																																																																		MAKE_YOUNG_PAIR
																																																																																		(BgL_arg2164z00_1264,
																																																																																		BNIL);
																																																																																}
																																																																																{	/* Expand/exit.scm 159 */
																																																																																	obj_t
																																																																																		BgL_arg2168z00_1268;
																																																																																	obj_t
																																																																																		BgL_arg2169z00_1269;
																																																																																	{	/* Expand/exit.scm 159 */
																																																																																		obj_t
																																																																																			BgL_arg2170z00_1270;
																																																																																		BgL_arg2170z00_1270
																																																																																			=
																																																																																			MAKE_YOUNG_PAIR
																																																																																			(BgL_envz00_1214,
																																																																																			BNIL);
																																																																																		BgL_arg2168z00_1268
																																																																																			=
																																																																																			MAKE_YOUNG_PAIR
																																																																																			(CNST_TABLE_REF
																																																																																			(10L),
																																																																																			BgL_arg2170z00_1270);
																																																																																	}
																																																																																	BgL_arg2169z00_1269
																																																																																		=
																																																																																		MAKE_YOUNG_PAIR
																																																																																		(BgL_resz00_1213,
																																																																																		BNIL);
																																																																																	BgL_arg2163z00_1263
																																																																																		=
																																																																																		MAKE_YOUNG_PAIR
																																																																																		(BgL_arg2168z00_1268,
																																																																																		BgL_arg2169z00_1269);
																																																																																}
																																																																																BgL_arg2161z00_1261
																																																																																	=
																																																																																	MAKE_YOUNG_PAIR
																																																																																	(BgL_arg2162z00_1262,
																																																																																	BgL_arg2163z00_1263);
																																																																															}
																																																																															BgL_arg2160z00_1260
																																																																																=
																																																																																MAKE_YOUNG_PAIR
																																																																																(CNST_TABLE_REF
																																																																																(11L),
																																																																																BgL_arg2161z00_1261);
																																																																														}
																																																																														BgL_arg2143z00_1244
																																																																															=
																																																																															MAKE_YOUNG_PAIR
																																																																															(BgL_arg2160z00_1260,
																																																																															BNIL);
																																																																													}
																																																																													BgL_arg2141z00_1242
																																																																														=
																																																																														MAKE_YOUNG_PAIR
																																																																														(BgL_arg2142z00_1243,
																																																																														BgL_arg2143z00_1244);
																																																																												}
																																																																												BgL_arg2140z00_1241
																																																																													=
																																																																													MAKE_YOUNG_PAIR
																																																																													(CNST_TABLE_REF
																																																																													(18L),
																																																																													BgL_arg2141z00_1242);
																																																																											}
																																																																											BgL_arg2135z00_1236
																																																																												=
																																																																												MAKE_YOUNG_PAIR
																																																																												(BgL_arg2140z00_1241,
																																																																												BNIL);
																																																																										}
																																																																										BgL_arg2132z00_1234
																																																																											=
																																																																											MAKE_YOUNG_PAIR
																																																																											(BgL_arg2134z00_1235,
																																																																											BgL_arg2135z00_1236);
																																																																									}
																																																																									BgL_arg2131z00_1233
																																																																										=
																																																																										MAKE_YOUNG_PAIR
																																																																										(CNST_TABLE_REF
																																																																										(11L),
																																																																										BgL_arg2132z00_1234);
																																																																								}
																																																																								BgL_arg2127z00_1229
																																																																									=
																																																																									MAKE_YOUNG_PAIR
																																																																									(BgL_arg2131z00_1233,
																																																																									BNIL);
																																																																							}
																																																																							BgL_arg2122z00_1224
																																																																								=
																																																																								MAKE_YOUNG_PAIR
																																																																								(BgL_arg2126z00_1228,
																																																																								BgL_arg2127z00_1229);
																																																																						}
																																																																						BgL_arg2119z00_1222
																																																																							=
																																																																							MAKE_YOUNG_PAIR
																																																																							(BgL_arg2120z00_1223,
																																																																							BgL_arg2122z00_1224);
																																																																					}
																																																																					BgL_arg2118z00_1221
																																																																						=
																																																																						MAKE_YOUNG_PAIR
																																																																						(CNST_TABLE_REF
																																																																						(11L),
																																																																						BgL_arg2119z00_1222);
																																																																				}
																																																																				BgL_arg2117z00_1220
																																																																					=
																																																																					BGl_addzd2traceze70z35zzexpand_exitz00
																																																																					(BgL_tracespz00_1215,
																																																																					BgL_arg2118z00_1221);
																																																																			}
																																																																			BgL_arg2116z00_1219
																																																																				=
																																																																				MAKE_YOUNG_PAIR
																																																																				(BgL_arg2117z00_1220,
																																																																				BNIL);
																																																																		}
																																																																		BgL_arg2114z00_1217
																																																																			=
																																																																			MAKE_YOUNG_PAIR
																																																																			(BgL_arg2115z00_1218,
																																																																			BgL_arg2116z00_1219);
																																																																	}
																																																																	BgL_newz00_1216
																																																																		=
																																																																		MAKE_YOUNG_PAIR
																																																																		(CNST_TABLE_REF
																																																																		(2L),
																																																																		BgL_arg2114z00_1217);
																																																																}
																																																																return
																																																																	BGl_replacez12z12zztools_miscz00
																																																																	(BgL_xz00_31,
																																																																	BgL_newz00_1216);
																																																															}
																																																														}
																																																													}
																																																											}
																																																										}
																																																									else
																																																										{	/* Expand/exit.scm 209 */
																																																											obj_t
																																																												BgL_cdrzd21729zd2_454;
																																																											BgL_cdrzd21729zd2_454
																																																												=
																																																												CDR
																																																												(
																																																												((obj_t) BgL_xz00_31));
																																																											{	/* Expand/exit.scm 209 */
																																																												obj_t
																																																													BgL_arg1528z00_455;
																																																												obj_t
																																																													BgL_arg1532z00_456;
																																																												{	/* Expand/exit.scm 209 */
																																																													obj_t
																																																														BgL_pairz00_2031;
																																																													BgL_pairz00_2031
																																																														=
																																																														CAR
																																																														(
																																																														((obj_t) BgL_cdrzd21729zd2_454));
																																																													BgL_arg1528z00_455
																																																														=
																																																														CAR
																																																														(BgL_pairz00_2031);
																																																												}
																																																												BgL_arg1532z00_456
																																																													=
																																																													CDR
																																																													(
																																																													((obj_t) BgL_cdrzd21729zd2_454));
																																																												BgL_exitz00_407
																																																													=
																																																													BgL_arg1528z00_455;
																																																												BgL_bodyz00_408
																																																													=
																																																													BgL_arg1532z00_456;
																																																											BgL_tagzd21650zd2_409:
																																																												if (BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(BgL_exitz00_407, BgL_bodyz00_408))
																																																													{	/* Expand/exit.scm 224 */
																																																														obj_t
																																																															BgL_headz00_535;
																																																														obj_t
																																																															BgL_tailz00_536;
																																																														{	/* Expand/exit.scm 224 */
																																																															obj_t
																																																																BgL_arg1695z00_544;
																																																															{	/* Expand/exit.scm 224 */
																																																																long
																																																																	BgL_a1131z00_545;
																																																																BgL_a1131z00_545
																																																																	=
																																																																	bgl_list_length
																																																																	(BgL_bodyz00_408);
																																																																{	/* Expand/exit.scm 224 */

																																																																	{	/* Expand/exit.scm 224 */
																																																																		obj_t
																																																																			BgL_za71za7_2001;
																																																																		obj_t
																																																																			BgL_za72za7_2002;
																																																																		BgL_za71za7_2001
																																																																			=
																																																																			BINT
																																																																			(BgL_a1131z00_545);
																																																																		BgL_za72za7_2002
																																																																			=
																																																																			BINT
																																																																			(1L);
																																																																		{	/* Expand/exit.scm 224 */
																																																																			obj_t
																																																																				BgL_tmpz00_2003;
																																																																			BgL_tmpz00_2003
																																																																				=
																																																																				BINT
																																																																				(0L);
																																																																			if (BGL_SUBFX_OV(BgL_za71za7_2001, BgL_za72za7_2002, BgL_tmpz00_2003))
																																																																				{	/* Expand/exit.scm 224 */
																																																																					BgL_arg1695z00_544
																																																																						=
																																																																						bgl_bignum_sub
																																																																						(bgl_long_to_bignum
																																																																						((long) CINT(BgL_za71za7_2001)), bgl_long_to_bignum((long) CINT(BgL_za72za7_2002)));
																																																																				}
																																																																			else
																																																																				{	/* Expand/exit.scm 224 */
																																																																					BgL_arg1695z00_544
																																																																						=
																																																																						BgL_tmpz00_2003;
																																																																				}
																																																																		}
																																																																	}
																																																																}
																																																															}
																																																															BgL_headz00_535
																																																																=
																																																																BGl_takez00zz__r4_pairs_and_lists_6_3z00
																																																																(BgL_bodyz00_408,
																																																																(long)
																																																																CINT
																																																																(BgL_arg1695z00_544));
																																																														}
																																																														BgL_tailz00_536
																																																															=
																																																															CAR
																																																															(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																																																															(BgL_bodyz00_408));
																																																														{	/* Expand/exit.scm 226 */
																																																															bool_t
																																																																BgL_test2684z00_2620;
																																																															if (BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(BgL_exitz00_407, BgL_headz00_535))
																																																																{	/* Expand/exit.scm 226 */
																																																																	BgL_test2684z00_2620
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																															else
																																																																{	/* Expand/exit.scm 226 */
																																																																	BgL_test2684z00_2620
																																																																		=
																																																																		BGl_tailreczf3ze70z14zzexpand_exitz00
																																																																		(BgL_exitz00_407,
																																																																		BgL_tailz00_536);
																																																																}
																																																															if (BgL_test2684z00_2620)
																																																																{	/* Expand/exit.scm 228 */
																																																																	obj_t
																																																																		BgL_arg1685z00_539;
																																																																	{	/* Expand/exit.scm 228 */
																																																																		obj_t
																																																																			BgL_arg1686z00_540;
																																																																		{	/* Expand/exit.scm 228 */
																																																																			obj_t
																																																																				BgL_arg1690z00_541;
																																																																			BgL_arg1690z00_541
																																																																				=
																																																																				MAKE_YOUNG_PAIR
																																																																				(BGl_returnz12ze70zf5zzexpand_exitz00
																																																																				(BgL_exitz00_407,
																																																																					BgL_tailz00_536),
																																																																				BNIL);
																																																																			BgL_arg1686z00_540
																																																																				=
																																																																				BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																																																				(BgL_headz00_535,
																																																																				BgL_arg1690z00_541);
																																																																		}
																																																																		BgL_arg1685z00_539
																																																																			=
																																																																			MAKE_YOUNG_PAIR
																																																																			(CNST_TABLE_REF
																																																																			(12L),
																																																																			BgL_arg1686z00_540);
																																																																	}
																																																																	return
																																																																		BGl_replacez12z12zztools_miscz00
																																																																		(BgL_xz00_31,
																																																																		BgL_arg1685z00_539);
																																																																}
																																																															else
																																																																{
																																																																	obj_t
																																																																		BgL_bodyz00_2631;
																																																																	obj_t
																																																																		BgL_exitz00_2630;
																																																																	BgL_exitz00_2630
																																																																		=
																																																																		BgL_exitz00_407;
																																																																	BgL_bodyz00_2631
																																																																		=
																																																																		BgL_bodyz00_408;
																																																																	BgL_bodyz00_1208
																																																																		=
																																																																		BgL_bodyz00_2631;
																																																																	BgL_exitz00_1207
																																																																		=
																																																																		BgL_exitz00_2630;
																																																																	goto
																																																																		BgL_zc3z04anonymousza32113ze3z87_1209;
																																																																}
																																																														}
																																																													}
																																																												else
																																																													{	/* Expand/exit.scm 223 */
																																																														obj_t
																																																															BgL_arg1706z00_549;
																																																														{	/* Expand/exit.scm 223 */
																																																															obj_t
																																																																BgL_arg1707z00_550;
																																																															{	/* Expand/exit.scm 223 */
																																																																obj_t
																																																																	BgL_arg1708z00_551;
																																																																BgL_arg1708z00_551
																																																																	=
																																																																	BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																																																	(BgL_bodyz00_408,
																																																																	BNIL);
																																																																BgL_arg1707z00_550
																																																																	=
																																																																	MAKE_YOUNG_PAIR
																																																																	(CNST_TABLE_REF
																																																																	(12L),
																																																																	BgL_arg1708z00_551);
																																																															}
																																																															BgL_arg1706z00_549
																																																																=
																																																																(VA_PROCEDUREP
																																																																(BgL_ez00_32)
																																																																?
																																																																((obj_t(*)(obj_t, ...)) PROCEDURE_ENTRY(BgL_ez00_32)) (BgL_ez00_32, BgL_arg1707z00_550, BgL_ez00_32, BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t)) PROCEDURE_ENTRY(BgL_ez00_32)) (BgL_ez00_32, BgL_arg1707z00_550, BgL_ez00_32));
																																																														}
																																																														return
																																																															BGl_replacez12z12zztools_miscz00
																																																															(BgL_xz00_31,
																																																															BgL_arg1706z00_549);
																																																													}
																																																											}
																																																										}
																																																								}
																																																							else
																																																								{	/* Expand/exit.scm 209 */
																																																									obj_t
																																																										BgL_cdrzd21748zd2_459;
																																																									BgL_cdrzd21748zd2_459
																																																										=
																																																										CDR
																																																										(
																																																										((obj_t) BgL_xz00_31));
																																																									{	/* Expand/exit.scm 209 */
																																																										obj_t
																																																											BgL_arg1545z00_460;
																																																										obj_t
																																																											BgL_arg1546z00_461;
																																																										{	/* Expand/exit.scm 209 */
																																																											obj_t
																																																												BgL_pairz00_2035;
																																																											BgL_pairz00_2035
																																																												=
																																																												CAR
																																																												(
																																																												((obj_t) BgL_cdrzd21748zd2_459));
																																																											BgL_arg1545z00_460
																																																												=
																																																												CAR
																																																												(BgL_pairz00_2035);
																																																										}
																																																										BgL_arg1546z00_461
																																																											=
																																																											CDR
																																																											(
																																																											((obj_t) BgL_cdrzd21748zd2_459));
																																																										{
																																																											obj_t
																																																												BgL_bodyz00_2649;
																																																											obj_t
																																																												BgL_exitz00_2648;
																																																											BgL_exitz00_2648
																																																												=
																																																												BgL_arg1545z00_460;
																																																											BgL_bodyz00_2649
																																																												=
																																																												BgL_arg1546z00_461;
																																																											BgL_bodyz00_408
																																																												=
																																																												BgL_bodyz00_2649;
																																																											BgL_exitz00_407
																																																												=
																																																												BgL_exitz00_2648;
																																																											goto
																																																												BgL_tagzd21650zd2_409;
																																																										}
																																																									}
																																																								}
																																																						}
																																																					else
																																																						{	/* Expand/exit.scm 209 */
																																																							obj_t
																																																								BgL_cdrzd21767zd2_464;
																																																							BgL_cdrzd21767zd2_464
																																																								=
																																																								CDR
																																																								(
																																																								((obj_t) BgL_xz00_31));
																																																							{	/* Expand/exit.scm 209 */
																																																								obj_t
																																																									BgL_arg1554z00_465;
																																																								obj_t
																																																									BgL_arg1555z00_466;
																																																								{	/* Expand/exit.scm 209 */
																																																									obj_t
																																																										BgL_pairz00_2039;
																																																									BgL_pairz00_2039
																																																										=
																																																										CAR
																																																										(
																																																										((obj_t) BgL_cdrzd21767zd2_464));
																																																									BgL_arg1554z00_465
																																																										=
																																																										CAR
																																																										(BgL_pairz00_2039);
																																																								}
																																																								BgL_arg1555z00_466
																																																									=
																																																									CDR
																																																									(
																																																									((obj_t) BgL_cdrzd21767zd2_464));
																																																								{
																																																									obj_t
																																																										BgL_bodyz00_2658;
																																																									obj_t
																																																										BgL_exitz00_2657;
																																																									BgL_exitz00_2657
																																																										=
																																																										BgL_arg1554z00_465;
																																																									BgL_bodyz00_2658
																																																										=
																																																										BgL_arg1555z00_466;
																																																									BgL_bodyz00_408
																																																										=
																																																										BgL_bodyz00_2658;
																																																									BgL_exitz00_407
																																																										=
																																																										BgL_exitz00_2657;
																																																									goto
																																																										BgL_tagzd21650zd2_409;
																																																								}
																																																							}
																																																						}
																																																				}
																																																			else
																																																				{	/* Expand/exit.scm 209 */
																																																					obj_t
																																																						BgL_cdrzd21786zd2_469;
																																																					BgL_cdrzd21786zd2_469
																																																						=
																																																						CDR
																																																						(
																																																						((obj_t) BgL_xz00_31));
																																																					{	/* Expand/exit.scm 209 */
																																																						obj_t
																																																							BgL_arg1564z00_470;
																																																						obj_t
																																																							BgL_arg1565z00_471;
																																																						{	/* Expand/exit.scm 209 */
																																																							obj_t
																																																								BgL_pairz00_2043;
																																																							BgL_pairz00_2043
																																																								=
																																																								CAR
																																																								(
																																																								((obj_t) BgL_cdrzd21786zd2_469));
																																																							BgL_arg1564z00_470
																																																								=
																																																								CAR
																																																								(BgL_pairz00_2043);
																																																						}
																																																						BgL_arg1565z00_471
																																																							=
																																																							CDR
																																																							(
																																																							((obj_t) BgL_cdrzd21786zd2_469));
																																																						{
																																																							obj_t
																																																								BgL_bodyz00_2667;
																																																							obj_t
																																																								BgL_exitz00_2666;
																																																							BgL_exitz00_2666
																																																								=
																																																								BgL_arg1564z00_470;
																																																							BgL_bodyz00_2667
																																																								=
																																																								BgL_arg1565z00_471;
																																																							BgL_bodyz00_408
																																																								=
																																																								BgL_bodyz00_2667;
																																																							BgL_exitz00_407
																																																								=
																																																								BgL_exitz00_2666;
																																																							goto
																																																								BgL_tagzd21650zd2_409;
																																																						}
																																																					}
																																																				}
																																																		}
																																																	else
																																																		{	/* Expand/exit.scm 209 */
																																																			obj_t
																																																				BgL_cdrzd21805zd2_473;
																																																			BgL_cdrzd21805zd2_473
																																																				=
																																																				CDR
																																																				(
																																																				((obj_t) BgL_xz00_31));
																																																			{	/* Expand/exit.scm 209 */
																																																				obj_t
																																																					BgL_arg1576z00_474;
																																																				obj_t
																																																					BgL_arg1578z00_475;
																																																				{	/* Expand/exit.scm 209 */
																																																					obj_t
																																																						BgL_pairz00_2047;
																																																					BgL_pairz00_2047
																																																						=
																																																						CAR
																																																						(
																																																						((obj_t) BgL_cdrzd21805zd2_473));
																																																					BgL_arg1576z00_474
																																																						=
																																																						CAR
																																																						(BgL_pairz00_2047);
																																																				}
																																																				BgL_arg1578z00_475
																																																					=
																																																					CDR
																																																					(
																																																					((obj_t) BgL_cdrzd21805zd2_473));
																																																				{
																																																					obj_t
																																																						BgL_bodyz00_2676;
																																																					obj_t
																																																						BgL_exitz00_2675;
																																																					BgL_exitz00_2675
																																																						=
																																																						BgL_arg1576z00_474;
																																																					BgL_bodyz00_2676
																																																						=
																																																						BgL_arg1578z00_475;
																																																					BgL_bodyz00_408
																																																						=
																																																						BgL_bodyz00_2676;
																																																					BgL_exitz00_407
																																																						=
																																																						BgL_exitz00_2675;
																																																					goto
																																																						BgL_tagzd21650zd2_409;
																																																				}
																																																			}
																																																		}
																																																}
																																															else
																																																{	/* Expand/exit.scm 209 */
																																																	obj_t
																																																		BgL_cdrzd21824zd2_478;
																																																	BgL_cdrzd21824zd2_478
																																																		=
																																																		CDR
																																																		(
																																																		((obj_t) BgL_xz00_31));
																																																	{	/* Expand/exit.scm 209 */
																																																		obj_t
																																																			BgL_arg1586z00_479;
																																																		obj_t
																																																			BgL_arg1590z00_480;
																																																		{	/* Expand/exit.scm 209 */
																																																			obj_t
																																																				BgL_pairz00_2051;
																																																			BgL_pairz00_2051
																																																				=
																																																				CAR
																																																				(
																																																				((obj_t) BgL_cdrzd21824zd2_478));
																																																			BgL_arg1586z00_479
																																																				=
																																																				CAR
																																																				(BgL_pairz00_2051);
																																																		}
																																																		BgL_arg1590z00_480
																																																			=
																																																			CDR
																																																			(
																																																			((obj_t) BgL_cdrzd21824zd2_478));
																																																		{
																																																			obj_t
																																																				BgL_bodyz00_2685;
																																																			obj_t
																																																				BgL_exitz00_2684;
																																																			BgL_exitz00_2684
																																																				=
																																																				BgL_arg1586z00_479;
																																																			BgL_bodyz00_2685
																																																				=
																																																				BgL_arg1590z00_480;
																																																			BgL_bodyz00_408
																																																				=
																																																				BgL_bodyz00_2685;
																																																			BgL_exitz00_407
																																																				=
																																																				BgL_exitz00_2684;
																																																			goto
																																																				BgL_tagzd21650zd2_409;
																																																		}
																																																	}
																																																}
																																														}
																																													else
																																														{	/* Expand/exit.scm 209 */
																																															obj_t
																																																BgL_cdrzd21843zd2_482;
																																															BgL_cdrzd21843zd2_482
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_xz00_31));
																																															{	/* Expand/exit.scm 209 */
																																																obj_t
																																																	BgL_arg1595z00_483;
																																																obj_t
																																																	BgL_arg1597z00_484;
																																																{	/* Expand/exit.scm 209 */
																																																	obj_t
																																																		BgL_pairz00_2055;
																																																	BgL_pairz00_2055
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_cdrzd21843zd2_482));
																																																	BgL_arg1595z00_483
																																																		=
																																																		CAR
																																																		(BgL_pairz00_2055);
																																																}
																																																BgL_arg1597z00_484
																																																	=
																																																	CDR
																																																	(
																																																	((obj_t) BgL_cdrzd21843zd2_482));
																																																{
																																																	obj_t
																																																		BgL_bodyz00_2694;
																																																	obj_t
																																																		BgL_exitz00_2693;
																																																	BgL_exitz00_2693
																																																		=
																																																		BgL_arg1595z00_483;
																																																	BgL_bodyz00_2694
																																																		=
																																																		BgL_arg1597z00_484;
																																																	BgL_bodyz00_408
																																																		=
																																																		BgL_bodyz00_2694;
																																																	BgL_exitz00_407
																																																		=
																																																		BgL_exitz00_2693;
																																																	goto
																																																		BgL_tagzd21650zd2_409;
																																																}
																																															}
																																														}
																																												}
																																											else
																																												{	/* Expand/exit.scm 209 */
																																													obj_t
																																														BgL_cdrzd21862zd2_486;
																																													BgL_cdrzd21862zd2_486
																																														=
																																														CDR
																																														(
																																														((obj_t) BgL_xz00_31));
																																													{	/* Expand/exit.scm 209 */
																																														obj_t
																																															BgL_arg1606z00_487;
																																														obj_t
																																															BgL_arg1608z00_488;
																																														{	/* Expand/exit.scm 209 */
																																															obj_t
																																																BgL_pairz00_2059;
																																															BgL_pairz00_2059
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_cdrzd21862zd2_486));
																																															BgL_arg1606z00_487
																																																=
																																																CAR
																																																(BgL_pairz00_2059);
																																														}
																																														BgL_arg1608z00_488
																																															=
																																															CDR
																																															(
																																															((obj_t) BgL_cdrzd21862zd2_486));
																																														{
																																															obj_t
																																																BgL_bodyz00_2703;
																																															obj_t
																																																BgL_exitz00_2702;
																																															BgL_exitz00_2702
																																																=
																																																BgL_arg1606z00_487;
																																															BgL_bodyz00_2703
																																																=
																																																BgL_arg1608z00_488;
																																															BgL_bodyz00_408
																																																=
																																																BgL_bodyz00_2703;
																																															BgL_exitz00_407
																																																=
																																																BgL_exitz00_2702;
																																															goto
																																																BgL_tagzd21650zd2_409;
																																														}
																																													}
																																												}
																																										}
																																									else
																																										{	/* Expand/exit.scm 209 */
																																											obj_t
																																												BgL_cdrzd21881zd2_490;
																																											BgL_cdrzd21881zd2_490
																																												=
																																												CDR
																																												(
																																												((obj_t) BgL_xz00_31));
																																											{	/* Expand/exit.scm 209 */
																																												obj_t
																																													BgL_arg1613z00_491;
																																												obj_t
																																													BgL_arg1614z00_492;
																																												{	/* Expand/exit.scm 209 */
																																													obj_t
																																														BgL_pairz00_2063;
																																													BgL_pairz00_2063
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_cdrzd21881zd2_490));
																																													BgL_arg1613z00_491
																																														=
																																														CAR
																																														(BgL_pairz00_2063);
																																												}
																																												BgL_arg1614z00_492
																																													=
																																													CDR
																																													(
																																													((obj_t) BgL_cdrzd21881zd2_490));
																																												{
																																													obj_t
																																														BgL_bodyz00_2712;
																																													obj_t
																																														BgL_exitz00_2711;
																																													BgL_exitz00_2711
																																														=
																																														BgL_arg1613z00_491;
																																													BgL_bodyz00_2712
																																														=
																																														BgL_arg1614z00_492;
																																													BgL_bodyz00_408
																																														=
																																														BgL_bodyz00_2712;
																																													BgL_exitz00_407
																																														=
																																														BgL_exitz00_2711;
																																													goto
																																														BgL_tagzd21650zd2_409;
																																												}
																																											}
																																										}
																																								}
																																							else
																																								{	/* Expand/exit.scm 209 */
																																									if ((BgL_carzd21688zd2_424 == CNST_TABLE_REF(19L)))
																																										{	/* Expand/exit.scm 209 */
																																											goto
																																												BgL_kapzd21692zd2_426;
																																										}
																																									else
																																										{	/* Expand/exit.scm 209 */
																																											if ((BgL_carzd21688zd2_424 == CNST_TABLE_REF(20L)))
																																												{	/* Expand/exit.scm 209 */
																																													goto
																																														BgL_kapzd21692zd2_426;
																																												}
																																											else
																																												{	/* Expand/exit.scm 209 */
																																													if ((BgL_carzd21688zd2_424 == CNST_TABLE_REF(21L)))
																																														{	/* Expand/exit.scm 209 */
																																															goto
																																																BgL_kapzd21692zd2_426;
																																														}
																																													else
																																														{	/* Expand/exit.scm 209 */
																																															obj_t
																																																BgL_arg1450z00_433;
																																															obj_t
																																																BgL_arg1451z00_434;
																																															{	/* Expand/exit.scm 209 */
																																																obj_t
																																																	BgL_pairz00_2071;
																																																BgL_pairz00_2071
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_cdrzd21664zd2_413));
																																																BgL_arg1450z00_433
																																																	=
																																																	CAR
																																																	(BgL_pairz00_2071);
																																															}
																																															BgL_arg1451z00_434
																																																=
																																																CDR
																																																(
																																																((obj_t) BgL_cdrzd21664zd2_413));
																																															{
																																																obj_t
																																																	BgL_bodyz00_2728;
																																																obj_t
																																																	BgL_exitz00_2727;
																																																BgL_exitz00_2727
																																																	=
																																																	BgL_arg1450z00_433;
																																																BgL_bodyz00_2728
																																																	=
																																																	BgL_arg1451z00_434;
																																																BgL_bodyz00_408
																																																	=
																																																	BgL_bodyz00_2728;
																																																BgL_exitz00_407
																																																	=
																																																	BgL_exitz00_2727;
																																																goto
																																																	BgL_tagzd21650zd2_409;
																																															}
																																														}
																																												}
																																										}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Expand/exit.scm 209 */
																																						obj_t
																																							BgL_arg1616z00_495;
																																						obj_t
																																							BgL_arg1620z00_496;
																																						{	/* Expand/exit.scm 209 */
																																							obj_t
																																								BgL_pairz00_2075;
																																							BgL_pairz00_2075
																																								=
																																								CAR
																																								(
																																								((obj_t) BgL_cdrzd21664zd2_413));
																																							BgL_arg1616z00_495
																																								=
																																								CAR
																																								(BgL_pairz00_2075);
																																						}
																																						BgL_arg1620z00_496
																																							=
																																							CDR
																																							(((obj_t) BgL_cdrzd21664zd2_413));
																																						{
																																							obj_t
																																								BgL_bodyz00_2735;
																																							obj_t
																																								BgL_exitz00_2734;
																																							BgL_exitz00_2734
																																								=
																																								BgL_arg1616z00_495;
																																							BgL_bodyz00_2735
																																								=
																																								BgL_arg1620z00_496;
																																							BgL_bodyz00_408
																																								=
																																								BgL_bodyz00_2735;
																																							BgL_exitz00_407
																																								=
																																								BgL_exitz00_2734;
																																							goto
																																								BgL_tagzd21650zd2_409;
																																						}
																																					}
																																			}
																																		else
																																			{	/* Expand/exit.scm 209 */
																																				obj_t
																																					BgL_arg1628z00_499;
																																				obj_t
																																					BgL_arg1629z00_500;
																																				{	/* Expand/exit.scm 209 */
																																					obj_t
																																						BgL_pairz00_2079;
																																					BgL_pairz00_2079
																																						=
																																						CAR(
																																						((obj_t) BgL_cdrzd21664zd2_413));
																																					BgL_arg1628z00_499
																																						=
																																						CAR
																																						(BgL_pairz00_2079);
																																				}
																																				BgL_arg1629z00_500
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_cdrzd21664zd2_413));
																																				{
																																					obj_t
																																						BgL_bodyz00_2742;
																																					obj_t
																																						BgL_exitz00_2741;
																																					BgL_exitz00_2741
																																						=
																																						BgL_arg1628z00_499;
																																					BgL_bodyz00_2742
																																						=
																																						BgL_arg1629z00_500;
																																					BgL_bodyz00_408
																																						=
																																						BgL_bodyz00_2742;
																																					BgL_exitz00_407
																																						=
																																						BgL_exitz00_2741;
																																					goto
																																						BgL_tagzd21650zd2_409;
																																				}
																																			}
																																	}
																																else
																																	{	/* Expand/exit.scm 209 */
																																	BgL_tagzd21651zd2_410:
																																		return
																																			BGl_errorz00zz__errorz00
																																			(BFALSE,
																																			BGl_string2617z00zzexpand_exitz00,
																																			BgL_xz00_31);
																																	}
																															}
																														else
																															{	/* Expand/exit.scm 209 */
																																goto
																																	BgL_tagzd21651zd2_410;
																															}
																													}
																												else
																													{	/* Expand/exit.scm 209 */
																														goto
																															BgL_tagzd21651zd2_410;
																													}
																											}
																										else
																											{	/* Expand/exit.scm 209 */
																												goto
																													BgL_tagzd21651zd2_410;
																											}
																									}
																								}
																						}
																					else
																						{	/* Expand/exit.scm 197 */
																							obj_t BgL_arg1281z00_337;
																							obj_t BgL_arg1282z00_338;

																							{	/* Expand/exit.scm 197 */
																								obj_t BgL_pairz00_2098;

																								BgL_pairz00_2098 =
																									CAR(
																									((obj_t)
																										BgL_cdrzd21278zd2_311));
																								BgL_arg1281z00_337 =
																									CAR(BgL_pairz00_2098);
																							}
																							BgL_arg1282z00_338 =
																								CDR(
																								((obj_t)
																									BgL_cdrzd21278zd2_311));
																							{
																								obj_t BgL_exprsz00_2750;
																								obj_t BgL_exitz00_2749;

																								BgL_exitz00_2749 =
																									BgL_arg1281z00_337;
																								BgL_exprsz00_2750 =
																									BgL_arg1282z00_338;
																								BgL_exprsz00_297 =
																									BgL_exprsz00_2750;
																								BgL_exitz00_296 =
																									BgL_exitz00_2749;
																								goto BgL_tagzd21264zd2_298;
																							}
																						}
																				}
																			else
																				{	/* Expand/exit.scm 197 */
																					obj_t BgL_arg1285z00_342;
																					obj_t BgL_arg1287z00_343;

																					{	/* Expand/exit.scm 197 */
																						obj_t BgL_pairz00_2102;

																						BgL_pairz00_2102 =
																							CAR(
																							((obj_t) BgL_cdrzd21278zd2_311));
																						BgL_arg1285z00_342 =
																							CAR(BgL_pairz00_2102);
																					}
																					BgL_arg1287z00_343 =
																						CDR(
																						((obj_t) BgL_cdrzd21278zd2_311));
																					{
																						obj_t BgL_exprsz00_2757;
																						obj_t BgL_exitz00_2756;

																						BgL_exitz00_2756 =
																							BgL_arg1285z00_342;
																						BgL_exprsz00_2757 =
																							BgL_arg1287z00_343;
																						BgL_exprsz00_297 =
																							BgL_exprsz00_2757;
																						BgL_exitz00_296 = BgL_exitz00_2756;
																						goto BgL_tagzd21264zd2_298;
																					}
																				}
																		}
																	else
																		{	/* Expand/exit.scm 197 */
																			obj_t BgL_arg1291z00_346;
																			obj_t BgL_arg1292z00_347;

																			{	/* Expand/exit.scm 197 */
																				obj_t BgL_pairz00_2106;

																				BgL_pairz00_2106 =
																					CAR(((obj_t) BgL_cdrzd21278zd2_311));
																				BgL_arg1291z00_346 =
																					CAR(BgL_pairz00_2106);
																			}
																			BgL_arg1292z00_347 =
																				CDR(((obj_t) BgL_cdrzd21278zd2_311));
																			{
																				obj_t BgL_exprsz00_2764;
																				obj_t BgL_exitz00_2763;

																				BgL_exitz00_2763 = BgL_arg1291z00_346;
																				BgL_exprsz00_2764 = BgL_arg1292z00_347;
																				BgL_exprsz00_297 = BgL_exprsz00_2764;
																				BgL_exitz00_296 = BgL_exitz00_2763;
																				goto BgL_tagzd21264zd2_298;
																			}
																		}
																}
															else
																{	/* Expand/exit.scm 197 */
																	obj_t BgL_arg1323z00_351;
																	obj_t BgL_arg1324z00_352;

																	{	/* Expand/exit.scm 197 */
																		obj_t BgL_pairz00_2110;

																		BgL_pairz00_2110 =
																			CAR(((obj_t) BgL_cdrzd21278zd2_311));
																		BgL_arg1323z00_351 = CAR(BgL_pairz00_2110);
																	}
																	BgL_arg1324z00_352 =
																		CDR(((obj_t) BgL_cdrzd21278zd2_311));
																	{
																		obj_t BgL_exprsz00_2771;
																		obj_t BgL_exitz00_2770;

																		BgL_exitz00_2770 = BgL_arg1323z00_351;
																		BgL_exprsz00_2771 = BgL_arg1324z00_352;
																		BgL_exprsz00_297 = BgL_exprsz00_2771;
																		BgL_exitz00_296 = BgL_exitz00_2770;
																		goto BgL_tagzd21264zd2_298;
																	}
																}
														}
													else
														{	/* Expand/exit.scm 197 */
															obj_t BgL_arg1330z00_355;
															obj_t BgL_arg1331z00_356;

															{	/* Expand/exit.scm 197 */
																obj_t BgL_pairz00_2114;

																BgL_pairz00_2114 =
																	CAR(((obj_t) BgL_cdrzd21278zd2_311));
																BgL_arg1330z00_355 = CAR(BgL_pairz00_2114);
															}
															BgL_arg1331z00_356 =
																CDR(((obj_t) BgL_cdrzd21278zd2_311));
															{
																obj_t BgL_exprsz00_2778;
																obj_t BgL_exitz00_2777;

																BgL_exitz00_2777 = BgL_arg1330z00_355;
																BgL_exprsz00_2778 = BgL_arg1331z00_356;
																BgL_exprsz00_297 = BgL_exprsz00_2778;
																BgL_exitz00_296 = BgL_exitz00_2777;
																goto BgL_tagzd21264zd2_298;
															}
														}
												}
											else
												{	/* Expand/exit.scm 197 */
												BgL_tagzd21267zd2_308:
													return
														BGl_errorz00zz__errorz00(BFALSE,
														BGl_string2617z00zzexpand_exitz00, BgL_xz00_31);
												}
										}
									else
										{	/* Expand/exit.scm 197 */
											obj_t BgL_cdrzd21475zd2_360;

											BgL_cdrzd21475zd2_360 =
												CDR(((obj_t) BgL_cdrzd21278zd2_311));
											if (
												(CAR(
														((obj_t) BgL_cdrzd21278zd2_311)) ==
													CNST_TABLE_REF(22L)))
												{	/* Expand/exit.scm 197 */
													if (PAIRP(BgL_cdrzd21475zd2_360))
														{	/* Expand/exit.scm 197 */
															obj_t BgL_cdrzd21480zd2_364;

															BgL_cdrzd21480zd2_364 =
																CDR(BgL_cdrzd21475zd2_360);
															if (PAIRP(BgL_cdrzd21480zd2_364))
																{	/* Expand/exit.scm 197 */
																	obj_t BgL_carzd21484zd2_366;
																	obj_t BgL_cdrzd21485zd2_367;

																	BgL_carzd21484zd2_366 =
																		CAR(BgL_cdrzd21480zd2_364);
																	BgL_cdrzd21485zd2_367 =
																		CDR(BgL_cdrzd21480zd2_364);
																	if (PAIRP(BgL_carzd21484zd2_366))
																		{	/* Expand/exit.scm 197 */
																			if (NULLP(CDR(BgL_carzd21484zd2_366)))
																				{	/* Expand/exit.scm 197 */
																					if (PAIRP(BgL_cdrzd21485zd2_367))
																						{	/* Expand/exit.scm 197 */
																							if (NULLP(CDR
																									(BgL_cdrzd21485zd2_367)))
																								{	/* Expand/exit.scm 197 */
																									BgL_envz00_299 =
																										CAR(BgL_cdrzd21475zd2_360);
																									BgL_exitz00_300 =
																										CAR(BgL_carzd21484zd2_366);
																									BgL_bodyz00_301 =
																										CAR(BgL_cdrzd21485zd2_367);
																									{	/* Expand/exit.scm 234 */
																										obj_t
																											BgL_oldzd2internalzd2_552;
																										BgL_oldzd2internalzd2_552 =
																											BGl_internalzd2definitionzf3z21zzexpand_lambdaz00;
																										BGl_internalzd2definitionzf3z21zzexpand_lambdaz00
																											= BTRUE;
																										{	/* Expand/exit.scm 236 */
																											obj_t BgL_ez00_553;

																											BgL_ez00_553 =
																												BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00
																												(BgL_ez00_32);
																											{	/* Expand/exit.scm 236 */
																												obj_t BgL_ebodyz00_554;

																												BgL_ebodyz00_554 =
																													(VA_PROCEDUREP
																													(BgL_ez00_553)
																													? ((obj_t(*)(obj_t,
																																...))
																														PROCEDURE_ENTRY
																														(BgL_ez00_553))
																													(BgL_ez00_553,
																														BgL_bodyz00_301,
																														BgL_ez00_553,
																														BEOA)
																													: ((obj_t(*)(obj_t,
																																obj_t,
																																obj_t))
																														PROCEDURE_ENTRY
																														(BgL_ez00_553))
																													(BgL_ez00_553,
																														BgL_bodyz00_301,
																														BgL_ez00_553));
																												{	/* Expand/exit.scm 237 */

																													BGl_internalzd2definitionzf3z21zzexpand_lambdaz00
																														=
																														BgL_oldzd2internalzd2_552;
																													BgL_envz00_1277 =
																														BgL_envz00_299;
																													BgL_exitz00_1278 =
																														BgL_exitz00_300;
																													BgL_bodyz00_1279 =
																														BgL_ebodyz00_554;
																													{	/* Expand/exit.scm 164 */
																														obj_t
																															BgL_anzd2exitzd2_1281;
																														obj_t
																															BgL_anzd2exitdzd2_1282;
																														obj_t
																															BgL_valz00_1283;
																														obj_t
																															BgL_resz00_1284;
																														obj_t
																															BgL_tracespz00_1285;
																														BgL_anzd2exitzd2_1281
																															=
																															BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																															(BGl_gensymz00zz__r4_symbols_6_4z00
																															(CNST_TABLE_REF
																																(3L)));
																														BgL_anzd2exitdzd2_1282
																															=
																															BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																															(BGl_gensymz00zz__r4_symbols_6_4z00
																															(CNST_TABLE_REF
																																(4L)));
																														BgL_valz00_1283 =
																															BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																															(BGl_gensymz00zz__r4_symbols_6_4z00
																															(CNST_TABLE_REF
																																(5L)));
																														BgL_resz00_1284 =
																															BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																															(BGl_gensymz00zz__r4_symbols_6_4z00
																															(CNST_TABLE_REF
																																(6L)));
																														BgL_tracespz00_1285
																															=
																															BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																															(BGl_gensymz00zz__r4_symbols_6_4z00
																															(CNST_TABLE_REF
																																(7L)));
																														{	/* Expand/exit.scm 169 */
																															obj_t
																																BgL_newz00_1286;
																															{	/* Expand/exit.scm 170 */
																																obj_t
																																	BgL_arg2178z00_1287;
																																{	/* Expand/exit.scm 170 */
																																	obj_t
																																		BgL_arg2179z00_1288;
																																	{	/* Expand/exit.scm 170 */
																																		obj_t
																																			BgL_arg2180z00_1289;
																																		obj_t
																																			BgL_arg2181z00_1290;
																																		BgL_arg2180z00_1289
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_anzd2exitzd2_1281,
																																			BNIL);
																																		{	/* Expand/exit.scm 172 */
																																			obj_t
																																				BgL_arg2182z00_1291;
																																			{	/* Expand/exit.scm 172 */
																																				obj_t
																																					BgL_arg2183z00_1292;
																																				{	/* Expand/exit.scm 172 */
																																					obj_t
																																						BgL_arg2184z00_1293;
																																					obj_t
																																						BgL_arg2185z00_1294;
																																					{	/* Expand/exit.scm 172 */
																																						obj_t
																																							BgL_arg2186z00_1295;
																																						{	/* Expand/exit.scm 172 */
																																							obj_t
																																								BgL_arg2187z00_1296;
																																							{	/* Expand/exit.scm 172 */
																																								obj_t
																																									BgL_arg2188z00_1297;
																																								BgL_arg2188z00_1297
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BINT
																																									(1L),
																																									BNIL);
																																								BgL_arg2187z00_1296
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_anzd2exitzd2_1281,
																																									BgL_arg2188z00_1297);
																																							}
																																							BgL_arg2186z00_1295
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_envz00_1277,
																																								BgL_arg2187z00_1296);
																																						}
																																						BgL_arg2184z00_1293
																																							=
																																							MAKE_YOUNG_PAIR
																																							(CNST_TABLE_REF
																																							(8L),
																																							BgL_arg2186z00_1295);
																																					}
																																					{	/* Expand/exit.scm 173 */
																																						obj_t
																																							BgL_arg2189z00_1298;
																																						{	/* Expand/exit.scm 173 */
																																							obj_t
																																								BgL_arg2190z00_1299;
																																							{	/* Expand/exit.scm 173 */
																																								obj_t
																																									BgL_arg2191z00_1300;
																																								obj_t
																																									BgL_arg2192z00_1301;
																																								{	/* Expand/exit.scm 173 */
																																									obj_t
																																										BgL_arg2193z00_1302;
																																									{	/* Expand/exit.scm 173 */
																																										obj_t
																																											BgL_arg2194z00_1303;
																																										{	/* Expand/exit.scm 173 */
																																											obj_t
																																												BgL_arg2195z00_1304;
																																											{	/* Expand/exit.scm 173 */
																																												obj_t
																																													BgL_arg2196z00_1305;
																																												BgL_arg2196z00_1305
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_envz00_1277,
																																													BNIL);
																																												BgL_arg2195z00_1304
																																													=
																																													MAKE_YOUNG_PAIR
																																													(CNST_TABLE_REF
																																													(9L),
																																													BgL_arg2196z00_1305);
																																											}
																																											BgL_arg2194z00_1303
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg2195z00_1304,
																																												BNIL);
																																										}
																																										BgL_arg2193z00_1302
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_exitz00_1278,
																																											BgL_arg2194z00_1303);
																																									}
																																									BgL_arg2191z00_1300
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg2193z00_1302,
																																										BNIL);
																																								}
																																								{	/* Expand/exit.scm 174 */
																																									obj_t
																																										BgL_arg2197z00_1306;
																																									{	/* Expand/exit.scm 174 */
																																										obj_t
																																											BgL_arg2198z00_1307;
																																										{	/* Expand/exit.scm 174 */
																																											obj_t
																																												BgL_arg2199z00_1308;
																																											obj_t
																																												BgL_arg2201z00_1309;
																																											{	/* Expand/exit.scm 174 */
																																												obj_t
																																													BgL_arg2202z00_1310;
																																												{	/* Expand/exit.scm 174 */
																																													obj_t
																																														BgL_arg2203z00_1311;
																																													BgL_arg2203z00_1311
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_bodyz00_1279,
																																														BNIL);
																																													BgL_arg2202z00_1310
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_resz00_1284,
																																														BgL_arg2203z00_1311);
																																												}
																																												BgL_arg2199z00_1308
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg2202z00_1310,
																																													BNIL);
																																											}
																																											{	/* Expand/exit.scm 175 */
																																												obj_t
																																													BgL_arg2204z00_1312;
																																												obj_t
																																													BgL_arg2205z00_1313;
																																												{	/* Expand/exit.scm 175 */
																																													obj_t
																																														BgL_arg2206z00_1314;
																																													BgL_arg2206z00_1314
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_envz00_1277,
																																														BNIL);
																																													BgL_arg2204z00_1312
																																														=
																																														MAKE_YOUNG_PAIR
																																														(CNST_TABLE_REF
																																														(10L),
																																														BgL_arg2206z00_1314);
																																												}
																																												BgL_arg2205z00_1313
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_resz00_1284,
																																													BNIL);
																																												BgL_arg2201z00_1309
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg2204z00_1312,
																																													BgL_arg2205z00_1313);
																																											}
																																											BgL_arg2198z00_1307
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg2199z00_1308,
																																												BgL_arg2201z00_1309);
																																										}
																																										BgL_arg2197z00_1306
																																											=
																																											MAKE_YOUNG_PAIR
																																											(CNST_TABLE_REF
																																											(11L),
																																											BgL_arg2198z00_1307);
																																									}
																																									BgL_arg2192z00_1301
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg2197z00_1306,
																																										BNIL);
																																								}
																																								BgL_arg2190z00_1299
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg2191z00_1300,
																																									BgL_arg2192z00_1301);
																																							}
																																							BgL_arg2189z00_1298
																																								=
																																								MAKE_YOUNG_PAIR
																																								(CNST_TABLE_REF
																																								(11L),
																																								BgL_arg2190z00_1299);
																																						}
																																						BgL_arg2185z00_1294
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg2189z00_1298,
																																							BNIL);
																																					}
																																					BgL_arg2183z00_1292
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg2184z00_1293,
																																						BgL_arg2185z00_1294);
																																				}
																																				BgL_arg2182z00_1291
																																					=
																																					MAKE_YOUNG_PAIR
																																					(CNST_TABLE_REF
																																					(12L),
																																					BgL_arg2183z00_1292);
																																			}
																																			BgL_arg2181z00_1290
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2182z00_1291,
																																				BNIL);
																																		}
																																		BgL_arg2179z00_1288
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2180z00_1289,
																																			BgL_arg2181z00_1290);
																																	}
																																	BgL_arg2178z00_1287
																																		=
																																		MAKE_YOUNG_PAIR
																																		(CNST_TABLE_REF
																																		(2L),
																																		BgL_arg2179z00_1288);
																																}
																																BgL_newz00_1286
																																	=
																																	BGl_addzd2traceze70z35zzexpand_exitz00
																																	(BgL_tracespz00_1285,
																																	BgL_arg2178z00_1287);
																															}
																															return
																																BGl_replacez12z12zztools_miscz00
																																(BgL_xz00_31,
																																BgL_newz00_1286);
																														}
																													}
																												}
																											}
																										}
																									}
																								}
																							else
																								{	/* Expand/exit.scm 197 */
																									obj_t BgL_cdrzd21515zd2_377;

																									{	/* Expand/exit.scm 197 */
																										obj_t BgL_pairz00_2128;

																										BgL_pairz00_2128 =
																											CDR(
																											((obj_t) BgL_xz00_31));
																										BgL_cdrzd21515zd2_377 =
																											CDR(BgL_pairz00_2128);
																									}
																									{	/* Expand/exit.scm 197 */
																										obj_t BgL_cdrzd21524zd2_378;

																										BgL_cdrzd21524zd2_378 =
																											CDR(
																											((obj_t)
																												BgL_cdrzd21515zd2_377));
																										{	/* Expand/exit.scm 197 */
																											obj_t
																												BgL_cdrzd21533zd2_379;
																											BgL_cdrzd21533zd2_379 =
																												CDR(((obj_t)
																													BgL_cdrzd21524zd2_378));
																											{	/* Expand/exit.scm 197 */
																												obj_t
																													BgL_cdrzd21544zd2_380;
																												BgL_cdrzd21544zd2_380 =
																													CDR(((obj_t)
																														BgL_cdrzd21533zd2_379));
																												if (PAIRP
																													(BgL_cdrzd21544zd2_380))
																													{	/* Expand/exit.scm 197 */
																														if (NULLP(CDR
																																(BgL_cdrzd21544zd2_380)))
																															{	/* Expand/exit.scm 197 */
																																obj_t
																																	BgL_arg1366z00_384;
																																obj_t
																																	BgL_arg1369z00_385;
																																obj_t
																																	BgL_arg1372z00_386;
																																obj_t
																																	BgL_arg1373z00_387;
																																BgL_arg1366z00_384
																																	=
																																	CAR(((obj_t)
																																		BgL_cdrzd21515zd2_377));
																																{	/* Expand/exit.scm 197 */
																																	obj_t
																																		BgL_pairz00_2135;
																																	BgL_pairz00_2135
																																		=
																																		CAR(((obj_t)
																																			BgL_cdrzd21524zd2_378));
																																	BgL_arg1369z00_385
																																		=
																																		CAR
																																		(BgL_pairz00_2135);
																																}
																																BgL_arg1372z00_386
																																	=
																																	CAR(((obj_t)
																																		BgL_cdrzd21533zd2_379));
																																BgL_arg1373z00_387
																																	=
																																	CAR
																																	(BgL_cdrzd21544zd2_380);
																																BgL_envz00_303 =
																																	BgL_arg1366z00_384;
																																BgL_exitz00_304
																																	=
																																	BgL_arg1369z00_385;
																																BgL_bodyz00_305
																																	=
																																	BgL_arg1372z00_386;
																																BgL_onexitz00_306
																																	=
																																	BgL_arg1373z00_387;
																																{	/* Expand/exit.scm 242 */
																																	obj_t
																																		BgL_oldzd2internalzd2_555;
																																	BgL_oldzd2internalzd2_555
																																		=
																																		BGl_internalzd2definitionzf3z21zzexpand_lambdaz00;
																																	BGl_internalzd2definitionzf3z21zzexpand_lambdaz00
																																		= BTRUE;
																																	{	/* Expand/exit.scm 244 */
																																		obj_t
																																			BgL_ez00_556;
																																		BgL_ez00_556
																																			=
																																			BGl_internalzd2beginzd2expanderz00zzexpand_lambdaz00
																																			(BgL_ez00_32);
																																		{	/* Expand/exit.scm 244 */
																																			obj_t
																																				BgL_ebodyz00_557;
																																			BgL_ebodyz00_557
																																				=
																																				(VA_PROCEDUREP
																																				(BgL_ez00_556)
																																				? (
																																					(obj_t
																																						(*)
																																						(obj_t,
																																							...))
																																					PROCEDURE_ENTRY
																																					(BgL_ez00_556))
																																				(BgL_ez00_556,
																																					BgL_bodyz00_305,
																																					BgL_ez00_556,
																																					BEOA)
																																				: (
																																					(obj_t
																																						(*)
																																						(obj_t,
																																							obj_t,
																																							obj_t))
																																					PROCEDURE_ENTRY
																																					(BgL_ez00_556))
																																				(BgL_ez00_556,
																																					BgL_bodyz00_305,
																																					BgL_ez00_556));
																																			{	/* Expand/exit.scm 245 */
																																				obj_t
																																					BgL_eonexitz00_558;
																																				BgL_eonexitz00_558
																																					=
																																					(VA_PROCEDUREP
																																					(BgL_ez00_556)
																																					? (
																																						(obj_t
																																							(*)
																																							(obj_t,
																																								...))
																																						PROCEDURE_ENTRY
																																						(BgL_ez00_556))
																																					(BgL_ez00_556,
																																						BgL_onexitz00_306,
																																						BgL_ez00_556,
																																						BEOA)
																																					: (
																																						(obj_t
																																							(*)
																																							(obj_t,
																																								obj_t,
																																								obj_t))
																																						PROCEDURE_ENTRY
																																						(BgL_ez00_556))
																																					(BgL_ez00_556,
																																						BgL_onexitz00_306,
																																						BgL_ez00_556));
																																				{	/* Expand/exit.scm 246 */

																																					BGl_internalzd2definitionzf3z21zzexpand_lambdaz00
																																						=
																																						BgL_oldzd2internalzd2_555;
																																					BgL_envz00_1320
																																						=
																																						BgL_envz00_303;
																																					BgL_exitz00_1321
																																						=
																																						BgL_exitz00_304;
																																					BgL_bodyz00_1322
																																						=
																																						BgL_ebodyz00_557;
																																					BgL_onexitz00_1323
																																						=
																																						BgL_eonexitz00_558;
																																					{	/* Expand/exit.scm 180 */
																																						obj_t
																																							BgL_anzd2exitzd2_1325;
																																						obj_t
																																							BgL_anzd2exitdzd2_1326;
																																						obj_t
																																							BgL_valz00_1327;
																																						obj_t
																																							BgL_resz00_1328;
																																						obj_t
																																							BgL_tracespz00_1329;
																																						BgL_anzd2exitzd2_1325
																																							=
																																							BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																							(BGl_gensymz00zz__r4_symbols_6_4z00
																																							(CNST_TABLE_REF
																																								(3L)));
																																						BgL_anzd2exitdzd2_1326
																																							=
																																							BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																							(BGl_gensymz00zz__r4_symbols_6_4z00
																																							(CNST_TABLE_REF
																																								(4L)));
																																						BgL_valz00_1327
																																							=
																																							BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																							(BGl_gensymz00zz__r4_symbols_6_4z00
																																							(CNST_TABLE_REF
																																								(5L)));
																																						BgL_resz00_1328
																																							=
																																							BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																							(BGl_gensymz00zz__r4_symbols_6_4z00
																																							(CNST_TABLE_REF
																																								(6L)));
																																						BgL_tracespz00_1329
																																							=
																																							BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																							(BGl_gensymz00zz__r4_symbols_6_4z00
																																							(CNST_TABLE_REF
																																								(7L)));
																																						{	/* Expand/exit.scm 185 */
																																							obj_t
																																								BgL_newz00_1330;
																																							{	/* Expand/exit.scm 186 */
																																								obj_t
																																									BgL_arg2213z00_1331;
																																								{	/* Expand/exit.scm 186 */
																																									obj_t
																																										BgL_arg2214z00_1332;
																																									{	/* Expand/exit.scm 186 */
																																										obj_t
																																											BgL_arg2215z00_1333;
																																										obj_t
																																											BgL_arg2216z00_1334;
																																										BgL_arg2215z00_1333
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_anzd2exitzd2_1325,
																																											BNIL);
																																										{	/* Expand/exit.scm 188 */
																																											obj_t
																																												BgL_arg2217z00_1335;
																																											obj_t
																																												BgL_arg2218z00_1336;
																																											{	/* Expand/exit.scm 188 */
																																												obj_t
																																													BgL_arg2219z00_1337;
																																												{	/* Expand/exit.scm 188 */
																																													obj_t
																																														BgL_arg2220z00_1338;
																																													obj_t
																																														BgL_arg2221z00_1339;
																																													{	/* Expand/exit.scm 188 */
																																														obj_t
																																															BgL_arg2222z00_1340;
																																														{	/* Expand/exit.scm 188 */
																																															obj_t
																																																BgL_arg2223z00_1341;
																																															{	/* Expand/exit.scm 188 */
																																																obj_t
																																																	BgL_arg2224z00_1342;
																																																BgL_arg2224z00_1342
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BINT
																																																	(1L),
																																																	BNIL);
																																																BgL_arg2223z00_1341
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_anzd2exitzd2_1325,
																																																	BgL_arg2224z00_1342);
																																															}
																																															BgL_arg2222z00_1340
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_envz00_1320,
																																																BgL_arg2223z00_1341);
																																														}
																																														BgL_arg2220z00_1338
																																															=
																																															MAKE_YOUNG_PAIR
																																															(CNST_TABLE_REF
																																															(8L),
																																															BgL_arg2222z00_1340);
																																													}
																																													{	/* Expand/exit.scm 189 */
																																														obj_t
																																															BgL_arg2225z00_1343;
																																														{	/* Expand/exit.scm 189 */
																																															obj_t
																																																BgL_arg2226z00_1344;
																																															{	/* Expand/exit.scm 189 */
																																																obj_t
																																																	BgL_arg2227z00_1345;
																																																obj_t
																																																	BgL_arg2228z00_1346;
																																																{	/* Expand/exit.scm 189 */
																																																	obj_t
																																																		BgL_arg2229z00_1347;
																																																	{	/* Expand/exit.scm 189 */
																																																		obj_t
																																																			BgL_arg2230z00_1348;
																																																		{	/* Expand/exit.scm 189 */
																																																			obj_t
																																																				BgL_arg2231z00_1349;
																																																			{	/* Expand/exit.scm 189 */
																																																				obj_t
																																																					BgL_arg2232z00_1350;
																																																				BgL_arg2232z00_1350
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BgL_envz00_1320,
																																																					BNIL);
																																																				BgL_arg2231z00_1349
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(CNST_TABLE_REF
																																																					(9L),
																																																					BgL_arg2232z00_1350);
																																																			}
																																																			BgL_arg2230z00_1348
																																																				=
																																																				MAKE_YOUNG_PAIR
																																																				(BgL_arg2231z00_1349,
																																																				BNIL);
																																																		}
																																																		BgL_arg2229z00_1347
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(BgL_exitz00_1321,
																																																			BgL_arg2230z00_1348);
																																																	}
																																																	BgL_arg2227z00_1345
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BgL_arg2229z00_1347,
																																																		BNIL);
																																																}
																																																{	/* Expand/exit.scm 190 */
																																																	obj_t
																																																		BgL_arg2233z00_1351;
																																																	{	/* Expand/exit.scm 190 */
																																																		obj_t
																																																			BgL_arg2234z00_1352;
																																																		{	/* Expand/exit.scm 190 */
																																																			obj_t
																																																				BgL_arg2235z00_1353;
																																																			obj_t
																																																				BgL_arg2236z00_1354;
																																																			{	/* Expand/exit.scm 190 */
																																																				obj_t
																																																					BgL_arg2237z00_1355;
																																																				{	/* Expand/exit.scm 190 */
																																																					obj_t
																																																						BgL_arg2238z00_1356;
																																																					BgL_arg2238z00_1356
																																																						=
																																																						MAKE_YOUNG_PAIR
																																																						(BgL_bodyz00_1322,
																																																						BNIL);
																																																					BgL_arg2237z00_1355
																																																						=
																																																						MAKE_YOUNG_PAIR
																																																						(BgL_resz00_1328,
																																																						BgL_arg2238z00_1356);
																																																				}
																																																				BgL_arg2235z00_1353
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BgL_arg2237z00_1355,
																																																					BNIL);
																																																			}
																																																			{	/* Expand/exit.scm 191 */
																																																				obj_t
																																																					BgL_arg2239z00_1357;
																																																				obj_t
																																																					BgL_arg2240z00_1358;
																																																				{	/* Expand/exit.scm 191 */
																																																					obj_t
																																																						BgL_arg2241z00_1359;
																																																					BgL_arg2241z00_1359
																																																						=
																																																						MAKE_YOUNG_PAIR
																																																						(BgL_envz00_1320,
																																																						BNIL);
																																																					BgL_arg2239z00_1357
																																																						=
																																																						MAKE_YOUNG_PAIR
																																																						(CNST_TABLE_REF
																																																						(10L),
																																																						BgL_arg2241z00_1359);
																																																				}
																																																				BgL_arg2240z00_1358
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BgL_resz00_1328,
																																																					BNIL);
																																																				BgL_arg2236z00_1354
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BgL_arg2239z00_1357,
																																																					BgL_arg2240z00_1358);
																																																			}
																																																			BgL_arg2234z00_1352
																																																				=
																																																				MAKE_YOUNG_PAIR
																																																				(BgL_arg2235z00_1353,
																																																				BgL_arg2236z00_1354);
																																																		}
																																																		BgL_arg2233z00_1351
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(CNST_TABLE_REF
																																																			(11L),
																																																			BgL_arg2234z00_1352);
																																																	}
																																																	BgL_arg2228z00_1346
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BgL_arg2233z00_1351,
																																																		BNIL);
																																																}
																																																BgL_arg2226z00_1344
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_arg2227z00_1345,
																																																	BgL_arg2228z00_1346);
																																															}
																																															BgL_arg2225z00_1343
																																																=
																																																MAKE_YOUNG_PAIR
																																																(CNST_TABLE_REF
																																																(11L),
																																																BgL_arg2226z00_1344);
																																														}
																																														BgL_arg2221z00_1339
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg2225z00_1343,
																																															BNIL);
																																													}
																																													BgL_arg2219z00_1337
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg2220z00_1338,
																																														BgL_arg2221z00_1339);
																																												}
																																												BgL_arg2217z00_1335
																																													=
																																													MAKE_YOUNG_PAIR
																																													(CNST_TABLE_REF
																																													(12L),
																																													BgL_arg2219z00_1337);
																																											}
																																											{	/* Expand/exit.scm 186 */
																																												obj_t
																																													BgL_arg2242z00_1360;
																																												BgL_arg2242z00_1360
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_onexitz00_1323,
																																													BNIL);
																																												BgL_arg2218z00_1336
																																													=
																																													MAKE_YOUNG_PAIR
																																													(CNST_TABLE_REF
																																													(1L),
																																													BgL_arg2242z00_1360);
																																											}
																																											BgL_arg2216z00_1334
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg2217z00_1335,
																																												BgL_arg2218z00_1336);
																																										}
																																										BgL_arg2214z00_1332
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg2215z00_1333,
																																											BgL_arg2216z00_1334);
																																									}
																																									BgL_arg2213z00_1331
																																										=
																																										MAKE_YOUNG_PAIR
																																										(CNST_TABLE_REF
																																										(2L),
																																										BgL_arg2214z00_1332);
																																								}
																																								BgL_newz00_1330
																																									=
																																									BGl_addzd2traceze70z35zzexpand_exitz00
																																									(BgL_tracespz00_1329,
																																									BgL_arg2213z00_1331);
																																							}
																																							BGl_replacez12z12zztools_miscz00
																																								(BgL_xz00_31,
																																								BgL_newz00_1330);
																																							return
																																								BgL_xz00_31;
																																						}
																																					}
																																				}
																																			}
																																		}
																																	}
																																}
																															}
																														else
																															{	/* Expand/exit.scm 197 */
																																goto
																																	BgL_tagzd21267zd2_308;
																															}
																													}
																												else
																													{	/* Expand/exit.scm 197 */
																														goto
																															BgL_tagzd21267zd2_308;
																													}
																											}
																										}
																									}
																								}
																						}
																					else
																						{	/* Expand/exit.scm 197 */
																							goto BgL_tagzd21267zd2_308;
																						}
																				}
																			else
																				{	/* Expand/exit.scm 197 */
																					goto BgL_tagzd21267zd2_308;
																				}
																		}
																	else
																		{	/* Expand/exit.scm 197 */
																			goto BgL_tagzd21267zd2_308;
																		}
																}
															else
																{	/* Expand/exit.scm 197 */
																	goto BgL_tagzd21267zd2_308;
																}
														}
													else
														{	/* Expand/exit.scm 197 */
															goto BgL_tagzd21267zd2_308;
														}
												}
											else
												{	/* Expand/exit.scm 197 */
													goto BgL_tagzd21267zd2_308;
												}
										}
								}
							else
								{	/* Expand/exit.scm 197 */
									goto BgL_tagzd21267zd2_308;
								}
						}
					else
						{	/* Expand/exit.scm 197 */
							goto BgL_tagzd21267zd2_308;
						}
				}
			}
		}

	}



/* trace?~1 */
	bool_t BGl_tracezf3ze71z14zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 128 */
			{	/* Expand/exit.scm 127 */
				bool_t BgL_test2698z00_2955;

				{	/* Expand/exit.scm 127 */
					int BgL_arg2094z00_1185;

					BgL_arg2094z00_1185 = BGl_bigloozd2compilerzd2debugz00zz__paramz00();
					BgL_test2698z00_2955 = ((long) (BgL_arg2094z00_1185) > 0L);
				}
				if (BgL_test2698z00_2955)
					{	/* Expand/exit.scm 128 */
						obj_t BgL_arg2093z00_1184;

						BgL_arg2093z00_1184 = BGl_thezd2backendzd2zzbackend_backendz00();
						return
							(((BgL_backendz00_bglt) COBJECT(
									((BgL_backendz00_bglt) BgL_arg2093z00_1184)))->
							BgL_tracezd2supportzd2);
					}
				else
					{	/* Expand/exit.scm 127 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* add-trace~0 */
	obj_t BGl_addzd2traceze70z35zzexpand_exitz00(obj_t BgL_tracespz00_1186,
		obj_t BgL_bodyz00_1187)
	{
		{	/* Expand/exit.scm 137 */
			if (BGl_tracezf3ze71z14zzexpand_exitz00())
				{	/* Expand/exit.scm 132 */
					obj_t BgL_tmpz00_1190;

					BgL_tmpz00_1190 =
						BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
						(BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(23L)));
					{	/* Expand/exit.scm 133 */
						obj_t BgL_arg2097z00_1191;

						{	/* Expand/exit.scm 133 */
							obj_t BgL_arg2098z00_1192;
							obj_t BgL_arg2099z00_1193;

							{	/* Expand/exit.scm 133 */
								obj_t BgL_arg2100z00_1194;

								{	/* Expand/exit.scm 133 */
									obj_t BgL_arg2101z00_1195;

									{	/* Expand/exit.scm 133 */
										obj_t BgL_arg2102z00_1196;

										BgL_arg2102z00_1196 =
											MAKE_YOUNG_PAIR(CNST_TABLE_REF(24L), BNIL);
										BgL_arg2101z00_1195 =
											MAKE_YOUNG_PAIR(BgL_arg2102z00_1196, BNIL);
									}
									BgL_arg2100z00_1194 =
										MAKE_YOUNG_PAIR(BgL_tracespz00_1186, BgL_arg2101z00_1195);
								}
								BgL_arg2098z00_1192 =
									MAKE_YOUNG_PAIR(BgL_arg2100z00_1194, BNIL);
							}
							{	/* Expand/exit.scm 134 */
								obj_t BgL_arg2103z00_1197;

								{	/* Expand/exit.scm 134 */
									obj_t BgL_arg2104z00_1198;

									{	/* Expand/exit.scm 134 */
										obj_t BgL_arg2105z00_1199;
										obj_t BgL_arg2106z00_1200;

										{	/* Expand/exit.scm 134 */
											obj_t BgL_arg2107z00_1201;

											{	/* Expand/exit.scm 134 */
												obj_t BgL_arg2108z00_1202;

												BgL_arg2108z00_1202 =
													MAKE_YOUNG_PAIR(BgL_bodyz00_1187, BNIL);
												BgL_arg2107z00_1201 =
													MAKE_YOUNG_PAIR(BgL_tmpz00_1190, BgL_arg2108z00_1202);
											}
											BgL_arg2105z00_1199 =
												MAKE_YOUNG_PAIR(BgL_arg2107z00_1201, BNIL);
										}
										{	/* Expand/exit.scm 135 */
											obj_t BgL_arg2109z00_1203;
											obj_t BgL_arg2110z00_1204;

											{	/* Expand/exit.scm 135 */
												obj_t BgL_arg2111z00_1205;

												BgL_arg2111z00_1205 =
													MAKE_YOUNG_PAIR(BgL_tracespz00_1186, BNIL);
												BgL_arg2109z00_1203 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(25L),
													BgL_arg2111z00_1205);
											}
											BgL_arg2110z00_1204 =
												MAKE_YOUNG_PAIR(BgL_tmpz00_1190, BNIL);
											BgL_arg2106z00_1200 =
												MAKE_YOUNG_PAIR(BgL_arg2109z00_1203,
												BgL_arg2110z00_1204);
										}
										BgL_arg2104z00_1198 =
											MAKE_YOUNG_PAIR(BgL_arg2105z00_1199, BgL_arg2106z00_1200);
									}
									BgL_arg2103z00_1197 =
										MAKE_YOUNG_PAIR(CNST_TABLE_REF(11L), BgL_arg2104z00_1198);
								}
								BgL_arg2099z00_1193 =
									MAKE_YOUNG_PAIR(BgL_arg2103z00_1197, BNIL);
							}
							BgL_arg2097z00_1191 =
								MAKE_YOUNG_PAIR(BgL_arg2098z00_1192, BgL_arg2099z00_1193);
						}
						return MAKE_YOUNG_PAIR(CNST_TABLE_REF(11L), BgL_arg2097z00_1191);
					}
				}
			else
				{	/* Expand/exit.scm 131 */
					return BgL_bodyz00_1187;
				}
		}

	}



/* find-in-body~0 */
	bool_t BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(obj_t BgL_kz00_559,
		obj_t BgL_bodyz00_560)
	{
		{	/* Expand/exit.scm 73 */
		BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00:
			if ((BgL_bodyz00_560 == BgL_kz00_559))
				{	/* Expand/exit.scm 68 */
					return ((bool_t) 1);
				}
			else
				{	/* Expand/exit.scm 68 */
					if (PAIRP(BgL_bodyz00_560))
						{	/* Expand/exit.scm 70 */
							if ((CAR(BgL_bodyz00_560) == CNST_TABLE_REF(26L)))
								{	/* Expand/exit.scm 71 */
									return ((bool_t) 0);
								}
							else
								{	/* Expand/exit.scm 72 */
									bool_t BgL__ortest_1053z00_565;

									BgL__ortest_1053z00_565 =
										BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(BgL_kz00_559,
										CAR(BgL_bodyz00_560));
									if (BgL__ortest_1053z00_565)
										{	/* Expand/exit.scm 72 */
											return BgL__ortest_1053z00_565;
										}
									else
										{
											obj_t BgL_bodyz00_2998;

											BgL_bodyz00_2998 = CDR(BgL_bodyz00_560);
											BgL_bodyz00_560 = BgL_bodyz00_2998;
											goto BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00;
										}
								}
						}
					else
						{	/* Expand/exit.scm 70 */
							return ((bool_t) 0);
						}
				}
		}

	}



/* tailrec?~0 */
	bool_t BGl_tailreczf3ze70z14zzexpand_exitz00(obj_t BgL_exitz00_593,
		obj_t BgL_bodyz00_594)
	{
		{	/* Expand/exit.scm 103 */
		BGl_tailreczf3ze70z14zzexpand_exitz00:
			{
				obj_t BgL_exitz00_569;
				obj_t BgL_bodyz00_570;

				{
					obj_t BgL_bindingsz00_604;
					obj_t BgL_bodyz00_605;

					if (PAIRP(BgL_bodyz00_594))
						{	/* Expand/exit.scm 103 */
							obj_t BgL_cdrzd2492zd2_616;

							BgL_cdrzd2492zd2_616 = CDR(((obj_t) BgL_bodyz00_594));
							if ((CAR(((obj_t) BgL_bodyz00_594)) == BgL_exitz00_593))
								{	/* Expand/exit.scm 103 */
									if (PAIRP(BgL_cdrzd2492zd2_616))
										{	/* Expand/exit.scm 103 */
											if (NULLP(CDR(BgL_cdrzd2492zd2_616)))
												{	/* Expand/exit.scm 103 */
													if (BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00
														(BgL_exitz00_593, CAR(BgL_cdrzd2492zd2_616)))
														{	/* Expand/exit.scm 83 */
															return ((bool_t) 0);
														}
													else
														{	/* Expand/exit.scm 83 */
															return ((bool_t) 1);
														}
												}
											else
												{	/* Expand/exit.scm 103 */
													if (
														(CAR(
																((obj_t) BgL_bodyz00_594)) ==
															CNST_TABLE_REF(12L)))
														{	/* Expand/exit.scm 103 */
															if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
																(BgL_cdrzd2492zd2_616))
																{	/* Expand/exit.scm 103 */
																	BgL_exitz00_569 = BgL_exitz00_593;
																	BgL_bodyz00_570 = BgL_cdrzd2492zd2_616;
																BgL_zc3z04anonymousza31718ze3z87_571:
																	{	/* Expand/exit.scm 76 */
																		obj_t BgL_ydobz00_572;

																		BgL_ydobz00_572 =
																			bgl_reverse(BgL_bodyz00_570);
																		{	/* Expand/exit.scm 77 */
																			bool_t BgL_test2711z00_3024;

																			{
																				obj_t BgL_l1121z00_586;

																				BgL_l1121z00_586 =
																					CDR(((obj_t) BgL_ydobz00_572));
																			BgL_zc3z04anonymousza31732ze3z87_587:
																				if (NULLP(BgL_l1121z00_586))
																					{	/* Expand/exit.scm 77 */
																						BgL_test2711z00_3024 = ((bool_t) 0);
																					}
																				else
																					{	/* Expand/exit.scm 77 */
																						bool_t BgL__ortest_1124z00_589;

																						BgL__ortest_1124z00_589 =
																							BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00
																							(BgL_exitz00_569,
																							CAR(((obj_t) BgL_l1121z00_586)));
																						if (BgL__ortest_1124z00_589)
																							{	/* Expand/exit.scm 77 */
																								BgL_test2711z00_3024 =
																									BgL__ortest_1124z00_589;
																							}
																						else
																							{
																								obj_t BgL_l1121z00_3031;

																								BgL_l1121z00_3031 =
																									CDR(
																									((obj_t) BgL_l1121z00_586));
																								BgL_l1121z00_586 =
																									BgL_l1121z00_3031;
																								goto
																									BgL_zc3z04anonymousza31732ze3z87_587;
																							}
																					}
																			}
																			if (BgL_test2711z00_3024)
																				{	/* Expand/exit.scm 77 */
																					return ((bool_t) 0);
																				}
																			else
																				{	/* Expand/exit.scm 78 */
																					obj_t BgL_arg1731z00_583;

																					BgL_arg1731z00_583 =
																						CAR(((obj_t) BgL_ydobz00_572));
																					{
																						obj_t BgL_bodyz00_3039;
																						obj_t BgL_exitz00_3038;

																						BgL_exitz00_3038 = BgL_exitz00_569;
																						BgL_bodyz00_3039 =
																							BgL_arg1731z00_583;
																						BgL_bodyz00_594 = BgL_bodyz00_3039;
																						BgL_exitz00_593 = BgL_exitz00_3038;
																						goto
																							BGl_tailreczf3ze70z14zzexpand_exitz00;
																					}
																				}
																		}
																	}
																}
															else
																{	/* Expand/exit.scm 103 */
																	return ((bool_t) 0);
																}
														}
													else
														{	/* Expand/exit.scm 103 */
															obj_t BgL_cdrzd2559zd2_648;

															BgL_cdrzd2559zd2_648 =
																CDR(((obj_t) BgL_bodyz00_594));
															if (
																(CAR(
																		((obj_t) BgL_bodyz00_594)) ==
																	CNST_TABLE_REF(27L)))
																{	/* Expand/exit.scm 103 */
																	obj_t BgL_cdrzd2565zd2_651;

																	BgL_cdrzd2565zd2_651 =
																		CDR(((obj_t) BgL_cdrzd2559zd2_648));
																	if (PAIRP(BgL_cdrzd2565zd2_651))
																		{	/* Expand/exit.scm 103 */
																			obj_t BgL_cdrzd2571zd2_653;

																			BgL_cdrzd2571zd2_653 =
																				CDR(BgL_cdrzd2565zd2_651);
																			if (PAIRP(BgL_cdrzd2571zd2_653))
																				{	/* Expand/exit.scm 103 */
																					if (NULLP(CDR(BgL_cdrzd2571zd2_653)))
																						{	/* Expand/exit.scm 103 */
																							obj_t BgL_arg1771z00_657;
																							obj_t BgL_arg1773z00_658;
																							obj_t BgL_arg1776z00_659;

																							BgL_arg1771z00_657 =
																								CAR(
																								((obj_t) BgL_cdrzd2559zd2_648));
																							BgL_arg1773z00_658 =
																								CAR(BgL_cdrzd2565zd2_651);
																							BgL_arg1776z00_659 =
																								CAR(BgL_cdrzd2571zd2_653);
																							if (BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(BgL_exitz00_593, BgL_arg1771z00_657))
																								{	/* Expand/exit.scm 87 */
																									return ((bool_t) 0);
																								}
																							else
																								{	/* Expand/exit.scm 87 */
																									if (BGl_tailreczf3ze70z14zzexpand_exitz00(BgL_exitz00_593, BgL_arg1773z00_658))
																										{
																											obj_t BgL_bodyz00_3065;

																											BgL_bodyz00_3065 =
																												BgL_arg1776z00_659;
																											BgL_bodyz00_594 =
																												BgL_bodyz00_3065;
																											goto
																												BGl_tailreczf3ze70z14zzexpand_exitz00;
																										}
																									else
																										{	/* Expand/exit.scm 88 */
																											return ((bool_t) 0);
																										}
																								}
																						}
																					else
																						{	/* Expand/exit.scm 103 */
																							return ((bool_t) 0);
																						}
																				}
																			else
																				{	/* Expand/exit.scm 103 */
																					return ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Expand/exit.scm 103 */
																			return ((bool_t) 0);
																		}
																}
															else
																{	/* Expand/exit.scm 103 */
																	obj_t BgL_carzd2661zd2_724;

																	BgL_carzd2661zd2_724 =
																		CAR(((obj_t) BgL_bodyz00_594));
																	{

																		if (
																			(BgL_carzd2661zd2_724 ==
																				CNST_TABLE_REF(11L)))
																			{	/* Expand/exit.scm 103 */
																			BgL_kapzd2663zd2_726:
																				{	/* Expand/exit.scm 103 */
																					obj_t BgL_carzd2667zd2_765;

																					BgL_carzd2667zd2_765 =
																						CAR(((obj_t) BgL_cdrzd2559zd2_648));
																					if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_carzd2667zd2_765))
																						{	/* Expand/exit.scm 103 */
																							obj_t BgL_arg1852z00_767;

																							BgL_arg1852z00_767 =
																								CDR(
																								((obj_t) BgL_cdrzd2559zd2_648));
																							BgL_bindingsz00_604 =
																								BgL_carzd2667zd2_765;
																							BgL_bodyz00_605 =
																								BgL_arg1852z00_767;
																						BgL_tagzd2476zd2_606:
																							{	/* Expand/exit.scm 91 */
																								bool_t BgL_test2722z00_3077;

																								{
																									obj_t BgL_l1125z00_1079;

																									BgL_l1125z00_1079 =
																										BgL_bindingsz00_604;
																								BgL_zc3z04anonymousza32018ze3z87_1080:
																									if (NULLP
																										(BgL_l1125z00_1079))
																										{	/* Expand/exit.scm 91 */
																											BgL_test2722z00_3077 =
																												((bool_t) 0);
																										}
																									else
																										{	/* Expand/exit.scm 91 */
																											bool_t
																												BgL__ortest_1127z00_1082;
																											BgL__ortest_1127z00_1082 =
																												BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00
																												(BgL_exitz00_593,
																												CAR(((obj_t)
																														BgL_l1125z00_1079)));
																											if (BgL__ortest_1127z00_1082)
																												{	/* Expand/exit.scm 91 */
																													BgL_test2722z00_3077 =
																														BgL__ortest_1127z00_1082;
																												}
																											else
																												{
																													obj_t
																														BgL_l1125z00_3084;
																													BgL_l1125z00_3084 =
																														CDR(((obj_t)
																															BgL_l1125z00_1079));
																													BgL_l1125z00_1079 =
																														BgL_l1125z00_3084;
																													goto
																														BgL_zc3z04anonymousza32018ze3z87_1080;
																												}
																										}
																								}
																								if (BgL_test2722z00_3077)
																									{	/* Expand/exit.scm 91 */
																										return ((bool_t) 0);
																									}
																								else
																									{
																										obj_t BgL_bodyz00_3088;
																										obj_t BgL_exitz00_3087;

																										BgL_exitz00_3087 =
																											BgL_exitz00_593;
																										BgL_bodyz00_3088 =
																											BgL_bodyz00_605;
																										BgL_bodyz00_570 =
																											BgL_bodyz00_3088;
																										BgL_exitz00_569 =
																											BgL_exitz00_3087;
																										goto
																											BgL_zc3z04anonymousza31718ze3z87_571;
																									}
																							}
																						}
																					else
																						{	/* Expand/exit.scm 103 */
																							obj_t BgL_cdrzd2680zd2_768;

																							BgL_cdrzd2680zd2_768 =
																								CDR(((obj_t) BgL_bodyz00_594));
																							if (
																								(CAR(
																										((obj_t) BgL_bodyz00_594))
																									== CNST_TABLE_REF(28L)))
																								{	/* Expand/exit.scm 103 */
																									obj_t BgL_carzd2683zd2_771;

																									BgL_carzd2683zd2_771 =
																										CAR(
																										((obj_t)
																											BgL_cdrzd2680zd2_768));
																									if (PAIRP
																										(BgL_carzd2683zd2_771))
																										{	/* Expand/exit.scm 103 */
																											if (NULLP(CDR
																													(BgL_carzd2683zd2_771)))
																												{	/* Expand/exit.scm 103 */
																													obj_t
																														BgL_arg1860z00_775;
																													obj_t
																														BgL_arg1861z00_776;
																													BgL_arg1860z00_775 =
																														CAR
																														(BgL_carzd2683zd2_771);
																													BgL_arg1861z00_776 =
																														CDR(((obj_t)
																															BgL_cdrzd2680zd2_768));
																													if (
																														(BgL_arg1860z00_775
																															==
																															BgL_exitz00_593))
																														{	/* Expand/exit.scm 94 */
																															return ((bool_t)
																																0);
																														}
																													else
																														{
																															obj_t
																																BgL_bodyz00_3109;
																															obj_t
																																BgL_exitz00_3108;
																															BgL_exitz00_3108 =
																																BgL_exitz00_593;
																															BgL_bodyz00_3109 =
																																BgL_arg1861z00_776;
																															BgL_bodyz00_570 =
																																BgL_bodyz00_3109;
																															BgL_exitz00_569 =
																																BgL_exitz00_3108;
																															goto
																																BgL_zc3z04anonymousza31718ze3z87_571;
																														}
																												}
																											else
																												{	/* Expand/exit.scm 103 */
																													return ((bool_t) 0);
																												}
																										}
																									else
																										{	/* Expand/exit.scm 103 */
																											return ((bool_t) 0);
																										}
																								}
																							else
																								{	/* Expand/exit.scm 103 */
																									return
																										(CAR(
																											((obj_t) BgL_bodyz00_594))
																										== CNST_TABLE_REF(26L));
																								}
																						}
																				}
																			}
																		else
																			{	/* Expand/exit.scm 103 */
																				if (
																					(BgL_carzd2661zd2_724 ==
																						CNST_TABLE_REF(19L)))
																					{	/* Expand/exit.scm 103 */
																						goto BgL_kapzd2663zd2_726;
																					}
																				else
																					{	/* Expand/exit.scm 103 */
																						if (
																							(BgL_carzd2661zd2_724 ==
																								CNST_TABLE_REF(20L)))
																							{	/* Expand/exit.scm 103 */
																								goto BgL_kapzd2663zd2_726;
																							}
																						else
																							{	/* Expand/exit.scm 103 */
																								if (
																									(BgL_carzd2661zd2_724 ==
																										CNST_TABLE_REF(21L)))
																									{	/* Expand/exit.scm 103 */
																										goto BgL_kapzd2663zd2_726;
																									}
																								else
																									{	/* Expand/exit.scm 103 */
																										obj_t BgL_cdrzd2699zd2_727;

																										BgL_cdrzd2699zd2_727 =
																											CDR(
																											((obj_t)
																												BgL_bodyz00_594));
																										if ((CAR(((obj_t)
																														BgL_bodyz00_594)) ==
																												CNST_TABLE_REF(28L)))
																											{	/* Expand/exit.scm 103 */
																												obj_t
																													BgL_carzd2702zd2_730;
																												BgL_carzd2702zd2_730 =
																													CAR(((obj_t)
																														BgL_cdrzd2699zd2_727));
																												if (PAIRP
																													(BgL_carzd2702zd2_730))
																													{	/* Expand/exit.scm 103 */
																														if (NULLP(CDR
																																(BgL_carzd2702zd2_730)))
																															{	/* Expand/exit.scm 103 */
																																obj_t
																																	BgL_arg1834z00_734;
																																obj_t
																																	BgL_arg1835z00_735;
																																BgL_arg1834z00_734
																																	=
																																	CAR
																																	(BgL_carzd2702zd2_730);
																																BgL_arg1835z00_735
																																	=
																																	CDR(((obj_t)
																																		BgL_cdrzd2699zd2_727));
																																if (
																																	(BgL_arg1834z00_734
																																		==
																																		BgL_exitz00_593))
																																	{	/* Expand/exit.scm 94 */
																																		return (
																																			(bool_t)
																																			0);
																																	}
																																else
																																	{
																																		obj_t
																																			BgL_bodyz00_3143;
																																		obj_t
																																			BgL_exitz00_3142;
																																		BgL_exitz00_3142
																																			=
																																			BgL_exitz00_593;
																																		BgL_bodyz00_3143
																																			=
																																			BgL_arg1835z00_735;
																																		BgL_bodyz00_570
																																			=
																																			BgL_bodyz00_3143;
																																		BgL_exitz00_569
																																			=
																																			BgL_exitz00_3142;
																																		goto
																																			BgL_zc3z04anonymousza31718ze3z87_571;
																																	}
																															}
																														else
																															{	/* Expand/exit.scm 103 */
																																return ((bool_t)
																																	0);
																															}
																													}
																												else
																													{	/* Expand/exit.scm 103 */
																														return ((bool_t) 0);
																													}
																											}
																										else
																											{	/* Expand/exit.scm 103 */
																												return
																													(CAR(
																														((obj_t)
																															BgL_bodyz00_594))
																													==
																													CNST_TABLE_REF(26L));
																											}
																									}
																							}
																					}
																			}
																	}
																}
														}
												}
										}
									else
										{	/* Expand/exit.scm 103 */
											if (
												(CAR(((obj_t) BgL_bodyz00_594)) == CNST_TABLE_REF(12L)))
												{	/* Expand/exit.scm 103 */
													if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
														(BgL_cdrzd2492zd2_616))
														{
															obj_t BgL_bodyz00_3156;
															obj_t BgL_exitz00_3155;

															BgL_exitz00_3155 = BgL_exitz00_593;
															BgL_bodyz00_3156 = BgL_cdrzd2492zd2_616;
															BgL_bodyz00_570 = BgL_bodyz00_3156;
															BgL_exitz00_569 = BgL_exitz00_3155;
															goto BgL_zc3z04anonymousza31718ze3z87_571;
														}
													else
														{	/* Expand/exit.scm 103 */
															return ((bool_t) 0);
														}
												}
											else
												{	/* Expand/exit.scm 103 */
													return
														(CAR(
															((obj_t) BgL_bodyz00_594)) ==
														CNST_TABLE_REF(26L));
												}
										}
								}
							else
								{	/* Expand/exit.scm 103 */
									if ((CAR(((obj_t) BgL_bodyz00_594)) == CNST_TABLE_REF(12L)))
										{	/* Expand/exit.scm 103 */
											if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
												(BgL_cdrzd2492zd2_616))
												{
													obj_t BgL_bodyz00_3169;
													obj_t BgL_exitz00_3168;

													BgL_exitz00_3168 = BgL_exitz00_593;
													BgL_bodyz00_3169 = BgL_cdrzd2492zd2_616;
													BgL_bodyz00_570 = BgL_bodyz00_3169;
													BgL_exitz00_569 = BgL_exitz00_3168;
													goto BgL_zc3z04anonymousza31718ze3z87_571;
												}
											else
												{	/* Expand/exit.scm 103 */
													return ((bool_t) 0);
												}
										}
									else
										{	/* Expand/exit.scm 103 */
											obj_t BgL_cdrzd2822zd2_867;

											BgL_cdrzd2822zd2_867 = CDR(((obj_t) BgL_bodyz00_594));
											if (
												(CAR(((obj_t) BgL_bodyz00_594)) == CNST_TABLE_REF(27L)))
												{	/* Expand/exit.scm 103 */
													if (PAIRP(BgL_cdrzd2822zd2_867))
														{	/* Expand/exit.scm 103 */
															obj_t BgL_cdrzd2827zd2_871;

															BgL_cdrzd2827zd2_871 = CDR(BgL_cdrzd2822zd2_867);
															if (PAIRP(BgL_cdrzd2827zd2_871))
																{	/* Expand/exit.scm 103 */
																	obj_t BgL_cdrzd2832zd2_873;

																	BgL_cdrzd2832zd2_873 =
																		CDR(BgL_cdrzd2827zd2_871);
																	if (PAIRP(BgL_cdrzd2832zd2_873))
																		{	/* Expand/exit.scm 103 */
																			if (NULLP(CDR(BgL_cdrzd2832zd2_873)))
																				{	/* Expand/exit.scm 103 */
																					obj_t BgL_arg1922z00_877;
																					obj_t BgL_arg1923z00_878;
																					obj_t BgL_arg1924z00_879;

																					BgL_arg1922z00_877 =
																						CAR(BgL_cdrzd2822zd2_867);
																					BgL_arg1923z00_878 =
																						CAR(BgL_cdrzd2827zd2_871);
																					BgL_arg1924z00_879 =
																						CAR(BgL_cdrzd2832zd2_873);
																					if (BGl_findzd2inzd2bodyze70ze7zzexpand_exitz00(BgL_exitz00_593, BgL_arg1922z00_877))
																						{	/* Expand/exit.scm 87 */
																							return ((bool_t) 0);
																						}
																					else
																						{	/* Expand/exit.scm 87 */
																							if (BGl_tailreczf3ze70z14zzexpand_exitz00(BgL_exitz00_593, BgL_arg1923z00_878))
																								{
																									obj_t BgL_bodyz00_3195;

																									BgL_bodyz00_3195 =
																										BgL_arg1924z00_879;
																									BgL_bodyz00_594 =
																										BgL_bodyz00_3195;
																									goto
																										BGl_tailreczf3ze70z14zzexpand_exitz00;
																								}
																							else
																								{	/* Expand/exit.scm 88 */
																									return ((bool_t) 0);
																								}
																						}
																				}
																			else
																				{	/* Expand/exit.scm 103 */
																					return ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Expand/exit.scm 103 */
																			return ((bool_t) 0);
																		}
																}
															else
																{	/* Expand/exit.scm 103 */
																	return ((bool_t) 0);
																}
														}
													else
														{	/* Expand/exit.scm 103 */
															return ((bool_t) 0);
														}
												}
											else
												{	/* Expand/exit.scm 103 */
													obj_t BgL_carzd2942zd2_952;

													BgL_carzd2942zd2_952 = CAR(((obj_t) BgL_bodyz00_594));
													{

														if ((BgL_carzd2942zd2_952 == CNST_TABLE_REF(11L)))
															{	/* Expand/exit.scm 103 */
															BgL_kapzd2944zd2_954:
																if (PAIRP(BgL_cdrzd2822zd2_867))
																	{	/* Expand/exit.scm 103 */
																		obj_t BgL_carzd2947zd2_1003;

																		BgL_carzd2947zd2_1003 =
																			CAR(BgL_cdrzd2822zd2_867);
																		if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_carzd2947zd2_1003))
																			{
																				obj_t BgL_bodyz00_3207;
																				obj_t BgL_bindingsz00_3206;

																				BgL_bindingsz00_3206 =
																					BgL_carzd2947zd2_1003;
																				BgL_bodyz00_3207 =
																					CDR(BgL_cdrzd2822zd2_867);
																				BgL_bodyz00_605 = BgL_bodyz00_3207;
																				BgL_bindingsz00_604 =
																					BgL_bindingsz00_3206;
																				goto BgL_tagzd2476zd2_606;
																			}
																		else
																			{	/* Expand/exit.scm 103 */
																				obj_t BgL_cdrzd2958zd2_1006;

																				BgL_cdrzd2958zd2_1006 =
																					CDR(((obj_t) BgL_bodyz00_594));
																				if (
																					(CAR(
																							((obj_t) BgL_bodyz00_594)) ==
																						CNST_TABLE_REF(28L)))
																					{	/* Expand/exit.scm 103 */
																						obj_t BgL_carzd2961zd2_1009;

																						BgL_carzd2961zd2_1009 =
																							CAR(
																							((obj_t) BgL_cdrzd2958zd2_1006));
																						if (PAIRP(BgL_carzd2961zd2_1009))
																							{	/* Expand/exit.scm 103 */
																								if (NULLP(CDR
																										(BgL_carzd2961zd2_1009)))
																									{	/* Expand/exit.scm 103 */
																										obj_t BgL_arg1986z00_1013;
																										obj_t BgL_arg1987z00_1014;

																										BgL_arg1986z00_1013 =
																											CAR
																											(BgL_carzd2961zd2_1009);
																										BgL_arg1987z00_1014 =
																											CDR(((obj_t)
																												BgL_cdrzd2958zd2_1006));
																										if ((BgL_arg1986z00_1013 ==
																												BgL_exitz00_593))
																											{	/* Expand/exit.scm 94 */
																												return ((bool_t) 0);
																											}
																										else
																											{
																												obj_t BgL_bodyz00_3229;
																												obj_t BgL_exitz00_3228;

																												BgL_exitz00_3228 =
																													BgL_exitz00_593;
																												BgL_bodyz00_3229 =
																													BgL_arg1987z00_1014;
																												BgL_bodyz00_570 =
																													BgL_bodyz00_3229;
																												BgL_exitz00_569 =
																													BgL_exitz00_3228;
																												goto
																													BgL_zc3z04anonymousza31718ze3z87_571;
																											}
																									}
																								else
																									{	/* Expand/exit.scm 103 */
																										return ((bool_t) 0);
																									}
																							}
																						else
																							{	/* Expand/exit.scm 103 */
																								return ((bool_t) 0);
																							}
																					}
																				else
																					{	/* Expand/exit.scm 103 */
																						return
																							(CAR(
																								((obj_t) BgL_bodyz00_594)) ==
																							CNST_TABLE_REF(26L));
																					}
																			}
																	}
																else
																	{	/* Expand/exit.scm 103 */
																		return
																			(CAR(
																				((obj_t) BgL_bodyz00_594)) ==
																			CNST_TABLE_REF(26L));
																	}
															}
														else
															{	/* Expand/exit.scm 103 */
																if (
																	(BgL_carzd2942zd2_952 == CNST_TABLE_REF(19L)))
																	{	/* Expand/exit.scm 103 */
																		goto BgL_kapzd2944zd2_954;
																	}
																else
																	{	/* Expand/exit.scm 103 */
																		if (
																			(BgL_carzd2942zd2_952 ==
																				CNST_TABLE_REF(20L)))
																			{	/* Expand/exit.scm 103 */
																				goto BgL_kapzd2944zd2_954;
																			}
																		else
																			{	/* Expand/exit.scm 103 */
																				if (
																					(BgL_carzd2942zd2_952 ==
																						CNST_TABLE_REF(21L)))
																					{	/* Expand/exit.scm 103 */
																						goto BgL_kapzd2944zd2_954;
																					}
																				else
																					{	/* Expand/exit.scm 103 */
																						obj_t BgL_cdrzd2983zd2_955;

																						BgL_cdrzd2983zd2_955 =
																							CDR(((obj_t) BgL_bodyz00_594));
																						if (
																							(CAR(
																									((obj_t) BgL_bodyz00_594)) ==
																								CNST_TABLE_REF(28L)))
																							{	/* Expand/exit.scm 103 */
																								if (PAIRP(BgL_cdrzd2983zd2_955))
																									{	/* Expand/exit.scm 103 */
																										obj_t BgL_carzd2986zd2_959;

																										BgL_carzd2986zd2_959 =
																											CAR(BgL_cdrzd2983zd2_955);
																										if (PAIRP
																											(BgL_carzd2986zd2_959))
																											{	/* Expand/exit.scm 103 */
																												if (NULLP(CDR
																														(BgL_carzd2986zd2_959)))
																													{	/* Expand/exit.scm 103 */
																														obj_t
																															BgL_arg1959z00_963;
																														obj_t
																															BgL_arg1960z00_964;
																														BgL_arg1959z00_963 =
																															CAR
																															(BgL_carzd2986zd2_959);
																														BgL_arg1960z00_964 =
																															CDR
																															(BgL_cdrzd2983zd2_955);
																														if (
																															(BgL_arg1959z00_963
																																==
																																BgL_exitz00_593))
																															{	/* Expand/exit.scm 94 */
																																return ((bool_t)
																																	0);
																															}
																														else
																															{
																																obj_t
																																	BgL_bodyz00_3267;
																																obj_t
																																	BgL_exitz00_3266;
																																BgL_exitz00_3266
																																	=
																																	BgL_exitz00_593;
																																BgL_bodyz00_3267
																																	=
																																	BgL_arg1960z00_964;
																																BgL_bodyz00_570
																																	=
																																	BgL_bodyz00_3267;
																																BgL_exitz00_569
																																	=
																																	BgL_exitz00_3266;
																																goto
																																	BgL_zc3z04anonymousza31718ze3z87_571;
																															}
																													}
																												else
																													{	/* Expand/exit.scm 103 */
																														return ((bool_t) 0);
																													}
																											}
																										else
																											{	/* Expand/exit.scm 103 */
																												return ((bool_t) 0);
																											}
																									}
																								else
																									{	/* Expand/exit.scm 103 */
																										return ((bool_t) 0);
																									}
																							}
																						else
																							{	/* Expand/exit.scm 103 */
																								return
																									(CAR(
																										((obj_t) BgL_bodyz00_594))
																									== CNST_TABLE_REF(26L));
																							}
																					}
																			}
																	}
															}
													}
												}
										}
								}
						}
					else
						{	/* Expand/exit.scm 103 */
							if ((BgL_bodyz00_594 == BgL_exitz00_593))
								{	/* Expand/exit.scm 103 */
									return ((bool_t) 0);
								}
							else
								{	/* Expand/exit.scm 103 */
									return ((bool_t) 1);
								}
						}
				}
			}
		}

	}



/* return!~0 */
	obj_t BGl_returnz12ze70zf5zzexpand_exitz00(obj_t BgL_exitz00_1086,
		obj_t BgL_bodyz00_1087)
	{
		{	/* Expand/exit.scm 124 */
			{
				obj_t BgL_exprsz00_1091;
				obj_t BgL_exprsz00_1097;
				obj_t BgL_exprsz00_1099;

				if (PAIRP(BgL_bodyz00_1087))
					{	/* Expand/exit.scm 124 */
						obj_t BgL_cdrzd21034zd2_1104;

						BgL_cdrzd21034zd2_1104 = CDR(((obj_t) BgL_bodyz00_1087));
						if ((CAR(((obj_t) BgL_bodyz00_1087)) == BgL_exitz00_1086))
							{	/* Expand/exit.scm 124 */
								if (PAIRP(BgL_cdrzd21034zd2_1104))
									{	/* Expand/exit.scm 124 */
										if (NULLP(CDR(BgL_cdrzd21034zd2_1104)))
											{	/* Expand/exit.scm 124 */
												{	/* Expand/exit.scm 108 */
													obj_t BgL_objz00_1947;

													BgL_objz00_1947 = CNST_TABLE_REF(12L);
													SET_CAR(BgL_bodyz00_1087, BgL_objz00_1947);
												}
												return BgL_bodyz00_1087;
											}
										else
											{	/* Expand/exit.scm 124 */
												if (
													(CAR(
															((obj_t) BgL_bodyz00_1087)) ==
														CNST_TABLE_REF(12L)))
													{	/* Expand/exit.scm 124 */
														BgL_exprsz00_1091 = BgL_cdrzd21034zd2_1104;
													BgL_tagzd21021zd2_1092:
														BGl_returnz12ze70zf5zzexpand_exitz00
															(BgL_exitz00_1086,
															CAR
															(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																(BgL_exprsz00_1091)));
														return BgL_bodyz00_1087;
													}
												else
													{	/* Expand/exit.scm 124 */
														if (
															(CAR(
																	((obj_t) BgL_bodyz00_1087)) ==
																CNST_TABLE_REF(27L)))
															{	/* Expand/exit.scm 124 */
																obj_t BgL_cdrzd21062zd2_1117;

																BgL_cdrzd21062zd2_1117 =
																	CDR(((obj_t) BgL_cdrzd21034zd2_1104));
																if (PAIRP(BgL_cdrzd21062zd2_1117))
																	{	/* Expand/exit.scm 124 */
																		obj_t BgL_cdrzd21068zd2_1119;

																		BgL_cdrzd21068zd2_1119 =
																			CDR(BgL_cdrzd21062zd2_1117);
																		if (PAIRP(BgL_cdrzd21068zd2_1119))
																			{	/* Expand/exit.scm 124 */
																				if (NULLP(CDR(BgL_cdrzd21068zd2_1119)))
																					{	/* Expand/exit.scm 124 */
																						obj_t BgL_arg2039z00_1124;
																						obj_t BgL_arg2040z00_1125;

																						BgL_arg2039z00_1124 =
																							CAR(BgL_cdrzd21062zd2_1117);
																						BgL_arg2040z00_1125 =
																							CAR(BgL_cdrzd21068zd2_1119);
																						BGl_returnz12ze70zf5zzexpand_exitz00
																							(BgL_exitz00_1086,
																							BgL_arg2039z00_1124);
																						BGl_returnz12ze70zf5zzexpand_exitz00
																							(BgL_exitz00_1086,
																							BgL_arg2040z00_1125);
																						return BgL_bodyz00_1087;
																					}
																				else
																					{	/* Expand/exit.scm 124 */
																						return BgL_bodyz00_1087;
																					}
																			}
																		else
																			{	/* Expand/exit.scm 124 */
																				return BgL_bodyz00_1087;
																			}
																	}
																else
																	{	/* Expand/exit.scm 124 */
																		return BgL_bodyz00_1087;
																	}
															}
														else
															{	/* Expand/exit.scm 124 */
																obj_t BgL_carzd21115zd2_1127;
																obj_t BgL_cdrzd21116zd2_1128;

																BgL_carzd21115zd2_1127 =
																	CAR(((obj_t) BgL_bodyz00_1087));
																BgL_cdrzd21116zd2_1128 =
																	CDR(((obj_t) BgL_bodyz00_1087));
																if (
																	(BgL_carzd21115zd2_1127 ==
																		CNST_TABLE_REF(11L)))
																	{	/* Expand/exit.scm 124 */
																		obj_t BgL_arg2042z00_1129;

																		BgL_arg2042z00_1129 =
																			CDR(((obj_t) BgL_cdrzd21116zd2_1128));
																		BgL_exprsz00_1097 = BgL_arg2042z00_1129;
																	BgL_tagzd21023zd2_1098:
																		BGl_returnz12ze70zf5zzexpand_exitz00
																			(BgL_exitz00_1086,
																			CAR
																			(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																				(BgL_exprsz00_1097)));
																		return BgL_bodyz00_1087;
																	}
																else
																	{	/* Expand/exit.scm 124 */
																		if (
																			(BgL_carzd21115zd2_1127 ==
																				CNST_TABLE_REF(19L)))
																			{	/* Expand/exit.scm 124 */
																				obj_t BgL_arg2043z00_1130;

																				BgL_arg2043z00_1130 =
																					CDR(((obj_t) BgL_cdrzd21116zd2_1128));
																				{
																					obj_t BgL_exprsz00_3333;

																					BgL_exprsz00_3333 =
																						BgL_arg2043z00_1130;
																					BgL_exprsz00_1097 = BgL_exprsz00_3333;
																					goto BgL_tagzd21023zd2_1098;
																				}
																			}
																		else
																			{	/* Expand/exit.scm 124 */
																				if (
																					(BgL_carzd21115zd2_1127 ==
																						CNST_TABLE_REF(20L)))
																					{	/* Expand/exit.scm 124 */
																						obj_t BgL_arg2044z00_1131;

																						BgL_arg2044z00_1131 =
																							CDR(
																							((obj_t) BgL_cdrzd21116zd2_1128));
																						{
																							obj_t BgL_exprsz00_3339;

																							BgL_exprsz00_3339 =
																								BgL_arg2044z00_1131;
																							BgL_exprsz00_1097 =
																								BgL_exprsz00_3339;
																							goto BgL_tagzd21023zd2_1098;
																						}
																					}
																				else
																					{	/* Expand/exit.scm 124 */
																						if (
																							(BgL_carzd21115zd2_1127 ==
																								CNST_TABLE_REF(21L)))
																							{	/* Expand/exit.scm 124 */
																								obj_t BgL_arg2046z00_1132;

																								BgL_arg2046z00_1132 =
																									CDR(
																									((obj_t)
																										BgL_cdrzd21116zd2_1128));
																								{
																									obj_t BgL_exprsz00_3345;

																									BgL_exprsz00_3345 =
																										BgL_arg2046z00_1132;
																									BgL_exprsz00_1097 =
																										BgL_exprsz00_3345;
																									goto BgL_tagzd21023zd2_1098;
																								}
																							}
																						else
																							{	/* Expand/exit.scm 124 */
																								if (
																									(BgL_carzd21115zd2_1127 ==
																										CNST_TABLE_REF(28L)))
																									{	/* Expand/exit.scm 124 */
																										obj_t BgL_arg2049z00_1135;

																										{	/* Expand/exit.scm 124 */
																											obj_t BgL_pairz00_1966;

																											BgL_pairz00_1966 =
																												CDR(
																												((obj_t)
																													BgL_bodyz00_1087));
																											BgL_arg2049z00_1135 =
																												CDR(BgL_pairz00_1966);
																										}
																										BgL_exprsz00_1099 =
																											BgL_arg2049z00_1135;
																									BgL_tagzd21024zd2_1100:
																										BGl_returnz12ze70zf5zzexpand_exitz00(BgL_exitz00_1086, CAR(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_1099)));
																										return BgL_bodyz00_1087;
																									}
																								else
																									{	/* Expand/exit.scm 124 */
																										return BgL_bodyz00_1087;
																									}
																							}
																					}
																			}
																	}
															}
													}
											}
									}
								else
									{	/* Expand/exit.scm 124 */
										if (
											(CAR(((obj_t) BgL_bodyz00_1087)) == CNST_TABLE_REF(12L)))
											{
												obj_t BgL_exprsz00_3360;

												BgL_exprsz00_3360 = BgL_cdrzd21034zd2_1104;
												BgL_exprsz00_1091 = BgL_exprsz00_3360;
												goto BgL_tagzd21021zd2_1092;
											}
										else
											{	/* Expand/exit.scm 124 */
												return BgL_bodyz00_1087;
											}
									}
							}
						else
							{	/* Expand/exit.scm 124 */
								if ((CAR(((obj_t) BgL_bodyz00_1087)) == CNST_TABLE_REF(12L)))
									{
										obj_t BgL_exprsz00_3366;

										BgL_exprsz00_3366 = BgL_cdrzd21034zd2_1104;
										BgL_exprsz00_1091 = BgL_exprsz00_3366;
										goto BgL_tagzd21021zd2_1092;
									}
								else
									{	/* Expand/exit.scm 124 */
										if (
											(CAR(((obj_t) BgL_bodyz00_1087)) == CNST_TABLE_REF(27L)))
											{	/* Expand/exit.scm 124 */
												if (PAIRP(BgL_cdrzd21034zd2_1104))
													{	/* Expand/exit.scm 124 */
														obj_t BgL_cdrzd21172zd2_1152;

														BgL_cdrzd21172zd2_1152 =
															CDR(BgL_cdrzd21034zd2_1104);
														if (PAIRP(BgL_cdrzd21172zd2_1152))
															{	/* Expand/exit.scm 124 */
																obj_t BgL_cdrzd21177zd2_1154;

																BgL_cdrzd21177zd2_1154 =
																	CDR(BgL_cdrzd21172zd2_1152);
																if (PAIRP(BgL_cdrzd21177zd2_1154))
																	{	/* Expand/exit.scm 124 */
																		if (NULLP(CDR(BgL_cdrzd21177zd2_1154)))
																			{	/* Expand/exit.scm 124 */
																				obj_t BgL_arg2072z00_1159;
																				obj_t BgL_arg2073z00_1160;

																				BgL_arg2072z00_1159 =
																					CAR(BgL_cdrzd21172zd2_1152);
																				BgL_arg2073z00_1160 =
																					CAR(BgL_cdrzd21177zd2_1154);
																				BGl_returnz12ze70zf5zzexpand_exitz00
																					(BgL_exitz00_1086,
																					BgL_arg2072z00_1159);
																				BGl_returnz12ze70zf5zzexpand_exitz00
																					(BgL_exitz00_1086,
																					BgL_arg2073z00_1160);
																				return BgL_bodyz00_1087;
																			}
																		else
																			{	/* Expand/exit.scm 124 */
																				return BgL_bodyz00_1087;
																			}
																	}
																else
																	{	/* Expand/exit.scm 124 */
																		return BgL_bodyz00_1087;
																	}
															}
														else
															{	/* Expand/exit.scm 124 */
																return BgL_bodyz00_1087;
															}
													}
												else
													{	/* Expand/exit.scm 124 */
														return BgL_bodyz00_1087;
													}
											}
										else
											{	/* Expand/exit.scm 124 */
												obj_t BgL_carzd21228zd2_1162;
												obj_t BgL_cdrzd21229zd2_1163;

												BgL_carzd21228zd2_1162 =
													CAR(((obj_t) BgL_bodyz00_1087));
												BgL_cdrzd21229zd2_1163 =
													CDR(((obj_t) BgL_bodyz00_1087));
												{

													if ((BgL_carzd21228zd2_1162 == CNST_TABLE_REF(11L)))
														{	/* Expand/exit.scm 124 */
														BgL_kapzd21230zd2_1164:
															if (PAIRP(BgL_cdrzd21229zd2_1163))
																{
																	obj_t BgL_exprsz00_3396;

																	BgL_exprsz00_3396 =
																		CDR(BgL_cdrzd21229zd2_1163);
																	BgL_exprsz00_1097 = BgL_exprsz00_3396;
																	goto BgL_tagzd21023zd2_1098;
																}
															else
																{	/* Expand/exit.scm 124 */
																	return BgL_bodyz00_1087;
																}
														}
													else
														{	/* Expand/exit.scm 124 */
															if (
																(BgL_carzd21228zd2_1162 == CNST_TABLE_REF(19L)))
																{	/* Expand/exit.scm 124 */
																	goto BgL_kapzd21230zd2_1164;
																}
															else
																{	/* Expand/exit.scm 124 */
																	if (
																		(BgL_carzd21228zd2_1162 ==
																			CNST_TABLE_REF(20L)))
																		{	/* Expand/exit.scm 124 */
																			goto BgL_kapzd21230zd2_1164;
																		}
																	else
																		{	/* Expand/exit.scm 124 */
																			if (
																				(BgL_carzd21228zd2_1162 ==
																					CNST_TABLE_REF(21L)))
																				{	/* Expand/exit.scm 124 */
																					goto BgL_kapzd21230zd2_1164;
																				}
																			else
																				{	/* Expand/exit.scm 124 */
																					if (
																						(CAR(
																								((obj_t) BgL_bodyz00_1087)) ==
																							CNST_TABLE_REF(28L)))
																						{	/* Expand/exit.scm 124 */
																							if (PAIRP(BgL_cdrzd21229zd2_1163))
																								{
																									obj_t BgL_exprsz00_3414;

																									BgL_exprsz00_3414 =
																										CDR(BgL_cdrzd21229zd2_1163);
																									BgL_exprsz00_1099 =
																										BgL_exprsz00_3414;
																									goto BgL_tagzd21024zd2_1100;
																								}
																							else
																								{	/* Expand/exit.scm 124 */
																									return BgL_bodyz00_1087;
																								}
																						}
																					else
																						{	/* Expand/exit.scm 124 */
																							return BgL_bodyz00_1087;
																						}
																				}
																		}
																}
														}
												}
											}
									}
							}
					}
				else
					{	/* Expand/exit.scm 124 */
						return BgL_bodyz00_1087;
					}
			}
		}

	}



/* &expand-bind-exit */
	obj_t BGl_z62expandzd2bindzd2exitz62zzexpand_exitz00(obj_t BgL_envz00_2212,
		obj_t BgL_xz00_2213, obj_t BgL_ez00_2214)
	{
		{	/* Expand/exit.scm 64 */
			return
				BGl_expandzd2bindzd2exitz00zzexpand_exitz00(BgL_xz00_2213,
				BgL_ez00_2214);
		}

	}



/* expand-unwind-protect */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2unwindzd2protectz00zzexpand_exitz00(obj_t
		BgL_xz00_33, obj_t BgL_ez00_34)
	{
		{	/* Expand/exit.scm 255 */
			{
				obj_t BgL_tracespz00_1490;
				obj_t BgL_bodyz00_1491;
				obj_t BgL_expz00_1511;
				obj_t BgL_cleanupz00_1512;
				obj_t BgL_expz00_1563;
				obj_t BgL_ohsz00_1564;
				obj_t BgL_expz00_1610;
				obj_t BgL_envz00_1611;
				obj_t BgL_ohsz00_1612;

				{

					if (PAIRP(BgL_xz00_33))
						{	/* Expand/exit.scm 314 */
							obj_t BgL_cdrzd21982zd2_1393;

							BgL_cdrzd21982zd2_1393 = CDR(((obj_t) BgL_xz00_33));
							if (PAIRP(BgL_cdrzd21982zd2_1393))
								{	/* Expand/exit.scm 314 */
									obj_t BgL_cdrzd21986zd2_1395;

									BgL_cdrzd21986zd2_1395 = CDR(BgL_cdrzd21982zd2_1393);
									if (PAIRP(BgL_cdrzd21986zd2_1395))
										{	/* Expand/exit.scm 314 */
											obj_t BgL_carzd21989zd2_1397;

											BgL_carzd21989zd2_1397 = CAR(BgL_cdrzd21986zd2_1395);
											if (PAIRP(BgL_carzd21989zd2_1397))
												{	/* Expand/exit.scm 314 */
													obj_t BgL_cdrzd21993zd2_1399;

													BgL_cdrzd21993zd2_1399 = CDR(BgL_carzd21989zd2_1397);
													if (
														(CAR(BgL_carzd21989zd2_1397) ==
															CNST_TABLE_REF(36L)))
														{	/* Expand/exit.scm 314 */
															if (PAIRP(BgL_cdrzd21993zd2_1399))
																{	/* Expand/exit.scm 314 */
																	obj_t BgL_carzd21995zd2_1403;

																	BgL_carzd21995zd2_1403 =
																		CAR(BgL_cdrzd21993zd2_1399);
																	if (SYMBOLP(BgL_carzd21995zd2_1403))
																		{	/* Expand/exit.scm 314 */
																			if (NULLP(CDR(BgL_cdrzd21993zd2_1399)))
																				{	/* Expand/exit.scm 314 */
																					if (NULLP(CDR
																							(BgL_cdrzd21986zd2_1395)))
																						{	/* Expand/exit.scm 314 */
																							BgL_expz00_1563 =
																								CAR(BgL_cdrzd21982zd2_1393);
																							BgL_ohsz00_1564 =
																								BgL_carzd21995zd2_1403;
																							{	/* Expand/exit.scm 289 */
																								obj_t BgL_exitdz00_1566;
																								obj_t BgL_tmpz00_1567;
																								obj_t BgL_protectz00_1568;

																								BgL_exitdz00_1566 =
																									BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																									(BGl_gensymz00zz__r4_symbols_6_4z00
																									(CNST_TABLE_REF(29L)));
																								BgL_tmpz00_1567 =
																									BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																									(BGl_gensymz00zz__r4_symbols_6_4z00
																									(CNST_TABLE_REF(23L)));
																								BgL_protectz00_1568 =
																									BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																									(BGl_gensymz00zz__r4_symbols_6_4z00
																									(CNST_TABLE_REF(23L)));
																								{	/* Expand/exit.scm 292 */
																									obj_t BgL_newz00_1569;

																									{	/* Expand/exit.scm 292 */
																										obj_t BgL_arg2383z00_1571;

																										{	/* Expand/exit.scm 292 */
																											obj_t BgL_arg2384z00_1572;
																											obj_t BgL_arg2385z00_1573;

																											{	/* Expand/exit.scm 292 */
																												obj_t
																													BgL_arg2387z00_1574;
																												obj_t
																													BgL_arg2388z00_1575;
																												{	/* Expand/exit.scm 292 */
																													obj_t
																														BgL_arg2389z00_1576;
																													{	/* Expand/exit.scm 292 */
																														obj_t
																															BgL_arg2391z00_1577;
																														BgL_arg2391z00_1577
																															=
																															MAKE_YOUNG_PAIR
																															(CNST_TABLE_REF
																															(35L), BNIL);
																														BgL_arg2389z00_1576
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg2391z00_1577,
																															BNIL);
																													}
																													BgL_arg2387z00_1574 =
																														MAKE_YOUNG_PAIR
																														(BgL_exitdz00_1566,
																														BgL_arg2389z00_1576);
																												}
																												{	/* Expand/exit.scm 293 */
																													obj_t
																														BgL_arg2393z00_1578;
																													{	/* Expand/exit.scm 293 */
																														obj_t
																															BgL_arg2394z00_1579;
																														{	/* Expand/exit.scm 293 */
																															obj_t
																																BgL_arg2395z00_1580;
																															{	/* Expand/exit.scm 293 */
																																obj_t
																																	BgL_arg2396z00_1581;
																																{	/* Expand/exit.scm 293 */
																																	obj_t
																																		BgL_arg2397z00_1582;
																																	{	/* Expand/exit.scm 293 */
																																		obj_t
																																			BgL_arg2398z00_1583;
																																		{	/* Expand/exit.scm 293 */
																																			obj_t
																																				BgL_arg2399z00_1584;
																																			BgL_arg2399z00_1584
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_exitdz00_1566,
																																				BNIL);
																																			BgL_arg2398z00_1583
																																				=
																																				MAKE_YOUNG_PAIR
																																				(CNST_TABLE_REF
																																				(30L),
																																				BgL_arg2399z00_1584);
																																		}
																																		BgL_arg2397z00_1582
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2398z00_1583,
																																			BNIL);
																																	}
																																	BgL_arg2396z00_1581
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_ohsz00_1564,
																																		BgL_arg2397z00_1582);
																																}
																																BgL_arg2395z00_1580
																																	=
																																	MAKE_YOUNG_PAIR
																																	(CNST_TABLE_REF
																																	(31L),
																																	BgL_arg2396z00_1581);
																															}
																															BgL_arg2394z00_1579
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg2395z00_1580,
																																BNIL);
																														}
																														BgL_arg2393z00_1578
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_protectz00_1568,
																															BgL_arg2394z00_1579);
																													}
																													BgL_arg2388z00_1575 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg2393z00_1578,
																														BNIL);
																												}
																												BgL_arg2384z00_1572 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg2387z00_1574,
																													BgL_arg2388z00_1575);
																											}
																											{	/* Expand/exit.scm 294 */
																												obj_t
																													BgL_arg2401z00_1585;
																												obj_t
																													BgL_arg2402z00_1586;
																												{	/* Expand/exit.scm 294 */
																													obj_t
																														BgL_arg2403z00_1587;
																													obj_t
																														BgL_arg2404z00_1588;
																													{	/* Expand/exit.scm 294 */
																														obj_t
																															BgL_arg2405z00_1589;
																														{	/* Expand/exit.scm 294 */
																															obj_t
																																BgL_arg2407z00_1590;
																															BgL_arg2407z00_1590
																																=
																																MAKE_YOUNG_PAIR
																																(CNST_TABLE_REF
																																(15L), BNIL);
																															BgL_arg2405z00_1589
																																=
																																MAKE_YOUNG_PAIR
																																(CNST_TABLE_REF
																																(32L),
																																BgL_arg2407z00_1590);
																														}
																														BgL_arg2403z00_1587
																															=
																															MAKE_YOUNG_PAIR
																															(CNST_TABLE_REF
																															(17L),
																															BgL_arg2405z00_1589);
																													}
																													{	/* Expand/exit.scm 294 */
																														obj_t
																															BgL_arg2409z00_1591;
																														BgL_arg2409z00_1591
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_protectz00_1568,
																															BNIL);
																														BgL_arg2404z00_1588
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_exitdz00_1566,
																															BgL_arg2409z00_1591);
																													}
																													BgL_arg2401z00_1585 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg2403z00_1587,
																														BgL_arg2404z00_1588);
																												}
																												{	/* Expand/exit.scm 295 */
																													obj_t
																														BgL_arg2410z00_1592;
																													{	/* Expand/exit.scm 295 */
																														obj_t
																															BgL_arg2411z00_1593;
																														{	/* Expand/exit.scm 295 */
																															obj_t
																																BgL_arg2412z00_1594;
																															obj_t
																																BgL_arg2414z00_1595;
																															{	/* Expand/exit.scm 295 */
																																obj_t
																																	BgL_arg2415z00_1596;
																																{	/* Expand/exit.scm 295 */
																																	obj_t
																																		BgL_arg2416z00_1597;
																																	BgL_arg2416z00_1597
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_expz00_1563,
																																		BNIL);
																																	BgL_arg2415z00_1596
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_tmpz00_1567,
																																		BgL_arg2416z00_1597);
																																}
																																BgL_arg2412z00_1594
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg2415z00_1596,
																																	BNIL);
																															}
																															{	/* Expand/exit.scm 296 */
																																obj_t
																																	BgL_arg2417z00_1598;
																																obj_t
																																	BgL_arg2418z00_1599;
																																{	/* Expand/exit.scm 296 */
																																	obj_t
																																		BgL_arg2420z00_1600;
																																	obj_t
																																		BgL_arg2421z00_1601;
																																	{	/* Expand/exit.scm 296 */
																																		obj_t
																																			BgL_arg2422z00_1602;
																																		{	/* Expand/exit.scm 296 */
																																			obj_t
																																				BgL_arg2423z00_1603;
																																			BgL_arg2423z00_1603
																																				=
																																				MAKE_YOUNG_PAIR
																																				(CNST_TABLE_REF
																																				(15L),
																																				BNIL);
																																			BgL_arg2422z00_1602
																																				=
																																				MAKE_YOUNG_PAIR
																																				(CNST_TABLE_REF
																																				(33L),
																																				BgL_arg2423z00_1603);
																																		}
																																		BgL_arg2420z00_1600
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(17L),
																																			BgL_arg2422z00_1602);
																																	}
																																	BgL_arg2421z00_1601
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_exitdz00_1566,
																																		BNIL);
																																	BgL_arg2417z00_1598
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2420z00_1600,
																																		BgL_arg2421z00_1601);
																																}
																																{	/* Expand/exit.scm 297 */
																																	obj_t
																																		BgL_arg2425z00_1604;
																																	obj_t
																																		BgL_arg2426z00_1605;
																																	{	/* Expand/exit.scm 297 */
																																		obj_t
																																			BgL_arg2427z00_1606;
																																		BgL_arg2427z00_1606
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_ohsz00_1564,
																																			BNIL);
																																		BgL_arg2425z00_1604
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(36L),
																																			BgL_arg2427z00_1606);
																																	}
																																	BgL_arg2426z00_1605
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_tmpz00_1567,
																																		BNIL);
																																	BgL_arg2418z00_1599
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2425z00_1604,
																																		BgL_arg2426z00_1605);
																																}
																																BgL_arg2414z00_1595
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg2417z00_1598,
																																	BgL_arg2418z00_1599);
																															}
																															BgL_arg2411z00_1593
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg2412z00_1594,
																																BgL_arg2414z00_1595);
																														}
																														BgL_arg2410z00_1592
																															=
																															MAKE_YOUNG_PAIR
																															(CNST_TABLE_REF
																															(11L),
																															BgL_arg2411z00_1593);
																													}
																													BgL_arg2402z00_1586 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg2410z00_1592,
																														BNIL);
																												}
																												BgL_arg2385z00_1573 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg2401z00_1585,
																													BgL_arg2402z00_1586);
																											}
																											BgL_arg2383z00_1571 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg2384z00_1572,
																												BgL_arg2385z00_1573);
																										}
																										BgL_newz00_1569 =
																											MAKE_YOUNG_PAIR
																											(CNST_TABLE_REF(19L),
																											BgL_arg2383z00_1571);
																									}
																									{	/* Expand/exit.scm 299 */
																										obj_t BgL_arg2382z00_1570;

																										BgL_arg2382z00_1570 =
																											(VA_PROCEDUREP
																											(BgL_ez00_34)
																											? ((obj_t(*)(obj_t,
																														...))
																												PROCEDURE_ENTRY
																												(BgL_ez00_34))
																											(BgL_ez00_34,
																												BgL_newz00_1569,
																												BgL_ez00_34,
																												BEOA)
																											: ((obj_t(*)(obj_t, obj_t,
																														obj_t))
																												PROCEDURE_ENTRY
																												(BgL_ez00_34))
																											(BgL_ez00_34,
																												BgL_newz00_1569,
																												BgL_ez00_34));
																										return
																											BGl_replacez12z12zztools_miscz00
																											(BgL_xz00_33,
																											BgL_arg2382z00_1570);
																									}
																								}
																							}
																						}
																					else
																						{	/* Expand/exit.scm 314 */
																							obj_t BgL_cdrzd22019zd2_1411;

																							BgL_cdrzd22019zd2_1411 =
																								CDR(
																								((obj_t)
																									BgL_cdrzd21982zd2_1393));
																							if (PAIRP(BgL_cdrzd22019zd2_1411))
																								{	/* Expand/exit.scm 314 */
																									obj_t BgL_arg2262z00_1413;

																									BgL_arg2262z00_1413 =
																										CAR(
																										((obj_t)
																											BgL_cdrzd21982zd2_1393));
																									BgL_expz00_1511 =
																										BgL_arg2262z00_1413;
																									BgL_cleanupz00_1512 =
																										BgL_cdrzd22019zd2_1411;
																								BgL_zc3z04anonymousza32329ze3z87_1513:
																									{	/* Expand/exit.scm 271 */
																										obj_t BgL_exitdz00_1514;
																										obj_t BgL_protectz00_1515;
																										obj_t BgL_tmpz00_1516;
																										obj_t BgL_tracespz00_1517;

																										BgL_exitdz00_1514 =
																											BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																											(BGl_gensymz00zz__r4_symbols_6_4z00
																											(CNST_TABLE_REF(29L)));
																										BgL_protectz00_1515 =
																											BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																											(BGl_gensymz00zz__r4_symbols_6_4z00
																											(CNST_TABLE_REF(37L)));
																										BgL_tmpz00_1516 =
																											BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																											(BGl_gensymz00zz__r4_symbols_6_4z00
																											(CNST_TABLE_REF(23L)));
																										BgL_tracespz00_1517 =
																											BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																											(BGl_gensymz00zz__r4_symbols_6_4z00
																											(CNST_TABLE_REF(7L)));
																										{	/* Expand/exit.scm 275 */
																											obj_t BgL_newz00_1518;

																											{	/* Expand/exit.scm 276 */
																												obj_t
																													BgL_arg2331z00_1520;
																												{	/* Expand/exit.scm 276 */
																													obj_t
																														BgL_arg2332z00_1521;
																													{	/* Expand/exit.scm 276 */
																														obj_t
																															BgL_arg2333z00_1522;
																														obj_t
																															BgL_arg2334z00_1523;
																														{	/* Expand/exit.scm 276 */
																															obj_t
																																BgL_arg2335z00_1524;
																															obj_t
																																BgL_arg2336z00_1525;
																															{	/* Expand/exit.scm 276 */
																																obj_t
																																	BgL_arg2337z00_1526;
																																{	/* Expand/exit.scm 276 */
																																	obj_t
																																		BgL_arg2338z00_1527;
																																	BgL_arg2338z00_1527
																																		=
																																		MAKE_YOUNG_PAIR
																																		(CNST_TABLE_REF
																																		(35L),
																																		BNIL);
																																	BgL_arg2337z00_1526
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2338z00_1527,
																																		BNIL);
																																}
																																BgL_arg2335z00_1524
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_exitdz00_1514,
																																	BgL_arg2337z00_1526);
																															}
																															{	/* Expand/exit.scm 277 */
																																obj_t
																																	BgL_arg2339z00_1528;
																																{	/* Expand/exit.scm 277 */
																																	obj_t
																																		BgL_arg2340z00_1529;
																																	{	/* Expand/exit.scm 277 */
																																		obj_t
																																			BgL_arg2341z00_1530;
																																		{	/* Expand/exit.scm 277 */
																																			obj_t
																																				BgL_arg2342z00_1531;
																																			BgL_arg2342z00_1531
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BNIL,
																																				BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																				(BgL_cleanupz00_1512,
																																					BNIL));
																																			BgL_arg2341z00_1530
																																				=
																																				MAKE_YOUNG_PAIR
																																				(CNST_TABLE_REF
																																				(38L),
																																				BgL_arg2342z00_1531);
																																		}
																																		BgL_arg2340z00_1529
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2341z00_1530,
																																			BNIL);
																																	}
																																	BgL_arg2339z00_1528
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_protectz00_1515,
																																		BgL_arg2340z00_1529);
																																}
																																BgL_arg2336z00_1525
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg2339z00_1528,
																																	BNIL);
																															}
																															BgL_arg2333z00_1522
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg2335z00_1524,
																																BgL_arg2336z00_1525);
																														}
																														{	/* Expand/exit.scm 278 */
																															obj_t
																																BgL_arg2345z00_1533;
																															obj_t
																																BgL_arg2346z00_1534;
																															{	/* Expand/exit.scm 278 */
																																obj_t
																																	BgL_arg2348z00_1535;
																																obj_t
																																	BgL_arg2349z00_1536;
																																{	/* Expand/exit.scm 278 */
																																	obj_t
																																		BgL_arg2351z00_1537;
																																	{	/* Expand/exit.scm 278 */
																																		obj_t
																																			BgL_arg2352z00_1538;
																																		BgL_arg2352z00_1538
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(15L),
																																			BNIL);
																																		BgL_arg2351z00_1537
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(39L),
																																			BgL_arg2352z00_1538);
																																	}
																																	BgL_arg2348z00_1535
																																		=
																																		MAKE_YOUNG_PAIR
																																		(CNST_TABLE_REF
																																		(17L),
																																		BgL_arg2351z00_1537);
																																}
																																{	/* Expand/exit.scm 278 */
																																	obj_t
																																		BgL_arg2353z00_1539;
																																	BgL_arg2353z00_1539
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_protectz00_1515,
																																		BNIL);
																																	BgL_arg2349z00_1536
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_exitdz00_1514,
																																		BgL_arg2353z00_1539);
																																}
																																BgL_arg2345z00_1533
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg2348z00_1535,
																																	BgL_arg2349z00_1536);
																															}
																															{	/* Expand/exit.scm 279 */
																																obj_t
																																	BgL_arg2354z00_1540;
																																{	/* Expand/exit.scm 279 */
																																	obj_t
																																		BgL_arg2355z00_1541;
																																	{	/* Expand/exit.scm 279 */
																																		obj_t
																																			BgL_arg2356z00_1542;
																																		obj_t
																																			BgL_arg2357z00_1543;
																																		{	/* Expand/exit.scm 279 */
																																			obj_t
																																				BgL_arg2358z00_1544;
																																			{	/* Expand/exit.scm 279 */
																																				obj_t
																																					BgL_arg2359z00_1545;
																																				BgL_arg2359z00_1545
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_expz00_1511,
																																					BNIL);
																																				BgL_arg2358z00_1544
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_tmpz00_1516,
																																					BgL_arg2359z00_1545);
																																			}
																																			BgL_arg2356z00_1542
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2358z00_1544,
																																				BNIL);
																																		}
																																		{	/* Expand/exit.scm 280 */
																																			obj_t
																																				BgL_arg2360z00_1546;
																																			obj_t
																																				BgL_arg2362z00_1547;
																																			{	/* Expand/exit.scm 280 */
																																				obj_t
																																					BgL_arg2363z00_1548;
																																				obj_t
																																					BgL_arg2364z00_1549;
																																				{	/* Expand/exit.scm 280 */
																																					obj_t
																																						BgL_arg2365z00_1550;
																																					{	/* Expand/exit.scm 280 */
																																						obj_t
																																							BgL_arg2366z00_1551;
																																						BgL_arg2366z00_1551
																																							=
																																							MAKE_YOUNG_PAIR
																																							(CNST_TABLE_REF
																																							(15L),
																																							BNIL);
																																						BgL_arg2365z00_1550
																																							=
																																							MAKE_YOUNG_PAIR
																																							(CNST_TABLE_REF
																																							(33L),
																																							BgL_arg2366z00_1551);
																																					}
																																					BgL_arg2363z00_1548
																																						=
																																						MAKE_YOUNG_PAIR
																																						(CNST_TABLE_REF
																																						(17L),
																																						BgL_arg2365z00_1550);
																																				}
																																				BgL_arg2364z00_1549
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_exitdz00_1514,
																																					BNIL);
																																				BgL_arg2360z00_1546
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg2363z00_1548,
																																					BgL_arg2364z00_1549);
																																			}
																																			{	/* Expand/exit.scm 281 */
																																				obj_t
																																					BgL_arg2367z00_1552;
																																				obj_t
																																					BgL_arg2368z00_1553;
																																				if (BGl_tracezf3ze70z14zzexpand_exitz00())
																																					{	/* Expand/exit.scm 282 */
																																						obj_t
																																							BgL_arg2370z00_1555;
																																						{	/* Expand/exit.scm 282 */
																																							obj_t
																																								BgL_arg2371z00_1556;
																																							BgL_arg2371z00_1556
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_tracespz00_1517,
																																								BNIL);
																																							BgL_arg2370z00_1555
																																								=
																																								MAKE_YOUNG_PAIR
																																								(CNST_TABLE_REF
																																								(25L),
																																								BgL_arg2371z00_1556);
																																						}
																																						BgL_arg2367z00_1552
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg2370z00_1555,
																																							BNIL);
																																					}
																																				else
																																					{	/* Expand/exit.scm 281 */
																																						BgL_arg2367z00_1552
																																							=
																																							BNIL;
																																					}
																																				{	/* Expand/exit.scm 284 */
																																					obj_t
																																						BgL_arg2373z00_1557;
																																					obj_t
																																						BgL_arg2374z00_1558;
																																					BgL_arg2373z00_1557
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_protectz00_1515,
																																						BNIL);
																																					BgL_arg2374z00_1558
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_tmpz00_1516,
																																						BNIL);
																																					BgL_arg2368z00_1553
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg2373z00_1557,
																																						BgL_arg2374z00_1558);
																																				}
																																				BgL_arg2362z00_1547
																																					=
																																					BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																					(BgL_arg2367z00_1552,
																																					BgL_arg2368z00_1553);
																																			}
																																			BgL_arg2357z00_1543
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2360z00_1546,
																																				BgL_arg2362z00_1547);
																																		}
																																		BgL_arg2355z00_1541
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2356z00_1542,
																																			BgL_arg2357z00_1543);
																																	}
																																	BgL_arg2354z00_1540
																																		=
																																		MAKE_YOUNG_PAIR
																																		(CNST_TABLE_REF
																																		(11L),
																																		BgL_arg2355z00_1541);
																																}
																																BgL_arg2346z00_1534
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg2354z00_1540,
																																	BNIL);
																															}
																															BgL_arg2334z00_1523
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg2345z00_1533,
																																BgL_arg2346z00_1534);
																														}
																														BgL_arg2332z00_1521
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg2333z00_1522,
																															BgL_arg2334z00_1523);
																													}
																													BgL_arg2331z00_1520 =
																														MAKE_YOUNG_PAIR
																														(CNST_TABLE_REF
																														(11L),
																														BgL_arg2332z00_1521);
																												}
																												BgL_tracespz00_1490 =
																													BgL_tracespz00_1517;
																												BgL_bodyz00_1491 =
																													BgL_arg2331z00_1520;
																												if (BGl_tracezf3ze70z14zzexpand_exitz00())
																													{	/* Expand/exit.scm 263 */
																														obj_t
																															BgL_tmpz00_1494;
																														BgL_tmpz00_1494 =
																															BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																															(BGl_gensymz00zz__r4_symbols_6_4z00
																															(CNST_TABLE_REF
																																(23L)));
																														{	/* Expand/exit.scm 264 */
																															obj_t
																																BgL_arg2310z00_1495;
																															{	/* Expand/exit.scm 264 */
																																obj_t
																																	BgL_arg2311z00_1496;
																																obj_t
																																	BgL_arg2312z00_1497;
																																{	/* Expand/exit.scm 264 */
																																	obj_t
																																		BgL_arg2313z00_1498;
																																	{	/* Expand/exit.scm 264 */
																																		obj_t
																																			BgL_arg2314z00_1499;
																																		{	/* Expand/exit.scm 264 */
																																			obj_t
																																				BgL_arg2315z00_1500;
																																			BgL_arg2315z00_1500
																																				=
																																				MAKE_YOUNG_PAIR
																																				(CNST_TABLE_REF
																																				(24L),
																																				BNIL);
																																			BgL_arg2314z00_1499
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2315z00_1500,
																																				BNIL);
																																		}
																																		BgL_arg2313z00_1498
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_tracespz00_1490,
																																			BgL_arg2314z00_1499);
																																	}
																																	BgL_arg2311z00_1496
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2313z00_1498,
																																		BNIL);
																																}
																																{	/* Expand/exit.scm 265 */
																																	obj_t
																																		BgL_arg2316z00_1501;
																																	{	/* Expand/exit.scm 265 */
																																		obj_t
																																			BgL_arg2317z00_1502;
																																		{	/* Expand/exit.scm 265 */
																																			obj_t
																																				BgL_arg2320z00_1503;
																																			obj_t
																																				BgL_arg2322z00_1504;
																																			{	/* Expand/exit.scm 265 */
																																				obj_t
																																					BgL_arg2323z00_1505;
																																				{	/* Expand/exit.scm 265 */
																																					obj_t
																																						BgL_arg2324z00_1506;
																																					BgL_arg2324z00_1506
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_bodyz00_1491,
																																						BNIL);
																																					BgL_arg2323z00_1505
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_tmpz00_1494,
																																						BgL_arg2324z00_1506);
																																				}
																																				BgL_arg2320z00_1503
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg2323z00_1505,
																																					BNIL);
																																			}
																																			{	/* Expand/exit.scm 266 */
																																				obj_t
																																					BgL_arg2325z00_1507;
																																				obj_t
																																					BgL_arg2326z00_1508;
																																				{	/* Expand/exit.scm 266 */
																																					obj_t
																																						BgL_arg2327z00_1509;
																																					BgL_arg2327z00_1509
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_tracespz00_1490,
																																						BNIL);
																																					BgL_arg2325z00_1507
																																						=
																																						MAKE_YOUNG_PAIR
																																						(CNST_TABLE_REF
																																						(25L),
																																						BgL_arg2327z00_1509);
																																				}
																																				BgL_arg2326z00_1508
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_tmpz00_1494,
																																					BNIL);
																																				BgL_arg2322z00_1504
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg2325z00_1507,
																																					BgL_arg2326z00_1508);
																																			}
																																			BgL_arg2317z00_1502
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2320z00_1503,
																																				BgL_arg2322z00_1504);
																																		}
																																		BgL_arg2316z00_1501
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(11L),
																																			BgL_arg2317z00_1502);
																																	}
																																	BgL_arg2312z00_1497
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2316z00_1501,
																																		BNIL);
																																}
																																BgL_arg2310z00_1495
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg2311z00_1496,
																																	BgL_arg2312z00_1497);
																															}
																															BgL_newz00_1518 =
																																MAKE_YOUNG_PAIR
																																(CNST_TABLE_REF
																																(11L),
																																BgL_arg2310z00_1495);
																														}
																													}
																												else
																													{	/* Expand/exit.scm 262 */
																														BgL_newz00_1518 =
																															BgL_bodyz00_1491;
																													}
																											}
																											{	/* Expand/exit.scm 286 */
																												obj_t
																													BgL_arg2330z00_1519;
																												BgL_arg2330z00_1519 =
																													(VA_PROCEDUREP
																													(BgL_ez00_34)
																													? ((obj_t(*)(obj_t,
																																...))
																														PROCEDURE_ENTRY
																														(BgL_ez00_34))
																													(BgL_ez00_34,
																														BgL_newz00_1518,
																														BgL_ez00_34,
																														BEOA)
																													: ((obj_t(*)(obj_t,
																																obj_t,
																																obj_t))
																														PROCEDURE_ENTRY
																														(BgL_ez00_34))
																													(BgL_ez00_34,
																														BgL_newz00_1518,
																														BgL_ez00_34));
																												return
																													BGl_replacez12z12zztools_miscz00
																													(BgL_xz00_33,
																													BgL_arg2330z00_1519);
																											}
																										}
																									}
																								}
																							else
																								{	/* Expand/exit.scm 314 */
																								BgL_tagzd21973zd2_1390:
																									return
																										BGl_errorz00zz__errorz00
																										(BFALSE,
																										BGl_string2618z00zzexpand_exitz00,
																										BgL_xz00_33);
																								}
																						}
																				}
																			else
																				{	/* Expand/exit.scm 314 */
																					obj_t BgL_cdrzd22044zd2_1416;

																					BgL_cdrzd22044zd2_1416 =
																						CDR(
																						((obj_t) BgL_cdrzd21982zd2_1393));
																					if (PAIRP(BgL_cdrzd22044zd2_1416))
																						{	/* Expand/exit.scm 314 */
																							obj_t BgL_arg2265z00_1418;

																							BgL_arg2265z00_1418 =
																								CAR(
																								((obj_t)
																									BgL_cdrzd21982zd2_1393));
																							{
																								obj_t BgL_cleanupz00_3618;
																								obj_t BgL_expz00_3617;

																								BgL_expz00_3617 =
																									BgL_arg2265z00_1418;
																								BgL_cleanupz00_3618 =
																									BgL_cdrzd22044zd2_1416;
																								BgL_cleanupz00_1512 =
																									BgL_cleanupz00_3618;
																								BgL_expz00_1511 =
																									BgL_expz00_3617;
																								goto
																									BgL_zc3z04anonymousza32329ze3z87_1513;
																							}
																						}
																					else
																						{	/* Expand/exit.scm 314 */
																							goto BgL_tagzd21973zd2_1390;
																						}
																				}
																		}
																	else
																		{	/* Expand/exit.scm 314 */
																			obj_t BgL_cdrzd22069zd2_1421;

																			BgL_cdrzd22069zd2_1421 =
																				CDR(((obj_t) BgL_cdrzd21982zd2_1393));
																			if (PAIRP(BgL_cdrzd22069zd2_1421))
																				{	/* Expand/exit.scm 314 */
																					obj_t BgL_arg2268z00_1423;

																					BgL_arg2268z00_1423 =
																						CAR(
																						((obj_t) BgL_cdrzd21982zd2_1393));
																					{
																						obj_t BgL_cleanupz00_3626;
																						obj_t BgL_expz00_3625;

																						BgL_expz00_3625 =
																							BgL_arg2268z00_1423;
																						BgL_cleanupz00_3626 =
																							BgL_cdrzd22069zd2_1421;
																						BgL_cleanupz00_1512 =
																							BgL_cleanupz00_3626;
																						BgL_expz00_1511 = BgL_expz00_3625;
																						goto
																							BgL_zc3z04anonymousza32329ze3z87_1513;
																					}
																				}
																			else
																				{	/* Expand/exit.scm 314 */
																					goto BgL_tagzd21973zd2_1390;
																				}
																		}
																}
															else
																{	/* Expand/exit.scm 314 */
																	obj_t BgL_cdrzd22094zd2_1425;

																	BgL_cdrzd22094zd2_1425 =
																		CDR(((obj_t) BgL_cdrzd21982zd2_1393));
																	if (PAIRP(BgL_cdrzd22094zd2_1425))
																		{	/* Expand/exit.scm 314 */
																			obj_t BgL_arg2270z00_1427;

																			BgL_arg2270z00_1427 =
																				CAR(((obj_t) BgL_cdrzd21982zd2_1393));
																			{
																				obj_t BgL_cleanupz00_3634;
																				obj_t BgL_expz00_3633;

																				BgL_expz00_3633 = BgL_arg2270z00_1427;
																				BgL_cleanupz00_3634 =
																					BgL_cdrzd22094zd2_1425;
																				BgL_cleanupz00_1512 =
																					BgL_cleanupz00_3634;
																				BgL_expz00_1511 = BgL_expz00_3633;
																				goto
																					BgL_zc3z04anonymousza32329ze3z87_1513;
																			}
																		}
																	else
																		{	/* Expand/exit.scm 314 */
																			goto BgL_tagzd21973zd2_1390;
																		}
																}
														}
													else
														{	/* Expand/exit.scm 314 */
															obj_t BgL_cdrzd22115zd2_1429;

															BgL_cdrzd22115zd2_1429 =
																CDR(((obj_t) BgL_cdrzd21982zd2_1393));
															{	/* Expand/exit.scm 314 */
																obj_t BgL_carzd22120zd2_1430;

																BgL_carzd22120zd2_1430 =
																	CAR(((obj_t) BgL_cdrzd22115zd2_1429));
																{	/* Expand/exit.scm 314 */
																	obj_t BgL_cdrzd22125zd2_1431;

																	BgL_cdrzd22125zd2_1431 =
																		CDR(((obj_t) BgL_carzd22120zd2_1430));
																	if (
																		(CAR(
																				((obj_t) BgL_carzd22120zd2_1430)) ==
																			CNST_TABLE_REF(34L)))
																		{	/* Expand/exit.scm 314 */
																			if (PAIRP(BgL_cdrzd22125zd2_1431))
																				{	/* Expand/exit.scm 314 */
																					obj_t BgL_carzd22128zd2_1435;
																					obj_t BgL_cdrzd22129zd2_1436;

																					BgL_carzd22128zd2_1435 =
																						CAR(BgL_cdrzd22125zd2_1431);
																					BgL_cdrzd22129zd2_1436 =
																						CDR(BgL_cdrzd22125zd2_1431);
																					if (SYMBOLP(BgL_carzd22128zd2_1435))
																						{	/* Expand/exit.scm 314 */
																							if (PAIRP(BgL_cdrzd22129zd2_1436))
																								{	/* Expand/exit.scm 314 */
																									obj_t BgL_carzd22134zd2_1439;

																									BgL_carzd22134zd2_1439 =
																										CAR(BgL_cdrzd22129zd2_1436);
																									if (SYMBOLP
																										(BgL_carzd22134zd2_1439))
																										{	/* Expand/exit.scm 314 */
																											if (NULLP(CDR
																													(BgL_cdrzd22129zd2_1436)))
																												{	/* Expand/exit.scm 314 */
																													if (NULLP(CDR(
																																((obj_t)
																																	BgL_cdrzd22115zd2_1429))))
																														{	/* Expand/exit.scm 314 */
																															obj_t
																																BgL_arg2281z00_1445;
																															BgL_arg2281z00_1445
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd21982zd2_1393));
																															BgL_expz00_1610 =
																																BgL_arg2281z00_1445;
																															BgL_envz00_1611 =
																																BgL_carzd22128zd2_1435;
																															BgL_ohsz00_1612 =
																																BgL_carzd22134zd2_1439;
																															{	/* Expand/exit.scm 302 */
																																obj_t
																																	BgL_exitdz00_1614;
																																obj_t
																																	BgL_tmpz00_1615;
																																obj_t
																																	BgL_protectz00_1616;
																																BgL_exitdz00_1614
																																	=
																																	BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																	(BGl_gensymz00zz__r4_symbols_6_4z00
																																	(CNST_TABLE_REF
																																		(29L)));
																																BgL_tmpz00_1615
																																	=
																																	BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																	(BGl_gensymz00zz__r4_symbols_6_4z00
																																	(CNST_TABLE_REF
																																		(23L)));
																																BgL_protectz00_1616
																																	=
																																	BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00
																																	(BGl_gensymz00zz__r4_symbols_6_4z00
																																	(CNST_TABLE_REF
																																		(23L)));
																																{	/* Expand/exit.scm 305 */
																																	obj_t
																																		BgL_newz00_1617;
																																	{	/* Expand/exit.scm 305 */
																																		obj_t
																																			BgL_arg2435z00_1619;
																																		{	/* Expand/exit.scm 305 */
																																			obj_t
																																				BgL_arg2436z00_1620;
																																			obj_t
																																				BgL_arg2437z00_1621;
																																			{	/* Expand/exit.scm 305 */
																																				obj_t
																																					BgL_arg2438z00_1622;
																																				obj_t
																																					BgL_arg2439z00_1623;
																																				{	/* Expand/exit.scm 305 */
																																					obj_t
																																						BgL_arg2440z00_1624;
																																					{	/* Expand/exit.scm 305 */
																																						obj_t
																																							BgL_arg2443z00_1625;
																																						{	/* Expand/exit.scm 305 */
																																							obj_t
																																								BgL_arg2444z00_1626;
																																							BgL_arg2444z00_1626
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_envz00_1611,
																																								BNIL);
																																							BgL_arg2443z00_1625
																																								=
																																								MAKE_YOUNG_PAIR
																																								(CNST_TABLE_REF
																																								(9L),
																																								BgL_arg2444z00_1626);
																																						}
																																						BgL_arg2440z00_1624
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg2443z00_1625,
																																							BNIL);
																																					}
																																					BgL_arg2438z00_1622
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_exitdz00_1614,
																																						BgL_arg2440z00_1624);
																																				}
																																				{	/* Expand/exit.scm 306 */
																																					obj_t
																																						BgL_arg2445z00_1627;
																																					{	/* Expand/exit.scm 306 */
																																						obj_t
																																							BgL_arg2447z00_1628;
																																						{	/* Expand/exit.scm 306 */
																																							obj_t
																																								BgL_arg2448z00_1629;
																																							{	/* Expand/exit.scm 306 */
																																								obj_t
																																									BgL_arg2449z00_1630;
																																								{	/* Expand/exit.scm 306 */
																																									obj_t
																																										BgL_arg2450z00_1631;
																																									{	/* Expand/exit.scm 306 */
																																										obj_t
																																											BgL_arg2451z00_1632;
																																										{	/* Expand/exit.scm 306 */
																																											obj_t
																																												BgL_arg2453z00_1633;
																																											BgL_arg2453z00_1633
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_exitdz00_1614,
																																												BNIL);
																																											BgL_arg2451z00_1632
																																												=
																																												MAKE_YOUNG_PAIR
																																												(CNST_TABLE_REF
																																												(30L),
																																												BgL_arg2453z00_1633);
																																										}
																																										BgL_arg2450z00_1631
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg2451z00_1632,
																																											BNIL);
																																									}
																																									BgL_arg2449z00_1630
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_ohsz00_1612,
																																										BgL_arg2450z00_1631);
																																								}
																																								BgL_arg2448z00_1629
																																									=
																																									MAKE_YOUNG_PAIR
																																									(CNST_TABLE_REF
																																									(31L),
																																									BgL_arg2449z00_1630);
																																							}
																																							BgL_arg2447z00_1628
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg2448z00_1629,
																																								BNIL);
																																						}
																																						BgL_arg2445z00_1627
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_protectz00_1616,
																																							BgL_arg2447z00_1628);
																																					}
																																					BgL_arg2439z00_1623
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg2445z00_1627,
																																						BNIL);
																																				}
																																				BgL_arg2436z00_1620
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg2438z00_1622,
																																					BgL_arg2439z00_1623);
																																			}
																																			{	/* Expand/exit.scm 307 */
																																				obj_t
																																					BgL_arg2455z00_1634;
																																				obj_t
																																					BgL_arg2456z00_1635;
																																				{	/* Expand/exit.scm 307 */
																																					obj_t
																																						BgL_arg2457z00_1636;
																																					obj_t
																																						BgL_arg2458z00_1637;
																																					{	/* Expand/exit.scm 307 */
																																						obj_t
																																							BgL_arg2460z00_1638;
																																						{	/* Expand/exit.scm 307 */
																																							obj_t
																																								BgL_arg2461z00_1639;
																																							BgL_arg2461z00_1639
																																								=
																																								MAKE_YOUNG_PAIR
																																								(CNST_TABLE_REF
																																								(15L),
																																								BNIL);
																																							BgL_arg2460z00_1638
																																								=
																																								MAKE_YOUNG_PAIR
																																								(CNST_TABLE_REF
																																								(32L),
																																								BgL_arg2461z00_1639);
																																						}
																																						BgL_arg2457z00_1636
																																							=
																																							MAKE_YOUNG_PAIR
																																							(CNST_TABLE_REF
																																							(17L),
																																							BgL_arg2460z00_1638);
																																					}
																																					{	/* Expand/exit.scm 307 */
																																						obj_t
																																							BgL_arg2463z00_1640;
																																						BgL_arg2463z00_1640
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_protectz00_1616,
																																							BNIL);
																																						BgL_arg2458z00_1637
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_exitdz00_1614,
																																							BgL_arg2463z00_1640);
																																					}
																																					BgL_arg2455z00_1634
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg2457z00_1636,
																																						BgL_arg2458z00_1637);
																																				}
																																				{	/* Expand/exit.scm 308 */
																																					obj_t
																																						BgL_arg2464z00_1641;
																																					{	/* Expand/exit.scm 308 */
																																						obj_t
																																							BgL_arg2465z00_1642;
																																						{	/* Expand/exit.scm 308 */
																																							obj_t
																																								BgL_arg2466z00_1643;
																																							obj_t
																																								BgL_arg2467z00_1644;
																																							{	/* Expand/exit.scm 308 */
																																								obj_t
																																									BgL_arg2468z00_1645;
																																								{	/* Expand/exit.scm 308 */
																																									obj_t
																																										BgL_arg2469z00_1646;
																																									BgL_arg2469z00_1646
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_expz00_1610,
																																										BNIL);
																																									BgL_arg2468z00_1645
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_tmpz00_1615,
																																										BgL_arg2469z00_1646);
																																								}
																																								BgL_arg2466z00_1643
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg2468z00_1645,
																																									BNIL);
																																							}
																																							{	/* Expand/exit.scm 309 */
																																								obj_t
																																									BgL_arg2471z00_1647;
																																								obj_t
																																									BgL_arg2472z00_1648;
																																								{	/* Expand/exit.scm 309 */
																																									obj_t
																																										BgL_arg2473z00_1649;
																																									obj_t
																																										BgL_arg2474z00_1650;
																																									{	/* Expand/exit.scm 309 */
																																										obj_t
																																											BgL_arg2475z00_1651;
																																										{	/* Expand/exit.scm 309 */
																																											obj_t
																																												BgL_arg2477z00_1652;
																																											BgL_arg2477z00_1652
																																												=
																																												MAKE_YOUNG_PAIR
																																												(CNST_TABLE_REF
																																												(15L),
																																												BNIL);
																																											BgL_arg2475z00_1651
																																												=
																																												MAKE_YOUNG_PAIR
																																												(CNST_TABLE_REF
																																												(33L),
																																												BgL_arg2477z00_1652);
																																										}
																																										BgL_arg2473z00_1649
																																											=
																																											MAKE_YOUNG_PAIR
																																											(CNST_TABLE_REF
																																											(17L),
																																											BgL_arg2475z00_1651);
																																									}
																																									BgL_arg2474z00_1650
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_exitdz00_1614,
																																										BNIL);
																																									BgL_arg2471z00_1647
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg2473z00_1649,
																																										BgL_arg2474z00_1650);
																																								}
																																								{	/* Expand/exit.scm 310 */
																																									obj_t
																																										BgL_arg2479z00_1653;
																																									obj_t
																																										BgL_arg2480z00_1654;
																																									{	/* Expand/exit.scm 310 */
																																										obj_t
																																											BgL_arg2481z00_1655;
																																										{	/* Expand/exit.scm 310 */
																																											obj_t
																																												BgL_arg2482z00_1656;
																																											BgL_arg2482z00_1656
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_ohsz00_1612,
																																												BNIL);
																																											BgL_arg2481z00_1655
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_envz00_1611,
																																												BgL_arg2482z00_1656);
																																										}
																																										BgL_arg2479z00_1653
																																											=
																																											MAKE_YOUNG_PAIR
																																											(CNST_TABLE_REF
																																											(34L),
																																											BgL_arg2481z00_1655);
																																									}
																																									BgL_arg2480z00_1654
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_tmpz00_1615,
																																										BNIL);
																																									BgL_arg2472z00_1648
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg2479z00_1653,
																																										BgL_arg2480z00_1654);
																																								}
																																								BgL_arg2467z00_1644
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg2471z00_1647,
																																									BgL_arg2472z00_1648);
																																							}
																																							BgL_arg2465z00_1642
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg2466z00_1643,
																																								BgL_arg2467z00_1644);
																																						}
																																						BgL_arg2464z00_1641
																																							=
																																							MAKE_YOUNG_PAIR
																																							(CNST_TABLE_REF
																																							(11L),
																																							BgL_arg2465z00_1642);
																																					}
																																					BgL_arg2456z00_1635
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg2464z00_1641,
																																						BNIL);
																																				}
																																				BgL_arg2437z00_1621
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg2455z00_1634,
																																					BgL_arg2456z00_1635);
																																			}
																																			BgL_arg2435z00_1619
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2436z00_1620,
																																				BgL_arg2437z00_1621);
																																		}
																																		BgL_newz00_1617
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(19L),
																																			BgL_arg2435z00_1619);
																																	}
																																	{	/* Expand/exit.scm 312 */
																																		obj_t
																																			BgL_arg2434z00_1618;
																																		BgL_arg2434z00_1618
																																			=
																																			(VA_PROCEDUREP
																																			(BgL_ez00_34)
																																			? ((obj_t
																																					(*)
																																					(obj_t,
																																						...))
																																				PROCEDURE_ENTRY
																																				(BgL_ez00_34))
																																			(BgL_ez00_34,
																																				BgL_newz00_1617,
																																				BgL_ez00_34,
																																				BEOA)
																																			: ((obj_t
																																					(*)
																																					(obj_t,
																																						obj_t,
																																						obj_t))
																																				PROCEDURE_ENTRY
																																				(BgL_ez00_34))
																																			(BgL_ez00_34,
																																				BgL_newz00_1617,
																																				BgL_ez00_34));
																																		return
																																			BGl_replacez12z12zztools_miscz00
																																			(BgL_xz00_33,
																																			BgL_arg2434z00_1618);
																																	}
																																}
																															}
																														}
																													else
																														{	/* Expand/exit.scm 314 */
																															obj_t
																																BgL_cdrzd22145zd2_1446;
																															BgL_cdrzd22145zd2_1446
																																=
																																CDR(((obj_t)
																																	BgL_xz00_33));
																															{	/* Expand/exit.scm 314 */
																																obj_t
																																	BgL_cdrzd22150zd2_1447;
																																BgL_cdrzd22150zd2_1447
																																	=
																																	CDR(((obj_t)
																																		BgL_cdrzd22145zd2_1446));
																																if (PAIRP
																																	(BgL_cdrzd22150zd2_1447))
																																	{	/* Expand/exit.scm 314 */
																																		obj_t
																																			BgL_arg2283z00_1449;
																																		BgL_arg2283z00_1449
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_cdrzd22145zd2_1446));
																																		{
																																			obj_t
																																				BgL_cleanupz00_3741;
																																			obj_t
																																				BgL_expz00_3740;
																																			BgL_expz00_3740
																																				=
																																				BgL_arg2283z00_1449;
																																			BgL_cleanupz00_3741
																																				=
																																				BgL_cdrzd22150zd2_1447;
																																			BgL_cleanupz00_1512
																																				=
																																				BgL_cleanupz00_3741;
																																			BgL_expz00_1511
																																				=
																																				BgL_expz00_3740;
																																			goto
																																				BgL_zc3z04anonymousza32329ze3z87_1513;
																																		}
																																	}
																																else
																																	{	/* Expand/exit.scm 314 */
																																		goto
																																			BgL_tagzd21973zd2_1390;
																																	}
																															}
																														}
																												}
																											else
																												{	/* Expand/exit.scm 314 */
																													obj_t
																														BgL_cdrzd22162zd2_1451;
																													BgL_cdrzd22162zd2_1451
																														=
																														CDR(((obj_t)
																															BgL_xz00_33));
																													{	/* Expand/exit.scm 314 */
																														obj_t
																															BgL_cdrzd22167zd2_1452;
																														BgL_cdrzd22167zd2_1452
																															=
																															CDR(((obj_t)
																																BgL_cdrzd22162zd2_1451));
																														if (PAIRP
																															(BgL_cdrzd22167zd2_1452))
																															{	/* Expand/exit.scm 314 */
																																obj_t
																																	BgL_arg2286z00_1454;
																																BgL_arg2286z00_1454
																																	=
																																	CAR(((obj_t)
																																		BgL_cdrzd22162zd2_1451));
																																{
																																	obj_t
																																		BgL_cleanupz00_3751;
																																	obj_t
																																		BgL_expz00_3750;
																																	BgL_expz00_3750
																																		=
																																		BgL_arg2286z00_1454;
																																	BgL_cleanupz00_3751
																																		=
																																		BgL_cdrzd22167zd2_1452;
																																	BgL_cleanupz00_1512
																																		=
																																		BgL_cleanupz00_3751;
																																	BgL_expz00_1511
																																		=
																																		BgL_expz00_3750;
																																	goto
																																		BgL_zc3z04anonymousza32329ze3z87_1513;
																																}
																															}
																														else
																															{	/* Expand/exit.scm 314 */
																																goto
																																	BgL_tagzd21973zd2_1390;
																															}
																													}
																												}
																										}
																									else
																										{	/* Expand/exit.scm 314 */
																											obj_t
																												BgL_cdrzd22179zd2_1456;
																											BgL_cdrzd22179zd2_1456 =
																												CDR(((obj_t)
																													BgL_xz00_33));
																											{	/* Expand/exit.scm 314 */
																												obj_t
																													BgL_cdrzd22184zd2_1457;
																												BgL_cdrzd22184zd2_1457 =
																													CDR(((obj_t)
																														BgL_cdrzd22179zd2_1456));
																												if (PAIRP
																													(BgL_cdrzd22184zd2_1457))
																													{	/* Expand/exit.scm 314 */
																														obj_t
																															BgL_arg2289z00_1459;
																														BgL_arg2289z00_1459
																															=
																															CAR(((obj_t)
																																BgL_cdrzd22179zd2_1456));
																														{
																															obj_t
																																BgL_cleanupz00_3761;
																															obj_t
																																BgL_expz00_3760;
																															BgL_expz00_3760 =
																																BgL_arg2289z00_1459;
																															BgL_cleanupz00_3761
																																=
																																BgL_cdrzd22184zd2_1457;
																															BgL_cleanupz00_1512
																																=
																																BgL_cleanupz00_3761;
																															BgL_expz00_1511 =
																																BgL_expz00_3760;
																															goto
																																BgL_zc3z04anonymousza32329ze3z87_1513;
																														}
																													}
																												else
																													{	/* Expand/exit.scm 314 */
																														goto
																															BgL_tagzd21973zd2_1390;
																													}
																											}
																										}
																								}
																							else
																								{	/* Expand/exit.scm 314 */
																									obj_t BgL_cdrzd22196zd2_1460;

																									BgL_cdrzd22196zd2_1460 =
																										CDR(((obj_t) BgL_xz00_33));
																									{	/* Expand/exit.scm 314 */
																										obj_t
																											BgL_cdrzd22201zd2_1461;
																										BgL_cdrzd22201zd2_1461 =
																											CDR(((obj_t)
																												BgL_cdrzd22196zd2_1460));
																										if (PAIRP
																											(BgL_cdrzd22201zd2_1461))
																											{	/* Expand/exit.scm 314 */
																												obj_t
																													BgL_arg2291z00_1463;
																												BgL_arg2291z00_1463 =
																													CAR(((obj_t)
																														BgL_cdrzd22196zd2_1460));
																												{
																													obj_t
																														BgL_cleanupz00_3771;
																													obj_t BgL_expz00_3770;

																													BgL_expz00_3770 =
																														BgL_arg2291z00_1463;
																													BgL_cleanupz00_3771 =
																														BgL_cdrzd22201zd2_1461;
																													BgL_cleanupz00_1512 =
																														BgL_cleanupz00_3771;
																													BgL_expz00_1511 =
																														BgL_expz00_3770;
																													goto
																														BgL_zc3z04anonymousza32329ze3z87_1513;
																												}
																											}
																										else
																											{	/* Expand/exit.scm 314 */
																												goto
																													BgL_tagzd21973zd2_1390;
																											}
																									}
																								}
																						}
																					else
																						{	/* Expand/exit.scm 314 */
																							obj_t BgL_cdrzd22213zd2_1464;

																							BgL_cdrzd22213zd2_1464 =
																								CDR(((obj_t) BgL_xz00_33));
																							{	/* Expand/exit.scm 314 */
																								obj_t BgL_cdrzd22218zd2_1465;

																								BgL_cdrzd22218zd2_1465 =
																									CDR(
																									((obj_t)
																										BgL_cdrzd22213zd2_1464));
																								if (PAIRP
																									(BgL_cdrzd22218zd2_1465))
																									{	/* Expand/exit.scm 314 */
																										obj_t BgL_arg2293z00_1467;

																										BgL_arg2293z00_1467 =
																											CAR(
																											((obj_t)
																												BgL_cdrzd22213zd2_1464));
																										{
																											obj_t BgL_cleanupz00_3781;
																											obj_t BgL_expz00_3780;

																											BgL_expz00_3780 =
																												BgL_arg2293z00_1467;
																											BgL_cleanupz00_3781 =
																												BgL_cdrzd22218zd2_1465;
																											BgL_cleanupz00_1512 =
																												BgL_cleanupz00_3781;
																											BgL_expz00_1511 =
																												BgL_expz00_3780;
																											goto
																												BgL_zc3z04anonymousza32329ze3z87_1513;
																										}
																									}
																								else
																									{	/* Expand/exit.scm 314 */
																										goto BgL_tagzd21973zd2_1390;
																									}
																							}
																						}
																				}
																			else
																				{	/* Expand/exit.scm 314 */
																					obj_t BgL_cdrzd22230zd2_1468;

																					BgL_cdrzd22230zd2_1468 =
																						CDR(((obj_t) BgL_xz00_33));
																					{	/* Expand/exit.scm 314 */
																						obj_t BgL_cdrzd22235zd2_1469;

																						BgL_cdrzd22235zd2_1469 =
																							CDR(
																							((obj_t) BgL_cdrzd22230zd2_1468));
																						if (PAIRP(BgL_cdrzd22235zd2_1469))
																							{	/* Expand/exit.scm 314 */
																								obj_t BgL_arg2295z00_1471;

																								BgL_arg2295z00_1471 =
																									CAR(
																									((obj_t)
																										BgL_cdrzd22230zd2_1468));
																								{
																									obj_t BgL_cleanupz00_3791;
																									obj_t BgL_expz00_3790;

																									BgL_expz00_3790 =
																										BgL_arg2295z00_1471;
																									BgL_cleanupz00_3791 =
																										BgL_cdrzd22235zd2_1469;
																									BgL_cleanupz00_1512 =
																										BgL_cleanupz00_3791;
																									BgL_expz00_1511 =
																										BgL_expz00_3790;
																									goto
																										BgL_zc3z04anonymousza32329ze3z87_1513;
																								}
																							}
																						else
																							{	/* Expand/exit.scm 314 */
																								goto BgL_tagzd21973zd2_1390;
																							}
																					}
																				}
																		}
																	else
																		{	/* Expand/exit.scm 314 */
																			obj_t BgL_cdrzd22247zd2_1472;

																			BgL_cdrzd22247zd2_1472 =
																				CDR(((obj_t) BgL_xz00_33));
																			{	/* Expand/exit.scm 314 */
																				obj_t BgL_cdrzd22252zd2_1473;

																				BgL_cdrzd22252zd2_1473 =
																					CDR(((obj_t) BgL_cdrzd22247zd2_1472));
																				if (PAIRP(BgL_cdrzd22252zd2_1473))
																					{	/* Expand/exit.scm 314 */
																						obj_t BgL_arg2297z00_1475;

																						BgL_arg2297z00_1475 =
																							CAR(
																							((obj_t) BgL_cdrzd22247zd2_1472));
																						{
																							obj_t BgL_cleanupz00_3801;
																							obj_t BgL_expz00_3800;

																							BgL_expz00_3800 =
																								BgL_arg2297z00_1475;
																							BgL_cleanupz00_3801 =
																								BgL_cdrzd22252zd2_1473;
																							BgL_cleanupz00_1512 =
																								BgL_cleanupz00_3801;
																							BgL_expz00_1511 = BgL_expz00_3800;
																							goto
																								BgL_zc3z04anonymousza32329ze3z87_1513;
																						}
																					}
																				else
																					{	/* Expand/exit.scm 314 */
																						goto BgL_tagzd21973zd2_1390;
																					}
																			}
																		}
																}
															}
														}
												}
											else
												{	/* Expand/exit.scm 314 */
													obj_t BgL_cdrzd22277zd2_1479;

													BgL_cdrzd22277zd2_1479 =
														CDR(((obj_t) BgL_cdrzd21982zd2_1393));
													if (PAIRP(BgL_cdrzd22277zd2_1479))
														{	/* Expand/exit.scm 314 */
															obj_t BgL_arg2301z00_1481;

															BgL_arg2301z00_1481 =
																CAR(((obj_t) BgL_cdrzd21982zd2_1393));
															{
																obj_t BgL_cleanupz00_3809;
																obj_t BgL_expz00_3808;

																BgL_expz00_3808 = BgL_arg2301z00_1481;
																BgL_cleanupz00_3809 = BgL_cdrzd22277zd2_1479;
																BgL_cleanupz00_1512 = BgL_cleanupz00_3809;
																BgL_expz00_1511 = BgL_expz00_3808;
																goto BgL_zc3z04anonymousza32329ze3z87_1513;
															}
														}
													else
														{	/* Expand/exit.scm 314 */
															goto BgL_tagzd21973zd2_1390;
														}
												}
										}
									else
										{	/* Expand/exit.scm 314 */
											obj_t BgL_cdrzd22302zd2_1483;

											BgL_cdrzd22302zd2_1483 =
												CDR(((obj_t) BgL_cdrzd21982zd2_1393));
											if (PAIRP(BgL_cdrzd22302zd2_1483))
												{	/* Expand/exit.scm 314 */
													obj_t BgL_arg2304z00_1485;

													BgL_arg2304z00_1485 =
														CAR(((obj_t) BgL_cdrzd21982zd2_1393));
													{
														obj_t BgL_cleanupz00_3817;
														obj_t BgL_expz00_3816;

														BgL_expz00_3816 = BgL_arg2304z00_1485;
														BgL_cleanupz00_3817 = BgL_cdrzd22302zd2_1483;
														BgL_cleanupz00_1512 = BgL_cleanupz00_3817;
														BgL_expz00_1511 = BgL_expz00_3816;
														goto BgL_zc3z04anonymousza32329ze3z87_1513;
													}
												}
											else
												{	/* Expand/exit.scm 314 */
													goto BgL_tagzd21973zd2_1390;
												}
										}
								}
							else
								{	/* Expand/exit.scm 314 */
									goto BgL_tagzd21973zd2_1390;
								}
						}
					else
						{	/* Expand/exit.scm 314 */
							goto BgL_tagzd21973zd2_1390;
						}
				}
			}
		}

	}



/* trace?~0 */
	bool_t BGl_tracezf3ze70z14zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 259 */
			{	/* Expand/exit.scm 258 */
				bool_t BgL_test2822z00_3818;

				{	/* Expand/exit.scm 258 */
					int BgL_arg2307z00_1489;

					BgL_arg2307z00_1489 = BGl_bigloozd2compilerzd2debugz00zz__paramz00();
					BgL_test2822z00_3818 = ((long) (BgL_arg2307z00_1489) > 0L);
				}
				if (BgL_test2822z00_3818)
					{	/* Expand/exit.scm 259 */
						obj_t BgL_arg2306z00_1488;

						BgL_arg2306z00_1488 = BGl_thezd2backendzd2zzbackend_backendz00();
						return
							(((BgL_backendz00_bglt) COBJECT(
									((BgL_backendz00_bglt) BgL_arg2306z00_1488)))->
							BgL_tracezd2supportzd2);
					}
				else
					{	/* Expand/exit.scm 258 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &expand-unwind-protect */
	obj_t BGl_z62expandzd2unwindzd2protectz62zzexpand_exitz00(obj_t
		BgL_envz00_2215, obj_t BgL_xz00_2216, obj_t BgL_ez00_2217)
	{
		{	/* Expand/exit.scm 255 */
			return
				BGl_expandzd2unwindzd2protectz00zzexpand_exitz00(BgL_xz00_2216,
				BgL_ez00_2217);
		}

	}



/* expand-with-handler */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2withzd2handlerz00zzexpand_exitz00(obj_t
		BgL_xz00_35, obj_t BgL_ez00_36)
	{
		{	/* Expand/exit.scm 327 */
			{
				obj_t BgL_handlerz00_1677;
				obj_t BgL_bodyz00_1678;

				{

					if (PAIRP(BgL_xz00_35))
						{	/* Expand/exit.scm 356 */
							obj_t BgL_cdrzd22338zd2_1672;

							BgL_cdrzd22338zd2_1672 = CDR(((obj_t) BgL_xz00_35));
							if (PAIRP(BgL_cdrzd22338zd2_1672))
								{	/* Expand/exit.scm 356 */
									obj_t BgL_arg2489z00_1674;
									obj_t BgL_arg2490z00_1675;

									BgL_arg2489z00_1674 = CAR(BgL_cdrzd22338zd2_1672);
									BgL_arg2490z00_1675 = CDR(BgL_cdrzd22338zd2_1672);
									{	/* Expand/exit.scm 358 */
										obj_t BgL_auxz00_3834;

										BgL_handlerz00_1677 = BgL_arg2489z00_1674;
										BgL_bodyz00_1678 = BgL_arg2490z00_1675;
										{	/* Expand/exit.scm 330 */
											obj_t BgL_ohsz00_1680;
											obj_t BgL_hdsz00_1681;
											obj_t BgL_errz00_1682;
											obj_t BgL_cellz00_1683;
											obj_t BgL_escapez00_1684;
											obj_t BgL_hdlz00_1685;
											obj_t BgL_ehdlz00_1686;
											obj_t BgL_valz00_1687;
											obj_t BgL_envz00_1688;

											BgL_ohsz00_1680 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(40L));
											BgL_hdsz00_1681 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(41L));
											BgL_errz00_1682 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(42L));
											BgL_cellz00_1683 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(43L));
											BgL_escapez00_1684 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(44L));
											BgL_hdlz00_1685 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(45L));
											BgL_ehdlz00_1686 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(46L));
											BgL_valz00_1687 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(5L));
											BgL_envz00_1688 =
												BGl_gensymz00zz__r4_symbols_6_4z00(CNST_TABLE_REF(13L));
											{	/* Expand/exit.scm 339 */
												obj_t BgL_arg2494z00_1689;

												{	/* Expand/exit.scm 339 */
													obj_t BgL_arg2496z00_1690;

													{	/* Expand/exit.scm 339 */
														obj_t BgL_arg2497z00_1691;
														obj_t BgL_arg2498z00_1692;

														{	/* Expand/exit.scm 339 */
															obj_t BgL_arg2499z00_1693;
															obj_t BgL_arg2501z00_1694;

															{	/* Expand/exit.scm 339 */
																obj_t BgL_arg2502z00_1695;

																BgL_arg2502z00_1695 =
																	MAKE_YOUNG_PAIR(BgL_handlerz00_1677, BNIL);
																BgL_arg2499z00_1693 =
																	MAKE_YOUNG_PAIR(BgL_hdlz00_1685,
																	BgL_arg2502z00_1695);
															}
															{	/* Expand/exit.scm 340 */
																obj_t BgL_arg2503z00_1696;

																{	/* Expand/exit.scm 340 */
																	obj_t BgL_arg2504z00_1697;

																	{	/* Expand/exit.scm 340 */
																		obj_t BgL_arg2505z00_1698;

																		BgL_arg2505z00_1698 =
																			MAKE_YOUNG_PAIR(CNST_TABLE_REF(14L),
																			BNIL);
																		BgL_arg2504z00_1697 =
																			MAKE_YOUNG_PAIR(BgL_arg2505z00_1698,
																			BNIL);
																	}
																	BgL_arg2503z00_1696 =
																		MAKE_YOUNG_PAIR(BgL_envz00_1688,
																		BgL_arg2504z00_1697);
																}
																BgL_arg2501z00_1694 =
																	MAKE_YOUNG_PAIR(BgL_arg2503z00_1696, BNIL);
															}
															BgL_arg2497z00_1691 =
																MAKE_YOUNG_PAIR(BgL_arg2499z00_1693,
																BgL_arg2501z00_1694);
														}
														{	/* Expand/exit.scm 341 */
															obj_t BgL_arg2506z00_1699;

															{	/* Expand/exit.scm 341 */
																obj_t BgL_arg2508z00_1700;

																{	/* Expand/exit.scm 341 */
																	obj_t BgL_arg2509z00_1701;
																	obj_t BgL_arg2512z00_1702;

																	{	/* Expand/exit.scm 341 */
																		obj_t BgL_arg2514z00_1703;

																		{	/* Expand/exit.scm 341 */
																			obj_t BgL_arg2515z00_1704;

																			{	/* Expand/exit.scm 341 */
																				obj_t BgL_arg2516z00_1705;

																				{	/* Expand/exit.scm 341 */
																					obj_t BgL_arg2518z00_1706;

																					BgL_arg2518z00_1706 =
																						MAKE_YOUNG_PAIR(BUNSPEC, BNIL);
																					BgL_arg2516z00_1705 =
																						MAKE_YOUNG_PAIR(CNST_TABLE_REF(47L),
																						BgL_arg2518z00_1706);
																				}
																				BgL_arg2515z00_1704 =
																					MAKE_YOUNG_PAIR(BgL_arg2516z00_1705,
																					BNIL);
																			}
																			BgL_arg2514z00_1703 =
																				MAKE_YOUNG_PAIR(BgL_cellz00_1683,
																				BgL_arg2515z00_1704);
																		}
																		BgL_arg2509z00_1701 =
																			MAKE_YOUNG_PAIR(BgL_arg2514z00_1703,
																			BNIL);
																	}
																	{	/* Expand/exit.scm 342 */
																		obj_t BgL_arg2520z00_1707;

																		{	/* Expand/exit.scm 342 */
																			obj_t BgL_arg2524z00_1708;

																			{	/* Expand/exit.scm 342 */
																				obj_t BgL_arg2527z00_1709;
																				obj_t BgL_arg2528z00_1710;

																				{	/* Expand/exit.scm 342 */
																					obj_t BgL_arg2531z00_1711;

																					{	/* Expand/exit.scm 342 */
																						obj_t BgL_arg2532z00_1712;

																						{	/* Expand/exit.scm 342 */
																							obj_t BgL_arg2535z00_1713;

																							{	/* Expand/exit.scm 342 */
																								obj_t BgL_arg2537z00_1714;

																								{	/* Expand/exit.scm 342 */
																									obj_t BgL_arg2538z00_1715;

																									{	/* Expand/exit.scm 342 */
																										obj_t BgL_arg2539z00_1716;

																										{	/* Expand/exit.scm 342 */
																											obj_t BgL_arg2540z00_1717;
																											obj_t BgL_arg2541z00_1718;

																											BgL_arg2540z00_1717 =
																												MAKE_YOUNG_PAIR
																												(BgL_escapez00_1684,
																												BNIL);
																											{	/* Expand/exit.scm 343 */
																												obj_t
																													BgL_arg2545z00_1719;
																												{	/* Expand/exit.scm 343 */
																													obj_t
																														BgL_arg2546z00_1720;
																													{	/* Expand/exit.scm 343 */
																														obj_t
																															BgL_arg2547z00_1721;
																														obj_t
																															BgL_arg2549z00_1722;
																														{	/* Expand/exit.scm 343 */
																															obj_t
																																BgL_arg2551z00_1723;
																															{	/* Expand/exit.scm 343 */
																																obj_t
																																	BgL_arg2553z00_1724;
																																{	/* Expand/exit.scm 343 */
																																	obj_t
																																		BgL_arg2554z00_1725;
																																	{	/* Expand/exit.scm 343 */
																																		obj_t
																																			BgL_arg2557z00_1726;
																																		BgL_arg2557z00_1726
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_envz00_1688,
																																			BNIL);
																																		BgL_arg2554z00_1725
																																			=
																																			MAKE_YOUNG_PAIR
																																			(CNST_TABLE_REF
																																			(48L),
																																			BgL_arg2557z00_1726);
																																	}
																																	BgL_arg2553z00_1724
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2554z00_1725,
																																		BNIL);
																																}
																																BgL_arg2551z00_1723
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_ohsz00_1680,
																																	BgL_arg2553z00_1724);
																															}
																															BgL_arg2547z00_1721
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg2551z00_1723,
																																BNIL);
																														}
																														{	/* Expand/exit.scm 344 */
																															obj_t
																																BgL_arg2558z00_1727;
																															{	/* Expand/exit.scm 344 */
																																obj_t
																																	BgL_arg2565z00_1728;
																																{	/* Expand/exit.scm 344 */
																																	obj_t
																																		BgL_arg2566z00_1729;
																																	obj_t
																																		BgL_arg2567z00_1730;
																																	{	/* Expand/exit.scm 344 */
																																		obj_t
																																			BgL_arg2570z00_1731;
																																		{	/* Expand/exit.scm 344 */
																																			obj_t
																																				BgL_arg2571z00_1732;
																																			{	/* Expand/exit.scm 344 */
																																				obj_t
																																					BgL_arg2572z00_1733;
																																				{	/* Expand/exit.scm 344 */
																																					obj_t
																																						BgL_arg2573z00_1734;
																																					{	/* Expand/exit.scm 344 */
																																						obj_t
																																							BgL_arg2574z00_1735;
																																						BgL_arg2574z00_1735
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_cellz00_1683,
																																							BNIL);
																																						BgL_arg2573z00_1734
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_escapez00_1684,
																																							BgL_arg2574z00_1735);
																																					}
																																					BgL_arg2572z00_1733
																																						=
																																						MAKE_YOUNG_PAIR
																																						(CNST_TABLE_REF
																																						(49L),
																																						BgL_arg2573z00_1734);
																																				}
																																				BgL_arg2571z00_1732
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg2572z00_1733,
																																					BNIL);
																																			}
																																			BgL_arg2570z00_1731
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_hdsz00_1681,
																																				BgL_arg2571z00_1732);
																																		}
																																		BgL_arg2566z00_1729
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2570z00_1731,
																																			BNIL);
																																	}
																																	{	/* Expand/exit.scm 345 */
																																		obj_t
																																			BgL_arg2575z00_1736;
																																		obj_t
																																			BgL_arg2576z00_1737;
																																		{	/* Expand/exit.scm 345 */
																																			obj_t
																																				BgL_arg2577z00_1738;
																																			{	/* Expand/exit.scm 345 */
																																				obj_t
																																					BgL_arg2579z00_1739;
																																				BgL_arg2579z00_1739
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_hdsz00_1681,
																																					BNIL);
																																				BgL_arg2577z00_1738
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_envz00_1688,
																																					BgL_arg2579z00_1739);
																																			}
																																			BgL_arg2575z00_1736
																																				=
																																				MAKE_YOUNG_PAIR
																																				(CNST_TABLE_REF
																																				(34L),
																																				BgL_arg2577z00_1738);
																																		}
																																		{	/* Expand/exit.scm 347 */
																																			obj_t
																																				BgL_arg2580z00_1740;
																																			{	/* Expand/exit.scm 347 */
																																				obj_t
																																					BgL_arg2581z00_1741;
																																				{	/* Expand/exit.scm 347 */
																																					obj_t
																																						BgL_arg2582z00_1742;
																																					obj_t
																																						BgL_arg2583z00_1743;
																																					{	/* Expand/exit.scm 347 */
																																						obj_t
																																							BgL_arg2585z00_1744;
																																						BgL_arg2585z00_1744
																																							=
																																							BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																							(BgL_bodyz00_1678,
																																							BNIL);
																																						BgL_arg2582z00_1742
																																							=
																																							MAKE_YOUNG_PAIR
																																							(CNST_TABLE_REF
																																							(12L),
																																							BgL_arg2585z00_1744);
																																					}
																																					{	/* Expand/exit.scm 348 */
																																						obj_t
																																							BgL_arg2586z00_1745;
																																						{	/* Expand/exit.scm 348 */
																																							obj_t
																																								BgL_arg2587z00_1746;
																																							{	/* Expand/exit.scm 348 */
																																								obj_t
																																									BgL_arg2588z00_1747;
																																								BgL_arg2588z00_1747
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_ohsz00_1680,
																																									BNIL);
																																								BgL_arg2587z00_1746
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_envz00_1688,
																																									BgL_arg2588z00_1747);
																																							}
																																							BgL_arg2586z00_1745
																																								=
																																								MAKE_YOUNG_PAIR
																																								(CNST_TABLE_REF
																																								(34L),
																																								BgL_arg2587z00_1746);
																																						}
																																						BgL_arg2583z00_1743
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg2586z00_1745,
																																							BNIL);
																																					}
																																					BgL_arg2581z00_1741
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg2582z00_1742,
																																						BgL_arg2583z00_1743);
																																				}
																																				BgL_arg2580z00_1740
																																					=
																																					MAKE_YOUNG_PAIR
																																					(CNST_TABLE_REF
																																					(50L),
																																					BgL_arg2581z00_1741);
																																			}
																																			BgL_arg2576z00_1737
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2580z00_1740,
																																				BNIL);
																																		}
																																		BgL_arg2567z00_1730
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2575z00_1736,
																																			BgL_arg2576z00_1737);
																																	}
																																	BgL_arg2565z00_1728
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2566z00_1729,
																																		BgL_arg2567z00_1730);
																																}
																																BgL_arg2558z00_1727
																																	=
																																	MAKE_YOUNG_PAIR
																																	(CNST_TABLE_REF
																																	(11L),
																																	BgL_arg2565z00_1728);
																															}
																															BgL_arg2549z00_1722
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg2558z00_1727,
																																BNIL);
																														}
																														BgL_arg2546z00_1720
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg2547z00_1721,
																															BgL_arg2549z00_1722);
																													}
																													BgL_arg2545z00_1719 =
																														MAKE_YOUNG_PAIR
																														(CNST_TABLE_REF
																														(11L),
																														BgL_arg2546z00_1720);
																												}
																												BgL_arg2541z00_1718 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg2545z00_1719,
																													BNIL);
																											}
																											BgL_arg2539z00_1716 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg2540z00_1717,
																												BgL_arg2541z00_1718);
																										}
																										BgL_arg2538z00_1715 =
																											MAKE_YOUNG_PAIR
																											(BgL_envz00_1688,
																											BgL_arg2539z00_1716);
																									}
																									BgL_arg2537z00_1714 =
																										MAKE_YOUNG_PAIR
																										(CNST_TABLE_REF(22L),
																										BgL_arg2538z00_1715);
																								}
																								BgL_arg2535z00_1713 =
																									MAKE_YOUNG_PAIR(CNST_TABLE_REF
																									(28L), BgL_arg2537z00_1714);
																							}
																							BgL_arg2532z00_1712 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg2535z00_1713, BNIL);
																						}
																						BgL_arg2531z00_1711 =
																							MAKE_YOUNG_PAIR(BgL_valz00_1687,
																							BgL_arg2532z00_1712);
																					}
																					BgL_arg2527z00_1709 =
																						MAKE_YOUNG_PAIR(BgL_arg2531z00_1711,
																						BNIL);
																				}
																				{	/* Expand/exit.scm 349 */
																					obj_t BgL_arg2589z00_1748;

																					{	/* Expand/exit.scm 349 */
																						obj_t BgL_arg2590z00_1749;

																						{	/* Expand/exit.scm 349 */
																							obj_t BgL_arg2591z00_1750;
																							obj_t BgL_arg2593z00_1751;

																							{	/* Expand/exit.scm 349 */
																								obj_t BgL_arg2594z00_1752;

																								{	/* Expand/exit.scm 349 */
																									obj_t BgL_arg2595z00_1753;

																									BgL_arg2595z00_1753 =
																										MAKE_YOUNG_PAIR
																										(BgL_cellz00_1683, BNIL);
																									BgL_arg2594z00_1752 =
																										MAKE_YOUNG_PAIR
																										(BgL_valz00_1687,
																										BgL_arg2595z00_1753);
																								}
																								BgL_arg2591z00_1750 =
																									MAKE_YOUNG_PAIR(CNST_TABLE_REF
																									(51L), BgL_arg2594z00_1752);
																							}
																							{	/* Expand/exit.scm 351 */
																								obj_t BgL_arg2597z00_1754;
																								obj_t BgL_arg2598z00_1755;

																								{	/* Expand/exit.scm 351 */
																									obj_t BgL_arg2603z00_1756;

																									{	/* Expand/exit.scm 351 */
																										obj_t BgL_arg2604z00_1757;
																										obj_t BgL_arg2605z00_1758;

																										{	/* Expand/exit.scm 351 */
																											obj_t BgL_arg2606z00_1759;

																											BgL_arg2606z00_1759 =
																												MAKE_YOUNG_PAIR(BINT
																												(0L), BNIL);
																											BgL_arg2604z00_1757 =
																												MAKE_YOUNG_PAIR
																												(CNST_TABLE_REF(52L),
																												BgL_arg2606z00_1759);
																										}
																										{	/* Expand/exit.scm 352 */
																											obj_t BgL_arg2607z00_1760;

																											{	/* Expand/exit.scm 352 */
																												obj_t
																													BgL_arg2608z00_1761;
																												{	/* Expand/exit.scm 352 */
																													obj_t
																														BgL_arg2609z00_1762;
																													{	/* Expand/exit.scm 352 */
																														obj_t
																															BgL_arg2610z00_1763;
																														BgL_arg2610z00_1763
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_valz00_1687,
																															BNIL);
																														BgL_arg2609z00_1762
																															=
																															MAKE_YOUNG_PAIR
																															(CNST_TABLE_REF
																															(53L),
																															BgL_arg2610z00_1763);
																													}
																													BgL_arg2608z00_1761 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg2609z00_1762,
																														BNIL);
																												}
																												BgL_arg2607z00_1760 =
																													MAKE_YOUNG_PAIR
																													(BgL_hdlz00_1685,
																													BgL_arg2608z00_1761);
																											}
																											BgL_arg2605z00_1758 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg2607z00_1760,
																												BNIL);
																										}
																										BgL_arg2603z00_1756 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg2604z00_1757,
																											BgL_arg2605z00_1758);
																									}
																									BgL_arg2597z00_1754 =
																										MAKE_YOUNG_PAIR
																										(CNST_TABLE_REF(12L),
																										BgL_arg2603z00_1756);
																								}
																								BgL_arg2598z00_1755 =
																									MAKE_YOUNG_PAIR
																									(BgL_valz00_1687, BNIL);
																								BgL_arg2593z00_1751 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg2597z00_1754,
																									BgL_arg2598z00_1755);
																							}
																							BgL_arg2590z00_1749 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg2591z00_1750,
																								BgL_arg2593z00_1751);
																						}
																						BgL_arg2589z00_1748 =
																							MAKE_YOUNG_PAIR(CNST_TABLE_REF
																							(27L), BgL_arg2590z00_1749);
																					}
																					BgL_arg2528z00_1710 =
																						MAKE_YOUNG_PAIR(BgL_arg2589z00_1748,
																						BNIL);
																				}
																				BgL_arg2524z00_1708 =
																					MAKE_YOUNG_PAIR(BgL_arg2527z00_1709,
																					BgL_arg2528z00_1710);
																			}
																			BgL_arg2520z00_1707 =
																				MAKE_YOUNG_PAIR(CNST_TABLE_REF(11L),
																				BgL_arg2524z00_1708);
																		}
																		BgL_arg2512z00_1702 =
																			MAKE_YOUNG_PAIR(BgL_arg2520z00_1707,
																			BNIL);
																	}
																	BgL_arg2508z00_1700 =
																		MAKE_YOUNG_PAIR(BgL_arg2509z00_1701,
																		BgL_arg2512z00_1702);
																}
																BgL_arg2506z00_1699 =
																	MAKE_YOUNG_PAIR(CNST_TABLE_REF(11L),
																	BgL_arg2508z00_1700);
															}
															BgL_arg2498z00_1692 =
																MAKE_YOUNG_PAIR(BgL_arg2506z00_1699, BNIL);
														}
														BgL_arg2496z00_1690 =
															MAKE_YOUNG_PAIR(BgL_arg2497z00_1691,
															BgL_arg2498z00_1692);
													}
													BgL_arg2494z00_1689 =
														MAKE_YOUNG_PAIR(CNST_TABLE_REF(11L),
														BgL_arg2496z00_1690);
												}
												BgL_auxz00_3834 =
													(VA_PROCEDUREP(BgL_ez00_36) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_ez00_36)) (BgL_ez00_36,
														BgL_arg2494z00_1689, BgL_ez00_36,
														BEOA) : ((obj_t(*)(obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_ez00_36)) (BgL_ez00_36,
														BgL_arg2494z00_1689, BgL_ez00_36));
											}
										}
										return
											BGl_replacez12z12zztools_miscz00(BgL_xz00_35,
											BgL_auxz00_3834);
									}
								}
							else
								{	/* Expand/exit.scm 356 */
								BgL_tagzd22331zd2_1669:
									return
										BGl_errorz00zz__errorz00(BFALSE,
										BGl_string2619z00zzexpand_exitz00, BgL_xz00_35);
								}
						}
					else
						{	/* Expand/exit.scm 356 */
							goto BgL_tagzd22331zd2_1669;
						}
				}
			}
		}

	}



/* &expand-with-handler */
	obj_t BGl_z62expandzd2withzd2handlerz62zzexpand_exitz00(obj_t BgL_envz00_2218,
		obj_t BgL_xz00_2219, obj_t BgL_ez00_2220)
	{
		{	/* Expand/exit.scm 327 */
			return
				BGl_expandzd2withzd2handlerz00zzexpand_exitz00(BgL_xz00_2219,
				BgL_ez00_2220);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzexpand_exitz00(void)
	{
		{	/* Expand/exit.scm 15 */
			BGl_modulezd2initializa7ationz75zztools_tracez00(54713316L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zztools_argsz00(47102372L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zztools_speekz00(61247943L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zztools_miscz00(9470071L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zzexpand_expanderz00(393376L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zzexpand_epsz00(359337187L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(223654864L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zzast_identz00(174885617L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			BGl_modulezd2initializa7ationz75zzbackend_backendz00(216206620L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
			return
				BGl_modulezd2initializa7ationz75zztools_locationz00(462333240L,
				BSTRING_TO_STRING(BGl_string2620z00zzexpand_exitz00));
		}

	}

#ifdef __cplusplus
}
#endif
