/*===========================================================================*/
/*   (Eval/expanders.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/expanders.scm -indent -o objs/obj_u/Eval/expanders.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___INSTALL_EXPANDERS_TYPE_DEFINITIONS
#define BGL___INSTALL_EXPANDERS_TYPE_DEFINITIONS
#endif													// BGL___INSTALL_EXPANDERS_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol2481z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2483z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2486z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_makezd2expandzd2withzd2tracezd2zz__expander_tracez00(obj_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_expandzd2matchzd2casez00zz__match_expandz00(obj_t);
	static obj_t BGl_symbol2491z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2493z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2495z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__install_expandersz00 =
		BUNSPEC;
	static obj_t BGl_expandzd2errorzd2zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static bool_t BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00(obj_t,
		obj_t);
	extern obj_t BGl_expandzd2definezd2macroz00zz__evalz00(obj_t, obj_t);
	extern obj_t BGl_installzd2compilerzd2expanderz00zz__macroz00(obj_t, obj_t);
	extern obj_t BGl_expandzd2condzd2zz__expander_boolz00(obj_t);
	extern obj_t BGl_relativezd2filezd2namez00zz__osz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31784ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__install_expandersz00(void);
	static obj_t BGl_z62expandzd2andzd2letza2zc0zz__install_expandersz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__install_expandersz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_objectzd2initzd2zz__install_expandersz00(void);
	static obj_t
		BGl_z62installzd2allzd2expandersz12z70zz__install_expandersz00(obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31788ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_expandzd2dozd2zz__expander_doz00(obj_t, obj_t);
	static obj_t BGl_expandzd2testzd2zz__install_expandersz00(obj_t, obj_t);
	extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2tprintzb0zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2ifzb0zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31403ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_methodzd2initzd2zz__install_expandersz00(void);
	extern obj_t BGl_quasiquotationz00zz__expander_quotez00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31422ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00(int,
		obj_t);
	extern obj_t BGl_evepairifyzd2deepzd2zz__prognz00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31433ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_expandzd2matchzd2lambdaz00zz__match_expandz00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31361ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z52installzd2allzd2expandersz12z40zz__install_expandersz00(void);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31370ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31605ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31338ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_makezd2ifze70z35zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31622ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	extern obj_t BGl_installzd2expanderzd2zz__macroz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__install_expandersz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evobjectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(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__match_expandz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__lalr_expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_tracez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_argsz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_srfi0z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_recordz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_structz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_tryz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_doz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_definez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_casez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_boolz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_letz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_quotez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__macroz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_makezd2expandzd2tracezd2itemzd2zz__expander_tracez00(obj_t);
	extern obj_t BGl_makezd2expandzd2whenzd2tracezd2zz__expander_tracez00(obj_t);
	static obj_t BGl_list2485z00zz__install_expandersz00 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31372ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31364ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_list2490z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_expandzd2tryzd2zz__expander_tryz00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31462ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31446ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31382ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31366ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__install_expandersz00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_symbol2300z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2302z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2304z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2307z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__install_expandersz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__install_expandersz00(void);
	static obj_t
		BGl_z62zc3z04anonymousza31375ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2310z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2313z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2316z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2319z00zz__install_expandersz00 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31368ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2400z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2322z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2403z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2325z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2406z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2408z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2328z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_pwdz00zz__osz00(void);
	static obj_t
		BGl_z62zc3z04anonymousza31385ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31377ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2410z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2331z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2412z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2414z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2334z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2416z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2337z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2418z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_expandzd2quotezd2zz__expander_quotez00(obj_t, obj_t);
	extern obj_t BGl_expandzd2definezd2expanderz00zz__evalz00(obj_t, obj_t);
	static obj_t BGl_symbol2420z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2340z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2422z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2343z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2424z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2426z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2346z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2428z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2349z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_installzd2evalzd2expanderz00zz__macroz00(obj_t, obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31379ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_keyword2478z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2430z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2351z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2432z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2353z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2435z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2355z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2438z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2357z00zz__install_expandersz00 = BUNSPEC;
	static obj_t
		BGl_z62zc3z04anonymousza31477ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31388ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31299ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_evmodulezd2staticzd2classz00zz__evmodulez00(obj_t);
	static obj_t BGl_symbol2441z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2360z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2443z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_expandzd2definezd2patternz00zz__evalz00(obj_t);
	static obj_t BGl_symbol2363z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2446z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2366z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2448z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2369z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_z62ez62zz__install_expandersz00(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31745ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_installzd2allzd2expandersz12z12zz__install_expandersz00(void);
	static obj_t
		BGl_z62zc3z04anonymousza31648ze3ze5zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2450z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2452z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2371z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2373z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2455z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2375z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2457z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2377z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2459z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2298z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2379z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_za2nilza2z00zz__evalz00;
	static obj_t BGl_symbol2462z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2381z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2464z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2383z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2466z00zz__install_expandersz00 = BUNSPEC;
	static bool_t BGl_za2expanderszd2installedzd2pza2z00zz__install_expandersz00;
	static obj_t BGl_symbol2385z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2468z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2387z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2389z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2470z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2472z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2391z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2474z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2394z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2476z00zz__install_expandersz00 = BUNSPEC;
	static obj_t BGl_symbol2397z00zz__install_expandersz00 = BUNSPEC;
	extern obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	static obj_t BGl_z62expandzd2beginzb0zz__install_expandersz00(obj_t, obj_t,
		obj_t);
	static obj_t *__cnst;


	extern obj_t BGl_expandzd2evalzd2z42letzd2envz90zz__expander_letz00;
	extern obj_t
		BGl_expandzd2definezd2recordzd2typezd2envz00zz__expander_recordz00;
	      BGL_DEFINE_STRING(BGl_string2301z00zz__install_expandersz00,
		BgL_bgl_string2301za700za7za7_2502za7, "null?", 5);
	      BGL_DEFINE_STRING(BGl_string2303z00zz__install_expandersz00,
		BgL_bgl_string2303za700za7za7_2503za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string2305z00zz__install_expandersz00,
		BgL_bgl_string2305za700za7za7_2504za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2308z00zz__install_expandersz00,
		BgL_bgl_string2308za700za7za7_2505za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2311z00zz__install_expandersz00,
		BgL_bgl_string2311za700za7za7_2506za7, "@", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2306z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2507za7,
		BGl_z62zc3z04anonymousza31296ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2314z00zz__install_expandersz00,
		BgL_bgl_string2314za700za7za7_2508za7, "->", 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2309z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2509za7,
		BGl_z62zc3z04anonymousza31299ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2317z00zz__install_expandersz00,
		BgL_bgl_string2317za700za7za7_2510za7, "quasiquote", 10);
	extern obj_t BGl_expandzd2evalzd2casezd2envzd2zz__expander_casez00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2312z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2511za7,
		BGl_z62zc3z04anonymousza31338ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2320z00zz__install_expandersz00,
		BgL_bgl_string2320za700za7za7_2512za7, "module", 6);
	      BGL_DEFINE_STRING(BGl_string2401z00zz__install_expandersz00,
		BgL_bgl_string2401za700za7za7_2513za7, "unwind-protect", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2315z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2514za7,
		BGl_z62zc3z04anonymousza31361ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2323z00zz__install_expandersz00,
		BgL_bgl_string2323za700za7za7_2515za7, "define-macro", 12);
	      BGL_DEFINE_STRING(BGl_string2404z00zz__install_expandersz00,
		BgL_bgl_string2404za700za7za7_2516za7, "with-handler", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2318z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2517za7,
		BGl_z62zc3z04anonymousza31364ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2326z00zz__install_expandersz00,
		BgL_bgl_string2326za700za7za7_2518za7, "define-hygiene-macro", 20);
	      BGL_DEFINE_STRING(BGl_string2407z00zz__install_expandersz00,
		BgL_bgl_string2407za700za7za7_2519za7, "multiple-value-bind", 19);
	      BGL_DEFINE_STRING(BGl_string2409z00zz__install_expandersz00,
		BgL_bgl_string2409za700za7za7_2520za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2329z00zz__install_expandersz00,
		BgL_bgl_string2329za700za7za7_2521za7, "define-expander", 15);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2321z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2522za7,
		BGl_z62zc3z04anonymousza31366ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2402z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2523za7,
		BGl_z62zc3z04anonymousza31622ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2324z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2524za7,
		BGl_z62zc3z04anonymousza31368ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2405z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2525za7,
		BGl_z62zc3z04anonymousza31648ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2411z00zz__install_expandersz00,
		BgL_bgl_string2411za700za7za7_2526za7, "$let", 4);
	      BGL_DEFINE_STRING(BGl_string2332z00zz__install_expandersz00,
		BgL_bgl_string2332za700za7za7_2527za7, "cond", 4);
	      BGL_DEFINE_STRING(BGl_string2413z00zz__install_expandersz00,
		BgL_bgl_string2413za700za7za7_2528za7, "let*", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2327z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2529za7,
		BGl_z62zc3z04anonymousza31370ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2415z00zz__install_expandersz00,
		BgL_bgl_string2415za700za7za7_2530za7, "letrec", 6);
	      BGL_DEFINE_STRING(BGl_string2335z00zz__install_expandersz00,
		BgL_bgl_string2335za700za7za7_2531za7, "do", 2);
	      BGL_DEFINE_STRING(BGl_string2417z00zz__install_expandersz00,
		BgL_bgl_string2417za700za7za7_2532za7, "letrec*", 7);
	      BGL_DEFINE_STRING(BGl_string2338z00zz__install_expandersz00,
		BgL_bgl_string2338za700za7za7_2533za7, "try", 3);
	      BGL_DEFINE_STRING(BGl_string2419z00zz__install_expandersz00,
		BgL_bgl_string2419za700za7za7_2534za7, "labels", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2330z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2535za7,
		BGl_z62zc3z04anonymousza31372ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2500z00zz__install_expandersz00,
		BgL_bgl_string2500za700za7za7_2536za7, "Illegal `and-let*' form", 23);
	      BGL_DEFINE_STRING(BGl_string2501z00zz__install_expandersz00,
		BgL_bgl_string2501za700za7za7_2537za7, "__install_expanders", 19);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2333z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2538za7,
		BGl_z62zc3z04anonymousza31375ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2421z00zz__install_expandersz00,
		BgL_bgl_string2421za700za7za7_2539za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string2341z00zz__install_expandersz00,
		BgL_bgl_string2341za700za7za7_2540za7, "match-case", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2336z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2541za7,
		BGl_z62zc3z04anonymousza31377ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2423z00zz__install_expandersz00,
		BgL_bgl_string2423za700za7za7_2542za7, "define-inline", 13);
	      BGL_DEFINE_STRING(BGl_string2344z00zz__install_expandersz00,
		BgL_bgl_string2344za700za7za7_2543za7, "match-lambda", 12);
	      BGL_DEFINE_STRING(BGl_string2425z00zz__install_expandersz00,
		BgL_bgl_string2425za700za7za7_2544za7, "define-generic", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2339z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2545za7,
		BGl_z62zc3z04anonymousza31379ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2427z00zz__install_expandersz00,
		BgL_bgl_string2427za700za7za7_2546za7, "define-method", 13);
	      BGL_DEFINE_STRING(BGl_string2347z00zz__install_expandersz00,
		BgL_bgl_string2347za700za7za7_2547za7, "define-pattern", 14);
	      BGL_DEFINE_STRING(BGl_string2429z00zz__install_expandersz00,
		BgL_bgl_string2429za700za7za7_2548za7, "define-struct", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2342z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2549za7,
		BGl_z62zc3z04anonymousza31382ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2350z00zz__install_expandersz00,
		BgL_bgl_string2350za700za7za7_2550za7, "delay", 5);
	      BGL_DEFINE_STRING(BGl_string2431z00zz__install_expandersz00,
		BgL_bgl_string2431za700za7za7_2551za7, "case", 4);
	extern obj_t BGl_expandzd2definezd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2345z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2552za7,
		BGl_z62zc3z04anonymousza31385ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2433z00zz__install_expandersz00,
		BgL_bgl_string2433za700za7za7_2553za7, "cond-expand", 11);
	      BGL_DEFINE_STRING(BGl_string2352z00zz__install_expandersz00,
		BgL_bgl_string2352za700za7za7_2554za7, "regular-grammar", 15);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2348z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2555za7,
		BGl_z62zc3z04anonymousza31388ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2354z00zz__install_expandersz00,
		BgL_bgl_string2354za700za7za7_2556za7, "string-case", 11);
	      BGL_DEFINE_STRING(BGl_string2436z00zz__install_expandersz00,
		BgL_bgl_string2436za700za7za7_2557za7, "profile", 7);
	      BGL_DEFINE_STRING(BGl_string2356z00zz__install_expandersz00,
		BgL_bgl_string2356za700za7za7_2558za7, "lalr-grammar", 12);
	      BGL_DEFINE_STRING(BGl_string2439z00zz__install_expandersz00,
		BgL_bgl_string2439za700za7za7_2559za7, "instantiate", 11);
	      BGL_DEFINE_STRING(BGl_string2358z00zz__install_expandersz00,
		BgL_bgl_string2358za700za7za7_2560za7, "begin", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2434z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2561za7,
		BGl_z62zc3z04anonymousza31745ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2442z00zz__install_expandersz00,
		BgL_bgl_string2442za700za7za7_2562za7, "with-access", 11);
	      BGL_DEFINE_STRING(BGl_string2361z00zz__install_expandersz00,
		BgL_bgl_string2361za700za7za7_2563za7, "failure", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2437z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2564za7,
		BGl_z62zc3z04anonymousza31784ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2444z00zz__install_expandersz00,
		BgL_bgl_string2444za700za7za7_2565za7, "co-instantiate", 14);
	      BGL_DEFINE_STRING(BGl_string2364z00zz__install_expandersz00,
		BgL_bgl_string2364za700za7za7_2566za7, "receive", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2359z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2567za7,
		BGl_z62zc3z04anonymousza31403ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2447z00zz__install_expandersz00,
		BgL_bgl_string2447za700za7za7_2568za7, "define-class", 12);
	      BGL_DEFINE_STRING(BGl_string2367z00zz__install_expandersz00,
		BgL_bgl_string2367za700za7za7_2569za7, "when", 4);
	      BGL_DEFINE_STRING(BGl_string2449z00zz__install_expandersz00,
		BgL_bgl_string2449za700za7za7_2570za7, "define-abstract-class", 21);
	extern obj_t BGl_expandzd2letzd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2440z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2571za7,
		BGl_z62zc3z04anonymousza31788ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2362z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2572za7,
		BGl_z62zc3z04anonymousza31422ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2451z00zz__install_expandersz00,
		BgL_bgl_string2451za700za7za7_2573za7, "define-final-class", 18);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2445z00zz__install_expandersz00,
		BgL_bgl_za762eza762za7za7__insta2574z00,
		BGl_z62ez62zz__install_expandersz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2370z00zz__install_expandersz00,
		BgL_bgl_string2370za700za7za7_2575za7, "unless", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2365z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2576za7,
		BGl_z62zc3z04anonymousza31433ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2453z00zz__install_expandersz00,
		BgL_bgl_string2453za700za7za7_2577za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string2372z00zz__install_expandersz00,
		BgL_bgl_string2372za700za7za7_2578za7, "define-record-type", 18);
	      BGL_DEFINE_STRING(BGl_string2454z00zz__install_expandersz00,
		BgL_bgl_string2454za700za7za7_2579za7, "Unknown class", 13);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2368z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2580za7,
		BGl_z62zc3z04anonymousza31446ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2374z00zz__install_expandersz00,
		BgL_bgl_string2374za700za7za7_2581za7, "args-parse", 10);
	      BGL_DEFINE_STRING(BGl_string2456z00zz__install_expandersz00,
		BgL_bgl_string2456za700za7za7_2582za7, "value", 5);
	      BGL_DEFINE_STRING(BGl_string2376z00zz__install_expandersz00,
		BgL_bgl_string2376za700za7za7_2583za7, "tprint", 6);
	      BGL_DEFINE_STRING(BGl_string2458z00zz__install_expandersz00,
		BgL_bgl_string2458za700za7za7_2584za7, "GC-profile-push", 15);
	      BGL_DEFINE_STRING(BGl_string2378z00zz__install_expandersz00,
		BgL_bgl_string2378za700za7za7_2585za7, "and-let*", 8);
	      BGL_DEFINE_STRING(BGl_string2299z00zz__install_expandersz00,
		BgL_bgl_string2299za700za7za7_2586za7, "test-aux-for-nil", 16);
	      BGL_DEFINE_STRING(BGl_string2460z00zz__install_expandersz00,
		BgL_bgl_string2460za700za7za7_2587za7, "GC-profile-pop", 14);
	      BGL_DEFINE_STRING(BGl_string2461z00zz__install_expandersz00,
		BgL_bgl_string2461za700za7za7_2588za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string2380z00zz__install_expandersz00,
		BgL_bgl_string2380za700za7za7_2589za7, "define-syntax", 13);
	      BGL_DEFINE_STRING(BGl_string2463z00zz__install_expandersz00,
		BgL_bgl_string2463za700za7za7_2590za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2382z00zz__install_expandersz00,
		BgL_bgl_string2382za700za7za7_2591za7, "letrec-syntax", 13);
	      BGL_DEFINE_STRING(BGl_string2465z00zz__install_expandersz00,
		BgL_bgl_string2465za700za7za7_2592za7, "call-with-values", 16);
	      BGL_DEFINE_STRING(BGl_string2384z00zz__install_expandersz00,
		BgL_bgl_string2384za700za7za7_2593za7, "let-syntax", 10);
	      BGL_DEFINE_STRING(BGl_string2467z00zz__install_expandersz00,
		BgL_bgl_string2467za700za7za7_2594za7, "exn", 3);
	      BGL_DEFINE_STRING(BGl_string2386z00zz__install_expandersz00,
		BgL_bgl_string2386za700za7za7_2595za7, "compiler", 8);
	      BGL_DEFINE_STRING(BGl_string2469z00zz__install_expandersz00,
		BgL_bgl_string2469za700za7za7_2596za7, "sigsetmask", 10);
	      BGL_DEFINE_STRING(BGl_string2388z00zz__install_expandersz00,
		BgL_bgl_string2388za700za7za7_2597za7, "when-trace", 10);
	extern obj_t
		BGl_expandzd2evalzd2definezd2inlinezd2envz00zz__expander_definez00;
	extern obj_t BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00;
	extern obj_t BGl_expandzd2evalzd2letrecza2zd2envz70zz__expander_letz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_expandzd2tprintzd2envz00zz__install_expandersz00,
		BgL_bgl_za762expandza7d2tpri2598z00,
		BGl_z62expandzd2tprintzb0zz__install_expandersz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2471z00zz__install_expandersz00,
		BgL_bgl_string2471za700za7za7_2599za7, "exit", 4);
	      BGL_DEFINE_STRING(BGl_string2390z00zz__install_expandersz00,
		BgL_bgl_string2390za700za7za7_2600za7, "with-trace", 10);
	      BGL_DEFINE_STRING(BGl_string2473z00zz__install_expandersz00,
		BgL_bgl_string2473za700za7za7_2601za7, "flag", 4);
	      BGL_DEFINE_STRING(BGl_string2392z00zz__install_expandersz00,
		BgL_bgl_string2392za700za7za7_2602za7, "trace-item", 10);
	      BGL_DEFINE_STRING(BGl_string2475z00zz__install_expandersz00,
		BgL_bgl_string2475za700za7za7_2603za7, "val", 3);
	      BGL_DEFINE_STRING(BGl_string2395z00zz__install_expandersz00,
		BgL_bgl_string2395za700za7za7_2604za7, "#meta", 5);
	      BGL_DEFINE_STRING(BGl_string2477z00zz__install_expandersz00,
		BgL_bgl_string2477za700za7za7_2605za7, "v", 1);
	      BGL_DEFINE_STRING(BGl_string2479z00zz__install_expandersz00,
		BgL_bgl_string2479za700za7za7_2606za7, "env", 3);
	      BGL_DEFINE_STRING(BGl_string2398z00zz__install_expandersz00,
		BgL_bgl_string2398za700za7za7_2607za7, "bind-exit", 9);
	      BGL_DEFINE_STRING(BGl_string2480z00zz__install_expandersz00,
		BgL_bgl_string2480za700za7za7_2608za7, "Illegal `failure' form", 22);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2393z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2609za7,
		BGl_z62zc3z04anonymousza31462ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2482z00zz__install_expandersz00,
		BgL_bgl_string2482za700za7za7_2610za7, "make-promise", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2396z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2611za7,
		BGl_z62zc3z04anonymousza31477ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2484z00zz__install_expandersz00,
		BgL_bgl_string2484za700za7za7_2612za7, "not", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2399z00zz__install_expandersz00,
		BgL_bgl_za762za7c3za704anonymo2613za7,
		BGl_z62zc3z04anonymousza31605ze3ze5zz__install_expandersz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2487z00zz__install_expandersz00,
		BgL_bgl_string2487za700za7za7_2614za7, "__r4_output_6_10_3", 18);
	      BGL_DEFINE_STRING(BGl_string2488z00zz__install_expandersz00,
		BgL_bgl_string2488za700za7za7_2615za7, ":", 1);
	      BGL_DEFINE_STRING(BGl_string2489z00zz__install_expandersz00,
		BgL_bgl_string2489za700za7za7_2616za7, ",", 1);
	extern obj_t
		BGl_expandzd2evalzd2definezd2structzd2envz00zz__expander_structz00;
	      BGL_DEFINE_STRING(BGl_string2492z00zz__install_expandersz00,
		BgL_bgl_string2492za700za7za7_2617za7, "current-error-port", 18);
	      BGL_DEFINE_STRING(BGl_string2494z00zz__install_expandersz00,
		BgL_bgl_string2494za700za7za7_2618za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string2496z00zz__install_expandersz00,
		BgL_bgl_string2496za700za7za7_2619za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string2497z00zz__install_expandersz00,
		BgL_bgl_string2497za700za7za7_2620za7, "bindings must be a list", 23);
	      BGL_DEFINE_STRING(BGl_string2498z00zz__install_expandersz00,
		BgL_bgl_string2498za700za7za7_2621za7, "duplicate variable in the bindings",
		34);
	      BGL_DEFINE_STRING(BGl_string2499z00zz__install_expandersz00,
		BgL_bgl_string2499za700za7za7_2622za7, "ill-formed binding", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_installzd2allzd2expandersz12zd2envzc0zz__install_expandersz00,
		BgL_bgl_za762installza7d2all2623z00,
		BGl_z62installzd2allzd2expandersz12z70zz__install_expandersz00, 0L, BUNSPEC,
		0);
	extern obj_t BGl_expandzd2evalzd2definezd2envzd2zz__expander_definez00;
	extern obj_t BGl_expandzd2regularzd2grammarzd2envzd2zz__rgc_expandz00;
	extern obj_t BGl_expandzd2evalzd2letza2zd2envz70zz__expander_letz00;
	extern obj_t BGl_expandzd2evalzd2labelszd2envzd2zz__expander_letz00;
	extern obj_t
		BGl_expandzd2evalzd2definezd2genericzd2envz00zz__expander_definez00;
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_expandzd2andzd2letza2zd2envz70zz__install_expandersz00,
		BgL_bgl_za762expandza7d2andza72624za7,
		BGl_z62expandzd2andzd2letza2zc0zz__install_expandersz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_expandzd2lalrzd2grammarzd2envzd2zz__lalr_expandz00;
	extern obj_t BGl_evalzd2cozd2instantiatezd2expanderzd2envz00zz__evobjectz00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_expandzd2beginzd2envz00zz__install_expandersz00,
		BgL_bgl_za762expandza7d2begi2625z00,
		BGl_z62expandzd2beginzb0zz__install_expandersz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_expandzd2evalzd2condzd2expandzd2envz00zz__expander_srfi0z00;
	extern obj_t
		BGl_expandzd2evalzd2definezd2methodzd2envz00zz__expander_definez00;
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_expandzd2ifzd2envz00zz__install_expandersz00,
		BgL_bgl_za762expandza7d2ifza7b2626za7,
		BGl_z62expandzd2ifzb0zz__install_expandersz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_expandzd2evalzd2letreczd2envzd2zz__expander_letz00;
	extern obj_t BGl_expandzd2evalzd2lambdazd2envzd2zz__expander_definez00;
	extern obj_t BGl_expandzd2evalzd2letzd2envzd2zz__expander_letz00;
	extern obj_t BGl_expandzd2letreczd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00;
	extern obj_t BGl_expandzd2stringzd2casezd2envzd2zz__rgc_expandz00;

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_expandzd2ifzd2envz00zz__install_expandersz00,
			BgL_bgl_za762expandza7d2ifza7b2626za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2beginzd2envz00zz__install_expandersz00,
			BgL_bgl_za762expandza7d2begi2625z00);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2andzd2letza2zd2envz70zz__install_expandersz00,
			BgL_bgl_za762expandza7d2andza72624za7);
		BGL_BIND_PROCEDURE
			(BGl_installzd2allzd2expandersz12zd2envzc0zz__install_expandersz00,
			BgL_bgl_za762installza7d2all2623z00);
		BGL_BIND_STRING(BGl_string2499z00zz__install_expandersz00,
			BgL_bgl_string2499za700za7za7_2622za7);
		BGL_BIND_STRING(BGl_string2498z00zz__install_expandersz00,
			BgL_bgl_string2498za700za7za7_2621za7);
		BGL_BIND_STRING(BGl_string2497z00zz__install_expandersz00,
			BgL_bgl_string2497za700za7za7_2620za7);
		BGL_BIND_STRING(BGl_string2496z00zz__install_expandersz00,
			BgL_bgl_string2496za700za7za7_2619za7);
		BGL_BIND_STRING(BGl_string2494z00zz__install_expandersz00,
			BgL_bgl_string2494za700za7za7_2618za7);
		BGL_BIND_STRING(BGl_string2492z00zz__install_expandersz00,
			BgL_bgl_string2492za700za7za7_2617za7);
		BGL_BIND_STRING(BGl_string2489z00zz__install_expandersz00,
			BgL_bgl_string2489za700za7za7_2616za7);
		BGL_BIND_STRING(BGl_string2488z00zz__install_expandersz00,
			BgL_bgl_string2488za700za7za7_2615za7);
		BGL_BIND_STRING(BGl_string2487z00zz__install_expandersz00,
			BgL_bgl_string2487za700za7za7_2614za7);
		BGL_BIND_PROCEDURE(BGl_proc2399z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2613za7);
		BGL_BIND_STRING(BGl_string2484z00zz__install_expandersz00,
			BgL_bgl_string2484za700za7za7_2612za7);
		BGL_BIND_PROCEDURE(BGl_proc2396z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2611za7);
		BGL_BIND_STRING(BGl_string2482z00zz__install_expandersz00,
			BgL_bgl_string2482za700za7za7_2610za7);
		BGL_BIND_PROCEDURE(BGl_proc2393z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2609za7);
		BGL_BIND_STRING(BGl_string2480z00zz__install_expandersz00,
			BgL_bgl_string2480za700za7za7_2608za7);
		BGL_BIND_STRING(BGl_string2398z00zz__install_expandersz00,
			BgL_bgl_string2398za700za7za7_2607za7);
		BGL_BIND_STRING(BGl_string2479z00zz__install_expandersz00,
			BgL_bgl_string2479za700za7za7_2606za7);
		BGL_BIND_STRING(BGl_string2477z00zz__install_expandersz00,
			BgL_bgl_string2477za700za7za7_2605za7);
		BGL_BIND_STRING(BGl_string2395z00zz__install_expandersz00,
			BgL_bgl_string2395za700za7za7_2604za7);
		BGL_BIND_STRING(BGl_string2475z00zz__install_expandersz00,
			BgL_bgl_string2475za700za7za7_2603za7);
		BGL_BIND_STRING(BGl_string2392z00zz__install_expandersz00,
			BgL_bgl_string2392za700za7za7_2602za7);
		BGL_BIND_STRING(BGl_string2473z00zz__install_expandersz00,
			BgL_bgl_string2473za700za7za7_2601za7);
		BGL_BIND_STRING(BGl_string2390z00zz__install_expandersz00,
			BgL_bgl_string2390za700za7za7_2600za7);
		BGL_BIND_STRING(BGl_string2471z00zz__install_expandersz00,
			BgL_bgl_string2471za700za7za7_2599za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2tprintzd2envz00zz__install_expandersz00,
			BgL_bgl_za762expandza7d2tpri2598z00);
		BGL_BIND_STRING(BGl_string2388z00zz__install_expandersz00,
			BgL_bgl_string2388za700za7za7_2597za7);
		BGL_BIND_STRING(BGl_string2469z00zz__install_expandersz00,
			BgL_bgl_string2469za700za7za7_2596za7);
		BGL_BIND_STRING(BGl_string2386z00zz__install_expandersz00,
			BgL_bgl_string2386za700za7za7_2595za7);
		BGL_BIND_STRING(BGl_string2467z00zz__install_expandersz00,
			BgL_bgl_string2467za700za7za7_2594za7);
		BGL_BIND_STRING(BGl_string2384z00zz__install_expandersz00,
			BgL_bgl_string2384za700za7za7_2593za7);
		BGL_BIND_STRING(BGl_string2465z00zz__install_expandersz00,
			BgL_bgl_string2465za700za7za7_2592za7);
		BGL_BIND_STRING(BGl_string2382z00zz__install_expandersz00,
			BgL_bgl_string2382za700za7za7_2591za7);
		BGL_BIND_STRING(BGl_string2463z00zz__install_expandersz00,
			BgL_bgl_string2463za700za7za7_2590za7);
		BGL_BIND_STRING(BGl_string2380z00zz__install_expandersz00,
			BgL_bgl_string2380za700za7za7_2589za7);
		BGL_BIND_STRING(BGl_string2461z00zz__install_expandersz00,
			BgL_bgl_string2461za700za7za7_2588za7);
		BGL_BIND_STRING(BGl_string2460z00zz__install_expandersz00,
			BgL_bgl_string2460za700za7za7_2587za7);
		BGL_BIND_STRING(BGl_string2299z00zz__install_expandersz00,
			BgL_bgl_string2299za700za7za7_2586za7);
		BGL_BIND_STRING(BGl_string2378z00zz__install_expandersz00,
			BgL_bgl_string2378za700za7za7_2585za7);
		BGL_BIND_STRING(BGl_string2458z00zz__install_expandersz00,
			BgL_bgl_string2458za700za7za7_2584za7);
		BGL_BIND_STRING(BGl_string2376z00zz__install_expandersz00,
			BgL_bgl_string2376za700za7za7_2583za7);
		BGL_BIND_STRING(BGl_string2456z00zz__install_expandersz00,
			BgL_bgl_string2456za700za7za7_2582za7);
		BGL_BIND_STRING(BGl_string2374z00zz__install_expandersz00,
			BgL_bgl_string2374za700za7za7_2581za7);
		BGL_BIND_PROCEDURE(BGl_proc2368z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2580za7);
		BGL_BIND_STRING(BGl_string2454z00zz__install_expandersz00,
			BgL_bgl_string2454za700za7za7_2579za7);
		BGL_BIND_STRING(BGl_string2372z00zz__install_expandersz00,
			BgL_bgl_string2372za700za7za7_2578za7);
		BGL_BIND_STRING(BGl_string2453z00zz__install_expandersz00,
			BgL_bgl_string2453za700za7za7_2577za7);
		BGL_BIND_PROCEDURE(BGl_proc2365z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2576za7);
		BGL_BIND_STRING(BGl_string2370z00zz__install_expandersz00,
			BgL_bgl_string2370za700za7za7_2575za7);
		BGL_BIND_PROCEDURE(BGl_proc2445z00zz__install_expandersz00,
			BgL_bgl_za762eza762za7za7__insta2574z00);
		BGL_BIND_STRING(BGl_string2451z00zz__install_expandersz00,
			BgL_bgl_string2451za700za7za7_2573za7);
		BGL_BIND_PROCEDURE(BGl_proc2362z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2572za7);
		BGL_BIND_PROCEDURE(BGl_proc2440z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2571za7);
		BGL_BIND_STRING(BGl_string2449z00zz__install_expandersz00,
			BgL_bgl_string2449za700za7za7_2570za7);
		BGL_BIND_STRING(BGl_string2367z00zz__install_expandersz00,
			BgL_bgl_string2367za700za7za7_2569za7);
		BGL_BIND_STRING(BGl_string2447z00zz__install_expandersz00,
			BgL_bgl_string2447za700za7za7_2568za7);
		BGL_BIND_PROCEDURE(BGl_proc2359z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2567za7);
		BGL_BIND_STRING(BGl_string2364z00zz__install_expandersz00,
			BgL_bgl_string2364za700za7za7_2566za7);
		BGL_BIND_STRING(BGl_string2444z00zz__install_expandersz00,
			BgL_bgl_string2444za700za7za7_2565za7);
		BGL_BIND_PROCEDURE(BGl_proc2437z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2564za7);
		BGL_BIND_STRING(BGl_string2361z00zz__install_expandersz00,
			BgL_bgl_string2361za700za7za7_2563za7);
		BGL_BIND_STRING(BGl_string2442z00zz__install_expandersz00,
			BgL_bgl_string2442za700za7za7_2562za7);
		BGL_BIND_PROCEDURE(BGl_proc2434z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2561za7);
		BGL_BIND_STRING(BGl_string2358z00zz__install_expandersz00,
			BgL_bgl_string2358za700za7za7_2560za7);
		BGL_BIND_STRING(BGl_string2439z00zz__install_expandersz00,
			BgL_bgl_string2439za700za7za7_2559za7);
		BGL_BIND_STRING(BGl_string2356z00zz__install_expandersz00,
			BgL_bgl_string2356za700za7za7_2558za7);
		BGL_BIND_STRING(BGl_string2436z00zz__install_expandersz00,
			BgL_bgl_string2436za700za7za7_2557za7);
		BGL_BIND_STRING(BGl_string2354z00zz__install_expandersz00,
			BgL_bgl_string2354za700za7za7_2556za7);
		BGL_BIND_PROCEDURE(BGl_proc2348z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2555za7);
		BGL_BIND_STRING(BGl_string2352z00zz__install_expandersz00,
			BgL_bgl_string2352za700za7za7_2554za7);
		BGL_BIND_STRING(BGl_string2433z00zz__install_expandersz00,
			BgL_bgl_string2433za700za7za7_2553za7);
		BGL_BIND_PROCEDURE(BGl_proc2345z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2552za7);
		BGL_BIND_STRING(BGl_string2431z00zz__install_expandersz00,
			BgL_bgl_string2431za700za7za7_2551za7);
		BGL_BIND_STRING(BGl_string2350z00zz__install_expandersz00,
			BgL_bgl_string2350za700za7za7_2550za7);
		BGL_BIND_PROCEDURE(BGl_proc2342z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2549za7);
		BGL_BIND_STRING(BGl_string2429z00zz__install_expandersz00,
			BgL_bgl_string2429za700za7za7_2548za7);
		BGL_BIND_STRING(BGl_string2347z00zz__install_expandersz00,
			BgL_bgl_string2347za700za7za7_2547za7);
		BGL_BIND_STRING(BGl_string2427z00zz__install_expandersz00,
			BgL_bgl_string2427za700za7za7_2546za7);
		BGL_BIND_PROCEDURE(BGl_proc2339z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2545za7);
		BGL_BIND_STRING(BGl_string2425z00zz__install_expandersz00,
			BgL_bgl_string2425za700za7za7_2544za7);
		BGL_BIND_STRING(BGl_string2344z00zz__install_expandersz00,
			BgL_bgl_string2344za700za7za7_2543za7);
		BGL_BIND_STRING(BGl_string2423z00zz__install_expandersz00,
			BgL_bgl_string2423za700za7za7_2542za7);
		BGL_BIND_PROCEDURE(BGl_proc2336z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2541za7);
		BGL_BIND_STRING(BGl_string2341z00zz__install_expandersz00,
			BgL_bgl_string2341za700za7za7_2540za7);
		BGL_BIND_STRING(BGl_string2421z00zz__install_expandersz00,
			BgL_bgl_string2421za700za7za7_2539za7);
		BGL_BIND_PROCEDURE(BGl_proc2333z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2538za7);
		BGL_BIND_STRING(BGl_string2501z00zz__install_expandersz00,
			BgL_bgl_string2501za700za7za7_2537za7);
		BGL_BIND_STRING(BGl_string2500z00zz__install_expandersz00,
			BgL_bgl_string2500za700za7za7_2536za7);
		BGL_BIND_PROCEDURE(BGl_proc2330z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2535za7);
		BGL_BIND_STRING(BGl_string2419z00zz__install_expandersz00,
			BgL_bgl_string2419za700za7za7_2534za7);
		BGL_BIND_STRING(BGl_string2338z00zz__install_expandersz00,
			BgL_bgl_string2338za700za7za7_2533za7);
		BGL_BIND_STRING(BGl_string2417z00zz__install_expandersz00,
			BgL_bgl_string2417za700za7za7_2532za7);
		BGL_BIND_STRING(BGl_string2335z00zz__install_expandersz00,
			BgL_bgl_string2335za700za7za7_2531za7);
		BGL_BIND_STRING(BGl_string2415z00zz__install_expandersz00,
			BgL_bgl_string2415za700za7za7_2530za7);
		BGL_BIND_PROCEDURE(BGl_proc2327z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2529za7);
		BGL_BIND_STRING(BGl_string2413z00zz__install_expandersz00,
			BgL_bgl_string2413za700za7za7_2528za7);
		BGL_BIND_STRING(BGl_string2332z00zz__install_expandersz00,
			BgL_bgl_string2332za700za7za7_2527za7);
		BGL_BIND_STRING(BGl_string2411z00zz__install_expandersz00,
			BgL_bgl_string2411za700za7za7_2526za7);
		BGL_BIND_PROCEDURE(BGl_proc2405z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2525za7);
		BGL_BIND_PROCEDURE(BGl_proc2324z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2524za7);
		BGL_BIND_PROCEDURE(BGl_proc2402z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2523za7);
		BGL_BIND_PROCEDURE(BGl_proc2321z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2522za7);
		BGL_BIND_STRING(BGl_string2329z00zz__install_expandersz00,
			BgL_bgl_string2329za700za7za7_2521za7);
		BGL_BIND_STRING(BGl_string2409z00zz__install_expandersz00,
			BgL_bgl_string2409za700za7za7_2520za7);
		BGL_BIND_STRING(BGl_string2407z00zz__install_expandersz00,
			BgL_bgl_string2407za700za7za7_2519za7);
		BGL_BIND_STRING(BGl_string2326z00zz__install_expandersz00,
			BgL_bgl_string2326za700za7za7_2518za7);
		BGL_BIND_PROCEDURE(BGl_proc2318z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2517za7);
		BGL_BIND_STRING(BGl_string2404z00zz__install_expandersz00,
			BgL_bgl_string2404za700za7za7_2516za7);
		BGL_BIND_STRING(BGl_string2323z00zz__install_expandersz00,
			BgL_bgl_string2323za700za7za7_2515za7);
		BGL_BIND_PROCEDURE(BGl_proc2315z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2514za7);
		BGL_BIND_STRING(BGl_string2401z00zz__install_expandersz00,
			BgL_bgl_string2401za700za7za7_2513za7);
		BGL_BIND_STRING(BGl_string2320z00zz__install_expandersz00,
			BgL_bgl_string2320za700za7za7_2512za7);
		BGL_BIND_PROCEDURE(BGl_proc2312z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2511za7);
		BGL_BIND_STRING(BGl_string2317z00zz__install_expandersz00,
			BgL_bgl_string2317za700za7za7_2510za7);
		BGL_BIND_PROCEDURE(BGl_proc2309z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2509za7);
		BGL_BIND_STRING(BGl_string2314z00zz__install_expandersz00,
			BgL_bgl_string2314za700za7za7_2508za7);
		BGL_BIND_PROCEDURE(BGl_proc2306z00zz__install_expandersz00,
			BgL_bgl_za762za7c3za704anonymo2507za7);
		BGL_BIND_STRING(BGl_string2311z00zz__install_expandersz00,
			BgL_bgl_string2311za700za7za7_2506za7);
		BGL_BIND_STRING(BGl_string2308z00zz__install_expandersz00,
			BgL_bgl_string2308za700za7za7_2505za7);
		BGL_BIND_STRING(BGl_string2305z00zz__install_expandersz00,
			BgL_bgl_string2305za700za7za7_2504za7);
		BGL_BIND_STRING(BGl_string2303z00zz__install_expandersz00,
			BgL_bgl_string2303za700za7za7_2503za7);
		BGL_BIND_STRING(BGl_string2301z00zz__install_expandersz00,
			BgL_bgl_string2301za700za7za7_2502za7);
	}

/* 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_symbol2481z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2483z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2486z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2491z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2493z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2495z00zz__install_expandersz00));
		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_list2485z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_list2490z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2300z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2302z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2304z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2307z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2310z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2313z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2316z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2319z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2400z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2322z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2403z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2325z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2406z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2408z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2328z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2410z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2331z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2412z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2414z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2334z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2416z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2337z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2418z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2420z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2340z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2422z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2343z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2424z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2426z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2346z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2428z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2349z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_keyword2478z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2430z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2351z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2432z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2353z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2435z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2355z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2438z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2357z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2441z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2360z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2443z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2363z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2446z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2366z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2448z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2369z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2450z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2452z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2371z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2373z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2455z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2375z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2457z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2377z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2459z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2298z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2379z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2462z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2381z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2464z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2383z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2466z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2385z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2468z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2387z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2389z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2470z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2472z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2391z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2474z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2394z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2476z00zz__install_expandersz00));
		ADD_ROOT((void *) (&BGl_symbol2397z00zz__install_expandersz00));
#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__install_expandersz00(long
		BgL_checksumz00_4598, char *BgL_fromz00_4599)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__install_expandersz00))
				{
					BGl_requirezd2initializa7ationz75zz__install_expandersz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__install_expandersz00();
					BGl_cnstzd2initzd2zz__install_expandersz00();
					BGl_importedzd2moduleszd2initz00zz__install_expandersz00();
					return BGl_toplevelzd2initzd2zz__install_expandersz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__install_expandersz00(void)
	{
		{	/* Eval/expanders.scm 15 */
			BGl_symbol2298z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2299z00zz__install_expandersz00);
			BGl_symbol2300z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2301z00zz__install_expandersz00);
			BGl_symbol2302z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2303z00zz__install_expandersz00);
			BGl_symbol2304z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2305z00zz__install_expandersz00);
			BGl_symbol2307z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2308z00zz__install_expandersz00);
			BGl_symbol2310z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2311z00zz__install_expandersz00);
			BGl_symbol2313z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2314z00zz__install_expandersz00);
			BGl_symbol2316z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2317z00zz__install_expandersz00);
			BGl_symbol2319z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2320z00zz__install_expandersz00);
			BGl_symbol2322z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2323z00zz__install_expandersz00);
			BGl_symbol2325z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2326z00zz__install_expandersz00);
			BGl_symbol2328z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2329z00zz__install_expandersz00);
			BGl_symbol2331z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2332z00zz__install_expandersz00);
			BGl_symbol2334z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2335z00zz__install_expandersz00);
			BGl_symbol2337z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2338z00zz__install_expandersz00);
			BGl_symbol2340z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2341z00zz__install_expandersz00);
			BGl_symbol2343z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2344z00zz__install_expandersz00);
			BGl_symbol2346z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2347z00zz__install_expandersz00);
			BGl_symbol2349z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2350z00zz__install_expandersz00);
			BGl_symbol2351z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2352z00zz__install_expandersz00);
			BGl_symbol2353z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2354z00zz__install_expandersz00);
			BGl_symbol2355z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2356z00zz__install_expandersz00);
			BGl_symbol2357z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2358z00zz__install_expandersz00);
			BGl_symbol2360z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2361z00zz__install_expandersz00);
			BGl_symbol2363z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2364z00zz__install_expandersz00);
			BGl_symbol2366z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2367z00zz__install_expandersz00);
			BGl_symbol2369z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2370z00zz__install_expandersz00);
			BGl_symbol2371z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2372z00zz__install_expandersz00);
			BGl_symbol2373z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2374z00zz__install_expandersz00);
			BGl_symbol2375z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2376z00zz__install_expandersz00);
			BGl_symbol2377z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2378z00zz__install_expandersz00);
			BGl_symbol2379z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2380z00zz__install_expandersz00);
			BGl_symbol2381z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2382z00zz__install_expandersz00);
			BGl_symbol2383z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2384z00zz__install_expandersz00);
			BGl_symbol2385z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2386z00zz__install_expandersz00);
			BGl_symbol2387z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2388z00zz__install_expandersz00);
			BGl_symbol2389z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2390z00zz__install_expandersz00);
			BGl_symbol2391z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2392z00zz__install_expandersz00);
			BGl_symbol2394z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2395z00zz__install_expandersz00);
			BGl_symbol2397z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2398z00zz__install_expandersz00);
			BGl_symbol2400z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2401z00zz__install_expandersz00);
			BGl_symbol2403z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2404z00zz__install_expandersz00);
			BGl_symbol2406z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2407z00zz__install_expandersz00);
			BGl_symbol2408z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2409z00zz__install_expandersz00);
			BGl_symbol2410z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2411z00zz__install_expandersz00);
			BGl_symbol2412z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2413z00zz__install_expandersz00);
			BGl_symbol2414z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2415z00zz__install_expandersz00);
			BGl_symbol2416z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2417z00zz__install_expandersz00);
			BGl_symbol2418z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2419z00zz__install_expandersz00);
			BGl_symbol2420z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2421z00zz__install_expandersz00);
			BGl_symbol2422z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2423z00zz__install_expandersz00);
			BGl_symbol2424z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2425z00zz__install_expandersz00);
			BGl_symbol2426z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2427z00zz__install_expandersz00);
			BGl_symbol2428z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2429z00zz__install_expandersz00);
			BGl_symbol2430z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2431z00zz__install_expandersz00);
			BGl_symbol2432z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2433z00zz__install_expandersz00);
			BGl_symbol2435z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2436z00zz__install_expandersz00);
			BGl_symbol2438z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2439z00zz__install_expandersz00);
			BGl_symbol2441z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2442z00zz__install_expandersz00);
			BGl_symbol2443z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2444z00zz__install_expandersz00);
			BGl_symbol2446z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2447z00zz__install_expandersz00);
			BGl_symbol2448z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2449z00zz__install_expandersz00);
			BGl_symbol2450z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2451z00zz__install_expandersz00);
			BGl_symbol2452z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2453z00zz__install_expandersz00);
			BGl_symbol2455z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2456z00zz__install_expandersz00);
			BGl_symbol2457z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2458z00zz__install_expandersz00);
			BGl_symbol2459z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2460z00zz__install_expandersz00);
			BGl_symbol2462z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2463z00zz__install_expandersz00);
			BGl_symbol2464z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2465z00zz__install_expandersz00);
			BGl_symbol2466z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2467z00zz__install_expandersz00);
			BGl_symbol2468z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2469z00zz__install_expandersz00);
			BGl_symbol2470z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2471z00zz__install_expandersz00);
			BGl_symbol2472z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2473z00zz__install_expandersz00);
			BGl_symbol2474z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2475z00zz__install_expandersz00);
			BGl_symbol2476z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2477z00zz__install_expandersz00);
			BGl_keyword2478z00zz__install_expandersz00 =
				bstring_to_keyword(BGl_string2479z00zz__install_expandersz00);
			BGl_symbol2481z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2482z00zz__install_expandersz00);
			BGl_symbol2483z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2484z00zz__install_expandersz00);
			BGl_symbol2486z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2487z00zz__install_expandersz00);
			BGl_list2485z00zz__install_expandersz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2310z00zz__install_expandersz00,
				MAKE_YOUNG_PAIR(BGl_symbol2375z00zz__install_expandersz00,
					MAKE_YOUNG_PAIR(BGl_symbol2486z00zz__install_expandersz00, BNIL)));
			BGl_symbol2491z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2492z00zz__install_expandersz00);
			BGl_list2490z00zz__install_expandersz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2491z00zz__install_expandersz00, BNIL);
			BGl_symbol2493z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2494z00zz__install_expandersz00);
			return (BGl_symbol2495z00zz__install_expandersz00 =
				bstring_to_symbol(BGl_string2496z00zz__install_expandersz00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__install_expandersz00(void)
	{
		{	/* Eval/expanders.scm 15 */
			BGl_za2expanderszd2installedzd2pza2z00zz__install_expandersz00 =
				((bool_t) 0);
			if (BGl_za2expanderszd2installedzd2pza2z00zz__install_expandersz00)
				{	/* Eval/expanders.scm 109 */
					return BFALSE;
				}
			else
				{	/* Eval/expanders.scm 109 */
					BGl_za2expanderszd2installedzd2pza2z00zz__install_expandersz00 =
						((bool_t) 1);
					BGL_TAIL return
						BGl_z52installzd2allzd2expandersz12z40zz__install_expandersz00();
				}
		}

	}



/* expand-test */
	obj_t BGl_expandzd2testzd2zz__install_expandersz00(obj_t BgL_xz00_3,
		obj_t BgL_ez00_4)
	{
		{	/* Eval/expanders.scm 80 */
			if (CBOOL(BGl_za2nilza2z00zz__evalz00))
				{	/* Eval/expanders.scm 81 */
					return BGL_PROCEDURE_CALL2(BgL_ez00_4, BgL_xz00_3, BgL_ez00_4);
				}
			else
				{	/* Eval/expanders.scm 83 */
					obj_t BgL_arg1252z00_1217;
					obj_t BgL_arg1253z00_1218;

					{	/* Eval/expanders.scm 83 */
						obj_t BgL_arg1254z00_1219;

						{	/* Eval/expanders.scm 83 */
							obj_t BgL_arg1258z00_1220;
							obj_t BgL_arg1259z00_1221;

							BgL_arg1258z00_1220 =
								MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__install_expandersz00,
								BNIL);
							{	/* Eval/expanders.scm 85 */
								obj_t BgL_arg1261z00_1222;

								{	/* Eval/expanders.scm 85 */
									obj_t BgL_arg1262z00_1223;

									{	/* Eval/expanders.scm 85 */
										obj_t BgL_arg1263z00_1224;

										{	/* Eval/expanders.scm 85 */
											obj_t BgL_arg1265z00_1225;
											obj_t BgL_arg1266z00_1226;

											{	/* Eval/expanders.scm 85 */
												obj_t BgL_arg1267z00_1227;

												{	/* Eval/expanders.scm 85 */
													obj_t BgL_arg1269z00_1228;
													obj_t BgL_arg1271z00_1229;

													{	/* Eval/expanders.scm 85 */
														obj_t BgL_arg1274z00_1230;

														BgL_arg1274z00_1230 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2298z00zz__install_expandersz00, BNIL);
														BgL_arg1269z00_1228 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2300z00zz__install_expandersz00,
															BgL_arg1274z00_1230);
													}
													{	/* Eval/expanders.scm 85 */
														obj_t BgL_arg1276z00_1231;

														BgL_arg1276z00_1231 = MAKE_YOUNG_PAIR(BTRUE, BNIL);
														BgL_arg1271z00_1229 =
															MAKE_YOUNG_PAIR(BFALSE, BgL_arg1276z00_1231);
													}
													BgL_arg1267z00_1227 =
														MAKE_YOUNG_PAIR(BgL_arg1269z00_1228,
														BgL_arg1271z00_1229);
												}
												BgL_arg1265z00_1225 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2302z00zz__install_expandersz00,
													BgL_arg1267z00_1227);
											}
											BgL_arg1266z00_1226 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
											BgL_arg1263z00_1224 =
												MAKE_YOUNG_PAIR(BgL_arg1265z00_1225,
												BgL_arg1266z00_1226);
										}
										BgL_arg1262z00_1223 =
											MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__install_expandersz00,
											BgL_arg1263z00_1224);
									}
									BgL_arg1261z00_1222 =
										MAKE_YOUNG_PAIR(BGl_symbol2302z00zz__install_expandersz00,
										BgL_arg1262z00_1223);
								}
								BgL_arg1259z00_1221 =
									MAKE_YOUNG_PAIR(BgL_arg1261z00_1222, BNIL);
							}
							BgL_arg1254z00_1219 =
								MAKE_YOUNG_PAIR(BgL_arg1258z00_1220, BgL_arg1259z00_1221);
						}
						BgL_arg1252z00_1217 =
							MAKE_YOUNG_PAIR(BGl_symbol2304z00zz__install_expandersz00,
							BgL_arg1254z00_1219);
					}
					{	/* Eval/expanders.scm 89 */
						obj_t BgL_arg1278z00_1232;

						BgL_arg1278z00_1232 =
							BGL_PROCEDURE_CALL2(BgL_ez00_4, BgL_xz00_3, BgL_ez00_4);
						BgL_arg1253z00_1218 = MAKE_YOUNG_PAIR(BgL_arg1278z00_1232, BNIL);
					}
					return MAKE_YOUNG_PAIR(BgL_arg1252z00_1217, BgL_arg1253z00_1218);
				}
		}

	}



