/*===========================================================================*/
/*   (Eval/evaluate_fsize.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_fsize.scm -indent -o objs/obj_u/Eval/evaluate_fsize.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_FSIZE_TYPE_DEFINITIONS
#define BGL___EVALUATE_FSIZE_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_globalz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		obj_t BgL_namez00;
		obj_t BgL_modz00;
	}                   *BgL_ev_globalz00_bglt;

	typedef struct BgL_ev_littz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_valuez00;
	}                 *BgL_ev_littz00_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_FSIZE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62hasvarzf3zd2ev_var1435z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62searchzd2letreczb0zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_bin1341z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_bin1349z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evaluate_fsiza7eza7 =
		BUNSPEC;
	static obj_t
		BGl_z62searchzd2letreczd2ev_let1351z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_letza21420z12zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_ev_exprz00_bglt
		BGl_extractzd2loopszd2zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_list1443z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62subst_gotozd2ev_goto1385zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static bool_t BGl_letrectailzf3zf3zz__evaluate_fsiza7eza7(obj_t, obj_t,
		BgL_ev_exprz00_bglt);
	extern obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_global1437z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_letrecz00zz__evaluate_typesz00;
	static obj_t BGl_z62hasvarzf3zd2ev_prog21445z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__evaluate_fsiza7eza7(void);
	static obj_t BGl_z62tailposzd2ev_let1418zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_letz00zz__evaluate_typesz00;
	static obj_t
		BGl_z62searchzd2letreczd2ev_pro1337z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_labels1462z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62searchzd2letrec1324zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t);
	static obj_t
		BGl_z62subst_gotozd2ev_withzd2h1377z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_let1311z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__evaluate_fsiza7eza7(void);
	extern obj_t BGl_ev_prog2z00zz__evaluate_typesz00;
	static obj_t
		BGl_z62searchzd2letreczd2ev_hoo1339z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_global1291z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL int
		BGl_framezd2siza7ez75zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt);
	static obj_t BGl_objectzd2initzd2zz__evaluate_fsiza7eza7(void);
	static obj_t
		BGl_z62searchzd2letreczd2ev_app1353z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	extern obj_t BGl_ev_bindzd2exitzd2zz__evaluate_typesz00;
	static obj_t BGl_z62hasvarzf3zd2ev_litt1439z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailposz62zz__evaluate_fsiza7eza7(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62hasvarzf3zd2ev_unwindzd2pr1453z91zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_letza21313zb5zz__evaluate_fsiza7eza7(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_z62subst_gotozd2ev_var1359zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62fsiza7ezd2ev_unwindzd2prot1305zc5zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_app1466z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3z91zz__evaluate_fsiza7eza7(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62subst_gotozd2ev_binder1381zb0zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_letrec1315z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62framezd2siza7ez17zz__evaluate_fsiza7eza7(obj_t, obj_t);
	extern obj_t BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00;
	static obj_t BGl_z62fsiza7ezd2ev_prog21299z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_if1295z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_litt1397zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	extern bool_t BGl_isazf3zf3zz__objectz00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t
		BGl_z62hasvarzf3zd2ev_synchroni1458z43zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62hasvarzf3zd2ev_bindzd2exit1451z91zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62hasvarzf3zd2ev_withzd2hand1456z91zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_letza2za2zz__evaluate_typesz00;
	extern obj_t BGl_ev_labelsz00zz__evaluate_typesz00;
	static obj_t BGl_z62tailposzd2ev_app1428zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_list1297z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62subst_gotozd2ev_synchr1379zb0zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__evaluate_fsiza7eza7(void);
	static obj_t BGl_z62tailposzd2ev_var1393zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_var1289z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_absz00zz__evaluate_typesz00;
	static obj_t BGl_z62fsiza7ezd2ev_app1321z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt);
	static obj_t
		BGl_z62searchzd2letreczd2ev_abs1355z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_hook1405zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_if1399zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_abs1468z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62subst_gotozd2ev_unwind1375zb0zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_ifz00zz__evaluate_typesz00;
	static BgL_ev_labelsz00_bglt
		BGl_modifyzd2letreczd2zz__evaluate_fsiza7eza7(obj_t, obj_t,
		BgL_ev_exprz00_bglt);
	static int BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt, int);
	static obj_t BGl_z62subst_gotozd2ev_list1367zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62subst_gotozd2ev_app1387zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_hookz00zz__evaluate_typesz00;
	static obj_t BGl_z62fsiza7ezd2ev_litt1293z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_glo1329z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_lis1335z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_labels1424zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_setlocal1407zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_unw1343z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_abs1430zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_abs1323z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_goto1426zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_ev_gotoz00zz__evaluate_typesz00;
	static obj_t BGl_z62hasvarzf3zd2ev_binder1460z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_hook1447z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__evaluate_fsiza7eza7(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_typesz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluate_uncompz00(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_z62fsiza7ezd2ev_hook1301z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezc5zz__evaluate_fsiza7eza7(obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_globalz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_binderz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_listz00zz__evaluate_typesz00;
	static obj_t BGl_z62subst_gotozd2ev_litt1363zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_lit1331z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static bool_t BGl_searchzd2letrecza2z70zz__evaluate_fsiza7eza7(obj_t);
	extern obj_t BGl_ev_littz00zz__evaluate_typesz00;
	static obj_t BGl_z62subst_gotozd2ev_abs1389zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_varz00zz__evaluate_typesz00;
	static obj_t BGl_z62subst_gotozd2ev_prog21369zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evaluate_fsiza7eza7(void);
	static obj_t
		BGl_z62hasvarzf3zd2ev_setlocal1449z43zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt,
		obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__evaluate_fsiza7eza7(void);
	static obj_t BGl_z62tailposzd2ev_global1395zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__evaluate_fsiza7eza7(void);
	static obj_t BGl_z62fsiza7ezd2ev_goto1319z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_goto1464z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static BgL_ev_exprz00_bglt
		BGl_z62extractzd2loopszb0zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_prog21403zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt,
		BgL_ev_varz00_bglt);
	extern obj_t BGl_ev_withzd2handlerzd2zz__evaluate_typesz00;
	static obj_t
		BGl_z62searchzd2letreczd2ev_wit1345z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t
		BGl_z62fsiza7ezd2ev_synchroniza7e1309zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62searchzd2letreczd2ev_syn1347z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt,
		BgL_ev_varz00_bglt);
	static obj_t BGl_z62subst_gotoz62zz__evaluate_fsiza7eza7(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62hasvarzf31432z91zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62fsiza7e1285zc5zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_2maxz00zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_letrec1422zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62subst_gotozd2ev_bindzd2e1373z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62tailposzd2ev_unwindzd2pr1412z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_exprz00zz__evaluate_typesz00;
	extern obj_t BGl_ev_appz00zz__evaluate_typesz00;
	static obj_t
		BGl_z62subst_gotozd2ev_global1361zb0zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62fsiza7ezd2ev_bindzd2exit1303zc5zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62hasvarzf3zd2ev_if1441z43zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailpos1390z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_ev_synchroniza7eza7zz__evaluate_typesz00;
	static obj_t
		BGl_z62subst_gotozd2ev_labels1383zb0zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2280z00zz__evaluate_fsiza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2282z00zz__evaluate_fsiza7eza7 = BUNSPEC;
	static obj_t BGl_symbol2285z00zz__evaluate_fsiza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62searchzd2letreczd2ev_if1333z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_symbol2287z00zz__evaluate_fsiza7eza7 = BUNSPEC;
	static obj_t
		BGl_z62tailposzd2ev_synchroni1416zb0zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62tailposzd2ev_bindzd2exit1410z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl_z62tailposzd2ev_withzd2hand1414z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62subst_goto1356z62zz__evaluate_fsiza7eza7(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62tailposzd2ev_list1401zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62subst_gotozd2ev_if1365zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_ev_setlocalz00zz__evaluate_typesz00;
	static obj_t
		BGl_z62searchzd2letreczd2ev_var1327z62zz__evaluate_fsiza7eza7(obj_t, obj_t);
	static obj_t BGl_z62fsiza7ezd2ev_labels1317z17zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62fsiza7ezd2ev_withzd2handle1307zc5zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62subst_gotozd2ev_hook1371zb0zz__evaluate_fsiza7eza7(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2300z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2386za7,
		BGl_z62fsiza7ezd2ev_global1291z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2301z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2387za7,
		BGl_z62fsiza7ezd2ev_litt1293z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2302z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2388za7,
		BGl_z62fsiza7ezd2ev_if1295z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2303z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2389za7,
		BGl_z62fsiza7ezd2ev_list1297z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2304z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2390za7,
		BGl_z62fsiza7ezd2ev_prog21299z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2305z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2391za7,
		BGl_z62fsiza7ezd2ev_hook1301z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2306z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2392za7,
		BGl_z62fsiza7ezd2ev_bindzd2exit1303zc5zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2307z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2393za7,
		BGl_z62fsiza7ezd2ev_unwindzd2prot1305zc5zz__evaluate_fsiza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2308z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2394za7,
		BGl_z62fsiza7ezd2ev_withzd2handle1307zc5zz__evaluate_fsiza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2309z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2395za7,
		BGl_z62fsiza7ezd2ev_synchroniza7e1309zb0zz__evaluate_fsiza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2310z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2396za7,
		BGl_z62fsiza7ezd2ev_let1311z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2311z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2397za7,
		BGl_z62fsiza7ezd2ev_letza21313zb5zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2312z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2398za7,
		BGl_z62fsiza7ezd2ev_letrec1315z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2313z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2399za7,
		BGl_z62fsiza7ezd2ev_labels1317z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2314z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2400za7,
		BGl_z62fsiza7ezd2ev_goto1319z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2315z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2401za7,
		BGl_z62fsiza7ezd2ev_app1321z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2316z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2402za7,
		BGl_z62fsiza7ezd2ev_abs1323z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2317z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2403z00,
		BGl_z62searchzd2letreczd2ev_var1327z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2318z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2404z00,
		BGl_z62searchzd2letreczd2ev_glo1329z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2319z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2405z00,
		BGl_z62searchzd2letreczd2ev_lit1331z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2320z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2406z00,
		BGl_z62searchzd2letreczd2ev_if1333z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2321z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2407z00,
		BGl_z62searchzd2letreczd2ev_lis1335z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2322z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2408z00,
		BGl_z62searchzd2letreczd2ev_pro1337z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2323z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2409z00,
		BGl_z62searchzd2letreczd2ev_hoo1339z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2324z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2410z00,
		BGl_z62searchzd2letreczd2ev_bin1341z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2325z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2411z00,
		BGl_z62searchzd2letreczd2ev_unw1343z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2326z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2412z00,
		BGl_z62searchzd2letreczd2ev_wit1345z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2327z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2413z00,
		BGl_z62searchzd2letreczd2ev_syn1347z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2328z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2414z00,
		BGl_z62searchzd2letreczd2ev_bin1349z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2329z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2415z00,
		BGl_z62searchzd2letreczd2ev_let1351z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_GENERIC(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza762za7za7_2416z00,
		BGl_z62tailposz62zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2330z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2417z00,
		BGl_z62searchzd2letreczd2ev_app1353z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2331z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2418z00,
		BGl_z62searchzd2letreczd2ev_abs1355z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2332z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22419z00,
		BGl_z62subst_gotozd2ev_var1359zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2333z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22420z00,
		BGl_z62subst_gotozd2ev_global1361zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2334z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22421z00,
		BGl_z62subst_gotozd2ev_litt1363zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2335z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22422z00,
		BGl_z62subst_gotozd2ev_if1365zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2336z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22423z00,
		BGl_z62subst_gotozd2ev_list1367zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2337z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22424z00,
		BGl_z62subst_gotozd2ev_prog21369zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2338z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22425z00,
		BGl_z62subst_gotozd2ev_hook1371zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2339z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22426z00,
		BGl_z62subst_gotozd2ev_bindzd2e1373z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      BGL_DEFINE_STRING(BGl_string2266z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2266za700za7za7_2427za7,
		"/tmp/bigloo/runtime/Eval/evaluate_fsize.scm", 43);
	      BGL_DEFINE_STRING(BGl_string2267z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2267za700za7za7_2428za7, "&frame-size", 11);
	      BGL_DEFINE_STRING(BGl_string2268z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2268za700za7za7_2429za7, "ev_expr", 7);
	      BGL_DEFINE_STRING(BGl_string2269z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2269za700za7za7_2430za7, "&extract-loops", 14);
	      DEFINE_STATIC_BGL_GENERIC(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za791za72431z00,
		BGl_z62hasvarzf3z91zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2340z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22432z00,
		BGl_z62subst_gotozd2ev_unwind1375zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2341z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22433z00,
		BGl_z62subst_gotozd2ev_withzd2h1377z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2342z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22434z00,
		BGl_z62subst_gotozd2ev_synchr1379zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2343z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22435z00,
		BGl_z62subst_gotozd2ev_binder1381zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2344z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22436z00,
		BGl_z62subst_gotozd2ev_labels1383zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2345z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22437z00,
		BGl_z62subst_gotozd2ev_goto1385zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2346z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22438z00,
		BGl_z62subst_gotozd2ev_app1387zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2271z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2271za700za7za7_2439za7, "fsize1285", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2347z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7d22440z00,
		BGl_z62subst_gotozd2ev_abs1389zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2348z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2441z00,
		BGl_z62tailposzd2ev_var1393zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2273z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2273za700za7za7_2442za7, "search-letrec1324", 17);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2349z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2443z00,
		BGl_z62tailposzd2ev_global1395zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2275z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2275za700za7za7_2444za7, "subst_goto1356", 14);
	      BGL_DEFINE_STRING(BGl_string2277z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2277za700za7za7_2445za7, "tailpos1390", 11);
	      BGL_DEFINE_STRING(BGl_string2279z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2279za700za7za7_2446za7, "hasvar?1432", 11);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2350z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2447z00,
		BGl_z62tailposzd2ev_litt1397zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2351z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2448z00,
		BGl_z62tailposzd2ev_if1399zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2270z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7e1285za7c2449za7,
		BGl_z62fsiza7e1285zc5zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2352z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2450z00,
		BGl_z62tailposzd2ev_list1401zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2353z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2451z00,
		BGl_z62tailposzd2ev_prog21403zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2272z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2452z00,
		BGl_z62searchzd2letrec1324zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2354z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2453z00,
		BGl_z62tailposzd2ev_hook1405zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2355z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2454z00,
		BGl_z62tailposzd2ev_setlocal1407zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2274z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_goto1352455za7,
		BGl_z62subst_goto1356z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2356z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2456z00,
		BGl_z62tailposzd2ev_bindzd2exit1410z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2281z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2281za700za7za7_2457za7, "No method for this object", 25);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2357z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2458z00,
		BGl_z62tailposzd2ev_unwindzd2pr1412z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2276z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailpos1390za762459z00,
		BGl_z62tailpos1390z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2358z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2460z00,
		BGl_z62tailposzd2ev_withzd2hand1414z62zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2283z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2283za700za7za7_2461za7, "tailpos", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2359z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2462z00,
		BGl_z62tailposzd2ev_synchroni1416zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2278z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f314322463z00,
		BGl_z62hasvarzf31432z91zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2284z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2284za700za7za7_2464za7, "not defined for", 15);
	      BGL_DEFINE_STRING(BGl_string2286z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2286za700za7za7_2465za7, "subst_goto", 10);
	      BGL_DEFINE_STRING(BGl_string2368z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2368za700za7za7_2466za7, "hasvar?", 7);
	      BGL_DEFINE_STRING(BGl_string2288z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2288za700za7za7_2467za7, "search-letrec", 13);
	      BGL_DEFINE_STRING(BGl_string2289z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2289za700za7za7_2468za7, "eval", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2360z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2469z00,
		BGl_z62tailposzd2ev_let1418zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2361z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2470z00,
		BGl_z62tailposzd2ev_letza21420z12zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2362z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2471z00,
		BGl_z62tailposzd2ev_letrec1422zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2363z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2472z00,
		BGl_z62tailposzd2ev_labels1424zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2364z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2473z00,
		BGl_z62tailposzd2ev_goto1426zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2365z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2474z00,
		BGl_z62tailposzd2ev_app1428zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2290z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2290za700za7za7_2475za7, "internal error: not defined for",
		31);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2366z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762tailposza7d2ev_2476z00,
		BGl_z62tailposzd2ev_abs1430zb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2291z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2291za700za7za7_2477za7, "&fsize", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2367z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2478za7,
		BGl_z62hasvarzf3zd2ev_var1435z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2292z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2292za700za7za7_2479za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2293z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2293za700za7za7_2480za7, "&search-letrec", 14);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2369z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2481za7,
		BGl_z62hasvarzf3zd2ev_global1437z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2294z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2294za700za7za7_2482za7, "&subst_goto", 11);
	      BGL_DEFINE_STRING(BGl_string2295z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2295za700za7za7_2483za7, "&tailpos", 8);
	      BGL_DEFINE_STRING(BGl_string2296z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2296za700za7za7_2484za7, "ev_var", 6);
	      BGL_DEFINE_STRING(BGl_string2297z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2297za700za7za7_2485za7, "&hasvar?", 8);
	      BGL_DEFINE_STRING(BGl_string2299z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2299za700za7za7_2486za7, "fsize::int", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2370z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2487za7,
		BGl_z62hasvarzf3zd2ev_litt1439z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2371z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2488za7,
		BGl_z62hasvarzf3zd2ev_if1441z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2372z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2489za7,
		BGl_z62hasvarzf3zd2ev_list1443z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2373z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2490za7,
		BGl_z62hasvarzf3zd2ev_prog21445z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2374z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2491za7,
		BGl_z62hasvarzf3zd2ev_hook1447z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2375z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2492za7,
		BGl_z62hasvarzf3zd2ev_setlocal1449z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2376z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2493za7,
		BGl_z62hasvarzf3zd2ev_bindzd2exit1451z91zz__evaluate_fsiza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2377z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2494za7,
		BGl_z62hasvarzf3zd2ev_unwindzd2pr1453z91zz__evaluate_fsiza7eza7, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2378z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2495za7,
		BGl_z62hasvarzf3zd2ev_withzd2hand1456z91zz__evaluate_fsiza7eza7, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2385z00zz__evaluate_fsiza7eza7,
		BgL_bgl_string2385za700za7za7_2496za7, "__evaluate_fsize", 16);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2379z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2497za7,
		BGl_z62hasvarzf3zd2ev_synchroni1458z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC,
		2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2298z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7d2ev_2498za7,
		BGl_z62fsiza7ezd2ev_var1289z17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2380z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2499za7,
		BGl_z62hasvarzf3zd2ev_binder1460z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2381z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2500za7,
		BGl_z62hasvarzf3zd2ev_labels1462z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2382z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2501za7,
		BGl_z62hasvarzf3zd2ev_goto1464z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2383z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2502za7,
		BGl_z62hasvarzf3zd2ev_app1466z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2384z00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762hasvarza7f3za7d2e2503za7,
		BGl_z62hasvarzf3zd2ev_abs1468z43zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_framezd2siza7ezd2envza7zz__evaluate_fsiza7eza7,
		BgL_bgl_za762frameza7d2siza7a72504za7,
		BGl_z62framezd2siza7ez17zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_GENERIC(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
		BgL_bgl_za762fsiza7a7eza7c5za7za7_2505za7,
		BGl_z62fsiza7ezc5zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 2);
	     
		DEFINE_STATIC_BGL_GENERIC
		(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762searchza7d2letr2506z00,
		BGl_z62searchzd2letreczb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_extractzd2loopszd2envz00zz__evaluate_fsiza7eza7,
		BgL_bgl_za762extractza7d2loo2507z00,
		BGl_z62extractzd2loopszb0zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_GENERIC(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
		BgL_bgl_za762subst_gotoza7622508z00,
		BGl_z62subst_gotoz62zz__evaluate_fsiza7eza7, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7622508z00);
		BGL_BIND_PROCEDURE(BGl_extractzd2loopszd2envz00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762extractza7d2loo2507z00);
		BGL_BIND_PROCEDURE(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2506z00);
		BGL_BIND_PROCEDURE(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7c5za7za7_2505za7);
		BGL_BIND_PROCEDURE(BGl_framezd2siza7ezd2envza7zz__evaluate_fsiza7eza7,
			BgL_bgl_za762frameza7d2siza7a72504za7);
		BGL_BIND_PROCEDURE(BGl_proc2384z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2503za7);
		BGL_BIND_PROCEDURE(BGl_proc2383z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2502za7);
		BGL_BIND_PROCEDURE(BGl_proc2382z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2501za7);
		BGL_BIND_PROCEDURE(BGl_proc2381z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2500za7);
		BGL_BIND_PROCEDURE(BGl_proc2380z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2499za7);
		BGL_BIND_PROCEDURE(BGl_proc2298z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2498za7);
		BGL_BIND_PROCEDURE(BGl_proc2379z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2497za7);
		BGL_BIND_STRING(BGl_string2385z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2385za700za7za7_2496za7);
		BGL_BIND_PROCEDURE(BGl_proc2378z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2495za7);
		BGL_BIND_PROCEDURE(BGl_proc2377z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2494za7);
		BGL_BIND_PROCEDURE(BGl_proc2376z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2493za7);
		BGL_BIND_PROCEDURE(BGl_proc2375z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2492za7);
		BGL_BIND_PROCEDURE(BGl_proc2374z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2491za7);
		BGL_BIND_PROCEDURE(BGl_proc2373z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2490za7);
		BGL_BIND_PROCEDURE(BGl_proc2372z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2489za7);
		BGL_BIND_PROCEDURE(BGl_proc2371z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2488za7);
		BGL_BIND_PROCEDURE(BGl_proc2370z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2487za7);
		BGL_BIND_STRING(BGl_string2299z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2299za700za7za7_2486za7);
		BGL_BIND_STRING(BGl_string2297z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2297za700za7za7_2485za7);
		BGL_BIND_STRING(BGl_string2296z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2296za700za7za7_2484za7);
		BGL_BIND_STRING(BGl_string2295z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2295za700za7za7_2483za7);
		BGL_BIND_STRING(BGl_string2294z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2294za700za7za7_2482za7);
		BGL_BIND_PROCEDURE(BGl_proc2369z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2481za7);
		BGL_BIND_STRING(BGl_string2293z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2293za700za7za7_2480za7);
		BGL_BIND_STRING(BGl_string2292z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2292za700za7za7_2479za7);
		BGL_BIND_PROCEDURE(BGl_proc2367z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za7d2e2478za7);
		BGL_BIND_STRING(BGl_string2291z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2291za700za7za7_2477za7);
		BGL_BIND_PROCEDURE(BGl_proc2366z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2476z00);
		BGL_BIND_STRING(BGl_string2290z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2290za700za7za7_2475za7);
		BGL_BIND_PROCEDURE(BGl_proc2365z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2474z00);
		BGL_BIND_PROCEDURE(BGl_proc2364z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2473z00);
		BGL_BIND_PROCEDURE(BGl_proc2363z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2472z00);
		BGL_BIND_PROCEDURE(BGl_proc2362z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2471z00);
		BGL_BIND_PROCEDURE(BGl_proc2361z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2470z00);
		BGL_BIND_PROCEDURE(BGl_proc2360z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2469z00);
		BGL_BIND_STRING(BGl_string2289z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2289za700za7za7_2468za7);
		BGL_BIND_STRING(BGl_string2288z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2288za700za7za7_2467za7);
		BGL_BIND_STRING(BGl_string2368z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2368za700za7za7_2466za7);
		BGL_BIND_STRING(BGl_string2286z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2286za700za7za7_2465za7);
		BGL_BIND_STRING(BGl_string2284z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2284za700za7za7_2464za7);
		BGL_BIND_PROCEDURE(BGl_proc2278z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f314322463z00);
		BGL_BIND_PROCEDURE(BGl_proc2359z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2462z00);
		BGL_BIND_STRING(BGl_string2283z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2283za700za7za7_2461za7);
		BGL_BIND_PROCEDURE(BGl_proc2358z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2460z00);
		BGL_BIND_PROCEDURE(BGl_proc2276z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailpos1390za762459z00);
		BGL_BIND_PROCEDURE(BGl_proc2357z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2458z00);
		BGL_BIND_STRING(BGl_string2281z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2281za700za7za7_2457za7);
		BGL_BIND_PROCEDURE(BGl_proc2356z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2456z00);
		BGL_BIND_PROCEDURE(BGl_proc2274z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_goto1352455za7);
		BGL_BIND_PROCEDURE(BGl_proc2355z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2454z00);
		BGL_BIND_PROCEDURE(BGl_proc2354z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2453z00);
		BGL_BIND_PROCEDURE(BGl_proc2272z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2452z00);
		BGL_BIND_PROCEDURE(BGl_proc2353z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2451z00);
		BGL_BIND_PROCEDURE(BGl_proc2352z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2450z00);
		BGL_BIND_PROCEDURE(BGl_proc2270z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7e1285za7c2449za7);
		BGL_BIND_PROCEDURE(BGl_proc2351z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2448z00);
		BGL_BIND_PROCEDURE(BGl_proc2350z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2447z00);
		BGL_BIND_STRING(BGl_string2279z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2279za700za7za7_2446za7);
		BGL_BIND_STRING(BGl_string2277z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2277za700za7za7_2445za7);
		BGL_BIND_STRING(BGl_string2275z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2275za700za7za7_2444za7);
		BGL_BIND_PROCEDURE(BGl_proc2349z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2443z00);
		BGL_BIND_STRING(BGl_string2273z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2273za700za7za7_2442za7);
		BGL_BIND_PROCEDURE(BGl_proc2348z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza7d2ev_2441z00);
		BGL_BIND_PROCEDURE(BGl_proc2347z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22440z00);
		BGL_BIND_STRING(BGl_string2271z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2271za700za7za7_2439za7);
		BGL_BIND_PROCEDURE(BGl_proc2346z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22438z00);
		BGL_BIND_PROCEDURE(BGl_proc2345z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22437z00);
		BGL_BIND_PROCEDURE(BGl_proc2344z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22436z00);
		BGL_BIND_PROCEDURE(BGl_proc2343z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22435z00);
		BGL_BIND_PROCEDURE(BGl_proc2342z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22434z00);
		BGL_BIND_PROCEDURE(BGl_proc2341z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22433z00);
		BGL_BIND_PROCEDURE(BGl_proc2340z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22432z00);
		BGL_BIND_PROCEDURE(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
			BgL_bgl_za762hasvarza7f3za791za72431z00);
		BGL_BIND_STRING(BGl_string2269z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2269za700za7za7_2430za7);
		BGL_BIND_STRING(BGl_string2268z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2268za700za7za7_2429za7);
		BGL_BIND_STRING(BGl_string2267z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2267za700za7za7_2428za7);
		BGL_BIND_STRING(BGl_string2266z00zz__evaluate_fsiza7eza7,
			BgL_bgl_string2266za700za7za7_2427za7);
		BGL_BIND_PROCEDURE(BGl_proc2339z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22426z00);
		BGL_BIND_PROCEDURE(BGl_proc2338z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22425z00);
		BGL_BIND_PROCEDURE(BGl_proc2337z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22424z00);
		BGL_BIND_PROCEDURE(BGl_proc2336z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22423z00);
		BGL_BIND_PROCEDURE(BGl_proc2335z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22422z00);
		BGL_BIND_PROCEDURE(BGl_proc2334z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22421z00);
		BGL_BIND_PROCEDURE(BGl_proc2333z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22420z00);
		BGL_BIND_PROCEDURE(BGl_proc2332z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762subst_gotoza7d22419z00);
		BGL_BIND_PROCEDURE(BGl_proc2331z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2418z00);
		BGL_BIND_PROCEDURE(BGl_proc2330z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2417z00);
		BGL_BIND_PROCEDURE(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
			BgL_bgl_za762tailposza762za7za7_2416z00);
		BGL_BIND_PROCEDURE(BGl_proc2329z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2415z00);
		BGL_BIND_PROCEDURE(BGl_proc2328z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2414z00);
		BGL_BIND_PROCEDURE(BGl_proc2327z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2413z00);
		BGL_BIND_PROCEDURE(BGl_proc2326z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2412z00);
		BGL_BIND_PROCEDURE(BGl_proc2325z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2411z00);
		BGL_BIND_PROCEDURE(BGl_proc2324z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2410z00);
		BGL_BIND_PROCEDURE(BGl_proc2323z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2409z00);
		BGL_BIND_PROCEDURE(BGl_proc2322z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2408z00);
		BGL_BIND_PROCEDURE(BGl_proc2321z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2407z00);
		BGL_BIND_PROCEDURE(BGl_proc2320z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2406z00);
		BGL_BIND_PROCEDURE(BGl_proc2319z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2405z00);
		BGL_BIND_PROCEDURE(BGl_proc2318z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2404z00);
		BGL_BIND_PROCEDURE(BGl_proc2317z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762searchza7d2letr2403z00);
		BGL_BIND_PROCEDURE(BGl_proc2316z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2402za7);
		BGL_BIND_PROCEDURE(BGl_proc2315z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2401za7);
		BGL_BIND_PROCEDURE(BGl_proc2314z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2400za7);
		BGL_BIND_PROCEDURE(BGl_proc2313z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2399za7);
		BGL_BIND_PROCEDURE(BGl_proc2312z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2398za7);
		BGL_BIND_PROCEDURE(BGl_proc2311z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2397za7);
		BGL_BIND_PROCEDURE(BGl_proc2310z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2396za7);
		BGL_BIND_PROCEDURE(BGl_proc2309z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2395za7);
		BGL_BIND_PROCEDURE(BGl_proc2308z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2394za7);
		BGL_BIND_PROCEDURE(BGl_proc2307z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2393za7);
		BGL_BIND_PROCEDURE(BGl_proc2306z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2392za7);
		BGL_BIND_PROCEDURE(BGl_proc2305z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2391za7);
		BGL_BIND_PROCEDURE(BGl_proc2304z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2390za7);
		BGL_BIND_PROCEDURE(BGl_proc2303z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2389za7);
		BGL_BIND_PROCEDURE(BGl_proc2302z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2388za7);
		BGL_BIND_PROCEDURE(BGl_proc2301z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2387za7);
		BGL_BIND_PROCEDURE(BGl_proc2300z00zz__evaluate_fsiza7eza7,
			BgL_bgl_za762fsiza7a7eza7d2ev_2386za7);
	}

/* 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_fsiza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2280z00zz__evaluate_fsiza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2282z00zz__evaluate_fsiza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2285z00zz__evaluate_fsiza7eza7));
		ADD_ROOT((void *) (&BGl_symbol2287z00zz__evaluate_fsiza7eza7));
#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_fsiza7eza7(long
		BgL_checksumz00_4929, char *BgL_fromz00_4930)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evaluate_fsiza7eza7))
				{
					BGl_requirezd2initializa7ationz75zz__evaluate_fsiza7eza7 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evaluate_fsiza7eza7();
					BGl_cnstzd2initzd2zz__evaluate_fsiza7eza7();
					BGl_importedzd2moduleszd2initz00zz__evaluate_fsiza7eza7();
					BGl_genericzd2initzd2zz__evaluate_fsiza7eza7();
					BGl_methodzd2initzd2zz__evaluate_fsiza7eza7();
					return BGl_toplevelzd2initzd2zz__evaluate_fsiza7eza7();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evaluate_fsiza7eza7(void)
	{
		{	/* Eval/evaluate_fsize.scm 16 */
			BGl_symbol2280z00zz__evaluate_fsiza7eza7 =
				bstring_to_symbol(BGl_string2279z00zz__evaluate_fsiza7eza7);
			BGl_symbol2282z00zz__evaluate_fsiza7eza7 =
				bstring_to_symbol(BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_symbol2285z00zz__evaluate_fsiza7eza7 =
				bstring_to_symbol(BGl_string2286z00zz__evaluate_fsiza7eza7);
			return (BGl_symbol2287z00zz__evaluate_fsiza7eza7 =
				bstring_to_symbol(BGl_string2288z00zz__evaluate_fsiza7eza7), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__evaluate_fsiza7eza7(void)
	{
		{	/* Eval/evaluate_fsize.scm 16 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evaluate_fsiza7eza7(void)
	{
		{	/* Eval/evaluate_fsize.scm 16 */
			return BUNSPEC;
		}

	}



/* frame-size */
	BGL_EXPORTED_DEF int
		BGl_framezd2siza7ez75zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt BgL_ez00_3)
	{
		{	/* Eval/evaluate_fsize.scm 65 */
			return BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_ez00_3, (int) (0L));
		}

	}



