/*===========================================================================*/
/*   (Eval/expdlet.scm)                                                      */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Eval/expdlet.scm -indent -o objs/obj_u/Eval/expdlet.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___EXPANDER_LET_TYPE_DEFINITIONS
#define BGL___EXPANDER_LET_TYPE_DEFINITIONS
#endif													// BGL___EXPANDER_LET_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol2003z00zz__expander_letz00 = BUNSPEC;
	static obj_t BGl_symbol2005z00zz__expander_letz00 = BUNSPEC;
	static obj_t BGl_symbol2007z00zz__expander_letz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2letrecza2za2zz__expander_letz00(obj_t, obj_t);
	static obj_t BGl_symbol2012z00zz__expander_letz00 = BUNSPEC;
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol2016z00zz__expander_letz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__expander_letz00 = BUNSPEC;
	extern obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62expandzd2evalzd2labelsz62zz__expander_letz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2evalzd2letz00zz__expander_letz00(obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2evalzd2letz62zz__expander_letz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__expander_letz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evutilsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_definez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_z62zc3z04anonymousza31302ze3ze5zz__expander_letz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_z52withzd2lexicalz80zz__expandz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2evalzd2letza2zc0zz__expander_letz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__expander_letz00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__expander_letz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__expander_letz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2z42letz42zz__expander_letz00(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__expander_letz00(void);
	extern obj_t BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__expander_letz00(void);
	extern obj_t BGl_bindingszd2ze3listz31zz__evutilsz00(obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_z62expandzd2evalzd2letrecza2zc0zz__expander_letz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2letrecz00zz__expander_letz00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t c_substring(obj_t, long, long);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__expander_letz00(void);
	static obj_t BGl_z62expandzd2evalzd2letrecz62zz__expander_letz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_loopze70ze7zz__expander_letz00(obj_t, obj_t);
	static obj_t BGl_z62expandzd2evalzd2z42letz20zz__expander_letz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evalzd2beginzd2expanderz00zz__expander_definez00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2letza2za2zz__expander_letz00(obj_t, obj_t);
	extern obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2labelsz00zz__expander_letz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2z42letzd2envz90zz__expander_letz00,
		BgL_bgl_za762expandza7d2eval2020z00,
		BGl_z62expandzd2evalzd2z42letz20zz__expander_letz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2letza2zd2envz70zz__expander_letz00,
		BgL_bgl_za762expandza7d2eval2021z00,
		BGl_z62expandzd2evalzd2letza2zc0zz__expander_letz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2labelszd2envzd2zz__expander_letz00,
		BgL_bgl_za762expandza7d2eval2022z00,
		BGl_z62expandzd2evalzd2labelsz62zz__expander_letz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2letrecza2zd2envz70zz__expander_letz00,
		BgL_bgl_za762expandza7d2eval2023z00,
		BGl_z62expandzd2evalzd2letrecza2zc0zz__expander_letz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2letreczd2envzd2zz__expander_letz00,
		BgL_bgl_za762expandza7d2eval2024z00,
		BGl_z62expandzd2evalzd2letrecz62zz__expander_letz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2004z00zz__expander_letz00,
		BgL_bgl_string2004za700za7za7_2025za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2006z00zz__expander_letz00,
		BgL_bgl_string2006za700za7za7_2026za7, "letrec", 6);
	      BGL_DEFINE_STRING(BGl_string2008z00zz__expander_letz00,
		BgL_bgl_string2008za700za7za7_2027za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2009z00zz__expander_letz00,
		BgL_bgl_string2009za700za7za7_2028za7, "Illegal form", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2002z00zz__expander_letz00,
		BgL_bgl_za762za7c3za704anonymo2029za7,
		BGl_z62zc3z04anonymousza31302ze3ze5zz__expander_letz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2010z00zz__expander_letz00,
		BgL_bgl_string2010za700za7za7_2030za7, "Illegal binding form", 20);
	      BGL_DEFINE_STRING(BGl_string2011z00zz__expander_letz00,
		BgL_bgl_string2011za700za7za7_2031za7, "Illegal `let' form", 18);
	      BGL_DEFINE_STRING(BGl_string2013z00zz__expander_letz00,
		BgL_bgl_string2013za700za7za7_2032za7, "let*", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2letzd2envzd2zz__expander_letz00,
		BgL_bgl_za762expandza7d2eval2033z00,
		BGl_z62expandzd2evalzd2letz62zz__expander_letz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2014z00zz__expander_letz00,
		BgL_bgl_string2014za700za7za7_2034za7, "Illegal bindings form", 21);
	      BGL_DEFINE_STRING(BGl_string2015z00zz__expander_letz00,
		BgL_bgl_string2015za700za7za7_2035za7, "letrec*", 7);
	      BGL_DEFINE_STRING(BGl_string2017z00zz__expander_letz00,
		BgL_bgl_string2017za700za7za7_2036za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2018z00zz__expander_letz00,
		BgL_bgl_string2018za700za7za7_2037za7, "expand-labels", 13);
	      BGL_DEFINE_STRING(BGl_string2019z00zz__expander_letz00,
		BgL_bgl_string2019za700za7za7_2038za7, "__expander_let", 14);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string2019z00zz__expander_letz00,
			BgL_bgl_string2019za700za7za7_2038za7);
		BGL_BIND_STRING(BGl_string2018z00zz__expander_letz00,
			BgL_bgl_string2018za700za7za7_2037za7);
		BGL_BIND_STRING(BGl_string2017z00zz__expander_letz00,
			BgL_bgl_string2017za700za7za7_2036za7);
		BGL_BIND_STRING(BGl_string2015z00zz__expander_letz00,
			BgL_bgl_string2015za700za7za7_2035za7);
		BGL_BIND_STRING(BGl_string2014z00zz__expander_letz00,
			BgL_bgl_string2014za700za7za7_2034za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2evalzd2letzd2envzd2zz__expander_letz00,
			BgL_bgl_za762expandza7d2eval2033z00);
		BGL_BIND_STRING(BGl_string2013z00zz__expander_letz00,
			BgL_bgl_string2013za700za7za7_2032za7);
		BGL_BIND_STRING(BGl_string2011z00zz__expander_letz00,
			BgL_bgl_string2011za700za7za7_2031za7);
		BGL_BIND_STRING(BGl_string2010z00zz__expander_letz00,
			BgL_bgl_string2010za700za7za7_2030za7);
		BGL_BIND_PROCEDURE(BGl_proc2002z00zz__expander_letz00,
			BgL_bgl_za762za7c3za704anonymo2029za7);
		BGL_BIND_STRING(BGl_string2009z00zz__expander_letz00,
			BgL_bgl_string2009za700za7za7_2028za7);
		BGL_BIND_STRING(BGl_string2008z00zz__expander_letz00,
			BgL_bgl_string2008za700za7za7_2027za7);
		BGL_BIND_STRING(BGl_string2006z00zz__expander_letz00,
			BgL_bgl_string2006za700za7za7_2026za7);
		BGL_BIND_STRING(BGl_string2004z00zz__expander_letz00,
			BgL_bgl_string2004za700za7za7_2025za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2evalzd2letreczd2envzd2zz__expander_letz00,
			BgL_bgl_za762expandza7d2eval2024z00);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2letrecza2zd2envz70zz__expander_letz00,
			BgL_bgl_za762expandza7d2eval2023z00);
		BGL_BIND_PROCEDURE(BGl_expandzd2evalzd2labelszd2envzd2zz__expander_letz00,
			BgL_bgl_za762expandza7d2eval2022z00);
		BGL_BIND_PROCEDURE(BGl_expandzd2evalzd2letza2zd2envz70zz__expander_letz00,
			BgL_bgl_za762expandza7d2eval2021z00);
		BGL_BIND_PROCEDURE(BGl_expandzd2evalzd2z42letzd2envz90zz__expander_letz00,
			BgL_bgl_za762expandza7d2eval2020z00);
	}

