/*===========================================================================*/
/*   (Eval/evaluate_avar.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/evaluate_avar.scm -indent -o objs/obj_u/Eval/evaluate_avar.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___EVALUATE_AVAR_TYPE_DEFINITIONS
#define BGL___EVALUATE_AVAR_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_ev_exprz00_bgl
	{
		header_t header;
		obj_t widening;
	}                 *BgL_ev_exprz00_bglt;

	typedef struct BgL_ev_varz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_namez00;
		obj_t BgL_effz00;
		obj_t BgL_typez00;
	}                *BgL_ev_varz00_bglt;

	typedef struct BgL_ev_ifz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_pz00;
		struct BgL_ev_exprz00_bgl *BgL_tz00;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
	}               *BgL_ev_ifz00_bglt;

	typedef struct BgL_ev_listz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_argsz00;
	}                 *BgL_ev_listz00_bglt;

	typedef struct BgL_ev_prog2z00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_e1z00;
		struct BgL_ev_exprz00_bgl *BgL_e2z00;
	}                  *BgL_ev_prog2z00_bglt;

	typedef struct BgL_ev_hookz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
	}                 *BgL_ev_hookz00_bglt;

	typedef struct BgL_ev_setlocalz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
		struct BgL_ev_varz00_bgl *BgL_vz00;
	}                     *BgL_ev_setlocalz00_bglt;

	typedef struct BgL_ev_bindzd2exitzd2_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_varz00_bgl *BgL_varz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
	}                        *BgL_ev_bindzd2exitzd2_bglt;

	typedef struct BgL_ev_unwindzd2protectzd2_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_ez00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
	}                             *BgL_ev_unwindzd2protectzd2_bglt;

	typedef struct BgL_ev_withzd2handlerzd2_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_ev_exprz00_bgl *BgL_handlerz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
	}                           *BgL_ev_withzd2handlerzd2_bglt;

	typedef struct BgL_ev_synchroniza7eza7_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_ev_exprz00_bgl *BgL_mutexz00;
		struct BgL_ev_exprz00_bgl *BgL_prelockz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
	}                          *BgL_ev_synchroniza7eza7_bglt;

	typedef struct BgL_ev_binderz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_varsz00;
		obj_t BgL_valsz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
	}                   *BgL_ev_binderz00_bglt;

	typedef struct BgL_ev_letz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_varsz00;
		obj_t BgL_valsz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
		obj_t BgL_boxesz00;
	}                *BgL_ev_letz00_bglt;

	typedef struct BgL_ev_letza2za2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_varsz00;
		obj_t BgL_valsz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
		obj_t BgL_boxesz00;
	}                   *BgL_ev_letza2za2_bglt;

	typedef struct BgL_ev_letrecz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_varsz00;
		obj_t BgL_valsz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
	}                   *BgL_ev_letrecz00_bglt;

	typedef struct BgL_ev_labelsz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_varsz00;
		obj_t BgL_valsz00;
		obj_t BgL_envz00;
		obj_t BgL_stkz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
		obj_t BgL_boxesz00;
	}                   *BgL_ev_labelsz00_bglt;

	typedef struct BgL_ev_gotoz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_ev_varz00_bgl *BgL_labelz00;
		struct BgL_ev_labelsz00_bgl *BgL_labelsz00;
		obj_t BgL_argsz00;
	}                 *BgL_ev_gotoz00_bglt;

	typedef struct BgL_ev_appz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_ev_exprz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_tailzf3zf3;
	}                *BgL_ev_appz00_bglt;

	typedef struct BgL_ev_absz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		obj_t BgL_wherez00;
		obj_t BgL_arityz00;
		obj_t BgL_varsz00;
		struct BgL_ev_exprz00_bgl *BgL_bodyz00;
		int BgL_siza7eza7;
		obj_t BgL_bindz00;
		obj_t BgL_freez00;
		obj_t BgL_innerz00;
		obj_t BgL_boxesz00;
	}                *BgL_ev_absz00_bglt;


#endif													// BGL___EVALUATE_AVAR_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62avarzd2ev_if1223zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_global1219zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evaluate_avarz00 = BUNSPEC;
	extern obj_t BGl_ev_gotoz00zz__evaluate_typesz00;
	static obj_t BGl_z62avarzd2ev_unwindzd2prote1237z62zz__evaluate_avarz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62avarzd2ev_labels1249zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__evaluate_avarz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_typesz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__everrorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__ppz00(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__r5_control_features_6_4z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(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 *);
	static obj_t BGl_funionze70ze7zz__evaluate_avarz00(obj_t);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	extern obj_t BGl_ev_globalz00zz__evaluate_typesz00;
	extern obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62avarzd2ev_hook1229zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_listz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_letrecz00zz__evaluate_typesz00;
	static obj_t BGl_z62avarzd2ev_list1225zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_app1253zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__evaluate_avarz00(void);
	extern obj_t BGl_ev_littz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_letz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_varz00zz__evaluate_typesz00;
	static obj_t BGl_cnstzd2initzd2zz__evaluate_avarz00(void);
	static obj_t BGl_genericzd2initzd2zz__evaluate_avarz00(void);
	extern obj_t BGl_ev_prog2z00zz__evaluate_typesz00;
	static obj_t BGl_importedzd2moduleszd2initz00zz__evaluate_avarz00(void);
	static obj_t BGl_symbol1895z00zz__evaluate_avarz00 = BUNSPEC;
	static obj_t BGl_symbol1897z00zz__evaluate_avarz00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__evaluate_avarz00(void);
	static obj_t BGl_objectzd2initzd2zz__evaluate_avarz00(void);
	extern obj_t BGl_ev_bindzd2exitzd2zz__evaluate_typesz00;
	extern obj_t BGl_ev_withzd2handlerzd2zz__evaluate_typesz00;
	static obj_t BGl_z62avarz62zz__evaluate_avarz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_z62avarzd2ev_letza21245z12zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_goto1251zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_litt1221zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_synchroniza7e1241z17zz__evaluate_avarz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00;
	static obj_t BGl_z62avarzd2ev_bindzd2exit1235z62zz__evaluate_avarz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_avarz00zz__evaluate_avarz00(BgL_ev_exprz00_bglt, obj_t,
		obj_t);
	static bool_t BGl_za2za2callzf2cczd2compliantza2za2z20zz__evaluate_avarz00;
	static obj_t BGl_z62avar1214z62zz__evaluate_avarz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_exprz00zz__evaluate_typesz00;
	static obj_t BGl_z62checkzd2varzb0zz__evaluate_avarz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62avarzd2ev_abs1256zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_appz00zz__evaluate_typesz00;
	extern bool_t BGl_isazf3zf3zz__objectz00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_ev_letza2za2zz__evaluate_typesz00;
	extern obj_t BGl_ev_labelsz00zz__evaluate_typesz00;
	static obj_t BGl_appendzd221011zd2zz__evaluate_avarz00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__evaluate_avarz00(void);
	extern obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(BgL_ev_absz00_bglt,
		obj_t);
	static obj_t BGl_z62avarzd2ev_var1217zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_prog21227zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_absz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_synchroniza7eza7zz__evaluate_typesz00;
	static obj_t BGl_z62avarzd2ev_letrec1247zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62avarzd2ev_withzd2handler1239z62zz__evaluate_avarz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_diffz00zz__evaluate_avarz00(obj_t, obj_t);
	static obj_t BGl_z62analysezd2varszb0zz__evaluate_avarz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_checkzd2varzd2zz__evaluate_avarz00(BgL_ev_varz00_bglt, obj_t,
		BgL_ev_absz00_bglt);
	static obj_t BGl_z62avarzd2ev_let1243zb0zz__evaluate_avarz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_ifz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_setlocalz00zz__evaluate_typesz00;
	BGL_EXPORTED_DECL obj_t
		BGl_analysezd2varszd2zz__evaluate_avarz00(BgL_ev_exprz00_bglt);
	static obj_t BGl_symbol1907z00zz__evaluate_avarz00 = BUNSPEC;
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_hookz00zz__evaluate_typesz00;
	static obj_t BGl_z62avarzd2ev_setlocal1233zb0zz__evaluate_avarz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STATIC_BGL_GENERIC(BGl_avarzd2envzd2zz__evaluate_avarz00,
		BgL_bgl_za762avarza762za7za7__ev1932z00, BGl_z62avarz62zz__evaluate_avarz00,
		0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string1896z00zz__evaluate_avarz00,
		BgL_bgl_string1896za700za7za7_1933za7, "never", 5);
	      BGL_DEFINE_STRING(BGl_string1898z00zz__evaluate_avarz00,
		BgL_bgl_string1898za700za7za7_1934za7, "fake", 4);
	      BGL_DEFINE_STRING(BGl_string1899z00zz__evaluate_avarz00,
		BgL_bgl_string1899za700za7za7_1935za7,
		"/tmp/bigloo/runtime/Eval/evaluate_avar.scm", 42);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_analysezd2varszd2envz00zz__evaluate_avarz00,
		BgL_bgl_za762analyseza7d2var1936z00,
		BGl_z62analysezd2varszb0zz__evaluate_avarz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1900z00zz__evaluate_avarz00,
		BgL_bgl_string1900za700za7za7_1937za7, "&analyse-vars", 13);
	      BGL_DEFINE_STRING(BGl_string1901z00zz__evaluate_avarz00,
		BgL_bgl_string1901za700za7za7_1938za7, "ev_expr", 7);
	      BGL_DEFINE_STRING(BGl_string1902z00zz__evaluate_avarz00,
		BgL_bgl_string1902za700za7za7_1939za7, "&check-var", 10);
	      BGL_DEFINE_STRING(BGl_string1903z00zz__evaluate_avarz00,
		BgL_bgl_string1903za700za7za7_1940za7, "ev_var", 6);
	      BGL_DEFINE_STRING(BGl_string1904z00zz__evaluate_avarz00,
		BgL_bgl_string1904za700za7za7_1941za7, "ev_abs", 6);
	      BGL_DEFINE_STRING(BGl_string1906z00zz__evaluate_avarz00,
		BgL_bgl_string1906za700za7za7_1942za7, "avar1214", 8);
	      BGL_DEFINE_STRING(BGl_string1908z00zz__evaluate_avarz00,
		BgL_bgl_string1908za700za7za7_1943za7, "No method for this object", 25);
	      BGL_DEFINE_STRING(BGl_string1909z00zz__evaluate_avarz00,
		BgL_bgl_string1909za700za7za7_1944za7, "&avar", 5);
	      BGL_DEFINE_STRING(BGl_string1911z00zz__evaluate_avarz00,
		BgL_bgl_string1911za700za7za7_1945za7, "avar", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1905z00zz__evaluate_avarz00,
		BgL_bgl_za762avar1214za762za7za71946z00,
		BGl_z62avar1214z62zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_checkzd2varzd2envz00zz__evaluate_avarz00,
		BgL_bgl_za762checkza7d2varza7b1947za7,
		BGl_z62checkzd2varzb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1910z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_var1948z00,
		BGl_z62avarzd2ev_var1217zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1912z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_glo1949z00,
		BGl_z62avarzd2ev_global1219zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1913z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_lit1950z00,
		BGl_z62avarzd2ev_litt1221zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1914z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_if11951z00,
		BGl_z62avarzd2ev_if1223zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1915z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_lis1952z00,
		BGl_z62avarzd2ev_list1225zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1916z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_pro1953z00,
		BGl_z62avarzd2ev_prog21227zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1917z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_hoo1954z00,
		BGl_z62avarzd2ev_hook1229zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1918z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_set1955z00,
		BGl_z62avarzd2ev_setlocal1233zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1919z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_bin1956z00,
		BGl_z62avarzd2ev_bindzd2exit1235z62zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1920z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_unw1957z00,
		BGl_z62avarzd2ev_unwindzd2prote1237z62zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1921z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_wit1958z00,
		BGl_z62avarzd2ev_withzd2handler1239z62zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1922z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_syn1959z00,
		BGl_z62avarzd2ev_synchroniza7e1241z17zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1923z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_let1960z00,
		BGl_z62avarzd2ev_let1243zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string1930z00zz__evaluate_avarz00,
		BgL_bgl_string1930za700za7za7_1961za7, "__evaluate_avar", 15);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1924z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_let1962z00,
		BGl_z62avarzd2ev_letza21245z12zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1925z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_let1963z00,
		BGl_z62avarzd2ev_letrec1247zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1926z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_lab1964z00,
		BGl_z62avarzd2ev_labels1249zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1927z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_got1965z00,
		BGl_z62avarzd2ev_goto1251zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1928z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_app1966z00,
		BGl_z62avarzd2ev_app1253zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc1929z00zz__evaluate_avarz00,
		BgL_bgl_za762avarza7d2ev_abs1967z00,
		BGl_z62avarzd2ev_abs1256zb0zz__evaluate_avarz00, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_proc1929z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_abs1967z00);
		BGL_BIND_PROCEDURE(BGl_proc1928z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_app1966z00);
		BGL_BIND_PROCEDURE(BGl_proc1927z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_got1965z00);
		BGL_BIND_PROCEDURE(BGl_proc1926z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_lab1964z00);
		BGL_BIND_PROCEDURE(BGl_proc1925z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_let1963z00);
		BGL_BIND_PROCEDURE(BGl_proc1924z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_let1962z00);
		BGL_BIND_STRING(BGl_string1930z00zz__evaluate_avarz00,
			BgL_bgl_string1930za700za7za7_1961za7);
		BGL_BIND_PROCEDURE(BGl_proc1923z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_let1960z00);
		BGL_BIND_PROCEDURE(BGl_proc1922z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_syn1959z00);
		BGL_BIND_PROCEDURE(BGl_proc1921z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_wit1958z00);
		BGL_BIND_PROCEDURE(BGl_proc1920z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_unw1957z00);
		BGL_BIND_PROCEDURE(BGl_proc1919z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_bin1956z00);
		BGL_BIND_PROCEDURE(BGl_proc1918z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_set1955z00);
		BGL_BIND_PROCEDURE(BGl_proc1917z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_hoo1954z00);
		BGL_BIND_PROCEDURE(BGl_proc1916z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_pro1953z00);
		BGL_BIND_PROCEDURE(BGl_proc1915z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_lis1952z00);
		BGL_BIND_PROCEDURE(BGl_proc1914z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_if11951z00);
		BGL_BIND_PROCEDURE(BGl_proc1913z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_lit1950z00);
		BGL_BIND_PROCEDURE(BGl_proc1912z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_glo1949z00);
		BGL_BIND_PROCEDURE(BGl_proc1910z00zz__evaluate_avarz00,
			BgL_bgl_za762avarza7d2ev_var1948z00);
		BGL_BIND_PROCEDURE(BGl_checkzd2varzd2envz00zz__evaluate_avarz00,
			BgL_bgl_za762checkza7d2varza7b1947za7);
		BGL_BIND_PROCEDURE(BGl_proc1905z00zz__evaluate_avarz00,
			BgL_bgl_za762avar1214za762za7za71946z00);
		BGL_BIND_STRING(BGl_string1911z00zz__evaluate_avarz00,
			BgL_bgl_string1911za700za7za7_1945za7);
		BGL_BIND_STRING(BGl_string1909z00zz__evaluate_avarz00,
			BgL_bgl_string1909za700za7za7_1944za7);
		BGL_BIND_STRING(BGl_string1908z00zz__evaluate_avarz00,
			BgL_bgl_string1908za700za7za7_1943za7);
		BGL_BIND_STRING(BGl_string1906z00zz__evaluate_avarz00,
			BgL_bgl_string1906za700za7za7_1942za7);
		BGL_BIND_STRING(BGl_string1904z00zz__evaluate_avarz00,
			BgL_bgl_string1904za700za7za7_1941za7);
		BGL_BIND_STRING(BGl_string1903z00zz__evaluate_avarz00,
			BgL_bgl_string1903za700za7za7_1940za7);
		BGL_BIND_STRING(BGl_string1902z00zz__evaluate_avarz00,
			BgL_bgl_string1902za700za7za7_1939za7);
		BGL_BIND_STRING(BGl_string1901z00zz__evaluate_avarz00,
			BgL_bgl_string1901za700za7za7_1938za7);
		BGL_BIND_STRING(BGl_string1900z00zz__evaluate_avarz00,
			BgL_bgl_string1900za700za7za7_1937za7);
		BGL_BIND_PROCEDURE(BGl_analysezd2varszd2envz00zz__evaluate_avarz00,
			BgL_bgl_za762analyseza7d2var1936z00);
		BGL_BIND_STRING(BGl_string1899z00zz__evaluate_avarz00,
			BgL_bgl_string1899za700za7za7_1935za7);
		BGL_BIND_STRING(BGl_string1898z00zz__evaluate_avarz00,
			BgL_bgl_string1898za700za7za7_1934za7);
		BGL_BIND_STRING(BGl_string1896z00zz__evaluate_avarz00,
			BgL_bgl_string1896za700za7za7_1933za7);
		BGL_BIND_PROCEDURE(BGl_avarzd2envzd2zz__evaluate_avarz00,
			BgL_bgl_za762avarza762za7za7__ev1932z00);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evaluate_avarz00));
		ADD_ROOT((void *) (&BGl_symbol1895z00zz__evaluate_avarz00));
		ADD_ROOT((void *) (&BGl_symbol1897z00zz__evaluate_avarz00));
		ADD_ROOT((void *) (&BGl_symbol1907z00zz__evaluate_avarz00));
#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__evaluate_avarz00(long
		BgL_checksumz00_3050, char *BgL_fromz00_3051)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evaluate_avarz00))
				{
					BGl_requirezd2initializa7ationz75zz__evaluate_avarz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evaluate_avarz00();
					BGl_cnstzd2initzd2zz__evaluate_avarz00();
					BGl_importedzd2moduleszd2initz00zz__evaluate_avarz00();
					BGl_genericzd2initzd2zz__evaluate_avarz00();
					BGl_methodzd2initzd2zz__evaluate_avarz00();
					return BGl_toplevelzd2initzd2zz__evaluate_avarz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evaluate_avarz00(void)
	{
		{	/* Eval/evaluate_avar.scm 15 */
			BGl_symbol1895z00zz__evaluate_avarz00 =
				bstring_to_symbol(BGl_string1896z00zz__evaluate_avarz00);
			BGl_symbol1897z00zz__evaluate_avarz00 =
				bstring_to_symbol(BGl_string1898z00zz__evaluate_avarz00);
			return (BGl_symbol1907z00zz__evaluate_avarz00 =
				bstring_to_symbol(BGl_string1906z00zz__evaluate_avarz00), BUNSPEC);
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evaluate_avarz00(void)
	{
		{	/* Eval/evaluate_avar.scm 15 */
			BGl_za2za2callzf2cczd2compliantza2za2z20zz__evaluate_avarz00 =
				((bool_t) 0);
			return BUNSPEC;
		}

	}



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

					BgL_headz00_1202 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_2064;
						obj_t BgL_tailz00_2065;

						BgL_prevz00_2064 = BgL_headz00_1202;
						BgL_tailz00_2065 = BgL_l1z00_1;
					BgL_loopz00_2063:
						if (PAIRP(BgL_tailz00_2065))
							{
								obj_t BgL_newzd2prevzd2_2071;

								BgL_newzd2prevzd2_2071 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_2065), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_2064, BgL_newzd2prevzd2_2071);
								{
									obj_t BgL_tailz00_3075;
									obj_t BgL_prevz00_3074;

									BgL_prevz00_3074 = BgL_newzd2prevzd2_2071;
									BgL_tailz00_3075 = CDR(BgL_tailz00_2065);
									BgL_tailz00_2065 = BgL_tailz00_3075;
									BgL_prevz00_2064 = BgL_prevz00_3074;
									goto BgL_loopz00_2063;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1202);
				}
		}

	}