/* &frame-size */
	obj_t BGl_z62framezd2siza7ez17zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3817,
		obj_t BgL_ez00_3818)
	{
		{	/* Eval/evaluate_fsize.scm 65 */
			{	/* Eval/evaluate_fsize.scm 66 */
				int BgL_tmpz00_4948;

				{	/* Eval/evaluate_fsize.scm 66 */
					BgL_ev_exprz00_bglt BgL_auxz00_4949;

					if (BGl_isazf3zf3zz__objectz00(BgL_ez00_3818,
							BGl_ev_exprz00zz__evaluate_typesz00))
						{	/* Eval/evaluate_fsize.scm 66 */
							BgL_auxz00_4949 = ((BgL_ev_exprz00_bglt) BgL_ez00_3818);
						}
					else
						{
							obj_t BgL_auxz00_4953;

							BgL_auxz00_4953 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(1965L),
								BGl_string2267z00zz__evaluate_fsiza7eza7,
								BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3818);
							FAILURE(BgL_auxz00_4953, BFALSE, BFALSE);
						}
					BgL_tmpz00_4948 =
						BGl_framezd2siza7ez75zz__evaluate_fsiza7eza7(BgL_auxz00_4949);
				}
				return BINT(BgL_tmpz00_4948);
			}
		}

	}



/* extract-loops */
	BGL_EXPORTED_DEF BgL_ev_exprz00_bglt
		BGl_extractzd2loopszd2zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt
		BgL_ez00_42)
	{
		{	/* Eval/evaluate_fsize.scm 167 */
			return
				((BgL_ev_exprz00_bglt)
				BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7(BgL_ez00_42));
		}

	}



/* &extract-loops */
	BgL_ev_exprz00_bglt BGl_z62extractzd2loopszb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3819, obj_t BgL_ez00_3820)
	{
		{	/* Eval/evaluate_fsize.scm 167 */
			{	/* Eval/evaluate_fsize.scm 169 */
				BgL_ev_exprz00_bglt BgL_auxz00_4961;

				if (BGl_isazf3zf3zz__objectz00(BgL_ez00_3820,
						BGl_ev_exprz00zz__evaluate_typesz00))
					{	/* Eval/evaluate_fsize.scm 169 */
						BgL_auxz00_4961 = ((BgL_ev_exprz00_bglt) BgL_ez00_3820);
					}
				else
					{
						obj_t BgL_auxz00_4965;

						BgL_auxz00_4965 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(5040L),
							BGl_string2269z00zz__evaluate_fsiza7eza7,
							BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3820);
						FAILURE(BgL_auxz00_4965, BFALSE, BFALSE);
					}
				return BGl_extractzd2loopszd2zz__evaluate_fsiza7eza7(BgL_auxz00_4961);
			}
		}

	}



/* search-letrec* */
	bool_t BGl_searchzd2letrecza2z70zz__evaluate_fsiza7eza7(obj_t BgL_lz00_43)
	{
		{	/* Eval/evaluate_fsize.scm 172 */
			{
				obj_t BgL_lz00_1327;

				BgL_lz00_1327 = BgL_lz00_43;
			BgL_zc3z04anonymousza31539ze3z87_1328:
				if (NULLP(BgL_lz00_1327))
					{	/* Eval/evaluate_fsize.scm 174 */
						return ((bool_t) 0);
					}
				else
					{	/* Eval/evaluate_fsize.scm 174 */
						{	/* Eval/evaluate_fsize.scm 175 */
							obj_t BgL_arg1541z00_1330;

							{	/* Eval/evaluate_fsize.scm 175 */
								obj_t BgL_arg1542z00_1331;

								BgL_arg1542z00_1331 = CAR(((obj_t) BgL_lz00_1327));
								BgL_arg1541z00_1330 =
									BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7(
									((BgL_ev_exprz00_bglt) BgL_arg1542z00_1331));
							}
							{	/* Eval/evaluate_fsize.scm 175 */
								obj_t BgL_tmpz00_4976;

								BgL_tmpz00_4976 = ((obj_t) BgL_lz00_1327);
								SET_CAR(BgL_tmpz00_4976, BgL_arg1541z00_1330);
							}
						}
						{	/* Eval/evaluate_fsize.scm 176 */
							obj_t BgL_arg1543z00_1332;

							BgL_arg1543z00_1332 = CDR(((obj_t) BgL_lz00_1327));
							{
								obj_t BgL_lz00_4981;

								BgL_lz00_4981 = BgL_arg1543z00_1332;
								BgL_lz00_1327 = BgL_lz00_4981;
								goto BgL_zc3z04anonymousza31539ze3z87_1328;
							}
						}
					}
			}
		}

	}



/* modify-letrec */
	BgL_ev_labelsz00_bglt BGl_modifyzd2letreczd2zz__evaluate_fsiza7eza7(obj_t
		BgL_varsz00_60, obj_t BgL_valsz00_61, BgL_ev_exprz00_bglt BgL_bodyz00_62)
	{
		{	/* Eval/evaluate_fsize.scm 268 */
			{	/* Eval/evaluate_fsize.scm 269 */
				BgL_ev_labelsz00_bglt BgL_rz00_1334;

				{	/* Eval/evaluate_fsize.scm 269 */
					BgL_ev_labelsz00_bglt BgL_new1094z00_1353;

					{	/* Eval/evaluate_fsize.scm 269 */
						BgL_ev_labelsz00_bglt BgL_new1093z00_1357;

						BgL_new1093z00_1357 =
							((BgL_ev_labelsz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_ev_labelsz00_bgl))));
						{	/* Eval/evaluate_fsize.scm 269 */
							long BgL_arg1558z00_1358;

							BgL_arg1558z00_1358 =
								BGL_CLASS_NUM(BGl_ev_labelsz00zz__evaluate_typesz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1093z00_1357),
								BgL_arg1558z00_1358);
						}
						BgL_new1094z00_1353 = BgL_new1093z00_1357;
					}
					((((BgL_ev_labelsz00_bglt) COBJECT(BgL_new1094z00_1353))->
							BgL_varsz00) = ((obj_t) BgL_varsz00_60), BUNSPEC);
					((((BgL_ev_labelsz00_bglt) COBJECT(BgL_new1094z00_1353))->
							BgL_valsz00) = ((obj_t) BNIL), BUNSPEC);
					((((BgL_ev_labelsz00_bglt) COBJECT(BgL_new1094z00_1353))->
							BgL_envz00) = ((obj_t) BNIL), BUNSPEC);
					((((BgL_ev_labelsz00_bglt) COBJECT(BgL_new1094z00_1353))->
							BgL_stkz00) = ((obj_t) BNIL), BUNSPEC);
					{
						BgL_ev_exprz00_bglt BgL_auxz00_4990;

						{	/* Eval/evaluate_fsize.scm 270 */
							BgL_ev_littz00_bglt BgL_new1096z00_1354;

							{	/* Eval/evaluate_fsize.scm 270 */
								BgL_ev_littz00_bglt BgL_new1095z00_1355;

								BgL_new1095z00_1355 =
									((BgL_ev_littz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_ev_littz00_bgl))));
								{	/* Eval/evaluate_fsize.scm 270 */
									long BgL_arg1555z00_1356;

									{	/* Eval/evaluate_fsize.scm 270 */
										obj_t BgL_classz00_2767;

										BgL_classz00_2767 = BGl_ev_littz00zz__evaluate_typesz00;
										BgL_arg1555z00_1356 = BGL_CLASS_NUM(BgL_classz00_2767);
									}
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1095z00_1355),
										BgL_arg1555z00_1356);
								}
								BgL_new1096z00_1354 = BgL_new1095z00_1355;
							}
							((((BgL_ev_littz00_bglt) COBJECT(BgL_new1096z00_1354))->
									BgL_valuez00) = ((obj_t) BINT(0L)), BUNSPEC);
							BgL_auxz00_4990 = ((BgL_ev_exprz00_bglt) BgL_new1096z00_1354);
						}
						((((BgL_ev_labelsz00_bglt) COBJECT(BgL_new1094z00_1353))->
								BgL_bodyz00) =
							((BgL_ev_exprz00_bglt) BgL_auxz00_4990), BUNSPEC);
					}
					((((BgL_ev_labelsz00_bglt) COBJECT(BgL_new1094z00_1353))->
							BgL_boxesz00) = ((obj_t) BNIL), BUNSPEC);
					BgL_rz00_1334 = BgL_new1094z00_1353;
				}
				((((BgL_ev_labelsz00_bglt) COBJECT(BgL_rz00_1334))->BgL_bodyz00) =
					((BgL_ev_exprz00_bglt) ((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_bodyz00_62,
								BgL_varsz00_60, ((obj_t) BgL_rz00_1334)))), BUNSPEC);
				{
					obj_t BgL_auxz00_5004;

					if (NULLP(BgL_valsz00_61))
						{	/* Eval/evaluate_fsize.scm 273 */
							BgL_auxz00_5004 = BNIL;
						}
					else
						{	/* Eval/evaluate_fsize.scm 273 */
							obj_t BgL_head1219z00_1338;

							BgL_head1219z00_1338 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1217z00_1340;
								obj_t BgL_tail1220z00_1341;

								BgL_l1217z00_1340 = BgL_valsz00_61;
								BgL_tail1220z00_1341 = BgL_head1219z00_1338;
							BgL_zc3z04anonymousza31545ze3z87_1342:
								if (NULLP(BgL_l1217z00_1340))
									{	/* Eval/evaluate_fsize.scm 273 */
										BgL_auxz00_5004 = CDR(BgL_head1219z00_1338);
									}
								else
									{	/* Eval/evaluate_fsize.scm 273 */
										obj_t BgL_newtail1221z00_1344;

										{	/* Eval/evaluate_fsize.scm 273 */
											obj_t BgL_arg1549z00_1346;

											{	/* Eval/evaluate_fsize.scm 273 */
												obj_t BgL_valz00_1347;

												BgL_valz00_1347 = CAR(((obj_t) BgL_l1217z00_1340));
												{	/* Eval/evaluate_fsize.scm 275 */
													obj_t BgL_arg1551z00_1349;
													obj_t BgL_arg1552z00_1350;

													BgL_arg1551z00_1349 =
														(((BgL_ev_absz00_bglt) COBJECT(
																((BgL_ev_absz00_bglt) BgL_valz00_1347)))->
														BgL_varsz00);
													{	/* Eval/evaluate_fsize.scm 275 */
														BgL_ev_exprz00_bglt BgL_arg1554z00_1351;

														BgL_arg1554z00_1351 =
															(((BgL_ev_absz00_bglt) COBJECT(
																	((BgL_ev_absz00_bglt) BgL_valz00_1347)))->
															BgL_bodyz00);
														BgL_arg1552z00_1350 =
															BGl_subst_gotoz00zz__evaluate_fsiza7eza7
															(BgL_arg1554z00_1351, BgL_varsz00_60,
															((obj_t) BgL_rz00_1334));
													}
													BgL_arg1549z00_1346 =
														MAKE_YOUNG_PAIR(BgL_arg1551z00_1349,
														BgL_arg1552z00_1350);
												}
											}
											BgL_newtail1221z00_1344 =
												MAKE_YOUNG_PAIR(BgL_arg1549z00_1346, BNIL);
										}
										SET_CDR(BgL_tail1220z00_1341, BgL_newtail1221z00_1344);
										{	/* Eval/evaluate_fsize.scm 273 */
											obj_t BgL_arg1547z00_1345;

											BgL_arg1547z00_1345 = CDR(((obj_t) BgL_l1217z00_1340));
											{
												obj_t BgL_tail1220z00_5025;
												obj_t BgL_l1217z00_5024;

												BgL_l1217z00_5024 = BgL_arg1547z00_1345;
												BgL_tail1220z00_5025 = BgL_newtail1221z00_1344;
												BgL_tail1220z00_1341 = BgL_tail1220z00_5025;
												BgL_l1217z00_1340 = BgL_l1217z00_5024;
												goto BgL_zc3z04anonymousza31545ze3z87_1342;
											}
										}
									}
							}
						}
					((((BgL_ev_labelsz00_bglt) COBJECT(BgL_rz00_1334))->BgL_valsz00) =
						((obj_t) BgL_auxz00_5004), BUNSPEC);
				}
				return BgL_rz00_1334;
			}
		}

	}



/* letrectail? */
	bool_t BGl_letrectailzf3zf3zz__evaluate_fsiza7eza7(obj_t BgL_varsz00_63,
		obj_t BgL_valsz00_64, BgL_ev_exprz00_bglt BgL_bodyz00_65)
	{
		{	/* Eval/evaluate_fsize.scm 279 */
			{
				obj_t BgL_l1225z00_1360;

				BgL_l1225z00_1360 = BgL_varsz00_63;
			BgL_zc3z04anonymousza31559ze3z87_1361:
				if (NULLP(BgL_l1225z00_1360))
					{	/* Eval/evaluate_fsize.scm 280 */
						return ((bool_t) 1);
					}
				else
					{	/* Eval/evaluate_fsize.scm 280 */
						bool_t BgL_test2516z00_5029;

						{	/* Eval/evaluate_fsize.scm 281 */
							obj_t BgL_vz00_1366;

							BgL_vz00_1366 = CAR(((obj_t) BgL_l1225z00_1360));
							{	/* Eval/evaluate_fsize.scm 281 */
								obj_t BgL__andtest_1099z00_1367;

								BgL__andtest_1099z00_1367 =
									BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_bodyz00_65,
									((BgL_ev_varz00_bglt) BgL_vz00_1366));
								if (CBOOL(BgL__andtest_1099z00_1367))
									{
										obj_t BgL_l1222z00_1369;

										BgL_l1222z00_1369 = BgL_valsz00_64;
									BgL_zc3z04anonymousza31562ze3z87_1370:
										if (NULLP(BgL_l1222z00_1369))
											{	/* Eval/evaluate_fsize.scm 282 */
												BgL_test2516z00_5029 = ((bool_t) 1);
											}
										else
											{	/* Eval/evaluate_fsize.scm 283 */
												obj_t BgL_nvz00_1372;

												{	/* Eval/evaluate_fsize.scm 283 */
													obj_t BgL_ez00_1375;

													BgL_ez00_1375 = CAR(((obj_t) BgL_l1222z00_1369));
													{	/* Eval/evaluate_fsize.scm 283 */
														bool_t BgL_test2519z00_5040;

														{	/* Eval/evaluate_fsize.scm 283 */
															obj_t BgL_classz00_2776;

															BgL_classz00_2776 =
																BGl_ev_absz00zz__evaluate_typesz00;
															if (BGL_OBJECTP(BgL_ez00_1375))
																{	/* Eval/evaluate_fsize.scm 283 */
																	BgL_objectz00_bglt BgL_arg2179z00_2778;

																	BgL_arg2179z00_2778 =
																		(BgL_objectz00_bglt) (BgL_ez00_1375);
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* Eval/evaluate_fsize.scm 283 */
																			long BgL_idxz00_2784;

																			BgL_idxz00_2784 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg2179z00_2778);
																			BgL_test2519z00_5040 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_2784 + 2L)) ==
																				BgL_classz00_2776);
																		}
																	else
																		{	/* Eval/evaluate_fsize.scm 283 */
																			bool_t BgL_res2208z00_2809;

																			{	/* Eval/evaluate_fsize.scm 283 */
																				obj_t BgL_oclassz00_2792;

																				{	/* Eval/evaluate_fsize.scm 283 */
																					obj_t BgL_arg2187z00_2800;
																					long BgL_arg2188z00_2801;

																					BgL_arg2187z00_2800 =
																						(BGl_za2classesza2z00zz__objectz00);
																					{	/* Eval/evaluate_fsize.scm 283 */
																						long BgL_arg2189z00_2802;

																						BgL_arg2189z00_2802 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg2179z00_2778);
																						BgL_arg2188z00_2801 =
																							(BgL_arg2189z00_2802 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_2792 =
																						VECTOR_REF(BgL_arg2187z00_2800,
																						BgL_arg2188z00_2801);
																				}
																				{	/* Eval/evaluate_fsize.scm 283 */
																					bool_t BgL__ortest_1214z00_2793;

																					BgL__ortest_1214z00_2793 =
																						(BgL_classz00_2776 ==
																						BgL_oclassz00_2792);
																					if (BgL__ortest_1214z00_2793)
																						{	/* Eval/evaluate_fsize.scm 283 */
																							BgL_res2208z00_2809 =
																								BgL__ortest_1214z00_2793;
																						}
																					else
																						{	/* Eval/evaluate_fsize.scm 283 */
																							long BgL_odepthz00_2794;

																							{	/* Eval/evaluate_fsize.scm 283 */
																								obj_t BgL_arg2176z00_2795;

																								BgL_arg2176z00_2795 =
																									(BgL_oclassz00_2792);
																								BgL_odepthz00_2794 =
																									BGL_CLASS_DEPTH
																									(BgL_arg2176z00_2795);
																							}
																							if ((2L < BgL_odepthz00_2794))
																								{	/* Eval/evaluate_fsize.scm 283 */
																									obj_t BgL_arg2174z00_2797;

																									{	/* Eval/evaluate_fsize.scm 283 */
																										obj_t BgL_arg2175z00_2798;

																										BgL_arg2175z00_2798 =
																											(BgL_oclassz00_2792);
																										BgL_arg2174z00_2797 =
																											BGL_CLASS_ANCESTORS_REF
																											(BgL_arg2175z00_2798, 2L);
																									}
																									BgL_res2208z00_2809 =
																										(BgL_arg2174z00_2797 ==
																										BgL_classz00_2776);
																								}
																							else
																								{	/* Eval/evaluate_fsize.scm 283 */
																									BgL_res2208z00_2809 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test2519z00_5040 =
																				BgL_res2208z00_2809;
																		}
																}
															else
																{	/* Eval/evaluate_fsize.scm 283 */
																	BgL_test2519z00_5040 = ((bool_t) 0);
																}
														}
														if (BgL_test2519z00_5040)
															{	/* Eval/evaluate_fsize.scm 283 */
																if (
																	((long) CINT(
																			(((BgL_ev_absz00_bglt) COBJECT(
																						((BgL_ev_absz00_bglt)
																							BgL_ez00_1375)))->
																				BgL_arityz00)) >= 0L))
																	{	/* Eval/evaluate_fsize.scm 286 */
																		BgL_ev_exprz00_bglt BgL_arg1568z00_1379;

																		BgL_arg1568z00_1379 =
																			(((BgL_ev_absz00_bglt) COBJECT(
																					((BgL_ev_absz00_bglt)
																						BgL_ez00_1375)))->BgL_bodyz00);
																		BgL_nvz00_1372 =
																			BGl_tailposz00zz__evaluate_fsiza7eza7
																			(BgL_arg1568z00_1379,
																			((BgL_ev_varz00_bglt) BgL_vz00_1366));
																	}
																else
																	{	/* Eval/evaluate_fsize.scm 285 */
																		BgL_nvz00_1372 = BFALSE;
																	}
															}
														else
															{	/* Eval/evaluate_fsize.scm 283 */
																BgL_nvz00_1372 = BFALSE;
															}
													}
												}
												if (CBOOL(BgL_nvz00_1372))
													{	/* Eval/evaluate_fsize.scm 282 */
														obj_t BgL_arg1565z00_1374;

														BgL_arg1565z00_1374 =
															CDR(((obj_t) BgL_l1222z00_1369));
														{
															obj_t BgL_l1222z00_5076;

															BgL_l1222z00_5076 = BgL_arg1565z00_1374;
															BgL_l1222z00_1369 = BgL_l1222z00_5076;
															goto BgL_zc3z04anonymousza31562ze3z87_1370;
														}
													}
												else
													{	/* Eval/evaluate_fsize.scm 282 */
														BgL_test2516z00_5029 = ((bool_t) 0);
													}
											}
									}
								else
									{	/* Eval/evaluate_fsize.scm 281 */
										BgL_test2516z00_5029 = ((bool_t) 0);
									}
							}
						}
						if (BgL_test2516z00_5029)
							{	/* Eval/evaluate_fsize.scm 280 */
								obj_t BgL_arg1561z00_1365;

								BgL_arg1561z00_1365 = CDR(((obj_t) BgL_l1225z00_1360));
								{
									obj_t BgL_l1225z00_5079;

									BgL_l1225z00_5079 = BgL_arg1561z00_1365;
									BgL_l1225z00_1360 = BgL_l1225z00_5079;
									goto BgL_zc3z04anonymousza31559ze3z87_1361;
								}
							}
						else
							{	/* Eval/evaluate_fsize.scm 280 */
								return ((bool_t) 0);
							}
					}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__evaluate_fsiza7eza7(void)
	{
		{	/* Eval/evaluate_fsize.scm 16 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__evaluate_fsiza7eza7(void)
	{
		{	/* Eval/evaluate_fsize.scm 16 */
			BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_proc2270z00zz__evaluate_fsiza7eza7,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string2271z00zz__evaluate_fsiza7eza7);
			BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_proc2272z00zz__evaluate_fsiza7eza7,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string2273z00zz__evaluate_fsiza7eza7);
			BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_proc2274z00zz__evaluate_fsiza7eza7,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string2275z00zz__evaluate_fsiza7eza7);
			BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_proc2276z00zz__evaluate_fsiza7eza7,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string2277z00zz__evaluate_fsiza7eza7);
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_proc2278z00zz__evaluate_fsiza7eza7,
				BGl_ev_exprz00zz__evaluate_typesz00,
				BGl_string2279z00zz__evaluate_fsiza7eza7);
		}

	}



/* &hasvar?1432 */
	obj_t BGl_z62hasvarzf31432z91zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3826,
		obj_t BgL_ez00_3827, obj_t BgL_vz00_3828)
	{
		{	/* Eval/evaluate_fsize.scm 491 */
			return
				BGl_errorz00zz__errorz00(BGl_symbol2280z00zz__evaluate_fsiza7eza7,
				BGl_string2281z00zz__evaluate_fsiza7eza7,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_3827)));
		}

	}



/* &tailpos1390 */
	obj_t BGl_z62tailpos1390z62zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3829,
		obj_t BgL_ez00_3830, obj_t BgL_vz00_3831)
	{
		{	/* Eval/evaluate_fsize.scm 403 */
			return
				BGl_errorz00zz__errorz00(BGl_symbol2282z00zz__evaluate_fsiza7eza7,
				BGl_string2284z00zz__evaluate_fsiza7eza7,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_3830)));
		}

	}



/* &subst_goto1356 */
	obj_t BGl_z62subst_goto1356z62zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3832,
		obj_t BgL_ez00_3833, obj_t BgL_varsz00_3834, obj_t BgL_lblsz00_3835)
	{
		{	/* Eval/evaluate_fsize.scm 298 */
			return
				BGl_errorz00zz__errorz00(BGl_symbol2285z00zz__evaluate_fsiza7eza7,
				BGl_string2284z00zz__evaluate_fsiza7eza7,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_3833)));
		}

	}



/* &search-letrec1324 */
	obj_t BGl_z62searchzd2letrec1324zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3836, obj_t BgL_ez00_3837)
	{
		{	/* Eval/evaluate_fsize.scm 178 */
			return
				BGl_errorz00zz__errorz00(BGl_symbol2287z00zz__evaluate_fsiza7eza7,
				BGl_string2284z00zz__evaluate_fsiza7eza7,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_3837)));
		}

	}



/* &fsize1285 */
	obj_t BGl_z62fsiza7e1285zc5zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3838,
		obj_t BgL_ez00_3839, obj_t BgL_nz00_3840)
	{
		{	/* Eval/evaluate_fsize.scm 68 */
			return
				BGl_errorz00zz__errorz00(BGl_string2289z00zz__evaluate_fsiza7eza7,
				BGl_string2290z00zz__evaluate_fsiza7eza7,
				((obj_t) ((BgL_ev_exprz00_bglt) BgL_ez00_3839)));
		}

	}



/* fsize */
	int BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt BgL_ez00_4,
		int BgL_nz00_5)
	{
		{	/* Eval/evaluate_fsize.scm 68 */
			{	/* Eval/evaluate_fsize.scm 68 */
				obj_t BgL_method1287z00_1416;

				{	/* Eval/evaluate_fsize.scm 68 */
					obj_t BgL_res2213z00_2852;

					{	/* Eval/evaluate_fsize.scm 68 */
						long BgL_objzd2classzd2numz00_2823;

						BgL_objzd2classzd2numz00_2823 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_4));
						{	/* Eval/evaluate_fsize.scm 68 */
							obj_t BgL_arg2184z00_2824;

							BgL_arg2184z00_2824 =
								PROCEDURE_REF(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
								(int) (1L));
							{	/* Eval/evaluate_fsize.scm 68 */
								int BgL_offsetz00_2827;

								BgL_offsetz00_2827 = (int) (BgL_objzd2classzd2numz00_2823);
								{	/* Eval/evaluate_fsize.scm 68 */
									long BgL_offsetz00_2828;

									BgL_offsetz00_2828 =
										((long) (BgL_offsetz00_2827) - OBJECT_TYPE);
									{	/* Eval/evaluate_fsize.scm 68 */
										long BgL_modz00_2829;

										BgL_modz00_2829 =
											(BgL_offsetz00_2828 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_fsize.scm 68 */
											long BgL_restz00_2831;

											BgL_restz00_2831 =
												(BgL_offsetz00_2828 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_fsize.scm 68 */

												{	/* Eval/evaluate_fsize.scm 68 */
													obj_t BgL_bucketz00_2833;

													BgL_bucketz00_2833 =
														VECTOR_REF(
														((obj_t) BgL_arg2184z00_2824), BgL_modz00_2829);
													BgL_res2213z00_2852 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2833), BgL_restz00_2831);
					}}}}}}}}
					BgL_method1287z00_1416 = BgL_res2213z00_2852;
				}
				return
					CINT(BGL_PROCEDURE_CALL2(BgL_method1287z00_1416,
						((obj_t) BgL_ez00_4), BINT(BgL_nz00_5)));
			}
		}

	}