/* 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_symbol2003z00zz__expander_letz00));
		ADD_ROOT((void *) (&BGl_symbol2005z00zz__expander_letz00));
		ADD_ROOT((void *) (&BGl_symbol2007z00zz__expander_letz00));
		ADD_ROOT((void *) (&BGl_symbol2012z00zz__expander_letz00));
		ADD_ROOT((void *) (&BGl_symbol2016z00zz__expander_letz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__expander_letz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zz__expander_letz00(long
		BgL_checksumz00_2739, char *BgL_fromz00_2740)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_letz00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_letz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__expander_letz00();
					BGl_cnstzd2initzd2zz__expander_letz00();
					BGl_importedzd2moduleszd2initz00zz__expander_letz00();
					return BGl_methodzd2initzd2zz__expander_letz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expander_letz00(void)
	{
		{	/* Eval/expdlet.scm 15 */
			BGl_symbol2003z00zz__expander_letz00 =
				bstring_to_symbol(BGl_string2004z00zz__expander_letz00);
			BGl_symbol2005z00zz__expander_letz00 =
				bstring_to_symbol(BGl_string2006z00zz__expander_letz00);
			BGl_symbol2007z00zz__expander_letz00 =
				bstring_to_symbol(BGl_string2008z00zz__expander_letz00);
			BGl_symbol2012z00zz__expander_letz00 =
				bstring_to_symbol(BGl_string2013z00zz__expander_letz00);
			return (BGl_symbol2016z00zz__expander_letz00 =
				bstring_to_symbol(BGl_string2017z00zz__expander_letz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__expander_letz00(void)
	{
		{	/* Eval/expdlet.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* expand-eval-let */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2evalzd2letz00zz__expander_letz00(obj_t
		BgL_xz00_3, obj_t BgL_ez00_4)
	{
		{	/* Eval/expdlet.scm 64 */
			{
				obj_t BgL_bindingsz00_1328;
				obj_t BgL_bodyz00_1329;
				obj_t BgL_xz00_1330;
				obj_t BgL_ez00_1331;
				obj_t BgL_loopz00_1191;
				obj_t BgL_bindingsz00_1192;
				obj_t BgL_bodyz00_1193;
				obj_t BgL_xz00_1194;
				obj_t BgL_ez00_1195;

				{	/* Eval/expdlet.scm 110 */
					obj_t BgL_ez00_1135;

					BgL_ez00_1135 =
						BGl_evalzd2beginzd2expanderz00zz__expander_definez00(BgL_ez00_4);
					{	/* Eval/expdlet.scm 110 */
						obj_t BgL_resz00_1136;

						if (PAIRP(BgL_xz00_3))
							{	/* Eval/expdlet.scm 111 */
								obj_t BgL_cdrzd2140zd2_1149;

								BgL_cdrzd2140zd2_1149 = CDR(((obj_t) BgL_xz00_3));
								if (PAIRP(BgL_cdrzd2140zd2_1149))
									{	/* Eval/expdlet.scm 111 */
										obj_t BgL_cdrzd2143zd2_1151;

										BgL_cdrzd2143zd2_1151 = CDR(BgL_cdrzd2140zd2_1149);
										if (NULLP(CAR(BgL_cdrzd2140zd2_1149)))
											{	/* Eval/expdlet.scm 111 */
												if (NULLP(BgL_cdrzd2143zd2_1151))
													{	/* Eval/expdlet.scm 111 */
														obj_t BgL_carzd2157zd2_1156;
														obj_t BgL_cdrzd2158zd2_1157;

														BgL_carzd2157zd2_1156 =
															CAR(((obj_t) BgL_cdrzd2140zd2_1149));
														BgL_cdrzd2158zd2_1157 =
															CDR(((obj_t) BgL_cdrzd2140zd2_1149));
														if (SYMBOLP(BgL_carzd2157zd2_1156))
															{	/* Eval/expdlet.scm 111 */
																if (PAIRP(BgL_cdrzd2158zd2_1157))
																	{	/* Eval/expdlet.scm 111 */
																		obj_t BgL_cdrzd2165zd2_1160;

																		BgL_cdrzd2165zd2_1160 =
																			CDR(BgL_cdrzd2158zd2_1157);
																		if (NULLP(BgL_cdrzd2165zd2_1160))
																			{	/* Eval/expdlet.scm 111 */
																				obj_t BgL_carzd2177zd2_1163;

																				BgL_carzd2177zd2_1163 =
																					CAR(((obj_t) BgL_cdrzd2140zd2_1149));
																				if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_carzd2177zd2_1163))
																					{	/* Eval/expdlet.scm 111 */
																						obj_t BgL_arg1224z00_1165;

																						BgL_arg1224z00_1165 =
																							CDR(
																							((obj_t) BgL_cdrzd2140zd2_1149));
																						BgL_bindingsz00_1328 =
																							BgL_carzd2177zd2_1163;
																						BgL_bodyz00_1329 =
																							BgL_arg1224z00_1165;
																						BgL_xz00_1330 = BgL_xz00_3;
																						BgL_ez00_1331 = BgL_ez00_1135;
																					BgL_zc3z04anonymousza31356ze3z87_1332:
																						{
																							obj_t BgL_bindingsz00_1336;
																							obj_t BgL_nbindingsz00_1337;
																							obj_t BgL_ebdgsz00_1338;

																							BgL_bindingsz00_1336 =
																								BgL_bindingsz00_1328;
																							BgL_nbindingsz00_1337 = BNIL;
																							BgL_ebdgsz00_1338 = BNIL;
																						BgL_zc3z04anonymousza31357ze3z87_1339:
																							if (NULLP
																								(BgL_bindingsz00_1336))
																								{	/* Eval/expdlet.scm 96 */
																									obj_t BgL_arg1359z00_1341;

																									{	/* Eval/expdlet.scm 96 */
																										obj_t BgL_arg1360z00_1342;
																										obj_t BgL_arg1361z00_1343;

																										BgL_arg1360z00_1342 =
																											bgl_reverse_bang
																											(BgL_nbindingsz00_1337);
																										BgL_arg1361z00_1343 =
																											MAKE_YOUNG_PAIR
																											(BGl_z52withzd2lexicalz80zz__expandz00
																											(BgL_ebdgsz00_1338,
																												BGl_expandzd2prognzd2zz__prognz00
																												(BgL_bodyz00_1329),
																												BgL_ez00_1331, BFALSE),
																											BNIL);
																										BgL_arg1359z00_1341 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1360z00_1342,
																											BgL_arg1361z00_1343);
																									}
																									BgL_resz00_1136 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2007z00zz__expander_letz00,
																										BgL_arg1359z00_1341);
																								}
																							else
																								{
																									obj_t BgL_varz00_1346;

																									{	/* Eval/expdlet.scm 98 */
																										obj_t BgL_ezd2111zd2_1352;

																										BgL_ezd2111zd2_1352 =
																											CAR(
																											((obj_t)
																												BgL_bindingsz00_1336));
																										if (SYMBOLP
																											(BgL_ezd2111zd2_1352))
																											{	/* Eval/expdlet.scm 98 */
																												BgL_varz00_1346 =
																													BgL_ezd2111zd2_1352;
																												{	/* Eval/expdlet.scm 100 */
																													obj_t
																														BgL_arg1372z00_1363;
																													obj_t
																														BgL_arg1373z00_1364;
																													obj_t
																														BgL_arg1374z00_1365;
																													BgL_arg1372z00_1363 =
																														CDR(((obj_t)
																															BgL_bindingsz00_1336));
																													{	/* Eval/expdlet.scm 101 */
																														obj_t
																															BgL_arg1376z00_1366;
																														{	/* Eval/expdlet.scm 89 */
																															obj_t
																																BgL_arg1353z00_2259;
																															{	/* Eval/expdlet.scm 89 */
																																obj_t
																																	BgL_list1354z00_2260;
																																{	/* Eval/expdlet.scm 89 */
																																	obj_t
																																		BgL_arg1355z00_2261;
																																	BgL_arg1355z00_2261
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BUNSPEC,
																																		BNIL);
																																	BgL_list1354z00_2260
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_varz00_1346,
																																		BgL_arg1355z00_2261);
																																}
																																BgL_arg1353z00_2259
																																	=
																																	BgL_list1354z00_2260;
																															}
																															BgL_arg1376z00_1366
																																=
																																BGl_evepairifyz00zz__prognz00
																																(BgL_arg1353z00_2259,
																																BgL_bindingsz00_1336);
																														}
																														BgL_arg1373z00_1364
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1376z00_1366,
																															BgL_nbindingsz00_1337);
																													}
																													BgL_arg1374z00_1365 =
																														MAKE_YOUNG_PAIR
																														(BgL_varz00_1346,
																														BgL_ebdgsz00_1338);
																													{
																														obj_t
																															BgL_ebdgsz00_2806;
																														obj_t
																															BgL_nbindingsz00_2805;
																														obj_t
																															BgL_bindingsz00_2804;
																														BgL_bindingsz00_2804
																															=
																															BgL_arg1372z00_1363;
																														BgL_nbindingsz00_2805
																															=
																															BgL_arg1373z00_1364;
																														BgL_ebdgsz00_2806 =
																															BgL_arg1374z00_1365;
																														BgL_ebdgsz00_1338 =
																															BgL_ebdgsz00_2806;
																														BgL_nbindingsz00_1337
																															=
																															BgL_nbindingsz00_2805;
																														BgL_bindingsz00_1336
																															=
																															BgL_bindingsz00_2804;
																														goto
																															BgL_zc3z04anonymousza31357ze3z87_1339;
																													}
																												}
																											}
																										else
																											{	/* Eval/expdlet.scm 98 */
																												if (PAIRP
																													(BgL_ezd2111zd2_1352))
																													{	/* Eval/expdlet.scm 98 */
																														obj_t
																															BgL_carzd2121zd2_1355;
																														obj_t
																															BgL_cdrzd2122zd2_1356;
																														BgL_carzd2121zd2_1355
																															=
																															CAR
																															(BgL_ezd2111zd2_1352);
																														BgL_cdrzd2122zd2_1356
																															=
																															CDR
																															(BgL_ezd2111zd2_1352);
																														if (SYMBOLP
																															(BgL_carzd2121zd2_1355))
																															{	/* Eval/expdlet.scm 98 */
																																if (PAIRP
																																	(BgL_cdrzd2122zd2_1356))
																																	{	/* Eval/expdlet.scm 98 */
																																		if (NULLP
																																			(CDR
																																				(BgL_cdrzd2122zd2_1356)))
																																			{	/* Eval/expdlet.scm 98 */
																																				obj_t
																																					BgL_arg1370z00_1361;
																																				BgL_arg1370z00_1361
																																					=
																																					CAR
																																					(BgL_cdrzd2122zd2_1356);
																																				{	/* Eval/expdlet.scm 104 */
																																					obj_t
																																						BgL_arg1377z00_2280;
																																					obj_t
																																						BgL_arg1378z00_2281;
																																					obj_t
																																						BgL_arg1379z00_2282;
																																					BgL_arg1377z00_2280
																																						=
																																						CDR(
																																						((obj_t) BgL_bindingsz00_1336));
																																					{	/* Eval/expdlet.scm 105 */
																																						obj_t
																																							BgL_arg1380z00_2283;
																																						{	/* Eval/expdlet.scm 105 */
																																							obj_t
																																								BgL_arg1381z00_2284;
																																							BgL_arg1381z00_2284
																																								=
																																								BGL_PROCEDURE_CALL2
																																								(BgL_ez00_1331,
																																								BgL_arg1370z00_1361,
																																								BgL_ez00_1331);
																																							{	/* Eval/expdlet.scm 89 */
																																								obj_t
																																									BgL_arg1353z00_2288;
																																								{	/* Eval/expdlet.scm 89 */
																																									obj_t
																																										BgL_list1354z00_2289;
																																									{	/* Eval/expdlet.scm 89 */
																																										obj_t
																																											BgL_arg1355z00_2290;
																																										BgL_arg1355z00_2290
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1381z00_2284,
																																											BNIL);
																																										BgL_list1354z00_2289
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_carzd2121zd2_1355,
																																											BgL_arg1355z00_2290);
																																									}
																																									BgL_arg1353z00_2288
																																										=
																																										BgL_list1354z00_2289;
																																								}
																																								BgL_arg1380z00_2283
																																									=
																																									BGl_evepairifyz00zz__prognz00
																																									(BgL_arg1353z00_2288,
																																									BgL_ezd2111zd2_1352);
																																							}
																																						}
																																						BgL_arg1378z00_2281
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1380z00_2283,
																																							BgL_nbindingsz00_1337);
																																					}
																																					BgL_arg1379z00_2282
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_carzd2121zd2_1355,
																																						BgL_ebdgsz00_1338);
																																					{
																																						obj_t
																																							BgL_ebdgsz00_2833;
																																						obj_t
																																							BgL_nbindingsz00_2832;
																																						obj_t
																																							BgL_bindingsz00_2831;
																																						BgL_bindingsz00_2831
																																							=
																																							BgL_arg1377z00_2280;
																																						BgL_nbindingsz00_2832
																																							=
																																							BgL_arg1378z00_2281;
																																						BgL_ebdgsz00_2833
																																							=
																																							BgL_arg1379z00_2282;
																																						BgL_ebdgsz00_1338
																																							=
																																							BgL_ebdgsz00_2833;
																																						BgL_nbindingsz00_1337
																																							=
																																							BgL_nbindingsz00_2832;
																																						BgL_bindingsz00_1336
																																							=
																																							BgL_bindingsz00_2831;
																																						goto
																																							BgL_zc3z04anonymousza31357ze3z87_1339;
																																					}
																																				}
																																			}
																																		else
																																			{	/* Eval/expdlet.scm 98 */
																																				BgL_resz00_1136
																																					=
																																					BGl_expandzd2errorzd2zz__expandz00
																																					(BGl_string2008z00zz__expander_letz00,
																																					BGl_string2010z00zz__expander_letz00,
																																					BgL_xz00_1330);
																																			}
																																	}
																																else
																																	{	/* Eval/expdlet.scm 98 */
																																		BgL_resz00_1136
																																			=
																																			BGl_expandzd2errorzd2zz__expandz00
																																			(BGl_string2008z00zz__expander_letz00,
																																			BGl_string2010z00zz__expander_letz00,
																																			BgL_xz00_1330);
																																	}
																															}
																														else
																															{	/* Eval/expdlet.scm 98 */
																																BgL_resz00_1136
																																	=
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string2008z00zz__expander_letz00,
																																	BGl_string2010z00zz__expander_letz00,
																																	BgL_xz00_1330);
																															}
																													}
																												else
																													{	/* Eval/expdlet.scm 98 */
																														BgL_resz00_1136 =
																															BGl_expandzd2errorzd2zz__expandz00
																															(BGl_string2008z00zz__expander_letz00,
																															BGl_string2010z00zz__expander_letz00,
																															BgL_xz00_1330);
																													}
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Eval/expdlet.scm 111 */
																						BgL_resz00_1136 =
																							BGl_expandzd2errorzd2zz__expandz00
																							(BGl_string2008z00zz__expander_letz00,
																							BGl_string2011z00zz__expander_letz00,
																							BgL_xz00_3);
																					}
																			}
																		else
																			{	/* Eval/expdlet.scm 111 */
																				BgL_loopz00_1191 =
																					BgL_carzd2157zd2_1156;
																				BgL_bindingsz00_1192 =
																					CAR(BgL_cdrzd2158zd2_1157);
																				BgL_bodyz00_1193 =
																					BgL_cdrzd2165zd2_1160;
																				BgL_xz00_1194 = BgL_xz00_3;
																				BgL_ez00_1195 = BgL_ez00_1135;
																			BgL_zc3z04anonymousza31240ze3z87_1196:
																				{	/* Eval/expdlet.scm 67 */
																					bool_t BgL_test2054z00_2839;

																					{
																						obj_t BgL_l1087z00_1305;

																						BgL_l1087z00_1305 =
																							BgL_bindingsz00_1192;
																					BgL_zc3z04anonymousza31348ze3z87_1306:
																						if (NULLP
																							(BgL_l1087z00_1305))
																							{	/* Eval/expdlet.scm 67 */
																								BgL_test2054z00_2839 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Eval/expdlet.scm 67 */
																								bool_t BgL_test2056z00_2842;

																								{	/* Eval/expdlet.scm 68 */
																									obj_t BgL_xz00_1311;

																									BgL_xz00_1311 =
																										CAR(
																										((obj_t)
																											BgL_l1087z00_1305));
																									if (PAIRP(BgL_xz00_1311))
																										{	/* Eval/expdlet.scm 68 */
																											obj_t
																												BgL_cdrzd2105zd2_1316;
																											BgL_cdrzd2105zd2_1316 =
																												CDR(BgL_xz00_1311);
																											if (PAIRP
																												(BgL_cdrzd2105zd2_1316))
																												{	/* Eval/expdlet.scm 68 */
																													BgL_test2056z00_2842 =
																														NULLP(CDR
																														(BgL_cdrzd2105zd2_1316));
																												}
																											else
																												{	/* Eval/expdlet.scm 68 */
																													BgL_test2056z00_2842 =
																														((bool_t) 0);
																												}
																										}
																									else
																										{	/* Eval/expdlet.scm 68 */
																											BgL_test2056z00_2842 =
																												((bool_t) 0);
																										}
																								}
																								if (BgL_test2056z00_2842)
																									{
																										obj_t BgL_l1087z00_2852;

																										BgL_l1087z00_2852 =
																											CDR(
																											((obj_t)
																												BgL_l1087z00_1305));
																										BgL_l1087z00_1305 =
																											BgL_l1087z00_2852;
																										goto
																											BgL_zc3z04anonymousza31348ze3z87_1306;
																									}
																								else
																									{	/* Eval/expdlet.scm 67 */
																										BgL_test2054z00_2839 =
																											((bool_t) 0);
																									}
																							}
																					}
																					if (BgL_test2054z00_2839)
																						{	/* Eval/expdlet.scm 73 */
																							obj_t BgL_varsz00_1216;

																							if (NULLP(BgL_bindingsz00_1192))
																								{	/* Eval/expdlet.scm 73 */
																									BgL_varsz00_1216 = BNIL;
																								}
																							else
																								{	/* Eval/expdlet.scm 73 */
																									obj_t BgL_head1092z00_1279;

																									BgL_head1092z00_1279 =
																										MAKE_YOUNG_PAIR(BNIL, BNIL);
																									{
																										obj_t BgL_l1090z00_1281;
																										obj_t BgL_tail1093z00_1282;

																										BgL_l1090z00_1281 =
																											BgL_bindingsz00_1192;
																										BgL_tail1093z00_1282 =
																											BgL_head1092z00_1279;
																									BgL_zc3z04anonymousza31331ze3z87_1283:
																										if (NULLP
																											(BgL_l1090z00_1281))
																											{	/* Eval/expdlet.scm 73 */
																												BgL_varsz00_1216 =
																													CDR
																													(BgL_head1092z00_1279);
																											}
																										else
																											{	/* Eval/expdlet.scm 73 */
																												obj_t
																													BgL_newtail1094z00_1285;
																												{	/* Eval/expdlet.scm 73 */
																													obj_t
																														BgL_arg1334z00_1287;
																													{	/* Eval/expdlet.scm 73 */
																														obj_t BgL_xz00_1288;

																														BgL_xz00_1288 =
																															CAR(
																															((obj_t)
																																BgL_l1090z00_1281));
																														{	/* Eval/expdlet.scm 74 */
																															bool_t
																																BgL_test2061z00_2863;
																															{	/* Eval/expdlet.scm 74 */
																																bool_t
																																	BgL_test2062z00_2864;
																																{	/* Eval/expdlet.scm 74 */
																																	obj_t
																																		BgL_tmpz00_2865;
																																	{	/* Eval/expdlet.scm 74 */
																																		obj_t
																																			BgL_pairz00_2161;
																																		BgL_pairz00_2161
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_xz00_1288));
																																		BgL_tmpz00_2865
																																			=
																																			CDR
																																			(BgL_pairz00_2161);
																																	}
																																	BgL_test2062z00_2864
																																		=
																																		NULLP
																																		(BgL_tmpz00_2865);
																																}
																																if (BgL_test2062z00_2864)
																																	{	/* Eval/expdlet.scm 75 */
																																		bool_t
																																			BgL_test2063z00_2870;
																																		{	/* Eval/expdlet.scm 75 */
																																			obj_t
																																				BgL_tmpz00_2871;
																																			{	/* Eval/expdlet.scm 75 */
																																				obj_t
																																					BgL_pairz00_2165;
																																				BgL_pairz00_2165
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_xz00_1288));
																																				BgL_tmpz00_2871
																																					=
																																					CAR
																																					(BgL_pairz00_2165);
																																			}
																																			BgL_test2063z00_2870
																																				=
																																				PAIRP
																																				(BgL_tmpz00_2871);
																																		}
																																		if (BgL_test2063z00_2870)
																																			{	/* Eval/expdlet.scm 75 */
																																				BgL_test2061z00_2863
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		else
																																			{	/* Eval/expdlet.scm 75 */
																																				BgL_test2061z00_2863
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																	}
																																else
																																	{	/* Eval/expdlet.scm 74 */
																																		BgL_test2061z00_2863
																																			=
																																			((bool_t)
																																			0);
																																	}
																															}
																															if (BgL_test2061z00_2863)
																																{	/* Eval/expdlet.scm 76 */
																																	obj_t
																																		BgL_arg1343z00_1296;
																																	{	/* Eval/expdlet.scm 76 */
																																		obj_t
																																			BgL_pairz00_2169;
																																		BgL_pairz00_2169
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_xz00_1288));
																																		BgL_arg1343z00_1296
																																			=
																																			CAR
																																			(BgL_pairz00_2169);
																																	}
																																	BgL_arg1334z00_1287
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BFALSE,
																																		BgL_arg1343z00_1296);
																																}
																															else
																																{	/* Eval/expdlet.scm 77 */
																																	obj_t
																																		BgL_arg1345z00_1297;
																																	{	/* Eval/expdlet.scm 77 */

																																		{	/* Eval/expdlet.scm 77 */

																																			BgL_arg1345z00_1297
																																				=
																																				BGl_gensymz00zz__r4_symbols_6_4z00
																																				(BFALSE);
																																		}
																																	}
																																	BgL_arg1334z00_1287
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BTRUE,
																																		BgL_arg1345z00_1297);
																																}
																														}
																													}
																													BgL_newtail1094z00_1285
																														=
																														MAKE_YOUNG_PAIR
																														(BgL_arg1334z00_1287,
																														BNIL);
																												}
																												SET_CDR
																													(BgL_tail1093z00_1282,
																													BgL_newtail1094z00_1285);
																												{	/* Eval/expdlet.scm 73 */
																													obj_t
																														BgL_arg1333z00_1286;
																													BgL_arg1333z00_1286 =
																														CDR(((obj_t)
																															BgL_l1090z00_1281));
																													{
																														obj_t
																															BgL_tail1093z00_2887;
																														obj_t
																															BgL_l1090z00_2886;
																														BgL_l1090z00_2886 =
																															BgL_arg1333z00_1286;
																														BgL_tail1093z00_2887
																															=
																															BgL_newtail1094z00_1285;
																														BgL_tail1093z00_1282
																															=
																															BgL_tail1093z00_2887;
																														BgL_l1090z00_1281 =
																															BgL_l1090z00_2886;
																														goto
																															BgL_zc3z04anonymousza31331ze3z87_1283;
																													}
																												}
																											}
																									}
																								}
																							{	/* Eval/expdlet.scm 73 */
																								obj_t BgL_auxz00_1217;

																								{	/* Eval/expdlet.scm 79 */
																									obj_t BgL_list1299z00_1268;

																									{	/* Eval/expdlet.scm 79 */
																										obj_t BgL_arg1301z00_1269;

																										BgL_arg1301z00_1269 =
																											MAKE_YOUNG_PAIR
																											(BgL_bindingsz00_1192,
																											BNIL);
																										BgL_list1299z00_1268 =
																											MAKE_YOUNG_PAIR
																											(BgL_varsz00_1216,
																											BgL_arg1301z00_1269);
																									}
																									BgL_auxz00_1217 =
																										BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
																										(BGl_proc2002z00zz__expander_letz00,
																										BgL_list1299z00_1268);
																								}
																								{	/* Eval/expdlet.scm 79 */
																									obj_t BgL_recz00_1218;

																									{	/* Eval/expdlet.scm 82 */
																										obj_t BgL_arg1261z00_1223;

																										{	/* Eval/expdlet.scm 82 */
																											obj_t BgL_arg1262z00_1224;
																											obj_t BgL_arg1263z00_1225;

																											{	/* Eval/expdlet.scm 82 */
																												obj_t
																													BgL_arg1265z00_1226;
																												{	/* Eval/expdlet.scm 82 */
																													obj_t
																														BgL_arg1266z00_1227;
																													{	/* Eval/expdlet.scm 82 */
																														obj_t
																															BgL_arg1267z00_1228;
																														{	/* Eval/expdlet.scm 82 */
																															obj_t
																																BgL_arg1269z00_1229;
																															{	/* Eval/expdlet.scm 82 */
																																obj_t
																																	BgL_arg1271z00_1230;
																																obj_t
																																	BgL_arg1274z00_1231;
																																if (NULLP
																																	(BgL_bindingsz00_1192))
																																	{	/* Eval/expdlet.scm 82 */
																																		BgL_arg1271z00_1230
																																			= BNIL;
																																	}
																																else
																																	{	/* Eval/expdlet.scm 82 */
																																		obj_t
																																			BgL_head1097z00_1234;
																																		{	/* Eval/expdlet.scm 82 */
																																			obj_t
																																				BgL_arg1281z00_1246;
																																			{	/* Eval/expdlet.scm 82 */
																																				obj_t
																																					BgL_pairz00_2179;
																																				BgL_pairz00_2179
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_bindingsz00_1192));
																																				BgL_arg1281z00_1246
																																					=
																																					CAR
																																					(BgL_pairz00_2179);
																																			}
																																			BgL_head1097z00_1234
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1281z00_1246,
																																				BNIL);
																																		}
																																		{	/* Eval/expdlet.scm 82 */
																																			obj_t
																																				BgL_g1100z00_1235;
																																			BgL_g1100z00_1235
																																				=
																																				CDR((
																																					(obj_t)
																																					BgL_bindingsz00_1192));
																																			{
																																				obj_t
																																					BgL_l1095z00_2200;
																																				obj_t
																																					BgL_tail1098z00_2201;
																																				BgL_l1095z00_2200
																																					=
																																					BgL_g1100z00_1235;
																																				BgL_tail1098z00_2201
																																					=
																																					BgL_head1097z00_1234;
																																			BgL_zc3z04anonymousza31276ze3z87_2199:
																																				if (NULLP(BgL_l1095z00_2200))
																																					{	/* Eval/expdlet.scm 82 */
																																						BgL_arg1271z00_1230
																																							=
																																							BgL_head1097z00_1234;
																																					}
																																				else
																																					{	/* Eval/expdlet.scm 82 */
																																						obj_t
																																							BgL_newtail1099z00_2208;
																																						{	/* Eval/expdlet.scm 82 */
																																							obj_t
																																								BgL_arg1279z00_2209;
																																							{	/* Eval/expdlet.scm 82 */
																																								obj_t
																																									BgL_pairz00_2213;
																																								BgL_pairz00_2213
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_l1095z00_2200));
																																								BgL_arg1279z00_2209
																																									=
																																									CAR
																																									(BgL_pairz00_2213);
																																							}
																																							BgL_newtail1099z00_2208
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1279z00_2209,
																																								BNIL);
																																						}
																																						SET_CDR
																																							(BgL_tail1098z00_2201,
																																							BgL_newtail1099z00_2208);
																																						{	/* Eval/expdlet.scm 82 */
																																							obj_t
																																								BgL_arg1278z00_2211;
																																							BgL_arg1278z00_2211
																																								=
																																								CDR
																																								(
																																								((obj_t) BgL_l1095z00_2200));
																																							{
																																								obj_t
																																									BgL_tail1098z00_2909;
																																								obj_t
																																									BgL_l1095z00_2908;
																																								BgL_l1095z00_2908
																																									=
																																									BgL_arg1278z00_2211;
																																								BgL_tail1098z00_2909
																																									=
																																									BgL_newtail1099z00_2208;
																																								BgL_tail1098z00_2201
																																									=
																																									BgL_tail1098z00_2909;
																																								BgL_l1095z00_2200
																																									=
																																									BgL_l1095z00_2908;
																																								goto
																																									BgL_zc3z04anonymousza31276ze3z87_2199;
																																							}
																																						}
																																					}
																																			}
																																		}
																																	}
																																BgL_arg1274z00_1231
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_expandzd2prognzd2zz__prognz00
																																	(BgL_bodyz00_1193),
																																	BNIL);
																																BgL_arg1269z00_1229
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1271z00_1230,
																																	BgL_arg1274z00_1231);
																															}
																															BgL_arg1267z00_1228
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2003z00zz__expander_letz00,
																																BgL_arg1269z00_1229);
																														}
																														BgL_arg1266z00_1227
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1267z00_1228,
																															BNIL);
																													}
																													BgL_arg1265z00_1226 =
																														MAKE_YOUNG_PAIR
																														(BgL_loopz00_1191,
																														BgL_arg1266z00_1227);
																												}
																												BgL_arg1262z00_1224 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1265z00_1226,
																													BNIL);
																											}
																											{	/* Eval/expdlet.scm 84 */
																												obj_t
																													BgL_arg1285z00_1249;
																												{	/* Eval/expdlet.scm 84 */
																													obj_t
																														BgL_arg1287z00_1250;
																													if (NULLP
																														(BgL_varsz00_1216))
																														{	/* Eval/expdlet.scm 84 */
																															BgL_arg1287z00_1250
																																= BNIL;
																														}
																													else
																														{	/* Eval/expdlet.scm 84 */
																															obj_t
																																BgL_head1103z00_1253;
																															{	/* Eval/expdlet.scm 84 */
																																obj_t
																																	BgL_arg1295z00_1265;
																																{	/* Eval/expdlet.scm 84 */
																																	obj_t
																																		BgL_pairz00_2217;
																																	BgL_pairz00_2217
																																		=
																																		CAR(((obj_t)
																																			BgL_varsz00_1216));
																																	BgL_arg1295z00_1265
																																		=
																																		CDR
																																		(BgL_pairz00_2217);
																																}
																																BgL_head1103z00_1253
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1295z00_1265,
																																	BNIL);
																															}
																															{	/* Eval/expdlet.scm 84 */
																																obj_t
																																	BgL_g1106z00_1254;
																																BgL_g1106z00_1254
																																	=
																																	CDR(((obj_t)
																																		BgL_varsz00_1216));
																																{
																																	obj_t
																																		BgL_l1101z00_2238;
																																	obj_t
																																		BgL_tail1104z00_2239;
																																	BgL_l1101z00_2238
																																		=
																																		BgL_g1106z00_1254;
																																	BgL_tail1104z00_2239
																																		=
																																		BgL_head1103z00_1253;
																																BgL_zc3z04anonymousza31289ze3z87_2237:
																																	if (NULLP
																																		(BgL_l1101z00_2238))
																																		{	/* Eval/expdlet.scm 84 */
																																			BgL_arg1287z00_1250
																																				=
																																				BgL_head1103z00_1253;
																																		}
																																	else
																																		{	/* Eval/expdlet.scm 84 */
																																			obj_t
																																				BgL_newtail1105z00_2246;
																																			{	/* Eval/expdlet.scm 84 */
																																				obj_t
																																					BgL_arg1292z00_2247;
																																				{	/* Eval/expdlet.scm 84 */
																																					obj_t
																																						BgL_pairz00_2251;
																																					BgL_pairz00_2251
																																						=
																																						CAR(
																																						((obj_t) BgL_l1101z00_2238));
																																					BgL_arg1292z00_2247
																																						=
																																						CDR
																																						(BgL_pairz00_2251);
																																				}
																																				BgL_newtail1105z00_2246
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1292z00_2247,
																																					BNIL);
																																			}
																																			SET_CDR
																																				(BgL_tail1104z00_2239,
																																				BgL_newtail1105z00_2246);
																																			{	/* Eval/expdlet.scm 84 */
																																				obj_t
																																					BgL_arg1291z00_2249;
																																				BgL_arg1291z00_2249
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_l1101z00_2238));
																																				{
																																					obj_t
																																						BgL_tail1104z00_2935;
																																					obj_t
																																						BgL_l1101z00_2934;
																																					BgL_l1101z00_2934
																																						=
																																						BgL_arg1291z00_2249;
																																					BgL_tail1104z00_2935
																																						=
																																						BgL_newtail1105z00_2246;
																																					BgL_tail1104z00_2239
																																						=
																																						BgL_tail1104z00_2935;
																																					BgL_l1101z00_2238
																																						=
																																						BgL_l1101z00_2934;
																																					goto
																																						BgL_zc3z04anonymousza31289ze3z87_2237;
																																				}
																																			}
																																		}
																																}
																															}
																														}
																													BgL_arg1285z00_1249 =
																														MAKE_YOUNG_PAIR
																														(BgL_loopz00_1191,
																														BgL_arg1287z00_1250);
																												}
																												BgL_arg1263z00_1225 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1285z00_1249,
																													BNIL);
																											}
																											BgL_arg1261z00_1223 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1262z00_1224,
																												BgL_arg1263z00_1225);
																										}
																										BgL_recz00_1218 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2005z00zz__expander_letz00,
																											BgL_arg1261z00_1223);
																									}
																									{	/* Eval/expdlet.scm 82 */
																										obj_t BgL_expz00_1219;

																										if (NULLP(BgL_auxz00_1217))
																											{	/* Eval/expdlet.scm 85 */
																												BgL_expz00_1219 =
																													BgL_recz00_1218;
																											}
																										else
																											{	/* Eval/expdlet.scm 85 */
																												obj_t
																													BgL_arg1258z00_1221;
																												{	/* Eval/expdlet.scm 85 */
																													obj_t
																														BgL_arg1259z00_1222;
																													BgL_arg1259z00_1222 =
																														MAKE_YOUNG_PAIR
																														(BgL_recz00_1218,
																														BNIL);
																													BgL_arg1258z00_1221 =
																														MAKE_YOUNG_PAIR
																														(BgL_auxz00_1217,
																														BgL_arg1259z00_1222);
																												}
																												BgL_expz00_1219 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2007z00zz__expander_letz00,
																													BgL_arg1258z00_1221);
																											}
																										{	/* Eval/expdlet.scm 85 */

																											BgL_resz00_1136 =
																												BGL_PROCEDURE_CALL2
																												(BgL_ez00_1195,
																												BgL_expz00_1219,
																												BgL_ez00_1195);
																										}
																									}
																								}
																							}
																						}
																					else
																						{	/* Eval/expdlet.scm 67 */
																							BgL_resz00_1136 =
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string2008z00zz__expander_letz00,
																								BGl_string2009z00zz__expander_letz00,
																								BgL_xz00_1194);
																						}
																				}
																			}
																	}
																else
																	{	/* Eval/expdlet.scm 111 */
																		BgL_resz00_1136 =
																			BGl_expandzd2errorzd2zz__expandz00
																			(BGl_string2008z00zz__expander_letz00,
																			BGl_string2011z00zz__expander_letz00,
																			BgL_xz00_3);
																	}
															}
														else
															{	/* Eval/expdlet.scm 111 */
																BgL_resz00_1136 =
																	BGl_expandzd2errorzd2zz__expandz00
																	(BGl_string2008z00zz__expander_letz00,
																	BGl_string2011z00zz__expander_letz00,
																	BgL_xz00_3);
															}
													}
												else
													{	/* Eval/expdlet.scm 113 */
														obj_t BgL_arg1239z00_2304;

														BgL_arg1239z00_2304 =
															BGl_expandzd2prognzd2zz__prognz00
															(BgL_cdrzd2143zd2_1151);
														BgL_resz00_1136 =
															BGL_PROCEDURE_CALL2(BgL_ez00_1135,
															BgL_arg1239z00_2304, BgL_ez00_1135);
													}
											}
										else
											{	/* Eval/expdlet.scm 111 */
												obj_t BgL_carzd2203zd2_1168;
												obj_t BgL_cdrzd2204zd2_1169;

												BgL_carzd2203zd2_1168 =
													CAR(((obj_t) BgL_cdrzd2140zd2_1149));
												BgL_cdrzd2204zd2_1169 =
													CDR(((obj_t) BgL_cdrzd2140zd2_1149));
												if (SYMBOLP(BgL_carzd2203zd2_1168))
													{	/* Eval/expdlet.scm 111 */
														if (PAIRP(BgL_cdrzd2204zd2_1169))
															{	/* Eval/expdlet.scm 111 */
																obj_t BgL_cdrzd2211zd2_1172;

																BgL_cdrzd2211zd2_1172 =
																	CDR(BgL_cdrzd2204zd2_1169);
																if (NULLP(BgL_cdrzd2211zd2_1172))
																	{	/* Eval/expdlet.scm 111 */
																		obj_t BgL_carzd2225zd2_1175;

																		BgL_carzd2225zd2_1175 =
																			CAR(((obj_t) BgL_cdrzd2140zd2_1149));
																		if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_carzd2225zd2_1175))
																			{	/* Eval/expdlet.scm 111 */
																				obj_t BgL_arg1230z00_1177;

																				BgL_arg1230z00_1177 =
																					CDR(((obj_t) BgL_cdrzd2140zd2_1149));
																				{
																					obj_t BgL_ez00_2980;
																					obj_t BgL_xz00_2979;
																					obj_t BgL_bodyz00_2978;
																					obj_t BgL_bindingsz00_2977;

																					BgL_bindingsz00_2977 =
																						BgL_carzd2225zd2_1175;
																					BgL_bodyz00_2978 =
																						BgL_arg1230z00_1177;
																					BgL_xz00_2979 = BgL_xz00_3;
																					BgL_ez00_2980 = BgL_ez00_1135;
																					BgL_ez00_1331 = BgL_ez00_2980;
																					BgL_xz00_1330 = BgL_xz00_2979;
																					BgL_bodyz00_1329 = BgL_bodyz00_2978;
																					BgL_bindingsz00_1328 =
																						BgL_bindingsz00_2977;
																					goto
																						BgL_zc3z04anonymousza31356ze3z87_1332;
																				}
																			}
																		else
																			{	/* Eval/expdlet.scm 111 */
																				BgL_resz00_1136 =
																					BGl_expandzd2errorzd2zz__expandz00
																					(BGl_string2008z00zz__expander_letz00,
																					BGl_string2011z00zz__expander_letz00,
																					BgL_xz00_3);
																			}
																	}
																else
																	{
																		obj_t BgL_ez00_2987;
																		obj_t BgL_xz00_2986;
																		obj_t BgL_bodyz00_2985;
																		obj_t BgL_bindingsz00_2983;
																		obj_t BgL_loopz00_2982;

																		BgL_loopz00_2982 = BgL_carzd2203zd2_1168;
																		BgL_bindingsz00_2983 =
																			CAR(BgL_cdrzd2204zd2_1169);
																		BgL_bodyz00_2985 = BgL_cdrzd2211zd2_1172;
																		BgL_xz00_2986 = BgL_xz00_3;
																		BgL_ez00_2987 = BgL_ez00_1135;
																		BgL_ez00_1195 = BgL_ez00_2987;
																		BgL_xz00_1194 = BgL_xz00_2986;
																		BgL_bodyz00_1193 = BgL_bodyz00_2985;
																		BgL_bindingsz00_1192 = BgL_bindingsz00_2983;
																		BgL_loopz00_1191 = BgL_loopz00_2982;
																		goto BgL_zc3z04anonymousza31240ze3z87_1196;
																	}
															}
														else
															{	/* Eval/expdlet.scm 111 */
																obj_t BgL_carzd2244zd2_1180;
																obj_t BgL_cdrzd2245zd2_1181;

																BgL_carzd2244zd2_1180 =
																	CAR(((obj_t) BgL_cdrzd2140zd2_1149));
																BgL_cdrzd2245zd2_1181 =
																	CDR(((obj_t) BgL_cdrzd2140zd2_1149));
																if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
																	(BgL_carzd2244zd2_1180))
																	{	/* Eval/expdlet.scm 111 */
																		if (NULLP(BgL_cdrzd2245zd2_1181))
																			{	/* Eval/expdlet.scm 111 */
																				BgL_resz00_1136 =
																					BGl_expandzd2errorzd2zz__expandz00
																					(BGl_string2008z00zz__expander_letz00,
																					BGl_string2011z00zz__expander_letz00,
																					BgL_xz00_3);
																			}
																		else
																			{
																				obj_t BgL_ez00_3000;
																				obj_t BgL_xz00_2999;
																				obj_t BgL_bodyz00_2998;
																				obj_t BgL_bindingsz00_2997;

																				BgL_bindingsz00_2997 =
																					BgL_carzd2244zd2_1180;
																				BgL_bodyz00_2998 =
																					BgL_cdrzd2245zd2_1181;
																				BgL_xz00_2999 = BgL_xz00_3;
																				BgL_ez00_3000 = BgL_ez00_1135;
																				BgL_ez00_1331 = BgL_ez00_3000;
																				BgL_xz00_1330 = BgL_xz00_2999;
																				BgL_bodyz00_1329 = BgL_bodyz00_2998;
																				BgL_bindingsz00_1328 =
																					BgL_bindingsz00_2997;
																				goto
																					BgL_zc3z04anonymousza31356ze3z87_1332;
																			}
																	}
																else
																	{	/* Eval/expdlet.scm 111 */
																		BgL_resz00_1136 =
																			BGl_expandzd2errorzd2zz__expandz00
																			(BGl_string2008z00zz__expander_letz00,
																			BGl_string2011z00zz__expander_letz00,
																			BgL_xz00_3);
																	}
															}
													}
												else
													{	/* Eval/expdlet.scm 111 */
														obj_t BgL_carzd2261zd2_1185;
														obj_t BgL_cdrzd2262zd2_1186;

														BgL_carzd2261zd2_1185 =
															CAR(((obj_t) BgL_cdrzd2140zd2_1149));
														BgL_cdrzd2262zd2_1186 =
															CDR(((obj_t) BgL_cdrzd2140zd2_1149));
														if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
															(BgL_carzd2261zd2_1185))
															{	/* Eval/expdlet.scm 111 */
																if (NULLP(BgL_cdrzd2262zd2_1186))
																	{	/* Eval/expdlet.scm 111 */
																		BgL_resz00_1136 =
																			BGl_expandzd2errorzd2zz__expandz00
																			(BGl_string2008z00zz__expander_letz00,
																			BGl_string2011z00zz__expander_letz00,
																			BgL_xz00_3);
																	}
																else
																	{
																		obj_t BgL_ez00_3014;
																		obj_t BgL_xz00_3013;
																		obj_t BgL_bodyz00_3012;
																		obj_t BgL_bindingsz00_3011;

																		BgL_bindingsz00_3011 =
																			BgL_carzd2261zd2_1185;
																		BgL_bodyz00_3012 = BgL_cdrzd2262zd2_1186;
																		BgL_xz00_3013 = BgL_xz00_3;
																		BgL_ez00_3014 = BgL_ez00_1135;
																		BgL_ez00_1331 = BgL_ez00_3014;
																		BgL_xz00_1330 = BgL_xz00_3013;
																		BgL_bodyz00_1329 = BgL_bodyz00_3012;
																		BgL_bindingsz00_1328 = BgL_bindingsz00_3011;
																		goto BgL_zc3z04anonymousza31356ze3z87_1332;
																	}
															}
														else
															{	/* Eval/expdlet.scm 111 */
																BgL_resz00_1136 =
																	BGl_expandzd2errorzd2zz__expandz00
																	(BGl_string2008z00zz__expander_letz00,
																	BGl_string2011z00zz__expander_letz00,
																	BgL_xz00_3);
															}
													}
											}
									}
								else
									{	/* Eval/expdlet.scm 111 */
										BgL_resz00_1136 =
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2008z00zz__expander_letz00,
											BGl_string2011z00zz__expander_letz00, BgL_xz00_3);
									}
							}
						else
							{	/* Eval/expdlet.scm 111 */
								BgL_resz00_1136 =
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2008z00zz__expander_letz00,
									BGl_string2011z00zz__expander_letz00, BgL_xz00_3);
							}
						{	/* Eval/expdlet.scm 111 */

							BGL_TAIL return
								BGl_evepairifyz00zz__prognz00(BgL_resz00_1136, BgL_xz00_3);
						}
					}
				}
			}
		}

	}