/* diff */
	obj_t BGl_diffz00zz__evaluate_avarz00(obj_t BgL_l1z00_11, obj_t BgL_l2z00_12)
	{
		{	/* Eval/evaluate_avar.scm 90 */
		BGl_diffz00zz__evaluate_avarz00:
			if (NULLP(BgL_l1z00_11))
				{	/* Eval/evaluate_avar.scm 91 */
					return BNIL;
				}
			else
				{	/* Eval/evaluate_avar.scm 93 */
					obj_t BgL_xz00_1255;

					BgL_xz00_1255 = CAR(((obj_t) BgL_l1z00_11));
					if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1255,
								BgL_l2z00_12)))
						{	/* Eval/evaluate_avar.scm 95 */
							obj_t BgL_arg1365z00_1257;

							BgL_arg1365z00_1257 = CDR(((obj_t) BgL_l1z00_11));
							{
								obj_t BgL_l1z00_3087;

								BgL_l1z00_3087 = BgL_arg1365z00_1257;
								BgL_l1z00_11 = BgL_l1z00_3087;
								goto BGl_diffz00zz__evaluate_avarz00;
							}
						}
					else
						{	/* Eval/evaluate_avar.scm 96 */
							obj_t BgL_arg1366z00_1258;

							{	/* Eval/evaluate_avar.scm 96 */
								obj_t BgL_arg1367z00_1259;

								BgL_arg1367z00_1259 = CDR(((obj_t) BgL_l1z00_11));
								BgL_arg1366z00_1258 =
									BGl_diffz00zz__evaluate_avarz00(BgL_arg1367z00_1259,
									BgL_l2z00_12);
							}
							return MAKE_YOUNG_PAIR(BgL_xz00_1255, BgL_arg1366z00_1258);
						}
				}
		}

	}



/* analyse-vars */
	BGL_EXPORTED_DEF obj_t
		BGl_analysezd2varszd2zz__evaluate_avarz00(BgL_ev_exprz00_bglt BgL_ez00_14)
	{
		{	/* Eval/evaluate_avar.scm 112 */
			{	/* Eval/evaluate_avar.scm 113 */
				BgL_ev_absz00_bglt BgL_fakez00_1262;

				{	/* Eval/evaluate_avar.scm 113 */
					BgL_ev_absz00_bglt BgL_new1068z00_1263;

					{	/* Eval/evaluate_avar.scm 113 */
						BgL_ev_absz00_bglt BgL_new1067z00_1264;

						BgL_new1067z00_1264 =
							((BgL_ev_absz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_ev_absz00_bgl))));
						{	/* Eval/evaluate_avar.scm 113 */
							long BgL_arg1369z00_1265;

							BgL_arg1369z00_1265 =
								BGL_CLASS_NUM(BGl_ev_absz00zz__evaluate_typesz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1067z00_1264),
								BgL_arg1369z00_1265);
						}
						BgL_new1068z00_1263 = BgL_new1067z00_1264;
					}
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_locz00) =
						((obj_t) BGl_symbol1895z00zz__evaluate_avarz00), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_wherez00) =
						((obj_t) BGl_symbol1897z00zz__evaluate_avarz00), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_arityz00) =
						((obj_t) BINT(0L)), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_varsz00) =
						((obj_t) BNIL), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_ez00_14), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->
							BgL_siza7eza7) = ((int) (int) (0L)), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_bindz00) =
						((obj_t) BNIL), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_freez00) =
						((obj_t) BNIL), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_innerz00) =
						((obj_t) BNIL), BUNSPEC);
					((((BgL_ev_absz00_bglt) COBJECT(BgL_new1068z00_1263))->BgL_boxesz00) =
						((obj_t) BNIL), BUNSPEC);
					BgL_fakez00_1262 = BgL_new1068z00_1263;
				}
				return
					BGl_avarz00zz__evaluate_avarz00(BgL_ez00_14, BNIL,
					((obj_t) BgL_fakez00_1262));
			}
		}

	}