/* &fsize */
	obj_t BGl_z62fsiza7ezc5zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3841,
		obj_t BgL_ez00_3842, obj_t BgL_nz00_3843)
	{
		{	/* Eval/evaluate_fsize.scm 68 */
			{	/* Eval/evaluate_fsize.scm 68 */
				int BgL_tmpz00_5133;

				{	/* Eval/evaluate_fsize.scm 68 */
					int BgL_auxz00_5164;
					BgL_ev_exprz00_bglt BgL_auxz00_5134;

					{	/* Eval/evaluate_fsize.scm 68 */
						obj_t BgL_tmpz00_5165;

						if (INTEGERP(BgL_nz00_3843))
							{	/* Eval/evaluate_fsize.scm 68 */
								BgL_tmpz00_5165 = BgL_nz00_3843;
							}
						else
							{
								obj_t BgL_auxz00_5168;

								BgL_auxz00_5168 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(1980L),
									BGl_string2291z00zz__evaluate_fsiza7eza7,
									BGl_string2292z00zz__evaluate_fsiza7eza7, BgL_nz00_3843);
								FAILURE(BgL_auxz00_5168, BFALSE, BFALSE);
							}
						BgL_auxz00_5164 = CINT(BgL_tmpz00_5165);
					}
					{	/* Eval/evaluate_fsize.scm 68 */
						bool_t BgL_test2526z00_5135;

						{	/* Eval/evaluate_fsize.scm 68 */
							obj_t BgL_classz00_4246;

							BgL_classz00_4246 = BGl_ev_exprz00zz__evaluate_typesz00;
							if (BGL_OBJECTP(BgL_ez00_3842))
								{	/* Eval/evaluate_fsize.scm 68 */
									BgL_objectz00_bglt BgL_arg2181z00_4248;
									long BgL_arg2182z00_4249;

									BgL_arg2181z00_4248 = (BgL_objectz00_bglt) (BgL_ez00_3842);
									BgL_arg2182z00_4249 = BGL_CLASS_DEPTH(BgL_classz00_4246);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Eval/evaluate_fsize.scm 68 */
											long BgL_idxz00_4257;

											BgL_idxz00_4257 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4248);
											{	/* Eval/evaluate_fsize.scm 68 */
												obj_t BgL_arg2172z00_4258;

												{	/* Eval/evaluate_fsize.scm 68 */
													long BgL_arg2173z00_4259;

													BgL_arg2173z00_4259 =
														(BgL_idxz00_4257 + BgL_arg2182z00_4249);
													BgL_arg2172z00_4258 =
														VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														BgL_arg2173z00_4259);
												}
												BgL_test2526z00_5135 =
													(BgL_arg2172z00_4258 == BgL_classz00_4246);
										}}
									else
										{	/* Eval/evaluate_fsize.scm 68 */
											bool_t BgL_res2235z00_4264;

											{	/* Eval/evaluate_fsize.scm 68 */
												obj_t BgL_oclassz00_4268;

												{	/* Eval/evaluate_fsize.scm 68 */
													obj_t BgL_arg2187z00_4270;
													long BgL_arg2188z00_4271;

													BgL_arg2187z00_4270 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Eval/evaluate_fsize.scm 68 */
														long BgL_arg2189z00_4272;

														BgL_arg2189z00_4272 =
															BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4248);
														BgL_arg2188z00_4271 =
															(BgL_arg2189z00_4272 - OBJECT_TYPE);
													}
													BgL_oclassz00_4268 =
														VECTOR_REF(BgL_arg2187z00_4270,
														BgL_arg2188z00_4271);
												}
												{	/* Eval/evaluate_fsize.scm 68 */
													bool_t BgL__ortest_1214z00_4278;

													BgL__ortest_1214z00_4278 =
														(BgL_classz00_4246 == BgL_oclassz00_4268);
													if (BgL__ortest_1214z00_4278)
														{	/* Eval/evaluate_fsize.scm 68 */
															BgL_res2235z00_4264 = BgL__ortest_1214z00_4278;
														}
													else
														{	/* Eval/evaluate_fsize.scm 68 */
															long BgL_odepthz00_4279;

															{	/* Eval/evaluate_fsize.scm 68 */
																obj_t BgL_arg2176z00_4280;

																BgL_arg2176z00_4280 = (BgL_oclassz00_4268);
																BgL_odepthz00_4279 =
																	BGL_CLASS_DEPTH(BgL_arg2176z00_4280);
															}
															if ((BgL_arg2182z00_4249 < BgL_odepthz00_4279))
																{	/* Eval/evaluate_fsize.scm 68 */
																	obj_t BgL_arg2174z00_4284;

																	{	/* Eval/evaluate_fsize.scm 68 */
																		obj_t BgL_arg2175z00_4285;

																		BgL_arg2175z00_4285 = (BgL_oclassz00_4268);
																		BgL_arg2174z00_4284 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_arg2175z00_4285,
																			BgL_arg2182z00_4249);
																	}
																	BgL_res2235z00_4264 =
																		(BgL_arg2174z00_4284 == BgL_classz00_4246);
																}
															else
																{	/* Eval/evaluate_fsize.scm 68 */
																	BgL_res2235z00_4264 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2526z00_5135 = BgL_res2235z00_4264;
										}
								}
							else
								{	/* Eval/evaluate_fsize.scm 68 */
									BgL_test2526z00_5135 = ((bool_t) 0);
								}
						}
						if (BgL_test2526z00_5135)
							{	/* Eval/evaluate_fsize.scm 68 */
								BgL_auxz00_5134 = ((BgL_ev_exprz00_bglt) BgL_ez00_3842);
							}
						else
							{
								obj_t BgL_auxz00_5160;

								BgL_auxz00_5160 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(1980L),
									BGl_string2291z00zz__evaluate_fsiza7eza7,
									BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3842);
								FAILURE(BgL_auxz00_5160, BFALSE, BFALSE);
							}
					}
					BgL_tmpz00_5133 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_auxz00_5134,
						BgL_auxz00_5164);
				}
				return BINT(BgL_tmpz00_5133);
			}
		}

	}



/* search-letrec */
	obj_t BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt
		BgL_ez00_44)
	{
		{	/* Eval/evaluate_fsize.scm 178 */
			{	/* Eval/evaluate_fsize.scm 178 */
				obj_t BgL_method1325z00_1417;

				{	/* Eval/evaluate_fsize.scm 178 */
					obj_t BgL_res2218z00_2883;

					{	/* Eval/evaluate_fsize.scm 178 */
						long BgL_objzd2classzd2numz00_2854;

						BgL_objzd2classzd2numz00_2854 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_44));
						{	/* Eval/evaluate_fsize.scm 178 */
							obj_t BgL_arg2184z00_2855;

							BgL_arg2184z00_2855 =
								PROCEDURE_REF
								(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
								(int) (1L));
							{	/* Eval/evaluate_fsize.scm 178 */
								int BgL_offsetz00_2858;

								BgL_offsetz00_2858 = (int) (BgL_objzd2classzd2numz00_2854);
								{	/* Eval/evaluate_fsize.scm 178 */
									long BgL_offsetz00_2859;

									BgL_offsetz00_2859 =
										((long) (BgL_offsetz00_2858) - OBJECT_TYPE);
									{	/* Eval/evaluate_fsize.scm 178 */
										long BgL_modz00_2860;

										BgL_modz00_2860 =
											(BgL_offsetz00_2859 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_fsize.scm 178 */
											long BgL_restz00_2862;

											BgL_restz00_2862 =
												(BgL_offsetz00_2859 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_fsize.scm 178 */

												{	/* Eval/evaluate_fsize.scm 178 */
													obj_t BgL_bucketz00_2864;

													BgL_bucketz00_2864 =
														VECTOR_REF(
														((obj_t) BgL_arg2184z00_2855), BgL_modz00_2860);
													BgL_res2218z00_2883 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2864), BgL_restz00_2862);
					}}}}}}}}
					BgL_method1325z00_1417 = BgL_res2218z00_2883;
				}
				return
					BGL_PROCEDURE_CALL1(BgL_method1325z00_1417, ((obj_t) BgL_ez00_44));
			}
		}

	}



/* &search-letrec */
	obj_t BGl_z62searchzd2letreczb0zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3844,
		obj_t BgL_ez00_3845)
	{
		{	/* Eval/evaluate_fsize.scm 178 */
			{	/* Eval/evaluate_fsize.scm 178 */
				BgL_ev_exprz00_bglt BgL_auxz00_5205;

				{	/* Eval/evaluate_fsize.scm 178 */
					bool_t BgL_test2532z00_5206;

					{	/* Eval/evaluate_fsize.scm 178 */
						obj_t BgL_classz00_4286;

						BgL_classz00_4286 = BGl_ev_exprz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_ez00_3845))
							{	/* Eval/evaluate_fsize.scm 178 */
								BgL_objectz00_bglt BgL_arg2181z00_4288;
								long BgL_arg2182z00_4289;

								BgL_arg2181z00_4288 = (BgL_objectz00_bglt) (BgL_ez00_3845);
								BgL_arg2182z00_4289 = BGL_CLASS_DEPTH(BgL_classz00_4286);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_fsize.scm 178 */
										long BgL_idxz00_4297;

										BgL_idxz00_4297 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4288);
										{	/* Eval/evaluate_fsize.scm 178 */
											obj_t BgL_arg2172z00_4298;

											{	/* Eval/evaluate_fsize.scm 178 */
												long BgL_arg2173z00_4299;

												BgL_arg2173z00_4299 =
													(BgL_idxz00_4297 + BgL_arg2182z00_4289);
												BgL_arg2172z00_4298 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2173z00_4299);
											}
											BgL_test2532z00_5206 =
												(BgL_arg2172z00_4298 == BgL_classz00_4286);
									}}
								else
									{	/* Eval/evaluate_fsize.scm 178 */
										bool_t BgL_res2235z00_4304;

										{	/* Eval/evaluate_fsize.scm 178 */
											obj_t BgL_oclassz00_4308;

											{	/* Eval/evaluate_fsize.scm 178 */
												obj_t BgL_arg2187z00_4310;
												long BgL_arg2188z00_4311;

												BgL_arg2187z00_4310 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_fsize.scm 178 */
													long BgL_arg2189z00_4312;

													BgL_arg2189z00_4312 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4288);
													BgL_arg2188z00_4311 =
														(BgL_arg2189z00_4312 - OBJECT_TYPE);
												}
												BgL_oclassz00_4308 =
													VECTOR_REF(BgL_arg2187z00_4310, BgL_arg2188z00_4311);
											}
											{	/* Eval/evaluate_fsize.scm 178 */
												bool_t BgL__ortest_1214z00_4318;

												BgL__ortest_1214z00_4318 =
													(BgL_classz00_4286 == BgL_oclassz00_4308);
												if (BgL__ortest_1214z00_4318)
													{	/* Eval/evaluate_fsize.scm 178 */
														BgL_res2235z00_4304 = BgL__ortest_1214z00_4318;
													}
												else
													{	/* Eval/evaluate_fsize.scm 178 */
														long BgL_odepthz00_4319;

														{	/* Eval/evaluate_fsize.scm 178 */
															obj_t BgL_arg2176z00_4320;

															BgL_arg2176z00_4320 = (BgL_oclassz00_4308);
															BgL_odepthz00_4319 =
																BGL_CLASS_DEPTH(BgL_arg2176z00_4320);
														}
														if ((BgL_arg2182z00_4289 < BgL_odepthz00_4319))
															{	/* Eval/evaluate_fsize.scm 178 */
																obj_t BgL_arg2174z00_4324;

																{	/* Eval/evaluate_fsize.scm 178 */
																	obj_t BgL_arg2175z00_4325;

																	BgL_arg2175z00_4325 = (BgL_oclassz00_4308);
																	BgL_arg2174z00_4324 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2175z00_4325,
																		BgL_arg2182z00_4289);
																}
																BgL_res2235z00_4304 =
																	(BgL_arg2174z00_4324 == BgL_classz00_4286);
															}
														else
															{	/* Eval/evaluate_fsize.scm 178 */
																BgL_res2235z00_4304 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2532z00_5206 = BgL_res2235z00_4304;
									}
							}
						else
							{	/* Eval/evaluate_fsize.scm 178 */
								BgL_test2532z00_5206 = ((bool_t) 0);
							}
					}
					if (BgL_test2532z00_5206)
						{	/* Eval/evaluate_fsize.scm 178 */
							BgL_auxz00_5205 = ((BgL_ev_exprz00_bglt) BgL_ez00_3845);
						}
					else
						{
							obj_t BgL_auxz00_5231;

							BgL_auxz00_5231 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(5204L),
								BGl_string2293z00zz__evaluate_fsiza7eza7,
								BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3845);
							FAILURE(BgL_auxz00_5231, BFALSE, BFALSE);
						}
				}
				return BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7(BgL_auxz00_5205);
			}
		}

	}



/* subst_goto */
	obj_t BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt
		BgL_ez00_69, obj_t BgL_varsz00_70, obj_t BgL_lblsz00_71)
	{
		{	/* Eval/evaluate_fsize.scm 298 */
			{	/* Eval/evaluate_fsize.scm 298 */
				obj_t BgL_method1357z00_1418;

				{	/* Eval/evaluate_fsize.scm 298 */
					obj_t BgL_res2223z00_2914;

					{	/* Eval/evaluate_fsize.scm 298 */
						long BgL_objzd2classzd2numz00_2885;

						BgL_objzd2classzd2numz00_2885 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_69));
						{	/* Eval/evaluate_fsize.scm 298 */
							obj_t BgL_arg2184z00_2886;

							BgL_arg2184z00_2886 =
								PROCEDURE_REF(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
								(int) (1L));
							{	/* Eval/evaluate_fsize.scm 298 */
								int BgL_offsetz00_2889;

								BgL_offsetz00_2889 = (int) (BgL_objzd2classzd2numz00_2885);
								{	/* Eval/evaluate_fsize.scm 298 */
									long BgL_offsetz00_2890;

									BgL_offsetz00_2890 =
										((long) (BgL_offsetz00_2889) - OBJECT_TYPE);
									{	/* Eval/evaluate_fsize.scm 298 */
										long BgL_modz00_2891;

										BgL_modz00_2891 =
											(BgL_offsetz00_2890 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_fsize.scm 298 */
											long BgL_restz00_2893;

											BgL_restz00_2893 =
												(BgL_offsetz00_2890 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_fsize.scm 298 */

												{	/* Eval/evaluate_fsize.scm 298 */
													obj_t BgL_bucketz00_2895;

													BgL_bucketz00_2895 =
														VECTOR_REF(
														((obj_t) BgL_arg2184z00_2886), BgL_modz00_2891);
													BgL_res2223z00_2914 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2895), BgL_restz00_2893);
					}}}}}}}}
					BgL_method1357z00_1418 = BgL_res2223z00_2914;
				}
				return
					BGL_PROCEDURE_CALL3(BgL_method1357z00_1418,
					((obj_t) BgL_ez00_69), BgL_varsz00_70, BgL_lblsz00_71);
			}
		}

	}



/* &subst_goto */
	obj_t BGl_z62subst_gotoz62zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3846,
		obj_t BgL_ez00_3847, obj_t BgL_varsz00_3848, obj_t BgL_lblsz00_3849)
	{
		{	/* Eval/evaluate_fsize.scm 298 */
			{	/* Eval/evaluate_fsize.scm 298 */
				BgL_ev_exprz00_bglt BgL_auxz00_5268;

				{	/* Eval/evaluate_fsize.scm 298 */
					bool_t BgL_test2537z00_5269;

					{	/* Eval/evaluate_fsize.scm 298 */
						obj_t BgL_classz00_4326;

						BgL_classz00_4326 = BGl_ev_exprz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_ez00_3847))
							{	/* Eval/evaluate_fsize.scm 298 */
								BgL_objectz00_bglt BgL_arg2181z00_4328;
								long BgL_arg2182z00_4329;

								BgL_arg2181z00_4328 = (BgL_objectz00_bglt) (BgL_ez00_3847);
								BgL_arg2182z00_4329 = BGL_CLASS_DEPTH(BgL_classz00_4326);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_fsize.scm 298 */
										long BgL_idxz00_4337;

										BgL_idxz00_4337 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4328);
										{	/* Eval/evaluate_fsize.scm 298 */
											obj_t BgL_arg2172z00_4338;

											{	/* Eval/evaluate_fsize.scm 298 */
												long BgL_arg2173z00_4339;

												BgL_arg2173z00_4339 =
													(BgL_idxz00_4337 + BgL_arg2182z00_4329);
												BgL_arg2172z00_4338 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2173z00_4339);
											}
											BgL_test2537z00_5269 =
												(BgL_arg2172z00_4338 == BgL_classz00_4326);
									}}
								else
									{	/* Eval/evaluate_fsize.scm 298 */
										bool_t BgL_res2235z00_4344;

										{	/* Eval/evaluate_fsize.scm 298 */
											obj_t BgL_oclassz00_4348;

											{	/* Eval/evaluate_fsize.scm 298 */
												obj_t BgL_arg2187z00_4350;
												long BgL_arg2188z00_4351;

												BgL_arg2187z00_4350 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_fsize.scm 298 */
													long BgL_arg2189z00_4352;

													BgL_arg2189z00_4352 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4328);
													BgL_arg2188z00_4351 =
														(BgL_arg2189z00_4352 - OBJECT_TYPE);
												}
												BgL_oclassz00_4348 =
													VECTOR_REF(BgL_arg2187z00_4350, BgL_arg2188z00_4351);
											}
											{	/* Eval/evaluate_fsize.scm 298 */
												bool_t BgL__ortest_1214z00_4358;

												BgL__ortest_1214z00_4358 =
													(BgL_classz00_4326 == BgL_oclassz00_4348);
												if (BgL__ortest_1214z00_4358)
													{	/* Eval/evaluate_fsize.scm 298 */
														BgL_res2235z00_4344 = BgL__ortest_1214z00_4358;
													}
												else
													{	/* Eval/evaluate_fsize.scm 298 */
														long BgL_odepthz00_4359;

														{	/* Eval/evaluate_fsize.scm 298 */
															obj_t BgL_arg2176z00_4360;

															BgL_arg2176z00_4360 = (BgL_oclassz00_4348);
															BgL_odepthz00_4359 =
																BGL_CLASS_DEPTH(BgL_arg2176z00_4360);
														}
														if ((BgL_arg2182z00_4329 < BgL_odepthz00_4359))
															{	/* Eval/evaluate_fsize.scm 298 */
																obj_t BgL_arg2174z00_4364;

																{	/* Eval/evaluate_fsize.scm 298 */
																	obj_t BgL_arg2175z00_4365;

																	BgL_arg2175z00_4365 = (BgL_oclassz00_4348);
																	BgL_arg2174z00_4364 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2175z00_4365,
																		BgL_arg2182z00_4329);
																}
																BgL_res2235z00_4344 =
																	(BgL_arg2174z00_4364 == BgL_classz00_4326);
															}
														else
															{	/* Eval/evaluate_fsize.scm 298 */
																BgL_res2235z00_4344 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2537z00_5269 = BgL_res2235z00_4344;
									}
							}
						else
							{	/* Eval/evaluate_fsize.scm 298 */
								BgL_test2537z00_5269 = ((bool_t) 0);
							}
					}
					if (BgL_test2537z00_5269)
						{	/* Eval/evaluate_fsize.scm 298 */
							BgL_auxz00_5268 = ((BgL_ev_exprz00_bglt) BgL_ez00_3847);
						}
					else
						{
							obj_t BgL_auxz00_5294;

							BgL_auxz00_5294 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(8471L),
								BGl_string2294z00zz__evaluate_fsiza7eza7,
								BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3847);
							FAILURE(BgL_auxz00_5294, BFALSE, BFALSE);
						}
				}
				return
					BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_auxz00_5268,
					BgL_varsz00_3848, BgL_lblsz00_3849);
			}
		}

	}



/* tailpos */
	obj_t BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt BgL_ez00_120,
		BgL_ev_varz00_bglt BgL_vz00_121)
	{
		{	/* Eval/evaluate_fsize.scm 403 */
			{	/* Eval/evaluate_fsize.scm 403 */
				obj_t BgL_method1391z00_1419;

				{	/* Eval/evaluate_fsize.scm 403 */
					obj_t BgL_res2228z00_2945;

					{	/* Eval/evaluate_fsize.scm 403 */
						long BgL_objzd2classzd2numz00_2916;

						BgL_objzd2classzd2numz00_2916 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_120));
						{	/* Eval/evaluate_fsize.scm 403 */
							obj_t BgL_arg2184z00_2917;

							BgL_arg2184z00_2917 =
								PROCEDURE_REF(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
								(int) (1L));
							{	/* Eval/evaluate_fsize.scm 403 */
								int BgL_offsetz00_2920;

								BgL_offsetz00_2920 = (int) (BgL_objzd2classzd2numz00_2916);
								{	/* Eval/evaluate_fsize.scm 403 */
									long BgL_offsetz00_2921;

									BgL_offsetz00_2921 =
										((long) (BgL_offsetz00_2920) - OBJECT_TYPE);
									{	/* Eval/evaluate_fsize.scm 403 */
										long BgL_modz00_2922;

										BgL_modz00_2922 =
											(BgL_offsetz00_2921 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_fsize.scm 403 */
											long BgL_restz00_2924;

											BgL_restz00_2924 =
												(BgL_offsetz00_2921 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_fsize.scm 403 */

												{	/* Eval/evaluate_fsize.scm 403 */
													obj_t BgL_bucketz00_2926;

													BgL_bucketz00_2926 =
														VECTOR_REF(
														((obj_t) BgL_arg2184z00_2917), BgL_modz00_2922);
													BgL_res2228z00_2945 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2926), BgL_restz00_2924);
					}}}}}}}}
					BgL_method1391z00_1419 = BgL_res2228z00_2945;
				}
				return
					BGL_PROCEDURE_CALL2(BgL_method1391z00_1419,
					((obj_t) BgL_ez00_120), ((obj_t) BgL_vz00_121));
			}
		}

	}



/* &tailpos */
	obj_t BGl_z62tailposz62zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3850,
		obj_t BgL_ez00_3851, obj_t BgL_vz00_3852)
	{
		{	/* Eval/evaluate_fsize.scm 403 */
			{	/* Eval/evaluate_fsize.scm 403 */
				BgL_ev_varz00_bglt BgL_auxz00_5361;
				BgL_ev_exprz00_bglt BgL_auxz00_5331;

				{	/* Eval/evaluate_fsize.scm 403 */
					bool_t BgL_test2547z00_5362;

					{	/* Eval/evaluate_fsize.scm 403 */
						obj_t BgL_classz00_4406;

						BgL_classz00_4406 = BGl_ev_varz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_vz00_3852))
							{	/* Eval/evaluate_fsize.scm 403 */
								BgL_objectz00_bglt BgL_arg2181z00_4408;
								long BgL_arg2182z00_4409;

								BgL_arg2181z00_4408 = (BgL_objectz00_bglt) (BgL_vz00_3852);
								BgL_arg2182z00_4409 = BGL_CLASS_DEPTH(BgL_classz00_4406);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_fsize.scm 403 */
										long BgL_idxz00_4417;

										BgL_idxz00_4417 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4408);
										{	/* Eval/evaluate_fsize.scm 403 */
											obj_t BgL_arg2172z00_4418;

											{	/* Eval/evaluate_fsize.scm 403 */
												long BgL_arg2173z00_4419;

												BgL_arg2173z00_4419 =
													(BgL_idxz00_4417 + BgL_arg2182z00_4409);
												BgL_arg2172z00_4418 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2173z00_4419);
											}
											BgL_test2547z00_5362 =
												(BgL_arg2172z00_4418 == BgL_classz00_4406);
									}}
								else
									{	/* Eval/evaluate_fsize.scm 403 */
										bool_t BgL_res2235z00_4424;

										{	/* Eval/evaluate_fsize.scm 403 */
											obj_t BgL_oclassz00_4428;

											{	/* Eval/evaluate_fsize.scm 403 */
												obj_t BgL_arg2187z00_4430;
												long BgL_arg2188z00_4431;

												BgL_arg2187z00_4430 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_fsize.scm 403 */
													long BgL_arg2189z00_4432;

													BgL_arg2189z00_4432 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4408);
													BgL_arg2188z00_4431 =
														(BgL_arg2189z00_4432 - OBJECT_TYPE);
												}
												BgL_oclassz00_4428 =
													VECTOR_REF(BgL_arg2187z00_4430, BgL_arg2188z00_4431);
											}
											{	/* Eval/evaluate_fsize.scm 403 */
												bool_t BgL__ortest_1214z00_4438;

												BgL__ortest_1214z00_4438 =
													(BgL_classz00_4406 == BgL_oclassz00_4428);
												if (BgL__ortest_1214z00_4438)
													{	/* Eval/evaluate_fsize.scm 403 */
														BgL_res2235z00_4424 = BgL__ortest_1214z00_4438;
													}
												else
													{	/* Eval/evaluate_fsize.scm 403 */
														long BgL_odepthz00_4439;

														{	/* Eval/evaluate_fsize.scm 403 */
															obj_t BgL_arg2176z00_4440;

															BgL_arg2176z00_4440 = (BgL_oclassz00_4428);
															BgL_odepthz00_4439 =
																BGL_CLASS_DEPTH(BgL_arg2176z00_4440);
														}
														if ((BgL_arg2182z00_4409 < BgL_odepthz00_4439))
															{	/* Eval/evaluate_fsize.scm 403 */
																obj_t BgL_arg2174z00_4444;

																{	/* Eval/evaluate_fsize.scm 403 */
																	obj_t BgL_arg2175z00_4445;

																	BgL_arg2175z00_4445 = (BgL_oclassz00_4428);
																	BgL_arg2174z00_4444 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2175z00_4445,
																		BgL_arg2182z00_4409);
																}
																BgL_res2235z00_4424 =
																	(BgL_arg2174z00_4444 == BgL_classz00_4406);
															}
														else
															{	/* Eval/evaluate_fsize.scm 403 */
																BgL_res2235z00_4424 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2547z00_5362 = BgL_res2235z00_4424;
									}
							}
						else
							{	/* Eval/evaluate_fsize.scm 403 */
								BgL_test2547z00_5362 = ((bool_t) 0);
							}
					}
					if (BgL_test2547z00_5362)
						{	/* Eval/evaluate_fsize.scm 403 */
							BgL_auxz00_5361 = ((BgL_ev_varz00_bglt) BgL_vz00_3852);
						}
					else
						{
							obj_t BgL_auxz00_5387;

							BgL_auxz00_5387 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(12049L),
								BGl_string2295z00zz__evaluate_fsiza7eza7,
								BGl_string2296z00zz__evaluate_fsiza7eza7, BgL_vz00_3852);
							FAILURE(BgL_auxz00_5387, BFALSE, BFALSE);
						}
				}
				{	/* Eval/evaluate_fsize.scm 403 */
					bool_t BgL_test2542z00_5332;

					{	/* Eval/evaluate_fsize.scm 403 */
						obj_t BgL_classz00_4366;

						BgL_classz00_4366 = BGl_ev_exprz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_ez00_3851))
							{	/* Eval/evaluate_fsize.scm 403 */
								BgL_objectz00_bglt BgL_arg2181z00_4368;
								long BgL_arg2182z00_4369;

								BgL_arg2181z00_4368 = (BgL_objectz00_bglt) (BgL_ez00_3851);
								BgL_arg2182z00_4369 = BGL_CLASS_DEPTH(BgL_classz00_4366);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_fsize.scm 403 */
										long BgL_idxz00_4377;

										BgL_idxz00_4377 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4368);
										{	/* Eval/evaluate_fsize.scm 403 */
											obj_t BgL_arg2172z00_4378;

											{	/* Eval/evaluate_fsize.scm 403 */
												long BgL_arg2173z00_4379;

												BgL_arg2173z00_4379 =
													(BgL_idxz00_4377 + BgL_arg2182z00_4369);
												BgL_arg2172z00_4378 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2173z00_4379);
											}
											BgL_test2542z00_5332 =
												(BgL_arg2172z00_4378 == BgL_classz00_4366);
									}}
								else
									{	/* Eval/evaluate_fsize.scm 403 */
										bool_t BgL_res2235z00_4384;

										{	/* Eval/evaluate_fsize.scm 403 */
											obj_t BgL_oclassz00_4388;

											{	/* Eval/evaluate_fsize.scm 403 */
												obj_t BgL_arg2187z00_4390;
												long BgL_arg2188z00_4391;

												BgL_arg2187z00_4390 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_fsize.scm 403 */
													long BgL_arg2189z00_4392;

													BgL_arg2189z00_4392 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4368);
													BgL_arg2188z00_4391 =
														(BgL_arg2189z00_4392 - OBJECT_TYPE);
												}
												BgL_oclassz00_4388 =
													VECTOR_REF(BgL_arg2187z00_4390, BgL_arg2188z00_4391);
											}
											{	/* Eval/evaluate_fsize.scm 403 */
												bool_t BgL__ortest_1214z00_4398;

												BgL__ortest_1214z00_4398 =
													(BgL_classz00_4366 == BgL_oclassz00_4388);
												if (BgL__ortest_1214z00_4398)
													{	/* Eval/evaluate_fsize.scm 403 */
														BgL_res2235z00_4384 = BgL__ortest_1214z00_4398;
													}
												else
													{	/* Eval/evaluate_fsize.scm 403 */
														long BgL_odepthz00_4399;

														{	/* Eval/evaluate_fsize.scm 403 */
															obj_t BgL_arg2176z00_4400;

															BgL_arg2176z00_4400 = (BgL_oclassz00_4388);
															BgL_odepthz00_4399 =
																BGL_CLASS_DEPTH(BgL_arg2176z00_4400);
														}
														if ((BgL_arg2182z00_4369 < BgL_odepthz00_4399))
															{	/* Eval/evaluate_fsize.scm 403 */
																obj_t BgL_arg2174z00_4404;

																{	/* Eval/evaluate_fsize.scm 403 */
																	obj_t BgL_arg2175z00_4405;

																	BgL_arg2175z00_4405 = (BgL_oclassz00_4388);
																	BgL_arg2174z00_4404 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2175z00_4405,
																		BgL_arg2182z00_4369);
																}
																BgL_res2235z00_4384 =
																	(BgL_arg2174z00_4404 == BgL_classz00_4366);
															}
														else
															{	/* Eval/evaluate_fsize.scm 403 */
																BgL_res2235z00_4384 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2542z00_5332 = BgL_res2235z00_4384;
									}
							}
						else
							{	/* Eval/evaluate_fsize.scm 403 */
								BgL_test2542z00_5332 = ((bool_t) 0);
							}
					}
					if (BgL_test2542z00_5332)
						{	/* Eval/evaluate_fsize.scm 403 */
							BgL_auxz00_5331 = ((BgL_ev_exprz00_bglt) BgL_ez00_3851);
						}
					else
						{
							obj_t BgL_auxz00_5357;

							BgL_auxz00_5357 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(12049L),
								BGl_string2295z00zz__evaluate_fsiza7eza7,
								BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3851);
							FAILURE(BgL_auxz00_5357, BFALSE, BFALSE);
						}
				}
				return
					BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_auxz00_5331,
					BgL_auxz00_5361);
			}
		}

	}



/* hasvar? */
	obj_t BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_ev_exprz00_bglt
		BgL_ez00_160, BgL_ev_varz00_bglt BgL_vz00_161)
	{
		{	/* Eval/evaluate_fsize.scm 491 */
			{	/* Eval/evaluate_fsize.scm 491 */
				obj_t BgL_method1433z00_1420;

				{	/* Eval/evaluate_fsize.scm 491 */
					obj_t BgL_res2233z00_2976;

					{	/* Eval/evaluate_fsize.scm 491 */
						long BgL_objzd2classzd2numz00_2947;

						BgL_objzd2classzd2numz00_2947 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_ez00_160));
						{	/* Eval/evaluate_fsize.scm 491 */
							obj_t BgL_arg2184z00_2948;

							BgL_arg2184z00_2948 =
								PROCEDURE_REF(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
								(int) (1L));
							{	/* Eval/evaluate_fsize.scm 491 */
								int BgL_offsetz00_2951;

								BgL_offsetz00_2951 = (int) (BgL_objzd2classzd2numz00_2947);
								{	/* Eval/evaluate_fsize.scm 491 */
									long BgL_offsetz00_2952;

									BgL_offsetz00_2952 =
										((long) (BgL_offsetz00_2951) - OBJECT_TYPE);
									{	/* Eval/evaluate_fsize.scm 491 */
										long BgL_modz00_2953;

										BgL_modz00_2953 =
											(BgL_offsetz00_2952 >> (int) ((long) ((int) (4L))));
										{	/* Eval/evaluate_fsize.scm 491 */
											long BgL_restz00_2955;

											BgL_restz00_2955 =
												(BgL_offsetz00_2952 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Eval/evaluate_fsize.scm 491 */

												{	/* Eval/evaluate_fsize.scm 491 */
													obj_t BgL_bucketz00_2957;

													BgL_bucketz00_2957 =
														VECTOR_REF(
														((obj_t) BgL_arg2184z00_2948), BgL_modz00_2953);
													BgL_res2233z00_2976 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2957), BgL_restz00_2955);
					}}}}}}}}
					BgL_method1433z00_1420 = BgL_res2233z00_2976;
				}
				return
					BGL_PROCEDURE_CALL2(BgL_method1433z00_1420,
					((obj_t) BgL_ez00_160), ((obj_t) BgL_vz00_161));
			}
		}

	}