/* &expand-eval-let */
	obj_t BGl_z62expandzd2evalzd2letz62zz__expander_letz00(obj_t BgL_envz00_2709,
		obj_t BgL_xz00_2710, obj_t BgL_ez00_2711)
	{
		{	/* Eval/expdlet.scm 64 */
			return
				BGl_expandzd2evalzd2letz00zz__expander_letz00(BgL_xz00_2710,
				BgL_ez00_2711);
		}

	}



/* &<@anonymous:1302> */
	obj_t BGl_z62zc3z04anonymousza31302ze3ze5zz__expander_letz00(obj_t
		BgL_envz00_2712, obj_t BgL_xz00_2713, obj_t BgL_yz00_2714)
	{
		{	/* Eval/expdlet.scm 79 */
			{	/* Eval/expdlet.scm 80 */
				obj_t BgL__andtest_1039z00_2736;

				BgL__andtest_1039z00_2736 = CAR(((obj_t) BgL_xz00_2713));
				if (CBOOL(BgL__andtest_1039z00_2736))
					{	/* Eval/expdlet.scm 80 */
						obj_t BgL_arg1322z00_2737;
						obj_t BgL_arg1329z00_2738;

						BgL_arg1322z00_2737 = CDR(((obj_t) BgL_xz00_2713));
						BgL_arg1329z00_2738 = CDR(((obj_t) BgL_yz00_2714));
						return MAKE_YOUNG_PAIR(BgL_arg1322z00_2737, BgL_arg1329z00_2738);
					}
				else
					{	/* Eval/expdlet.scm 80 */
						return BFALSE;
					}
			}
		}

	}