/* &analyse-vars */
	obj_t BGl_z62analysezd2varszb0zz__evaluate_avarz00(obj_t BgL_envz00_2741,
		obj_t BgL_ez00_2742)
	{
		{	/* Eval/evaluate_avar.scm 112 */
			{	/* Eval/evaluate_avar.scm 113 */
				BgL_ev_exprz00_bglt BgL_auxz00_3110;

				if (BGl_isazf3zf3zz__objectz00(BgL_ez00_2742,
						BGl_ev_exprz00zz__evaluate_typesz00))
					{	/* Eval/evaluate_avar.scm 113 */
						BgL_auxz00_3110 = ((BgL_ev_exprz00_bglt) BgL_ez00_2742);
					}
				else
					{
						obj_t BgL_auxz00_3114;

						BgL_auxz00_3114 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1899z00zz__evaluate_avarz00, BINT(2941L),
							BGl_string1900z00zz__evaluate_avarz00,
							BGl_string1901z00zz__evaluate_avarz00, BgL_ez00_2742);
						FAILURE(BgL_auxz00_3114, BFALSE, BFALSE);
					}
				return BGl_analysezd2varszd2zz__evaluate_avarz00(BgL_auxz00_3110);
			}
		}

	}



/* check-var */
	BGL_EXPORTED_DEF obj_t
		BGl_checkzd2varzd2zz__evaluate_avarz00(BgL_ev_varz00_bglt BgL_varz00_15,
		obj_t BgL_localz00_16, BgL_ev_absz00_bglt BgL_absz00_17)
	{
		{	/* Eval/evaluate_avar.scm 117 */
			if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
						((obj_t) BgL_varz00_15), BgL_localz00_16)))
				{	/* Eval/evaluate_avar.scm 118 */
					return BFALSE;
				}
			else
				{	/* Eval/evaluate_avar.scm 118 */
					if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
								((obj_t) BgL_varz00_15),
								(((BgL_ev_absz00_bglt) COBJECT(BgL_absz00_17))->BgL_freez00))))
						{	/* Eval/evaluate_avar.scm 120 */
							return BFALSE;
						}
					else
						{
							obj_t BgL_auxz00_3128;

							{	/* Eval/evaluate_avar.scm 120 */
								obj_t BgL_arg1373z00_2102;

								BgL_arg1373z00_2102 =
									(((BgL_ev_absz00_bglt) COBJECT(BgL_absz00_17))->BgL_freez00);
								BgL_auxz00_3128 =
									MAKE_YOUNG_PAIR(((obj_t) BgL_varz00_15), BgL_arg1373z00_2102);
							}
							return
								((((BgL_ev_absz00_bglt) COBJECT(BgL_absz00_17))->BgL_freez00) =
								((obj_t) BgL_auxz00_3128), BUNSPEC);
						}
				}
		}

	}



/* &check-var */
	obj_t BGl_z62checkzd2varzb0zz__evaluate_avarz00(obj_t BgL_envz00_2743,
		obj_t BgL_varz00_2744, obj_t BgL_localz00_2745, obj_t BgL_absz00_2746)
	{
		{	/* Eval/evaluate_avar.scm 117 */
			{	/* Eval/evaluate_avar.scm 118 */
				BgL_ev_absz00_bglt BgL_auxz00_3141;
				BgL_ev_varz00_bglt BgL_auxz00_3133;

				if (BGl_isazf3zf3zz__objectz00(BgL_absz00_2746,
						BGl_ev_absz00zz__evaluate_typesz00))
					{	/* Eval/evaluate_avar.scm 118 */
						BgL_auxz00_3141 = ((BgL_ev_absz00_bglt) BgL_absz00_2746);
					}
				else
					{
						obj_t BgL_auxz00_3145;

						BgL_auxz00_3145 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1899z00zz__evaluate_avarz00, BINT(3159L),
							BGl_string1902z00zz__evaluate_avarz00,
							BGl_string1904z00zz__evaluate_avarz00, BgL_absz00_2746);
						FAILURE(BgL_auxz00_3145, BFALSE, BFALSE);
					}
				if (BGl_isazf3zf3zz__objectz00(BgL_varz00_2744,
						BGl_ev_varz00zz__evaluate_typesz00))
					{	/* Eval/evaluate_avar.scm 118 */
						BgL_auxz00_3133 = ((BgL_ev_varz00_bglt) BgL_varz00_2744);
					}
				else
					{
						obj_t BgL_auxz00_3137;

						BgL_auxz00_3137 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1899z00zz__evaluate_avarz00, BINT(3159L),
							BGl_string1902z00zz__evaluate_avarz00,
							BGl_string1903z00zz__evaluate_avarz00, BgL_varz00_2744);
						FAILURE(BgL_auxz00_3137, BFALSE, BFALSE);
					}
				return
					BGl_checkzd2varzd2zz__evaluate_avarz00(BgL_auxz00_3133,
					BgL_localz00_2745, BgL_auxz00_3141);
			}
		}

	}



/* bind-and-reset-effect */
	obj_t
		BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(BgL_ev_absz00_bglt
		BgL_absz00_75, obj_t BgL_varsz00_76)
	{
		{	/* Eval/evaluate_avar.scm 226 */
			{	/* Eval/evaluate_avar.scm 232 */
				obj_t BgL_ifreez00_1273;

				BgL_ifreez00_1273 =
					BGl_funionze70ze7zz__evaluate_avarz00(
					(((BgL_ev_absz00_bglt) COBJECT(BgL_absz00_75))->BgL_innerz00));
				{
					obj_t BgL_auxz00_3152;

					{	/* Eval/evaluate_avar.scm 234 */
						obj_t BgL_arg1376z00_1275;

						BgL_arg1376z00_1275 =
							(((BgL_ev_absz00_bglt) COBJECT(BgL_absz00_75))->BgL_bindz00);
						BgL_auxz00_3152 =
							BGl_appendzd221011zd2zz__evaluate_avarz00(BgL_varsz00_76,
							BgL_arg1376z00_1275);
					}
					((((BgL_ev_absz00_bglt) COBJECT(BgL_absz00_75))->BgL_bindz00) =
						((obj_t) BgL_auxz00_3152), BUNSPEC);
				}
				{	/* Eval/evaluate_avar.scm 236 */
					obj_t BgL_g1194z00_1276;

					BgL_g1194z00_1276 =
						BGl_diffz00zz__evaluate_avarz00(BgL_varsz00_76, BgL_ifreez00_1273);
					{
						obj_t BgL_l1192z00_2133;

						BgL_l1192z00_2133 = BgL_g1194z00_1276;
					BgL_zc3z04anonymousza31377ze3z87_2132:
						if (PAIRP(BgL_l1192z00_2133))
							{	/* Eval/evaluate_avar.scm 239 */
								{	/* Eval/evaluate_avar.scm 237 */
									obj_t BgL_vz00_2139;

									BgL_vz00_2139 = CAR(BgL_l1192z00_2133);
									((((BgL_ev_varz00_bglt) COBJECT(
													((BgL_ev_varz00_bglt) BgL_vz00_2139)))->BgL_effz00) =
										((obj_t) BFALSE), BUNSPEC);
								}
								{
									obj_t BgL_l1192z00_3162;

									BgL_l1192z00_3162 = CDR(BgL_l1192z00_2133);
									BgL_l1192z00_2133 = BgL_l1192z00_3162;
									goto BgL_zc3z04anonymousza31377ze3z87_2132;
								}
							}
						else
							{	/* Eval/evaluate_avar.scm 239 */
								((bool_t) 1);
							}
					}
				}
				return BgL_ifreez00_1273;
			}
		}

	}



/* funion~0 */
	obj_t BGl_funionze70ze7zz__evaluate_avarz00(obj_t BgL_lz00_1287)
	{
		{	/* Eval/evaluate_avar.scm 231 */
			if (NULLP(BgL_lz00_1287))
				{	/* Eval/evaluate_avar.scm 229 */
					return BNIL;
				}
			else
				{	/* Eval/evaluate_avar.scm 231 */
					obj_t BgL_arg1383z00_1290;
					obj_t BgL_arg1384z00_1291;

					BgL_arg1383z00_1290 =
						(((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt)
									CAR(((obj_t) BgL_lz00_1287)))))->BgL_freez00);
					{	/* Eval/evaluate_avar.scm 231 */
						obj_t BgL_arg1385z00_1293;

						BgL_arg1385z00_1293 = CDR(((obj_t) BgL_lz00_1287));
						BgL_arg1384z00_1291 =
							BGl_funionze70ze7zz__evaluate_avarz00(BgL_arg1385z00_1293);
					}
					{
						obj_t BgL_l1z00_2106;
						obj_t BgL_l2z00_2107;

						BgL_l1z00_2106 = BgL_arg1383z00_1290;
						BgL_l2z00_2107 = BgL_arg1384z00_1291;
					BgL_unionz00_2105:
						if (NULLP(BgL_l1z00_2106))
							{	/* Eval/evaluate_avar.scm 77 */
								return BgL_l2z00_2107;
							}
						else
							{	/* Eval/evaluate_avar.scm 79 */
								obj_t BgL_xz00_2114;

								BgL_xz00_2114 = CAR(((obj_t) BgL_l1z00_2106));
								{	/* Eval/evaluate_avar.scm 80 */
									obj_t BgL_arg1355z00_2115;
									obj_t BgL_arg1356z00_2116;

									BgL_arg1355z00_2115 = CDR(((obj_t) BgL_l1z00_2106));
									if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
											(BgL_xz00_2114, BgL_l2z00_2107)))
										{	/* Eval/evaluate_avar.scm 80 */
											BgL_arg1356z00_2116 = BgL_l2z00_2107;
										}
									else
										{	/* Eval/evaluate_avar.scm 80 */
											BgL_arg1356z00_2116 =
												MAKE_YOUNG_PAIR(BgL_xz00_2114, BgL_l2z00_2107);
										}
									{
										obj_t BgL_l2z00_3184;
										obj_t BgL_l1z00_3183;

										BgL_l1z00_3183 = BgL_arg1355z00_2115;
										BgL_l2z00_3184 = BgL_arg1356z00_2116;
										BgL_l2z00_2107 = BgL_l2z00_3184;
										BgL_l1z00_2106 = BgL_l1z00_3183;
										goto BgL_unionz00_2105;
									}
								}
							}
					}
				}
		}

	}



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

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__evaluate_avarz00(void)
	{
		{	/* Eval/evaluate_avar.scm 15 */
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_proc1905z00zz__evaluate_avarz00,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string1906z00zz__evaluate_avarz00);
		}

	}



/* &avar1214 */
	obj_t BGl_z62avar1214z62zz__evaluate_avarz00(obj_t BgL_envz00_2748,
		obj_t BgL_ez00_2749, obj_t BgL_localz00_2750, obj_t BgL_absz00_2751)
	{
		{	/* Eval/evaluate_avar.scm 122 */
			return
				BGl_errorz00zz__errorz00(BGl_symbol1907z00zz__evaluate_avarz00,
				BGl_string1908z00zz__evaluate_avarz00,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_2749)));
		}

	}



/* avar */
	obj_t BGl_avarz00zz__evaluate_avarz00(BgL_ev_exprz00_bglt BgL_ez00_18,
		obj_t BgL_localz00_19, obj_t BgL_absz00_20)
	{
		{	/* Eval/evaluate_avar.scm 122 */
			{	/* Eval/evaluate_avar.scm 122 */
				obj_t BgL_method1215z00_1301;

				{	/* Eval/evaluate_avar.scm 122 */
					obj_t BgL_res1875z00_2174;

					{	/* Eval/evaluate_avar.scm 122 */
						long BgL_objzd2classzd2numz00_2145;

						BgL_objzd2classzd2numz00_2145 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_18));
						{	/* Eval/evaluate_avar.scm 122 */
							obj_t BgL_arg1845z00_2146;

							BgL_arg1845z00_2146 =
								PROCEDURE_REF(BGl_avarzd2envzd2zz__evaluate_avarz00,
								(int) (1L));
							{	/* Eval/evaluate_avar.scm 122 */
								int BgL_offsetz00_2149;

								BgL_offsetz00_2149 = (int) (BgL_objzd2classzd2numz00_2145);
								{	/* Eval/evaluate_avar.scm 122 */
									long BgL_offsetz00_2150;

									BgL_offsetz00_2150 =
										((long) (BgL_offsetz00_2149) - OBJECT_TYPE);
									{	/* Eval/evaluate_avar.scm 122 */
										long BgL_modz00_2151;

										BgL_modz00_2151 =
											(BgL_offsetz00_2150 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_avar.scm 122 */
											long BgL_restz00_2153;

											BgL_restz00_2153 =
												(BgL_offsetz00_2150 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_avar.scm 122 */

												{	/* Eval/evaluate_avar.scm 122 */
													obj_t BgL_bucketz00_2155;

													BgL_bucketz00_2155 =
														VECTOR_REF(
														((obj_t) BgL_arg1845z00_2146), BgL_modz00_2151);
													BgL_res1875z00_2174 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2155), BgL_restz00_2153);
					}}}}}}}}
					BgL_method1215z00_1301 = BgL_res1875z00_2174;
				}
				return
					BGL_PROCEDURE_CALL3(BgL_method1215z00_1301,
					((obj_t) BgL_ez00_18), BgL_localz00_19, BgL_absz00_20);
			}
		}

	}