/* &hasvar? */
	obj_t BGl_z62hasvarzf3z91zz__evaluate_fsiza7eza7(obj_t BgL_envz00_3853,
		obj_t BgL_ez00_3854, obj_t BgL_vz00_3855)
	{
		{	/* Eval/evaluate_fsize.scm 491 */
			{	/* Eval/evaluate_fsize.scm 491 */
				BgL_ev_varz00_bglt BgL_auxz00_5454;
				BgL_ev_exprz00_bglt BgL_auxz00_5424;

				{	/* Eval/evaluate_fsize.scm 491 */
					bool_t BgL_test2557z00_5455;

					{	/* Eval/evaluate_fsize.scm 491 */
						obj_t BgL_classz00_4486;

						BgL_classz00_4486 = BGl_ev_varz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_vz00_3855))
							{	/* Eval/evaluate_fsize.scm 491 */
								BgL_objectz00_bglt BgL_arg2181z00_4488;
								long BgL_arg2182z00_4489;

								BgL_arg2181z00_4488 = (BgL_objectz00_bglt) (BgL_vz00_3855);
								BgL_arg2182z00_4489 = BGL_CLASS_DEPTH(BgL_classz00_4486);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_fsize.scm 491 */
										long BgL_idxz00_4497;

										BgL_idxz00_4497 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4488);
										{	/* Eval/evaluate_fsize.scm 491 */
											obj_t BgL_arg2172z00_4498;

											{	/* Eval/evaluate_fsize.scm 491 */
												long BgL_arg2173z00_4499;

												BgL_arg2173z00_4499 =
													(BgL_idxz00_4497 + BgL_arg2182z00_4489);
												BgL_arg2172z00_4498 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2173z00_4499);
											}
											BgL_test2557z00_5455 =
												(BgL_arg2172z00_4498 == BgL_classz00_4486);
									}}
								else
									{	/* Eval/evaluate_fsize.scm 491 */
										bool_t BgL_res2235z00_4504;

										{	/* Eval/evaluate_fsize.scm 491 */
											obj_t BgL_oclassz00_4508;

											{	/* Eval/evaluate_fsize.scm 491 */
												obj_t BgL_arg2187z00_4510;
												long BgL_arg2188z00_4511;

												BgL_arg2187z00_4510 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_fsize.scm 491 */
													long BgL_arg2189z00_4512;

													BgL_arg2189z00_4512 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4488);
													BgL_arg2188z00_4511 =
														(BgL_arg2189z00_4512 - OBJECT_TYPE);
												}
												BgL_oclassz00_4508 =
													VECTOR_REF(BgL_arg2187z00_4510, BgL_arg2188z00_4511);
											}
											{	/* Eval/evaluate_fsize.scm 491 */
												bool_t BgL__ortest_1214z00_4518;

												BgL__ortest_1214z00_4518 =
													(BgL_classz00_4486 == BgL_oclassz00_4508);
												if (BgL__ortest_1214z00_4518)
													{	/* Eval/evaluate_fsize.scm 491 */
														BgL_res2235z00_4504 = BgL__ortest_1214z00_4518;
													}
												else
													{	/* Eval/evaluate_fsize.scm 491 */
														long BgL_odepthz00_4519;

														{	/* Eval/evaluate_fsize.scm 491 */
															obj_t BgL_arg2176z00_4520;

															BgL_arg2176z00_4520 = (BgL_oclassz00_4508);
															BgL_odepthz00_4519 =
																BGL_CLASS_DEPTH(BgL_arg2176z00_4520);
														}
														if ((BgL_arg2182z00_4489 < BgL_odepthz00_4519))
															{	/* Eval/evaluate_fsize.scm 491 */
																obj_t BgL_arg2174z00_4524;

																{	/* Eval/evaluate_fsize.scm 491 */
																	obj_t BgL_arg2175z00_4525;

																	BgL_arg2175z00_4525 = (BgL_oclassz00_4508);
																	BgL_arg2174z00_4524 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2175z00_4525,
																		BgL_arg2182z00_4489);
																}
																BgL_res2235z00_4504 =
																	(BgL_arg2174z00_4524 == BgL_classz00_4486);
															}
														else
															{	/* Eval/evaluate_fsize.scm 491 */
																BgL_res2235z00_4504 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2557z00_5455 = BgL_res2235z00_4504;
									}
							}
						else
							{	/* Eval/evaluate_fsize.scm 491 */
								BgL_test2557z00_5455 = ((bool_t) 0);
							}
					}
					if (BgL_test2557z00_5455)
						{	/* Eval/evaluate_fsize.scm 491 */
							BgL_auxz00_5454 = ((BgL_ev_varz00_bglt) BgL_vz00_3855);
						}
					else
						{
							obj_t BgL_auxz00_5480;

							BgL_auxz00_5480 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(14969L),
								BGl_string2297z00zz__evaluate_fsiza7eza7,
								BGl_string2296z00zz__evaluate_fsiza7eza7, BgL_vz00_3855);
							FAILURE(BgL_auxz00_5480, BFALSE, BFALSE);
						}
				}
				{	/* Eval/evaluate_fsize.scm 491 */
					bool_t BgL_test2552z00_5425;

					{	/* Eval/evaluate_fsize.scm 491 */
						obj_t BgL_classz00_4446;

						BgL_classz00_4446 = BGl_ev_exprz00zz__evaluate_typesz00;
						if (BGL_OBJECTP(BgL_ez00_3854))
							{	/* Eval/evaluate_fsize.scm 491 */
								BgL_objectz00_bglt BgL_arg2181z00_4448;
								long BgL_arg2182z00_4449;

								BgL_arg2181z00_4448 = (BgL_objectz00_bglt) (BgL_ez00_3854);
								BgL_arg2182z00_4449 = BGL_CLASS_DEPTH(BgL_classz00_4446);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Eval/evaluate_fsize.scm 491 */
										long BgL_idxz00_4457;

										BgL_idxz00_4457 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2181z00_4448);
										{	/* Eval/evaluate_fsize.scm 491 */
											obj_t BgL_arg2172z00_4458;

											{	/* Eval/evaluate_fsize.scm 491 */
												long BgL_arg2173z00_4459;

												BgL_arg2173z00_4459 =
													(BgL_idxz00_4457 + BgL_arg2182z00_4449);
												BgL_arg2172z00_4458 =
													VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													BgL_arg2173z00_4459);
											}
											BgL_test2552z00_5425 =
												(BgL_arg2172z00_4458 == BgL_classz00_4446);
									}}
								else
									{	/* Eval/evaluate_fsize.scm 491 */
										bool_t BgL_res2235z00_4464;

										{	/* Eval/evaluate_fsize.scm 491 */
											obj_t BgL_oclassz00_4468;

											{	/* Eval/evaluate_fsize.scm 491 */
												obj_t BgL_arg2187z00_4470;
												long BgL_arg2188z00_4471;

												BgL_arg2187z00_4470 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Eval/evaluate_fsize.scm 491 */
													long BgL_arg2189z00_4472;

													BgL_arg2189z00_4472 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2181z00_4448);
													BgL_arg2188z00_4471 =
														(BgL_arg2189z00_4472 - OBJECT_TYPE);
												}
												BgL_oclassz00_4468 =
													VECTOR_REF(BgL_arg2187z00_4470, BgL_arg2188z00_4471);
											}
											{	/* Eval/evaluate_fsize.scm 491 */
												bool_t BgL__ortest_1214z00_4478;

												BgL__ortest_1214z00_4478 =
													(BgL_classz00_4446 == BgL_oclassz00_4468);
												if (BgL__ortest_1214z00_4478)
													{	/* Eval/evaluate_fsize.scm 491 */
														BgL_res2235z00_4464 = BgL__ortest_1214z00_4478;
													}
												else
													{	/* Eval/evaluate_fsize.scm 491 */
														long BgL_odepthz00_4479;

														{	/* Eval/evaluate_fsize.scm 491 */
															obj_t BgL_arg2176z00_4480;

															BgL_arg2176z00_4480 = (BgL_oclassz00_4468);
															BgL_odepthz00_4479 =
																BGL_CLASS_DEPTH(BgL_arg2176z00_4480);
														}
														if ((BgL_arg2182z00_4449 < BgL_odepthz00_4479))
															{	/* Eval/evaluate_fsize.scm 491 */
																obj_t BgL_arg2174z00_4484;

																{	/* Eval/evaluate_fsize.scm 491 */
																	obj_t BgL_arg2175z00_4485;

																	BgL_arg2175z00_4485 = (BgL_oclassz00_4468);
																	BgL_arg2174z00_4484 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2175z00_4485,
																		BgL_arg2182z00_4449);
																}
																BgL_res2235z00_4464 =
																	(BgL_arg2174z00_4484 == BgL_classz00_4446);
															}
														else
															{	/* Eval/evaluate_fsize.scm 491 */
																BgL_res2235z00_4464 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2552z00_5425 = BgL_res2235z00_4464;
									}
							}
						else
							{	/* Eval/evaluate_fsize.scm 491 */
								BgL_test2552z00_5425 = ((bool_t) 0);
							}
					}
					if (BgL_test2552z00_5425)
						{	/* Eval/evaluate_fsize.scm 491 */
							BgL_auxz00_5424 = ((BgL_ev_exprz00_bglt) BgL_ez00_3854);
						}
					else
						{
							obj_t BgL_auxz00_5450;

							BgL_auxz00_5450 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2266z00zz__evaluate_fsiza7eza7, BINT(14969L),
								BGl_string2297z00zz__evaluate_fsiza7eza7,
								BGl_string2268z00zz__evaluate_fsiza7eza7, BgL_ez00_3854);
							FAILURE(BgL_auxz00_5450, BFALSE, BFALSE);
						}
				}
				return
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_auxz00_5424,
					BgL_auxz00_5454);
			}
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__evaluate_fsiza7eza7(void)
	{
		{	/* Eval/evaluate_fsize.scm 16 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_varz00zz__evaluate_typesz00,
				BGl_proc2298z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc2300z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc2301z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_ifz00zz__evaluate_typesz00,
				BGl_proc2302z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_listz00zz__evaluate_typesz00,
				BGl_proc2303z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc2304z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_hookz00zz__evaluate_typesz00,
				BGl_proc2305z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc2306z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc2307z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc2308z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc2309z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_letz00zz__evaluate_typesz00,
				BGl_proc2310z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_letza2za2zz__evaluate_typesz00,
				BGl_proc2311z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_letrecz00zz__evaluate_typesz00,
				BGl_proc2312z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_labelsz00zz__evaluate_typesz00,
				BGl_proc2313z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_gotoz00zz__evaluate_typesz00,
				BGl_proc2314z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_appz00zz__evaluate_typesz00,
				BGl_proc2315z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_fsiza7ezd2envz75zz__evaluate_fsiza7eza7,
				BGl_ev_absz00zz__evaluate_typesz00,
				BGl_proc2316z00zz__evaluate_fsiza7eza7,
				BGl_string2299z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_varz00zz__evaluate_typesz00,
				BGl_proc2317z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc2318z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc2319z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_ifz00zz__evaluate_typesz00,
				BGl_proc2320z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_listz00zz__evaluate_typesz00,
				BGl_proc2321z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc2322z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_hookz00zz__evaluate_typesz00,
				BGl_proc2323z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc2324z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc2325z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc2326z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc2327z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_binderz00zz__evaluate_typesz00,
				BGl_proc2328z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_letrecz00zz__evaluate_typesz00,
				BGl_proc2329z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_appz00zz__evaluate_typesz00,
				BGl_proc2330z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_searchzd2letreczd2envz00zz__evaluate_fsiza7eza7,
				BGl_ev_absz00zz__evaluate_typesz00,
				BGl_proc2331z00zz__evaluate_fsiza7eza7,
				BGl_string2288z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_varz00zz__evaluate_typesz00,
				BGl_proc2332z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc2333z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc2334z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_ifz00zz__evaluate_typesz00,
				BGl_proc2335z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_listz00zz__evaluate_typesz00,
				BGl_proc2336z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc2337z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_hookz00zz__evaluate_typesz00,
				BGl_proc2338z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc2339z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc2340z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc2341z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc2342z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_binderz00zz__evaluate_typesz00,
				BGl_proc2343z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_labelsz00zz__evaluate_typesz00,
				BGl_proc2344z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_gotoz00zz__evaluate_typesz00,
				BGl_proc2345z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_appz00zz__evaluate_typesz00,
				BGl_proc2346z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_subst_gotozd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_absz00zz__evaluate_typesz00,
				BGl_proc2347z00zz__evaluate_fsiza7eza7,
				BGl_string2286z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_varz00zz__evaluate_typesz00,
				BGl_proc2348z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc2349z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc2350z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_ifz00zz__evaluate_typesz00,
				BGl_proc2351z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_listz00zz__evaluate_typesz00,
				BGl_proc2352z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc2353z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_hookz00zz__evaluate_typesz00,
				BGl_proc2354z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_setlocalz00zz__evaluate_typesz00,
				BGl_proc2355z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc2356z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc2357z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc2358z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc2359z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_letz00zz__evaluate_typesz00,
				BGl_proc2360z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_letza2za2zz__evaluate_typesz00,
				BGl_proc2361z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_letrecz00zz__evaluate_typesz00,
				BGl_proc2362z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_labelsz00zz__evaluate_typesz00,
				BGl_proc2363z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_gotoz00zz__evaluate_typesz00,
				BGl_proc2364z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_appz00zz__evaluate_typesz00,
				BGl_proc2365z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_tailposzd2envzd2zz__evaluate_fsiza7eza7,
				BGl_ev_absz00zz__evaluate_typesz00,
				BGl_proc2366z00zz__evaluate_fsiza7eza7,
				BGl_string2283z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_varz00zz__evaluate_typesz00,
				BGl_proc2367z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_globalz00zz__evaluate_typesz00,
				BGl_proc2369z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_littz00zz__evaluate_typesz00,
				BGl_proc2370z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_ifz00zz__evaluate_typesz00,
				BGl_proc2371z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_listz00zz__evaluate_typesz00,
				BGl_proc2372z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_prog2z00zz__evaluate_typesz00,
				BGl_proc2373z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_hookz00zz__evaluate_typesz00,
				BGl_proc2374z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_setlocalz00zz__evaluate_typesz00,
				BGl_proc2375z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_bindzd2exitzd2zz__evaluate_typesz00,
				BGl_proc2376z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_unwindzd2protectzd2zz__evaluate_typesz00,
				BGl_proc2377z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_withzd2handlerzd2zz__evaluate_typesz00,
				BGl_proc2378z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_synchroniza7eza7zz__evaluate_typesz00,
				BGl_proc2379z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_binderz00zz__evaluate_typesz00,
				BGl_proc2380z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_labelsz00zz__evaluate_typesz00,
				BGl_proc2381z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_gotoz00zz__evaluate_typesz00,
				BGl_proc2382z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_appz00zz__evaluate_typesz00,
				BGl_proc2383z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_hasvarzf3zd2envz21zz__evaluate_fsiza7eza7,
				BGl_ev_absz00zz__evaluate_typesz00,
				BGl_proc2384z00zz__evaluate_fsiza7eza7,
				BGl_string2368z00zz__evaluate_fsiza7eza7);
		}

	}



/* &hasvar?-ev_abs1468 */
	obj_t BGl_z62hasvarzf3zd2ev_abs1468z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3941, obj_t BgL_ez00_3942, obj_t BgL_vz00_3943)
	{
		{	/* Eval/evaluate_fsize.scm 556 */
			return
				BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
				(((BgL_ev_absz00_bglt) COBJECT(
							((BgL_ev_absz00_bglt) BgL_ez00_3942)))->BgL_bodyz00),
				((BgL_ev_varz00_bglt) BgL_vz00_3943));
		}

	}



/* &hasvar?-ev_app1466 */
	obj_t BGl_z62hasvarzf3zd2ev_app1466z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3944, obj_t BgL_ez00_3945, obj_t BgL_vz00_3946)
	{
		{	/* Eval/evaluate_fsize.scm 552 */
			{	/* Eval/evaluate_fsize.scm 554 */
				obj_t BgL__ortest_1174z00_4530;

				BgL__ortest_1174z00_4530 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_appz00_bglt) COBJECT(
								((BgL_ev_appz00_bglt) BgL_ez00_3945)))->BgL_funz00),
					((BgL_ev_varz00_bglt) BgL_vz00_3946));
				if (CBOOL(BgL__ortest_1174z00_4530))
					{	/* Eval/evaluate_fsize.scm 554 */
						return BgL__ortest_1174z00_4530;
					}
				else
					{	/* Eval/evaluate_fsize.scm 554 */
						obj_t BgL_g1270z00_4531;

						BgL_g1270z00_4531 =
							(((BgL_ev_appz00_bglt) COBJECT(
									((BgL_ev_appz00_bglt) BgL_ez00_3945)))->BgL_argsz00);
						{
							obj_t BgL_l1268z00_4533;

							BgL_l1268z00_4533 = BgL_g1270z00_4531;
						BgL_zc3z04anonymousza31880ze3z87_4532:
							if (NULLP(BgL_l1268z00_4533))
								{	/* Eval/evaluate_fsize.scm 554 */
									return BFALSE;
								}
							else
								{	/* Eval/evaluate_fsize.scm 554 */
									obj_t BgL__ortest_1271z00_4534;

									{	/* Eval/evaluate_fsize.scm 554 */
										obj_t BgL_ez00_4535;

										BgL_ez00_4535 = CAR(((obj_t) BgL_l1268z00_4533));
										BgL__ortest_1271z00_4534 =
											BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_ez00_4535),
											((BgL_ev_varz00_bglt) BgL_vz00_3946));
									}
									if (CBOOL(BgL__ortest_1271z00_4534))
										{	/* Eval/evaluate_fsize.scm 554 */
											return BgL__ortest_1271z00_4534;
										}
									else
										{	/* Eval/evaluate_fsize.scm 554 */
											obj_t BgL_arg1882z00_4536;

											BgL_arg1882z00_4536 = CDR(((obj_t) BgL_l1268z00_4533));
											{
												obj_t BgL_l1268z00_5593;

												BgL_l1268z00_5593 = BgL_arg1882z00_4536;
												BgL_l1268z00_4533 = BgL_l1268z00_5593;
												goto BgL_zc3z04anonymousza31880ze3z87_4532;
											}
										}
								}
						}
					}
			}
		}

	}



/* &hasvar?-ev_goto1464 */
	obj_t BGl_z62hasvarzf3zd2ev_goto1464z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3947, obj_t BgL_ez00_3948, obj_t BgL_vz00_3949)
	{
		{	/* Eval/evaluate_fsize.scm 548 */
			{	/* Eval/evaluate_fsize.scm 550 */
				obj_t BgL_g1266z00_4539;

				BgL_g1266z00_4539 =
					(((BgL_ev_gotoz00_bglt) COBJECT(
							((BgL_ev_gotoz00_bglt) BgL_ez00_3948)))->BgL_argsz00);
				{
					obj_t BgL_l1264z00_4541;

					BgL_l1264z00_4541 = BgL_g1266z00_4539;
				BgL_zc3z04anonymousza31877ze3z87_4540:
					if (NULLP(BgL_l1264z00_4541))
						{	/* Eval/evaluate_fsize.scm 550 */
							return BFALSE;
						}
					else
						{	/* Eval/evaluate_fsize.scm 550 */
							obj_t BgL__ortest_1267z00_4542;

							{	/* Eval/evaluate_fsize.scm 550 */
								obj_t BgL_ez00_4543;

								BgL_ez00_4543 = CAR(((obj_t) BgL_l1264z00_4541));
								BgL__ortest_1267z00_4542 =
									BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
									((BgL_ev_exprz00_bglt) BgL_ez00_4543),
									((BgL_ev_varz00_bglt) BgL_vz00_3949));
							}
							if (CBOOL(BgL__ortest_1267z00_4542))
								{	/* Eval/evaluate_fsize.scm 550 */
									return BgL__ortest_1267z00_4542;
								}
							else
								{	/* Eval/evaluate_fsize.scm 550 */
									obj_t BgL_arg1879z00_4544;

									BgL_arg1879z00_4544 = CDR(((obj_t) BgL_l1264z00_4541));
									{
										obj_t BgL_l1264z00_5607;

										BgL_l1264z00_5607 = BgL_arg1879z00_4544;
										BgL_l1264z00_4541 = BgL_l1264z00_5607;
										goto BgL_zc3z04anonymousza31877ze3z87_4540;
									}
								}
						}
				}
			}
		}

	}



/* &hasvar?-ev_labels1462 */
	obj_t BGl_z62hasvarzf3zd2ev_labels1462z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3950, obj_t BgL_ez00_3951, obj_t BgL_vz00_3952)
	{
		{	/* Eval/evaluate_fsize.scm 543 */
			{	/* Eval/evaluate_fsize.scm 545 */
				obj_t BgL__ortest_1171z00_4547;

				{	/* Eval/evaluate_fsize.scm 545 */
					obj_t BgL_g1262z00_4548;

					BgL_g1262z00_4548 =
						(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_3951)))->BgL_valsz00);
					{
						obj_t BgL_l1260z00_4550;

						BgL_l1260z00_4550 = BgL_g1262z00_4548;
					BgL_zc3z04anonymousza31871ze3z87_4549:
						if (NULLP(BgL_l1260z00_4550))
							{	/* Eval/evaluate_fsize.scm 545 */
								BgL__ortest_1171z00_4547 = BFALSE;
							}
						else
							{	/* Eval/evaluate_fsize.scm 545 */
								obj_t BgL__ortest_1263z00_4551;

								{	/* Eval/evaluate_fsize.scm 545 */
									obj_t BgL_ez00_4552;

									BgL_ez00_4552 = CAR(((obj_t) BgL_l1260z00_4550));
									{	/* Eval/evaluate_fsize.scm 545 */
										obj_t BgL_arg1876z00_4553;

										BgL_arg1876z00_4553 = CDR(((obj_t) BgL_ez00_4552));
										BgL__ortest_1263z00_4551 =
											BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1876z00_4553),
											((BgL_ev_varz00_bglt) BgL_vz00_3952));
									}
								}
								if (CBOOL(BgL__ortest_1263z00_4551))
									{	/* Eval/evaluate_fsize.scm 545 */
										BgL__ortest_1171z00_4547 = BgL__ortest_1263z00_4551;
									}
								else
									{	/* Eval/evaluate_fsize.scm 545 */
										obj_t BgL_arg1873z00_4554;

										BgL_arg1873z00_4554 = CDR(((obj_t) BgL_l1260z00_4550));
										{
											obj_t BgL_l1260z00_5623;

											BgL_l1260z00_5623 = BgL_arg1873z00_4554;
											BgL_l1260z00_4550 = BgL_l1260z00_5623;
											goto BgL_zc3z04anonymousza31871ze3z87_4549;
										}
									}
							}
					}
				}
				if (CBOOL(BgL__ortest_1171z00_4547))
					{	/* Eval/evaluate_fsize.scm 545 */
						return BgL__ortest_1171z00_4547;
					}
				else
					{	/* Eval/evaluate_fsize.scm 545 */
						return
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_labelsz00_bglt) COBJECT(
										((BgL_ev_labelsz00_bglt) BgL_ez00_3951)))->BgL_bodyz00),
							((BgL_ev_varz00_bglt) BgL_vz00_3952));
					}
			}
		}

	}



/* &hasvar?-ev_binder1460 */
	obj_t BGl_z62hasvarzf3zd2ev_binder1460z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3953, obj_t BgL_ez00_3954, obj_t BgL_vz00_3955)
	{
		{	/* Eval/evaluate_fsize.scm 538 */
			{	/* Eval/evaluate_fsize.scm 540 */
				obj_t BgL__ortest_1169z00_4557;

				{	/* Eval/evaluate_fsize.scm 540 */
					obj_t BgL_g1258z00_4558;

					BgL_g1258z00_4558 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt) BgL_ez00_3954)))->BgL_valsz00);
					{
						obj_t BgL_l1256z00_4560;

						BgL_l1256z00_4560 = BgL_g1258z00_4558;
					BgL_zc3z04anonymousza31867ze3z87_4559:
						if (NULLP(BgL_l1256z00_4560))
							{	/* Eval/evaluate_fsize.scm 540 */
								BgL__ortest_1169z00_4557 = BFALSE;
							}
						else
							{	/* Eval/evaluate_fsize.scm 540 */
								obj_t BgL__ortest_1259z00_4561;

								{	/* Eval/evaluate_fsize.scm 540 */
									obj_t BgL_ez00_4562;

									BgL_ez00_4562 = CAR(((obj_t) BgL_l1256z00_4560));
									BgL__ortest_1259z00_4561 =
										BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
										((BgL_ev_exprz00_bglt) BgL_ez00_4562),
										((BgL_ev_varz00_bglt) BgL_vz00_3955));
								}
								if (CBOOL(BgL__ortest_1259z00_4561))
									{	/* Eval/evaluate_fsize.scm 540 */
										BgL__ortest_1169z00_4557 = BgL__ortest_1259z00_4561;
									}
								else
									{	/* Eval/evaluate_fsize.scm 540 */
										obj_t BgL_arg1869z00_4563;

										BgL_arg1869z00_4563 = CDR(((obj_t) BgL_l1256z00_4560));
										{
											obj_t BgL_l1256z00_5643;

											BgL_l1256z00_5643 = BgL_arg1869z00_4563;
											BgL_l1256z00_4560 = BgL_l1256z00_5643;
											goto BgL_zc3z04anonymousza31867ze3z87_4559;
										}
									}
							}
					}
				}
				if (CBOOL(BgL__ortest_1169z00_4557))
					{	/* Eval/evaluate_fsize.scm 540 */
						return BgL__ortest_1169z00_4557;
					}
				else
					{	/* Eval/evaluate_fsize.scm 540 */
						return
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt) BgL_ez00_3954)))->BgL_bodyz00),
							((BgL_ev_varz00_bglt) BgL_vz00_3955));
					}
			}
		}

	}



/* &hasvar?-ev_synchroni1458 */
	obj_t BGl_z62hasvarzf3zd2ev_synchroni1458z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3956, obj_t BgL_ez00_3957, obj_t BgL_vz00_3958)
	{
		{	/* Eval/evaluate_fsize.scm 534 */
			{	/* Eval/evaluate_fsize.scm 536 */
				obj_t BgL__ortest_1166z00_4566;

				BgL__ortest_1166z00_4566 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
								((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_3957)))->BgL_mutexz00),
					((BgL_ev_varz00_bglt) BgL_vz00_3958));
				if (CBOOL(BgL__ortest_1166z00_4566))
					{	/* Eval/evaluate_fsize.scm 536 */
						return BgL__ortest_1166z00_4566;
					}
				else
					{	/* Eval/evaluate_fsize.scm 536 */
						obj_t BgL__ortest_1167z00_4567;

						BgL__ortest_1167z00_4567 =
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
										((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_3957)))->
								BgL_prelockz00), ((BgL_ev_varz00_bglt) BgL_vz00_3958));
						if (CBOOL(BgL__ortest_1167z00_4567))
							{	/* Eval/evaluate_fsize.scm 536 */
								return BgL__ortest_1167z00_4567;
							}
						else
							{	/* Eval/evaluate_fsize.scm 536 */
								return
									BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
									(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
												((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_3957)))->
										BgL_bodyz00), ((BgL_ev_varz00_bglt) BgL_vz00_3958));
							}
					}
			}
		}

	}



/* &hasvar?-ev_with-hand1456 */
	obj_t BGl_z62hasvarzf3zd2ev_withzd2hand1456z91zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3959, obj_t BgL_ez00_3960, obj_t BgL_vz00_3961)
	{
		{	/* Eval/evaluate_fsize.scm 530 */
			{	/* Eval/evaluate_fsize.scm 532 */
				obj_t BgL__ortest_1164z00_4570;

				BgL__ortest_1164z00_4570 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
								((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_3960)))->
						BgL_handlerz00), ((BgL_ev_varz00_bglt) BgL_vz00_3961));
				if (CBOOL(BgL__ortest_1164z00_4570))
					{	/* Eval/evaluate_fsize.scm 532 */
						return BgL__ortest_1164z00_4570;
					}
				else
					{	/* Eval/evaluate_fsize.scm 532 */
						return
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
										((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_3960)))->
								BgL_bodyz00), ((BgL_ev_varz00_bglt) BgL_vz00_3961));
					}
			}
		}

	}



/* &hasvar?-ev_unwind-pr1453 */
	obj_t BGl_z62hasvarzf3zd2ev_unwindzd2pr1453z91zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3962, obj_t BgL_ez00_3963, obj_t BgL_vz00_3964)
	{
		{	/* Eval/evaluate_fsize.scm 526 */
			{	/* Eval/evaluate_fsize.scm 528 */
				obj_t BgL__ortest_1162z00_4573;

				BgL__ortest_1162z00_4573 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
								((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_3963)))->BgL_ez00),
					((BgL_ev_varz00_bglt) BgL_vz00_3964));
				if (CBOOL(BgL__ortest_1162z00_4573))
					{	/* Eval/evaluate_fsize.scm 528 */
						return BgL__ortest_1162z00_4573;
					}
				else
					{	/* Eval/evaluate_fsize.scm 528 */
						return
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
										((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_3963)))->
								BgL_bodyz00), ((BgL_ev_varz00_bglt) BgL_vz00_3964));
					}
			}
		}

	}



/* &hasvar?-ev_bind-exit1451 */
	obj_t BGl_z62hasvarzf3zd2ev_bindzd2exit1451z91zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3965, obj_t BgL_ez00_3966, obj_t BgL_vz00_3967)
	{
		{	/* Eval/evaluate_fsize.scm 522 */
			return
				BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
				(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
							((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_3966)))->BgL_bodyz00),
				((BgL_ev_varz00_bglt) BgL_vz00_3967));
		}

	}