/* expand-error */
	obj_t BGl_expandzd2errorzd2zz__install_expandersz00(obj_t BgL_pz00_5,
		obj_t BgL_mz00_6, obj_t BgL_xz00_7)
	{
		{	/* Eval/expanders.scm 94 */
			{	/* Eval/expanders.scm 95 */
				obj_t BgL_locz00_1233;

				if (EPAIRP(BgL_xz00_7))
					{	/* Eval/expanders.scm 95 */
						BgL_locz00_1233 = CER(((obj_t) BgL_xz00_7));
					}
				else
					{	/* Eval/expanders.scm 95 */
						BgL_locz00_1233 = BFALSE;
					}
				{	/* Eval/expanders.scm 96 */
					bool_t BgL_test2631z00_4729;

					if (PAIRP(BgL_locz00_1233))
						{	/* Eval/expanders.scm 96 */
							bool_t BgL_test2633z00_4732;

							{	/* Eval/expanders.scm 96 */
								obj_t BgL_tmpz00_4733;

								BgL_tmpz00_4733 = CDR(BgL_locz00_1233);
								BgL_test2633z00_4732 = PAIRP(BgL_tmpz00_4733);
							}
							if (BgL_test2633z00_4732)
								{	/* Eval/expanders.scm 96 */
									obj_t BgL_tmpz00_4736;

									BgL_tmpz00_4736 = CDR(CDR(BgL_locz00_1233));
									BgL_test2631z00_4729 = PAIRP(BgL_tmpz00_4736);
								}
							else
								{	/* Eval/expanders.scm 96 */
									BgL_test2631z00_4729 = ((bool_t) 0);
								}
						}
					else
						{	/* Eval/expanders.scm 96 */
							BgL_test2631z00_4729 = ((bool_t) 0);
						}
					if (BgL_test2631z00_4729)
						{	/* Eval/expanders.scm 96 */
							return
								BGl_errorzf2locationzf2zz__errorz00(BgL_pz00_5, BgL_mz00_6,
								BgL_xz00_7, CAR(CDR(BgL_locz00_1233)),
								CAR(CDR(CDR(BgL_locz00_1233))));
						}
					else
						{	/* Eval/expanders.scm 96 */
							return
								BGl_errorz00zz__errorz00(BgL_pz00_5, BgL_mz00_6, BgL_xz00_7);
						}
				}
			}
		}

	}