/* &avar */
	obj_t BGl_z62avarz62zz__evaluate_avarz00(obj_t BgL_envz00_2752,
		obj_t BgL_ez00_2753, obj_t BgL_localz00_2754, obj_t BgL_absz00_2755)
	{
		{	/* Eval/evaluate_avar.scm 122 */
			{	/* Eval/evaluate_avar.scm 122 */
				BgL_ev_exprz00_bglt BgL_auxz00_3221;

				{	/* Eval/evaluate_avar.scm 122 */
					bool_t BgL_test1982z00_3222;

					{	/* Eval/evaluate_avar.scm 122 */
						obj_t BgL_classz00_2871;

						BgL_classz00_2871 = BGl_ev_exprz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_ez00_2753))
							{	/* Eval/evaluate_avar.scm 122 */
								BgL_objectz00_bglt BgL_arg1841z00_2873;
								long BgL_arg1842z00_2874;

								BgL_arg1841z00_2873 = (BgL_objectz00_bglt) (BgL_ez00_2753);
								BgL_arg1842z00_2874 = BGL_CLASS_DEPTH(BgL_classz00_2871);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_avar.scm 122 */
										long BgL_idxz00_2882;

										BgL_idxz00_2882 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1841z00_2873);
										{	/* Eval/evaluate_avar.scm 122 */
											obj_t BgL_arg1832z00_2883;

											{	/* Eval/evaluate_avar.scm 122 */
												long BgL_arg1833z00_2884;

												BgL_arg1833z00_2884 =
													(BgL_idxz00_2882 + BgL_arg1842z00_2874);
												BgL_arg1832z00_2883 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg1833z00_2884);
											}
											BgL_test1982z00_3222 =
												(BgL_arg1832z00_2883 == BgL_classz00_2871);
									}}
								else
									{	/* Eval/evaluate_avar.scm 122 */
										bool_t BgL_res1931z00_2910;

										{	/* Eval/evaluate_avar.scm 122 */
											obj_t BgL_oclassz00_2892;

											{	/* Eval/evaluate_avar.scm 122 */
												obj_t BgL_arg1848z00_2900;
												long BgL_arg1849z00_2901;

												BgL_arg1848z00_2900 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_avar.scm 122 */
													long BgL_arg1851z00_2902;

													BgL_arg1851z00_2902 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1841z00_2873);
													BgL_arg1849z00_2901 =
														(BgL_arg1851z00_2902 - OBJECT_TYPE);
												}
												BgL_oclassz00_2892 =
													VECTOR_REF(BgL_arg1848z00_2900, BgL_arg1849z00_2901);
											}
											{	/* Eval/evaluate_avar.scm 122 */
												bool_t BgL__ortest_1137z00_2893;

												BgL__ortest_1137z00_2893 =
													(BgL_classz00_2871 == BgL_oclassz00_2892);
												if (BgL__ortest_1137z00_2893)
													{	/* Eval/evaluate_avar.scm 122 */
														BgL_res1931z00_2910 = BgL__ortest_1137z00_2893;
													}
												else
													{	/* Eval/evaluate_avar.scm 122 */
														long BgL_odepthz00_2894;

														{	/* Eval/evaluate_avar.scm 122 */
															obj_t BgL_arg1836z00_2895;

															BgL_arg1836z00_2895 = (BgL_oclassz00_2892);
															BgL_odepthz00_2894 =
																BGL_CLASS_DEPTH(BgL_arg1836z00_2895);
														}
														if ((BgL_arg1842z00_2874 < BgL_odepthz00_2894))
															{	/* Eval/evaluate_avar.scm 122 */
																obj_t BgL_arg1834z00_2897;

																{	/* Eval/evaluate_avar.scm 122 */
																	obj_t BgL_arg1835z00_2898;

																	BgL_arg1835z00_2898 = (BgL_oclassz00_2892);
																	BgL_arg1834z00_2897 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg1835z00_2898,
																		BgL_arg1842z00_2874);
																}
																BgL_res1931z00_2910 =
																	(BgL_arg1834z00_2897 == BgL_classz00_2871);
															}
														else
															{	/* Eval/evaluate_avar.scm 122 */
																BgL_res1931z00_2910 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test1982z00_3222 = BgL_res1931z00_2910;
									}
							}
						else
							{	/* Eval/evaluate_avar.scm 122 */
								BgL_test1982z00_3222 = ((bool_t) 0);
							}
					}
					if (BgL_test1982z00_3222)
						{	/* Eval/evaluate_avar.scm 122 */
							BgL_auxz00_3221 = ((BgL_ev_exprz00_bglt) BgL_ez00_2753);
						}
					else
						{
							obj_t BgL_auxz00_3247;

							BgL_auxz00_3247 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1899z00zz__evaluate_avarz00, BINT(3282L),
								BGl_string1909z00zz__evaluate_avarz00,
								BGl_string1901z00zz__evaluate_avarz00, BgL_ez00_2753);
							FAILURE(BgL_auxz00_3247, BFALSE, BFALSE);
						}
				}
				return
					BGl_avarz00zz__evaluate_avarz00(BgL_auxz00_3221, BgL_localz00_2754,
					BgL_absz00_2755);
			}
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__evaluate_avarz00(void)
	{
		{	/* Eval/evaluate_avar.scm 15 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_varz00zz__evaluate_typesz00, BGl_proc1910z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc1912z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc1913z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_ifz00zz__evaluate_typesz00, BGl_proc1914z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_listz00zz__evaluate_typesz00,
				BGl_proc1915z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc1916z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_hookz00zz__evaluate_typesz00,
				BGl_proc1917z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_setlocalz00zz__evaluate_typesz00,
				BGl_proc1918z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc1919z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc1920z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc1921z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc1922z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_letz00zz__evaluate_typesz00, BGl_proc1923z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_letza2za2zz__evaluate_typesz00,
				BGl_proc1924z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_letrecz00zz__evaluate_typesz00,
				BGl_proc1925z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_labelsz00zz__evaluate_typesz00,
				BGl_proc1926z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_gotoz00zz__evaluate_typesz00,
				BGl_proc1927z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_appz00zz__evaluate_typesz00, BGl_proc1928z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_avarzd2envzd2zz__evaluate_avarz00,
				BGl_ev_absz00zz__evaluate_typesz00, BGl_proc1929z00zz__evaluate_avarz00,
				BGl_string1911z00zz__evaluate_avarz00);
		}

	}



/* &avar-ev_abs1256 */
	obj_t BGl_z62avarzd2ev_abs1256zb0zz__evaluate_avarz00(obj_t BgL_envz00_2775,
		obj_t BgL_ez00_2776, obj_t BgL_localz00_2777, obj_t BgL_absz00_2778)
	{
		{	/* Eval/evaluate_avar.scm 242 */
			{
				obj_t BgL_auxz00_3271;

				{	/* Eval/evaluate_avar.scm 245 */
					obj_t BgL_arg1483z00_2912;

					BgL_arg1483z00_2912 =
						(((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt) BgL_absz00_2778)))->BgL_innerz00);
					BgL_auxz00_3271 =
						MAKE_YOUNG_PAIR(
						((obj_t)
							((BgL_ev_absz00_bglt) BgL_ez00_2776)), BgL_arg1483z00_2912);
				}
				((((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt) BgL_absz00_2778)))->BgL_innerz00) =
					((obj_t) BgL_auxz00_3271), BUNSPEC);
			}
			{	/* Eval/evaluate_avar.scm 246 */
				BgL_ev_exprz00_bglt BgL_arg1484z00_2913;
				obj_t BgL_arg1486z00_2914;

				BgL_arg1484z00_2913 =
					(((BgL_ev_absz00_bglt) COBJECT(
							((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_bodyz00);
				BgL_arg1486z00_2914 =
					(((BgL_ev_absz00_bglt) COBJECT(
							((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_varsz00);
				BGl_avarz00zz__evaluate_avarz00(BgL_arg1484z00_2913,
					BgL_arg1486z00_2914, ((obj_t) ((BgL_ev_absz00_bglt) BgL_ez00_2776)));
			}
			{	/* Eval/evaluate_avar.scm 247 */
				obj_t BgL_ifreez00_2915;

				BgL_ifreez00_2915 =
					BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(
					((BgL_ev_absz00_bglt) BgL_ez00_2776),
					(((BgL_ev_absz00_bglt) COBJECT(
								((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_varsz00));
				{
					obj_t BgL_auxz00_3290;

					{	/* Eval/evaluate_avar.scm 249 */
						obj_t BgL_arg1487z00_2916;
						obj_t BgL_arg1488z00_2917;

						{	/* Eval/evaluate_avar.scm 249 */
							obj_t BgL_arg1489z00_2918;

							BgL_arg1489z00_2918 =
								(((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_freez00);
							{
								obj_t BgL_l1z00_2920;
								obj_t BgL_l2z00_2921;

								BgL_l1z00_2920 = BgL_ifreez00_2915;
								BgL_l2z00_2921 = BgL_arg1489z00_2918;
							BgL_unionz00_2919:
								if (NULLP(BgL_l1z00_2920))
									{	/* Eval/evaluate_avar.scm 77 */
										BgL_arg1487z00_2916 = BgL_l2z00_2921;
									}
								else
									{	/* Eval/evaluate_avar.scm 79 */
										obj_t BgL_xz00_2922;

										BgL_xz00_2922 = CAR(((obj_t) BgL_l1z00_2920));
										{	/* Eval/evaluate_avar.scm 80 */
											obj_t BgL_arg1355z00_2923;
											obj_t BgL_arg1356z00_2924;

											BgL_arg1355z00_2923 = CDR(((obj_t) BgL_l1z00_2920));
											if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_xz00_2922, BgL_l2z00_2921)))
												{	/* Eval/evaluate_avar.scm 80 */
													BgL_arg1356z00_2924 = BgL_l2z00_2921;
												}
											else
												{	/* Eval/evaluate_avar.scm 80 */
													BgL_arg1356z00_2924 =
														MAKE_YOUNG_PAIR(BgL_xz00_2922, BgL_l2z00_2921);
												}
											{
												obj_t BgL_l2z00_3305;
												obj_t BgL_l1z00_3304;

												BgL_l1z00_3304 = BgL_arg1355z00_2923;
												BgL_l2z00_3305 = BgL_arg1356z00_2924;
												BgL_l2z00_2921 = BgL_l2z00_3305;
												BgL_l1z00_2920 = BgL_l1z00_3304;
												goto BgL_unionz00_2919;
											}
										}
									}
							}
						}
						BgL_arg1488z00_2917 =
							(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_bindz00);
						BgL_auxz00_3290 =
							BGl_diffz00zz__evaluate_avarz00(BgL_arg1487z00_2916,
							BgL_arg1488z00_2917);
					}
					((((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_freez00) =
						((obj_t) BgL_auxz00_3290), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_3310;

					{	/* Eval/evaluate_avar.scm 250 */
						obj_t BgL_hook1199z00_2925;

						BgL_hook1199z00_2925 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
						{	/* Eval/evaluate_avar.scm 250 */
							obj_t BgL_g1200z00_2926;

							BgL_g1200z00_2926 =
								(((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_varsz00);
							{
								obj_t BgL_l1196z00_2928;
								obj_t BgL_h1197z00_2929;

								BgL_l1196z00_2928 = BgL_g1200z00_2926;
								BgL_h1197z00_2929 = BgL_hook1199z00_2925;
							BgL_zc3z04anonymousza31490ze3z87_2927:
								if (NULLP(BgL_l1196z00_2928))
									{	/* Eval/evaluate_avar.scm 250 */
										BgL_auxz00_3310 = CDR(BgL_hook1199z00_2925);
									}
								else
									{	/* Eval/evaluate_avar.scm 250 */
										if (CBOOL(
												(((BgL_ev_varz00_bglt) COBJECT(
															((BgL_ev_varz00_bglt)
																CAR(
																	((obj_t) BgL_l1196z00_2928)))))->BgL_effz00)))
											{	/* Eval/evaluate_avar.scm 250 */
												obj_t BgL_nh1198z00_2930;

												{	/* Eval/evaluate_avar.scm 250 */
													obj_t BgL_arg1495z00_2931;

													BgL_arg1495z00_2931 =
														CAR(((obj_t) BgL_l1196z00_2928));
													BgL_nh1198z00_2930 =
														MAKE_YOUNG_PAIR(BgL_arg1495z00_2931, BNIL);
												}
												SET_CDR(BgL_h1197z00_2929, BgL_nh1198z00_2930);
												{	/* Eval/evaluate_avar.scm 250 */
													obj_t BgL_arg1494z00_2932;

													BgL_arg1494z00_2932 =
														CDR(((obj_t) BgL_l1196z00_2928));
													{
														obj_t BgL_h1197z00_3331;
														obj_t BgL_l1196z00_3330;

														BgL_l1196z00_3330 = BgL_arg1494z00_2932;
														BgL_h1197z00_3331 = BgL_nh1198z00_2930;
														BgL_h1197z00_2929 = BgL_h1197z00_3331;
														BgL_l1196z00_2928 = BgL_l1196z00_3330;
														goto BgL_zc3z04anonymousza31490ze3z87_2927;
													}
												}
											}
										else
											{	/* Eval/evaluate_avar.scm 250 */
												obj_t BgL_arg1497z00_2933;

												BgL_arg1497z00_2933 = CDR(((obj_t) BgL_l1196z00_2928));
												{
													obj_t BgL_l1196z00_3334;

													BgL_l1196z00_3334 = BgL_arg1497z00_2933;
													BgL_l1196z00_2928 = BgL_l1196z00_3334;
													goto BgL_zc3z04anonymousza31490ze3z87_2927;
												}
											}
									}
							}
						}
					}
					return
						((((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_2776)))->BgL_boxesz00) =
						((obj_t) BgL_auxz00_3310), BUNSPEC);
				}
			}
		}

	}



/* &avar-ev_app1253 */
	obj_t BGl_z62avarzd2ev_app1253zb0zz__evaluate_avarz00(obj_t BgL_envz00_2779,
		obj_t BgL_ez00_2780, obj_t BgL_localz00_2781, obj_t BgL_absz00_2782)
	{
		{	/* Eval/evaluate_avar.scm 220 */
			{	/* Eval/evaluate_avar.scm 221 */
				bool_t BgL_tmpz00_3336;

				BGl_avarz00zz__evaluate_avarz00(
					(((BgL_ev_appz00_bglt) COBJECT(
								((BgL_ev_appz00_bglt) BgL_ez00_2780)))->BgL_funz00),
					BgL_localz00_2781, BgL_absz00_2782);
				{	/* Eval/evaluate_avar.scm 223 */
					obj_t BgL_g1191z00_2935;

					BgL_g1191z00_2935 =
						(((BgL_ev_appz00_bglt) COBJECT(
								((BgL_ev_appz00_bglt) BgL_ez00_2780)))->BgL_argsz00);
					{
						obj_t BgL_l1189z00_2937;

						BgL_l1189z00_2937 = BgL_g1191z00_2935;
					BgL_zc3z04anonymousza31480ze3z87_2936:
						if (PAIRP(BgL_l1189z00_2937))
							{	/* Eval/evaluate_avar.scm 223 */
								{	/* Eval/evaluate_avar.scm 223 */
									obj_t BgL_ez00_2938;

									BgL_ez00_2938 = CAR(BgL_l1189z00_2937);
									BGl_avarz00zz__evaluate_avarz00(
										((BgL_ev_exprz00_bglt) BgL_ez00_2938), BgL_localz00_2781,
										BgL_absz00_2782);
								}
								{
									obj_t BgL_l1189z00_3347;

									BgL_l1189z00_3347 = CDR(BgL_l1189z00_2937);
									BgL_l1189z00_2937 = BgL_l1189z00_3347;
									goto BgL_zc3z04anonymousza31480ze3z87_2936;
								}
							}
						else
							{	/* Eval/evaluate_avar.scm 223 */
								BgL_tmpz00_3336 = ((bool_t) 1);
							}
					}
				}
				return BBOOL(BgL_tmpz00_3336);
			}
		}

	}



/* &avar-ev_goto1251 */
	obj_t BGl_z62avarzd2ev_goto1251zb0zz__evaluate_avarz00(obj_t BgL_envz00_2783,
		obj_t BgL_ez00_2784, obj_t BgL_localz00_2785, obj_t BgL_absz00_2786)
	{
		{	/* Eval/evaluate_avar.scm 216 */
			{	/* Eval/evaluate_avar.scm 217 */
				bool_t BgL_tmpz00_3350;

				{	/* Eval/evaluate_avar.scm 218 */
					obj_t BgL_g1188z00_2940;

					BgL_g1188z00_2940 =
						(((BgL_ev_gotoz00_bglt) COBJECT(
								((BgL_ev_gotoz00_bglt) BgL_ez00_2784)))->BgL_argsz00);
					{
						obj_t BgL_l1186z00_2942;

						BgL_l1186z00_2942 = BgL_g1188z00_2940;
					BgL_zc3z04anonymousza31474ze3z87_2941:
						if (PAIRP(BgL_l1186z00_2942))
							{	/* Eval/evaluate_avar.scm 218 */
								{	/* Eval/evaluate_avar.scm 218 */
									obj_t BgL_ez00_2943;

									BgL_ez00_2943 = CAR(BgL_l1186z00_2942);
									BGl_avarz00zz__evaluate_avarz00(
										((BgL_ev_exprz00_bglt) BgL_ez00_2943), BgL_localz00_2785,
										BgL_absz00_2786);
								}
								{
									obj_t BgL_l1186z00_3358;

									BgL_l1186z00_3358 = CDR(BgL_l1186z00_2942);
									BgL_l1186z00_2942 = BgL_l1186z00_3358;
									goto BgL_zc3z04anonymousza31474ze3z87_2941;
								}
							}
						else
							{	/* Eval/evaluate_avar.scm 218 */
								BgL_tmpz00_3350 = ((bool_t) 1);
							}
					}
				}
				return BBOOL(BgL_tmpz00_3350);
			}
		}

	}



/* &avar-ev_labels1249 */
	obj_t BGl_z62avarzd2ev_labels1249zb0zz__evaluate_avarz00(obj_t
		BgL_envz00_2787, obj_t BgL_ez00_2788, obj_t BgL_localz00_2789,
		obj_t BgL_absz00_2790)
	{
		{	/* Eval/evaluate_avar.scm 204 */
			{	/* Eval/evaluate_avar.scm 206 */
				obj_t BgL_localz00_2945;

				BgL_localz00_2945 =
					BGl_appendzd221011zd2zz__evaluate_avarz00(
					(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_2788)))->BgL_varsz00),
					BgL_localz00_2789);
				{	/* Eval/evaluate_avar.scm 207 */
					obj_t BgL_g1174z00_2946;

					BgL_g1174z00_2946 =
						(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_2788)))->BgL_valsz00);
					{
						obj_t BgL_l1172z00_2948;

						BgL_l1172z00_2948 = BgL_g1174z00_2946;
					BgL_zc3z04anonymousza31451ze3z87_2947:
						if (PAIRP(BgL_l1172z00_2948))
							{	/* Eval/evaluate_avar.scm 207 */
								{	/* Eval/evaluate_avar.scm 209 */
									obj_t BgL_sz00_2949;

									BgL_sz00_2949 = CAR(BgL_l1172z00_2948);
									{	/* Eval/evaluate_avar.scm 209 */
										obj_t BgL_arg1453z00_2950;
										obj_t BgL_arg1455z00_2951;

										BgL_arg1453z00_2950 = CDR(((obj_t) BgL_sz00_2949));
										{	/* Eval/evaluate_avar.scm 209 */
											obj_t BgL_arg1456z00_2952;

											BgL_arg1456z00_2952 = CAR(((obj_t) BgL_sz00_2949));
											BgL_arg1455z00_2951 =
												BGl_appendzd221011zd2zz__evaluate_avarz00
												(BgL_arg1456z00_2952, BgL_localz00_2945);
										}
										BGl_avarz00zz__evaluate_avarz00(
											((BgL_ev_exprz00_bglt) BgL_arg1453z00_2950),
											BgL_arg1455z00_2951, BgL_absz00_2790);
									}
									{	/* Eval/evaluate_avar.scm 210 */
										obj_t BgL_arg1457z00_2953;

										BgL_arg1457z00_2953 = CAR(((obj_t) BgL_sz00_2949));
										BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(
											((BgL_ev_absz00_bglt) BgL_absz00_2790),
											BgL_arg1457z00_2953);
									}
								}
								{
									obj_t BgL_l1172z00_3380;

									BgL_l1172z00_3380 = CDR(BgL_l1172z00_2948);
									BgL_l1172z00_2948 = BgL_l1172z00_3380;
									goto BgL_zc3z04anonymousza31451ze3z87_2947;
								}
							}
						else
							{	/* Eval/evaluate_avar.scm 207 */
								((bool_t) 1);
							}
					}
				}
				{
					obj_t BgL_auxz00_3382;

					{	/* Eval/evaluate_avar.scm 213 */
						obj_t BgL_ll1180z00_2954;
						obj_t BgL_ll1181z00_2955;

						BgL_ll1180z00_2954 =
							(((BgL_ev_labelsz00_bglt) COBJECT(
									((BgL_ev_labelsz00_bglt) BgL_ez00_2788)))->BgL_varsz00);
						BgL_ll1181z00_2955 =
							(((BgL_ev_labelsz00_bglt) COBJECT(
									((BgL_ev_labelsz00_bglt) BgL_ez00_2788)))->BgL_valsz00);
						if (NULLP(BgL_ll1180z00_2954))
							{	/* Eval/evaluate_avar.scm 213 */
								BgL_auxz00_3382 = BNIL;
							}
						else
							{	/* Eval/evaluate_avar.scm 213 */
								obj_t BgL_head1182z00_2956;

								BgL_head1182z00_2956 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_ll1180z00_2958;
									obj_t BgL_ll1181z00_2959;
									obj_t BgL_tail1183z00_2960;

									BgL_ll1180z00_2958 = BgL_ll1180z00_2954;
									BgL_ll1181z00_2959 = BgL_ll1181z00_2955;
									BgL_tail1183z00_2960 = BgL_head1182z00_2956;
								BgL_zc3z04anonymousza31460ze3z87_2957:
									if (NULLP(BgL_ll1180z00_2958))
										{	/* Eval/evaluate_avar.scm 213 */
											BgL_auxz00_3382 = CDR(BgL_head1182z00_2956);
										}
									else
										{	/* Eval/evaluate_avar.scm 213 */
											obj_t BgL_newtail1184z00_2961;

											{	/* Eval/evaluate_avar.scm 213 */
												obj_t BgL_arg1465z00_2962;

												{	/* Eval/evaluate_avar.scm 213 */
													obj_t BgL_varz00_2963;
													obj_t BgL_sz00_2964;

													BgL_varz00_2963 = CAR(((obj_t) BgL_ll1180z00_2958));
													BgL_sz00_2964 = CAR(((obj_t) BgL_ll1181z00_2959));
													{	/* Eval/evaluate_avar.scm 213 */
														obj_t BgL_arg1466z00_2965;

														{	/* Eval/evaluate_avar.scm 213 */
															obj_t BgL_l1175z00_2966;

															BgL_l1175z00_2966 = CAR(((obj_t) BgL_sz00_2964));
															if (NULLP(BgL_l1175z00_2966))
																{	/* Eval/evaluate_avar.scm 213 */
																	BgL_arg1466z00_2965 = BNIL;
																}
															else
																{	/* Eval/evaluate_avar.scm 213 */
																	obj_t BgL_head1177z00_2967;

																	BgL_head1177z00_2967 =
																		MAKE_YOUNG_PAIR(BNIL, BNIL);
																	{
																		obj_t BgL_l1175z00_2969;
																		obj_t BgL_tail1178z00_2970;

																		BgL_l1175z00_2969 = BgL_l1175z00_2966;
																		BgL_tail1178z00_2970 = BgL_head1177z00_2967;
																	BgL_zc3z04anonymousza31468ze3z87_2968:
																		if (NULLP(BgL_l1175z00_2969))
																			{	/* Eval/evaluate_avar.scm 213 */
																				BgL_arg1466z00_2965 =
																					CDR(BgL_head1177z00_2967);
																			}
																		else
																			{	/* Eval/evaluate_avar.scm 213 */
																				obj_t BgL_newtail1179z00_2971;

																				{	/* Eval/evaluate_avar.scm 213 */
																					obj_t BgL_arg1471z00_2972;

																					BgL_arg1471z00_2972 =
																						(((BgL_ev_varz00_bglt) COBJECT(
																								((BgL_ev_varz00_bglt)
																									CAR(
																										((obj_t)
																											BgL_l1175z00_2969)))))->
																						BgL_effz00);
																					BgL_newtail1179z00_2971 =
																						MAKE_YOUNG_PAIR(BgL_arg1471z00_2972,
																						BNIL);
																				}
																				SET_CDR(BgL_tail1178z00_2970,
																					BgL_newtail1179z00_2971);
																				{	/* Eval/evaluate_avar.scm 213 */
																					obj_t BgL_arg1470z00_2973;

																					BgL_arg1470z00_2973 =
																						CDR(((obj_t) BgL_l1175z00_2969));
																					{
																						obj_t BgL_tail1178z00_3415;
																						obj_t BgL_l1175z00_3414;

																						BgL_l1175z00_3414 =
																							BgL_arg1470z00_2973;
																						BgL_tail1178z00_3415 =
																							BgL_newtail1179z00_2971;
																						BgL_tail1178z00_2970 =
																							BgL_tail1178z00_3415;
																						BgL_l1175z00_2969 =
																							BgL_l1175z00_3414;
																						goto
																							BgL_zc3z04anonymousza31468ze3z87_2968;
																					}
																				}
																			}
																	}
																}
														}
														BgL_arg1465z00_2962 =
															MAKE_YOUNG_PAIR(BgL_varz00_2963,
															BgL_arg1466z00_2965);
													}
												}
												BgL_newtail1184z00_2961 =
													MAKE_YOUNG_PAIR(BgL_arg1465z00_2962, BNIL);
											}
											SET_CDR(BgL_tail1183z00_2960, BgL_newtail1184z00_2961);
											{	/* Eval/evaluate_avar.scm 213 */
												obj_t BgL_arg1462z00_2974;
												obj_t BgL_arg1464z00_2975;

												BgL_arg1462z00_2974 = CDR(((obj_t) BgL_ll1180z00_2958));
												BgL_arg1464z00_2975 = CDR(((obj_t) BgL_ll1181z00_2959));
												{
													obj_t BgL_tail1183z00_3425;
													obj_t BgL_ll1181z00_3424;
													obj_t BgL_ll1180z00_3423;

													BgL_ll1180z00_3423 = BgL_arg1462z00_2974;
													BgL_ll1181z00_3424 = BgL_arg1464z00_2975;
													BgL_tail1183z00_3425 = BgL_newtail1184z00_2961;
													BgL_tail1183z00_2960 = BgL_tail1183z00_3425;
													BgL_ll1181z00_2959 = BgL_ll1181z00_3424;
													BgL_ll1180z00_2958 = BgL_ll1180z00_3423;
													goto BgL_zc3z04anonymousza31460ze3z87_2957;
												}
											}
										}
								}
							}
					}
					((((BgL_ev_labelsz00_bglt) COBJECT(
									((BgL_ev_labelsz00_bglt) BgL_ez00_2788)))->BgL_boxesz00) =
						((obj_t) BgL_auxz00_3382), BUNSPEC);
				}
				return
					BGl_avarz00zz__evaluate_avarz00(
					(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_2788)))->BgL_bodyz00),
					BgL_localz00_2945, BgL_absz00_2790);
			}
		}

	}



/* &avar-ev_letrec1247 */
	obj_t BGl_z62avarzd2ev_letrec1247zb0zz__evaluate_avarz00(obj_t
		BgL_envz00_2791, obj_t BgL_ez00_2792, obj_t BgL_localz00_2793,
		obj_t BgL_absz00_2794)
	{
		{	/* Eval/evaluate_avar.scm 195 */
			{	/* Eval/evaluate_avar.scm 196 */
				bool_t BgL_tmpz00_3430;

				{	/* Eval/evaluate_avar.scm 197 */
					obj_t BgL_localz00_2977;

					{	/* Eval/evaluate_avar.scm 197 */
						obj_t BgL_arg1450z00_2978;

						BgL_arg1450z00_2978 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_2792))))->BgL_varsz00);
						BgL_localz00_2977 =
							BGl_appendzd221011zd2zz__evaluate_avarz00(BgL_arg1450z00_2978,
							BgL_localz00_2793);
					}
					{	/* Eval/evaluate_avar.scm 198 */
						obj_t BgL_g1168z00_2979;

						BgL_g1168z00_2979 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_2792))))->BgL_valsz00);
						{
							obj_t BgL_l1166z00_2981;

							BgL_l1166z00_2981 = BgL_g1168z00_2979;
						BgL_zc3z04anonymousza31438ze3z87_2980:
							if (PAIRP(BgL_l1166z00_2981))
								{	/* Eval/evaluate_avar.scm 198 */
									{	/* Eval/evaluate_avar.scm 198 */
										obj_t BgL_ez00_2982;

										BgL_ez00_2982 = CAR(BgL_l1166z00_2981);
										BGl_avarz00zz__evaluate_avarz00(
											((BgL_ev_exprz00_bglt) BgL_ez00_2982), BgL_localz00_2977,
											BgL_absz00_2794);
									}
									{
										obj_t BgL_l1166z00_3443;

										BgL_l1166z00_3443 = CDR(BgL_l1166z00_2981);
										BgL_l1166z00_2981 = BgL_l1166z00_3443;
										goto BgL_zc3z04anonymousza31438ze3z87_2980;
									}
								}
							else
								{	/* Eval/evaluate_avar.scm 198 */
									((bool_t) 1);
								}
						}
					}
					{	/* Eval/evaluate_avar.scm 199 */
						BgL_ev_exprz00_bglt BgL_arg1443z00_2983;

						BgL_arg1443z00_2983 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_2792))))->BgL_bodyz00);
						BGl_avarz00zz__evaluate_avarz00(BgL_arg1443z00_2983,
							BgL_localz00_2977, BgL_absz00_2794);
					}
					{
						obj_t BgL_auxz00_3449;

						{	/* Eval/evaluate_avar.scm 201 */
							obj_t BgL_arg1444z00_2984;
							obj_t BgL_arg1445z00_2985;

							BgL_arg1444z00_2984 =
								(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_2792))))->BgL_varsz00);
							BgL_arg1445z00_2985 =
								(((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_absz00_2794)))->BgL_bindz00);
							BgL_auxz00_3449 =
								BGl_appendzd221011zd2zz__evaluate_avarz00(BgL_arg1444z00_2984,
								BgL_arg1445z00_2985);
						}
						((((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_absz00_2794)))->BgL_bindz00) =
							((obj_t) BgL_auxz00_3449), BUNSPEC);
					}
					{	/* Eval/evaluate_avar.scm 202 */
						obj_t BgL_g1171z00_2986;

						BgL_g1171z00_2986 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_2792))))->BgL_varsz00);
						{
							obj_t BgL_l1169z00_2988;

							BgL_l1169z00_2988 = BgL_g1171z00_2986;
						BgL_zc3z04anonymousza31446ze3z87_2987:
							if (PAIRP(BgL_l1169z00_2988))
								{	/* Eval/evaluate_avar.scm 202 */
									{	/* Eval/evaluate_avar.scm 202 */
										obj_t BgL_vz00_2989;

										BgL_vz00_2989 = CAR(BgL_l1169z00_2988);
										((((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt) BgL_vz00_2989)))->
												BgL_effz00) = ((obj_t) BTRUE), BUNSPEC);
									}
									{
										obj_t BgL_l1169z00_3466;

										BgL_l1169z00_3466 = CDR(BgL_l1169z00_2988);
										BgL_l1169z00_2988 = BgL_l1169z00_3466;
										goto BgL_zc3z04anonymousza31446ze3z87_2987;
									}
								}
							else
								{	/* Eval/evaluate_avar.scm 202 */
									BgL_tmpz00_3430 = ((bool_t) 1);
								}
						}
					}
				}
				return BBOOL(BgL_tmpz00_3430);
			}
		}

	}