/* &hasvar?-ev_setlocal1449 */
	obj_t BGl_z62hasvarzf3zd2ev_setlocal1449z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3968, obj_t BgL_ez00_3969, obj_t BgL_varz00_3970)
	{
		{	/* Eval/evaluate_fsize.scm 518 */
			{	/* Eval/evaluate_fsize.scm 520 */
				bool_t BgL__ortest_1159z00_4578;

				BgL__ortest_1159z00_4578 =
					(
					((obj_t)
						(((BgL_ev_setlocalz00_bglt) COBJECT(
									((BgL_ev_setlocalz00_bglt) BgL_ez00_3969)))->BgL_vz00)) ==
					((obj_t) ((BgL_ev_varz00_bglt) BgL_varz00_3970)));
				if (BgL__ortest_1159z00_4578)
					{	/* Eval/evaluate_fsize.scm 520 */
						return BBOOL(BgL__ortest_1159z00_4578);
					}
				else
					{	/* Eval/evaluate_fsize.scm 520 */
						BgL_ev_exprz00_bglt BgL_arg1856z00_4579;

						BgL_arg1856z00_4579 =
							(((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt)
										((BgL_ev_setlocalz00_bglt) BgL_ez00_3969))))->BgL_ez00);
						return
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_arg1856z00_4579,
							((BgL_ev_varz00_bglt) BgL_varz00_3970));
					}
			}
		}

	}



/* &hasvar?-ev_hook1447 */
	obj_t BGl_z62hasvarzf3zd2ev_hook1447z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3971, obj_t BgL_ez00_3972, obj_t BgL_vz00_3973)
	{
		{	/* Eval/evaluate_fsize.scm 514 */
			return
				BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
				(((BgL_ev_hookz00_bglt) COBJECT(
							((BgL_ev_hookz00_bglt) BgL_ez00_3972)))->BgL_ez00),
				((BgL_ev_varz00_bglt) BgL_vz00_3973));
		}

	}



/* &hasvar?-ev_prog21445 */
	obj_t BGl_z62hasvarzf3zd2ev_prog21445z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3974, obj_t BgL_ez00_3975, obj_t BgL_vz00_3976)
	{
		{	/* Eval/evaluate_fsize.scm 510 */
			{	/* Eval/evaluate_fsize.scm 512 */
				obj_t BgL__ortest_1156z00_4584;

				BgL__ortest_1156z00_4584 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_prog2z00_bglt) COBJECT(
								((BgL_ev_prog2z00_bglt) BgL_ez00_3975)))->BgL_e1z00),
					((BgL_ev_varz00_bglt) BgL_vz00_3976));
				if (CBOOL(BgL__ortest_1156z00_4584))
					{	/* Eval/evaluate_fsize.scm 512 */
						return BgL__ortest_1156z00_4584;
					}
				else
					{	/* Eval/evaluate_fsize.scm 512 */
						return
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_prog2z00_bglt) COBJECT(
										((BgL_ev_prog2z00_bglt) BgL_ez00_3975)))->BgL_e2z00),
							((BgL_ev_varz00_bglt) BgL_vz00_3976));
					}
			}
		}

	}



/* &hasvar?-ev_list1443 */
	obj_t BGl_z62hasvarzf3zd2ev_list1443z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3977, obj_t BgL_ez00_3978, obj_t BgL_vz00_3979)
	{
		{	/* Eval/evaluate_fsize.scm 506 */
			{	/* Eval/evaluate_fsize.scm 508 */
				obj_t BgL_g1254z00_4587;

				BgL_g1254z00_4587 =
					(((BgL_ev_listz00_bglt) COBJECT(
							((BgL_ev_listz00_bglt) BgL_ez00_3978)))->BgL_argsz00);
				{
					obj_t BgL_l1252z00_4589;

					BgL_l1252z00_4589 = BgL_g1254z00_4587;
				BgL_zc3z04anonymousza31849ze3z87_4588:
					if (NULLP(BgL_l1252z00_4589))
						{	/* Eval/evaluate_fsize.scm 508 */
							return BFALSE;
						}
					else
						{	/* Eval/evaluate_fsize.scm 508 */
							obj_t BgL__ortest_1255z00_4590;

							{	/* Eval/evaluate_fsize.scm 508 */
								obj_t BgL_az00_4591;

								BgL_az00_4591 = CAR(((obj_t) BgL_l1252z00_4589));
								BgL__ortest_1255z00_4590 =
									BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
									((BgL_ev_exprz00_bglt) BgL_az00_4591),
									((BgL_ev_varz00_bglt) BgL_vz00_3979));
							}
							if (CBOOL(BgL__ortest_1255z00_4590))
								{	/* Eval/evaluate_fsize.scm 508 */
									return BgL__ortest_1255z00_4590;
								}
							else
								{	/* Eval/evaluate_fsize.scm 508 */
									obj_t BgL_arg1851z00_4592;

									BgL_arg1851z00_4592 = CDR(((obj_t) BgL_l1252z00_4589));
									{
										obj_t BgL_l1252z00_5730;

										BgL_l1252z00_5730 = BgL_arg1851z00_4592;
										BgL_l1252z00_4589 = BgL_l1252z00_5730;
										goto BgL_zc3z04anonymousza31849ze3z87_4588;
									}
								}
						}
				}
			}
		}

	}



/* &hasvar?-ev_if1441 */
	obj_t BGl_z62hasvarzf3zd2ev_if1441z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3980, obj_t BgL_ez00_3981, obj_t BgL_vz00_3982)
	{
		{	/* Eval/evaluate_fsize.scm 502 */
			{	/* Eval/evaluate_fsize.scm 504 */
				obj_t BgL__ortest_1152z00_4595;

				BgL__ortest_1152z00_4595 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_ifz00_bglt) COBJECT(
								((BgL_ev_ifz00_bglt) BgL_ez00_3981)))->BgL_pz00),
					((BgL_ev_varz00_bglt) BgL_vz00_3982));
				if (CBOOL(BgL__ortest_1152z00_4595))
					{	/* Eval/evaluate_fsize.scm 504 */
						return BgL__ortest_1152z00_4595;
					}
				else
					{	/* Eval/evaluate_fsize.scm 504 */
						obj_t BgL__ortest_1153z00_4596;

						BgL__ortest_1153z00_4596 =
							BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
							(((BgL_ev_ifz00_bglt) COBJECT(
										((BgL_ev_ifz00_bglt) BgL_ez00_3981)))->BgL_tz00),
							((BgL_ev_varz00_bglt) BgL_vz00_3982));
						if (CBOOL(BgL__ortest_1153z00_4596))
							{	/* Eval/evaluate_fsize.scm 504 */
								return BgL__ortest_1153z00_4596;
							}
						else
							{	/* Eval/evaluate_fsize.scm 504 */
								return
									BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
									(((BgL_ev_ifz00_bglt) COBJECT(
												((BgL_ev_ifz00_bglt) BgL_ez00_3981)))->BgL_ez00),
									((BgL_ev_varz00_bglt) BgL_vz00_3982));
							}
					}
			}
		}

	}



/* &hasvar?-ev_litt1439 */
	obj_t BGl_z62hasvarzf3zd2ev_litt1439z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3983, obj_t BgL_ez00_3984, obj_t BgL_vz00_3985)
	{
		{	/* Eval/evaluate_fsize.scm 499 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &hasvar?-ev_global1437 */
	obj_t BGl_z62hasvarzf3zd2ev_global1437z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3986, obj_t BgL_ez00_3987, obj_t BgL_vz00_3988)
	{
		{	/* Eval/evaluate_fsize.scm 496 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &hasvar?-ev_var1435 */
	obj_t BGl_z62hasvarzf3zd2ev_var1435z43zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3989, obj_t BgL_ez00_3990, obj_t BgL_vz00_3991)
	{
		{	/* Eval/evaluate_fsize.scm 493 */
			return
				BBOOL(
				(((obj_t)
						((BgL_ev_varz00_bglt) BgL_ez00_3990)) ==
					((obj_t) ((BgL_ev_varz00_bglt) BgL_vz00_3991))));
		}

	}



/* &tailpos-ev_abs1430 */
	obj_t BGl_z62tailposzd2ev_abs1430zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3992, obj_t BgL_ez00_3993, obj_t BgL_vz00_3994)
	{
		{	/* Eval/evaluate_fsize.scm 485 */
			{	/* Eval/evaluate_fsize.scm 486 */
				bool_t BgL_tmpz00_5755;

				{	/* Eval/evaluate_fsize.scm 487 */
					bool_t BgL_test2583z00_5756;

					{	/* Eval/evaluate_fsize.scm 487 */
						BgL_ev_exprz00_bglt BgL_arg1845z00_4605;

						BgL_arg1845z00_4605 =
							(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_3993)))->BgL_bodyz00);
						BgL_test2583z00_5756 =
							CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_arg1845z00_4605,
								((BgL_ev_varz00_bglt) BgL_vz00_3994)));
					}
					if (BgL_test2583z00_5756)
						{	/* Eval/evaluate_fsize.scm 487 */
							BgL_tmpz00_5755 = ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 487 */
							BgL_tmpz00_5755 = ((bool_t) 1);
						}
				}
				return BBOOL(BgL_tmpz00_5755);
			}
		}

	}



/* &tailpos-ev_app1428 */
	obj_t BGl_z62tailposzd2ev_app1428zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3995, obj_t BgL_ez00_3996, obj_t BgL_vz00_3997)
	{
		{	/* Eval/evaluate_fsize.scm 479 */
			{	/* Eval/evaluate_fsize.scm 480 */
				bool_t BgL_tmpz00_5763;

				{	/* Eval/evaluate_fsize.scm 481 */
					bool_t BgL_test2584z00_5764;

					{	/* Eval/evaluate_fsize.scm 481 */
						obj_t BgL_g1250z00_4608;

						BgL_g1250z00_4608 =
							(((BgL_ev_appz00_bglt) COBJECT(
									((BgL_ev_appz00_bglt) BgL_ez00_3996)))->BgL_argsz00);
						{
							obj_t BgL_l1248z00_4610;

							BgL_l1248z00_4610 = BgL_g1250z00_4608;
						BgL_zc3z04anonymousza31838ze3z87_4609:
							if (NULLP(BgL_l1248z00_4610))
								{	/* Eval/evaluate_fsize.scm 481 */
									BgL_test2584z00_5764 = ((bool_t) 1);
								}
							else
								{	/* Eval/evaluate_fsize.scm 481 */
									bool_t BgL_test2586z00_5769;

									if (CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
												((BgL_ev_exprz00_bglt)
													CAR(
														((obj_t) BgL_l1248z00_4610))),
												((BgL_ev_varz00_bglt) BgL_vz00_3997))))
										{	/* Eval/evaluate_fsize.scm 481 */
											BgL_test2586z00_5769 = ((bool_t) 0);
										}
									else
										{	/* Eval/evaluate_fsize.scm 481 */
											BgL_test2586z00_5769 = ((bool_t) 1);
										}
									if (BgL_test2586z00_5769)
										{	/* Eval/evaluate_fsize.scm 481 */
											obj_t BgL_arg1840z00_4611;

											BgL_arg1840z00_4611 = CDR(((obj_t) BgL_l1248z00_4610));
											{
												obj_t BgL_l1248z00_5779;

												BgL_l1248z00_5779 = BgL_arg1840z00_4611;
												BgL_l1248z00_4610 = BgL_l1248z00_5779;
												goto BgL_zc3z04anonymousza31838ze3z87_4609;
											}
										}
									else
										{	/* Eval/evaluate_fsize.scm 481 */
											BgL_test2584z00_5764 = ((bool_t) 0);
										}
								}
						}
					}
					if (BgL_test2584z00_5764)
						{	/* Eval/evaluate_fsize.scm 482 */
							bool_t BgL__ortest_1149z00_4612;

							BgL__ortest_1149z00_4612 =
								(
								((obj_t)
									(((BgL_ev_appz00_bglt) COBJECT(
												((BgL_ev_appz00_bglt) BgL_ez00_3996)))->BgL_funz00)) ==
								((obj_t) ((BgL_ev_varz00_bglt) BgL_vz00_3997)));
							if (BgL__ortest_1149z00_4612)
								{	/* Eval/evaluate_fsize.scm 482 */
									BgL_tmpz00_5763 = BgL__ortest_1149z00_4612;
								}
							else
								{	/* Eval/evaluate_fsize.scm 483 */
									bool_t BgL_test2589z00_5787;

									{	/* Eval/evaluate_fsize.scm 483 */
										BgL_ev_exprz00_bglt BgL_arg1836z00_4613;

										BgL_arg1836z00_4613 =
											(((BgL_ev_appz00_bglt) COBJECT(
													((BgL_ev_appz00_bglt) BgL_ez00_3996)))->BgL_funz00);
										BgL_test2589z00_5787 =
											CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7
											(BgL_arg1836z00_4613,
												((BgL_ev_varz00_bglt) BgL_vz00_3997)));
									}
									if (BgL_test2589z00_5787)
										{	/* Eval/evaluate_fsize.scm 483 */
											BgL_tmpz00_5763 = ((bool_t) 0);
										}
									else
										{	/* Eval/evaluate_fsize.scm 483 */
											BgL_tmpz00_5763 = ((bool_t) 1);
										}
								}
						}
					else
						{	/* Eval/evaluate_fsize.scm 481 */
							BgL_tmpz00_5763 = ((bool_t) 0);
						}
				}
				return BBOOL(BgL_tmpz00_5763);
			}
		}

	}



/* &tailpos-ev_goto1426 */
	obj_t BGl_z62tailposzd2ev_goto1426zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_3998, obj_t BgL_ez00_3999, obj_t BgL_vz00_4000)
	{
		{	/* Eval/evaluate_fsize.scm 475 */
			{	/* Eval/evaluate_fsize.scm 476 */
				bool_t BgL_tmpz00_5794;

				{	/* Eval/evaluate_fsize.scm 477 */
					obj_t BgL_g1246z00_4616;

					BgL_g1246z00_4616 =
						(((BgL_ev_gotoz00_bglt) COBJECT(
								((BgL_ev_gotoz00_bglt) BgL_ez00_3999)))->BgL_argsz00);
					{
						obj_t BgL_l1244z00_4618;

						BgL_l1244z00_4618 = BgL_g1246z00_4616;
					BgL_zc3z04anonymousza31829ze3z87_4617:
						if (NULLP(BgL_l1244z00_4618))
							{	/* Eval/evaluate_fsize.scm 477 */
								BgL_tmpz00_5794 = ((bool_t) 1);
							}
						else
							{	/* Eval/evaluate_fsize.scm 477 */
								bool_t BgL_test2591z00_5799;

								if (CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt)
												CAR(
													((obj_t) BgL_l1244z00_4618))),
											((BgL_ev_varz00_bglt) BgL_vz00_4000))))
									{	/* Eval/evaluate_fsize.scm 477 */
										BgL_test2591z00_5799 = ((bool_t) 0);
									}
								else
									{	/* Eval/evaluate_fsize.scm 477 */
										BgL_test2591z00_5799 = ((bool_t) 1);
									}
								if (BgL_test2591z00_5799)
									{	/* Eval/evaluate_fsize.scm 477 */
										obj_t BgL_arg1832z00_4619;

										BgL_arg1832z00_4619 = CDR(((obj_t) BgL_l1244z00_4618));
										{
											obj_t BgL_l1244z00_5809;

											BgL_l1244z00_5809 = BgL_arg1832z00_4619;
											BgL_l1244z00_4618 = BgL_l1244z00_5809;
											goto BgL_zc3z04anonymousza31829ze3z87_4617;
										}
									}
								else
									{	/* Eval/evaluate_fsize.scm 477 */
										BgL_tmpz00_5794 = ((bool_t) 0);
									}
							}
					}
				}
				return BBOOL(BgL_tmpz00_5794);
			}
		}

	}



/* &tailpos-ev_labels1424 */
	obj_t BGl_z62tailposzd2ev_labels1424zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4001, obj_t BgL_ez00_4002, obj_t BgL_vz00_4003)
	{
		{	/* Eval/evaluate_fsize.scm 470 */
			{	/* Eval/evaluate_fsize.scm 472 */
				bool_t BgL_test2593z00_5811;

				{	/* Eval/evaluate_fsize.scm 472 */
					obj_t BgL_g1242z00_4622;

					BgL_g1242z00_4622 =
						(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_4002)))->BgL_valsz00);
					{
						obj_t BgL_l1240z00_4624;

						BgL_l1240z00_4624 = BgL_g1242z00_4622;
					BgL_zc3z04anonymousza31825ze3z87_4623:
						if (NULLP(BgL_l1240z00_4624))
							{	/* Eval/evaluate_fsize.scm 472 */
								BgL_test2593z00_5811 = ((bool_t) 1);
							}
						else
							{	/* Eval/evaluate_fsize.scm 472 */
								obj_t BgL_nvz00_4625;

								{	/* Eval/evaluate_fsize.scm 472 */
									obj_t BgL_ez00_4626;

									BgL_ez00_4626 = CAR(((obj_t) BgL_l1240z00_4624));
									{	/* Eval/evaluate_fsize.scm 472 */
										obj_t BgL_arg1828z00_4627;

										BgL_arg1828z00_4627 = CDR(((obj_t) BgL_ez00_4626));
										BgL_nvz00_4625 =
											BGl_tailposz00zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1828z00_4627),
											((BgL_ev_varz00_bglt) BgL_vz00_4003));
									}
								}
								if (CBOOL(BgL_nvz00_4625))
									{	/* Eval/evaluate_fsize.scm 472 */
										obj_t BgL_arg1827z00_4628;

										BgL_arg1827z00_4628 = CDR(((obj_t) BgL_l1240z00_4624));
										{
											obj_t BgL_l1240z00_5827;

											BgL_l1240z00_5827 = BgL_arg1827z00_4628;
											BgL_l1240z00_4624 = BgL_l1240z00_5827;
											goto BgL_zc3z04anonymousza31825ze3z87_4623;
										}
									}
								else
									{	/* Eval/evaluate_fsize.scm 472 */
										BgL_test2593z00_5811 = ((bool_t) 0);
									}
							}
					}
				}
				if (BgL_test2593z00_5811)
					{	/* Eval/evaluate_fsize.scm 472 */
						return
							BGl_tailposz00zz__evaluate_fsiza7eza7(
							(((BgL_ev_labelsz00_bglt) COBJECT(
										((BgL_ev_labelsz00_bglt) BgL_ez00_4002)))->BgL_bodyz00),
							((BgL_ev_varz00_bglt) BgL_vz00_4003));
					}
				else
					{	/* Eval/evaluate_fsize.scm 472 */
						return BFALSE;
					}
			}
		}

	}



/* &tailpos-ev_letrec1422 */
	obj_t BGl_z62tailposzd2ev_letrec1422zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4004, obj_t BgL_ez00_4005, obj_t BgL_vz00_4006)
	{
		{	/* Eval/evaluate_fsize.scm 465 */
			{	/* Eval/evaluate_fsize.scm 467 */
				bool_t BgL_test2596z00_5832;

				{	/* Eval/evaluate_fsize.scm 467 */
					obj_t BgL_g1238z00_4631;

					BgL_g1238z00_4631 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letrecz00_bglt) BgL_ez00_4005))))->BgL_valsz00);
					{
						obj_t BgL_l1236z00_4633;

						BgL_l1236z00_4633 = BgL_g1238z00_4631;
					BgL_zc3z04anonymousza31819ze3z87_4632:
						if (NULLP(BgL_l1236z00_4633))
							{	/* Eval/evaluate_fsize.scm 467 */
								BgL_test2596z00_5832 = ((bool_t) 1);
							}
						else
							{	/* Eval/evaluate_fsize.scm 467 */
								bool_t BgL_test2598z00_5838;

								if (CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt)
												CAR(
													((obj_t) BgL_l1236z00_4633))),
											((BgL_ev_varz00_bglt) BgL_vz00_4006))))
									{	/* Eval/evaluate_fsize.scm 467 */
										BgL_test2598z00_5838 = ((bool_t) 0);
									}
								else
									{	/* Eval/evaluate_fsize.scm 467 */
										BgL_test2598z00_5838 = ((bool_t) 1);
									}
								if (BgL_test2598z00_5838)
									{	/* Eval/evaluate_fsize.scm 467 */
										obj_t BgL_arg1821z00_4634;

										BgL_arg1821z00_4634 = CDR(((obj_t) BgL_l1236z00_4633));
										{
											obj_t BgL_l1236z00_5848;

											BgL_l1236z00_5848 = BgL_arg1821z00_4634;
											BgL_l1236z00_4633 = BgL_l1236z00_5848;
											goto BgL_zc3z04anonymousza31819ze3z87_4632;
										}
									}
								else
									{	/* Eval/evaluate_fsize.scm 467 */
										BgL_test2596z00_5832 = ((bool_t) 0);
									}
							}
					}
				}
				if (BgL_test2596z00_5832)
					{	/* Eval/evaluate_fsize.scm 468 */
						BgL_ev_exprz00_bglt BgL_arg1818z00_4635;

						BgL_arg1818z00_4635 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_4005))))->BgL_bodyz00);
						return
							BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_arg1818z00_4635,
							((BgL_ev_varz00_bglt) BgL_vz00_4006));
					}
				else
					{	/* Eval/evaluate_fsize.scm 467 */
						return BFALSE;
					}
			}
		}

	}



/* &tailpos-ev_let*1420 */
	obj_t BGl_z62tailposzd2ev_letza21420z12zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4007, obj_t BgL_ez00_4008, obj_t BgL_vz00_4009)
	{
		{	/* Eval/evaluate_fsize.scm 460 */
			{	/* Eval/evaluate_fsize.scm 462 */
				bool_t BgL_test2600z00_5854;

				{	/* Eval/evaluate_fsize.scm 462 */
					obj_t BgL_g1234z00_4638;

					BgL_g1234z00_4638 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_4008))))->BgL_valsz00);
					{
						obj_t BgL_l1232z00_4640;

						BgL_l1232z00_4640 = BgL_g1234z00_4638;
					BgL_zc3z04anonymousza31814ze3z87_4639:
						if (NULLP(BgL_l1232z00_4640))
							{	/* Eval/evaluate_fsize.scm 462 */
								BgL_test2600z00_5854 = ((bool_t) 1);
							}
						else
							{	/* Eval/evaluate_fsize.scm 462 */
								bool_t BgL_test2602z00_5860;

								if (CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt)
												CAR(
													((obj_t) BgL_l1232z00_4640))),
											((BgL_ev_varz00_bglt) BgL_vz00_4009))))
									{	/* Eval/evaluate_fsize.scm 462 */
										BgL_test2602z00_5860 = ((bool_t) 0);
									}
								else
									{	/* Eval/evaluate_fsize.scm 462 */
										BgL_test2602z00_5860 = ((bool_t) 1);
									}
								if (BgL_test2602z00_5860)
									{	/* Eval/evaluate_fsize.scm 462 */
										obj_t BgL_arg1816z00_4641;

										BgL_arg1816z00_4641 = CDR(((obj_t) BgL_l1232z00_4640));
										{
											obj_t BgL_l1232z00_5870;

											BgL_l1232z00_5870 = BgL_arg1816z00_4641;
											BgL_l1232z00_4640 = BgL_l1232z00_5870;
											goto BgL_zc3z04anonymousza31814ze3z87_4639;
										}
									}
								else
									{	/* Eval/evaluate_fsize.scm 462 */
										BgL_test2600z00_5854 = ((bool_t) 0);
									}
							}
					}
				}
				if (BgL_test2600z00_5854)
					{	/* Eval/evaluate_fsize.scm 463 */
						BgL_ev_exprz00_bglt BgL_arg1813z00_4642;

						BgL_arg1813z00_4642 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letza2za2_bglt) BgL_ez00_4008))))->BgL_bodyz00);
						return
							BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_arg1813z00_4642,
							((BgL_ev_varz00_bglt) BgL_vz00_4009));
					}
				else
					{	/* Eval/evaluate_fsize.scm 462 */
						return BFALSE;
					}
			}
		}

	}



/* &tailpos-ev_let1418 */
	obj_t BGl_z62tailposzd2ev_let1418zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4010, obj_t BgL_ez00_4011, obj_t BgL_vz00_4012)
	{
		{	/* Eval/evaluate_fsize.scm 455 */
			{	/* Eval/evaluate_fsize.scm 457 */
				bool_t BgL_test2604z00_5876;

				{	/* Eval/evaluate_fsize.scm 457 */
					obj_t BgL_g1230z00_4645;

					BgL_g1230z00_4645 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letz00_bglt) BgL_ez00_4011))))->BgL_valsz00);
					{
						obj_t BgL_l1228z00_4647;

						BgL_l1228z00_4647 = BgL_g1230z00_4645;
					BgL_zc3z04anonymousza31808ze3z87_4646:
						if (NULLP(BgL_l1228z00_4647))
							{	/* Eval/evaluate_fsize.scm 457 */
								BgL_test2604z00_5876 = ((bool_t) 1);
							}
						else
							{	/* Eval/evaluate_fsize.scm 457 */
								bool_t BgL_test2606z00_5882;

								if (CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt)
												CAR(
													((obj_t) BgL_l1228z00_4647))),
											((BgL_ev_varz00_bglt) BgL_vz00_4012))))
									{	/* Eval/evaluate_fsize.scm 457 */
										BgL_test2606z00_5882 = ((bool_t) 0);
									}
								else
									{	/* Eval/evaluate_fsize.scm 457 */
										BgL_test2606z00_5882 = ((bool_t) 1);
									}
								if (BgL_test2606z00_5882)
									{	/* Eval/evaluate_fsize.scm 457 */
										obj_t BgL_arg1811z00_4648;

										BgL_arg1811z00_4648 = CDR(((obj_t) BgL_l1228z00_4647));
										{
											obj_t BgL_l1228z00_5892;

											BgL_l1228z00_5892 = BgL_arg1811z00_4648;
											BgL_l1228z00_4647 = BgL_l1228z00_5892;
											goto BgL_zc3z04anonymousza31808ze3z87_4646;
										}
									}
								else
									{	/* Eval/evaluate_fsize.scm 457 */
										BgL_test2604z00_5876 = ((bool_t) 0);
									}
							}
					}
				}
				if (BgL_test2604z00_5876)
					{	/* Eval/evaluate_fsize.scm 458 */
						BgL_ev_exprz00_bglt BgL_arg1807z00_4649;

						BgL_arg1807z00_4649 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letz00_bglt) BgL_ez00_4011))))->BgL_bodyz00);
						return
							BGl_tailposz00zz__evaluate_fsiza7eza7(BgL_arg1807z00_4649,
							((BgL_ev_varz00_bglt) BgL_vz00_4012));
					}
				else
					{	/* Eval/evaluate_fsize.scm 457 */
						return BFALSE;
					}
			}
		}

	}



/* &tailpos-ev_synchroni1416 */
	obj_t BGl_z62tailposzd2ev_synchroni1416zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4013, obj_t BgL_ez00_4014, obj_t BgL_vz00_4015)
	{
		{	/* Eval/evaluate_fsize.scm 451 */
			{	/* Eval/evaluate_fsize.scm 452 */
				bool_t BgL_tmpz00_5898;

				{	/* Eval/evaluate_fsize.scm 453 */
					obj_t BgL__andtest_1136z00_4652;

					BgL__andtest_1136z00_4652 =
						BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
						(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4014)))->
							BgL_mutexz00), ((BgL_ev_varz00_bglt) BgL_vz00_4015));
					if (CBOOL(BgL__andtest_1136z00_4652))
						{	/* Eval/evaluate_fsize.scm 453 */
							BgL_tmpz00_5898 = ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 453 */
							obj_t BgL__andtest_1137z00_4653;

							BgL__andtest_1137z00_4653 =
								BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
								(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
											((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4014)))->
									BgL_prelockz00), ((BgL_ev_varz00_bglt) BgL_vz00_4015));
							if (CBOOL(BgL__andtest_1137z00_4653))
								{	/* Eval/evaluate_fsize.scm 453 */
									BgL_tmpz00_5898 = ((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_fsize.scm 453 */
									bool_t BgL_test2610z00_5911;

									{	/* Eval/evaluate_fsize.scm 453 */
										BgL_ev_exprz00_bglt BgL_arg1803z00_4654;

										BgL_arg1803z00_4654 =
											(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
													((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4014)))->
											BgL_bodyz00);
										BgL_test2610z00_5911 =
											CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7
											(BgL_arg1803z00_4654,
												((BgL_ev_varz00_bglt) BgL_vz00_4015)));
									}
									if (BgL_test2610z00_5911)
										{	/* Eval/evaluate_fsize.scm 453 */
											BgL_tmpz00_5898 = ((bool_t) 0);
										}
									else
										{	/* Eval/evaluate_fsize.scm 453 */
											BgL_tmpz00_5898 = ((bool_t) 1);
										}
								}
						}
				}
				return BBOOL(BgL_tmpz00_5898);
			}
		}

	}



/* &tailpos-ev_with-hand1414 */
	obj_t BGl_z62tailposzd2ev_withzd2hand1414z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4016, obj_t BgL_ez00_4017, obj_t BgL_vz00_4018)
	{
		{	/* Eval/evaluate_fsize.scm 447 */
			{	/* Eval/evaluate_fsize.scm 448 */
				bool_t BgL_tmpz00_5918;

				{	/* Eval/evaluate_fsize.scm 449 */
					obj_t BgL__andtest_1134z00_4657;

					BgL__andtest_1134z00_4657 =
						BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
						(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4017)))->
							BgL_handlerz00), ((BgL_ev_varz00_bglt) BgL_vz00_4018));
					if (CBOOL(BgL__andtest_1134z00_4657))
						{	/* Eval/evaluate_fsize.scm 449 */
							BgL_tmpz00_5918 = ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 449 */
							bool_t BgL_test2612z00_5925;

							{	/* Eval/evaluate_fsize.scm 449 */
								BgL_ev_exprz00_bglt BgL_arg1798z00_4658;

								BgL_arg1798z00_4658 =
									(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
											((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4017)))->
									BgL_bodyz00);
								BgL_test2612z00_5925 =
									CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7
									(BgL_arg1798z00_4658, ((BgL_ev_varz00_bglt) BgL_vz00_4018)));
							}
							if (BgL_test2612z00_5925)
								{	/* Eval/evaluate_fsize.scm 449 */
									BgL_tmpz00_5918 = ((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_fsize.scm 449 */
									BgL_tmpz00_5918 = ((bool_t) 1);
								}
						}
				}
				return BBOOL(BgL_tmpz00_5918);
			}
		}

	}



