/*===========================================================================*/
/*   (Eval/expand.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/expand.scm -indent -o objs/obj_u/Eval/expand.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___EXPAND_TYPE_DEFINITIONS
#define BGL___EXPAND_TYPE_DEFINITIONS
#endif													// BGL___EXPAND_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62expandzd2errorzb0zz__expandz00(obj_t, obj_t, obj_t,
		obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62z52lexicalzd2stackze2zz__expandz00(obj_t);
	static obj_t BGl_z62initialzd2expanderzb0zz__expandz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol1683z00zz__expandz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__expandz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31193ze3ze5zz__expandz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62expandzd2oncezb0zz__expandz00(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__macroz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evutilsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(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__osz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
	BGL_EXPORTED_DECL obj_t BGl_expandz00zz__expandz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_z52withzd2lexicalz80zz__expandz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__expandz00(void);
	static obj_t BGl_genericzd2initzd2zz__expandz00(void);
	BGL_EXPORTED_DECL obj_t BGl_z52lexicalzd2stackz80zz__expandz00(void);
	static obj_t BGl_importedzd2moduleszd2initz00zz__expandz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__expandz00(void);
	static obj_t BGl_objectzd2initzd2zz__expandz00(void);
	extern obj_t BGl_getzd2evalzd2expanderz00zz__macroz00(obj_t);
	static obj_t BGl_z62identifierzd2evalzd2expanderz62zz__expandz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62applicationzd2evalzd2expanderz12z70zz__expandz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandz12z12zz__expandz00(obj_t);
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	static obj_t BGl_z62expandz12z70zz__expandz00(obj_t, obj_t);
	extern obj_t BGl_parsezd2formalzd2identz00zz__evutilsz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31225ze3ze5zz__expandz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62z52withzd2lexicalze2zz__expandz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_expandzd2oncezd2zz__expandz00(obj_t);
	static obj_t BGl_z62initialzd2expanderz12za2zz__expandz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_appendzd221011zd2zz__expandz00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__expandz00(void);
	static obj_t BGl_loopze70ze7zz__expandz00(obj_t, obj_t);
	static obj_t BGl_z62expandz62zz__expandz00(obj_t, obj_t);
	static obj_t BGl_initialzd2expanderzf2applicationz20zz__expandz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31263ze3ze5zz__expandz00(obj_t);
	static obj_t BGl_z62applicationzd2evalzd2expanderz62zz__expandz00(obj_t,
		obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_identifierzd2evalzd2expanderzd2envzd2zz__expandz00,
		BgL_bgl_za762identifierza7d21686z00,
		BGl_z62identifierzd2evalzd2expanderz62zz__expandz00, 0L, BUNSPEC, 2);
	     
		DEFINE_STATIC_BGL_PROCEDURE(BGl_initialzd2expanderzd2envz00zz__expandz00,
		BgL_bgl_za762initialza7d2exp1687z00,
		BGl_z62initialzd2expanderzb0zz__expandz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2oncezd2envz00zz__expandz00,
		BgL_bgl_za762expandza7d2once1688z00, BGl_z62expandzd2oncezb0zz__expandz00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2envzd2zz__expandz00,
		BgL_bgl_za762expandza762za7za7__1689z00, BGl_z62expandz62zz__expandz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52withzd2lexicalzd2envz52zz__expandz00,
		BgL_bgl_za762za752withza7d2lex1690za7,
		BGl_z62z52withzd2lexicalze2zz__expandz00, 0L, BUNSPEC, 4);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_applicationzd2evalzd2expanderzd2envzd2zz__expandz00,
		BgL_bgl_za762applicationza7d1691z00,
		BGl_z62applicationzd2evalzd2expanderz62zz__expandz00, 0L, BUNSPEC, 2);
	     
		DEFINE_STATIC_BGL_PROCEDURE(BGl_initialzd2expanderz12zd2envz12zz__expandz00,
		BgL_bgl_za762initialza7d2exp1692z00,
		BGl_z62initialzd2expanderz12za2zz__expandz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandz12zd2envzc0zz__expandz00,
		BgL_bgl_za762expandza712za770za71693z00, BGl_z62expandz12z70zz__expandz00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1675z00zz__expandz00,
		BgL_bgl_string1675za700za7za7_1694za7, "expand", 6);
	      BGL_DEFINE_STRING(BGl_string1676z00zz__expandz00,
		BgL_bgl_string1676za700za7za7_1695za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string1678z00zz__expandz00,
		BgL_bgl_string1678za700za7za7_1696za7, "application", 11);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_expandzd2errorzd2envz00zz__expandz00,
		BgL_bgl_za762expandza7d2erro1697z00, BGl_z62expandzd2errorzb0zz__expandz00,
		0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string1679z00zz__expandz00,
		BgL_bgl_string1679za700za7za7_1698za7,
		"/tmp/bigloo/runtime/Eval/expand.scm", 35);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52lexicalzd2stackzd2envz52zz__expandz00,
		BgL_bgl_za762za752lexicalza7d21699za7,
		BGl_z62z52lexicalzd2stackze2zz__expandz00, 0L, BUNSPEC, 0);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_applicationzd2evalzd2expanderz12zd2envzc0zz__expandz00,
		BgL_bgl_za762applicationza7d1700z00,
		BGl_z62applicationzd2evalzd2expanderz12z70zz__expandz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1680z00zz__expandz00,
		BgL_bgl_string1680za700za7za7_1701za7, "&%with-lexical", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1674z00zz__expandz00,
		BgL_bgl_za762za7c3za704anonymo1702za7,
		BGl_z62zc3z04anonymousza31193ze3ze5zz__expandz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1681z00zz__expandz00,
		BgL_bgl_string1681za700za7za7_1703za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string1682z00zz__expandz00,
		BgL_bgl_string1682za700za7za7_1704za7, "procedure", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1677z00zz__expandz00,
		BgL_bgl_za762za7c3za704anonymo1705za7,
		BGl_z62zc3z04anonymousza31225ze3ze5zz__expandz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1684z00zz__expandz00,
		BgL_bgl_string1684za700za7za7_1706za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string1685z00zz__expandz00,
		BgL_bgl_string1685za700za7za7_1707za7, "__expand", 8);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string1685z00zz__expandz00,
			BgL_bgl_string1685za700za7za7_1707za7);
		BGL_BIND_STRING(BGl_string1684z00zz__expandz00,
			BgL_bgl_string1684za700za7za7_1706za7);
		BGL_BIND_PROCEDURE(BGl_proc1677z00zz__expandz00,
			BgL_bgl_za762za7c3za704anonymo1705za7);
		BGL_BIND_STRING(BGl_string1682z00zz__expandz00,
			BgL_bgl_string1682za700za7za7_1704za7);
		BGL_BIND_STRING(BGl_string1681z00zz__expandz00,
			BgL_bgl_string1681za700za7za7_1703za7);
		BGL_BIND_PROCEDURE(BGl_proc1674z00zz__expandz00,
			BgL_bgl_za762za7c3za704anonymo1702za7);
		BGL_BIND_STRING(BGl_string1680z00zz__expandz00,
			BgL_bgl_string1680za700za7za7_1701za7);
		BGL_BIND_PROCEDURE
			(BGl_applicationzd2evalzd2expanderz12zd2envzc0zz__expandz00,
			BgL_bgl_za762applicationza7d1700z00);
		BGL_BIND_PROCEDURE(BGl_z52lexicalzd2stackzd2envz52zz__expandz00,
			BgL_bgl_za762za752lexicalza7d21699za7);
		BGL_BIND_STRING(BGl_string1679z00zz__expandz00,
			BgL_bgl_string1679za700za7za7_1698za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2errorzd2envz00zz__expandz00,
			BgL_bgl_za762expandza7d2erro1697z00);
		BGL_BIND_STRING(BGl_string1678z00zz__expandz00,
			BgL_bgl_string1678za700za7za7_1696za7);
		BGL_BIND_STRING(BGl_string1676z00zz__expandz00,
			BgL_bgl_string1676za700za7za7_1695za7);
		BGL_BIND_STRING(BGl_string1675z00zz__expandz00,
			BgL_bgl_string1675za700za7za7_1694za7);
		BGL_BIND_PROCEDURE(BGl_expandz12zd2envzc0zz__expandz00,
			BgL_bgl_za762expandza712za770za71693z00);
		BGL_BIND_PROCEDURE(BGl_initialzd2expanderz12zd2envz12zz__expandz00,
			BgL_bgl_za762initialza7d2exp1692z00);
		BGL_BIND_PROCEDURE(BGl_applicationzd2evalzd2expanderzd2envzd2zz__expandz00,
			BgL_bgl_za762applicationza7d1691z00);
		BGL_BIND_PROCEDURE(BGl_z52withzd2lexicalzd2envz52zz__expandz00,
			BgL_bgl_za762za752withza7d2lex1690za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2envzd2zz__expandz00,
			BgL_bgl_za762expandza762za7za7__1689z00);
		BGL_BIND_PROCEDURE(BGl_expandzd2oncezd2envz00zz__expandz00,
			BgL_bgl_za762expandza7d2once1688z00);
		BGL_BIND_PROCEDURE(BGl_initialzd2expanderzd2envz00zz__expandz00,
			BgL_bgl_za762initialza7d2exp1687z00);
		BGL_BIND_PROCEDURE(BGl_identifierzd2evalzd2expanderzd2envzd2zz__expandz00,
			BgL_bgl_za762identifierza7d21686z00);
	}

/* 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_symbol1683z00zz__expandz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__expandz00));
#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__expandz00(long
		BgL_checksumz00_1982, char *BgL_fromz00_1983)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expandz00))
				{
					BGl_requirezd2initializa7ationz75zz__expandz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__expandz00();
					BGl_cnstzd2initzd2zz__expandz00();
					BGl_importedzd2moduleszd2initz00zz__expandz00();
					return BGl_methodzd2initzd2zz__expandz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expandz00(void)
	{
		{	/* Eval/expand.scm 14 */
			return (BGl_symbol1683z00zz__expandz00 =
				bstring_to_symbol(BGl_string1684z00zz__expandz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__expandz00(void)
	{
		{	/* Eval/expand.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* append-21011 */
	obj_t BGl_appendzd221011zd2zz__expandz00(obj_t BgL_l1z00_1, obj_t BgL_l2z00_2)
	{
		{
			if (NULLP(BgL_l1z00_1))
				{
					return BgL_l2z00_2;
				}
			else
				{
					obj_t BgL_headz00_1144;

					BgL_headz00_1144 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_1694;
						obj_t BgL_tailz00_1695;

						BgL_prevz00_1694 = BgL_headz00_1144;
						BgL_tailz00_1695 = BgL_l1z00_1;
					BgL_loopz00_1693:
						if (PAIRP(BgL_tailz00_1695))
							{
								obj_t BgL_newzd2prevzd2_1701;

								BgL_newzd2prevzd2_1701 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_1695), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_1694, BgL_newzd2prevzd2_1701);
								{
									obj_t BgL_tailz00_2003;
									obj_t BgL_prevz00_2002;

									BgL_prevz00_2002 = BgL_newzd2prevzd2_1701;
									BgL_tailz00_2003 = CDR(BgL_tailz00_1695);
									BgL_tailz00_1695 = BgL_tailz00_2003;
									BgL_prevz00_1694 = BgL_prevz00_2002;
									goto BgL_loopz00_1693;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1144);
				}
		}

	}



/* expand */
	BGL_EXPORTED_DEF obj_t BGl_expandz00zz__expandz00(obj_t BgL_xz00_3)
	{
		{	/* Eval/expand.scm 71 */
			return
				BGl_initialzd2expanderzf2applicationz20zz__expandz00(BgL_xz00_3,
				BGl_initialzd2expanderzd2envz00zz__expandz00,
				BGl_applicationzd2evalzd2expanderzd2envzd2zz__expandz00);
		}

	}



/* &expand */
	obj_t BGl_z62expandz62zz__expandz00(obj_t BgL_envz00_1930,
		obj_t BgL_xz00_1931)
	{
		{	/* Eval/expand.scm 71 */
			return BGl_expandz00zz__expandz00(BgL_xz00_1931);
		}

	}



/* expand! */
	BGL_EXPORTED_DEF obj_t BGl_expandz12z12zz__expandz00(obj_t BgL_xz00_4)
	{
		{	/* Eval/expand.scm 77 */
			return
				BGl_initialzd2expanderzf2applicationz20zz__expandz00(BgL_xz00_4,
				BGl_initialzd2expanderz12zd2envz12zz__expandz00,
				BGl_applicationzd2evalzd2expanderz12zd2envzc0zz__expandz00);
		}

	}



/* &expand! */
	obj_t BGl_z62expandz12z70zz__expandz00(obj_t BgL_envz00_1938,
		obj_t BgL_xz00_1939)
	{
		{	/* Eval/expand.scm 77 */
			return BGl_expandz12z12zz__expandz00(BgL_xz00_1939);
		}

	}



/* expand-once */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2oncezd2zz__expandz00(obj_t BgL_xz00_5)
	{
		{	/* Eval/expand.scm 83 */
			return
				BGl_initialzd2expanderzf2applicationz20zz__expandz00(BgL_xz00_5,
				BGl_proc1674z00zz__expandz00,
				BGl_applicationzd2evalzd2expanderzd2envzd2zz__expandz00);
		}

	}



/* &expand-once */
	obj_t BGl_z62expandzd2oncezb0zz__expandz00(obj_t BgL_envz00_1947,
		obj_t BgL_xz00_1948)
	{
		{	/* Eval/expand.scm 83 */
			return BGl_expandzd2oncezd2zz__expandz00(BgL_xz00_1948);
		}

	}



/* &<@anonymous:1193> */
	obj_t BGl_z62zc3z04anonymousza31193ze3ze5zz__expandz00(obj_t BgL_envz00_1949,
		obj_t BgL_xz00_1950, obj_t BgL_ez00_1951)
	{
		{	/* Eval/expand.scm 84 */
			return BgL_xz00_1950;
		}

	}



/* &initial-expander */
	obj_t BGl_z62initialzd2expanderzb0zz__expandz00(obj_t BgL_envz00_1932,
		obj_t BgL_xz00_1933, obj_t BgL_ez00_1934)
	{
		{	/* Eval/expand.scm 89 */
			return
				BGl_initialzd2expanderzf2applicationz20zz__expandz00(BgL_xz00_1933,
				BgL_ez00_1934, BGl_applicationzd2evalzd2expanderzd2envzd2zz__expandz00);
		}

	}



/* &initial-expander! */
	obj_t BGl_z62initialzd2expanderz12za2zz__expandz00(obj_t BgL_envz00_1940,
		obj_t BgL_xz00_1941, obj_t BgL_ez00_1942)
	{
		{	/* Eval/expand.scm 95 */
			return
				BGl_initialzd2expanderzf2applicationz20zz__expandz00(BgL_xz00_1941,
				BgL_ez00_1942,
				BGl_applicationzd2evalzd2expanderz12zd2envzc0zz__expandz00);
		}

	}



/* initial-expander/application */
	obj_t BGl_initialzd2expanderzf2applicationz20zz__expandz00(obj_t BgL_xz00_10,
		obj_t BgL_ez00_11, obj_t BgL_aez00_12)
	{
		{	/* Eval/expand.scm 101 */
			{	/* Eval/expand.scm 102 */
				obj_t BgL_e1z00_1157;

				if (SYMBOLP(BgL_xz00_10))
					{	/* Eval/expand.scm 103 */
						BgL_e1z00_1157 =
							BGl_identifierzd2evalzd2expanderzd2envzd2zz__expandz00;
					}
				else
					{	/* Eval/expand.scm 103 */
						if (NULLP(BgL_xz00_10))
							{	/* Eval/expand.scm 105 */
								BgL_e1z00_1157 =
									BGl_errorz00zz__errorz00(BGl_string1675z00zz__expandz00,
									BGl_string1676z00zz__expandz00, BNIL);
							}
						else
							{	/* Eval/expand.scm 105 */
								if (PAIRP(BgL_xz00_10))
									{	/* Eval/expand.scm 109 */
										bool_t BgL_test1714z00_2021;

										{	/* Eval/expand.scm 109 */
											obj_t BgL_tmpz00_2022;

											BgL_tmpz00_2022 = CAR(BgL_xz00_10);
											BgL_test1714z00_2021 = SYMBOLP(BgL_tmpz00_2022);
										}
										if (BgL_test1714z00_2021)
											{	/* Eval/expand.scm 111 */
												obj_t BgL_g1039z00_1172;

												BgL_g1039z00_1172 =
													BGl_getzd2evalzd2expanderz00zz__macroz00(CAR
													(BgL_xz00_10));
												if (CBOOL(BgL_g1039z00_1172))
													{	/* Eval/expand.scm 111 */
														BgL_e1z00_1157 = BgL_g1039z00_1172;
													}
												else
													{	/* Eval/expand.scm 115 */
														obj_t BgL_locz00_1175;

														BgL_locz00_1175 =
															BGl_getzd2sourcezd2locationz00zz__readerz00
															(BgL_xz00_10);
														{	/* Eval/expand.scm 115 */
															obj_t BgL_idz00_1176;

															{	/* Eval/expand.scm 116 */
																obj_t BgL_arg1216z00_1185;

																BgL_arg1216z00_1185 =
																	BGl_parsezd2formalzd2identz00zz__evutilsz00
																	(CAR(BgL_xz00_10), BgL_locz00_1175);
																BgL_idz00_1176 =
																	CAR(((obj_t) BgL_arg1216z00_1185));
															}
															{	/* Eval/expand.scm 116 */

																{	/* Eval/expand.scm 118 */
																	bool_t BgL_test1716z00_2034;

																	{	/* Eval/expand.scm 118 */
																		obj_t BgL_arg1213z00_1183;

																		{	/* Eval/expand.scm 118 */
																			obj_t BgL_arg1215z00_1184;

																			BgL_arg1215z00_1184 = BGL_LEXICAL_STACK();
																			BgL_arg1213z00_1183 =
																				BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																				(BgL_idz00_1176, BgL_arg1215z00_1184);
																		}
																		BgL_test1716z00_2034 =
																			PAIRP(BgL_arg1213z00_1183);
																	}
																	if (BgL_test1716z00_2034)
																		{	/* Eval/expand.scm 118 */
																			BgL_e1z00_1157 = BgL_aez00_12;
																		}
																	else
																		{	/* Eval/expand.scm 120 */
																			obj_t BgL_g1041z00_1180;

																			BgL_g1041z00_1180 =
																				BGl_getzd2evalzd2expanderz00zz__macroz00
																				(BgL_idz00_1176);
																			if (CBOOL(BgL_g1041z00_1180))
																				{	/* Eval/expand.scm 120 */
																					BgL_e1z00_1157 = BgL_g1041z00_1180;
																				}
																			else
																				{	/* Eval/expand.scm 120 */
																					BgL_e1z00_1157 = BgL_aez00_12;
																				}
																		}
																}
															}
														}
													}
											}
										else
											{	/* Eval/expand.scm 109 */
												BgL_e1z00_1157 = BgL_aez00_12;
											}
									}
								else
									{	/* Eval/expand.scm 107 */
										BgL_e1z00_1157 = BGl_proc1677z00zz__expandz00;
									}
							}
					}
				{	/* Eval/expand.scm 127 */
					obj_t BgL_newz00_1158;

					BgL_newz00_1158 =
						BGL_PROCEDURE_CALL2(BgL_e1z00_1157, BgL_xz00_10, BgL_ez00_11);
					{	/* Eval/expand.scm 128 */
						bool_t BgL_test1718z00_2046;

						if (PAIRP(BgL_newz00_1158))
							{	/* Eval/expand.scm 128 */
								if (EPAIRP(BgL_newz00_1158))
									{	/* Eval/expand.scm 128 */
										BgL_test1718z00_2046 = ((bool_t) 0);
									}
								else
									{	/* Eval/expand.scm 128 */
										BgL_test1718z00_2046 = EPAIRP(BgL_xz00_10);
									}
							}
						else
							{	/* Eval/expand.scm 128 */
								BgL_test1718z00_2046 = ((bool_t) 0);
							}
						if (BgL_test1718z00_2046)
							{	/* Eval/expand.scm 129 */
								obj_t BgL_arg1197z00_1162;
								obj_t BgL_arg1201z00_1163;
								obj_t BgL_arg1202z00_1164;

								BgL_arg1197z00_1162 = CAR(BgL_newz00_1158);
								BgL_arg1201z00_1163 = CDR(BgL_newz00_1158);
								BgL_arg1202z00_1164 = CER(((obj_t) BgL_xz00_10));
								{	/* Eval/expand.scm 129 */
									obj_t BgL_res1668z00_1718;

									BgL_res1668z00_1718 =
										MAKE_YOUNG_EPAIR(BgL_arg1197z00_1162, BgL_arg1201z00_1163,
										BgL_arg1202z00_1164);
									return BgL_res1668z00_1718;
								}
							}
						else
							{	/* Eval/expand.scm 128 */
								return BgL_newz00_1158;
							}
					}
				}
			}
		}

	}



/* &<@anonymous:1225> */
	obj_t BGl_z62zc3z04anonymousza31225ze3ze5zz__expandz00(obj_t BgL_envz00_1953,
		obj_t BgL_xz00_1954, obj_t BgL_ez00_1955)
	{
		{	/* Eval/expand.scm 108 */
			return BgL_xz00_1954;
		}

	}



/* &identifier-eval-expander */
	obj_t BGl_z62identifierzd2evalzd2expanderz62zz__expandz00(obj_t
		BgL_envz00_1956, obj_t BgL_xz00_1957, obj_t BgL_ez00_1958)
	{
		{	/* Eval/expand.scm 135 */
			return BgL_xz00_1957;
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__expandz00(obj_t BgL_ez00_1972, obj_t BgL_xz00_1193)
	{
		{	/* Eval/expand.scm 142 */
			if (NULLP(BgL_xz00_1193))
				{	/* Eval/expand.scm 144 */
					return BNIL;
				}
			else
				{	/* Eval/expand.scm 144 */
					if (PAIRP(BgL_xz00_1193))
						{	/* Eval/expand.scm 146 */
							if (EPAIRP(BgL_xz00_1193))
								{	/* Eval/expand.scm 149 */
									obj_t BgL_arg1230z00_1198;
									obj_t BgL_arg1231z00_1199;
									obj_t BgL_arg1232z00_1200;

									{	/* Eval/expand.scm 149 */
										obj_t BgL_arg1234z00_1201;

										BgL_arg1234z00_1201 = CAR(BgL_xz00_1193);
										BgL_arg1230z00_1198 =
											BGL_PROCEDURE_CALL2(BgL_ez00_1972, BgL_arg1234z00_1201,
											BgL_ez00_1972);
									}
									BgL_arg1231z00_1199 =
										BGl_loopze70ze7zz__expandz00(BgL_ez00_1972,
										CDR(BgL_xz00_1193));
									BgL_arg1232z00_1200 = CER(BgL_xz00_1193);
									{	/* Eval/expand.scm 149 */
										obj_t BgL_res1669z00_1722;

										BgL_res1669z00_1722 =
											MAKE_YOUNG_EPAIR(BgL_arg1230z00_1198, BgL_arg1231z00_1199,
											BgL_arg1232z00_1200);
										return BgL_res1669z00_1722;
									}
								}
							else
								{	/* Eval/expand.scm 151 */
									obj_t BgL_arg1236z00_1203;
									obj_t BgL_arg1239z00_1204;

									{	/* Eval/expand.scm 151 */
										obj_t BgL_arg1241z00_1205;

										BgL_arg1241z00_1205 = CAR(BgL_xz00_1193);
										BgL_arg1236z00_1203 =
											BGL_PROCEDURE_CALL2(BgL_ez00_1972, BgL_arg1241z00_1205,
											BgL_ez00_1972);
									}
									BgL_arg1239z00_1204 =
										BGl_loopze70ze7zz__expandz00(BgL_ez00_1972,
										CDR(BgL_xz00_1193));
									return
										MAKE_YOUNG_PAIR(BgL_arg1236z00_1203, BgL_arg1239z00_1204);
								}
						}
					else
						{	/* Eval/expand.scm 146 */
							return
								BGl_errorz00zz__errorz00(BGl_string1678z00zz__expandz00,
								BGl_string1676z00zz__expandz00, BgL_xz00_1193);
						}
				}
		}

	}



/* &application-eval-expander */
	obj_t BGl_z62applicationzd2evalzd2expanderz62zz__expandz00(obj_t
		BgL_envz00_1935, obj_t BgL_xz00_1936, obj_t BgL_ez00_1937)
	{
		{	/* Eval/expand.scm 141 */
			return BGl_loopze70ze7zz__expandz00(BgL_ez00_1937, BgL_xz00_1936);
		}

	}



/* &application-eval-expander! */
	obj_t BGl_z62applicationzd2evalzd2expanderz12z70zz__expandz00(obj_t
		BgL_envz00_1943, obj_t BgL_xz00_1944, obj_t BgL_ez00_1945)
	{
		{	/* Eval/expand.scm 156 */
			{
				obj_t BgL_yz00_1979;

				BgL_yz00_1979 = BgL_xz00_1944;
			BgL_loopz00_1978:
				if (NULLP(BgL_yz00_1979))
					{	/* Eval/expand.scm 159 */
						return BgL_xz00_1944;
					}
				else
					{	/* Eval/expand.scm 159 */
						if (PAIRP(BgL_yz00_1979))
							{	/* Eval/expand.scm 161 */
								{	/* Eval/expand.scm 164 */
									obj_t BgL_arg1248z00_1980;

									{	/* Eval/expand.scm 164 */
										obj_t BgL_arg1249z00_1981;

										BgL_arg1249z00_1981 = CAR(BgL_yz00_1979);
										BgL_arg1248z00_1980 =
											BGL_PROCEDURE_CALL2(BgL_ez00_1945, BgL_arg1249z00_1981,
											BgL_ez00_1945);
									}
									SET_CAR(BgL_yz00_1979, BgL_arg1248z00_1980);
								}
								{
									obj_t BgL_yz00_2095;

									BgL_yz00_2095 = CDR(BgL_yz00_1979);
									BgL_yz00_1979 = BgL_yz00_2095;
									goto BgL_loopz00_1978;
								}
							}
						else
							{	/* Eval/expand.scm 161 */
								return
									BGl_errorz00zz__errorz00(BGl_string1678z00zz__expandz00,
									BGl_string1676z00zz__expandz00, BgL_yz00_1979);
							}
					}
			}
		}

	}



/* %lexical-stack */
	BGL_EXPORTED_DEF obj_t BGl_z52lexicalzd2stackz80zz__expandz00(void)
	{
		{	/* Eval/expand.scm 170 */
			return BGL_LEXICAL_STACK();
		}

	}



/* &%lexical-stack */
	obj_t BGl_z62z52lexicalzd2stackze2zz__expandz00(obj_t BgL_envz00_1959)
	{
		{	/* Eval/expand.scm 170 */
			return BGl_z52lexicalzd2stackz80zz__expandz00();
		}

	}



/* %with-lexical */
	BGL_EXPORTED_DEF obj_t BGl_z52withzd2lexicalz80zz__expandz00(obj_t
		BgL_newz00_19, obj_t BgL_formz00_20, obj_t BgL_ez00_21, obj_t BgL_keyz00_22)
	{
		{	/* Eval/expand.scm 176 */
			{	/* Eval/expand.scm 177 */
				obj_t BgL_oldzd2lexicalzd2stackz00_1217;

				BgL_oldzd2lexicalzd2stackz00_1217 = BGL_LEXICAL_STACK();
				{	/* Eval/expand.scm 179 */
					obj_t BgL_arg1253z00_1218;

					{	/* Eval/expand.scm 179 */
						obj_t BgL_arg1254z00_1219;

						if (NULLP(BgL_newz00_19))
							{	/* Eval/expand.scm 179 */
								BgL_arg1254z00_1219 = BNIL;
							}
						else
							{	/* Eval/expand.scm 179 */
								obj_t BgL_head1090z00_1222;

								BgL_head1090z00_1222 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1088z00_1224;
									obj_t BgL_tail1091z00_1225;

									BgL_l1088z00_1224 = BgL_newz00_19;
									BgL_tail1091z00_1225 = BgL_head1090z00_1222;
								BgL_zc3z04anonymousza31256ze3z87_1226:
									if (NULLP(BgL_l1088z00_1224))
										{	/* Eval/expand.scm 179 */
											BgL_arg1254z00_1219 = CDR(BgL_head1090z00_1222);
										}
									else
										{	/* Eval/expand.scm 179 */
											obj_t BgL_newtail1092z00_1228;

											{	/* Eval/expand.scm 179 */
												obj_t BgL_arg1259z00_1230;

												{	/* Eval/expand.scm 179 */
													obj_t BgL_nz00_1231;

													BgL_nz00_1231 = CAR(((obj_t) BgL_l1088z00_1224));
													{	/* Eval/expand.scm 180 */
														obj_t BgL_fz00_1232;

														BgL_fz00_1232 =
															BGl_parsezd2formalzd2identz00zz__evutilsz00
															(BgL_nz00_1231,
															BGl_getzd2sourcezd2locationz00zz__readerz00
															(BgL_ez00_21));
														if (PAIRP(BgL_fz00_1232))
															{	/* Eval/expand.scm 182 */
																BgL_arg1259z00_1230 =
																	MAKE_YOUNG_PAIR(CAR(BgL_fz00_1232),
																	BgL_keyz00_22);
															}
														else
															{	/* Eval/expand.scm 182 */
																BgL_arg1259z00_1230 =
																	MAKE_YOUNG_PAIR(BgL_nz00_1231, BgL_keyz00_22);
															}
													}
												}
												BgL_newtail1092z00_1228 =
													MAKE_YOUNG_PAIR(BgL_arg1259z00_1230, BNIL);
											}
											SET_CDR(BgL_tail1091z00_1225, BgL_newtail1092z00_1228);
											{	/* Eval/expand.scm 179 */
												obj_t BgL_arg1258z00_1229;

												BgL_arg1258z00_1229 = CDR(((obj_t) BgL_l1088z00_1224));
												{
													obj_t BgL_tail1091z00_2121;
													obj_t BgL_l1088z00_2120;

													BgL_l1088z00_2120 = BgL_arg1258z00_1229;
													BgL_tail1091z00_2121 = BgL_newtail1092z00_1228;
													BgL_tail1091z00_1225 = BgL_tail1091z00_2121;
													BgL_l1088z00_1224 = BgL_l1088z00_2120;
													goto BgL_zc3z04anonymousza31256ze3z87_1226;
												}
											}
										}
								}
							}
						BgL_arg1253z00_1218 =
							BGl_appendzd221011zd2zz__expandz00(BgL_arg1254z00_1219,
							BgL_oldzd2lexicalzd2stackz00_1217);
					}
					BGL_LEXICAL_STACK_SET(BgL_arg1253z00_1218);
					BUNSPEC;
				}
				{	/* Eval/expand.scm 187 */
					obj_t BgL_exitd1043z00_1237;

					BgL_exitd1043z00_1237 = BGL_EXITD_TOP_AS_OBJ();
					{
						obj_t BgL_zc3z04anonymousza31263ze3z87_1960;

						BgL_zc3z04anonymousza31263ze3z87_1960 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31263ze3ze5zz__expandz00, (int) (0L),
							(int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31263ze3z87_1960, (int) (0L),
							BgL_oldzd2lexicalzd2stackz00_1217);
						{	/* Eval/expand.scm 187 */
							obj_t BgL_arg1666z00_1733;

							{	/* Eval/expand.scm 187 */
								obj_t BgL_arg1667z00_1734;

								BgL_arg1667z00_1734 = BGL_EXITD_PROTECT(BgL_exitd1043z00_1237);
								BgL_arg1666z00_1733 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31263ze3z87_1960,
									BgL_arg1667z00_1734);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1043z00_1237, BgL_arg1666z00_1733);
							BUNSPEC;
						}
						{	/* Eval/expand.scm 188 */
							obj_t BgL_tmp1045z00_1239;

							BgL_tmp1045z00_1239 =
								BGL_PROCEDURE_CALL2(BgL_ez00_21, BgL_formz00_20, BgL_ez00_21);
							{	/* Eval/expand.scm 187 */
								bool_t BgL_test1729z00_2138;

								{	/* Eval/expand.scm 187 */
									obj_t BgL_arg1665z00_1736;

									BgL_arg1665z00_1736 =
										BGL_EXITD_PROTECT(BgL_exitd1043z00_1237);
									BgL_test1729z00_2138 = PAIRP(BgL_arg1665z00_1736);
								}
								if (BgL_test1729z00_2138)
									{	/* Eval/expand.scm 187 */
										obj_t BgL_arg1662z00_1737;

										{	/* Eval/expand.scm 187 */
											obj_t BgL_arg1664z00_1738;

											BgL_arg1664z00_1738 =
												BGL_EXITD_PROTECT(BgL_exitd1043z00_1237);
											BgL_arg1662z00_1737 = CDR(((obj_t) BgL_arg1664z00_1738));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1043z00_1237,
											BgL_arg1662z00_1737);
										BUNSPEC;
									}
								else
									{	/* Eval/expand.scm 187 */
										BFALSE;
									}
							}
							BGL_LEXICAL_STACK_SET(BgL_oldzd2lexicalzd2stackz00_1217);
							BUNSPEC;
							return BgL_tmp1045z00_1239;
						}
					}
				}
			}
		}

	}



/* &%with-lexical */
	obj_t BGl_z62z52withzd2lexicalze2zz__expandz00(obj_t BgL_envz00_1961,
		obj_t BgL_newz00_1962, obj_t BgL_formz00_1963, obj_t BgL_ez00_1964,
		obj_t BgL_keyz00_1965)
	{
		{	/* Eval/expand.scm 176 */
			{	/* Eval/expand.scm 177 */
				obj_t BgL_auxz00_2153;
				obj_t BgL_auxz00_2146;

				if (PROCEDUREP(BgL_ez00_1964))
					{	/* Eval/expand.scm 177 */
						BgL_auxz00_2153 = BgL_ez00_1964;
					}
				else
					{
						obj_t BgL_auxz00_2156;

						BgL_auxz00_2156 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1679z00zz__expandz00,
							BINT(6267L), BGl_string1680z00zz__expandz00,
							BGl_string1682z00zz__expandz00, BgL_ez00_1964);
						FAILURE(BgL_auxz00_2156, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_newz00_1962))
					{	/* Eval/expand.scm 177 */
						BgL_auxz00_2146 = BgL_newz00_1962;
					}
				else
					{
						obj_t BgL_auxz00_2149;

						BgL_auxz00_2149 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1679z00zz__expandz00,
							BINT(6267L), BGl_string1680z00zz__expandz00,
							BGl_string1681z00zz__expandz00, BgL_newz00_1962);
						FAILURE(BgL_auxz00_2149, BFALSE, BFALSE);
					}
				return
					BGl_z52withzd2lexicalz80zz__expandz00(BgL_auxz00_2146,
					BgL_formz00_1963, BgL_auxz00_2153, BgL_keyz00_1965);
			}
		}

	}



/* &<@anonymous:1263> */
	obj_t BGl_z62zc3z04anonymousza31263ze3ze5zz__expandz00(obj_t BgL_envz00_1966)
	{
		{	/* Eval/expand.scm 187 */
			{
				obj_t BgL_oldzd2lexicalzd2stackz00_1967;

				BgL_oldzd2lexicalzd2stackz00_1967 =
					((obj_t) PROCEDURE_REF(BgL_envz00_1966, (int) (0L)));
				BGL_LEXICAL_STACK_SET(BgL_oldzd2lexicalzd2stackz00_1967);
				return BUNSPEC;
			}
		}

	}



/* expand-error */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t
		BgL_procz00_23, obj_t BgL_msgz00_24, obj_t BgL_objz00_25)
	{
		{	/* Eval/expand.scm 194 */
			if (EPAIRP(BgL_objz00_25))
				{	/* Eval/expand.scm 196 */
					obj_t BgL_ezd2103zd2_1247;

					BgL_ezd2103zd2_1247 = CER(((obj_t) BgL_objz00_25));
					if (PAIRP(BgL_ezd2103zd2_1247))
						{	/* Eval/expand.scm 196 */
							obj_t BgL_cdrzd2109zd2_1249;

							BgL_cdrzd2109zd2_1249 = CDR(BgL_ezd2103zd2_1247);
							if ((CAR(BgL_ezd2103zd2_1247) == BGl_symbol1683z00zz__expandz00))
								{	/* Eval/expand.scm 196 */
									if (PAIRP(BgL_cdrzd2109zd2_1249))
										{	/* Eval/expand.scm 196 */
											obj_t BgL_cdrzd2113zd2_1253;

											BgL_cdrzd2113zd2_1253 = CDR(BgL_cdrzd2109zd2_1249);
											if (PAIRP(BgL_cdrzd2113zd2_1253))
												{	/* Eval/expand.scm 196 */
													if (NULLP(CDR(BgL_cdrzd2113zd2_1253)))
														{	/* Eval/expand.scm 196 */
															return
																BGl_errorzf2locationzf2zz__errorz00
																(BgL_procz00_23, BgL_msgz00_24, BgL_objz00_25,
																CAR(BgL_cdrzd2109zd2_1249),
																CAR(BgL_cdrzd2113zd2_1253));
														}
													else
														{	/* Eval/expand.scm 196 */
															BGL_TAIL return
																BGl_errorz00zz__errorz00(BgL_procz00_23,
																BgL_msgz00_24, BgL_objz00_25);
														}
												}
											else
												{	/* Eval/expand.scm 196 */
													BGL_TAIL return
														BGl_errorz00zz__errorz00(BgL_procz00_23,
														BgL_msgz00_24, BgL_objz00_25);
												}
										}
									else
										{	/* Eval/expand.scm 196 */
											BGL_TAIL return
												BGl_errorz00zz__errorz00(BgL_procz00_23, BgL_msgz00_24,
												BgL_objz00_25);
										}
								}
							else
								{	/* Eval/expand.scm 196 */
									BGL_TAIL return
										BGl_errorz00zz__errorz00(BgL_procz00_23, BgL_msgz00_24,
										BgL_objz00_25);
								}
						}
					else
						{	/* Eval/expand.scm 196 */
							BGL_TAIL return
								BGl_errorz00zz__errorz00(BgL_procz00_23, BgL_msgz00_24,
								BgL_objz00_25);
						}
				}
			else
				{	/* Eval/expand.scm 195 */
					BGL_TAIL return
						BGl_errorz00zz__errorz00(BgL_procz00_23, BgL_msgz00_24,
						BgL_objz00_25);
				}
		}

	}



/* &expand-error */
	obj_t BGl_z62expandzd2errorzb0zz__expandz00(obj_t BgL_envz00_1968,
		obj_t BgL_procz00_1969, obj_t BgL_msgz00_1970, obj_t BgL_objz00_1971)
	{
		{	/* Eval/expand.scm 194 */
			return
				BGl_expandzd2errorzd2zz__expandz00(BgL_procz00_1969, BgL_msgz00_1970,
				BgL_objz00_1971);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__expandz00(void)
	{
		{	/* Eval/expand.scm 14 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__expandz00(void)
	{
		{	/* Eval/expand.scm 14 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__expandz00(void)
	{
		{	/* Eval/expand.scm 14 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__expandz00(void)
	{
		{	/* Eval/expand.scm 14 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			BGl_modulezd2initializa7ationz75zz__evutilsz00(470356213L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
			return BGl_modulezd2initializa7ationz75zz__macroz00(261397491L,
				BSTRING_TO_STRING(BGl_string1685z00zz__expandz00));
		}

	}

#ifdef __cplusplus
}
#endif