/* &avar-ev_let*1245 */
	obj_t BGl_z62avarzd2ev_letza21245z12zz__evaluate_avarz00(obj_t
		BgL_envz00_2795, obj_t BgL_ez00_2796, obj_t BgL_localz00_2797,
		obj_t BgL_absz00_2798)
	{
		{	/* Eval/evaluate_avar.scm 187 */
			{	/* Eval/evaluate_avar.scm 189 */
				obj_t BgL_localz00_2991;

				{	/* Eval/evaluate_avar.scm 189 */
					obj_t BgL_arg1437z00_2992;

					BgL_arg1437z00_2992 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_2796))))->BgL_varsz00);
					BgL_localz00_2991 =
						BGl_appendzd221011zd2zz__evaluate_avarz00(BgL_arg1437z00_2992,
						BgL_localz00_2797);
				}
				{	/* Eval/evaluate_avar.scm 190 */
					obj_t BgL_g1160z00_2993;

					BgL_g1160z00_2993 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_2796))))->BgL_valsz00);
					{
						obj_t BgL_l1158z00_2995;

						BgL_l1158z00_2995 = BgL_g1160z00_2993;
					BgL_zc3z04anonymousza31427ze3z87_2994:
						if (PAIRP(BgL_l1158z00_2995))
							{	/* Eval/evaluate_avar.scm 190 */
								{	/* Eval/evaluate_avar.scm 190 */
									obj_t BgL_ez00_2996;

									BgL_ez00_2996 = CAR(BgL_l1158z00_2995);
									BGl_avarz00zz__evaluate_avarz00(
										((BgL_ev_exprz00_bglt) BgL_ez00_2996), BgL_localz00_2991,
										BgL_absz00_2798);
								}
								{
									obj_t BgL_l1158z00_3481;

									BgL_l1158z00_3481 = CDR(BgL_l1158z00_2995);
									BgL_l1158z00_2995 = BgL_l1158z00_3481;
									goto BgL_zc3z04anonymousza31427ze3z87_2994;
								}
							}
						else
							{	/* Eval/evaluate_avar.scm 190 */
								((bool_t) 1);
							}
					}
				}
				{	/* Eval/evaluate_avar.scm 191 */
					BgL_ev_exprz00_bglt BgL_arg1430z00_2997;

					BgL_arg1430z00_2997 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_2796))))->BgL_bodyz00);
					BGl_avarz00zz__evaluate_avarz00(BgL_arg1430z00_2997,
						BgL_localz00_2991, BgL_absz00_2798);
				}
				{	/* Eval/evaluate_avar.scm 192 */
					obj_t BgL_arg1431z00_2998;

					BgL_arg1431z00_2998 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_2796))))->BgL_varsz00);
					BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(
						((BgL_ev_absz00_bglt) BgL_absz00_2798), BgL_arg1431z00_2998);
				}
				{
					obj_t BgL_auxz00_3492;

					{	/* Eval/evaluate_avar.scm 193 */
						obj_t BgL_l1161z00_2999;

						BgL_l1161z00_2999 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letza2za2_bglt) BgL_ez00_2796))))->BgL_varsz00);
						if (NULLP(BgL_l1161z00_2999))
							{	/* Eval/evaluate_avar.scm 193 */
								BgL_auxz00_3492 = BNIL;
							}
						else
							{	/* Eval/evaluate_avar.scm 193 */
								obj_t BgL_head1163z00_3000;

								BgL_head1163z00_3000 = MAKE_YOUNG_PAIR(BNIL, BNIL);
								{
									obj_t BgL_l1161z00_3002;
									obj_t BgL_tail1164z00_3003;

									BgL_l1161z00_3002 = BgL_l1161z00_2999;
									BgL_tail1164z00_3003 = BgL_head1163z00_3000;
								BgL_zc3z04anonymousza31433ze3z87_3001:
									if (NULLP(BgL_l1161z00_3002))
										{	/* Eval/evaluate_avar.scm 193 */
											BgL_auxz00_3492 = CDR(BgL_head1163z00_3000);
										}
									else
										{	/* Eval/evaluate_avar.scm 193 */
											obj_t BgL_newtail1165z00_3004;

											{	/* Eval/evaluate_avar.scm 193 */
												obj_t BgL_arg1436z00_3005;

												BgL_arg1436z00_3005 =
													(((BgL_ev_varz00_bglt) COBJECT(
															((BgL_ev_varz00_bglt)
																CAR(
																	((obj_t) BgL_l1161z00_3002)))))->BgL_effz00);
												BgL_newtail1165z00_3004 =
													MAKE_YOUNG_PAIR(BgL_arg1436z00_3005, BNIL);
											}
											SET_CDR(BgL_tail1164z00_3003, BgL_newtail1165z00_3004);
											{	/* Eval/evaluate_avar.scm 193 */
												obj_t BgL_arg1435z00_3006;

												BgL_arg1435z00_3006 = CDR(((obj_t) BgL_l1161z00_3002));
												{
													obj_t BgL_tail1164z00_3512;
													obj_t BgL_l1161z00_3511;

													BgL_l1161z00_3511 = BgL_arg1435z00_3006;
													BgL_tail1164z00_3512 = BgL_newtail1165z00_3004;
													BgL_tail1164z00_3003 = BgL_tail1164z00_3512;
													BgL_l1161z00_3002 = BgL_l1161z00_3511;
													goto BgL_zc3z04anonymousza31433ze3z87_3001;
												}
											}
										}
								}
							}
					}
					return
						((((BgL_ev_letza2za2_bglt) COBJECT(
									((BgL_ev_letza2za2_bglt) BgL_ez00_2796)))->BgL_boxesz00) =
						((obj_t) BgL_auxz00_3492), BUNSPEC);
				}
			}
		}

	}