/* &tailpos-ev_unwind-pr1412 */
	obj_t BGl_z62tailposzd2ev_unwindzd2pr1412z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4019, obj_t BgL_ez00_4020, obj_t BgL_vz00_4021)
	{
		{	/* Eval/evaluate_fsize.scm 443 */
			{	/* Eval/evaluate_fsize.scm 444 */
				bool_t BgL_tmpz00_5932;

				{	/* Eval/evaluate_fsize.scm 445 */
					obj_t BgL__andtest_1132z00_4661;

					BgL__andtest_1132z00_4661 =
						BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
						(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_4020)))->
							BgL_ez00), ((BgL_ev_varz00_bglt) BgL_vz00_4021));
					if (CBOOL(BgL__andtest_1132z00_4661))
						{	/* Eval/evaluate_fsize.scm 445 */
							BgL_tmpz00_5932 = ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 445 */
							bool_t BgL_test2614z00_5939;

							{	/* Eval/evaluate_fsize.scm 445 */
								BgL_ev_exprz00_bglt BgL_arg1794z00_4662;

								BgL_arg1794z00_4662 =
									(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
											((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_4020)))->
									BgL_bodyz00);
								BgL_test2614z00_5939 =
									CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7
									(BgL_arg1794z00_4662, ((BgL_ev_varz00_bglt) BgL_vz00_4021)));
							}
							if (BgL_test2614z00_5939)
								{	/* Eval/evaluate_fsize.scm 445 */
									BgL_tmpz00_5932 = ((bool_t) 0);
								}
							else
								{	/* Eval/evaluate_fsize.scm 445 */
									BgL_tmpz00_5932 = ((bool_t) 1);
								}
						}
				}
				return BBOOL(BgL_tmpz00_5932);
			}
		}

	}



/* &tailpos-ev_bind-exit1410 */
	obj_t BGl_z62tailposzd2ev_bindzd2exit1410z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4022, obj_t BgL_ez00_4023, obj_t BgL_vz00_4024)
	{
		{	/* Eval/evaluate_fsize.scm 439 */
			{	/* Eval/evaluate_fsize.scm 440 */
				bool_t BgL_tmpz00_5946;

				{	/* Eval/evaluate_fsize.scm 441 */
					bool_t BgL_test2615z00_5947;

					{	/* Eval/evaluate_fsize.scm 441 */
						BgL_ev_exprz00_bglt BgL_arg1791z00_4665;

						BgL_arg1791z00_4665 =
							(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4023)))->BgL_bodyz00);
						BgL_test2615z00_5947 =
							CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_arg1791z00_4665,
								((BgL_ev_varz00_bglt) BgL_vz00_4024)));
					}
					if (BgL_test2615z00_5947)
						{	/* Eval/evaluate_fsize.scm 441 */
							BgL_tmpz00_5946 = ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 441 */
							BgL_tmpz00_5946 = ((bool_t) 1);
						}
				}
				return BBOOL(BgL_tmpz00_5946);
			}
		}

	}



/* &tailpos-ev_setlocal1407 */
	obj_t BGl_z62tailposzd2ev_setlocal1407zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4025, obj_t BgL_ez00_4026, obj_t BgL_varz00_4027)
	{
		{	/* Eval/evaluate_fsize.scm 435 */
			{	/* Eval/evaluate_fsize.scm 436 */
				bool_t BgL_tmpz00_5954;

				if (
					(((obj_t)
							(((BgL_ev_setlocalz00_bglt) COBJECT(
										((BgL_ev_setlocalz00_bglt) BgL_ez00_4026)))->BgL_vz00)) ==
						((obj_t) ((BgL_ev_varz00_bglt) BgL_varz00_4027))))
					{	/* Eval/evaluate_fsize.scm 437 */
						BgL_tmpz00_5954 = ((bool_t) 0);
					}
				else
					{	/* Eval/evaluate_fsize.scm 437 */
						bool_t BgL_test2617z00_5962;

						{	/* Eval/evaluate_fsize.scm 437 */
							BgL_ev_exprz00_bglt BgL_arg1787z00_4668;

							BgL_arg1787z00_4668 =
								(((BgL_ev_hookz00_bglt) COBJECT(
										((BgL_ev_hookz00_bglt)
											((BgL_ev_setlocalz00_bglt) BgL_ez00_4026))))->BgL_ez00);
							BgL_test2617z00_5962 =
								CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7
								(BgL_arg1787z00_4668, ((BgL_ev_varz00_bglt) BgL_varz00_4027)));
						}
						if (BgL_test2617z00_5962)
							{	/* Eval/evaluate_fsize.scm 437 */
								BgL_tmpz00_5954 = ((bool_t) 0);
							}
						else
							{	/* Eval/evaluate_fsize.scm 437 */
								BgL_tmpz00_5954 = ((bool_t) 1);
							}
					}
				return BBOOL(BgL_tmpz00_5954);
			}
		}

	}



/* &tailpos-ev_hook1405 */
	obj_t BGl_z62tailposzd2ev_hook1405zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4028, obj_t BgL_ez00_4029, obj_t BgL_vz00_4030)
	{
		{	/* Eval/evaluate_fsize.scm 431 */
			{	/* Eval/evaluate_fsize.scm 432 */
				bool_t BgL_tmpz00_5970;

				{	/* Eval/evaluate_fsize.scm 433 */
					bool_t BgL_test2618z00_5971;

					{	/* Eval/evaluate_fsize.scm 433 */
						BgL_ev_exprz00_bglt BgL_arg1784z00_4671;

						BgL_arg1784z00_4671 =
							(((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt) BgL_ez00_4029)))->BgL_ez00);
						BgL_test2618z00_5971 =
							CBOOL(BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(BgL_arg1784z00_4671,
								((BgL_ev_varz00_bglt) BgL_vz00_4030)));
					}
					if (BgL_test2618z00_5971)
						{	/* Eval/evaluate_fsize.scm 433 */
							BgL_tmpz00_5970 = ((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 433 */
							BgL_tmpz00_5970 = ((bool_t) 1);
						}
				}
				return BBOOL(BgL_tmpz00_5970);
			}
		}

	}



/* &tailpos-ev_prog21403 */
	obj_t BGl_z62tailposzd2ev_prog21403zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4031, obj_t BgL_ez00_4032, obj_t BgL_vz00_4033)
	{
		{	/* Eval/evaluate_fsize.scm 427 */
			{	/* Eval/evaluate_fsize.scm 429 */
				obj_t BgL__andtest_1126z00_4674;

				BgL__andtest_1126z00_4674 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_prog2z00_bglt) COBJECT(
								((BgL_ev_prog2z00_bglt) BgL_ez00_4032)))->BgL_e1z00),
					((BgL_ev_varz00_bglt) BgL_vz00_4033));
				if (CBOOL(BgL__andtest_1126z00_4674))
					{	/* Eval/evaluate_fsize.scm 429 */
						return BFALSE;
					}
				else
					{	/* Eval/evaluate_fsize.scm 429 */
						return
							BGl_tailposz00zz__evaluate_fsiza7eza7(
							(((BgL_ev_prog2z00_bglt) COBJECT(
										((BgL_ev_prog2z00_bglt) BgL_ez00_4032)))->BgL_e2z00),
							((BgL_ev_varz00_bglt) BgL_vz00_4033));
					}
			}
		}

	}



/* &tailpos-ev_list1401 */
	obj_t BGl_z62tailposzd2ev_list1401zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4034, obj_t BgL_ez00_4035, obj_t BgL_vz00_4036)
	{
		{	/* Eval/evaluate_fsize.scm 419 */
			{
				obj_t BgL_lz00_4678;

				BgL_lz00_4678 =
					(((BgL_ev_listz00_bglt) COBJECT(
							((BgL_ev_listz00_bglt) BgL_ez00_4035)))->BgL_argsz00);
			BgL_recz00_4677:
				if (NULLP(CDR(((obj_t) BgL_lz00_4678))))
					{	/* Eval/evaluate_fsize.scm 423 */
						obj_t BgL_arg1775z00_4679;

						BgL_arg1775z00_4679 = CAR(((obj_t) BgL_lz00_4678));
						return
							BGl_tailposz00zz__evaluate_fsiza7eza7(
							((BgL_ev_exprz00_bglt) BgL_arg1775z00_4679),
							((BgL_ev_varz00_bglt) BgL_vz00_4036));
					}
				else
					{	/* Eval/evaluate_fsize.scm 424 */
						obj_t BgL__andtest_1124z00_4680;

						{	/* Eval/evaluate_fsize.scm 424 */
							obj_t BgL_arg1777z00_4681;

							BgL_arg1777z00_4681 = CAR(((obj_t) BgL_lz00_4678));
							BgL__andtest_1124z00_4680 =
								BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
								((BgL_ev_exprz00_bglt) BgL_arg1777z00_4681),
								((BgL_ev_varz00_bglt) BgL_vz00_4036));
						}
						if (CBOOL(BgL__andtest_1124z00_4680))
							{	/* Eval/evaluate_fsize.scm 424 */
								return BFALSE;
							}
						else
							{	/* Eval/evaluate_fsize.scm 425 */
								obj_t BgL_arg1776z00_4682;

								BgL_arg1776z00_4682 = CDR(((obj_t) BgL_lz00_4678));
								{
									obj_t BgL_lz00_6006;

									BgL_lz00_6006 = BgL_arg1776z00_4682;
									BgL_lz00_4678 = BgL_lz00_6006;
									goto BgL_recz00_4677;
								}
							}
					}
			}
		}

	}



/* &tailpos-ev_if1399 */
	obj_t BGl_z62tailposzd2ev_if1399zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4037, obj_t BgL_ez00_4038, obj_t BgL_vz00_4039)
	{
		{	/* Eval/evaluate_fsize.scm 415 */
			{	/* Eval/evaluate_fsize.scm 417 */
				obj_t BgL__andtest_1121z00_4685;

				BgL__andtest_1121z00_4685 =
					BGl_hasvarzf3zf3zz__evaluate_fsiza7eza7(
					(((BgL_ev_ifz00_bglt) COBJECT(
								((BgL_ev_ifz00_bglt) BgL_ez00_4038)))->BgL_pz00),
					((BgL_ev_varz00_bglt) BgL_vz00_4039));
				if (CBOOL(BgL__andtest_1121z00_4685))
					{	/* Eval/evaluate_fsize.scm 417 */
						return BFALSE;
					}
				else
					{	/* Eval/evaluate_fsize.scm 417 */
						obj_t BgL__andtest_1122z00_4686;

						BgL__andtest_1122z00_4686 =
							BGl_tailposz00zz__evaluate_fsiza7eza7(
							(((BgL_ev_ifz00_bglt) COBJECT(
										((BgL_ev_ifz00_bglt) BgL_ez00_4038)))->BgL_tz00),
							((BgL_ev_varz00_bglt) BgL_vz00_4039));
						if (CBOOL(BgL__andtest_1122z00_4686))
							{	/* Eval/evaluate_fsize.scm 417 */
								return
									BGl_tailposz00zz__evaluate_fsiza7eza7(
									(((BgL_ev_ifz00_bglt) COBJECT(
												((BgL_ev_ifz00_bglt) BgL_ez00_4038)))->BgL_ez00),
									((BgL_ev_varz00_bglt) BgL_vz00_4039));
							}
						else
							{	/* Eval/evaluate_fsize.scm 417 */
								return BFALSE;
							}
					}
			}
		}

	}



/* &tailpos-ev_litt1397 */
	obj_t BGl_z62tailposzd2ev_litt1397zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4040, obj_t BgL_ez00_4041, obj_t BgL_vz00_4042)
	{
		{	/* Eval/evaluate_fsize.scm 412 */
			return BBOOL(((bool_t) 1));
		}

	}



/* &tailpos-ev_global1395 */
	obj_t BGl_z62tailposzd2ev_global1395zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4043, obj_t BgL_ez00_4044, obj_t BgL_vz00_4045)
	{
		{	/* Eval/evaluate_fsize.scm 409 */
			return BBOOL(((bool_t) 1));
		}

	}



/* &tailpos-ev_var1393 */
	obj_t BGl_z62tailposzd2ev_var1393zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4046, obj_t BgL_ez00_4047, obj_t BgL_vz00_4048)
	{
		{	/* Eval/evaluate_fsize.scm 406 */
			{	/* Eval/evaluate_fsize.scm 407 */
				bool_t BgL_tmpz00_6027;

				if (
					(((obj_t)
							((BgL_ev_varz00_bglt) BgL_ez00_4047)) ==
						((obj_t) ((BgL_ev_varz00_bglt) BgL_vz00_4048))))
					{	/* Eval/evaluate_fsize.scm 407 */
						BgL_tmpz00_6027 = ((bool_t) 0);
					}
				else
					{	/* Eval/evaluate_fsize.scm 407 */
						BgL_tmpz00_6027 = ((bool_t) 1);
					}
				return BBOOL(BgL_tmpz00_6027);
			}
		}

	}



/* &subst_goto-ev_abs1389 */
	obj_t BGl_z62subst_gotozd2ev_abs1389zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4049, obj_t BgL_ez00_4050, obj_t BgL_varsz00_4051,
		obj_t BgL_lblsz00_4052)
	{
		{	/* Eval/evaluate_fsize.scm 394 */
			{
				BgL_ev_absz00_bglt BgL_auxz00_6035;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6036;

					{	/* Eval/evaluate_fsize.scm 396 */
						BgL_ev_exprz00_bglt BgL_arg1766z00_4694;

						BgL_arg1766z00_4694 =
							(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_4050)))->BgL_bodyz00);
						BgL_auxz00_6036 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1766z00_4694,
								BgL_varsz00_4051, BgL_lblsz00_4052));
					}
					((((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_4050)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6036), BUNSPEC);
				}
				BgL_auxz00_6035 = ((BgL_ev_absz00_bglt) BgL_ez00_4050);
				return ((obj_t) BgL_auxz00_6035);
			}
		}

	}



/* &subst_goto-ev_app1387 */
	obj_t BGl_z62subst_gotozd2ev_app1387zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4053, obj_t BgL_ez00_4054, obj_t BgL_varsz00_4055,
		obj_t BgL_lblsz00_4056)
	{
		{	/* Eval/evaluate_fsize.scm 384 */
			{
				BgL_ev_exprz00_bglt BgL_auxz00_6045;

				{	/* Eval/evaluate_fsize.scm 387 */
					obj_t BgL_arg1760z00_4696;

					BgL_arg1760z00_4696 =
						(((BgL_ev_appz00_bglt) COBJECT(
								((BgL_ev_appz00_bglt) BgL_ez00_4054)))->BgL_argsz00);
					{
						obj_t BgL_lz00_4698;

						BgL_lz00_4698 = BgL_arg1760z00_4696;
					BgL_recz00_4697:
						if (NULLP(BgL_lz00_4698))
							{	/* Eval/evaluate_fsize.scm 294 */
								((bool_t) 0);
							}
						else
							{	/* Eval/evaluate_fsize.scm 294 */
								{	/* Eval/evaluate_fsize.scm 295 */
									obj_t BgL_arg1573z00_4699;

									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_arg1574z00_4700;

										BgL_arg1574z00_4700 = CAR(((obj_t) BgL_lz00_4698));
										BgL_arg1573z00_4699 =
											BGl_subst_gotoz00zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1574z00_4700),
											BgL_varsz00_4055, BgL_lblsz00_4056);
									}
									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_tmpz00_6054;

										BgL_tmpz00_6054 = ((obj_t) BgL_lz00_4698);
										SET_CAR(BgL_tmpz00_6054, BgL_arg1573z00_4699);
									}
								}
								{	/* Eval/evaluate_fsize.scm 296 */
									obj_t BgL_arg1575z00_4701;

									BgL_arg1575z00_4701 = CDR(((obj_t) BgL_lz00_4698));
									{
										obj_t BgL_lz00_6059;

										BgL_lz00_6059 = BgL_arg1575z00_4701;
										BgL_lz00_4698 = BgL_lz00_6059;
										goto BgL_recz00_4697;
									}
								}
							}
					}
				}
				if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
							((obj_t)
								(((BgL_ev_appz00_bglt) COBJECT(
											((BgL_ev_appz00_bglt) BgL_ez00_4054)))->BgL_funz00)),
							BgL_varsz00_4055)))
					{	/* Eval/evaluate_fsize.scm 389 */
						BgL_ev_gotoz00_bglt BgL_new1117z00_4702;

						{	/* Eval/evaluate_fsize.scm 389 */
							BgL_ev_gotoz00_bglt BgL_new1116z00_4703;

							BgL_new1116z00_4703 =
								((BgL_ev_gotoz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_ev_gotoz00_bgl))));
							{	/* Eval/evaluate_fsize.scm 389 */
								long BgL_arg1763z00_4704;

								BgL_arg1763z00_4704 =
									BGL_CLASS_NUM(BGl_ev_gotoz00zz__evaluate_typesz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1116z00_4703),
									BgL_arg1763z00_4704);
							}
							BgL_new1117z00_4702 = BgL_new1116z00_4703;
						}
						((((BgL_ev_gotoz00_bglt) COBJECT(BgL_new1117z00_4702))->
								BgL_locz00) =
							((obj_t) (((BgL_ev_appz00_bglt) COBJECT(((BgL_ev_appz00_bglt)
												BgL_ez00_4054)))->BgL_locz00)), BUNSPEC);
						((((BgL_ev_gotoz00_bglt) COBJECT(BgL_new1117z00_4702))->
								BgL_labelz00) =
							((BgL_ev_varz00_bglt) ((BgL_ev_varz00_bglt) (((BgL_ev_appz00_bglt)
											COBJECT(((BgL_ev_appz00_bglt) BgL_ez00_4054)))->
										BgL_funz00))), BUNSPEC);
						((((BgL_ev_gotoz00_bglt) COBJECT(BgL_new1117z00_4702))->
								BgL_labelsz00) =
							((BgL_ev_labelsz00_bglt) ((BgL_ev_labelsz00_bglt)
									BgL_lblsz00_4056)), BUNSPEC);
						((((BgL_ev_gotoz00_bglt) COBJECT(BgL_new1117z00_4702))->
								BgL_argsz00) =
							((obj_t) (((BgL_ev_appz00_bglt) COBJECT(((BgL_ev_appz00_bglt)
												BgL_ez00_4054)))->BgL_argsz00)), BUNSPEC);
						BgL_auxz00_6045 = ((BgL_ev_exprz00_bglt) BgL_new1117z00_4702);
					}
				else
					{	/* Eval/evaluate_fsize.scm 388 */
						{
							BgL_ev_exprz00_bglt BgL_auxz00_6083;

							{	/* Eval/evaluate_fsize.scm 390 */
								BgL_ev_exprz00_bglt BgL_arg1764z00_4705;

								BgL_arg1764z00_4705 =
									(((BgL_ev_appz00_bglt) COBJECT(
											((BgL_ev_appz00_bglt) BgL_ez00_4054)))->BgL_funz00);
								BgL_auxz00_6083 =
									((BgL_ev_exprz00_bglt)
									BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1764z00_4705,
										BgL_varsz00_4055, BgL_lblsz00_4056));
							}
							((((BgL_ev_appz00_bglt) COBJECT(
											((BgL_ev_appz00_bglt) BgL_ez00_4054)))->BgL_funz00) =
								((BgL_ev_exprz00_bglt) BgL_auxz00_6083), BUNSPEC);
						}
						((((BgL_ev_appz00_bglt) COBJECT(
										((BgL_ev_appz00_bglt) BgL_ez00_4054)))->BgL_tailzf3zf3) =
							((obj_t) BFALSE), BUNSPEC);
						BgL_auxz00_6045 =
							((BgL_ev_exprz00_bglt) ((BgL_ev_appz00_bglt) BgL_ez00_4054));
					}
				return ((obj_t) BgL_auxz00_6045);
			}
		}

	}



/* &subst_goto-ev_goto1385 */
	obj_t BGl_z62subst_gotozd2ev_goto1385zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4057, obj_t BgL_ez00_4058, obj_t BgL_varsz00_4059,
		obj_t BgL_lblsz00_4060)
	{
		{	/* Eval/evaluate_fsize.scm 372 */
			{
				BgL_ev_gotoz00_bglt BgL_auxz00_6095;

				{	/* Eval/evaluate_fsize.scm 374 */
					obj_t BgL_arg1759z00_4707;

					BgL_arg1759z00_4707 =
						(((BgL_ev_gotoz00_bglt) COBJECT(
								((BgL_ev_gotoz00_bglt) BgL_ez00_4058)))->BgL_argsz00);
					{
						obj_t BgL_lz00_4709;

						BgL_lz00_4709 = BgL_arg1759z00_4707;
					BgL_recz00_4708:
						if (NULLP(BgL_lz00_4709))
							{	/* Eval/evaluate_fsize.scm 294 */
								((bool_t) 0);
							}
						else
							{	/* Eval/evaluate_fsize.scm 294 */
								{	/* Eval/evaluate_fsize.scm 295 */
									obj_t BgL_arg1573z00_4710;

									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_arg1574z00_4711;

										BgL_arg1574z00_4711 = CAR(((obj_t) BgL_lz00_4709));
										BgL_arg1573z00_4710 =
											BGl_subst_gotoz00zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1574z00_4711),
											BgL_varsz00_4059, BgL_lblsz00_4060);
									}
									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_tmpz00_6104;

										BgL_tmpz00_6104 = ((obj_t) BgL_lz00_4709);
										SET_CAR(BgL_tmpz00_6104, BgL_arg1573z00_4710);
									}
								}
								{	/* Eval/evaluate_fsize.scm 296 */
									obj_t BgL_arg1575z00_4712;

									BgL_arg1575z00_4712 = CDR(((obj_t) BgL_lz00_4709));
									{
										obj_t BgL_lz00_6109;

										BgL_lz00_6109 = BgL_arg1575z00_4712;
										BgL_lz00_4709 = BgL_lz00_6109;
										goto BgL_recz00_4708;
									}
								}
							}
					}
				}
				BgL_auxz00_6095 = ((BgL_ev_gotoz00_bglt) BgL_ez00_4058);
				return ((obj_t) BgL_auxz00_6095);
			}
		}

	}



/* &subst_goto-ev_labels1383 */
	obj_t BGl_z62subst_gotozd2ev_labels1383zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4061, obj_t BgL_ez00_4062, obj_t BgL_varsz00_4063,
		obj_t BgL_lblsz00_4064)
	{
		{	/* Eval/evaluate_fsize.scm 363 */
			{
				BgL_ev_labelsz00_bglt BgL_auxz00_6112;

				{
					obj_t BgL_lz00_4715;

					BgL_lz00_4715 =
						(((BgL_ev_labelsz00_bglt) COBJECT(
								((BgL_ev_labelsz00_bglt) BgL_ez00_4062)))->BgL_valsz00);
				BgL_recz00_4714:
					if (NULLP(BgL_lz00_4715))
						{	/* Eval/evaluate_fsize.scm 366 */
							((bool_t) 0);
						}
					else
						{	/* Eval/evaluate_fsize.scm 366 */
							{	/* Eval/evaluate_fsize.scm 367 */
								obj_t BgL_arg1754z00_4716;
								obj_t BgL_arg1755z00_4717;

								BgL_arg1754z00_4716 = CAR(((obj_t) BgL_lz00_4715));
								{	/* Eval/evaluate_fsize.scm 367 */
									obj_t BgL_arg1756z00_4718;

									{	/* Eval/evaluate_fsize.scm 367 */
										obj_t BgL_pairz00_4719;

										BgL_pairz00_4719 = CAR(((obj_t) BgL_lz00_4715));
										BgL_arg1756z00_4718 = CDR(BgL_pairz00_4719);
									}
									BgL_arg1755z00_4717 =
										BGl_subst_gotoz00zz__evaluate_fsiza7eza7(
										((BgL_ev_exprz00_bglt) BgL_arg1756z00_4718),
										BgL_varsz00_4063, BgL_lblsz00_4064);
								}
								{	/* Eval/evaluate_fsize.scm 367 */
									obj_t BgL_tmpz00_6122;

									BgL_tmpz00_6122 = ((obj_t) BgL_arg1754z00_4716);
									SET_CDR(BgL_tmpz00_6122, BgL_arg1755z00_4717);
								}
							}
							{	/* Eval/evaluate_fsize.scm 368 */
								obj_t BgL_arg1757z00_4720;

								BgL_arg1757z00_4720 = CDR(((obj_t) BgL_lz00_4715));
								{
									obj_t BgL_lz00_6127;

									BgL_lz00_6127 = BgL_arg1757z00_4720;
									BgL_lz00_4715 = BgL_lz00_6127;
									goto BgL_recz00_4714;
								}
							}
						}
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6130;

					{	/* Eval/evaluate_fsize.scm 369 */
						BgL_ev_exprz00_bglt BgL_arg1758z00_4721;

						BgL_arg1758z00_4721 =
							(((BgL_ev_labelsz00_bglt) COBJECT(
									((BgL_ev_labelsz00_bglt) BgL_ez00_4062)))->BgL_bodyz00);
						BgL_auxz00_6130 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1758z00_4721,
								BgL_varsz00_4063, BgL_lblsz00_4064));
					}
					((((BgL_ev_labelsz00_bglt) COBJECT(
									((BgL_ev_labelsz00_bglt) BgL_ez00_4062)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6130), BUNSPEC);
				}
				BgL_auxz00_6112 = ((BgL_ev_labelsz00_bglt) BgL_ez00_4062);
				return ((obj_t) BgL_auxz00_6112);
			}
		}

	}



/* &subst_goto-ev_binder1381 */
	obj_t BGl_z62subst_gotozd2ev_binder1381zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4065, obj_t BgL_ez00_4066, obj_t BgL_varsz00_4067,
		obj_t BgL_lblsz00_4068)
	{
		{	/* Eval/evaluate_fsize.scm 357 */
			{
				BgL_ev_binderz00_bglt BgL_auxz00_6139;

				{	/* Eval/evaluate_fsize.scm 359 */
					obj_t BgL_arg1745z00_4723;

					BgL_arg1745z00_4723 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt) BgL_ez00_4066)))->BgL_valsz00);
					{
						obj_t BgL_lz00_4725;

						BgL_lz00_4725 = BgL_arg1745z00_4723;
					BgL_recz00_4724:
						if (NULLP(BgL_lz00_4725))
							{	/* Eval/evaluate_fsize.scm 294 */
								((bool_t) 0);
							}
						else
							{	/* Eval/evaluate_fsize.scm 294 */
								{	/* Eval/evaluate_fsize.scm 295 */
									obj_t BgL_arg1573z00_4726;

									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_arg1574z00_4727;

										BgL_arg1574z00_4727 = CAR(((obj_t) BgL_lz00_4725));
										BgL_arg1573z00_4726 =
											BGl_subst_gotoz00zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1574z00_4727),
											BgL_varsz00_4067, BgL_lblsz00_4068);
									}
									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_tmpz00_6148;

										BgL_tmpz00_6148 = ((obj_t) BgL_lz00_4725);
										SET_CAR(BgL_tmpz00_6148, BgL_arg1573z00_4726);
									}
								}
								{	/* Eval/evaluate_fsize.scm 296 */
									obj_t BgL_arg1575z00_4728;

									BgL_arg1575z00_4728 = CDR(((obj_t) BgL_lz00_4725));
									{
										obj_t BgL_lz00_6153;

										BgL_lz00_6153 = BgL_arg1575z00_4728;
										BgL_lz00_4725 = BgL_lz00_6153;
										goto BgL_recz00_4724;
									}
								}
							}
					}
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6154;

					{	/* Eval/evaluate_fsize.scm 360 */
						BgL_ev_exprz00_bglt BgL_arg1747z00_4729;

						BgL_arg1747z00_4729 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt) BgL_ez00_4066)))->BgL_bodyz00);
						BgL_auxz00_6154 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1747z00_4729,
								BgL_varsz00_4067, BgL_lblsz00_4068));
					}
					((((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt) BgL_ez00_4066)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6154), BUNSPEC);
				}
				BgL_auxz00_6139 = ((BgL_ev_binderz00_bglt) BgL_ez00_4066);
				return ((obj_t) BgL_auxz00_6139);
			}
		}

	}



/* &subst_goto-ev_synchr1379 */
	obj_t BGl_z62subst_gotozd2ev_synchr1379zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4069, obj_t BgL_ez00_4070, obj_t BgL_varsz00_4071,
		obj_t BgL_lblsz00_4072)
	{
		{	/* Eval/evaluate_fsize.scm 350 */
			{
				BgL_ev_synchroniza7eza7_bglt BgL_auxz00_6163;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6164;

					{	/* Eval/evaluate_fsize.scm 352 */
						BgL_ev_exprz00_bglt BgL_arg1742z00_4731;

						BgL_arg1742z00_4731 =
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070)))->
							BgL_mutexz00);
						BgL_auxz00_6164 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1742z00_4731,
								BgL_varsz00_4071, BgL_lblsz00_4072));
					}
					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070)))->
							BgL_mutexz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6164), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6171;

					{	/* Eval/evaluate_fsize.scm 353 */
						BgL_ev_exprz00_bglt BgL_arg1743z00_4732;

						BgL_arg1743z00_4732 =
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070)))->
							BgL_prelockz00);
						BgL_auxz00_6171 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1743z00_4732,
								BgL_varsz00_4071, BgL_lblsz00_4072));
					}
					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070)))->
							BgL_prelockz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6171), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6178;

					{	/* Eval/evaluate_fsize.scm 354 */
						BgL_ev_exprz00_bglt BgL_arg1744z00_4733;

						BgL_arg1744z00_4733 =
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070)))->
							BgL_bodyz00);
						BgL_auxz00_6178 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1744z00_4733,
								BgL_varsz00_4071, BgL_lblsz00_4072));
					}
					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070)))->
							BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6178), BUNSPEC);
				}
				BgL_auxz00_6163 = ((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4070);
				return ((obj_t) BgL_auxz00_6163);
			}
		}

	}



/* &subst_goto-ev_with-h1377 */
	obj_t BGl_z62subst_gotozd2ev_withzd2h1377z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4073, obj_t BgL_ez00_4074, obj_t BgL_varsz00_4075,
		obj_t BgL_lblsz00_4076)
	{
		{	/* Eval/evaluate_fsize.scm 344 */
			{
				BgL_ev_withzd2handlerzd2_bglt BgL_auxz00_6187;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6188;

					{	/* Eval/evaluate_fsize.scm 346 */
						BgL_ev_exprz00_bglt BgL_arg1740z00_4735;

						BgL_arg1740z00_4735 =
							(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4074)))->
							BgL_handlerz00);
						BgL_auxz00_6188 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1740z00_4735,
								BgL_varsz00_4075, BgL_lblsz00_4076));
					}
					((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4074)))->
							BgL_handlerz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6188), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6195;

					{	/* Eval/evaluate_fsize.scm 347 */
						BgL_ev_exprz00_bglt BgL_arg1741z00_4736;

						BgL_arg1741z00_4736 =
							(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4074)))->
							BgL_bodyz00);
						BgL_auxz00_6195 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1741z00_4736,
								BgL_varsz00_4075, BgL_lblsz00_4076));
					}
					((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4074)))->
							BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6195), BUNSPEC);
				}
				BgL_auxz00_6187 = ((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4074);
				return ((obj_t) BgL_auxz00_6187);
			}
		}

	}