/* install-all-expanders! */
	BGL_EXPORTED_DEF obj_t
		BGl_installzd2allzd2expandersz12z12zz__install_expandersz00(void)
	{
		{	/* Eval/expanders.scm 108 */
			if (BGl_za2expanderszd2installedzd2pza2z00zz__install_expandersz00)
				{	/* Eval/expanders.scm 109 */
					return BFALSE;
				}
			else
				{	/* Eval/expanders.scm 109 */
					BGl_za2expanderszd2installedzd2pza2z00zz__install_expandersz00 =
						((bool_t) 1);
					BGL_TAIL return
						BGl_z52installzd2allzd2expandersz12z40zz__install_expandersz00();
				}
		}

	}



/* &install-all-expanders! */
	obj_t BGl_z62installzd2allzd2expandersz12z70zz__install_expandersz00(obj_t
		BgL_envz00_3912)
	{
		{	/* Eval/expanders.scm 108 */
			return BGl_installzd2allzd2expandersz12z12zz__install_expandersz00();
		}

	}



/* %install-all-expanders! */
	obj_t BGl_z52installzd2allzd2expandersz12z40zz__install_expandersz00(void)
	{
		{	/* Eval/expanders.scm 122 */
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2307z00zz__install_expandersz00,
				BGl_proc2306z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2310z00zz__install_expandersz00,
				BGl_proc2309z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2313z00zz__install_expandersz00,
				BGl_proc2312z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2316z00zz__install_expandersz00,
				BGl_proc2315z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2319z00zz__install_expandersz00,
				BGl_proc2318z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2322z00zz__install_expandersz00,
				BGl_proc2321z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2325z00zz__install_expandersz00,
				BGl_proc2324z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2328z00zz__install_expandersz00,
				BGl_proc2327z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2331z00zz__install_expandersz00,
				BGl_proc2330z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2334z00zz__install_expandersz00,
				BGl_proc2333z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2337z00zz__install_expandersz00,
				BGl_proc2336z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2340z00zz__install_expandersz00,
				BGl_proc2339z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2343z00zz__install_expandersz00,
				BGl_proc2342z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2346z00zz__install_expandersz00,
				BGl_proc2345z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2349z00zz__install_expandersz00,
				BGl_proc2348z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2351z00zz__install_expandersz00,
				BGl_expandzd2regularzd2grammarzd2envzd2zz__rgc_expandz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2353z00zz__install_expandersz00,
				BGl_expandzd2stringzd2casezd2envzd2zz__rgc_expandz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2355z00zz__install_expandersz00,
				BGl_expandzd2lalrzd2grammarzd2envzd2zz__lalr_expandz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2357z00zz__install_expandersz00,
				BGl_expandzd2beginzd2envz00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2360z00zz__install_expandersz00,
				BGl_proc2359z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2363z00zz__install_expandersz00,
				BGl_proc2362z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2366z00zz__install_expandersz00,
				BGl_proc2365z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2369z00zz__install_expandersz00,
				BGl_proc2368z00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2371z00zz__install_expandersz00,
				BGl_expandzd2definezd2recordzd2typezd2envz00zz__expander_recordz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2373z00zz__install_expandersz00,
				BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2375z00zz__install_expandersz00,
				BGl_expandzd2tprintzd2envz00zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2377z00zz__install_expandersz00,
				BGl_expandzd2andzd2letza2zd2envz70zz__install_expandersz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2379z00zz__install_expandersz00,
				BGl_expandzd2definezd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2381z00zz__install_expandersz00,
				BGl_expandzd2letreczd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00);
			BGl_installzd2expanderzd2zz__macroz00
				(BGl_symbol2383z00zz__install_expandersz00,
				BGl_expandzd2letzd2syntaxzd2envzd2zz__r5_macro_4_3_syntaxz00);
			{	/* Eval/expanders.scm 276 */
				obj_t BgL_arg1458z00_1497;

				BgL_arg1458z00_1497 =
					BGl_makezd2expandzd2whenzd2tracezd2zz__expander_tracez00
					(BGl_symbol2385z00zz__install_expandersz00);
				BGl_installzd2compilerzd2expanderz00zz__macroz00
					(BGl_symbol2387z00zz__install_expandersz00, BgL_arg1458z00_1497);
			}
			{	/* Eval/expanders.scm 277 */
				obj_t BgL_arg1459z00_1498;

				BgL_arg1459z00_1498 =
					BGl_makezd2expandzd2withzd2tracezd2zz__expander_tracez00
					(BGl_symbol2385z00zz__install_expandersz00);
				BGl_installzd2compilerzd2expanderz00zz__macroz00
					(BGl_symbol2389z00zz__install_expandersz00, BgL_arg1459z00_1498);
			}
			{	/* Eval/expanders.scm 278 */
				obj_t BgL_arg1460z00_1499;

				BgL_arg1460z00_1499 =
					BGl_makezd2expandzd2tracezd2itemzd2zz__expander_tracez00
					(BGl_symbol2385z00zz__install_expandersz00);
				BGl_installzd2compilerzd2expanderz00zz__macroz00
					(BGl_symbol2391z00zz__install_expandersz00, BgL_arg1460z00_1499);
			}
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2394z00zz__install_expandersz00,
				BGl_proc2393z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2397z00zz__install_expandersz00,
				BGl_proc2396z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2400z00zz__install_expandersz00,
				BGl_proc2399z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2403z00zz__install_expandersz00,
				BGl_proc2402z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2406z00zz__install_expandersz00,
				BGl_proc2405z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2302z00zz__install_expandersz00,
				BGl_expandzd2ifzd2envz00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2304z00zz__install_expandersz00,
				BGl_expandzd2evalzd2lambdazd2envzd2zz__expander_definez00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2408z00zz__install_expandersz00,
				BGl_expandzd2evalzd2letzd2envzd2zz__expander_letz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2410z00zz__install_expandersz00,
				BGl_expandzd2evalzd2z42letzd2envz90zz__expander_letz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2412z00zz__install_expandersz00,
				BGl_expandzd2evalzd2letza2zd2envz70zz__expander_letz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2414z00zz__install_expandersz00,
				BGl_expandzd2evalzd2letreczd2envzd2zz__expander_letz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2416z00zz__install_expandersz00,
				BGl_expandzd2evalzd2letrecza2zd2envz70zz__expander_letz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2418z00zz__install_expandersz00,
				BGl_expandzd2evalzd2labelszd2envzd2zz__expander_letz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2420z00zz__install_expandersz00,
				BGl_expandzd2evalzd2definezd2envzd2zz__expander_definez00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2422z00zz__install_expandersz00,
				BGl_expandzd2evalzd2definezd2inlinezd2envz00zz__expander_definez00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2424z00zz__install_expandersz00,
				BGl_expandzd2evalzd2definezd2genericzd2envz00zz__expander_definez00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2426z00zz__install_expandersz00,
				BGl_expandzd2evalzd2definezd2methodzd2envz00zz__expander_definez00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2428z00zz__install_expandersz00,
				BGl_expandzd2evalzd2definezd2structzd2envz00zz__expander_structz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2430z00zz__install_expandersz00,
				BGl_expandzd2evalzd2casezd2envzd2zz__expander_casez00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2432z00zz__install_expandersz00,
				BGl_expandzd2evalzd2condzd2expandzd2envz00zz__expander_srfi0z00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2435z00zz__install_expandersz00,
				BGl_proc2434z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2438z00zz__install_expandersz00,
				BGl_proc2437z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2441z00zz__install_expandersz00,
				BGl_proc2440z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2443z00zz__install_expandersz00,
				BGl_evalzd2cozd2instantiatezd2expanderzd2envz00zz__evobjectz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2446z00zz__install_expandersz00,
				BGl_proc2445z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2448z00zz__install_expandersz00,
				BGl_proc2445z00zz__install_expandersz00);
			BGl_installzd2evalzd2expanderz00zz__macroz00
				(BGl_symbol2450z00zz__install_expandersz00,
				BGl_proc2445z00zz__install_expandersz00);
			{	/* Eval/expanders.scm 489 */
				obj_t BgL_arg1793z00_1958;

				BgL_arg1793z00_1958 =
					BGl_makezd2expandzd2whenzd2tracezd2zz__expander_tracez00
					(BGl_symbol2452z00zz__install_expandersz00);
				BGl_installzd2evalzd2expanderz00zz__macroz00
					(BGl_symbol2387z00zz__install_expandersz00, BgL_arg1793z00_1958);
			}
			{	/* Eval/expanders.scm 490 */
				obj_t BgL_arg1794z00_1959;

				BgL_arg1794z00_1959 =
					BGl_makezd2expandzd2withzd2tracezd2zz__expander_tracez00
					(BGl_symbol2452z00zz__install_expandersz00);
				BGl_installzd2evalzd2expanderz00zz__macroz00
					(BGl_symbol2389z00zz__install_expandersz00, BgL_arg1794z00_1959);
			}
			{	/* Eval/expanders.scm 491 */
				obj_t BgL_arg1795z00_1960;

				BgL_arg1795z00_1960 =
					BGl_makezd2expandzd2tracezd2itemzd2zz__expander_tracez00
					(BGl_symbol2452z00zz__install_expandersz00);
				return
					BGl_installzd2evalzd2expanderz00zz__macroz00
					(BGl_symbol2391z00zz__install_expandersz00, BgL_arg1795z00_1960);
			}
		}

	}



/* &e */
	obj_t BGl_z62ez62zz__install_expandersz00(obj_t BgL_envz00_3941,
		obj_t BgL_xz00_3942, obj_t BgL_ez00_3943)
	{
		{	/* Eval/expanders.scm 483 */
			{	/* Eval/expanders.scm 483 */
				obj_t BgL_arg1792z00_4188;

				BgL_arg1792z00_4188 =
					BGl_evmodulezd2staticzd2classz00zz__evmodulez00(BgL_xz00_3942);
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_3943, BgL_arg1792z00_4188,
					BgL_ez00_3943);
			}
		}

	}



/* &<@anonymous:1788> */
	obj_t BGl_z62zc3z04anonymousza31788ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3944, obj_t BgL_xz00_3945, obj_t BgL_ez00_3946)
	{
		{	/* Eval/expanders.scm 474 */
			if (PAIRP(BgL_xz00_3945))
				{	/* Eval/expanders.scm 474 */
					obj_t BgL_arg1790z00_4189;

					BgL_arg1790z00_4189 = CAR(((obj_t) BgL_xz00_3945));
					return
						BGl_expandzd2errorzd2zz__install_expandersz00(BgL_arg1790z00_4189,
						BGl_string2454z00zz__install_expandersz00, BgL_xz00_3945);
				}
			else
				{	/* Eval/expanders.scm 474 */
					return BFALSE;
				}
		}

	}



/* &<@anonymous:1784> */
	obj_t BGl_z62zc3z04anonymousza31784ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3947, obj_t BgL_xz00_3948, obj_t BgL_ez00_3949)
	{
		{	/* Eval/expanders.scm 467 */
			if (PAIRP(BgL_xz00_3948))
				{	/* Eval/expanders.scm 467 */
					obj_t BgL_arg1786z00_4190;

					BgL_arg1786z00_4190 = CAR(((obj_t) BgL_xz00_3948));
					return
						BGl_expandzd2errorzd2zz__install_expandersz00(BgL_arg1786z00_4190,
						BGl_string2454z00zz__install_expandersz00, BgL_xz00_3948);
				}
			else
				{	/* Eval/expanders.scm 467 */
					return BFALSE;
				}
		}

	}