/* &avar-ev_let1243 */
	obj_t BGl_z62avarzd2ev_let1243zb0zz__evaluate_avarz00(obj_t BgL_envz00_2799,
		obj_t BgL_ez00_2800, obj_t BgL_localz00_2801, obj_t BgL_absz00_2802)
	{
		{	/* Eval/evaluate_avar.scm 180 */
			{	/* Eval/evaluate_avar.scm 182 */
				obj_t BgL_g1151z00_3008;

				BgL_g1151z00_3008 =
					(((BgL_ev_binderz00_bglt) COBJECT(
							((BgL_ev_binderz00_bglt)
								((BgL_ev_letz00_bglt) BgL_ez00_2800))))->BgL_valsz00);
				{
					obj_t BgL_l1149z00_3010;

					BgL_l1149z00_3010 = BgL_g1151z00_3008;
				BgL_zc3z04anonymousza31413ze3z87_3009:
					if (PAIRP(BgL_l1149z00_3010))
						{	/* Eval/evaluate_avar.scm 182 */
							{	/* Eval/evaluate_avar.scm 182 */
								obj_t BgL_ez00_3011;

								BgL_ez00_3011 = CAR(BgL_l1149z00_3010);
								BGl_avarz00zz__evaluate_avarz00(
									((BgL_ev_exprz00_bglt) BgL_ez00_3011), BgL_localz00_2801,
									BgL_absz00_2802);
							}
							{
								obj_t BgL_l1149z00_3522;

								BgL_l1149z00_3522 = CDR(BgL_l1149z00_3010);
								BgL_l1149z00_3010 = BgL_l1149z00_3522;
								goto BgL_zc3z04anonymousza31413ze3z87_3009;
							}
						}
					else
						{	/* Eval/evaluate_avar.scm 182 */
							((bool_t) 1);
						}
				}
			}
			{	/* Eval/evaluate_avar.scm 183 */
				BgL_ev_exprz00_bglt BgL_arg1416z00_3012;
				obj_t BgL_arg1417z00_3013;

				BgL_arg1416z00_3012 =
					(((BgL_ev_binderz00_bglt) COBJECT(
							((BgL_ev_binderz00_bglt)
								((BgL_ev_letz00_bglt) BgL_ez00_2800))))->BgL_bodyz00);
				{	/* Eval/evaluate_avar.scm 183 */
					obj_t BgL_arg1419z00_3014;

					BgL_arg1419z00_3014 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letz00_bglt) BgL_ez00_2800))))->BgL_varsz00);
					BgL_arg1417z00_3013 =
						BGl_appendzd221011zd2zz__evaluate_avarz00(BgL_arg1419z00_3014,
						BgL_localz00_2801);
				}
				BGl_avarz00zz__evaluate_avarz00(BgL_arg1416z00_3012,
					BgL_arg1417z00_3013, BgL_absz00_2802);
			}
			{	/* Eval/evaluate_avar.scm 184 */
				obj_t BgL_arg1420z00_3015;

				BgL_arg1420z00_3015 =
					(((BgL_ev_binderz00_bglt) COBJECT(
							((BgL_ev_binderz00_bglt)
								((BgL_ev_letz00_bglt) BgL_ez00_2800))))->BgL_varsz00);
				BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(
					((BgL_ev_absz00_bglt) BgL_absz00_2802), BgL_arg1420z00_3015);
			}
			{
				obj_t BgL_auxz00_3537;

				{	/* Eval/evaluate_avar.scm 185 */
					obj_t BgL_hook1156z00_3016;

					BgL_hook1156z00_3016 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
					{	/* Eval/evaluate_avar.scm 185 */
						obj_t BgL_g1157z00_3017;

						BgL_g1157z00_3017 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letz00_bglt) BgL_ez00_2800))))->BgL_varsz00);
						{
							obj_t BgL_l1153z00_3019;
							obj_t BgL_h1154z00_3020;

							BgL_l1153z00_3019 = BgL_g1157z00_3017;
							BgL_h1154z00_3020 = BgL_hook1156z00_3016;
						BgL_zc3z04anonymousza31421ze3z87_3018:
							if (NULLP(BgL_l1153z00_3019))
								{	/* Eval/evaluate_avar.scm 185 */
									BgL_auxz00_3537 = CDR(BgL_hook1156z00_3016);
								}
							else
								{	/* Eval/evaluate_avar.scm 185 */
									if (CBOOL(
											(((BgL_ev_varz00_bglt) COBJECT(
														((BgL_ev_varz00_bglt)
															CAR(((obj_t) BgL_l1153z00_3019)))))->BgL_effz00)))
										{	/* Eval/evaluate_avar.scm 185 */
											obj_t BgL_nh1155z00_3021;

											{	/* Eval/evaluate_avar.scm 185 */
												obj_t BgL_arg1425z00_3022;

												BgL_arg1425z00_3022 = CAR(((obj_t) BgL_l1153z00_3019));
												BgL_nh1155z00_3021 =
													MAKE_YOUNG_PAIR(BgL_arg1425z00_3022, BNIL);
											}
											SET_CDR(BgL_h1154z00_3020, BgL_nh1155z00_3021);
											{	/* Eval/evaluate_avar.scm 185 */
												obj_t BgL_arg1424z00_3023;

												BgL_arg1424z00_3023 = CDR(((obj_t) BgL_l1153z00_3019));
												{
													obj_t BgL_h1154z00_3559;
													obj_t BgL_l1153z00_3558;

													BgL_l1153z00_3558 = BgL_arg1424z00_3023;
													BgL_h1154z00_3559 = BgL_nh1155z00_3021;
													BgL_h1154z00_3020 = BgL_h1154z00_3559;
													BgL_l1153z00_3019 = BgL_l1153z00_3558;
													goto BgL_zc3z04anonymousza31421ze3z87_3018;
												}
											}
										}
									else
										{	/* Eval/evaluate_avar.scm 185 */
											obj_t BgL_arg1426z00_3024;

											BgL_arg1426z00_3024 = CDR(((obj_t) BgL_l1153z00_3019));
											{
												obj_t BgL_l1153z00_3562;

												BgL_l1153z00_3562 = BgL_arg1426z00_3024;
												BgL_l1153z00_3019 = BgL_l1153z00_3562;
												goto BgL_zc3z04anonymousza31421ze3z87_3018;
											}
										}
								}
						}
					}
				}
				return
					((((BgL_ev_letz00_bglt) COBJECT(
								((BgL_ev_letz00_bglt) BgL_ez00_2800)))->BgL_boxesz00) =
					((obj_t) BgL_auxz00_3537), BUNSPEC);
			}
		}

	}