/* &subst_goto-ev_unwind1375 */
	obj_t BGl_z62subst_gotozd2ev_unwind1375zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4077, obj_t BgL_exprz00_4078, obj_t BgL_varsz00_4079,
		obj_t BgL_lblsz00_4080)
	{
		{	/* Eval/evaluate_fsize.scm 338 */
			{
				BgL_ev_unwindzd2protectzd2_bglt BgL_auxz00_6204;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6205;

					{	/* Eval/evaluate_fsize.scm 340 */
						BgL_ev_exprz00_bglt BgL_arg1735z00_4738;

						BgL_arg1735z00_4738 =
							(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4078)))->
							BgL_ez00);
						BgL_auxz00_6205 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1735z00_4738,
								BgL_varsz00_4079, BgL_lblsz00_4080));
					}
					((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4078)))->
							BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6205), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6212;

					{	/* Eval/evaluate_fsize.scm 341 */
						BgL_ev_exprz00_bglt BgL_arg1739z00_4739;

						BgL_arg1739z00_4739 =
							(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4078)))->
							BgL_bodyz00);
						BgL_auxz00_6212 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1739z00_4739,
								BgL_varsz00_4079, BgL_lblsz00_4080));
					}
					((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4078)))->
							BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6212), BUNSPEC);
				}
				BgL_auxz00_6204 = ((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4078);
				return ((obj_t) BgL_auxz00_6204);
			}
		}

	}



/* &subst_goto-ev_bind-e1373 */
	obj_t BGl_z62subst_gotozd2ev_bindzd2e1373z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4081, obj_t BgL_ez00_4082, obj_t BgL_varsz00_4083,
		obj_t BgL_lblsz00_4084)
	{
		{	/* Eval/evaluate_fsize.scm 333 */
			{
				BgL_ev_bindzd2exitzd2_bglt BgL_auxz00_6221;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6222;

					{	/* Eval/evaluate_fsize.scm 335 */
						BgL_ev_exprz00_bglt BgL_arg1734z00_4741;

						BgL_arg1734z00_4741 =
							(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4082)))->BgL_bodyz00);
						BgL_auxz00_6222 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1734z00_4741,
								BgL_varsz00_4083, BgL_lblsz00_4084));
					}
					((((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4082)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6222), BUNSPEC);
				}
				BgL_auxz00_6221 = ((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4082);
				return ((obj_t) BgL_auxz00_6221);
			}
		}

	}



/* &subst_goto-ev_hook1371 */
	obj_t BGl_z62subst_gotozd2ev_hook1371zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4085, obj_t BgL_exprz00_4086, obj_t BgL_varsz00_4087,
		obj_t BgL_lblsz00_4088)
	{
		{	/* Eval/evaluate_fsize.scm 328 */
			{
				BgL_ev_hookz00_bglt BgL_auxz00_6231;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6232;

					{	/* Eval/evaluate_fsize.scm 330 */
						BgL_ev_exprz00_bglt BgL_arg1733z00_4743;

						BgL_arg1733z00_4743 =
							(((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt) BgL_exprz00_4086)))->BgL_ez00);
						BgL_auxz00_6232 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1733z00_4743,
								BgL_varsz00_4087, BgL_lblsz00_4088));
					}
					((((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt) BgL_exprz00_4086)))->BgL_ez00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6232), BUNSPEC);
				}
				BgL_auxz00_6231 = ((BgL_ev_hookz00_bglt) BgL_exprz00_4086);
				return ((obj_t) BgL_auxz00_6231);
			}
		}

	}



/* &subst_goto-ev_prog21369 */
	obj_t BGl_z62subst_gotozd2ev_prog21369zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4089, obj_t BgL_ez00_4090, obj_t BgL_varsz00_4091,
		obj_t BgL_lblsz00_4092)
	{
		{	/* Eval/evaluate_fsize.scm 322 */
			{
				BgL_ev_prog2z00_bglt BgL_auxz00_6241;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6242;

					{	/* Eval/evaluate_fsize.scm 324 */
						BgL_ev_exprz00_bglt BgL_arg1731z00_4745;

						BgL_arg1731z00_4745 =
							(((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4090)))->BgL_e1z00);
						BgL_auxz00_6242 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1731z00_4745,
								BgL_varsz00_4091, BgL_lblsz00_4092));
					}
					((((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4090)))->BgL_e1z00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6242), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6249;

					{	/* Eval/evaluate_fsize.scm 325 */
						BgL_ev_exprz00_bglt BgL_arg1732z00_4746;

						BgL_arg1732z00_4746 =
							(((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4090)))->BgL_e2z00);
						BgL_auxz00_6249 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1732z00_4746,
								BgL_varsz00_4091, BgL_lblsz00_4092));
					}
					((((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4090)))->BgL_e2z00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6249), BUNSPEC);
				}
				BgL_auxz00_6241 = ((BgL_ev_prog2z00_bglt) BgL_ez00_4090);
				return ((obj_t) BgL_auxz00_6241);
			}
		}

	}



/* &subst_goto-ev_list1367 */
	obj_t BGl_z62subst_gotozd2ev_list1367zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4093, obj_t BgL_ez00_4094, obj_t BgL_varsz00_4095,
		obj_t BgL_lblsz00_4096)
	{
		{	/* Eval/evaluate_fsize.scm 317 */
			{
				BgL_ev_listz00_bglt BgL_auxz00_6258;

				{	/* Eval/evaluate_fsize.scm 319 */
					obj_t BgL_arg1730z00_4748;

					BgL_arg1730z00_4748 =
						(((BgL_ev_listz00_bglt) COBJECT(
								((BgL_ev_listz00_bglt) BgL_ez00_4094)))->BgL_argsz00);
					{
						obj_t BgL_lz00_4750;

						BgL_lz00_4750 = BgL_arg1730z00_4748;
					BgL_recz00_4749:
						if (NULLP(BgL_lz00_4750))
							{	/* Eval/evaluate_fsize.scm 294 */
								((bool_t) 0);
							}
						else
							{	/* Eval/evaluate_fsize.scm 294 */
								{	/* Eval/evaluate_fsize.scm 295 */
									obj_t BgL_arg1573z00_4751;

									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_arg1574z00_4752;

										BgL_arg1574z00_4752 = CAR(((obj_t) BgL_lz00_4750));
										BgL_arg1573z00_4751 =
											BGl_subst_gotoz00zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1574z00_4752),
											BgL_varsz00_4095, BgL_lblsz00_4096);
									}
									{	/* Eval/evaluate_fsize.scm 295 */
										obj_t BgL_tmpz00_6267;

										BgL_tmpz00_6267 = ((obj_t) BgL_lz00_4750);
										SET_CAR(BgL_tmpz00_6267, BgL_arg1573z00_4751);
									}
								}
								{	/* Eval/evaluate_fsize.scm 296 */
									obj_t BgL_arg1575z00_4753;

									BgL_arg1575z00_4753 = CDR(((obj_t) BgL_lz00_4750));
									{
										obj_t BgL_lz00_6272;

										BgL_lz00_6272 = BgL_arg1575z00_4753;
										BgL_lz00_4750 = BgL_lz00_6272;
										goto BgL_recz00_4749;
									}
								}
							}
					}
				}
				BgL_auxz00_6258 = ((BgL_ev_listz00_bglt) BgL_ez00_4094);
				return ((obj_t) BgL_auxz00_6258);
			}
		}

	}



/* &subst_goto-ev_if1365 */
	obj_t BGl_z62subst_gotozd2ev_if1365zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4097, obj_t BgL_exprz00_4098, obj_t BgL_varsz00_4099,
		obj_t BgL_lblsz00_4100)
	{
		{	/* Eval/evaluate_fsize.scm 310 */
			{
				BgL_ev_ifz00_bglt BgL_auxz00_6275;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6276;

					{	/* Eval/evaluate_fsize.scm 312 */
						BgL_ev_exprz00_bglt BgL_arg1727z00_4755;

						BgL_arg1727z00_4755 =
							(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4098)))->BgL_pz00);
						BgL_auxz00_6276 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1727z00_4755,
								BgL_varsz00_4099, BgL_lblsz00_4100));
					}
					((((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4098)))->BgL_pz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6276), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6283;

					{	/* Eval/evaluate_fsize.scm 313 */
						BgL_ev_exprz00_bglt BgL_arg1728z00_4756;

						BgL_arg1728z00_4756 =
							(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4098)))->BgL_tz00);
						BgL_auxz00_6283 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1728z00_4756,
								BgL_varsz00_4099, BgL_lblsz00_4100));
					}
					((((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4098)))->BgL_tz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6283), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6290;

					{	/* Eval/evaluate_fsize.scm 314 */
						BgL_ev_exprz00_bglt BgL_arg1729z00_4757;

						BgL_arg1729z00_4757 =
							(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4098)))->BgL_ez00);
						BgL_auxz00_6290 =
							((BgL_ev_exprz00_bglt)
							BGl_subst_gotoz00zz__evaluate_fsiza7eza7(BgL_arg1729z00_4757,
								BgL_varsz00_4099, BgL_lblsz00_4100));
					}
					((((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4098)))->BgL_ez00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6290), BUNSPEC);
				}
				BgL_auxz00_6275 = ((BgL_ev_ifz00_bglt) BgL_exprz00_4098);
				return ((obj_t) BgL_auxz00_6275);
			}
		}

	}



/* &subst_goto-ev_litt1363 */
	obj_t BGl_z62subst_gotozd2ev_litt1363zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4101, obj_t BgL_ez00_4102, obj_t BgL_varsz00_4103,
		obj_t BgL_lblsz00_4104)
	{
		{	/* Eval/evaluate_fsize.scm 307 */
			return ((obj_t) ((BgL_ev_littz00_bglt) BgL_ez00_4102));
		}

	}



/* &subst_goto-ev_global1361 */
	obj_t BGl_z62subst_gotozd2ev_global1361zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4105, obj_t BgL_ez00_4106, obj_t BgL_varsz00_4107,
		obj_t BgL_lblsz00_4108)
	{
		{	/* Eval/evaluate_fsize.scm 304 */
			return ((obj_t) ((BgL_ev_globalz00_bglt) BgL_ez00_4106));
		}

	}



/* &subst_goto-ev_var1359 */
	obj_t BGl_z62subst_gotozd2ev_var1359zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4109, obj_t BgL_ez00_4110, obj_t BgL_varsz00_4111,
		obj_t BgL_lblsz00_4112)
	{
		{	/* Eval/evaluate_fsize.scm 301 */
			return ((obj_t) ((BgL_ev_varz00_bglt) BgL_ez00_4110));
		}

	}



/* &search-letrec-ev_abs1355 */
	obj_t BGl_z62searchzd2letreczd2ev_abs1355z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4113, obj_t BgL_ez00_4114)
	{
		{	/* Eval/evaluate_fsize.scm 260 */
			{
				BgL_ev_absz00_bglt BgL_auxz00_6305;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6306;

					{	/* Eval/evaluate_fsize.scm 262 */
						BgL_ev_exprz00_bglt BgL_arg1726z00_4762;

						BgL_arg1726z00_4762 =
							(((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_4114)))->BgL_bodyz00);
						BgL_auxz00_6306 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1726z00_4762));
					}
					((((BgL_ev_absz00_bglt) COBJECT(
									((BgL_ev_absz00_bglt) BgL_ez00_4114)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6306), BUNSPEC);
				}
				BgL_auxz00_6305 = ((BgL_ev_absz00_bglt) BgL_ez00_4114);
				return ((obj_t) BgL_auxz00_6305);
			}
		}

	}



/* &search-letrec-ev_app1353 */
	obj_t BGl_z62searchzd2letreczd2ev_app1353z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4115, obj_t BgL_ez00_4116)
	{
		{	/* Eval/evaluate_fsize.scm 254 */
			{
				BgL_ev_appz00_bglt BgL_auxz00_6315;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6316;

					{	/* Eval/evaluate_fsize.scm 256 */
						BgL_ev_exprz00_bglt BgL_arg1724z00_4764;

						BgL_arg1724z00_4764 =
							(((BgL_ev_appz00_bglt) COBJECT(
									((BgL_ev_appz00_bglt) BgL_ez00_4116)))->BgL_funz00);
						BgL_auxz00_6316 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1724z00_4764));
					}
					((((BgL_ev_appz00_bglt) COBJECT(
									((BgL_ev_appz00_bglt) BgL_ez00_4116)))->BgL_funz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6316), BUNSPEC);
				}
				BGl_searchzd2letrecza2z70zz__evaluate_fsiza7eza7(
					(((BgL_ev_appz00_bglt) COBJECT(
								((BgL_ev_appz00_bglt) BgL_ez00_4116)))->BgL_argsz00));
				BgL_auxz00_6315 = ((BgL_ev_appz00_bglt) BgL_ez00_4116);
				return ((obj_t) BgL_auxz00_6315);
			}
		}

	}



/* &search-letrec-ev_let1351 */
	obj_t BGl_z62searchzd2letreczd2ev_let1351z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4117, obj_t BgL_ez00_4118)
	{
		{	/* Eval/evaluate_fsize.scm 243 */
			{
				BgL_ev_exprz00_bglt BgL_auxz00_6328;

				{	/* Eval/evaluate_fsize.scm 245 */
					obj_t BgL_arg1715z00_4766;

					BgL_arg1715z00_4766 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_valsz00);
					BGl_searchzd2letrecza2z70zz__evaluate_fsiza7eza7(BgL_arg1715z00_4766);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6333;

					{	/* Eval/evaluate_fsize.scm 246 */
						BgL_ev_exprz00_bglt BgL_arg1716z00_4767;

						BgL_arg1716z00_4767 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_bodyz00);
						BgL_auxz00_6333 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1716z00_4767));
					}
					((((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6333), BUNSPEC);
				}
				{	/* Eval/evaluate_fsize.scm 250 */
					bool_t BgL_test2631z00_6342;

					{	/* Eval/evaluate_fsize.scm 247 */
						obj_t BgL_arg1721z00_4768;
						obj_t BgL_arg1722z00_4769;
						BgL_ev_exprz00_bglt BgL_arg1723z00_4770;

						BgL_arg1721z00_4768 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_varsz00);
						BgL_arg1722z00_4769 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_valsz00);
						BgL_arg1723z00_4770 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt)
										((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_bodyz00);
						BgL_test2631z00_6342 =
							BGl_letrectailzf3zf3zz__evaluate_fsiza7eza7(BgL_arg1721z00_4768,
							BgL_arg1722z00_4769, BgL_arg1723z00_4770);
					}
					if (BgL_test2631z00_6342)
						{	/* Eval/evaluate_fsize.scm 251 */
							obj_t BgL_arg1718z00_4771;
							obj_t BgL_arg1719z00_4772;
							BgL_ev_exprz00_bglt BgL_arg1720z00_4773;

							BgL_arg1718z00_4771 =
								(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_varsz00);
							BgL_arg1719z00_4772 =
								(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_valsz00);
							BgL_arg1720z00_4773 =
								(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_4118))))->BgL_bodyz00);
							BgL_auxz00_6328 =
								((BgL_ev_exprz00_bglt)
								BGl_modifyzd2letreczd2zz__evaluate_fsiza7eza7
								(BgL_arg1718z00_4771, BgL_arg1719z00_4772,
									BgL_arg1720z00_4773));
						}
					else
						{	/* Eval/evaluate_fsize.scm 250 */
							BgL_auxz00_6328 =
								((BgL_ev_exprz00_bglt) ((BgL_ev_letrecz00_bglt) BgL_ez00_4118));
						}
				}
				return ((obj_t) BgL_auxz00_6328);
			}
		}

	}



/* &search-letrec-ev_bin1349 */
	obj_t BGl_z62searchzd2letreczd2ev_bin1349z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4119, obj_t BgL_ez00_4120)
	{
		{	/* Eval/evaluate_fsize.scm 237 */
			{
				BgL_ev_binderz00_bglt BgL_auxz00_6367;

				BGl_searchzd2letrecza2z70zz__evaluate_fsiza7eza7(
					(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt) BgL_ez00_4120)))->BgL_valsz00));
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6371;

					{	/* Eval/evaluate_fsize.scm 240 */
						BgL_ev_exprz00_bglt BgL_arg1714z00_4775;

						BgL_arg1714z00_4775 =
							(((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt) BgL_ez00_4120)))->BgL_bodyz00);
						BgL_auxz00_6371 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1714z00_4775));
					}
					((((BgL_ev_binderz00_bglt) COBJECT(
									((BgL_ev_binderz00_bglt) BgL_ez00_4120)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6371), BUNSPEC);
				}
				BgL_auxz00_6367 = ((BgL_ev_binderz00_bglt) BgL_ez00_4120);
				return ((obj_t) BgL_auxz00_6367);
			}
		}

	}



/* &search-letrec-ev_syn1347 */
	obj_t BGl_z62searchzd2letreczd2ev_syn1347z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4121, obj_t BgL_ez00_4122)
	{
		{	/* Eval/evaluate_fsize.scm 230 */
			{
				BgL_ev_synchroniza7eza7_bglt BgL_auxz00_6380;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6381;

					{	/* Eval/evaluate_fsize.scm 232 */
						BgL_ev_exprz00_bglt BgL_arg1709z00_4777;

						BgL_arg1709z00_4777 =
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122)))->
							BgL_mutexz00);
						BgL_auxz00_6381 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1709z00_4777));
					}
					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122)))->
							BgL_mutexz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6381), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6388;

					{	/* Eval/evaluate_fsize.scm 233 */
						BgL_ev_exprz00_bglt BgL_arg1710z00_4778;

						BgL_arg1710z00_4778 =
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122)))->
							BgL_prelockz00);
						BgL_auxz00_6388 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1710z00_4778));
					}
					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122)))->
							BgL_prelockz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6388), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6395;

					{	/* Eval/evaluate_fsize.scm 234 */
						BgL_ev_exprz00_bglt BgL_arg1711z00_4779;

						BgL_arg1711z00_4779 =
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122)))->
							BgL_bodyz00);
						BgL_auxz00_6395 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1711z00_4779));
					}
					((((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122)))->
							BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6395), BUNSPEC);
				}
				BgL_auxz00_6380 = ((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4122);
				return ((obj_t) BgL_auxz00_6380);
			}
		}

	}



/* &search-letrec-ev_wit1345 */
	obj_t BGl_z62searchzd2letreczd2ev_wit1345z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4123, obj_t BgL_ez00_4124)
	{
		{	/* Eval/evaluate_fsize.scm 224 */
			{
				BgL_ev_withzd2handlerzd2_bglt BgL_auxz00_6404;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6405;

					{	/* Eval/evaluate_fsize.scm 226 */
						BgL_ev_exprz00_bglt BgL_arg1707z00_4781;

						BgL_arg1707z00_4781 =
							(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4124)))->
							BgL_handlerz00);
						BgL_auxz00_6405 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1707z00_4781));
					}
					((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4124)))->
							BgL_handlerz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6405), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6412;

					{	/* Eval/evaluate_fsize.scm 227 */
						BgL_ev_exprz00_bglt BgL_arg1708z00_4782;

						BgL_arg1708z00_4782 =
							(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4124)))->
							BgL_bodyz00);
						BgL_auxz00_6412 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1708z00_4782));
					}
					((((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4124)))->
							BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6412), BUNSPEC);
				}
				BgL_auxz00_6404 = ((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4124);
				return ((obj_t) BgL_auxz00_6404);
			}
		}

	}



/* &search-letrec-ev_unw1343 */
	obj_t BGl_z62searchzd2letreczd2ev_unw1343z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4125, obj_t BgL_exprz00_4126)
	{
		{	/* Eval/evaluate_fsize.scm 218 */
			{
				BgL_ev_unwindzd2protectzd2_bglt BgL_auxz00_6421;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6422;

					{	/* Eval/evaluate_fsize.scm 220 */
						BgL_ev_exprz00_bglt BgL_arg1705z00_4784;

						BgL_arg1705z00_4784 =
							(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4126)))->
							BgL_ez00);
						BgL_auxz00_6422 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1705z00_4784));
					}
					((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4126)))->
							BgL_ez00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6422), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6429;

					{	/* Eval/evaluate_fsize.scm 221 */
						BgL_ev_exprz00_bglt BgL_arg1706z00_4785;

						BgL_arg1706z00_4785 =
							(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4126)))->
							BgL_bodyz00);
						BgL_auxz00_6429 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1706z00_4785));
					}
					((((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4126)))->
							BgL_bodyz00) = ((BgL_ev_exprz00_bglt) BgL_auxz00_6429), BUNSPEC);
				}
				BgL_auxz00_6421 = ((BgL_ev_unwindzd2protectzd2_bglt) BgL_exprz00_4126);
				return ((obj_t) BgL_auxz00_6421);
			}
		}

	}



/* &search-letrec-ev_bin1341 */
	obj_t BGl_z62searchzd2letreczd2ev_bin1341z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4127, obj_t BgL_ez00_4128)
	{
		{	/* Eval/evaluate_fsize.scm 213 */
			{
				BgL_ev_bindzd2exitzd2_bglt BgL_auxz00_6438;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6439;

					{	/* Eval/evaluate_fsize.scm 215 */
						BgL_ev_exprz00_bglt BgL_arg1703z00_4787;

						BgL_arg1703z00_4787 =
							(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4128)))->BgL_bodyz00);
						BgL_auxz00_6439 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1703z00_4787));
					}
					((((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4128)))->BgL_bodyz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6439), BUNSPEC);
				}
				BgL_auxz00_6438 = ((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4128);
				return ((obj_t) BgL_auxz00_6438);
			}
		}

	}



/* &search-letrec-ev_hoo1339 */
	obj_t BGl_z62searchzd2letreczd2ev_hoo1339z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4129, obj_t BgL_exprz00_4130)
	{
		{	/* Eval/evaluate_fsize.scm 208 */
			{
				BgL_ev_hookz00_bglt BgL_auxz00_6448;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6449;

					{	/* Eval/evaluate_fsize.scm 210 */
						BgL_ev_exprz00_bglt BgL_arg1702z00_4789;

						BgL_arg1702z00_4789 =
							(((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt) BgL_exprz00_4130)))->BgL_ez00);
						BgL_auxz00_6449 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1702z00_4789));
					}
					((((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt) BgL_exprz00_4130)))->BgL_ez00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6449), BUNSPEC);
				}
				BgL_auxz00_6448 = ((BgL_ev_hookz00_bglt) BgL_exprz00_4130);
				return ((obj_t) BgL_auxz00_6448);
			}
		}

	}



/* &search-letrec-ev_pro1337 */
	obj_t BGl_z62searchzd2letreczd2ev_pro1337z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4131, obj_t BgL_ez00_4132)
	{
		{	/* Eval/evaluate_fsize.scm 202 */
			{
				BgL_ev_prog2z00_bglt BgL_auxz00_6458;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6459;

					{	/* Eval/evaluate_fsize.scm 204 */
						BgL_ev_exprz00_bglt BgL_arg1697z00_4791;

						BgL_arg1697z00_4791 =
							(((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4132)))->BgL_e1z00);
						BgL_auxz00_6459 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1697z00_4791));
					}
					((((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4132)))->BgL_e1z00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6459), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6466;

					{	/* Eval/evaluate_fsize.scm 205 */
						BgL_ev_exprz00_bglt BgL_arg1698z00_4792;

						BgL_arg1698z00_4792 =
							(((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4132)))->BgL_e2z00);
						BgL_auxz00_6466 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1698z00_4792));
					}
					((((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4132)))->BgL_e2z00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6466), BUNSPEC);
				}
				BgL_auxz00_6458 = ((BgL_ev_prog2z00_bglt) BgL_ez00_4132);
				return ((obj_t) BgL_auxz00_6458);
			}
		}

	}



/* &search-letrec-ev_lis1335 */
	obj_t BGl_z62searchzd2letreczd2ev_lis1335z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4133, obj_t BgL_ez00_4134)
	{
		{	/* Eval/evaluate_fsize.scm 197 */
			{
				BgL_ev_listz00_bglt BgL_auxz00_6475;

				BGl_searchzd2letrecza2z70zz__evaluate_fsiza7eza7(
					(((BgL_ev_listz00_bglt) COBJECT(
								((BgL_ev_listz00_bglt) BgL_ez00_4134)))->BgL_argsz00));
				BgL_auxz00_6475 = ((BgL_ev_listz00_bglt) BgL_ez00_4134);
				return ((obj_t) BgL_auxz00_6475);
			}
		}

	}



/* &search-letrec-ev_if1333 */
	obj_t BGl_z62searchzd2letreczd2ev_if1333z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4135, obj_t BgL_exprz00_4136)
	{
		{	/* Eval/evaluate_fsize.scm 190 */
			{
				BgL_ev_ifz00_bglt BgL_auxz00_6481;

				{
					BgL_ev_exprz00_bglt BgL_auxz00_6482;

					{	/* Eval/evaluate_fsize.scm 192 */
						BgL_ev_exprz00_bglt BgL_arg1689z00_4795;

						BgL_arg1689z00_4795 =
							(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4136)))->BgL_pz00);
						BgL_auxz00_6482 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1689z00_4795));
					}
					((((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4136)))->BgL_pz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6482), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6489;

					{	/* Eval/evaluate_fsize.scm 193 */
						BgL_ev_exprz00_bglt BgL_arg1690z00_4796;

						BgL_arg1690z00_4796 =
							(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4136)))->BgL_tz00);
						BgL_auxz00_6489 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1690z00_4796));
					}
					((((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4136)))->BgL_tz00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6489), BUNSPEC);
				}
				{
					BgL_ev_exprz00_bglt BgL_auxz00_6496;

					{	/* Eval/evaluate_fsize.scm 194 */
						BgL_ev_exprz00_bglt BgL_arg1691z00_4797;

						BgL_arg1691z00_4797 =
							(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4136)))->BgL_ez00);
						BgL_auxz00_6496 =
							((BgL_ev_exprz00_bglt)
							BGl_searchzd2letreczd2zz__evaluate_fsiza7eza7
							(BgL_arg1691z00_4797));
					}
					((((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_exprz00_4136)))->BgL_ez00) =
						((BgL_ev_exprz00_bglt) BgL_auxz00_6496), BUNSPEC);
				}
				BgL_auxz00_6481 = ((BgL_ev_ifz00_bglt) BgL_exprz00_4136);
				return ((obj_t) BgL_auxz00_6481);
			}
		}

	}



/* &search-letrec-ev_lit1331 */
	obj_t BGl_z62searchzd2letreczd2ev_lit1331z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4137, obj_t BgL_ez00_4138)
	{
		{	/* Eval/evaluate_fsize.scm 187 */
			return ((obj_t) ((BgL_ev_littz00_bglt) BgL_ez00_4138));
		}

	}



/* &search-letrec-ev_glo1329 */
	obj_t BGl_z62searchzd2letreczd2ev_glo1329z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4139, obj_t BgL_ez00_4140)
	{
		{	/* Eval/evaluate_fsize.scm 184 */
			return ((obj_t) ((BgL_ev_globalz00_bglt) BgL_ez00_4140));
		}

	}



/* &search-letrec-ev_var1327 */
	obj_t BGl_z62searchzd2letreczd2ev_var1327z62zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4141, obj_t BgL_ez00_4142)
	{
		{	/* Eval/evaluate_fsize.scm 181 */
			return ((obj_t) ((BgL_ev_varz00_bglt) BgL_ez00_4142));
		}

	}



/* &fsize-ev_abs1323 */
	obj_t BGl_z62fsiza7ezd2ev_abs1323z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4143, obj_t BgL_ez00_4144, obj_t BgL_nz00_4145)
	{
		{	/* Eval/evaluate_fsize.scm 158 */
			{	/* Eval/evaluate_fsize.scm 159 */
				int BgL_tmpz00_6511;

				{	/* Eval/evaluate_fsize.scm 159 */
					int BgL_nz00_4802;

					BgL_nz00_4802 = CINT(BgL_nz00_4145);
					{	/* Eval/evaluate_fsize.scm 160 */
						int BgL_nnz00_4803;

						{	/* Eval/evaluate_fsize.scm 160 */
							BgL_ev_exprz00_bglt BgL_arg1681z00_4804;
							long BgL_arg1683z00_4805;

							BgL_arg1681z00_4804 =
								(((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_ez00_4144)))->BgL_bodyz00);
							BgL_arg1683z00_4805 =
								bgl_list_length(
								(((BgL_ev_absz00_bglt) COBJECT(
											((BgL_ev_absz00_bglt) BgL_ez00_4144)))->BgL_varsz00));
							BgL_nnz00_4803 =
								BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_arg1681z00_4804,
								(int) (BgL_arg1683z00_4805));
						}
						((((BgL_ev_absz00_bglt) COBJECT(
										((BgL_ev_absz00_bglt) BgL_ez00_4144)))->BgL_siza7eza7) =
							((int) BgL_nnz00_4803), BUNSPEC);
						BgL_tmpz00_6511 = BgL_nz00_4802;
				}}
				return BINT(BgL_tmpz00_6511);
			}
		}

	}