/* &<@anonymous:1745> */
	obj_t BGl_z62zc3z04anonymousza31745ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3950, obj_t BgL_xz00_3951, obj_t BgL_ez00_3952)
	{
		{	/* Eval/expanders.scm 438 */
			{
				obj_t BgL_lblz00_4192;
				obj_t BgL_exprsz00_4193;

				if (PAIRP(BgL_xz00_3951))
					{	/* Eval/expanders.scm 438 */
						obj_t BgL_cdrzd2533zd2_4228;

						BgL_cdrzd2533zd2_4228 = CDR(((obj_t) BgL_xz00_3951));
						if (PAIRP(BgL_cdrzd2533zd2_4228))
							{	/* Eval/expanders.scm 438 */
								obj_t BgL_carzd2536zd2_4229;

								BgL_carzd2536zd2_4229 = CAR(BgL_cdrzd2533zd2_4228);
								if (SYMBOLP(BgL_carzd2536zd2_4229))
									{	/* Eval/expanders.scm 438 */
										BgL_lblz00_4192 = BgL_carzd2536zd2_4229;
										BgL_exprsz00_4193 = CDR(BgL_cdrzd2533zd2_4228);
										{	/* Eval/expanders.scm 441 */
											obj_t BgL_laz00_4194;

											{	/* Eval/expanders.scm 441 */
												obj_t BgL_arg1782z00_4195;

												BgL_arg1782z00_4195 =
													MAKE_YOUNG_PAIR(BNIL, BgL_exprsz00_4193);
												BgL_laz00_4194 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2304z00zz__install_expandersz00,
													BgL_arg1782z00_4195);
											}
											{	/* Eval/expanders.scm 441 */
												obj_t BgL_lamz00_4196;

												if (EPAIRP(BgL_xz00_3951))
													{	/* Eval/expanders.scm 443 */
														obj_t BgL_arg1778z00_4197;
														obj_t BgL_arg1779z00_4198;
														obj_t BgL_arg1781z00_4199;

														BgL_arg1778z00_4197 = CAR(BgL_laz00_4194);
														BgL_arg1779z00_4198 = CDR(BgL_laz00_4194);
														BgL_arg1781z00_4199 = CER(((obj_t) BgL_xz00_3951));
														{	/* Eval/expanders.scm 443 */
															obj_t BgL_res2250z00_4200;

															BgL_res2250z00_4200 =
																MAKE_YOUNG_EPAIR(BgL_arg1778z00_4197,
																BgL_arg1779z00_4198, BgL_arg1781z00_4199);
															BgL_lamz00_4196 = BgL_res2250z00_4200;
														}
													}
												else
													{	/* Eval/expanders.scm 442 */
														BgL_lamz00_4196 = BgL_laz00_4194;
													}
												{	/* Eval/expanders.scm 442 */
													obj_t BgL_valz00_4201;

													BgL_valz00_4201 =
														BGl_gensymz00zz__r4_symbols_6_4z00
														(BGl_symbol2455z00zz__install_expandersz00);
													{	/* Eval/expanders.scm 447 */
														obj_t BgL_auxz00_4202;

														{	/* Eval/expanders.scm 449 */
															obj_t BgL_arg1757z00_4203;

															{	/* Eval/expanders.scm 449 */
																obj_t BgL_arg1758z00_4204;
																obj_t BgL_arg1759z00_4205;

																{	/* Eval/expanders.scm 449 */
																	obj_t BgL_arg1760z00_4206;

																	{	/* Eval/expanders.scm 449 */
																		obj_t BgL_arg1761z00_4207;

																		BgL_arg1761z00_4207 =
																			MAKE_YOUNG_PAIR(BgL_lamz00_4196, BNIL);
																		BgL_arg1760z00_4206 =
																			MAKE_YOUNG_PAIR(BgL_lblz00_4192,
																			BgL_arg1761z00_4207);
																	}
																	BgL_arg1758z00_4204 =
																		MAKE_YOUNG_PAIR(BgL_arg1760z00_4206, BNIL);
																}
																{	/* Eval/expanders.scm 451 */
																	obj_t BgL_arg1762z00_4208;
																	obj_t BgL_arg1763z00_4209;

																	{	/* Eval/expanders.scm 451 */
																		obj_t BgL_arg1764z00_4210;

																		{	/* Eval/expanders.scm 451 */
																			obj_t BgL_arg1765z00_4211;
																			obj_t BgL_arg1766z00_4212;

																			{	/* Eval/expanders.scm 451 */
																				obj_t BgL_arg2070z00_4213;

																				BgL_arg2070z00_4213 =
																					SYMBOL_TO_STRING(BgL_lblz00_4192);
																				BgL_arg1765z00_4211 =
																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																					(BgL_arg2070z00_4213);
																			}
																			BgL_arg1766z00_4212 =
																				MAKE_YOUNG_PAIR(BgL_lblz00_4192, BNIL);
																			BgL_arg1764z00_4210 =
																				MAKE_YOUNG_PAIR(BgL_arg1765z00_4211,
																				BgL_arg1766z00_4212);
																		}
																		BgL_arg1762z00_4208 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2457z00zz__install_expandersz00,
																			BgL_arg1764z00_4210);
																	}
																	{	/* Eval/expanders.scm 453 */
																		obj_t BgL_arg1767z00_4214;

																		{	/* Eval/expanders.scm 453 */
																			obj_t BgL_arg1768z00_4215;

																			{	/* Eval/expanders.scm 453 */
																				obj_t BgL_arg1769z00_4216;
																				obj_t BgL_arg1770z00_4217;

																				{	/* Eval/expanders.scm 453 */
																					obj_t BgL_arg1771z00_4218;

																					{	/* Eval/expanders.scm 453 */
																						obj_t BgL_arg1772z00_4219;

																						{	/* Eval/expanders.scm 453 */
																							obj_t BgL_arg1773z00_4220;

																							BgL_arg1773z00_4220 =
																								MAKE_YOUNG_PAIR(BgL_lblz00_4192,
																								BNIL);
																							BgL_arg1772z00_4219 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1773z00_4220, BNIL);
																						}
																						BgL_arg1771z00_4218 =
																							MAKE_YOUNG_PAIR(BgL_valz00_4201,
																							BgL_arg1772z00_4219);
																					}
																					BgL_arg1769z00_4216 =
																						MAKE_YOUNG_PAIR(BgL_arg1771z00_4218,
																						BNIL);
																				}
																				{	/* Eval/expanders.scm 454 */
																					obj_t BgL_arg1775z00_4221;
																					obj_t BgL_arg1776z00_4222;

																					BgL_arg1775z00_4221 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2459z00zz__install_expandersz00,
																						BNIL);
																					BgL_arg1776z00_4222 =
																						MAKE_YOUNG_PAIR(BgL_valz00_4201,
																						BNIL);
																					BgL_arg1770z00_4217 =
																						MAKE_YOUNG_PAIR(BgL_arg1775z00_4221,
																						BgL_arg1776z00_4222);
																				}
																				BgL_arg1768z00_4215 =
																					MAKE_YOUNG_PAIR(BgL_arg1769z00_4216,
																					BgL_arg1770z00_4217);
																			}
																			BgL_arg1767z00_4214 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2408z00zz__install_expandersz00,
																				BgL_arg1768z00_4215);
																		}
																		BgL_arg1763z00_4209 =
																			MAKE_YOUNG_PAIR(BgL_arg1767z00_4214,
																			BNIL);
																	}
																	BgL_arg1759z00_4205 =
																		MAKE_YOUNG_PAIR(BgL_arg1762z00_4208,
																		BgL_arg1763z00_4209);
																}
																BgL_arg1757z00_4203 =
																	MAKE_YOUNG_PAIR(BgL_arg1758z00_4204,
																	BgL_arg1759z00_4205);
															}
															BgL_auxz00_4202 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2408z00zz__install_expandersz00,
																BgL_arg1757z00_4203);
														}
														{	/* Eval/expanders.scm 449 */
															obj_t BgL_resz00_4223;

															if (EPAIRP(BgL_xz00_3951))
																{	/* Eval/expanders.scm 457 */
																	obj_t BgL_arg1754z00_4224;
																	obj_t BgL_arg1755z00_4225;
																	obj_t BgL_arg1756z00_4226;

																	BgL_arg1754z00_4224 = CAR(BgL_auxz00_4202);
																	BgL_arg1755z00_4225 = CDR(BgL_auxz00_4202);
																	BgL_arg1756z00_4226 =
																		CER(((obj_t) BgL_xz00_3951));
																	{	/* Eval/expanders.scm 457 */
																		obj_t BgL_res2251z00_4227;

																		BgL_res2251z00_4227 =
																			MAKE_YOUNG_EPAIR(BgL_arg1754z00_4224,
																			BgL_arg1755z00_4225, BgL_arg1756z00_4226);
																		BgL_resz00_4223 = BgL_res2251z00_4227;
																	}
																}
															else
																{	/* Eval/expanders.scm 456 */
																	BgL_resz00_4223 = BgL_auxz00_4202;
																}
															{	/* Eval/expanders.scm 456 */

																return
																	BGL_PROCEDURE_CALL2(BgL_ez00_3952,
																	BgL_auxz00_4202, BgL_ez00_3952);
															}
														}
													}
												}
											}
										}
									}
								else
									{	/* Eval/expanders.scm 438 */
										return
											BGl_expandzd2errorzd2zz__install_expandersz00
											(BGl_string2436z00zz__install_expandersz00,
											BGl_string2461z00zz__install_expandersz00, BgL_xz00_3951);
									}
							}
						else
							{	/* Eval/expanders.scm 438 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2436z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3951);
							}
					}
				else
					{	/* Eval/expanders.scm 438 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2436z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3951);
					}
			}
		}

	}



/* &<@anonymous:1648> */
	obj_t BGl_z62zc3z04anonymousza31648ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3953, obj_t BgL_xz00_3954, obj_t BgL_ez00_3955)
	{
		{	/* Eval/expanders.scm 375 */
			{
				obj_t BgL_zf3zd2z21_4231;
				obj_t BgL_varsz00_4232;
				obj_t BgL_producerz00_4233;
				obj_t BgL_exprsz00_4234;

				if (PAIRP(BgL_xz00_3954))
					{	/* Eval/expanders.scm 375 */
						obj_t BgL_cdrzd2502zd2_4311;

						BgL_cdrzd2502zd2_4311 = CDR(((obj_t) BgL_xz00_3954));
						if (PAIRP(BgL_cdrzd2502zd2_4311))
							{	/* Eval/expanders.scm 375 */
								obj_t BgL_carzd2507zd2_4312;
								obj_t BgL_cdrzd2508zd2_4313;

								BgL_carzd2507zd2_4312 = CAR(BgL_cdrzd2502zd2_4311);
								BgL_cdrzd2508zd2_4313 = CDR(BgL_cdrzd2502zd2_4311);
								{	/* Eval/expanders.scm 375 */
									bool_t BgL_test2644z00_4899;

									{
										obj_t BgL_l1134z00_4315;

										BgL_l1134z00_4315 = BgL_carzd2507zd2_4312;
									BgL_zc3z04anonymousza31660ze3z87_4314:
										if (NULLP(BgL_l1134z00_4315))
											{	/* Eval/expanders.scm 375 */
												BgL_test2644z00_4899 = ((bool_t) 1);
											}
										else
											{	/* Eval/expanders.scm 375 */
												bool_t BgL_test2646z00_4902;

												{	/* Eval/expanders.scm 375 */
													obj_t BgL_tmpz00_4903;

													BgL_tmpz00_4903 = CAR(((obj_t) BgL_l1134z00_4315));
													BgL_test2646z00_4902 = SYMBOLP(BgL_tmpz00_4903);
												}
												if (BgL_test2646z00_4902)
													{
														obj_t BgL_l1134z00_4907;

														BgL_l1134z00_4907 =
															CDR(((obj_t) BgL_l1134z00_4315));
														BgL_l1134z00_4315 = BgL_l1134z00_4907;
														goto BgL_zc3z04anonymousza31660ze3z87_4314;
													}
												else
													{	/* Eval/expanders.scm 375 */
														BgL_test2644z00_4899 = ((bool_t) 0);
													}
											}
									}
									if (BgL_test2644z00_4899)
										{	/* Eval/expanders.scm 375 */
											if (PAIRP(BgL_cdrzd2508zd2_4313))
												{	/* Eval/expanders.scm 375 */
													BgL_zf3zd2z21_4231 = BgL_carzd2507zd2_4312;
													BgL_varsz00_4232 = BgL_carzd2507zd2_4312;
													BgL_producerz00_4233 = CAR(BgL_cdrzd2508zd2_4313);
													BgL_exprsz00_4234 = CDR(BgL_cdrzd2508zd2_4313);
													{	/* Eval/expanders.scm 379 */
														obj_t BgL_tmpsz00_4235;

														if (NULLP(BgL_varsz00_4232))
															{	/* Eval/expanders.scm 379 */
																BgL_tmpsz00_4235 = BNIL;
															}
														else
															{	/* Eval/expanders.scm 379 */
																obj_t BgL_head1107z00_4236;

																{	/* Eval/expanders.scm 379 */
																	obj_t BgL_arg1742z00_4237;

																	{	/* Eval/expanders.scm 379 */
																		obj_t BgL_arg1743z00_4238;

																		BgL_arg1743z00_4238 =
																			CAR(((obj_t) BgL_varsz00_4232));
																		BgL_arg1742z00_4237 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BgL_arg1743z00_4238);
																	}
																	BgL_head1107z00_4236 =
																		MAKE_YOUNG_PAIR(BgL_arg1742z00_4237, BNIL);
																}
																{	/* Eval/expanders.scm 379 */
																	obj_t BgL_g1110z00_4239;

																	BgL_g1110z00_4239 =
																		CDR(((obj_t) BgL_varsz00_4232));
																	{
																		obj_t BgL_l1105z00_4241;
																		obj_t BgL_tail1108z00_4242;

																		BgL_l1105z00_4241 = BgL_g1110z00_4239;
																		BgL_tail1108z00_4242 = BgL_head1107z00_4236;
																	BgL_zc3z04anonymousza31735ze3z87_4240:
																		if (NULLP(BgL_l1105z00_4241))
																			{	/* Eval/expanders.scm 379 */
																				BgL_tmpsz00_4235 = BgL_head1107z00_4236;
																			}
																		else
																			{	/* Eval/expanders.scm 379 */
																				obj_t BgL_newtail1109z00_4243;

																				{	/* Eval/expanders.scm 379 */
																					obj_t BgL_arg1740z00_4244;

																					{	/* Eval/expanders.scm 379 */
																						obj_t BgL_arg1741z00_4245;

																						BgL_arg1741z00_4245 =
																							CAR(((obj_t) BgL_l1105z00_4241));
																						BgL_arg1740z00_4244 =
																							BGl_gensymz00zz__r4_symbols_6_4z00
																							(BgL_arg1741z00_4245);
																					}
																					BgL_newtail1109z00_4243 =
																						MAKE_YOUNG_PAIR(BgL_arg1740z00_4244,
																						BNIL);
																				}
																				SET_CDR(BgL_tail1108z00_4242,
																					BgL_newtail1109z00_4243);
																				{	/* Eval/expanders.scm 379 */
																					obj_t BgL_arg1739z00_4246;

																					BgL_arg1739z00_4246 =
																						CDR(((obj_t) BgL_l1105z00_4241));
																					{
																						obj_t BgL_tail1108z00_4930;
																						obj_t BgL_l1105z00_4929;

																						BgL_l1105z00_4929 =
																							BgL_arg1739z00_4246;
																						BgL_tail1108z00_4930 =
																							BgL_newtail1109z00_4243;
																						BgL_tail1108z00_4242 =
																							BgL_tail1108z00_4930;
																						BgL_l1105z00_4241 =
																							BgL_l1105z00_4929;
																						goto
																							BgL_zc3z04anonymousza31735ze3z87_4240;
																					}
																				}
																			}
																	}
																}
															}
														{	/* Eval/expanders.scm 379 */
															obj_t BgL_tmps2z00_4247;

															if (NULLP(BgL_varsz00_4232))
																{	/* Eval/expanders.scm 380 */
																	BgL_tmps2z00_4247 = BNIL;
																}
															else
																{	/* Eval/expanders.scm 380 */
																	obj_t BgL_head1113z00_4248;

																	{	/* Eval/expanders.scm 380 */
																		obj_t BgL_arg1732z00_4249;

																		{	/* Eval/expanders.scm 380 */
																			obj_t BgL_arg1733z00_4250;

																			BgL_arg1733z00_4250 =
																				CAR(((obj_t) BgL_varsz00_4232));
																			BgL_arg1732z00_4249 =
																				BGl_gensymz00zz__r4_symbols_6_4z00
																				(BgL_arg1733z00_4250);
																		}
																		BgL_head1113z00_4248 =
																			MAKE_YOUNG_PAIR(BgL_arg1732z00_4249,
																			BNIL);
																	}
																	{	/* Eval/expanders.scm 380 */
																		obj_t BgL_g1116z00_4251;

																		BgL_g1116z00_4251 =
																			CDR(((obj_t) BgL_varsz00_4232));
																		{
																			obj_t BgL_l1111z00_4253;
																			obj_t BgL_tail1114z00_4254;

																			BgL_l1111z00_4253 = BgL_g1116z00_4251;
																			BgL_tail1114z00_4254 =
																				BgL_head1113z00_4248;
																		BgL_zc3z04anonymousza31727ze3z87_4252:
																			if (NULLP(BgL_l1111z00_4253))
																				{	/* Eval/expanders.scm 380 */
																					BgL_tmps2z00_4247 =
																						BgL_head1113z00_4248;
																				}
																			else
																				{	/* Eval/expanders.scm 380 */
																					obj_t BgL_newtail1115z00_4255;

																					{	/* Eval/expanders.scm 380 */
																						obj_t BgL_arg1730z00_4256;

																						{	/* Eval/expanders.scm 380 */
																							obj_t BgL_arg1731z00_4257;

																							BgL_arg1731z00_4257 =
																								CAR(
																								((obj_t) BgL_l1111z00_4253));
																							BgL_arg1730z00_4256 =
																								BGl_gensymz00zz__r4_symbols_6_4z00
																								(BgL_arg1731z00_4257);
																						}
																						BgL_newtail1115z00_4255 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1730z00_4256, BNIL);
																					}
																					SET_CDR(BgL_tail1114z00_4254,
																						BgL_newtail1115z00_4255);
																					{	/* Eval/expanders.scm 380 */
																						obj_t BgL_arg1729z00_4258;

																						BgL_arg1729z00_4258 =
																							CDR(((obj_t) BgL_l1111z00_4253));
																						{
																							obj_t BgL_tail1114z00_4949;
																							obj_t BgL_l1111z00_4948;

																							BgL_l1111z00_4948 =
																								BgL_arg1729z00_4258;
																							BgL_tail1114z00_4949 =
																								BgL_newtail1115z00_4255;
																							BgL_tail1114z00_4254 =
																								BgL_tail1114z00_4949;
																							BgL_l1111z00_4253 =
																								BgL_l1111z00_4948;
																							goto
																								BgL_zc3z04anonymousza31727ze3z87_4252;
																						}
																					}
																				}
																		}
																	}
																}
															{	/* Eval/expanders.scm 380 */
																obj_t BgL_nxz00_4259;

																{	/* Eval/expanders.scm 381 */
																	obj_t BgL_arg1666z00_4260;

																	{	/* Eval/expanders.scm 381 */
																		obj_t BgL_arg1667z00_4261;
																		obj_t BgL_arg1671z00_4262;

																		if (NULLP(BgL_tmpsz00_4235))
																			{	/* Eval/expanders.scm 381 */
																				BgL_arg1667z00_4261 = BNIL;
																			}
																		else
																			{	/* Eval/expanders.scm 381 */
																				obj_t BgL_head1119z00_4263;

																				BgL_head1119z00_4263 =
																					MAKE_YOUNG_PAIR(BNIL, BNIL);
																				{
																					obj_t BgL_l1117z00_4265;
																					obj_t BgL_tail1120z00_4266;

																					BgL_l1117z00_4265 = BgL_tmpsz00_4235;
																					BgL_tail1120z00_4266 =
																						BgL_head1119z00_4263;
																				BgL_zc3z04anonymousza31673ze3z87_4264:
																					if (NULLP(BgL_l1117z00_4265))
																						{	/* Eval/expanders.scm 381 */
																							BgL_arg1667z00_4261 =
																								CDR(BgL_head1119z00_4263);
																						}
																					else
																						{	/* Eval/expanders.scm 381 */
																							obj_t BgL_newtail1121z00_4267;

																							{	/* Eval/expanders.scm 381 */
																								obj_t BgL_arg1681z00_4268;

																								{	/* Eval/expanders.scm 381 */
																									obj_t BgL_vz00_4269;

																									BgL_vz00_4269 =
																										CAR(
																										((obj_t)
																											BgL_l1117z00_4265));
																									{	/* Eval/expanders.scm 381 */
																										obj_t BgL_arg1683z00_4270;

																										BgL_arg1683z00_4270 =
																											MAKE_YOUNG_PAIR(BUNSPEC,
																											BNIL);
																										BgL_arg1681z00_4268 =
																											MAKE_YOUNG_PAIR
																											(BgL_vz00_4269,
																											BgL_arg1683z00_4270);
																									}
																								}
																								BgL_newtail1121z00_4267 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1681z00_4268, BNIL);
																							}
																							SET_CDR(BgL_tail1120z00_4266,
																								BgL_newtail1121z00_4267);
																							{	/* Eval/expanders.scm 381 */
																								obj_t BgL_arg1675z00_4271;

																								BgL_arg1675z00_4271 =
																									CDR(
																									((obj_t) BgL_l1117z00_4265));
																								{
																									obj_t BgL_tail1120z00_4965;
																									obj_t BgL_l1117z00_4964;

																									BgL_l1117z00_4964 =
																										BgL_arg1675z00_4271;
																									BgL_tail1120z00_4965 =
																										BgL_newtail1121z00_4267;
																									BgL_tail1120z00_4266 =
																										BgL_tail1120z00_4965;
																									BgL_l1117z00_4265 =
																										BgL_l1117z00_4964;
																									goto
																										BgL_zc3z04anonymousza31673ze3z87_4264;
																								}
																							}
																						}
																				}
																			}
																		{	/* Eval/expanders.scm 383 */
																			obj_t BgL_arg1687z00_4272;
																			obj_t BgL_arg1689z00_4273;

																			{	/* Eval/expanders.scm 383 */
																				obj_t BgL_arg1690z00_4274;

																				{	/* Eval/expanders.scm 383 */
																					obj_t BgL_arg1691z00_4275;
																					obj_t BgL_arg1692z00_4276;

																					{	/* Eval/expanders.scm 383 */
																						obj_t BgL_arg1697z00_4277;

																						{	/* Eval/expanders.scm 383 */
																							obj_t BgL_arg1698z00_4278;

																							BgL_arg1698z00_4278 =
																								MAKE_YOUNG_PAIR
																								(BgL_producerz00_4233, BNIL);
																							BgL_arg1697z00_4277 =
																								MAKE_YOUNG_PAIR(BNIL,
																								BgL_arg1698z00_4278);
																						}
																						BgL_arg1691z00_4275 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2304z00zz__install_expandersz00,
																							BgL_arg1697z00_4277);
																					}
																					{	/* Eval/expanders.scm 385 */
																						obj_t BgL_arg1702z00_4279;

																						{	/* Eval/expanders.scm 385 */
																							obj_t BgL_arg1703z00_4280;

																							{	/* Eval/expanders.scm 385 */
																								obj_t BgL_arg1705z00_4281;

																								if (NULLP(BgL_tmpsz00_4235))
																									{	/* Eval/expanders.scm 385 */
																										BgL_arg1705z00_4281 = BNIL;
																									}
																								else
																									{	/* Eval/expanders.scm 385 */
																										obj_t BgL_head1124z00_4282;

																										BgL_head1124z00_4282 =
																											MAKE_YOUNG_PAIR(BNIL,
																											BNIL);
																										{
																											obj_t BgL_ll1122z00_4284;
																											obj_t BgL_ll1123z00_4285;
																											obj_t
																												BgL_tail1125z00_4286;
																											BgL_ll1122z00_4284 =
																												BgL_tmpsz00_4235;
																											BgL_ll1123z00_4285 =
																												BgL_tmps2z00_4247;
																											BgL_tail1125z00_4286 =
																												BgL_head1124z00_4282;
																										BgL_zc3z04anonymousza31707ze3z87_4283:
																											if (NULLP
																												(BgL_ll1122z00_4284))
																												{	/* Eval/expanders.scm 385 */
																													BgL_arg1705z00_4281 =
																														CDR
																														(BgL_head1124z00_4282);
																												}
																											else
																												{	/* Eval/expanders.scm 385 */
																													obj_t
																														BgL_newtail1126z00_4287;
																													{	/* Eval/expanders.scm 385 */
																														obj_t
																															BgL_arg1711z00_4288;
																														{	/* Eval/expanders.scm 385 */
																															obj_t
																																BgL_vz00_4289;
																															obj_t
																																BgL_tz00_4290;
																															BgL_vz00_4289 =
																																CAR(((obj_t)
																																	BgL_ll1122z00_4284));
																															BgL_tz00_4290 =
																																CAR(((obj_t)
																																	BgL_ll1123z00_4285));
																															{	/* Eval/expanders.scm 385 */
																																obj_t
																																	BgL_arg1712z00_4291;
																																{	/* Eval/expanders.scm 385 */
																																	obj_t
																																		BgL_arg1714z00_4292;
																																	BgL_arg1714z00_4292
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_tz00_4290,
																																		BNIL);
																																	BgL_arg1712z00_4291
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_vz00_4289,
																																		BgL_arg1714z00_4292);
																																}
																																BgL_arg1711z00_4288
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2462z00zz__install_expandersz00,
																																	BgL_arg1712z00_4291);
																															}
																														}
																														BgL_newtail1126z00_4287
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1711z00_4288,
																															BNIL);
																													}
																													SET_CDR
																														(BgL_tail1125z00_4286,
																														BgL_newtail1126z00_4287);
																													{	/* Eval/expanders.scm 385 */
																														obj_t
																															BgL_arg1709z00_4293;
																														obj_t
																															BgL_arg1710z00_4294;
																														BgL_arg1709z00_4293
																															=
																															CDR(((obj_t)
																																BgL_ll1122z00_4284));
																														BgL_arg1710z00_4294
																															=
																															CDR(((obj_t)
																																BgL_ll1123z00_4285));
																														{
																															obj_t
																																BgL_tail1125z00_4990;
																															obj_t
																																BgL_ll1123z00_4989;
																															obj_t
																																BgL_ll1122z00_4988;
																															BgL_ll1122z00_4988
																																=
																																BgL_arg1709z00_4293;
																															BgL_ll1123z00_4989
																																=
																																BgL_arg1710z00_4294;
																															BgL_tail1125z00_4990
																																=
																																BgL_newtail1126z00_4287;
																															BgL_tail1125z00_4286
																																=
																																BgL_tail1125z00_4990;
																															BgL_ll1123z00_4285
																																=
																																BgL_ll1123z00_4989;
																															BgL_ll1122z00_4284
																																=
																																BgL_ll1122z00_4988;
																															goto
																																BgL_zc3z04anonymousza31707ze3z87_4283;
																														}
																													}
																												}
																										}
																									}
																								BgL_arg1703z00_4280 =
																									MAKE_YOUNG_PAIR
																									(BgL_tmps2z00_4247,
																									BgL_arg1705z00_4281);
																							}
																							BgL_arg1702z00_4279 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2304z00zz__install_expandersz00,
																								BgL_arg1703z00_4280);
																						}
																						BgL_arg1692z00_4276 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1702z00_4279, BNIL);
																					}
																					BgL_arg1690z00_4274 =
																						MAKE_YOUNG_PAIR(BgL_arg1691z00_4275,
																						BgL_arg1692z00_4276);
																				}
																				BgL_arg1687z00_4272 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2464z00zz__install_expandersz00,
																					BgL_arg1690z00_4274);
																			}
																			{	/* Eval/expanders.scm 387 */
																				obj_t BgL_arg1715z00_4295;

																				{	/* Eval/expanders.scm 387 */
																					obj_t BgL_arg1716z00_4296;

																					{	/* Eval/expanders.scm 387 */
																						obj_t BgL_arg1718z00_4297;

																						if (NULLP(BgL_varsz00_4232))
																							{	/* Eval/expanders.scm 387 */
																								BgL_arg1718z00_4297 = BNIL;
																							}
																						else
																							{	/* Eval/expanders.scm 387 */
																								obj_t BgL_head1130z00_4298;

																								BgL_head1130z00_4298 =
																									MAKE_YOUNG_PAIR(BNIL, BNIL);
																								{
																									obj_t BgL_ll1128z00_4300;
																									obj_t BgL_ll1129z00_4301;
																									obj_t BgL_tail1131z00_4302;

																									BgL_ll1128z00_4300 =
																										BgL_varsz00_4232;
																									BgL_ll1129z00_4301 =
																										BgL_tmpsz00_4235;
																									BgL_tail1131z00_4302 =
																										BgL_head1130z00_4298;
																								BgL_zc3z04anonymousza31720ze3z87_4299:
																									if (NULLP
																										(BgL_ll1128z00_4300))
																										{	/* Eval/expanders.scm 387 */
																											BgL_arg1718z00_4297 =
																												CDR
																												(BgL_head1130z00_4298);
																										}
																									else
																										{	/* Eval/expanders.scm 387 */
																											obj_t
																												BgL_newtail1132z00_4303;
																											{	/* Eval/expanders.scm 387 */
																												obj_t
																													BgL_arg1724z00_4304;
																												{	/* Eval/expanders.scm 387 */
																													obj_t BgL_vz00_4305;
																													obj_t BgL_tz00_4306;

																													BgL_vz00_4305 =
																														CAR(
																														((obj_t)
																															BgL_ll1128z00_4300));
																													BgL_tz00_4306 =
																														CAR(((obj_t)
																															BgL_ll1129z00_4301));
																													{	/* Eval/expanders.scm 387 */
																														obj_t
																															BgL_arg1725z00_4307;
																														BgL_arg1725z00_4307
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_tz00_4306,
																															BNIL);
																														BgL_arg1724z00_4304
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_vz00_4305,
																															BgL_arg1725z00_4307);
																													}
																												}
																												BgL_newtail1132z00_4303
																													=
																													MAKE_YOUNG_PAIR
																													(BgL_arg1724z00_4304,
																													BNIL);
																											}
																											SET_CDR
																												(BgL_tail1131z00_4302,
																												BgL_newtail1132z00_4303);
																											{	/* Eval/expanders.scm 387 */
																												obj_t
																													BgL_arg1722z00_4308;
																												obj_t
																													BgL_arg1723z00_4309;
																												BgL_arg1722z00_4308 =
																													CDR(((obj_t)
																														BgL_ll1128z00_4300));
																												BgL_arg1723z00_4309 =
																													CDR(((obj_t)
																														BgL_ll1129z00_4301));
																												{
																													obj_t
																														BgL_tail1131z00_5016;
																													obj_t
																														BgL_ll1129z00_5015;
																													obj_t
																														BgL_ll1128z00_5014;
																													BgL_ll1128z00_5014 =
																														BgL_arg1722z00_4308;
																													BgL_ll1129z00_5015 =
																														BgL_arg1723z00_4309;
																													BgL_tail1131z00_5016 =
																														BgL_newtail1132z00_4303;
																													BgL_tail1131z00_4302 =
																														BgL_tail1131z00_5016;
																													BgL_ll1129z00_4301 =
																														BgL_ll1129z00_5015;
																													BgL_ll1128z00_4300 =
																														BgL_ll1128z00_5014;
																													goto
																														BgL_zc3z04anonymousza31720ze3z87_4299;
																												}
																											}
																										}
																								}
																							}
																						BgL_arg1716z00_4296 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1718z00_4297,
																							BgL_exprsz00_4234);
																					}
																					BgL_arg1715z00_4295 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2408z00zz__install_expandersz00,
																						BgL_arg1716z00_4296);
																				}
																				BgL_arg1689z00_4273 =
																					MAKE_YOUNG_PAIR(BgL_arg1715z00_4295,
																					BNIL);
																			}
																			BgL_arg1671z00_4262 =
																				MAKE_YOUNG_PAIR(BgL_arg1687z00_4272,
																				BgL_arg1689z00_4273);
																		}
																		BgL_arg1666z00_4260 =
																			MAKE_YOUNG_PAIR(BgL_arg1667z00_4261,
																			BgL_arg1671z00_4262);
																	}
																	BgL_nxz00_4259 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2408z00zz__install_expandersz00,
																		BgL_arg1666z00_4260);
																}
																{	/* Eval/expanders.scm 381 */

																	{	/* Eval/expanders.scm 390 */
																		obj_t BgL_arg1665z00_4310;

																		BgL_arg1665z00_4310 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_3955,
																			BgL_nxz00_4259, BgL_ez00_3955);
																		return
																			BGl_evepairifyz00zz__prognz00
																			(BgL_arg1665z00_4310, BgL_xz00_3954);
																	}
																}
															}
														}
													}
												}
											else
												{	/* Eval/expanders.scm 375 */
													return
														BGl_expandzd2errorzd2zz__install_expandersz00
														(BGl_string2407z00zz__install_expandersz00,
														BGl_string2461z00zz__install_expandersz00,
														BgL_xz00_3954);
												}
										}
									else
										{	/* Eval/expanders.scm 375 */
											return
												BGl_expandzd2errorzd2zz__install_expandersz00
												(BGl_string2407z00zz__install_expandersz00,
												BGl_string2461z00zz__install_expandersz00,
												BgL_xz00_3954);
										}
								}
							}
						else
							{	/* Eval/expanders.scm 375 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2407z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3954);
							}
					}
				else
					{	/* Eval/expanders.scm 375 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2407z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3954);
					}
			}
		}

	}



/* &<@anonymous:1622> */
	obj_t BGl_z62zc3z04anonymousza31622ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3956, obj_t BgL_xz00_3957, obj_t BgL_ez00_3958)
	{
		{	/* Eval/expanders.scm 357 */
			{
				obj_t BgL_handlerz00_4317;
				obj_t BgL_bodyz00_4318;

				if (PAIRP(BgL_xz00_3957))
					{	/* Eval/expanders.scm 357 */
						obj_t BgL_cdrzd2483zd2_4341;

						BgL_cdrzd2483zd2_4341 = CDR(((obj_t) BgL_xz00_3957));
						if (PAIRP(BgL_cdrzd2483zd2_4341))
							{	/* Eval/expanders.scm 357 */
								BgL_handlerz00_4317 = CAR(BgL_cdrzd2483zd2_4341);
								BgL_bodyz00_4318 = CDR(BgL_cdrzd2483zd2_4341);
								{	/* Eval/expanders.scm 360 */
									obj_t BgL_exnz00_4319;

									BgL_exnz00_4319 =
										BGl_gensymz00zz__r4_symbols_6_4z00
										(BGl_symbol2466z00zz__install_expandersz00);
									{	/* Eval/expanders.scm 363 */
										obj_t BgL_arg1627z00_4320;

										{	/* Eval/expanders.scm 363 */
											obj_t BgL_arg1628z00_4321;

											{	/* Eval/expanders.scm 363 */
												obj_t BgL_arg1629z00_4322;
												obj_t BgL_arg1630z00_4323;

												{	/* Eval/expanders.scm 363 */
													obj_t BgL_arg1631z00_4324;

													{	/* Eval/expanders.scm 363 */
														obj_t BgL_arg1632z00_4325;

														{	/* Eval/expanders.scm 363 */
															obj_t BgL_arg1633z00_4326;
															obj_t BgL_arg1634z00_4327;

															BgL_arg1633z00_4326 =
																MAKE_YOUNG_PAIR(BgL_exnz00_4319, BNIL);
															{	/* Eval/expanders.scm 364 */
																obj_t BgL_arg1635z00_4328;
																obj_t BgL_arg1636z00_4329;

																{	/* Eval/expanders.scm 364 */
																	obj_t BgL_arg1637z00_4330;

																	BgL_arg1637z00_4330 =
																		MAKE_YOUNG_PAIR(BINT(0L), BNIL);
																	BgL_arg1635z00_4328 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2468z00zz__install_expandersz00,
																		BgL_arg1637z00_4330);
																}
																{	/* Eval/expanders.scm 365 */
																	obj_t BgL_arg1639z00_4331;

																	{	/* Eval/expanders.scm 365 */
																		obj_t BgL_arg1641z00_4332;

																		BgL_arg1641z00_4332 =
																			MAKE_YOUNG_PAIR(BgL_exnz00_4319, BNIL);
																		BgL_arg1639z00_4331 =
																			MAKE_YOUNG_PAIR(BgL_handlerz00_4317,
																			BgL_arg1641z00_4332);
																	}
																	BgL_arg1636z00_4329 =
																		MAKE_YOUNG_PAIR(BgL_arg1639z00_4331, BNIL);
																}
																BgL_arg1634z00_4327 =
																	MAKE_YOUNG_PAIR(BgL_arg1635z00_4328,
																	BgL_arg1636z00_4329);
															}
															BgL_arg1632z00_4325 =
																MAKE_YOUNG_PAIR(BgL_arg1633z00_4326,
																BgL_arg1634z00_4327);
														}
														BgL_arg1631z00_4324 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2304z00zz__install_expandersz00,
															BgL_arg1632z00_4325);
													}
													BgL_arg1629z00_4322 =
														BGL_PROCEDURE_CALL2(BgL_ez00_3958,
														BgL_arg1631z00_4324, BgL_ez00_3958);
												}
												if (NULLP(BgL_bodyz00_4318))
													{	/* Eval/expanders.scm 367 */
														BgL_arg1630z00_4323 = BNIL;
													}
												else
													{	/* Eval/expanders.scm 367 */
														obj_t BgL_head1102z00_4333;

														BgL_head1102z00_4333 = MAKE_YOUNG_PAIR(BNIL, BNIL);
														{
															obj_t BgL_l1100z00_4335;
															obj_t BgL_tail1103z00_4336;

															BgL_l1100z00_4335 = BgL_bodyz00_4318;
															BgL_tail1103z00_4336 = BgL_head1102z00_4333;
														BgL_zc3z04anonymousza31643ze3z87_4334:
															if (NULLP(BgL_l1100z00_4335))
																{	/* Eval/expanders.scm 367 */
																	BgL_arg1630z00_4323 =
																		CDR(BgL_head1102z00_4333);
																}
															else
																{	/* Eval/expanders.scm 367 */
																	obj_t BgL_newtail1104z00_4337;

																	{	/* Eval/expanders.scm 367 */
																		obj_t BgL_arg1646z00_4338;

																		{	/* Eval/expanders.scm 367 */
																			obj_t BgL_xz00_4339;

																			BgL_xz00_4339 =
																				CAR(((obj_t) BgL_l1100z00_4335));
																			BgL_arg1646z00_4338 =
																				BGL_PROCEDURE_CALL2(BgL_ez00_3958,
																				BgL_xz00_4339, BgL_ez00_3958);
																		}
																		BgL_newtail1104z00_4337 =
																			MAKE_YOUNG_PAIR(BgL_arg1646z00_4338,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1103z00_4336,
																		BgL_newtail1104z00_4337);
																	{	/* Eval/expanders.scm 367 */
																		obj_t BgL_arg1645z00_4340;

																		BgL_arg1645z00_4340 =
																			CDR(((obj_t) BgL_l1100z00_4335));
																		{
																			obj_t BgL_tail1103z00_5075;
																			obj_t BgL_l1100z00_5074;

																			BgL_l1100z00_5074 = BgL_arg1645z00_4340;
																			BgL_tail1103z00_5075 =
																				BgL_newtail1104z00_4337;
																			BgL_tail1103z00_4336 =
																				BgL_tail1103z00_5075;
																			BgL_l1100z00_4335 = BgL_l1100z00_5074;
																			goto
																				BgL_zc3z04anonymousza31643ze3z87_4334;
																		}
																	}
																}
														}
													}
												BgL_arg1628z00_4321 =
													MAKE_YOUNG_PAIR(BgL_arg1629z00_4322,
													BgL_arg1630z00_4323);
											}
											BgL_arg1627z00_4320 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2403z00zz__install_expandersz00,
												BgL_arg1628z00_4321);
										}
										return
											BGl_evepairifyz00zz__prognz00(BgL_arg1627z00_4320,
											BgL_xz00_3957);
									}
								}
							}
						else
							{	/* Eval/expanders.scm 357 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2404z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3957);
							}
					}
				else
					{	/* Eval/expanders.scm 357 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2404z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3957);
					}
			}
		}

	}



/* &<@anonymous:1605> */
	obj_t BGl_z62zc3z04anonymousza31605ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3959, obj_t BgL_xz00_3960, obj_t BgL_ez00_3961)
	{
		{	/* Eval/expanders.scm 344 */
			{
				obj_t BgL_bodyz00_4343;
				obj_t BgL_expz00_4344;

				if (PAIRP(BgL_xz00_3960))
					{	/* Eval/expanders.scm 344 */
						obj_t BgL_cdrzd2468zd2_4357;

						BgL_cdrzd2468zd2_4357 = CDR(((obj_t) BgL_xz00_3960));
						if (PAIRP(BgL_cdrzd2468zd2_4357))
							{	/* Eval/expanders.scm 344 */
								BgL_bodyz00_4343 = CAR(BgL_cdrzd2468zd2_4357);
								BgL_expz00_4344 = CDR(BgL_cdrzd2468zd2_4357);
								{	/* Eval/expanders.scm 349 */
									obj_t BgL_arg1610z00_4345;

									{	/* Eval/expanders.scm 349 */
										obj_t BgL_arg1612z00_4346;

										{	/* Eval/expanders.scm 349 */
											obj_t BgL_arg1613z00_4347;
											obj_t BgL_arg1614z00_4348;

											BgL_arg1613z00_4347 =
												BGL_PROCEDURE_CALL2(BgL_ez00_3961, BgL_bodyz00_4343,
												BgL_ez00_3961);
											if (NULLP(BgL_expz00_4344))
												{	/* Eval/expanders.scm 350 */
													BgL_arg1614z00_4348 = BNIL;
												}
											else
												{	/* Eval/expanders.scm 350 */
													obj_t BgL_head1097z00_4349;

													BgL_head1097z00_4349 = MAKE_YOUNG_PAIR(BNIL, BNIL);
													{
														obj_t BgL_l1095z00_4351;
														obj_t BgL_tail1098z00_4352;

														BgL_l1095z00_4351 = BgL_expz00_4344;
														BgL_tail1098z00_4352 = BgL_head1097z00_4349;
													BgL_zc3z04anonymousza31616ze3z87_4350:
														if (NULLP(BgL_l1095z00_4351))
															{	/* Eval/expanders.scm 350 */
																BgL_arg1614z00_4348 = CDR(BgL_head1097z00_4349);
															}
														else
															{	/* Eval/expanders.scm 350 */
																obj_t BgL_newtail1099z00_4353;

																{	/* Eval/expanders.scm 350 */
																	obj_t BgL_arg1620z00_4354;

																	{	/* Eval/expanders.scm 350 */
																		obj_t BgL_xz00_4355;

																		BgL_xz00_4355 =
																			CAR(((obj_t) BgL_l1095z00_4351));
																		BgL_arg1620z00_4354 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_3961,
																			BgL_xz00_4355, BgL_ez00_3961);
																	}
																	BgL_newtail1099z00_4353 =
																		MAKE_YOUNG_PAIR(BgL_arg1620z00_4354, BNIL);
																}
																SET_CDR(BgL_tail1098z00_4352,
																	BgL_newtail1099z00_4353);
																{	/* Eval/expanders.scm 350 */
																	obj_t BgL_arg1619z00_4356;

																	BgL_arg1619z00_4356 =
																		CDR(((obj_t) BgL_l1095z00_4351));
																	{
																		obj_t BgL_tail1098z00_5112;
																		obj_t BgL_l1095z00_5111;

																		BgL_l1095z00_5111 = BgL_arg1619z00_4356;
																		BgL_tail1098z00_5112 =
																			BgL_newtail1099z00_4353;
																		BgL_tail1098z00_4352 = BgL_tail1098z00_5112;
																		BgL_l1095z00_4351 = BgL_l1095z00_5111;
																		goto BgL_zc3z04anonymousza31616ze3z87_4350;
																	}
																}
															}
													}
												}
											BgL_arg1612z00_4346 =
												MAKE_YOUNG_PAIR(BgL_arg1613z00_4347,
												BgL_arg1614z00_4348);
										}
										BgL_arg1610z00_4345 =
											MAKE_YOUNG_PAIR(BGl_symbol2400z00zz__install_expandersz00,
											BgL_arg1612z00_4346);
									}
									return
										BGl_evepairifyz00zz__prognz00(BgL_arg1610z00_4345,
										BgL_xz00_3960);
								}
							}
						else
							{	/* Eval/expanders.scm 344 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2401z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3960);
							}
					}
				else
					{	/* Eval/expanders.scm 344 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2401z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3960);
					}
			}
		}

	}



/* &<@anonymous:1477> */
	obj_t BGl_z62zc3z04anonymousza31477ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3962, obj_t BgL_xz00_3963, obj_t BgL_ez00_3964)
	{
		{	/* Eval/expanders.scm 296 */
			{
				obj_t BgL_envz00_4380;
				obj_t BgL_exitz00_4381;
				obj_t BgL_bodyz00_4382;
				obj_t BgL_onexitz00_4383;
				obj_t BgL_envz00_4370;
				obj_t BgL_exitz00_4371;
				obj_t BgL_bodyz00_4372;
				obj_t BgL_exitz00_4361;
				obj_t BgL_bodyz00_4362;

				if (PAIRP(BgL_xz00_3963))
					{	/* Eval/expanders.scm 308 */
						obj_t BgL_cdrzd2246zd2_4424;

						BgL_cdrzd2246zd2_4424 = CDR(((obj_t) BgL_xz00_3963));
						if (PAIRP(BgL_cdrzd2246zd2_4424))
							{	/* Eval/expanders.scm 308 */
								obj_t BgL_carzd2249zd2_4425;
								obj_t BgL_cdrzd2250zd2_4426;

								BgL_carzd2249zd2_4425 = CAR(BgL_cdrzd2246zd2_4424);
								BgL_cdrzd2250zd2_4426 = CDR(BgL_cdrzd2246zd2_4424);
								if (PAIRP(BgL_carzd2249zd2_4425))
									{	/* Eval/expanders.scm 308 */
										if (NULLP(CDR(BgL_carzd2249zd2_4425)))
											{	/* Eval/expanders.scm 308 */
												if (NULLP(BgL_cdrzd2250zd2_4426))
													{	/* Eval/expanders.scm 308 */
														return
															BGl_expandzd2errorzd2zz__install_expandersz00
															(BGl_string2398z00zz__install_expandersz00,
															BGl_string2461z00zz__install_expandersz00,
															BgL_xz00_3963);
													}
												else
													{	/* Eval/expanders.scm 308 */
														BgL_exitz00_4361 = CAR(BgL_carzd2249zd2_4425);
														BgL_bodyz00_4362 = BgL_cdrzd2250zd2_4426;
														{	/* Eval/expanders.scm 311 */
															obj_t BgL_arg1515z00_4363;

															if (BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00(BgL_exitz00_4361, BgL_bodyz00_4362))
																{	/* Eval/expanders.scm 312 */
																	obj_t BgL_arg1517z00_4364;

																	{	/* Eval/expanders.scm 312 */
																		obj_t BgL_arg1520z00_4365;
																		obj_t BgL_arg1521z00_4366;

																		BgL_arg1520z00_4365 =
																			MAKE_YOUNG_PAIR(BgL_exitz00_4361, BNIL);
																		{	/* Eval/expanders.scm 313 */
																			obj_t BgL_arg1522z00_4367;

																			{	/* Eval/expanders.scm 313 */
																				obj_t BgL_arg1523z00_4368;

																				BgL_arg1523z00_4368 =
																					BGl_expandzd2prognzd2zz__prognz00
																					(BgL_bodyz00_4362);
																				BgL_arg1522z00_4367 =
																					BGL_PROCEDURE_CALL2(BgL_ez00_3964,
																					BgL_arg1523z00_4368, BgL_ez00_3964);
																			}
																			BgL_arg1521z00_4366 =
																				MAKE_YOUNG_PAIR(BgL_arg1522z00_4367,
																				BNIL);
																		}
																		BgL_arg1517z00_4364 =
																			MAKE_YOUNG_PAIR(BgL_arg1520z00_4365,
																			BgL_arg1521z00_4366);
																	}
																	BgL_arg1515z00_4363 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2397z00zz__install_expandersz00,
																		BgL_arg1517z00_4364);
																}
															else
																{	/* Eval/expanders.scm 314 */
																	obj_t BgL_arg1524z00_4369;

																	BgL_arg1524z00_4369 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2357z00zz__install_expandersz00,
																		BgL_bodyz00_4362);
																	BgL_arg1515z00_4363 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_3964,
																		BgL_arg1524z00_4369, BgL_ez00_3964);
																}
															return
																BGl_evepairifyz00zz__prognz00
																(BgL_arg1515z00_4363, BgL_xz00_3963);
														}
													}
											}
										else
											{	/* Eval/expanders.scm 308 */
												return
													BGl_expandzd2errorzd2zz__install_expandersz00
													(BGl_string2398z00zz__install_expandersz00,
													BGl_string2461z00zz__install_expandersz00,
													BgL_xz00_3963);
											}
									}
								else
									{	/* Eval/expanders.scm 308 */
										obj_t BgL_cdrzd2300zd2_4427;

										BgL_cdrzd2300zd2_4427 =
											CDR(((obj_t) BgL_cdrzd2246zd2_4424));
										if (
											(CAR(
													((obj_t) BgL_cdrzd2246zd2_4424)) ==
												BGl_keyword2478z00zz__install_expandersz00))
											{	/* Eval/expanders.scm 308 */
												if (PAIRP(BgL_cdrzd2300zd2_4427))
													{	/* Eval/expanders.scm 308 */
														obj_t BgL_cdrzd2305zd2_4428;

														BgL_cdrzd2305zd2_4428 = CDR(BgL_cdrzd2300zd2_4427);
														if (PAIRP(BgL_cdrzd2305zd2_4428))
															{	/* Eval/expanders.scm 308 */
																obj_t BgL_carzd2309zd2_4429;
																obj_t BgL_cdrzd2310zd2_4430;

																BgL_carzd2309zd2_4429 =
																	CAR(BgL_cdrzd2305zd2_4428);
																BgL_cdrzd2310zd2_4430 =
																	CDR(BgL_cdrzd2305zd2_4428);
																if (PAIRP(BgL_carzd2309zd2_4429))
																	{	/* Eval/expanders.scm 308 */
																		if (NULLP(CDR(BgL_carzd2309zd2_4429)))
																			{	/* Eval/expanders.scm 308 */
																				if (PAIRP(BgL_cdrzd2310zd2_4430))
																					{	/* Eval/expanders.scm 308 */
																						if (NULLP(CDR
																								(BgL_cdrzd2310zd2_4430)))
																							{	/* Eval/expanders.scm 308 */
																								BgL_envz00_4370 =
																									CAR(BgL_cdrzd2300zd2_4427);
																								BgL_exitz00_4371 =
																									CAR(BgL_carzd2309zd2_4429);
																								BgL_bodyz00_4372 =
																									CAR(BgL_cdrzd2310zd2_4430);
																								{	/* Eval/expanders.scm 318 */
																									obj_t BgL_arg1525z00_4373;

																									if (BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00(BgL_exitz00_4371, BgL_bodyz00_4372))
																										{	/* Eval/expanders.scm 319 */
																											obj_t BgL_arg1527z00_4374;

																											{	/* Eval/expanders.scm 319 */
																												obj_t
																													BgL_arg1528z00_4375;
																												obj_t
																													BgL_arg1532z00_4376;
																												BgL_arg1528z00_4375 =
																													MAKE_YOUNG_PAIR
																													(BgL_exitz00_4371,
																													BNIL);
																												{	/* Eval/expanders.scm 320 */
																													obj_t
																														BgL_arg1533z00_4377;
																													{	/* Eval/expanders.scm 320 */
																														obj_t
																															BgL_arg1534z00_4378;
																														BgL_arg1534z00_4378
																															=
																															BGl_expandzd2prognzd2zz__prognz00
																															(BgL_bodyz00_4372);
																														BgL_arg1533z00_4377
																															=
																															BGL_PROCEDURE_CALL2
																															(BgL_ez00_3964,
																															BgL_arg1534z00_4378,
																															BgL_ez00_3964);
																													}
																													BgL_arg1532z00_4376 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1533z00_4377,
																														BNIL);
																												}
																												BgL_arg1527z00_4374 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1528z00_4375,
																													BgL_arg1532z00_4376);
																											}
																											BgL_arg1525z00_4373 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2397z00zz__install_expandersz00,
																												BgL_arg1527z00_4374);
																										}
																									else
																										{	/* Eval/expanders.scm 321 */
																											obj_t BgL_arg1537z00_4379;

																											BgL_arg1537z00_4379 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2357z00zz__install_expandersz00,
																												BgL_bodyz00_4372);
																											BgL_arg1525z00_4373 =
																												BGL_PROCEDURE_CALL2
																												(BgL_ez00_3964,
																												BgL_arg1537z00_4379,
																												BgL_ez00_3964);
																										}
																									return
																										BGl_evepairifyz00zz__prognz00
																										(BgL_arg1525z00_4373,
																										BgL_xz00_3963);
																								}
																							}
																						else
																							{	/* Eval/expanders.scm 308 */
																								obj_t BgL_cdrzd2340zd2_4431;

																								{	/* Eval/expanders.scm 308 */
																									obj_t BgL_pairz00_4432;

																									BgL_pairz00_4432 =
																										CDR(
																										((obj_t) BgL_xz00_3963));
																									BgL_cdrzd2340zd2_4431 =
																										CDR(BgL_pairz00_4432);
																								}
																								{	/* Eval/expanders.scm 308 */
																									obj_t BgL_cdrzd2349zd2_4433;

																									BgL_cdrzd2349zd2_4433 =
																										CDR(
																										((obj_t)
																											BgL_cdrzd2340zd2_4431));
																									{	/* Eval/expanders.scm 308 */
																										obj_t BgL_cdrzd2358zd2_4434;

																										BgL_cdrzd2358zd2_4434 =
																											CDR(
																											((obj_t)
																												BgL_cdrzd2349zd2_4433));
																										{	/* Eval/expanders.scm 308 */
																											obj_t
																												BgL_cdrzd2369zd2_4435;
																											BgL_cdrzd2369zd2_4435 =
																												CDR(((obj_t)
																													BgL_cdrzd2358zd2_4434));
																											if (PAIRP
																												(BgL_cdrzd2369zd2_4435))
																												{	/* Eval/expanders.scm 308 */
																													if (NULLP(CDR
																															(BgL_cdrzd2369zd2_4435)))
																														{	/* Eval/expanders.scm 308 */
																															obj_t
																																BgL_arg1505z00_4436;
																															obj_t
																																BgL_arg1506z00_4437;
																															obj_t
																																BgL_arg1507z00_4438;
																															obj_t
																																BgL_arg1508z00_4439;
																															BgL_arg1505z00_4436
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd2340zd2_4431));
																															{	/* Eval/expanders.scm 308 */
																																obj_t
																																	BgL_pairz00_4440;
																																BgL_pairz00_4440
																																	=
																																	CAR(((obj_t)
																																		BgL_cdrzd2349zd2_4433));
																																BgL_arg1506z00_4437
																																	=
																																	CAR
																																	(BgL_pairz00_4440);
																															}
																															BgL_arg1507z00_4438
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd2358zd2_4434));
																															BgL_arg1508z00_4439
																																=
																																CAR
																																(BgL_cdrzd2369zd2_4435);
																															BgL_envz00_4380 =
																																BgL_arg1505z00_4436;
																															BgL_exitz00_4381 =
																																BgL_arg1506z00_4437;
																															BgL_bodyz00_4382 =
																																BgL_arg1507z00_4438;
																															BgL_onexitz00_4383
																																=
																																BgL_arg1508z00_4439;
																															{	/* Eval/expanders.scm 325 */
																																obj_t
																																	BgL_arg1538z00_4384;
																																{	/* Eval/expanders.scm 325 */
																																	obj_t
																																		BgL_exit2z00_4385;
																																	obj_t
																																		BgL_flagz00_4386;
																																	obj_t
																																		BgL_valz00_4387;
																																	BgL_exit2z00_4385
																																		=
																																		BGl_gensymz00zz__r4_symbols_6_4z00
																																		(BGl_symbol2470z00zz__install_expandersz00);
																																	BgL_flagz00_4386
																																		=
																																		BGl_gensymz00zz__r4_symbols_6_4z00
																																		(BGl_symbol2472z00zz__install_expandersz00);
																																	BgL_valz00_4387
																																		=
																																		BGl_gensymz00zz__r4_symbols_6_4z00
																																		(BGl_symbol2474z00zz__install_expandersz00);
																																	{	/* Eval/expanders.scm 328 */
																																		obj_t
																																			BgL_arg1540z00_4388;
																																		{	/* Eval/expanders.scm 328 */
																																			obj_t
																																				BgL_arg1541z00_4389;
																																			{	/* Eval/expanders.scm 328 */
																																				obj_t
																																					BgL_arg1542z00_4390;
																																				obj_t
																																					BgL_arg1543z00_4391;
																																				{	/* Eval/expanders.scm 328 */
																																					obj_t
																																						BgL_arg1545z00_4392;
																																					{	/* Eval/expanders.scm 328 */
																																						obj_t
																																							BgL_arg1546z00_4393;
																																						BgL_arg1546z00_4393
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BFALSE,
																																							BNIL);
																																						BgL_arg1545z00_4392
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_flagz00_4386,
																																							BgL_arg1546z00_4393);
																																					}
																																					BgL_arg1542z00_4390
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1545z00_4392,
																																						BNIL);
																																				}
																																				{	/* Eval/expanders.scm 329 */
																																					obj_t
																																						BgL_arg1547z00_4394;
																																					{	/* Eval/expanders.scm 329 */
																																						obj_t
																																							BgL_arg1549z00_4395;
																																						{	/* Eval/expanders.scm 329 */
																																							obj_t
																																								BgL_arg1551z00_4396;
																																							obj_t
																																								BgL_arg1552z00_4397;
																																							{	/* Eval/expanders.scm 329 */
																																								obj_t
																																									BgL_arg1554z00_4398;
																																								{	/* Eval/expanders.scm 329 */
																																									obj_t
																																										BgL_arg1555z00_4399;
																																									{	/* Eval/expanders.scm 329 */
																																										obj_t
																																											BgL_arg1558z00_4400;
																																										{	/* Eval/expanders.scm 329 */
																																											obj_t
																																												BgL_arg1559z00_4401;
																																											{	/* Eval/expanders.scm 329 */
																																												obj_t
																																													BgL_arg1561z00_4402;
																																												obj_t
																																													BgL_arg1562z00_4403;
																																												BgL_arg1561z00_4402
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_exit2z00_4385,
																																													BNIL);
																																												{	/* Eval/expanders.scm 330 */
																																													obj_t
																																														BgL_arg1563z00_4404;
																																													{	/* Eval/expanders.scm 330 */
																																														obj_t
																																															BgL_arg1565z00_4405;
																																														{	/* Eval/expanders.scm 330 */
																																															obj_t
																																																BgL_arg1568z00_4406;
																																															obj_t
																																																BgL_arg1569z00_4407;
																																															{	/* Eval/expanders.scm 330 */
																																																obj_t
																																																	BgL_arg1573z00_4408;
																																																{	/* Eval/expanders.scm 330 */
																																																	obj_t
																																																		BgL_arg1574z00_4409;
																																																	{	/* Eval/expanders.scm 330 */
																																																		obj_t
																																																			BgL_arg1575z00_4410;
																																																		{	/* Eval/expanders.scm 330 */
																																																			obj_t
																																																				BgL_arg1577z00_4411;
																																																			{	/* Eval/expanders.scm 330 */
																																																				obj_t
																																																					BgL_arg1578z00_4412;
																																																				obj_t
																																																					BgL_arg1579z00_4413;
																																																				BgL_arg1578z00_4412
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BGl_symbol2476z00zz__install_expandersz00,
																																																					BNIL);
																																																				{	/* Eval/expanders.scm 331 */
																																																					obj_t
																																																						BgL_arg1580z00_4414;
																																																					obj_t
																																																						BgL_arg1581z00_4415;
																																																					{	/* Eval/expanders.scm 331 */
																																																						obj_t
																																																							BgL_arg1582z00_4416;
																																																						{	/* Eval/expanders.scm 331 */
																																																							obj_t
																																																								BgL_arg1584z00_4417;
																																																							BgL_arg1584z00_4417
																																																								=
																																																								MAKE_YOUNG_PAIR
																																																								(BTRUE,
																																																								BNIL);
																																																							BgL_arg1582z00_4416
																																																								=
																																																								MAKE_YOUNG_PAIR
																																																								(BgL_flagz00_4386,
																																																								BgL_arg1584z00_4417);
																																																						}
																																																						BgL_arg1580z00_4414
																																																							=
																																																							MAKE_YOUNG_PAIR
																																																							(BGl_symbol2462z00zz__install_expandersz00,
																																																							BgL_arg1582z00_4416);
																																																					}
																																																					{	/* Eval/expanders.scm 332 */
																																																						obj_t
																																																							BgL_arg1586z00_4418;
																																																						{	/* Eval/expanders.scm 332 */
																																																							obj_t
																																																								BgL_arg1587z00_4419;
																																																							BgL_arg1587z00_4419
																																																								=
																																																								MAKE_YOUNG_PAIR
																																																								(BGl_symbol2476z00zz__install_expandersz00,
																																																								BNIL);
																																																							BgL_arg1586z00_4418
																																																								=
																																																								MAKE_YOUNG_PAIR
																																																								(BgL_exit2z00_4385,
																																																								BgL_arg1587z00_4419);
																																																						}
																																																						BgL_arg1581z00_4415
																																																							=
																																																							MAKE_YOUNG_PAIR
																																																							(BgL_arg1586z00_4418,
																																																							BNIL);
																																																					}
																																																					BgL_arg1579z00_4413
																																																						=
																																																						MAKE_YOUNG_PAIR
																																																						(BgL_arg1580z00_4414,
																																																						BgL_arg1581z00_4415);
																																																				}
																																																				BgL_arg1577z00_4411
																																																					=
																																																					MAKE_YOUNG_PAIR
																																																					(BgL_arg1578z00_4412,
																																																					BgL_arg1579z00_4413);
																																																			}
																																																			BgL_arg1575z00_4410
																																																				=
																																																				MAKE_YOUNG_PAIR
																																																				(BGl_symbol2304z00zz__install_expandersz00,
																																																				BgL_arg1577z00_4411);
																																																		}
																																																		BgL_arg1574z00_4409
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(BgL_arg1575z00_4410,
																																																			BNIL);
																																																	}
																																																	BgL_arg1573z00_4408
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BgL_exitz00_4381,
																																																		BgL_arg1574z00_4409);
																																																}
																																																BgL_arg1568z00_4406
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_arg1573z00_4408,
																																																	BNIL);
																																															}
																																															BgL_arg1569z00_4407
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_bodyz00_4382,
																																																BNIL);
																																															BgL_arg1565z00_4405
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg1568z00_4406,
																																																BgL_arg1569z00_4407);
																																														}
																																														BgL_arg1563z00_4404
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BGl_symbol2408z00zz__install_expandersz00,
																																															BgL_arg1565z00_4405);
																																													}
																																													BgL_arg1562z00_4403
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1563z00_4404,
																																														BNIL);
																																												}
																																												BgL_arg1559z00_4401
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1561z00_4402,
																																													BgL_arg1562z00_4403);
																																											}
																																											BgL_arg1558z00_4400
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BGl_symbol2397z00zz__install_expandersz00,
																																												BgL_arg1559z00_4401);
																																										}
																																										BgL_arg1555z00_4399
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1558z00_4400,
																																											BNIL);
																																									}
																																									BgL_arg1554z00_4398
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_valz00_4387,
																																										BgL_arg1555z00_4399);
																																								}
																																								BgL_arg1551z00_4396
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1554z00_4398,
																																									BNIL);
																																							}
																																							{	/* Eval/expanders.scm 334 */
																																								obj_t
																																									BgL_arg1588z00_4420;
																																								{	/* Eval/expanders.scm 334 */
																																									obj_t
																																										BgL_arg1592z00_4421;
																																									{	/* Eval/expanders.scm 334 */
																																										obj_t
																																											BgL_arg1593z00_4422;
																																										{	/* Eval/expanders.scm 334 */
																																											obj_t
																																												BgL_arg1595z00_4423;
																																											BgL_arg1595z00_4423
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_valz00_4387,
																																												BNIL);
																																											BgL_arg1593z00_4422
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_onexitz00_4383,
																																												BgL_arg1595z00_4423);
																																										}
																																										BgL_arg1592z00_4421
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_flagz00_4386,
																																											BgL_arg1593z00_4422);
																																									}
																																									BgL_arg1588z00_4420
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol2302z00zz__install_expandersz00,
																																										BgL_arg1592z00_4421);
																																								}
																																								BgL_arg1552z00_4397
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1588z00_4420,
																																									BNIL);
																																							}
																																							BgL_arg1549z00_4395
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1551z00_4396,
																																								BgL_arg1552z00_4397);
																																						}
																																						BgL_arg1547z00_4394
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2408z00zz__install_expandersz00,
																																							BgL_arg1549z00_4395);
																																					}
																																					BgL_arg1543z00_4391
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1547z00_4394,
																																						BNIL);
																																				}
																																				BgL_arg1541z00_4389
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1542z00_4390,
																																					BgL_arg1543z00_4391);
																																			}
																																			BgL_arg1540z00_4388
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2408z00zz__install_expandersz00,
																																				BgL_arg1541z00_4389);
																																		}
																																		BgL_arg1538z00_4384
																																			=
																																			BGL_PROCEDURE_CALL2
																																			(BgL_ez00_3964,
																																			BgL_arg1540z00_4388,
																																			BgL_ez00_3964);
																																	}
																																}
																																return
																																	BGl_evepairifyz00zz__prognz00
																																	(BgL_arg1538z00_4384,
																																	BgL_xz00_3963);
																															}
																														}
																													else
																														{	/* Eval/expanders.scm 308 */
																															return
																																BGl_expandzd2errorzd2zz__install_expandersz00
																																(BGl_string2398z00zz__install_expandersz00,
																																BGl_string2461z00zz__install_expandersz00,
																																BgL_xz00_3963);
																														}
																												}
																											else
																												{	/* Eval/expanders.scm 308 */
																													return
																														BGl_expandzd2errorzd2zz__install_expandersz00
																														(BGl_string2398z00zz__install_expandersz00,
																														BGl_string2461z00zz__install_expandersz00,
																														BgL_xz00_3963);
																												}
																										}
																									}
																								}
																							}
																					}
																				else
																					{	/* Eval/expanders.scm 308 */
																						return
																							BGl_expandzd2errorzd2zz__install_expandersz00
																							(BGl_string2398z00zz__install_expandersz00,
																							BGl_string2461z00zz__install_expandersz00,
																							BgL_xz00_3963);
																					}
																			}
																		else
																			{	/* Eval/expanders.scm 308 */
																				return
																					BGl_expandzd2errorzd2zz__install_expandersz00
																					(BGl_string2398z00zz__install_expandersz00,
																					BGl_string2461z00zz__install_expandersz00,
																					BgL_xz00_3963);
																			}
																	}
																else
																	{	/* Eval/expanders.scm 308 */
																		return
																			BGl_expandzd2errorzd2zz__install_expandersz00
																			(BGl_string2398z00zz__install_expandersz00,
																			BGl_string2461z00zz__install_expandersz00,
																			BgL_xz00_3963);
																	}
															}
														else
															{	/* Eval/expanders.scm 308 */
																return
																	BGl_expandzd2errorzd2zz__install_expandersz00
																	(BGl_string2398z00zz__install_expandersz00,
																	BGl_string2461z00zz__install_expandersz00,
																	BgL_xz00_3963);
															}
													}
												else
													{	/* Eval/expanders.scm 308 */
														return
															BGl_expandzd2errorzd2zz__install_expandersz00
															(BGl_string2398z00zz__install_expandersz00,
															BGl_string2461z00zz__install_expandersz00,
															BgL_xz00_3963);
													}
											}
										else
											{	/* Eval/expanders.scm 308 */
												return
													BGl_expandzd2errorzd2zz__install_expandersz00
													(BGl_string2398z00zz__install_expandersz00,
													BGl_string2461z00zz__install_expandersz00,
													BgL_xz00_3963);
											}
									}
							}
						else
							{	/* Eval/expanders.scm 308 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2398z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3963);
							}
					}
				else
					{	/* Eval/expanders.scm 308 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2398z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3963);
					}
			}
		}

	}



/* find-in-body~0 */
	bool_t BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00(obj_t
		BgL_kz00_1652, obj_t BgL_bodyz00_1653)
	{
		{	/* Eval/expanders.scm 306 */
		BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00:
			if ((BgL_bodyz00_1653 == BgL_kz00_1652))
				{	/* Eval/expanders.scm 300 */
					return ((bool_t) 1);
				}
			else
				{	/* Eval/expanders.scm 300 */
					if (PAIRP(BgL_bodyz00_1653))
						{	/* Eval/expanders.scm 302 */
							if (
								(CAR(BgL_bodyz00_1653) ==
									BGl_symbol2307z00zz__install_expandersz00))
								{	/* Eval/expanders.scm 303 */
									return ((bool_t) 0);
								}
							else
								{	/* Eval/expanders.scm 304 */
									bool_t BgL__ortest_1039z00_1658;

									BgL__ortest_1039z00_1658 =
										BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00
										(BgL_kz00_1652, CAR(BgL_bodyz00_1653));
									if (BgL__ortest_1039z00_1658)
										{	/* Eval/expanders.scm 304 */
											return BgL__ortest_1039z00_1658;
										}
									else
										{
											obj_t BgL_bodyz00_5289;

											BgL_bodyz00_5289 = CDR(BgL_bodyz00_1653);
											BgL_bodyz00_1653 = BgL_bodyz00_5289;
											goto BGl_findzd2inzd2bodyze70ze7zz__install_expandersz00;
										}
								}
						}
					else
						{	/* Eval/expanders.scm 302 */
							return ((bool_t) 0);
						}
				}
		}

	}



/* &<@anonymous:1462> */
	obj_t BGl_z62zc3z04anonymousza31462ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3965, obj_t BgL_xz00_3966, obj_t BgL_ez00_3967)
	{
		{	/* Eval/expanders.scm 285 */
			{
				obj_t BgL_bodyz00_4442;

				if (PAIRP(BgL_xz00_3966))
					{	/* Eval/expanders.scm 285 */
						obj_t BgL_cdrzd2229zd2_4453;

						BgL_cdrzd2229zd2_4453 = CDR(((obj_t) BgL_xz00_3966));
						if (PAIRP(BgL_cdrzd2229zd2_4453))
							{	/* Eval/expanders.scm 285 */
								if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(CAR
										(BgL_cdrzd2229zd2_4453)))
									{	/* Eval/expanders.scm 285 */
										BgL_bodyz00_4442 = CDR(BgL_cdrzd2229zd2_4453);
										{	/* Eval/expanders.scm 289 */
											obj_t BgL_arg1469z00_4443;

											{	/* Eval/expanders.scm 289 */
												obj_t BgL_arg1470z00_4444;

												if (NULLP(BgL_bodyz00_4442))
													{	/* Eval/expanders.scm 289 */
														BgL_arg1470z00_4444 = BNIL;
													}
												else
													{	/* Eval/expanders.scm 289 */
														obj_t BgL_head1092z00_4445;

														BgL_head1092z00_4445 = MAKE_YOUNG_PAIR(BNIL, BNIL);
														{
															obj_t BgL_l1090z00_4447;
															obj_t BgL_tail1093z00_4448;

															BgL_l1090z00_4447 = BgL_bodyz00_4442;
															BgL_tail1093z00_4448 = BgL_head1092z00_4445;
														BgL_zc3z04anonymousza31472ze3z87_4446:
															if (NULLP(BgL_l1090z00_4447))
																{	/* Eval/expanders.scm 289 */
																	BgL_arg1470z00_4444 =
																		CDR(BgL_head1092z00_4445);
																}
															else
																{	/* Eval/expanders.scm 289 */
																	obj_t BgL_newtail1094z00_4449;

																	{	/* Eval/expanders.scm 289 */
																		obj_t BgL_arg1475z00_4450;

																		{	/* Eval/expanders.scm 289 */
																			obj_t BgL_xz00_4451;

																			BgL_xz00_4451 =
																				CAR(((obj_t) BgL_l1090z00_4447));
																			BgL_arg1475z00_4450 =
																				BGL_PROCEDURE_CALL2(BgL_ez00_3967,
																				BgL_xz00_4451, BgL_ez00_3967);
																		}
																		BgL_newtail1094z00_4449 =
																			MAKE_YOUNG_PAIR(BgL_arg1475z00_4450,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1093z00_4448,
																		BgL_newtail1094z00_4449);
																	{	/* Eval/expanders.scm 289 */
																		obj_t BgL_arg1474z00_4452;

																		BgL_arg1474z00_4452 =
																			CDR(((obj_t) BgL_l1090z00_4447));
																		{
																			obj_t BgL_tail1093z00_5318;
																			obj_t BgL_l1090z00_5317;

																			BgL_l1090z00_5317 = BgL_arg1474z00_4452;
																			BgL_tail1093z00_5318 =
																				BgL_newtail1094z00_4449;
																			BgL_tail1093z00_4448 =
																				BgL_tail1093z00_5318;
																			BgL_l1090z00_4447 = BgL_l1090z00_5317;
																			goto
																				BgL_zc3z04anonymousza31472ze3z87_4446;
																		}
																	}
																}
														}
													}
												BgL_arg1469z00_4443 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2357z00zz__install_expandersz00,
													BgL_arg1470z00_4444);
											}
											return
												BGl_evepairifyz00zz__prognz00(BgL_arg1469z00_4443,
												BgL_xz00_3966);
										}
									}
								else
									{	/* Eval/expanders.scm 285 */
										return
											BGl_expandzd2errorzd2zz__install_expandersz00
											(BGl_string2395z00zz__install_expandersz00,
											BGl_string2461z00zz__install_expandersz00, BgL_xz00_3966);
									}
							}
						else
							{	/* Eval/expanders.scm 285 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2395z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3966);
							}
					}
				else
					{	/* Eval/expanders.scm 285 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2395z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3966);
					}
			}
		}

	}



/* &<@anonymous:1446> */
	obj_t BGl_z62zc3z04anonymousza31446ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3968, obj_t BgL_xz00_3969, obj_t BgL_ez00_3970)
	{
		{	/* Eval/expanders.scm 246 */
			if (PAIRP(BgL_xz00_3969))
				{	/* Eval/expanders.scm 246 */
					obj_t BgL_cdrzd2216zd2_4454;

					BgL_cdrzd2216zd2_4454 = CDR(((obj_t) BgL_xz00_3969));
					if (PAIRP(BgL_cdrzd2216zd2_4454))
						{	/* Eval/expanders.scm 246 */
							obj_t BgL_arg1450z00_4455;
							obj_t BgL_arg1451z00_4456;

							BgL_arg1450z00_4455 = CAR(BgL_cdrzd2216zd2_4454);
							BgL_arg1451z00_4456 = CDR(BgL_cdrzd2216zd2_4454);
							{	/* Eval/expanders.scm 251 */
								obj_t BgL_arg1452z00_4457;

								{	/* Eval/expanders.scm 251 */
									obj_t BgL_arg1453z00_4458;

									{	/* Eval/expanders.scm 251 */
										obj_t BgL_arg1455z00_4459;

										{	/* Eval/expanders.scm 251 */
											obj_t BgL_arg1456z00_4460;

											{	/* Eval/expanders.scm 251 */
												obj_t BgL_arg1457z00_4461;

												BgL_arg1457z00_4461 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2357z00zz__install_expandersz00,
													BgL_arg1451z00_4456);
												BgL_arg1456z00_4460 =
													MAKE_YOUNG_PAIR(BgL_arg1457z00_4461, BNIL);
											}
											BgL_arg1455z00_4459 =
												MAKE_YOUNG_PAIR(BFALSE, BgL_arg1456z00_4460);
										}
										BgL_arg1453z00_4458 =
											MAKE_YOUNG_PAIR(BgL_arg1450z00_4455, BgL_arg1455z00_4459);
									}
									BgL_arg1452z00_4457 =
										MAKE_YOUNG_PAIR(BGl_symbol2302z00zz__install_expandersz00,
										BgL_arg1453z00_4458);
								}
								return
									BGL_PROCEDURE_CALL2(BgL_ez00_3970, BgL_arg1452z00_4457,
									BgL_ez00_3970);
							}
						}
					else
						{	/* Eval/expanders.scm 246 */
							return
								BGl_expandzd2errorzd2zz__install_expandersz00
								(BGl_string2370z00zz__install_expandersz00,
								BGl_string2461z00zz__install_expandersz00, BgL_xz00_3969);
						}
				}
			else
				{	/* Eval/expanders.scm 246 */
					return
						BGl_expandzd2errorzd2zz__install_expandersz00
						(BGl_string2370z00zz__install_expandersz00,
						BGl_string2461z00zz__install_expandersz00, BgL_xz00_3969);
				}
		}

	}



/* &<@anonymous:1433> */
	obj_t BGl_z62zc3z04anonymousza31433ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3971, obj_t BgL_xz00_3972, obj_t BgL_ez00_3973)
	{
		{	/* Eval/expanders.scm 234 */
			if (PAIRP(BgL_xz00_3972))
				{	/* Eval/expanders.scm 234 */
					obj_t BgL_cdrzd2201zd2_4462;

					BgL_cdrzd2201zd2_4462 = CDR(((obj_t) BgL_xz00_3972));
					if (PAIRP(BgL_cdrzd2201zd2_4462))
						{	/* Eval/expanders.scm 234 */
							obj_t BgL_arg1436z00_4463;
							obj_t BgL_arg1437z00_4464;

							BgL_arg1436z00_4463 = CAR(BgL_cdrzd2201zd2_4462);
							BgL_arg1437z00_4464 = CDR(BgL_cdrzd2201zd2_4462);
							{	/* Eval/expanders.scm 238 */
								obj_t BgL_arg1438z00_4465;

								{	/* Eval/expanders.scm 238 */
									obj_t BgL_arg1439z00_4466;

									{	/* Eval/expanders.scm 238 */
										obj_t BgL_arg1442z00_4467;

										{	/* Eval/expanders.scm 238 */
											obj_t BgL_arg1443z00_4468;
											obj_t BgL_arg1444z00_4469;

											BgL_arg1443z00_4468 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2357z00zz__install_expandersz00,
												BgL_arg1437z00_4464);
											BgL_arg1444z00_4469 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
											BgL_arg1442z00_4467 =
												MAKE_YOUNG_PAIR(BgL_arg1443z00_4468,
												BgL_arg1444z00_4469);
										}
										BgL_arg1439z00_4466 =
											MAKE_YOUNG_PAIR(BgL_arg1436z00_4463, BgL_arg1442z00_4467);
									}
									BgL_arg1438z00_4465 =
										MAKE_YOUNG_PAIR(BGl_symbol2302z00zz__install_expandersz00,
										BgL_arg1439z00_4466);
								}
								return
									BGL_PROCEDURE_CALL2(BgL_ez00_3973, BgL_arg1438z00_4465,
									BgL_ez00_3973);
							}
						}
					else
						{	/* Eval/expanders.scm 234 */
							return
								BGl_expandzd2errorzd2zz__install_expandersz00
								(BGl_string2367z00zz__install_expandersz00,
								BGl_string2461z00zz__install_expandersz00, BgL_xz00_3972);
						}
				}
			else
				{	/* Eval/expanders.scm 234 */
					return
						BGl_expandzd2errorzd2zz__install_expandersz00
						(BGl_string2367z00zz__install_expandersz00,
						BGl_string2461z00zz__install_expandersz00, BgL_xz00_3972);
				}
		}

	}