/* expand-eval-$let */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2evalzd2z42letz42zz__expander_letz00(obj_t
		BgL_xz00_5, obj_t BgL_ez00_6)
	{
		{	/* Eval/expdlet.scm 130 */
			{	/* Eval/expdlet.scm 131 */
				obj_t BgL_nxz00_2319;

				if (EPAIRP(BgL_xz00_5))
					{	/* Eval/expdlet.scm 132 */
						obj_t BgL_arg1384z00_2321;
						obj_t BgL_arg1385z00_2322;

						BgL_arg1384z00_2321 = CDR(((obj_t) BgL_xz00_5));
						BgL_arg1385z00_2322 = CER(((obj_t) BgL_xz00_5));
						{	/* Eval/expdlet.scm 132 */
							obj_t BgL_res1994z00_2327;

							BgL_res1994z00_2327 =
								MAKE_YOUNG_EPAIR(BGl_symbol2007z00zz__expander_letz00,
								BgL_arg1384z00_2321, BgL_arg1385z00_2322);
							BgL_nxz00_2319 = BgL_res1994z00_2327;
						}
					}
				else
					{	/* Eval/expdlet.scm 133 */
						obj_t BgL_arg1386z00_2323;

						BgL_arg1386z00_2323 = CDR(((obj_t) BgL_xz00_5));
						BgL_nxz00_2319 =
							MAKE_YOUNG_PAIR(BGl_symbol2007z00zz__expander_letz00,
							BgL_arg1386z00_2323);
					}
				BGL_TAIL return
					BGl_expandzd2evalzd2letz00zz__expander_letz00(BgL_nxz00_2319,
					BgL_ez00_6);
			}
		}

	}



/* &expand-eval-$let */
	obj_t BGl_z62expandzd2evalzd2z42letz20zz__expander_letz00(obj_t
		BgL_envz00_2715, obj_t BgL_xz00_2716, obj_t BgL_ez00_2717)
	{
		{	/* Eval/expdlet.scm 130 */
			return
				BGl_expandzd2evalzd2z42letz42zz__expander_letz00(BgL_xz00_2716,
				BgL_ez00_2717);
		}

	}