/* &fsize-ev_app1321 */
	obj_t BGl_z62fsiza7ezd2ev_app1321z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4146, obj_t BgL_ez00_4147, obj_t BgL_nz00_4148)
	{
		{	/* Eval/evaluate_fsize.scm 151 */
			{	/* Eval/evaluate_fsize.scm 152 */
				int BgL_nz00_4807;

				BgL_nz00_4807 = CINT(BgL_nz00_4148);
				{	/* Eval/evaluate_fsize.scm 153 */
					int BgL_g1079z00_4808;

					BgL_g1079z00_4808 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_appz00_bglt) COBJECT(
									((BgL_ev_appz00_bglt) BgL_ez00_4147)))->BgL_funz00),
						BgL_nz00_4807);
					{	/* Eval/evaluate_fsize.scm 153 */
						obj_t BgL_arg1667z00_4809;

						BgL_arg1667z00_4809 =
							(((BgL_ev_appz00_bglt) COBJECT(
									((BgL_ev_appz00_bglt) BgL_ez00_4147)))->BgL_argsz00);
						{
							obj_t BgL_lz00_4811;
							int BgL_nz00_4812;
							obj_t BgL_rz00_4813;

							BgL_lz00_4811 = BgL_arg1667z00_4809;
							BgL_nz00_4812 = BgL_nz00_4807;
							BgL_rz00_4813 = BINT(BgL_g1079z00_4808);
						BgL_recz00_4810:
							if (NULLP(BgL_lz00_4811))
								{	/* Eval/evaluate_fsize.scm 154 */
									return
										BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_nz00_4812),
										BgL_rz00_4813);
								}
							else
								{	/* Eval/evaluate_fsize.scm 156 */
									obj_t BgL_arg1671z00_4814;
									long BgL_arg1672z00_4815;
									obj_t BgL_arg1673z00_4816;

									BgL_arg1671z00_4814 = CDR(((obj_t) BgL_lz00_4811));
									BgL_arg1672z00_4815 = ((long) (BgL_nz00_4812) + 1L);
									{	/* Eval/evaluate_fsize.scm 156 */
										int BgL_xz00_4817;

										{	/* Eval/evaluate_fsize.scm 156 */
											obj_t BgL_arg1674z00_4818;

											BgL_arg1674z00_4818 = CAR(((obj_t) BgL_lz00_4811));
											BgL_xz00_4817 =
												BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
												((BgL_ev_exprz00_bglt) BgL_arg1674z00_4818),
												BgL_nz00_4812);
										}
										BgL_arg1673z00_4816 =
											BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4817),
											BgL_rz00_4813);
									}
									{
										obj_t BgL_rz00_6546;
										int BgL_nz00_6544;
										obj_t BgL_lz00_6543;

										BgL_lz00_6543 = BgL_arg1671z00_4814;
										BgL_nz00_6544 = (int) (BgL_arg1672z00_4815);
										BgL_rz00_6546 = BgL_arg1673z00_4816;
										BgL_rz00_4813 = BgL_rz00_6546;
										BgL_nz00_4812 = BgL_nz00_6544;
										BgL_lz00_4811 = BgL_lz00_6543;
										goto BgL_recz00_4810;
									}
								}
						}
					}
				}
			}
		}

	}



/* &fsize-ev_goto1319 */
	obj_t BGl_z62fsiza7ezd2ev_goto1319z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4149, obj_t BgL_ez00_4150, obj_t BgL_nz00_4151)
	{
		{	/* Eval/evaluate_fsize.scm 144 */
			{	/* Eval/evaluate_fsize.scm 146 */
				obj_t BgL_arg1658z00_4820;

				BgL_arg1658z00_4820 =
					(((BgL_ev_gotoz00_bglt) COBJECT(
							((BgL_ev_gotoz00_bglt) BgL_ez00_4150)))->BgL_argsz00);
				{
					obj_t BgL_lz00_4822;
					obj_t BgL_nz00_4823;
					obj_t BgL_rz00_4824;

					BgL_lz00_4822 = BgL_arg1658z00_4820;
					BgL_nz00_4823 = BgL_nz00_4151;
					BgL_rz00_4824 = BgL_nz00_4151;
				BgL_recz00_4821:
					if (NULLP(BgL_lz00_4822))
						{	/* Eval/evaluate_fsize.scm 147 */
							return
								BGl_2maxz00zz__r4_numbers_6_5z00(BgL_nz00_4823, BgL_rz00_4824);
						}
					else
						{	/* Eval/evaluate_fsize.scm 149 */
							obj_t BgL_arg1662z00_4825;
							long BgL_arg1664z00_4826;
							obj_t BgL_arg1665z00_4827;

							BgL_arg1662z00_4825 = CDR(((obj_t) BgL_lz00_4822));
							BgL_arg1664z00_4826 = ((long) CINT(BgL_nz00_4823) + 1L);
							{	/* Eval/evaluate_fsize.scm 149 */
								int BgL_xz00_4828;

								{	/* Eval/evaluate_fsize.scm 149 */
									obj_t BgL_arg1666z00_4829;

									BgL_arg1666z00_4829 = CAR(((obj_t) BgL_lz00_4822));
									BgL_xz00_4828 =
										BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
										((BgL_ev_exprz00_bglt) BgL_arg1666z00_4829),
										CINT(BgL_nz00_4823));
								}
								BgL_arg1665z00_4827 =
									BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4828),
									BgL_rz00_4824);
							}
							{
								obj_t BgL_rz00_6567;
								obj_t BgL_nz00_6565;
								obj_t BgL_lz00_6564;

								BgL_lz00_6564 = BgL_arg1662z00_4825;
								BgL_nz00_6565 = BINT(BgL_arg1664z00_4826);
								BgL_rz00_6567 = BgL_arg1665z00_4827;
								BgL_rz00_4824 = BgL_rz00_6567;
								BgL_nz00_4823 = BgL_nz00_6565;
								BgL_lz00_4822 = BgL_lz00_6564;
								goto BgL_recz00_4821;
							}
						}
				}
			}
		}

	}



/* &fsize-ev_labels1317 */
	obj_t BGl_z62fsiza7ezd2ev_labels1317z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4152, obj_t BgL_ez00_4153, obj_t BgL_nz00_4154)
	{
		{	/* Eval/evaluate_fsize.scm 137 */
			{
				obj_t BgL_lz00_4832;
				obj_t BgL_rz00_4833;

				BgL_lz00_4832 =
					(((BgL_ev_labelsz00_bglt) COBJECT(
							((BgL_ev_labelsz00_bglt) BgL_ez00_4153)))->BgL_valsz00);
				BgL_rz00_4833 = BgL_nz00_4154;
			BgL_recz00_4831:
				if (NULLP(BgL_lz00_4832))
					{	/* Eval/evaluate_fsize.scm 141 */
						int BgL_xz00_4834;

						BgL_xz00_4834 =
							BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
							(((BgL_ev_labelsz00_bglt) COBJECT(
										((BgL_ev_labelsz00_bglt) BgL_ez00_4153)))->BgL_bodyz00),
							CINT(BgL_nz00_4154));
						return
							BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4834),
							BgL_rz00_4833);
					}
				else
					{	/* Eval/evaluate_fsize.scm 142 */
						obj_t BgL_arg1647z00_4835;
						obj_t BgL_arg1649z00_4836;

						BgL_arg1647z00_4835 = CDR(((obj_t) BgL_lz00_4832));
						{	/* Eval/evaluate_fsize.scm 142 */
							int BgL_xz00_4837;

							{	/* Eval/evaluate_fsize.scm 142 */
								obj_t BgL_arg1651z00_4838;
								long BgL_arg1652z00_4839;

								{	/* Eval/evaluate_fsize.scm 142 */
									obj_t BgL_pairz00_4840;

									BgL_pairz00_4840 = CAR(((obj_t) BgL_lz00_4832));
									BgL_arg1651z00_4838 = CDR(BgL_pairz00_4840);
								}
								{	/* Eval/evaluate_fsize.scm 142 */
									long BgL_tmpz00_6581;

									{	/* Eval/evaluate_fsize.scm 142 */
										obj_t BgL_auxz00_6583;

										{	/* Eval/evaluate_fsize.scm 142 */
											obj_t BgL_pairz00_4841;

											BgL_pairz00_4841 = CAR(((obj_t) BgL_lz00_4832));
											BgL_auxz00_6583 = CAR(BgL_pairz00_4841);
										}
										BgL_tmpz00_6581 = bgl_list_length(BgL_auxz00_6583);
									}
									BgL_arg1652z00_4839 =
										((long) CINT(BgL_nz00_4154) + BgL_tmpz00_6581);
								}
								BgL_xz00_4837 =
									BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
									((BgL_ev_exprz00_bglt) BgL_arg1651z00_4838),
									(int) (BgL_arg1652z00_4839));
							}
							BgL_arg1649z00_4836 =
								BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4837),
								BgL_rz00_4833);
						}
						{
							obj_t BgL_rz00_6595;
							obj_t BgL_lz00_6594;

							BgL_lz00_6594 = BgL_arg1647z00_4835;
							BgL_rz00_6595 = BgL_arg1649z00_4836;
							BgL_rz00_4833 = BgL_rz00_6595;
							BgL_lz00_4832 = BgL_lz00_6594;
							goto BgL_recz00_4831;
						}
					}
			}
		}

	}



/* &fsize-ev_letrec1315 */
	obj_t BGl_z62fsiza7ezd2ev_letrec1315z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4155, obj_t BgL_ez00_4156, obj_t BgL_nz00_4157)
	{
		{	/* Eval/evaluate_fsize.scm 129 */
			{	/* Eval/evaluate_fsize.scm 130 */
				int BgL_nz00_4843;

				BgL_nz00_4843 = CINT(BgL_nz00_4157);
				{	/* Eval/evaluate_fsize.scm 131 */
					long BgL_nz00_4844;

					BgL_nz00_4844 =
						(
						(long) (BgL_nz00_4843) +
						bgl_list_length(
							(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_4156))))->
								BgL_valsz00)));
					{
						obj_t BgL_lz00_4846;
						obj_t BgL_rz00_4847;

						{	/* Eval/evaluate_fsize.scm 132 */
							obj_t BgL_arg1632z00_4854;

							BgL_arg1632z00_4854 =
								(((BgL_ev_binderz00_bglt) COBJECT(
										((BgL_ev_binderz00_bglt)
											((BgL_ev_letrecz00_bglt) BgL_ez00_4156))))->BgL_valsz00);
							BgL_lz00_4846 = BgL_arg1632z00_4854;
							BgL_rz00_4847 = BINT(BgL_nz00_4844);
						BgL_recz00_4845:
							if (NULLP(BgL_lz00_4846))
								{	/* Eval/evaluate_fsize.scm 134 */
									int BgL_xz00_4848;

									{	/* Eval/evaluate_fsize.scm 134 */
										BgL_ev_exprz00_bglt BgL_arg1635z00_4849;

										BgL_arg1635z00_4849 =
											(((BgL_ev_binderz00_bglt) COBJECT(
													((BgL_ev_binderz00_bglt)
														((BgL_ev_letrecz00_bglt) BgL_ez00_4156))))->
											BgL_bodyz00);
										BgL_xz00_4848 =
											BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_arg1635z00_4849,
											(int) (BgL_nz00_4844));
									}
									return
										BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4848),
										BgL_rz00_4847);
								}
							else
								{	/* Eval/evaluate_fsize.scm 135 */
									obj_t BgL_arg1636z00_4850;
									obj_t BgL_arg1637z00_4851;

									BgL_arg1636z00_4850 = CDR(((obj_t) BgL_lz00_4846));
									{	/* Eval/evaluate_fsize.scm 135 */
										int BgL_xz00_4852;

										{	/* Eval/evaluate_fsize.scm 135 */
											obj_t BgL_arg1639z00_4853;

											BgL_arg1639z00_4853 = CAR(((obj_t) BgL_lz00_4846));
											BgL_xz00_4852 =
												BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
												((BgL_ev_exprz00_bglt) BgL_arg1639z00_4853),
												(int) (BgL_nz00_4844));
										}
										BgL_arg1637z00_4851 =
											BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4852),
											BgL_rz00_4847);
									}
									{
										obj_t BgL_rz00_6627;
										obj_t BgL_lz00_6626;

										BgL_lz00_6626 = BgL_arg1636z00_4850;
										BgL_rz00_6627 = BgL_arg1637z00_4851;
										BgL_rz00_4847 = BgL_rz00_6627;
										BgL_lz00_4846 = BgL_lz00_6626;
										goto BgL_recz00_4845;
									}
								}
						}
					}
				}
			}
		}

	}



/* &fsize-ev_let*1313 */
	obj_t BGl_z62fsiza7ezd2ev_letza21313zb5zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4158, obj_t BgL_ez00_4159, obj_t BgL_nz00_4160)
	{
		{	/* Eval/evaluate_fsize.scm 122 */
			{	/* Eval/evaluate_fsize.scm 123 */
				int BgL_nz00_4856;

				BgL_nz00_4856 = CINT(BgL_nz00_4160);
				{	/* Eval/evaluate_fsize.scm 124 */
					obj_t BgL_arg1624z00_4857;

					BgL_arg1624z00_4857 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letza2za2_bglt) BgL_ez00_4159))))->BgL_valsz00);
					{
						obj_t BgL_lz00_4859;
						int BgL_nz00_4860;
						obj_t BgL_rz00_4861;

						BgL_lz00_4859 = BgL_arg1624z00_4857;
						BgL_nz00_4860 = BgL_nz00_4856;
						BgL_rz00_4861 = BINT(BgL_nz00_4856);
					BgL_recz00_4858:
						if (NULLP(BgL_lz00_4859))
							{	/* Eval/evaluate_fsize.scm 126 */
								int BgL_xz00_4862;

								{	/* Eval/evaluate_fsize.scm 126 */
									BgL_ev_exprz00_bglt BgL_arg1627z00_4863;

									BgL_arg1627z00_4863 =
										(((BgL_ev_binderz00_bglt) COBJECT(
												((BgL_ev_binderz00_bglt)
													((BgL_ev_letza2za2_bglt) BgL_ez00_4159))))->
										BgL_bodyz00);
									BgL_xz00_4862 =
										BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_arg1627z00_4863,
										BgL_nz00_4860);
								}
								return
									BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4862),
									BgL_rz00_4861);
							}
						else
							{	/* Eval/evaluate_fsize.scm 127 */
								obj_t BgL_arg1628z00_4864;
								long BgL_arg1629z00_4865;
								obj_t BgL_arg1630z00_4866;

								BgL_arg1628z00_4864 = CDR(((obj_t) BgL_lz00_4859));
								BgL_arg1629z00_4865 = ((long) (BgL_nz00_4860) + 1L);
								{	/* Eval/evaluate_fsize.scm 127 */
									int BgL_xz00_4867;

									{	/* Eval/evaluate_fsize.scm 127 */
										obj_t BgL_arg1631z00_4868;

										BgL_arg1631z00_4868 = CAR(((obj_t) BgL_lz00_4859));
										BgL_xz00_4867 =
											BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1631z00_4868),
											BgL_nz00_4860);
									}
									BgL_arg1630z00_4866 =
										BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4867),
										BgL_rz00_4861);
								}
								{
									obj_t BgL_rz00_6654;
									int BgL_nz00_6652;
									obj_t BgL_lz00_6651;

									BgL_lz00_6651 = BgL_arg1628z00_4864;
									BgL_nz00_6652 = (int) (BgL_arg1629z00_4865);
									BgL_rz00_6654 = BgL_arg1630z00_4866;
									BgL_rz00_4861 = BgL_rz00_6654;
									BgL_nz00_4860 = BgL_nz00_6652;
									BgL_lz00_4859 = BgL_lz00_6651;
									goto BgL_recz00_4858;
								}
							}
					}
				}
			}
		}

	}



/* &fsize-ev_let1311 */
	obj_t BGl_z62fsiza7ezd2ev_let1311z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4161, obj_t BgL_ez00_4162, obj_t BgL_nz00_4163)
	{
		{	/* Eval/evaluate_fsize.scm 115 */
			{	/* Eval/evaluate_fsize.scm 116 */
				int BgL_nz00_4870;

				BgL_nz00_4870 = CINT(BgL_nz00_4163);
				{	/* Eval/evaluate_fsize.scm 117 */
					obj_t BgL_arg1616z00_4871;

					BgL_arg1616z00_4871 =
						(((BgL_ev_binderz00_bglt) COBJECT(
								((BgL_ev_binderz00_bglt)
									((BgL_ev_letz00_bglt) BgL_ez00_4162))))->BgL_valsz00);
					{
						obj_t BgL_lz00_4873;
						int BgL_nz00_4874;
						obj_t BgL_rz00_4875;

						BgL_lz00_4873 = BgL_arg1616z00_4871;
						BgL_nz00_4874 = BgL_nz00_4870;
						BgL_rz00_4875 = BINT(BgL_nz00_4870);
					BgL_recz00_4872:
						if (NULLP(BgL_lz00_4873))
							{	/* Eval/evaluate_fsize.scm 119 */
								int BgL_xz00_4876;

								{	/* Eval/evaluate_fsize.scm 119 */
									BgL_ev_exprz00_bglt BgL_arg1619z00_4877;

									BgL_arg1619z00_4877 =
										(((BgL_ev_binderz00_bglt) COBJECT(
												((BgL_ev_binderz00_bglt)
													((BgL_ev_letz00_bglt) BgL_ez00_4162))))->BgL_bodyz00);
									BgL_xz00_4876 =
										BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_arg1619z00_4877,
										BgL_nz00_4874);
								}
								return
									BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4876),
									BgL_rz00_4875);
							}
						else
							{	/* Eval/evaluate_fsize.scm 120 */
								obj_t BgL_arg1620z00_4878;
								long BgL_arg1621z00_4879;
								obj_t BgL_arg1622z00_4880;

								BgL_arg1620z00_4878 = CDR(((obj_t) BgL_lz00_4873));
								BgL_arg1621z00_4879 = ((long) (BgL_nz00_4874) + 1L);
								{	/* Eval/evaluate_fsize.scm 120 */
									int BgL_xz00_4881;

									{	/* Eval/evaluate_fsize.scm 120 */
										obj_t BgL_arg1623z00_4882;

										BgL_arg1623z00_4882 = CAR(((obj_t) BgL_lz00_4873));
										BgL_xz00_4881 =
											BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1623z00_4882),
											BgL_nz00_4874);
									}
									BgL_arg1622z00_4880 =
										BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4881),
										BgL_rz00_4875);
								}
								{
									obj_t BgL_rz00_6681;
									int BgL_nz00_6679;
									obj_t BgL_lz00_6678;

									BgL_lz00_6678 = BgL_arg1620z00_4878;
									BgL_nz00_6679 = (int) (BgL_arg1621z00_4879);
									BgL_rz00_6681 = BgL_arg1622z00_4880;
									BgL_rz00_4875 = BgL_rz00_6681;
									BgL_nz00_4874 = BgL_nz00_6679;
									BgL_lz00_4873 = BgL_lz00_6678;
									goto BgL_recz00_4872;
								}
							}
					}
				}
			}
		}

	}



/* &fsize-ev_synchronize1309 */
	obj_t BGl_z62fsiza7ezd2ev_synchroniza7e1309zb0zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4164, obj_t BgL_ez00_4165, obj_t BgL_nz00_4166)
	{
		{	/* Eval/evaluate_fsize.scm 111 */
			{	/* Eval/evaluate_fsize.scm 112 */
				int BgL_nz00_4884;

				BgL_nz00_4884 = CINT(BgL_nz00_4166);
				{	/* Eval/evaluate_fsize.scm 113 */
					int BgL_arg1610z00_4885;
					obj_t BgL_arg1612z00_4886;

					BgL_arg1610z00_4885 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
									((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4165)))->
							BgL_mutexz00), BgL_nz00_4884);
					{	/* Eval/evaluate_fsize.scm 113 */
						int BgL_xz00_4887;
						int BgL_yz00_4888;

						BgL_xz00_4887 =
							BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
							(((BgL_ev_synchroniza7eza7_bglt) COBJECT(
										((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4165)))->
								BgL_prelockz00), BgL_nz00_4884);
						BgL_yz00_4888 =
							BGl_fsiza7eza7zz__evaluate_fsiza7eza7(((
									(BgL_ev_synchroniza7eza7_bglt)
									COBJECT(((BgL_ev_synchroniza7eza7_bglt) BgL_ez00_4165)))->
								BgL_bodyz00), BgL_nz00_4884);
						BgL_arg1612z00_4886 =
							BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4887),
							BINT(BgL_yz00_4888));
					}
					return
						BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_arg1610z00_4885),
						BgL_arg1612z00_4886);
				}
			}
		}

	}



/* &fsize-ev_with-handle1307 */
	obj_t BGl_z62fsiza7ezd2ev_withzd2handle1307zc5zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4167, obj_t BgL_ez00_4168, obj_t BgL_nz00_4169)
	{
		{	/* Eval/evaluate_fsize.scm 107 */
			{	/* Eval/evaluate_fsize.scm 108 */
				int BgL_nz00_4890;

				BgL_nz00_4890 = CINT(BgL_nz00_4169);
				{	/* Eval/evaluate_fsize.scm 109 */
					int BgL_xz00_4891;
					int BgL_yz00_4892;

					BgL_xz00_4891 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_withzd2handlerzd2_bglt) COBJECT(
									((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4168)))->
							BgL_handlerz00), BgL_nz00_4890);
					BgL_yz00_4892 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(((
								(BgL_ev_withzd2handlerzd2_bglt)
								COBJECT(((BgL_ev_withzd2handlerzd2_bglt) BgL_ez00_4168)))->
							BgL_bodyz00), BgL_nz00_4890);
					return BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4891),
						BINT(BgL_yz00_4892));
				}
			}
		}

	}



/* &fsize-ev_unwind-prot1305 */
	obj_t BGl_z62fsiza7ezd2ev_unwindzd2prot1305zc5zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4170, obj_t BgL_ez00_4171, obj_t BgL_nz00_4172)
	{
		{	/* Eval/evaluate_fsize.scm 103 */
			{	/* Eval/evaluate_fsize.scm 104 */
				int BgL_nz00_4894;

				BgL_nz00_4894 = CINT(BgL_nz00_4172);
				{	/* Eval/evaluate_fsize.scm 105 */
					int BgL_xz00_4895;
					int BgL_yz00_4896;

					BgL_xz00_4895 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_unwindzd2protectzd2_bglt) COBJECT(
									((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_4171)))->
							BgL_ez00), BgL_nz00_4894);
					BgL_yz00_4896 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(((
								(BgL_ev_unwindzd2protectzd2_bglt)
								COBJECT(((BgL_ev_unwindzd2protectzd2_bglt) BgL_ez00_4171)))->
							BgL_bodyz00), BgL_nz00_4894);
					return BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4895),
						BINT(BgL_yz00_4896));
				}
			}
		}

	}



/* &fsize-ev_bind-exit1303 */
	obj_t BGl_z62fsiza7ezd2ev_bindzd2exit1303zc5zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4173, obj_t BgL_ez00_4174, obj_t BgL_nz00_4175)
	{
		{	/* Eval/evaluate_fsize.scm 99 */
			{	/* Eval/evaluate_fsize.scm 100 */
				int BgL_tmpz00_6718;

				{	/* Eval/evaluate_fsize.scm 100 */
					int BgL_nz00_4898;

					BgL_nz00_4898 = CINT(BgL_nz00_4175);
					{	/* Eval/evaluate_fsize.scm 101 */
						BgL_ev_exprz00_bglt BgL_arg1602z00_4899;
						long BgL_arg1603z00_4900;

						BgL_arg1602z00_4899 =
							(((BgL_ev_bindzd2exitzd2_bglt) COBJECT(
									((BgL_ev_bindzd2exitzd2_bglt) BgL_ez00_4174)))->BgL_bodyz00);
						BgL_arg1603z00_4900 = ((long) (BgL_nz00_4898) + 1L);
						BgL_tmpz00_6718 =
							BGl_fsiza7eza7zz__evaluate_fsiza7eza7(BgL_arg1602z00_4899,
							(int) (BgL_arg1603z00_4900));
				}}
				return BINT(BgL_tmpz00_6718);
			}
		}

	}



/* &fsize-ev_hook1301 */
	obj_t BGl_z62fsiza7ezd2ev_hook1301z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4176, obj_t BgL_ez00_4177, obj_t BgL_nz00_4178)
	{
		{	/* Eval/evaluate_fsize.scm 95 */
			{	/* Eval/evaluate_fsize.scm 96 */
				int BgL_tmpz00_6727;

				{	/* Eval/evaluate_fsize.scm 96 */
					int BgL_nz00_4902;

					BgL_nz00_4902 = CINT(BgL_nz00_4178);
					BgL_tmpz00_6727 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_hookz00_bglt) COBJECT(
									((BgL_ev_hookz00_bglt) BgL_ez00_4177)))->BgL_ez00),
						BgL_nz00_4902);
				}
				return BINT(BgL_tmpz00_6727);
			}
		}

	}



/* &fsize-ev_prog21299 */
	obj_t BGl_z62fsiza7ezd2ev_prog21299z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4179, obj_t BgL_ez00_4180, obj_t BgL_nz00_4181)
	{
		{	/* Eval/evaluate_fsize.scm 91 */
			{	/* Eval/evaluate_fsize.scm 92 */
				int BgL_nz00_4904;

				BgL_nz00_4904 = CINT(BgL_nz00_4181);
				{	/* Eval/evaluate_fsize.scm 93 */
					int BgL_xz00_4905;
					int BgL_yz00_4906;

					BgL_xz00_4905 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_prog2z00_bglt) COBJECT(
									((BgL_ev_prog2z00_bglt) BgL_ez00_4180)))->BgL_e1z00),
						BgL_nz00_4904);
					BgL_yz00_4906 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7((((BgL_ev_prog2z00_bglt)
								COBJECT(((BgL_ev_prog2z00_bglt) BgL_ez00_4180)))->BgL_e2z00),
						BgL_nz00_4904);
					return BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4905),
						BINT(BgL_yz00_4906));
				}
			}
		}

	}



/* &fsize-ev_list1297 */
	obj_t BGl_z62fsiza7ezd2ev_list1297z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4182, obj_t BgL_ez00_4183, obj_t BgL_nz00_4184)
	{
		{	/* Eval/evaluate_fsize.scm 84 */
			{	/* Eval/evaluate_fsize.scm 85 */
				int BgL_nz00_4908;

				BgL_nz00_4908 = CINT(BgL_nz00_4184);
				{	/* Eval/evaluate_fsize.scm 86 */
					obj_t BgL_arg1592z00_4909;

					BgL_arg1592z00_4909 =
						(((BgL_ev_listz00_bglt) COBJECT(
								((BgL_ev_listz00_bglt) BgL_ez00_4183)))->BgL_argsz00);
					{
						obj_t BgL_lz00_4911;
						obj_t BgL_rz00_4912;

						BgL_lz00_4911 = BgL_arg1592z00_4909;
						BgL_rz00_4912 = BINT(BgL_nz00_4908);
					BgL_recz00_4910:
						if (NULLP(BgL_lz00_4911))
							{	/* Eval/evaluate_fsize.scm 87 */
								return BgL_rz00_4912;
							}
						else
							{	/* Eval/evaluate_fsize.scm 89 */
								obj_t BgL_arg1595z00_4913;
								obj_t BgL_arg1596z00_4914;

								BgL_arg1595z00_4913 = CDR(((obj_t) BgL_lz00_4911));
								{	/* Eval/evaluate_fsize.scm 89 */
									int BgL_yz00_4915;

									{	/* Eval/evaluate_fsize.scm 89 */
										obj_t BgL_arg1597z00_4916;

										BgL_arg1597z00_4916 = CAR(((obj_t) BgL_lz00_4911));
										BgL_yz00_4915 =
											BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
											((BgL_ev_exprz00_bglt) BgL_arg1597z00_4916),
											BgL_nz00_4908);
									}
									BgL_arg1596z00_4914 =
										BGl_2maxz00zz__r4_numbers_6_5z00(BgL_rz00_4912,
										BINT(BgL_yz00_4915));
								}
								{
									obj_t BgL_rz00_6757;
									obj_t BgL_lz00_6756;

									BgL_lz00_6756 = BgL_arg1595z00_4913;
									BgL_rz00_6757 = BgL_arg1596z00_4914;
									BgL_rz00_4912 = BgL_rz00_6757;
									BgL_lz00_4911 = BgL_lz00_6756;
									goto BgL_recz00_4910;
								}
							}
					}
				}
			}
		}

	}



/* &fsize-ev_if1295 */
	obj_t BGl_z62fsiza7ezd2ev_if1295z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4185, obj_t BgL_ez00_4186, obj_t BgL_nz00_4187)
	{
		{	/* Eval/evaluate_fsize.scm 80 */
			{	/* Eval/evaluate_fsize.scm 81 */
				int BgL_nz00_4918;

				BgL_nz00_4918 = CINT(BgL_nz00_4187);
				{	/* Eval/evaluate_fsize.scm 82 */
					int BgL_arg1582z00_4919;
					obj_t BgL_arg1584z00_4920;

					BgL_arg1582z00_4919 =
						BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
						(((BgL_ev_ifz00_bglt) COBJECT(
									((BgL_ev_ifz00_bglt) BgL_ez00_4186)))->BgL_pz00),
						BgL_nz00_4918);
					{	/* Eval/evaluate_fsize.scm 82 */
						int BgL_xz00_4921;
						int BgL_yz00_4922;

						BgL_xz00_4921 =
							BGl_fsiza7eza7zz__evaluate_fsiza7eza7(
							(((BgL_ev_ifz00_bglt) COBJECT(
										((BgL_ev_ifz00_bglt) BgL_ez00_4186)))->BgL_tz00),
							BgL_nz00_4918);
						BgL_yz00_4922 =
							BGl_fsiza7eza7zz__evaluate_fsiza7eza7((((BgL_ev_ifz00_bglt)
									COBJECT(((BgL_ev_ifz00_bglt) BgL_ez00_4186)))->BgL_ez00),
							BgL_nz00_4918);
						BgL_arg1584z00_4920 =
							BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_xz00_4921),
							BINT(BgL_yz00_4922));
					}
					return
						BGl_2maxz00zz__r4_numbers_6_5z00(BINT(BgL_arg1582z00_4919),
						BgL_arg1584z00_4920);
				}
			}
		}

	}



/* &fsize-ev_litt1293 */
	obj_t BGl_z62fsiza7ezd2ev_litt1293z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4188, obj_t BgL_ez00_4189, obj_t BgL_nz00_4190)
	{
		{	/* Eval/evaluate_fsize.scm 77 */
			return BINT(CINT(BgL_nz00_4190));
		}

	}



/* &fsize-ev_global1291 */
	obj_t BGl_z62fsiza7ezd2ev_global1291z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4191, obj_t BgL_varz00_4192, obj_t BgL_nz00_4193)
	{
		{	/* Eval/evaluate_fsize.scm 74 */
			return BINT(CINT(BgL_nz00_4193));
		}

	}



/* &fsize-ev_var1289 */
	obj_t BGl_z62fsiza7ezd2ev_var1289z17zz__evaluate_fsiza7eza7(obj_t
		BgL_envz00_4194, obj_t BgL_ez00_4195, obj_t BgL_nz00_4196)
	{
		{	/* Eval/evaluate_fsize.scm 71 */
			return BINT(CINT(BgL_nz00_4196));
		}

	}



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

	}

#ifdef __cplusplus
}
#endif