/* &<@anonymous:1422> */
	obj_t BGl_z62zc3z04anonymousza31422ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3974, obj_t BgL_xz00_3975, obj_t BgL_ez00_3976)
	{
		{	/* Eval/expanders.scm 223 */
			if (PAIRP(BgL_xz00_3975))
				{	/* Eval/expanders.scm 223 */
					obj_t BgL_cdrzd2180zd2_4470;

					BgL_cdrzd2180zd2_4470 = CDR(((obj_t) BgL_xz00_3975));
					if (PAIRP(BgL_cdrzd2180zd2_4470))
						{	/* Eval/expanders.scm 223 */
							obj_t BgL_cdrzd2185zd2_4471;

							BgL_cdrzd2185zd2_4471 = CDR(BgL_cdrzd2180zd2_4470);
							if (PAIRP(BgL_cdrzd2185zd2_4471))
								{	/* Eval/expanders.scm 223 */
									obj_t BgL_arg1426z00_4472;
									obj_t BgL_arg1427z00_4473;
									obj_t BgL_arg1428z00_4474;

									BgL_arg1426z00_4472 = CAR(BgL_cdrzd2180zd2_4470);
									BgL_arg1427z00_4473 = CAR(BgL_cdrzd2185zd2_4471);
									BgL_arg1428z00_4474 = CDR(BgL_cdrzd2185zd2_4471);
									{	/* Eval/expanders.scm 226 */
										obj_t BgL_arg1429z00_4475;

										{	/* Eval/expanders.scm 226 */
											obj_t BgL_arg1430z00_4476;

											{	/* Eval/expanders.scm 226 */
												obj_t BgL_arg1431z00_4477;

												BgL_arg1431z00_4477 =
													MAKE_YOUNG_PAIR(BgL_arg1427z00_4473,
													BgL_arg1428z00_4474);
												BgL_arg1430z00_4476 =
													MAKE_YOUNG_PAIR(BgL_arg1426z00_4472,
													BgL_arg1431z00_4477);
											}
											BgL_arg1429z00_4475 =
												MAKE_YOUNG_PAIR
												(BGl_symbol2406z00zz__install_expandersz00,
												BgL_arg1430z00_4476);
										}
										return
											BGL_PROCEDURE_CALL2(BgL_ez00_3976, BgL_arg1429z00_4475,
											BgL_ez00_3976);
									}
								}
							else
								{	/* Eval/expanders.scm 223 */
									return
										BGl_expandzd2errorzd2zz__install_expandersz00
										(BGl_string2364z00zz__install_expandersz00,
										BGl_string2461z00zz__install_expandersz00, BgL_xz00_3975);
								}
						}
					else
						{	/* Eval/expanders.scm 223 */
							return
								BGl_expandzd2errorzd2zz__install_expandersz00
								(BGl_string2364z00zz__install_expandersz00,
								BGl_string2461z00zz__install_expandersz00, BgL_xz00_3975);
						}
				}
			else
				{	/* Eval/expanders.scm 223 */
					return
						BGl_expandzd2errorzd2zz__install_expandersz00
						(BGl_string2364z00zz__install_expandersz00,
						BGl_string2461z00zz__install_expandersz00, BgL_xz00_3975);
				}
		}

	}