/* expand-eval-let* */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2evalzd2letza2za2zz__expander_letz00(obj_t
		BgL_xz00_7, obj_t BgL_ez00_8)
	{
		{	/* Eval/expdlet.scm 139 */
			{	/* Eval/expdlet.scm 144 */
				obj_t BgL_ez00_1383;

				BgL_ez00_1383 =
					BGl_evalzd2beginzd2expanderz00zz__expander_definez00(BgL_ez00_8);
				{	/* Eval/expdlet.scm 144 */
					obj_t BgL_resz00_1384;

					{
						obj_t BgL_bindingsz00_1387;
						obj_t BgL_bodyz00_1388;

						if (PAIRP(BgL_xz00_7))
							{	/* Eval/expdlet.scm 145 */
								obj_t BgL_cdrzd2296zd2_1393;

								BgL_cdrzd2296zd2_1393 = CDR(((obj_t) BgL_xz00_7));
								if (PAIRP(BgL_cdrzd2296zd2_1393))
									{	/* Eval/expdlet.scm 145 */
										obj_t BgL_cdrzd2299zd2_1395;

										BgL_cdrzd2299zd2_1395 = CDR(BgL_cdrzd2296zd2_1393);
										if (NULLP(CAR(BgL_cdrzd2296zd2_1393)))
											{	/* Eval/expdlet.scm 145 */
												if (NULLP(BgL_cdrzd2299zd2_1395))
													{	/* Eval/expdlet.scm 145 */
														BgL_resz00_1384 =
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2013z00zz__expander_letz00,
															BGl_string2009z00zz__expander_letz00, BgL_xz00_7);
													}
												else
													{	/* Eval/expdlet.scm 147 */
														obj_t BgL_arg1396z00_2373;

														BgL_arg1396z00_2373 =
															BGl_expandzd2prognzd2zz__prognz00
															(BgL_cdrzd2299zd2_1395);
														BgL_resz00_1384 =
															BGL_PROCEDURE_CALL2(BgL_ez00_1383,
															BgL_arg1396z00_2373, BgL_ez00_1383);
													}
											}
										else
											{	/* Eval/expdlet.scm 145 */
												obj_t BgL_carzd2314zd2_1400;
												obj_t BgL_cdrzd2315zd2_1401;

												BgL_carzd2314zd2_1400 =
													CAR(((obj_t) BgL_cdrzd2296zd2_1393));
												BgL_cdrzd2315zd2_1401 =
													CDR(((obj_t) BgL_cdrzd2296zd2_1393));
												if (PAIRP(BgL_carzd2314zd2_1400))
													{	/* Eval/expdlet.scm 145 */
														if (NULLP(BgL_cdrzd2315zd2_1401))
															{	/* Eval/expdlet.scm 145 */
																BgL_resz00_1384 =
																	BGl_expandzd2errorzd2zz__expandz00
																	(BGl_string2013z00zz__expander_letz00,
																	BGl_string2009z00zz__expander_letz00,
																	BgL_xz00_7);
															}
														else
															{	/* Eval/expdlet.scm 145 */
																BgL_bindingsz00_1387 = BgL_carzd2314zd2_1400;
																BgL_bodyz00_1388 = BgL_cdrzd2315zd2_1401;
																{
																	obj_t BgL_bindingsz00_1409;
																	obj_t BgL_nbindingsz00_1410;
																	obj_t BgL_ebdgsz00_1411;

																	BgL_bindingsz00_1409 = BgL_bindingsz00_1387;
																	BgL_nbindingsz00_1410 = BNIL;
																	BgL_ebdgsz00_1411 = BNIL;
																BgL_zc3z04anonymousza31397ze3z87_1412:
																	if (NULLP(BgL_bindingsz00_1409))
																		{	/* Eval/expdlet.scm 154 */
																			obj_t BgL_arg1399z00_1414;

																			{	/* Eval/expdlet.scm 154 */
																				obj_t BgL_arg1400z00_1415;
																				obj_t BgL_arg1401z00_1416;

																				BgL_arg1400z00_1415 =
																					bgl_reverse_bang
																					(BgL_nbindingsz00_1410);
																				BgL_arg1401z00_1416 =
																					MAKE_YOUNG_PAIR
																					(BGl_z52withzd2lexicalz80zz__expandz00
																					(BgL_ebdgsz00_1411,
																						BGl_expandzd2prognzd2zz__prognz00
																						(BgL_bodyz00_1388), BgL_ez00_1383,
																						BFALSE), BNIL);
																				BgL_arg1399z00_1414 =
																					MAKE_YOUNG_PAIR(BgL_arg1400z00_1415,
																					BgL_arg1401z00_1416);
																			}
																			BgL_resz00_1384 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2012z00zz__expander_letz00,
																				BgL_arg1399z00_1414);
																		}
																	else
																		{	/* Eval/expdlet.scm 157 */
																			bool_t BgL_test2086z00_3078;

																			{	/* Eval/expdlet.scm 157 */
																				obj_t BgL_tmpz00_3079;

																				BgL_tmpz00_3079 =
																					CAR(((obj_t) BgL_bindingsz00_1409));
																				BgL_test2086z00_3078 =
																					PAIRP(BgL_tmpz00_3079);
																			}
																			if (BgL_test2086z00_3078)
																				{	/* Eval/expdlet.scm 163 */
																					bool_t BgL_test2087z00_3083;

																					{	/* Eval/expdlet.scm 163 */
																						bool_t BgL_test2088z00_3084;

																						{	/* Eval/expdlet.scm 163 */
																							obj_t BgL_tmpz00_3085;

																							{	/* Eval/expdlet.scm 163 */
																								obj_t BgL_pairz00_2338;

																								BgL_pairz00_2338 =
																									CAR(
																									((obj_t)
																										BgL_bindingsz00_1409));
																								BgL_tmpz00_3085 =
																									CDR(BgL_pairz00_2338);
																							}
																							BgL_test2088z00_3084 =
																								PAIRP(BgL_tmpz00_3085);
																						}
																						if (BgL_test2088z00_3084)
																							{	/* Eval/expdlet.scm 164 */
																								bool_t BgL_test2089z00_3090;

																								{	/* Eval/expdlet.scm 164 */
																									obj_t BgL_tmpz00_3091;

																									{	/* Eval/expdlet.scm 164 */
																										obj_t BgL_pairz00_2344;

																										{	/* Eval/expdlet.scm 164 */
																											obj_t BgL_pairz00_2343;

																											BgL_pairz00_2343 =
																												CAR(
																												((obj_t)
																													BgL_bindingsz00_1409));
																											BgL_pairz00_2344 =
																												CDR(BgL_pairz00_2343);
																										}
																										BgL_tmpz00_3091 =
																											CDR(BgL_pairz00_2344);
																									}
																									BgL_test2089z00_3090 =
																										NULLP(BgL_tmpz00_3091);
																								}
																								if (BgL_test2089z00_3090)
																									{	/* Eval/expdlet.scm 164 */
																										BgL_test2087z00_3083 =
																											((bool_t) 0);
																									}
																								else
																									{	/* Eval/expdlet.scm 164 */
																										BgL_test2087z00_3083 =
																											((bool_t) 1);
																									}
																							}
																						else
																							{	/* Eval/expdlet.scm 163 */
																								BgL_test2087z00_3083 =
																									((bool_t) 1);
																							}
																					}
																					if (BgL_test2087z00_3083)
																						{	/* Eval/expdlet.scm 163 */
																							BgL_resz00_1384 =
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string2013z00zz__expander_letz00,
																								BGl_string2014z00zz__expander_letz00,
																								BgL_xz00_7);
																						}
																					else
																						{	/* Eval/expdlet.scm 167 */
																							obj_t BgL_arg1414z00_1428;
																							obj_t BgL_arg1415z00_1429;
																							obj_t BgL_arg1416z00_1430;

																							BgL_arg1414z00_1428 =
																								CDR(
																								((obj_t) BgL_bindingsz00_1409));
																							{	/* Eval/expdlet.scm 168 */
																								obj_t BgL_arg1417z00_1431;

																								{	/* Eval/expdlet.scm 168 */
																									obj_t BgL_arg1419z00_1432;
																									obj_t BgL_arg1420z00_1433;
																									obj_t BgL_arg1421z00_1434;

																									{	/* Eval/expdlet.scm 168 */
																										obj_t BgL_pairz00_2349;

																										BgL_pairz00_2349 =
																											CAR(
																											((obj_t)
																												BgL_bindingsz00_1409));
																										BgL_arg1419z00_1432 =
																											CAR(BgL_pairz00_2349);
																									}
																									{	/* Eval/expdlet.scm 171 */
																										obj_t BgL_arg1422z00_1435;

																										{	/* Eval/expdlet.scm 171 */
																											obj_t BgL_arg1423z00_1436;

																											{	/* Eval/expdlet.scm 171 */
																												obj_t BgL_pairz00_2353;

																												BgL_pairz00_2353 =
																													CAR(
																													((obj_t)
																														BgL_bindingsz00_1409));
																												BgL_arg1423z00_1436 =
																													CDR(BgL_pairz00_2353);
																											}
																											BgL_arg1422z00_1435 =
																												BGl_expandzd2prognzd2zz__prognz00
																												(BgL_arg1423z00_1436);
																										}
																										BgL_arg1420z00_1433 =
																											BGl_z52withzd2lexicalz80zz__expandz00
																											(BgL_ebdgsz00_1411,
																											BgL_arg1422z00_1435,
																											BgL_ez00_1383, BFALSE);
																									}
																									BgL_arg1421z00_1434 =
																										CAR(
																										((obj_t)
																											BgL_bindingsz00_1409));
																									{	/* Eval/expdlet.scm 142 */
																										obj_t BgL_arg1435z00_2355;

																										{	/* Eval/expdlet.scm 142 */
																											obj_t
																												BgL_list1436z00_2356;
																											{	/* Eval/expdlet.scm 142 */
																												obj_t
																													BgL_arg1437z00_2357;
																												BgL_arg1437z00_2357 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1420z00_1433,
																													BNIL);
																												BgL_list1436z00_2356 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1419z00_1432,
																													BgL_arg1437z00_2357);
																											}
																											BgL_arg1435z00_2355 =
																												BgL_list1436z00_2356;
																										}
																										BgL_arg1417z00_1431 =
																											BGl_evepairifyz00zz__prognz00
																											(BgL_arg1435z00_2355,
																											BgL_arg1421z00_1434);
																									}
																								}
																								BgL_arg1415z00_1429 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1417z00_1431,
																									BgL_nbindingsz00_1410);
																							}
																							{	/* Eval/expdlet.scm 176 */
																								obj_t BgL_arg1424z00_1437;

																								{	/* Eval/expdlet.scm 176 */
																									obj_t BgL_pairz00_2362;

																									BgL_pairz00_2362 =
																										CAR(
																										((obj_t)
																											BgL_bindingsz00_1409));
																									BgL_arg1424z00_1437 =
																										CAR(BgL_pairz00_2362);
																								}
																								BgL_arg1416z00_1430 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1424z00_1437,
																									BgL_ebdgsz00_1411);
																							}
																							{
																								obj_t BgL_ebdgsz00_3120;
																								obj_t BgL_nbindingsz00_3119;
																								obj_t BgL_bindingsz00_3118;

																								BgL_bindingsz00_3118 =
																									BgL_arg1414z00_1428;
																								BgL_nbindingsz00_3119 =
																									BgL_arg1415z00_1429;
																								BgL_ebdgsz00_3120 =
																									BgL_arg1416z00_1430;
																								BgL_ebdgsz00_1411 =
																									BgL_ebdgsz00_3120;
																								BgL_nbindingsz00_1410 =
																									BgL_nbindingsz00_3119;
																								BgL_bindingsz00_1409 =
																									BgL_bindingsz00_3118;
																								goto
																									BgL_zc3z04anonymousza31397ze3z87_1412;
																							}
																						}
																				}
																			else
																				{	/* Eval/expdlet.scm 158 */
																					obj_t BgL_arg1427z00_1442;
																					obj_t BgL_arg1428z00_1443;
																					obj_t BgL_arg1429z00_1444;

																					BgL_arg1427z00_1442 =
																						CDR(((obj_t) BgL_bindingsz00_1409));
																					{	/* Eval/expdlet.scm 159 */
																						obj_t BgL_arg1430z00_1445;

																						{	/* Eval/expdlet.scm 159 */
																							obj_t BgL_arg1431z00_1446;

																							BgL_arg1431z00_1446 =
																								CAR(
																								((obj_t) BgL_bindingsz00_1409));
																							{	/* Eval/expdlet.scm 142 */
																								obj_t BgL_arg1435z00_2365;

																								{	/* Eval/expdlet.scm 142 */
																									obj_t BgL_list1436z00_2366;

																									{	/* Eval/expdlet.scm 142 */
																										obj_t BgL_arg1437z00_2367;

																										BgL_arg1437z00_2367 =
																											MAKE_YOUNG_PAIR(BUNSPEC,
																											BNIL);
																										BgL_list1436z00_2366 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1431z00_1446,
																											BgL_arg1437z00_2367);
																									}
																									BgL_arg1435z00_2365 =
																										BgL_list1436z00_2366;
																								}
																								BgL_arg1430z00_1445 =
																									BGl_evepairifyz00zz__prognz00
																									(BgL_arg1435z00_2365,
																									BgL_bindingsz00_1409);
																							}
																						}
																						BgL_arg1428z00_1443 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1430z00_1445,
																							BgL_nbindingsz00_1410);
																					}
																					{	/* Eval/expdlet.scm 162 */
																						obj_t BgL_arg1432z00_1447;

																						BgL_arg1432z00_1447 =
																							CAR(
																							((obj_t) BgL_bindingsz00_1409));
																						BgL_arg1429z00_1444 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1432z00_1447,
																							BgL_ebdgsz00_1411);
																					}
																					{
																						obj_t BgL_ebdgsz00_3134;
																						obj_t BgL_nbindingsz00_3133;
																						obj_t BgL_bindingsz00_3132;

																						BgL_bindingsz00_3132 =
																							BgL_arg1427z00_1442;
																						BgL_nbindingsz00_3133 =
																							BgL_arg1428z00_1443;
																						BgL_ebdgsz00_3134 =
																							BgL_arg1429z00_1444;
																						BgL_ebdgsz00_1411 =
																							BgL_ebdgsz00_3134;
																						BgL_nbindingsz00_1410 =
																							BgL_nbindingsz00_3133;
																						BgL_bindingsz00_1409 =
																							BgL_bindingsz00_3132;
																						goto
																							BgL_zc3z04anonymousza31397ze3z87_1412;
																					}
																				}
																		}
																}
															}
													}
												else
													{	/* Eval/expdlet.scm 145 */
														BgL_resz00_1384 =
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2013z00zz__expander_letz00,
															BGl_string2009z00zz__expander_letz00, BgL_xz00_7);
													}
											}
									}
								else
									{	/* Eval/expdlet.scm 145 */
										BgL_resz00_1384 =
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2013z00zz__expander_letz00,
											BGl_string2009z00zz__expander_letz00, BgL_xz00_7);
									}
							}
						else
							{	/* Eval/expdlet.scm 145 */
								BgL_resz00_1384 =
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2013z00zz__expander_letz00,
									BGl_string2009z00zz__expander_letz00, BgL_xz00_7);
							}
					}
					{	/* Eval/expdlet.scm 145 */

						BGL_TAIL return
							BGl_evepairifyz00zz__prognz00(BgL_resz00_1384, BgL_xz00_7);
					}
				}
			}
		}

	}



/* &expand-eval-let* */
	obj_t BGl_z62expandzd2evalzd2letza2zc0zz__expander_letz00(obj_t
		BgL_envz00_2718, obj_t BgL_xz00_2719, obj_t BgL_ez00_2720)
	{
		{	/* Eval/expdlet.scm 139 */
			return
				BGl_expandzd2evalzd2letza2za2zz__expander_letz00(BgL_xz00_2719,
				BgL_ez00_2720);
		}

	}