/* &avar-ev_synchronize1241 */
	obj_t BGl_z62avarzd2ev_synchroniza7e1241z17zz__evaluate_avarz00(obj_t
		BgL_envz00_2803, obj_t BgL_ez00_2804, obj_t BgL_localz00_2805,
		obj_t BgL_absz00_2806)
	{
		{	/* Eval/evaluate_avar.scm 174 */
			BGl_avarz00zz__evaluate_avarz00(
				(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
							((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_2804)))->BgL_mutexz00),
				BgL_localz00_2805, BgL_absz00_2806);
			BGl_avarz00zz__evaluate_avarz00((((BgL_ev_synchroniza7eza7_bglt)
						COBJECT(((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_2804)))->
					BgL_prelockz00), BgL_localz00_2805, BgL_absz00_2806);
			return BGl_avarz00zz__evaluate_avarz00((((BgL_ev_synchroniza7eza7_bglt)
						COBJECT(((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_2804)))->
					BgL_bodyz00), BgL_localz00_2805, BgL_absz00_2806);
		}

	}



/* &avar-ev_with-handler1239 */
	obj_t BGl_z62avarzd2ev_withzd2handler1239z62zz__evaluate_avarz00(obj_t
		BgL_envz00_2807, obj_t BgL_ez00_2808, obj_t BgL_localz00_2809,
		obj_t BgL_absz00_2810)
	{
		{	/* Eval/evaluate_avar.scm 169 */
			BGl_avarz00zz__evaluate_avarz00(
				(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
							((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_2808)))->
					BgL_handlerz00), BgL_localz00_2809, BgL_absz00_2810);
			return BGl_avarz00zz__evaluate_avarz00((((BgL_ev_withzd2handlerzd2_bglt)
						COBJECT(((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_2808)))->
					BgL_bodyz00), BgL_localz00_2809, BgL_absz00_2810);
		}

	}



/* &avar-ev_unwind-prote1237 */
	obj_t BGl_z62avarzd2ev_unwindzd2prote1237z62zz__evaluate_avarz00(obj_t
		BgL_envz00_2811, obj_t BgL_ez00_2812, obj_t BgL_localz00_2813,
		obj_t BgL_absz00_2814)
	{
		{	/* Eval/evaluate_avar.scm 164 */
			BGl_avarz00zz__evaluate_avarz00(
				(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
							((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_2812)))->BgL_ez00),
				BgL_localz00_2813, BgL_absz00_2814);
			return BGl_avarz00zz__evaluate_avarz00((((BgL_ev_unwindzd2protectzd2_bglt)
						COBJECT(((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_2812)))->
					BgL_bodyz00), BgL_localz00_2813, BgL_absz00_2814);
		}

	}



/* &avar-ev_bind-exit1235 */
	obj_t BGl_z62avarzd2ev_bindzd2exit1235z62zz__evaluate_avarz00(obj_t
		BgL_envz00_2815, obj_t BgL_ez00_2816, obj_t BgL_localz00_2817,
		obj_t BgL_absz00_2818)
	{
		{	/* Eval/evaluate_avar.scm 159 */
			{	/* Eval/evaluate_avar.scm 161 */
				BgL_ev_exprz00_bglt BgL_arg1400z00_3029;
				obj_t BgL_arg1401z00_3030;

				BgL_arg1400z00_3029 =
					(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
							((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_2816)))->BgL_bodyz00);
				{	/* Eval/evaluate_avar.scm 161 */
					BgL_ev_varz00_bglt BgL_arg1402z00_3031;

					BgL_arg1402z00_3031 =
						(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
								((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_2816)))->BgL_varz00);
					BgL_arg1401z00_3030 =
						MAKE_YOUNG_PAIR(((obj_t) BgL_arg1402z00_3031), BgL_localz00_2817);
				}
				BGl_avarz00zz__evaluate_avarz00(BgL_arg1400z00_3029,
					BgL_arg1401z00_3030, BgL_absz00_2818);
			}
			{	/* Eval/evaluate_avar.scm 162 */
				obj_t BgL_arg1403z00_3032;

				{	/* Eval/evaluate_avar.scm 162 */
					BgL_ev_varz00_bglt BgL_arg1404z00_3033;

					BgL_arg1404z00_3033 =
						(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
								((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_2816)))->BgL_varz00);
					BgL_arg1403z00_3032 =
						MAKE_YOUNG_PAIR(((obj_t) BgL_arg1404z00_3033), BNIL);
				}
				return
					BGl_bindzd2andzd2resetzd2effectzd2zz__evaluate_avarz00(
					((BgL_ev_absz00_bglt) BgL_absz00_2818), BgL_arg1403z00_3032);
			}
		}

	}