/* &<@anonymous:1403> */
	obj_t BGl_z62zc3z04anonymousza31403ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3977, obj_t BgL_xz00_3978, obj_t BgL_ez00_3979)
	{
		{	/* Eval/expanders.scm 210 */
			if (PAIRP(BgL_xz00_3978))
				{	/* Eval/expanders.scm 210 */
					obj_t BgL_cdrzd2154zd2_4478;

					BgL_cdrzd2154zd2_4478 = CDR(((obj_t) BgL_xz00_3978));
					if (PAIRP(BgL_cdrzd2154zd2_4478))
						{	/* Eval/expanders.scm 210 */
							obj_t BgL_cdrzd2159zd2_4479;

							BgL_cdrzd2159zd2_4479 = CDR(BgL_cdrzd2154zd2_4478);
							if (PAIRP(BgL_cdrzd2159zd2_4479))
								{	/* Eval/expanders.scm 210 */
									obj_t BgL_cdrzd2164zd2_4480;

									BgL_cdrzd2164zd2_4480 = CDR(BgL_cdrzd2159zd2_4479);
									if (PAIRP(BgL_cdrzd2164zd2_4480))
										{	/* Eval/expanders.scm 210 */
											if (NULLP(CDR(BgL_cdrzd2164zd2_4480)))
												{	/* Eval/expanders.scm 210 */
													obj_t BgL_arg1410z00_4481;
													obj_t BgL_arg1411z00_4482;
													obj_t BgL_arg1412z00_4483;

													BgL_arg1410z00_4481 = CAR(BgL_cdrzd2154zd2_4478);
													BgL_arg1411z00_4482 = CAR(BgL_cdrzd2159zd2_4479);
													BgL_arg1412z00_4483 = CAR(BgL_cdrzd2164zd2_4480);
													{	/* Eval/expanders.scm 213 */
														obj_t BgL_arg1414z00_4484;

														{	/* Eval/expanders.scm 213 */
															obj_t BgL_arg1415z00_4485;
															obj_t BgL_arg1416z00_4486;

															BgL_arg1415z00_4485 =
																BGL_PROCEDURE_CALL2(BgL_ez00_3979,
																BgL_arg1410z00_4481, BgL_ez00_3979);
															{	/* Eval/expanders.scm 214 */
																obj_t BgL_arg1417z00_4487;
																obj_t BgL_arg1419z00_4488;

																BgL_arg1417z00_4487 =
																	BGL_PROCEDURE_CALL2(BgL_ez00_3979,
																	BgL_arg1411z00_4482, BgL_ez00_3979);
																{	/* Eval/expanders.scm 215 */
																	obj_t BgL_arg1420z00_4489;

																	BgL_arg1420z00_4489 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_3979,
																		BgL_arg1412z00_4483, BgL_ez00_3979);
																	BgL_arg1419z00_4488 =
																		MAKE_YOUNG_PAIR(BgL_arg1420z00_4489, BNIL);
																}
																BgL_arg1416z00_4486 =
																	MAKE_YOUNG_PAIR(BgL_arg1417z00_4487,
																	BgL_arg1419z00_4488);
															}
															BgL_arg1414z00_4484 =
																MAKE_YOUNG_PAIR(BgL_arg1415z00_4485,
																BgL_arg1416z00_4486);
														}
														return
															MAKE_YOUNG_PAIR
															(BGl_symbol2360z00zz__install_expandersz00,
															BgL_arg1414z00_4484);
													}
												}
											else
												{	/* Eval/expanders.scm 210 */
													return
														BGl_expandzd2errorzd2zz__install_expandersz00
														(BGl_string2361z00zz__install_expandersz00,
														BGl_string2480z00zz__install_expandersz00,
														BgL_xz00_3978);
												}
										}
									else
										{	/* Eval/expanders.scm 210 */
											return
												BGl_expandzd2errorzd2zz__install_expandersz00
												(BGl_string2361z00zz__install_expandersz00,
												BGl_string2480z00zz__install_expandersz00,
												BgL_xz00_3978);
										}
								}
							else
								{	/* Eval/expanders.scm 210 */
									return
										BGl_expandzd2errorzd2zz__install_expandersz00
										(BGl_string2361z00zz__install_expandersz00,
										BGl_string2480z00zz__install_expandersz00, BgL_xz00_3978);
								}
						}
					else
						{	/* Eval/expanders.scm 210 */
							return
								BGl_expandzd2errorzd2zz__install_expandersz00
								(BGl_string2361z00zz__install_expandersz00,
								BGl_string2480z00zz__install_expandersz00, BgL_xz00_3978);
						}
				}
			else
				{	/* Eval/expanders.scm 210 */
					return
						BGl_expandzd2errorzd2zz__install_expandersz00
						(BGl_string2361z00zz__install_expandersz00,
						BGl_string2480z00zz__install_expandersz00, BgL_xz00_3978);
				}
		}

	}



/* &<@anonymous:1388> */
	obj_t BGl_z62zc3z04anonymousza31388ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3980, obj_t BgL_xz00_3981, obj_t BgL_ez00_3982)
	{
		{	/* Eval/expanders.scm 191 */
			{
				obj_t BgL_expz00_4491;

				if (PAIRP(BgL_xz00_3981))
					{	/* Eval/expanders.scm 191 */
						obj_t BgL_cdrzd2139zd2_4497;

						BgL_cdrzd2139zd2_4497 = CDR(((obj_t) BgL_xz00_3981));
						if (PAIRP(BgL_cdrzd2139zd2_4497))
							{	/* Eval/expanders.scm 191 */
								if (NULLP(CDR(BgL_cdrzd2139zd2_4497)))
									{	/* Eval/expanders.scm 191 */
										BgL_expz00_4491 = CAR(BgL_cdrzd2139zd2_4497);
										{	/* Eval/expanders.scm 194 */
											obj_t BgL_arg1397z00_4492;

											{	/* Eval/expanders.scm 194 */
												obj_t BgL_arg1398z00_4493;

												{	/* Eval/expanders.scm 194 */
													obj_t BgL_arg1399z00_4494;

													{	/* Eval/expanders.scm 194 */
														obj_t BgL_arg1400z00_4495;

														{	/* Eval/expanders.scm 194 */
															obj_t BgL_arg1401z00_4496;

															BgL_arg1401z00_4496 =
																BGL_PROCEDURE_CALL2(BgL_ez00_3982,
																BgL_expz00_4491, BgL_ez00_3982);
															BgL_arg1400z00_4495 =
																MAKE_YOUNG_PAIR(BgL_arg1401z00_4496, BNIL);
														}
														BgL_arg1399z00_4494 =
															MAKE_YOUNG_PAIR(BNIL, BgL_arg1400z00_4495);
													}
													BgL_arg1398z00_4493 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2304z00zz__install_expandersz00,
														BgL_arg1399z00_4494);
												}
												BgL_arg1397z00_4492 =
													MAKE_YOUNG_PAIR(BgL_arg1398z00_4493, BNIL);
											}
											return
												MAKE_YOUNG_PAIR
												(BGl_symbol2481z00zz__install_expandersz00,
												BgL_arg1397z00_4492);
										}
									}
								else
									{	/* Eval/expanders.scm 191 */
										return
											BGl_expandzd2errorzd2zz__install_expandersz00
											(BGl_string2350z00zz__install_expandersz00,
											BGl_string2461z00zz__install_expandersz00, BgL_xz00_3981);
									}
							}
						else
							{	/* Eval/expanders.scm 191 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2350z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_3981);
							}
					}
				else
					{	/* Eval/expanders.scm 191 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2350z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_3981);
					}
			}
		}

	}



/* &<@anonymous:1385> */
	obj_t BGl_z62zc3z04anonymousza31385ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3983, obj_t BgL_xz00_3984, obj_t BgL_ez00_3985)
	{
		{	/* Eval/expanders.scm 187 */
			{	/* Eval/expanders.scm 188 */
				obj_t BgL_arg1386z00_4498;

				BgL_arg1386z00_4498 =
					BGl_expandzd2definezd2patternz00zz__evalz00(BgL_xz00_3984);
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_3985, BgL_arg1386z00_4498,
					BgL_ez00_3985);
			}
		}

	}



/* &<@anonymous:1382> */
	obj_t BGl_z62zc3z04anonymousza31382ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3986, obj_t BgL_xz00_3987, obj_t BgL_ez00_3988)
	{
		{	/* Eval/expanders.scm 183 */
			{	/* Eval/expanders.scm 184 */
				obj_t BgL_arg1383z00_4499;

				BgL_arg1383z00_4499 =
					BGl_expandzd2matchzd2lambdaz00zz__match_expandz00(BgL_xz00_3987);
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_3988, BgL_arg1383z00_4499,
					BgL_ez00_3988);
			}
		}

	}



/* &<@anonymous:1379> */
	obj_t BGl_z62zc3z04anonymousza31379ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3989, obj_t BgL_xz00_3990, obj_t BgL_ez00_3991)
	{
		{	/* Eval/expanders.scm 180 */
			{	/* Eval/expanders.scm 180 */
				obj_t BgL_arg1380z00_4500;

				BgL_arg1380z00_4500 =
					BGl_expandzd2matchzd2casez00zz__match_expandz00(BgL_xz00_3990);
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_3991, BgL_arg1380z00_4500,
					BgL_ez00_3991);
			}
		}

	}



/* &<@anonymous:1377> */
	obj_t BGl_z62zc3z04anonymousza31377ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3992, obj_t BgL_xz00_3993, obj_t BgL_ez00_3994)
	{
		{	/* Eval/expanders.scm 177 */
			return
				BGl_expandzd2tryzd2zz__expander_tryz00(BgL_xz00_3993, BgL_ez00_3994);
		}

	}



/* &<@anonymous:1375> */
	obj_t BGl_z62zc3z04anonymousza31375ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3995, obj_t BgL_xz00_3996, obj_t BgL_ez00_3997)
	{
		{	/* Eval/expanders.scm 174 */
			return BGl_expandzd2dozd2zz__expander_doz00(BgL_xz00_3996, BgL_ez00_3997);
		}

	}



/* &<@anonymous:1372> */
	obj_t BGl_z62zc3z04anonymousza31372ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_3998, obj_t BgL_xz00_3999, obj_t BgL_ez00_4000)
	{
		{	/* Eval/expanders.scm 171 */
			{	/* Eval/expanders.scm 171 */
				obj_t BgL_arg1373z00_4501;

				BgL_arg1373z00_4501 =
					BGl_expandzd2condzd2zz__expander_boolz00(BgL_xz00_3999);
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_4000, BgL_arg1373z00_4501,
					BgL_ez00_4000);
			}
		}

	}



/* &<@anonymous:1370> */
	obj_t BGl_z62zc3z04anonymousza31370ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4001, obj_t BgL_xz00_4002, obj_t BgL_ez00_4003)
	{
		{	/* Eval/expanders.scm 167 */
			return
				BGl_expandzd2definezd2expanderz00zz__evalz00(BgL_xz00_4002,
				BgL_ez00_4003);
		}

	}



/* &<@anonymous:1368> */
	obj_t BGl_z62zc3z04anonymousza31368ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4004, obj_t BgL_xz00_4005, obj_t BgL_ez00_4006)
	{
		{	/* Eval/expanders.scm 163 */
			return
				BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(BgL_xz00_4005,
				BgL_ez00_4006);
		}

	}



/* &<@anonymous:1366> */
	obj_t BGl_z62zc3z04anonymousza31366ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4007, obj_t BgL_xz00_4008, obj_t BgL_ez00_4009)
	{
		{	/* Eval/expanders.scm 159 */
			return
				BGl_expandzd2definezd2macroz00zz__evalz00(BgL_xz00_4008, BgL_ez00_4009);
		}

	}