/* expand-eval-letrec */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2evalzd2letrecz00zz__expander_letz00(obj_t
		BgL_xz00_9, obj_t BgL_ez00_10)
	{
		{	/* Eval/expdlet.scm 184 */
			{	/* Eval/expdlet.scm 185 */
				obj_t BgL_ez00_1458;

				BgL_ez00_1458 =
					BGl_evalzd2beginzd2expanderz00zz__expander_definez00(BgL_ez00_10);
				{	/* Eval/expdlet.scm 185 */
					obj_t BgL_resz00_1459;

					{
						obj_t BgL_bindingsz00_1462;
						obj_t BgL_bodyz00_1463;

						if (PAIRP(BgL_xz00_9))
							{	/* Eval/expdlet.scm 186 */
								obj_t BgL_cdrzd2337zd2_1468;

								BgL_cdrzd2337zd2_1468 = CDR(((obj_t) BgL_xz00_9));
								if (PAIRP(BgL_cdrzd2337zd2_1468))
									{	/* Eval/expdlet.scm 186 */
										obj_t BgL_cdrzd2340zd2_1470;

										BgL_cdrzd2340zd2_1470 = CDR(BgL_cdrzd2337zd2_1468);
										if (NULLP(CAR(BgL_cdrzd2337zd2_1468)))
											{	/* Eval/expdlet.scm 186 */
												if (NULLP(BgL_cdrzd2340zd2_1470))
													{	/* Eval/expdlet.scm 186 */
														BgL_resz00_1459 =
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2006z00zz__expander_letz00,
															BGl_string2009z00zz__expander_letz00, BgL_xz00_9);
													}
												else
													{	/* Eval/expdlet.scm 188 */
														obj_t BgL_arg1448z00_2405;

														BgL_arg1448z00_2405 =
															BGl_expandzd2prognzd2zz__prognz00
															(BgL_cdrzd2340zd2_1470);
														BgL_resz00_1459 =
															BGL_PROCEDURE_CALL2(BgL_ez00_1458,
															BgL_arg1448z00_2405, BgL_ez00_1458);
													}
											}
										else
											{	/* Eval/expdlet.scm 186 */
												obj_t BgL_carzd2355zd2_1475;
												obj_t BgL_cdrzd2356zd2_1476;

												BgL_carzd2355zd2_1475 =
													CAR(((obj_t) BgL_cdrzd2337zd2_1468));
												BgL_cdrzd2356zd2_1476 =
													CDR(((obj_t) BgL_cdrzd2337zd2_1468));
												if (PAIRP(BgL_carzd2355zd2_1475))
													{	/* Eval/expdlet.scm 186 */
														if (NULLP(BgL_cdrzd2356zd2_1476))
															{	/* Eval/expdlet.scm 186 */
																BgL_resz00_1459 =
																	BGl_expandzd2errorzd2zz__expandz00
																	(BGl_string2006z00zz__expander_letz00,
																	BGl_string2009z00zz__expander_letz00,
																	BgL_xz00_9);
															}
														else
															{	/* Eval/expdlet.scm 186 */
																BgL_bindingsz00_1462 = BgL_carzd2355zd2_1475;
																BgL_bodyz00_1463 = BgL_cdrzd2356zd2_1476;
																{
																	obj_t BgL_bindingsz00_1483;
																	obj_t BgL_nbindingsz00_1484;

																	BgL_bindingsz00_1483 = BgL_bindingsz00_1462;
																	BgL_nbindingsz00_1484 = BNIL;
																BgL_zc3z04anonymousza31449ze3z87_1485:
																	if (NULLP(BgL_bindingsz00_1483))
																		{	/* Eval/expdlet.scm 194 */
																			obj_t BgL_nbindingsz00_1487;

																			BgL_nbindingsz00_1487 =
																				bgl_reverse_bang(BgL_nbindingsz00_1484);
																			{	/* Eval/expdlet.scm 194 */
																				obj_t BgL_ebodyz00_1488;

																				BgL_ebodyz00_1488 =
																					BGl_z52withzd2lexicalz80zz__expandz00
																					(BGl_bindingszd2ze3listz31zz__evutilsz00
																					(BgL_bindingsz00_1483),
																					BGl_expandzd2prognzd2zz__prognz00
																					(BgL_bodyz00_1463), BgL_ez00_1458,
																					BFALSE);
																				{	/* Eval/expdlet.scm 195 */

																					{	/* Eval/expdlet.scm 198 */
																						obj_t BgL_arg1451z00_1489;

																						{	/* Eval/expdlet.scm 198 */
																							obj_t BgL_arg1452z00_1490;

																							BgL_arg1452z00_1490 =
																								MAKE_YOUNG_PAIR
																								(BgL_ebodyz00_1488, BNIL);
																							BgL_arg1451z00_1489 =
																								MAKE_YOUNG_PAIR
																								(BgL_nbindingsz00_1487,
																								BgL_arg1452z00_1490);
																						}
																						BgL_resz00_1459 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2005z00zz__expander_letz00,
																							BgL_arg1451z00_1489);
																					}
																				}
																			}
																		}
																	else
																		{	/* Eval/expdlet.scm 199 */
																			bool_t BgL_test2097z00_3178;

																			{	/* Eval/expdlet.scm 199 */
																				obj_t BgL_tmpz00_3179;

																				BgL_tmpz00_3179 =
																					CAR(((obj_t) BgL_bindingsz00_1483));
																				BgL_test2097z00_3178 =
																					PAIRP(BgL_tmpz00_3179);
																			}
																			if (BgL_test2097z00_3178)
																				{	/* Eval/expdlet.scm 203 */
																					bool_t BgL_test2098z00_3183;

																					{	/* Eval/expdlet.scm 203 */
																						bool_t BgL_test2099z00_3184;

																						{	/* Eval/expdlet.scm 203 */
																							obj_t BgL_tmpz00_3185;

																							{	/* Eval/expdlet.scm 203 */
																								obj_t BgL_pairz00_2382;

																								BgL_pairz00_2382 =
																									CAR(
																									((obj_t)
																										BgL_bindingsz00_1483));
																								BgL_tmpz00_3185 =
																									CDR(BgL_pairz00_2382);
																							}
																							BgL_test2099z00_3184 =
																								PAIRP(BgL_tmpz00_3185);
																						}
																						if (BgL_test2099z00_3184)
																							{	/* Eval/expdlet.scm 204 */
																								bool_t BgL_test2100z00_3190;

																								{	/* Eval/expdlet.scm 204 */
																									obj_t BgL_tmpz00_3191;

																									{	/* Eval/expdlet.scm 204 */
																										obj_t BgL_pairz00_2388;

																										{	/* Eval/expdlet.scm 204 */
																											obj_t BgL_pairz00_2387;

																											BgL_pairz00_2387 =
																												CAR(
																												((obj_t)
																													BgL_bindingsz00_1483));
																											BgL_pairz00_2388 =
																												CDR(BgL_pairz00_2387);
																										}
																										BgL_tmpz00_3191 =
																											CDR(BgL_pairz00_2388);
																									}
																									BgL_test2100z00_3190 =
																										NULLP(BgL_tmpz00_3191);
																								}
																								if (BgL_test2100z00_3190)
																									{	/* Eval/expdlet.scm 204 */
																										BgL_test2098z00_3183 =
																											((bool_t) 0);
																									}
																								else
																									{	/* Eval/expdlet.scm 204 */
																										BgL_test2098z00_3183 =
																											((bool_t) 1);
																									}
																							}
																						else
																							{	/* Eval/expdlet.scm 203 */
																								BgL_test2098z00_3183 =
																									((bool_t) 1);
																							}
																					}
																					if (BgL_test2098z00_3183)
																						{	/* Eval/expdlet.scm 203 */
																							BgL_resz00_1459 =
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string2006z00zz__expander_letz00,
																								BGl_string2010z00zz__expander_letz00,
																								BgL_xz00_9);
																						}
																					else
																						{	/* Eval/expdlet.scm 207 */
																							obj_t BgL_arg1466z00_1502;
																							obj_t BgL_arg1467z00_1503;

																							BgL_arg1466z00_1502 =
																								CDR(
																								((obj_t) BgL_bindingsz00_1483));
																							{	/* Eval/expdlet.scm 208 */
																								obj_t BgL_arg1468z00_1504;

																								{	/* Eval/expdlet.scm 208 */
																									obj_t BgL_arg1469z00_1505;
																									obj_t BgL_arg1470z00_1506;

																									{	/* Eval/expdlet.scm 208 */
																										obj_t BgL_pairz00_2393;

																										BgL_pairz00_2393 =
																											CAR(
																											((obj_t)
																												BgL_bindingsz00_1483));
																										BgL_arg1469z00_1505 =
																											CAR(BgL_pairz00_2393);
																									}
																									{	/* Eval/expdlet.scm 209 */
																										obj_t BgL_arg1473z00_1509;

																										{	/* Eval/expdlet.scm 209 */
																											obj_t BgL_arg1474z00_1510;

																											{	/* Eval/expdlet.scm 209 */
																												obj_t BgL_pairz00_2397;

																												BgL_pairz00_2397 =
																													CAR(
																													((obj_t)
																														BgL_bindingsz00_1483));
																												BgL_arg1474z00_1510 =
																													CDR(BgL_pairz00_2397);
																											}
																											BgL_arg1473z00_1509 =
																												BGl_expandzd2prognzd2zz__prognz00
																												(BgL_arg1474z00_1510);
																										}
																										BgL_arg1470z00_1506 =
																											BGL_PROCEDURE_CALL2
																											(BgL_ez00_1458,
																											BgL_arg1473z00_1509,
																											BgL_ez00_1458);
																									}
																									{	/* Eval/expdlet.scm 208 */
																										obj_t BgL_list1471z00_1507;

																										{	/* Eval/expdlet.scm 208 */
																											obj_t BgL_arg1472z00_1508;

																											BgL_arg1472z00_1508 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1470z00_1506,
																												BNIL);
																											BgL_list1471z00_1507 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1469z00_1505,
																												BgL_arg1472z00_1508);
																										}
																										BgL_arg1468z00_1504 =
																											BgL_list1471z00_1507;
																									}
																								}
																								BgL_arg1467z00_1503 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1468z00_1504,
																									BgL_nbindingsz00_1484);
																							}
																							{
																								obj_t BgL_nbindingsz00_3216;
																								obj_t BgL_bindingsz00_3215;

																								BgL_bindingsz00_3215 =
																									BgL_arg1466z00_1502;
																								BgL_nbindingsz00_3216 =
																									BgL_arg1467z00_1503;
																								BgL_nbindingsz00_1484 =
																									BgL_nbindingsz00_3216;
																								BgL_bindingsz00_1483 =
																									BgL_bindingsz00_3215;
																								goto
																									BgL_zc3z04anonymousza31449ze3z87_1485;
																							}
																						}
																				}
																			else
																				{	/* Eval/expdlet.scm 200 */
																					obj_t BgL_arg1479z00_1515;
																					obj_t BgL_arg1480z00_1516;

																					BgL_arg1479z00_1515 =
																						CDR(((obj_t) BgL_bindingsz00_1483));
																					{	/* Eval/expdlet.scm 201 */
																						obj_t BgL_arg1481z00_1517;

																						{	/* Eval/expdlet.scm 201 */
																							obj_t BgL_arg1482z00_1518;

																							BgL_arg1482z00_1518 =
																								CAR(
																								((obj_t) BgL_bindingsz00_1483));
																							{	/* Eval/expdlet.scm 201 */
																								obj_t BgL_list1483z00_1519;

																								{	/* Eval/expdlet.scm 201 */
																									obj_t BgL_arg1484z00_1520;

																									BgL_arg1484z00_1520 =
																										MAKE_YOUNG_PAIR(BUNSPEC,
																										BNIL);
																									BgL_list1483z00_1519 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1482z00_1518,
																										BgL_arg1484z00_1520);
																								}
																								BgL_arg1481z00_1517 =
																									BgL_list1483z00_1519;
																							}
																						}
																						BgL_arg1480z00_1516 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1481z00_1517,
																							BgL_nbindingsz00_1484);
																					}
																					{
																						obj_t BgL_nbindingsz00_3225;
																						obj_t BgL_bindingsz00_3224;

																						BgL_bindingsz00_3224 =
																							BgL_arg1479z00_1515;
																						BgL_nbindingsz00_3225 =
																							BgL_arg1480z00_1516;
																						BgL_nbindingsz00_1484 =
																							BgL_nbindingsz00_3225;
																						BgL_bindingsz00_1483 =
																							BgL_bindingsz00_3224;
																						goto
																							BgL_zc3z04anonymousza31449ze3z87_1485;
																					}
																				}
																		}
																}
															}
													}
												else
													{	/* Eval/expdlet.scm 186 */
														BgL_resz00_1459 =
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2006z00zz__expander_letz00,
															BGl_string2009z00zz__expander_letz00, BgL_xz00_9);
													}
											}
									}
								else
									{	/* Eval/expdlet.scm 186 */
										BgL_resz00_1459 =
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2006z00zz__expander_letz00,
											BGl_string2009z00zz__expander_letz00, BgL_xz00_9);
									}
							}
						else
							{	/* Eval/expdlet.scm 186 */
								BgL_resz00_1459 =
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2006z00zz__expander_letz00,
									BGl_string2009z00zz__expander_letz00, BgL_xz00_9);
							}
					}
					{	/* Eval/expdlet.scm 186 */

						BGL_TAIL return
							BGl_evepairifyz00zz__prognz00(BgL_resz00_1459, BgL_xz00_9);
					}
				}
			}
		}

	}



/* &expand-eval-letrec */
	obj_t BGl_z62expandzd2evalzd2letrecz62zz__expander_letz00(obj_t
		BgL_envz00_2721, obj_t BgL_xz00_2722, obj_t BgL_ez00_2723)
	{
		{	/* Eval/expdlet.scm 184 */
			return
				BGl_expandzd2evalzd2letrecz00zz__expander_letz00(BgL_xz00_2722,
				BgL_ez00_2723);
		}

	}