/* &avar-ev_setlocal1233 */
	obj_t BGl_z62avarzd2ev_setlocal1233zb0zz__evaluate_avarz00(obj_t
		BgL_envz00_2819, obj_t BgL_ez00_2820, obj_t BgL_localz00_2821,
		obj_t BgL_absz00_2822)
	{
		{	/* Eval/evaluate_avar.scm 152 */
			{	/* Eval/evaluate_avar.scm 154 */
				BgL_ev_varz00_bglt BgL_arg1398z00_3035;

				BgL_arg1398z00_3035 =
					(((BgL_ev_setlocalz00_bglt) COBJECT(
							((BgL_ev_setlocalz00_bglt) BgL_ez00_2820)))->BgL_vz00);
				if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
							((obj_t) BgL_arg1398z00_3035), BgL_localz00_2821)))
					{	/* Eval/evaluate_avar.scm 118 */
						BFALSE;
					}
				else
					{	/* Eval/evaluate_avar.scm 118 */
						if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
									((obj_t) BgL_arg1398z00_3035),
									(((BgL_ev_absz00_bglt) COBJECT(
												((BgL_ev_absz00_bglt) BgL_absz00_2822)))->
										BgL_freez00))))
							{	/* Eval/evaluate_avar.scm 120 */
								BFALSE;
							}
						else
							{
								obj_t BgL_auxz00_3610;

								{	/* Eval/evaluate_avar.scm 120 */
									obj_t BgL_arg1373z00_3036;

									BgL_arg1373z00_3036 =
										(((BgL_ev_absz00_bglt) COBJECT(
												((BgL_ev_absz00_bglt) BgL_absz00_2822)))->BgL_freez00);
									BgL_auxz00_3610 =
										MAKE_YOUNG_PAIR(
										((obj_t) BgL_arg1398z00_3035), BgL_arg1373z00_3036);
								}
								((((BgL_ev_absz00_bglt) COBJECT(
												((BgL_ev_absz00_bglt) BgL_absz00_2822)))->BgL_freez00) =
									((obj_t) BgL_auxz00_3610), BUNSPEC);
							}
					}
			}
			((((BgL_ev_varz00_bglt) COBJECT(
							(((BgL_ev_setlocalz00_bglt) COBJECT(
										((BgL_ev_setlocalz00_bglt) BgL_ez00_2820)))->BgL_vz00)))->
					BgL_effz00) = ((obj_t) BTRUE), BUNSPEC);
			{	/* Eval/evaluate_avar.scm 157 */
				BgL_ev_exprz00_bglt BgL_arg1399z00_3037;

				BgL_arg1399z00_3037 =
					(((BgL_ev_hookz00_bglt) COBJECT(
							((BgL_ev_hookz00_bglt)
								((BgL_ev_setlocalz00_bglt) BgL_ez00_2820))))->BgL_ez00);
				return
					BGl_avarz00zz__evaluate_avarz00(BgL_arg1399z00_3037,
					BgL_localz00_2821, BgL_absz00_2822);
			}
		}

	}



/* &avar-ev_hook1229 */
	obj_t BGl_z62avarzd2ev_hook1229zb0zz__evaluate_avarz00(obj_t BgL_envz00_2823,
		obj_t BgL_ez00_2824, obj_t BgL_localz00_2825, obj_t BgL_absz00_2826)
	{
		{	/* Eval/evaluate_avar.scm 148 */
			return
				BGl_avarz00zz__evaluate_avarz00(
				(((BgL_ev_hookz00_bglt) COBJECT(
							((BgL_ev_hookz00_bglt) BgL_ez00_2824)))->BgL_ez00),
				BgL_localz00_2825, BgL_absz00_2826);
		}

	}



/* &avar-ev_prog21227 */
	obj_t BGl_z62avarzd2ev_prog21227zb0zz__evaluate_avarz00(obj_t BgL_envz00_2827,
		obj_t BgL_ez00_2828, obj_t BgL_localz00_2829, obj_t BgL_absz00_2830)
	{
		{	/* Eval/evaluate_avar.scm 143 */
			BGl_avarz00zz__evaluate_avarz00(
				(((BgL_ev_prog2z00_bglt) COBJECT(
							((BgL_ev_prog2z00_bglt) BgL_ez00_2828)))->BgL_e1z00),
				BgL_localz00_2829, BgL_absz00_2830);
			return BGl_avarz00zz__evaluate_avarz00((((BgL_ev_prog2z00_bglt)
						COBJECT(((BgL_ev_prog2z00_bglt) BgL_ez00_2828)))->BgL_e2z00),
				BgL_localz00_2829, BgL_absz00_2830);
		}

	}



/* &avar-ev_list1225 */
	obj_t BGl_z62avarzd2ev_list1225zb0zz__evaluate_avarz00(obj_t BgL_envz00_2831,
		obj_t BgL_ez00_2832, obj_t BgL_localz00_2833, obj_t BgL_absz00_2834)
	{
		{	/* Eval/evaluate_avar.scm 139 */
			{	/* Eval/evaluate_avar.scm 140 */
				bool_t BgL_tmpz00_3633;

				{	/* Eval/evaluate_avar.scm 141 */
					obj_t BgL_g1148z00_3041;

					BgL_g1148z00_3041 =
						(((BgL_ev_listz00_bglt) COBJECT(
								((BgL_ev_listz00_bglt) BgL_ez00_2832)))->BgL_argsz00);
					{
						obj_t BgL_l1146z00_3043;

						BgL_l1146z00_3043 = BgL_g1148z00_3041;
					BgL_zc3z04anonymousza31390ze3z87_3042:
						if (PAIRP(BgL_l1146z00_3043))
							{	/* Eval/evaluate_avar.scm 141 */
								{	/* Eval/evaluate_avar.scm 141 */
									obj_t BgL_ez00_3044;

									BgL_ez00_3044 = CAR(BgL_l1146z00_3043);
									BGl_avarz00zz__evaluate_avarz00(
										((BgL_ev_exprz00_bglt) BgL_ez00_3044), BgL_localz00_2833,
										BgL_absz00_2834);
								}
								{
									obj_t BgL_l1146z00_3641;

									BgL_l1146z00_3641 = CDR(BgL_l1146z00_3043);
									BgL_l1146z00_3043 = BgL_l1146z00_3641;
									goto BgL_zc3z04anonymousza31390ze3z87_3042;
								}
							}
						else
							{	/* Eval/evaluate_avar.scm 141 */
								BgL_tmpz00_3633 = ((bool_t) 1);
							}
					}
				}
				return BBOOL(BgL_tmpz00_3633);
			}
		}

	}



/* &avar-ev_if1223 */
	obj_t BGl_z62avarzd2ev_if1223zb0zz__evaluate_avarz00(obj_t BgL_envz00_2835,
		obj_t BgL_ez00_2836, obj_t BgL_localz00_2837, obj_t BgL_absz00_2838)
	{
		{	/* Eval/evaluate_avar.scm 133 */
			BGl_avarz00zz__evaluate_avarz00(
				(((BgL_ev_ifz00_bglt) COBJECT(
							((BgL_ev_ifz00_bglt) BgL_ez00_2836)))->BgL_pz00),
				BgL_localz00_2837, BgL_absz00_2838);
			BGl_avarz00zz__evaluate_avarz00((((BgL_ev_ifz00_bglt)
						COBJECT(((BgL_ev_ifz00_bglt) BgL_ez00_2836)))->BgL_tz00),
				BgL_localz00_2837, BgL_absz00_2838);
			return BGl_avarz00zz__evaluate_avarz00((((BgL_ev_ifz00_bglt)
						COBJECT(((BgL_ev_ifz00_bglt) BgL_ez00_2836)))->BgL_ez00),
				BgL_localz00_2837, BgL_absz00_2838);
		}

	}



/* &avar-ev_litt1221 */
	obj_t BGl_z62avarzd2ev_litt1221zb0zz__evaluate_avarz00(obj_t BgL_envz00_2839,
		obj_t BgL_ez00_2840, obj_t BgL_localz00_2841, obj_t BgL_absz00_2842)
	{
		{	/* Eval/evaluate_avar.scm 130 */
			return BUNSPEC;
		}

	}



/* &avar-ev_global1219 */
	obj_t BGl_z62avarzd2ev_global1219zb0zz__evaluate_avarz00(obj_t
		BgL_envz00_2843, obj_t BgL_varz00_2844, obj_t BgL_localz00_2845,
		obj_t BgL_absz00_2846)
	{
		{	/* Eval/evaluate_avar.scm 127 */
			return BUNSPEC;
		}

	}



/* &avar-ev_var1217 */
	obj_t BGl_z62avarzd2ev_var1217zb0zz__evaluate_avarz00(obj_t BgL_envz00_2847,
		obj_t BgL_varz00_2848, obj_t BgL_localz00_2849, obj_t BgL_absz00_2850)
	{
		{	/* Eval/evaluate_avar.scm 124 */
			if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
						((obj_t)
							((BgL_ev_varz00_bglt) BgL_varz00_2848)), BgL_localz00_2849)))
				{	/* Eval/evaluate_avar.scm 118 */
					return BFALSE;
				}
			else
				{	/* Eval/evaluate_avar.scm 118 */
					if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
								((obj_t)
									((BgL_ev_varz00_bglt) BgL_varz00_2848)),
								(((BgL_ev_absz00_bglt) COBJECT(
											((BgL_ev_absz00_bglt) BgL_absz00_2850)))->BgL_freez00))))
						{	/* Eval/evaluate_avar.scm 120 */
							return BFALSE;
						}
					else
						{
							obj_t BgL_auxz00_3665;

							{	/* Eval/evaluate_avar.scm 120 */
								obj_t BgL_arg1373z00_3049;

								BgL_arg1373z00_3049 =
									(((BgL_ev_absz00_bglt) COBJECT(
											((BgL_ev_absz00_bglt) BgL_absz00_2850)))->BgL_freez00);
								BgL_auxz00_3665 =
									MAKE_YOUNG_PAIR(
									((obj_t)
										((BgL_ev_varz00_bglt) BgL_varz00_2848)),
									BgL_arg1373z00_3049);
							}
							return
								((((BgL_ev_absz00_bglt) COBJECT(
											((BgL_ev_absz00_bglt) BgL_absz00_2850)))->BgL_freez00) =
								((obj_t) BgL_auxz00_3665), BUNSPEC);
						}
				}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__evaluate_avarz00(void)
	{
		{	/* Eval/evaluate_avar.scm 15 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__dssslz00(443936801L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__ppz00(233942021L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__everrorz00(375872221L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
			return BGl_modulezd2initializa7ationz75zz__evaluate_typesz00(0L,
				BSTRING_TO_STRING(BGl_string1930z00zz__evaluate_avarz00));
		}

	}

#ifdef __cplusplus
}
#endif