/* &<@anonymous:1364> */
	obj_t BGl_z62zc3z04anonymousza31364ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4010, obj_t BgL_xz00_4011, obj_t BgL_ez00_4012)
	{
		{	/* Eval/expanders.scm 156 */
			return BgL_xz00_4011;
		}

	}



/* &<@anonymous:1361> */
	obj_t BGl_z62zc3z04anonymousza31361ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4013, obj_t BgL_xz00_4014, obj_t BgL_ez00_4015)
	{
		{	/* Eval/expanders.scm 153 */
			{	/* Eval/expanders.scm 153 */
				obj_t BgL_arg1362z00_4502;

				BgL_arg1362z00_4502 =
					BGl_quasiquotationz00zz__expander_quotez00(BINT(1L), BgL_xz00_4014);
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_4015, BgL_arg1362z00_4502,
					BgL_ez00_4015);
			}
		}

	}



/* &<@anonymous:1338> */
	obj_t BGl_z62zc3z04anonymousza31338ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4016, obj_t BgL_xz00_4017, obj_t BgL_ez00_4018)
	{
		{	/* Eval/expanders.scm 138 */
			{	/* Eval/expanders.scm 139 */
				bool_t BgL_test2706z00_5489;

				{
					obj_t BgL_l1087z00_4504;

					BgL_l1087z00_4504 = BgL_xz00_4017;
				BgL_zc3z04anonymousza31357ze3z87_4503:
					if (NULLP(BgL_l1087z00_4504))
						{	/* Eval/expanders.scm 139 */
							BgL_test2706z00_5489 = ((bool_t) 1);
						}
					else
						{	/* Eval/expanders.scm 139 */
							bool_t BgL_test2708z00_5492;

							{	/* Eval/expanders.scm 139 */
								obj_t BgL_tmpz00_5493;

								BgL_tmpz00_5493 = CAR(((obj_t) BgL_l1087z00_4504));
								BgL_test2708z00_5492 = SYMBOLP(BgL_tmpz00_5493);
							}
							if (BgL_test2708z00_5492)
								{
									obj_t BgL_l1087z00_5497;

									BgL_l1087z00_5497 = CDR(((obj_t) BgL_l1087z00_4504));
									BgL_l1087z00_4504 = BgL_l1087z00_5497;
									goto BgL_zc3z04anonymousza31357ze3z87_4503;
								}
							else
								{	/* Eval/expanders.scm 139 */
									BgL_test2706z00_5489 = ((bool_t) 0);
								}
						}
				}
				if (BgL_test2706z00_5489)
					{
						obj_t BgL_vz00_4506;
						obj_t BgL_restz00_4507;

						if (PAIRP(BgL_xz00_4017))
							{	/* Eval/expanders.scm 140 */
								obj_t BgL_cdrzd2118zd2_4514;

								BgL_cdrzd2118zd2_4514 = CDR(((obj_t) BgL_xz00_4017));
								if (PAIRP(BgL_cdrzd2118zd2_4514))
									{	/* Eval/expanders.scm 140 */
										BgL_vz00_4506 = CAR(BgL_cdrzd2118zd2_4514);
										BgL_restz00_4507 = CDR(BgL_cdrzd2118zd2_4514);
										{	/* Eval/expanders.scm 142 */
											obj_t BgL_nvz00_4508;

											BgL_nvz00_4508 =
												BGL_PROCEDURE_CALL2(BgL_ez00_4018, BgL_vz00_4506,
												BgL_ez00_4018);
											if (PAIRP(BgL_nvz00_4508))
												{	/* Eval/expanders.scm 143 */
													if (
														(CAR(
																((obj_t) BgL_nvz00_4508)) ==
															BGl_symbol2313z00zz__install_expandersz00))
														{	/* Eval/expanders.scm 143 */
															obj_t BgL_arg1351z00_4509;

															BgL_arg1351z00_4509 =
																CDR(((obj_t) BgL_nvz00_4508));
															{	/* Eval/expanders.scm 145 */
																obj_t BgL_arg1353z00_4510;

																{	/* Eval/expanders.scm 145 */
																	obj_t BgL_arg1355z00_4511;

																	BgL_arg1355z00_4511 =
																		BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																		(BgL_arg1351z00_4509, BgL_restz00_4507);
																	BgL_arg1353z00_4510 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2313z00zz__install_expandersz00,
																		BgL_arg1355z00_4511);
																}
																return
																	BGl_evepairifyz00zz__prognz00
																	(BgL_arg1353z00_4510, BgL_xz00_4017);
															}
														}
													else
														{	/* Eval/expanders.scm 143 */
															{	/* Eval/expanders.scm 147 */
																obj_t BgL_arg1356z00_4512;

																BgL_arg1356z00_4512 =
																	CDR(((obj_t) BgL_xz00_4017));
																{	/* Eval/expanders.scm 147 */
																	obj_t BgL_tmpz00_5524;

																	BgL_tmpz00_5524 =
																		((obj_t) BgL_arg1356z00_4512);
																	SET_CAR(BgL_tmpz00_5524, BgL_nvz00_4508);
																}
															}
															return BgL_xz00_4017;
														}
												}
											else
												{	/* Eval/expanders.scm 143 */
													{	/* Eval/expanders.scm 147 */
														obj_t BgL_arg1356z00_4513;

														BgL_arg1356z00_4513 = CDR(((obj_t) BgL_xz00_4017));
														{	/* Eval/expanders.scm 147 */
															obj_t BgL_tmpz00_5529;

															BgL_tmpz00_5529 = ((obj_t) BgL_arg1356z00_4513);
															SET_CAR(BgL_tmpz00_5529, BgL_nvz00_4508);
														}
													}
													return BgL_xz00_4017;
												}
										}
									}
								else
									{	/* Eval/expanders.scm 140 */
										return
											BGl_expandzd2errorzd2zz__install_expandersz00
											(BGl_string2314z00zz__install_expandersz00,
											BGl_string2461z00zz__install_expandersz00, BgL_xz00_4017);
									}
							}
						else
							{	/* Eval/expanders.scm 140 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2314z00zz__install_expandersz00,
									BGl_string2461z00zz__install_expandersz00, BgL_xz00_4017);
							}
					}
				else
					{	/* Eval/expanders.scm 95 */
						obj_t BgL_locz00_4515;

						if (EPAIRP(BgL_xz00_4017))
							{	/* Eval/expanders.scm 95 */
								BgL_locz00_4515 = CER(((obj_t) BgL_xz00_4017));
							}
						else
							{	/* Eval/expanders.scm 95 */
								BgL_locz00_4515 = BFALSE;
							}
						{	/* Eval/expanders.scm 96 */
							bool_t BgL_test2714z00_5540;

							if (PAIRP(BgL_locz00_4515))
								{	/* Eval/expanders.scm 96 */
									bool_t BgL_test2716z00_5543;

									{	/* Eval/expanders.scm 96 */
										obj_t BgL_tmpz00_5544;

										BgL_tmpz00_5544 = CDR(BgL_locz00_4515);
										BgL_test2716z00_5543 = PAIRP(BgL_tmpz00_5544);
									}
									if (BgL_test2716z00_5543)
										{	/* Eval/expanders.scm 96 */
											obj_t BgL_tmpz00_5547;

											BgL_tmpz00_5547 = CDR(CDR(BgL_locz00_4515));
											BgL_test2714z00_5540 = PAIRP(BgL_tmpz00_5547);
										}
									else
										{	/* Eval/expanders.scm 96 */
											BgL_test2714z00_5540 = ((bool_t) 0);
										}
								}
							else
								{	/* Eval/expanders.scm 96 */
									BgL_test2714z00_5540 = ((bool_t) 0);
								}
							if (BgL_test2714z00_5540)
								{	/* Eval/expanders.scm 96 */
									return
										BGl_errorzf2locationzf2zz__errorz00
										(BGl_string2314z00zz__install_expandersz00,
										BGl_string2461z00zz__install_expandersz00, BgL_xz00_4017,
										CAR(CDR(BgL_locz00_4515)), CAR(CDR(CDR(BgL_locz00_4515))));
								}
							else
								{	/* Eval/expanders.scm 96 */
									return
										BGl_errorz00zz__errorz00
										(BGl_string2314z00zz__install_expandersz00,
										BGl_string2461z00zz__install_expandersz00, BgL_xz00_4017);
								}
						}
					}
			}
		}

	}



/* &<@anonymous:1299> */
	obj_t BGl_z62zc3z04anonymousza31299ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4019, obj_t BgL_xz00_4020, obj_t BgL_ez00_4021)
	{
		{	/* Eval/expanders.scm 131 */
			if (PAIRP(BgL_xz00_4020))
				{	/* Eval/expanders.scm 131 */
					obj_t BgL_cdrzd2105zd2_4516;

					BgL_cdrzd2105zd2_4516 = CDR(((obj_t) BgL_xz00_4020));
					if (
						(CAR(
								((obj_t) BgL_xz00_4020)) ==
							BGl_symbol2310z00zz__install_expandersz00))
						{	/* Eval/expanders.scm 131 */
							if (PAIRP(BgL_cdrzd2105zd2_4516))
								{	/* Eval/expanders.scm 131 */
									obj_t BgL_cdrzd2107zd2_4517;

									BgL_cdrzd2107zd2_4517 = CDR(BgL_cdrzd2105zd2_4516);
									{	/* Eval/expanders.scm 131 */
										bool_t BgL_test2720z00_5569;

										{	/* Eval/expanders.scm 131 */
											obj_t BgL_tmpz00_5570;

											BgL_tmpz00_5570 = CAR(BgL_cdrzd2105zd2_4516);
											BgL_test2720z00_5569 = SYMBOLP(BgL_tmpz00_5570);
										}
										if (BgL_test2720z00_5569)
											{	/* Eval/expanders.scm 131 */
												if (PAIRP(BgL_cdrzd2107zd2_4517))
													{	/* Eval/expanders.scm 131 */
														bool_t BgL_test2722z00_5575;

														{	/* Eval/expanders.scm 131 */
															obj_t BgL_tmpz00_5576;

															BgL_tmpz00_5576 = CAR(BgL_cdrzd2107zd2_4517);
															BgL_test2722z00_5575 = SYMBOLP(BgL_tmpz00_5576);
														}
														if (BgL_test2722z00_5575)
															{	/* Eval/expanders.scm 131 */
																if (NULLP(CDR(BgL_cdrzd2107zd2_4517)))
																	{	/* Eval/expanders.scm 131 */
																		return BgL_xz00_4020;
																	}
																else
																	{	/* Eval/expanders.scm 131 */
																		return
																			BGl_expandzd2errorzd2zz__install_expandersz00
																			(BGl_string2311z00zz__install_expandersz00,
																			BGl_string2461z00zz__install_expandersz00,
																			BgL_xz00_4020);
																	}
															}
														else
															{	/* Eval/expanders.scm 131 */
																return
																	BGl_expandzd2errorzd2zz__install_expandersz00
																	(BGl_string2311z00zz__install_expandersz00,
																	BGl_string2461z00zz__install_expandersz00,
																	BgL_xz00_4020);
															}
													}
												else
													{	/* Eval/expanders.scm 131 */
														return
															BGl_expandzd2errorzd2zz__install_expandersz00
															(BGl_string2311z00zz__install_expandersz00,
															BGl_string2461z00zz__install_expandersz00,
															BgL_xz00_4020);
													}
											}
										else
											{	/* Eval/expanders.scm 131 */
												return
													BGl_expandzd2errorzd2zz__install_expandersz00
													(BGl_string2311z00zz__install_expandersz00,
													BGl_string2461z00zz__install_expandersz00,
													BgL_xz00_4020);
											}
									}
								}
							else
								{	/* Eval/expanders.scm 131 */
									return
										BGl_expandzd2errorzd2zz__install_expandersz00
										(BGl_string2311z00zz__install_expandersz00,
										BGl_string2461z00zz__install_expandersz00, BgL_xz00_4020);
								}
						}
					else
						{	/* Eval/expanders.scm 131 */
							return
								BGl_expandzd2errorzd2zz__install_expandersz00
								(BGl_string2311z00zz__install_expandersz00,
								BGl_string2461z00zz__install_expandersz00, BgL_xz00_4020);
						}
				}
			else
				{	/* Eval/expanders.scm 131 */
					return
						BGl_expandzd2errorzd2zz__install_expandersz00
						(BGl_string2311z00zz__install_expandersz00,
						BGl_string2461z00zz__install_expandersz00, BgL_xz00_4020);
				}
		}

	}



/* &<@anonymous:1296> */
	obj_t BGl_z62zc3z04anonymousza31296ze3ze5zz__install_expandersz00(obj_t
		BgL_envz00_4022, obj_t BgL_xz00_4023, obj_t BgL_ez00_4024)
	{
		{	/* Eval/expanders.scm 128 */
			return
				BGl_expandzd2quotezd2zz__expander_quotez00(BgL_xz00_4023,
				BgL_ez00_4024);
		}

	}



/* make-if~0 */
	obj_t BGl_makezd2ifze70z35zz__install_expandersz00(obj_t BgL_testz00_2001,
		obj_t BgL_thenz00_2002, obj_t BgL_elsez00_2003)
	{
		{	/* Eval/expanders.scm 503 */
			{

				if (PAIRP(BgL_testz00_2001))
					{	/* Eval/expanders.scm 503 */
						obj_t BgL_cdrzd2562zd2_2010;

						BgL_cdrzd2562zd2_2010 = CDR(((obj_t) BgL_testz00_2001));
						if (
							(CAR(
									((obj_t) BgL_testz00_2001)) ==
								BGl_symbol2483z00zz__install_expandersz00))
							{	/* Eval/expanders.scm 503 */
								if (PAIRP(BgL_cdrzd2562zd2_2010))
									{	/* Eval/expanders.scm 503 */
										if (NULLP(CDR(BgL_cdrzd2562zd2_2010)))
											{	/* Eval/expanders.scm 503 */
												obj_t BgL_arg1829z00_2016;

												BgL_arg1829z00_2016 = CAR(BgL_cdrzd2562zd2_2010);
												{	/* Eval/expanders.scm 501 */
													obj_t BgL_arg1833z00_3403;

													{	/* Eval/expanders.scm 501 */
														obj_t BgL_arg1834z00_3404;

														{	/* Eval/expanders.scm 501 */
															obj_t BgL_arg1835z00_3405;

															BgL_arg1835z00_3405 =
																MAKE_YOUNG_PAIR(BgL_thenz00_2002, BNIL);
															BgL_arg1834z00_3404 =
																MAKE_YOUNG_PAIR(BgL_elsez00_2003,
																BgL_arg1835z00_3405);
														}
														BgL_arg1833z00_3403 =
															MAKE_YOUNG_PAIR(BgL_arg1829z00_2016,
															BgL_arg1834z00_3404);
													}
													return
														MAKE_YOUNG_PAIR
														(BGl_symbol2302z00zz__install_expandersz00,
														BgL_arg1833z00_3403);
												}
											}
										else
											{	/* Eval/expanders.scm 503 */
											BgL_tagzd2557zd2_2007:
												{	/* Eval/expanders.scm 503 */
													obj_t BgL_arg1836z00_2022;

													{	/* Eval/expanders.scm 503 */
														obj_t BgL_arg1837z00_2023;

														{	/* Eval/expanders.scm 503 */
															obj_t BgL_arg1839z00_2024;

															BgL_arg1839z00_2024 =
																MAKE_YOUNG_PAIR(BgL_elsez00_2003, BNIL);
															BgL_arg1837z00_2023 =
																MAKE_YOUNG_PAIR(BgL_thenz00_2002,
																BgL_arg1839z00_2024);
														}
														BgL_arg1836z00_2022 =
															MAKE_YOUNG_PAIR(BgL_testz00_2001,
															BgL_arg1837z00_2023);
													}
													return
														MAKE_YOUNG_PAIR
														(BGl_symbol2302z00zz__install_expandersz00,
														BgL_arg1836z00_2022);
												}
											}
									}
								else
									{	/* Eval/expanders.scm 503 */
										goto BgL_tagzd2557zd2_2007;
									}
							}
						else
							{	/* Eval/expanders.scm 503 */
								goto BgL_tagzd2557zd2_2007;
							}
					}
				else
					{	/* Eval/expanders.scm 503 */
						goto BgL_tagzd2557zd2_2007;
					}
			}
		}

	}



/* &expand-if */
	obj_t BGl_z62expandzd2ifzb0zz__install_expandersz00(obj_t BgL_envz00_4058,
		obj_t BgL_xz00_4059, obj_t BgL_ez00_4060)
	{
		{	/* Eval/expanders.scm 496 */
			if (PAIRP(BgL_xz00_4059))
				{	/* Eval/expanders.scm 505 */
					obj_t BgL_cdrzd2578zd2_4518;

					BgL_cdrzd2578zd2_4518 = CDR(((obj_t) BgL_xz00_4059));
					if (
						(CAR(
								((obj_t) BgL_xz00_4059)) ==
							BGl_symbol2302z00zz__install_expandersz00))
						{	/* Eval/expanders.scm 505 */
							if (PAIRP(BgL_cdrzd2578zd2_4518))
								{	/* Eval/expanders.scm 505 */
									obj_t BgL_cdrzd2583zd2_4519;

									BgL_cdrzd2583zd2_4519 = CDR(BgL_cdrzd2578zd2_4518);
									if (PAIRP(BgL_cdrzd2583zd2_4519))
										{	/* Eval/expanders.scm 505 */
											obj_t BgL_cdrzd2588zd2_4520;

											BgL_cdrzd2588zd2_4520 = CDR(BgL_cdrzd2583zd2_4519);
											if (PAIRP(BgL_cdrzd2588zd2_4520))
												{	/* Eval/expanders.scm 505 */
													if (NULLP(CDR(BgL_cdrzd2588zd2_4520)))
														{	/* Eval/expanders.scm 505 */
															obj_t BgL_arg1805z00_4521;
															obj_t BgL_arg1807z00_4522;
															obj_t BgL_arg1808z00_4523;

															BgL_arg1805z00_4521 = CAR(BgL_cdrzd2578zd2_4518);
															BgL_arg1807z00_4522 = CAR(BgL_cdrzd2583zd2_4519);
															BgL_arg1808z00_4523 = CAR(BgL_cdrzd2588zd2_4520);
															{	/* Eval/expanders.scm 507 */
																obj_t BgL_nxz00_4524;

																{	/* Eval/expanders.scm 507 */
																	obj_t BgL_arg1817z00_4525;
																	obj_t BgL_arg1818z00_4526;
																	obj_t BgL_arg1819z00_4527;

																	BgL_arg1817z00_4525 =
																		BGl_expandzd2testzd2zz__install_expandersz00
																		(BgL_arg1805z00_4521, BgL_ez00_4060);
																	BgL_arg1818z00_4526 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_4060,
																		BgL_arg1807z00_4522, BgL_ez00_4060);
																	BgL_arg1819z00_4527 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_4060,
																		BgL_arg1808z00_4523, BgL_ez00_4060);
																	BgL_nxz00_4524 =
																		BGl_makezd2ifze70z35zz__install_expandersz00
																		(BgL_arg1817z00_4525, BgL_arg1818z00_4526,
																		BgL_arg1819z00_4527);
																}
																return
																	BGl_evepairifyzd2deepzd2zz__prognz00
																	(BgL_nxz00_4524, BgL_xz00_4059);
															}
														}
													else
														{	/* Eval/expanders.scm 505 */
															return
																BGl_expandzd2errorzd2zz__install_expandersz00
																(BGl_string2303z00zz__install_expandersz00,
																BGl_string2461z00zz__install_expandersz00,
																BgL_xz00_4059);
														}
												}
											else
												{	/* Eval/expanders.scm 505 */
													obj_t BgL_cdrzd2613zd2_4528;

													BgL_cdrzd2613zd2_4528 =
														CDR(((obj_t) BgL_cdrzd2578zd2_4518));
													if (NULLP(CDR(((obj_t) BgL_cdrzd2613zd2_4528))))
														{	/* Eval/expanders.scm 505 */
															obj_t BgL_arg1813z00_4529;
															obj_t BgL_arg1814z00_4530;

															BgL_arg1813z00_4529 =
																CAR(((obj_t) BgL_cdrzd2578zd2_4518));
															BgL_arg1814z00_4530 =
																CAR(((obj_t) BgL_cdrzd2613zd2_4528));
															{	/* Eval/expanders.scm 510 */
																obj_t BgL_nxz00_4531;

																{	/* Eval/expanders.scm 510 */
																	obj_t BgL_arg1820z00_4532;
																	obj_t BgL_arg1821z00_4533;

																	BgL_arg1820z00_4532 =
																		BGl_expandzd2testzd2zz__install_expandersz00
																		(BgL_arg1813z00_4529, BgL_ez00_4060);
																	BgL_arg1821z00_4533 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_4060,
																		BgL_arg1814z00_4530, BgL_ez00_4060);
																	BgL_nxz00_4531 =
																		BGl_makezd2ifze70z35zz__install_expandersz00
																		(BgL_arg1820z00_4532, BgL_arg1821z00_4533,
																		BFALSE);
																}
																return
																	BGl_evepairifyzd2deepzd2zz__prognz00
																	(BgL_nxz00_4531, BgL_xz00_4059);
															}
														}
													else
														{	/* Eval/expanders.scm 505 */
															return
																BGl_expandzd2errorzd2zz__install_expandersz00
																(BGl_string2303z00zz__install_expandersz00,
																BGl_string2461z00zz__install_expandersz00,
																BgL_xz00_4059);
														}
												}
										}
									else
										{	/* Eval/expanders.scm 505 */
											return
												BGl_expandzd2errorzd2zz__install_expandersz00
												(BGl_string2303z00zz__install_expandersz00,
												BGl_string2461z00zz__install_expandersz00,
												BgL_xz00_4059);
										}
								}
							else
								{	/* Eval/expanders.scm 505 */
									return
										BGl_expandzd2errorzd2zz__install_expandersz00
										(BGl_string2303z00zz__install_expandersz00,
										BGl_string2461z00zz__install_expandersz00, BgL_xz00_4059);
								}
						}
					else
						{	/* Eval/expanders.scm 505 */
							return
								BGl_expandzd2errorzd2zz__install_expandersz00
								(BGl_string2303z00zz__install_expandersz00,
								BGl_string2461z00zz__install_expandersz00, BgL_xz00_4059);
						}
				}
			else
				{	/* Eval/expanders.scm 505 */
					return
						BGl_expandzd2errorzd2zz__install_expandersz00
						(BGl_string2303z00zz__install_expandersz00,
						BGl_string2461z00zz__install_expandersz00, BgL_xz00_4059);
				}
		}

	}



/* &expand-tprint */
	obj_t BGl_z62expandzd2tprintzb0zz__install_expandersz00(obj_t BgL_envz00_4043,
		obj_t BgL_xz00_4044, obj_t BgL_ez00_4045)
	{
		{	/* Eval/expanders.scm 518 */
			{	/* Eval/expanders.scm 519 */
				obj_t BgL_objz00_4534;

				BgL_objz00_4534 = BGl_list2485z00zz__install_expandersz00;
				{	/* Eval/expanders.scm 519 */
					obj_t BgL_tmpz00_5671;

					BgL_tmpz00_5671 = ((obj_t) BgL_xz00_4044);
					SET_CAR(BgL_tmpz00_5671, BgL_objz00_4534);
				}
			}
			{	/* Eval/expanders.scm 520 */
				obj_t BgL_arg1840z00_4535;

				if (EPAIRP(BgL_xz00_4044))
					{
						obj_t BgL_namez00_4538;
						obj_t BgL_posz00_4539;

						{	/* Eval/expanders.scm 521 */
							obj_t BgL_ezd2641zd2_4550;

							BgL_ezd2641zd2_4550 = CER(((obj_t) BgL_xz00_4044));
							if (PAIRP(BgL_ezd2641zd2_4550))
								{	/* Eval/expanders.scm 521 */
									obj_t BgL_cdrzd2647zd2_4551;

									BgL_cdrzd2647zd2_4551 = CDR(BgL_ezd2641zd2_4550);
									if (
										(CAR(BgL_ezd2641zd2_4550) ==
											BGl_symbol2493z00zz__install_expandersz00))
										{	/* Eval/expanders.scm 521 */
											if (PAIRP(BgL_cdrzd2647zd2_4551))
												{	/* Eval/expanders.scm 521 */
													obj_t BgL_cdrzd2651zd2_4552;

													BgL_cdrzd2651zd2_4552 = CDR(BgL_cdrzd2647zd2_4551);
													if (PAIRP(BgL_cdrzd2651zd2_4552))
														{	/* Eval/expanders.scm 521 */
															if (NULLP(CDR(BgL_cdrzd2651zd2_4552)))
																{	/* Eval/expanders.scm 521 */
																	BgL_namez00_4538 = CAR(BgL_cdrzd2647zd2_4551);
																	BgL_posz00_4539 = CAR(BgL_cdrzd2651zd2_4552);
																	{	/* Eval/expanders.scm 525 */
																		obj_t BgL_arg1856z00_4540;

																		{	/* Eval/expanders.scm 525 */
																			obj_t BgL_arg1857z00_4541;

																			{	/* Eval/expanders.scm 525 */
																				obj_t BgL_arg1858z00_4542;
																				obj_t BgL_arg1859z00_4543;

																				BgL_arg1858z00_4542 =
																					BGl_relativezd2filezd2namez00zz__osz00
																					(BgL_namez00_4538,
																					BGl_pwdz00zz__osz00());
																				{	/* Eval/expanders.scm 527 */
																					obj_t BgL_arg1861z00_4544;

																					{	/* Eval/expanders.scm 527 */
																						obj_t BgL_arg1862z00_4545;
																						obj_t BgL_arg1863z00_4546;

																						BgL_arg1862z00_4545 =
																							BGl_filezd2positionzd2ze3lineze3zz__r4_input_6_10_2z00
																							(CINT(BgL_posz00_4539),
																							BgL_namez00_4538);
																						{	/* Eval/expanders.scm 529 */
																							obj_t BgL_arg1864z00_4547;

																							BgL_arg1864z00_4547 =
																								CDR(((obj_t) BgL_xz00_4044));
																							BgL_arg1863z00_4546 =
																								MAKE_YOUNG_PAIR
																								(BGl_string2488z00zz__install_expandersz00,
																								BgL_arg1864z00_4547);
																						}
																						BgL_arg1861z00_4544 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1862z00_4545,
																							BgL_arg1863z00_4546);
																					}
																					BgL_arg1859z00_4543 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2489z00zz__install_expandersz00,
																						BgL_arg1861z00_4544);
																				}
																				BgL_arg1857z00_4541 =
																					MAKE_YOUNG_PAIR(BgL_arg1858z00_4542,
																					BgL_arg1859z00_4543);
																			}
																			BgL_arg1856z00_4540 =
																				MAKE_YOUNG_PAIR
																				(BGl_list2490z00zz__install_expandersz00,
																				BgL_arg1857z00_4541);
																		}
																		{	/* Eval/expanders.scm 523 */
																			obj_t BgL_tmpz00_5703;

																			BgL_tmpz00_5703 = ((obj_t) BgL_xz00_4044);
																			SET_CDR(BgL_tmpz00_5703,
																				BgL_arg1856z00_4540);
																		}
																	}
																	BgL_arg1840z00_4535 = BgL_xz00_4044;
																}
															else
																{	/* Eval/expanders.scm 521 */
																BgL_tagzd2640zd2_4537:
																	{	/* Eval/expanders.scm 532 */
																		obj_t BgL_arg1865z00_4548;

																		{	/* Eval/expanders.scm 532 */
																			obj_t BgL_arg1866z00_4549;

																			BgL_arg1866z00_4549 =
																				CDR(((obj_t) BgL_xz00_4044));
																			BgL_arg1865z00_4548 =
																				MAKE_YOUNG_PAIR
																				(BGl_list2490z00zz__install_expandersz00,
																				BgL_arg1866z00_4549);
																		}
																		{	/* Eval/expanders.scm 532 */
																			obj_t BgL_tmpz00_5711;

																			BgL_tmpz00_5711 = ((obj_t) BgL_xz00_4044);
																			SET_CDR(BgL_tmpz00_5711,
																				BgL_arg1865z00_4548);
																		}
																	}
																	BgL_arg1840z00_4535 = BgL_xz00_4044;
																}
														}
													else
														{	/* Eval/expanders.scm 521 */
															goto BgL_tagzd2640zd2_4537;
														}
												}
											else
												{	/* Eval/expanders.scm 521 */
													goto BgL_tagzd2640zd2_4537;
												}
										}
									else
										{	/* Eval/expanders.scm 521 */
											goto BgL_tagzd2640zd2_4537;
										}
								}
							else
								{	/* Eval/expanders.scm 521 */
									goto BgL_tagzd2640zd2_4537;
								}
						}
					}
				else
					{	/* Eval/expanders.scm 520 */
						{	/* Eval/expanders.scm 535 */
							obj_t BgL_arg1867z00_4553;

							{	/* Eval/expanders.scm 535 */
								obj_t BgL_arg1868z00_4554;

								BgL_arg1868z00_4554 = CDR(((obj_t) BgL_xz00_4044));
								BgL_arg1867z00_4553 =
									MAKE_YOUNG_PAIR(BGl_list2490z00zz__install_expandersz00,
									BgL_arg1868z00_4554);
							}
							{	/* Eval/expanders.scm 535 */
								obj_t BgL_tmpz00_5717;

								BgL_tmpz00_5717 = ((obj_t) BgL_xz00_4044);
								SET_CDR(BgL_tmpz00_5717, BgL_arg1867z00_4553);
							}
						}
						BgL_arg1840z00_4535 = BgL_xz00_4044;
					}
				return
					BGL_PROCEDURE_CALL2(BgL_ez00_4045, BgL_arg1840z00_4535,
					BgL_ez00_4045);
			}
		}

	}