/* expand-eval-letrec* */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2letrecza2za2zz__expander_letz00(obj_t BgL_xz00_11,
		obj_t BgL_ez00_12)
	{
		{	/* Eval/expdlet.scm 218 */
			{
				obj_t BgL_idz00_1655;

				{	/* Eval/expdlet.scm 237 */
					obj_t BgL_ez00_1525;

					BgL_ez00_1525 =
						BGl_evalzd2beginzd2expanderz00zz__expander_definez00(BgL_ez00_12);
					{	/* Eval/expdlet.scm 237 */
						obj_t BgL_resz00_1526;

						{
							obj_t BgL_bindingsz00_1529;
							obj_t BgL_bodyz00_1530;

							if (PAIRP(BgL_xz00_11))
								{	/* Eval/expdlet.scm 238 */
									obj_t BgL_cdrzd2378zd2_1535;

									BgL_cdrzd2378zd2_1535 = CDR(((obj_t) BgL_xz00_11));
									if (PAIRP(BgL_cdrzd2378zd2_1535))
										{	/* Eval/expdlet.scm 238 */
											obj_t BgL_cdrzd2381zd2_1537;

											BgL_cdrzd2381zd2_1537 = CDR(BgL_cdrzd2378zd2_1535);
											if (NULLP(CAR(BgL_cdrzd2378zd2_1535)))
												{	/* Eval/expdlet.scm 238 */
													if (NULLP(BgL_cdrzd2381zd2_1537))
														{	/* Eval/expdlet.scm 238 */
															BgL_resz00_1526 =
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2015z00zz__expander_letz00,
																BGl_string2009z00zz__expander_letz00,
																BgL_xz00_11);
														}
													else
														{	/* Eval/expdlet.scm 240 */
															obj_t BgL_arg1495z00_2485;

															BgL_arg1495z00_2485 =
																BGl_expandzd2prognzd2zz__prognz00
																(BgL_cdrzd2381zd2_1537);
															BgL_resz00_1526 =
																BGL_PROCEDURE_CALL2(BgL_ez00_1525,
																BgL_arg1495z00_2485, BgL_ez00_1525);
														}
												}
											else
												{	/* Eval/expdlet.scm 238 */
													obj_t BgL_carzd2396zd2_1542;
													obj_t BgL_cdrzd2397zd2_1543;

													BgL_carzd2396zd2_1542 =
														CAR(((obj_t) BgL_cdrzd2378zd2_1535));
													BgL_cdrzd2397zd2_1543 =
														CDR(((obj_t) BgL_cdrzd2378zd2_1535));
													if (PAIRP(BgL_carzd2396zd2_1542))
														{	/* Eval/expdlet.scm 238 */
															if (NULLP(BgL_cdrzd2397zd2_1543))
																{	/* Eval/expdlet.scm 238 */
																	BgL_resz00_1526 =
																		BGl_expandzd2errorzd2zz__expandz00
																		(BGl_string2015z00zz__expander_letz00,
																		BGl_string2009z00zz__expander_letz00,
																		BgL_xz00_11);
																}
															else
																{	/* Eval/expdlet.scm 238 */
																	BgL_bindingsz00_1529 = BgL_carzd2396zd2_1542;
																	BgL_bodyz00_1530 = BgL_cdrzd2397zd2_1543;
																	{
																		obj_t BgL_l1107z00_1549;

																		BgL_l1107z00_1549 = BgL_bindingsz00_1529;
																	BgL_zc3z04anonymousza31496ze3z87_1550:
																		if (PAIRP(BgL_l1107z00_1549))
																			{	/* Eval/expdlet.scm 243 */
																				{	/* Eval/expdlet.scm 244 */
																					obj_t BgL_bz00_1552;

																					BgL_bz00_1552 =
																						CAR(BgL_l1107z00_1549);
																					{	/* Eval/expdlet.scm 244 */
																						bool_t BgL_test2108z00_3263;

																						if (PAIRP(BgL_bz00_1552))
																							{	/* Eval/expdlet.scm 245 */
																								bool_t BgL_test2110z00_3266;

																								{	/* Eval/expdlet.scm 245 */
																									obj_t BgL_tmpz00_3267;

																									BgL_tmpz00_3267 =
																										CAR(BgL_bz00_1552);
																									BgL_test2110z00_3266 =
																										SYMBOLP(BgL_tmpz00_3267);
																								}
																								if (BgL_test2110z00_3266)
																									{	/* Eval/expdlet.scm 246 */
																										obj_t BgL_tmpz00_3270;

																										BgL_tmpz00_3270 =
																											CDR(BgL_bz00_1552);
																										BgL_test2108z00_3263 =
																											PAIRP(BgL_tmpz00_3270);
																									}
																								else
																									{	/* Eval/expdlet.scm 245 */
																										BgL_test2108z00_3263 =
																											((bool_t) 0);
																									}
																							}
																						else
																							{	/* Eval/expdlet.scm 244 */
																								BgL_test2108z00_3263 =
																									((bool_t) 0);
																							}
																						if (BgL_test2108z00_3263)
																							{	/* Eval/expdlet.scm 244 */
																								BFALSE;
																							}
																						else
																							{	/* Eval/expdlet.scm 244 */
																								BGl_expandzd2errorzd2zz__expandz00
																									(BGl_string2015z00zz__expander_letz00,
																									BGl_string2009z00zz__expander_letz00,
																									BgL_xz00_11);
																							}
																					}
																				}
																				{
																					obj_t BgL_l1107z00_3274;

																					BgL_l1107z00_3274 =
																						CDR(BgL_l1107z00_1549);
																					BgL_l1107z00_1549 = BgL_l1107z00_3274;
																					goto
																						BgL_zc3z04anonymousza31496ze3z87_1550;
																				}
																			}
																		else
																			{	/* Eval/expdlet.scm 243 */
																				((bool_t) 1);
																			}
																	}
																	{	/* Eval/expdlet.scm 249 */
																		bool_t BgL_test2111z00_3276;

																		{
																			obj_t BgL_l1109z00_1641;

																			BgL_l1109z00_1641 = BgL_bindingsz00_1529;
																		BgL_zc3z04anonymousza31564ze3z87_1642:
																			if (NULLP(BgL_l1109z00_1641))
																				{	/* Eval/expdlet.scm 249 */
																					BgL_test2111z00_3276 = ((bool_t) 1);
																				}
																			else
																				{	/* Eval/expdlet.scm 249 */
																					bool_t BgL_test2113z00_3279;

																					{	/* Eval/expdlet.scm 249 */
																						obj_t BgL_arg1568z00_1647;

																						BgL_arg1568z00_1647 =
																							CAR(((obj_t) BgL_l1109z00_1641));
																						{	/* Eval/expdlet.scm 221 */
																							bool_t BgL_test2114z00_3282;

																							{	/* Eval/expdlet.scm 221 */
																								obj_t BgL_tmpz00_3283;

																								{	/* Eval/expdlet.scm 221 */
																									obj_t BgL_pairz00_2456;

																									BgL_pairz00_2456 =
																										CDR(
																										((obj_t)
																											BgL_arg1568z00_1647));
																									BgL_tmpz00_3283 =
																										CAR(BgL_pairz00_2456);
																								}
																								BgL_test2114z00_3282 =
																									PAIRP(BgL_tmpz00_3283);
																							}
																							if (BgL_test2114z00_3282)
																								{	/* Eval/expdlet.scm 221 */
																									obj_t BgL_tmpz00_3288;

																									{	/* Eval/expdlet.scm 221 */
																										obj_t BgL_pairz00_2461;

																										{	/* Eval/expdlet.scm 221 */
																											obj_t BgL_pairz00_2460;

																											BgL_pairz00_2460 =
																												CDR(
																												((obj_t)
																													BgL_arg1568z00_1647));
																											BgL_pairz00_2461 =
																												CAR(BgL_pairz00_2460);
																										}
																										BgL_tmpz00_3288 =
																											CAR(BgL_pairz00_2461);
																									}
																									BgL_test2113z00_3279 =
																										(BgL_tmpz00_3288 ==
																										BGl_symbol2003z00zz__expander_letz00);
																								}
																							else
																								{	/* Eval/expdlet.scm 221 */
																									BgL_test2113z00_3279 =
																										((bool_t) 0);
																								}
																						}
																					}
																					if (BgL_test2113z00_3279)
																						{	/* Eval/expdlet.scm 249 */
																							obj_t BgL_arg1565z00_1646;

																							BgL_arg1565z00_1646 =
																								CDR(
																								((obj_t) BgL_l1109z00_1641));
																							{
																								obj_t BgL_l1109z00_3296;

																								BgL_l1109z00_3296 =
																									BgL_arg1565z00_1646;
																								BgL_l1109z00_1641 =
																									BgL_l1109z00_3296;
																								goto
																									BgL_zc3z04anonymousza31564ze3z87_1642;
																							}
																						}
																					else
																						{	/* Eval/expdlet.scm 249 */
																							BgL_test2111z00_3276 =
																								((bool_t) 0);
																						}
																				}
																		}
																		if (BgL_test2111z00_3276)
																			{	/* Eval/expdlet.scm 253 */
																				obj_t BgL_arg1513z00_1575;

																				{	/* Eval/expdlet.scm 253 */
																					obj_t BgL_arg1514z00_1576;

																					{	/* Eval/expdlet.scm 253 */
																						obj_t BgL_arg1515z00_1577;

																						{	/* Eval/expdlet.scm 253 */
																							obj_t BgL_arg1516z00_1578;

																							{	/* Eval/expdlet.scm 253 */
																								obj_t BgL_head1114z00_1581;

																								BgL_head1114z00_1581 =
																									MAKE_YOUNG_PAIR(BNIL, BNIL);
																								{
																									obj_t BgL_l1112z00_1583;
																									obj_t BgL_tail1115z00_1584;

																									BgL_l1112z00_1583 =
																										BgL_bindingsz00_1529;
																									BgL_tail1115z00_1584 =
																										BgL_head1114z00_1581;
																								BgL_zc3z04anonymousza31518ze3z87_1585:
																									if (NULLP
																										(BgL_l1112z00_1583))
																										{	/* Eval/expdlet.scm 253 */
																											BgL_arg1516z00_1578 =
																												CDR
																												(BgL_head1114z00_1581);
																										}
																									else
																										{	/* Eval/expdlet.scm 253 */
																											obj_t
																												BgL_newtail1116z00_1587;
																											{	/* Eval/expdlet.scm 253 */
																												obj_t
																													BgL_arg1521z00_1589;
																												{	/* Eval/expdlet.scm 253 */
																													obj_t BgL_bz00_1590;

																													BgL_bz00_1590 =
																														CAR(
																														((obj_t)
																															BgL_l1112z00_1583));
																													{	/* Eval/expdlet.scm 254 */
																														obj_t
																															BgL_arg1522z00_1591;
																														obj_t
																															BgL_arg1523z00_1592;
																														BgL_arg1522z00_1591
																															=
																															CAR(((obj_t)
																																BgL_bz00_1590));
																														{	/* Eval/expdlet.scm 255 */
																															obj_t
																																BgL_arg1526z00_1595;
																															{	/* Eval/expdlet.scm 255 */
																																obj_t
																																	BgL_arg1527z00_1596;
																																BgL_arg1527z00_1596
																																	=
																																	CDR(((obj_t)
																																		BgL_bz00_1590));
																																BgL_arg1526z00_1595
																																	=
																																	BGl_expandzd2prognzd2zz__prognz00
																																	(BgL_arg1527z00_1596);
																															}
																															BgL_arg1523z00_1592
																																=
																																BGL_PROCEDURE_CALL2
																																(BgL_ez00_1525,
																																BgL_arg1526z00_1595,
																																BgL_ez00_1525);
																														}
																														{	/* Eval/expdlet.scm 254 */
																															obj_t
																																BgL_list1524z00_1593;
																															{	/* Eval/expdlet.scm 254 */
																																obj_t
																																	BgL_arg1525z00_1594;
																																BgL_arg1525z00_1594
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1523z00_1592,
																																	BNIL);
																																BgL_list1524z00_1593
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1522z00_1591,
																																	BgL_arg1525z00_1594);
																															}
																															BgL_arg1521z00_1589
																																=
																																BgL_list1524z00_1593;
																														}
																													}
																												}
																												BgL_newtail1116z00_1587
																													=
																													MAKE_YOUNG_PAIR
																													(BgL_arg1521z00_1589,
																													BNIL);
																											}
																											SET_CDR
																												(BgL_tail1115z00_1584,
																												BgL_newtail1116z00_1587);
																											{	/* Eval/expdlet.scm 253 */
																												obj_t
																													BgL_arg1520z00_1588;
																												BgL_arg1520z00_1588 =
																													CDR(((obj_t)
																														BgL_l1112z00_1583));
																												{
																													obj_t
																														BgL_tail1115z00_3320;
																													obj_t
																														BgL_l1112z00_3319;
																													BgL_l1112z00_3319 =
																														BgL_arg1520z00_1588;
																													BgL_tail1115z00_3320 =
																														BgL_newtail1116z00_1587;
																													BgL_tail1115z00_1584 =
																														BgL_tail1115z00_3320;
																													BgL_l1112z00_1583 =
																														BgL_l1112z00_3319;
																													goto
																														BgL_zc3z04anonymousza31518ze3z87_1585;
																												}
																											}
																										}
																								}
																							}
																							BgL_arg1515z00_1577 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1516z00_1578,
																								BgL_bodyz00_1530);
																						}
																						BgL_arg1514z00_1576 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2005z00zz__expander_letz00,
																							BgL_arg1515z00_1577);
																					}
																					BgL_arg1513z00_1575 =
																						BGl_evepairifyz00zz__prognz00
																						(BgL_arg1514z00_1576, BgL_xz00_11);
																				}
																				BgL_resz00_1526 =
																					BGL_PROCEDURE_CALL2(BgL_ez00_1525,
																					BgL_arg1513z00_1575, BgL_ez00_1525);
																			}
																		else
																			{	/* Eval/expdlet.scm 261 */
																				obj_t BgL_arg1528z00_1598;

																				{	/* Eval/expdlet.scm 261 */
																					obj_t BgL_arg1532z00_1599;

																					{	/* Eval/expdlet.scm 261 */
																						obj_t BgL_arg1533z00_1600;

																						{	/* Eval/expdlet.scm 261 */
																							obj_t BgL_arg1534z00_1601;
																							obj_t BgL_arg1537z00_1602;

																							{	/* Eval/expdlet.scm 261 */
																								obj_t BgL_head1119z00_1605;

																								BgL_head1119z00_1605 =
																									MAKE_YOUNG_PAIR(BNIL, BNIL);
																								{
																									obj_t BgL_l1117z00_1607;
																									obj_t BgL_tail1120z00_1608;

																									BgL_l1117z00_1607 =
																										BgL_bindingsz00_1529;
																									BgL_tail1120z00_1608 =
																										BgL_head1119z00_1605;
																								BgL_zc3z04anonymousza31539ze3z87_1609:
																									if (NULLP
																										(BgL_l1117z00_1607))
																										{	/* Eval/expdlet.scm 261 */
																											BgL_arg1534z00_1601 =
																												CDR
																												(BgL_head1119z00_1605);
																										}
																									else
																										{	/* Eval/expdlet.scm 261 */
																											obj_t
																												BgL_newtail1121z00_1611;
																											{	/* Eval/expdlet.scm 261 */
																												obj_t
																													BgL_arg1542z00_1613;
																												{	/* Eval/expdlet.scm 261 */
																													obj_t BgL_bz00_1614;

																													BgL_bz00_1614 =
																														CAR(
																														((obj_t)
																															BgL_l1117z00_1607));
																													{	/* Eval/expdlet.scm 262 */
																														obj_t
																															BgL_arg1543z00_1615;
																														BgL_arg1543z00_1615
																															=
																															CAR(((obj_t)
																																BgL_bz00_1614));
																														{	/* Eval/expdlet.scm 262 */
																															obj_t
																																BgL_list1544z00_1616;
																															{	/* Eval/expdlet.scm 262 */
																																obj_t
																																	BgL_arg1545z00_1617;
																																BgL_arg1545z00_1617
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BUNSPEC,
																																	BNIL);
																																BgL_list1544z00_1616
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1543z00_1615,
																																	BgL_arg1545z00_1617);
																															}
																															BgL_arg1542z00_1613
																																=
																																BgL_list1544z00_1616;
																														}
																													}
																												}
																												BgL_newtail1121z00_1611
																													=
																													MAKE_YOUNG_PAIR
																													(BgL_arg1542z00_1613,
																													BNIL);
																											}
																											SET_CDR
																												(BgL_tail1120z00_1608,
																												BgL_newtail1121z00_1611);
																											{	/* Eval/expdlet.scm 261 */
																												obj_t
																													BgL_arg1541z00_1612;
																												BgL_arg1541z00_1612 =
																													CDR(((obj_t)
																														BgL_l1117z00_1607));
																												{
																													obj_t
																														BgL_tail1120z00_3344;
																													obj_t
																														BgL_l1117z00_3343;
																													BgL_l1117z00_3343 =
																														BgL_arg1541z00_1612;
																													BgL_tail1120z00_3344 =
																														BgL_newtail1121z00_1611;
																													BgL_tail1120z00_1608 =
																														BgL_tail1120z00_3344;
																													BgL_l1117z00_1607 =
																														BgL_l1117z00_3343;
																													goto
																														BgL_zc3z04anonymousza31539ze3z87_1609;
																												}
																											}
																										}
																								}
																							}
																							{	/* Eval/expdlet.scm 264 */
																								obj_t BgL_arg1546z00_1619;

																								{	/* Eval/expdlet.scm 264 */
																									obj_t BgL_head1124z00_1622;

																									BgL_head1124z00_1622 =
																										MAKE_YOUNG_PAIR(BNIL, BNIL);
																									{
																										obj_t BgL_l1122z00_1624;
																										obj_t BgL_tail1125z00_1625;

																										BgL_l1122z00_1624 =
																											BgL_bindingsz00_1529;
																										BgL_tail1125z00_1625 =
																											BgL_head1124z00_1622;
																									BgL_zc3z04anonymousza31548ze3z87_1626:
																										if (NULLP
																											(BgL_l1122z00_1624))
																											{	/* Eval/expdlet.scm 264 */
																												BgL_arg1546z00_1619 =
																													CDR
																													(BgL_head1124z00_1622);
																											}
																										else
																											{	/* Eval/expdlet.scm 264 */
																												obj_t
																													BgL_newtail1126z00_1628;
																												{	/* Eval/expdlet.scm 264 */
																													obj_t
																														BgL_arg1552z00_1630;
																													{	/* Eval/expdlet.scm 264 */
																														obj_t BgL_bz00_1631;

																														BgL_bz00_1631 =
																															CAR(
																															((obj_t)
																																BgL_l1122z00_1624));
																														{	/* Eval/expdlet.scm 265 */
																															obj_t
																																BgL_arg1554z00_1632;
																															{	/* Eval/expdlet.scm 265 */
																																obj_t
																																	BgL_arg1555z00_1633;
																																obj_t
																																	BgL_arg1558z00_1634;
																																{	/* Eval/expdlet.scm 265 */
																																	obj_t
																																		BgL_arg1559z00_1635;
																																	BgL_arg1559z00_1635
																																		=
																																		CAR(((obj_t)
																																			BgL_bz00_1631));
																																	BgL_idz00_1655
																																		=
																																		BgL_arg1559z00_1635;
																																	{	/* Eval/expdlet.scm 224 */
																																		obj_t
																																			BgL_stringz00_1657;
																																		{	/* Eval/expdlet.scm 224 */
																																			obj_t
																																				BgL_arg1790z00_2423;
																																			BgL_arg1790z00_2423
																																				=
																																				SYMBOL_TO_STRING
																																				(BgL_idz00_1655);
																																			BgL_stringz00_1657
																																				=
																																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																				(BgL_arg1790z00_2423);
																																		}
																																		{	/* Eval/expdlet.scm 224 */
																																			long
																																				BgL_lenz00_1658;
																																			BgL_lenz00_1658
																																				=
																																				STRING_LENGTH
																																				(BgL_stringz00_1657);
																																			{	/* Eval/expdlet.scm 225 */

																																				{
																																					long
																																						BgL_walkerz00_1660;
																																					BgL_walkerz00_1660
																																						=
																																						0L;
																																				BgL_zc3z04anonymousza31577ze3z87_1661:
																																					if (
																																						(BgL_walkerz00_1660
																																							==
																																							BgL_lenz00_1658))
																																						{	/* Eval/expdlet.scm 228 */
																																							BgL_arg1555z00_1633
																																								=
																																								BgL_idz00_1655;
																																						}
																																					else
																																						{	/* Eval/expdlet.scm 230 */
																																							bool_t
																																								BgL_test2119z00_3358;
																																							if ((STRING_REF(BgL_stringz00_1657, BgL_walkerz00_1660) == ((unsigned char) ':')))
																																								{	/* Eval/expdlet.scm 230 */
																																									if ((BgL_walkerz00_1660 < (BgL_lenz00_1658 - 1L)))
																																										{	/* Eval/expdlet.scm 231 */
																																											BgL_test2119z00_3358
																																												=
																																												(STRING_REF
																																												(BgL_stringz00_1657,
																																													(BgL_walkerz00_1660
																																														+
																																														1L))
																																												==
																																												((unsigned char) ':'));
																																										}
																																									else
																																										{	/* Eval/expdlet.scm 231 */
																																											BgL_test2119z00_3358
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																								}
																																							else
																																								{	/* Eval/expdlet.scm 230 */
																																									BgL_test2119z00_3358
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																							if (BgL_test2119z00_3358)
																																								{	/* Eval/expdlet.scm 230 */
																																									BgL_arg1555z00_1633
																																										=
																																										bstring_to_symbol
																																										(c_substring
																																										(BgL_stringz00_1657,
																																											0L,
																																											BgL_walkerz00_1660));
																																								}
																																							else
																																								{
																																									long
																																										BgL_walkerz00_3370;
																																									BgL_walkerz00_3370
																																										=
																																										(BgL_walkerz00_1660
																																										+
																																										1L);
																																									BgL_walkerz00_1660
																																										=
																																										BgL_walkerz00_3370;
																																									goto
																																										BgL_zc3z04anonymousza31577ze3z87_1661;
																																								}
																																						}
																																				}
																																			}
																																		}
																																	}
																																}
																																{	/* Eval/expdlet.scm 266 */
																																	obj_t
																																		BgL_arg1561z00_1636;
																																	{	/* Eval/expdlet.scm 266 */
																																		obj_t
																																			BgL_arg1562z00_1637;
																																		{	/* Eval/expdlet.scm 266 */
																																			obj_t
																																				BgL_arg1563z00_1638;
																																			BgL_arg1563z00_1638
																																				=
																																				CDR((
																																					(obj_t)
																																					BgL_bz00_1631));
																																			BgL_arg1562z00_1637
																																				=
																																				BGl_expandzd2prognzd2zz__prognz00
																																				(BgL_arg1563z00_1638);
																																		}
																																		BgL_arg1561z00_1636
																																			=
																																			BGL_PROCEDURE_CALL2
																																			(BgL_ez00_1525,
																																			BgL_arg1562z00_1637,
																																			BgL_ez00_1525);
																																	}
																																	BgL_arg1558z00_1634
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1561z00_1636,
																																		BNIL);
																																}
																																BgL_arg1554z00_1632
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1555z00_1633,
																																	BgL_arg1558z00_1634);
																															}
																															BgL_arg1552z00_1630
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2016z00zz__expander_letz00,
																																BgL_arg1554z00_1632);
																														}
																													}
																													BgL_newtail1126z00_1628
																														=
																														MAKE_YOUNG_PAIR
																														(BgL_arg1552z00_1630,
																														BNIL);
																												}
																												SET_CDR
																													(BgL_tail1125z00_1625,
																													BgL_newtail1126z00_1628);
																												{	/* Eval/expdlet.scm 264 */
																													obj_t
																														BgL_arg1551z00_1629;
																													BgL_arg1551z00_1629 =
																														CDR(((obj_t)
																															BgL_l1122z00_1624));
																													{
																														obj_t
																															BgL_tail1125z00_3388;
																														obj_t
																															BgL_l1122z00_3387;
																														BgL_l1122z00_3387 =
																															BgL_arg1551z00_1629;
																														BgL_tail1125z00_3388
																															=
																															BgL_newtail1126z00_1628;
																														BgL_tail1125z00_1625
																															=
																															BgL_tail1125z00_3388;
																														BgL_l1122z00_1624 =
																															BgL_l1122z00_3387;
																														goto
																															BgL_zc3z04anonymousza31548ze3z87_1626;
																													}
																												}
																											}
																									}
																								}
																								BgL_arg1537z00_1602 =
																									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																									(BgL_arg1546z00_1619,
																									BgL_bodyz00_1530);
																							}
																							BgL_arg1533z00_1600 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1534z00_1601,
																								BgL_arg1537z00_1602);
																						}
																						BgL_arg1532z00_1599 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2007z00zz__expander_letz00,
																							BgL_arg1533z00_1600);
																					}
																					BgL_arg1528z00_1598 =
																						BGl_evepairifyz00zz__prognz00
																						(BgL_arg1532z00_1599, BgL_xz00_11);
																				}
																				BgL_resz00_1526 =
																					BGL_PROCEDURE_CALL2(BgL_ez00_1525,
																					BgL_arg1528z00_1598, BgL_ez00_1525);
																			}
																	}
																}
														}
													else
														{	/* Eval/expdlet.scm 238 */
															BgL_resz00_1526 =
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2015z00zz__expander_letz00,
																BGl_string2009z00zz__expander_letz00,
																BgL_xz00_11);
														}
												}
										}
									else
										{	/* Eval/expdlet.scm 238 */
											BgL_resz00_1526 =
												BGl_expandzd2errorzd2zz__expandz00
												(BGl_string2015z00zz__expander_letz00,
												BGl_string2009z00zz__expander_letz00, BgL_xz00_11);
										}
								}
							else
								{	/* Eval/expdlet.scm 238 */
									BgL_resz00_1526 =
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2015z00zz__expander_letz00,
										BGl_string2009z00zz__expander_letz00, BgL_xz00_11);
								}
						}
						{	/* Eval/expdlet.scm 238 */

							BGL_TAIL return
								BGl_evepairifyz00zz__prognz00(BgL_resz00_1526, BgL_xz00_11);
						}
					}
				}
			}
		}

	}



/* &expand-eval-letrec* */
	obj_t BGl_z62expandzd2evalzd2letrecza2zc0zz__expander_letz00(obj_t
		BgL_envz00_2724, obj_t BgL_xz00_2725, obj_t BgL_ez00_2726)
	{
		{	/* Eval/expdlet.scm 218 */
			return
				BGl_expandzd2evalzd2letrecza2za2zz__expander_letz00(BgL_xz00_2725,
				BgL_ez00_2726);
		}

	}



/* expand-eval-labels */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2evalzd2labelsz00zz__expander_letz00(obj_t
		BgL_xz00_13, obj_t BgL_ez00_14)
	{
		{	/* Eval/expdlet.scm 278 */
			{	/* Eval/expdlet.scm 279 */
				obj_t BgL_resz00_1683;

				{
					obj_t BgL_bodyz00_1684;
					obj_t BgL_bindingsz00_1686;
					obj_t BgL_bodyz00_1687;

					if (PAIRP(BgL_xz00_13))
						{	/* Eval/expdlet.scm 279 */
							obj_t BgL_cdrzd2419zd2_1692;

							BgL_cdrzd2419zd2_1692 = CDR(((obj_t) BgL_xz00_13));
							if (PAIRP(BgL_cdrzd2419zd2_1692))
								{	/* Eval/expdlet.scm 279 */
									obj_t BgL_cdrzd2422zd2_1694;

									BgL_cdrzd2422zd2_1694 = CDR(BgL_cdrzd2419zd2_1692);
									if (NULLP(CAR(BgL_cdrzd2419zd2_1692)))
										{	/* Eval/expdlet.scm 279 */
											if (NULLP(BgL_cdrzd2422zd2_1694))
												{	/* Eval/expdlet.scm 279 */
													BgL_resz00_1683 =
														BGl_expandzd2errorzd2zz__expandz00
														(BGl_string2018z00zz__expander_letz00,
														BGl_string2009z00zz__expander_letz00, BgL_xz00_13);
												}
											else
												{	/* Eval/expdlet.scm 279 */
													BgL_bodyz00_1684 = BgL_cdrzd2422zd2_1694;
													{	/* Eval/expdlet.scm 281 */
														obj_t BgL_arg1610z00_1703;

														{	/* Eval/expdlet.scm 281 */
															obj_t BgL_arg1612z00_1704;

															{	/* Eval/expdlet.scm 281 */
																obj_t BgL_arg1613z00_1705;

																{	/* Eval/expdlet.scm 281 */
																	obj_t BgL_arg1614z00_1706;

																	BgL_arg1614z00_1706 =
																		MAKE_YOUNG_PAIR
																		(BGl_expandzd2prognzd2zz__prognz00
																		(BgL_bodyz00_1684), BNIL);
																	BgL_arg1613z00_1705 =
																		MAKE_YOUNG_PAIR(BNIL, BgL_arg1614z00_1706);
																}
																BgL_arg1612z00_1704 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2003z00zz__expander_letz00,
																	BgL_arg1613z00_1705);
															}
															BgL_arg1610z00_1703 =
																MAKE_YOUNG_PAIR(BgL_arg1612z00_1704, BNIL);
														}
														BgL_resz00_1683 =
															BGL_PROCEDURE_CALL2(BgL_ez00_14,
															BgL_arg1610z00_1703, BgL_ez00_14);
													}
												}
										}
									else
										{	/* Eval/expdlet.scm 279 */
											obj_t BgL_cdrzd2438zd2_1699;

											BgL_cdrzd2438zd2_1699 =
												CDR(((obj_t) BgL_cdrzd2419zd2_1692));
											if (NULLP(BgL_cdrzd2438zd2_1699))
												{	/* Eval/expdlet.scm 279 */
													BgL_resz00_1683 =
														BGl_expandzd2errorzd2zz__expandz00
														(BGl_string2018z00zz__expander_letz00,
														BGl_string2009z00zz__expander_letz00, BgL_xz00_13);
												}
											else
												{	/* Eval/expdlet.scm 279 */
													obj_t BgL_arg1608z00_1701;

													BgL_arg1608z00_1701 =
														CAR(((obj_t) BgL_cdrzd2419zd2_1692));
													BgL_bindingsz00_1686 = BgL_arg1608z00_1701;
													BgL_bodyz00_1687 = BgL_cdrzd2438zd2_1699;
													{	/* Eval/expdlet.scm 283 */
														obj_t BgL_newz00_1708;

														BgL_newz00_1708 =
															BGl_loopze70ze7zz__expander_letz00(BgL_xz00_13,
															BgL_bindingsz00_1686);
														{	/* Eval/expdlet.scm 298 */
															obj_t BgL_arg1616z00_1709;

															{	/* Eval/expdlet.scm 298 */
																obj_t BgL_arg1617z00_1710;

																BgL_arg1617z00_1710 =
																	MAKE_YOUNG_PAIR(BgL_newz00_1708,
																	BgL_bodyz00_1687);
																BgL_arg1616z00_1709 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2005z00zz__expander_letz00,
																	BgL_arg1617z00_1710);
															}
															BgL_resz00_1683 =
																BGL_PROCEDURE_CALL2(BgL_ez00_14,
																BgL_arg1616z00_1709, BgL_ez00_14);
														}
													}
												}
										}
								}
							else
								{	/* Eval/expdlet.scm 279 */
									BgL_resz00_1683 =
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2018z00zz__expander_letz00,
										BGl_string2009z00zz__expander_letz00, BgL_xz00_13);
								}
						}
					else
						{	/* Eval/expdlet.scm 279 */
							BgL_resz00_1683 =
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2018z00zz__expander_letz00,
								BGl_string2009z00zz__expander_letz00, BgL_xz00_13);
						}
				}
				BGL_TAIL return
					BGl_evepairifyz00zz__prognz00(BgL_resz00_1683, BgL_xz00_13);
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__expander_letz00(obj_t BgL_xz00_2730,
		obj_t BgL_bindingsz00_1712)
	{
		{	/* Eval/expdlet.scm 283 */
			if (NULLP(BgL_bindingsz00_1712))
				{	/* Eval/expdlet.scm 285 */
					return BNIL;
				}
			else
				{	/* Eval/expdlet.scm 285 */
					if (PAIRP(BgL_bindingsz00_1712))
						{	/* Eval/expdlet.scm 290 */
							obj_t BgL_ezd2452zd2_1721;

							BgL_ezd2452zd2_1721 = CAR(BgL_bindingsz00_1712);
							if (PAIRP(BgL_ezd2452zd2_1721))
								{	/* Eval/expdlet.scm 290 */
									obj_t BgL_cdrzd2460zd2_1723;

									BgL_cdrzd2460zd2_1723 = CDR(BgL_ezd2452zd2_1721);
									if (PAIRP(BgL_cdrzd2460zd2_1723))
										{	/* Eval/expdlet.scm 290 */
											obj_t BgL_arg1623z00_1725;
											obj_t BgL_arg1624z00_1726;
											obj_t BgL_arg1625z00_1727;

											BgL_arg1623z00_1725 = CAR(BgL_ezd2452zd2_1721);
											BgL_arg1624z00_1726 = CAR(BgL_cdrzd2460zd2_1723);
											BgL_arg1625z00_1727 = CDR(BgL_cdrzd2460zd2_1723);
											{	/* Eval/expdlet.scm 292 */
												obj_t BgL_arg1626z00_2501;
												obj_t BgL_arg1627z00_2502;

												{	/* Eval/expdlet.scm 292 */
													obj_t BgL_arg1628z00_2503;

													{	/* Eval/expdlet.scm 292 */
														obj_t BgL_arg1629z00_2504;

														{	/* Eval/expdlet.scm 292 */
															obj_t BgL_arg1630z00_2505;

															BgL_arg1630z00_2505 =
																MAKE_YOUNG_PAIR(BgL_arg1624z00_1726,
																BgL_arg1625z00_1727);
															BgL_arg1629z00_2504 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2003z00zz__expander_letz00,
																BgL_arg1630z00_2505);
														}
														BgL_arg1628z00_2503 =
															MAKE_YOUNG_PAIR(BgL_arg1629z00_2504, BNIL);
													}
													BgL_arg1626z00_2501 =
														MAKE_YOUNG_PAIR(BgL_arg1623z00_1725,
														BgL_arg1628z00_2503);
												}
												BgL_arg1627z00_2502 =
													BGl_loopze70ze7zz__expander_letz00(BgL_xz00_2730,
													CDR(BgL_bindingsz00_1712));
												return
													MAKE_YOUNG_PAIR(BgL_arg1626z00_2501,
													BgL_arg1627z00_2502);
											}
										}
									else
										{	/* Eval/expdlet.scm 290 */
											return
												BGl_expandzd2errorzd2zz__expandz00
												(BGl_string2018z00zz__expander_letz00,
												BGl_string2009z00zz__expander_letz00, BgL_xz00_2730);
										}
								}
							else
								{	/* Eval/expdlet.scm 290 */
									return
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2018z00zz__expander_letz00,
										BGl_string2009z00zz__expander_letz00, BgL_xz00_2730);
								}
						}
					else
						{	/* Eval/expdlet.scm 287 */
							return
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2018z00zz__expander_letz00,
								BGl_string2009z00zz__expander_letz00, BgL_xz00_2730);
						}
				}
		}

	}



/* &expand-eval-labels */
	obj_t BGl_z62expandzd2evalzd2labelsz62zz__expander_letz00(obj_t
		BgL_envz00_2727, obj_t BgL_xz00_2728, obj_t BgL_ez00_2729)
	{
		{	/* Eval/expdlet.scm 278 */
			return
				BGl_expandzd2evalzd2labelsz00zz__expander_letz00(BgL_xz00_2728,
				BgL_ez00_2729);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__expander_letz00(void)
	{
		{	/* Eval/expdlet.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__expander_letz00(void)
	{
		{	/* Eval/expdlet.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__expander_letz00(void)
	{
		{	/* Eval/expdlet.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__expander_letz00(void)
	{
		{	/* Eval/expdlet.scm 15 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__expander_definez00(380411245L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
			return BGl_modulezd2initializa7ationz75zz__evutilsz00(470356213L,
				BSTRING_TO_STRING(BGl_string2019z00zz__expander_letz00));
		}

	}

#ifdef __cplusplus
}
#endif