/* &expand-begin */
	obj_t BGl_z62expandzd2beginzb0zz__install_expandersz00(obj_t BgL_envz00_4034,
		obj_t BgL_xz00_4035, obj_t BgL_ez00_4036)
	{
		{	/* Eval/expanders.scm 542 */
			{
				obj_t BgL_bodyz00_4556;

				if (PAIRP(BgL_xz00_4035))
					{	/* Eval/expanders.scm 543 */
						obj_t BgL_arg1870z00_4567;

						BgL_arg1870z00_4567 = CDR(((obj_t) BgL_xz00_4035));
						BgL_bodyz00_4556 = BgL_arg1870z00_4567;
						if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_4556))
							{	/* Eval/expanders.scm 547 */
								obj_t BgL_arg1873z00_4557;

								if (NULLP(BgL_bodyz00_4556))
									{	/* Eval/expanders.scm 547 */
										BgL_arg1873z00_4557 = BNIL;
									}
								else
									{	/* Eval/expanders.scm 547 */
										obj_t BgL_head1139z00_4558;

										BgL_head1139z00_4558 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_l1137z00_4560;
											obj_t BgL_tail1140z00_4561;

											BgL_l1137z00_4560 = BgL_bodyz00_4556;
											BgL_tail1140z00_4561 = BgL_head1139z00_4558;
										BgL_zc3z04anonymousza31875ze3z87_4559:
											if (NULLP(BgL_l1137z00_4560))
												{	/* Eval/expanders.scm 547 */
													BgL_arg1873z00_4557 = CDR(BgL_head1139z00_4558);
												}
											else
												{	/* Eval/expanders.scm 547 */
													obj_t BgL_newtail1141z00_4562;

													{	/* Eval/expanders.scm 547 */
														obj_t BgL_arg1879z00_4563;

														{	/* Eval/expanders.scm 547 */
															obj_t BgL_xz00_4564;

															BgL_xz00_4564 = CAR(((obj_t) BgL_l1137z00_4560));
															BgL_arg1879z00_4563 =
																BGL_PROCEDURE_CALL2(BgL_ez00_4036,
																BgL_xz00_4564, BgL_ez00_4036);
														}
														BgL_newtail1141z00_4562 =
															MAKE_YOUNG_PAIR(BgL_arg1879z00_4563, BNIL);
													}
													SET_CDR(BgL_tail1140z00_4561,
														BgL_newtail1141z00_4562);
													{	/* Eval/expanders.scm 547 */
														obj_t BgL_arg1878z00_4565;

														BgL_arg1878z00_4565 =
															CDR(((obj_t) BgL_l1137z00_4560));
														{
															obj_t BgL_tail1140z00_5749;
															obj_t BgL_l1137z00_5748;

															BgL_l1137z00_5748 = BgL_arg1878z00_4565;
															BgL_tail1140z00_5749 = BgL_newtail1141z00_4562;
															BgL_tail1140z00_4561 = BgL_tail1140z00_5749;
															BgL_l1137z00_4560 = BgL_l1137z00_5748;
															goto BgL_zc3z04anonymousza31875ze3z87_4559;
														}
													}
												}
										}
									}
								return BGl_expandzd2prognzd2zz__prognz00(BgL_arg1873z00_4557);
							}
						else
							{	/* Eval/expanders.scm 95 */
								obj_t BgL_locz00_4566;

								if (EPAIRP(BgL_xz00_4035))
									{	/* Eval/expanders.scm 95 */
										BgL_locz00_4566 = CER(((obj_t) BgL_xz00_4035));
									}
								else
									{	/* Eval/expanders.scm 95 */
										BgL_locz00_4566 = BFALSE;
									}
								{	/* Eval/expanders.scm 96 */
									bool_t BgL_test2746z00_5755;

									if (PAIRP(BgL_locz00_4566))
										{	/* Eval/expanders.scm 96 */
											bool_t BgL_test2748z00_5758;

											{	/* Eval/expanders.scm 96 */
												obj_t BgL_tmpz00_5759;

												BgL_tmpz00_5759 = CDR(BgL_locz00_4566);
												BgL_test2748z00_5758 = PAIRP(BgL_tmpz00_5759);
											}
											if (BgL_test2748z00_5758)
												{	/* Eval/expanders.scm 96 */
													obj_t BgL_tmpz00_5762;

													BgL_tmpz00_5762 = CDR(CDR(BgL_locz00_4566));
													BgL_test2746z00_5755 = PAIRP(BgL_tmpz00_5762);
												}
											else
												{	/* Eval/expanders.scm 96 */
													BgL_test2746z00_5755 = ((bool_t) 0);
												}
										}
									else
										{	/* Eval/expanders.scm 96 */
											BgL_test2746z00_5755 = ((bool_t) 0);
										}
									if (BgL_test2746z00_5755)
										{	/* Eval/expanders.scm 96 */
											return
												BGl_errorzf2locationzf2zz__errorz00
												(BGl_string2358z00zz__install_expandersz00,
												BGl_string2461z00zz__install_expandersz00,
												BgL_xz00_4035, CAR(CDR(BgL_locz00_4566)),
												CAR(CDR(CDR(BgL_locz00_4566))));
										}
									else
										{	/* Eval/expanders.scm 96 */
											return
												BGl_errorz00zz__errorz00
												(BGl_string2358z00zz__install_expandersz00,
												BGl_string2461z00zz__install_expandersz00,
												BgL_xz00_4035);
										}
								}
							}
					}
				else
					{	/* Eval/expanders.scm 543 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2358z00zz__install_expandersz00,
							BGl_string2461z00zz__install_expandersz00, BgL_xz00_4035);
					}
			}
		}

	}



/* &expand-and-let* */
	obj_t BGl_z62expandzd2andzd2letza2zc0zz__install_expandersz00(obj_t
		BgL_envz00_4046, obj_t BgL_xz00_4047, obj_t BgL_ez00_4048)
	{
		{	/* Eval/expanders.scm 554 */
			{
				obj_t BgL_clawsz00_4569;
				obj_t BgL_bodyz00_4570;

				if (PAIRP(BgL_xz00_4047))
					{	/* Eval/expanders.scm 555 */
						obj_t BgL_cdrzd2673zd2_4597;

						BgL_cdrzd2673zd2_4597 = CDR(((obj_t) BgL_xz00_4047));
						if (PAIRP(BgL_cdrzd2673zd2_4597))
							{	/* Eval/expanders.scm 555 */
								BgL_clawsz00_4569 = CAR(BgL_cdrzd2673zd2_4597);
								BgL_bodyz00_4570 = CDR(BgL_cdrzd2673zd2_4597);
								{	/* Eval/expanders.scm 557 */
									obj_t BgL_newzd2varszd2_4571;

									BgL_newzd2varszd2_4571 = BNIL;
									{	/* Eval/expanders.scm 557 */
										obj_t BgL_resultz00_4572;

										BgL_resultz00_4572 =
											MAKE_YOUNG_PAIR(BGl_symbol2495z00zz__install_expandersz00,
											BNIL);
										{	/* Eval/expanders.scm 557 */
											obj_t BgL_growthzd2pointzd2_4573;

											BgL_growthzd2pointzd2_4573 = BgL_resultz00_4572;
											{	/* Eval/expanders.scm 557 */

												if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
													(BgL_clawsz00_4569))
													{	/* Eval/expanders.scm 562 */
														BFALSE;
													}
												else
													{	/* Eval/expanders.scm 95 */
														obj_t BgL_locz00_4574;

														if (EPAIRP(BgL_clawsz00_4569))
															{	/* Eval/expanders.scm 95 */
																BgL_locz00_4574 =
																	CER(((obj_t) BgL_clawsz00_4569));
															}
														else
															{	/* Eval/expanders.scm 95 */
																BgL_locz00_4574 = BFALSE;
															}
														{	/* Eval/expanders.scm 96 */
															bool_t BgL_test2753z00_5787;

															if (PAIRP(BgL_locz00_4574))
																{	/* Eval/expanders.scm 96 */
																	bool_t BgL_test2755z00_5790;

																	{	/* Eval/expanders.scm 96 */
																		obj_t BgL_tmpz00_5791;

																		BgL_tmpz00_5791 = CDR(BgL_locz00_4574);
																		BgL_test2755z00_5790 =
																			PAIRP(BgL_tmpz00_5791);
																	}
																	if (BgL_test2755z00_5790)
																		{	/* Eval/expanders.scm 96 */
																			obj_t BgL_tmpz00_5794;

																			BgL_tmpz00_5794 =
																				CDR(CDR(BgL_locz00_4574));
																			BgL_test2753z00_5787 =
																				PAIRP(BgL_tmpz00_5794);
																		}
																	else
																		{	/* Eval/expanders.scm 96 */
																			BgL_test2753z00_5787 = ((bool_t) 0);
																		}
																}
															else
																{	/* Eval/expanders.scm 96 */
																	BgL_test2753z00_5787 = ((bool_t) 0);
																}
															if (BgL_test2753z00_5787)
																{	/* Eval/expanders.scm 96 */
																	BGl_errorzf2locationzf2zz__errorz00(BFALSE,
																		BGl_string2497z00zz__install_expandersz00,
																		BgL_clawsz00_4569,
																		CAR(CDR(BgL_locz00_4574)),
																		CAR(CDR(CDR(BgL_locz00_4574))));
																}
															else
																{	/* Eval/expanders.scm 96 */
																	BGl_errorz00zz__errorz00(BFALSE,
																		BGl_string2497z00zz__install_expandersz00,
																		BgL_clawsz00_4569);
																}
														}
													}
												{
													obj_t BgL_l1142z00_4576;

													BgL_l1142z00_4576 = BgL_clawsz00_4569;
												BgL_zc3z04anonymousza31885ze3z87_4575:
													if (PAIRP(BgL_l1142z00_4576))
														{	/* Eval/expanders.scm 564 */
															{	/* Eval/expanders.scm 567 */
																obj_t BgL_clawz00_4577;

																BgL_clawz00_4577 = CAR(BgL_l1142z00_4576);
																if (SYMBOLP(BgL_clawz00_4577))
																	{	/* Eval/expanders.scm 559 */
																		obj_t BgL_prevzd2pointzd2_4578;
																		obj_t BgL_clausezd2cellzd2_4579;

																		BgL_prevzd2pointzd2_4578 =
																			BgL_growthzd2pointzd2_4573;
																		BgL_clausezd2cellzd2_4579 =
																			MAKE_YOUNG_PAIR(BgL_clawz00_4577, BNIL);
																		SET_CDR(BgL_growthzd2pointzd2_4573,
																			BgL_clausezd2cellzd2_4579);
																		BgL_growthzd2pointzd2_4573 =
																			BgL_clausezd2cellzd2_4579;
																	}
																else
																	{	/* Eval/expanders.scm 570 */
																		bool_t BgL_test2758z00_5812;

																		if (PAIRP(BgL_clawz00_4577))
																			{	/* Eval/expanders.scm 570 */
																				BgL_test2758z00_5812 =
																					NULLP(CDR(BgL_clawz00_4577));
																			}
																		else
																			{	/* Eval/expanders.scm 570 */
																				BgL_test2758z00_5812 = ((bool_t) 0);
																			}
																		if (BgL_test2758z00_5812)
																			{	/* Eval/expanders.scm 572 */
																				obj_t BgL_arg1891z00_4580;

																				BgL_arg1891z00_4580 =
																					CAR(BgL_clawz00_4577);
																				{	/* Eval/expanders.scm 559 */
																					obj_t BgL_prevzd2pointzd2_4581;
																					obj_t BgL_clausezd2cellzd2_4582;

																					BgL_prevzd2pointzd2_4581 =
																						BgL_growthzd2pointzd2_4573;
																					BgL_clausezd2cellzd2_4582 =
																						MAKE_YOUNG_PAIR(BgL_arg1891z00_4580,
																						BNIL);
																					SET_CDR(BgL_growthzd2pointzd2_4573,
																						BgL_clausezd2cellzd2_4582);
																					BgL_growthzd2pointzd2_4573 =
																						BgL_clausezd2cellzd2_4582;
																				}
																			}
																		else
																			{	/* Eval/expanders.scm 574 */
																				bool_t BgL_test2760z00_5820;

																				if (PAIRP(BgL_clawz00_4577))
																					{	/* Eval/expanders.scm 574 */
																						bool_t BgL_test2762z00_5823;

																						{	/* Eval/expanders.scm 574 */
																							obj_t BgL_tmpz00_5824;

																							BgL_tmpz00_5824 =
																								CAR(BgL_clawz00_4577);
																							BgL_test2762z00_5823 =
																								SYMBOLP(BgL_tmpz00_5824);
																						}
																						if (BgL_test2762z00_5823)
																							{	/* Eval/expanders.scm 575 */
																								bool_t BgL_test2763z00_5827;

																								{	/* Eval/expanders.scm 575 */
																									obj_t BgL_tmpz00_5828;

																									BgL_tmpz00_5828 =
																										CDR(BgL_clawz00_4577);
																									BgL_test2763z00_5827 =
																										PAIRP(BgL_tmpz00_5828);
																								}
																								if (BgL_test2763z00_5827)
																									{	/* Eval/expanders.scm 575 */
																										BgL_test2760z00_5820 =
																											NULLP(CDR(CDR
																												(BgL_clawz00_4577)));
																									}
																								else
																									{	/* Eval/expanders.scm 575 */
																										BgL_test2760z00_5820 =
																											((bool_t) 0);
																									}
																							}
																						else
																							{	/* Eval/expanders.scm 574 */
																								BgL_test2760z00_5820 =
																									((bool_t) 0);
																							}
																					}
																				else
																					{	/* Eval/expanders.scm 574 */
																						BgL_test2760z00_5820 = ((bool_t) 0);
																					}
																				if (BgL_test2760z00_5820)
																					{	/* Eval/expanders.scm 576 */
																						obj_t BgL_varz00_4583;

																						BgL_varz00_4583 =
																							CAR(BgL_clawz00_4577);
																						{	/* Eval/expanders.scm 576 */
																							obj_t BgL_varzd2cellzd2_4584;

																							BgL_varzd2cellzd2_4584 =
																								MAKE_YOUNG_PAIR(BgL_varz00_4583,
																								BNIL);
																							{	/* Eval/expanders.scm 576 */

																								if (CBOOL
																									(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																										(BgL_varz00_4583,
																											BgL_newzd2varszd2_4571)))
																									{	/* Eval/expanders.scm 95 */
																										obj_t BgL_locz00_4585;

																										if (EPAIRP(BgL_varz00_4583))
																											{	/* Eval/expanders.scm 95 */
																												BgL_locz00_4585 =
																													CER(
																													((obj_t)
																														BgL_varz00_4583));
																											}
																										else
																											{	/* Eval/expanders.scm 95 */
																												BgL_locz00_4585 =
																													BFALSE;
																											}
																										{	/* Eval/expanders.scm 96 */
																											bool_t
																												BgL_test2766z00_5843;
																											if (PAIRP
																												(BgL_locz00_4585))
																												{	/* Eval/expanders.scm 96 */
																													bool_t
																														BgL_test2768z00_5846;
																													{	/* Eval/expanders.scm 96 */
																														obj_t
																															BgL_tmpz00_5847;
																														BgL_tmpz00_5847 =
																															CDR
																															(BgL_locz00_4585);
																														BgL_test2768z00_5846
																															=
																															PAIRP
																															(BgL_tmpz00_5847);
																													}
																													if (BgL_test2768z00_5846)
																														{	/* Eval/expanders.scm 96 */
																															obj_t
																																BgL_tmpz00_5850;
																															BgL_tmpz00_5850 =
																																CDR(CDR
																																(BgL_locz00_4585));
																															BgL_test2766z00_5843
																																=
																																PAIRP
																																(BgL_tmpz00_5850);
																														}
																													else
																														{	/* Eval/expanders.scm 96 */
																															BgL_test2766z00_5843
																																= ((bool_t) 0);
																														}
																												}
																											else
																												{	/* Eval/expanders.scm 96 */
																													BgL_test2766z00_5843 =
																														((bool_t) 0);
																												}
																											if (BgL_test2766z00_5843)
																												{	/* Eval/expanders.scm 96 */
																													BGl_errorzf2locationzf2zz__errorz00
																														(BGl_string2409z00zz__install_expandersz00,
																														BGl_string2498z00zz__install_expandersz00,
																														BgL_varz00_4583,
																														CAR(CDR
																															(BgL_locz00_4585)),
																														CAR(CDR(CDR
																																(BgL_locz00_4585))));
																												}
																											else
																												{	/* Eval/expanders.scm 96 */
																													BGl_errorz00zz__errorz00
																														(BGl_string2409z00zz__install_expandersz00,
																														BGl_string2498z00zz__install_expandersz00,
																														BgL_varz00_4583);
																												}
																										}
																									}
																								else
																									{	/* Eval/expanders.scm 577 */
																										BFALSE;
																									}
																								BgL_newzd2varszd2_4571 =
																									MAKE_YOUNG_PAIR
																									(BgL_varz00_4583,
																									BgL_newzd2varszd2_4571);
																								{	/* Eval/expanders.scm 582 */
																									obj_t BgL_arg1905z00_4586;

																									{	/* Eval/expanders.scm 582 */
																										obj_t BgL_arg1906z00_4587;

																										{	/* Eval/expanders.scm 582 */
																											obj_t BgL_arg1907z00_4588;

																											{	/* Eval/expanders.scm 582 */
																												obj_t
																													BgL_arg1908z00_4589;
																												obj_t
																													BgL_arg1911z00_4590;
																												BgL_arg1908z00_4589 =
																													MAKE_YOUNG_PAIR
																													(BgL_clawz00_4577,
																													BNIL);
																												{	/* Eval/expanders.scm 582 */
																													obj_t
																														BgL_arg1914z00_4591;
																													BgL_arg1914z00_4591 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2495z00zz__install_expandersz00,
																														BgL_varzd2cellzd2_4584);
																													BgL_arg1911z00_4590 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1914z00_4591,
																														BNIL);
																												}
																												BgL_arg1907z00_4588 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1908z00_4589,
																													BgL_arg1911z00_4590);
																											}
																											BgL_arg1906z00_4587 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2408z00zz__install_expandersz00,
																												BgL_arg1907z00_4588);
																										}
																										BgL_arg1905z00_4586 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1906z00_4587,
																											BNIL);
																									}
																									SET_CDR
																										(BgL_growthzd2pointzd2_4573,
																										BgL_arg1905z00_4586);
																								}
																								BgL_growthzd2pointzd2_4573 =
																									BgL_varzd2cellzd2_4584;
																							}
																						}
																					}
																				else
																					{	/* Eval/expanders.scm 95 */
																						obj_t BgL_locz00_4592;

																						if (EPAIRP(BgL_clawz00_4577))
																							{	/* Eval/expanders.scm 95 */
																								BgL_locz00_4592 =
																									CER(
																									((obj_t) BgL_clawz00_4577));
																							}
																						else
																							{	/* Eval/expanders.scm 95 */
																								BgL_locz00_4592 = BFALSE;
																							}
																						{	/* Eval/expanders.scm 96 */
																							bool_t BgL_test2770z00_5873;

																							if (PAIRP(BgL_locz00_4592))
																								{	/* Eval/expanders.scm 96 */
																									bool_t BgL_test2772z00_5876;

																									{	/* Eval/expanders.scm 96 */
																										obj_t BgL_tmpz00_5877;

																										BgL_tmpz00_5877 =
																											CDR(BgL_locz00_4592);
																										BgL_test2772z00_5876 =
																											PAIRP(BgL_tmpz00_5877);
																									}
																									if (BgL_test2772z00_5876)
																										{	/* Eval/expanders.scm 96 */
																											obj_t BgL_tmpz00_5880;

																											BgL_tmpz00_5880 =
																												CDR(CDR
																												(BgL_locz00_4592));
																											BgL_test2770z00_5873 =
																												PAIRP(BgL_tmpz00_5880);
																										}
																									else
																										{	/* Eval/expanders.scm 96 */
																											BgL_test2770z00_5873 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Eval/expanders.scm 96 */
																									BgL_test2770z00_5873 =
																										((bool_t) 0);
																								}
																							if (BgL_test2770z00_5873)
																								{	/* Eval/expanders.scm 96 */
																									BGl_errorzf2locationzf2zz__errorz00
																										(BGl_string2409z00zz__install_expandersz00,
																										BGl_string2499z00zz__install_expandersz00,
																										BgL_clawz00_4577,
																										CAR(CDR(BgL_locz00_4592)),
																										CAR(CDR(CDR
																												(BgL_locz00_4592))));
																								}
																							else
																								{	/* Eval/expanders.scm 96 */
																									BGl_errorz00zz__errorz00
																										(BGl_string2409z00zz__install_expandersz00,
																										BGl_string2499z00zz__install_expandersz00,
																										BgL_clawz00_4577);
																								}
																						}
																					}
																			}
																	}
															}
															{
																obj_t BgL_l1142z00_5891;

																BgL_l1142z00_5891 = CDR(BgL_l1142z00_4576);
																BgL_l1142z00_4576 = BgL_l1142z00_5891;
																goto BgL_zc3z04anonymousza31885ze3z87_4575;
															}
														}
													else
														{	/* Eval/expanders.scm 564 */
															((bool_t) 1);
														}
												}
												if (NULLP(BgL_bodyz00_4570))
													{	/* Eval/expanders.scm 587 */
														BFALSE;
													}
												else
													{	/* Eval/expanders.scm 587 */
														obj_t BgL_arg1921z00_4593;

														BgL_arg1921z00_4593 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2357z00zz__install_expandersz00,
															BgL_bodyz00_4570);
														{	/* Eval/expanders.scm 559 */
															obj_t BgL_prevzd2pointzd2_4594;
															obj_t BgL_clausezd2cellzd2_4595;

															BgL_prevzd2pointzd2_4594 =
																BgL_growthzd2pointzd2_4573;
															BgL_clausezd2cellzd2_4595 =
																MAKE_YOUNG_PAIR(BgL_arg1921z00_4593, BNIL);
															SET_CDR(BgL_growthzd2pointzd2_4573,
																BgL_clausezd2cellzd2_4595);
															BgL_growthzd2pointzd2_4573 =
																BgL_clausezd2cellzd2_4595;
														}
													}
												{	/* Eval/expanders.scm 588 */
													obj_t BgL_arg1922z00_4596;

													BgL_arg1922z00_4596 =
														BGL_PROCEDURE_CALL2(BgL_ez00_4048,
														BgL_resultz00_4572, BgL_ez00_4048);
													return
														BGl_evepairifyz00zz__prognz00(BgL_arg1922z00_4596,
														BgL_xz00_4047);
												}
											}
										}
									}
								}
							}
						else
							{	/* Eval/expanders.scm 555 */
								return
									BGl_expandzd2errorzd2zz__install_expandersz00
									(BGl_string2409z00zz__install_expandersz00,
									BGl_string2500z00zz__install_expandersz00, BgL_xz00_4047);
							}
					}
				else
					{	/* Eval/expanders.scm 555 */
						return
							BGl_expandzd2errorzd2zz__install_expandersz00
							(BGl_string2409z00zz__install_expandersz00,
							BGl_string2500z00zz__install_expandersz00, BgL_xz00_4047);
					}
			}
		}

	}



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

	}



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

	}



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

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__install_expandersz00(void)
	{
		{	/* Eval/expanders.scm 15 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__macroz00(261397491L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_quotez00(289720124L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_letz00(467858524L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_boolz00(229205836L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_casez00(73646821L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_definez00(380411245L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_doz00(285051678L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_tryz00(364756758L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_structz00(90470135L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_recordz00(231151045L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_srfi0z00(498124579L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_argsz00(506328475L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expander_tracez00(358612829L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__evalz00(35539458L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__lalr_expandz00(481153209L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__rgc_expandz00(402413976L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__match_expandz00(390935634L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			BGl_modulezd2initializa7ationz75zz__evobjectz00(481718039L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
			return
				BGl_modulezd2initializa7ationz75zz__r5_macro_4_3_syntaxz00(72617499L,
				BSTRING_TO_STRING(BGl_string2501z00zz__install_expandersz00));
		}

	}

#ifdef __cplusplus
}
#endif
